| 1 | $JOB FORTRAN IV BUILD - MAIN PART |
| 2 | / ******************************************************************* |
| 3 | / ******************************************************************* |
| 4 | / ******************************************************************* |
| 5 | / |
| 6 | / PAL-8 ASSEMBLY |
| 7 | / |
| 8 | / ******************************************************************* |
| 9 | / ******************************************************************* |
| 10 | / ******************************************************************* |
| 11 | / |
| 12 | / ******************************************************************* |
| 13 | / FORTRAN IV COMPILER, PASS 1 |
| 14 | / ******************************************************************* |
| 15 | / |
| 16 | .PAL F4 |
| 17 | .LOAD F4 |
| 18 | .SAVE SYS F4=0;12200 |
| 19 | .DELETE F4.BN |
| 20 | / |
| 21 | / ******************************************************************* |
| 22 | / FORTRAN IV COMPILER, PASS 2 |
| 23 | / ******************************************************************* |
| 24 | / |
| 25 | .PAL PASS2 |
| 26 | .LOAD PASS2 |
| 27 | .SAVE SYS PASS2=0;5000 |
| 28 | .DELETE PASS2.BN |
| 29 | / |
| 30 | / ******************************************************************* |
| 31 | / FORTRAN IV COMPILER, PASS 2 OVERLAY |
| 32 | / ******************************************************************* |
| 33 | / |
| 34 | .PAL PASS2O<P2OCFG,PASS2 |
| 35 | .LOAD PASS2O |
| 36 | .SAVE SYS PASS2O=0;7605 |
| 37 | .DELETE PASS2O.BN |
| 38 | / |
| 39 | / ******************************************************************* |
| 40 | / FORTRAN IV COMPILER, PASS 3 |
| 41 | / ******************************************************************* |
| 42 | / |
| 43 | .PAL PASS3 |
| 44 | .LOAD PASS3 |
| 45 | .SAVE SYS PASS3=0;400 |
| 46 | .DELETE PASS3.BN |
| 47 | / |
| 48 | / ******************************************************************* |
| 49 | / RALF ASSEMBLER |
| 50 | / ******************************************************************* |
| 51 | / |
| 52 | .R PAL8 |
| 53 | .PAL RALF/W |
| 54 | .LOAD RALF |
| 55 | .SAVE SYS RALF.SV=0;200 |
| 56 | .DELETE RALF.BN |
| 57 | / |
| 58 | / ******************************************************************* |
| 59 | / FORTRAN IV LIBRARIAN |
| 60 | / ******************************************************************* |
| 61 | / |
| 62 | .PAL LIBRA |
| 63 | .LOAD LIBRA |
| 64 | .SAVE SYS LIBRA=0;200 |
| 65 | .DELETE LIBRA.BN |
| 66 | / |
| 67 | / ******************************************************************* |
| 68 | / LINKING LOADER |
| 69 | / ******************************************************************* |
| 70 | / |
| 71 | .PAL LOAD |
| 72 | .LOAD LOAD |
| 73 | .SAVE SYS LOAD=0;200 |
| 74 | .DELETE LOAD.BN |
| 75 | / |
| 76 | / ******************************************************************* |
| 77 | / FORTRAN IV RUNTIME SYSTEM |
| 78 | / ******************************************************************* |
| 79 | / |
| 80 | .PAL FRTS<RTS,RTL |
| 81 | .LOAD FRTS |
| 82 | .SAVE SYS FRTS=0;200 |
| 83 | .DELETE FRTS.BN |
| 84 | / |
| 85 | / SQUISHING. |
| 86 | .SQUISH DSK:/O |
| 87 | / |
| 88 | / |
| 89 | / ******************************************************************* |
| 90 | / ******************************************************************* |
| 91 | / ******************************************************************* |
| 92 | / |
| 93 | / STUPID ASSEMBLER PROCEDURES |
| 94 | / |
| 95 | / ******************************************************************* |
| 96 | / ******************************************************************* |
| 97 | / ******************************************************************* |
| 98 | / THE RALF ASSEMBLER REFUSES TO ACCEPPT THE .RA FILES AS THEY |
| 99 | / COME FROM KERMIT. I CANNOT INVESTIGATE WHICH PARITY IS GENERATED |
| 100 | / BY KERMIT-12. BUT I KNOW THAT PIP MAKES EVERYTHING RIGHT AGAIN. |
| 101 | / SO ALL .RA FILES ARE MOVED TROUGH PIP ONCE. |
| 102 | / |
| 103 | .R PIP |
| 104 | *ABS.RA<ABS.RA/A |
| 105 | *ACOS.RA<ACOS.RA/A |
| 106 | *ADC.RA<ADC.RA/A |
| 107 | *ALOG10.RA<ALOG10.RA/A |
| 108 | *ALOG.RA<ALOG.RA/A |
| 109 | *AMAX.RA<AMAX.RA/A |
| 110 | *AMIN.RA<AMIN.RA/A |
| 111 | *AMOD.RA<AMOD.RA/A |
| 112 | *ASIN.RA<ASIN.RA/A |
| 113 | *ATAN2.RA<ATAN2.RA/A |
| 114 | *ATAN.RA<ATAN.RA/A |
| 115 | *CABS.RA<CABS.RA/A |
| 116 | *CARITH.RA<CARITH.RA/A |
| 117 | *CEXP.RA<CEXP.RA/A |
| 118 | *CHARS.RA<CHARS.RA/A |
| 119 | *CHKEOF.RA<CHKEOF.RA/A |
| 120 | *CLK8A.RA<CLK8A.RA/A |
| 121 | *CLOCK.RA<CLOCK.RA/A |
| 122 | *CLOG.RA<CLOG.RA/A |
| 123 | *CMPLX.RA<CMPLX.RA/A |
| 124 | *COSD.RA<COSD.RA/A |
| 125 | *COSH.RA<COSH.RA/A |
| 126 | *COS.RA<COS.RA/A |
| 127 | *CSIN.RA<CSIN.RA/A |
| 128 | *CSQRT.RA<CSQRT.RA/A |
| 129 | *DABS.RA<DABS.RA/A |
| 130 | *DATAN2.RA<DATAN2.RA/A |
| 131 | *DATAN.RA<DATAN.RA/A |
| 132 | *DATE.RA<DATE.RA/A |
| 133 | *DBLE.RA<DBLE.RA/A |
| 134 | *DCOS.RA<DCOS.RA/A |
| 135 | *DEXP3.RA<DEXP3.RA/A |
| 136 | *DEXP.RA<DEXP.RA/A |
| 137 | *DIM.RA<DIM.RA/A |
| 138 | *DLOG10.RA<DLOG10.RA/A |
| 139 | *DLOG.RA<DLOG.RA/A |
| 140 | *DMAX1.RA<DMAX1.RA/A |
| 141 | *DMIN1.RA<DMIN1.RA/A |
| 142 | *DMOD.RA<DMOD.RA/A |
| 143 | *DSIGN.RA<DSIGN.RA/A |
| 144 | *DSIN.RA<DSIN.RA/A |
| 145 | *DSQRT.RA<DSQRT.RA/A |
| 146 | *EXP3.RA<EXP3.RA/A |
| 147 | *EXPCC.RA<EXPCC.RA/A |
| 148 | *EXPCI.RA<EXPCI.RA/A |
| 149 | *EXPDD.RA<EXPDD.RA/A |
| 150 | *EXPDI.RA<EXPDI.RA/A |
| 151 | *EXPDR.RA<EXPDR.RA/A |
| 152 | *EXPIC.RA<EXPIC.RA/A |
| 153 | *EXPID2.RA<EXPID2.RA/A |
| 154 | *EXPID.RA<EXPID.RA/A |
| 155 | *EXPII.RA<EXPII.RA/A |
| 156 | *EXPIR.RA<EXPIR.RA/A |
| 157 | *EXP.RA<EXP.RA/A |
| 158 | *FLOAT.RA<FLOAT.RA/A |
| 159 | *IDINT.RA<IDINT.RA/A |
| 160 | *IFIX.RA<IFIX.RA/A |
| 161 | *LTR.RA<LTR.RA/A |
| 162 | *ONQIB.RA<ONQIB.RA/A |
| 163 | *PAUSE.RA<PAUSE.RA/A |
| 164 | *PLOT.RA<PLOT.RA/A |
| 165 | *REAL.RA<REAL.RA/A |
| 166 | *REALTM.RA<REALTM.RA/A |
| 167 | *RFCV.RA<RFCV.RA/A |
| 168 | *RFDV.RA<RFDV.RA/A |
| 169 | *RSW.RA<RSW.RA/A |
| 170 | *SIGN.RA<SIGN.RA/A |
| 171 | *SIND.RA<SIND.RA/A |
| 172 | *SINH.RA<SINH.RA/A |
| 173 | *SNGL.RA<SNGL.RA/A |
| 174 | *SQRT.RA<SQRT.RA/A |
| 175 | *TAND.RA<TAND.RA/A |
| 176 | *TANH.RA<TANH.RA/A |
| 177 | *TAN.RA<TAN.RA/A |
| 178 | *XFIX.RA<XFIX.RA/A$ |
| 179 | / |
| 180 | / SQUISHING. |
| 181 | .SQUISH DSK:/O |
| 182 | / |
| 183 | / |
| 184 | / ******************************************************************* |
| 185 | / ******************************************************************* |
| 186 | / ******************************************************************* |
| 187 | / |
| 188 | / RALF LIBRARY ASSEMBLY |
| 189 | / |
| 190 | / ******************************************************************* |
| 191 | / ******************************************************************* |
| 192 | / ******************************************************************* |
| 193 | / |
| 194 | / |
| 195 | .COMPILE ABS.RA |
| 196 | .COMPILE ACOS.RA |
| 197 | .COMPILE ADC.RA |
| 198 | .COMPILE ALOG10.RA |
| 199 | .COMPILE ALOG.RA |
| 200 | .COMPILE AMAX.RA |
| 201 | .COMPILE AMIN.RA |
| 202 | .COMPILE AMOD.RA |
| 203 | .COMPILE ASIN.RA |
| 204 | .COMPILE ATAN2.RA |
| 205 | .COMPILE ATAN.RA |
| 206 | .COMPILE CABS.RA |
| 207 | .COMPILE CARITH.RA |
| 208 | .COMPILE CEXP.RA |
| 209 | .COMPILE CHARS.RA |
| 210 | .COMPILE CHKEOF.RA |
| 211 | /.COMPILE CLK8A.RA |
| 212 | .COMPILE CLOCK.RA |
| 213 | .COMPILE CLOG.RA |
| 214 | .COMPILE CMPLX.RA |
| 215 | .COMPILE COSD.RA |
| 216 | .COMPILE COSH.RA |
| 217 | .COMPILE COS.RA |
| 218 | .COMPILE CSIN.RA |
| 219 | .COMPILE CSQRT.RA |
| 220 | .COMPILE DABS.RA |
| 221 | .COMPILE DATAN2.RA |
| 222 | .COMPILE DATAN.RA |
| 223 | .COMPILE DATE.RA |
| 224 | .COMPILE DBLE.RA |
| 225 | .COMPILE DCOS.RA |
| 226 | .COMPILE DEXP3.RA |
| 227 | .COMPILE DEXP.RA |
| 228 | .COMPILE DIM.RA |
| 229 | .COMPILE DLOG10.RA |
| 230 | .COMPILE DLOG.RA |
| 231 | .COMPILE DMAX1.RA |
| 232 | .COMPILE DMIN1.RA |
| 233 | .COMPILE DMOD.RA |
| 234 | .COMPILE DSIGN.RA |
| 235 | .COMPILE DSIN.RA |
| 236 | .COMPILE DSQRT.RA |
| 237 | .COMPILE EXP3.RA |
| 238 | .COMPILE EXPCC.RA |
| 239 | .COMPILE EXPCI.RA |
| 240 | .COMPILE EXPDD.RA |
| 241 | .COMPILE EXPDI.RA |
| 242 | .COMPILE EXPDR.RA |
| 243 | .COMPILE EXPIC.RA |
| 244 | .COMPILE EXPID2.RA |
| 245 | .COMPILE EXPID.RA |
| 246 | .COMPILE EXPII.RA |
| 247 | .COMPILE EXPIR.RA |
| 248 | .COMPILE EXP.RA |
| 249 | .COMPILE FLOAT.RA |
| 250 | .COMPILE IDINT.RA |
| 251 | .COMPILE IFIX.RA |
| 252 | .COMPILE LTR.RA |
| 253 | .COMPILE ONQIB.RA |
| 254 | .COMPILE PAUSE.RA |
| 255 | .COMPILE PLOT.RA |
| 256 | .COMPILE REAL.RA |
| 257 | .COMPILE REALTM.RA |
| 258 | .COMPILE RFCV.RA |
| 259 | .COMPILE RFDV.RA |
| 260 | .COMPILE RSW.RA |
| 261 | .COMPILE SIGN.RA |
| 262 | .COMPILE SIND.RA |
| 263 | .COMPILE SINH.RA |
| 264 | .COMPILE SIN.RA |
| 265 | .COMPILE SNGL.RA |
| 266 | .COMPILE SQRT.RA |
| 267 | .COMPILE TAND.RA |
| 268 | .COMPILE TANH.RA |
| 269 | .COMPILE TAN.RA |
| 270 | .COMPILE XFIX.RA |
| 271 | / |
| 272 | / |
| 273 | / ******************************************************************* |
| 274 | / ******************************************************************* |
| 275 | / ******************************************************************* |
| 276 | / |
| 277 | / LIBRARY BUILD |
| 278 | / |
| 279 | / ******************************************************************* |
| 280 | / ******************************************************************* |
| 281 | / ******************************************************************* |
| 282 | / |
| 283 | / |
| 284 | .R LIBRA |
| 285 | *SYS:FORLIB.RL[20]/Z<ABS,ACOS,ADC,ALOG10/C |
| 286 | *<ALOG,AMAX,AMIN,AMOD/C |
| 287 | *<ASIN,ATAN2,ATAN,CABS/C |
| 288 | *<CARITH,CEXP,CHARS,CHKEOF/C |
| 289 | *<CLOCK,CLOG,CMPLX/C |
| 290 | *<COSD,COSH,COS,CSIN,CSQRT/C |
| 291 | *<DABS,DATAN2,DATAN,DATE/C |
| 292 | *<DBLE,DCOS,DEXP3,DEXP/C |
| 293 | *<DIM,DLOG10,DLOG,DMAX1/C |
| 294 | *<DMIN1,DMOD,DSIGN,DSIN/C |
| 295 | *<DSQRT,EXP3,EXPCC,EXPCI/C |
| 296 | *<EXPDD,EXPDI,EXPDR,EXPIC,EXPID2/C |
| 297 | *<EXPID,EXPII,EXPIR,EXP/C |
| 298 | *<FLOAT,IDINT,IFIX,LTR,ONQIB/C |
| 299 | *<PAUSE,PLOT,REAL,REALTM/C |
| 300 | *<RFCV,RFDV,RSW,SIGN/C |
| 301 | *<SIND,SINH,SNGL,SQRT/C |
| 302 | *<TAND,TANH,TAN,XFIX=200$ |
| 303 | / |
| 304 | / |
| 305 | / ******************************************************************* |
| 306 | / ******************************************************************* |
| 307 | / ******************************************************************* |
| 308 | / |
| 309 | / END OF JOB! |
| 310 | / |
| 311 | / ******************************************************************* |
| 312 | / ******************************************************************* |
| 313 | / ******************************************************************* |
| 314 | / |
| 315 | / CHAIN BACK TO DSK: |
| 316 | .SUBMIT DSK:EXIT.BI |
| 317 | |
| 318 | |
| 319 | |
| 320 | |
| 321 | |
| 322 | |
| 323 | |
| 324 | |
| 325 | |
| 326 | |