ld e,10 ;y
ld d,10 ;x
ld hl,#3e08 ;adr sym "a"
ld (symv+1),hl
call print
ret

print ld a,d
and 7
ld (n1+1),a
ld a,e
and a
rra
scf
rra
and a
rra
xor e
and #f8
xor e
ld h,a
ld a,d
rlca
rlca
rlca
xor e
and #c7
xor e
rlca
rlca
ld l,a
symv ld de,0

ld a,8
nnn2 ex af,af'
ld c,0
n1 ld a,0
ld b,a
or a
ld a,(de)
jr z,nnn
srl a
rr c
djnz $-4
nnn ld (hl),a
inc l
ld (hl),c
dec l
inc de
call down_hl
ex af,af'
dec a
jr nz,nnn2
ret

down_hl inc h
ld a,h
and 7
ret nz
ld a,l
add a,32
ld l,a
ret c
ld a,h
sub 8
ld h,a
ret