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