*** empty log message ***

[h316.git] / lib / hachti / src / oct.asm

diff --git a/lib/hachti/src/oct.asm b/lib/hachti/src/oct.asm
new file mode 100644 (file)
index 0000000..bd0a199
--- /dev/null
+++ b/lib/hachti/src/oct.asm
@@ -0,0 +1,72 @@
+* 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