SYSTEM	EQU	0005H
 	ORG	0100H
 	LXI	D,ONMSG
 	CALL	PBUFF
 L0106	MVI	A,0FCH
 	OUT	52H
 	MVI	A,0FH
 	OUT	50H
 	MVI	A,07H
 	OUT	50H
 	MVI	A,0FH
 	OUT	50H
 	MVI	A,07H
 	OUT	50H
 	IN	50H
 	ANI	10H
 	JNZ	L012A
 	LXI	D,WRERMSG
 	CALL	PBUFF
 	JMP	L0106
 L012A	IN	50H
 	ANI	20H
 	JZ	L013A
 	LXI	D,NOTRDY
 	CALL	PBUFF
 	JMP	L0106
 L013A	MVI	A,08H
 	OUT	51H
	MVI	B,6
 	MVI	A,0AAH
 L0141	OUT	53H
 	DCR	B
 	JNZ	L0141
	LDA	0E3F9H
	ANI	4
	JNZ	L013A
 	LDA	0E3F8H
 	CPI	52H
 	JZ	L0106
 	JNZ	0000H
 PBUFF	MVI	C,09H
 	JMP	SYSTEM
ONMSG	DB	' WRITING BUFFER $'
WRERMSG	DB	' WRITE ERROR $'
NOTRDY	DB	' NOT READY $'