READHE 	ORG	7000H
 ENTRY	LD	SP,6F00H
 	LD	HL,3C00H
 	LD	DE,3C01H
 	LD	BC,400H
 	LD	(HL),20H
 	LDIR
 	LD	HL,3C40H
 	LD	(4020H),HL
 	LD	A,0
 	CALL	212H
 	CALL	296H
 LOOP	XOR	A
 	CALL	235H
 	CALL	DISPLY
 	CALL	BREAK
 	JR	LOOP
 DISPLY	LD	C,A
 	SRL	A
 	SRL	A
 	SRL	A
 	SRL	A
 	CALL	TEST
 	LD	H,A
 	LD	A,C
 	AND	0FH
 	CALL	TEST
 	LD	L,A
 	JR	PUTIT
 TEST	ADD	A,30H
 	CP	3AH
 	JP	M,TEST1
 	ADD	A,7
 TEST1	RET
 PUTIT	LD	A,H
 	PUSH	IY
 	PUSH	DE
 	PUSH	HL
 	CALL	33H
 	POP	HL
 	LD	A,L
 	CALL	33H
 	LD	A,20H
 	CALL	33H
 	LD	A,20H
 	CALL	33H
 	POP	DE
 	POP	IY
 	RET
 BREAK	LD	A,(3840H)
 	CP	4
 	RET	NZ
 	CALL	01F8H
 	JP	402DH
 	RET
 	END	ENTRY
