+* OCT - TYPE OCTAL VALUE ON THE ASR
+*
+* TYPE OUT THE VALUE IN A. A STAYS UNCHANGED AFTERWARDS
+*
+ SUBR OCT
+*
+*
+ REL
+OCT DAC **
+ STA ATMP
+ SKS '104
+ JMP *-1
+ OCP '104
+ IAB SAVE TO B
+ STA BTMP
+ CRA
+ LLR 1
+ ADD =48
+ OTA '4 ASR OUTPUT
+ JMP *-1
+ CRA
+ LLR 3
+ ADD =48
+ OTA 4 ASR OUTPUT
+ OTA 4
+ JMP *-1
+ CRA
+ LLR 3
+ ADD =48
+ OTA '4 ASR OUTPUT
+ OTA 4
+ JMP *-1
+ CRA
+ LLR 3
+ ADD =48
+ OTA '4 ASR OUTPUT
+ OTA 4
+ JMP *-1
+ CRA
+ LLR 3
+ ADD =48
+ OTA '4 ASR OUTPUT
+ OTA 4
+ JMP *-1
+ CRA
+ LLR 3
+ ADD =48
+ OTA '4 ASR OUTPUT
+ OTA 4
+ JMP *-1
+*
+ LDA =10
+ OTA '4
+ JMP *-1
+ LDA =13
+ OTA '4
+ JMP *-1
+ LDA =13
+ OTA '4
+ JMP *-1
+*
+ LDA BTMP
+ IAB
+ LDA ATMP
+ JMP* OCT
+*
+ATMP DAC ** TEMPORARY STORAGE FOR A
+BTMP DAC ** TEMPORARY STORAGE FOR B
+*
+********************************************************************************
+*
+ END