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