*             CLEANUP
*
*   CLEANS UP CORE LOCATIONS '00020-'30777.
*
	ORG	'31000
STRT	LDA	='20	START ADDRESS
	STA	PTR
LOOP	CRA
	STA*	PTR
	IRS	PTR
	JMP	GO1	NO OVERFLOW
	HLT		OVERFLOW OCCURED
GO1	LDA	PTR
	SUB	='31000
	SZE		SKIP IF READY
	JMP	LOOP	RESTART
RDY	OCP	'104	ASR START
	JST	CRLF
	JST	OK
	HLT
	JMP	STRT	RESTART :-)
*******
OK	DAC	**
	LDA	='117	CHARACTER O
	JST	PRNT
	LDA	='113	NOW K
	JST	PRNT
	JMP*	OK
*******
CRLF	DAC	**
	LDA	=13	LOAD CR
	JST	PRNT
	LDA	=10	LOAD LF
	JST	PRNT
	JMP*	CRLF
******
PRNT	DAC	**
	SKS	4	WAIT FOR ASR33
	JMP	*-1	TO BECOME READY
	OTA	4	OUTPUT CHAR
	NOP		SECURITY
	JMP*	PRNT	BACK
*****
PTR	DEC	0	THE POSITION
*****
	END