MEMDUM 	ORG	7000H
 START	LD	HL,0
 LOOP	LD	A,(HL)
 	CP	128
 	JP	M,GOON
 REPLAC	ADD	A,80H
 GOON	CP	31
 	JP	P,CONT
 	LD	A,2EH
 CONT	CALL	33H	;VIDOUT ROUTINE
 	LD	A,32
 	CALL 	33H
  	LD	B,0FFH
 DELAY	DJNZ	DELAY
 	LD	A,(3840H)
 	CP	4	;LOOK FOR <BREAK> TO END
 	JP	Z,FINI
 LOOKEY	LD	A,(3801H)
 	CP	1	;LOOK FOR '@' TO PAUSE
 	JP	NZ,NEXT
 WAIT	LD	A,(3840H)
 	CP	4	;LOOK FOR <BREAK> TO END
 	JP	Z,FINI
 	CP	1	;LOOK FOR <CR> TO CONTINUE
 	JP	NZ,WAIT
 NEXT	INC	HL
 	LD	A,H
 	CP	0FFH
 	JP	NZ,LOOP
 	LD	A,L
 	CP	0FFH
 	JP	NZ,LOOP
 ;HL CONTAINS 0FFFFH AND SO, HAS REACHED END OF MEMORY AND
 ;THERE IS NO DESIRE TO CONTINUE TO DUMP MEMORY, SO END
 FINI	JP	0H
 	END	START
