Einige OCPs dazu gemacht.

diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index 625a9e317e7073af06f9b3ed15a2f3d2f5609af3..99d5b944f01873777727e69737d6556eb1f64fde 100644 (file)
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -5,7 +5,8 @@
 *                 ASR TYPING ROUTINES
 *
 * REVISIONS: 
-*            1.0 (5.2.2005)
+*            1.0 (5.2.2005)  - FIRST STABLE VERSION
+*            1.1 (10.2.2005) - ADDED FORGOTTEN OCP COMMANDS 
 *
 * AUTHOR
 *
@@ -96,6 +97,7 @@ HL1   LDA*    P1
        JMP*    OSAH    RETURN
 ********************************************************************************
 *
+*
 NP     DAC     **      PREPARE NEW PAGE
        LDA     PGS     LOAD LINES PER PAGE
        TCA             NEGATE
@@ -149,6 +151,7 @@ LINE        DEC     -40     NEG LINES LEFT ON PAGE
 *** AB HIER ABGESCHRIEBENER CODE!
 T1     DAC     **
        STX     XR
+       OCP     '104    START TTY
        LDA*    T1
        ADD     WIDH
        ADD     ='40000
@@ -200,6 +203,7 @@ T14 DAC     **
 ********************************************************************************
 *
 T20    DAC     **
+       OCP     '104    START TTY
        LDA     =13
        OTA     4
        JMP     *-1
@@ -210,6 +214,7 @@ T20 DAC     **
 ********************************************************************************
 *
 T30    DAC     **
+       OCP     '104    START TTY
        LDA     =10
        OTA     4
        JMP     *-1