*** empty log message ***

[h316.git] / lib / fortran / src / f$w4.asm

diff --git a/lib/fortran/src/f$w4.asm b/lib/fortran/src/f$w4.asm
index 7c7d6701590e1d30bff36acaa49236c1c82e7cd5..82c62aeeb18c6c5e384673fef687f653ed069a02 100644 (file)
--- a/lib/fortran/src/f$w4.asm
+++ b/lib/fortran/src/f$w4.asm
@@ -54,13 +54,14 @@ FW4F        LDA*    FW4H
        ANA     ='377
        ERA     ='120000
        STA*    FW4H
-FW4G   CALL    O$LC    CARRIAGE RETURN ONLY
-       CALL    O$LP    OUTPUT ONE LINE OF INFORMATION
+FW4G   CALL    O$LP    OUTPUT ONE LINE OF INFORMATION
 FW4H   ***     **
+       CALL    O$LC    CARRIAGE RETURN ONLY
+       CALL    O$LF
        IRS     FW4A
        JMP*    FW4A
 FW4J   DAC     **
-       CALL    O$LF    LF ONLY
+*      CALL    O$LF    LF ONLY
        IRS     CNTR
        JMP*    FW4J
        LDA     =-17