; ROUTINE TO MOVE A DOT.
;
.org	0000h
		LD	HL,	0080h +32	; START POSITION.
		LD	DE,	64			; INCREMENT.
		LD	A,	15			; NUMBER OF LINES.
		LD	BC,	0			; DELAY COUNT
LOOP1:	LD	(HL),	00BFh	; ALL PIXELS ON.
LOOP2:	DEC	B				; DELAY CNT-1.
		JR	NZ,	LOOP2		; GO IF NOT DONE.
		DEC	C				; DELAY COUNT.
		JR	NZ,	LOOP2		; GO IF NOT DONE.
		LD	(HL),	80h		; ALL PIXELS OFF.
		ADD	HL,	DE			; NEXT ROW.
		DEC	A				; #LINES -1.
		JR	NZ,	LOOP1		; CONTINUE.
;LOOP3:	JR	LOOP3			; LOOP HERE.
		HALT
.end