1			MASTER RECORD CARD = FN060
			2			THE FOLLOWING PROGRAM CONSTITUTES THE FINAL SECTION OF THE	F3B00010
			3			MERGE. IT MERGES THE FILE 0F INSTRUCTIONS PREPARED BY THE	F3B00020
			4			FIRST SECTION WITH THE FILE PREPARED BY THE SECOND SECTION.	F3B00030
			5			IN ADDITION TO MERGING THESE TWO FILES, IT INSERTS IN THEIR	F3B00040
			6			PROPER P0SITION THE INDEXING INSTRUCTIONS NECESSITATED BY THE	F3B000S0
			7			APPEARANCE 0F RELATIVE CONSTANTS.	F3B00060
		00030	8		ORG	24	F3B00070
			9			READ TSXCOM INTO HIGH SPEED STORAGE	F3B00080
	00030	0 53400 4 01202	10	M30000	LXA	M3ECTR,4 ERORR COUNT IN IR 4	F3B00090
	00031	0 76200 0 00303	11		RDS	195 SELECT DRUM 3	F3B00100
	00032	0 46000 0 01147	12		LDA	L(704) DRUM ADDRESS	F3B00110
	00033	0 70000 0 01226	13		CPY	TSXCOM−2 WORD COUNT OF TSXCOM TABLE	F3B00120
	00034	0 70000 0 01227	14		CPY	TSXCOM−1 CHECK SUM OF WORD COUNT	F3B00130
	00035	0 50000 0 01226	15		CLA	TSXCOM−2 WD. COUNT	F3B00140
	00036	0 40200 0 01227	16		SUB	TSXCOM−1 CHECK SUM	F3B00150
	00037	0 10000 0 00042	17		TZE	M30010 EQUAL	F3B00160
D	00040	2 00000 4 00031	18		TIX	M30000+1,4 NOT EQUAL, TRY 4 MORE TIMES	F3B00170
	00041	0 07400 4 00004	19		TSX	4,4 WORD COUNT NOT EQUAL TO CHECK SUM	F3B00180
	00042	0 53400 4 01202	20	M30010	LXA	M3ECTR,4 ERROR COUNT IN IR4	F3B00190
	00043	0 50000 0 01226	21		CLA	TSXCOM−2 WORD COUNT	F3B00200
	00044	0 77100 0 00022	22		ARS	18 PLACE IN ADDRESS	F3B00210
	00045	0 10000 0 00073	23		TZE	M30050 NO TSX INSTRUCTION	F3B00220
	00046	0 73400 3 00000	24		PAX	0,3 PLACE WORD COUNT IN IR 1 AND 2	F3B00230
	00047	0 40000 0 01142	25		ADD	L(1) ADD ONE TO WORD COUNT	F3B00240
	00050	0 40000 0 00061	26		ADD	M30025 INIT1AL ADDRESS	F3B00250
	00051	0 62100 0 00055	27		STA	M30020	F3B00260
	00052	0 76200 0 00303	28		RDS	195 SELECT DRUM 3	F3B00270
	00053	0 46000 0 01150	29		LDA	L(706) DRUM ADDRESS	F3B00280
	00054	1 00001 1 00055	30		TXI	M30020,1,1 INCCREMENT 8B 1	F3B00290
	00055	0 70000 1 00000	31	M30020	CPY	0,1 TSXCOM TABLE INTO STOORAGE	F3B00300
	00056	2 00001 1 00055	32		TIX	M30020,1,1 COPY LOOP	F3B00310
	00057	0 53400 1 01141	33		LXA	L(0),1	F3B00320
	00060	−0 50000 0 01141	34		CAL	L(0) ZEROS IN ACC.	F3B00330
	00061	0 36100 1 01230	35	M30025	ACL	TSXCOM,1 COMPUTE NEW CHECK SUMS AND COMPARE	F3B00340
	00062	1 77777 1 00063	36		TXI	M30025+2,1,−1 TO GIVEN CHECK SUM	F3B00350
	00063	2 00001 2 00061	37		TIX	M30025,2,1	F3B00360
	00064	−0 63400 1 01227	38		SXD	TSXCOM−1,1	F3B00370
	00065	0 60200 0 01226	39		SLW	TSXCOM−2	F3B00380
	00066	0 50000 0 01226	40		CLA	TSXCOM−2	F3B00390
	00067	0 40200 1 01230	41		SUB	TSXCOM,1	F3B00400
	00070	0 10000 0 00073	42		TZE	M30050 END. CHECK SUMS AGREE	F3B00410
	00071	2 00001 4 00043	43		TIX	M30010+1,4,1 NOT EQUAL) BACK TO TRY 4 MORE T IMES	F3B00420
	00072	0 07400 4 00004	44		TSX	4,4 READ DRUM 3 MORE TIMES	F3B00430
	00073	0 02000 0 02673	45	M30050	TRA	TSXPT1	F3B00440
			46			PROGRAM FOR PART 3 OF MERGE	F3B00450
	00074	0 07400 4 00654	47		TSX	READTF,C INITIALIZE TIFGO FILE BUFFER	F3B00460
	00075	0 07400 4 00700	48		TSX	READFF,C FIRST FILE BUFFERS	F3B00470
	00076	−0 76000 0 00142	49		MSE	98 IS TIFGO FILE USED UP	F3B00480
	00077	0 02000 0 00101	50		TRA	C4 NO	F3B00490
	00100	0 02000 0 00150	51		TRA	G1 YES, GO TO END 0F TIFGO ROUTINE	F3B00500
	00101	0 50000 0 07322	52	C4	CLA	3794 TIFGO RECORD COUNT	F3B00510
	00102	0 40000 0 01151	53		ADD	L(1D) ADD ONE TO DECREMENT	F3B00520
	00103	0 60100 0 07322	54		STO	3794 NEW TIFGO RECORD COUNT	F3B00530
	00104	0 50000 1 02362	55	C6	CLA	FFLBUF,A OBTAIN ALPHA FOR NEXT CIT IN IST FILE BUFFER	F3B00340
	00105	0 62200 0 01221	56		STD	FFLCFN	F3B00550
	00106	0 50000 2 02216	57		CLA	TFGBUF,B OBTAIN FOR NEXT CIT AND SAVE IN	F3B00560
	00107	−0 32000 0 01162	58		ANA	MASK TIFGO BUFFER	F3B00570
	00110	0 62200 0 01213	59		STD	TFGCFN	F3B00580
	00111	0 34000 0 01221	60		CAS	FFLCFN COMPARE FIRST FILE T0 TIFGO FILE	F3B00590
	00112	0 02000 0 00234	61		TRA	E1 ALPHA LESS THAN BETA	F3B00600
	00113	0 02000 0 00337	62		TRA	J1 ALPHA EQUALS BETA	F3B00610
			63			ALPHA GREATER THAN BETA	F3B00620
	00114	0 53400 4 01145	64	C5	LXA	L(4),C COMPILE THIS TIFGO FILE INSTRUCTION	F3B00630
	00115	0 50000 2 02216	65	C2	CLA	TFGBUF,B SET UP FOR WORDS	F3B00640
	00116	0 60100 4 01220	66		STO	TFGCOM+4,C	F3B00650
	00117	1 77777 2 00120	67		TXI	C1,B,−1	F3B00660
	00120	2 00001 4 00115	68	C1	TIX	C2,C,1	F3B00670
	00121	0 07400 4 01022	69		TSX	CIT00,C COMPILER	F3B00680
	00122	0 00000 0 01214	70		HTR	TFGCOM	F3B00690
	00123	0 00000 0 01215	71		HTR	TFGCOM+1	F3B00700
	00124	0 00000 0 01216	72		HTR	TFGCOM+2	F3B00710
	00125	0 00000 0 01217	73		HTR	TFGCOM+3	F3B00720
	00126	−0 75400 2 00000	74		PXD	0,B COMPARE WORD COUNT	F3B00730
	00127	0 34000 0 01212	75		CAS	TFGWC WITH BUFFER SIZE	F3B00740
	00130	0 02000 0 00137	76		TRA	C7 WORD COUNT LESS THAN BUFFER SSIZE	F3B00750
	00131	0 02000 0 00133	77		TRA	C3 WC EQUALS BS	F3B00760
	00132	0 07400 4 00004	78		TSX	4,4 WORD COUNT INCORRECT	F3B00770
	00133	0 07400 4 00654	79	C3	TSX	READTF,C READ TIFGO FILE INTO BUFFER	F3B00780
	00134	−0 76000 0 00142	80		MSE	98 IS TIFGO FILE USED UP	F3B00790
	00135	0 02000 0 00137	81		TRA	C7 NO TEST LOCATION WD OF NEXT ENTRY	F3B00800
	00136	0 02000 0 00150	82		TRA	G1 YES GO TO END OF TIFGO F1LE ROUTINE	F3B00810
	00137	0 50000 2 02216	83	C7	CLA	TFGBUF,B WORD COUNT LESS THAN BUFFER SIZE	F3B00820
	00140	−0 32000 0 01164	84		ANA	2BIT IS LOCATION WORD SPECIAL	F3B00830
	00141	−0 10000 0 00114	85		TNZ	C5 YES BACK TO COMPILE NEXT ENTRY	F3B00840
	00142	0 50000 2 02216	86		CLA	TFGBUF,B NO	F3B00850
	00143	−0 32000 0 01162	87		ANA	MASK DOES NEXT INSTRUCTION IN TIFGO FILE	F3B00860
	00144	0 34000 0 01213	88		CAS	TFGCFN BELONG TO CURRENT COMPILED BLOCK	F3B00870
	00145	0 02000 0 00104	89		TRA	C6 NO	F3B00880
	00146	0 76100 0 00000	90		NOP	YES	F3B00890
	00147	0 02000 0 00114	91		TRA	C5 YES	F3B00900
			92			END OF TIFGO FILE RDUTINE	F3B00910
	00150	−0 76000 0 00141	93	G1	MSE	97 IS FIRST FILE USED UP. TEST SWITCH	F3B00920
	00151	0 02000 0 00153	94		TRA	G2 NO	F3B00930
	00152	0 02000 0 00443	95		TRA	OUT YES GO TO TERMINAL ROUT INE	F3B00940
	00153	0 50000 1 02362	96	G2	CLA	FFLBUF,A ENTRY IN FIRST FILE BUFFER	F3B00950
	00154	0 62200 0 01221	97		STD	FFLCFN STORE INTERNAL FORMULA NO. FOR ENTRY	F3B00960
	00155	0 53400 4 01145	98	G5	LXA	L(4),C COMPILE	F3B00970
	00156	0 50000 1 02362	99	G4	CLA	FFLBUF,A FIRST	F3B00980
	00157	0 60100 4 01226	100		STO	FFLCOM+4,C FILE	F3B00990
	00160	1 77777 1 00161	101		TXI	G3,A,−1 INSTRUCTION	F3B01000
	00161	2 00001 4 00156	102	G3	TIX	G4,C,1	F3B01010
	00162	0 07400 4 01022	103		TSX	CIT00,C COMPILER	F3B01020
	00163	0 00000 0 01222	104		HTR	FFLCOM	F3B01030
	00164	0 00000 0 01223	105		HTR	FFLCOM+1	F3B01040
	00165	0 00000 0 01224	106		HTR	FFLCOM+2	F3B01050
	00166	0 00000 0 01225	107		HTR	FFLCOM+3	F3B01060
	00167	−0 75400 1 00000	108		PXD	0,A COMPARE WORD COUNT WITH BUFFER SIZE	F3B01070
	00170	0 34000 0 01220	109		CAS	FFLWC TO TEST IF FIRST FILE IS NOW EMPPTY	F3B01080
	00171	0 02000 0 00201	110		TRA	G8 WORD COUNT LES THAN BUFFER SIZE	F3B01090
	00172	0 02000 0 00174	111		TRA	G7 WC EQUALS BS	F3B01100
	00173	0 07400 4 00004	112		TSX	4,4 WORD COUNT INCORRECT	F3B01110
	00174	0 07400 4 00700	113	G7	TSX	READFF,C	F3B01120
	00175	−0 76000 0 00141	114		MSE	97 TEST IF FIRST FILE IS USED UP	F3B01130
	00176	0 02000 0 00201	115		TRA	G8 NO	F3B01140
	00177	0 07400 4 00724	116		TSX	M31000,C YES, GO TO TSX COM TABLE SEARCH	F3B01150
	00200	0 02000 0 00443	117		TRA	OUT TERMINAL ROUTINE	F3B01160
	00201	0 50000 1 02362	118	G8	CLA	FFLBUF,A TEST IF NEXT FIRST FILE ENTRY	F3B01170
	00202	0 10000 0 00155	119		TZE	G5 BELONGS TOSAME BLOCK OF INSTRUCTIQNS	F3B01180
	00203	0 07400 4 00724	120		TSX	M31000,C NO	F3B01190
	00204	0 50000 1 02362	121	G9	CLA	FFLBUF,A TEST IF NEXT FIRST FILE ALPHA	F3B01200
	00205	−0 32000 0 01162	122		ANA	MASK IS GREATER THAN PREVIOUS ONE	F3B01210
	00206	0 34000 0 01221	123		CAS	FFLCFN INTERNAL FORMULA NUMBER	F3B01220
	00207	0 02000 0 00153	124		TRA	G2 YES, BACK TO COMPILE NEXT INSTRUCTION	F3B01230
	00210	0 76100 0 00000	125		NOP		F3B01240
	00211	0 53400 4 01145	126		LXA	L(4),C NO, COMPILE THIS INSTRUCTION	F3B01230
	00212	0 50000 1 02362	127	G10	CLA	FFLBUF,A ENTRY IN FIRST FILE BUFFER, SET	F3B01260
	00213	0 60100 4 01226	128		STO	FFLCOM+4,C UP FOUR WORDS OF ENTRY	F3B01270
	00214	1 77777 1 00215	129		TXI	G11,A,−1 STEP UP IR COUNTS	F3B01280
	00215	2 00001 4 00212	130	G11	TIX	G10,C,1	F3B01290
	00216	0 07400 4 01022	131		TSX	CIT00,C COMPILER	F3B01300
	00217	0 00000 0 01222	132		HTR	FFLCOM	F3B01310
	00220	0 00000 0 01223	133		HTR	FFLCOM+1	F3B01320
	00221	0 00000 0 01224	134		HTR	FFLCOM+2	F3B01330
	00222	0 00000 0 01225	135		HTR	FFLCOM+3	F3B01340
	00223	−0 75400 1 00000	136		PXD	0,A TEST IF FIRS T FILE BUFFER	F3B01350
	00224	0 34000 0 01220	137		CAS	FFLWC IS EMPTY	F3B01360
	00225	0 02000 0 00204	138		TRA	G9 NO	F3B01370
	00226	0 02000 0 00230	139		TRA	G12 YES	F3B01380
	00227	0 07400 4 00004	140		TSX	4,4 WORD COUNT INCORRECT	F3B01390
	00230	0 07400 4 00700	141	G12	TSX	READFF,C READ IN TO REFILL BUFFER	F3B01400
	00231	−0 76000 0 00141	142		MSE	97 TEST IF AT END OF FIRST FILE	F3B01410
	00232	0 02000 0 00204	143		TRA	G9	F3B01420
	00233	0 02000 0 00443	144		TRA	OUT TERMINAL ROUTINE	F3B01430
			145			ALPHA LESS THAN BETA	F3B01440
	00234	0 53400 4 01145	146	E1	LXA	L(4),C COMPILE	F3B01450
	00235	0 50000 1 02362	147	E3	CLA	FFLBUF,A FIRST	F3B01460
	00236	0 60100 4 01226	148		STO	FFLCOM+4,C FILE	F3B01470
	00237	1 77777 1 00240	149		TXI	E2,A,−1 INSTRUCTION SET UP F0UR WORDS	F3B01480
	00240	2 00001 4 00235	150	E2	TIX	E3,C,1	F3B01490
	00241	0 07400 4 01022	151		TSX	CIT00,C COMPILER	F3B01500
	00242	0 00000 0 01222	152		HTR	FFLCOM	F3B01510
	00243	0 00000 0 01223	153		HTR	FFLCOM+1	F3B01520
	00244	0 00000 0 01224	154		HTR	FFLCOM+2	F3B01530
	00245	0 00000 0 01225	155		HTR	FFLCOM+3	F3B01540
	00246	−0 75400 1 00000	156		PXD	0,A COMPARE WORD COUNT	F3B01550
	00247	0 34000 0 01220	157		CAS	FFLWC WITH BUFFER SIZE	F3B01560
	00250	0 02000 0 00257	158		TRA	F1 WC LESS THAN BS	F3B01570
	00251	0 02000 0 00253	159		TRA	E4 WC EQUALS BS	F3B01580
	00252	0 07400 4 00004	160		TSX	4,4 WORD COUNT INCORRECT	F3B01590
	00253	0 07400 4 00700	161	E4	TSX	READFF,C READ FIRST FILE	F3B01600
	00254	−0 76000 0 00141	162		MSE	97 IS FIRST FILE USED UP	F3B01610
	00255	0 02000 0 00257	163		TRA	F1 NO	F3B01620
	00256	0 02000 0 00312	164		TRA	H1 YES	F3B01630
	00257	0 50000 1 02362	165	F1	CLA	FFLBUF,A DOES NEXT INSTRUCTION IN	F3B01640
	00260	0 10000 0 00234	166		TZE	E1 FIRST FILE HAVE ZERO LOC WORD	F3B01650
	00261	0 07400 4 00724	167		TSX	M31000,C TSX COM TABLE SEARCH	F3B01660
	00262	0 50000 1 02362	168	F2	CLA	FFLBUF,A TEST KF PRESENT ALPHA IS	F3B01670
	00263	−0 32000 0 01162	169		ANA	MASK GREATER THAN ALPHA OF	F3B01680
	00264	0 34000 0 01221	170		CAS	FFLCFN PREVIOUS CIT	F3B01690
	00265	0 02000 0 00104	171		TRA	C6 NEXT INTERNAL FORMULA NO.	F3B01700
	00266	0 76100 0 00000	172		NOP		F3B01710
	00267	0 53400 4 01145	173		LXA	L(4),C	F3B01720
	00270	0 50000 1 02362	174	F3	CLA	FFLBUF,A PREPARE TO COMPILE THIS INSTRUCTION	F3B01730
	00271	0 60100 4 01226	175		STO	FFLCOM+4,C SET UP FOUR WORDS	F3B01740
	00272	1 77777 1 00273	176		TXI	F4,A,−1	F3B01750
	00273	2 00001 4 00270	177	F4	TIX	F3,C,1	F3B01760
	00274	0 07400 4 01022	178		TSX	CIT00,C COMPILER	F3B01770
	00275	0 00000 0 01222	179		HTR	FFLCOM	F3B01780
	00276	0 00000 0 01223	180		HTR	FFLCOM+1	F3B01790
	00277	0 00000 0 01224	181		HTR	FFLCOM+2	F3B01800
	00300	0 00000 0 01225	182		HTR	FFLCOM+3	F3B01810
	00301	−0 75400 1 00000	183		PXD	0,A COUNT OF POSITION OM FIRST FILE	F3B01820
	00302	0 34000 0 01220	184		CAS	FFLWC TEST IF FIRST FILE BUFFER	F3B01830
	00303	0 02000 0 00262	185		TRA	F2 IS EMPTY	F3B01840
	00304	0 02000 0 00306	186		TRA	F5 NO, GET NEXT CIT ENTRY	F3B01850
	00305	0 07400 4 00004	187		TSX	4,4 WORD COUNT INCORRECT	F3B01860
	00306	0 07400 4 00700	188	F5	TSX	READFF,C READ FIRST FILE	F3B01870
	00307	−0 76000 0 00141	189		MSE	97 TEST IF AT END OF FIRST FILE	F3B01880
	00310	0 02000 0 00262	190		TRA	F2 BACK TO GET NEXT FIRST FILE ENTRY	F3B01890
	00311	0 02000 0 00313	191		TRA	H0	F3B01900
			192			END OF FIRST FILE ROUTINE	F3B01910
	00312	0 07400 4 00724	193	H1	TSX	M31000,C READ TIFGO FILE	F3B01920
	00313	−0 76000 0 00142	194	H0	MSE	98 END OF TIFGO FILE	F3B01930
	00314	0 02000 0 00316	195		TRA	H2 NO	F3B01940
	00315	0 02000 0 00443	196		TRA	OUT YES, TO TERMINAL ROUTINE	F3B01950
	00316	0 53400 4 01145	197	H2	LXA	L(4),C COMPILE	F3B01960
	00317	0 50000 2 02216	198	H4	CLA	TFGBUF,B TIFGO	F3B01970
	00320	0 60100 4 01220	199		STO	TFGCOM+4,C FILE	F3B01980
	00321	1 77777 2 00322	200		TXI	H3,B,−1 INSTRUCTION	F3B01990
	00322	2 00001 4 00317	201	H3	TIX	H4,C,1	F3B02000
	00323	0 07400 4 01022	202		TSX	CIT00,C COMPILER	F3B02010
	00324	0 00000 0 01214	203		HTR	TFGCOM	F3B02020
	00325	0 00000 0 01215	204		HTR	TFGCOM+1	F3B02030
	00326	0 00000 0 01216	205		HTR	TFGCOM+2	F3B02040
	00327	0 00000 0 01217	206		HTR	TFGCOM+3	F3B02050
	00330	−0 75400 2 00000	207		PXD	0,B COMPARE WORD COUNT	F3B02060
	00331	0 34000 0 01212	208		CAS	TFGWC WITH BUFFER SIZE	F3B02070
	00332	0 02000 0 00316	209		TRA	H2 WC LESS THAN BS	F3B02080
	00333	0 02000 0 00335	210		TRA	H5 WC EQUALS BS	F3B02090
	00334	0 07400 4 00004	211		TSX	4,4 WORD COUNT INCORRECT	F3B02100
	00335	0 07400 4 00654	212	H5	TSX	READTF,C BUFFER NOW EMPTY, READ NEXT BLOCK	F3B02110
	00336	0 02000 0 00313	213		TRA	H0	F3B02120
			214			ALPHA EQUALS BETA	F3B02130
	00337	0 50000 2 02216	215	J1	CLA	TFGBUF,B TEST IF LOC. WORD OF TIFGO FILE IS	F3B02140
	00340	0 12000 0 00376	216		TPL	L1 MINUS NO	F3B02150
			217			BETA IS MINUS , YES	F3B02160
	00341	0 76000 0 00003	218		SSP		F3B02170
	00342	0 60100 2 02216	219		STO	TFGBUF,B SAVE LOCATION WORD	F3B02180
	00343	0 40000 0 01203	220		ADD	L(370) 370(8) TO LOC. WORD OF FIRST FILE	F3B02190
	00344	0 60100 1 02362	221		STO	FFLBUF,A SAVE NEW LOCATION	F3B02200
	00345	0 53400 4 01145	222	J4	LXA	L(4),C COMPILE	F3B02210
	00346	0 50000 2 02216	223	J3	CLA	TFGBUF,B TIFGO	F3B02220
	00347	0 60100 4 01220	224		STO	TFGCOM+4,C FILE	F3B02230
	00350	1 77777 2 00351	225		TXI	J2,B,−1 INSTRUCTION	F3B02240
	00351	2 00001 4 00346	226	J2	TIX	J3,C,1 RESET IR 4	F3B02250
	00352	0 07400 4 01022	227		TSX	CIT00,C COMPILER	F3B02260
	00353	0 00000 0 01214	228		HTR	TFGCOM	F3B02270
	00354	0 00000 0 01215	229		HTR	TFGCOM+1	F3802280
	00355	0 00000 0 01216	230		HTR	TFGCOM+2	F3B02290
	00356	0 00000 0 01217	231		HTR	TFGCOM+3	F3B02300
	00357	−0 75400 2 00000	232		PXD	0,B COMPARE WORD COUNT	F3B02310
	00360	0 34000 0 01212	233		CAS	TFGWC WITH BUFFER S1ZE	F3B02320
	00361	0 02000 0 00370	234		TRA	K3 WC LESS THAN BS	F3B02330
	00362	0 02000 0 00364	235		TRA	K1 WC EQUALS BS	F3B02340
	00363	0 07400 4 00004	236		TSX	4,4 WORD COUNT INCORRECT	F3B02350
	00364	0 07400 4 00654	237	K1	TSX	READTF,C	F3B02360
	00365	−0 76000 0 00142	238		MSE	98 IS TIFGO FILE USED UP	F3B02370
	00366	0 02000 0 00370	239		TRA	K3 NO	F3B02380
	00367	0 02000 0 00150	240		TRA	G1 YES	F3B02390
	00370	0 50000 2 02216	241	K3	CLA	TFGBUF,B DOES NEXT INSTRUCTION IN	F3B02400
	00371	−0 32000 0 01162	242		ANA	MASK TIFGO FILE BELONG TO CURRENT	F3B02410
	00372	0 34000 0 01213	243		CAS	TFGCFN COMPILED BLOCK	F3B02420
	00373	0 02000 0 00234	244		TRA	E1 NO	F3B02430
	00374	0 76100 0 00000	245		NOP	YES	F3B02440
	00375	0 02000 0 00345	246		TRA	J4 YES	F3B02450
			247			BETA IS PLUS	F3B02460
	00376	0 53400 4 01145	248	L1	LXA	L(4),C OR TIFGO FILE	F3B02470
	00377	−0 50000 2 02216	249	L2	CAL	TFGBUF,B WITH FIRST FILE	F3B02480
	00400	−0 60200 1 02362	250		ORS	FFLBUF,A INSTRUCTION	F3B02490
	00401	1 77777 1 00402	251		TXI	L8,A,−1 RESET IR COUNTS	F3B02500
	00402	1 77777 2 00403	252	L8	TXI	L3,B,−1	F3B02510
	00403	2 00001 4 00377	253	L3	TIX	L2,C,1	F3B02520
	00404	1 00004 1 00405	254		TXI	L5,A,4	F3B02530
	00405	0 53400 4 01145	255	L5	LXA	L(4),C COMPILE	F3B02540
	00406	0 50000 1 02362	256	L7	CLA	FFLBUF,A FIRST	F3B02530
	00407	0 60100 4 01226	257		STO	FFLCOM+4,C FILE	F3B02560
	00410	1 77777 1 00411	258		TXI	L6,A,−1 INSTRUCTION	F3B02570
	00411	2 00001 4 00406	259	L6	TIX	L7,C,1	F3B02580
	00412	0 07400 4 01022	260		TSX	CIT00,C	F3B02590
	00413	0 00000 0 01222	261		HTR	FFLCOM	F3B02600
	00414	0 00000 0 01223	262		HTR	FFLCOM+1	F3B02610
	00415	0 00000 0 01224	263		HTR	FFLCOM+2	F3B02620
	00416	0 00000 0 01225	264		HTR	FFLCOM+3	F3B02630
	00417	−0 75400 1 00000	265		PXD	0,A COMPARE WORD COUNT	F3B02640
	00420	0 34000 0 01220	266		CAS	FFLWC WITH BUFFER SIZE	F3B02650
	00421	0 02000 0 00430	267		TRA	M3 WC LESS THAN BS	F3B02660
	00422	0 02000 0 00424	268		TRA	M1 WC EQUALS BS	F3B02670
	00423	0 07400 4 00004	269		TSX	4,4 WORD COUNT INCORRECT	F3B02680
	00424	0 07400 4 00700	270	M1	TSX	READFF,C	F3B02690
	00425	−0 76000 0 00141	271		MSE	97 IS FIRST FILE USED UP	F3B02700
	00426	0 02000 0 00430	272		TRA	M3 NO	F3B02710
	00427	0 02000 0 00330	273	COR1	TRA	H3+6	F3B02720
	00430	0 50000 1 02362	274	M3	CLA	FFLBUF,A DOES NEXT INSTRUCTION IN	F3B02730
	00431	−0 32000 0 01162	275		ANA	MASK FIRST FILE BELONG TO CURRENT	F3B02740
	00432	0 34000 0 01221	276		CAS	FFLCFN COMPILED BLOCK	F3B02750
	00433	0 02000 0 00436	277		TRA	M4 NO	F3B02760
	00434	0 76100 0 00000	278		NOP	YES	F3B02770
	00435	0 02000 0 00405	279		TRA	L5 YES	F3B02780
	00436	−0 75400 2 00000	280	M4	PXD	0,2 TEST IF TIFGO FILE BUFFER IS EMPTY	F3B02790
	00437	0 34000 0 01212	281		CAS	TFGWC	F3B02800
	00440	0 02000 0 00137	282		TRA	C7	F3B02810
	00441	0 02000 0 00133	283		TRA	C3	F3B02820
	00442	0 07400 4 00004	284		TSX	4,4 WORD COUNT INCORRECT	F3B02830
			285			M3 TERMINAL ROUTINE	F3B02840
	00443	−0 53400 1 01207	286	OUT	LXD	BBOX,1 2S C OMPLIMENT OF NO. OF WORDS	F3B02850
	00444	0 50000 1 02523	287	PAT1	CLA	CIB−3,1 ENTERED IN BLICK	F3B02860
	00445	0 40200 0 01172	288	PAT2	SUB	L(TRA) TEST IF TRA INSTRUCTION	F3B02870
	00446	0 10000 0 01137	289	PAT3	TZE	RTN YES	F3B02880
	00447	0 02000 0 01066	290	COR2	TRA	PAT4 NO	F3B02890
	00450	−0 63400 1 00454	291	RET1	SXD	N2,1 SAVE INDEX REG. NO. IN COMPARE INSTR.	F3B02900
	00451	0 53400 1 01141	292		LXA	L(0),1 INITIALIZE IR 1 T0 1	F3B02910
	00452	0 70000 1 02526	293	N1	CPY	CIB,1 REMAINDER OF	F3B02920
	00453	1 77777 1 00454	294		TXI	N2,1,−1 INSTRUCTIONS IN BUFFER	F3B02930
D	00454	3 00000 1 00452	295	N2	TXH	N1,1 TEST IF AT END OF BUFFER	F3B02940
	00455	0 77000 0 00204	296		WEF	4 YES, WRITE END OF FILE	F3B02950
	00456	−0 53400 4 07322	297	M32000	LXD	3794,4 WRITE DO FILE C + FORTRAN FUNCTION FILE AS 2ND FILE	F3B02960
	00457	1 00003 4 00460	298		TXI	M32005,4,3 POSITION TAPE 2 T0 READ DO FILE C	F3B02970
	00460	0 76400 0 00222	299	M32005	BST	146	F3B02980
	00461	2 00001 4 00460	300		TIX	M32005,4,1	F3B02990
	00462	0 76200 0 00222	301		RDS	146 READ DO FILE C INTO STORAGE	F3B03000
	00463	0 70000 0 07323	302		CPY	3795	F3B03010
	00464	0 53400 4 07323	303		LXA	3795,4 WORD COUNT	F3B03020
	00465	1 00004 4 00466	304		TXI	BST,4,4	F3B03030
	00466	0 76400 0 00222	305	BST	BST	146 BACK T0 FIRST WD.	F3B03040
	00467	2 00001 4 00466	306		TIX	BST,4,1	F3B03050
	00470	0 76200 0 00222	307		RDS	146 PAST IDENTIFICATION COUNT	F3B03060
	00471	0 76200 0 00222	308		RDS	146 WORD COUNT	F3B030T0
	00472	0 76600 0 00224	309		WRS	148 ZERO ON TAPE 4	F3B03080
	00473	0 70000 0 01141	310		CPY	L(0)	F3B03090
	00474	0 50000 0 01141	311		CLA	L(0) RESTORE BBOX TO ZERO	F3B03100
	00475	0 60100 0 01207	312		STO	BBOX	F3B03110
	00476	0 76000 0 00140	313		PSE	96 TURN OFF ALL SENSE SWITCHES	F3B03120
	00477	0 07400 4 00654	314	READ	TSX	READTF,4 TREAD TIFGO FILE	F3B03130
	00500	−0 76000 0 00142	315		MSE	98 TEST IF AT END OF TIFGO FILE	F3B03140
	00501	0 02000 0 00503	316		TRA	COMP NO	F3B03150
	00502	0 02000 0 00522	317		TRA	FREAD YES	F3B03160
	00503	0 53400 4 01145	318	COMP	LXA	L(4),4 4 IN IR 4	F3B03170
	00504	0 50000 2 02216	319		CLA	TFGBUF,2 SET UP FOUR WORDS FOR COMPILATION	F3B03180
	00505	0 60100 4 01220	320		STO	TFGCOM+4,4	F3B03190
	00506	1 77777 2 00507	321		TXI	COMP1,2,−1	F3B03200
	00507	2 00001 4 00504	322	COMP1	TIX	COMP+1,4,1	F3B03210
	00510	0 07400 4 01022	323		TSX	CIT00,4 COMPILER	F3B03220
	00511	0 00000 0 01214	324		HTR	TFGCOM	F3B03230
	00512	0 00000 0 01215	325		HTR	TFGCOM+1	F3B03240
	00513	0 00000 0 01216	326		HTR	TFGCOM+2	F3B03250
	00514	0 00000 0 01217	327		HTR	TFGCOM+3	F3B03260
	00515	−0 75400 2 00000	328		PXD	0,2 COUNT OF TIFGO	F3B03270
	00516	0 34000 0 01212	329		CAS	TFGWC COMPARE TO CURRENT FMLA. NO.	F3B03280
	00517	0 02000 0 00503	330		TRA	COMP LESS THAN, COMPILE ENTRIESP	F3B03290
	00520	0 02000 0 00477	331		TRA	READ EQUAL TO. READ NEXT ENTRY	F3B03300
	00521	0 07400 4 00004	332		TSX	4,4 WORD COUNT INCORRECT	F3B03310
	00522	0 07400 4 00700	333	FREAD	TSX	READFF,4 READ FIRST FILE	F3B03320
	00523	−0 76000 0 00141	334		MSE	97 TEST IF AT END OF FIRST FILE	F3B03330
	00524	0 02000 0 00526	335		TRA	FCOMP NO	F3B03340
	00525	0 02000 0 00545	336		TRA	WRITE YES	F3B03350
	00526	0 53400 4 01145	337	FCOMP	LXA	L(4),4 SET UP COUNT AND F0UR WORSD OF ENTRY	F3B03360
	00527	0 50000 1 02362	338		CLA	FFLBUF,1	F3B03370
	00530	0 60100 4 01226	339		STO	FFLCOM+4,4	F3B03380
	00531	1 77777 1 00532	340		TXI	FCOMP1,1,−1	F3B03390
	00532	2 00001 4 00527	341	FCOMP1	TIX	FCOMP+1,4,1	F3B03400
	00533	0 07400 4 01022	342		TSX	CIT00,4 COMPILER	F3B03410
	00534	0 00000 0 01222	343		HTR	FFLCOM	F3B03420
	00535	0 00000 0 01223	344		HTR	FFLCOM+1	F3B03430
	00536	0 00000 0 01224	345		HTR	FFLCOM+2	F3B03440
	00537	0 00000 0 01225	346		HTR	FFLCOM+3	F3B03450
	00540	−0 75400 1 00000	347		PXD	0,1 CHECK WORD COUNT	F3B03460
	00541	0 34000 0 01220	348		CAS	FFLWC AND COMPARE TO FIRST FILE WORD COUNT	F3B03470
	00542	0 02000 0 00526	349		TRA	FCOMP	F3B03480
	00543	0 02000 0 00522	350		TRA	FREAD	F3B03490
	00544	0 07400 4 00004	351		TSX	4,4 WORD COUNT INCORRECT	F3B03500
	00545	−0 53400 1 01207	352	WRITE	LXD	BBOX,1 TWOS COMPLIMENT OF NO. OF ENTRIES	F3B03510
	00546	−3 00000 1 00555	353		TXL	WRITE2+1,1,0	F3B03520
	00547	0 76600 0 00224	354		WRS	148 SELECT TAPE 4	F3B03530
	00550	−0 63400 1 00554	355		SXD	WRITE2,1	F3B03540
	00551	0 53400 1 01141	356		LXA	L(0),1	F3B03550
	00552	0 70000 1 02526	357	WRITE1	CPY	CIB,1 REMAINDER OF BUFFER ONTO TAPE 4	F3B03560
	00553	1 77777 1 00554	358		TXI	WRITE2,1,−1	F3B03570
D	00554	3 00000 1 00552	359	WRITE2	TXH	WRITE1,1	F3B03580
	00555	0 77000 0 00224	360		WEF	148	F3B03590
	00556	0 53400 4 07323	361		LXA	3795,4	F3B03600
	00557	1 00003 4 00560	362		TXI	P0S,4,3	F3B03610
	00560	0 76400 0 00222	363	P0S	BST	146 BACKSPACE OVER DO FILE C	F3B03620
	00561	2 00001 4 00560	364		TIX	P0S,4,1	F3B03630
	00562	0 76200 0 00222	365	M32010	RDS	146 WRITE ASC0 0VER DO FILE C ON TAPE 2	F3B03640
	00563	0 76200 0 00222	366		RDS	146 .	F3B03650
	00564	0 76600 0 00222	367		WRS	146 SELECT TAPE 2	F3B03660
	00565	0 70000 0 07324	368		CPY	3796 COPY ASC0 OVER DOFILE C	F3B03670
	00566	0 50000 0 07324	369		CLA	3796	F3B03680
	00567	0 10000 0 00576	370		TZE	M32030−1 NO ASC0 ENTRIES	F3B03690
	00570	−0 73400 1 00000	371		PDX	0,1 NUMBER OF ASC0 ENTRIES IN IR 1	F3803700
	00571	0 77100 0 00022	372		ARS	18 SHIFT WORD COUNT	F3B03710
	00572	0 40000 0 00574	373		ADD	M32020 INITIAL ADDRESS	F3B03720
	00573	0 62100 0 00574	374		STA	M32020 INITIALIZE COPY ADDRESS	F3803730
	00574	0 70000 1 07325	375	M32020	CPY	3797,1 ASC0 TABLR	F3B03740
	00575	2 00001 1 00574	376		TIX	M32020,1,1	F3B03750
	00576	0 77000 0 00222	377		WEF	146 END OF FILE AFTER ASC0 TABLE	F3B03760
	00577	0 53400 4 01202	378	M32030	LXA	M3ECTR,4 ERROR COUNT	F3B03770
	00600	0 76200 0 00302	379		RDS	194 READ FIXCON INTO STORAGE	F3B03780
	00601	0 70000 0 01226	380		CPY	FIXCON−2 DRUM CHECK SUM CHCHECKING	F3B03790
	00602	0 70000 0 01227	381		CPY	FIXCON−1	F3B03800
	00603	0 50000 0 01226	382		CLA	FIXCON−2 WORD COUNT	F3B03810
	00604	0 40200 0 01227	383		SUB	FIXCON−1 CHECK SUM	F3B03820
	00605	0 10000 0 00610	384		TZE	M32040 CORRECTP	F3B03830
	00606	2 00001 4 00600	385		TIX	M32030+1,4,1 TRY 4 MORE TIMES	F3B03840
	00607	0 07400 4 00004	386		TSX	4,4 WORD COUNT INCORRECT	F3B03850
	00610	0 53400 4 01202	387	M32040	LXA	M3ECTR,4 ERROR COUNT	F3B03860
	00611	0 50000 0 01226	388		CLA	FIXCON−2 WORD COUNT	F3B03870
	00612	0 10000 0 00634	389		TZE	M32065 NO FIXCON ENTRIES	F3B03880
	00613	0 73400 3 00000	390		PAX	0,3 INITIALIZE WORD COUNT	F3B03890
	00614	0 40000 0 00623	391		ADD	M32055 INITIAL ADDRESS	F3B03900
	00615	0 62100 0 00620	392		STA	M32050	F3B03910
	00616	0 76200 0 00302	393		RDS	194	F3B03920
	00617	0 46000 0 01143	394		LDA	L(2) READ DRUM 2 FOR FIXCON TABLE	F3B03930
	00620	0 70000 1 00000	395	M32050	CPY	0,1	F3B03940
	00621	2 00001 1 00620	396		TIX	M32050,1,1	F3B03950
	00622	0 53400 1 01141	397		LXA	L(0),1 SET IR 1 TO ZERO	F3B03960
	00623	0 50000 1 01230	398	M32055	CLA	FIXCON,1 FIRST ENTRY	F3B03970
	00624	0 40200 1 01231	399		SUB	FIXCON+1,1 CHECK SUM	F3B03980
	00625	0 10000 0 00630	400		TZE	M32060 CORRECT	F3B03990
	00626	2 00001 4 00611	401		TIX	M32040+1,4,1 TRY 4 MORE TIMES	F3B04000
	00627	0 07400 4 00004	402		TSX	4,4 WORD COUNT INCORRECT	F3B04010
	00630	1 77776 1 00631	403	M32060	TXI	M32060+1,1,−2 SKIP OVER CHECK SUM	F3B04020
	00631	2 00002 2 00623	404		TIX	M32055,2,2 NEXT ENTRY	F3B04030
	00632	−0 63400 1 00644	405		SXD	M32070+2,1 END OF TABLE COUNT	F3B04040
	00633	0 53400 2 01141	406		LXA	L(0),2 RESET IR 2 TO ZERO	F3B04050
	00634	0 76600 0 00222	407	M32065	WRS	146 WRITE FIXCON ON TAPE 2	F3B04060
	00635	0 50000 0 01226	408		CLA	FIXCON−2	F3B04070
	00636	0 77100 0 00001	409		ARS	1 SET UP FIX CON ENTRIES WHITHOUT	F3B04080
	00637	0 60100 0 01226	410		STO	FIXCON−2 CHECK SUMS FOR WRITING OUT ON TAPE 2	F3B04090
	00640	0 70000 0 01226	411		CPY	FIXCON−2	F3B04100
	00641	0 10000 0 00645	412		TZE	M32075 NO FIXCON ENTRY	F3B04110
	00642	0 70000 2 01230	413	M32070	CPY	FIXCON,2	F3B04120
	00643	1 77776 2 00644	414		TXI	M32070+2,2,−2	F3B04130
D	00644	3 00000 2 00642	415		TXH	M32070,2	F3B04140
	00645	0 77000 0 00222	416	M32075	WEF	146 WRITE END OF FILE AFTER FIXCON	F3B04150
	00646	0 53400 4 01145	417		LXA	L(4),4	F3B04160
	00647	0 76400 0 00222	418		BST	146 BACKSPACE TAPE 2 FOR SECTION 4	F3B04170
	00650	2 00001 4 00647	419		TIX	M32075+2,4,1	F3B04180
	00651	0 76000 0 00140	420		PSE	96 TURN OFF ALL SENSE SWITCHES	F3B04190
	00652	0 76200 0 00221	421		RTB	1	F3B04200
	00653	0 02000 0 00004	422		TRA	4	F3B04210
			423			M3 CLOSED SU8ROUTINES	F3B04220
			424			SUBROUTINE FOR READING A RECORD OF TIFGO FILE	F3804230
	00654	−0 63400 1 01211	425	READTF	SXD	E3M3,A SAVE LINKAGE IN IR 1	F3B04240
	00655	0 53400 1 01202	426		LXA	M3ECTR,1 ERROR COUNT	F3B04250
	00656	0 76200 0 00222	427	M3B3	RDS	146 TAPE 2 TO READ TIFGO FILE	F3B04260
	00657	0 53400 2 01141	428		LXA	L(0),B RESET IR2 TO ZERO	F3B04270
	00660	0 70000 2 02216	429	M3B1	CPY	TFGBUF,B COPY TIFGO FILE FROM TAPE INTO BUFFER	F3B04280
	00661	1 77777 2 00660	430		TXI	M3B1,B,−1 SET UP COUNT	F3B04290
	00662	0 02000 0 00675	431		TRA	M3B4 EOF	F3B04300
	00663	0 76600 0 00333	432		WRS	219 EOR) ON TAPE 3	F3B04310
	00664	−0 76000 0 00012	433		RTT	IS TAPE CHECK INDICATOR ON	F3B04320
	00665	0 02000 0 00672	434		TRA	M3B2 YES	F3B04330
	00666	−0 63400 2 01212	435		SXD	TFGWC,B NO	F3B04340
	00667	0 53400 2 01141	436		LXA	L(0),B RESET INDEX OF TIFGO BUFFER	F3B04350
	00670	−0 53400 1 01211	437		LXD	E3M3,A RESTORE INDEX OF FIRST FILE BUFFER	F3B04360
	00671	0 02000 4 00001	438		TRA	1,C EXIR. BACK TO MAIN ROUTINE	F3B04370
	00672	0 76400 0 00222	439	M3B2	BST	146	F3B04380
	00673	2 00001 1 00656	440		TIX	M3B3,A,1 ERROR ROUTINE	F3B04390
	00674	0 07400 4 00004	441		TSX	4,4 ERROR READING TAPE 2. TIFGO FILE	F3B04400
	00675	0 76000 0 00142	442	M3B4	PSE	98 INDICATE END OF TIFGO FILE	F3B04410
	00676	−0 53400 1 01211	443		LXD	E3M3,A RESTORE INDEX OF FIRST FILE BUFFER	F3B04420
	00677	0 02000 4 00001	444		TRA	1,C TRANSFER TO MAIN ROUTINE	F3B04430
			445			SU8ROUTINE FOR READING A RECORD OF FIRST FILE	F3B04440
	00700	−0 63400 2 01210	446	READFF	SXD	E2M3,B SAVE COUNT IN IR 2 FOR LINKAGE	F3B04450
	00701	0 53400 2 01202	447		LXA	M3ECTR,B ERROR COUNT	F3B04460
	00702	0 76200 0 00223	448	M3A3	RDS	147 READ FIRST FILE FROM TAPE 3	F3B04470
	00703	0 53400 1 01141	449		LXA	L(0),A INITIALIZE IR1 TO ZERO	F3B04480
	00704	0 70000 1 02362	450	M3A1	CPY	FFLBUF,A COPY FIRST FILE INTO BUFFER	F3B04490
	00705	1 77777 1 00704	451		TXI	M3A1,A,−1	F3B04500
	00706	0 02000 0 00721	452		TRA	M3A4 EOF	F3B04510
	00707	0 76600 0 00333	453		WRS	219 EOR DELAY 704 TO MAKE TAPE TEST	F3B04520
	00710	−0 76000 0 00012	454		RTT		F3B04530
	00711	0 02000 0 00716	455		TRA	M3A2 ERROR ROUTINE	F3B04540
	00712	−0 63400 1 01220	456		SXD	FFLWC,A SAVE LOCAT0N WORD OF FIRST FILE	F3B04550
	00713	0 53400 1 01141	457		LXA	L(0),A RESET INDEX OF FIRST F1LE BUFFER	F3B04560
	00714	−0 53400 2 01210	458		LXD	E2M3,B RESTORE INDEX OF TIFGO FILE BUFFER	F3B04570
	00715	0 02000 4 00001	459		TRA	1,C	F3B04580
	00716	0 76400 0 00223	460	M3A2	BST	147 BACKSPACE TAPE 3 TO TRY AGAIN	F3B04590
	00717	2 00001 2 00702	461		TIX	M3A3,B,1	F3B04600
	00720	0 07400 4 00004	462		TSX	4,4 ERROR READING FIRST FILE FROM TAPE 3	F3B04610
	00721	0 76000 0 00141	463	M3A4	PSE	97 INDICATE END DF FIRST FILE	F3B04620
	00722	−0 53400 2 01210	464		LXD	E2M3,B RESTORE INDEX OF TIFGO FILE BUFFER	F3B04630
	00723	0 02000 4 00001	465		TRA	1,C	F3B04640
			466			TSXCOM TABLE SEARCH	F3B04650
	00724	−0 63400 1 01211	467	M31000	SXD	E3M3,1 SAVE LINKAGE OF FIRST FILE BUFFER	F3B04660
	00725	−0 63400 4 01210	468		SXD	E2M3,4 SAVE LINKAGE FROMT TSX INSTR.	F3B04670
	00726	0 60000 0 01065	469		STZ	DUP REINITIALIZE HTE INSTR.	F3B04680
	00727	0 50000 0 01226	470	M31005	CLA	TSXCOM−2 TEST WORD COUNT OF CHECK SUM	F3B04690
	00730	0 40200 0 01227	471		SUB	TSXCOM−1	F3B04700
	00731	0 10000 0 01017	472		TZE	M31080 CHECK SUM EQUALS WORD COUNT	F3B04710
	00732	−0 53400 1 01226	473		LXD	TSXCOM−2,1 WORD COUNT IN IR1	F3B04720
	00733	0 50000 1 01230	474		CLA	TSXCOM,1 FIRST ENTRY	F3B04730
	00734	−0 32000 0 01162	475		ANA	MASK SAVE DECREMENT, INTERNAL FMLA. NO.	F3B04740
	00735	0 40200 0 01221	476		SUB	FFLCFN FIRST FILE LOCATION NO.	F3B04750
	00736	−0 10000 0 01017	477		TNZ	M31080 NOT EQUAL. NO TSXCOM ENTRY	F3B04760
			478			CUR FIRST FILE FMLA NO APPEARS IN TSXCOM	F3B04770
	00737	−0 50000 1 01231	479	M31015	CAL	TSXCOM+1,1	F3B04780
	00740	−0 32000 0 01165	480		ANA	PMASK SAVE SIGN OF SECOND WD. OF ENTRY	F3B04700
	00741	0 10000 0 01057	481	CQR3	TZE	CIT07+6 TYPE 1 ENTRY NEGATIVE	F3B04800
	00742	0 50000 1 01230	482		CLA	TSXCOM,1 TYPE 2 ENTRY	F3B04810
	00743	−0 32000 0 01163	483		ANA	AMASK SAVE ADDRESS AND STORE IN	F3B04820
	00744	0 60100 0 01225	484		STO	FFLCOM+3 4TH WORD OF FIRST FILE COMPILER	F3B04830
	00745	0 50000 1 01231	485		CLA	TSXCOM+1,1 SECOND WORD OF ENTRY	F3B04840
	00746	0 60100 0 01224	486		STO	FFLCOM+2 3RD. WORD OF COMPILER	F3B04850
	00747	0 07400 4 01022	487		TSX	CIT00,4 COMPILE INSTRUCTION-4	F3B04860
	00750	0 00000 0 01141	488		HTR	L(0) ZERO	F3B04870
	00751	0 00000 0 01156	489		HTR	L(LXD) LXD INSTRUCTION	F3B04880
	00752	0 00000 0 01224	490		HTR	FFLCOM+2	F3B04890
	00753	0 00000 0 01225	491		HTR	FFLCOM+3	F3B04900
	00754	1 77776 1 00755	492		TXI	M31030,1,−2 STEP UP COUNT FOR NEXT TSXCOM ENTRY	F3B04910
	00755	−0 63400 1 01226	493	M31030	SXD	TSXCOM−2,1 SAVE NEW WORD COUNT	F3B04920
	00756	0 02000 0 00727	494		TRA	M31005 BACK TO SEARCH REMAING ENTRIES	F3B04930
	00757	0 07400 4 01022	495	M31035	TSX	CIT00,4 TYPE I ENTRY	F3B04940
	00760	0 00000 0 01141	496		HTR	L(0) ZERO	F3B04950
	00761	0 00000 0 01157	497		HTR	L(SXD) SXD	F3B04960
	00762	0 00000 0 01152	498		HTR	L(6H) +060000000000	F3B04970
	00763	0 00000 0 01155	499		HTR	L(5.4) 000004000004	F3B04980
	00764	0 50000 1 01231	500		CLA	TSXCOM+1,1 SECOND WORD OF ENTRY	F3B04990
	00765	−0 32000 0 01163	501		ANA	AMASK SAVE ADDRESS	F3805000
	00766	−0 50100 0 01153	502		ORA	L(10H) ADD 120000000000	F3B05010
	00767	0 60100 0 01224	503		STO	FFLCOM+2 IN 3RD. WORD OF COMPILER	F3B05020
	00770	0 07400 4 01022	504		TSX	CIT00,4 FOR NEXT INSTRUCTION	F3B05030
	00771	0 00000 0 01141	505		HTR	L(0) ZERO	F3B05040
	00772	0 00000 0 01160	506		HTR	L(TSX) TSX	F3B05050
	00773	0 00000 0 01224	507		HTR	FFLCOM+2 12(8) PLUS ADDRESS	F3805060
	00774	0 00000 0 01145	508		HTR	L(4) +000000000004	F3B05070
	00775	0 50000 1 01231	509	M31050	CLA	TSXCOM+1,1 SECOND WORD	F3B05080
	00776	−0 32000 0 01163	510		ANA	AMASK SAVE ADDRESS	F3B05000
	00777	0 60100 0 01225	511		STO	FFLCOM+3 STORE IN 4TH. WORD OF COMPILED INSTR.	F3805100
	01000	−0 50100 0 01154	512		ORA	L(12H) ADD 12(8) AND DTORE IN 3RD.	F3B05110
	01001	0 60100 0 01224	513		STO	FFLCOM+2 WORD OF INSTRUCTION IN COMPILER	F3805120
	01002	0 07400 4 01022	514		TSX	CIT00,4	F3B05130
	01003	0 00000 0 01141	515		HTR	L(0) ZERO	F3B05140
	01004	0 00000 0 01161	516		HTR	L(LXP) LXP	F3B05150
	01005	0 00000 0 01224	517		HTR	FFLCOM+2 12(8) PLUS ADDDRESS	F3B05160
	01006	0 00000 0 01225	518		HTR	FFLCOM+3 ADDRESS	F3B05170
	01007	1 77776 1 01010	519		TXI	M31063−1,1,−2 RESET IR1 FOR NEXT ENTRY	F3B05180
	01010	−0 63400 1 01226	520		SXD	TSXCOM−2,1 SAVE WORD COUNT	F3B05190
	01011	0 07400 4 01022	521	M31063	TSX	CIT00,4 COMPILE INSTRUCTION	F3B05200
	01012	0 00000 0 01141	522		HTR	L(0) ZERO000000000	F3B05210
	01013	0 00000 0 01156	523		HTR	L(LXD) LXD	F3B05220
	01014	0 00000 0 01152	524		HTR	L(6H) +060000000000	F3B05230
	01015	0 00000 0 01155	525		HTR	L(5.4) 000004000004	F3B05240
	01016	0 02000 0 00727	526		TRA	M31005 CONT1 UE TABLE SEARCH	F3B05230
	01017	−0 53400 1 01211	527	M31080	LXD	E3M3,1 END OF TSXCOM TABLE SEARCH	F3B05260
	01020	−0 53400 4 01210	528		LXD	E2M3,4 RESTORE IR COUNTS FROM LINKAGE	F3805270
	01021	0 02000 4 00001	529		TRA	1,4 AND GO BACK TO MAIN ROUTINE	F3805280
			530			COMPILING ROUTINE,CIT00	F3B05290
	01022	−0 60000 0 01204	531	CIT00	STQ	E1C SAVE CONTENTS OF MQ	F3B05300
	01023	−0 63400 1 01205	532		SXD	E2C,1 SAVE CONTENTS OF IR1	F3B03310
	01024	−0 63400 2 01206	533		SXD	E3C,2 SAVE CONTENTS OF IR12	F3B05320
	01025	−0 53400 2 01207	534		LXD	BBOX,2 2S COMPLIMENT OF NO. OF WORDS OF ENTRY	F3B05330
	01026	3 77634 2 01036	535		TXH	CIT04,2,−100 TEST IF LESS THAN 100 AND GREATER	F3B05340
	01027	−3 00000 2 01036	536		TXL	CIT04,2,0 THAN ZERO . IF SO. COMPILE INSTRUCTION	F3B033S0
	01030	0 76600 0 00224	537		WRS	148	F3B05360
	01031	0 53400 1 01141	538		LXA	M1CON,1 SET COUNT IN IR 1 T0 ZERO	F3B05370
	01032	0 70000 1 02526	539	CIT01	CPY	CIB,1 REFILL BUFFER	F3B05380
	01033	1 77777 1 01034	540		TXI	CIT02,1,−1 RESET COUNTS FOR FIRST ENTRY IN BUFFER	F3B05390
	01034	1 00001 2 01035	541	CIT02	TXI	CIT03,2,1	F3B05400
	01035	3 00001 2 01032	542	CIT03	TXH	CIT01,2,1	F3B05410
	01036	0 53400 1 01145	543	CIT04	LXA	M1CON+4,1 COUNT OF 4 IN IR1	F3B05420
	01037	0 50000 0 01142	544		CLA	M1CON+1	F3B05430
	01040	0 62100 0 01041	545		STA	CIT05	F3B05440
	01041	0 50000 4 00000	546	CIT05	CLA	0,4 LINKAGE FROM MAIN ROUTINE PLUS 1	F3B05430
	01042	0 62100 0 01043	547		STA	CIT06	F3B05460
A	01043	0 50000 0 00000	548	CIT06	CLA	FIRST PARAMETER. 2ND.) 3RD.) AND4TH.	F3B03470
	01044	0 60100 2 02526	549		STO	CIB,2 AND STORE IN PROPER OUTPUT AREA	F3B05480
	01045	0 50000 0 01041	550		CLA	CIT05	F3B05490
	01046	0 40000 0 01142	551		ADD	M1CON+1	F3B05500
	01047	0 62100 0 01041	552		STA	CIT05 TO GET NEXT WORD	F3B05310
	01050	1 77777 2 01051	553		TXI	CIT07,2,−1 DECREASE COUNT IN IR1 AND 2 BY ONE	F3B05520
	01051	2 00001 1 01041	554	CIT07	TIX	CIT05,1,1	F3B05530
	01052	−0 63400 2 01207	555		SXD	BBOX,2 SAVE COUNT OF CIB BUFFER	F3B05540
	01053	0 56000 0 01204	556		LDQ	E1C REDTORE MQ	F3B05550
	01054	−0 53400 1 01205	557		LXD	E2C,1 RESTORE IR 1	F3B05560
	01055	−0 53400 2 01206	558		LXD	E3C,2 RESTORE IR2	F3B05570
	01056	0 02000 4 00003	559		TRA	3,4 BACK TO MAIN ROUTINE	F3B05580
	01057	0 50000 1 01231	560		CLA	TSXCOM+1,1	F3B05590
	01060	0 34000 0 01065	561		CAS	DUP	F3B05600
	01061	0 02000 0 01063	562		TRA	DIF	F3B05610
	01062	1 77776 1 00755	563		TXI	M31030,1,−2	F3B05620
	01063	0 60100 0 01065	564	DIF	STO	DUP	F3B05630
	01064	0 02000 0 00757	565		TRA	M31035	F3B05640
A	01065	0 00000 0 00000	566	DUP	HTR		F3B05650
	01066	0 07400 4 01022	567	PAT4	TSX	CIT00,4 COMPILER FOR LOAD BUTTON SEQUENCE	F3B05660
	01067	0 00000 0 01175	568	PAT5	HTR	ZERO	F3B05670
	01070	0 00000 0 01166	569	PAT6	HTR	L(RCD) RCD	F3B05680
	01071	0 00000 0 01175	570	PAT7	HTR	ZERO	F3B05690
	01072	0 00000 0 01175	571	PAT8	HTR	ZERO	F3B05700
	01073	0 07400 4 01022	572	PAT9	TSX	CIT00,4 COMPILE INSTRUCTION	F3B05710
	01074	0 00000 0 01175	573	PAT10	HTR	ZERO	F3B05720
	01075	0 00000 0 01167	574	PAT11	HTR	L(CPY) CPY	F3B05730
	01076	0 00000 0 01175	575	PAT12	HTR	ZERO	F3B05740
	01077	0 00000 0 01175	576	PAT13	HTR	ZERO	F3B05750
	01100	0 07400 4 01022	577	PAT14	TSX	CIT00,4	F3B05760
	01101	0 00000 0 01175	578	PAT15	HTR	ZERO	F3B05770
	01102	0 00000 0 01170	579	PAT16	HTR	L(XIT) XIT	F3B05780
	01103	0 00000 0 01173	580	PAT17	HTR	L(15H) +170000000000	F3B05790
	01104	0 00000 0 01177	581	PAT18	HTR	L(2D) 000002000000	F3B05800
	01105	0 07400 4 01022	582	PAT19	TSX	CIT00,4	F3B05810
	01106	0 00000 0 01175	583	PAT20	HTR	ZERO	F3B05820
	01107	0 00000 0 01171	584	PAT21	HTR	L(HPR) HPR	F3B05830
	01110	0 00000 0 01175	585	PAT22	HTR	ZERO	F3B05840
	01111	0 00000 0 01200	586	PAT23	HTR	L(7M) 7 PLUS LOC. NO. OF RCD INSTR.	F3B05850
	01112	0 07400 4 01022	587	PAT24	TSX	CIT00,4	F3B05860
	01113	0 00000 0 01175	588	PAT25	HTR	ZERO	F3B05870
	01114	0 00000 0 01167	589	PAT26	HTR	L(CPY) CPY	F3B05880
	01115	0 00000 0 01175	590	PAT27	HTR	ZERO	F3B05890
	01116	0 00000 0 01176	591	PAT28	HTR	ONED 000000000001	F3B03900
	01117	0 07400 4 01022	592	PAT29	TSX	CIT00,4	F3B05910
	01120	0 00000 0 01175	593	PAT30	HTR	ZERO	F3B05920
	01121	0 00000 0 01170	594	PAT31	HTR	L(XIT) XIT	F3B05930
	01122	0 00000 0 01175	595	PAT32	HTR	ZERO	F3B05940
	01123	0 00000 0 01175	596	PAT33	HTR	ZERO	F3B05950
	01124	0 07400 4 01022	597	PAT34	TSX	CIT00,4	F3B05960
	01125	0 00000 0 01174	598	PAT35	HTR	L(LOC) +003777000370	F3B05970
	01126	0 00000 0 01171	599	PAT36	HTR	L(HPR) HPR	F3B05980
	01127	0 00000 0 01175	600	PAT37	HTR	ZERO	F3B05990
	01130	0 00000 0 01201	601	PAT38	HTR	L(1.7) 000001000007	F3B06000
	01131	0 07400 4 01022	602	PAT39	TSX	CIT00,4	F3B06010
	01132	0 00000 0 01175	603	PAT40	HTR	ZERO	F3B06020
	01133	0 00000 0 01172	604	PAT41	HTR	L(TRA) TRA TO FINAL HALT	F3B06030
	01134	0 00000 0 01174	605	PAT42	HTR	L(LOC)	F3B06040
	01135	0 00000 0 01175	606	PAT43	HTR	ZERO	F3B06050
	01136	−0 53400 1 01207	607	PAT44	LXD	BBOX,1 RESTORE COUNT IN IR1	F3B06060
	01137	0 76600 0 00224	608	RTN	WRS	148	F3B06070
	01140	0 02000 0 00450	609	PAT46	TRA	RET1 BACK TO COMPLETE TERMINAL ROUTINE	F3B06080
			610			WORKING STORAGE AND CONSTANTS	F3B06090
		00001	611	A	EQU	1	F3B06100
		00002	612	B	EQU	2	F3B06110
		00004	613	C	EQU	4	F3B06120
	01141	+000000000000	614	L(0)	DEC	0	F3B06130
		01141	615	M1CON	SYN	L(0)	F3B06140
	01142	+000000000001	616	L(1)	DEC	1	F3B06150
	01143	+000000000002	617	L(2)	DEC	2	F3B06160
	01144	+000000000003	618	L(3)	DEC	3	F3B06170
	01145	+000000000004	619	L(4)	DEC	4	F3B06180
	01146	+000000000010	620	L(8)	DEC	8	F3B06190
	01147	+000000001300	621	L(704)	DEC	704	F3B06200
	01150	+000000001302	622	L(706)	DEC	706	F3B06210
	01151	+000001000000	623	L(1D)	DEC	1B17	F3B06220
	01152	+060000000000	624	L(6H)	OCT	60000000000	F3B06230
	01153	+120000000000	625	L(10H)	OCT	120000000000	F3B06240
	01154	+140000000000	626	L(12H)	OCT	140000000000	F3B06250
	01155	+000004000004	627	L(5.4)	OCT	4000004	F3B06260
	01156	436724000000	628	L(LXD)	BCD	1LXD000	F3B06270
	01157	626724000000	629	L(SXD)	BCD	1SXD000	F3B06280
	01160	636267000000	630	L(TSX)	BCD	1TSX000	F3B06290
	01161	436747000000	631	L(LXP)	BCD	1LXP000	F3B06300
	01162	+077777000000	632	MASK	OCT	77777000000	F3B06310
	01163	+000000077777	633	AMASK	OCT	77777	F3B06320
	01164	+100000000000	634	2BIT	OCT	100000000000	F3B06330
	01165	−300000000000	635	PMASK	OCT	700000000000	F3806340
	01166	512324000000	636	L(RCD)	BCD	1RCD000	F3B06330
	01167	234770000000	637	L(CPY)	BCD	1CPY000	F3B06360
	01170	673163000000	638	L(XIT)	BCD	1XIT000	F3806370
	01171	304751000000	639	L(HPR)	BCD	1HPR000	F3B06380
	01172	635121000000	640	L(TRA)	BCD	1TRA000	F3B06300
	01173	+170000000000	641	L(15H)	OCT	170000000000	F3B06400
	01174	+003777000370	642	L(LOC)	OCT	3777000370	F3B06410
	01175	0 00000 0 00000	643	ZERO	PZE		F3B06420
	01176	+000001000000	644	ONED	DEC	1B17	F3B06430
	01177	+000002000000	645	L(2D)	DEC	2B17	F3B06440
	01200	+000000000007	646	L(7M)	DEC	7	F3B06450
	01201	+000001000007	647	L(1.7)	OCT	1000007	F3B06460
	01202	+000000000005	648	M3ECTR	DEC	5	F3B06470
	01203	+000000000370	649	L(370)	OCT	370	F3B06475
	01204	0 00000 0 00000	650	E1C		CELL FOR SAVING MQ	F3B06480
	01205	0 00000 0 00000	651	E2C		CELL FOR SAVING IRA	F3B06490
	01206	0 00000 0 00000	652	E3C		CELL FOR SAVING IRB	F3B06500
	01207	0 00000 0 00000	653	BBOX		2S COMP OF NO OF WORDS ALREADY ENTERED IN BLOCK	F3B06510
	01210	0 00000 0 00000	654	E2M3			F3B06520
	01211	0 00000 0 00000	655	E3M3			F3B06530
			656			SENSE LITE 98 ON FOR END OF TIFGO FILE	F3B06540
	01212	0 00000 0 00000	657	TFGWC		TIFGO WORD COUNT	F3B06530
	01213	0 00000 0 00000	658	TFGCFN		CURRENT FORMULA NUM FOR TIFGO INSTRUCTION	F3806560
		01214	659	TFGCOM	BSS	4 TIFGO COMPILER	F3806570
			660			SENSE LITE 97 ON FOR END OF FIRST FILE	F3B06580
	01220	0 00000 0 00000	661	FFLWC		FIRST FILE WORD COUNT	F3B06590
	01221	0 00000 0 00000	662	FFLCFN		CURRENT FORMULA NUM FOR FIRST FILE INSTR	F3B06600
		01222	663	FFLCOM	BSS	4 FIRST FILE COMPILER	F3B06610
	01226	0 00000 0 00000	664		PZE		F3B06620
	01227	0 00000 0 00000	665		PZE		F3B06630
		01230	666	TSXCOM	BSS	502	F3B06640
		01230	667	FIXCON	SYN	TSXCOM	F3B06650
		02216	668	TFGBUF	BSS	100 TIFGO BUFFER	F3B06660
		02362	669	FFLBUF	BSS	100 FIRST FILE BUFFER	F3B06670
		02526	670	CIB	BSS	100	F3B06680
		02673	671		ORG	1467	F3B06681
	02673	0 60200 0 01226	672	TSXPT1	SLW	TSXCOM−2	F3B06682
	02674	0 07400 4 00654	673		TSX	READTF,4	F3B06683
	02675	0 07400 4 00700	674		TSX	READFF,4	F3B06684
	02676	−0 76000 0 00141	675		MSE	97	F3B06685
	02677	0 02000 0 02702	676		TRA	TSXPT2	F3B06686
	02700	0 76000 0 00141	677		PSE	97	F3B06687
	02701	0 02000 0 00076	678		TRA	M30050+3	F3B06688
	02702	0 50000 0 01230	679	TSXPT2	CLA	TSXCOM	F3B06689
	02703	0 34000 0 02362	680		CAS	FFLBUF	F3B06690
	02704	0 02000 0 00076	681		TRA	M30050+3	F3B06691
	02705	0 02000 0 00076	682		TRA	M30050+3	F3B06692
	02706	0 50000 0 01230	683		CLA	TSXCOM	F3B06693
	02707	0 62200 0 01221	684		STD	FFLCFN	F3B06694
	02710	0 07400 4 00724	685		TSX	M31000,4	F3B06695
	02711	0 02000 0 00076	686		TRA	M30050+3	F3B06696