*** empty log message ***

[h316.git] / lib / iolib / src / o$pb.asm

diff --git a/lib/iolib/src/o$pb.asm b/lib/iolib/src/o$pb.asm
index 9331ed54e3fc1516128a4c9cc9df5a63a93438b7..c59c4376ae9ae14110d2e3224caa1b00739ffdd8 100644 (file)
--- a/lib/iolib/src/o$pb.asm
+++ b/lib/iolib/src/o$pb.asm
@@ -69,6 +69,15 @@
        SUBR    O$PS
        SUBR    O$PLDR,PLDR
        REL
+WRU    OCT     024000
+WRUX   OCT     160003
+LF     OCT     050000
+LFX    OCT     164003
+XON    OCT     104000
+XONX   OCT     170003
+XOFF   OCT     114000
+XOFX   OCT     174003
+FOUR   OCT     000004
 O$PB   PZE     **      PTP PUNCH ENTRY
        STX     XR      SAVE INDEX REGISTER FROM CALLING PROGRAMM
        OCP     2       ACTIVATE PAPER TAPE PUNCH
@@ -117,15 +126,6 @@ CHAR       PZE     **
 OUT    JST     BCD8
        LLL     6
        JMP*    CHAR
-WRU    OCT     024000
-WRUX   OCT     160003
-LF     OCT     050000
-LFX    OCT     164003
-XON    OCT     104000
-XONX   OCT     170003
-XOFF   OCT     114000
-XOFX   OCT     174003
-FOUR   OCT     000004
 BCD8   PZE     **      ASCII PUNCH ROUTINE
        OTA     2
        JMP     *-1