projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[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..7c7d6701590e1d30bff36acaa49236c1c82e7cd5 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
@@
-59,13
+60,13
@@
FW4H *** **
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