X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Ffortran%2Fsrc%2Ff%24w4.asm;h=7c7d6701590e1d30bff36acaa49236c1c82e7cd5;hb=b903ebdb10a06e57e8d90a22d638d96c4a882a23;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..7c7d670 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
@@ -59,13 +60,13 @@ FW4H	***	**
 	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