X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Ffortran%2Fsrc%2Ff%24w4.asm;h=82c62aeeb18c6c5e384673fef687f653ed069a02;hb=HEAD;hp=4d1f05e7cac824184501bc96dd64388f1832dc9a;hpb=c08e22bbb226696a64764be9b466a02a3ab0d93f;p=h316.git

diff --git a/lib/fortran/src/f$w4.asm b/lib/fortran/src/f$w4.asm
index 4d1f05e..82c62ae 100644
--- a/lib/fortran/src/f$w4.asm
+++ b/lib/fortran/src/f$w4.asm
@@ -1,6 +1,7 @@
-* (F$W4)       REBUILD 1
+* (F$W4)       REBUILD 2
 *
 *  
+* DATE: 27.05.2005
 *
 * PROGRAM TITLE: F$W4
 *                OUTPUT BCD ON LINE PRINTER
@@ -53,19 +54,20 @@ 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$PF	LF ONLY
+*	CALL	O$LF	LF ONLY
 	IRS	CNTR
 	JMP*	FW4J
 	LDA	=-17
 	STA	CNTR
 *
-FW4K	CALL	O$PF	LF ONLY
+FW4K	CALL	O$LF	LF ONLY
 	IRS	CNTR
 	JMP	FW4K
 	LDA	=-60