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 |
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 |