sw/f4/FRTSRC/FMAIN.BI

   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 .PAL RALF/W
  53 .LOAD RALF
  54 .SAVE SYS RALF.SV=0;200
  55 .DELETE RALF.BN
  56 /
  57 / *******************************************************************
  58 / FORTRAN IV LIBRARIAN
  59 / *******************************************************************
  60 /
  61 .PAL LIBRA
  62 .LOAD LIBRA
  63 .SAVE SYS LIBRA=0;200
  64 .DELETE LIBRA.BN
  65 /
  66 / *******************************************************************
  67 / LINKING LOADER
  68 / *******************************************************************
  69 /
  70 .PAL LOAD
  71 .LOAD LOAD
  72 .SAVE SYS LOAD=0;200
  73 .DELETE LOAD.BN
  74 /
  75 / *******************************************************************
  76 / FORTRAN IV RUNTIME SYSTEM
  77 / *******************************************************************
  78 /
  79 .PAL FRTS<RTS,RTL
  80 .LOAD FRTS
  81 .SAVE SYS FRTS=0;200
  82 .DELETE FRTS.BN
  83 /
  84 / SQUISHING.
  85 .SQUISH DSK:/O
  86 /
  87 /
  88 / *******************************************************************
  89 / *******************************************************************
  90 / *******************************************************************
  91 /
  92 / RALF LIBRARY ASSEMBLY
  93 /
  94 / *******************************************************************
  95 / *******************************************************************
  96 / *******************************************************************
  97 /
  98 /
  99 .COMPILE ABS.RA
 100 .COMPILE ACOS.RA
 101 .COMPILE ADC.RA
 102 .COMPILE ALOG10.RA
 103 .COMPILE ALOG.RA
 104 .COMPILE AMAX.RA
 105 .COMPILE AMIN.RA
 106 .COMPILE AMOD.RA
 107 .COMPILE ASIN.RA
 108 .COMPILE ATAN2.RA
 109 .COMPILE ATAN.RA
 110 .COMPILE CABS.RA
 111 .COMPILE CARITH.RA
 112 .COMPILE CEXP.RA
 113 .COMPILE CHARS.RA
 114 .COMPILE CHKEOF.RA
 115 /.COMPILE CLK8A.RA
 116 .COMPILE CLOCK.RA/8
 117 .COMPILE CLOG.RA
 118 .COMPILE CMPLX.RA
 119 .COMPILE COSD.RA
 120 .COMPILE COSH.RA
 121 .COMPILE COS.RA
 122 .COMPILE CSIN.RA
 123 .COMPILE CSQRT.RA
 124 .COMPILE DABS.RA
 125 .COMPILE DATAN2.RA
 126 .COMPILE DATAN.RA
 127 .COMPILE DATE.RA
 128 .COMPILE DBLE.RA
 129 .COMPILE DCOS.RA
 130 .COMPILE DEXP3.RA
 131 .COMPILE DEXP.RA
 132 .COMPILE DIM.RA
 133 .COMPILE DLOG10.RA
 134 .COMPILE DLOG.RA
 135 .COMPILE DMAX1.RA
 136 .COMPILE DMIN1.RA
 137 .COMPILE DMOD.RA
 138 .COMPILE DSIGN.RA
 139 .COMPILE DSIN.RA
 140 .COMPILE DSQRT.RA
 141 .COMPILE EXP3.RA
 142 .COMPILE EXPCC.RA
 143 .COMPILE EXPCI.RA
 144 .COMPILE EXPDD.RA
 145 .COMPILE EXPDI.RA
 146 .COMPILE EXPDR.RA
 147 .COMPILE EXPIC.RA
 148 .COMPILE EXPID2.RA
 149 .COMPILE EXPID.RA
 150 .COMPILE EXPII.RA
 151 .COMPILE EXPIR.RA
 152 .COMPILE EXP.RA
 153 .COMPILE FLOAT.RA
 154 .COMPILE IDINT.RA
 155 .COMPILE IFIX.RA
 156 .COMPILE LTR.RA
 157 .COMPILE ONQIB.RA
 158 .COMPILE PAUSE.RA
 159 .COMPILE PLOT.RA/8
 160 .COMPILE REAL.RA
 161 .COMPILE REALTM.RA/8
 162 .COMPILE RFCV.RA
 163 .COMPILE RFDV.RA
 164 .COMPILE RSW.RA
 165 .COMPILE SIGN.RA
 166 .COMPILE SIND.RA
 167 .COMPILE SINH.RA
 168 .COMPILE SIN.RA
 169 .COMPILE SNGL.RA
 170 .COMPILE SQRT.RA
 171 .COMPILE TAND.RA
 172 .COMPILE TANH.RA
 173 .COMPILE TAN.RA
 174 .COMPILE XFIX.RA
 175 /
 176 /
 177 / *******************************************************************
 178 / *******************************************************************
 179 / *******************************************************************
 180 /
 181 / LIBRARY BUILD
 182 /
 183 / *******************************************************************
 184 / *******************************************************************
 185 / *******************************************************************
 186 /
 187 /
 188 .R LIBRA
 189 *SYS:FORLIB.RL[20]/Z<ABS,ACOS,ADC,ALOG10/C
 190 *<ALOG,AMAX,AMIN,AMOD/C
 191 *<ASIN,ATAN2,ATAN,CABS/C
 192 *<CARITH,CEXP,CHARS,CHKEOF/C
 193 *<CLOCK,CLOG,CMPLX/C
 194 *<COSD,COSH,COS,CSIN,CSQRT/C
 195 *<DABS,DATAN2,DATAN,DATE/C
 196 *<DBLE,DCOS,DEXP3,DEXP/C
 197 *<DIM,DLOG10,DLOG,DMAX1/C
 198 *<DMIN1,DMOD,DSIGN,DSIN/C
 199 *<DSQRT,EXP3,EXPCC,EXPCI/C
 200 *<EXPDD,EXPDI,EXPDR,EXPIC,EXPID2/C
 201 *<EXPID,EXPII,EXPIR,EXP/C
 202 *<FLOAT,IDINT,IFIX,LTR,ONQIB/C
 203 *<PAUSE,PLOT,REAL,REALTM/C
 204 *<RFCV,RFDV,RSW,SIGN/C
 205 *<SIND,SINH,SNGL,SIN,SQRT/C
 206 *<TAND,TANH,TAN,XFIX=200$
 207 /
 208 /
 209 / *******************************************************************
 210 / *******************************************************************
 211 / *******************************************************************
 212 /
 213 / END OF JOB!
 214 /
 215 / *******************************************************************
 216 / *******************************************************************
 217 / *******************************************************************
 218 /
 219 / CHAIN BACK TO DSK:
 220 .SUBMIT DSK:EXIT.BI
 221
 222
 223
 224
 225
 226
 227
 228
 229
 230