From: hachti <hachti>
Date: Fri, 27 May 2005 17:50:05 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=008a15c07914ebf7f69e6243c4d2754c8f959a7f;p=h316.git

*** empty log message ***
---

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