File: FORT.BI of Disk: V50/Source/Source-Listing-PAL-3

(Source file text) 

---

$JOB ASSEMBLE AND LINK FORTRAN 4
.ASS RKA2 IN
.ASS RKB2 LIS
.ASS RKA3 BIN
.ASS RKB3 SAV
.DELETE LIS:F4.LS,LIS:PASS2.LS,LIS:PASS2O.LS,LIS:PASS3.LS
.DELETE LIS:RALF.LS,LIS:LOAD.LS,LIS:FRTS.LS,LIS:LLIBRA.LS
.R PAL8
*BIN:F4,LIS:F4<IN:F45
.R PAL8
*BIN:PASS2,LIS:PASS2<IN:PASS25
.R PAL8
*BIN:PASS2O,LIS:PASS2O<IN:OVERLY,IN:PASS25
.R PAL8
*BIN:PASS3,LIS:PASS3<IN:PASS35
.R PAL8
*BIN:RALF,LIS:RALF<IN:RALF5 /W
.R PAL8
*BIN:LOAD,LIS:LOAD<IN:LOAD5
.R PAL8
*BIN:FRTS,LIS:FRTS<IN:FRTS5,FRTL5
.R PAL8
*BIN:LIBRA,LIS:LIBRA<IN:LIBRA5
/
.R ABSLDR
*BIN:F4$
.SAVE SAV:F4=0;12200
.R ABSLDR
*BIN:PASS2$
.SAVE SAV:PASS2=0;5000
.R ABSLDR
*BIN:PASS2O$
.SAVE SAV:PASS2O=0;7605
.R ABSLDR
*BIN:PASS3$
.SAVE SAV:PASS3=0;400
.R ABSLDR
*BIN:RALF$
.SAVE SAV:RALF=2000;200
.R ABSLDR
*BIN:LOAD$
.SAVE SAV:LOAD=0;200
.R ABSLDR
*BIN:FRTS$
.SAVE SAV:FRTS=0;200
.R ABSLDR
*BIN:LIBRA$
.SAVE SAV:LIBRA=0;200
$END

---