1			************* FORTRAN II SECTION PRE-SIX ********************	F6A00010
			2			FORTRAN 2 RECORD 92 - PRE-6.	F6A00011
			3				F6A00012
			4			CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL)	F6A00013
			5				F6A00014
		00030	6		ORG	24	F6A00020
	00030	0 00000 0 00000	7	PC1	HTR	0	F6A00030
	00031	0 00000 0 00000	8	PC2	HTR	0	F6A00040
	00032	0 00000 0 00000	9	PC3	HTR	0	F6A00050
	00033	0 00000 0 00000	10	PC4	HTR	0	F6A00060
	00034	0 00000 0 00000	11	PC5	HTR	0	F6A00070
	00035	0 00000 0 00000	12	PC6	HTR	0	F6A00080
	00036	0 00000 0 00000	13	SUBIN	HTR	0	F6A00090
			14			SECTION PRE 6	F6A00100
			15			TRANSFER VECTOR COMPILING	F6A00110
		00037	16		ORG	31	F6A00120
	00037	0 77200 0 00202	17	START	REW	2	F6A00130
	00040	0 77200 0 00203	18		REW	3	F6A00140
	00041	0 77200 0 00204	19		REW	4	F6A00150
	00042	0 07400 4 01406	20		TSX	APCH2,4 TO SKIP BCD FILE.	F6A00160
	00043	0 76200 0 00222	21	P1	RTB	2 ON TAPE 2.	F6A00170
	00044	0 70000 0 01355	22	CH1	CPY	ERAS1	F6A00180
	00045	0 02000 0 00044	23		TRA	CH1	F6A00190
	00046	0 02000 0 00050	24		TRA	P2 END OF FILE.	F6A00200
	00047	0 02000 0 00043	25		TRA	P1 END OF REC.	F6A00210
	00050	2 00001 2 00043	26	P2	TIX	P1,2,1	F6A00220
	00051	0 76200 0 00222	27		RTB	2 RECORD 3	F6A00230
	00052	0 77100 0 00377	28		ARS	255	F6A00240
	00053	0 77100 0 00377	29		ARS	255	F6A00250
	00054	−0 76000 0 00012	30		RTT		F6A00260
	00055	0 76100 0 00000	31		NOP		F6A00270
			32			READ TRANSFER VECTOR FROM DRUM 3	F6A00280
	00056	0 53400 2 00142	33		LXA	P16,2	F6A00290
	00057	0 76200 0 00303	34	RDRM	RDR	3	F6A00300
T	00060	−0 75400 0 00000	35	MDA	PXD		F6A00310
	00061	0 46000 0 00060	36		LDA	MDA	F6A00320
	00062	−0 70000 0 04574	37		CAD	TV−2	F6A00330
	00063	0 76000 0 00006	38		COM		F6A00340
	00064	−0 70000 0 04575	39		CAD	TV−1	F6A00350
	00065	0 76000 0 00006	40		COM		F6A00360
	00066	0 10000 0 00071	41		TZE	RDRF	F6A00370
	00067	2 00001 2 00057	42		TIX	RDRM,2,1	F6A00380
	00070	0 07400 4 00004	43		TSX	4,4	F6A00390
	00071	−0 53400 3 04574	44	RDRF	LXD	TV−2,3	F6A00400
D	00072	−3 00000 1 00110	45		TXL	SDF,1	F6A00410
	00073	0 53400 2 00142	46		LXA	P16,2	F6A00420
	00074	0 76200 0 00303	47	RDRM1	RDR	3	F6A00430
T	00075	−0 75400 0 00002	48	FDA	PXD	2	F6A00440
	00076	0 46000 0 00075	49		LDA	FDA	F6A00450
	00077	−0 70000 1 04574	50	CPY	CAD	TV−2,1	F6A00460
	00100	2 00001 1 00077	51		TIX	CPY,1,1	F6A00470
	00101	0 70000 0 01366	52		CPY	SUM	F6A00480
	00102	0 76000 0 00006	53		COM		F6A00490
	00103	−0 70000 0 01366	54		CAD	SUM	F6A00500
	00104	0 76000 0 00006	55		COM		F6A00510
	00105	0 10000 0 00110	56		TZE	SDF	F6A00520
	00106	2 00001 2 00074	57		TIX	RDRM1,2,1	F6A00530
	00107	0 07400 4 00004	58		TSX	4,4	F6A00540
	00110	0 50000 0 04574	59	SDF	CLA	TV−2 WD CT. OF TRANSFER VECTOR.	F6A00550
	00111	0 60100 0 00032	60		STO	PC3 STORE LENGTH IN PROGRAM CARD.	F6A00560
	00112	0 10000 0 00133	61		TZE	NOVC	F6A00570
	00113	0 40200 0 01342	62		SUB	C18	F6A00580
	00114	0 62200 0 00127	63		STD	P8	F6A00590
	00115	−0 53400 5 01307	64		LXD	C1,5 INITIALIZE TAPE 4 (SETXR1 AND 4=0)	F6A00600
	00116	−0 50000 4 04573	65	P9	CAL	TV−3,4 STORAGE.	F6A00610
	00117	0 60200 1 02461	66		SLW	REC−1,1 SELECT NAME AND	F6A00620
	00120	0 60200 1 02457	67		SLW	REC−3,1 COMPILE CIT.	F6A00630
	00121	0 60000 1 02456	68		STZ	REC−4,1	F6A00640
	00122	−0 50000 0 01311	69		CAL	BCD	F6A00650
	00123	0 60200 1 02460	70		SLW	REC−2,1	F6A00660
	00124	1 00004 1 00125	71		TXI	P7,1,4	F6A00670
	00125	3 00143 1 00131	72	P7	TXH	WRIT4,1,99	F6A00680
	00126	1 00001 4 00127	73	P11	TXI	P8,4,1	F6A00690
	00127	3 00127 4 00135	74	P8	TXH	P10,4,*	F6A00700
	00130	0 02000 0 00116	75		TRA	P9	F6A00710
	00131	0 07400 2 01254	76	WRIT4	TSX	SUB1,2 WRITE RECORD ON	F6A00720
	00132	0 02000 0 00126	77		TRA	P11 TAPE 4.	F6A00730
	00133	−0 53400 1 01307	78	NOVC	LXD	C1,1 SETXR1=0	F6A00740
	00134	0 02000 0 00135	79		TRA	P10	F6A00750
			80			SUBDEF COMPILING	F6A00760
	00135	0 53400 4 00142	81	P10	LXA	P16,4 SET READ ERROR COUNTER.	F6A00770
	00136	0 02000 0 00143	82		TRA	P17	F6A00780
	00137	0 76400 0 00202	83	P15	BST	2	F6A00790
	00140	2 00001 4 00143	84		TIX	P17,4,1	F6A00800
	00141	0 07400 4 00004	85		TSX	4,4	F6A00810
	00142	0 42000 0 00005	86	P16	HPR	5	F6A00820
	00143	0 76200 0 00222	87	P17	RTB	2 READ SUBDEF TABLE INTO	F6A00830
	00144	0 53400 2 01310	88		LXA	C2,2 SUB-1,-2,...	F6A00840
	00145	0 70000 2 04574	89	P18	CPY	SUB−2,2	F6A00850
	00146	1 00001 2 00145	90		TXI	P18,2,1	F6A00860
	00147	0 02000 0 01341	91		TRA	EOF2	F6A00870
	00150	0 77100 0 00377	92		ARS	255	F6A00880
	00151	0 77100 0 00377	93		ARS	255	F6A00890
	00152	−0 76000 0 00012	94		RTT		F6A00900
	00153	0 02000 0 00137	95		TRA	P15	F6A00910
	00154	0 50000 0 00032	96		CLA	PC3	F6A00920
	00155	0 77100 0 00022	97		ARS	18	F6A00930
	00156	0 60100 0 00035	98		STO	PC6	F6A00940
	00157	−0 50000 0 04574	99		CAL	SUB−2 STORE SUBDEF WORD COUNT.	F6A00950
	00160	0 60100 0 00036	100		STO	SUBIN	F6A00960
	00161	0 10000 0 01233	101		TZE	NOSUB TEST FOR SUBROUTINE.	F6A00970
	00162	−0 50000 0 04573	102	P19	CAL	SUB−3 STORE NAME OF SUBROUTINE FOR PROGRAM CARD.	F6A00980
	00163	0 60200 0 00034	103		SLW	PC5	F6A00990
	00164	0 50000 0 00035	104		CLA	PC6	F6A01000
	00165	0 40000 0 01307	105		ADD	C1	F6A01010
	00166	0 60100 0 00035	106		STO	PC6 SET RELATIVE	F6A01020
	00167	0 60000 0 01356	107		STZ	RCT COUNT T0 0.	F6A01030
	00170	−0 50000 0 01314	108		CAL	C5 COMPILE CITS.	F6A01040
	00171	0 60200 1 02461	109		SLW	REC−1,1	F6A01050
	00172	0 07400 2 01265	110		TSX	SUB2,2 COMPLETES CIT ONE.	F6A01060
	00173	0 02000 0 00175	111		TRA	P20 CIT 1	F6A01070
	00174	0 07400 2 01254	112		TSX	SUB1,2 IF VEC, WRITE OFF TAPE FOUR.	F6A01080
	00175	0 60000 1 02461	113	P20	STZ	REC−1,1 COMPILE CIT, WD1=0,	F6A01090
	00176	0 07400 2 01265	114		TSX	SUB2,2 WD 2=HTR, WD 3=0, WD 4=0.	F6A01100
	00177	0 02000 0 00201	115		TRA	P22	F6A01110
	00200	0 07400 2 01254	116		TSX	SUB1,2 IF NEC, WRITE OFF TAPE FOUR.	F6A01120
	00201	0 60000 1 02461	117	P22	STZ	REC−1,1 CIT 3	F6A01130
	00202	0 07400 2 01265	118		TSX	SUB2,2	F6A01140
	00203	0 02000 0 01415	119		TRA	NAME	F6A01150
	00204	0 07400 2 01254	120		TSX	SUB1,2	F6A01160
	00205	0 02000 0 01415	121	COMPX	TRA	NAME	F6A01170
	00206	0 07400 2 01275	122		TSX	SUB3,2 TO STORE CIT 4 IN TAPE 4 BUFFER.	F6A01180
	00207	0 02000 0 00211	123		TRA	P26	F6A01190
	00210	0 07400 2 01254	124		TSX	SUB1,2	F6A01200
	00211	−0 50000 0 01320	125	P26	CAL	C9	F6A01210
	00212	0 07400 2 01275	126		TSX	SUB3,2 TO STORE IN T-4 BUFFER PROLOGUE CIT 5	F6A01220
	00213	0 02000 0 00215	127		TRA	P28	F6A01230
	00214	0 07400 2 01254	128		TSX	SUB1,2	F6A01240
	00215	−0 50000 0 01321	129	P28	CAL	C10 TO STORE IN T-4 BUFFER PROLOGUE CIT 6.	F6A01250
	00216	0 07400 2 01275	130		TSX	SUB3,2	F6A01260
	00217	0 02000 0 00221	131		TRA	P30	F6A01270
	00220	0 07400 2 01254	132		TSX	SUB1,2	F6A01280
	00221	0 56000 0 01307	133	P30	LDQ	C1 INIT DELETE	F6A01290
	00222	−0 60000 0 01357	134		STQ	DELIN INDICATOR NOT ZERO.	F6A01300
	00223	0 50000 0 04574	135		CLA	SUB−2 COMPUTE TEST	F6A01310
	00224	0 77100 0 00022	136		ARS	18 ADDRESS FOR END	F6A01320
	00225	0 40200 0 01317	137		SUB	C8 OF ARG LIST.	F6A01330
	00226	0 60100 0 01360	138		STO	ARGCT ARGCT CONTAINS WD CT. OF SUBDEF-1.	F6A01340
	00227	0 10000 0 01243	139		TZE	F1 =0 IF NO ARGUMENTS	F6A01350
	00230	0 40000 0 01322	140		ADD	C11	F6A01360
	00231	0 62100 0 01333	141		STA	AGTST AGTST CONTAINS NO. OF ARGS-SUB+4	F6A01370
			142			FORM ARG ARRAY INDICATOR TABLE	F6A01380
	00232	−0 50000 0 01322	143	A1	CAL	C11 INIT ARG LIST,	F6A01390
	00233	0 62100 0 00306	144		STA	A10 SET ADDRESS A10=SUB-4.	F6A01400
	00234	0 53400 2 00142	145		LXA	P16,2	F6A01410
	00235	0 76200 0 00302	146	A4	RDR	2 READ SIZE TABLE WORD COUNT.	F6A01420
	00236	0 46000 0 00237	147		LDA	A2	F6A01430
T	00237	−0 75400 0 00000	148	A2	PXD	0	F6A01440
	00240	−0 70000 0 01350	149		CAD	EA1	F6A01450
	00241	0 76000 0 00006	150		COM		F6A01460
	00242	−0 70000 0 01351	151		CAD	EA2	F6A01470
	00243	0 76000 0 00006	152		COM		F6A01480
	00244	0 10000 0 00247	153		TZE	A3	F6A01490
	00245	2 00001 2 00235	154		TIX	A4,2,1	F6A01500
	00246	0 07400 4 00004	155		TSX	4,4	F6A01510
	00247	0 50000 0 01350	156	A3	CLA	EA1	F6A01520
	00250	0 77100 0 00001	157		ARS	1	F6A01530
	00251	0 60100 0 01350	158		STO	EA1 EA1 NOW CONTAINS NO. OF 2-WORD ENTRIES IN SIZE	F6A01540
			159			TABLE.	F6A01541
	00252	−0 53400 2 01307	160	A18	LXD	C1,2 SET ARRAY IND. TABLE	F6A01550
	00253	0 60000 2 05310	161	A19	STZ	ARIND,2 TO ZERO,	F6A01560
	00254	1 00001 2 00255	162		TXI	A20,2,1 TABLE	F6A01570
	00255	3 00035 2 00257	163	A20	TXH	CH4,2,29	F6A01580
	00256	0 02000 0 00253	164		TRA	A19	F6A01590
	00257	0 53400 2 01350	165	CH4	LXA	EA1,2	F6A01600
	00260	−3 00000 2 00342	166		TXL	B1,2,0 TEST FOR NO ARRAYS.	F6A01610
	00261	−0 63400 1 01352	167		SXD	IRIST,1 SAVE TAPE 4 INDEX.	F6A01620
	00262	0 53400 1 00142	168		LXA	P16,1	F6A01630
	00263	0 76200 0 00302	169	A8	RDR	2	F6A01640
	00264	0 46000 0 00265	170		LDA	A5	F6A01650
T	00265	−0 75400 0 00002	171	A5	PXD	2	F6A01660
	00266	−0 70000 2 06546	172	A6	CAD	DIM,2 READ SIZ TABLE.	F6A01670
	00267	−0 70000 0 01351	173		CAD	EA2	F6A01680
	00270	2 00001 2 00266	174		TIX	A6,2,1	F6A01690
	00271	0 70000 0 01351	175		CPY	EA2	F6A01700
	00272	0 76000 0 00006	176		COM		F6A01710
	00273	−0 70000 0 01351	177		CAD	EA2	F6A01720
	00274	0 76000 0 00006	178		COM		F6A01730
	00275	0 10000 0 00300	179		TZE	A7	F6A01740
	00276	2 00001 1 00263	180		TIX	A8,1,1	F6A01750
	00277	0 07400 4 00004	181		TSX	4,4	F6A01760
	00300	0 50000 0 01324	182	A7	CLA	C13 INIT ARIND TABLE.	F6A01770
	00301	−0 53400 1 01352	183		LXD	IRIST,1	F6A01780
	00302	0 60100 0 01351	184		STO	EA2	F6A01790
	00303	0 50000 0 01323	185		CLA	C12	F6A01800
	00304	0 62100 0 00316	186		STA	A14	F6A01810
	00305	0 53400 2 01350	187	A9	LXA	EA1,2	F6A01820
	00306	0 50000 0 04572	188	A10	CLA	SUB−4 SELECT ARG.	F6A01830
	00307	0 34000 2 06546	189		CAS	DIM,2 IS ARGUMENT AN ARRAY.	F6A01840
	00310	0 02000 0 00312	190		TRA	A11	F6A01850
	00311	0 02000 0 00315	191		TRA	A13 YES	F6A01860
	00312	2 00001 2 00306	192	A11	TIX	A10,2,1	F6A01870
	00313	0 50000 0 01334	193	A12	CLA	ZERO ARG IS NOT ARRAY. SET BIT TO ZERO	F6A01880
	00314	0 02000 0 00316	194		TRA	A14	F6A01890
	00315	0 50000 0 01325	195	A13	CLA	C14 ARG IS ARRAY, SET BIT TO BE 1.	F6A01900
	00316	−0 60200 0 05310	196	A14	ORS	ARIND STORE INSTORE INDICATOR	F6A01910
	00317	0 50000 0 01325	197		CLA	C14	F6A01920
	00320	0 77100 0 00001	198	A17	ARS	1	F6A01930
	00321	0 60100 0 01325	199		STO	C14	F6A01940
	00322	−0 50000 0 01351	200		CAL	EA2 MODIFY ARIND COUNT.	F6A01950
	00323	0 40200 0 01317	201		SUB	C8	F6A01960
	00324	0 60100 0 01351	202		STO	EA2	F6A01970
	00325	0 10000 0 00334	203		TZE	A15 WORD FULL TEST.	F6A01980
	00326	0 50000 0 00306	204	A16	CLA	A10 MODIFY ARG	F6A01990
	00327	0 40200 0 01317	205		SUB	C8 LIST ADDRESS.	F6A02000
	00330	0 62100 0 00306	206		STA	A10	F6A02010
	00331	0 40200 0 01333	207		SUB	AGTST	F6A02020
	00332	0 10000 0 00342	208		TZE	B1 NO MORE ARGUMENTS.	F6A02030
	00333	0 02000 0 00305	209		TRA	A9	F6A02040
	00334	0 50000 0 01324	210	A15	CLA	C13	F6A02050
	00335	0 60100 0 01351	211		STO	EA2	F6A02060
	00336	0 50000 0 00316	212		CLA	A14	F6A02070
	00337	0 40000 0 01317	213		ADD	C8	F6A02080
	00340	0 62100 0 00316	214		STA	A14	F6A02090
	00341	0 02000 0 01432	215		TRA	APCH3+1	F6A02100
	00342	−0 63400 1 01352	216	B1	SXD	IRIST,1 SAVE TAPE 4 INDEX	F6A02110
			217			FORM OP TABLES FROM SEARCHING CIT	F6A02120
	00343	0 60000 0 01361	218		STZ	TP2CT SET TAPE 2 RECORD COUNT TO ZERO,	F6A02130
	00344	0 76200 0 00222	219	B3	RTB	2 READY TAPE 2.	F6A02140
	00345	0 70000 0 01351	220	CH2	CPY	EA2	F6A02150
	00346	0 02000 0 00345	221		TRA	CH2	F6A02160
	00347	0 02000 0 00351	222		TRA	B2 E0F	F6A02170
	00350	0 02000 0 00344	223		TRA	B3 EOR	F6A02180
	00351	−0 53400 1 01307	224	B2	LXD	C1,1 INIT OP BLOCK. SET XR1=0	F6A02190
	00352	0 53400 4 00357	225	B8	LXA	B5,4 READ TAPE 3	F6A02200
	00353	0 02000 0 00360	226		TRA	B6	F6A02210
	00354	0 76400 0 00203	227	B4	BST	3	F6A02220
	00355	2 00001 4 00360	228		TIX	B6,4,1	F6A02230
	00356	0 07400 4 00004	229		TSX	4,4	F6A02240
	00357	0 42000 0 00005	230	B5	HPR	5	F6A02250
	00360	0 76200 0 00223	231	B6	RTB	3 SELECT CIT TAPE.	F6A02260
	00361	0 53400 2 01310	232		LXA	C2,2 SETXR2=-1	F6A02270
	00362	0 70000 2 02624	233	B7	CPY	CIT−2,2 COPY A RECORD OF CIT TAPE INTO CIT-1,-2,	F6A02280
	00363	1 00001 2 00362	234		TXI	B7,2,1	F6A02290
	00364	0 02000 0 00517	235		TRA	B28 END OF FILE	F6A02300
	00365	0 77100 0 00377	236		ARS	255 END OF RECORD	F6A02310
	00366	0 77100 0 00377	237		ARS	255	F6A02320
	00367	−0 76000 0 00012	238		RTT		F6A02330
	00370	0 02000 0 00354	239		TRA	B4	F6A02340
	00371	−0 63400 2 00515	240		SXD	B27,2 SAVE TAPE 3 RECORD LENGTH(-2)	F6A02350
	00372	−0 53400 4 01307	241		LXD	C1,4 INIT TAPE 3 BLOCK.	F6A02360
	00373	0 50000 0 01356	242		CLA	RCT	F6A02370
	00374	−0 10000 0 00377	243		TNZ	B9 TRANSFER IF RELATIVE COUNT NOT ZERO.	F6A02380
	00375	−0 50000 0 02625	244		CAL	CIT−1 STORE INITIAL	F6A02390
	00376	0 60200 0 01353	245		SLW	SLINT SYM LOCATION.	F6A02400
	00377	0 50000 0 01357	246	B9	CLA	DELIN IS DELINO ZERO.	F6A02410
	00400	0 10000 0 00414	247		TZE	B11 TRANSFER IF YES.	F6A02420
	00401	−0 50000 4 02624	248		CAL	CIT−2,4 SELECT CIT. IS OP QPR.	F6A02430
	00402	0 77100 0 00022	249		ARS	18	F6A02440
	00403	0 34000 0 01332	250		CAS	QPR	F6A02450
	00404	0 02000 0 00425	251		TRA	B12	F6A02460
	00405	0 02000 0 00407	252		TRA	B10 EQUAL. OP IS QPR.	F6A02470
	00406	0 02000 0 00425	253		TRA	B12 NOT EQUAL	F6A02480
	00407	0 60000 0 01357	254	B10	STZ	DELIN QPR OP. SET DELETE INDICATOR TO ZERO.	F6A02490
	00410	0 50000 0 01356	255	B16	CLA	RCT	F6A02500
	00411	0 40000 0 01317	256		ADD	C8 INCREMENT RCT BY 1,	F6A02510
	00412	0 60100 0 01356	257		STO	RCT AND GO MODIFY TAPE THREE INDEX.	F6A02520
	00413	0 02000 0 00514	258		TRA	B26	F6A02530
	00414	0 50000 0 01317	259	B11	CLA	C8 SET DELETE INDIC. EQUAL ONE	F6A02540
	00415	0 60100 0 01357	260		STO	DELIN AND GO MODIFY TAPE 3 IN0EX.	F6A02550
	00416	0 02000 0 00514	261		TRA	B26	F6A02560
	00417	0 50000 4 02622	262	EXT21	CLA	CIT−4,4	F6A02570
	00420	0 77100 0 00022	263		ARS	18	F6A02580
	00421	0 40000 0 01356	264		ADD	RCT	F6A02590
	00422	0 60100 0 01356	265		STO	RCT	F6A02600
	00423	0 02000 0 00514	266		TRA	B26	F6A02610
	00424	000000226262	267	BSS	BCD	1000BSS	F6A02620
	00425	0 34000 0 00424	268	B12	CAS	BSS OP NOT QPR. TEST FOR BSS OP.	F6A02630
	00426	0 02000 0 00430	269		TRA	EXT20	F6A02640
	00427	0 02000 0 00417	270		TRA	EXT21 OP EQUAL BSS.	F6A02650
	00430	0 02000 0 01370	271	EXT20	TRA	APCH1 OP NOT QPR NOR BSS.	F6A02660
	00431	0 62100 0 00432	272		STA	B13 INITIALIZE ARGUMENT LIST ADDRESS.	F6A02670
	00432	0 50000 0 04572	273	B13	CLA	SUB−4 SEARCH ARG LIST	F6A02680
	00433	0 34000 4 02623	274		CAS	CIT−3,4 FOR EQUAL SYMBOLIC	F6A02690
	00434	0 02000 0 00436	275		TRA	B15 ADDRESS.	F6A02700
	00435	0 02000 0 00444	276		TRA	B14 EQUAL, GO TO B14 TO COMPILE OP TABLE ENTRY.	F6A02710
	00436	0 50000 0 00432	277	B15	CLA	B13 SYMBOLIC ADDRESS NOT AN ARGUMENT. UPDATE	F6A02720
	00437	0 40200 0 01317	278		SUB	C8 ARGUMENT COUNTER.	F6A02730
	00440	0 62100 0 00432	279		STA	B13	F6A02740
	00441	0 40200 0 01333	280		SUB	AGTST TEST FOR ALL ARGUMENTS TREATED.	F6A02750
	00442	0 10000 0 00410	281		TZE	B16 NO MORE ARGUMENTS. TRANSFER.	F6A02760
	00443	0 02000 0 00432	282		TRA	B13 GO CHECK AGAINST NEXT ARGUMENT.	F6A02770
	00444	0 50200 0 01322	283	B14	CLS	C11 EQUAL, MUST COMPILE OP TABLE ENTRY.	F6A02780
	00445	0 40200 0 00432	284		SUB	B13	F6A02790
	00446	0 40000 0 01317	285		ADD	C8	F6A02800
	00447	0 60100 0 01354	286		STO	ARGNO COMPUTE ADDRESS	F6A02810
	00450	0 40200 0 01317	287		SUB	C8 COMPUTE ADDRESS	F6A02820
	00451	0 76500 0 00043	288		LRS	35 OF BIT IN ARIND	F6A02830
	00452	0 22000 0 01324	289		DVH	C13 TABLE.	F6A02840
	00453	−0 60000 0 01355	290		STQ	ERAS1	F6A02850
	00454	0 62100 0 00461	291		STA	B18	F6A02860
	00455	0 50000 0 01323	292		CLA	C12	F6A02870
	00456	0 40200 0 01355	293		SUB	ERAS1	F6A02880
	00457	0 62100 0 00460	294		STA	B17	F6A02890
	00460	0 56000 0 00460	295	B17	LDQ	* TEST FOR ARRAY.	F6A02900
	00461	0 76300 0 00461	296	B18	LLS	*	F6A02910
T	00462	−0 75400 0 00000	297		PXD		F6A02920
	00463	0 76300 0 00001	298		LLS	1	F6A02930
	00464	0 10000 0 00470	299		TZE	B19 NOT ARRAY.	F6A02940
	00465	0 50000 4 02622	300		CLA	CIT−4,4 ARG IS ARRAY, SO STORE RELATIVE ADDRESS OF	F6A02950
	00466	0 60100 1 06544	301		STO	OP−2,1 CIT AS WORD 2 OF OP TABLE ENTRY.	F6A02960
	00467	0 02000 0 00471	302		TRA	B20	F6A02970
	00470	0 60000 1 06544	303	B19	STZ	OP−2,1 ARG IS NOT ARRAY. SET WORD 2 OF OP ENTRY=0.	F6A02980
	00471	0 50000 0 01354	304	B20	CLA	ARGNO ASSEMBLE WORD ONE OF OP TABLE ENTRY.	F6A02990
	00472	0 76700 0 00022	305		ALS	18	F6A03000
	00473	0 40000 0 01356	306		ADD	RCT	F6A03010
	00474	0 60100 1 06545	307		STO	OP−1,1	F6A03020
	00475	1 00002 1 00476	308		TXI	B21,1,2 MODIFY TAPE 2	F6A03030
	00476	3 00441 1 00500	309	B21	TXH	B22,1,289 BLOCK.	F6A03040
	00477	0 02000 0 00410	310		TRA	B16	F6A03050
	00500	0 76600 0 00222	311	B22	WTB	2 WRITE OFF	F6A03060
	00501	−0 53400 1 01307	312		LXD	C1,1 TAPE 2.	F6A03070
	00502	0 70000 1 06545	313	B25	CPY	OP−1,1	F6A03080
	00503	1 00001 1 00504	314		TXI	B23,1,1	F6A03090
	00504	3 00441 1 00506	315	B23	TXH	B24,1,289	F6A03100
	00505	0 02000 0 00502	316		TRA	B25	F6A03110
	00506	−0 53400 1 01307	317	B24	LXD	C1,1 SET XR1 EQUAL ZERO	F6A03120
	00507	0 50000 0 01361	318		CLA	TP2CT UPDATE TAPE TWO RECORD COUNT.	F6A03130
	00510	0 40000 0 01317	319		ADD	C8	F6A03140
	00511	0 60100 0 01361	320		STO	TP2CT	F6A03150
	00512	0 76600 0 00333	321		IOD		F6A03160
	00513	0 02000 0 00410	322		TRA	B16	F6A03170
	00514	1 00004 4 00515	323	B26	TXI	B27,4,4 MODIFY TAPE 3 BLOCK TO SELECT NEXT CIT (FROM	F6A03180
			324			TAPE 3).	F6A03181
	00515	3 00515 4 00352	325	B27	TXH	B8,4,* TEST END OF TAPE 3 BLOCK.	F6A03190
	00516	0 02000 0 00377	326		TRA	B9	F6A03200
	00517	0 77200 0 00203	327	B28	REW	3 EOF TAPE 3. REWIND TAPE 3.	F6A03210
	00520	3 00000 1 00522	328		TXH	B29,1,0 ANY OP ENTRIES TO BE WRITTEN ON T-2.	F6A03220
	00521	0 02000 0 00531	329		TRA	B34 NO.	F6A03230
	00522	−0 63400 1 00527	330	B29	SXD	B31,1 YES, SAVE COUNT OF WORDS TO BE WRITTEN.	F6A03240
	00523	0 76600 0 00222	331		WTB	2	F6A03250
	00524	−0 53400 1 01320	332		LXD	C9,1 WRITE OFF ON	F6A03260
	00525	0 70000 1 06546	333	B30	CPY	OP,1 TAPE 2.	F6A03270
	00526	1 00001 1 00527	334		TXI	B31,1,1 NECESSARY	F6A03280
	00527	3 00527 1 00534	335	B31	TXH	B35,1,*	F6A03290
	00530	0 02000 0 00525	336		TRA	B30	F6A03300
	00531	0 50000 0 01361	337	B34	CLA	TP2CT IS RECORD COUNT ZERO.	F6A03310
	00532	−0 10000 0 00540	338		TNZ	B36 NO. OKAY 50 TRANSFER TO READ TARE TWO.	F6A03320
	00533	0 07400 4 00004	339		TSX	4,4 YES, ERROR.	F6A03330
	00534	0 50000 0 01361	340	B35	CLA	TP2CT	F6A03340
	00535	0 76600 0 00333	341		IOD	UPDATE TAPE TWO RECORD COUNT.	F6A03350
	00536	0 40000 0 01317	342		ADD	C8	F6A03360
	00537	0 60100 0 01361	343		STO	TP2CT	F6A03370
	00540	0 77000 0 00202	344	B36	WEF	2 WEF TAPE 2.	F6A03380
	00541	0 76400 0 00202	345		BST	2	F6A03390
	00542	0 53400 1 01361	346		LXA	TP2CT,1 BACK SPACE TO	F6A03400
	00543	0 76400 0 00202	347	B37	BST	2 BEGIN OF FILE.	F6A03410
	00544	2 00001 1 00543	348		TIX	B37,1,1	F6A03420
	00545	0 77100 0 00377	349		ARS	255	F6A03430
	00546	0 77100 0 00377	350		ARS	255	F6A03440
	00547	−0 76000 0 00012	351		RTT		F6A03450
	00550	0 76100 0 00000	352		NOP		F6A03460
	00551	−0 53400 1 01352	353		LXD	IRIST,1	F6A03470
	00552	0 60000 0 01356	354		STZ	RCT SET RELATIVE COUNT TO ZERO.	F6A03480
	00553	0 50000 0 01326	355		CLA	C15	F6A03490
	00554	0 60100 0 01357	356		STO	DELIN SET DELETE INDICATOR TO NOT-ZERO.	F6A03500
	00555	−0 53400 2 01334	357	REA02	LXD	ZERO,2	F6A03510
	00556	0 53400 4 00563	358	D5	LXA	D1,4 SET READ-ERROR COUNTER.	F6A03520
	00557	0 02000 0 00564	359		TRA	D2	F6A03530
	00560	0 76400 0 00202	360	D3	BST	2 REA0 TAPE 2 FILE 6	F6A03540
	00561	2 00001 4 00564	361		TIX	D2,4,1 INTO STORAGE.	F6A03550
	00562	0 07400 4 00004	362		TSX	4,4	F6A03560
	00563	0 42000 0 00005	363	D1	HPR	5	F6A03570
	00564	0 76200 0 00222	364	D2	RTB	2	F6A03580
	00565	0 76100 0 00000	365		NOP		F6A03590
	00566	0 70000 2 06545	366	D4	CPY	OP−1,2	F6A03600
	00567	1 00001 2 00566	367		TXI	D4,2,1	F6A03610
	00570	0 02000 0 00576	368		TRA	D89 E.O.F.	F6A03620
	00571	0 77100 0 00377	369		ARS	255	F6A03630
	00572	0 77100 0 00377	370		ARS	255	F6A03640
	00573	−0 76000 0 00012	371		RTT		F6A03650
	00574	0 02000 0 00560	372		TRA	D3	F6A03660
	00575	0 02000 0 00556	373		TRA	D5	F6A03670
	00576	0 60000 0 01350	374	D89	STZ	EA1	F6A03680
	00577	−0 63400 2 01350	375		SXD	EA1,2	F6A03690
	00600	0 76100 0 00000	376		NOP		F6A03700
	00601	0 50000 0 01350	377	D30	CLA	EA1 TEST WD COUNT OF OP TABLE.	F6A03710
	00602	0 40200 0 01345	378		SUB	C21	F6A03720
	00603	−0 12000 0 00605	379		TMI	D6	F6A03730
	00604	0 07400 4 00004	380		TSX	4,4 MORE THAN 2000 WORDS IS ERROR.	F6A03740
	00605	0 77200 0 00202	381	D6	REW	2 REWIND TAPE 2.	F6A03750
	00606	0 60000 0 01363	382		STZ	CONCT SET CONCT EQUAL ZERO	F6A03760
	00607	0 50000 0 01317	383		CLA	C8 INIT. ARG. NUMBER TO ONE.	F6A03770
	00610	0 60100 0 01354	384		STO	ARGNO	F6A03780
	00611	0 50000 0 01350	385		CLA	EA1	F6A03790
	00612	0 40200 0 01342	386		SUB	C18 SUBTRACT ONE (IN DECREMENT)	F6A03800
	00613	0 62200 0 00636	387		STD	D14 SET END OF 0P BLOCK TEST. (EA1-1)	F6A03810
	00614	0 60000 1 02461	388	D7	STZ	REC−1,1 COMPILE CLA N,4	F6A03820
	00615	−0 50000 0 01327	389		CAL	C16 WHERE N IS THE ARGUMENT NUMBER.	F6A03830
	00616	0 60200 1 02460	390		SLW	REC−2,1 SL=0	F6A03840
	00617	0 50000 0 01354	391		CLA	ARGNO OP=CLA	F6A03850
	00620	0 76700 0 00022	392		ALS	18 SA=0	F6A03860
	00621	0 40000 0 01307	393		ADD	C1 RA=N,4	F6A03870
	00622	0 60100 1 02456	394		STO	REC−4,1	F6A03880
	00623	0 60000 1 02457	395		STZ	REC−3,1	F6A03890
	00624	1 00004 1 00625	396		TXI	D8,1,4	F6A03900
	00625	3 00143 1 00647	397	D8	TXH	D9,1,99 TEST CIT BLOCK FULL. IF YES, GO WRITE OFF.	F6A03910
	00626	0 60000 0 01362	398	D10	STZ	DELTA SET DELTA ZERO.	F6A03920
	00627	−0 53400 2 01307	399		LXD	C1,2 INIT. IR2 TO ZERO.	F6A03930
	00630	0 50000 2 06545	400	D11	CLA	OP−1,2 SELECT OP TABLE ENTRY.	F6A03940
	00631	0 77100 0 00022	401		ARS	18	F6A03950
	00632	0 34000 0 01354	402		CAS	ARGNO COMPARE IT WITH ARG NO.	F6A03960
	00633	0 02000 0 00635	403		TRA	D12	F6A03970
	00634	0 02000 0 00651	404		TRA	D13 EQUAL ARGUMENT, GO COMPILE STORE.	F6A03980
	00635	1 00002 2 00636	405	D12	TXI	D14,2,2 UPDATE OP TABLE COUNTER.	F6A03990
	00636	3 00636 2 00640	406	D14	TXH	D15,2,* TEST FOR END OF OP TABLE.	F6A04000
	00637	0 02000 0 00630	407		TRA	D11	F6A04010
	00640	0 50000 0 01354	408	D15	CLA	ARGNO MODIFY ARG NUMBER (INCREASE IT BY ONE).	F6A04020
	00641	0 40000 0 01317	409		ADD	C8	F6A04030
	00642	0 60100 0 01354	410		STO	ARGNO	F6A04040
	00643	0 40200 0 01360	411		SUB	ARGCT TEST END OF ARG. NUMBERS.	F6A04050
	00644	−0 12000 0 00614	412		TMI	D7 NO.	F6A04060
	00645	0 10000 0 00614	413		TZE	D7 NO.	F6A04070
	00646	0 02000 0 00761	414		TRA	E1 FINISHED.	F6A04080
	00647	0 07400 2 01254	415	D9	TSX	SUB1,2 WRITE OFF ON	F6A04090
	00650	0 02000 0 00626	416		TRA	D10 TAPE 4.	F6A04100
	00651	0 50000 2 06544	417	D13	CLA	OP−2,2 COMPILE STORE.	F6A04110
	00652	0 77100 0 00022	418		ARS	18	F6A04120
	00653	0 60100 0 01364	419		STO	DELDD COMPUTE GAMMA WHICH IS THE AMOUNT NECESSARY TO	F6A04130
	00654	0 40200 0 01362	420		SUB	DELTA ADD T0 GET EFFECTIVE ADDRESS FOR STA.	F6A04140
	00655	0 60100 0 01365	421		STO	GAMMA	F6A04150
	00656	0 56000 0 01364	422		LDQ	DELDD	F6A04160
	00657	−0 60000 0 01362	423		STQ	DELTA	F6A04170
	00660	0 50000 0 01365	424		CLA	GAMMA IS INCREMENT ZERO.	F6A04180
	00661	0 10000 0 00722	425		TZE	D25 YES	F6A04190
	00662	0 50000 0 01363	426		CLA	CONCT NO. TEST FOR ANY INCREMENT TABLE.	F6A04200
	00663	0 10000 0 00677	427		TZE	CH6 NO INCREMENT TABLE.	F6A04210
	00664	0 40000 0 01330	428		ADD	C17 YES, THERE IS AN INCREMENT TABLE.	F6A04220
	00665	0 40200 0 01317	429		SUB	C8 SET ADDRESS OF D17=LOCATION OF	F6A04230
	00666	0 62100 0 00667	430		STA	D17 LAST GAMMA STORED.	F6A04240
	00667	0 50000 0 06546	431	D17	CLA	HTAB IS LAST GAMMA	F6A04250
	00670	0 40200 0 01365	432		SUB	GAMMA EQUAL CURRENT GAMMA.	F6A04260
	00671	0 10000 0 00743	433		TZE	EX1 YES, ADDEND ALREADY IN TABLE	F6A04270
	00672	0 50000 0 00667	434		CLA	D17 NO,	F6A04280
	00673	0 40200 0 01317	435		SUB	C8 MODIFY ADDRESS IN HTAB.	F6A04290
	00674	0 62100 0 00667	436		STA	D17	F6A04300
	00675	0 40200 0 01330	437		SUB	C17 ANY MORE ENTRIES IN HTAB.	F6A04310
	00676	0 12000 0 00667	438		TPL	D17 YES.	F6A04320
	00677	0 50000 0 01330	439	CH6	CLA	C17 NOT IN TABLE.	F6A04330
	00700	0 40000 0 01363	440		ADD	CONCT	F6A04340
	00701	0 62100 0 00703	441		STA	D18	F6A04350
	00702	0 50000 0 01365	442		CLA	GAMMA	F6A04360
	00703	0 60100 0 00703	443	D18	STO	* SET BY CH6 TO HTAB+CONCT. STORE GAMMA.	F6A04370
	00704	0 50000 0 01363	444		CLA	CONCT UP CONCOUNT BY ONE.	F6A04380
	00705	0 40000 0 01317	445		ADD	C8	F6A04390
	00706	0 60100 0 01363	446		STO	CONCT	F6A04400
	00707	0 60000 1 02461	447	D19	STZ	REC−1,1 COMPILE ADD.	F6A04410
	00710	−0 50000 0 01331	448		CAL	ADD ADD	F6A04420
	00711	0 60200 1 02460	449		SLW	REC−2,1	F6A04430
	00712	−0 50000 0 01335	450		CAL	TABCT	F6A04440
	00713	0 60200 1 02457	451		SLW	REC−3,1 SA=9(	F6A04450
	00714	0 50000 0 01363	452		CLA	CONCT	F6A04460
	00715	0 40200 0 01317	453		SUB	C8	F6A04470
	00716	0 76700 0 00022	454		ALS	18 RELATIVE LOCATION OF HTAB CONSTANT.	F6A04480
	00717	0 60100 1 02456	455		STO	REC−4,1	F6A04490
	00720	1 00004 1 00721	456		TXI	D16,1,4 MODIFY TAPE 4 BLOCK.	F6A04500
	00721	3 00143 1 00737	457	D16	TXH	D20,1,99 TEST TAPE 4 BLOCK FULL.	F6A04510
	00722	0 60000 1 02461	458	D25	STZ	REC−1,1 COMPILE STA, ONE SUCH CIT FOR EACH TIME ARG.	F6A04520
	00723	−0 50000 0 01337	459		CAL	STA APPEARS IN OP TABLE.	F6A04530
	00724	0 60200 1 02460	460		SLW	REC−2,1	F6A04540
	00725	−0 50000 0 01353	461		CAL	SLINT TEST INITIAL SYMBOLIC LOCATION.	F6A04550
	00726	−0 10000 0 00730	462		TNZ	D21 TRANSFER IF NOT ZERO.	F6A04560
	00727	−0 50000 0 01313	463		CAL	C4 ZERO. SET SA EQUAL TO $$000.	F6A04570
	00730	0 60200 1 02457	464	D21	SLW	REC−3,1	F6A04580
	00731	0 56000 2 06545	465		LDQ	OP−1,2	F6A04590
	00732	0 76300 0 00022	466		LLS	18	F6A04600
	00733	−0 60000 1 02456	467		STQ	REC−4,1	F6A04610
	00734	1 00004 1 00735	468		TXI	D22,1,4	F6A04620
	00735	3 00143 1 00755	469	D22	TXH	D23,1,99 TEST TAPE 4 BLOCK FULL.	F6A04630
	00736	0 02000 0 00635	470	D24	TRA	D12 NO.	F6A04640
	00737	−0 63400 2 01352	471	D20	SXD	IRIST,2	F6A04650
	00740	0 07400 2 01254	472		TSX	SUB1,2 GO WRITE A CIT RECORD ON TAPE 4.	F6A04660
	00741	−0 53400 2 01352	473		LXD	IRIST,2	F6A04670
	00742	0 02000 0 00722	474		TRA	D25	F6A04680
	00743	0 50000 0 00667	475	EX1	CLA	D17 ADDEND ALREADY IN TABLE	F6A04690
	00744	0 40200 0 01330	476		SUB	C17	F6A04700
	00745	0 76700 0 00022	477		ALS	18	F6A04710
	00746	0 60100 1 02456	478		STO	REC−4,1	F6A04720
	00747	0 60000 1 02461	479		STZ	REC−1,1	F6A04730
	00750	−0 50000 0 01331	480		CAL	ADD	F6A04740
	00751	0 60200 1 02460	481		SLW	REC−2,1	F6A04750
	00752	−0 50000 0 01335	482		CAL	TABCT	F6A04760
	00753	0 60200 1 02457	483		SLW	REC−3,1	F6A04770
	00754	1 00004 1 00721	484		TXI	D16,1,4	F6A04780
	00755	−0 63400 2 01352	485	D23	SXD	IRIST,2	F6A04790
	00756	0 07400 2 01254	486		TSX	SUB1,2	F6A04800
	00757	−0 53400 2 01352	487		LXD	IRIST,2	F6A04810
	00760	0 02000 0 00635	488		TRA	D12	F6A04820
	00761	0 53400 2 00766	489	E1	LXA	E3,2 READ TAPE 3	F6A04830
	00762	0 02000 0 00767	490		TRA	E4	F6A04840
	00763	0 76400 0 00203	491	E2	BST	3	F6A04850
	00764	2 00001 2 00767	492		TIX	E4,2,1 SET READ ERROR COUNTER.	F6A04860
	00765	0 07400 4 00004	493		TSX	4,4	F6A04870
	00766	0 42000 0 00005	494	E3	HPR	5	F6A04880
	00767	0 76200 0 00223	495	E4	RTB	3 READ A RECORD FROM TAPE 3.	F6A04890
	00770	0 53400 4 01310	496		LXA	C2,4 SET COUNTER TO -1, TO READ INTO	F6A04900
	00771	0 70000 4 02624	497	E5	CPY	CIT−2,4 CIT-1,-2,---	F6A04910
	00772	1 00001 4 00771	498		TXI	E5,4,1	F6A04920
	00773	0 02000 0 01061	499		TRA	E14 EOF.	F6A04930
	00774	0 77100 0 00377	500		ARS	255	F6A04940
	00775	0 77100 0 00377	501		ARS	255	F6A04950
	00776	−0 76000 0 00012	502		RTT		F6A04960
	00777	0 02000 0 00763	503		TRA	E2	F6A04970
	01000	−0 63400 4 01041	504		SXD	E8,4	F6A04980
	01001	−0 53400 4 01307	505		LXD	C1,4	F6A04990
	01002	0 50000 0 01360	506		CLA	ARGCT TEST ARGUMENT COUNT FOR ZERO.	F6A05000
	01003	0 10000 0 01012	507		TZE	E6 YES, TRANSFER.	F6A05010
	01004	0 50000 0 01356	508		CLA	RCT NO, TEST RCT FOR ZERO.	F6A05020
	01005	−0 10000 0 01012	509		TNZ	E6 RCT NOT ZERO.	F6A05030
	01006	−0 50000 0 01353	510		CAL	SLINT TEST FIRST SUMBOLIC LOC.	F6A05040
	01007	−0 10000 0 01012	511		TNZ	E6 TRANSFER IF NOT ZERO.	F6A05050
	01010	−0 50000 0 01313	512		CAL	C4 $$	F6A05060
	01011	0 60200 0 02625	513		SLW	CIT−1	F6A05070
	01012	−0 50000 4 02624	514	E6	CAL	CIT−2,4	F6A05080
	01013	0 77100 0 00022	515		ARS	18 IS OP QPR.	F6A05090
	01014	0 40200 0 01332	516		SUB	QPR	F6A05100
	01015	0 10000 0 01043	517		TZE	E9 YES, TRANSFER.	F6A05110
	01016	0 40000 0 01332	518		ADD	QPR	F6A05120
	01017	0 40200 0 01053	519		SUB	QXD IS OP QXD.	F6A05130
	01020	0 10000 0 01050	520		TZE	EX3 YES, TRANSFER.	F6A05140
	01021	0 50000 0 01357	521		CLA	DELIN IS DELETE IND	F6A05150
	01022	0 10000 0 01054	522		TZE	E11 ZERO. TRANSFER IF YES.	F6A05160
	01023	−0 50000 4 02624	523		CAL	CIT−2,4 COPY CIT FROM TAPE 3 INTO	F6A05170
	01024	0 60200 1 02460	524	E10	SLW	REC−2,1 TAPE 4 BUFFER.	F6A05180
	01025	−0 50000 4 02625	525		CAL	CIT−1,4 BLOCK	F6A05190
	01026	0 60200 1 02461	526		SLW	REC−1,1	F6A05200
	01027	−0 50000 4 02623	527		CAL	CIT−3,4	F6A05210
	01030	0 60200 1 02457	528		SLW	REC−3,1	F6A05220
	01031	−0 50000 4 02622	529		CAL	CIT−4,4	F6A05230
	01032	0 60200 1 02456	530		SLW	REC−4,1	F6A05240
	01033	0 50000 0 01356	531		CLA	RCT ADD TO RCT	F6A05250
	01034	0 40000 0 01317	532		ADD	C8 UPDATE RELATIVE COUNT BY ONE.	F6A05260
	01035	0 60100 0 01356	533		STO	RCT	F6A05270
	01036	1 00004 1 01037	534		TXI	E7,1,4 MODIFY TAPE 4 BUFFER COUNTER.	F6A05280
	01037	3 00143 1 01057	535	E7	TXH	E13,1,99 TEST END OF TAPE 4 BLOCK.	F6A05290
	01040	1 00004 4 01041	536	E12	TXI	E8,4,4 NO, MODIFY TAPE 3 BLOCK COUNTER.	F6A05300
	01041	3 01041 4 00761	537	E8	TXH	E1,4,* TEST ENO OF TAPE 3 BLOCK.	F6A05310
	01042	0 02000 0 01012	538		TRA	E6 NO.	F6A05320
	01043	0 60100 0 01357	539	E9	STO	DELIN QPR. SET DELIN=0.	F6A05330
	01044	−0 50000 0 01340	540		CAL	TRA SELECT OP=TRA,	F6A05340
	01045	0 60200 1 02460	541	EX2	SLW	REC−2,1 AND RETURN TO GET REST	F6A05350
	01046	0 60000 1 02461	542		STZ	REC−1,1 OF CIT.	F6A05360
	01047	0 02000 0 01027	543		TRA	E10+3	F6A05370
	01050	−0 50000 0 01052	544	EX3	CAL	LXD OP IS QXD.	F6A05380
	01051	0 02000 0 01024	545		TRA	E10	F6A05390
	01052	436724000000	546	LXD	BCD	1LXD000	F6A05400
	01053	000000506724	547	QXD	BCD	1000QXD	F6A05410
	01054	0 50000 0 01317	548	E11	CLA	C8 DELETE INSTRUCTION. SET DELETE INDICATOR	F6A05420
	01055	0 60100 0 01357	549		STO	DELIN TO NOT ZERO, AND TRANSFER	F6A05430
	01056	0 02000 0 01040	550		TRA	E12 TO TEST TAPE 4 BLOCK FULL.	F6A05440
	01057	0 07400 2 01254	551	E13	TSX	SUB1,2 WRITE OFF ON	F6A05450
	01060	0 02000 0 01040	552		TRA	E12 TAPE 4.	F6A05460
	01061	0 50000 0 01363	553	E14	CLA	CONCT ENO OF TAPE 3.	F6A05470
	01062	0 10000 0 01113	554		TZE	E20 TRANSFER SINCE 9) TABLE NOT NEC.	F6A05480
	01063	0 50000 0 01330	555		CLA	C17 IF NECESSARY	F6A05490
	01064	0 62100 0 01072	556		STA	E17 COMPILE 9) TABLE.	F6A05500
	01065	0 60000 0 01350	557		STZ	EA1 SET EA1=0.	F6A05510
	01066	−0 50000 0 01335	558		CAL	TABCT	F6A05520
	01067	0 60200 1 02461	559		SLW	REC−1,1 SL=9)	F6A05530
	01070	−0 50000 0 01346	560	E18	CAL	OCT OP=OCT.	F6A05540
	01071	0 60200 1 02460	561		SLW	REC−2,1	F6A05550
	01072	−0 50000 0 01072	562	E17	CAL	* SA=THE NECESSARY CONSTANT.	F6A05560
	01073	0 60200 1 02457	563		SLW	REC−3,1	F6A05570
	01074	0 60000 1 02456	564		STZ	REC−4,1 RA=0	F6A05580
	01075	1 00004 1 01076	565		TXI	E15,1,4 MODIFY TAPE 4 BLOCK COUNT.	F6A05590
	01076	3 00143 1 01111	566	E15	TXH	E16,1,99 TEST END OF TAPE 4 BLOCK.	F6A05600
	01077	0 50000 0 01072	567	E19	CLA	E17 TO GET NEXT CONSTANT IN 9) TABLE.	F6A05610
	01100	0 40200 0 01317	568		SUB	C8	F6A05620
	01101	0 62100 0 01072	569		STA	E17	F6A05630
	01102	0 50000 0 01350	570		CLA	EA1 INCREASE EA1 BY ONE.	F6A05640
	01103	0 40000 0 01317	571		ADD	C8	F6A05650
	01104	0 60100 0 01350	572		STO	EA1	F6A05660
	01105	0 40200 0 01363	573		SUB	CONCT	F6A05670
	01106	0 10000 0 01113	574		TZE	E20 TRANSFER IF ALL NEC 9) TABLE CITS COMPILED.	F6A05680
	01107	0 60000 1 02461	575		STZ	REC−1,1 SET SL=0	F6A05690
	01110	0 02000 0 01070	576		TRA	E18 AND GO COMPILE REST OF CIT.	F6A05700
	01111	0 07400 2 01254	577	E16	TSX	SUB1,2	F6A05710
	01112	0 02000 0 01077	578		TRA	E19	F6A05720
	01113	0 07400 4 01406	579	E20	TSX	APCH2,4 TO SKIP BCD FILE.	F6A05730
	01114	0 76200 0 00222	580	E21	RTB	2 SKIPPING TO FILE 5.	F6A05740
	01115	0 70000 0 01355	581	CH3	CPY	ERAS1	F6A05750
	01116	0 02000 0 01115	582		TRA	CH3	F6A05760
	01117	0 02000 0 01121	583		TRA	E22 END OF FILE.	F6A05770
	01120	0 02000 0 01114	584		TRA	E21 END OF RECORD.	F6A05780
	01121	2 00001 2 01114	585	E22	TIX	E21,2,1	F6A05790
	01122	0 76200 0 00222	586		RTB	2 SKIP F1RST 3 RECORDS IN FILE FIVE.	F6A05800
	01123	0 76200 0 00222	587		RTB	2	F6A05810
	01124	0 76200 0 00222	588		RTB	2	F6A05820
	01125	0 77100 0 00377	589		ARS	255	F6A05830
	01126	0 77100 0 00377	590		ARS	255	F6A05840
	01127	−0 76000 0 00012	591		RTT		F6A05850
	01130	0 76100 0 00000	592		NOP		F6A05860
	01131	0 53400 2 01136	593		LXA	E24,2 SET READ ERROR COUNTER.	F6A05870
	01132	0 02000 0 01137	594		TRA	E25	F6A05880
	01133	0 76400 0 00202	595	E23	BST	2	F6A05890
	01134	2 00001 2 01137	596		TIX	E25,2,1	F6A05900
	01135	0 07400 4 00004	597		TSX	4,4	F6A05910
	01136	0 42000 0 00005	598	E24	HPR	5	F6A05920
	01137	0 76200 0 00222	599	E25	RTB	2 READ HOLARG TABLE	F6A05930
	01140	0 53400 4 01310	600		LXA	C2,4 INTO SUB-1,-2,---	F6A05940
	01141	0 70000 4 04574	601	E26	CPY	SUB−2,4	F6A05950
	01142	1 00001 4 01141	602		TXI	E26,4,1	F6A05960
	01143	0 02000 0 01347	603		TRA	EOF3	F6A05970
	01144	0 77100 0 00377	604		ARS	255	F6A05980
	01145	0 77100 0 00377	605		ARS	255	F6A05990
	01146	−0 76000 0 00012	606		RTT		F6A06000
	01147	0 02000 0 01133	607		TRA	E23	F6A06010
	01150	0 50000 0 04574	608	E27	CLA	SUB−2 TEST WORD COUNT OF HOLARG TABLE.	F6A06020
	01151	0 10000 0 01214	609		TZE	E33 EXIT, NO HOLARG.	F6A06030
	01152	0 40200 0 01342	610		SUB	C18	F6A06040
	01153	0 60100 0 01350	611		STO	EA1 STORE WD. COUNT-1 IN EA1	F6A06050
	01154	0 50000 0 01150	612		CLA	E27 INITIALIZE ADDRESS FOR SEARCHING HOLARG TABLE.	F6A06060
	01155	0 40200 0 01317	613		SUB	C8	F6A06070
	01156	0 62100 0 01164	614		STA	E29	F6A06080
	01157	0 60000 0 01351	615		STZ	EA2 SET EA2=0.	F6A06090
	01160	−0 50000 0 01343	616		CAL	C19 SET SL OF FIRST CIT FOR EACH HOLLERITH	F6A06100
	01161	0 60200 1 02461	617		SLW	REC−1,1 ARGUMENT=11.	F6A06110
	01162	−0 50000 0 01311	618	E28	CAL	BCD	F6A06120
	01163	0 60200 1 02460	619		SLW	REC−2,1 SET OP=BCD.	F6A06130
	01164	0 50000 0 01164	620	E29	CLA	* (SUB-3 TO START)	F6A06140
	01165	0 34000 0 01344	621		CAS	C20 TEST FOR END OF ARGUMENT.	F6A06150
	01166	0 02000 0 01170	622		TRA	LIB10 NO.	F6A06160
	01167	0 02000 0 01206	623		TRA	LIB12 TRANSFER WHEN CITS FOR A GIVEN ARGUMENT DONE.	F6A06170
	01170	0 60100 1 02457	624	LIB10	STO	REC−3,1 SA=6 CHARACTERS OF THE ARGUMENT.	F6A06180
	01171	0 60000 1 02456	625	LIB11	STZ	REC−4,1 RA=0.	F6A06190
	01172	1 00004 1 01173	626		TXI	E30,1,4 MODIFY TAPE 4 BLOCK COUNT.	F6A06200
	01173	3 00143 1 01212	627	E30	TXH	E31,1,99 TEST TAPE 4 BLOCK FULL.	F6A06210
	01174	0 50000 0 01164	628	E32	CLA	E29 MODIFY ADDRESS IN HOLARG TABLE.	F6A06220
	01175	0 40200 0 01317	629		SUB	C8	F6A06230
	01176	0 62100 0 01164	630		STA	E29	F6A06240
	01177	0 50000 0 01351	631		CLA	EA2 INCREMENT COUNT OF WORDS FROM TABLE	F6A06250
	01200	0 40000 0 01342	632		ADD	C18 TREATED BY ONE.	F6A06260
	01201	0 60100 0 01351	633		STO	EA2	F6A06270
	01202	0 40200 0 01350	634		SUB	EA1 TEST FOR END OF HOLARG TABLE.	F6A06280
	01203	0 10000 0 01244	635		TZE	E40 END.	F6A06290
	01204	0 60000 1 02461	636		STZ	REC−1,1 NO.	F6A06300
	01205	0 02000 0 01162	637		TRA	E28	F6A06310
	01206	0 60100 1 02457	638	LIB12	STO	REC−3,1 END OF ARGUMENT, COMPILE ENDING CIT	F6A06320
	01207	0 50000 0 01346	639		CLA	OCT (SA=STRING OF 1S)	F6A06330
	01210	0 60100 1 02460	640		STO	REC−2,1	F6A06340
	01211	0 02000 0 01171	641		TRA	LIB11	F6A06350
	01212	0 07400 2 01254	642	E31	TSX	SUB1,2 WRITE OFF ON TAPE 4.	F6A06360
	01213	0 02000 0 01174	643		TRA	E32	F6A06370
	01214	−3 00001 1 01225	644	E33	TXL	E35,1,1 MAY NEED TO WRITE OFF 4.	F6A06380
	01215	2 00001 1 01216	645		TIX	CH7,1,1	F6A06390
	01216	−0 63400 1 01223	646	CH7	SXD	E34,1 WRITE OFF ON	F6A06400
	01217	0 76600 0 00224	647		WTB	4 TAPE 4.	F6A06410
	01220	−0 53400 1 01307	648		LXD	C1,1	F6A06420
	01221	0 70000 1 02461	649	E36	CPY	REC−1,1	F6A06430
	01222	1 00001 1 01223	650		TXI	E34,1,1	F6A06440
	01223	3 01223 1 01225	651	E34	TXH	E35,1,*	F6A06450
	01224	0 02000 0 01221	652		TRA	E36	F6A06460
	01225	0 77000 0 00204	653	E35	WEF	4 WRITE END OF FILE ON TAPE 4.	F6A06470
	01226	0 77200 0 00204	654		REW	4 REWIND TAPES 2,3,4	F6A06480
	01227	0 77200 0 00203	655		REW	3 AND GO TO LOADER,	F6A06490
	01230	0 77200 0 00202	656		REW	2	F6A06500
	01231	0 76200 0 00221	657		RTB	1	F6A06510
	01232	0 02000 0 00004	658		TRA	4 RETURN TO LOADER	F6A06520
	01233	0 60000 0 00034	659	NOSUB	STZ	PC5 NOT A SUBROUTINE. SET NAME=0 ON PROGRAM CARD.	F6A06530
	01234	0 60000 0 01356	660		STZ	RCT SET RELATIVE COUNT=0.	F6A06540
	01235	0 50000 0 01317	661		CLA	C8	F6A06550
	01236	0 60100 0 01357	662		STO	DELIN SET DELIN TO NOT ZERO.	F6A06560
	01237	0 60000 0 01363	663		STZ	CONCT SET CONSTANT COUNT=ZERO.	F6A06570
	01240	0 77200 0 00202	664		REW	2 REWIND TAPE TWO.	F6A06580
	01241	0 60000 0 01360	665		STZ	ARGCT SET ARGUMENT COUNT=ZERO.	F6A06590
	01242	0 02000 0 00761	666		TRA	E1 GO DEAL WITH TAPE 3 CITS.	F6A06600
	01243	0 02000 0 01234	667	F1	TRA	NOSUB+1	F6A06610
	01244	0 60000 1 02461	668	E40	STZ	REC−1,1 COMPILE FINAL HOLARG CIT.	F6A06620
	01245	−0 50000 0 01346	669		CAL	OCT	F6A06630
	01246	0 60200 1 02460	670		SLW	REC−2,1	F6A06640
	01247	−0 50000 0 01344	671		CAL	C20	F6A06650
	01250	0 60200 1 02457	672		SLW	REC−3,1	F6A06660
	01251	0 60000 1 02456	673		STZ	REC−4,1	F6A06670
	01252	1 00004 1 01253	674		TXI	CH10,1,4 UPOATE T-4 BLOCK C0UNTER.	F6A06680
	01253	0 02000 0 01214	675	CH10	TRA	E33 GO TEST BLOCK FULL.	F6A06690
	01254	0 76600 0 00224	676	SUB1	WTB	4 WRITE TAPE 4,	F6A06700
	01255	−0 53400 1 01307	677		LXD	C1,1	F6A06710
	01256	0 70000 1 02461	678	SUBA	CPY	REC−1,1	F6A06720
	01257	1 00001 1 01260	679		TXI	SUBB,1,1	F6A06730
	01260	3 00143 1 01262	680	SUBB	TXH	SUBC,1,99	F6A06740
	01261	0 02000 0 01256	681		TRA	SUBA	F6A06750
	01262	0 76600 0 00333	682	SUBC	IOD		F6A06760
	01263	−0 53400 1 01307	683		LXD	C1,1	F6A06770
	01264	0 02000 2 00001	684		TRA	1,2	F6A06780
	01265	−0 50000 0 01315	685	SUB2	CAL	C6 COMPILE CITS	F6A06790
	01266	0 60200 1 02460	686		SLW	REC−2,1 OP=HTR	F6A06800
	01267	0 60000 1 02457	687		STZ	REC−3,1 SA=0	F6A06810
	01270	0 60000 1 02456	688		STZ	REC−4,1 RA=0	F6A06820
	01271	1 00004 1 01272	689		TXI	SUB2A,1,4	F6A06830
	01272	3 00143 1 01274	690	SUB2A	TXH	SUB2B,1,99 TLST TAPE 4 BLOCK FULL.	F6A06840
	01273	0 02000 2 00001	691		TRA	1,2 NO.	F6A06850
	01274	0 02000 2 00002	692	SUB2B	TRA	2,2 YES.	F6A06860
	01275	0 60200 1 02456	693	SUB3	SLW	REC−4,1 STORE CIT 4 5 6	F6A06870
	01276	−0 50000 0 01316	694		CAL	C7	F6A06880
	01277	0 60200 1 02460	695		SLW	REC−2,1 OP=SXD	F6A06890
	01300	−0 50000 0 01314	696		CAL	C5	F6A06900
	01301	0 60200 1 02457	697		SLW	REC−3,1 SA=$0000	F6A06910
	01302	0 60000 1 02461	698		STZ	REC−1,1 SL=0	F6A06920
	01303	1 00004 1 01304	699		TXI	SUB3A,1,4	F6A06930
	01304	3 00143 1 01306	700	SUB3A	TXH	SUB3B,1,99 TEST TAPE 4 BLOCK FULL.	F6A06940
	01305	0 02000 2 00001	701		TRA	1,2 NO.	F6A06950
	01306	0 02000 2 00002	702	SUB3B	TRA	2,2 YES.	F6A06960
	01307	0 00000 0 00004	703	C1	HTR	4	F6A06970
	01310	0 00000 0 77777	704	C2	HTR	−1	F6A06980
	01311	222324000000	705	BCD	BCD	1BCD000	F6A06990
	01312	0 00000 0 00003	706	C3	HTR	3	F6A07000
	01313	535360000000	707	C4	BCD	1$$␣000	F6A07010
	01314	536000000000	708	C5	BCD	1$␣0000	F6A07020
	01315	306351000000	709	C6	BCD	1HTR000	F6A07030
	01316	626724000000	710	C7	BCD	1SXD000	F6A07040
	01317	0 00000 0 00001	711	C8	HTR	1	F6A07050
	01320	+000001000002	712	C9	OCT	000001000002	F6A07060
	01321	+000002000004	713	C10	OCT	000002000004	F6A07070
	01322	−0 50000 0 04572	714	C11	CAL	SUB−4	F6A07080
	01323	0 00000 0 05310	715	C12	HTR	ARIND	F6A07090
	01324	0 00000 0 00043	716	C13	HTR	35	F6A07100
	01325	2 00000 0 00000	717	C14	TIX	0,0,0	F6A07110
	01326	0 00000 0 00005	718	C15	HTR	5	F6A07120
	01327	234321000000	719	C16	BCD	1CLA000	F6A07130
	01330	0 50000 0 06546	720	C17	CLA	HTAB	F6A07140
	01331	212424000000	721	ADD	BCD	1ADD000 INITARG	F6A07150
	01332	000000504751	722	QPR	BCD	1000QPR	F6A07160
	01333	0 50000 0 00000	723	AGTST	CLA	**	F6A07170
	01334	0 00000 0 00000	724	ZERO	HTR	0	F6A07180
	01335	110000000000	725	TABCT	BCD	1900000	F6A07190
	01336	0 07400 4 00004	726	EOF1	TSX	4,4	F6A07200
	01337	626321000000	727	STA	BCD	1STA000	F6A07210
	01340	635121000000	728	TRA	BCD	1TRA000	F6A07220
	01341	0 07400 4 00004	729	EOF2	TSX	4,4	F6A07230
	01342	+000001000000	730	C18	OCT	000001000000	F6A07240
	01343	+130000000000	731	C19	OCT	130000000000	F6A07250
	01344	−377777777777	732	C20	OCT	777777777777	F6A07260
	01345	+003720000000	733	C21	OCT	003720000000 (2000 IN DICREMENT)	F6A07270
	01346	462363000000	734	OCT	BCD	1OCT000	F6A07280
	01347	0 07400 4 00004	735	EOF3	TSX	4,4	F6A07290
	01350	0 00000 0 00000	736	EA1	HTR	0	F6A07300
	01351	0 00000 0 00000	737	EA2	HTR	0	F6A07310
	01352	0 00000 0 00000	738	IRIST	HTR	0	F6A07320
	01353	0 00000 0 00000	739	SLINT	HTR	0	F6A07330
	01354	0 00000 0 00000	740	ARGNO	HTR	0	F6A07340
	01355	0 00000 0 00000	741	ERAS1	HTR	0	F6A07350
	01356	0 00000 0 00000	742	RCT	HTR	0	F6A07360
	01357	0 00000 0 00000	743	DELIN	HTR	0	F6A07370
	01360	0 00000 0 00000	744	ARGCT	HTR	0	F6A07380
	01361	0 00000 0 00000	745	TP2CT	HTR	0	F6A07390
	01362	0 00000 0 00000	746	DELTA	HTR	0	F6A07400
	01363	0 00000 0 00000	747	CONCT	HTR	0	F6A07410
	01364	0 00000 0 00000	748	DELDD	HTR	0	F6A07420
	01365	0 00000 0 00000	749	GAMMA	HTR	0	F6A07430
	01366	0 00000 0 00000	750	SUM	HTR	0	F6A07440
		01367	751		BSS	1	F6A07441
	01370	0 34000 0 01403	752	APCH1	CAS	SYNOP	F6A07442
	01371	0 02000 0 01401	753		TRA	GOON	F6A07443
	01372	0 02000 0 00514	754		TRA	B26 OP IS SYN.	F6A07444
	01373	0 34000 0 01404	755		CAS	OCTOP	F6A07445
	01374	0 02000 0 01401	756		TRA	GOON	F6A07446
	01375	0 02000 0 00410	757		TRA	B16 OP IS OCT.	F6A07447
	01376	0 34000 0 01405	758		CAS	BCDOP	F6A07448
	01377	0 02000 0 01401	759		TRA	GOON	F6A07449
	01400	0 02000 0 00410	760		TRA	B16 OP IS BCD.	F6A07450
	01401	−0 50000 0 01322	761	GOON	CAL	C11	F6A07451
	01402	0 02000 0 00431	762		TRA	EXT20+1	F6A07452
	01403	+000000627045	763	SYNOP	OCT	000000627045	F6A07453
	01404	+000000462363	764	OCTOP	OCT	000000462363	F6A07454
	01405	+000000222324	765	BCDOP	OCT	000000222324	F6A07455
	01406	0 76200 0 00202	766	APCH2	RTD	2 SKIP A BCD F1LE.	F6A07456
	01407	0 70000 0 01355	767		CPY	ERAS1	F6A07457
	01410	0 02000 0 01407	768		TRA	*−1	F6A07458
	01411	0 02000 0 01413	769		TRA	*+2 END OF FILE	F6A07459
	01412	0 02000 0 01406	770		TRA	APCH2 END OF RECORD	F6A07460
	01413	0 53400 2 01312	771		LXA	C3,2	F6A07461
	01414	0 02000 4 00001	772		TRA	1,4 RETURN TO PROGRAM.	F6A07462
	01415	−0 50000 0 01311	773	NAME	CAL	BCD INSERT CIT 3 PRIME.	F6A07463
	01416	0 60200 1 02460	774		SLW	REC−2,1	F6A07464
	01417	−0 50000 0 00034	775		CAL	PC5 OP=BCD	F6A07465
	01420	0 60200 1 02457	776		SLW	REC−3,1 SA=NAME OF ROUTINE.	F6A07466
	01421	0 60000 1 02461	777		STZ	REC−1,1	F6A07467
	01422	0 60000 1 02456	778		STZ	REC−4,1	F6A07468
	01423	1 00004 1 01424	779		TXI	*+1,1,4	F6A07469
	01424	3 00143 1 01426	780		TXH	*+2,1,99	F6A07470
	01425	0 02000 0 01427	781		TRA	P24	F6A07471
	01426	0 07400 2 01254	782		TSX	SUB1,2	F6A07472
	01427	−0 50000 0 01317	783	P24	CAL	C8	F6A07473
	01430	0 02000 0 00206	784		TRA	COMPX+1	F6A07474
	01431	2 00000 0 00000	785	APCH3	TIX	0,0,0 REINITIALIZE C14	F6A07475
	01432	0 50000 0 01431	786		CLA	APCH3	F6A07476
	01433	0 60100 0 01325	787		STO	C14	F6A07477
	01434	0 02000 0 00326	788		TRA	A16	F6A07478
		02316	789		ORG	1230	F6A07480
		02462	790	REC	BES	100	F6A07481
		02626	791	CIT	BES	100	F6A07482
		06546	792	OP	BES	2000	F6A07483
		02626	793		ORG	1430	F6A07490
		04576	794	TV	BES	1000	F6A07500
		04576	795	SUB	SYN	TV	F6A07510
		06546	796		ORG	3430	F6A07520
		06546	797	HTAB	BSS	300	F6A07530
		06546	798	DIM	SYN	OP	F6A07540
		05252	799		ORG	2730	F6A07550
		05310	800	ARIND	BES	30	F6A07560