X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fo%24la-laser.asm;h=6b9d70221bf35e6a1cca3b1a94c60f739134f49f;hb=0b8fa8754893006b8a88448dbd32ac21ce911731;hp=843a36f32bacf248da28f059b6d35b7a11e2eadf;hpb=1ddb3009c3202fea8df591eb2965143537a698a0;p=h316.git

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