DEMO1  	ORG	7000H
 ENTRY	DI
 	LD	SP,ENTRY
 LOOP	LD	A,32
 	OUT	(0FFH),A
 	CALL	1C9H
 	LD	A,96
 	OUT	(0FFH),A
 	LD	HL,3C00H
 	LD	B,12
 GOLOOP	LD	A,R
 	RES	7,A
 	RES	0,A
 	ADD	A,128
 	LD	(HL),A
 	INC	HL
 	DJNZ	GOLOOP
 	LD	A,32
 	OUT	(0FFH),A
 	CALL	1C9H
 	LD	A,160
 	OUT	(0FFH),A
 	LD	HL,3C00H
 	LD	DE,3C01H
 	LD	BC,1023
 	LD	(HL),128
 	LDIR
 	LD	BC,0
 	CALL	60H
 WAIT	LD	A,(3840H)
 	CP	128
 	JR	Z,WAIT
 	JR	LOOP
 	END	ENTRY
