Commit | Line | Data |
---|---|---|
7af5ad59 PH |
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 |