903be085 |
1 | * OCT - TYPE OCTAL VALUE ON THE ASR |
2 | * |
3 | * TYPE OUT THE VALUE IN A. A STAYS UNCHANGED AFTERWARDS |
4 | * |
5 | SUBR OCT |
6 | * |
7 | * |
8 | REL |
9 | OCT DAC ** |
10 | STA ATMP |
11 | SKS '104 |
12 | JMP *-1 |
13 | OCP '104 |
14 | IAB SAVE TO B |
15 | STA BTMP |
16 | CRA |
17 | LLR 1 |
18 | ADD =48 |
19 | OTA '4 ASR OUTPUT |
20 | JMP *-1 |
21 | CRA |
22 | LLR 3 |
23 | ADD =48 |
24 | OTA 4 ASR OUTPUT |
25 | OTA 4 |
26 | JMP *-1 |
27 | CRA |
28 | LLR 3 |
29 | ADD =48 |
30 | OTA '4 ASR OUTPUT |
31 | OTA 4 |
32 | JMP *-1 |
33 | CRA |
34 | LLR 3 |
35 | ADD =48 |
36 | OTA '4 ASR OUTPUT |
37 | OTA 4 |
38 | JMP *-1 |
39 | CRA |
40 | LLR 3 |
41 | ADD =48 |
42 | OTA '4 ASR OUTPUT |
43 | OTA 4 |
44 | JMP *-1 |
45 | CRA |
46 | LLR 3 |
47 | ADD =48 |
48 | OTA '4 ASR OUTPUT |
49 | OTA 4 |
50 | JMP *-1 |
51 | * |
52 | LDA =10 |
53 | OTA '4 |
54 | JMP *-1 |
55 | LDA =13 |
56 | OTA '4 |
57 | JMP *-1 |
58 | LDA =13 |
59 | OTA '4 |
60 | JMP *-1 |
61 | * |
62 | LDA BTMP |
63 | IAB |
64 | LDA ATMP |
65 | JMP* OCT |
66 | * |
67 | ATMP DAC ** TEMPORARY STORAGE FOR A |
68 | BTMP DAC ** TEMPORARY STORAGE FOR B |
69 | * |
70 | ******************************************************************************** |
71 | * |
72 | END |