*** 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..9456d99a8eab8d0cc32002e53482bee8b82449e3 100644 (file)
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -6,7 +6,7 @@
 *
 * REVISIONS: 
 *            1.0 (5.2.2005)  - FIRST STABLE VERSION
-*            1.1 (10.2.2005) - ADDED FORGOTTEN OCP COMMANDS 
+*            1.1 (10.2.2005) - ADDED FORGOTTEN ASR START SEQUENCE
 *
 * AUTHOR
 *
@@ -136,6 +136,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,
@@ -151,7 +159,7 @@ LINE        DEC     -40     NEG LINES LEFT ON PAGE
 *** AB HIER ABGESCHRIEBENER CODE!
 T1     DAC     **
        STX     XR
-       OCP     '104    START TTY
+       JST     ASUP    START TTY
        LDA*    T1
        ADD     WIDH
        ADD     ='40000
@@ -203,7 +211,7 @@ T14 DAC     **
 ********************************************************************************
 *
 T20    DAC     **
-       OCP     '104    START TTY
+       JST     ASUP    START TTY
        LDA     =13
        OTA     4
        JMP     *-1
@@ -214,7 +222,7 @@ T20 DAC     **
 ********************************************************************************
 *
 T30    DAC     **
-       OCP     '104    START TTY
+       JST     ASUP    START TTY
        LDA     =10
        OTA     4
        JMP     *-1