X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fo%24la.asm;fp=lib%2Fiolib%2Fsrc%2Fo%24la.asm;h=2551501fcced714ef2c3927f9ee8b0c0c02f87f8;hb=9ae5cfcad767420b936f13e674a4cc1b6e4cc126;hp=29da760da0135dc16fdf38481444678ff34c1382;hpb=b0031f2a6627a315bfefbd4de7c237719a17c54b;p=h316.git

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