*** empty log message ***

[h316.git] / lib / iolib / src / o$la.asm

diff --git a/lib/iolib/src/o$la.asm b/lib/iolib/src/o$la.asm
index 29da760da0135dc16fdf38481444678ff34c1382..31cd28ec0073a66d8d6d788e9cf5b5a61d676d08 100644 (file)
--- 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
 *