; ROUTINE TO DUMP IN BINARY
;
.ORG 0000h	
		LD	SP,	0F0h		; ADDED FOR TESTING PURPOSES.
						
		LD	IX,	0040h		; MIDDLE OF LINE 0. (LD IX, 3C00h + 32).
		LD	IY,	0080h		; START OF DUMP LOCATION. (LD IY, 4B00h).
		LD	DE,	56			; LINE INCREMENT.
		LD	B,	16			; LINE COUNT.
LOOP1:	EXX					; SWITCH REGISTERS.
		LD	B,	8			; BIT COUNT.
LOOP2:	LD	A,	30h			; ASCII 0.
		RLC	(IY +0)			; ROTATE LEFT (WITH CARRY).
		JP	NC,	LOOP3		; GO IF 0.
		INC	A				; CHANGE 0 TO 1.
LOOP3:	LD	(IX +0),	A	; STORE 0 OR 1.
		INC IX				; NEXT CHARACTER POSITION.
		DJNZ	LOOP2		; GO IT NOT 8 BITS.
		EXX					; SWITCH BACK.
		INC	IY				; BUMP LOCATION POINTER.
		ADD	IX,	DE			; POINT TO NEXT LINE.
		DJNZ	LOOP1		; GO IT NOT 16 LOCATIONS.
;LOOP4:	JP	LOOP4			; LOOP HERE ON DONE.
		HALT
					
.END