From: hachti <hachti>
Date: Thu, 14 Dec 2006 02:59:50 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=2bb878170c2094e8f913a78441b151682338aa71;p=h316.git

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

diff --git a/lib/iolib/recipe/fortran-lib.recipe b/lib/iolib/recipe/fortran-lib.recipe
index e4ef862..2b78857 100644
--- a/lib/iolib/recipe/fortran-lib.recipe
+++ b/lib/iolib/recipe/fortran-lib.recipe
@@ -1,16 +1,16 @@
 # These are the selfmade modules
 
 # Binary HS Punch routine
-#obj/O$PB
+obj/O$PB
 
 #Paper tape listing routine
 #obj/O$PL
 
 # O$AL ASR comfort routine
-#obj/O$AL
+obj/O$AL
 
 # Huge Line printer routine
-#obj/O$LA
+obj/O$LA
 
 # Read Paper tape sources
 obj/I$PA
@@ -19,11 +19,15 @@ obj/I$PA
   
 #org/I$AB
 #org/I$AI
-org/O$AB
-org/O$AI
+#org/O$AB
+#org/O$AI
 
 #org/O$AH Original ASR listing routine
-org/O$AH
-
+#org/O$AH
 
 
+#engel/i$ai-i$aa-i$ga-c$asr-v1.obj
+#engel/i$pi-i$pa-v1.obj
+#engel/o$ab-o$as-v1.obj
+#engel/o$pb-o$ps-v1.obj
+#engel/o$pldr-v1.obj
diff --git a/lib/iolib/src/i$pa.asm b/lib/iolib/src/i$pa.asm
index dc656b5..acbb230 100644
--- a/lib/iolib/src/i$pa.asm
+++ b/lib/iolib/src/i$pa.asm
@@ -10,6 +10,7 @@
 *
 * REVISIONS: 
 *            0.1 (2005-02.04)
+*            0.2 (2006-12.14) - ADDED REGISTER SAVE INSTRUCTIONS
 *
 * AUTHOR
 *
@@ -68,6 +69,8 @@
 * SETUP READ ROUTINE
 *
 I$PI	DAC	**	SETUP READ ROUTINE
+	STA	SRA	SAVE A REGISTER
+*
 	LDA*	I$PI	WORD COUNT PARAMETER
 	LGL	1	LEFT SHIFT 1
 	STA	LIM	BUFFER LIMIT
@@ -82,13 +85,18 @@ I$PI	DAC	**	SETUP READ ROUTINE
 *
 	ADD	NTAB	TAB COUNT
 	STA	I$PI	RETURN ADDRESS
+	LDA	SRA
 	JMP*	I$PI	EXIT
 *
 *
 * READ ROUTINE
 *
 I$PA	DAC	**	READ ROUTINE
-	STX	SIR	SAVED INDEX REGISTER
+	STA	SRA	SAVE A REGISTER
+	IAB
+	STA	SRB	SAVE B REGISTER
+	STX	SRI	SAVE INDEX REGISTER
+*
 	LDA*	I$PA	BUFFER ADDRESS PARAMETER
 	LGL	1	LEFT SHIFT 1
 	STA	BUFL	BUFFER LINK
@@ -194,7 +202,10 @@ DLT	JST	INPT	READ ONE CHARACTER
 EXIT	IRS	I$PA	TALLY RETURN ADDRESS
 	IRS	I$PA	TALLY RETURN ADDRESS
 *
-	LDX	SIR	SAVED INDEX REGISTER
+	LDX	SRI	SAVED INDEX REGISTER
+	LDA	SRB	RESTORE B REGISTER
+	IAB
+	LDA	SRA	RESTORE A REGISTER
 	JMP*	I$PA	EXIT
 *
 * CHARACTER INPUT ROUTINE
@@ -211,7 +222,9 @@ INPT	DAC	**
 *
 * VARIABLES AND CONSTANTS
 *
-SIR	BSZ	1	STORED INDEX REGISTER
+SRI	BSZ	1	SAVED INDEX REGISTER
+SRA	BSZ	1	SAVED A REGISTER
+SRB	BSZ	1	SAVED B REGISTER
 BUFL	BSZ	1	BUFFER LINK
 CP	BSZ	1	CHARACTER POSITION
 TABI	BSZ	1	TABLE POINTER