*** empty log message ***

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

diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index 7c87266791e4854d7e122c08f43f24e564281bf2..d3cc23c1c678ec98116aa89ab8ac48a3c8094b48 100644 (file)
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -9,6 +9,7 @@
 *            1.1 (10.02.2005) - ADDED FORGOTTEN ASR START SEQUENCE
 *            1.2 (25.07.2005) - CORRECTED ASR START SEQUENCE
 *           1.2.1 (27.07.2005) - RECORRECTED START SEQUENCE    
+*            1.3 (03.04.2006) - SOME SORTING TO GET IT SMALLER
 *
 * AUTHOR
 *
@@ -50,13 +51,6 @@
 ********************************************************************** 
        REL             RELOCATABLE MODE
 *********************************************
-* CONFIGURATION
-HDS    DEC     1       EMPTY LINES BEFORE HEADING
-SPC    DEC     2       EMPTY LINES BETWEEN HEADING AND TEXT
-PGS    DEC     50      DATA LINES PER PAGE (WITHOUT HEADING ETC.)
-WIDH   DEC     36      (2-CHAR) WORDS PER LINE
-SFF    DEC     4       SKIPS TO SIMULATE FORM FEED
-*      
 *
 OSAL   DAC     **
        STX     XR
@@ -78,6 +72,7 @@ BUF1  DAC     **      ADDRESS OF LINE BUFFER
        JMP*    OSAL    RETURN
 *
 *
+XR     DEC     0       SAVED X REGISTER
 OSAH   DAC     **      INIT HEADING
        STX     XR
        LDA*    OSAH    
@@ -100,6 +95,8 @@ HL1  LDA*    P1
 ********************************************************************************
 *
 *
+PGS    DEC     50      DATA LINES PER PAGE (WITHOUT HEADING ETC.)
+HDS    DEC     1       EMPTY LINES BEFORE HEADING        
 NP     DAC     **      PREPARE NEW PAGE
        LDA     PGS     LOAD LINES PER PAGE
        TCA             NEGATE
@@ -122,10 +119,12 @@ SP1       JST     T30     LINE FEED
        IRS     CNT     DEC COUNTER, SKIP IF READY
        JMP     SP1     NOT READY
        JMP*    NP
+SPC    DEC     2       EMPTY LINES BETWEEN HEADING AND TEXT        
 *
 ********************************************************************************
 *
 **** FORM FEED ROUTINE
+SFF    DEC     4       SKIPS TO SIMULATE FORM FEED
 FF     DAC     **
        JST     ASUP    OUTPUT MODE
        LDA     SFF
@@ -147,7 +146,6 @@ ASUP        DAC     **
        JMP*    ASUP
 *
 *
-XR     DEC     0       SAVED X REGISTER
 CNT    DEC     0
 HBUF   BCI     20,
        BCI     20,
@@ -160,19 +158,21 @@ LINE      DEC     -40     NEG LINES LEFT ON PAGE
 ********************************************************************************
 *
 *** AB HIER ABGESCHRIEBENER CODE!
+WIDH   DEC     36      (2-CHAR) WORDS PER LINE
+CC4    OCT     40000
 T1     DAC     **
        STX     XR
        JST     ASUP    START TTY
        LDA*    T1
        ADD     WIDH
-       ADD     ='40000
+       ADD     CC4
        STA     T6
        IRS     T1
        LDA     WIDH
        TCA
        STA     0
 T3     LDA*    T6
-       CAS     ='120240
+       CAS     CS1
        JMP     *+2
 *
        JMP     T8
@@ -189,13 +189,14 @@ T10       IRS     0
        JMP     *+2
        JMP*    T1
        LDA*    T6
-       CAS     ='120240
+       CAS     CS1
        JMP     *+2
        JMP     T10
        LDA     T12
        STA     0
-       LDA     ='120240
+       LDA     CS1
        JMP     T4
+CS1    OCT     120240        
 T12    ***     **
 *
 T14    DAC     **
@@ -213,9 +214,10 @@ T14        DAC     **
 *
 ********************************************************************************
 *
+C13    DEC     13
 T20    DAC     **
        JST     ASUP    START TTY
-       LDA     =13     CARRIAGE RETURN
+       LDA     C13     CARRIAGE RETURN
        OTA     4
        JMP     *-1
        OTA     4