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