From: hachti <hachti>
Date: Mon, 15 Jan 2007 19:53:21 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=d85ce9a1f78893c3834943a8774a27ad564c1749;p=h316.git

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

diff --git a/lib/iolib/src/o$la-laser.asm b/lib/iolib/src/o$la-laser.asm
index 843a36f..6b9d702 100644
--- a/lib/iolib/src/o$la-laser.asm
+++ b/lib/iolib/src/o$la-laser.asm
@@ -7,7 +7,7 @@
 * REVISIONS: 
 *            1.0 (2005-02-04)
 *            1.1 (2006-04-03) - GET IT SMALLER
-*
+*            1.2 (2007-01-15) - SOME FINE TUNING
 * AUTHOR
 *
 *    PHILIPP HACHTMANN
@@ -127,6 +127,7 @@ O$LH	DAC	**	INIT HEADING
 	LDA	HBUP
 	STA	P2	POINTER TO TARGET
 	LDA	LNW	LINE LENGTH
+	SUB	PGSL	LENGTH OF PAGE NUMBERING
 	TCA
 	STA	CNT
 HL1	LDA*	P1
@@ -193,7 +194,10 @@ P1	DEC	0	POINTER 1
 P2	DEC	0	POINTER 2
 LINE	DEC	-40	NEG LINES LEFT ON PAGE
 PGS	BCI	5,  PAGE XXX
+PGSL	DEC	5	LENGTH OF ABOVE
+PGLN	DEC	-5	NEGATIVE OF ABOVE, ATTENTION!
 PGSP	DAC	PGS	POINTER TO PGS
+RS	DEC	0	RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
 *
 *
 ************************************************************
@@ -305,17 +309,15 @@ ZZZ	LLR	8	SHIFT UP AGAIN
 	ADD	='40000	SET INDEX BIT
 	STA	P1	TO WRITE POINTER
 	LDA	PGSP	PAGE NUMBER BUFFER ADDRESS
-	ADD	=5	ADD PAGE NUMBERING LENGTH
+	ADD	PGSL	ADD PAGE NUMBERING LENGTH
 	ADD	='40000	SET INDEX BIT	
 	STA	P2	TO READ POINTER
-	LDA	=-5	
-	STA	0
+	LDX	PGLN
 PP1	LDA*	P2
 	STA*	P1
 	IRS	0
 	JMP	PP1
 	JMP*	LNNR	RETURN
-RS	DEC	0	RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
 *
 *	
 MDG	DAC	**	MAKE DIGIT FROM A