вбросим немножко. результат исследования программы - фрактал Серпинского. 59 байт, но сократимо.
PHP код:
device zxspectrum128
ORG #8000
begin
ld a, 80h
ld hl, 4000h ; sierpinsky
ld de, 4100h
ld (hl), a
ld b, 0B7h
loc_F00E:
push bc
ld bc, 20h
push de
push de
push de
ldir
pop hl
ld b, 20h
loc_F01A:
ld c, (hl)
ex af, af'
rr (hl)
ex af, af'
ld a, c
xor (hl)
ld (hl), a
inc hl
djnz loc_F01A
pop hl
pop de
call sub_F270
pop bc
djnz loc_F00E
stu jr stu
sub_F270:
inc d
ld a, d
and 7
ret nz
ld a, e
add a, 20h
ld e, a
ret c
ld a, d
sub 8
ld d, a
ret
end
display /d,end-begin
savesna "test.sna",begin