*** 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 9456d99a8eab8d0cc32002e53482bee8b82449e3..51c48009e7953c80fdbe79408bd72813d1d87312 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 ASR START SEQUENCE
+*            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
@@ -35,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
@@ -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
@@ -144,7 +146,6 @@ ASUP        DAC     **
        JMP*    ASUP
 *
 *
-XR     DEC     0       SAVED X REGISTER
 CNT    DEC     0
 HBUF   BCI     20,
        BCI     20,
@@ -156,20 +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
@@ -186,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     **
@@ -210,9 +215,10 @@ T14        DAC     **
 *
 ********************************************************************************
 *
+C13    DEC     13
 T20    DAC     **
        JST     ASUP    START TTY
-       LDA     =13
+       LDA     C13     CARRIAGE RETURN
        OTA     4
        JMP     *-1
        OTA     4
@@ -223,8 +229,8 @@ T20 DAC     **
 *
 T30    DAC     **
        JST     ASUP    START TTY
-       LDA     =10
-       OTA     4
+       LDA     =10     LINE FEED
+       OTA     4       
        JMP     *-1
        JMP*    T30
 *