[h316.git] / programs / tools / src / cleanup2.asm

* 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
Commit	Line	Data
cf7fb3fa	1	* CLEANUP - REVISED 2006-04-23
	2	*
	3	* CLEAR CORE MEMORY
	4	*
	5	* THIS LITTLE ROUTINE CAN BE LOADED ANYWHERE IN CORE.
	6	*
61655ba3	7	SUBR CLENUP,STRT
cf7fb3fa	8	SUBR ZSTART,ANFA
cf7fb3fa	9	SUBR ZEND,ENDE
cf7fb3fa	10	*
	11	REL ASSEMBLE IN RELOCATABLE MODE
	12	ORG 0
	13	STRT JMP ST2 JUMP OVER CONSTANTS
	14	ANFA OCT 20
61655ba3	15	ENDE OCT '31777
cf7fb3fa	16	ST2 LDA ANFA LOAD START ADDRESS
	17	STA PTR
	18	LOOP CRA
	19	STA* PTR STORE THE ZERO
	20	LDA PTR
	21	SUB ENDE TEST FOR
	22	SNZ LAST LOCATION?
	23	JMP RDY IF LAST LOCATION, END
	24	IRS PTR
	25	JMP LOOP NO OVERFLOW
	26	HLT OVERFLOW OCCURED
	27	RDY OCP '104 ASR START
	28	*
	29	LDA KO
	30	JST PRNT
	31	LDA LFCR
	32	JST PRNT
	33	HLT
	34	JMP STRT RESTART :-)
	35	*******
	36	KO BCI 1,KO
	37	LFCR OCT '6412
	38	*******
	39	PRNT DAC **
	40	OTA 4 OUTPUT CHAR
	41	JMP *-1 REPEAT UNTIL POSSIBLE
	42	ICA NEXT CHAR
	43	OTA 4
	44	JMP *-1
	45	JMP* PRNT RETURN
	46	*****
	47	PTR DEC 0 LOCATION POINTER
	48	*****
	49	END