X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Ffortran%2Fsrc%2Ff%24w4.asm;h=82c62aeeb18c6c5e384673fef687f653ed069a02;hb=1f281d4826c416ec3cf4952d9c1f9409c77a9fa1;hp=7c7d6701590e1d30bff36acaa49236c1c82e7cd5;hpb=ea78fc91fca804d41e7caf94025a4616e4f2daad;p=h316.git

diff --git a/lib/fortran/src/f$w4.asm b/lib/fortran/src/f$w4.asm
index 7c7d670..82c62ae 100644
--- 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