*** 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 99d5b944f01873777727e69737d6556eb1f64fde..d3cc23c1c678ec98116aa89ab8ac48a3c8094b48 100644 (file)
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -5,8 +5,11 @@
 *                 ASR TYPING ROUTINES
 *
 * REVISIONS: 
-*            1.0 (5.2.2005)  - FIRST STABLE VERSION
-*            1.1 (10.2.2005) - ADDED FORGOTTEN OCP COMMANDS 
+*            1.0 (05.02.2005) - FIRST STABLE VERSION
+*            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
 *
@@ -20,7 +23,7 @@
 *
 * RESTRICTIONS
 *
-*    THESE ARE NOT THE ORIGINAL
+*    THESE ARE NOT THE ORIGINAL ROUTINES
 *
 *
 * STORAGE
@@ -48,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
@@ -76,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    
@@ -98,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
@@ -120,11 +119,14 @@ 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
        TCA
        STA     CNT
@@ -136,7 +138,14 @@ FF1        OTA     4       SEND LINE FEED
        JMP*    FF      RETURN
 *
 *
-XR     DEC     0       SAVED X REGISTER
+* ASR START ROUTINE
+ASUP   DAC     **
+       SKS     '104
+       JMP     *-1
+       OCP     '104
+       JMP*    ASUP
+*
+*
 CNT    DEC     0
 HBUF   BCI     20,
        BCI     20,
@@ -149,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
-       OCP     '104    START TTY
+       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
@@ -178,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     **
@@ -202,9 +214,10 @@ T14        DAC     **
 *
 ********************************************************************************
 *
+C13    DEC     13
 T20    DAC     **
-       OCP     '104    START TTY
-       LDA     =13
+       JST     ASUP    START TTY
+       LDA     C13     CARRIAGE RETURN
        OTA     4
        JMP     *-1
        OTA     4
@@ -214,9 +227,9 @@ T20 DAC     **
 ********************************************************************************
 *
 T30    DAC     **
-       OCP     '104    START TTY
-       LDA     =10
-       OTA     4
+       JST     ASUP    START TTY
+       LDA     =10     LINE FEED
+       OTA     4       
        JMP     *-1
        JMP*    T30
 *