*** empty log message ***

diff --git a/lib/iolib/src/o$la-laser.asm b/lib/iolib/src/o$la-laser.asm
index 843a36f32bacf248da28f059b6d35b7a11e2eadf..6b9d70221bf35e6a1cca3b1a94c60f739134f49f 100644 (file)
--- 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