* CLEANUP - REVISED 2006-04-23
*
*   CLEAR CORE MEMORY
*
*   THIS LITTLE ROUTINE CAN BE LOADED ANYWHERE IN CORE.
*
	SUBR	CLENUP,STRT
	SUBR	ZSTART,ANFA
	SUBR	ZEND,ENDE
*
	REL		ASSEMBLE IN RELOCATABLE MODE
	ORG	0
STRT	JMP	ST2     JUMP OVER CONSTANTS
ANFA	OCT	20
ENDE	OCT	'31777
ST2	LDA	ANFA	LOAD START ADDRESS
	STA	PTR
LOOP	CRA
	STA*	PTR	STORE THE ZERO
	LDA	PTR
	SUB	ENDE    TEST FOR
	SNZ		LAST LOCATION?
	JMP	RDY	IF LAST LOCATION, END 
	IRS	PTR
	JMP	LOOP	NO OVERFLOW
	HLT		OVERFLOW OCCURED
RDY	OCP	'104	ASR START
*
	LDA	KO	
	JST	PRNT
	LDA	LFCR
	JST	PRNT
	HLT
	JMP	STRT	RESTART :-)
*******
KO	BCI	1,KO
LFCR	OCT     '6412
*******
PRNT	DAC	**
	OTA	4	OUTPUT CHAR
	JMP	*-1	REPEAT UNTIL POSSIBLE
	ICA		NEXT CHAR
	OTA	4
	JMP	*-1
	JMP*	PRNT	RETURN
*****
PTR	DEC	0	LOCATION POINTER
*****
	END