From: hachti <hachti>
Date: Mon, 25 Aug 2008 21:09:53 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=903be085d6c0c341f8e088c39dc7cbf25dec22f9;p=h316.git

*** empty log message ***
---

diff --git a/lib/hachti/src/oct.asm b/lib/hachti/src/oct.asm
new file mode 100644
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
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
+
+