Генерация набора символов

 

Завалялось у меня одно cracktro, на него вчера и взглянул. Набор символов простой, но лучше 128 байт сократить до процедуры

device zxspectrum48
        ORG #6000
begin
ld hl,$4000

       ld e,l
genlp:
ld bc,$8001
push hl
charlp:
;1  2  <---C reg
; \/
; /\
;8  4 <---B reg
xor a
bit 2,h
jr nz,test2
bit 0,e
jr z,noor1
or b
noor1
bit 1,e
jr z,noor2
or c
noor2
jr skipt
test2
bit 2,e
jr z,noor3
or b
noor3
bit 3,e
jr z,noor4
or c
noor4
skipt
ld (hl),a
srl b
rlc c
inc h
ld a,h
and 7
jr nz,charlp
pop hl
inc l
inc e
bit 4,e
jr z,genlp

end
display /d,end-begin
savesna "!void.sna",begin

Написал код, вышло 53 байта. Если подумать, то код можно немного сократить для того, чтобы использовать в интро 256б.