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 |
14 | STRT JMP ST2 JUMP OVER CONSTANTS |
15 | ANFA OCT 20 |
16 | ENDE DAC STRT-1 |
17 | ST2 LDA ANFA LOAD START ADDRESS |
18 | STA PTR |
19 | LOOP 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 |
28 | RDY OCP '104 ASR START |
29 | * |
30 | LDA KO |
31 | JST PRNT |
32 | LDA LFCR |
33 | JST PRNT |
34 | HLT |
35 | JMP STRT RESTART :-) |
36 | ******* |
37 | KO BCI 1,KO |
38 | LFCR OCT '6412 |
39 | ******* |
40 | PRNT 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 | ***** |
48 | PTR DEC 0 LOCATION POINTER |
49 | ***** |
50 | END |