1		AST
			2			************* FORTRAN II SECTION SIX ************************	F6C00010
			3			FORTRAN 2 RECORD 96 - ASSIGN COMMON	F6C00011
			4				F6C00012
			5			CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL)	F6C00013
			6				F6C00014
M		00205	7	ME2	SYN	133	F6C00020
		00210	8		ORG	136	F6C00030
			9			THIS ROUTINE IS ENTERED AFTER AN UNSUCCESSFUL BINARY SEARCH	F6C00031
			10			OF DEV. INDEX REGISTER 2 CONTAINS THE RELATIVE POSITI0N IN	F6C00032
			11			DEV THAT THE NEW, ENTRY SHOULD HAVE.	F6C00033
	00210	1 00001 2 00211	12	EDEV	TXI	EDEV0,2,1 SAVE POSITION FOR TEST.	F6C00040
	00211	−0 63400 2 00225	13	EDEV0	SXD	EDEV1,2	F6C00050
	00212	0 60100 0 00160	14		STO	ENTRY SAVE ITEM TO BE ENTERED	F6C00060
	00213	−0 53400 2 00155	15		LXD	DEVL,2	F6C00070
	00214	1 00001 2 00215	16		TXI	EDEV2,2,1 UPDATE LENGTH OF DEV TABLE.	F6C00080
	00215	−0 63400 2 00155	17	EDEV2	SXD	DEVL,2 MUST STARTING PT OF NEXT SEARCH BE	F6C00090
	00216	−3 00000 2 00225	18	EDEV3	TXL	EDEV1,2,**+0 UPDATED TO NEXT P0WER OF 2.	F6C00100
	00217	−0 50000 0 00154	19		CAL	DEVS YES.	F6C00110
	00220	0 40000 0 00156	20		ADD	DEVA UPDATE DEVS	F6C00120
	00221	0 60200 0 00154	21		SLW	DEVS	F6C00130
	00222	0 62200 0 00156	22		STD	DEVA	F6C00140
	00223	0 40000 0 00156	23		ADD	DEVA UPDATE THE EDEV3 TEST TO NEXT	F6C00150
	00224	0 62200 0 00216	24		STD	EDEV3 HIGHER POWER OF 2.	F6C00160
	00225	3 00225 2 00233	25	EDEV1	TXH	EDEV4,2,* DECREMENT CONTAINS NEW POSITION	F6C00170
	00226	−0 50000 0 00160	26		CAL	ENTRY OF ENTRY. IF TEST SHOWS THAT ENTRY	F6C00180
	00227	0 60200 2 77777	27		SLW	DEV,2 TO BE MADE ON END OF TABLE,	F6C00190
	00230	0 50000 0 00174	28		CLA	EA DO SO.	F6C00200
	00231	0 60100 2 74413	29		STO	DEA,2 ENTRY IS MADE INTO MIDDLE OF DEV.	F6C00210
	00232	0 02000 4 00001	30		TRA	1,4 MOVE SUCCEDING ENTRIES DOWN	F6C00220
	00233	−0 50000 2 00000	31	EDEV4	CAL	DEV+1,2 UNTIL SPACE IS MADE FOR NEW ENTRY.	F6C00230
	00234	0 60200 2 77777	32		SLW	DEV,2	F6C00240
	00235	−0 50000 2 74414	33		CAL	DEA+1,2	F6C00250
	00236	0 60200 2 74413	34		SLW	DEA,2	F6C00260
	00237	1 77777 2 00225	35		TXI	EDEV1,2,−1	F6C00270
			36			READ EQUIV SENTENCE FROM DRUM 1	F6C00280
	00240	−0 63400 2 00264	37	NXT	SXD	LIB20,2 SAVE XR2	F6C00290
	00241	0 53400 2 00265	38		LXA	LOC15,2 SET DRUM READ ERROR COUNTER	F6C00300
	00242	0 76200 0 00301	39	LIB21	RDR	1	F6C00310
	00243	0 53400 1 00161	40		LXA	ZERO,1 SET XR1=0	F6C00320
	00244	0 46000 0 00361	41		LDA	ETL TO LOCATE FIRST VARIABLE NAME IN EQUIV. SENT.	F6C00330
T	00245	−0 75400 0 00000	42		PXD		F6C00340
	00246	−0 70000 1 71456	43	ECC	CAD	ECS−1,1 COPY VARIABLE NAME INTO ECS-1 ETC	F6C00350
	00247	1 00001 1 00250	44		TXI	ECI,1,1	F6C00360
	00250	−0 70000 1 75531	45	ECI	CAD	I,1 COPY ELEMENT NUMBER INTO I-1 ETC	F6C00370
	00251	0 16200 0 00246	46		TQP	ECC TRANS. TO ECC IF STILL MORE WORDS IN SENT.	F6C00380
			47			READ IN.	F6C00381
	00252	0 70000 0 00362	48		CPY	CS CHECK SUM TEST. (EACH SENTENCE HAS ITS OWN	F6C00390
	00253	0 76000 0 00006	49		COM	LOGICAL CHECK SUM.	F6C00400
	00254	0 36100 0 00362	50		ACL	CS	F6C00410
	00255	0 76000 0 00006	51		COM		F6C00420
	00256	0 10000 0 00261	52		TZE	GFI IF CHECK SUM OK, PROCEED TO GFI	F6C00430
	00257	2 00001 2 00242	53		TIX	LIB21,2,1 IF INCORRECT CHECK SUM, TRY AGAIN UNLESS	F6C00440
	00260	0 07400 4 00004	54		TSX	4,4 ERROR COUNTER EQUALS ONE.	F6C00450
	00261	−0 63400 1 00363	55	GFI	SXD	N,1 SAVE NO. OF VARIABLE NAMES READ IN SENT.	F6C00460
	00262	−0 53400 2 00264	56		LXD	LIB20,2 RESTORE XR2	F6C00470
	00263	0 02000 4 00001	57		TRA	1,4 RETURN	F6C00480
	00264	0 00000 0 00000	58	LIB20	HTR	0	F6C00490
	00265	0 00000 0 00017	59	LOC15	HTR	15	F6C00500
			60			EQUIV SENTENCE ASSIGNMENT	F6C00510
	00266	−0 53400 1 00363	61	UP02	LXD	N,1 N=NO. OF WORDS IN SENTENCE INTO XR1	F6C00520
	00267	−0 63400 4 00372	62		SXD	IR4,4 SAVE XR4	F6C00530
	00270	0 50200 1 75531	63		CLS	I,1 SELECT MAX1MUM I+/LAST I/INTO AC	F6C00540
	00271	−2 00001 1 00276	64		TNX	MAX,1,1 WHERE I IS NUMERIC PART OF EQUIV. COMPARE WITH	F6C00550
	00272	0 56000 1 75531	65	MIT	LDQ	I,1 NEXT I	F6C00560
	00273	0 04000 0 00275	66		TLQ	TIN GREATER OF THE TWO IS INTO AC.	F6C00570
	00274	0 50000 1 75531	67		CLA	I,1	F6C00580
	00275	2 00001 1 00272	68	TIN	TIX	MIT,1,1 IF MORE IS TO BE COMPARED, DECREMENT XR1	F6C00590
			69			AND REPEAT WITH NEXT I.	F6C00591
	00276	0 60200 0 00364	70	MAX	SLW	MAXI STORE MAXIMUM I OF SENTENCE.	F6C00600
T	00277	−0 75400 0 00000	71		PXD	LET D=L-I, WHERE L IS LENGTH OF ARRAY	F6C00610
	00300	0 60100 0 00365	72		STO	MAXD SET MAXD=0 WHICH CORRESPONDS TO ONE	F6C00620
	00301	−0 53400 1 00363	73		LXD	N,1 WD CT. OF SENT. 1NTO XR1. OF THE WORDS IN THE	F6C00630
			74			SENTENCE.	F6C00631
	00302	0 50000 1 71457	75	LID	CLA	ECS,1 BRING A WORD OF SENTENCE INTO AC.	F6C00640
	00303	0 53400 2 00366	76		LXA	VSZ,2 NO. OF ENTRIES IN ARRAY NAME TABLE (FROM SIZE	F6C00650
			77			TABLE).	F6C00651
D	00304	−3 00000 2 00311	78		TXL	NSZ,2 IF NO ENTRIES IN SIZE TABLE, GO TO NSZ	F6C00660
	00305	0 34000 2 75055	79	SSZ	CAS	STS,2 OTHERWISE, COMPARE A WORD OF EQUIV SENT WITH	F6C00670
			80			AN ARRAY NAME.	F6C00671
	00306	0 02000 0 00310	81		TRA	TDV	F6C00680
	00307	0 02000 0 00313	82		TRA	SSF IF EQUAL, GO TO SSF TO COMPUTE D.	F6C00690
	00310	2 00001 2 00305	83	TDV	TIX	SSZ,2,1 IF NOT EQUAL, DECREMENT ARRAY NAME INDEX AND GO	F6C00700
			84			AGAIN TO COMPARE.	F6C00701
	00311	0 50000 0 00162	85	NSZ	CLA	ONE IF NO WORD IN SENTENCE IS AN ARRAY,	F6C00710
	00312	0 02000 0 00314	86		TRA	LIT SET L=1 AND GO TO LIT TO COMPUTE D.	F6C00720
	00313	0 50000 2 76173	87	SSF	CLA	L,2 IF WORD IN SENT.=ARRAY NAME IN SIZE TABLE, CLA	F6C00730
			88			LENGTH OF THAT ARRAY.	F6C00731
	00314	−0 40000 1 75531	89	LIT	SBM	I,1 COMPUTE AND STORE D=L-I FOR I CORRESPONDING TO	F6C00740
			90			WORD	F6C00741
	00315	0 60100 0 00173	91		STO	D IN EQUIVALENCE SENTENCE.	F6C00750
	00316	0 56000 0 00173	92		LDQ	D COMPARE WITH MAXD AND STORE LARGER IN MAXD.	F6C00760
	00317	0 50000 0 00365	93		CLA	MAXD	F6C00770
	00320	0 04000 0 00322	94		TLQ	DEN	F6C00780
	00321	−0 60000 0 00365	95		STQ	MAXD GO BACK AND COMPUTE D US1NG NEW I UNTIL ALL	F6C00790
	00322	2 00001 1 00302	96	DEN	TIX	LID,1,1 IS CORRESPOND1NG TO WDS IN EQUIV. SENT. ARE	F6C00800
	00323	0 50000 0 00171	97		CLA	LCTR EXHAUSTED.	F6C00810
	00324	0 40200 0 00364	98		SUB	MAXI REDUCE LOCATION COUNTER BY MAX1	F6C00820
	00325	0 60100 0 00171	99		STO	LCTR	F6C00830
	00326	−0 53400 1 00363	100		LXD	N,1 RESET COUNTER FOR WORDS IN EQUIV. SENTENCE.	F6C00840
	00327	−0 63400 1 00367	101	STJ	SXD	J,1 SAVE CURRENT STATUS OF COUNTER IN DECR. OF J.	F6C00850
	00330	0 50000 0 00171	102		CLA	LCTR COMPUTE ABSOLUTE LOCATION OF WORD IN SENT.,	F6C00860
	00331	0 40100 1 75531	103		ADM	I,1 AND SAVE IT IN EA	F6C00870
	00332	0 60100 0 00174	104		STO	EA	F6C00880
	00333	0 50000 1 71457	105	DES	CLA	ECS,1 CURRENT WORD OF EQUIV SENTENCE.	F6C00890
	00334	0 07400 4 00142	106		TSX	SDEV,4 SEARCH DEV TABLE	F6C00900
	00335	0 07400 4 00210	107		TSX	EDEV,4 STORE IN DEV TABLE	F6C00910
	00336	0 02000 0 00342	108		TRA	MJC RETURN FROM EDEV.	F6C00920
	00337	0 40200 0 00174	109		SUB	EA RETURN FROM SDEV IF FOUND IN DEV TABLE. DEA	F6C00930
	00340	0 10000 0 00342	110		TZE	MJC CORRESP. TO DEV ENTRY SHOULD EQUAL EA OR ERROR	F6C00940
	00341	0 07400 4 00004	111		TSX	4,4	F6C00950
	00342	−0 53400 1 00367	112	MJC	LXD	J,1 CURRENT STATUS OF EQUIV. WORD COUNTER	F6C00960
	00343	2 00001 1 00327	113		TIX	STJ,1,1 IF MORE WDS IN SENTENCE, REPEAT WITH NEXT WORD	F6C00970
	00344	0 50000 0 00171	114		CLA	LCTR AT END OF SENTENCE, REDUCE LCTR BY MAXD.	F6C00980
	00345	0 40200 0 00365	115		SUB	MAXD	F6C00990
	00346	0 60100 0 00171	116		STO	LCTR	F6C01000
	00347	−0 53400 4 00372	117		LXD	IR4,4	F6C01010
	00350	0 50000 0 00363	118	UP03	CLA	N TO MODIFY DRUM ADDRESS ADD NO. OF WORDS READ	F6C01020
			119			EQUIVALENCE TABLE.	F6C01021
	00351	0 77100 0 00021	120		ARS	17 PLUS ONE TO ALLOW FOR CHECK SUM	F6C01030
	00352	0 40000 0 00162	121		ADD	ONE PLUS	F6C01040
	00353	0 40000 0 00361	122		ADD	ETL LAST STARTING DRUM ADDRESS.	F6C01050
	00354	0 60100 0 00361	123		STO	ETL STORE NEW STARTING DRUM ADDRESS IN ETL.	F6C01060
	00355	0 53400 1 00361	124		LXA	ETL,1 TEST FOR END OF EQUIVALENCE TABLE.	F6C01070
	00356	−3 00000 1 00360	125	ECN	TXL	UP31,1,** WD COUNT OF EQUIV. TABLE IN DECR.	F6C01080
	00357	0 02000 4 00002	126		TRA	2,4 IS END OF TABLE, GO TO 2,4	F6C01090
	00360	0 02000 4 00001	127	UP31	TRA	1,4 IF NOT END OF EQUIV TABLE, GO TO EXIT+1	F6C01100
	00361	0 00000 0 00000	128	ETL	HTR	0	F6C01110
	00362	0 00000 0 00000	129	CS	HTR	0	F6C01120
	00363	0 00000 0 00000	130	N	HTR	0	F6C01130
	00364	0 00000 0 00000	131	MAXI	HTR	0	F6C01140
	00365	0 00000 0 00000	132	MAXD	HTR	0	F6C01150
	00366	0 00000 0 00000	133	VSZ	HTR	0 CONTAINS NO. OF 2-WORD ENTRIES IN SIZ TABLE.	F6C01160
	00367	0 00000 0 00000	134	J	HTR	0	F6C01170
	00370	0 00000 0 00000	135	ETN	HTR	0	F6C01180
	00371	+000001000000	136	C1	OCT	000001000000	F6C01190
	00372	0 00000 0 00000	137	IR4	HTR	0	F6C01200
			138			BUILD SYMBOL TABLE FROM COMMON	F6C01210
		00400	139		ORG	256	F6C01220
T	00400	−0 75400 0 00004	140	UP12	PXD	4	F6C01230
	00401	0 76000 0 00006	141		COM		F6C01240
	00402	0 60200 0 77777	142		SLW	DEV WORD OF 1S INTO DEV.	F6C01250
	00403	0 76200 0 00222	143		RTB	2 TO SKIP SUBDEF RECORD ON TAPE 2.	F6C01260
	00404	0 53400 1 00411	144		LXA	STP,1 SET TAPE ERROR COUNTER	F6C01270
	00405	0 02000 0 00412	145		TRA	UP15 AND GO TO READ IN COMMON.	F6C01280
	00406	0 76400 0 00202	146	ERRUP	BST	2 TRY TO READ RECORD AGAIN	F6C01290
	00407	2 00001 1 00412	147		TIX	UP15,1,1 UNLESS C0UNTER REDUCED TO 1.	F6C01300
	00410	0 07400 4 00004	148		TSX	4,4	F6C01310
	00411	0 42000 0 00005	149	STP	HPR	5	F6C01320
	00412	0 76200 0 00222	150	UP15	RTB	2 SELECT TAPE TWO	F6C01330
	00413	−0 53400 4 00164	151		LXD	ADDR,4	F6C01340
	00414	0 70000 4 72606	152	UP16	CPY	UPPER−1,4 READ IN COMMON TABLE.	F6C01350
	00415	1 00001 4 00414	153		TXI	UP16,4,1	F6C01360
	00416	0 02000 0 00427	154		TRA	EOF END OF FILE IS ERROR HERE	F6C01370
	00417	0 77100 0 00377	155		ARS	255	F6C01380
	00420	0 77100 0 00377	156		ARS	255	F6C01390
	00421	−0 76000 0 00012	157		RTT		F6C01400
	00422	0 02000 0 00406	158		TRA	ERRUP	F6C01410
	00423	0 50000 0 72605	159		CLA	UPPER−2 STORE WORD COUNT OF COMMON	F6C01420
	00424	0 40200 0 00371	160		SUB	C1 TABLE -1 IN DECR OF UP 18	F6C01430
	00425	0 62200 0 00522	161		STD	UP18	F6C01440
	00426	0 02000 0 00430	162		TRA	DSR ERROR	F6C01450
	00427	0 07400 4 00004	163	EOF	TSX	4,4 END OF FILE ERROR	F6C01460
	00430	0 53400 2 00265	164	DSR	LXA	LOC15,2 SET DRUM ERROR COUNTER	F6C01470
	00431	0 76200 0 00302	165	LIB22	RDR	2	F6C01480
	00432	0 46000 0 00433	166		LDA	DSA SIZE TABLE TEST	F6C01490
T	00433	−0 75400 0 00000	167	DSA	PXD	0	F6C01500
	00434	−0 70000 0 00366	168		CAD	VSZ READ SIZE TABLE WORD COUNT	F6C01510
	00435	0 76000 0 00006	169		COM		F6C01520
	00436	−0 70000 0 00362	170		CAD	CS	F6C01530
	00437	0 76000 0 00006	171		COM		F6C01540
	00440	0 10000 0 00443	172		TZE	DTR	F6C01550
	00441	2 00001 2 00431	173		TIX	LIB22,2,1 IF DRUM READ ERROR	F6C01560
	00442	0 07400 4 00004	174		TSX	4,4	F6C01570
	00443	0 50000 0 00366	175	DTR	CLA	VSZ	F6C01580
	00444	0 77100 0 00001	176		ARS	1 STORE NO. OF ARRAY NAMES IN SIZE	F6C01590
	00445	0 60100 0 00366	177		STO	VSZ TABLE INTO VSZ	F6C01600
	00446	0 53400 1 00366	178	DTE	LXA	VSZ,1 SIZE TABLE TEST	F6C01610
D	00447	−3 00000 1 00466	179		TXL	ETR,1 IF NO SIZE TABLE, GO ETR	F6C01620
	00450	0 53400 2 00265	180		LXA	LOC15,2 IF SIZE TABLE ENTRIES, SET	F6C01630
	00451	0 76200 0 00302	181	LIB23	RDR	2 DRUM READ ERROR COUNT AND READ IN SIZE	F6C01640
	00452	0 46000 0 00453	182		LDA	DTA TABLE.	F6C01650
T	00453	−0 75400 0 00002	183	DTA	PXD	2	F6C01660
	00454	−0 70000 1 75055	184	DTC	CAD	STS,1 COPY ARRAY NAME INTO STS,1	F6C01670
	00455	−0 70000 1 76173	185		CAD	L,1 COPY ARRAY LENGTH INTO L,1	F6C01680
	00456	2 00001 1 00454	186		TIX	DTC,1,1	F6C01690
	00457	0 70000 0 00362	187		CPY	CS	F6C01700
	00460	0 76000 0 00006	188		COM		F6C01710
	00461	−0 70000 0 00362	189		CAD	CS	F6C01720
	00462	0 76000 0 00006	190		COM		F6C01730
	00463	0 10000 0 00466	191		TZE	ETR TEST CHECK SUM IF OK, GO TO ETR.	F6C01740
	00464	2 00001 2 00451	192		TIX	LIB23,2,1 CHECK SUM ERROR.	F6C01750
	00465	0 07400 4 00004	193		TSX	4,4	F6C01760
	00466	0 53400 2 00265	194	ETR	LXA	LOC15,2	F6C01770
	00467	0 76200 0 00301	195	LIB24	RDR	1 SELECT DRUM 1. TO SEE IF ANY EQUIV. TABLE.	F6C01780
	00470	0 46000 0 00471	196		LDA	ETA EQUIV TABLE TEST	F6C01790
T	00471	−0 75400 0 00000	197	ETA	PXD	0	F6C01800
	00472	−0 70000 0 00370	198		CAD	ETN READ WORD COUNT OF EQUIV TABLE INTO ETN	F6C01810
	00473	0 76000 0 00006	199		COM		F6C01820
	00474	−0 70000 0 00362	200		CAD	CS	F6C01830
	00475	0 76000 0 00006	201		COM		F6C01840
	00476	0 10000 0 00501	202		TZE	ETT IF NO ERROR, GO TO ETT.	F6C01850
	00477	2 00001 2 00467	203		TIX	LIB24,2,1	F6C01860
	00500	0 07400 4 00004	204		TSX	4,4	F6C01870
	00501	−0 53400 1 00370	205	ETT	LXD	ETN,1 SET XR1 EQUAL WD. CT. OF EQUIV TABLE	F6C01880
D	00502	−3 00000 1 00535	206		TXL	UP01,1 IF WORD C0UNTER ZERO, TRANSFER	F6C01890
	00503	−0 63400 1 00356	207		SXD	ECN,1 IF THERE ARE ENTRIES IN EQUIV, SAVE WD. CT. IN	F6C01900
			208			ECN.	F6C01901
	00504	0 50000 0 00163	209		CLA	TWO	F6C01910
	00505	0 60100 0 00361	210		STO	ETL SET ETL=2	F6C01920
	00506	0 50000 0 72605	211		CLA	UPPER−2, IF WORD COUNT OF COMMON TABLE	F6C01930
	00507	0 10000 0 00574	212		TZE	UP25 EQUALS ZERO, GO TO UP 25. IF NOT 0,	F6C01940
	00510	0 07400 4 00240	213	UP32	TSX	NXT,4 READ EQUIV. SENTENCE.	F6C01950
	00511	2 00001 1 00512	214		TIX	CH2,1,1 XR1 CONTAINS NO. OF WOROS READ BY NXT	F6C01960
	00512	−0 63400 1 00525	215	CH2	SXD	UP21,1 NO. OF WORDS IN SENTENCE INTO DECR. UP 21	F6C01970
	00513	−0 53400 1 00164	216		LXD	ADDR,1 SET XR1,2=0	F6C01980
	00514	−0 53400 2 00164	217	UP22	LXD	ADDR,2	F6C01990
	00515	0 50000 1 71456	218	UP20	CLA	ECS−1,1 COMPARE VARIABLE NAME FROM EQUIV SENTENCE	F6C02000
	00516	0 34000 2 72604	219		CAS	UPPER−3,2 WITH WORD IN COMMON	F6C02010
	00517	0 02000 0 00521	220		TRA	UP17 NOT EQUAL	F6C02020
	00520	0 02000 0 00532	221		TRA	UP30 EQUAL. I.E, VARIABLE NAME IS IN COMMON.	F6C02030
	00521	1 00001 2 00522	222	UP17	TXI	UP18,2,1 NOT EQUAL. INCREMENT INDEX REG 2.	F6C02040
	00522	3 00522 2 00524	223	UP18	TXH	UP19,2,* PROCEED TO UP 19 IF ALL WORDS IN COMMON C0MPARE	F6C02050
	00523	0 02000 0 00515	224		TRA	UP20 OTHERWISE COMPARE AGAIN WITH NEXT COMMON WORD	F6C02060
	00524	1 00001 1 00525	225	UP19	TXI	UP21,1,1 END OF COMMON. INCREMENT VARIABLE NAME COUNTER	F6C02070
	00525	3 00525 1 00527	226	UP21	TXH	UP33,1,* IF ALL VARIABLE NAMES IN SENTENCE COMPARED	F6C02080
	00526	0 02000 0 00514	227		TRA	UP22 IF MORE NAMES IN SENTENCE, COMPARE NEXT WORD	F6C02090
	00527	0 07400 4 00350	228	UP33	TSX	UP03,4 MODIFY DRUM ADDRESS AND TEST FOR END OF EQUIV.	F6C02100
			229			TAB.	F6C02101
	00530	0 02000 0 00510	230		TRA	UP32 RETURN HERE IF NOT END OF EQUIV TABLE TO READ	F6C02110
			231			NEXT SENTENCE	F6C02111
	00531	0 02000 0 00535	232		TRA	UP01 IF END OF EQUIV TABLE, RETURN HERE	F6C02120
	00532	0 07400 4 00266	233	UP30	TSX	UP02,4 TO ASSIGN EQUIV. SENT, WORD OF WHICH	F6C02130
			234			APPEARS IN COMMON, TO UPPER MEMORY	F6C02131
	00533	0 02000 0 00510	235		TRA	UP32 RETURN IF NOT END OF EQUIV. TABLE	F6C02140
	00534	0 02000 0 00535	236		TRA	UP01 IF END OF EQUIV TABLE, RETURN HERE	F6C02150
			237			ASSIGN UPPER MEMORY FOR WORDS IN COMMON BUT NOT IN EQUIV.	F6C02151
	00535	−0 53400 1 00164	238	UP01	LXD	ADDR,1 ASSIGN UPPER	F6C02160
	00536	0 50000 0 72605	239		CLA	UPPER−2 XR1 WILL CONATIN COUNT OF COMMON WDS PROCESSED.	F6C02170
	00537	0 10000 0 00576	240		TZE	ME1 TRANSFER OUT TO ME1 IF N0 COMM0N TABLE.	F6C02180
	00540	0 40200 0 00371	241		SUB	C1 IF THERE IS A COMMON TABLE, DECREASE WORD CT.	F6C02190
	00541	0 62200 0 00572	242		STD	UP23 BY 1 AND STORE IN DECR. OF UP 23	F6C02200
	00542	0 50000 0 00171	243		CLA	LCTR	F6C02210
	00543	0 60100 0 00174	244		STO	EA STORE LOCATION COUNTER IN EA.	F6C02220
	00544	0 50000 1 72604	245	UP24	CLA	UPPER−3,1 A COMMON ENTRY INTO AC.	F6C02230
	00545	−0 63400 1 00601	246		SXD	LIB1,1 SAVE COUNT.	F6C02240
	00546	0 07400 4 00142	247		TSX	SDEV,4 SEE IF IN DEV TABLE	F6C02250
	00547	0 07400 4 00210	248		TSX	EDEV,4 TO ENTER COMMON SYMBOL IN DEV TABLE.	F6C02260
	00550	0 02000 0 00553	249		TRA	UP05 RETURN FROM EDEV. GO TO UP05 TO RESET LCTR	F6C02270
	00551	−0 53400 1 00601	250		LXD	LIB1,1 RETURN HERE IF LOCATED COMMON WORD IN DEV TABL,	F6C02280
	00552	0 02000 0 00571	251		TRA	UP06 RESTORE XR AND GO TO UP06 TO INCREMENT WD COUNT	F6C02290
			252			TO DETERMINE WHETHER SYMBOL JUST ENTERED IN DEV IS AN ARRAY.	F6C02291
	00553	0 53400 2 00366	253	UP05	LXA	VSZ,2 IS UPPER SYM	F6C02300
	00554	−0 53400 1 00601	254		LXD	LIB1,1	F6C02310
D	00555	−3 00000 2 00563	255		TXL	UP07,2 TRANSFER IF NO SIZE TABLE.	F6C02320
	00556	0 50000 1 72604	256		CLA	UPPER−3,1 COMPARE COMMON SYMBOL JUST ENTERED IN DEV TABLE	F6C02330
	00557	0 34000 2 75055	257	UP08	CAS	STS,2 WITH ARRAY NAME FROM SIZE TABLE	F6C02340
	00560	0 02000 0 00562	258		TRA	UP09	F6C02350
	00561	0 02000 0 00565	259		TRA	UP10 COMMON SYMBOL LOCATED FN SIZE TABLE	F6C02360
	00562	2 00001 2 00557	260	UP09	TIX	UP08,2,1 NOT LOCATED. REPEAT UNTIL COMPARED WITH ALL	F6C02370
			261			ARRAY NAMES	F6C02371
	00563	0 50200 0 00162	262	UP07	CLS	ONE IF NOT IN SIZE TABLE, REDUCE LCTR BY ONE. I.E.	F6C02380
			263			NOT AN ARRAY.	F6C02381
	00564	0 02000 0 00566	264		TRA	UP11	F6C02390
	00565	0 50200 2 76173	265	UP10	CLS	L,2 REDUCE LCTR BY LENGTH OF ARRAY	F6C02400
	00566	0 40000 0 00171	266	UP11	ADD	LCTR REDUCE LCTR	F6C02410
	00567	0 60100 0 00171	267		STO	LCTR	F6C02420
	00570	0 60100 0 00174	268		STO	EA STORE CURRENT LCTR IN EA.	F6C02430
	00571	1 00001 1 00572	269	UP06	TXI	UP23,1,1 REPEAT FOR EACH COMMON ENTRY UNTIL	F6C02440
	00572	3 00572 1 00574	270	UP23	TXH	UP25,1,* ALL ENTRIES IN COMMON TABLE ARE IN DEV	F6C02450
	00573	0 02000 0 00544	271		TRA	UP24 TABLE WITH THEIR ABSOLUTE LOCATIONS IN DEA TABL	F6C02460
	00574	0 76200 0 00221	272	UP25	RTB	1 GO TO LOADER	F6C02470
	00575	0 02000 0 00004	273		TRA	4	F6C02480
M	00576	0 62100 0 00205	274	ME1	STA	ME2 STORE ZERO IN ADDRESS OF ME2 AND GO TO	F6C02490
	00577	0 02000 0 00574	275		TRA	UP25 LOADER.	F6C02500
	00600	0 00000 0 00000	276	IDENT	HTR	0	F6C02510
	00601	0 00000 0 00000	277	LIB1	HTR	0	F6C02520