*** 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 625a9e317e7073af06f9b3ed15a2f3d2f5609af3..51c48009e7953c80fdbe79408bd72813d1d87312 100644 (file)
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -5,7 +5,11 @@
 *                 ASR TYPING ROUTINES
 *
 * REVISIONS: 
-*            1.0 (5.2.2005)
+*            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
 *
@@ -19,7 +23,7 @@
 *
 * RESTRICTIONS
 *
-*    THESE ARE NOT THE ORIGINAL
+*    THESE ARE NOT THE ORIGINAL ROUTINES
 *
 *
 * STORAGE
@@ -34,7 +38,7 @@
        SUBR    O$AH,OSAH       INITIALISE HEADING
        SUBR    O$LL,OSAL       TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
        SUBR    O$HH,OSAH       INITIALISE HEADING
-       SUBR    O$AP,T1 TYPE  A LINE, NO CR
+       SUBR    O$AP,T1         TYPE  A LINE, NO CR
        SUBR    O$AC,T20        RETURN THE CARRIAGE
        SUBR    O$AF,T30        ADVANCE TO NEXT LINE
        SUBR    O$AE,FF         EJECT PAGE
@@ -47,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
@@ -75,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    
@@ -96,6 +94,9 @@ HL1   LDA*    P1
        JMP*    OSAH    RETURN
 ********************************************************************************
 *
+*
+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
@@ -118,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
@@ -134,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,
@@ -146,19 +157,23 @@ LINE      DEC     -40     NEG LINES LEFT ON PAGE
 *
 ********************************************************************************
 *
-*** AB HIER ABGESCHRIEBENER CODE!
+*** FROM HERE COPIED ORIGINAL HONEYWELL 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
@@ -175,13 +190,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     **
@@ -199,8 +215,10 @@ T14        DAC     **
 *
 ********************************************************************************
 *
+C13    DEC     13
 T20    DAC     **
-       LDA     =13
+       JST     ASUP    START TTY
+       LDA     C13     CARRIAGE RETURN
        OTA     4
        JMP     *-1
        OTA     4
@@ -210,8 +228,9 @@ T20 DAC     **
 ********************************************************************************
 *
 T30    DAC     **
-       LDA     =10
-       OTA     4
+       JST     ASUP    START TTY
+       LDA     =10     LINE FEED
+       OTA     4       
        JMP     *-1
        JMP*    T30
 *