*** empty log message ***

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

diff --git a/lib/hachti/src/pmat.f b/lib/hachti/src/pmat.f
new file mode 100644 (file)
index 0000000..6b155a6
--- /dev/null
+++ b/lib/hachti/src/pmat.f
@@ -0,0 +1,24 @@
+C PMAT - PRINT 2X2 FLOAT MATRIX ON ASR
+
+      SUBROUTINE PMAT (MATRIX)
+
+      DIMENSION MATRIX(4)
+      REAL MATRIX
+      REAL M1,M2,M3,M4
+      M1=MATRIX(0)
+      M2=MATRIX(1)
+      M3=MATRIX(2)
+      M4=MATRIX(3)
+
+      WRITE (4,343) MATRIX
+      WRITE (4,344)
+
+ 343  FORMAT(2H[ ,F18.10,2X,F18.10,2H ])
+ 344  FORMAT(X)
+
+      RETURN
+      END
+
+$0
+
+