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 |