X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fo%24al.asm;h=51c48009e7953c80fdbe79408bd72813d1d87312;hb=0b8fa8754893006b8a88448dbd32ac21ce911731;hp=f79c29108b9dfbc9eb72e4de23db42b99d6c3827;hpb=437b3ba835f66625031f4711cd0a963be67ccf5a;p=h316.git

diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index f79c291..51c4800 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
 *
@@ -22,7 +23,7 @@
 *
 * RESTRICTIONS
 *
-*    THESE ARE NOT THE ORIGINAL
+*    THESE ARE NOT THE ORIGINAL ROUTINES
 *
 *
 * STORAGE
@@ -37,7 +38,7 @@
 	SUBR	O$AH,OSAH	INITIALISE HEADING
 	SUBR	O$LL,OSAL	TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
 	SUBR	O$HH,OSAH	INITIALISE HEADING
-	SUBR	O$AP,T1 TYPE  A LINE, NO CR
+	SUBR	O$AP,T1 	TYPE  A LINE, NO CR
 	SUBR	O$AC,T20	RETURN THE CARRIAGE
 	SUBR	O$AF,T30	ADVANCE TO NEXT LINE
 	SUBR	O$AE,FF		EJECT PAGE
@@ -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,
@@ -159,20 +157,23 @@ LINE	DEC	-40	NEG LINES LEFT ON PAGE
 *
 ********************************************************************************
 *
-*** AB HIER ABGESCHRIEBENER CODE!
+*** FROM HERE COPIED ORIGINAL HONEYWELL 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 +190,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 +215,10 @@ T14	DAC	**
 *
 ********************************************************************************
 *
+C13	DEC	13
 T20	DAC	**
 	JST	ASUP	START TTY
-	LDA	=13
+	LDA	C13	CARRIAGE RETURN
 	OTA	4
 	JMP	*-1
 	OTA	4
@@ -226,8 +229,8 @@ T20	DAC	**
 *
 T30	DAC	**
 	JST	ASUP	START TTY
-	LDA	=10
-	OTA	4
+	LDA	=10	LINE FEED
+	OTA	4	
 	JMP	*-1
 	JMP*	T30
 *