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

*             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
Commit	Line	Data
c08e22bb	1	* CLEANUP
	2	*
	3	* CLEANS UP CORE LOCATIONS '00020-'30777.
	4	*
	5	ORG '31000
	6	STRT LDA ='20 START ADDRESS
	7	STA PTR
	8	LOOP CRA
	9	STA* PTR
	10	IRS PTR
	11	JMP GO1 NO OVERFLOW
	12	HLT OVERFLOW OCCURED
	13	GO1 LDA PTR
	14	SUB ='31000
	15	SZE SKIP IF READY
	16	JMP LOOP RESTART
	17	RDY OCP '104 ASR START
	18	JST CRLF
	19	JST OK
	20	HLT
	21	JMP STRT RESTART :-)
	22	*******
	23	OK DAC **
	24	LDA ='117 CHARACTER O
	25	JST PRNT
	26	LDA ='113 NOW K
	27	JST PRNT
	28	JMP* OK
	29	*******
	30	CRLF DAC **
	31	LDA =13 LOAD CR
	32	JST PRNT
	33	LDA =10 LOAD LF
	34	JST PRNT
	35	JMP* CRLF
	36	******
	37	PRNT DAC **
	38	SKS 4 WAIT FOR ASR33
	39	JMP *-1 TO BECOME READY
	40	OTA 4 OUTPUT CHAR
	41	NOP SECURITY
	42	JMP* PRNT BACK
	43	*****
	44	PTR DEC 0 THE POSITION
	45	*****
	46	END