| 1 | $JOB FORTRAN IV BUILD - MAIN PART |
| 2 | / ******************************************************************* |
| 3 | / ******************************************************************* |
| 4 | / ******************************************************************* |
| 5 | / |
| 6 | / STUPID ASSEMBLER PROCEDURES |
| 7 | / |
| 8 | / ******************************************************************* |
| 9 | / ******************************************************************* |
| 10 | / ******************************************************************* |
| 11 | / THE RALF ASSEMBLER REFUSES TO ACCEPPT THE .RA FILES AS THEY |
| 12 | / COME FROM KERMIT. I CANNOT INVESTIGATE WHICH PARITY IS GENERATED |
| 13 | / BY KERMIT-12. BUT I KNOW THAT PIP MAKES EVERYTHING RIGHT AGAIN. |
| 14 | / SO ALL .RA FILES ARE MOVED TROUGH PIP ONCE. |
| 15 | / |
| 16 | .R PIP |
| 17 | *ABS.RA<ABS.RA/A |
| 18 | *ACOS.RA<ACOS.RA/A |
| 19 | *ADC.RA<ADC.RA/A |
| 20 | *ALOG10.RA<ALOG10.RA/A |
| 21 | *ALOG.RA<ALOG.RA/A |
| 22 | *AMAX.RA<AMAX.RA/A |
| 23 | *AMIN.RA<AMIN.RA/A |
| 24 | *AMOD.RA<AMOD.RA/A |
| 25 | *ASIN.RA<ASIN.RA/A |
| 26 | *ATAN2.RA<ATAN2.RA/A |
| 27 | *ATAN.RA<ATAN.RA/A |
| 28 | *CABS.RA<CABS.RA/A |
| 29 | *CARITH.RA<CARITH.RA/A |
| 30 | *CEXP.RA<CEXP.RA/A |
| 31 | *CHARS.RA<CHARS.RA/A |
| 32 | *CHKEOF.RA<CHKEOF.RA/A |
| 33 | *CLK8A.RA<CLK8A.RA/A |
| 34 | *CLOCK.RA<CLOCK.RA/A |
| 35 | *CLOG.RA<CLOG.RA/A |
| 36 | *CMPLX.RA<CMPLX.RA/A |
| 37 | *COSD.RA<COSD.RA/A |
| 38 | *COSH.RA<COSH.RA/A |
| 39 | *COS.RA<COS.RA/A |
| 40 | *CSIN.RA<CSIN.RA/A |
| 41 | *CSQRT.RA<CSQRT.RA/A |
| 42 | *DABS.RA<DABS.RA/A |
| 43 | *DATAN2.RA<DATAN2.RA/A |
| 44 | *DATAN.RA<DATAN.RA/A |
| 45 | *DATE.RA<DATE.RA/A |
| 46 | *DBLE.RA<DBLE.RA/A |
| 47 | *DCOS.RA<DCOS.RA/A |
| 48 | *DEXP3.RA<DEXP3.RA/A |
| 49 | *DEXP.RA<DEXP.RA/A |
| 50 | *DIM.RA<DIM.RA/A |
| 51 | *DLOG10.RA<DLOG10.RA/A |
| 52 | *DLOG.RA<DLOG.RA/A |
| 53 | *DMAX1.RA<DMAX1.RA/A |
| 54 | *DMIN1.RA<DMIN1.RA/A |
| 55 | *DMOD.RA<DMOD.RA/A |
| 56 | *DSIGN.RA<DSIGN.RA/A |
| 57 | *DSIN.RA<DSIN.RA/A |
| 58 | *DSQRT.RA<DSQRT.RA/A |
| 59 | *EXP3.RA<EXP3.RA/A |
| 60 | *EXPCC.RA<EXPCC.RA/A |
| 61 | *EXPCI.RA<EXPCI.RA/A |
| 62 | *EXPDD.RA<EXPDD.RA/A |
| 63 | *EXPDI.RA<EXPDI.RA/A |
| 64 | *EXPDR.RA<EXPDR.RA/A |
| 65 | *EXPIC.RA<EXPIC.RA/A |
| 66 | *EXPID2.RA<EXPID2.RA/A |
| 67 | *EXPID.RA<EXPID.RA/A |
| 68 | *EXPII.RA<EXPII.RA/A |
| 69 | *EXPIR.RA<EXPIR.RA/A |
| 70 | *EXP.RA<EXP.RA/A |
| 71 | *FLOAT.RA<FLOAT.RA/A |
| 72 | *IDINT.RA<IDINT.RA/A |
| 73 | *IFIX.RA<IFIX.RA/A |
| 74 | *LTR.RA<LTR.RA/A |
| 75 | *ONQIB.RA<ONQIB.RA/A |
| 76 | *PAUSE.RA<PAUSE.RA/A |
| 77 | *PLOT.RA<PLOT.RA/A |
| 78 | *REAL.RA<REAL.RA/A |
| 79 | *REALTM.RA<REALTM.RA/A |
| 80 | *RFCV.RA<RFCV.RA/A |
| 81 | *RFDV.RA<RFDV.RA/A |
| 82 | *RSW.RA<RSW.RA/A |
| 83 | *SIGN.RA<SIGN.RA/A |
| 84 | *SIND.RA<SIND.RA/A |
| 85 | *SINH.RA<SINH.RA/A |
| 86 | *SNGL.RA<SNGL.RA/A |
| 87 | *SQRT.RA<SQRT.RA/A |
| 88 | *TAND.RA<TAND.RA/A |
| 89 | *TANH.RA<TANH.RA/A |
| 90 | *TAN.RA<TAN.RA/A |
| 91 | *XFIX.RA<XFIX.RA/A$ |
| 92 | / |
| 93 | / SQUISHING. |
| 94 | .SQUISH DSK:/O |
| 95 | / |
| 96 | / |
| 97 | / ******************************************************************* |
| 98 | / ******************************************************************* |
| 99 | / ******************************************************************* |
| 100 | / |
| 101 | / RALF LIBRARY ASSEMBLY |
| 102 | / |
| 103 | / ******************************************************************* |
| 104 | / ******************************************************************* |
| 105 | / ******************************************************************* |
| 106 | / |
| 107 | / |
| 108 | .COMPILE ABS.RA |
| 109 | .COMPILE ACOS.RA |
| 110 | .COMPILE ADC.RA |
| 111 | .COMPILE ALOG10.RA |
| 112 | .COMPILE ALOG.RA |
| 113 | .COMPILE AMAX.RA |
| 114 | .COMPILE AMIN.RA |
| 115 | .COMPILE AMOD.RA |
| 116 | .COMPILE ASIN.RA |
| 117 | .COMPILE ATAN2.RA |
| 118 | .COMPILE ATAN.RA |
| 119 | .COMPILE CABS.RA |
| 120 | .COMPILE CARITH.RA |
| 121 | .COMPILE CEXP.RA |
| 122 | .COMPILE CHARS.RA |
| 123 | .COMPILE CHKEOF.RA |
| 124 | /.COMPILE CLK8A.RA |
| 125 | .COMPILE CLOCK.RA |
| 126 | .COMPILE CLOG.RA |
| 127 | .COMPILE CMPLX.RA |
| 128 | .COMPILE COSD.RA |
| 129 | .COMPILE COSH.RA |
| 130 | .COMPILE COS.RA |
| 131 | .COMPILE CSIN.RA |
| 132 | .COMPILE CSQRT.RA |
| 133 | .COMPILE DABS.RA |
| 134 | .COMPILE DATAN2.RA |
| 135 | .COMPILE DATAN.RA |
| 136 | .COMPILE DATE.RA |
| 137 | .COMPILE DBLE.RA |
| 138 | .COMPILE DCOS.RA |
| 139 | .COMPILE DEXP3.RA |
| 140 | .COMPILE DEXP.RA |
| 141 | .COMPILE DIM.RA |
| 142 | .COMPILE DLOG10.RA |
| 143 | .COMPILE DLOG.RA |
| 144 | .COMPILE DMAX1.RA |
| 145 | .COMPILE DMIN1.RA |
| 146 | .COMPILE DMOD.RA |
| 147 | .COMPILE DSIGN.RA |
| 148 | .COMPILE DSIN.RA |
| 149 | .COMPILE DSQRT.RA |
| 150 | .COMPILE EXP3.RA |
| 151 | .COMPILE EXPCC.RA |
| 152 | .COMPILE EXPCI.RA |
| 153 | .COMPILE EXPDD.RA |
| 154 | .COMPILE EXPDI.RA |
| 155 | .COMPILE EXPDR.RA |
| 156 | .COMPILE EXPIC.RA |
| 157 | .COMPILE EXPID2.RA |
| 158 | .COMPILE EXPID.RA |
| 159 | .COMPILE EXPII.RA |
| 160 | .COMPILE EXPIR.RA |
| 161 | .COMPILE EXP.RA |
| 162 | .COMPILE FLOAT.RA |
| 163 | .COMPILE IDINT.RA |
| 164 | .COMPILE IFIX.RA |
| 165 | .COMPILE LTR.RA |
| 166 | .COMPILE ONQIB.RA |
| 167 | .COMPILE PAUSE.RA |
| 168 | .COMPILE PLOT.RA |
| 169 | .COMPILE REAL.RA |
| 170 | .COMPILE REALTM.RA |
| 171 | .COMPILE RFCV.RA |
| 172 | .COMPILE RFDV.RA |
| 173 | .COMPILE RSW.RA |
| 174 | .COMPILE SIGN.RA |
| 175 | .COMPILE SIND.RA |
| 176 | .COMPILE SINH.RA |
| 177 | .COMPILE SIN.RA |
| 178 | .COMPILE SNGL.RA |
| 179 | .COMPILE SQRT.RA |
| 180 | .COMPILE TAND.RA |
| 181 | .COMPILE TANH.RA |
| 182 | .COMPILE TAN.RA |
| 183 | .COMPILE XFIX.RA |
| 184 | / |
| 185 | / |
| 186 | / ******************************************************************* |
| 187 | / ******************************************************************* |
| 188 | / ******************************************************************* |
| 189 | / |
| 190 | / LIBRARY BUILD |
| 191 | / |
| 192 | / ******************************************************************* |
| 193 | / ******************************************************************* |
| 194 | / ******************************************************************* |
| 195 | / |
| 196 | / |
| 197 | .R LIBRA |
| 198 | *SYS:FORLIB.RL[20]/Z<ABS,ACOS,ADC,ALOG10/C |
| 199 | *<ALOG,AMAX,AMIN,AMOD/C |
| 200 | *<ASIN,ATAN2,ATAN,CABS/C |
| 201 | *<CARITH,CEXP,CHARS,CHKEOF/C |
| 202 | *<CLOCK,CLOG,CMPLX/C |
| 203 | *<COSD,COSH,COS,CSIN,CSQRT/C |
| 204 | *<DABS,DATAN2,DATAN,DATE/C |
| 205 | *<DBLE,DCOS,DEXP3,DEXP/C |
| 206 | *<DIM,DLOG10,DLOG,DMAX1/C |
| 207 | *<DMIN1,DMOD,DSIGN,DSIN/C |
| 208 | *<DSQRT,EXP3,EXPCC,EXPCI/C |
| 209 | *<EXPDD,EXPDI,EXPDR,EXPIC,EXPID2/C |
| 210 | *<EXPID,EXPII,EXPIR,EXP/C |
| 211 | *<FLOAT,IDINT,IFIX,LTR,ONQIB/C |
| 212 | *<PAUSE,PLOT,REAL,REALTM/C |
| 213 | *<RFCV,RFDV,RSW,SIGN/C |
| 214 | *<SIND,SINH,SNGL,SQRT/C |
| 215 | *<TAND,TANH,TAN,XFIX=200$ |
| 216 | / |
| 217 | / |
| 218 | / ******************************************************************* |
| 219 | / ******************************************************************* |
| 220 | / ******************************************************************* |
| 221 | / |
| 222 | / END OF JOB! |
| 223 | / |
| 224 | / ******************************************************************* |
| 225 | / ******************************************************************* |
| 226 | / ******************************************************************* |
| 227 | / |
| 228 | / CHAIN BACK TO DSK: |
| 229 | .SUBMIT DSK:EXIT.BI |
| 230 | |
| 231 | |
| 232 | |
| 233 | |
| 234 | |
| 235 | |
| 236 | |
| 237 | |
| 238 | |
| 239 | |