From: hachti <hachti>
Date: Mon, 3 Apr 2006 00:34:17 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=9ae5cfcad767420b936f13e674a4cc1b6e4cc126;hp=b0031f2a6627a315bfefbd4de7c237719a17c54b;p=h316.git

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

diff --git a/lib/iolib/recipe/io.recipe b/lib/iolib/recipe/io.recipe
index 39896a1..91fc1de 100644
--- a/lib/iolib/recipe/io.recipe
+++ b/lib/iolib/recipe/io.recipe
@@ -1,13 +1,29 @@
 # These are the selfmade modules
-obj/O$AL
-obj/O$LA
+
+# Binary HS Punch routine
 obj/O$PB
+
+#Paper tape listing routine
 obj/O$PL
+
+# O$AL ASR comfort routine
+obj/O$AL
+
+# Huge Line printer routine
+obj/O$LA
+
+# Read Paper tape sources
 obj/I$PA
 
 # And here come the original ones
+
 org/I$AB
 org/I$AI
 org/O$AB
-#org/O$AH Not needed!
 org/O$AI
+
+#org/O$AH Original ASR listing routine
+#org/O$AH
+
+
+
diff --git a/lib/iolib/recipe/small.recipe b/lib/iolib/recipe/small.recipe
new file mode 100644
index 0000000..c091f23
--- /dev/null
+++ b/lib/iolib/recipe/small.recipe
@@ -0,0 +1,29 @@
+# These are the selfmade modules
+
+# Binary HS Punch routine
+obj/O$PB
+
+#Paper tape listing routine
+#obj/O$PL
+
+# O$AL ASR comfort routine
+# obj/O$AL
+
+# Huge Line printer routine
+obj/O$LA
+
+# Read Paper tape sources
+obj/I$PA
+
+# And here come the original ones
+
+org/I$AB
+org/I$AI
+org/O$AB
+org/O$AI
+
+#org/O$AH Original ASR listing routine
+#org/O$AH
+
+
+
diff --git a/lib/iolib/src/i$pa.asm b/lib/iolib/src/i$pa.asm
index e56f247..02a56d7 100644
--- a/lib/iolib/src/i$pa.asm
+++ b/lib/iolib/src/i$pa.asm
@@ -18,7 +18,7 @@
 *
 * PURPOSE
 *
-*    TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPTER TAPE READER
+*    TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPER TAPE READER
 *
 *
 * RESTRICTIONS
diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index 7c87266..d3cc23c 100644
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -9,6 +9,7 @@
 *            1.1 (10.02.2005) - ADDED FORGOTTEN ASR START SEQUENCE
 *            1.2 (25.07.2005) - CORRECTED ASR START SEQUENCE
 *	     1.2.1 (27.07.2005) - RECORRECTED START SEQUENCE	
+*            1.3 (03.04.2006) - SOME SORTING TO GET IT SMALLER
 *
 * AUTHOR
 *
@@ -50,13 +51,6 @@
 **********************************************************************	
 	REL		RELOCATABLE MODE
 *********************************************
-* CONFIGURATION
-HDS	DEC	1	EMPTY LINES BEFORE HEADING
-SPC	DEC	2	EMPTY LINES BETWEEN HEADING AND TEXT
-PGS	DEC	50	DATA LINES PER PAGE (WITHOUT HEADING ETC.)
-WIDH	DEC	36	(2-CHAR) WORDS PER LINE
-SFF	DEC	4	SKIPS TO SIMULATE FORM FEED
-*      
 *
 OSAL	DAC	**
 	STX	XR
@@ -78,6 +72,7 @@ BUF1	DAC	**	ADDRESS OF LINE BUFFER
 	JMP*	OSAL	RETURN
 *
 *
+XR	DEC	0	SAVED X REGISTER
 OSAH	DAC	**	INIT HEADING
 	STX	XR
 	LDA*	OSAH	
@@ -100,6 +95,8 @@ HL1	LDA*	P1
 ********************************************************************************
 *
 *
+PGS	DEC	50	DATA LINES PER PAGE (WITHOUT HEADING ETC.)
+HDS	DEC	1	EMPTY LINES BEFORE HEADING        
 NP	DAC	**	PREPARE NEW PAGE
 	LDA	PGS	LOAD LINES PER PAGE
 	TCA		NEGATE
@@ -122,10 +119,12 @@ SP1	JST	T30	LINE FEED
 	IRS	CNT	DEC COUNTER, SKIP IF READY
 	JMP	SP1	NOT READY
 	JMP*	NP
+SPC	DEC	2	EMPTY LINES BETWEEN HEADING AND TEXT        
 *
 ********************************************************************************
 *
 **** FORM FEED ROUTINE
+SFF	DEC	4	SKIPS TO SIMULATE FORM FEED
 FF	DAC	**
 	JST	ASUP	OUTPUT MODE
 	LDA	SFF
@@ -147,7 +146,6 @@ ASUP	DAC	**
 	JMP*	ASUP
 *
 *
-XR	DEC	0	SAVED X REGISTER
 CNT	DEC	0
 HBUF	BCI	20,
 	BCI	20,
@@ -160,19 +158,21 @@ LINE	DEC	-40	NEG LINES LEFT ON PAGE
 ********************************************************************************
 *
 *** AB HIER ABGESCHRIEBENER CODE!
+WIDH	DEC	36	(2-CHAR) WORDS PER LINE
+CC4	OCT	40000
 T1	DAC	**
 	STX	XR
 	JST	ASUP	START TTY
 	LDA*	T1
 	ADD	WIDH
-	ADD	='40000
+	ADD	CC4
 	STA	T6
 	IRS	T1
 	LDA	WIDH
 	TCA
 	STA	0
 T3	LDA*	T6
-	CAS	='120240
+	CAS	CS1
 	JMP	*+2
 *
 	JMP	T8
@@ -189,13 +189,14 @@ T10	IRS	0
 	JMP	*+2
 	JMP*	T1
 	LDA*	T6
-	CAS	='120240
+	CAS	CS1
 	JMP	*+2
 	JMP	T10
 	LDA	T12
 	STA	0
-	LDA	='120240
+	LDA	CS1
 	JMP	T4
+CS1	OCT	120240        
 T12	***	**
 *
 T14	DAC	**
@@ -213,9 +214,10 @@ T14	DAC	**
 *
 ********************************************************************************
 *
+C13	DEC	13
 T20	DAC	**
 	JST	ASUP	START TTY
-	LDA	=13	CARRIAGE RETURN
+	LDA	C13	CARRIAGE RETURN
 	OTA	4
 	JMP	*-1
 	OTA	4
diff --git a/lib/iolib/src/o$la.asm b/lib/iolib/src/o$la.asm
index 29da760..2551501 100644
--- a/lib/iolib/src/o$la.asm
+++ b/lib/iolib/src/o$la.asm
@@ -5,7 +5,8 @@
 *                 LINE PRINTER ROUTINES
 *
 * REVISIONS: 
-*            1.0 (2005-02.04)
+*            1.0 (2005-02-04)
+*            1.1 (2006-04-03) - GET IT SMALLER
 *
 * AUTHOR
 *
@@ -85,17 +86,15 @@
 	SUBR	O$LSK2,SKP2	EMPTY LINES BETWEEN HEADING AND MAIN TEXT
 	SUBR	O$LLPP,LPP	PURE TEXT LINES PER PAGE
 	SUBR	O$LRS,RS	DISTANCE FROM PAGE NUMBERING TO RIGHT MARGIN
+	SUBR	XXX
 *
 ********************************************************************************
 *
 	REL		RELOCATEABLE MODE
 *
 * CONFIGURATION
-SKP1	DEC	1	EMPTY LINES BEFORE HEADING
-SKP2	DEC	3	EMPTY LINES BETWEEN HEADING AND TEXT
 LPP	DEC	60	DATA LINES PER PAGE (WITHOUT HEADING ETC.)
 LNW	DEC	60	LINE LENGTH IN 2-CHAR WORDS
-RS	DEC	1	RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
 *      
 *
 O$LA	DAC	**
@@ -147,6 +146,8 @@ HL1	LDA*	P1
 *
 *
 *
+SKP1	DEC	1	EMPTY LINES BEFORE HEADING
+SKP2	DEC	3	EMPTY LINES BETWEEN HEADING AND TEXT
 NP	DAC	**	PREPARE NEW PAGE
 	LDA	SKP1	SPACES BEFORE HEADING
 	SNZ		SPACING REQUIRED?
@@ -187,9 +188,6 @@ FF	DAC	**
 XR	DEC	0	THE CALLER'S X REGISTER
 CNT	DEC	0
 HBP	DAC	HBUF
-HBUF	BCI	20,
-	BCI	20,
-	BCI	20,
 P1	DEC	0	POINTER 1	
 P2	DEC	0	POINTER 2
 LINE	DEC	-40	NEG LINES LEFT ON PAGE
@@ -309,6 +307,7 @@ PP1	LDA*	P2
 	IRS	0
 	JMP	PP1
 	JMP*	LNNR	RETURN
+RS	DEC	1	RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
 *
 *	
 MDG	DAC	**	MAKE DIGIT FROM A
@@ -330,9 +329,14 @@ LNR	DAC	**	DIGIT SERVICE
 	IRS	LNR	TALLY RETURN ADDRESS
 NOFL	IRS	LNR	TALLY RETURN ADDRESS
 	JMP*	LNR
+*
+HBUF	BCI	20,
+	BCI	20,
+	BCI	20,
 *
 	FIN		WRITE OUT LITERALS
 *
+XXX	DAC	**
 * PUH.....
 *
 	END
diff --git a/lib/iolib/src/o$pb.asm b/lib/iolib/src/o$pb.asm
index 9331ed5..c59c437 100644
--- a/lib/iolib/src/o$pb.asm
+++ b/lib/iolib/src/o$pb.asm
@@ -69,6 +69,15 @@
 	SUBR	O$PS
 	SUBR	O$PLDR,PLDR
 	REL
+WRU	OCT	024000
+WRUX	OCT	160003
+LF	OCT	050000
+LFX	OCT	164003
+XON	OCT	104000
+XONX	OCT	170003
+XOFF	OCT	114000
+XOFX	OCT	174003
+FOUR	OCT	000004
 O$PB	PZE	**	PTP PUNCH ENTRY
 	STX	XR	SAVE INDEX REGISTER FROM CALLING PROGRAMM
 	OCP	2	ACTIVATE PAPER TAPE PUNCH
@@ -117,15 +126,6 @@ CHAR	PZE	**
 OUT	JST	BCD8
 	LLL	6
 	JMP*	CHAR
-WRU	OCT	024000
-WRUX	OCT	160003
-LF	OCT	050000
-LFX	OCT	164003
-XON	OCT	104000
-XONX	OCT	170003
-XOFF	OCT	114000
-XOFX	OCT	174003
-FOUR	OCT	000004
 BCD8	PZE	**	ASCII PUNCH ROUTINE
 	OTA	2
 	JMP	*-1
diff --git a/obj/dap16.obj b/obj/dap16.obj
new file mode 100644
index 0000000..5764509
Binary files /dev/null and b/obj/dap16.obj differ
diff --git a/obj/deccl.obj b/obj/deccl.obj
new file mode 100644
index 0000000..abbbedc
Binary files /dev/null and b/obj/deccl.obj differ
diff --git a/obj/dumy-x16.obj b/obj/dumy-x16.obj
new file mode 100644
index 0000000..1ba302c
Binary files /dev/null and b/obj/dumy-x16.obj differ
diff --git a/obj/ios-16.obj b/obj/ios-16.obj
new file mode 100644
index 0000000..3c78430
Binary files /dev/null and b/obj/ios-16.obj differ
diff --git a/obj/setsiz.obj b/obj/setsiz.obj
new file mode 100644
index 0000000..76ee59a
Binary files /dev/null and b/obj/setsiz.obj differ