1			704 FORTRAN MASTER RECORD CARD / 1 PRIME PART A = F0220000,	F1P00010
		00000	2		ORG	0	F1P00020
	00000	0 01146 0 01146	3		PZE	ORG1PA,,ORG1PA	F1P00030
	00001	0 00000 0 03161	4		PZE	END1PA−1	F1P00040
			5				F1P00050
			6			THIS IS PART A OF 2 PARTS OF SECTION ONE PRIME	F1P00060
			7				F1P00070
		01146	8	ORG1PA	ORG	614	F1P00080
	01146	0 76100 0 00000	9		NOP	TO PERMIT STOP FOR TESTING RUNS,	F1P00090
	01147	0 77000 0 00204	10	PARTA	WEF	4	F1P00100
			11			TABLE SAVING PROGRAM	F1P00110
			12			WRITE FIXCON WORD COUNT ON DRUM	F1P00120
	01150	0 76600 0 00302	13		WRS	194	F1P00130
	01151	0 50000 0 00414	14		CLA	FXCNIX−3	F1P00140
	01152	0 77100 0 00021	15		ARS	17	F1P00150
	01153	0 60100 0 02107	16		STO	WORKCL	F1P00160
	01154	0 70000 0 02107	17		CPY	WORKCL	F1P00170
	01155	0 70000 0 02107	18		CPY	WORKCL	F1P00180
			19			PROGRAM FOR SAVING COMPAIL TABLE	F1P00190
	01156	−0 53400 2 00637	20		LXD	BBOX,2	F1P00200
	01157	3 00000 2 01161	21		TXH	A1PTS,2,0	F1P00210
	01160	0 07400 4 00004	22		TSX	DIAG,4 STOP FOR NO INSTRUCTIONS COMPILED	F1P00220
	01161	0 76600 0 00223	23	A1PTS	WRS	147	F1P00230
	01162	0 53400 1 07730	24		LXA	L(0),1 SAVE	F1P00240
	01163	0 70000 1 00640	25	AA3PTS	CPY	CIB,1 CIT	F1P00250
	01164	1 77777 1 01165	26		TXI	AA1PTS,1,−1 BUFFER	F1P00260
	01165	1 00001 2 01166	27	AA1PTS	TXI	AA2PTS,2,1	F1P00270
	01166	3 00000 2 01163	28	AA2PTS	TXH	AA3PTS,2,0	F1P00280
	01167	0 77000 0 00223	29		WEF	147	F1P00290
	01170	0 77200 0 00223	30		REW	147	F1P00300
	01171	−0 76000 0 00012	31	A5PTS	RTT	TURN OFF TAPE CHECK	F1P00310
	01172	0 76100 0 00000	32		NOP	INDICATOR AND LIGHTS	F1P00320
	01173	0 53400 1 07734	33		LXA	L(4),1	F1P00330
	01174	0 53400 4 07730	34		LXA	L(0),4	F1P00340
	01175	0 76200 0 00223	35	A14PTS	RDS	147	F1P00350
	01176	0 70000 4 03163	36	A6PTS	CPY	COMP,4 COPY A RECORD OF COMPILED	F1P00360
	01177	1 77777 4 01176	37		TXI	A6PTS,4,−1 INSTRUCTIONS INTO STORAGE	F1P00370
	01200	0 02000 0 01222	38		TRA	A10PTS EOF	F1P00380
	01201	0 76600 0 00333	39		WRS	219 EOR	F1P00390
	01202	−0 76000 0 00012	40		RTT		F1P00400
	01203	0 02000 0 01217	41		TRA	A11PTS TAPE CHECK ON	F1P00410
	01204	0 76600 0 00222	42		WRS	146	F1P00420
	01205	0 50000 0 02245	43		CLA	CMPREC COUNT EACH	F1P00430
	01206	0 40000 0 07731	44		ADD	L(1) COMPAIL	F1P00440
	01207	0 60100 0 02245	45		STO	CMPREC RECORD	F1P00450
	01210	0 53400 1 07732	46		LXA	L(2),1	F1P00460
	01211	0 53400 2 07730	47		LXA	L(0),2 TRANSFER RECORD	F1P00470
	01212	0 70000 2 03163	48	A9PTS	CPY	COMP,2 FROM STORAGE	F1P00480
	01213	1 77777 2 01214	49		TXI	A7PTS,2,−1 TO TAPE 2	F1P00490
	01214	1 00001 4 01215	50	A7PTS	TXI	A8PTS,4,1	F1P00500
	01215	3 00000 4 01212	51	A8PTS	TXH	A9PTS,4,0	F1P00510
	01216	0 02000 0 01175	52		TRA	A14PTS	F1P00520
	01217	0 76401 0 00223	53	A11PTS	BST	147,0,1 PREPARE TO READ RECORD AGAIN	F1P00530
	01220	2 00001 1 01174	54		TIX	A14PTS−1,1,1 TEST FOR 2 TAPE CHECKS,	F1P00540
	01221	0 07400 4 00004	55		TSX	DIAG,4 STOP FOR 5TH READ CHECK	F1P00550
	01222	0 77000 0 00222	56	A10PTS	WEF	146 END OF COMPAIL ON TAPE 2	F1P00560
	01223	0 76600 0 00222	57		WRS	146	F1P00570
	01224	0 70000 0 02245	58		CPY	CMPREC	F1P00580
			59			PROGRAM TO SAVE FORSUB TABLE	F1P00590
	01225	−0 53400 1 00470	60		LXD	BK,1	F1P00600
	01226	−3 00000 1 01234	61		TXL	WEF,1,0 TEST FOR EMPTY TABLE	F1P00610
	01227	0 53400 2 07730	62		LXA	L(0),2	F1P00620
	01230	0 70000 2 00471	63		CPY	FORSUB,2	F1P00630
	01231	1 77777 2 01232	64		TXI	A15PTS,2,−1	F1P00640
	01232	1 00001 1 01233	65	A15PTS	TXI	A15PTS+1,1,1	F1P00650
	01233	3 00000 1 01230	66		TXH	A15PTS−2,1,0	F1P00660
	01234	0 77000 0 00222	67	WEF	WEF	146	F1P00670
			68			PROGRAM FOR SAVING FLOCON TABLE	F1P00680
	01235	−0 53400 4 00421	69	FL00	LXD	FLCNIX−3,4 (N)	F1P00690
	01236	−0 75400 4 00000	70		PXD	0,4	F1P00700
	01237	0 77100 0 00022	71		ARS	18	F1P00710
	01240	0 60100 0 02244	72		STO	FLSIZE LOAD FLSIZE WITH N	F1P00720
	01241	−3 00000 4 01276	73		TXL	FL09,4,0 IS TABLE EMPTY	F1P00730
	01242	−0 50000 0 07742	74		CAL	MSK	F1P00740
	01243	0 32000 0 00422	75		ANS	FLCNIX−2	F1P00750
	01244	0 32000 0 00421	76		ANS	FLCNIX−3	F1P00760
	01245	0 50000 0 00421	77		CLA	FLCNIX−3 GET NUMBER OF WORDS IN FLOCON INCLUDING CK SUMS	F1P00770
	01246	0 40200 0 00422	78		SUB	FLCNIX−2	F1P00780
	01247	0 62100 0 01256	79		STA	FL04 SAVE L	F1P00790
	01250	0 53400 2 07735	80	FL01	LXA	L(5),2 SET TO TRY FIVE TIMES IF CK SUM FAILS	F1P00800
	01251	0 53400 4 01256	81	FL02	LXA	FL04,4 (L)	F1P00810
	01252	0 76200 0 00302	82		RDR	2	F1P00820
	01253	0 46000 0 00422	83		LDA	FLCNIX−2	F1P00830
	01254	0 70000 4 05453	84	FL03	CPY	OTA+450,4 COPY FLOCON FROM DRUM	F1P00840
	01255	2 00001 4 01254	85		TIX	FL03,4,1	F1P00850
	01256	−0 75400 0 00000	86	FL04	PXD	**,0	F1P00860
	01257	0 53400 4 01256	87		LXA	FL04,4 COMPUTE CK SUM OF ENTRIES VERSUS CK SUM OF CK	F1P00870
	01260	0 53400 1 07737	88		LXA	L(50),1 SUMS. TABLE IS OF FORM A CK SUM FOR FIFTY WORDS	F1P00880
	01261	0 36100 4 05453	89	FL05	ACL	OTA+450,4 FOLLOWED BY THE FIFTY WORDS	F1P00890
	01262	0 76000 0 00006	90		COM		F1P00900
	01263	−2 00001 4 01307	91		TNX	ERROR,4,1	F1P00910
	01264	0 36100 4 05453	92	FL06	ACL	OTA+450,4	F1P00920
	01265	−2 00001 4 01271	93		TNX	FL07,4,1 FINAL ENRTY , GET OUT OF CK SUM LOOP	F1P00930
	01266	2 00001 1 01264	94		TIX	FL06,1,1	F1P00940
	01267	0 76000 0 00006	95		COM		F1P00950
	01270	1 00061 1 01261	96		TXI	FL05,1,49	F1P00960
	01271	0 76000 0 00006	97	FL07	COM		F1P00970
	01272	0 10000 0 01275	98		TZE	FL08 TEST CK SUM	F1P00980
	01273	2 00001 2 01251	99		TIX	FL02,2,1 CK SUM FAILED, TRY AGAIN	F1P00990
	01274	0 07400 4 00004	100		TSX	DIAG,4 CK SUM FAILED FIVE TIMES	F1P01000
	01275	0 53400 4 01256	101	FL08	LXA	FL04,4 (L)	F1P01010
	01276	0 76600 0 00222	102	FL09	WTB	2	F1P01020
	01277	0 70000 0 02244	103		CPY	FLSIZE	F1P01030
	01300	−3 00000 4 01310	104		TXL	PROFOR,4,0 IS FLOCON EMPTY	F1P01040
	01301	0 53400 1 07737	105		LXA	L(50),1	F1P01050
	01302	−2 00001 4 01307	106	FL10	TNX	ERROR,4,1	F1P01060
	01303	0 70000 4 05453	107	FL11	CPY	OTA+450,4	F1P01070
	01304	−2 00001 4 01310	108		TNX	PROFOR,4,1 FINISHED, GET OUT OF LOOP	F1P01080
	01305	2 00001 1 01303	109		TIX	FL11,1,1	F1P01090
	01306	1 00061 1 01302	110		TXI	FL10,1,49	F1P01100
	01307	0 07400 4 00004	111	ERROR	TSX	DIAG,4 INDEX RAN OUT AT CK SUM	F1P01110
			112			ROUTINE TO PROCESS FORMAT TABLE	F1P01120
	01310	0 07400 1 07505	113	PROFOR	TSX	TAP00,1	F1P01130
	01311	0 00000 0 00012	114		HTR	10	F1P01140
	01312	0 00000 0 04551	115			OTA	F1P01150
	01313	0 07400 1 07656	116		TSX	WAT00,1	F1P01160
	01314	0 00000 0 00012	117		HTR	10	F1P01170
	01315	0 00000 0 04551	118			OTA	F1P01180
			119			ROUTINE TO CONVERT DIM TABLES TO SIZ TABLE.	F1P01190
	01316	−0 53400 4 00452	120	ADD00	LXD	DIM1IX−3,4 ENTRY COUNT	F1P01200
	01317	−3 00000 4 01346	121		TXL	ADD07,4,0 TABLE EMPTY	F1P01210
	01320	0 53400 2 07735	122	ADD01	LXA	L(5),2	F1P01220
	01321	0 76200 0 00303	123	ADD02	RDR	3	F1P01230
	01322	0 53400 1 07730	124		LXA	L(0),1	F1P01240
	01323	0 46000 0 00453	125		LDA	ORGDM1	F1P01250
	01324	−0 75400 0 00000	126		PXD	0,0	F1P01260
	01325	0 70000 1 04551	127	ADD03	CPY	OTA,1 COPY NAME	F1P01270
	01326	0 70000 1 04552	128		CPY	OTA+1,1 COPY N1	F1P01280
	01327	1 77776 1 01330	129		TXI	ADD04,1,−2	F1P01290
	01330	−0 70000 0 02106	130	ADD04	CAD	GARBGE COPY AND SUM CK SUMS	F1P01300
	01331	2 00001 4 01325	131		TIX	ADD03,4,1	F1P01310
	01332	0 76000 0 00006	132		COM		F1P01320
	01333	−0 53400 4 00452	133		LXD	DIM1IX−3,4	F1P01330
	01334	0 53400 1 07730	134		LXA	L(0),1	F1P01340
	01335	0 36100 1 04551	135	ADD05	ACL	OTA,1 SUM ENTRIES	F1P01350
	01336	0 36100 1 04552	136		ACL	OTA+1,1	F1P01360
	01337	1 77776 1 01340	137		TXI	ADD06,1,−2	F1P01370
	01340	2 00001 4 01335	138	ADD06	TIX	ADD05,4,1	F1P01380
	01341	0 76000 0 00006	139		COM		F1P01390
	01342	0 10000 0 01347	140		TZE	ADD08	F1P01400
	01343	−0 53400 4 00452	141		LXD	DIM1IX−3,4 CHECK SUM ERROR, TRY AGAIN	F1P01410
	01344	2 00001 2 01321	142		TIX	ADD02,2,1	F1P01420
	01345	0 07400 4 00004	143		TSX	DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM	F1P01430
	01346	0 53400 1 07730	144	ADD07	LXA	L(0),1	F1P01440
	01347	−0 63400 1 02110	145	ADD08	SXD	NEWBAS,1	F1P01450
			146			NOW READ DIM2 TABLE	F1P01460
	01350	−0 53400 4 00457	147		LXD	DIM2IX−3,4	F1P01470
	01351	−3 00000 4 01413	148		TXL	ADD18,4,0 TABLE EMPTY	F1P01480
	01352	0 53400 2 07735	149	ADD09	LXA	L(5),2	F1P01490
	01353	0 76200 0 00303	150	ADD10	RDR	3	F1P01500
	01354	−0 53400 1 02110	151		LXD	NEWBAS,1	F1P01510
	01355	0 46000 0 00460	152		LDA	ORGDM2	F1P01520
	01356	−0 75400 0 00000	153		PXD	0,0	F1P01530
	01357	0 70000 1 04551	154	ADD11	CPY	OTA,1 COPY NAME	F1P01540
	01360	0 70000 1 04552	155		CPY	OTA+1,1 COPY N1 N2	F1P01550
	01361	1 77776 1 01362	156		TXI	ADD12,1,−2	F1P01560
	01362	−0 70000 0 02106	157	ADD12	CAD	GARBGE COPY AND SUM CK SUMS	F1P01570
	01363	2 00001 4 01357	158		TIX	ADD11,4,1	F1P01580
	01364	0 76000 0 00006	159		COM		F1P01590
	01365	−0 53400 4 00457	160		LXD	DIM2IX−3,4	F1P01600
	01366	−0 53400 1 02110	161		LXD	NEWBAS,1	F1P01610
	01367	0 36100 1 04551	162	ADD13	ACL	OTA,1	F1P01620
	01370	0 36100 1 04552	163		ACL	OTA+1,1	F1P01630
	01371	1 77776 1 01372	164		TXI	ADD14,1,−2	F1P01640
	01372	2 00001 4 01367	165	ADD14	TIX	ADD13,4,1	F1P01650
	01373	0 76000 0 00006	166		COM		F1P01660
	01374	0 10000 0 01400	167		TZE	ADD15	F1P01670
	01375	−0 53400 4 00457	168		LXD	DIM2IX−3,4 CK SUM ERROR TRY AGAIN	F1P01680
	01376	2 00001 2 01353	169		TIX	ADD10,2,1	F1P01690
	01377	0 07400 4 00004	170		TSX	DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM	F1P01700
	01400	−0 53400 4 00457	171	ADD15	LXD	DIM2IX−3,4	F1P01710
	01401	−0 53400 1 02110	172		LXD	NEWBAS,1	F1P01720
	01402	0 60000 0 02107	173		STZ	WORKCL	F1P01730
	01403	0 50000 1 04552	174	ADD16	CLA	OTA+1,1	F1P01740
	01404	0 62100 0 02107	175		STA	WORKCL	F1P01750
	01405	0 76500 0 00065	176		LRS	53	F1P01760
	01406	0 20000 0 02107	177		MPY	WORKCL N1*N2	F1P01770
	01407	−0 60000 1 04552	178		STQ	OTA+1,1	F1P01780
	01410	1 77776 1 01411	179		TXI	ADD17,1,−2	F1P01790
	01411	2 00001 4 01403	180	ADD17	TIX	ADD16,4,1	F1P01600
	01412	−0 63400 1 02110	181		SXD	NEWBAS,1 UPDATE NEWBAS FOR DIM3 ROUTINE	F1P01810
			182			NOW READ DIM3 TABLE.	F1P01820
	01413	−0 53400 4 00464	183	ADD18	LXD	DIM3IX−3,4	F1P01830
	01414	−3 00000 4 01462	184		TXL	ADD28,4,0 DIM3 TABLE EMPTY	F1P01840
	01415	0 53400 2 07735	185	ADD19	LXA	L(5),2	F1P01850
	01416	0 76200 0 00303	186	ADD20	RDR	3	F1P01860
	01417	−0 53400 1 02110	187		LXD	NEWBAS,1	F1P01870
	01420	0 46000 0 00465	188		LDA	ORGDM3	F1P01680
	01421	−0 75400 0 00000	189		PXD	0,0	F1P01890
	01422	0 70000 1 04551	190	ADD21	CPY	OTA,1	F1P01900
	01423	0 70000 1 04552	191		CPY	OTA+1,1	F1P01910
	01424	0 70000 4 02243	192		CPY	BUFFER,4	F1P01920
	01425	1 77776 1 01426	193		TXI	ADD22,1,−2	F1P01930
	01426	−0 70000 0 02106	194	ADD22	CAD	GARBGE	F1P01940
	01427	2 00001 4 01422	195		TIX	ADD21,4,1	F1P01950
	01430	0 76000 0 00006	196		COM		F1P01960
	01431	−0 53400 4 00464	197		LXD	DIM3IX−3,4	F1P01970
	01432	−0 53400 1 02110	198		LXD	NEWBAS,1	F1P01980
	01433	0 36100 1 04551	199	ADD23	ACL	OTA,1	F1P01990
	01434	0 36100 1 04552	200		ACL	OTA+1,1	F1P02000
	01435	0 36100 4 02243	201		ACL	BUFFER,4	F1P02010
	01436	1 77776 1 01437	202		TXI	ADD24,1,−2	F1P02020
	01437	2 00001 4 01433	203	ADD24	TIX	ADD23,4,1	F1P02030
	01440	0 76000 0 00006	204		COM		F1P02040
	01441	0 10000 0 01445	205		TZE	ADD25	F1P02050
	01442	−0 53400 4 00464	206		LXD	DIM3IX−3,4	F1P02060
	01443	2 00001 2 01416	207		TIX	ADD20,2,1 CK SUM FAILED TRY AGAIN	F1P02070
	01444	0 07400 4 00004	208		TSX	DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM	F1P02080
	01445	−0 53400 4 00464	209	ADD25	LXD	DIM3IX−3,4	F1P02090
	01446	−0 53400 1 02110	210		LXD	NEWBAS,1	F1P02100
	01447	0 50000 1 04552	211	ADD26	CLA	OTA+1,1	F1P02110
	01450	0 60000 0 02107	212		STZ	WORKCL	F1P02120
	01451	0 62100 0 02107	213		STA	WORKCL	F1P02130
	01452	0 76500 0 00065	214		LRS	53	F1P02140
	01453	0 20000 0 02107	215		MPY	WORKCL N1*N2	F1P02150
	01454	0 20000 4 02243	216		MPY	BUFFER,4 N3*(N1*N2)	F1P02160
	01455	−0 60000 1 04552	217		STQ	OTA+1,1	F1P02170
	01456	1 77776 1 01457	218		TXI	ADD27,1,−2	F1P02160
	01457	2 00001 4 01447	219	ADD27	TIX	ADD26,4,1	F1P02190
	01460	0 76100 0 00000	220		NOP	NOT USED.	F1P02200
	01461	0 76100 0 00000	221		NOP	NOT USED.	F1P02210
			222			NOW WRITE SIZ TABLE ON TAPE 2.	F1P02220
	01462	−0 75400 1 00000	223	ADD28	PXD	0,1	F1P02230
	01463	0 76000 0 00006	224		COM		F1P02240
	01464	0 40000 0 07740	225		ADD	DECR1	F1P02250
	01465	−0 73400 4 00000	226		PDX	0,4	F1P02260
	01466	−0 75400 4 00000	227		PXD	0,4	F1P02270
	01467	0 77100 0 00022	228		ARS	18	F1P02280
	01470	0 60100 0 02107	229		STO	WORKCL	F1P02290
	01471	0 40000 0 07731	230		ADD	L(1)	F1P02300
	01472	0 73400 1 00000	231		PAX	0,1	F1P02310
	01473	0 53400 2 07730	232		LXA	L(0),2	F1P02320
	01474	−0 75400 0 00000	233		PXD	0,0	F1P02330
	01475	0 36100 2 04551	234	ADD33	ACL	OTA,2 COMPUTE CK SUM FOR SIZ TABLE	F1P02340
	01476	1 77777 2 01477	235		TXI	ADD32,2,−1	F1P02350
	01477	2 00001 4 01475	236	ADD32	TIX	ADD33,4,1	F1P02360
	01500	0 60200 2 04551	237		SLW	OTA,2	F1P02370
	01501	0 50000 0 02101	238		CLA	DMASK	F1P02380
	01502	0 32000 0 00030	239		ANS	EIFNO	F1P02390
	01503	0 76600 0 00222	240		WTB	2	F1P02400
	01504	0 70000 0 00030	241		CPY	EIFNO	F1P02410
	01505	0 70000 0 02107	242		CPY	WORKCL	F1P02420
	01506	−3 00001 1 01513	243		TXL	ADD31,1,1	F1P02430
	01507	0 53400 2 07730	244		LXA	L(0),2	F1P02440
	01510	0 70000 2 04551	245	ADD29	CPY	OTA,2	F1P02450
	01511	1 77777 2 01512	246		TXI	ADD30,2,−1	F1P02460
	01512	2 00001 1 01510	247	ADD30	TIX	ADD29,1,1	F1P02470
	01513	0 77000 0 00202	248	ADD31	WEF	2	F1P02480
	01514	0 76600 0 00222	249		WTB	2 WRITE SENSE SWITCH SETTINGS AS RE-	F1P02490
	01515	0 53400 1 07735	250		LXA	L(5),1 CORD ONE, FILE FIVE, TAPE TWO	F1P02500
	01516	0 70000 1 00036	251	X0010	CPY	ENDI1+5,1	F1P02510
	01517	2 00001 1 01516	252		TIX	X0010,1,1	F1P02520
	01520	0 07400 1 07505	253		TSX	TAP00,1 ASSEMBLE AND WRITE SUBDEF TABLE	F1P02530
	01521	0 00000 0 00013	254			11	F1P02540
	01522	0 00000 0 04551	255			OTA	F1P02550
	01523	0 07400 1 07656	256		TSX	WAT00,1	F1P02560
	01524	0 00000 0 00013	257			11	F1P02570
	01525	0 00000 0 04551	258			OTA	F1P02580
	01526	0 07400 1 07505	259		TSX	TAP00,1 ASSEMBLE AND WRITE COMMON TABLE	F1P02590
	01527	0 00000 0 00014	260			12	F1P02600
	01530	0 00000 0 04551	261			OTA	F1P02610
	01531	0 07400 1 07656	262		TSX	WAT00,1	F1P02620
	01532	0 00000 0 00014	263			12	F1P02630
	01533	0 00000 0 04551	264			OTA	F1P02640
	01534	0 07400 1 07505	265		TSX	TAP00,1 ASSEMBLE AND WRITE TABLE OF HOLLERITH ARGS	F1P02650
	01535	0 00000 0 00015	266			13	F1P02660
	01536	0 00000 0 04551	267			OTA	F1P02670
	01537	0 07400 1 07656	268		TSX	WAT00,1	F1P02680
	01540	0 00000 0 00015	269			13	F1P02690
	01541	0 00000 0 04551	270			OTA	F1P02700
	01542	0 07400 1 07505	271		TSX	TAP00,1 ASSEMBLE TEIFNO FROM TAPE 4	F1P02710
	01543	0 00000 0 00000	272		HTR	0	F1P02720
	01544	0 00000 0 04551	273		HTR	OTA	F1P02730
	01545	0 60000 0 02105	274		STZ	PAT15 INSURE DECREMENT IS CLEAR	F1P02740
	01546	−0 53400 4 04550	275		LXD	OTA−1,4 LENGTH OF TEIFNO INTO I.R.4	F1P02750
	01547	−3 00001 4 01606	276		TXL	WRITE,4,1 IS TEIFNO EMPTY OR IS THERE A SINGLE ENTRY	F1P02760
	01550	−0 53400 1 02103	277		LXD	PAT13,1 INITIALIZE I.R. TO STEP THROUGH TABLE	F1P02770
	01551	−0 63400 4 02104	278		SXD	PAT14,4 SAVE WORD COUNT	F1P02780
	01552	−0 53400 4 02104	279	ISPLUS	LXD	PAT14,4 REINTIALIZE FOR FURTHER SEARCHING	F1P02790
	01553	0 50000 1 04551	280	NEXT	CLA	OTA,1 PICK UP NEXT ENTRY IN TEIFNO	F1P02800
	01554	0 12000 0 01561	281		TPL	MASK HAS THIS BEEN PROCESSED	F1P02810
	01555	0 60200 1 04551	282		SLW	OTA,1	F1P02820
	01556	1 77777 1 01557	283		TXI	ISTHRU,1,−1 NO, SET I.R. TO LOOK AT NEXT ENTRY	F1P02830
	01557	2 00001 4 01553	284	ISTHRU	TIX	NEXT,4,1 HAVE ALL ENTRIES BEEN EXAMINED	F1P02840
	01560	0 02000 0 01606	285		TRA	WRITE YES, FINISHED	F1P02850
	01561	0 62100 0 02105	286	MASK	STA	PAT15 STORE COMPERAND	F1P02860
	01562	1 77777 1 01563	287		TXI	RECOMP,1,−1 SET I.R.S TO START COMPARISON	F1P02870
	01563	−0 75400 1 00000	288	RECOMP	PXD	0,1	F1P02880
	01564	−0 73400 2 00000	289		PDX	0,2	F1P02890
	01565	−2 00001 4 01606	290		TNX	WRITE,4,1 HAVE ALL ENTRIES BEEN EXAMINED	F1P02900
	01566	−0 63400 4 02104	291		SXD	PAT14,4 SAVE NUMBER OF ENTRIES YET TO BE TREATED	F1P02910
	01567	0 50000 2 04551	292	PAT16	CLA	OTA,2 PICK UP ENTRY TO BE COMPARED	F1P02920
	01570	−0 12000 0 01575	293		TMI	NODUP NO SEARCH NECESSARY IF NEGATIVE	F1P02930
	01571	−0 32000 0 02102	294		ANA	PAT11 ISOLATE EXTERNAL FORMULA NUMBER	F1P02940
	01572	0 34000 0 02105	295		CAS	PAT15 COMPARE TO REMAINING ENTRIES	F1P02950
	01573	0 02000 0 01575	296		TRA	NODUP NO DUPLICATE	F1P02960
	01574	0 02000 0 01600	297		TRA	PAT9 DUPLICATE	F1P02970
	01575	1 77777 2 01576	298	NODUP	TXI	PAT8,2,−1 NO DUPLICATE, SET I.R. TO OBTAIN NEXT ENTRY	F1P02980
			299			FOR COMPARISON	F1P02990
	01576	2 00001 4 01567	300	PAT8	TIX	PAT16,4,1 HAVE ALL ENTRIES BEEN COMPARED	F1P03000
	01577	0 02000 0 01552	301		TRA	ISPLUS YES	F1P03010
	01600	0 50000 2 04551	302	PAT9	CLA	OTA,2 FLAG DUPLICATE ENTRY NEGATIVE	F1P03020
	01601	−0 76000 0 00003	303		SSM		F1P03030
	01602	0 60100 2 04551	304		STO	OTA,2	F1P03040
	01603	0 50200 1 04550	305		CLS	OTA−1,1	F1P03050
	01604	0 60100 1 04550	306		STO	OTA−1,1	F1P03060
	01605	0 02000 0 01552	307		TRA	ISPLUS	F1P03070
	01606	0 07400 1 07656	308	WRITE	TSX	WAT00,1 WRITE TEIFNO ON TAPE	F1P03080
	01607	0 00000 0 00000	309		HTR	0	F1P03090
	01610	0 00000 0 04551	310			OTA	F1P03100
	01611	0 07400 1 07505	311		TSX	TAP00,1 ASSEMBLE TIFGO	F1P03110
	01612	0 00000 0 00002	312		HTR	2	F1P03120
	01613	0 00000 0 03163	313	L(2TA)	HTR	2TA	F1P03130
			314			START PROGRAM FOR MODIFICATION OF TIFGO WITH TEIFNO	F1P03140
	01614	0 50000 0 03162	315	MFGTP	CLA	2TA−1 GET NUMBER OF WORDS IN 2TA.	F1P03150
	01615	0 10000 0 01751	316		TZE	WFG00 EXIT FOR NO ENTRIES IN TABLE,	F1P03160
	01616	−0 73400 2 00000	317		PDX	0,2 SET INDEX B TO NUMBER OF WORDS,	F1P03170
	01617	0 77100 0 00022	318		ARS	18 COMPUTE	F1P03180
	01620	0 40000 0 01613	319		ADD	L(2TA) 2TA	F1P03190
	01621	0 62100 0 01646	320		STA	MFG00 PLUS	F1P03200
	01622	0 62100 0 01663	321		STA	MFG03 NUMBER	F1P03210
	01623	0 62100 0 01665	322		STA	MFG05 OF	F1P03220
	01624	0 62100 0 01701	323		STA	MFG08 WORDS	F1P03230
	01625	0 62100 0 01702	324		STA	MFG09 IN	F1P03240
	01626	0 62100 0 01716	325		STA	MFG12 2TA	F1P03250
	01627	0 62100 0 01740	326		STA	MFG18 AND	F1P03260
	01630	0 62100 0 01747	327		STA	MFG20 INITIALIZE ADDRESSES	F1P03270
	01631	0 50000 0 04550	328		CLA	OTA−1 GET NUM WORDS IN OTA	F1P03280
	01632	−0 10000 0 01634	329		TNZ	MFGOK TABLE EXISTS	F1P03290
	01633	0 02000 0 07751	330		TRA	TEIFER STOP FOR NO TABLE IN OTA	F1P03300
	01634	0 77100 0 00022	331	MFGOK	ARS	18 NUMBER WORDS PUT IN AC ADDRESS	F1P03310
	01635	0 40000 0 07750	332		ADD	L(OTA) ADD OTA ORIGIN	F1P03320
	01636	0 62100 0 01652	333		STA	MFG01 INITIALIZE ADDRESSES WITH	F1P03330
	01637	0 62100 0 01661	334		STA	MFG02 OTA + NUM WORDS	F1P03340
	01640	0 62100 0 01670	335		STA	MFG06	F1P03350
	01641	0 62100 0 01677	336		STA	MFG07	F1P03360
	01642	0 62100 0 01706	337		STA	MFG10	F1P03370
	01643	0 62100 0 01715	338		STA	MFG11	F1P03380
	01644	0 62100 0 01736	339		STA	MFG17	F1P03390
	01645	0 62100 0 01745	340		STA	MFG19	F1P03400
	01646	0 50000 2 00000	341	MFG00	CLA	0,2 ADDR IS 2TA + NUM WORDS IN 2TA. (1)	F1P03410
	01647	0 12000 0 01722	342		TPL	MFG14 SIGN IS PLUS.	F1P03420
	01650	0 62100 0 07746	343		STA	E3 SAVE A1.	F1P03430
	01651	−0 53400 4 04550	344		LXD	OTA−1,4 SET INDEX C TO NUM WORDS IN OTA.(2)	F1P03440
	01652	0 50000 4 00000	345	MFG01	CLA	0,4 AL PRIME AND AL GO TO AC.	F1P03450
	01653	−0 32000 0 07742	346		ANA	MSK ERASE AL PRIME IN AC.	F1P03460
	01654	0 40200 0 07746	347		SUB	E3 COMPARE TEIFNO ARGUMENT WITH A1.	F1P03470
	01655	0 10000 0 01661	348		TZE	MFG02 AL EQUALS ARGUMENT.	F1P03480
	01656	2 00001 4 01652	349		TIX	MFG01,4,1 COMP AL VS NEXT TEIFNO ENTRY. (3A1)	F1P03490
	01657	0 50000 0 02103	350		CLA	PAT13	F1P03500
	01660	0 02000 0 01663	351		TRA	MFG03	F1P03510
	01661	0 50000 4 00000	352	MFG02	CLA	0,4 A1 PRIME AND A1L GO TO AC.	F1P03520
	01662	0 77100 0 00022	353		ARS	18 A1 PRIME GOES TO ADDRESS OF AC	F1P03530
	01663	0 62100 2 00000	354	MFG03	STA	0,2 (I) A1 PRIME REPLACES A1	F1P03540
	01664	1 77777 2 01665	355	MFG04	TXI	MFG05,2,−1 TAKE WORD 2 OF TIFGO ENTRY	F1P03550
	01665	0 50000 2 00000	356	MFG05	CLA	0,2 (1). AC DECK IS A2, ADDR IS A3	F1P03560
	01666	0 62100 0 07746	357		STA	E3 SAVE A3	F1P03570
	01667	−0 53400 4 04550	358		LXD	OTA−1,4 (2)	F1P03580
	01670	0 50000 4 00000	359	MFG06	CLA	0,4 A3 PRIME AND A3 GO TO AC	F1P03590
	01671	−0 32000 0 07742	360		ANA	MSK ERASE A3 PRIME IN AC	F1P03600
	01672	0 40200 0 07746	361		SUB	E3 COMPARE TEIFNO ARGUMENT WITH A3	F1P03610
	01673	0 10000 0 01677	362		TZE	MFG07 A3 EQUALS ARGUMENT	F1P03620
	01674	2 00001 4 01670	363		TIX	MFG06,4,1 (3A3)	F1P03630
	01675	0 50000 0 02103	364		CLA	PAT13	F1P03640
	01676	0 02000 0 01701	365		TRA	MFG08	F1P03650
	01677	0 50000 4 00000	366	MFG07	CLA	0,4 A3 PRIME AND A3 GO TO AC	F1P03660
	01700	0 77100 0 00022	367		ARS	18 A3 PRIME GOES TO ADDR OF AC	F1P03670
	01701	0 62100 2 00000	368	MFG08	STA	0,2 (1). A3 PRIME REPLACES A3	F1P03680
	01702	0 50000 2 00000	369	MFG09	CLA	0,2 (1). A2 AND A3 PRIME GO TO AC	F1P03690
	01703	0 77100 0 00022	370		ARS	18 A2 GOES TO ADDR OF AC	F1P03700
	01704	0 62100 0 07746	371		STA	E3 SAVE A2	F1P03710
	01705	−0 53400 4 04550	372		LXD	OTA−1,4 (2)	F1P03720
	01706	0 50000 4 00000	373	MFG10	CLA	0,4 A2 PRIME AND A2 GO TO AC	F1P03730
	01707	−0 32000 0 07742	374		ANA	MSK ERASE A2 PRIME IN AC	F1P03740
	01710	0 40200 0 07746	375		SUB	E3 COMPARE TEIFNO ARGUMENT WITH A2	F1P03750
	01711	0 10000 0 01715	376		TZE	MFG11 A2 EQUALS ARGUMENT	F1P03760
	01712	2 00001 4 01706	377		TIX	MFG10,4,1 (3A2)	F1P03770
	01713	0 50000 0 02103	378		CLA	PAT13	F1P03780
	01714	0 02000 0 01716	379		TRA	MFG12	F1P03790
	01715	0 50000 4 00000	380	MFG11	CLA	0,4 A2 PRIME AND A2 GO TO AC	F1P03800
	01716	0 62200 2 00000	381	MFG12	STD	0,2 (1) A2 PRIME REPLACES A2	F1P03810
	01717	2 00001 2 01646	382		TIX	MFG00,2,1 TAKE FIRST WORD OF NEXT 2TA ENTRY	F1P03820
	01720	2 00001 2 01717	383	MFG13	TIX	MFG13−1,2,1 TAKE SECOND WORD OF 2TA ENTRY	F1P03830
	01721	0 02000 0 01751	384		TRA	WFG00 EXIT TO TAPE WRITING PROGRAM	F1P03840
	01722	0 73400 4 00000	385	MFG14	PAX	0,4 INTEGER N GOES TO INDEX C	F1P03850
	01723	0 02000 4 01733	386		TRA	MFG14+9,4	F1P03860
	01724	0 02000 0 01720	387		TRA	MFG13 N EQUALS 7 NO MODIFICATION	F1P03670
	01725	0 02000 0 01734	388		TRA	MFG15 N EQUALS 6	F1P03880
	01726	0 02000 0 01664	389		TRA	MFG04 N EQUALS 5	F1P03890
	01727	0 02000 0 01664	390		TRA	MFG04 N EQUALS 4	F1P03900
	01730	0 02000 0 01664	391		TRA	MFG04 N EQUALS 3	F1P03910
	01731	0 02000 0 01720	392		TRA	MFG13 N EQUALS 2 NO MODIFICATION	F1P03920
	01732	0 02000 0 01720	393		TRA	MFG13 N EQUALS 1 NO MODIFICATION	F1P03930
	01733	0 02000 0 01734	394		TRA	MFG15 N EQUALS 0	F1P03940
	01734	1 77777 2 01735	395	MFG15	TXI	MFG16,2,−1 TAKE WORD 2 OF 2TA ENTRY	F1P03950
	01735	−0 53400 4 04550	396	MFG16	LXD	OTA−1,4 (2)	F1P03960
	01736	0 50000 4 00000	397	MFG17	CLA	0,4 K PRIME AND K GO TO AC	F1P03970
	01737	−0 32000 0 07742	398		ANA	MSK ERASE K PRIME	F1P03980
	01740	0 40200 2 00000	399	MFG18	SUB	0,2 (1). COMPARE K WITH TEIFNO ARGUMENT	F1P03990
	01741	0 10000 0 01745	400		TZE	MFG19 K EQUALS ARGUMENT	F1P04000
	01742	2 00001 4 01736	401		TIX	MFG17,4,1 (3K)	F1P04010
	01743	0 50000 0 02103	402		CLA	PAT13	F1P04020
	01744	0 02000 0 01747	403		TRA	MFG20	F1P04030
	01745	0 50000 4 00000	404	MFG19	CLA	0,4 K PRIME AND K GO TO AC	F1P04040
	01746	0 77100 0 00022	405		ARS	18 K PRIME GOES TO ADDRESS OF AC	F1P04050
	01747	0 62100 2 00000	406	MFG20	STA	0,2 (1). K PRIME REPLACES K	F1P04060
	01750	2 00001 2 01646	407		TIX	MFG00,2,1 TAKE FIRST WORD OF NEXT 2TA ENTRY	F1P04070
	01751	0 07400 1 07656	408	WFG00	TSX	WAT00,1 WRITE 2TA ON TAPE	F1P04080
	01752	0 00000 0 00002	409			2	F1P04090
	01753	0 00000 0 03163	410		HTR	2TA	F1P04100
	01754	0 07400 1 07505	411		TSX	TAP00,1 ASSEMBLE TRAD	F1P04110
	01755	0 00000 0 00003	412		HTR	3	F1P04120
	01756	0 00000 0 03163	413	L(3TA)	HTR	3TA	F1P04130
			414			PROGRAM FOR MODIFICATION OF TRAD WITH TEIFNO	F1P04140
	01757	0 50000 0 03162	415	MTRTP	CLA	3TA−1 GET NUM OF WORDS IN 3TA	F1P04150
	01760	0 10000 0 02011	416		TZE	WTR00 NO ENTRIES IN TABLE	F1P04160
	01761	−0 73400 2 00000	417		PDX	0,2 NUMBER OF WORDS PUT IN INDEX B	F1P04170
	01762	0 77100 0 00022	418		ARS	18 RESET ADDRESSES	F1P04180
	01763	0 40000 0 01756	419		ADD	L(3TA)	F1P0419O
	01764	0 62100 0 02000	420		STA	MTR02	F1P04200
	01765	0 62100 0 02007	421		STA	MTR04	F1P04210
	01766	0 50000 0 04550	422		CLA	OTA−1 GET NUMBER WORDS IN OTA.	F1P04220
	01767	−0 10000 0 01771	423		TNZ	MTROK TABLE EXISTS	F1P04230
	01770	0 02000 0 07751	424		TRA	TEIFER STOP FOR NO TABLE IN OTA	F1P04240
	01771	0 77100 0 00022	425	MTROK	ARS	18 PUT NUMBER WORDS IN AC ADDRESS	F1P04250
	01772	0 40000 0 07750	426		ADD	L(OTA) ADD OTA ORIGIN	F1P04260
	01773	0 62100 0 01775	427		STA	MTR01 INITIALIZE ADDRESS	F1P04270
	01774	−0 53400 4 04550	428	MTR00	LXD	OTA−1,4 SET INDEX C TO NUM WORDS IN OTA	F1P04280
	01775	0 50000 4 00000	429	MTR01	CLA	0,4 A SUB I PRIME AND A SUB I GO TO AC	F1P04290
	01776	0 62200 0 07746	430		STD	E3 SAVE A SUB I PRIME	F1P04300
	01777	−0 32000 0 07742	431		ANA	MSK ERASE SUB I PRIME	F1P04310
	02000	0 40200 2 00000	432	MTR02	SUB	0,2 ADDR IS 3TA + NUM WORDS IN 3TA (1)	F1P04320
	02001	0 10000 0 02005	433		TZE	MTR03 A SUB I EQUALS ARGUMENT	F1P04330
	02002	2 00001 4 01775	434		TIX	MTR01,4,1 A SUB I NOT EQUAL TO ARGUMENT	F1P04340
	02003	0 50000 0 02103	435		CLA	PAT13	F1P04350
	02004	0 02000 0 02007	436		TRA	MTR04	F1P04360
	02005	0 50000 0 07746	437	MTR03	CLA	E3 A SUB I PRIME GOES TO AC DECR.	F1P04370
	02006	0 77100 0 00022	438		ARS	18 A SUB I PRIME GOES TO AC ADDR.	F1P04380
	02007	0 62100 2 00000	439	MTR04	STA	0,2 (1). A SUB I PRIME REPLACES A SUB I	F1P04390
	02010	2 00001 2 01774	440		TIX	MTR00,2,1 TAKE NEXT WORD OF 3TA	F1P04400
	02011	0 07400 1 07656	441	WTR00	TSX	WAT00,1 ALL WORDS OF 3TA EXAMINED SO	F1P04410
	02012	0 00000 0 00003	442			3	F1P04420
	02013	0 00000 0 03163	443			3TA	F1P04430
	02014	0 07400 1 07505	444	AD000	TSX	TAP00,1 ASSEMBLE TDO	F1P04440
	02015	0 00000 0 00001	445			1	F1P04450
	02016	0 00000 0 03163	446	OATDO		1TA	F1P04460
			447			PROGRAM FOR MODIFICATION OF TDO WITH TEIFNO	F1P04470
	02017	0 50000 0 03162	448	MDOTP	CLA	1TA−1 GET NUMBER OF WORDS IN ITA	F1P04480
	02020	0 10000 0 02074	449		TZE	WDO00 EXIT FOR NO WORDS IN TABLE	F1P04490
	02021	−0 73400 2 00000	450		PDX	0,2 NUMBER OF WORDS IN ITA PUT IN IRB	F1P04500
	02022	0 77100 0 00022	451		ARS	18 NUM WORDS PUT IN AC ADDR	F1P04510
	02023	0 40000 0 02016	452		ADD	OATDO ADD ORIGIN OF ASSEMBLED TDO	F1P04520
	02024	0 62100 0 02036	453		STA	MDO00 INITIALIZE ADDRESSES	F1P84530
	02025	0 62100 0 02072	454		STA	MDO06	F1P04540
	02026	0 62100 0 02041	455		STA	MDO30	F1P04550
	02027	0 50000 0 04550	456		CLA	OTA−1 GET NUMBER WORDS IN OTA	F1P04560
	02030	0 77100 0 00022	457	MDOOK	ARS	18 PUT NUMBER WORDS IN AC ADDRESS	F1P04570
	02031	0 40000 0 07750	458		ADD	L(OTA) ADD OTA ORIGIN AND	F1P04580
	02032	0 62100 0 02050	459		STA	MDO02 INITIALIZE ADDRESSES	F1P04590
	02033	0 62100 0 02057	460		STA	MDO03	F1P04600
	02034	0 62100 0 02062	461		STA	MDO04	F1P04610
	02035	0 62100 0 02070	462		STA	MDO041	F1P04620
	02036	0 50000 2 00000	463	MDO00	CLA	0,2 ADDR IS ITA + NUMBER WORDS (1)	F1P04630
	02037	0 12000 0 02043	464		TPL	MDO01 SIGN OF WORD IS PLUS	F1P04640
	02040	0 76000 0 00003	465		SSP	CHANGE SIGN OF WORD IN TABLE	F1P04650
	02041	0 60100 2 00000	466	MDO30	STO	0,2	F1P04660
	02042	0 02000 0 02073	467		TRA	MDO07	F1P04670
	02043	−0 32000 0 07742	468	MDO01	ANA	MSK ERASE DECR IN AC	F1P04680
	02044	0 62100 0 07747	469		STA	E1 SAVE BETA	F1P04690
	02045	−0 53400 4 04550	470		LXD	OTA−1,4 SET INDEX C TO NUM WORDS IN OTA	F1P04700
	02046	3 00000 4 02050	471		TXH	MDO02,4,0 TEST FOR TEIFNO	F1P04710
	02047	0 02000 0 07751	472		TRA	TEIFER STOP FOR NO TEIFNO	F1P04720
	02050	0 50000 4 00000	473	MDO02	CLA	0,4 BETA PRIME AND BETA GO TO AC	F1P04730
	02051	−0 32000 0 07742	474		ANA	MSK ERASE BETA PRIME	F1P04740
	02052	0 40200 0 07747	475		SUB	E1 BETA COMPARED WITH TABLE ARGUMENT	F1P04750
	02053	0 10000 0 02057	476		TZE	MDO03 BETA EQUALS ARGUMENT	F1P04760
	02054	2 00001 4 02050	477		TIX	MDO02,4,1 BETA NOT EQUAL TO ARGUMENT	F1P04770
	02055	0 50000 0 02103	478		CLA	PAT13	F1P04780
	02056	0 02000 0 02072	479		TRA	MDO06	F1P04790
	02057	0 50000 4 00000	480	MDO03	CLA	0,4 BETA PRIME AND BETA GO TO AC	F1P04800
	02060	0 62200 0 07746	481		STD	E2 SAVE DECR OF FIRST POSSIBILITY	F1P04810
	02061	−2 00001 4 02066	482		TNX	MDO08,4,1 SEE IF THERE ARE 2 ENTRIES FOR	F1P04820
	02062	0 50000 4 00000	483	MDO04	CLA	0,4 ONE ARGUMENT	F1P04830
	02063	−0 32000 0 07742	484		ANA	MSK ERASE DECR IN AC	F1P04840
	02064	0 40200 0 07747	485		SUB	E1	F1P04650
	02065	0 10000 0 02070	486		TZE	MDO041 THERE ARE 2 ENTRIES	F1P04860
	02066	0 50000 0 07746	487	MDO08	CLA	E2 THERE IS ONLY ONE ENTRY	F1P04870
	02067	0 02000 0 02071	488		TRA	MDO05 FOR THIS ARGUMENT	F1P04860
	02070	0 50000 4 00000	489	MDO041	CLA	0,4	F1P04890
	02071	0 77100 0 00022	490	MDO05	ARS	18	F1P04900
	02072	0 62100 2 00000	491	MDO06	STA	0,2 (I)* BETA PRIME REPLACES BETA	F1P04910
	02073	2 00005 2 02036	492	MDO07	TIX	MDO00,2,5 TAKE NEXT ENTRY IN ITA	F1P04920
	02074	0 07400 1 07656	493	WDO00	TSX	WAT00,1 WRITE TDO ON TAPE	F1P04930
	02075	0 00000 0 00001	494		HTR	1	F1P04940
	02076	0 00000 0 03163	495	T0T1	HTR	1TA	F1P04950
	02077	0 76200 0 00221	496		RTB	1	F1P04960
	02100	0 02000 0 00004	497		TRA	4 GO TO 1-CS FOR PART B OF ONE PRIME	F1P04970
	02101	0 77777 0 00000	498	DMASK		0,0,32767	F1P04980
	02102	+000000077777	499	PAT11	OCT	77777	F1P04990
	02103	0 00000 0 00000	500	PAT13	HTR	0	F1P05000
	02104	0 00000 0 00000	501	PAT14	HTR	0	F1P05010
	02105	0 00000 0 00000	502	PAT15	HTR	0	F1P05020
		02106	503	GARBGE	BSS	1	F1P05030
		02107	504	WORKCL	BSS	1	F1P05040
		02110	505	NEWBAS	BSS	1	F1P05050
		02243	506	BUFFER	BES	90	F1P05060
		02243	507	E1PTS	BSS	1	F1P05070
		02244	508	FLSIZE	BSS	1	F1P05080
		02245	509	CMPREC	BSS	1	F1P05090
		03162	510	END1PA	ORG	1650	F1P05100
		03162	511	1TAM1	BSS	1 NO OF WORDS IN BLOCK	F1P05110
		03163	512	1TA	BSS	750 BLOCK FOR TABLE ASSEMBLING	F1P05120
			513				F1P05130
			514				F1P05140
			515			704 FORTRAN MASTER RECORD CARD / 1 PRIME PART B = F0240000.	F1P05150
		00000	516		ORG	0	F1P05160
	00000	0 00507 0 00507	517		PZE	ORG1PB,,ORG1PB	F1P05170
	00001	0 00000 0 01613	518		PZE	END1PB	F1P05180
			519				F1P05190
			520			THIS IS PART B OF 2 PARTS OF SECTION ONE PRIME	F1P05200
			521				F1P05210
		00507	522	ORG1PB	ORG	327	F1P05220
	00507	0 76100 0 00000	523		NOP	TO PERMIT A STOP FOR TESTING USE.	F1P05230
	00510	0 07400 1 07505	524		TSX	TAP00,1 ASSEMBLE FORVAL	F1P05240
	00511	0 00000 0 00006	525	TNT6	HTR	6	F1P05250
	00512	0 00000 0 01614	526	TOT6	HTR	6TA	F1P05260
	00513	−0 53400 4 01613	527		LXD	6TA−1,4 TEST FOR ENTRIES IN FORVAL, IF NONE WRITE	F1P05270
	00514	−3 00000 4 00546	528		TXL	CLMD09,4,0 IDENTIFICATION WORD AND ZERO WORD.	F1P05280
			529				F1P05290
	00515	0 07400 1 07505	530		TSX	TAP00,1 ASSEMBLE TABLE OF FIRST, LAST FORMULA	F1P05300
	00516	0 00000 0 00020	531			16	F1P05310
	00517	0 00000 0 03564	532	L16TA		16TA	F1P05320
			533				F1P05330
	00520	−0 53400 2 03563	534		LXD	16TA−1,2 TEST FOR ANY ENTRIES IN CALL NUMBER TABLE,	F1P05340
	00521	−3 00000 2 00546	535		TXL	CLMD09,2,0 IF NONE WRITE OUT FORVAL TABLE.	F1P05350
			536				F1P05360
			537			THERE ARE ENTRIES IN BOTH FORVAL AND CALL NUMBER TABLES.	F1P05370
			538			THEREFORE THERE MAY BE SOME NUMBER IN FORVAL WHICH MUST BE	F1P05380
			539			REPLACED WITH THE LAST NUMBER RELATED TO A CALL STATEMENT.	F1P05390
			540			THE PROGRAM TO SEARCH AND REPLACE IS BASED UPON THE TWO	F1P05400
			541			TABLES BEING ORDERED BY MAGNITUDE OF INTERNAL FORMULA	F1P05410
			542			NUMBERS. THIS PERMITS A SINGLE PASS OVER BOTH,	F1P05420
			543				F1P05430
	00522	0 60000 0 02107	544		STZ	WORKCL	F1P05440
	00523	0 53400 1 07730	545		LXA	L(0),1 PREPARE FOR FORWARD SEARCH.	F1P05450
	00524	−0 53400 4 01613	546		LXD	6TA−1,4 NO OF ENTRIES IN FORVAL.	F1P05460
	00525	−0 75400 2 00000	547		PXD	,2	F1P05470
	00526	0 77100 0 00022	548		ARS	18	F1P05480
	00527	0 40000 0 00517	549		ADD	L16TA	F1P05490
	00530	0 62100 0 00531	550		STA	*+1	F1P05500
			551				F1P05510
U	00531	0 50000 2	552	CLMD01	CLA	..,2 GET NEXT ENTRY IN CALL TABLE.	F1P05520
	00532	0 62200 0 02107	553		STD	WORKCL DIVIDE ENTRY INTO FIRST IN AC, LAST IN CS.	F1P05530
	00533	−0 32000 0 07742	554		ANA	MSK	F1P05540
	00534	0 76700 0 00022	555		ALS	18	F1P05550
	00535	0 34000 1 01614	556	CLMD02	CAS	6TA,1 COMPARE CALL FIRST IN AC TO NEXT FORVAL.	F1P05560
	00536	1 77777 1 00545	557		TXI	CLMD04,1,−1 CALL GREATER THAN FORVAL	F1P05570
	00537	0 02000 0 00542	558		TRA	CLMD03 CALL EQUAL FORVAL.	F1P05580
	00540	2 00001 2 00531	559		TIX	CLMD01,2,1 GO FOR NEXT CALL ENTRY IF ANY. OTHERWISE	F1P05590
	00541	0 02000 0 00546	560		TRA	CLMD09 GO WRITE FORVAL TABLE.	F1P05600
			561				F1P05610
	00542	0 50000 0 02107	562	CLMD03	CLA	WORKCL REPLACE FORMULA NUMBER IN FORVAL WHICH IS	F1P05620
	00543	0 62200 1 01614	563		STD	6TA,1 FIRST RELATED TO CALL WITH LAST.	F1P05630
	00544	1 77777 1 00545	564		TXI	*+1,1,−1	F1P05640
	00545	2 00001 4 00535	565	CLMD04	TIX	CLMD02,4,1 GO ON WITH SEARCH IF THERE ARE MORE FORVALS	F1P05650
			566			IF NOT GO WRITE FORVAL TABLE.	F1P05660
			567				F1P05670
	00546	0 07400 1 07656	568	CLMD09	TSX	WAT00,1	F1P05680
	00547	0 00000 0 00006	569		HTR	6 FORVAL	F1P05690
	00550	0 00000 0 01614	570		HTR	6TA ON TAPE	F1P05700
	00551	0 50000 0 01613	571		CLA	6TA−1 GET NUMBER OF WORDS IN FORVAL	F1P05710
	00552	−0 10000 0 00554	572		TNZ	WFD00 TABLE EXISTS	F1P05720
	00553	0 02000 0 00610	573		TRA	A4VAR EXIT 10 ASSEMBLE NEXT TABLE	F1P05730
	00554	0 76600 0 00302	574	WFD00	WRS	194 PREPARE TO WRITE FORVAL ON DRUM	F1P05740
	00555	−0 73400 1 00000	575	WFD01	PDX	0,1 SET INDEX A TO NUM OF WORDS	F1P05750
	00556	0 53400 2 00555	576		LXA	WFD01,2 SET INDEX B TO ZERO	F1P05760
	00557	0 77100 0 00022	577		ARS	18 PUT NUM OF WORDS IN AC	F1P05770
	00560	0 40000 0 00512	578		ADD	TOT6	F1P05780
	00561	0 62100 0 00571	579		STA	WFD04 INITIALIZE	F1P05790
	00562	0 62100 0 00602	580		STA	WFD07	F1P05800
	00563	0 40200 0 07731	581		SUB	L(1) ADDRESSES	F1P05810
	00564	0 62100 0 00570	582		STA	WFD03	F1P05820
	00565	0 62100 0 00601	583		STA	WFD06	F1P05830
	00566	1 77777 1 00567	584		TXI	WFD02,1,−1 SUBTRACT ONE FROM INDEX A	F1P05840
	00567	0 76000 0 00000	585	WFD02	CLM	COMPUTE CHECK SUM	F1P05850
	00570	0 36100 1 00000	586	WFD03	ACL	0,1 FOR EACH FORVAL	F1P05860
	00571	0 36100 1 00000	587	WFD04	ACL	0,1 ENTRY AND SAVE IN	F1P05870
	00572	0 60200 2 03564	588		SLW	FRCHS,2 SEPARATE TABLE	F1P05880
	00573	1 77777 2 00574	589		TXI	WFD05,2,−1	F1P05890
	00574	2 00002 1 00567	590	WFD05	TIX	WFD02,1,2 TEST END OF FORVAL ENTRIES	F1P05900
	00575	0 53400 2 00555	591		LXA	WFD01,2 SET INDEX B TO ZERO	F1P05910
	00576	−0 53400 1 01613	592		LXD	6TA−1,1	F1P05920
	00577	0 46000 0 07744	593		LDA	DRL02	F1P05930
	00600	1 77777 1 00601	594		TXI	WFD06,1,−1	F1P05940
	00601	0 70000 1 00000	595	WFD06	CPY	0,1 WRITE FORVAL	F1P05950
	00602	0 70000 1 00000	596	WFD07	CPY	0,1 ENTRY	F1P05960
	00603	−2 00002 1 00606	597		TNX	WFD08,1,2 TEST END OF FORVAL ENTRIES	F1P05970
	00604	0 70000 2 03564	598		CPY	FRCHS,2 WRITE CHECK SUM	F1P05980
	00605	1 77777 2 00601	599		TXI	WFD06,2,−1 FOR ABOVE ENTRY	F1P05990
	00606	0 70000 2 03564	600	WFD08	CPY	FRCHS,2 WRITE CHECK SUM FOR LAST ENTRY	F1P06000
	00607	0 70000 0 07743	601		CPY	FRCON WRITE END OF TABLE SIGNAL	F1P06010
	00610	0 07400 1 07505	602	A4VAR	TSX	TAP00,1 ASSEMBLE FORVAR.	F1P06020
	00611	0 00000 0 00005	603	TNT5	HTR	5	F1P06030
	00612	0 00000 0 01614	604		HTR	5TA	F1P06040
	00613	0 07400 1 07656	605		TSX	WAT00,1 WRITE FORVAR ON TAPE	F1P06050
	00614	0 00000 0 00005	606		HTR	5	F1P06060
	00615	0 00000 0 01614	607		HTR	5TA	F1P06070
	00616	0 07400 1 07505	608		TSX	TAP00,1 ASSEMBLE FORTAG	F1P06080
	00617	0 00000 0 00004	609		HTR	4	F1P06090
	00620	0 00000 0 01614	610		HTR	4TA	F1P06100
	00621	0 07400 1 07656	611		TSX	WAT00,1 WRITE FORTAG ON TAPE	F1P06110
	00622	0 00000 0 00004	612		HTR	4	F1P06120
	00623	0 00000 0 01614	613		HTR	4TA	F1P06130
			614			PROGRAM FOR PROCESSING FREQUENCY TABLE. FRET	F1P06140
	00624	0 07400 1 07505	615		TSX	TAP00,1 ASSEMBLE FRET.	F1P06150
	00625	0 00000 0 00007	616		HTR	7	F1P06160
	00626	0 00000 0 01614	617	TOT7	HTR	7TA ORIGIN OF ASSEMBLED FRET,	F1P06170
	00627	0 50000 0 01613	618	MFRTP	CLA	7TA−1 GET NUM OF WORDS IN TABLE	F1P06180
	00630	0 10000 0 01114	619		TZE	WFR00 EXIT FOR EMPTY TABLE	F1P06190
	00631	−0 73400 2 00000	620		PDX	0,2 SET INDEX B TO NUM WORDS IN TABLE	F1P06200
	00632	0 77100 0 00022	621		ARS	18 PUT NUMBER IN AC ADDRESS AND	F1P06210
	00633	0 40000 0 00626	622		ADD	TOT7 INITIALIZE ADDRESSES	F1P06220
	00634	0 62100 0 00645	623		STA	MFR00	F1P06230
	00635	0 62100 0 00662	624		STA	MFR03	F1P06240
	00636	0 50000 0 04550	625		CLA	OTA−1 GET NUMBER OF WORDS IN OTA	F1P06250
	00637	−0 10000 0 00641	626		TNZ	MFROK TABLE EXISTS	F1P06260
	00640	0 02000 0 07751	627		TRA	TEIFER STOP FOR NO TABLE IN OTA	F1P06270
	00641	0 77100 0 00022	628	MFROK	ARS	18 PUT NUMBER WORDS IN AC ADDRESS	F1P06280
	00642	0 40000 0 07750	629		ADD	L(OTA) ADD OTA ORIGIN AND	F1P06290
	00643	0 62100 0 00651	630		STA	MFR01 INITIALIZE ADDRESSES	F1P06300
	00644	0 62100 0 00660	631		STA	MFR02	F1P06344
	00645	0 50000 2 00000	632	MFR00	CLA	0,2 ADDR IS 7TA + NUMBER OF WORDS	F1P06320
	00646	0 12000 0 00663	633		TPL	MFR04 DO NOT MODIFY THIS WORD	F1P06330
	00647	0 62100 0 01604	634		STA	E10 SAVE ABSOLUTE PART OF WORD	F1P06340
	00650	−0 53400 1 04550	635		LXD	OTA−1,1 SET INDEX TO NUM WORDS IN OTA	F1P06350
	00651	0 50000 1 00000	636	MFR01	CLA	0,1 TEIFNO ARGUMENT IS IN AC.	F1P06360
	00652	−0 32000 0 07742	637		ANA	MSK COMPARE WITH 7TA WORD	F1P06370
	00653	0 40200 0 01604	638		SUB	E10	F1P06380
	00654	0 10000 0 00660	639		TZE	MFR02 MODIFY 7TA WORD	F1P06390
	00655	2 00001 1 00651	640		TIX	MFR01,1,1 GO TO NEXT TEIFNO WORD	F1P06400
	00656	0 50000 0 07730	641		CLA	L(0) NO ENTRY FOUND IN TEIFNO. IGNORE.	F1P06410
	00657	0 02000 0 00662	642		TRA	MFR03	F1P06420
	00660	0 50000 1 04551	643	MFR02	CLA	OTA,1 TEIFNO WORD GOES TO AC	F1P06430
	00661	0 77100 0 00022	644		ARS	18 INTERNAL FORMULA NUM IN AC ADDR,	F1P06440
	00662	0 62100 2 00000	645	MFR03	STA	0,2 INTERNAL FORMULA NUM GOES TO 7TA	F1P06450
	00663	2 00001 2 00645	646	MFR04	TIX	MFR00,2,1 EXAMINE NEXT WORD OF 7TA	F1P06460
			647			PROGRAM FOR SORTING FRET	F1P06470
	00664	0 50000 0 01613	648	SFRTP	CLA	7TA−1 GET NUMBER OF WORDS IN FRET	F1P06480
	00665	0 77100 0 00022	649		ARS	18 NUMBER WORDS IN TABLE GO TO AC ADDR	F1P06490
	00666	0 40000 0 00626	650		ADD	TOT7 COMPUTE NUMBER OF WORDS IN TABLE	F1P06500
	00667	0 62100 0 00701	651		STA	SFR01 PLUS ORIGIN OF TABLE AND INITIALIZE	F1P06510
	00670	0 62100 0 00707	652		STA	SFR03 ADDRESSES	F1P06520
	00671	0 62100 0 00721	653		STA	SFR06	F1P06530
	00672	0 62100 0 00724	654		STA	SFR07	F1P06540
	00673	0 62100 0 00733	655		STA	SFR11	F1P06550
	00674	0 62100 0 00743	656		STA	SFR13	F1P06560
	00675	0 62100 0 00753	657		STA	SFR17	F1P06570
	00676	0 76000 0 00000	658	SFR00	CLM	SET E12 TO ZERO TO INDICATE	F1P06580
	00677	0 60100 0 07746	659		STO	E12 TABLE IS IN ORDER.	F1P06590
	00700	−0 53400 1 01613	660		LXD	7TA−1,1 SET INDEX A TO NUM OF WORDS IN 7TA	F1P06600
	00701	0 50000 1 00000	661	SFR01	CLA	0,1 A WORD OF 7TA GOES TO AC.	F1P06610
	00702	−0 12000 0 00704	662		TMI	SFR02 COMPARE THIS WORD. IT IS ALPHA ONE	F1P06620
	00703	1 77777 1 00701	663		TXI	SFR01,1,−1 EXAMINE NEXT WORD OF 7TA	F1P06630
	00704	0 62100 0 01605	664	SFR02	STA	E11 SAVE ALPHA ONE FOR COMPARISON	F1P06640
	00705	−0 63400 1 01606	665		SXD	A1BOX,1 SAVE INDEX FOR RETURN TO ALPHA ONE	F1P06650
	00706	−2 00001 1 00762	666		TNX	SFR21,1,1 EXAMINE NEXT WORD OF 7TA	F1P06660
	00707	0 50000 1 00000	667	SFR03	CLA	0,1 PUT NEXT WORD OF 7TA IN AC.	F1P06670
	00710	−0 12000 0 00713	668		TMI	SFR05 COMPARE THIS WORD. IT IS ALPHA TWO	F1P06680
	00711	−3 00001 1 00762	669		TXL	SFR21,1,1 EXIT FOR END OF TABLE	F1P06690
	00712	1 77777 1 00707	670		TXI	SFR03,1,−1 EXAMINE NEXT 7TA WORD	F1P06700
	00713	0 76000 0 00003	671	SFR05	SSP	COMPUTE ALPHA TWO	F1P06710
	00714	0 40200 0 01605	672		SUB	E11 MINUS ALPHA ONE	F1P06720
	00715	0 12000 0 00701	673		TPL	SFR01 ALPHA ONE IS SMALLER	F1P06730
	00716	0 50000 0 07731	674		CLA	L(1) C(E12) NOT ZERO INDICATES TABLE WAS	F1P06740
	00717	0 60100 0 07746	675		STO	E12 NOT IN ORDER ON THIS PASS.	F1P06750
	00720	0 53400 4 07730	676		LXA	L(0),4 SET INDEX C TO ZERO TO INDEX OTA	F1P06760
	00721	0 50000 1 00000	677	SFR06	CLA	0,1 ALPHA TWO GOES TO AC	F1P06770
	00722	0 60100 4 04551	678		STO	OTA,4 SAVE ALPHA TWO	F1P06780
	00723	1 77777 1 00724	679		TXI	SFR07,1,−1 GET NEXT WORD OF ALPHA TWO ENTRY	F1P06790
	00724	0 50000 1 00000	680	SFR07	CLA	0,1 PUT THIS WORD IN AC	F1P06800
	00725	−0 12000 0 00732	681		TMI	SFR10 ALL WORDS OF ALPHA TWO ENTRY SAVED	F1P06810
	00726	1 77777 4 00727	682		TXI	SFR09,4,−1 GO TO NEXT WORD OF OTA	F1P06820
	00727	0 60100 4 04551	683	SFR09	STO	OTA,4 SAVE WORDS OF ALPHA TWO ENTRY	F1P06830
	00730	−3 00001 1 00732	684		TXL	SFR10,1,1 ALPHA TWO ENTRY IS END OF TABLE	F1P06840
	00731	1 77777 1 00724	685		TXI	SFR07,1,−1 EXAMINE NEXT WORD OF 7TA	F1P06850
	00732	−0 53400 1 01606	686	SFR10	LXD	A1BOX,1 SET INDEX A TO GET ADDR OF ALPHA 1	F1P06860
	00733	0 50000 1 00000	687	SFR11	CLA	0,1 ALPHA ONE GOES TO AC	F1P06870
	00734	1 77777 4 00735	688		TXI	SFR12,4,−1 GO TO NEXT WORD OF OTA	F1P06880
	00735	0 60100 4 04551	689	SFR12	STO	OTA,4 SAVE ALPHA ONE	F1P06890
	00736	−0 63400 4 01607	690		SXD	A2BOX,4 COMPUTE INDEX FOR	F1P06900
	00737	0 50000 0 01606	691		CLA	A1BOX RETURNING TO ALPHA ONE	F1P06910
	00740	0 40000 0 01607	692		ADD	A2BOX AFTER TRANSPOSING	F1P06920
	00741	0 62200 0 01607	693		STD	A2BOX ALPHA ONE AND ALPHA TWO ENTRIES	F1P06930
	00742	1 77777 1 00743	694		TXI	SFR13,1,−1 EXAMINE NEXT WORD OF 7TA	F1P06940
	00743	0 50000 1 00000	695	SFR13	CLA	0,1 PUT NEXT WORD IN AC	F1P06950
	00744	−0 12000 0 00750	696		TMI	SFR15 FINISHED SAVING ALPHA ONE ENTRY	F1P06960
	00745	1 77777 4 00746	697		TXI	SFR14,4,−1 GO TO NEXT WORD OF OTA	F1P06970
	00746	0 60100 4 04551	698	SFR14	STO	OTA,4 SAVE WORDS OF ALPHA ONE ENTRY	F1P06980
	00747	1 77777 1 00743	699		TXI	SFR13,1,−1 EXAMINE NEXT WORD OF 7TA	F1P06990
	00750	−0 53400 1 01606	700	SFR15	LXD	A1BOX,1 SET INDEX A TO GET ADDR OF ALPHA 1	F1P07000
	00751	0 53400 2 07730	701		LXA	L(0),2 SET INDEX B TO INDEX OTA	F1P07010
	00752	0 50000 2 04551	702	SFR16	CLA	OTA,2 ALPHA ONE ENTRY AND ALPHA TWO ENTRY	F1P07020
	00753	0 60100 1 00000	703	SFR17	STO	0,1 ARE INTERCHANGED	F1P07030
	00754	1 77777 2 00755	704		TXI	SFR18,2,−1 GO TO NEXT WORD OF OTA	F1P07040
	00755	−2 00001 1 00676	705	SFR18	TNX	SFR00,1,1 END OF TABLE EXIT	F1P07050
	00756	−3 00001 4 00760	706		TXL	SFR20,4,1 TEST IF OTA IS EMPTIED	F1P07060
	00757	1 00001 4 00752	707		TXI	SFR16,4,1 COUNT WORDS TAKEN FROM OTA	F1P07070
	00760	−0 53400 1 01607	708	SFR20	LXD	A2BOX,1 GET OLD ALPHA ONE AS NEW ALPHA ONE	F1P07080
	00761	0 02000 0 00701	709		TRA	SFR01 START OVER WITH NEW ALPHA ONE	F1P07090
	00762	0 50000 0 07746	710	SFR21	CLA	E12 TEST IF TABLE IS IN ORDER	F1P07100
	00763	−0 10000 0 00676	711		TNZ	SFR00 EXAMINE TABLE AGAIN	F1P07110
			712			PROGRAM TO REVERSE FREQUENCIES FOR GO TO VECTOR ENTRIES IN	F1P07120
			713			TIFGD	F1P07130
	00764	0 76400 0 00222	714	RFT00	BST	146 MOVE TAPE	F1P07140
	00765	0 76400 0 00222	715		BST	146 THRU TABLES	F1P07150
	00766	0 76400 0 00222	716		BST	146 ALREADY WRITTEN	F1P07160
	00767	0 76400 0 00222	717		BST	146 TO OBTAIN	F1P07170
	00770	0 76400 0 00222	718		BST	146 TIFGO	F1P07180
	00771	0 76400 0 00222	719		BST	146	F1P07190
	00772	0 76200 0 00222	720		RDS	146 SELECT TAPE FOR READING	F1P07200
	00773	0 50000 0 07734	721		CLA	L(4) PREPARE TO COUNT	F1P07210
	00774	0 60100 0 01610	722		STO	IT1 TWO TAPE TESTS	F1P07220
	00775	0 70000 0 07747	723		CPY	E1RF GET TABLE NUMBER	F1P07230
	00776	0 50000 0 07747	724		CLA	E1RF AND COMPARE WITH	F1P07240
	00777	0 40200 0 07745	725		SUB	TNT2 TABLE CALLED FOR	F1P07250
	01000	0 10000 0 01002	726		TZE	RFT01 TABLE NUMBERS AGREE	F1P07260
	01001	0 07400 4 00004	727		TSX	DIAG,4 STOP FOR TABLE NOT IN RIGHT RECORD	F1P07270
	01002	0 70000 0 04550	728	RFT01	CPY	OTA−1 GET NUMBER OF WORDS	F1P07280
	01003	0 50000 0 04550	729		CLA	OTA−1 IN TAPE RECORD	F1P07290
	01004	0 10000 0 01107	730		TZE	WFR01 EXIT FOR EMPTY TABLE ON TAPE	F1P07300
	01005	0 62200 0 01022	731		STD	RFT05	F1P07310
	01006	−0 76000 0 00012	732		RTT	TURN OFF TAPE	F1P07320
	01007	0 76100 0 00000	733		NOP	CHECK INDICATOR AND LIGHTS	F1P07330
	01010	0 53400 2 07730	734	RFT02	LXA	L(0),2 SET INDEX B TO ZERO	F1P07340
	01011	0 70000 2 04551	735	RFT03	CPY	OTA,2	F1P07350
	01012	1 77777 2 01011	736		TXI	RFT03,2,−1 COPY LOOP	F1P07360
	01013	0 76100 0 00000	737		NOP	END OF FILE JUMP	F1P07370
	01014	0 76600 0 00333	738		WRS	219 END OF RECORD. DELAY FOR TAPE TEST	F1P07380
	01015	−0 76000 0 00012	739		RTT	TAPE TEST	F1P07390
	01016	0 02000 0 01020	740		TRA	RFT04 TAPE TEST ON	F1P07400
	01017	0 02000 0 01032	741		TRA	RFT07 TAPE TEST OFF	F1P07410
	01020	0 76400 0 00224	742	RFT04	BST	148 REPEAT RECORD	F1P07420
	01021	0 76200 0 00224	743		RDS	148 PREPARE TO READ RECORD	F1P07430
	01022	1 00000 2 01023	744	RFT05	TXI	RFT06,2,** COMPENSATE FOR REREADING RECORD	F1P07440
	01023	0 50000 0 01610	745	RFT06	CLA	IT1 COUNT	F1P07450
	01024	0 40200 0 07731	746		SUB	L(1) TWO	F1P07460
	01025	0 60100 0 01610	747		STO	IT1 TAPE TESTS	F1P07470
	01026	0 70000 0 07747	748		CPY	E1RF GET TABLE NUMBER	F1P07480
	01027	0 70000 0 07747	749		CPY	E1RF GET NUMBER OF WORDS IN TABLE	F1P07490
	01030	0 12000 0 01010	750		TPL	RFT02 GO TO READ TAPE	F1P07500
	01031	0 07400 4 00004	751		TSX	DIAG,4 STOP FOR SECOND TAPE TEST	F1P07510
	01032	0 50000 0 01613	752	RFT07	CLA	7TA−1 COMPUTE TABLE	F1P07520
	01033	0 77100 0 00022	753		ARS	18 ORIGIN PLUS	F1P07530
	01034	0 40000 0 00626	754		ADD	TOT7 NUMBER OF	F1P07540
	01035	0 62100 0 01057	755		STA	RFT09 WORDS IN	F1P07540
	01036	0 62100 0 01072	756		STA	RFT13 FRET AND	F1P07560
	01037	0 62100 0 01103	757		STA	RFT18 INITIALIZE ADDRESSES	F1P07570
	01040	0 50000 0 04550	758		CLA	OTA−1 GET NUMBER OF WORDS IN TI FGO	F1P07580
	01041	0 77100 0 00022	759		ARS	18 PUT IN AC AND	F1P07590
	01042	0 40200 0 07731	760		SUB	L(1) SUBTRACT ONE	F1P07600
	01043	0 73400 4 00000	761		PAX	0,4 SET INDEX C TO THIS NUMBER	F1P07610
	01044	0 40000 0 07750	762		ADD	TOTO ADD ORIGIN OF TIFGO ADD	F1P07620
	01045	0 62100 0 01050	763		STA	RFT08 INITIALIZE ADDRESS	F1P07630
	01046	0 76000 0 00000	764		CLM		F1P07640
	01047	0 60200 0 01611	765		SLW	E1RFT	F1P07650
	01050	0 50000 4 00000	766	RFT08	CLA	0,4 GET FIRST WORD OF TIFGO ENTRY	F1P07660
	01051	0 62200 0 01611	767		STD	E1RFT SAVE FORMULA NUMBER	F1P07670
	01052	−0 12000 0 01056	768		TMI	RFT09−1 ENTRY IS AN IF(E)	F1P07680
	01053	−0 32000 0 07742	769		ANA	MSK ERASE DECREMENT OF AC	F1P07690
	01054	0 40200 0 07732	770		SUB	L(2) TEST FOR GO TO VECTOR ENTRY	F1P07700
	01055	−0 10000 0 01106	771		TNZ	RFT20 EXIT FOR ENTRY NOT A GO TO VECTOR	F1P07710
	01056	−0 53400 1 01613	772		LXD	7TA−1,1 SET INDEX A TO NUM OF WORDS IN FRET	F1P07720
	01057	0 50000 1 00000	773	RFT09	CLA	0,1 GET WORD OF FRET ENTRY	F1P07730
	01060	0 12000 0 01065	774		TPL	RFT10 TEST FOR FIRST WORD OF ENTRY	F1P07740
	01061	0 76000 0 00003	775		SSP	PUT FORMULA NUMBER	F1P07750
	01062	0 76700 0 00022	776		ALS	18 IN DECREMENT OF AC	F1P07760
	01063	0 40200 0 01611	777		SUB	E1RFT COMPARE FORMULA NUMBERS	F1P07770
	01064	0 10000 0 01067	778		TZE	RFT11 FORMULA NUMBERS MATCH	F1P07780
	01065	2 00001 1 01057	779	RFT10	TIX	RFT09,1,1 TEST END OF FRET	F1P07790
	01066	0 02000 0 01106	780		TRA	RFT20 EXIT FOR END OF FRET	F1P07800
	01067	−2 00001 1 01106	781	RFT11	TNX	RFT20,1,1 PREPARE FOR SECOND WORD OF ENTRY	F1P07810
	01070	−0 63400 1 01612	782	RFT12	SXD	E2RFT,1 AND SAVE INDEX A FOR RETURN	F1P07820
	01071	0 53400 2 07730	783		LXA	L(0),2 SET INDEX B TO ZERO	F1P07830
	01072	0 50000 1 00000	784	RFT13	CLA	0,1 GET FREQUENCY PART OF ENTRY	F1P07840
	01073	−0 12000 0 01077	785		TMI	RFT15 TEST END OF ENTRY	F1P07850
	01074	0 60100 2 03172	786		STO	FRTS,2 SAVE FREQUENCY	F1P07860
	01075	1 77777 2 01076	787		TXI	RFT14,2,−1 TAKE NEXT FRTS WORD	F1P07870
	01076	2 00001 1 01072	788	RFT14	TIX	RFT13,1,1 TAKE NEXT FRET WORD	F1P07880
	01077	−3 00000 2 01106	789	RFT15	TXL	RFT20,2,0 EXIT FOR NO FREQUENCY IN ENTRY	F1P07890
	01100	−0 53400 1 01612	790		LXD	E2RFT,1 SET INDEX A TO GET 2ND ENTRY WORD	F1P07900
	01101	1 00001 2 01102	791	RFT16	TXI	RFT17,2,1 GET FREQUENCIES	F1P07910
	01102	0 50000 2 03172	792	RFT17	CLA	FRTS,2 IN REVERSE ORDER	F1P07920
	01103	0 60100 1 00000	793	RFT18	STO	0,1 AND REPLACE IN FRET ENTRY	F1P07930
	01104	1 77777 1 01105	794		TXI	RFT19,1,−1 TAKE NEXT WORD OF FRET ENTRY	F1P07940
	01105	3 00000 2 01101	795	RFT19	TXH	RFT16,2,0 TEST END OF ENTRY	F1P07950
	01106	2 00002 4 01050	796	RFT20	TIX	RFT08,4,2 TEST END OF TIFGO	F1P07960
	01107	0 76200 0 00222	797	WFR01	RDS	146 POSITION	F1P07970
	01110	0 76200 0 00222	798		RDS	146 TAPE	F1P07980
	01111	0 76200 0 00222	799		RDS	146 FOR	F1P07990
	01112	0 76200 0 00222	800		RDS	146 WRITING	F1P08000
	01113	0 76200 0 00222	801		RDS	146 FRET	F1P08010
	01114	0 07400 1 07656	802	WFR00	TSX	WAT00,1 WRITE	F1P08020
	01115	0 00000 0 00007	803		HTR	7 FRET	F1P08030
	01116	0 00000 0 01614	804		HTR	7TA ON TAPE	F1P08040
	01117	0 07400 1 07505	805		TSX	TAP00,1 ASSEMBLE EQUIT.	F1P08050
	01120	0 00000 0 00010	806			8	F1P08060
	01121	0 00000 0 04551	807			EQ	F1P08070
			808			PROGRAM FOR CLASSES OF EQUIVALENCE	F1P08080
			809			INITIALIZATION OF ADDRESSES AND STORAGE	F1P08090
	01122	0 50000 0 04550	810	CLEQ	CLA	EQM1 COMPUTE EO ORIGIN PLUS	F1P08100
	01123	0 77100 0 00022	811		ARS	18 NUMBER OF WORDS IN TABLE	F1P08110
	01124	0 40000 0 01574	812		ADD	L(EQ)	F1P08120
	01125	0 62100 0 01165	813		STA	B7CLQ	F1P08130
	01126	0 62100 0 01171	814		STA	B8CLQ	F1P08140
	01127	0 62100 0 01200	815		STA	B9CLQ	F1P08150
	01130	0 62100 0 01174	816		STA	B2CLQ	F1P08160
	01131	0 62100 0 01213	817		STA	B11CLQ	F1P08170
	01132	0 62100 0 01225	818		STA	C2CLQ	F1P08180
	01133	0 62100 0 01230	819		STA	C3CLQ	F1P08190
	01134	0 62100 0 01271	820		STA	A10CLQ	F1P08200
	01135	0 62100 0 01302	821		STA	A11CLQ	F1P08210
	01136	0 62100 0 01315	822		STA	A12CLQ	F1P08220
	01137	0 62100 0 01326	823		STA	A13CLQ	F1P08230
	01140	0 62100 0 01306	824		STA	A17CLQ	F1P08240
	01141	0 62100 0 01237	825		STA	C10CLQ	F1P08250
	01142	0 76000 0 00000	826	OADDR	CLM		F1P08260
	01143	0 60200 0 01613	827		SLW	MEEQM1	F1P08270
	01144	0 60200 0 01575	828		SLW	BOX1	F1P08280
	01145	0 60200 0 01577	829		SLW	E1CLEQ	F1P08290
	01146	0 60200 0 01600	830		SLW	E2CLEQ	F1P08300
	01147	0 60200 0 01601	831		SLW	E3CLEQ	F1P08310
	01150	0 60200 0 01602	832		SLW	E4CLEQ	F1P08320
	01151	0 60200 0 01603	833		SLW	E5CLEQ	F1P08330
	01152	0 53400 2 01142	834		LXA	OADDR,2	F1P08340
	01153	−0 53400 4 04550	835		LXD	EQM1,4	F1P08350
	01154	0 60200 2 01614	836	G2CLQ	SLW	MEEQ,2	F1P08360
	01155	1 77777 2 01156	837		TXI	G1CLQ,2,−1	F1P08370
	01156	2 00001 4 01154	838	G1CLQ	TIX	G2CLQ,4,1	F1P08380
	01157	0 50000 0 07740	839		CLA	DECR1	F1P08390
	01160	0 60100 0 01576	840		STO	BOX2	F1P08400
			841			INITIALIZATION OF AN EQUIVALENCE CLASS	F1P08410
	01161	−0 53400 1 04550	842	BOCLQ	LXD	EQM1,1 SET INDEX A TO MUM OF WORDS IN EQ	F1P08420
	01162	−3 00000 1 01454	843		TXL	OUT,1,0 EXIT FOR EMPTY EQ TABLE	F1P08430
	01163	−0 53400 2 01576	844		LXD	BOX2,2 PREPARE TO ENTER	F1P06440
	01164	1 77777 2 01165	845		TXI	B7CLQ,2,−1 A WORD IN MEEQ	F1P08450
	01165	0 50000 1 00000	846	B7CLQ	CLA	0,1 OBTAIN EQ WORD	F1P06460
	01166	0 10000 0 01212	847		TZE	B5CLQ EXIT FOR DELETED EQ SET	F1P08470
	01167	0 60100 2 01614	848		STO	MEEQ,2 SAVE EQ SET IN TABLE MEEQ	F1P08480
	01170	0 76000 0 00000	849		CLM	INDICATE	F1P08490
	01171	0 60200 1 00000	850	B8CLQ	SLW	0,1 DELETED	F1P08500
	01172	1 77777 2 01173	851		TXI	B1CLQ,2,−1 EQ SET	F1P08510
	01173	−2 00001 1 00000	852	B1CLQ	TNX	0,1,1 EXIT FOR END OF EQ TABLE	F1P08520
	01174	0 50000 1 00000	853	B2CLQ	CLA	0,1 OBTAIN EQ SUBSCRIPT	F1P08530
	01175	−0 12000 0 01206	854		TMI	B4CLQ EXIT FOR END OF EQ SET	F1P08540
	01176	0 60100 2 01614	855		STO	MEEQ,2 SAVE REST OF EQ SET	F1P08550
	01177	1 77777 1 01200	856		TXI	B9CLQ,1,−1	F1P08560
	01200	0 50000 1 00000	857	B9CLQ	CLA	0,1 OBTAIN EQ SYMBOL	F1P08570
	01201	1 77777 2 01202	858		TXI	B10CLQ,2,−1	F1P08580
	01202	0 60100 2 01614	859	B10CLQ	STO	MEEQ,2	F1P08590
	01203	1 77777 2 01204	860		TXI	B3CLQ,2,−1 IN TABLE MEEQ	F1P08600
	01204	2 00001 1 01174	861	B3CLQ	TIX	B2CLQ,1,1	F1P08610
	01205	0 02000 0 00000	862		TRA	** EXIT FOR END OF EQ TABLE	F1P08620
	01206	0 76000 0 00003	863	B4CLQ	SSP	SAVE LAST	F1P08630
	01207	0 60100 2 01614	864		STO	MEEQ,2 SUBSCRIPT OF EQ SET	F1P08640
	01210	−0 63400 2 01576	865		SXD	BOX2,2 AND ITS MEEQ INDEX	F1P08650
	01211	0 02000 0 01220	866		TRA	C0CLQ GO TO COMPARISON ROUTINE	F1P08660
	01212	1 77777 1 01213	867	B5CLQ	TXI	B11CLQ,1,−1	F1P08670
	01213	0 50000 1 00000	868	B11CLQ	CLA	0,1 LOOP TO	F1P08680
	01214	0 12000 0 01216	869		TPL	B6CLQ GO THROUGH	F1P08690
	01215	2 00001 1 01165	870		TIX	B7CLQ,1,1 DELETED SET	F1P08700
	01216	2 00002 1 01213	871	B6CLQ	TIX	B11CLQ,1,2	F1P08710
	01217	0 02000 0 01360	872		TRA	END EXIT FOR COMPLETELY DELETED EO TABL	F1P08720
			873			COMPARISON OF MEEQ SYMBOLS WITH EQ SYMBOLS	F1P08730
	01220	−0 53400 2 01576	874	C0CLQ	LXD	BOX2,2 INITIALIZE TEST	F1P06740
	01221	−0 63400 2 01253	875		SXD	C5CLQ,2 FOR END OF MEEO TABLE	F1P08750
	01222	−0 53400 2 01575	876		LXD	BOX1,2 SET INDEX B TO GET 1ST SYMB OF MEEQ	F1P08760
	01223	−0 53400 1 04550	877	C6CLQ	LXD	EQ−1,1 PREPARE TO SCAN EQ TABLE	F1P08770
	01224	−0 63400 1 01577	878	C7CLQ	SXD	E1CLEQ,1 SAVE INDEX OF 1ST WORD OF EQ SET	F1P08760
	01225	0 50000 1 00000	879	C2CLQ	CLA	0,1 OBTAIN EQ WORD	F1P08790
	01226	−0 10000 0 01235	880		TNZ	C4CLQ SET NOT DELETED	F1P08800
	01227	1 77777 1 01230	881		TXI	C3CLQ,1,−1	F1P08810
	01230	0 50000 1 00000	882	C3CLQ	CLA	0,1 LOOP TO GO THRU	F1P08820
	01231	−0 12000 0 01233	883		TMI	C1CLQ DELETED SET	F1P08830
	01232	2 00002 1 01230	884		TIX	C3CLQ,1,2	F1P08840
	01233	2 00001 1 01224	885	C1CLQ	TIX	C7CLQ,1,1 EXAMINE NEXT EQ SET	F1P08850
	01234	0 02000 0 01252	886		TRA	C9CLQ EXIT FOR END OF EO TABLE	F1P08860
	01235	0 60100 0 01603	887	C4CLQ	STO	E5CLEQ SAVE EQ SYMBOL	F1P08870
	01236	1 77777 1 01237	888		TXI	C10CLQ,1,−1	F1P08880
	01237	0 50000 1 00000	889	C10CLQ	CLA	0,1 GET EQ SUBSCRIPT	F1P08890
	01240	0 12000 0 01246	890		TPL	C8CLQ NOT END OF EQ SET	F1P08900
	01241	0 50000 0 01603	891		CLA	E5CLEQ GET LAST SYMBOL OF EQ SET	F1P08910
	01242	0 40200 2 01614	892		SUB	MEEQ,2 COMPARE WITH MEEQ SYMBOL	F1P08920
	01243	0 10000 0 01263	893		TZE	A0CLQ MATCH	F1P08930
	01244	2 00001 1 01224	894		TIX	C7CLQ,1,1 NO MATCH	F1P08940
	01245	0 02000 0 01252	895		TRA	C9CLQ	F1P08950
	01246	0 50000 0 01603	896	C8CLQ	CLA	E5CLEQ	F1P08960
	01247	0 40200 2 01614	897		SUB	MEEQ,2	F1P08970
	01250	0 10000 0 01263	898		TZE	A0CLQ	F1P08980
	01251	2 00001 1 01225	899		TIX	C2CLQ,1,1	F1P08990
	01252	1 77776 2 01253	900	C9CLQ	TXI	C5CLQ,2,−2 GET NEXT MEEQ SYMBOL	F1P09000
	01253	3 00000 2 01223	901	C5CLQ	TXH	C6CLQ,2,** TEST END OF TABLE MEEQ	F1P09010
			902			END OF TABLE MEEQ, NO MATCH IN TABLE EQ	F1P09020
	01254	−0 53400 2 01576	903	F2CLQ	LXD	BOX2,2 INDICATE	F1P09030
	01255	0 50000 2 01614	904		CLA	MEEQ,2 END OF SET	F1P09040
	01256	−0 76000 0 00003	905		SSM	IN TABLE	F1P09050
	01257	0 60100 2 01614	906		STO	MEEQ,2 MEEQ	F1P09060
	01260	1 77777 2 01261	907		TXI	F1CLQ,2,−1 INITIALIZE INDEX OF	F1P09070
	01261	−0 63400 2 01575	908	F1CLQ	SXD	BOX1,2 NEXT SET IN TABLE MEEO AND	F1P09080
	01262	0 02000 0 01161	909		TRA	BOCLQ INITIALIZE THE SET	F1P09090
			910			MEEQ SYMBOL MATCHES EQ SYMBOL	F1P09100
	01263	1 00001 1 01264	911	A0CLQ	TXI	A14CLQ,1,1	F1P09110
	01264	−0 63400 1 01314	912	A14CLQ	SXD	A6CLQ,1 SAVE EO INDEX OF MATCHED SYMBOL	F1P09120
	01265	2 00001 1 01266	913		TIX	A1CLQ,1,1	F1P09130
	01266	1 77777 2 01267	914	A1CLQ	TXI	A2CLQ,2,−1	F1P09140
	01267	0 50000 2 01614	915	A2CLQ	CLA	MEEQ,2	F1P09150
	01270	0 62100 0 01600	916		STA	E2CLEQ SAVE SUBSCRIPT OF MEEQ SYMBOL	F1P09160
	01271	0 50000 1 00000	917	A10CLQ	CLA	0,1	F1P09170
	01272	0 62100 0 01601	918		STA	E3CLEQ SAVE SUBSCRIPT OF EQ SYMBOL	F1P09160
	01273	−0 53400 2 01576	919		LXD	BOX2,2	F1P09190
	01274	1 77777 2 01275	920		TXI	A16CLQ,2,−1	F1P09200
	01275	−0 63400 2 01356	921	A16CLQ	SXD	E1CLQ,2	F1P09210
	01276	1 00001 2 01277	922		TXI	A15CLQ,2,1	F1P09220
	01277	−0 12000 0 01313	923	A15CLQ	TMI	A9CLQ MATCHED SYMBOL IS END OF EQ SET	F1P09230
	01300	1 77777 2 01301	924	A4CLQ	TXI	A3CLQ,2,−1 LOOP TO TRANSFER	F1P09240
	01301	−2 00001 1 00000	925	A3CLQ	TNX	0,1,1 TO MEEO SYMBOLS OF	F1P09250
	01302	0 50000 1 00000	926	A11CLQ	CLA	0,1 EQ BELOW MATCHED SYMBOL	F1P09260
	01303	0 60100 2 01614	927		STO	MEEQ,2	F1P09270
	01304	−2 00001 1 00000	928		TNX	0,1,1	F1P09280
	01305	1 77777 2 01306	929		TXI	A17CLQ,2,−1	F1P09290
	01306	0 50000 1 00000	930	A17CLQ	CLA	0,1	F1P09300
	01307	−0 12000 0 01312	931		TMI	A5CLQ	F1P09310
	01310	0 60100 2 01614	932		STO	MEEQ,2	F1P09320
	01311	0 02000 0 01300	933		TRA	A4CLQ	F1P09330
	01312	0 62100 2 01614	934	A5CLQ	STA	MEEQ,2 SAVE SBSCR OF LAST SYMBOL OF EQ SET	F1P09340
	01313	−0 53400 1 01577	935	A9CLQ	LXD	E1CLEQ,1	F1P09350
	01314	−3 00000 1 01321	936	A6CLQ	TXL	A8CLQ,1,** EXIT FOR MATCHED SYMBOL REACHED	F1P09360
	01315	0 50000 1 00000	937	A12CLQ	CLA	0,1 LOOP TO TRANSFER	F1P09370
	01316	1 77777 2 01317	938		TXI	A7CLQ,2,−1 TO MEEO SYMBOLS OF	F1P09380
	01317	0 60100 2 01614	939	A7CLQ	STO	MEEQ,2 EQ ABOVE MATCHED	F1P09390
	01320	1 77777 1 01314	940		TXI	A6CLQ,1,−1 SYMBOL	F1P09400
	01321	−0 63400 2 01576	941	A8CLQ	SXD	BOX2,2	F1P09410
	01322	−0 63400 2 01343	942		SXD	D2CLQ,2	F1P09420
	01323	−0 63400 2 01336	943		SXD	D4CLQ,2	F1P09430
	01324	−0 53400 1 01577	944		LXD	E1CLEQ,1 INDICATE	F1P09440
	01325	0 76000 0 00000	945		CLM	DELETED	F1P09450
	01326	0 60200 1 00000	946	A13CLQ	SLW	0,1 EQ SET	F1P09460
			947			NORMALIZATION OF MEEQ SUBSCRIPTS	F1P09470
	01327	0 50000 0 01601	948		CLA	E3CLEQ GET EQ SUBSCRIPT	F1P09480
	01330	0 40200 0 01600	949		SUB	E2CLEQ COMPARE WITH MEEQ SUBSCRIPT	F1P09490
	01331	0 10000 0 01220	950		TZE	C0CLQ SUBSCRIPTS MATCH	F1P09500
	01332	0 62100 0 01602	951		STA	E4CLEQ	F1P09510
	01333	0 12000 0 01350	952		TPL	E0CLQ	F1P09520
			953			EQ SUBSCRIPT LESS THAN MEEQ SUBSCRIPT	F1P09530
	01334	−0 53400 2 01356	954		LXD	E1CLQ,2	F1P09540
	01335	1 77777 2 01336	955		TXI	D4CLQ,2,−1	F1P09550
	01336	−3 00000 2 01344	956	D4CLQ	TXL	D3CLQ,2,**	F1P09560
	01337	0 50000 2 01614	957	D1CLQ	CLA	MEEQ,2 NORMALIZE SUBSCRIPTS	F1P09570
	01340	0 40000 0 01602	958		ADD	E4CLEQ OF NEW SYMBOLS	F1P09580
	01341	0 62100 2 01614	959		STA	MEEQ,2 IN MEEQ SET	F1P09590
	01342	1 77776 2 01343	960		TXI	D2CLQ,2,−2	F1P09600
	01343	3 00000 2 01337	961	D2CLQ	TXH	D1CLQ,2,**	F1P09610
	01344	0 50000 2 01614	962	D3CLQ	CLA	MEEQ,2 NORMALIZE SUBSCRIPT	F1P09620
	01345	0 40000 0 01602	963		ADD	E4CLEQ OF LAST NEW SYMBOL	F1P09630
	01346	0 62100 2 01614	964		STA	MEEQ,2 ENTERED IN MEEQ SET	F1P09640
	01347	0 02000 0 01220	965		TRA	C0CLQ GO TO COMPARISON ROUTINE	F1P09650
			966			EQ SUBSCRIPT GREATER THAN MEEQ SUBSCRIPT	F1P09660
	01350	−0 53400 2 01575	967	E0CLQ	LXD	BOX1,2	F1P09670
	01351	1 77777 2 01352	968		TXI	E2CLQ,2,−1	F1P09680
	01352	0 50000 2 01614	969	E2CLQ	CLA	MEEQ,2 NORMALIZE SUBSCRIPTS	F1P09690
	01353	0 40000 0 01602	970		ADD	E4CLEQ OF OLD SYMBOLS	F1P09700
	01354	0 62100 2 01614	971		STA	MEEQ,2 IN MEEQ SET	F1P09710
	01355	1 77776 2 01356	972		TXI	E1CLQ,2,−2	F1P09720
	01356	3 00000 2 01352	973	E1CLQ	TXH	E2CLQ,2,**	F1P09730
	01357	0 02000 0 01220	974		TRA	C0CLQ GO TO COMPARISON ROUTINE	F1P09740
	01360	0 50000 0 01576	975	END	CLA	BOX2 COMPUTE	F1P09750
	01361	0 76000 0 00006	976		COM	NUMBER	F1P09760
	01362	0 40000 0 07741	977		ADD	DECR2 OF WORDS	F1P09770
	01363	−0 73400 2 00000	978		PDX	0,2 IN TABLE	F1P09780
	01364	−0 75400 2 00000	979		PXD	0,2 MEEO AND	F1P09790
	01365	0 62200 0 01613	980		STD	MEEQM1 SAVE WITH TABLE	F1P09800
			981			REDUNDANCY AND INCONSISTENCY TEST OF EQUIVALENCE SENTENCES	F1P09810
	01366	−0 53400 2 01576	982		LXD	BOX2,2 INITIALIZATION	F1P09820
	01367	−0 63400 2 01417	983		SXD	M11CLQ,2 OF	F1P09830
	01370	0 53400 2 01142	984		LXA	OADDR,2 INDEXING	F1P09840
	01371	−0 63400 2 01575	985		SXD	BOX1,2	F1P09850
	01372	−0 53400 2 01575	986	M6CLQ	LXD	BOX1,2 OBTAIN	F1P09860
	01373	0 50000 2 01614	987		CLA	MEEQ,2 FIXED	F1P09870
	01374	0 60100 0 01577	988		STO	SMBL SYMBOL	F1P09880
	01375	1 77777 2 01376	989		TXI	M10CLQ,2,−1 AND	F1P09890
	01376	0 50000 2 01614	990	M10CLQ	CLA	MEEQ,2 ITS	F1P09900
	01377	0 60100 0 01600	991		STO	SBSCR SUBSCRIPT	F1P09910
	01400	1 77777 2 01401	992		TXI	M1CLQ,2,−1	F1P09920
	01401	0 50000 2 01614	993	M1CLQ	CLA	MEEQ,2 GET CHANGING SYMBOL AND	F1P09930
	01402	0 34000 0 01577	994		CAS	SMBL COMPARE WITH FIXED SYMBOL	F1P09940
	01403	0 02000 0 01405	995		TRA	M2CLQ NO MATCH	F1P09950
	01404	0 02000 0 01423	996		TRA	K1CLQ MATCH	F1P09960
	01405	1 77777 2 01406	997	M2CLQ	TXI	M3CLQ,2,−1 HAS END OF CHANGING SYMBOLS	F1P09970
	01406	0 50000 2 01614	998	M3CLQ	CLA	MEEQ,2 BEEN REACHED, NO MATCH CASE	F1P09980
	01407	−0 12000 0 01411	999		TMI	M4CLQ YES	F1P09990
	01410	1 77777 2 01401	1000		TXI	M1CLQ,2,−1 NO	F1P10000
	01411	−0 63400 2 01416	1001	M4CLQ	SXD	M7CLQ,2	F1P10010
	01412	−0 53400 2 01575	1002	M9CLQ	LXD	BOX1,2 PREPARE TO GET	F1P10020
	01413	1 77776 2 01414	1003		TXI	M5CLQ,2,−2 NEXT FIXED	F1P10030
	01414	−0 63400 2 01575	1004	M5CLQ	SXD	BOX1,2 SYMBOL	F1P10040
	01415	1 77777 2 01416	1005		TXI	M7CLQ,2,−1	F1P10050
	01416	3 00000 2 01372	1006	M7CLQ	TXH	M6CLQ,2,** TEST END OF MEEQ SET	F1P10060
	01417	−3 00000 2 01450	1007	M11CLQ	TXL	CLQOUT,2,0	F1P10070
	01420	1 77777 2 01421	1008		TXI	M8CLQ,2,−1	F1P10080
	01421	−0 63400 2 01575	1009	M8CLQ	SXD	BOX1,2	F1P10090
	01422	0 02000 0 01372	1010		TRA	M6CLQ	F1P10100
	01423	1 77777 2 01424	1011	K1CLQ	TXI	K2CLQ,2,−1 GET SUBSCRIPT	F1P10110
	01424	0 50000 2 01614	1012	K2CLQ	CLA	MEEQ,2 OF CHANGING SYMBOL	F1P10120
	01425	−0 12000 0 01443	1013		TMI	K4CLQ END OF SET REACHED	F1P10130
	01426	0 34000 0 01600	1014		CAS	SBSCR COMPARE SUBSCRIPTS OF MATCHED SYMBL	F1P10140
	01427	0 02000 0 01431	1015		TRA	K3CLQ NO MATCH, INCONSISTENT CASE	F1P10150
	01430	1 77777 2 01401	1016		TXI	M1CLQ,2,−1 MATCH, REDUNDANT CASE	F1P10160
	01431	−0 53400 4 01442	1017	K3CLQ	LXD	NEWTBL,4	F1P10170
	01432	3 00000 4 01435	1018		TXH	ERSTOR,4,0	F1P10180
	01433	0 50000 0 07743	1019		CLA	FRCON	F1P10190
	01434	0 60100 0 01614	1020		STO	MEEQ	F1P10200
	01435	0 50000 0 01577	1021	ERSTOR	CLA	SMBL	F1P10210
	01436	0 60100 4 01615	1022		STO	MEEQ+1,4	F1P10220
	01437	1 77777 4 01440	1023		TXI	SAVIR4,4,−1	F1P10230
	01440	−0 63400 4 01442	1024	SAVIR4	SXD	NEWTBL,4	F1P10240
	01441	0 02000 0 01412	1025		TRA	M9CLQ GET NEXT SYMBOL	F1P10250
	01442	0 00000 0 00000	1026	NEWTBL	HTR	0	F1P10260
	01443	0 76000 0 00003	1027	K4CLQ	SSP		F1P10270
	01444	0 34000 0 01600	1028		CAS	SBSCR	F1P10280
	01445	0 02000 0 01431	1029		TRA	K3CLQ	F1P10290
	01446	0 02000 0 01412	1030		TRA	M9CLQ	F1P10300
	01447	0 02000 0 01431	1031		TRA	K3CLQ	F1P10310
	01450	−0 53400 4 01442	1032	CLQOUT	LXD	NEWTBL,4	F1P10320
	01451	−3 00000 4 01454	1033		TXL	OUT,4,0	F1P10330
	01452	0 50000 0 07743	1034		CLA	FRCON	F1P10340
	01453	0 60100 4 01615	1035		STO	MEEQ+1,4	F1P10350
	01454	0 07400 1 07656	1036	OUT	TSX	WAT00,1 WRITE EQUIT ON TAPE.	F1P10360
	01455	0 00000 0 00010	1037			8	F1P10370
	01456	0 00000 0 01614	1038			MEEQ	F1P10380
	01457	0 07400 1 07505	1039		TSX	TAP00,1 ASSEMBLE TABLE CLOSUB	F1P10390
	01460	0 00000 0 00011	1040			9	F1P10400
	01461	0 00000 0 01614	1041	TOT9		9TA	F1P10410
			1042			PROGRAM FOR REMOVING DUPLICATE ENTRIES FROM TABLE CLOSUB	F1P10420
	01462	0 50000 0 01613	1043	RDCTP	CLA	9TA−1 GET NUMBER OF WORDS IN 9TA	F1P10430
	01463	0 10000 0 01514	1044		TZE	REC07 EXIT FOR EMPTY TABLE	F1P10440
	01464	−0 73400 4 00000	1045		PDX	0,4 SET INDEX C TO NUM OF WORDS IN 9TA	F1P10450
	01465	0 77100 0 00022	1046		ARS	18 COMPUTE TABLE ORIGIN PLUS	F1P10460
	01466	0 40000 0 01461	1047		ADD	TOT9 NUMBER OF WORDS IN TABLE	F1P10470
	01467	0 62100 0 01473	1048		STA	REC01 AND INITIALIZE ADDRESS	F1P10480
	01470	−0 53400 2 01477	1049		LXD	REC03,2 SET INDEX B TO COMP 1 AND	F1P10490
	01471	−0 63400 2 01500	1050		SXD	REC04,2 SAVE COMP 1 IN DECR OF REC04	F1P10500
	01472	0 53400 2 07730	1051	REC00	LXA	L(0),2 SET INDEX B TO ZERO	F1P10510
	01473	0 50000 4 00000	1052	REC01	CLA	0,4 GET 9TA WORD AND	F1P10520
	01474	0 34000 2 01614	1053	REC02	CAS	9TA,2 COMPARE WITH 9TA WORD	F1P10530
	01475	0 02000 0 01477	1054		TRA	REC03 9TA WORDS NOT EQUAL	F1P10540
	01476	0 02000 0 01505	1055		TRA	REC06 9TA WORDS ARE EQUAL	F1P10550
	01477	1 77777 2 01500	1056	REC03	TXI	REC04,2,−1 TAKE NEXT 9TA WORD	F1P10560
	01500	3 00000 2 01474	1057	REC04	TXH	REC02,2,** TEST FOR END OF NEW 9TA TABLE	F1P10570
	01501	−0 53400 1 01500	1058		LXD	REC04,1 ADD COMP 1 TO DECR OF	F1P10580
	01502	1 77777 1 01503	1059		TXI	REC05,1,−1 REC04 TO ACCOUNT FOR	F1P10590
	01503	−0 63400 1 01500	1060	REC05	SXD	REC04,1 FOLLOWING ENTRY	F1P10600
	01504	0 60100 2 01614	1061		STO	9TA,2 ENTER UNEQUAL 9TA WORD IN TABLE	F1P10610
	01505	2 00001 4 01472	1062	REC06	TIX	REC00,4,1 TEST END OF OLD 9TA TABLE	F1P10620
	01506	−0 53400 4 01500	1063		LXD	REC04,4 GET TWOS COMP OF NUMBER	F1P10630
	01507	−0 75400 4 00000	1064		PXD	0,4 OF WORDS ENTERED IN 9TA	F1P10640
	01510	0 76000 0 00006	1065		COM	COMPUTE TRUE FIGURE AND	F1P10650
	01511	0 40000 0 07731	1066		ADD	L(1) STORE IN 9TA-1	F1P10660
	01512	−0 73400 4 00000	1067		PDX	0,4	F1P10670
	01513	−0 63400 4 01613	1068		SXD	9TA−1,4	F1P10680
	01514	0 07400 1 07656	1069	REC07	TSX	WAT00,1 WRITE MODIFIED	F1P10690
	01515	0 00000 0 00011	1070		HTR	9 TABLE CLOSUB	F1P10700
	01516	0 00000 0 01614	1071		HTR	9TA ON TAPE	F1P10710
	01517	0 77000 0 00222	1072		WEF	146 END OF TAPE TABLES FILE	F1P10720
	01520	0 77200 0 00203	1073		REW	3	F1P10730
	01521	0 50000 0 01573	1074		CLA	WAT99 CHANGE WAT SUB ROUTINE TO WRITE ON TAPE 3	F1P10740
	01522	0 62100 0 07661	1075		STA	WAT09	F1P10750
	01523	0 62100 0 07701	1076		STA	WAT05+2	F1P10760
	01524	0 62100 0 07704	1077		STA	WAT07−1	F1P10770
	01525	0 62100 0 07721	1078		STA	WAT08	F1P10780
	01526	0 50000 0 07703	1079		CLA	WAT05+4 NOP	F1P10790
	01527	0 60100 0 07673	1080		STO	WAT04−1 OVER COPY IDENTIFICATION	F1P10800
	01530	0 60100 0 07674	1081		STO	WAT04 OVER COPY WORD COUNT	F1P10810
	01531	0 60100 0 07665	1082		STO	WAT03−1 OVER STA FOR WORD COUNT	F1P10820
	01532	0 50000 0 07752	1083		CLA	TP3TRA	F1P10830
	01533	0 60100 0 07676	1084		STO	WAT04+2	F1P10840
	01534	0 07400 1 07505	1085		TSX	TAP00,1 ASSEMBLE NONEXC TABLE	F1P10850
	01535	0 00000 0 00016	1086			14	F1P10860
	01536	0 00000 0 01614	1087			XTA	F1P10870
	01537	0 07400 1 07656	1088		TSX	WAT00,1 WRITE NONEXC TABLE ON TAPE 3	F1P10880
	01540	0 00000 0 00016	1089			14	F1P10890
	01541	0 00000 0 01614	1090			XTA	F1P10900
	01542	0 07400 1 07505	1091		TSX	TAP00,1 ASSEMBLE TSTOPS TABLE	F1P10910
	01543	0 00000 0 00017	1092			15	F1P10920
	01544	0 00000 0 01614	1093			XTA	F1P10930
	01545	0 07400 1 07656	1094		TSX	WAT00,1 WRITE TSTOPS TABLE AS SECOND RECORD TAPE 3	F1P10940
	01546	0 00000 0 00017	1095			15	F1P10950
	01547	0 00000 0 01614	1096			XTA	F1P10960
	01550	0 50000 0 00030	1097		CLA	EIFNO	F1P10970
	01551	0 40000 0 07740	1098		ADD	DECR1 SET EIFNO TO LAST ADD IN PROBLEM PLUS 1	F1P10980
	01552	0 60100 0 00030	1099		STO	EIFNO	F1P10990
	01553	−0 50000 0 07741	1100		CAL	DECR2	F1P11000
	01554	0 76000 0 00006	1101		COM		F1P11010
	01555	0 32000 0 00020	1102		ANS	16	F1P11020
	01556	0 50000 0 00034	1103		CLA	ENDI4	F1P11030
	01557	0 34000 0 07731	1104		CAS	L(1)	F1P11040
	01560	0 02000 0 01564	1105		TRA	*+4	F1P11050
	01561	0 50000 0 07741	1106		CLA	DECR2	F1P11060
	01562	−0 60200 0 00020	1107		ORS	16	F1P11070
	01563	0 02000 0 01571	1108		TRA	SPACE	F1P11080
	01564	−0 75400 0 00000	1109		PXD	,0	F1P11090
	01565	0 76000 0 00164	1110		SWT	4	F1P11100
	01566	0 02000 0 01571	1111		TRA	SPACE	F1P11110
	01567	0 50000 0 07741	1112		CLA	DECR2	F1P11120
	01570	−0 60200 0 00020	1113		ORS	16	F1P11130
	01571	0 76200 0 00221	1114	SPACE	RTB	1	F1P11140
	01572	0 02000 0 00004	1115		TRA	4	F1P11150
	01573	0 00000 0 00223	1116	WAT99		147	F1P11160
			1117			WORKING STORAGE FOR PROGRAM CLEQ	F1P11170
	01574	0 00000 0 04551	1118	L(EQ)		EQ	F1P11180
	01575	0 00000 0 00000	1119	BOX1			F1P11190
	01576	0 00000 0 00000	1120	BOX2			F1P11200
	01577	0 00000 0 00000	1121	E1CLEQ			F1P11210
	01600	0 00000 0 00000	1122	E2CLEQ			F1P11220
	01601	0 00000 0 00000	1123	E3CLEQ			F1P11230
	01602	0 00000 0 00000	1124	E4CLEQ			F1P11240
	01603	0 00000 0 00000	1125	E5CLEQ			F1P11250
			1126			WORKING STORAGE FOR PROGRAM AMW	F1P11260
	01604	0 00000 0 00000	1127	E10			F1P11270
	01605	0 00000 0 00000	1128	E11		AMW2105	F1P11280
	01606	0 00000 0 00000	1129	A1BOX		AMW 2106	F1P11290
	01607	0 00000 0 00000	1130	A2BOX		AMW 2305	F1P11300
	01610	0 00000 0 00000	1131	IT1		AMW 2510	F1P11310
	01611	0 00000 0 00000	1132	E1RFT			F1P11320
	01612	0 00000 0 00000	1133	E2RFT			F1P11330
		01613	1134	END1PB	ORG	907	F1P11340
		01613	1135	XTAM1	BSS	1	F1P11350
		01614	1136	XTA	BSS	1500 THIS IS TABLE ASSEMBLY BUFFER OF PART 2	F1P11360
			1137				F1P11370
			1138				F1P11380
			1139			704 FORTRAN MASTER RECORD CARD / 1 PRIME COMMON = F0210000.	F1P11390
		00000	1140		ORG	0	F1P11400
	00000	0 00004 0 04550	1141		PZE	ORG1PC,,1TOCS	F1P11410
	00001	0 00000 0 07760	1142		PZE	END1PC	F1P11420
			1143				F1P11430
			1144			COMMON TO SECTION ONE PRIME	F1P11440
			1145				F1P11450
		04550	1146	ORG1PC	ORG	2408	F1P11460
		04550	1147	OTAM1	BSS	1 LOCATION OF NUM OF WORDS IN TEIFNO	F1P11470
		04551	1148	OTA	BSS	1500 BLOCK FOR ASSEMBLED TEIFNO	F1P11480
			1149			TABLE ASSEMBLY PROGRAM	F1P11490
	07505	0 77200 0 00204	1150	TAP00	REW	4	F1P11500
	07506	−0 60000 0 07754	1151		STQ	E2A	F1P11510
	07507	−0 63400 2 07755	1152		SXD	E3A,2	F1P11520
	07510	−0 63400 4 07756	1153		SXD	E4A,4	F1P11530
	07511	0 50000 1 00001	1154		CLA	1,1 GET TABLE NUMBER	F1P11540
	07512	0 62100 0 07513	1155		STA	TAP00+6	F1P11550
	07513	0 73400 2 00000	1156		PAX	,2	F1P11560
	07514	0 76700 0 00001	1157		ALS	1	F1P11570
	07515	0 40000 1 00001	1158		ADD	1,1 FORM 3I	F1P11580
	07516	0 40000 0 07630	1159		ADD	OAD	F1P11590
	07517	0 62100 0 07574	1160		STA	TAP06	F1P11600
	07520	0 62100 0 07541	1161		STA	TAP20	F1P11610
	07521	0 40000 0 07732	1162		ADD	L(2) FORM INTET + 3I +2	F1P11620
	07522	0 62100 0 07531	1163		STA	TAP01	F1P11630
	07523	0 62100 0 07570	1164		STA	TAP05	F1P11640
	07524	0 50000 2 07655	1165		CLA	MWN+10,2	F1P11650
	07525	0 73400 2 00000	1166		PAX	,2 TABLE MAXIMUM	F1P11660
	07526	−0 63400 2 07601	1167		SXD	TAP081,2	F1P11670
	07527	−0 63400 2 07617	1168		SXD	OVTEST,2	F1P11680
	07530	0 53400 2 07730	1169		LXA	L(0),2	F1P11690
	07531	0 53400 4 00000	1170	TAP01	LXA	**,4 NO OF BLOCKS OF THIS TABLE ON TAPE 4	F1P11700
	07532	0 50000 1 00002	1171		CLA	2,1	F1P11710
	07533	0 62100 0 07561	1172		STA	TAP03	F1P11720
	07534	0 62100 0 07577	1173		STA	TAP08	F1P11730
	07535	0 40200 0 07731	1174		SUB	L(1)	F1P11740
	07536	0 62100 0 07603	1175		STA	TAP11	F1P11750
	07537	0 62100 0 07612	1176		STA	TAP12	F1P11760
	07540	−3 00000 4 07570	1177		TXL	TAP05,4,0 TEST FOR NO TAPE RECORDS	F1P11770
	07541	0 50000 0 00000	1178	TAP20	CLA	**	F1P11780
	07542	0 62200 0 07622	1179		STD	TAP14+1	F1P11790
	07543	−0 76000 0 00012	1180		RTT	TURN OFF INDICATOR	F1P11600
	07544	3 00000 0 00000	1181		TXH	0,0,0	F1P11810
	07545	0 76600 0 00333	1182	TAP02	IOD		F1P11820
	07546	−0 76000 0 00012	1183		RTT	TEST INDICATOR	F1P11830
	07547	1 00001 4 07621	1184		TXI	TAP14,4,1 ON	F1P11840
	07550	0 50000 0 07734	1185		CLA	L(4) OFF	F1P11850
	07551	0 60100 0 07757	1186		STO	E5A	F1P11860
	07552	0 76200 0 00224	1187	READ4	RTB	4	F1P11870
	07553	0 70000 0 07753	1188		CPY	E1A COPY IDENTIFICATION	F1P11880
	07554	0 02000 0 07556	1189		TRA	TAP025	F1P11890
	07555	0 07400 4 00004	1190		TSX	DIAG,4 EOF MACHINE ERROR	F1P11900
	07556	0 50000 0 07753	1191	TAP025	CLA	E1A	F1P11910
	07557	0 40200 1 00001	1192		SUB	1,1 TEST FOR RECORD OF TABLE BEING ASSEMBLED	F1P11920
	07560	−0 10000 0 07552	1193		TNZ	READ4	F1P11930
	07561	0 70000 2 00000	1194	TAP03	CPY	**,2	F1P11940
	07562	1 77777 2 07617	1195		TXI	OVTEST,2,−1	F1P11950
	07563	0 07400 4 00004	1196		TSX	DIAG,4 EOF MACHINE ERROR	F1P11960
	07564	2 00001 4 07545	1197		TIX	TAP02,4,1	F1P11970
	07565	0 76600 0 00333	1198	TAP04	IOD		F1P11980
	07566	−0 76000 0 00012	1199		RTT		F1P11990
	07567	0 02000 0 07621	1200		TRA	TAP14	F1P12000
	07570	0 50000 0 00000	1201	TAP05	CLA	**	F1P12010
	07571	0 77100 0 00022	1202		ARS	18	F1P12020
	07572	0 10000 0 07603	1203		TZE	TAP11	F1P12030
	07573	0 73400 4 00000	1204		PAX	,4	F1P12040
	07574	0 40000 0 00000	1205	TAP06	ADD	**	F1P12050
	07575	0 62100 0 07576	1206		STA	TAP07	F1P12060
	07576	0 50000 4 00000	1207	TAP07	CLA	**,4	F1P12070
	07577	0 60100 2 00000	1208	TAP08	STO	**,2	F1P12080
	07600	1 77777 2 07601	1209		TXI	TAP081,2,−1	F1P12090
	07601	−3 00000 2 07620	1210	TAP081	TXL	OVFLOW,2,**	F1P12100
	07602	2 00001 4 07576	1211	TAP09	TIX	TAP07,4,1	F1P12110
	07603	0 60000 0 00000	1212	TAP11	STZ	**	F1P12120
	07604	−0 75400 2 00000	1213		PXD	,2	F1P12130
	07605	0 10000 0 07613	1214		TZE	TAP13	F1P12140
	07606	0 77100 0 00022	1215		ARS	18	F1P12150
	07607	0 76000 0 00006	1216		COM		F1P12160
	07610	0 40000 0 07731	1217		ADD	L(1)	F1P12170
	07611	0 73400 2 00000	1218		PAX	,2	F1P12180
	07612	−0 63400 2 00000	1219	TAP12	SXD	**,2	F1P12190
	07613	0 56000 0 07754	1220	TAP13	LDQ	E2A	F1P12200
	07614	−0 53400 2 07755	1221		LXD	E3A,2	F1P12210
	07615	−0 53400 4 07756	1222		LXD	E4A,4	F1P12220
	07616	0 02000 1 00003	1223		TRA	3,1 RETURN TO CALLER	F1P12230
	07617	3 00000 2 07561	1224	OVTEST	TXH	TAP03,2,**	F1P12240
	07620	0 07400 4 00004	1225	OVFLOW	TSX	DIAG,4 BUFFER AREA EXCEEDED	F1P12250
	07621	0 76400 0 00204	1226	TAP14	BST	4	F1P12260
	07622	1 00000 2 07623	1227		TXI	TAP14+2,2,**	F1P12270
	07623	0 50000 0 07757	1228		CLA	E5A	F1P12280
	07624	0 40200 0 07731	1229		SUB	L(1)	F1P12290
	07625	0 60100 0 07757	1230		STO	E5A	F1P12300
	07626	−0 10000 0 07552	1231		TNZ	READ4	F1P12310
	07627	0 07400 4 00004	1232		TSX	DIAG,4 THREE FAILURES IN READING A RECORD FROM T4	F1P12320
	07630	0 00000 0 00322	1233	OAD		INTET	F1P12330
		07631	1234		BSS	3	F1P12340
			1235			MAXIMUM NUMBER OF WORDS ALLOWED IN VARIOUS TABLES	F1P12350
	07634	0 00000 0 77634	1236			−100	F1P12360
	07635	0 00000 0 77634	1237			−100	F1P12370
	07636	0 00000 0 77324	1238			−300	F1P12380
	07637	0 00000 0 76422	1239			−750	F1P12390
	07640	0 00000 0 76174	1240			−900	F1P12400
	07641	0 00000 0 76650	1241			−600	F1P12410
	07642	0 00000 0 76174	1242			−900	F1P12420
	07643	0 00000 0 75152	1243	MWN		−1430	F1P12430
	07644	0 00000 0 75044	1244			−1500	F1P12440
	07645	0 00000 0 75044	1245			−1500	F1P12450
	07646	0 00000 0 76422	1246			−750	F1P12460
	07647	0 00000 0 76030	1247			−1000	F1P12470
	07650	0 00000 0 75044	1248			−1500	F1P12480
	07651	0 00000 0 75044	1249			−1500	F1P12490
	07652	0 00000 0 77406	1250			−250	F1P12500
	07653	0 00000 0 76650	1251			−600	F1P12510
	07654	0 00000 0 76422	1252			−750	F1P12520
	07655	0 00000 0 76422	1253			−750	F1P12530
			1254				F1P12540
			1255			PROGRAM FOR WRITING AN ASSEMBLED TABLE ON TAPE	F1P12550
	07656	−0 63400 2 07726	1256	WAT00	SXD	E1W,2 START PROGRAM WAT	F1P12560
	07657	0 50000 0 07734	1257		CLA	L(4) PREPARE TO COUNT	F1P12570
	07660	0 60100 0 07727	1258		STO	E2W TWO TAPE TESTS	F1P12580
	07661	0 76600 0 00222	1259	WAT09	WRS	146 PREPARE TO WRITE ON TAPE 2	F1P12590
	07662	0 50000 1 00002	1260		CLA	2,1 COMPUTE LOCATION OF NUMBER OF WORDS	F1P12600
	07663	0 40200 0 07731	1261		SUB	L(1) IN TABLE AND INITIALIZE ADDRESSES	F1P12610
	07664	0 62100 0 07666	1262		STA	WAT03	F1P12620
	07665	0 62100 0 07674	1263		STA	WAT04	F1P12630
	07666	0 50000 0 00000	1264	WAT03	CLA	** ADDRESS IS NTA-1	F1P12640
	07667	0 77100 0 00022	1265		ARS	18 NUMBER OF WORDS IN TABLE PUT IN	F1P12650
	07670	0 73400 2 00000	1266		PAX	0,2 INDEX B	F1P12660
	07671	0 40000 1 00002	1267		ADD	2,1 RESET ADDRESS	F1P12670
	07672	0 62100 0 07677	1268		STA	WAT05	F1P12680
	07673	0 70000 1 00001	1269		CPY	1,1 IDENTIFY TABLE ON TAPE	F1P12690
	07674	0 70000 0 00000	1270	WAT04	CPY	** NUM OF WORDS IN TABLE PUT ON TAPE	F1P12700
	07675	0 40200 1 00002	1271		SUB	2,1	F1P12710
	07676	0 10000 0 07724	1272		TZE	WAT06 NO ENTRIES IN TABLE	F1P12720
	07677	0 70000 2 00000	1273	WAT05	CPY	0,2 ADDR IS NTA + NUM WORDS IN NTA	F1P12730
	07700	2 00001 2 07677	1274		TIX	WAT05,2,1 COPY LOOP	F1P12740
	07701	0 76400 0 00222	1275		BST	146	F1P12750
	07702	−0 76000 0 00012	1276		RTT		F1P12760
	07703	0 76100 0 00000	1277		NOP		F1P12770
	07704	0 76200 0 00222	1278		RDS	146	F1P12780
	07705	0 70000 0 07754	1279	WAT07	CPY	E2A	F1P12790
	07706	0 02000 0 07705	1280		TRA	WAT07	F1P12800
	07707	0 76100 0 00000	1281		NOP	E O R	F1P12810
	07710	0 76600 0 00333	1282		WRS	219 E O F	F1P12820
	07711	−0 76000 0 00012	1283		RTT		F1P12830
	07712	0 02000 0 07714	1284		TRA	WAT10 TAPE CHECK ON	F1P12840
	07713	0 02000 0 07724	1285		TRA	WAT06 TAPE CHECK OFF	F1P12850
	07714	0 50000 0 07727	1286	WAT10	CLA	E2W	F1P12860
	07715	0 40200 0 07731	1287		SUB	L(1)	F1P12870
	07716	0 60100 0 07727	1288		STO	E2W	F1P12880
	07717	0 12000 0 07721	1289		TPL	WAT08	F1P12890
	07720	0 07400 4 00004	1290		TSX	DIAG,4 STOP FOR THIRD TAPE CHECK	F1P12900
	07721	0 76400 0 00222	1291	WAT08	BST	146	F1P12910
	07722	0 02000 0 07661	1292		TRA	WAT09	F1P12920
	07723	0 70000 0 07730	1293		CPY	L(0)	F1P12930
	07724	−0 53400 2 07726	1294	WAT06	LXD	E1W,2 RESTORE INDEX B	F1P12940
	07725	0 02000 1 00003	1295		TRA	3,1 RETURN TO MAIN PROGRAM	F1P12950
			1296				F1P12960
	07726	0 00000 0 00000	1297	E1W			F1P12970
	07727	0 00000 0 00000	1298	E2W			F1P12980
	07730	0 00000 0 00000	1299	L(0)		0	F1P12990
	07731	0 00000 0 00001	1300	L(1)		1	F1P13000
	07732	0 00000 0 00002	1301	L(2)		2	F1P13010
	07733	0 00000 0 00003	1302	L(3)		3	F1P13020
	07734	0 00000 0 00004	1303	L(4)		4	F1P13030
	07735	0 00000 0 00005	1304	L(5)		5	F1P13040
	07736	0 00000 0 00010	1305	L(8)		8	F1P13050
	07737	0 00000 0 00062	1306	L(50)		50	F1P13060
	07740	0 00001 0 00000	1307	DECR1		0,0,1	F1P13070
	07741	0 00002 0 00000	1308	DECR2		0,0,2	F1P13080
	07742	+000000077777	1309	MSK	OCT	77777 AMWO5O3	F1P13090
	07743	+377777777777	1310	FRCON	OCT	377777777777 35 ONES. AMW 1318	F1P13100
	07744	0 00000 0 00312	1311	DRL02		202	F1P13110
	07745	0 00000 0 00002	1312	TNT2		2	F1P13120
	07746	0 00000 0 00000	1313	E3		NON ERASABLE 0416 TO 0908	F1P13130
	07747	0 00000 0 00000	1314	E4			F1P13140
	07750	0 00000 0 04551	1315	L(0TA)		OTA	F1P13150
	07751	0 07400 4 00004	1316	TEIFER	TSX	DIAG,4	F1P13160
	07752	0 10000 0 07723	1317	TP3TRA	TZE	WAT06−1	F1P13170
		07753	1318	E1A	BSS	1	F1P13180
		07754	1319	E2A	BSS	1	F1P13190
		07755	1320	E3A	BSS	1	F1P13200
		07756	1321	E4A	BSS	1	F1P13210
		07757	1322	E5A	BSS	1	F1P13220
		07747	1323	E1	SYN	E4	F1P13230
		07746	1324	E2	SYN	E3	F1P13240
		07505	1325	TAPOO	SYN	TAP00	F1P13250
		07656	1326	WATOO	SYN	WAT00	F1P13260
		07750	1327	L(OTA)	SYN	L(0TA)	F1P13270
		00004	1328	DIAG	SYN	4	F1P13280
		03163	1329	COMP	SYN	1TA	F1P13290
		03163	1330	2TA	SYN	1TA	F1P13300
		03163	1331	3TA	SYN	1TA	F1P13310
		07750	1332	TOTO	SYN	L(OTA)	F1P13320
		04550	1333	EQM1	SYN	OTA−1	F1P13330
		04551	1334	EQ	SYN	OTA	F1P13340
		01614	1335	4TA	SYN	XTA	F1P13350
		01614	1336	5TA	SYN	XTA	F1P13360
		01614	1337	6TA	SYN	XTA	F1P13370
		01614	1338	7TA	SYN	XTA	F1P13380
		01614	1339	9TA	SYN	XTA	F1P13390
		01613	1340	MEEQM1	SYN	XTA−1	F1P13400
		01614	1341	MEEQ	SYN	XTA	F1P13410
		03172	1342	FRTS	SYN	XTA+750	F1P13420
		03564	1343	FRCHS	SYN	XTA+1000	F1P13430
		07746	1344	E12	SYN	E3	F1P13440
		07747	1345	E1RF	SYN	E4	F1P13450
		01577	1346	SMBL	SYN	E1CLEQ	F1P13460
		01600	1347	SBSCR	SYN	E2CLEQ	F1P13470
		03564	1348	16TA	SYN	6TA+1000	F1P13480
		00004	1349	1TOCS	SYN	4	F1P13490
			1350				F1P13500
			1351			THE FOLLOWING SYN CARDS ARE FOR PARAMETERS IN THE CARRY OVER	F1P13510
			1352			FROM SECTION ONE TO SECTION ONE PRIME.	F1P13520
		00030	1353	EIFNO	SYN	24	F1P13530
		00031	1354	ENDI1	SYN	25	F1P13540
		00034	1355	ENDI4	SYN	28	F1P13550
		00322	1356	INTET	SYN	210	F1P13560
		00417	1357	FXCNIX	SYN	271	F1P13570
		00424	1358	FLCNIX	SYN	276	F1P13580
		00453	1359	ORGDM1	SYN	299	F1P13590
		00455	1360	DIM1IX	SYN	301	F1P13600
		00460	1361	ORGDM2	SYN	304	F1P13610
		00462	1362	DIM2IX	SYN	306	F1P13620
		00465	1363	ORGDM3	SYN	309	F1P13630
		00467	1364	DIM3IX	SYN	311	F1P13640
		00470	1365	BK	SYN	312	F1P13650
		00471	1366	FORSUB	SYN	313	F1P13660
		00637	1367	BBOX	SYN	415	F1P13670
		00640	1368	CIB	SYN	416	F1P13680
		07760	1369	END1PC	BSS	0	F1P13690