chput	equ	0a2h
latch	equ	0a0h
write	equ	0a1h
read	equ	0a2h

	org	0d000h
init:	di
	ld	a,0fh
	out	(latch),a
	in	a,(read)
	ld	(store),a
	or	60h
	out	(write),a
	ld	a,0eh
	out	(latch),a
loop:	in	a,(read)
	bit	4,a
	jr	nz,loop
	and	0fh
	rlca
	rlca
	rlca
	rlca
	ld	b,a
loop2:	in	a,(read)
	bit	4,a
	jr	z,loop2
loop3:	in	a,(read)
	bit	4,a
	jr	nz,loop3
	and	0fh
	add	a,b
	call	chput
	cp	0ah
	jr	z,exit
loop4:	in	a,(read)
	bit	4,a
	jr	z,loop4
	jr	loop
exit:	ld	a,0fh
	out	(latch),a
	ld	a,(store)
	out	(write),a
	ei
	ret

store:	defs	1