projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed dependencies in Makefile
[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 4d1f05e7cac824184501bc96dd64388f1832dc9a..82c62aeeb18c6c5e384673fef687f653ed069a02 100644
(file)
--- 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
*
* PROGRAM TITLE: F$W4
* OUTPUT BCD ON LINE PRINTER
@@
-53,19
+54,20
@@
FW4F LDA* FW4H
ANA ='377
ERA ='120000
STA* 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 *** **
FW4H *** **
+ CALL O$LC CARRIAGE RETURN ONLY
+ CALL O$LF
IRS FW4A
JMP* FW4A
FW4J DAC **
IRS FW4A
JMP* FW4A
FW4J DAC **
-
CALL O$P
F LF ONLY
+
* CALL O$L
F LF ONLY
IRS CNTR
JMP* FW4J
LDA =-17
STA CNTR
*
IRS CNTR
JMP* FW4J
LDA =-17
STA CNTR
*
-FW4K CALL O$
P
F LF ONLY
+FW4K CALL O$
L
F LF ONLY
IRS CNTR
JMP FW4K
LDA =-60
IRS CNTR
JMP FW4K
LDA =-60