X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fo%24la.asm;h=31cd28ec0073a66d8d6d788e9cf5b5a61d676d08;hb=0b8fa8754893006b8a88448dbd32ac21ce911731;hp=29da760da0135dc16fdf38481444678ff34c1382;hpb=c08e22bbb226696a64764be9b466a02a3ab0d93f;p=h316.git

diff --git a/lib/iolib/src/o$la.asm b/lib/iolib/src/o$la.asm
index 29da760..31cd28e 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
 *
@@ -89,13 +90,11 @@
 ********************************************************************************
 *
 	REL		RELOCATEABLE MODE
+	ORG	0
 *
 * 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	0	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,6 +329,10 @@ 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
 *