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 7c7d6701590e1d30bff36acaa49236c1c82e7cd5..82c62aeeb18c6c5e384673fef687f653ed069a02 100644
(file)
--- 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
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$LF LF ONLY
+
*
CALL O$LF LF ONLY
IRS CNTR
JMP* FW4J
LDA =-17
IRS CNTR
JMP* FW4J
LDA =-17