как то такКод:
ld hl,#5801
exx
ld hl,#4001
ld b,#18
l0
exx
ld d,h
ld e,l
dec e
dup 31
ldi
edup
inc hl
exx
push bc,hl
l1
ld d,h
ld e,l
dec e
push hl,de
dup 31
ldi
edup
pop de,hl
inc h
inc d
ld a,h
and #07
jr nz,l1
pop hl,bc
ld a,l
add a,#20
ld l,a
jr nc,$+6
ld a,h
add a,8
ld h,a
djnz l0
ret

