PN	SPRACH-IC
;
	ORG	0EB00H
	CALL	INIT
LOOP:	LD	A,020H
	OUT	0
	RST	020H
	DB	1
	JR	LOOP-#
	RST	038H
;
INIT:	LD	A,0FFH
	OUT	1
	LD	A,0C0H
	OUT	1
	LD	A,0
	OUT	0
	RET
	END
;
	END