*** 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 d3cc23c1c678ec98116aa89ab8ac48a3c8094b48..51c48009e7953c80fdbe79408bd72813d1d87312 100644 (file)
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -38,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
@@ -157,7 +157,8 @@ 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     **