[pdp8.git] / sw / f4 / FRTSRC / FMAIN.OL

$JOB FORTRAN IV BUILD - MAIN PART
/ *******************************************************************
/ *******************************************************************
/ *******************************************************************
/ 
/ PAL-8 ASSEMBLY
/
/ *******************************************************************
/ *******************************************************************
/ *******************************************************************
/
/ *******************************************************************
/ FORTRAN IV COMPILER, PASS 1
/ *******************************************************************
/
.PAL F4
.LOAD F4
.SAVE SYS F4=0;12200
.DELETE F4.BN
/
/ *******************************************************************
/ FORTRAN IV COMPILER, PASS 2
/ *******************************************************************
/
.PAL PASS2
.LOAD PASS2
.SAVE SYS PASS2=0;5000
.DELETE PASS2.BN
/
/ *******************************************************************
/ FORTRAN IV COMPILER, PASS 2 OVERLAY
/ *******************************************************************
/
.PAL PASS2O<P2OCFG,PASS2
.LOAD PASS2O
.SAVE SYS PASS2O=0;7605
.DELETE PASS2O.BN
/
/ *******************************************************************
/ FORTRAN IV COMPILER, PASS 3
/ *******************************************************************
/
.PAL PASS3
.LOAD PASS3
.SAVE SYS PASS3=0;400
.DELETE PASS3.BN
/
/ *******************************************************************
/ RALF ASSEMBLER
/ *******************************************************************
/
.R PAL8
.PAL RALF/W
.LOAD RALF
.SAVE SYS RALF.SV=0;200
.DELETE RALF.BN
/
/ *******************************************************************
/ FORTRAN IV LIBRARIAN
/ *******************************************************************
/
.PAL LIBRA
.LOAD LIBRA
.SAVE SYS LIBRA=0;200
.DELETE LIBRA.BN
/
/ *******************************************************************
/ LINKING LOADER
/ *******************************************************************
/
.PAL LOAD
.LOAD LOAD
.SAVE SYS LOAD=0;200
.DELETE LOAD.BN
/
/ *******************************************************************
/ FORTRAN IV RUNTIME SYSTEM
/ *******************************************************************
/
.PAL FRTS<RTS,RTL
.LOAD FRTS
.SAVE SYS FRTS=0;200
.DELETE FRTS.BN
/
/ SQUISHING.
.SQUISH DSK:/O
/
/
/ *******************************************************************
/ *******************************************************************
/ *******************************************************************
/ 
/ STUPID ASSEMBLER PROCEDURES
/
/ *******************************************************************
/ *******************************************************************
/ *******************************************************************
/ THE RALF ASSEMBLER REFUSES TO ACCEPPT THE .RA FILES AS THEY
/ COME FROM KERMIT. I CANNOT INVESTIGATE WHICH PARITY IS GENERATED
/ BY KERMIT-12. BUT I KNOW THAT PIP MAKES EVERYTHING RIGHT AGAIN.
/ SO ALL .RA FILES ARE MOVED TROUGH PIP ONCE.
/
.R PIP
*ABS.RA<ABS.RA/A
*ACOS.RA<ACOS.RA/A
*ADC.RA<ADC.RA/A
*ALOG10.RA<ALOG10.RA/A
*ALOG.RA<ALOG.RA/A
*AMAX.RA<AMAX.RA/A
*AMIN.RA<AMIN.RA/A
*AMOD.RA<AMOD.RA/A
*ASIN.RA<ASIN.RA/A
*ATAN2.RA<ATAN2.RA/A
*ATAN.RA<ATAN.RA/A
*CABS.RA<CABS.RA/A
*CARITH.RA<CARITH.RA/A
*CEXP.RA<CEXP.RA/A
*CHARS.RA<CHARS.RA/A
*CHKEOF.RA<CHKEOF.RA/A
*CLK8A.RA<CLK8A.RA/A
*CLOCK.RA<CLOCK.RA/A
*CLOG.RA<CLOG.RA/A
*CMPLX.RA<CMPLX.RA/A
*COSD.RA<COSD.RA/A
*COSH.RA<COSH.RA/A
*COS.RA<COS.RA/A
*CSIN.RA<CSIN.RA/A
*CSQRT.RA<CSQRT.RA/A
*DABS.RA<DABS.RA/A
*DATAN2.RA<DATAN2.RA/A
*DATAN.RA<DATAN.RA/A
*DATE.RA<DATE.RA/A
*DBLE.RA<DBLE.RA/A
*DCOS.RA<DCOS.RA/A
*DEXP3.RA<DEXP3.RA/A
*DEXP.RA<DEXP.RA/A
*DIM.RA<DIM.RA/A
*DLOG10.RA<DLOG10.RA/A
*DLOG.RA<DLOG.RA/A
*DMAX1.RA<DMAX1.RA/A
*DMIN1.RA<DMIN1.RA/A
*DMOD.RA<DMOD.RA/A
*DSIGN.RA<DSIGN.RA/A
*DSIN.RA<DSIN.RA/A
*DSQRT.RA<DSQRT.RA/A
*EXP3.RA<EXP3.RA/A
*EXPCC.RA<EXPCC.RA/A
*EXPCI.RA<EXPCI.RA/A
*EXPDD.RA<EXPDD.RA/A
*EXPDI.RA<EXPDI.RA/A
*EXPDR.RA<EXPDR.RA/A
*EXPIC.RA<EXPIC.RA/A
*EXPID2.RA<EXPID2.RA/A
*EXPID.RA<EXPID.RA/A
*EXPII.RA<EXPII.RA/A
*EXPIR.RA<EXPIR.RA/A
*EXP.RA<EXP.RA/A
*FLOAT.RA<FLOAT.RA/A
*IDINT.RA<IDINT.RA/A
*IFIX.RA<IFIX.RA/A
*LTR.RA<LTR.RA/A
*ONQIB.RA<ONQIB.RA/A
*PAUSE.RA<PAUSE.RA/A
*PLOT.RA<PLOT.RA/A
*REAL.RA<REAL.RA/A
*REALTM.RA<REALTM.RA/A
*RFCV.RA<RFCV.RA/A
*RFDV.RA<RFDV.RA/A
*RSW.RA<RSW.RA/A
*SIGN.RA<SIGN.RA/A
*SIND.RA<SIND.RA/A
*SINH.RA<SINH.RA/A
*SNGL.RA<SNGL.RA/A
*SQRT.RA<SQRT.RA/A
*TAND.RA<TAND.RA/A
*TANH.RA<TANH.RA/A
*TAN.RA<TAN.RA/A
*XFIX.RA<XFIX.RA/A$
/
/ SQUISHING.
.SQUISH DSK:/O
/
/
/ *******************************************************************
/ *******************************************************************
/ *******************************************************************
/ 
/ RALF LIBRARY ASSEMBLY
/
/ *******************************************************************
/ *******************************************************************
/ *******************************************************************
/
/
.COMPILE ABS.RA
.COMPILE ACOS.RA
.COMPILE ADC.RA
.COMPILE ALOG10.RA
.COMPILE ALOG.RA
.COMPILE AMAX.RA
.COMPILE AMIN.RA
.COMPILE AMOD.RA
.COMPILE ASIN.RA
.COMPILE ATAN2.RA
.COMPILE ATAN.RA
.COMPILE CABS.RA
.COMPILE CARITH.RA
.COMPILE CEXP.RA
.COMPILE CHARS.RA
.COMPILE CHKEOF.RA
/.COMPILE CLK8A.RA
.COMPILE CLOCK.RA
.COMPILE CLOG.RA
.COMPILE CMPLX.RA
.COMPILE COSD.RA
.COMPILE COSH.RA
.COMPILE COS.RA
.COMPILE CSIN.RA
.COMPILE CSQRT.RA
.COMPILE DABS.RA
.COMPILE DATAN2.RA
.COMPILE DATAN.RA
.COMPILE DATE.RA
.COMPILE DBLE.RA
.COMPILE DCOS.RA
.COMPILE DEXP3.RA
.COMPILE DEXP.RA
.COMPILE DIM.RA
.COMPILE DLOG10.RA
.COMPILE DLOG.RA
.COMPILE DMAX1.RA
.COMPILE DMIN1.RA
.COMPILE DMOD.RA
.COMPILE DSIGN.RA
.COMPILE DSIN.RA
.COMPILE DSQRT.RA
.COMPILE EXP3.RA
.COMPILE EXPCC.RA
.COMPILE EXPCI.RA
.COMPILE EXPDD.RA
.COMPILE EXPDI.RA
.COMPILE EXPDR.RA
.COMPILE EXPIC.RA
.COMPILE EXPID2.RA
.COMPILE EXPID.RA
.COMPILE EXPII.RA
.COMPILE EXPIR.RA
.COMPILE EXP.RA
.COMPILE FLOAT.RA
.COMPILE IDINT.RA
.COMPILE IFIX.RA
.COMPILE LTR.RA
.COMPILE ONQIB.RA
.COMPILE PAUSE.RA
.COMPILE PLOT.RA
.COMPILE REAL.RA
.COMPILE REALTM.RA
.COMPILE RFCV.RA
.COMPILE RFDV.RA
.COMPILE RSW.RA
.COMPILE SIGN.RA
.COMPILE SIND.RA
.COMPILE SINH.RA
.COMPILE SIN.RA
.COMPILE SNGL.RA
.COMPILE SQRT.RA
.COMPILE TAND.RA
.COMPILE TANH.RA
.COMPILE TAN.RA
.COMPILE XFIX.RA
/
/
/ *******************************************************************
/ *******************************************************************
/ *******************************************************************
/ 
/ LIBRARY BUILD
/
/ *******************************************************************
/ *******************************************************************
/ *******************************************************************
/
/
.R LIBRA
*SYS:FORLIB.RL[20]/Z<ABS,ACOS,ADC,ALOG10/C
*<ALOG,AMAX,AMIN,AMOD/C
*<ASIN,ATAN2,ATAN,CABS/C
*<CARITH,CEXP,CHARS,CHKEOF/C
*<CLOCK,CLOG,CMPLX/C
*<COSD,COSH,COS,CSIN,CSQRT/C
*<DABS,DATAN2,DATAN,DATE/C
*<DBLE,DCOS,DEXP3,DEXP/C
*<DIM,DLOG10,DLOG,DMAX1/C
*<DMIN1,DMOD,DSIGN,DSIN/C
*<DSQRT,EXP3,EXPCC,EXPCI/C
*<EXPDD,EXPDI,EXPDR,EXPIC,EXPID2/C
*<EXPID,EXPII,EXPIR,EXP/C
*<FLOAT,IDINT,IFIX,LTR,ONQIB/C
*<PAUSE,PLOT,REAL,REALTM/C
*<RFCV,RFDV,RSW,SIGN/C
*<SIND,SINH,SNGL,SQRT/C
*<TAND,TANH,TAN,XFIX=200$
/
/
/ *******************************************************************
/ *******************************************************************
/ *******************************************************************
/ 
/ END OF JOB!
/
/ *******************************************************************
/ *******************************************************************
/ *******************************************************************
/
/ CHAIN BACK TO DSK:
.SUBMIT DSK:EXIT.BI
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