*** 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..7c87266791e4854d7e122c08f43f24e564281bf2 100644 (file)
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -5,7 +5,10 @@
 *                 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    
 *
 * AUTHOR
 *
@@ -19,7 +22,7 @@
 *
 * RESTRICTIONS
 *
-*    THESE ARE NOT THE ORIGINAL
+*    THESE ARE NOT THE ORIGINAL ROUTINES
 *
 *
 * STORAGE
@@ -96,6 +99,7 @@ HL1   LDA*    P1
        JMP*    OSAH    RETURN
 ********************************************************************************
 *
+*
 NP     DAC     **      PREPARE NEW PAGE
        LDA     PGS     LOAD LINES PER PAGE
        TCA             NEGATE
@@ -123,6 +127,7 @@ SP1 JST     T30     LINE FEED
 *
 **** FORM FEED ROUTINE
 FF     DAC     **
+       JST     ASUP    OUTPUT MODE
        LDA     SFF
        TCA
        STA     CNT
@@ -134,6 +139,14 @@ FF1        OTA     4       SEND LINE FEED
        JMP*    FF      RETURN
 *
 *
+* ASR START ROUTINE
+ASUP   DAC     **
+       SKS     '104
+       JMP     *-1
+       OCP     '104
+       JMP*    ASUP
+*
+*
 XR     DEC     0       SAVED X REGISTER
 CNT    DEC     0
 HBUF   BCI     20,
@@ -149,6 +162,7 @@ LINE        DEC     -40     NEG LINES LEFT ON PAGE
 *** AB HIER ABGESCHRIEBENER CODE!
 T1     DAC     **
        STX     XR
+       JST     ASUP    START TTY
        LDA*    T1
        ADD     WIDH
        ADD     ='40000
@@ -200,7 +214,8 @@ T14 DAC     **
 ********************************************************************************
 *
 T20    DAC     **
-       LDA     =13
+       JST     ASUP    START TTY
+       LDA     =13     CARRIAGE RETURN
        OTA     4
        JMP     *-1
        OTA     4
@@ -210,8 +225,9 @@ T20 DAC     **
 ********************************************************************************
 *
 T30    DAC     **
-       LDA     =10
-       OTA     4
+       JST     ASUP    START TTY
+       LDA     =10     LINE FEED
+       OTA     4       
        JMP     *-1
        JMP*    T30
 *