Én ezt csinálnám: (az la845 rutint meg elteheted oda, ahová csak akarod)
la840: equ $ + 1
la83f: ld bc, 0000
ld a,b
and a
ret z
ld a,08h
out (0a7h),a
call la845
xor a
out (0a7h),a
ld hl, 0000
ld (la840),hl
ret
la845: ld a,00h
la847: out (0a8h),a
push bc
ld b,c
la84b: djnz la84b
pop bc
xor 3fh ;ez gyanúsan túl hangos, lehet az 1fh is elég
djnz la847
ret