1			FORTRAN 2*****BLOCK 5 OF SECTION 2***************************	F2500000
			2			BLOCK 5 OF SECTION 2 USES INFORMATION GENERATED BY BLOCKS	F2500030
			3			1,2, AND 3 TO COMPILE ALL DO LOOP INDEXING INSTRUCTIONS.	F2500040
			4			DECREMENTS ARE COMPUTED, AND WHEN NECESSARY OPEN SUBROUTINES	F2500050
			5			ARE COMPILED TO COMPUTE THESE DECREMENTS AT OBJECT PROGRAM	F2500060
			6			TIME. AT THE END OF BLOCK 5 THESE INSTRUCTIONSLARE ON TAPE	F2500070
			7			3 IN SEMI-INVERTED ORDER. BLOCK 6 INVERTS THE DOFILE INTO IT	F2S00080
			8			PROPER ORDER ONTO TAPE 4	F2500090
			9				F2500100
			10				F2500110
			11			MASTER RECORD CARD = FN047	F2500120
			12			BEGIN INITIALIZATION	F2500130
			13			THE INITIALIZATION RECORD IS THE FIRST RECORD 0B BLOCK 5 READ	F2500140
			14			IN BY MONITOR. IT POSITIONS THE INPUT TAPES 2 AND 4 AND	F2300130
			15			REWINDS THE OUTPUT TAPE 3.IT READS THE NEXT RECORD (THE ALPHA	F2300160
			16			STATE) INTO CORES THEN WRITES IT ON DRUM 2. THEN IT READS	F2500170
			17			IN THE NEXT RECORD(COMMON + THE BETA STATE), AND WRITES THE B	F2500180
			18			BETA STATE ON DRUM 1. IT READS THE ADTAG TABLE FROM DRUM 2 I	F2500190
			19			FIXCON IS CHECKED8 AND INITIALIZED IF NECESSARY. IF THERE ARE	F2500200
			20			ANY DOS CONTROL IS PASSED TO MAN. IF THERE ARE NO DOS THE NE	F2500210
			21			NEXT RECORD, WHICH IS BLOCK 6, IS READ IN.	F2500220
		00030	22		ORG	24	F2500230
	00030	0 53400 1 00131	23	AINIT	LXA	L5,1 INITIALIZE ERROR COUNTER,	F2500240
	00031	0 76400 0 00222	24		BST	146 POSITION TAPE 2	F2500250
	00032	0 76400 0 00222	25		BST	146 TO READ DOTAG	F2500260
	00033	0 76200 0 00222	26	A1	RDS	146	F2500270
	00034	0 70000 0 00124	27		CPY	CPYWD3 DO TAG REC COUNT	F2500280
	00035	0 70000 0 00124	28		CPY	CPYWD3 DO TAG REC COUNT	F2500290
	00036	0 76600 0 00333	29		WRS	219	F2500300
	00037	−0 76000 0 00012	30		RTT		F2500310
	00040	0 02000 0 00056	31		TRA	A3I ERROR	F2500320
	00041	−0 53400 1 00124	32		LXD	CPYWD3,1	F2500330
	00042	−3 00000 1 00044	33		TXL	A2,1,0	F2500340
	00043	1 00002 1 00044	34		TXI	A2,1,2	F2500350
	00044	0 76400 0 00222	35	A2	BST	146 BACKSPACE T0 BEGINNING	F2500360
	00045	2 00001 1 00044	36		TIX	A2,1,1 OF DOTAG RECORDS	F2500370
	00046	0 77200 0 00223	37		REW	147 REWIND OUTPUT TAPE	F2500380
	00047	0 77200 0 00224	38		REW	148 REWIND TAGTAG TAPE	F2500390
	00050	0 76200 0 00224	39	A3	RDS	148	F2500400
	00051	0 70000 0 00124	40		CPY	CPYWD3 TAGTAG RECORD COUNT	F2500410
	00052	0 02000 0 00050	41		TRA	A3	F2500420
	00053	0 76200 0 00221	42		RDS	145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE	F2500430
	00054	0 02000 0 00004	43		TRA	4 E.D.F. READ IN NEXT BLOCK OF INST.	F2500440
			44			THE ALPHA STATE IS NOW IN CORES. CONTROL PASSES TO C.	F2500450
	00055	0 02000 0 00050	45		TRA	A3 E.O.R.	F2500460
	00056	−2 00001 1 00061	46	A3I	TNX	A4,1,1 READING	F2500470
	00057	0 76400 0 00222	47		BST	146 ERROR	F2500480
	00060	0 02000 0 00033	48		TRA	A1 ROUTINE	F2500490
	00061	0 07400 4 00004	49	A4	TSX	DIAG,4 TAPE 2 HAS GOTTEN AN ERROR CHECK 5 TIMES.	F2500500
	00062	0 53400 2 00146	50	C	LXA	L0,2	F2500510
	00063	0 07400 4 00132	51		TSX	BINIT,4 WRITE BLOCK A ON DRUM	F2500520
	00064	0 76200 0 00221	52		RDS	145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE	F2300530
	00065	0 02000 0 00004	53		TRA	4 READ NEXT RECORD	F2500540
			54			COMMON AND BETA STATE ARE NOW IN CORES, CONTROL IS PASSED TO	F2500550
			55			THE FOLLOWING INSTRUCTION.	F2500560
	00066	0 53400 2 00126	56		LXA	L1,2	F2500570
	00067	0 07400 4 00132	57		TSX	BINIT,4 PLACE BLOCK B ON DRUM	F2500580
	00070	0 07400 4 00150	58		TSX	ADTGDM,4 READ ADTAG ENTRIES	F2500590
	00071	0 53400 1 00131	59		LXA	L5,1 INITIALIZE ERROR COUNTER.	F2500600
	00072	0 76200 0 00302	60	C1	RDS	194 SELECT FIXCON DRUM.	F2500610
	00073	0 70000 0 00124	61		CPY	CPYWD3 WORD COUNT OF FIXCON	F2500620
	00074	0 70000 0 00125	62		CPY	CPYWD4	F2500630
	00075	0 50000 0 00124	63		CLA	CPYWD3	F2500640
	00076	0 40200 0 00125	64		SUB	CPYWD4	F2500650
	00077	−0 10000 0 00122	65		TNZ	C6 ERROR IN DRUM READING	F2500660
	00100	0 50000 0 00124	66		CLA	CPYWD3	F2500670
	00101	0 10000 0 00114	67		TZE	C4 NO ENTR1ES IN FIXCON	F2500680
	00102	0 40200 0 00127	68		SUB	L2	F2500690
	00103	0 76700 0 00021	69		ALS	17	F2500700
	00104	0 62200 0 04616	70	C2	STD	FC08+1 STORE WORD COUNT IN	F2500710
	00105	0 50000 0 05126	71		CLA	L(1) DECREMENT OF FC08-1	F2500720
	00106	0 60100 0 05205	72		STO	SWICH2 SET SWITCH 2 TO 1	F2500730
	00107	−0 76000 0 00143	73		MSE	99	F2500740
	00110	0 02000 0 03654	74		TRA	MAN IF NO DOTAGS,	F2500750
	00111	0 76000 0 00143	75		PSE	99 TRA MONITOR	F2500760
	00112	0 76200 0 00221	76		RDS	145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE	F2500770
	00113	0 02000 0 00004	77		TRA	4 OTHERWISE TRA MAN.	F2500780
	00114	0 76600 0 00302	78	C4	WRS	194	F2500790
	00115	0 70000 0 00146	79		CPY	L0 NO ENTRIES, WRITE	F2500800
	00116	0 70000 0 00146	80		CPY	L0 ZEROS IN FIRST FOUR	F2500810
	00117	0 70000 0 00146	81		CPY	L0 LOCATIONS OF DRUM 3	F2500820
	00120	0 70000 0 00146	82		CPY	L0	F2500830
	00121	0 02000 0 00104	83		TRA	C2	F2500840
	00122	2 00001 1 00072	84	C6	TIX	C1,1,1 DRUM 2 READING ERROR ROUTINE.	F2500850
	00123	0 07400 4 00004	85		TSX	DIAG,4 DRUM 2 READING ERROR 5 TIMES.	F2500860
A	00124	0 00000 0 00000	86	CPYWD3	HTR		F2500870
A	00125	0 00000 0 00000	87	CPYWD4	HTR		F2500880
	00126	0 00000 0 00001	88	L1	HTR	1	F2500890
	00127	0 00000 0 00002	89	L2	HTR	2	F2500900
	00130	0 00000 0 00003	90	L3	HTR	3	F2500910
	00131	0 00000 0 00005	91	L5	HTR	5	F2500920
			92			************************************************************	F2300930
			93			BINIT WRITES A SELECTED STATE, ALPHA OR BETA, ON DRUM2 OR 1	F2500940
			94			RESPECTIVELY,	F2500930
	00132	0 50000 0 00146	95	BINIT	CLA	L0	F2500960
	00133	0 53400 1 00147	96		LXA	L1000,1 FORM CHECK SUM FOR	F2500970
M	00134	0 36100 1 07226	97	B1	ACL	RTXAC+1000,1 PROGRAM ON DRUM.	F2500980
	00135	2 00001 1 00134	98		TIX	B1,1,1	F2500990
	00136	0 60200 0 00124	99		SLW	CPYWD3	F2501000
	00137	0 53400 1 00147	100		LXA	L1000,1	F2501010
	00140	0 76600 2 00302	101		WRS	194,2 WRITE 1000 WORDS OF	F2501020
	00141	0 46000 0 00147	102		LDA	L1000 PROGRAM ONTO DRUM	F2501030
	00142	0 70000 0 00124	103		CPY	CPYWD3	F2501040
M	00143	0 70000 1 07226	104	B2	CPY	RTXAC+1000,1	F2501050
	00144	2 00001 1 00143	105		TIX	B2,1,1	F2501060
	00145	0 02000 4 00001	106		TRA	1,4
A	00146	0 00000 0 00000	107	L0	HTR	14	F2501070
	00147	0 00000 0 01750	108	L1000	HTR	1000	F2501080
			109			**00	F2501090
			110			************************************************************	F2506930
			111			ADTGDM READS THE ADTAG TABLE FROM DRUM 3 INTO CORES.	F2506940
	00150	0 50000 0 05133	112	ADTGDM	CLA	L(0) INITIALIZE ERROR INDICATOR	F2506950
	00151	0 60100 0 05223	113		STO	ERORBX	F2506960
	00152	0 53400 2 05124	114	ADTG05	LXA	LZEKMX,2 CHECK SUM AREA	F2506970
	00153	0 53400 1 05125	115		LXA	LADMX,1 ADTAG AREA	F2501100
	00154	0 76200 0 00303	116		RDS	195	F2501110
	00155	0 46000 0 00217	117		LDA	DRADSI READ ADTEG TABLE	F2501120
	00156	0 70000 1 03466	118	ADTG10	CPY	ADTGMX,1 ADDRESS IS ORIGIN - MAX WORDS	F2501130
	00157	0 50000 0 05123	119		CLA	ALLONE FENCE FOR TABLE END	F2501140
	00160	0 70000 1 03467	120		CPY	ADTGMX+1,1	F2501150
	00161	0 40200 1 03466	121		SUB	ADTGMX,1	F2501160
	00162	0 70000 1 03470	122		CPY	ADTGMX+2,1	F2501170
	00163	0 10000 0 00170	123		TZE	ADTG30 END OF TABLE.	F2501180
	00164	0 70000 1 03471	124		CPY	ADTGMX+3,1	F2501190
	00165	1 77774 1 00166	125		TXI	ADTG20,1,−4	F2501200
	00166	0 70000 2 01242	126	ADTG20	CPY	ZEKSUM,2 CHECK SUM FOR DRMTAG.	F2501210
	00167	1 77777 2 00156	127		TXI	ADTG10,2,−1	F2501220
	00170	−0 63400 1 00207	128	ADTG30	SXD	ADTG38,1 MAX CURRENT TABLE SIZE.	F2501230
	00171	−0 63400 1 04521	129		SXD	ADTGS1,1	F2501240
	00172	3 00617 1 00210	130		TXH	ADTG38+1,1,399 RETURN IF TABLE DEPLETED.	F2501250
	00173	0 53400 1 05125	131		LXA	LADMX,1 START TO CHECK	F2501260
	00174	0 53400 2 05124	132		LXA	LZEKMX,2 ALL CHECK SUMS.	F2501270
	00175	−0 50000 1 03466	133	ADTG32	CAL	ADTGMX,1	F2501280
	00176	0 36100 1 03467	134		ACL	ADTGMX+1,1	F2501290
	00177	0 36100 1 03470	135		ACL	ADTGMX+2,1	F2501300
	00200	0 36100 1 03471	136		ACL	ADTGMX+3,1	F2501310
	00201	0 60200 0 00124	137		SLW	CPYWD3	F2501320
	00202	0 50000 0 00124	138		CLA	CPYWD3	F2501330
	00203	0 40200 2 01242	139		SUB	ZEKSUM,2	F2501340
	00204	−0 10000 0 00211	140		TNZ	EROR	F2501350
	00205	1 77774 1 00206	141		TXI	ADTG34,1,−4	F2501360
	00206	1 77777 2 00207	142	ADTG34	TXI	ADTG38,2,−1	F2501370
D	00207	3 00000 1 00175	143	ADTG38	TXH	ADTG32,1 TEST FOR END OF TABLE.	F2501380
	00210	0 02000 4 00001	144		TRA	1,4 END OF TABLE, READ CORRECTLY.	F2501390
	00211	0 50000 0 05223	145	EROR	CLA	ERORBX IF ERROR IN A CHECK THE	F2501400
	00212	0 40000 0 05126	146		ADD	L(1) ENTIRE TABLE IS RE-READ.	F2501410
	00213	0 60100 0 05223	147		STO	ERORBX THIS IS DONE FOUR TIMES AFTER	F2501420
	00214	0 40200 0 00131	148		SUB	L5 THE FIRST READING OF THE TABLE.	F2501430
	00215	−0 10000 0 00152	149		TNZ	ADTG05	F2501440
	00216	0 07400 4 00004	150	STOP	TSX	DIAG,4 DRUM 3 READING ERROR 5 TIMES.	F2501450
	00217	+000000002664	151	DRADSI	OCT	2664 DRMTG ORIGIN.	F2501460
			152			************************************************************	F2301470
			153			************************************************************	F2301480
			154				F2301490
			155				F2301500
			156			MASTER RECORD CARD = FN051	F2501505
			157			BEGIN COMMON AND BETA STATES	F2501510
			158			**********************************************************	F2301520
		00030	159		ORG	24 BEGIN BLOCK 5 COMMON	F2501530
			160				F2501540
		00030	161	CIB	BSS	100	F2501550
		00174	162	DOTAG	BSS	450	F2501560
		01076	163	TGTG	BSS	672	F2501570
		02336	164	OMXTGA	BSS	200	F2501580
		02646	165	ADTG	BSS	404	F2501590
		03472	166	OADTGA	BSS	100	F2501600
		03636	167	WRKSC	BSS	8	F2501610
	03646	0 00000 0 00000	168	TAG1			F2501620
	03647	0 00000 0 00000	169	TAG2			F2501630
M	03650	0 00000 0 00000	170	TAG21			F2501640
M	03651	0 00000 0 00000	171	TAG22			F2501650
		03652	172	TAG3	BSS	1	F2501660
		03653	173	TAG4	BSS	1	F2501670
			174			MAN CONSTITUTES THE MAIN LINEAR FLOW THROUGH BLOCK 5. A	F2501680
			175			SUBROUTINE PICKS A DO BETA OR ALPHA, AND THEN CONTROL IS PASS	F2501690
			176			ED TO THE PROPER STATE, (BETA OR ALPHA), TO COMPILE ALL THE	F2501700
			177			INDEXING INSTRUCTIONS FOR THAT PART OF THAT DO. CONTROL IS	F2501710
			178			RETURNED TO MAN. THIS PROCESS IS REPEATED UNTIL ALL ALPHAS	F2501720
			179			AND BETAS IN A NEST HAVE BEEN TREATED. THE WHOLE PROCEDURE I	F2501730
			180			IS REPEATED FOR EACH NEST AND THEN CONTROL IS PASSED TO BLOCK	F2501740
			181			SIX.	F2501750
			182			************************************************************	F2501760
	03654	0 07400 4 04012	183	MAN	TSX	TDOTG,4 READ ONE NEST OF DOTAG	F2501770
	03655	0 02000 0 03740	184		TRA	MAN70 END OF PROBLEM	F2501780
	03656	−0 63400 2 04142	185		SXD	DOGS60,2 INIT. DECREMENT OF TEST.	F2501790
	03657	−0 63400 2 03664	186		SXD	MAN05,2	F2501800
	03660	0 53400 2 05057	187		LXA	LMXDTG,2	F2501810
	03661	−0 50000 0 05103	188		CAL	T1MSK MASK FOR T1 WORD OF DOTAG	F2501820
	03662	0 32000 2 01104	189	MAN03	ANS	DOTAGZ+6,2 T1 WORD MUST HAVE	F2501830
	03663	1 77767 2 03664	190		TXI	MAN05,2,−9 SOME BITS REM0VED FOR	F2501840
D	03664	3 00000 2 03662	191	MAN05	TXH	MAN03,2 SXD LOCATION	F2501830
	03665	0 07400 4 04027	192		TSX	TTG,4 READ NEST OF TAGTAGS	F2501860
	03666	−0 63400 2 04165	193		SXD	FIND10,2 SAVE COUNT OF TAGTAGS IN NEST	F2501870
	03667	0 50000 0 05133	194		CLA	L(0) ZERO.	F2501880
	03670	0 53400 2 05122	195		LXA	LHXTGA,2 INITIALIZE APPENDED TGTG	F2501890
	03671	0 60100 2 02646	196	MAN06	STO	MXTGA,2 TO.	F2501900
	03672	2 00001 2 03671	197		TIX	MAN06,2,1 ZERO.	F2501910
	03673	0 53400 2 05124	198		LXA	LZEKMX,2 INITIALIZE APPENDED ADTAG	F2501920
	03674	0 60100 2 03636	199	STO	STO	ADTGA,2 TO	F2501930
	03675	2 00001 2 03674	200		TIX	STO,2,1 ZERO	F2501940
	03676	0 50000 0 05133	201	MAN10	CLA	L(0) INITIALIZE	F2501950
	03677	0 60100 0 05173	202		STO	BB0X INDICATORS	F2501960
	03700	0 60100 0 05230	203		STO	DOIND	F2501970
	03701	0 60100 0 05231	204		STO	DOIND1	F2501980
	03702	0 60100 0 05233	205		STO	SWICH1	F2501990
	03703	0 50000 0 05123	206		CLA	ALLONE INITIALIZE	F2502000
	03704	0 60100 0 05244	207		STO	VCTR INSTRUCTION COUNTER	F2502010
	03705	0 50000 0 05126	208	MAN20	CLA	L(1)	F2502020
	03706	0 60100 0 05222	209		STO	LOCIND	F2502030
	03707	0 07400 4 04055	210		TSX	DOGS,4 SELECT BOR A	F2502040
	03710	0 02000 0 03731	211		TRA	MAN50 NEST COMPLETELY ANALYZED	F2502050
	03711	0 50000 0 05233	212		CLA	SWICH1 IS APPROPR1ATE	F2502060
	03712	0 34000 0 05205	213		CAS	SWICH2 CODING IN CORES	F2502070
	03713	0 02000 0 03715	214		TRA	MAN35 NO	F2502080
	03714	0 02000 0 03720	215		TRA	MAN40 YES	F2502090
	03715	0 07400 4 03763	216	MAN35	TSX	ABDRM,4 NO. READ STATE FROM DRUM	F2502100
	03716	0 50000 0 05233	217		CLA	SWICH1	F2502110
	03717	0 60100 0 05205	218		STO	SWICH2	F2502120
	03720	−0 53400 2 05230	219	MAN40	LXD	DOIND,2	F2502130
	03721	0 50000 2 01076	220		CLA	DOTAGZ,2	F2502140
	03722	0 62200 0 05224	221		STD	A SAVE A	F2502150
	03723	0 73400 1 00000	222		PAX	0,1	F2502160
	03724	−0 63400 1 05225	223		SXD	B,1 CURRENT DO	F2502170
	03725	−0 73400 1 00000	224	MAN45	PDX	0,1	F2502180
	03726	−0 75400 1 00000	225		PXD	0,1 ACCUMULATOR, LEAVING BETA	F2502190
M	03727	0 07400 4 05256	226		TSX	RTXAC,4	F2502200
	03730	0 02000 0 03705	227		TRA	MAN20 BACK T0 DOGS	F2502210
	03731	0 07400 4 04352	228	MAN50	TSX	CITSP,4 WRITE CIT BUFFER ON TAPE	F2502220
	03732	0 76600 0 00223	229		WRS	147	F2502230
	03733	0 70000 0 05133	230		CPY	L(0) END OF RECORD INDIC	F2502240
	03734	0 70000 0 05133	231		CPY	L(0)	F2502250
	03735	0 70000 0 05133	232		CPY	L(0)	F2502260
	03736	0 70000 0 05133	233		CPY	L(0)	F2502270
	03737	0 02000 0 03654	234		TRA	MAN	F2502280
	03740	0 77000 0 00223	235	MAN70	WEF	147 END OF FILE FOR DO FILE	F2502290
	03741	0 76600 0 00301	236		WRS	193	F2502300
	03742	0 46000 0 05065	237		LDA	AD202	F2502310
	03743	0 70000 0 05063	238		CPY	DRADS2	F2502320
	03744	0 70000 0 05063	239		CPY	DRADS2	F2502330
	03745	0 76600 0 00301	240		WRS	193	F2502340
	03746	0 70000 0 05064	241		CPY	DRADS3	F2502350
	03747	0 70000 0 05064	242		CPY	DRADS3	F2502360
	03750	0 76600 0 00302	243		WRS	194	F2502370
	03751	0 50000 0 04616	244		CLA	FC08+1	F2502380
	03752	−0 32000 0 05142	245		ANA	DECMSK	F2502390
	03753	0 40000 0 05061	246		ADD	L1DEC	F2502400
	03754	0 77100 0 00021	247		ARS	17	F2502410
	03755	0 60100 0 05214	248		STO	AD1	F2502420
	03756	0 70000 0 05214	249		CPY	AD1	F2502430
	03757	0 70000 0 05214	250		CPY	AD1	F2502440
	03760	0 76000 0 00140	251		PSE	96	F2502450
	03761	0 76200 0 00221	252		RDS	145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE	F2502460
	03762	0 02000 0 00004	253		TRA	4 EXIT BLOCK 5.	F2502470
			254			************************************************************	F2502412
			255			ABDRM IS CALLED BY MAN TO WRITE THE PROPEER DRUM STATE8 ALPHA	F2502400
			256			OR BETA, INTO CORES WHEN NECESSARY.	F2502500
	03763	−0 63400 4 05223	257	ABDRM	SXD	ERORBX,4 STORE LINKAGE	F2ZA1510
	03764	0 53400 4 05233	258		LXA	SWICH1,4	F2502520
	03765	0 53400 2 05132	259		LXA	L(5),2 INITIALIZE DRUM READING ERROR COUNTER.	F2502530
	03766	0 76200 4 00302	260	PGPG4	RDS	194,4	F2502540
	03767	0 53400 1 05073	261		LXA	BLKSZE,1 = OF INST PLUS CHECK SUM	F2502550
	03770	0 46000 4 05073	262		LDA	ABDRMA+1,4	F2502560
	03771	0 70000 0 05203	263		CPY	CHEKSM	F2502570
M	03772	0 70000 1 07226	264	PGPG8	CPY	RTXAC+1000,1	F2502580
	03773	2 00001 1 03772	265		TIX	PGPG8,1,1	F2502590
	03774	0 50000 0 05133	266		CLA	L(0)	F2502600
	03775	0 53400 1 05073	267		LXA	BLKSZE,1	F2502610
M	03776	0 36100 1 07226	268	PGPG10	ACL	RTXAC+1000,1	F2502620
	03777	2 00001 1 03776	269		TIX	PGPG10,1,1	F2502630
	04000	0 60200 0 05202	270		SLW	ERAB	F2502640
	04001	0 50000 0 05203	271		CLA	CHEKSM	F2502650
	04002	0 40200 0 05202	272		SUB	ERAB	F2502660
	04003	0 10000 0 04010	273		TZE	PGPG14	F2502670
	04004	2 00001 2 03766	274		TIX	PGPG4,2,1 READING ERROR TRY AGAIN 4 TIMES,	F2502680
	04005	−3 00000 4 04007	275		TXL	PGPG12,4,0 WHICH DRUM.	F2502690
	04006	0 07400 4 00004	276		TSX	DIAG,4 DRUM 1 READ INCORRECTLY 5 TIMES.	F2502700
	04007	0 07400 4 00004	277	PGPG12	TSX	DIAG,4 DRUM 2 READ INCORRECTLY 5 TIMES.	F2502710
	04010	−0 53400 4 05223	278	PGPG14	LXD	ERORBX,4	F2502720
	04011	0 02000 4 00001	279		TRA	1,4	F2502730
			280			************************************************************	F2502740
	04012	0 53400 1 05132	281	TDOTG	LXA	L(5),1 S CALLED BY MAN TO READ IN A NEST OF DOTAG ENTRIES.	F2502750
	04013	0 53400 2 05057	282	TDOTG1	LXA	LMXDTG,2	F2502770
	04014	0 76200 0 00222	283		RDS	146 LOC. OF DOTAGZ	F2502780
	04015	0 70000 2 01076	284	TDOTG4	CPY	DOTAGZ,2	F2502790
	04016	1 77777 2 04015	285		TXI	TDOTG4,2,−1	F2502800
	04017	0 02000 4 00001	286		TRA	1,4 EF END OF PROBLEM	F2502810
	04020	0 76600 0 00333	287		WRS	219	F2502820
	04021	−0 76000 0 00012	288		RTT		F2502830
	04022	0 02000 0 04024	289		TRA	TDOTG5 ERROR	F2502840
	04023	0 02000 4 00002	290		TRA	2,4 RECORD CORRECTLY READ	F2502850
	04024	0 76400 0 00222	291	TDOTG5	BST	146 BACKSPACE AND REPEAT	F2502860
	04025	2 00001 1 04013	292		TIX	TDOTG1,1,1 IF NOT YET READ 3 TIMES	F2502870
	04026	0 07400 4 00004	293		TSX	DIAG,4 TAPE 4 READ INCORRECTLY 5 TIMES.	F2502880
			294			************************************************************	F2502890
			295			TTG IS CALLED BY MAN TO READ IN A NEST OF TAGTAG ENTRIES	F2502900
	04027	0 53400 2 05121	296	TTG	LXA	LMXTG,2 LOCATION OF MAX TAP TABLE SIZE	F2502910
	04030	0 53400 1 05132	297	TTG01	LXA	L(5),1 INITIALIZE TAPE ERROR COUNTER.	F2502920
	04031	0 76200 0 00224	298	TTG02	RDS	148	F2502930
	04032	−0 63400 2 04043	299		SXD	TTG10,2 FOR ERROR BACKUP IN READING	F2502940
	04033	0 70000 2 02336	300	TTG05	CPY	MXTGTG,2	F2502950
	04034	0 02000 0 04037	301		TRA	TTG06	F2502960
	04035	0 07400 4 00004	302		TSX	DIAG,4 FALXE END OF FILE ON TAPE 4.	F2502970
	04036	0 02000 0 04041	303		TRA	TTG07 END OF RECORD, CORRECT-EXIT.	F2502980
	04037	2 00001 2 04033	304	TTG06	TIX	TTG05,2,1	F2502990
	04040	0 07400 4 00004	305		TSX	DIAG,4 BUFFFR EXCEEDED.	F2503000
	04041	0 76600 0 00333	306	TTG07	WRS	219	F2503010
	04042	−0 76000 0 00012	307		RTT		F2503020
TD	04043	−3 00000 0 04051	308	TTG10	TXL	TTG16 ERROR IN READING	F2503030
	04044	1 00004 2 04045	309		TXI	TTG11,2,4 FIRST WORD LAST ENTRY	F2503040
	04045	0 50000 2 02336	310	TTG11	CLA	MXTGTG,2 FOR NEST END TEST	F2503050
	04046	0 40200 0 05123	311		SUB	ALLONE END OF NEST INDICATOR	F2503060
	04047	0 10000 4 00001	312	TTG13	TZE	1,4 END OF NEST	F2503070
	04050	2 00004 2 04030	313		TIX	TTG01,2,4	F2503080
	04051	−0 53400 2 04043	314	TTG16	LXD	TTG10,2 TAPE ERROR ROUTINE , LOAD	F2503090
	04052	0 76400 0 00224	315		BST	148 TAG TABLE INDEX AND RETRY	F2503100
	04053	2 00001 1 04031	316		TIX	TTG02,1,1 UP T0 5 TIMES.	F2503110
	04054	0 07400 4 00004	317		TSX	DIAG,4 TAPE 4 READ INCORRECTLY 5 TIMES	F2503120
			318			************************************************************	F2503130
			319			DOGS IS CALLED BY MAN TD SELECT AN ALPHA OR BETA TO BE PRO	F2503140
			320			CESSED BY THE APPROPRIATE STATE (ALPHA OR BETA).	F2503150
	04055	0 50000 0 05133	321	DOGS	CLA	L(0) INITIALIZING TO ZERO	F2503160
	04056	0 60100 0 05224	322		STO	A ALL CALLS REQUIRED FOR	F2503170
	04057	0 60100 0 05225	323		STO	B COMPARISON FOR EACH DO	F2503180
	04060	0 60100 0 05226	324		STO	SWICH	F2503190
	04061	0 60100 0 05227	325		STO	TEBBOX	F2503200
	04062	−0 53400 1 05231	326		LXD	DOIND1,1 IF LEVEL OF LAST	F2503210
D	04063	−3 00000 1 04072	327		TXL	DOGS20,1	F2503220
	04064	0 50000 0 05233	328		CLA	SWICH1	F2503230
	04065	−0 10000 0 04072	329		TNZ	DOGS20	F2503240
	04066	0 50000 1 01103	330		CLA	DOTAGZ+5,1 ANALYZED DOTAG ENTRY	F2503250
	04067	−0 73400 1 00000	331		PDX	0,1 IS ONE THEN THE NEST	F2503260
	04070	3 00001 1 04072	332		TXH	DOGS20,1,1 HAS BEEN COMPLETELY	F2503270
	04071	0 02000 4 00001	333		TRA	1,4 ANALYZED. IF NOT	F2503280
	04072	0 53400 1 05057	334	DOGS20	LXA	LMXDTG,1 START SCAN AT FIRST ENTRY	F2503290
	04073	0 50000 0 05226	335	DOGS22	CLA	SWICH	F2503300
	04074	−0 10000 0 04104	336		TNZ	DOGS25 B PORTION UNDER CONSIDERATION	F2503310
	04075	0 50000 1 01076	337		CLA	DOTAGZ,1 A PORTION UNDER CONSIDERATION	F2503320
	04076	−0 32000 0 05136	338		ANA	BIT1	F2503330
	04077	−0 10000 0 04134	339		TNZ	DOGS50 CONTINUE, ALREADY ANALYZED	F2503340
	04100	0 50000 1 01076	340		CLA	DOTAGZ,1 SETS UP A PORTION OF	F2503350
	04101	−0 73400 2 00000	341		PDX	0,2 DO FOR COMPARISON	F2503360
	04102	−0 63400 2 05225	342		SXD	B,2 PUT A OF DO IN INDICATOR B	F2503370
	04103	0 02000 0 04114	343		TRA	DOGS30 PROCEED T/ COMPARIS0N	F2503380
	04104	0 50000 1 01076	344	DOGS25	CLA	DOTAGZ,1 B PORTION UNDER CONSIDERATION	F2503390
	04105	−0 32000 0 05137	345		ANA	BIT2 MASK T0 INDICATE LOOKED AT	F2503400
	04106	−0 10000 0 04134	346		TNZ	DOGS50 ALREADY ANALYZED, CONTINUE	F2503410
	04107	0 50000 1 01076	347		CLA	DOTAGZ,1 SET UP A IN	F2503420
	04110	−0 73400 2 00000	348		PDX	0,2 B WORD FOR COMPARISON	F2503430
	04111	−0 63400 2 05224	349		SXD	A,2	F2503440
	04112	0 73400 2 00000	350		PAX	0,2	F2503450
	04113	−0 63400 2 05225	351		SXD	B,2	F2503460
	04114	0 50000 0 05225	352	DOGS30	CLA	B	F2503470
	04115	0 34000 0 05227	353		CAS	TEBBOX	F2503480
	04116	0 02000 0 04125	354		TRA	DOGS45 T-B1 STORE B IN TEB8OX	F2503490
	04117	0 02000 0 04121	355		TRA	DOGS40 T=B1 COMPARE AS	F2503500
	04120	0 02000 0 04134	356		TRA	DOGS50 T-B1 CONTINUE	F2503510
	04121	0 50000 0 05232	357	DOGS40	CLA	TEABOX COMPARE AS	F2503520
	04122	0 34000 0 05224	358		CAS	A	F2503530
	04123	0 02000 0 04134	359		TRA	DOGS50 T-A CONTINUE	F2503540
	04124	0 07400 4 00004	360		TSX	DIAG,4 T=A, ERROR.	F2503550
	04125	0 50000 0 05224	361	DOGS45	CLA	A T-A STORE B IN TRBBOX	F2503560
	04126	0 60100 0 05232	362		STO	TEABOX	F2503570
	04127	0 50000 0 05225	363		CLA	B	F2503580
	04130	0 60100 0 05227	364		STO	TEBBOX	F2503590
	04131	−0 63400 1 05231	365		SXD	DOIND1,1 RECORD THE DO POSITION	F2503600
	04132	0 50000 0 05226	366		CLA	SWICH RECORD SWITCH	F2503610
	04133	0 60100 0 05233	367		STO	SWICH1	F2503620
	04134	0 50000 0 05226	368	DOGS50	CLA	SWICH REVERSE SWITCH FOR	F2503630
	04135	0 40200 0 05126	369		SUB	L(1) EITHER B OF SAME DO OR	F2503640
	04136	0 76000 0 00003	370		SSP	A OF NEXT DO	F2503650
	04137	0 60100 0 05226	371		STO	SWICH	F2503660
	04140	−0 10000 0 04142	372		TNZ	DOGS60 TESTS A,B STATUS IF A	F2503670
	04141	1 77767 1 04142	373		TXI	DOGS60,1,−9 LOWERS INDEX FOR NEXT DO	F2503680
D	04142	3 00000 1 04073	374	DOGS60	TXH	DOGS22,1	F2503690
	04143	−0 53400 1 05231	375		LXD	DOIND1,1 END OF SCAN	F2503700
	04144	−0 63400 1 05230	376		SXD	DOIND,1 DO INDICATOR SET	F2503710
	04145	0 53400 2 05233	377		LXA	SWICH1,2	F2503720
	04146	0 50000 0 05136	378		CLA	BIT1 ORDER TO PLACE BIT IN	F2503730
	04147	−3 00000 2 04151	379		TXL	DOGS70,2,0 A OR B USED	F2503740
	04150	0 77100 0 00001	380		ARS	1 INDICATOR POSITION	F2503750
	04151	−0 60200 1 01076	381	DOGS70	ORS	DOTAGZ,1	F2503760
	04152	0 02000 4 00002	382		TRA	2,4 EXIT AFTER FINDING DO	F2503770
			383			*************************************************************	F2503780
			384			SCAN SCANS TAGTAG FOR THE FIRST ENTRY THAT IS MODIFIED BY A D	F2503790
			385			DO WHOSE ALLPHA IS LESS THAT THE CURRENT DOTAG BETA.	F2503800
			386			THIS TAG IS CALLED RTXTGX.	F2503810
	04153	0 53400 1 05121	387	SCAN	LXA	LMXTG,1 COMPARE B WITH DOFOR	F2503820
	04154	0 50000 0 05225	388	SCAN05	CLA	B DOTAG A OF EACH TAGTAG	F2503830
	04155	0 34000 1 02336	389		CAS	MXTGTG,1 ENTRY IN NEST	F2503840
	04156	1 00004 1 04161	390		TXI	SCAN10,1,4 SEARCH COMPLETED.	F2503850
	04157	0 07400 4 00004	391		TSX	DIAG,4 EQUALITY IMPOSSIBLE.	F2503860
	04160	1 77774 1 04154	392		TXI	SCAN05,1,−4 G LESS THAN A.	F2503870
	04161	0 02000 4 00001	393	SCAN10	TRA	1,4	F2503880
			394			*************************************************************	F2503890
			395			FIND, BEGINNING WITH RTXTGX, SEARCHES FOR A TAGTAG ENTRY MODI	F2503900
			396			F1ED BY THE CURRENT DO.	F2503910
	04162	−0 63400 4 04176	397	FIND	SXD	FIND22,4	F2503920
	04163	−0 53400 1 05237	398		LXD	XTG,1	F2503930
	04164	1 77774 1 04165	399	FINDO4	TXI	FIND10,1,−4 BUMP TO NEXT TGTG ENTRY.	F2503940
D	04165	3 00000 1 04170	400	FIND10	TXH	FIND20,1 DECREMENT CONTAINS TGTG COUNT.	F2503950
	04166	−0 53400 4 04176	401		LXD	FIND22,4	F2503960
	04167	0 02000 4 00001	402		TRA	1,4 END OF TGTG TABLE AND DO.	F2503970
	04170	0 50000 0 05224	403	FIND20	CLA	A COMPARE DOTAGA WITH	F2503980
	04171	0 34000 1 02336	404		CAS	MXTGTG,1 TGTG DOFOR DOTAG A.	F2503990
	04172	0 02000 0 04166	405		TRA	FIND10+1 END OF DO.	F2504000
	04173	0 76100 0 00000	406		NOP		F2504010
	04174	0 07400 4 04213	407		TSX	TGFM,4	F2504020
	04175	0 07400 4 04204	408		TSX	ISC,4	F2504030
D	04176	−3 00000 0 04164	409	FIND22	TXL	FINDO4,0 POSIND=3 IF LEFTMMST SYMBML.	F2504040
	04177	−0 75400 2 00000	410		PXD	0,2 2IF CENTER.	F2504050
	04200	0 77100 0 00022	411		ARS	18 1 IF RIGHTMOST.	F2504060
	04201	0 60100 0 05240	412		STO	POSIND	F2504070
	04202	−0 53400 4 04176	413		LXD	FIND22,4	F3504080
	04203	0 02000 4 00002	414		TRA	2,4 SUCCESSFUL SEARCH.	F2504090
			415			*************************************************************	F2504100
			416			ISC IS CALLED BY FIND TO TEST FOR MODIFICATION.	F2504110
	04204	0 53400 2 05126	417	ISC	LXA	L(1),2 COMPARE SUBSCRIPT	F2504120
	04205	0 50000 0 05230	418		CLA	DOIND WITH THE INDEX	F2504130
	04206	0 40200 2 03652	419		SUB	TAG2+3,2 OF THE CURRENT DO.	F2504140
	04207	0 10000 4 00002	420		TZE	2,4 CURRENT DO MODIFIES THIS TAG.	F2504150
	04210	1 00001 2 04211	421		TXI	ISC+5,2,1 TRY NEXT LEFT	F2504160
	04211	−3 00003 2 04205	422		TXL	ISC+1,2,3 SUBSCRIPT.	F2504170
	04212	0 02000 4 00001	423		TRA	1,4 NO MODIFICATION, ERROR RETURN.	F2504180
			424			*************************************************************	F2504190
			425			TGFM TAKES A TAG ENTRY AND STORES ITS INFORMATION INTO	F2504200
			426			WORKING TGTG.	F2504210
	04213	0 50000 1 02336	427	TGFM	CLA	MXTGTG,1	F2504220
	04214	0 62200 0 03646	428		STD	TAG1 IN WORKING TGTG.	F2504230
	04215	0 73400 2 00000	429		PAX	0,2 A, X1, X2, X3, TG, TG1.	F2504240
	04216	−0 63400 2 03647	430		SXD	TAG2,2	F2504250
	04217	0 50000 1 02337	431		CLA	MXTGTG+1,1	F2504260
	04220	0 62200 0 03650	432		STD	TAG2+1	F2504270
	04221	0 73400 2 00000	433		PAX	0,2	F2504280
	04222	−0 63400 2 03651	434		SXD	TAG2+2,2	F2504290
	04223	0 50000 1 02340	435		CLA	MXTGTG+2,1	F2504300
	04224	0 60100 0 03652	436		STO	TAG3	F2504310
	04225	0 50000 1 02341	437		CLA	MXTGTG+3,1	F2504320
	04226	0 60100 0 03653	438		STO	TAG4	F2504330
	04227	0 02000 4 00001	439		TRA	1,4	F2504340
			440			*************************************************************	F2504350
			441			ENTR SIMJLATES A TAU ENTRY AND SPREADS IS INTO WORKING TAG--(	F2504360
	04230	−0 53400 2 05230	442	ENTR	LXD	DOIND,2 SYMBOL OF DO IS	F2504370
	04231	0 50000 2 01077	443		CLA	DOTAGZ+1,2 PLACED IN WRKSC	F2504380
	04232	0 60100 0 03637	444		STO	WRKSC+1 AND COEF. IS SET	F2504390
	04233	0 50000 0 05061	445		CLA	L1DEC =1. THIS SIMULATES	F2504400
	04234	0 60100 0 03636	446		STO	WRKSC A TAU TABLE ENTRY.	F2504410
	04235	0 02000 4 00001	447		TRA	1,4	F2504420
			448			*************************************************************	F2504430
			449			SUBCOM SPREADS A TAU ENTRY INTO WORKING TAG	F2504440
	04236	−0 63400 4 04320	450	SUBCOM	SXD	SUB085,4 SAVE LINKAGE.	F2504450
	04237	0 53400 1 05132	451		LXA	L(5),1	F2504460
	04240	0 60100 0 04331	452		STO	SUBTAG	F2504470
	04241	0 76200 0 00304	453	SUB010	RDS	196 SELECT TAU DRUM.	F2504480
	04242	−0 53400 4 04326	454		LXD	SUBORG+2,4 INITIALIZE	F2504490
	04243	−0 75400 0 00000	455		PXD	0,0 SUBSCRIPT COMBINATION	F2504500
	04244	0 60100 4 03646	456	SUB020	STO	WRKSC+8,4 TO ZERO.	F2504510
	04245	2 00001 4 04244	457		TIX	SUB020,4,1	F2504520
	04246	0 50000 0 04331	458		CLA	SUBTAG	F2504530
	04247	0 76500 0 00011	459		LRS	9	F2504540
	04250	0 73400 6 00000	460		PAX	0,6 TAU 1,2, OR 3	F2504550
	04251	−0 75400 0 00000	461		PXD	0,0 TAU 1 ADD. IS ORG+3TAU.	F2504560
	04252	0 76300 0 00011	462		LLS	9 TAU2 ADD. IS ORG+5TAU.	F2504570
	04253	0 60100 0 04327	463		STO	SUBES1 TAU THREE ADD. IS ORG+7TAU.	F2504580
	04254	0 76700 0 00001	464		ALS	1 STORE	F2504590
	04255	0 60100 0 04330	465		STO	SUBES2 ADRRESS	F2504600
	04256	0 50000 4 04327	466		CLA	SUBORG+3,4	F2504610
	04257	0 40000 0 04327	467		ADD	SUBES1 FOR LDA	F2504620
	04260	0 40000 0 04330	468	SUB030	ADD	SUBES2 INSTRUCTION	F2504630
	04261	2 00001 4 04260	469		TIX	SUB030,4,1	F2504640
	04262	0 62100 0 04327	470		STA	SUBES1 ACTUAL DRUM ADDRESS.	F2504650
	04263	0 46000 0 04327	471		LDA	SUBES1 COPY SUB. COMBINATION	F2504660
	04264	0 70000 0 03636	472		CPY	WRKSC WD1 IS C1 AND C2.	F2504670
	04265	−3 00002 2 04267	473		TXL	SUB040,2,2 1 AND 2 DIM SKIP WD5.	F2504680
	04266	0 70000 0 03642	474		CPY	WRKSC+4 WD5 IS C3.	F2504690
	04267	0 70000 0 03637	475	SUB040	CPY	WRKSC+1 WD2 IS S1,	F2504700
	04270	−3 00001 2 04275	476		TXL	SUB060,2,1 1 DIM., SKIP WDS 4,6,7.	F2504710
	04271	0 70000 0 03641	477		CPY	WRKSC+3 WD4 IS S2.	F2504720
	04272	−3 00002 2 04274	478		TXL	SUB050,2,2 1 AND 2 DIM SKIP WD 6	F2504730
	04273	0 70000 0 03643	479		CPY	WRKSC+5 WD6 IS S3.	F2504740
	04274	0 70000 0 03644	480	SUB050	CPY	WRKSC+6 WD7 IS DIMENSI0N	F2504750
	04275	0 70000 0 04327	481	SUB060	CPY	SUBES1 CHECK-SUM INTO-SUBES1.	F2504760
	04276	−0 53400 4 04324	482		LXD	SUBORG,4 COMPUTE CHECK-SUM.	F2504770
	04277	−0 50000 0 03636	483		CAL	WRKSC	F2504780
	04300	0 36100 4 03645	484	SUB070	ACL	WRKSC+7,4	F2504790
	04301	2 00001 4 04300	485		TIX	SUB070,4,1 3 ATTEMPTS ARE MADE	F2504800
	04302	0 60200 0 04330	486		SLW	SUBES2 TO READ SC CORRECTLY,	F2504810
	04303	0 50000 0 04330	487		CLA	SUBES2 IF ERROR STILL PRESENT,	F2504820
	04304	0 40200 0 04327	488		SUB	SUBES1 COMPLETE ROUTINE, RETURN.	F2504830
	04305	0 10000 0 04310	489		TZE	SUB075 CHECK SUMS AGREE, TRA.	F2504840
	04306	2 00001 1 04241	490		TIX	SUB010,1,1 ERROR, TRY UP TO 5 TIMES.	F2504850
	04307	0 07400 4 00004	491		TSX	DIAG,4 DRUM 4 READING ERROR 5 TIMES.	F2504860
	04310	−0 53400 4 04325	492	SUB075	LXD	SUBORG+1,4 REARRANGE C1,C2,D1, AND D2.	F2504870
	04311	0 50000 4 03645	493	SUB080	CLA	WRKSC+7,4	F2504880
	04312	0 73400 2 00000	494		PAX	0,2 C2 INTO XB.	F2504890
	04313	−0 32000 0 05142	495		ANA	DECMSK	F2504900
	04314	0 60100 4 03645	496		STO	WRKSC+7,4 WD1 DECREMENT IS C1)	F2504910
	04315	−0 75400 2 00000	497		PXD	0,2 WD7 DECREMENT IS D1.	F2504920
	04316	−2 00006 4 04321	498		TNX	SUB090,4,6	F2504930
	04317	0 60100 0 03640	499		STO	WRKSC+2	F2504940
D	04320	−3 00000 0 04311	500	SUB085	TXL	SUB080,0	F2504950
	04321	0 60100 0 03645	501	SUB090	STO	WRKSC+7 WD8 DECREMENT IS D2.	F2504960
	04322	−0 53400 4 04320	502		LXD	SUB085,4 RESTORE LINKAGE INDEX.	F2504970
	04323	0 02000 4 00001	503	SUB100	TRA	1,4	F2504980
	04324	+000006001356	504	SUBORG	OCT	000006001356 DECREMENT IS 6, ADD. IS ORG. TAU3.	F2504990
	04325	+000007000454	505		OCT	000007000454 DECREMENT IS 7, ADD. IS ORG. TAU2	F2505000
	04326	+000010000000	506		OCT	000010000000 DECREMENT IS 8, ADD. IS ORG. TAU1	F2505010
A	04327	0 00000 0 00000	507	SUBES1	HTR		F2505020
A	04330	0 00000 0 00000	508	SUBES2	HTR		F2505030
	04331	0 00000 0 00000	509	SUBTAG			F2505040
			510			*************************************************************	F2505050
			511			LOC0 ASSIGNS A RELATIVE LOCATION (INSTRUCTION NUMBER), AND UP	F2505060
			512			DATES A COUNTER FOR THE NEXT ASSIGNMENT.	F2505070
	04332	0 50000 0 05222	513	LOC0	CLA	LOCIND	F2505080
	04333	0 10000 2 00001	514		TZE	1,2 LOCATION ALREADY ASS1GNED.	F2505090
	04334	0 50000 0 05133	515		CLA	L(0) IF LOCIND GREATER	F2505100
	04335	0 60100 0 05222	516		STO	LOCIND	F2505110
	04336	0 50000 0 05176	517		CLA	CIL00 TO ZERO.	F2505120
	04337	−0 10000 2 00001	518		TNZ	1,2 IF CIL00 HAS NOT BEEN	F2505130
	04340	0 50000 0 05244	519		CLA	VCTR	F2505140
	04341	0 60100 0 05176	520		STO	CIL00 UPDATE VCTR.	F2505150
	04342	0 40000 0 05110	521		ADD	L(8)	F2505160
	04343	0 60100 0 05244	522		STO	VCTR -	F2505170
	04344	0 02000 2 00001	523		TRA	1,2 START COMPARING BUFFER	F2505180
			524			*************************************************************	F2505190
			525			CIT ENTERS A COMPILED INSTRUCTION INTO THE COMPILED INSTRUCTI	F2505200
			526			ION BUFFER. IF THE BUFFER IS FULL, CITSP (WHICH IS PART OF C	F2505210
			527			CIT) WRITES IT ONTO TAPE 3.	F2505220
	04345	−0 63400 1 05174	528	CIT	SXD	E2C,1 SIZE T0 CURRENT WORD COUNT.	F2505230
	04346	−0 63400 2 05175	529		SXD	E3C,2	F2505240
	04347	0 07400 2 04332	530		TSX	LOC0,2	F2505250
	04350	−0 53400 2 05173	531		LXD	BB0X,2 COMP OF CURRENT WORD COUNT.	F2505260
	04351	3 77634 2 04362	532		TXH	CIT04,2,−100 IF BUFFER INITIALLY	F2505270
	04352	−0 53400 2 05173	533	CITSP	LXD	BB0X,2	F2505280
	04353	−3 00000 2 04362	534		TXL	CIT04,2,0 WRITE	F2505290
	04354	0 76600 0 00223	535		WRS	147 BUFFER	F2505300
	04355	0 53400 1 05133	536		LXA	L(0),1 0N TAPE 3.	F2505310
	04356	0 70000 1 00030	537	CIT01	CPY	CIB,1 COPY LOOP.	F2505320
	04357	1 77777 1 04360	538		TXI	CIT02,1,−1	F2505330
	04360	1 00001 2 04361	539	CIT02	TXI	CIT03,2,1 DROP WORD COUNT.	F2505340
	04361	3 00001 2 04356	540	CIT03	TXH	CIT01,2,1 TEST FOR BUFFER DNE.	F2505350
	04362	0 53400 1 05130	541	CIT04	LXA	L(4),1 PROCEED TO NEW	F2505360
	04363	0 50000 1 05202	542	CIT05	CLA	CIL00+4,1 INST INTO BUFFER.	F2505370
	04364	0 60100 2 00030	543		STO	CIB,2	F2505380
	04365	1 77777 2 04366	544		TXI	CIT07,2,−1 KEEP WORD COUNT UPDATED.	F2505390
	04366	2 00001 1 04363	545	CIT07	TIX	CIT05,1,1	F2505400
	04367	−0 63400 2 05173	546		SXD	BB0X,2 SAVE CURRENT WD CT,	F2505410
	04370	−0 53400 1 05174	547		LXD	E2C,1	F2505420
	04371	−0 53400 2 05175	548		LXD	E3C,2	F2505430
	04372	0 02000 4 00001	549		TRA	1,4	F2505440
			550			*************************************************************	F2505430
			551			SCLMN1 ISOLATES THE INNERMOST DOTAG CONTROLLING A GIVEN TAG	F2505460
	04373	−0 53400 1 03647	552	SCLMN1	LXD	TAG2,1 S1 INDEX QUANTITY.	F2505470
	04374	−0 53400 2 03650	553		LXD	TAG2+1,2 S2 INDEX QUANTITY.	F2505480
	04375	−0 63400 2 04376	554		SXD	SCLMN2,2 THIS ROUTINE	F2505490
D	04376	3 00000 1 04400	555	SCLMN2	TXH	SCLMN3,1 COMPARES SIZES	F2505500
	04377	−0 53400 1 04376	556		LXD	SCLMN2,1 OF THE INDEX	F2505510
	04400	−0 53400 2 03651	557	SCLMN3	LXD	TAG2+2,2 QUANTITIES OF	F2505520
	04401	−0 63400 2 04402	558		SXD	SCLMN4,2 EACH SUBSCRIPT IN A TAG.	F2505530
D	04402	3 00000 1 04404	559	SCLMN4	TXH	SCLMN5,1 LARGEST 2.X. QUANTITY	F2505540
	04403	−0 53400 1 04402	560		LXD	SCLMN4,1 IS FOUND AND LEFT IN	F2505550
	04404	−0 75400 1 00000	561	SCLMN5	PXD	0,1 ACC FOR COMPARISON WITH DOIND.	F2505560
	04405	0 02000 4 00001	562		TRA	1,4	F2505570
			563			*************************************************************	F2505580
			564			TELC MONITORS THE COMPUTING OF THE LOAD PORTION OF THE TEST	F2505590
			565			DECREMENT.	F2505600
	04406	0 53400 1 05131	566	TELC	LXA	L(3),1	F2505610
	04407	0 50000 0 05133	567		CLA	L(0)	F2505620
	04410	0 60100 0 05245	568		STO	ERTX01	F2505630
	04411	−0 63400 4 05236	569		SXD	LINKC,4	F2505640
	04412	0 50000 1 03652	570	TELC05	CLA	TAG2+3,1 SEQUENCE. PUT S IN XB T0 PREPARE	F2505650
	04413	−0 73400 2 00000	571		PDX	0,2 FOR CN1IJ ROUTINE.	F2505660
	04414	−3 00000 2 04416	572		TXL	TELC10−2,2,0 NO S, GO TO NEXT S.	F2505670
	04415	0 07400 4 04423	573		TSX	CN1IJ,4 COMPUTE (CN1-1)IJ-ETC.	F2505680
	04416	0 40000 0 05245	574		ADD	ERTX01 .	F2505690
	04417	0 60100 0 05245	575		STO	ERTX01 (C1N1)+(C2N1-1)D1+(C3N1-1)D1D2.	F2505700
	04420	2 00001 1 04412	576	TELC10	TIX	TELC05,1,1 GO TO NEXT S FOR CN1IJ ROUTINE.	F2505710
	04421	−0 53400 4 05236	577		LXD	LINKC,4	F2505720
	04422	0 02000 4 00001	578		TRA	1,4	F2505730
			579			*************************************************************	F2505740
			580			CN1IJ COMPUTES THE LOAD VALUE FOR A GIVEN SUBSCRIPT IN A	F2505750
			581			SUBSCRIPT COMBINATION. (C1N1-1), OR (C2N1-1)D1	F2505760
	04423	0 56000 2 01100	582	CN1IJ	LDQ	DOTAGZ+2,2 N2 INTO MQ.	F2505770
	04424	0 76300 0 00022	583		LLS	18	F2505790
	04425	−3 00002 1 04431	584		TXL	CN1IJ2,1,2 S2 OR S3, TRANSFER.	F2505800
	04426	0 20000 0 03636	585		MPY	WRKSC S1,	F2505810
	04427	0 40200 0 05127	586		SUB	L(2)	F2505820
	04430	0 02000 0 04445	587		TRA	CN1IJ8	F2505830
	04431	−3 00001 1 04437	588	CN1IJ2	TXL	CN1IJ4,1,1 DIVIDE BY 2 AND RETURN.	F2505840
	04432	0 20000 0 03640	589		MPY	WRKSC+2 S2	F2505850
	04433	0 40200 0 05127	590		SUB	L(2) COMPUTE	F2505860
	04434	0 76500 0 00022	591		LRS	18 (2C2N1-2)D1D2 THEN	F2505870
	04435	0 20000 0 03644	592		MPY	WRKSC+6 GO TO CN1IJ8 TO DIVIDE	F2505880
	04436	0 02000 0 04445	593		TRA	CN1IJ8 BY 2 AND RETURN.	F2505890
	04437	0 20000 0 03642	594	CN1IJ4	MPY	WRKSC+4 S3,	F2505900
	04440	0 40200 0 05127	595		SUB	L(2) COMPUTE	F2505910
	04441	0 76500 0 00022	596		LRS	18 (2C3N1-2)D1D2 THEN	F2505920
	04442	0 20000 0 03644	597		MPY	WRKSC+6 GO TO CN1IJ8 TO DIVIDE	F2505930
	04443	0 76500 0 00022	598		LRS	18 DIVIDE BY 2 AND	F2505940
	04444	0 20000 0 03645	599		MPY	WRKSC+7 RETURN.	F2503950
	04445	0 77100 0 00001	600	CN1IJ8	ARS	1 DIVIDE BY 2, RESULT IS (C1N1-1)	F2505960
	04446	0 02000 4 00001	601		TRA	1,4 OR (C2N1-1)D1 OR (C3N1-1)D1D2	F2505970
			602			*************************************************************	F2505980
			603			CXIJ COMPUTES GN3X. WHEN THE ROUTINE CXIJ+2 IS CALLED,	F2505990
			604			GQ IS COMPUTED, Q BEING WHATEVER PARAMETER IS LEFT IN THE ACC	F2506000
			605			BY THE CALLER. .	F2506010
	04447	0 50000 2 01103	606	CXIJ	CLA	DOTAGZ+5,2	F2506020
	04450	−0 32000 0 05141	607		ANA	ADMSK ISOLATE X QUANTITY.	F2506030
	04451	0 60100 0 05247	608		STO	ERTX03	F2506040
	04452	3 00001 1 04455	609		TXH	CXIJ+6,1,1 S2 OR S1.	F2506050
	04453	0 56000 0 03642	610		LDQ	WRKSC+4 S3, LOAD C3.	F2506060
	04454	0 02000 0 04461	611		TRA	CXIJ2	F2506070
	04455	−3 00002 1 04460	612		TXL	CXIJ1,1,2 S2.	F2506080
	04456	0 56000 0 03636	613		LDQ	WRKSC S1, LOAD C1.	F2506090
	04457	0 02000 0 04461	614		TRA	CXIJ2	F2506100
	04460	0 56000 0 03640	615	CXIJ1	LDQ	WRKSC+2 S2, LOAD C2.	F2506110
	04461	0 20000 0 05247	616	CXIJ2	MPY	ERTX03	F2506120
	04462	3 00002 1 04470	617		TXH	CXIJ4,1,2 IF S1, FINISHED.	F2506130
	04463	0 76500 0 00022	618		LRS	18	F2506140
	04464	0 20000 0 03644	619		MPY	WRKSC+6 CX TIMES D1.	F2506150
	04465	3 00001 1 04470	620		TXH	CXIJ4,1,1 IF S2, FINISHED.	F2506160
	04466	0 76500 0 00022	621		LRS	18	F2506170
	04467	0 20000 0 03645	622		MPY	WRKSC+7 CXD1 TIMES D2.	F2506180
	04470	0 76300 0 00021	623	CXIJ4	LLS	17	F2506190
	04471	0 02000 4 00001	624		TRA	1,4 IN ACC. AND RETURN.	F2506200
			625			*************************************************************	F2506210
			626			CSXD COMPILES AN SXD INSTRUCTION WHERE THE ADDRESS IS NOT YET	F2306220
			627			KNOWN, BUT IS KNOWN T0 BE THE TEST FOR A GIVEN DO. THE	F2506230
			628			ADDRESS WORD IS FILLED IN WITH THAT DOTAG ALPHA-BETA AND THE	F2306240
			629			LOCATION OF THE SXD IS STORED IN THAT DQTAG SO THAT A TABLE (	F2506250
			630			(SXDTX) MAY BE MADE FOR REFERENCE BY SECTION 3 T0 FILL IN THE	F2506260
			631			PROPER ADDRESS DURING MERGE.	F2506270
	04472	−0 63400 4 05245	632	CSXD	SXD	ERTX01,4 ROUTINE FOR	F2506280
	04473	0 07400 4 06224	633		TSX	CILV,4 COMPILING AN	F2506290
	04474	0 50000 0 05133	634		CLA	L(0) SXD INSTRUCTION	F2506300
	04475	0 60100 0 05201	635		STO	CIL03 WHERE THE	F2506310
	04476	0 60100 0 05200	636		STO	CIL02	F2506320
	04477	−0 53400 4 05250	637		LXD	BLKNUM,4	F2506330
	04500	−3 00002 4 04503	638		TXL	CSXD4,4,2 BLOCKS B,C.	F2506340
M	04501	−0 53400 4 03650	639		LXD	TAG21,4 BLOCKS D,E, LOAD S2 INDEX.	F2506350
	04502	0 02000 0 04504	640		TRA	CSXD4+1	F2506360
	04503	−0 53400 4 03647	641	CSXD4	LXD	TAG2,4 BLOCKS B,C, LOAD S1 INDEX.	F2506370
	04504	0 50000 4 01076	642		CLA	DOTAGZ,4 FOR BLOCKS B,C, FILL IN	F2506380
	04505	−0 32000 0 05071	643		ANA	N0PRET SYMBOLIC ADDRESS OF SXD	F2506390
	04506	0 60100 0 05200	644		STO	CIL02 FROM WD1 OF S1 DOTAG.	F2506400
	04507	0 50000 0 03652	645		CLA	TAG3 NOT KNOWN.	F2506410
	04510	0 62100 0 05201	646		STA	CIL03	F2506420
	04511	0 50000 0 05045	647		CLA	L(SXD)	F2506430
	04512	0 60100 0 05177	648		STO	CIL01	F2506440
	04513	0 07400 4 04345	649		TSX	CIT,4	F2506450
	04514	−0 53400 4 05245	650		LXD	ERTX01,4	F2506460
	04515	0 02000 4 00001	651		TRA	1,4	F2506470
			652			*************************************************************	F2506480
			653			ADTGSE FINDS A VALID DRMTG (ADTAG) ENTRY FOR CONSIDERATION	F2506490
			654			AND SPREADS IT INTO WORKING TAG (WRKSC).	F2506500
	04516	−0 53400 1 05237	655	ADTGSE	LXD	XTG,1	F2506510
	04517	1 77774 1 04520	656	ADTGS	TXI	ADTGS+1,1,−4	F2506520
	04520	−0 63400 1 05237	657		SXD	XTG,1	F2506530
D	04521	3 00000 1 04523	658	ADTGS1	TXH	ADTGS5,1	F2506540
	04522	0 02000 4 00001	659		TRA	1,4 END OF TABLE.	F2506550
	04523	0 50000 1 03466	660	ADTGS5	CLA	ADTGMX,1 COMPARE ADTG DDA WITH	F2506560
	04524	−0 32000 0 05142	661		ANA	DECMSK DOTAG A AND B UNTIL	F2506570
	04525	0 34000 0 05224	662		CAS	A WE FIND AN ADTAG	F2506580
	04526	0 02000 0 04531	663		TRA	ADTGS4 MODIFIED BY A DO THAT	F2506590
	04527	0 02000 0 04531	664		TRA	ADTGS4 IS WITHIN THE RANGE	F2506600
	04530	0 02000 0 04517	665		TRA	ADTGS OF THE CURRENT DO	F2506610
	04531	0 34000 0 05225	666	ADTGS4	CAS	B	F2506620
	04532	0 02000 0 04517	667		TRA	ADTGS NOT IN RANGE, SELECT NEXT	F2506630
	04533	0 07400 4 00004	668		TSX	DIAG,4 EQUALITY IMPOSSIBLE.	F2506640
	04534	0 50000 1 03466	669		CLA	ADTGMX,1 IN RANGE, FILL	F2506650
	04535	−0 73400 2 00000	670		PDX	0,2 OUT WORKING TAG.	F2506660
	04536	−0 63400 2 03646	671		SXD	TAG1,2 DDA IN TAG1 DECREMENT.	F2506670
	04537	0 73400 2 00000	672		PAX	0,2	F2506680
	04540	−0 63400 2 03647	673		SXD	TAG2,2 S1 INDEX IN TAG2.	F2506690
	04541	0 50000 1 03467	674		CLA	ADTGMX+1,1	F2506700
	04542	−0 73400 2 00000	675		PDX	0,2	F2506710
	04543	−0 63400 2 03650	676		SXD	TAG2+1,2 S2 INDEX IN TAG2+1.	F2506720
	04544	0 73400 2 00000	677		PAX	0,2	F2506730
	04545	−0 63400 2 03651	678		SXD	TAG2+2,2 S3 INDEX IN TAG2+2.	F2506740
	04546	0 50000 1 03470	679		CLA	ADTGMX+2,1	F2506750
	04547	0 60100 0 03652	680		STO	TAG3 TAG NAME IN TAG3.	F2506760
	04550	0 50000 1 03471	681		CLA	ADTGMX+3,1	F2506770
	04551	0 60100 0 03653	682		STO	TAG4 ADTG WD4 IN TAG4.	F2506780
	04552	0 53400 2 05126	683	ADTGS8	LXA	L(1),2 INIT FOR POSING.	F2506790
	04553	0 50000 2 03652	684		CLA	TAG2+3,2	F2506800
	04554	0 40200 0 05230	685		SUB	DOIND TEST FOR MODIFICATION,	F2506810
	04555	0 10000 4 00002	686		TZE	2,4 PROPER ENTRY FOUND.	F2506820
	04556	3 00002 2 04517	687		TXH	ADTGS,2,2 NOT MOD BY DO, TAKE NEXT SUBSCRIPT	F2506830
	04557	1 00001 2 04553	688		TXI	ADTGS8+1,2,1 ADTG NOT MOD BY DO, TAKE NEXT ADTG.	F2506840
			689			*************************************************************	F2506830
			690			N1STET ISOLATES VARIABLE N1 BITS FOR A TAG AND ORS THEM TO L	F2506860
			691			LAST 3 BITS OF THE WORD N1SBX.	F2506870
	04560	0 50000 0 03653	692	N1STET	CLA	TAG4	F2506880
	04561	0 77100 0 00003	693		ARS	3 ONE BIT	F2506890
	04562	−0 32000 0 05076	694		ANA	L(7) IS STORED IN N1SBX.	F2506900
	04563	0 76700 0 00003	695		ALS	3	F2506910
	04564	0 60100 0 05254	696		STO	N1SBX	F2506920
	04565	0 53400 1 05131	697		LXA	L(3),1	F2506980
	04566	0 50000 1 03652	698	N1S02	CLA	TAG2+3,1 A CONATAINS POSIND.	F2506990
	04567	−0 73400 2 00000	699		PDX	0,2	F2507000
D	04570	−3 00000 2 04576	700		TXL	N1S05,2 NO TAG FOR THIS POS.	F2507010
	04571	0 50000 2 01076	701		CLA	DOTAGZ,2 ISOLATE	F2507020
	04572	0 77100 0 00017	702		ARS	15 VARIABLE	F2507030
	04573	−0 32000 0 05130	703		ANA	L(4) N1	F2507040
	04574	0 77100 1 00003	704		ARS	3,1 BIT.	F2507050
	04575	−0 60200 0 05254	705		ORS	N1SBX OR N1BIT TO N1SBX.	F2507060
	04576	2 00001 1 04566	706	N1S05	TIX	N1S02,1,1 REPEAT FOR NEXT RIGHT S.	F2507070
	04577	0 50000 0 05254	707		CLA	N1SBX	F2507080
	04600	0 02000 4 00001	708		TRA	1,4	F2507090
			709			*************************************************************	F2507100
			710			FIXCON SCANS THE FIXCON DRUM TABLE FOR A DESIRED SYMBOL FOR A	F2507110
			711			FIXED POINT CONSTANT. IF THE DESIRED FIXCON IS NOT THERE A S	F2507120
			712			SYMBOL IS CREATED FOR IT AND AN ENTRY IS MADE.	F2507130
	04601	−0 63400 1 04634	713	FIXCON	SXD	FC29,1 SAVE	F2507140
	04602	−0 63400 2 04624	714		SXD	FC18,2 INDEX	F2507150
	04603	−0 63400 4 04636	715		SXD	FC34,4 REGISTERS.	F2507160
M	04604	0 60100 0 05243	716		STO	ERDRM1	F2507170
	04605	0 53400 4 05132	717		LXA	L(5),4	F2507180
	04606	0 50000 0 04667	718	FC02	CLA	ORIGIN FIXCON TABLE ORIGIN.	F2507190
	04607	0 60100 0 05214	719		STO	AD1	F2507200
	04610	0 53400 1 05133	720		LXA	L(0),1 INITIALIZE WORD COUNT TEST INDICATOR.	F2507210
	04611	0 53400 2 05127	721		LXA	L(2),2 INITIALIZE INDICATOR FOR TWO PASSES.	F2507220
M	04612	0 50000 0 05243	722	FC04	CLA	ERDRM1 COMPARISON WORD IN ACCUMULATOR.	F2507230
	04613	0 76200 0 00302	723		RDS	194 FIXCON TABLE	F2507240
	04614	0 46000 0 05214	724		LDA	AD1 ON DRUM 3.	F2507250
	04615	0 70000 0 05241	725	FC08	CPY	CPYWD1 ENTRY FROM TABLE.	F2507260
D	04616	3 00000 1 04627	726		TXH	FC24+1,1 DECREMENT CONTAINS WORD COUNT.	F2507270
	04617	0 70000 0 05242	727		CPY	CPYWD2 CHECK SUM.	F2507280
	04620	0 04000 0 04635	728		TLQ	FC30 ENTRY LESS THAN COMPARISON WORD.	F2507290
	04621	0 70000 0 05246	729		CPY	ERDRM SKIP EVEN ENTRIES FOR 2ND PASS.	F2507300
	04622	0 34000 0 05242	730		CAS	CPYWD2 COMPARE ENTRY WITH COMPARISON WORD.	F2507310
	04623	0 07400 4 00004	731		TSX	DIAG,4 TLQOBVIATES THIS PATH.	F2507320
D	04624	−3 00000 0 04662	732	FC18	TXL	FC60,0 EQUALITY SEARCH ENDED.	F2507330
	04625	0 70000 0 05246	733	FC20	CPY	ERDRM SKIP EVEN ENTRIES FOR 2ND PASS.	F2507340
	04626	1 00002 1 04615	734	FC24	TXI	FC08,1,2 BUMP WORD COUNT TEST INDICATOR	F2507330
	04627	−2 00001 2 04637	735		TNX	FC40,2,1 TEST FOR PASS CONDITION.	F2507360
	04630	0 50000 0 05214	736		CLA	AD1 INITIALIZE ORIGIN DRUM	F2507370
	04631	0 40000 0 05127	737		ADD	L(2) ADDRESS FOR 2ND PASS	F2507380
	04632	0 60100 0 05214	738		STO	AD1 (EVEN ENTRIES)	F2507390
	04633	0 53400 1 05126	739	FC28	LXA	L(1),1 SET ENTRY NUMBER FOR SECOND PASS.	F2507400
D	04634	−3 00000 0 04612	740	FC29	TXL	FC04,0 RETURN TO FC04 FOR SECOND PASS.	F2507410
	04635	0 70000 0 05246	741	FC30	CPY	ERDRM	F2507420
D	04636	−3 00000 0 04625	742	FC34	TXL	FC20,0	F2507430
	04637	0 60100 0 05241	743	FC40	STO	CPYWD1 SEARCH ENDED, ENTRY NOT FOUND.	F2507440
	04640	−0 53400 1 04616	744		LXD	FC08+1,1	F2507450
	04641	1 00001 1 04642	745		TXI	FC42,1,1 WORD COUNT,	F2507460
	04642	−0 63400 1 04616	746	FC42	SXD	FC08+1,1 NEW TEST VALUE (WORD COUNT).	F2507470
	04643	−0 75400 1 00000	747		PXD	0,1 WORD COUNT	F2507480
	04644	0 77100 0 00021	748		ARS	17 PLUS	F2507490
	04645	0 40000 0 04667	749		ADD	ORIGIN ORIGIN EQUALS	F2507500
	04646	0 60100 0 05214	750		STO	AD1 NEW ADDRESS FOR DRUM WRITING.	F2507510
	04647	0 76600 0 00302	751		WRS	194 SELECT	F2507520
	04650	0 46000 0 05214	752		LDA	AD1 DRUM AND	F2507530
	04651	0 70000 0 05241	753		CPY	CPYWD1 WRITE NEW CONSTANT	F2507540
	04652	0 70000 0 05241	754		CPY	CPYWD1 AND CHECK SUM ON DRUM.	F2507550
	04653	−0 75400 1 00000	755	FC50	PXD	0,1 PLACE NAME OF CONSTANT	F2507560
	04654	0 77100 0 00022	756		ARS	18 IN ACCUMULATOR, RESTORE X REGISTERS,	F2507570
	04655	−0 50100 0 05101	757		ORA	BCD2 AND RETURN	F2507580
	04656	−0 53400 1 04634	758		LXD	FC29,1 TO	F2507590
	04657	−0 53400 2 04624	759		LXD	FC18,2 MAIN	F2507600
	04660	−0 53400 4 04636	760		LXD	FC34,4	F2507610
	04661	0 02000 4 00001	761		TRA	1,4 ROUTINE.	F2507620
	04662	0 50000 0 05241	762	FC60	CLA	CPYWD1 TEST DRUM READING	F2507630
	04663	0 40200 0 05242	763		SUB	CPYWD2	F2507640
	04664	0 10000 0 04653	764		TZE	FC50 DRUM READ CORRECTLY.	F2507650
	04665	2 00001 4 04606	765		TIX	FC02,4,1 RETURN FOR 1ST-PASS.	F2507660
	04666	0 07400 4 00004	766	STOPFC	TSX	DIAG,4 DRUM 4 READING ERROR 5 TIMES.	F2507670
	04667	0 00000 0 00002	767	ORIGIN	HTR	2	F2507680
			768			*************************************************************	F2507690
			769			OP2 IS CALLED BY THE ALPHA STATE TO TEST FOR OPTIMIZATION IN	F2507700
			770			THE COMILATION OF LOAD VALUE COMPUTATION. IT OPTIMIZES WHEN	F2507710
			771			(CN1-1)=0 OR IS COMPUTABLE AT EXECUTIVE TIME.	F2507720
	04670	0 50000 4 77776	772	0P2	CLA	32766,4	F2507730
	04671	0 62100 0 04740	773		STA	RETURN LINKAGE.	F2507740
	04672	0 50000 1 03652	774		CLA	TAG2+3,1 IF S IS NOT	F2507750
	04673	−0 73400 2 00000	775		PDX	0,2 DEFINED BY A DO,	F2507760
	04674	3 00000 2 04676	776		TXH	0P2P,2,0	F2507770
	04675	0 02000 4 00001	777		TRA	1,4	F2507780
	04676	0 50000 2 01100	778	0P2P	CLA	DOTAGZ+2,2 IF NOT DEFINED BY	F2507790
	04677	−0 32000 0 05104	779		ANA	6ONES	F2507800
	04700	−0 10000 4 00001	780		TNZ	1,4 RETURN TO MAIN ROUTINE.	F2507810
	04701	0 50000 2 01100	781		CLA	DOTAGZ+2,2 IF CONSTANT, COMPUTE	F2507820
	04702	0 07400 4 04423	782		TSX	CN1IJ,4	F2507830
	04703	0 10000 0 04740	783		TZE	RETURN RETURN AND CONSIDER S2.	F2507840
	04704	0 76700 0 00022	784		ALS	18 OTHERWISE COMPUTE	F2507850
	04705	−3 00002 1 04707	785		TXL	0P2P1,1,2	F2507860
	04706	0 40000 0 05061	786		ADD	L1DEC TO (CN1-1).	F2507870
	04707	0 07400 4 04601	787	0P2P1	TSX	FIXCON,4	F2507880
	04710	−3 00002 1 04713	788		TXL	0P2P2,1,2	F2507890
	04711	0 60100 0 07567	789		STO	OR000+1	F2507900
	04712	2 00001 1 05517	790		TIX	AC050,1,1	F2507910
	04713	0 73400 1 00000	791	0P2P2	PAX	0,1	F2507920
	04714	−0 32000 0 05104	792		ANA	6ONES ASSIGN FIXCON SYMBOL	F2507930
	04715	0 60100 0 05200	793		STO	CIL02 CHECK SUBSCRIPT. IF	F2507940
	04716	−0 75400 1 00000	794		PXD	0,1 S1, TRA RETURN (3RD) OTHERWISE	F2507930
	04717	0 60100 0 05201	795		STO	CIL03 COMPILE ADD L(SYMBOL).	F2507960
	04720	0 50000 0 05054	796		CLA	L(ADD) STO 1)+3.	F2507970
	04721	0 60100 0 05177	797		STO	CIL01	F2507980
	04722	0 50000 0 05133	798		CLA	L(0)	F2507990
	04723	0 60100 0 05176	799		STO	CIL00	F2508000
	04724	−0 53400 1 05173	800		LXD	BB0X,1	F2508010
	04725	1 00004 1 04726	801		TXI	0P24,1,4	F2508020
	04726	−0 63400 1 05173	802	0P24	SXD	BB0X,1	F2508030
	04727	0 07400 4 04345	803		TSX	CIT,4	F2508040
	04730	0 50000 0 05044	804		CLA	L(STO)	F2508050
	04731	0 60100 0 05177	805		STO	CIL01	F2508060
	04732	0 50000 0 05075	806		CLA	L3DEC	F2508070
	04733	0 60100 0 05201	807		STO	CIL03	F2508080
	04734	0 50000 0 07620	808		CLA	OR000+26	F2508090
	04735	−0 32000 0 05104	809		ANA	6ONES	F2508100
	04736	0 60100 0 05200	810		STO	CIL02	F2508110
	04737	0 07400 4 04345	811		TSX	CIT,4	F2508120
	04740	0 02000 0 00000	812	RETURN	TRA	0 ADDRESS MODIFIED,	F2508130
			813			*************************************************************	F2508140
			814			OP3 TESTS FOR VARIABLE NS AND IF CONSTANT COMPILES A	F2508150
			815			CLA L(N2-N1), OR IF VARIABLE CLA L(N2)....SUBL(N1),	F2508160
	04741	−0 63400 4 05040	816	OP3	SXD	EROP3,4	F2508170
	04742	0 50000 2 01076	817		CLA	DOTAGZ,2 ARE ALL	F2508180
	04743	0 77100 0 00017	818		ARS	15 N PARAMETERS	F2508190
	04744	−0 32000 0 05076	819		ANA	L(7) CONSTANT.	F2508200
	04745	−0 10000 0 04766	820		TNZ	OP31 NO, OP31.	F2508210
	04746	0 50000 2 01101	821		CLA	DOTAGZ+3,2 YES,	F2508220
	04747	0 40200 2 01100	822		SUB	DOTAGZ+2,2 FORM	F2508230
	04750	0 76700 0 00022	823		ALS	18 N2-N1,	F2508240
	04751	0 07400 4 04601	824		TSX	FIXCON,4 OBTAIN FIXCON SYMBOL	F2508250
	04752	0 73400 4 00000	825		PAX	0,4 COMPILE	F2508260
	04753	−0 32000 0 05104	826		ANA	6ONES CLA	F2508270
	04754	0 60100 0 05200	827		STO	CIL02 L(N2-N1)	F2508280
	04755	−0 75400 4 00000	828		PXD	0,4 AND	F2508290
	04756	0 60100 0 05201	829		STO	CIL03 RETURN	F2508300
	04757	0 50000 0 05053	830		CLA	L(CLA) TO	F2508310
	04760	0 60100 0 05177	831		STO	CIL01 THE	F2508320
	04761	0 50000 0 05133	832		CLA	L(0) CALLER.	F2508330
	04762	0 60100 0 05176	833		STO	CIL00 ZERO LOCATION.	F2508340
	04763	0 07400 4 04345	834		TSX	CIT,4	F2508350
	04764	−0 53400 4 05040	835		LXD	EROP3,4	F2508360
	04765	0 02000 4 00001	836		TRA	1,4	F2508370
	04766	0 77100 0 00001	837	OP31	ARS	1	F2508380
	04767	0 76000 0 00001	838		LBT		F2508390
	04770	0 02000 0 04776	839		TRA	OP32	F2508400
	04771	0 50000 2 01101	840		CLA	DOTAGZ+3,2 N2 VARIABLE,	F2508410
	04772	0 60100 0 05200	841		STO	CIL02 COMPILE	F2506420
	04773	0 50000 0 05133	842		CLA	L(0) CLA L(N2).	F2508430
	04774	0 60100 0 05201	843		STO	CIL03	F2508440
	04775	0 02000 0 05006	844		TRA	OP33	F2506450
	04776	0 50000 2 01101	845	OP32	CLA	DOTAGZ+3,2	F2508460
	04777	0 76700 0 00022	846		ALS	18	F2508470
	05000	0 07400 4 04601	847		TSX	FIXCON,4	F2508480
	05001	0 73400 4 00000	848		PAX	0,4	F2508490
	05002	−0 32000 0 05104	849		ANA	6ONES	F2508500
	05003	0 60100 0 05200	850		STO	CIL02	F2508510
	05004	−0 75400 4 00000	851		PXD	0,4	F2508520
	05005	0 60100 0 05201	852		STO	CIL03	F2508530
	05006	0 50000 0 05133	853	OP33	CLA	L(0)	F2508540
	05007	0 60100 0 05176	854		STO	CIL00	F2508550
	05010	0 50000 0 05053	855		CLA	L(CLA)	F2508560
	05011	0 60100 0 05177	856		STO	CIL01	F2508570
	05012	0 07400 4 04345	857		TSX	CIT,4	F2508580
	05013	0 50000 2 01076	858		CLA	DOTAGZ,2	F2508590
	05014	0 77100 0 00021	859		ARS	17	F2508600
	05015	0 76000 0 00001	860		LBT		F2508610
	05016	0 02000 0 05024	861		TRA	OP34	F2508620
	05017	0 50000 2 01100	862		CLA	DOTAGZ+2,2 N1IS VARIABLE,	F2508630
	05020	0 60100 0 05200	863		STO	CIL02 PREPARE TO	F2508640
	05021	0 50000 0 05133	864		CLA	L(0) COMPILE	F2508650
	05022	0 60100 0 05201	865		STO	CIL03 SUBL(N1).	F2508660
	05023	0 02000 0 05033	866		TRA	OP35	F2508670
	05024	0 50000 2 01100	867	OP34	CLA	DOTAGZ+2,2 N1 CONSTANT,	F2508680
	05025	0 76700 0 00022	868		ALS	18 OBTAIN	F2508690
	05026	0 07400 4 04601	869		TSX	FIXCON,4 FIXCON SYMBOL	F2508700
	05027	0 73400 4 00000	870		PAX	0,4 FOR N1	F2508710
	05030	−0 32000 0 05104	871		ANA	6ONES AND PREPARE	F2508720
	05031	0 60100 0 05200	872		STO	CIL02 TO COMPILE	F2508730
	05032	−0 63400 4 05201	873		SXD	CIL03,4 SUB L(N1).	F2508740
	05033	0 50000 0 05055	874	OP35	CLA	L(SUB) COMPILE	F2508750
	05034	0 60100 0 05177	875		STO	CIL01 SUB	F2508760
	05035	0 07400 4 04345	876		TSX	CIT,4 L(N1)	F2508770
	05036	−0 53400 4 05040	877		LXD	EROP3,4 .	F2508780
	05037	0 02000 4 00001	878		TRA	1,4	F2508790
	05040	0 00000 0 00000	879	EROP3			F2508800
	05041	+000000000100	880	ER0P	OCT	100	F2508810
			881			*************************************************************	F2508820
	05042	636731000000	882	L(TXI)	BCD	1TXI000	F2508830
	05043	476724000000	883	L(PXD)	BCD	1PXD000	F2508840
	05044	626346000000	884	L(STO)	BCD	1STO000	F2508850
	05045	626724000000	885	L(SXD)	BCD	1SXD000	F2508860
	05046	633167000000	886	L(TIX)	BCD	1TIX000	F2508870
	05047	636743000000	887	L(TXL)	BCD	1TXL000	F2508880
	05050	242524000000	888	L(DED)	BCD	1DED000	F2508890
	05051	436724000000	889	L(LXD)	BCD	1LXD000	F2508900
	05052	626324000000	890	L(STD)	BCD	1STD000	F2508910
	05053	234321000000	891	L(CLA)	BCD	1CLA000	F2508920
	05054	212424000000	892	L(ADD)	BCD	1ADD000	F2508930
	05055	626422000000	893	L(SUB)	BCD	1SUB000	F2508940
	05056	226262000000	894	L(BSS)	BCD	1BSS000	F2508950
	05057	0 00000 0 00702	895	LMXDTG		450	F2508960
	05060	+000000000400	896	MAXLOC	OCT	400	F2508970
	05061	+000001000000	897	L1DEC	OCT	1000000	F2508980
	05062	+000000002664	898	DRADS1	OCT	2664	F2508990
	05063	0 00000 0 00314	899	DRADS2		204	F2509000
	05064	0 00000 0 00002	900	DRADS3		2	F2509010
	05065	0 00000 0 00312	901	AD202		202	F2509020
	05066	0 00000 0 00021	902	L(17)		17	F2509030
	05067	0 00000 0 07566	903	L(OR0)		OR000	F2509040
	05070	0 00000 0 00000	904	ESTORE	HTR	0	F2509050
	05071	+077777077777	905	N0PRET	OCT	077777077777	F2509050
	05072	+000000001750	906	ABDRMA	DEC	1000	F2509070
	05073	+000000001750	907	BLKSZE	DEC	1000	F2509080
	05074	+000000077776	908	MINUS1	OCT	77776	F2509090
	05075	+000003000000	909	L3DEC	OCT	000003000000	F2509100
	05076	0 00000 0 00007	910	L(7)		7	F2509110
	05077	+170000000000	911	BCD15	OCT	170000000000	F2509120
	05100	+060000000002	912	BCD0	OCT	060000000002	F2509130
	05101	+020000000000	913	BCD2	OCT	020000000000	F2509140
	05102	−200000000000	914	BIT01	OCT	600000000000	F2509150
	05103	−300000077777	915	T1MSK	OCT	700000077777	F2509160
	05104	−370000000000	916	6ONES	OCT	770000000000	F2509170
	05105	+007777000000	917	TETMSK	OCT	007777000000	F2509180
	05106	0 00000 0 00006	918	L(6)		6	F2509190
	05107	0 00000 0 00030	919	L(24)		24	F2509200
	05110	0 00000 0 00010	920	L(8)		8	F2509210
	05111	+000000000010	921	L(K1)	OCT	10	F2509220
	05112	+000004000000	922	L4DEC	OCT	000004000000	F2509230
	05113	0 00000 0 03636	923	INST20		ADTGA	F2509240
	05114	0 00000 0 02646	924	INST22		MXTGA	F2509250
	05115	0 00000 0 05673	925	INST24		RTX160	F2509260
	05116	0 00000 0 05716	926	INST26		RTX184	F2509270
	05117	0 00000 0 06204	927	INST30		RTX264	F2509280
	05120	0 00000 0 06065	928	INST32		RTX226	F2509290
	05121	0 00000 0 01240	929	LMXTG		672	F2509300
	05122	0 00000 0 00310	930	LHXTGA		200	F2509310
	05123	+377777777777	931	ALLONE	OCT	377777777777	F2509320
	05124	0 00000 0 00144	932	LZEKMX		100	F2509330
	05125	0 00000 0 00620	933	LADMX		400	F2509340
	05126	0 00000 0 00001	934	L(1)		1	F2509350
	05127	0 00000 0 00002	935	L(2)		2	F2509360
	05130	0 00000 0 00004	936	L(4)		4	F2509370
	05131	0 00000 0 00003	937	L(3)		3	F2509380
	05132	0 00000 0 00005	938	L(5)		5	F250939D
	05133	0 00000 0 00000	939	L(0)		0	F2509411
	05134	0 00000 0 00012	940	L(10)		10	F2509410
	05135	0 00000 0 00020	941	L(16)		16	F2509420
	05136	2 00000 0 00000	942	BIT1	PTW	0	F2509430
	05137	1 00000 0 00000	943	BIT2	PON	0	F2509440
	05140	+002000000000	944	BIT8	OCT	002000000000	F2509450
	05141	+000000077777	945	ADMSK	OCT	77777	F2509460
	05142	+077777000000	946	DECMSK	OCT	077777000000	F2509470
	05143	0 00000 0 00000	947	SMSK			F2509480
	05144	+000000000760	948	SMSK1	OCT	760	F2509490
	05145	+000000000774	949	SMSK2	OCT	774	F2509500
	05146	+000000000763	950	SMSK3	OCT	763	F2509510
	05147	+000000000773	951	SMSK4	OCT	773	F2509520
	05150	+000000000020	952	BITMSK	OCT	20	F2509530
	05151	+000000000010	953		OCT	10	F2509540
	05152	+000000074030	954	0PMSK	OCT	74030	F2509550
	05153	+000000003777	955	11BITS	OCT	3777	F2509560
	05154	+000000100000	956	BIT20	OCT	100000	F2509570
	05155	−377777777777	957	36ONES	OCT	777777777777	F2509580
	05156	0 53400 1 05130	958	INST2	LXA	L(4),1	F2509590
	05157	0 53400 1 05127	959	INST3	LXA	L(2),1	F2509600
	05160	0 02000 0 06115	960	INST4	TRA	AC224	F2509610
	05161	0 02000 0 06116	961	INST5	TRA	AC228	F2509620
	05162	0 00000 0 06250	962	INST8		AC244	F2509630
	05163	0 00000 0 03636	963	INST10		ADTGA	F2509640
	05164	0 00000 0 05315	964	INST11		AC010	F2509650
	05165	0 00000 0 02646	965	INST12		MXTGA	F2509660
	05166	0 02000 0 05725	966	INST13	TRA	AC155	F2509670
	05167	0 07400 4 07131	967	INST14	TSX	CIL03I,4	F2509680
	05170	+000000000077	968	6ONESR	OCT	77	F2509690
	05171	+007777000000	969	6T017	OCT	007777000000	F2509700
	05172	+000000007777	970	24T035	OCT	7777	F2509710
A	05173	0 00000 0 00000	971	BB0X	HTR		F2509720
A	05174	0 00000 0 00000	972	E2C	HTR		F2509730
A	05175	0 00000 0 00000	973	E3C	HTR		F2509740
		05176	974	CIL00	BSS	1	F2509750
		05177	975	CIL01	BSS	1	F2509760
		05200	976	CIL02	BSS	1	F2509770
		05201	977	CIL03	BSS	1	F2509780
		05202	978	ERTGA	BSS	1	F2509790
		05203	979	CHEKSM	BSS	1	F2509800
		05204	980	TETTG	BSS	1	F2509810
		05205	981	SWICH2	BSS	1	F2509820
		05206	982	ERLXC	BSS	1	F2509830
		05207	983	AX	BSS	1	F2509840
		05210	984	RELC0	BSS	1	F2509850
		05211	985	WRKTGA	BSS	1	F2509860
		05212	986	N3X	BSS	1	F2509870
		05213	987	XX	BSS	1	F2509880
		05214	988	AD1	BSS	1	F2509890
		05215	989	AD2	BSS	1	F2509900
		05216	990	ADTGX	BSS	1	F2509910
		05217	991	WRKRXT	BSS	1	F2509920
		05220	992	TETTGX	BSS	1	F2509930
		05221	993	RTXTGX	BSS	1	F2509940
		05222	994	LOCIND	BSS	1	F2509950
		05223	995	ERORBX	BSS	1	F2509960
		05224	996	A	BSS	1	F2509970
		05225	997	B	BSS	1	F2509980
		05226	998	SWICH	BSS	1	F2509990
		05227	999	TEBBOX	BSS	1	F2510000
		05230	1000	DOIND	BSS	1	F2510010
		05231	1001	DOIND1	BSS	1	F2510020
		05232	1002	TEABOX	BSS	1	F2510030
		05233	1003	SWICH1	BSS	1	F2510040
		05234	1004	N3IND	BSS	1	F2510050
		05235	1005	N1N2N3	BSS	1	F2510060
		05236	1006	LINKC	BSS	1	F2510070
		05237	1007	XTG	BSS	1	F2510080
		05240	1008	POSIND	BSS	1	F2510090
		05241	1009	ER40	BSS	1	F2510100
		05242	1010	ER41	BSS	1	F2510110
		05243	1011	ARG	BSS	1	F2510120
		05244	1012	VCTR	BSS	1	F2510130
		05245	1013	ERTX01	BSS	1	F2510140
		05246	1014	ERTX02	BSS	1	F2510150
		05247	1015	ERTX03	BSS	1	F2510160
		05250	1016	BLKNUM	BSS	1	F2510170
		05251	1017	SXDTXZ	BSS	1	F2510180
		05252	1018	OREDO	BSS	1	F2510190
		05253	1019	DEFDO	BSS	1	F2510200
		05254	1020	N1SBX	BSS	1	F2510210
		05255	1021	TETLOC	BSS	1	F2510220
			1022			*************************************************************	F2510230
			1023			BEGIN BETA STAGE	F2510240
			1024			THE BETA STATE IS CALLED BY MAN TO COMPUTE AND COMPILE	F2510250
			1025			INCREMENTING, TESTING, AND RESETTING INSTRUCTIONS FOR A GIVE	F2510260
			1026			DO.	F2510270
	05256	−0 63400 4 05325	1027	RTX	SXD	RTX024,4	F2510280
	05257	−0 53400 1 05244	1028		LXD	VCTR,1 VARIABLE CTR. LAST BETA.	F2510290
	05260	−0 53400 2 05230	1029		LXD	DOIND,2 NEW DO	F2510300
	05261	0 50000 2 01076	1030		CLA	DOTAGZ,2 ALPHA BETA WORD OF DO.	F2510310
	05262	0 73400 2 00000	1031		PAX	0,2 PLACE B IN X.	F2510320
	05263	−0 63400 2 05264	1032		SXD	RTX04,2	F2510330
D	05264	−3 00000 1 05276	1033	RTX04	TXL	RTX05,1 IS THIS THE FIRST BETA,	F2510340
	05265	−0 75400 2 00000	1034		PXD	0,2	F2510350
	05266	0 40000 0 05111	1035		ADD	L(K1) FIRST B. SET	F2510360
	05267	0 60100 0 05244	1036		STO	VCTR VCTR AND	F2510370
	05270	0 50000 0 05123	1037		CLA	ALLONE INITIALIZE	F2510380
	05271	0 60100 0 05176	1038		STO	CIL00 CIL BUFFER	F2510390
	05272	0 60100 0 05177	1039		STO	CIL01 TO ALL ONES.	F2510400
	05273	0 60100 0 05200	1040		STO	CIL02	F2510410
	05274	0 60100 0 05201	1041		STO	CIL03	F2510420
	05275	0 07400 4 04352	1042		TSX	CITSP,4 USE SPECIAL CIT ENTRY.	F2510430
	05276	0 50000 0 05133	1043	RTX05	CLA	L(0) INITIALIZE THE TEST TAG	F2510440
	05277	0 60100 0 05220	1044		STO	TETTGX INDEX FOR THIS DO TO ZERO.	F2510450
	05300	0 60100 0 05237	1045		STO	XTG	F2510460
	05301	0 60100 0 05221	1046		STO	RTXTGX	F2510470
	05302	0 60100 0 05216	1047		STO	ADTGX	F2510480
	05303	0 07400 4 06235	1048		TSX	N3BIT,4 ISOLATE N3 BIT OF DOTAG	F2510490
	05304	0 07400 4 04153	1049		TSX	SCAN,4	F2510500
	05305	−0 63400 1 05221	1050	RTXIN1	SXD	RTXTGX,1 STORE FIRST TTG FOR TX CYCLE.	F2510510
	05306	−0 63400 1 05237	1051		SXD	XTG,1 ENTRY THAT LIES BETWEEN A AND B	F2510520
	05307	0 07400 4 04162	1052	RTX06	TSX	FIND,4	F2510530
	05310	0 02000 0 05707	1053		TRA	RTX180 END OF DO, START DMTG CYCLE.	F2510540
	05311	−0 63400 1 05237	1054		SXD	XTG,1 SC MODIFIED BY DO, STORE.	F2510550
	05312	0 07400 4 06243	1055		TSX	TETG,4 PLACE TEST BITS IN TAG WORD.	F2510560
	05313	0 07400 4 06277	1056		TSX	PRES,4	F2510570
			1057			AT THE END OF THIS ROUTINE THE BLO0K INDICATION IS IN XB.	F2510580
	05314	3 00004 2 05673	1058		TXH	RTX160,2,4 BLOCK F, NO INSTRUCTIONS, GET NEW TAG.	F2510590
	05315	3 00000 2 05435	1059		TXH	RTX70,2,0 BLOCK DIFFERENT FROM A OR F,	F2510600
	05316	0 50000 0 05234	1060		CLA	N3IND BLOCK EQUALSA.	F2510610
	05317	−0 10000 0 05403	1061		TNZ	RTX68 DECREMENT OF RXA IS VARIABLE .	F2510620
	05320	−0 53400 1 03652	1062	RTX020	LXD	TAG3,1 DECREMENT IS CONSTANT.	F2510630
	05321	3 00000 1 05334	1063		TXH	RTX50,1,0 TEST FOR INSERTED COUNTER.	F2510640
	05322	0 50000 0 03652	1064		CLA	TAG3 OR RESET TAG.	F2510650
	05323	0 76500 0 00013	1065		LRS	11	F2510660
	05324	0 76000 0 00001	1066		LBT		F2510670
D	05325	−3 00000 0 05327	1067	RTX024	TXL	RTX30,0 RESET	F2510680
	05326	0 02000 0 05332	1068		TRA	RTX34 COUNTER.	F2510690
	05327	0 50000 0 03652	1069	RTX30	CLA	TAG3 IF RESET TAG, PUT TAG	F2510700
	05330	−0 32000 0 05153	1070		ANA	11BITS NAME IN ACCUMULATOR AND	F2510710
	05331	0 02000 0 05336	1071		TRA	RTX51 GO TO SUBCOM.	F2510720
	05332	0 07400 4 04230	1072	RTX34	TSX	ENTR,4 IF COUNTER, MAKE	F2510730
	05333	0 02000 0 05337	1073		TRA	RTX52 ARTIFICIAL ENTRY IN WRKSC.	F2510740
	05334	−0 75400 1 00000	1074	RTX50	PXD	0,1 CURRENT TAG.	F2510750
	05335	0 77100 0 00022	1075		ARS	18 GET TAG NAME	F2510760
	05336	0 07400 4 04236	1076	RTX51	TSX	SUBCOM,4 LAY OUT TAU ENTRY.	F2510770
	05337	0 50000 0 05042	1077	RTX52	CLA	L(TXI) COMPILE	F2510780
	05340	0 60100 0 05177	1078		STO	CIL01 TXI	F2510790
	05341	0 53400 1 05240	1079		LXA	POSIND,1 PREPARE FOR	F2510800
	05342	−0 53400 2 05230	1080		LXD	DOIND,2 EXIT-ROUTINE.	F2510810
	05343	0 07400 4 06447	1081		TSX	CN3IJ,4 ROUTINE COMPUTES DECREMENT N3G	F2510820
	05344	0 60100 0 05245	1082		STO	ERTX01 AND STORES IN ERTX01.	F2510830
	05345	0 53400 1 05240	1083		LXA	POSIND,1	F2510830
	05346	0 50000 0 03653	1084		CLA	TAG4 . TEST FOR DUPLICATE	F2510840
	05347	0 76500 0 00014	1085		LRS	12 SUBSCRIPTS AND COMPUTE	F2510850
	05350	0 76300 1 00004	1086		LLS	4,1 DECREMENT FOR THEM.	F2510870
	05351	0 76000 0 00001	1087		LBT	TEST ON S1,S2, OR S3 FOR DUPES.	F2510880
	05352	0 02000 0 05376	1088		TRA	RTX66 NO DUPLICATES FOR THIS SUBSCRIPT.	F2510890
	05353	0 77100 0 00001	1089		ARS	1	F2510900
	05354	0 76000 0 00001	1090		LBT	TEST FOR S1 OR S2 DUPES	F2510910
	05355	1 00002 1 05367	1091		TXI	RTX62+3,1,2 DUPES ARE 1,3 ON TRANSFER	F2510920
	05356	1 00001 1 05357	1092		TXI	RTX61,1,1	F2510930
	05357	0 60100 0 05246	1093	RTX61	STO	ERTX02 STORE STATUS OF ACCUMULATOR. DUPES ARE	F2510940
	05360	0 07400 4 06447	1094		TSX	CN3IJ,4 1,2 OR 2,3 OR 1,2,3.	F2510950
	05361	0 53400 1 05240	1095		LXA	POSIND,1 COMPUTE DECREMENT ADJUSTMENT	F2510960
	05362	0 40000 0 05245	1096		ADD	ERTX01 FOR NEXT LEFT SUBSCR1PT.	F2510970
	05363	0 60100 0 05245	1097		STO	ERTX01 REPLACE ADJUSTED DECREMENT IN ERTX01.	F2510980
	05364	1 00002 1 05365	1098	RTX62	TXI	RTX62+1,1,2	F2510990
	05365	3 00003 1 05376	1099		TXH	RTX66,1,3 NOT 3RD SUBSCRIPT CASE,	F2511000
	05366	0 50000 0 05246	1100		CLA	ERTX02 LOW ORDER BIT IS SUBSCRIPT LEFT OF DOSUB.	F2511010
	05367	0 77100 0 00001	1101		ARS	1	F2511020
	05370	0 76000 0 00001	1102		LBT	TEST FOR S1 DUPE.	F2511030
	05371	0 02000 0 05376	1103		TRA	RTX66	F2511040
	05372	−0 53400 2 05230	1104		LXD	DOIND,2	F2511050
	05373	0 07400 4 06447	1105		TSX	CN3IJ,4 COMPUTE DECREMENT ADJUSTMENT FOR S1	F2511060
	05374	0 40000 0 05245	1106		ADD	ERTX01 IN 1,2,3 AND 1,3 CASES.	F2511070
	05375	0 60100 0 05245	1107		STO	ERTX01 FINAL DECREMENT ADJUSTMENT.	F2511080
	05376	0 50000 0 05245	1108	RTX66	CLA	ERTX01	F2511090
	05377	0 62100 0 05177	1109		STA	CIL01 AFTER DECREMENT IS COMPUTED, FILL	F2511100
	05400	0 07400 4 06465	1110		TSX	CIL023,4 OUT-4 WORDS OF	F2511110
	05401	0 07400 4 04345	1111		TSX	CIT,4 COMPILED INSTRUCTION.P	F2511120
	05402	0 02000 0 05413	1112		TRA	RTX69 AND CONTINUE.	F2511130
	05403	0 07400 4 06224	1113	RTX68	TSX	CILV,4 DECREMENT IS VARIABLE. ASSIGN LOCATION.	F2511140
	05404	0 50000 0 05176	1114		CLA	CIL00 PREPARE VCTR LOCATION	F2511150
	05405	−0 32000 0 05141	1115		ANA	ADMSK FOR TGA ROUTINE.	F2511160
	05406	0 07400 4 06476	1116		TSX	TGA,4 PLACE LOCATION IN APPENDED TAGTAG WORD	F2511170
	05407	0 07400 4 06625	1117		TSX	CIL23,4 AND THEN FILL OUT	F2511180
	05410	0 50000 0 05042	1118		CLA	L(TXI) REMAINING WORDS OF	F2511190
	05411	0 60100 0 05177	1119		STO	CIL01 COMPILED INSTRUCTION	F2511200
	05412	0 07400 4 04345	1120		TSX	CIT,4 COMPILER ROUTINE.	F2511210
	05413	0 50000 0 03653	1121	RTX69	CLA	TAG4 TEST FOR SYM8OL	F2511220
	05414	0 12000 0 05673	1122		TPL	RTX160 INDICATION	F2511230
	05415	−0 53400 2 05230	1123		LXD	DOIND,2 FORVAR	F2511240
	05416	0 50000 2 01103	1124		CLA	DOTAGZ+5,2 OCCURRANCE.	F2511250
	05417	−0 32000 0 05136	1125		ANA	BIT1	F2511260
	05420	0 10000 0 05673	1126		TZE	RTX160 NO FORVAR, CONTINUE.	F2511270
	05421	0 50000 0 05133	1127		CLA	L(0) FORVAR EXISTS.	F2511280
	05422	0 60100 0 05176	1128		STO	CIL00	F2511290
	05423	0 50000 0 03652	1129		CLA	TAG3 COMPILE	F2511300
	05424	−0 32000 0 05141	1130		ANA	ADMSK STORE	F2511310
	05425	0 60100 0 05201	1131		STO	CIL03 INSTRUCTION	F2511320
	05426	0 50000 0 05045	1132		CLA	L(SXD) FOR	F2511330
	05427	0 60100 0 05177	1133		STO	CIL01 FORVAR OCCURRANCE.	F2511340
	05430	−0 53400 2 05230	1134		LXD	DOIND,2	F2511350
	05431	0 50000 2 01077	1135		CLA	DOTAGZ+1,2 PUT FORVAR SUBSCRIPT	F2511360
	05432	0 60100 0 05200	1136		STO	CIL02 IN RELATIVE ADDRESS	F2511370
	05433	0 07400 4 04345	1137		TSX	CIT,4 WORD FOR SXD INSTRUCTION.	F2511380
	05434	0 02000 0 05673	1138		TRA	RTX160	F2511390
	05435	3 00001 2 05466	1139	RTX70	TXH	RTX90,2,1 BLOCK IS B,C,D QR E.	F2511400
	05436	−0 63400 2 05250	1140		SXD	BLKNUM,2	F2511410
	05437	−0 53400 2 03647	1141		LXD	TAG2,2 BLOCK B FIRST DETERMINE	F2511420
	05440	0 07400 4 06620	1142		TSX	NBITS,4 IF DECREMENT IS VARIABLE	F2511430
	05441	0 40000 0 05234	1143		ADD	N3IND	F2511440
	05442	−0 10000 0 05464	1144		TNZ	RTX80 DECREMENT IS VARIABLE.	F2511450
	05443	0 50000 0 03652	1145		CLA	TAG3 DECREMENT IS CONSTANT.	F2511460
	05444	0 77100 0 00022	1146		ARS	18	F2511470
	05445	0 07400 4 04236	1147		TSX	SUBCOM,4 LAY OUT TAU INTO WRKSC.	F2511480
	05446	−0 53400 2 05230	1148		LXD	DOIND,2 PREPARE FOR	F2511490
	05447	0 53400 1 05240	1149		LXA	POSIND,1 EXIT ROUTINE.	F2511500
	05450	0 07400 4 06447	1150		TSX	CN3IJ,4 COMPUTE N3G AND	F2511510
	05451	0 60100 0 05245	1151		STO	ERTX01 STORE IN ERTX01.	F2511520
	05452	−0 53400 2 03647	1152		LXD	TAG2,2	F2511530
	05453	0 53400 1 05240	1153		LXA	POSIND,1 MOVE POSIND T0 LEFT SUB	F2511540
	05454	1 00001 1 05455	1154		TXI	RTX72,1,1 AND COMPUTE XN3G	F2511550
	05455	0 07400 4 04447	1155	RTX72	TSX	CXIJ,4 FOR LEFT SUB WHICH IS TEST.	F2511560
	05456	0 40200 0 05126	1156		SUB	L(1)	F2511570
	05457	0 60100 0 05246	1157		STO	ERTX02	F2511580
	05460	0 40000 0 05245	1158		ADD	ERTX01 ADDN3G FOR THIS SUBSCRIPT	F2511590
	05461	0 60100 0 05245	1159		STO	ERTX01 RESULT IS TXI DECREMENT.	F2511600
	05462	0 07400 4 06513	1160		TSX	EDCB,4 COMPILE TXI SXD TIX.	F2511610
	05463	0 02000 0 05673	1161		TRA	RTX160 CHECK BEST TEST.	F2511620
	05464	0 07400 4 06546	1162	RTX80	TSX	BCDE,4 BLOCK B IS VARIABLE.	F2511630
	05465	0 02000 0 05673	1163		TRA	RTX160	F2511640
	05466	3 00002 2 05525	1164	RTX90	TXH	RTX110,2,2 BLOCK IS C,D, OR E.	F2511650
	05467	−0 63400 2 05250	1165		SXD	BLKNUM,2 BLOCK IS C, PUT IN XB.	F2511660
	05470	−0 53400 2 03647	1166		LXD	TAG2,2 ISOLATE	F2511670
	05471	0 07400 4 06620	1167		TSX	NBITS,4 NBITS INTO N1N2N3.	F2511680
	05472	0 40000 0 05234	1168		ADD	N3IND	F2511690
	05473	−0 10000 0 05523	1169		TNZ	RTX100 DECREMENT IS VARIABLE, TSX BCDE.	F2511700
	05474	0 50000 0 03652	1170		CLA	TAG3 DECREMENT IS CONSTANT.	F2511710
	05475	0 77100 0 00022	1171		ARS	18 LAY OUT TAU	F2511720
	05476	0 07400 4 04236	1172		TSX	SUBCOM,4 ENTRY INTO WRKSC.	F2511730
	05477	−0 53400 2 03647	1173		LXD	TAG2,2 COMPUTE	F2511740
	05500	0 53400 1 05131	1174		LXA	L(3),1 XN3G-1	F2511750
	05501	0 07400 4 04447	1175	RTX91	TSX	CXIJ,4 FOR	F2511760
	05502	0 40200 0 05126	1176		SUB	L(1) LEFT	F2511770
	05503	0 60100 0 05246	1177		STO	ERTX02 SUBSCRIPT.	F2511780
	05504	0 53400 1 05240	1178		LXA	POSIND,1 THEN COMPUTE N3G	F2511790
	05505	0 07400 4 06447	1179		TSX	CN3IJ,4 FOR RIGHT	F2511800
	05506	0 40000 0 05246	1180		ADD	ERTX02 SUBSCRIPT.	F2511810
	05507	0 60100 0 05245	1181		STO	ERTX01 RESULT IS ERTX01.	F2511820
	05510	0 50000 0 03653	1182		CLA	TAG4	F2511830
	05511	0 77100 0 00011	1183		ARS	9 TEST FOR DUPES.	F2511840
	05512	0 76000 0 00001	1184		LBT		F2511850
	05513	0 02000 0 05521	1185		TRA	RTX95 NO DOSUB DUPE.	F2511860
	05514	0 53400 1 05240	1186		LXA	POSIND,1 DOSUB IS DUPE.	F2511870
	05515	1 00001 1 05516	1187		TXI	RTX93,1,1 COMPUTE ADJUSTMENT	F2511880
	05516	0 07400 4 06447	1188	RTX93	TSX	CN3IJ,4 FOR DECREMENT AND	F2511890
	05517	0 40000 0 05245	1189		ADD	ERTX01 STORE IN ERTX01.	F2511900
	05520	0 60100 0 05245	1190		STO	ERTX01 XN3G(L) + N3G(R) + N3G(C) - 1)	F2511910
	05521	0 07400 4 06513	1191	RTX95	TSX	EDCB,4 COMPILE TXI SXD TIX.	F2511920
	05522	0 02000 0 05673	1192		TRA	RTX160	F2511930
	05523	0 07400 4 06546	1193	RTX100	TSX	BCDE,4 BLOCK DECREMENT IS VARIABLE.	F2511940
	05524	0 02000 0 05673	1194		TRA	RTX160	F2511950
	05525	3 00003 2 05601	1195	RTX110	TXH	RTX140,2,3 D OR E.	F2511960
	05526	−0 63400 2 05250	1196		SXD	BLKNUM,2 STORE BLOCK NUMBER D.	F2511970
	05527	−0 53400 2 03650	1197		LXD	TAG2+1,2 BLOCK D CONSIDERED.	F2511980
	05530	0 07400 4 06620	1198		TSX	NBITS,4 ISOLATE NBITS	F2511990
	05531	0 40000 0 05234	1199		ADD	N3IND CHECK FOR VARIABLE DECREMENT.	F2512000
	05532	−0 10000 0 05577	1200		TNZ	RTX130 DECREMENT IS VARIABLE.	F2512010
	05533	0 50000 0 03652	1201		CLA	TAG3 DECREMENT IS CONSTANT.	F2512020
	05534	0 77100 0 00022	1202		ARS	18 SET UP TAG	F2512030
	05535	−0 32000 0 05153	1203		ANA	11BITS NAME AND	F2512040
	05536	0 07400 4 04236	1204		TSX	SUBCOM,4 LAY OUT TAU ENTRY.P	F2512050
	05537	−0 53400 2 03650	1205		LXD	TAG2+1,2 CONSIDER CENTER SUBSCRIPT	F2512060
	05540	0 53400 1 05127	1206		LXA	L(2),1 FOR EXIT ROUTINE.	F2512070
	05541	0 07400 4 04447	1207		TSX	CXIJ,4 COMPUTE XN3G FOR	F2512080
	05542	0 60100 0 05246	1208		STO	ERTX02 CENTER SUBSCRIPT.	F2512090
	05543	0 53400 1 05240	1209		LXA	POSIND,1 PREPARE DOSUB SUBSCRIPT	F2512100
	05544	−0 53400 2 05230	1210		LXD	DOIND,2 FOR CN3IJROUTINE.	F2512110
	05545	0 07400 4 06447	1211		TSX	CN3IJ,4 COMPUTE N3G FOR	F2512120
	05546	0 60100 0 05245	1212		STO	ERTX01 DOSUB SUBSCRIPT.	F2512130
	05547	0 50000 0 03653	1213		CLA	TAG4 TEST	F2512140
	05550	0 77100 0 00011	1214		ARS	9 FOR	F2512150
	05551	−0 32000 0 05076	1215		ANA	L(7) DUPES,	F2512160
	05552	0 10000 0 05570	1216		TZE	RTX126 NORMAL BLOCK D, NO DUPES.	F2512170
	05553	0 76000 0 00001	1217		LBT		F2512180
	05554	0 02000 0 05563	1218		TRA	RTX118 XX0 BLOCK D, OR 0XX.	F2512190
	05555	0 53400 1 05240	1219		LXA	POSIND,1 X0X BLOCK D.	F2512200
	05556	1 00002 1 05557	1220		TXI	RTX114,1,2 SWITCH RIGHT OR LEFT POSIND.	F2512210
	05557	0 07400 4 06447	1221	RTX114	TSX	CN3IJ,4 COMPUTE N3G	F2512220
	05560	0 40000 0 05245	1222		ADD	ERTX01 DECREMENT ADJUSTMENT	F2512230
	05561	0 60100 0 05245	1223		STO	ERTX01 FOR X0X	F2512240
	05562	0 02000 0 05570	1224		TRA	RTX126 DUPES.	F2512250
	05563	−0 53400 2 03650	1225	RTX118	LXD	TAG2+1,2 COMPUTE XN3G	F2512260
	05564	0 53400 1 05131	1226		LXA	L(3),1 DECREMENT	F2512270
	05565	0 07400 4 04447	1227	RTX122	TSX	CXIJ,4 ADJUSTMENT	F2512280
	05566	0 40000 0 05246	1228		ADD	ERTX02 FOR CENTER	F2512290
	05567	0 60100 0 05246	1229		STO	ERTX02 SUBSCRIPT.	F2512300
	05570	0 50000 0 05246	1230	RTX126	CLA	ERTX02 SUB1 AND	F2512310
	05571	0 40200 0 05126	1231		SUB	L(1) ADD ERTX01	F2512320
	05572	0 60100 0 05246	1232		STO	ERTX02 AND ERTX02	F2512330
	05573	0 40000 0 05245	1233		ADD	ERTX01 YIELDING TXI	F2512340
	05574	0 60100 0 05245	1234		STO	ERTX01 DECREMENT.	F2512350
	05575	0 07400 4 06513	1235		TSX	EDCB,4 COMPILE TXI SXD TIX.	F2512360
	05576	0 02000 0 05673	1236		TRA	RTX160 END CHECK FOR TEST TAG.	F2512370
	05577	0 07400 4 06546	1237	RTX130	TSX	BCDE,4 BLOCK D IS VARIABLE.	F2512380
	05600	0 02000 0 05673	1238		TRA	RTX160	F2512390
	05601	−0 63400 2 05250	1239	RTX140	SXD	BLKNUM,2 BLOCK E	F2512400
	05602	−0 53400 2 03647	1240		LXD	TAG2,2 PUT N BITS FOR S1	F2512410
	05603	0 07400 4 06620	1241		TSX	NBITS,4 PLACE N BITS PLUS	F2512420
	05604	0 40000 0 05234	1242		ADD	N3IND N3IND FOR S1	F2512430
	05605	0 60100 0 05245	1243		STO	ERTX01 AND S2 INTO ERTX01	F2512440
	05606	−0 53400 2 03650	1244		LXD	TAG2+1,2 FOR VARIABLE DECREMENT	F2512450
	05607	0 07400 4 06620	1245		TSX	NBITS,4 TEST. 1F SUM IS NOT ZERO,	F2512460
	05610	0 40000 0 05245	1246		ADD	ERTX01 THEN THE DECREMENT IS VARIABLE.	F2512470
	05611	−0 10000 0 05644	1247		TNZ	RTX154 DECREMENT IS VARIABLE.	F2512480
	05612	0 50000 0 03652	1248		CLA	TAG3 CONSTANT CASE, LAY	F2512490
	05613	0 77100 0 00022	1249		ARS	18 OUT TAU ENTRY INTO	F2512500
	05614	0 07400 4 04236	1250		TSX	SUBCOM,4 WRKSC.	F2512510
	05615	−0 53400 2 03650	1251		LXD	TAG2+1,2 SET UP CENTER SUBSCRIPT	F2512520
	05616	0 53400 1 05127	1252		LXA	L(2),1 FOR EXIT ROUTINE,	F2512530
	05617	0 07400 4 04447	1253		TSX	CXIJ,4 COMPUTE XN3G FOR CENTER.	F2512540
	05620	0 40200 0 05126	1254		SUB	L(1) STORE SN3G-1	F2512550
	05621	0 60100 0 05246	1255		STO	ERTX02 IN ERTX02.	F2512560
	05622	0 53400 1 05240	1256		LXA	POSIND,1 COMPUTE N3G	F2512570
	05623	−0 53400 2 05230	1257		LXD	DOIND,2 FOR RIGHT	F2512580
	05624	0 07400 4 06447	1258		TSX	CN3IJ,4 SUBSCRIPT (DOSUB).	F2512590
	05625	0 40000 0 05246	1259		ADD	ERTX02 PUT FIRST TXI DECREMENT	F2512600
	05626	0 60100 0 05245	1260		STO	ERTX01 IN ERTX01.	F2512610
	05627	0 07400 4 06513	1261		TSX	EDCB,4 COMPILES FIRST	F2512620
	05630	−0 53400 2 03647	1262		LXD	TAG2,2 THREE OF BLOCK E.	F2512630
	05631	0 53400 1 05240	1263		LXA	POSIND,1 COMPUTE XN3G FOR	F2512640
	05632	1 00002 1 05633	1264		TXI	RTX150,1,2 LEFT SUBSCRIPT.	F2512650
	05633	0 07400 4 04447	1265	RTX150	TSX	CXIJ,4 IN ORDER TO CMPILE 2ND	F2512660
	05634	0 40200 0 05126	1266		SUB	L(1) TXI SXD TIX IN	F2512670
	05635	0 60100 0 05245	1267		STO	ERTX01 BLOCK E, THE BLOCK	F2512680
	05636	0 60100 0 05246	1268		STO	ERTX02 NUMBER IS SET TO	F2512690
	05637	−0 53400 4 05250	1269		LXD	BLKNUM,4 APPEAR LIKE BLOCK C SO	F2512700
	05640	2 00002 4 05641	1270		TIX	RTX152,4,2 THATTHE SXD LOCATION IS STORED	F2512710
	05641	−0 63400 4 05250	1271	RTX152	SXD	BLKNUM,4 PROPERLY INTO DOTAG.	F2512720
	05642	0 07400 4 06513	1272		TSX	EDCB,4 COMPILE 2ND TXI SXD TIX.	F2512730
	05643	0 02000 0 05673	1273		TRA	RTX160	F2512740
	05644	0 07400 4 06546	1274	RTX154	TSX	BCDE,4 E IS VARIABLE. THIS TAKES	F2512750
	05645	0 07400 4 06224	1275		TSX	CILV,4 CARE OF FIRST 3 INSTRUCTIONS.P	F2512760
	05646	0 07400 4 06625	1276		TSX	CIL23,4 THE REMAINING THREE ARE	F2512770
	05647	0 50000 0 05042	1277		CLA	L(TXI)	F2512780
	05650	0 60100 0 05177	1278		STO	CIL01 NOW COMPILED.	F2512790
	05651	0 07400 4 04345	1279		TSX	CIT,4	F2512800
	05652	−0 53400 4 05250	1280		LXD	BLKNUM,4 CHANGE BLKNUM	F2512810
	05653	2 00002 4 05653	1281	RTX157	TIX	RTX157,4,2 FROM E	F2512820
	05654	−0 63400 4 05250	1282		SXD	BLKNUM,4 TO C AND	F2512830
	05655	0 07400 4 04472	1283		TSX	CSXD,4 TSX CSXD.	F2512840
	05656	−0 53400 4 05250	1284		LXD	BLKNUM,4	F2512850
	05657	1 00002 4 05660	1285		TXI	RTX157+5,4,2	F2512860
	05660	−0 63400 4 05250	1286		SXD	BLKNUM,4	F2512870
	05661	−0 53400 2 03647	1287		LXD	TAG2,2 PLACE LOCATION OF SXD	F2512880
	05662	0 50000 0 05176	1288		CLA	CIL00 INSTRUCTION IN PROPER DOTAG ENTRY	F2512890
	05663	−0 32000 0 05141	1289		ANA	ADMSK AND POSITION. (LEFT SUB DO).	F2512900
	05664	0 76700 0 00014	1290		ALS	12	F2512910
	05665	−0 60200 2 01104	1291		ORS	DOTAGZ+6,2	F2512920
	05666	0 07400 4 06224	1292		TSX	CILV,4 GENERATE AND	F2512930
	05667	0 07400 4 06625	1293		TSX	CIL23,4	F2512940
	05670	0 50000 0 05046	1294		CLA	L(TIX) COMPILE REMAINING INSTRC.	F2512950
	05671	0 60100 0 05177	1295		STO	CIL01	F2512960
	05672	0 07400 4 04345	1296		TSX	CIT,4 PUT INTO BUFFER.	F2512970
	05673	−0 53400 2 05230	1297	RTX160	LXD	DOIND,2 FINDING S.C, WHICH	F2512980
	05674	0 50000 2 01106	1298		CLA	DOTAGZ+8,2 HAS AN S THAT IS THE TEST.	F2512990
	05675	−0 32000 0 05105	1299		ANA	TETMSK	F2513000
	05676	0 60100 0 05245	1300		STO	ERTX01 TEST NAME.	F2513010
	05677	0 50000 0 03652	1301		CLA	TAG3 COMPARE TAG NAME	F2513020
	05700	0 76700 0 00022	1302		ALS	18 WITH BEST TEST	F2513030
	05701	−0 32000 0 05142	1303		ANA	DECMSK OF CURRENT DO.	F2513040
	05702	0 40200 0 05245	1304		SUB	ERTX01 IF THIS TAG IS	F2513050
	05703	−0 10000 0 05706	1305		TNZ	RTX164 BEST TEST,	F2513060
	05704	0 50000 0 05237	1306		CLA	XTG STORE ITS INDEX	F2513070
	05705	0 60100 0 05220	1307		STO	TETTGX IN TETTGX,	F2513080
	05706	0 02000 0 05307	1308	RTX164	TRA	RTX06 GO TO FIND FOR NEXT TAG.	F2513090
	05707	0 50000 0 05116	1309	RTX180	CLA	INST26 RTX184 LOCATION.	F2513100
	05710	0 62100 0 05414	1310		STA	RTX69+1 RESET AT END OF ROUTINE.	F2513110
	05711	0 53400 4 05125	1311		LXA	LADMX,4 PREPARE FOR ADTAG TXI.	F2513120
	05712	1 00004 4 05713	1312		TXI	RTX180+4,4,4	F2513130
	05713	−0 63400 4 05237	1313		SXD	XTG,4	F2513140
	05714	0 50000 0 05113	1314		CLA	INST20 ADTGA LOCATION,	F2513150
	05715	0 62100 0 06507	1315		STA	TGA8	F2513160
	05716	0 07400 4 04516	1316	RTX184	TSX	ADTGSE,4 SEARCH FOR ADTAG.	F2513170
	05717	0 02000 0 05745	1317		TRA	RTX192 END OF TABLE, START TX PHASE.	F2513180
	05720	−0 75400 2 00000	1318		PXD	0,2 ENTRY FOUND, CONTINUE ADTG CYCLE.	F2513190
	05721	0 77100 0 00022	1319		ARS	18 POSIND IN ADDRESS.	F2513200
	05722	0 60100 0 05240	1320		STO	POSIND	F2513210
	05723	0 50000 0 03653	1321		CLA	TAG4 LOOK AT	F2513220
	05724	0 77100 0 00025	1322		ARS	21 CARRY BITS.	F2513230
	05725	3 00002 2 05732	1323		TXH	RTX190,2,2 S1, BLOCK A.	F2513240
	05726	−3 00001 2 05730	1324		TXL	RTX188,2,1 S3	F2513250
	05727	0 77100 0 00002	1325		ARS	2 S2	F2513260
	05730	−0 32000 0 05131	1326	RTX188	ANA	L(3)	F2513270
	05731	−0 10000 0 05716	1327		TNZ	RTX184 CARRY T1 OR T2 BLOCK F.	F2513280
	05732	0 50000 0 05234	1328	RTX190	CLA	N3IND	F2513290
	05733	0 10000 0 05320	1329		TZE	RTX020 DECREMENT IS CONSTANT.	F2513300
	05734	0 07400 4 06224	1330		TSX	CILV,4 DECREMENT IS VARIABLE.	F2513310
	05735	0 50000 0 05176	1331		CLA	CIL00 INSTRUCTION IS COMPILED	F2513320
	05736	−0 32000 0 05141	1332		ANA	ADMSK AND ENTRY IS MADE	F2513330
	05737	0 07400 4 06476	1333		TSX	TGA,4 IN APPENDED DRM TG WORD,	F2513340
	05740	0 07400 4 06625	1334		TSX	CIL23,4	F2513350
	05741	0 50000 0 05042	1335		CLA	L(TXI) COMPILE	F2513360
	05742	0 60100 0 05177	1336		STO	CIL01 TXI AND PUT	F2513370
	05743	0 07400 4 04345	1337		TSX	CIT,4 IN CIB,	F2513380
	05744	0 02000 0 05716	1338		TRA	RTX184 GET NEW ADTAG.	F2513390
	05745	0 50000 0 05115	1339	RTX192	CLA	INST24 RESET MODIFIED	F2513400
	05746	0 62100 0 05414	1340		STA	RTX69+1 ADDRESSES FOR	F2513410
	05747	0 50000 0 05114	1341		CLA	INST22 TXI CYCLE.	F2513420
	05750	0 62100 0 06507	1342		STA	TGA8	F2513430
	05751	−0 53400 1 05220	1343	RTX195	LXD	TETTGX,1 DETERMINE IF THIS DO HAS A TEST.	F2513440
	05752	3 00000 1 05770	1344		TXH	RTX197,1,0 THIS DO HAS A TEST.	F2513450
	05753	−0 53400 2 05230	1345	RTX196	LXD	DOIND,2 THIS DO HAS NO TEST. THIS INFORMATION	F2513460
	05754	0 50000 2 01076	1346		CLA	DOTAGZ,2 IS ENTERED IN A DRUM TABLE.	F2513470
	05755	0 76700 0 00004	1347		ALS	4 ELIMINATE BITS	F2513480
	05756	0 77100 0 00004	1348		ARS	4 INSERTED BY DOGS.	F2513490
	05757	0 60100 0 05251	1349		STO	SXDTXZ ENTER	F2513500
	05760	0 76600 0 00301	1350		WRS	193 DOTAG	F2513510
	05761	0 46000 0 05064	1351		LDA	DRADS3 WORD	F2513520
	05762	0 70000 0 05251	1352		CPY	SXDTXZ ONE	F2513530
	05763	0 70000 0 05251	1353		CPY	SXDTXZ INTO	F2513540
	05764	0 50000 0 05064	1354		CLA	DRADS3 DOCAR	F2513550
	05765	0 40000 0 05127	1355		ADD	L(2) DRUM.	F2513560
	05766	0 60100 0 05064	1356		STO	DRADS3 TABLE.	F2513570
	05767	0 02000 0 06222	1357		TRA	RTX280	F2513580
	05770	0 76000 0 00140	1358	RTX197	PSE	096 CLEAR SENSE LIGHTS.	F2513590
	05771	0 07400 4 04213	1359		TSX	TGFM,4 FILL OUT TAG WORDS.	F2513600
	05772	0 07400 4 04204	1360		TSX	ISC,4 FIND DOSUB.	F2513610
	05773	0 07400 4 00004	1361		TSX	DIAG,4 SC NOT MODIFIED BY CURRENT DO.	F2313620
	05774	−0 75400 2 00000	1362		PXD	0,2 FORM	F2513630
	05775	0 77100 0 00022	1363		ARS	18 POSITION	F2513640
	05776	0 60100 0 05240	1364		STO	POSIND INDICATOR.	F2513650
	05777	0 07400 4 06224	1365		TSX	CILV,4 OBTAIN LOCATION FOR TEST,	F2513660
	06000	−0 53400 2 05230	1366		LXD	DOIND,2 ISOLATE	F2513670
	06001	0 07400 4 06620	1367		TSX	NBITS,4 NBITS.	F2513680
	06002	0 60100 0 05235	1368		STO	N1N2N3	F2513690
	06003	0 50000 2 01101	1369		CLA	DOTAGZ+3,2	F2513700
	06004	−0 32000 0 05104	1370		ANA	6ONES	F2513710
	06005	−0 10000 0 06045	1371		TNZ	RTX210 N2 IS VARIABLE	F2513720
	06006	0 53400 1 05240	1372		LXA	POSIND,1	F2513730
	06007	−2 00001 1 06015	1373	RTX198	TNX	RTX200,1,1 IS POSITION S3.	F2513740
	06010	0 50000 0 03653	1374		CLA	TAG4 CHECK FOR DORC.	F2513750
	06011	−0 32000 1 05152	1375		ANA	BITMSK+2,1	F2513760
	06012	0 60100 0 05254	1376		STO	N1SBX N1 BIT.	F2513770
	06013	0 07400 4 04566	1377		TSX	N1S02,4	F2513780
	06014	−0 10000 0 06045	1378		TNZ	RTX210 TXL VARIABLE DECREMENT,	F2513790
	06015	−0 53400 1 03652	1379	RTX200	LXD	TAG3,1	F2513800
	06016	3 00000 1 06021	1380		TXH	RTX201,1,0	F2513810
	06017	0 07400 4 04230	1381		TSX	ENTR,4 NOT NORMAL TAG, LAY OUT SIMULATED	F2513820
	06020	0 02000 0 06024	1382		TRA	RTX202 TAU ENTRY INTO WRKSC.	F2513830
	06021	0 50000 0 03652	1383	RTX201	CLA	TAG3 PREPARE FOR	F2513840
	06022	0 77100 0 00022	1384		ARS	18 SUBCOM ROUTINE.	F2513850
	06023	0 07400 4 04236	1385		TSX	SUBCOM,4 LAY OUT TAU ENTRY.	F2513860
	06024	−0 53400 2 05230	1386	RTX202	LXD	DOIND,2 PREPARE FOR AND CALL CXIJ	F2513870
	06025	0 53400 1 05240	1387		LXA	POSIND,1 ROUTINE T0 COMPUTE XGN3.	F2513880
	06026	0 50000 2 01101	1388		CLA	DOTAGZ+3,2 PTCH06 CALLS TELC ROUTINE	F2513890
	06027	0 07400 4 04451	1389		TSX	CXIJ+2,4	F2513900
	06030	−2 00001 1 06033	1390		TNX	RTX204,1,1	F2513910
	06031	0 07400 4 04410	1391		TSX	TELC+2,4 COMPUTES LOAD VALUE FOR	F2513920
	06032	0 50000 0 05245	1392		CLA	ERTX01 DEC, STORES IN ERTX01.	F2513930
	06033	0 60100 0 05177	1393	RTX204	STO	CIL01 FINAL TXL DECREHENT.	F2513940
	06034	−0 50000 0 05047	1394		CAL	L(TXL)	F2513950
	06035	−0 60200 0 05177	1395		ORS	CIL01	F2513960
	06036	0 07400 4 06634	1396		TSX	CILNAM,4 ENTER TAG NAME IN CIL03.	F2513970
	06037	0 50000 0 05224	1397		CLA	A ALPHA PLUS ONE IS	F2513980
	06040	0 40000 0 05061	1398		ADD	L1DEC ENTERED AS THE SYMBOLIC	F2513990
	06041	0 60100 0 05200	1399		STO	CIL02 ADDRESS.	F2514000
	06042	0 07400 4 04345	1400		TSX	CIT,4 ENTER TXL IN BUFFER,	F2514010
	06043	0 50000 0 05133	1401		CLA	L(0) ELIMINATE VARIABLE INDICATOR BIT.	F2514020
	06044	0 02000 0 06055	1402		TRA	RTX214	F2514030
	06045	0 50000 0 05047	1403	RTX210	CLA	L(TXL) COMPILE INSTRUCTION FOR VARIABLE DECREMENT.	F2514040
	06046	0 60100 0 05177	1404		STO	CIL01	F2514050
	06047	0 07400 4 06634	1405		TSX	CILNAM,4 ENTER TAG NAME.	F2514060
	06050	0 50000 0 05224	1406		CLA	A ALPHA PLUS ONE IS	F2514070
	06051	0 40000 0 05061	1407		ADD	L1DEC ENTERED AS THE	F2514080
	06052	0 60100 0 05200	1408		STO	CIL02 SYMBOLIC ADDRESS,	F2514090
	06053	0 07400 4 04345	1409		TSX	CIT,4 ENTER COMPILED TXL IN BUFFER.	F2514100
	06054	0 50000 0 05154	1410		CLA	BIT20 TEST VAR1ABLE INDICATOR.	F2514110
	06055	−0 53400 2 05230	1411	RTX214	LXD	DOIND,2 ENTERONE IN BIT 20 IF	F2514120
	06056	−0 60200 2 01106	1412		ORS	DOTAGZ+8,2 VARIABLE DECREMENT.	F2514130
	06057	0 50000 0 05176	1413		CLA	CIL00 STORE LOCATION	F2514140
	06060	0 76700 0 00030	1414		ALS	24 OF	F2514150
	06061	−0 60200 2 01104	1415		ORS	DOTAGZ+6,2 TEST.	F2514160
	06062	0 76000 0 00141	1416		PSE	097 SET SENSE INDICATOR SO	F2514170
	06063	−0 53400 1 05221	1417	RTX222	LXD	RTXTGX,1 START SCAN FOR TIXING,	F2514180
	06064	−0 63400 1 05237	1418		SXD	XTG,1	F2514190
	06065	0 07400 4 04162	1419	RTX226	TSX	FIND,4 FIND VALID TAG. FILL TAG WORDS.	F2514200
	06066	0 02000 0 06201	1420		TRA	RTX260 END OF DO.	F2514210
	06067	−0 63400 1 05237	1421		SXD	XTG,1 PRESERVE X OF TAG UNDER CONDSIDERATION.	F2514220
	06070	0 07400 4 04373	1422	RTX228	TSX	SCLMN1,4 COMPARE LARGEST S INDES	F2514230
	06071	0 40200 0 05230	1423		SUB	DOIND WITH INDEX OF THE DO.	F2514240
	06072	0 10000 0 06144	1424		TZE	RTX234 DO IS OUTER, OBTAIN TAG.	F2514250
	06073	−0 53400 2 03652	1425		LXD	TAG3,2	F2514260
	06074	3 00000 2 06103	1426		TXH	RTX229,2,0 CURRENT TAG VALID, FILL OUT WRKSC.	F2514270
	06075	0 50000 0 03652	1427		CLA	TAG3 NEW TAG, DETERMINE	F2514280
	06076	0 77100 0 00013	1428		ARS	11 IF TAU ENTRY	F2514290
	06077	0 76000 0 00001	1429		LBT	EXISTS.	F2514300
	06100	0 02000 0 06110	1430		TRA	RTX229+5 NO,TSX ENTR.	F2514310
	06101	0 50000 0 03652	1431		CLA	TAG3 YES, TSX	F2514320
	06102	0 02000 0 06105	1432		TRA	RTX229+2 SUBCOM.	F2514330
	06103	0 50000 0 03652	1433	RTX229	CLA	TAG3 CURRENT TAG	F2514340
	06104	0 77100 0 00022	1434		ARS	18 VALID.	F2514350
	06105	−0 32000 0 05153	1435		ANA	11BITS FILL OUT	F2514360
	06106	0 07400 4 04236	1436		TSX	SUBCOM,4 WRKSC AND	F2514370
	06107	0 02000 0 06111	1437		TRA	RTX230 CONTINUE.	F2514380
	06110	0 07400 4 04230	1438		TSX	ENTR,4 ARTIFICIAL WRKSC ENTRY,	F2514390
	06111	0 53400 4 05240	1439	RTX230	LXA	POSIND,4	F2514400
	06112	2 00001 4 06114	1440		TIX	CLA,4,1 MOVE RIGHT ONE POSITION.	F2514410
	06113	0 02000 0 06130	1441		TRA	RTX232 POSITION IS RIGHT, IGNORE CARRY,	F2514420
	06114	0 50000 0 03653	1442	CLA	CLA	TAG4 POSITION IS LEFT OR CENTER,	F2514430
	06115	0 77100 0 00001	1443		ARS	1 OR TYPE 1 AND 2	F2514440
	06116	−0 50100 0 03653	1444		ORA	TAG4 CARRY BITS FOR LEFT	F2514450
	06117	−3 00001 4 06122	1445		TXL	ARS,4,1 AND CENTER POSITIONS.	F2514460
	06120	0 77100 0 00027	1446		ARS	23 S2 CARRY BIT IN POSITION 35,	F2514470
	06121	0 02000 0 06123	1447		TRA	LBT	F2514480
	06122	0 77100 0 00025	1448	ARS	ARS	21 S3 CARRY BIT IN POSITION 35	F2514490
	06123	0 76000 0 00001	1449	LBT	LBT	TEST FOR DOSUB CARRY BIT.	F2514500
	06124	0 02000 0 06130	1450		TRA	RTX232 NO CARRY, CONTINUE.	F2514510
	06125	0 50000 0 05220	1451		CLA	TETTGX CARRY, SEE IF THIS	F2514520
	06126	0 40200 0 05237	1452		SUB	XTG TAG IS BEST TEST.	F2514530
	06127	−0 10000 0 06200	1453		TNZ	RTX254 NO, GET NEXT TAG.	F2514540
	06130	0 50000 0 05046	1454	RTX232	CLA	L(TIX) COMPILE TIX INSTRUCTION.	F2514550
	06131	0 60100 0 05177	1455		STO	CIL01	F2514560
	06132	0 50000 0 05235	1456		CLA	N1N2N3 TEST FOR VARIABLE DECREMENT,	F2514570
	06133	0 10000 0 06147	1457		TZE	RTX238 DECREMENT IS CONSTANT.	F2514580
	06134	−0 76000 0 00141	1458		MSE	097 DECREMENT IS VARIABLE8 TURN OFF.	F2514590
	06135	0 76100 0 00000	1459		NOP	LIGHT INDICATION FIRST	F2514600
	06136	0 07400 4 06224	1460		TSX	CILV,4 TIX AFTER TXL AND ASSIGN	F2514610
	06137	0 07400 4 06625	1461		TSX	CIL23,4 LOCATION.	F2514620
	06140	0 50000 0 05176	1462		CLA	CIL00 WHEN DECREMENT IS VARIABLE, LOCATION	F2514630
	06141	−0 32000 0 05141	1463		ANA	ADMSK MUST BE STORED IN TGA WORD	F2514640
	06142	0 07400 4 06477	1464		TSX	TGAT,4 FOR SXD ADDRESS IS OBJECT TIME.	F2514650
	06143	0 02000 0 06177	1465		TRA	RTX250 NOW PERFORM COMPILING.	F2514660
	06144	0 50000 0 05050	1466	RTX234	CLA	L(DED) COMPILE OP WHICH INDICATES	F2514670
	06145	0 60100 0 05177	1467		STO	CIL01 SC IS DEAD.	F2514680
	06146	0 02000 0 06171	1468		TRA	RTX242 ASSIGN LOCATION IF NECESSARY.	F2514690
	06147	0 53400 1 05240	1469	RTX238	LXA	POSIND,1 DECREMENT IS CONSTANT.	F2514700
	06150	−0 53400 2 05230	1470		LXD	DOIND,2 TEST FOR DUPLICATES	F2514710
	06151	0 07400 4 04447	1471		TSX	CXIJ,4 AND COMPUTE ACCORDINGLY	F2514720
	06152	0 60100 0 05245	1472		STO	ERTX01 XN3G IN ERTX01.	F2514730
	06153	0 56000 0 03653	1473		LDQ	TAG4 TEST	F2514740
	06154	0 76300 1 00033	1474		LLS	27,1 FOR.	F2514750
	06155	0 76000 0 00001	1475		LBT	DUPES.	F2514760
	06156	0 02000 0 06167	1476		TRA	RTX240 NO DUPES	F2514770
	06157	1 00001 1 06160	1477	RTX239	TXI	RTX239+1,1,1 DUPES EXIST	F2514780
	06160	0 56000 0 03653	1478		LDQ	TAG4 TEST DUPE	F2514790
	06161	0 76300 1 00033	1479		LLS	27,1 BITS OF POSITIONS	F2514800
	06162	0 76000 0 00001	1480		LBT	TO THE LEFT OF DOSUB	F2514810
	06163	0 02000 0 06157	1481		TRA	RTX239 UNTIL THAT POSITION IS	F2514820
	06164	0 07400 4 04447	1482		TSX	CXIJ,4 IN XA, THEN CALLCXIJ	F2514830
	06165	0 40000 0 05245	1483		ADD	ERTX01 AND COMPUTE AND ADD	F2514840
	06166	0 60100 0 05245	1484		STO	ERTX01 DECREMENT ADJUSTMENT	F2514850
	06167	0 50000 0 05245	1485	RTX240	CLA	ERTX01 PUT COMPUTED DE EREMTN	F2514860
	06170	0 62100 0 05177	1486		STA	CIL01 IN CIL01 WORD.	F2514870
	06171	−0 76000 0 00141	1487	RTX242	MSE	097 A LOC MUST BE ASSIGNED IF	F2514880
	06172	0 02000 0 06176	1488		TRA	RTX246	F2514890
	06173	0 07400 4 06224	1489		TSX	CILV,4 THIS IS FIRST TIX AFTER	F2514900
	06174	0 07400 4 06625	1490		TSX	CIL23,4 TEST.	F2514910
	06175	0 02000 0 06177	1491		TRA	RTX250	F2514920
	06176	0 07400 4 06465	1492	RTX246	TSX	CIL023,4	F2514930
	06177	0 07400 4 04345	1493	RTX250	TSX	CIT,4 COMPILE INST.	F2514940
	06200	0 02000 0 06065	1494	RTX254	TRA	RTX226 RETURN FOR NEXT TG	F2514950
	06201	0 53400 4 05125	1495	RTX260	LXA	LADMX,4 START DRMTG SEARCH AND	F2514960
	06202	1 00004 4 06203	1496		TXI	RTX260+2,4,4	F2514970
	06203	−0 63400 4 05237	1497		SXD	XTG,4 COMPIL1NG	F2514980
	06204	0 07400 4 04516	1498	RTX264	TSX	ADTGSE,4 FIND VALID TAG, FILL OUT TAG WDS.	F2514990
	06205	0 02000 0 06216	1499		TRA	RTX270 END OF TABLE	F2515000
	06206	−0 75400 2 00000	1500		PXD	0,2 STORE POSITION	F2515010
	06207	0 77100 0 00022	1501		ARS	18 OF DOSUB	F2515020
	06210	0 60100 0 05240	1502		STO	POSIND IN POSIND.	F2515030
	06211	0 50000 0 05117	1503		CLA	INST30 MODIFY TGTG	F2515040
	06212	0 62100 0 06200	1504		STA	RTX254 TIX COMPIL1NG	F2515050
	06213	0 50000 0 05113	1505		CLA	INST20 ROUTINE TO	F2515060
	06214	0 62100 0 06507	1506		STA	TGA8	F2515070
	06215	0 02000 0 06070	1507		TRA	RTX228 AND EXECUTE.	F2515080
	06216	0 50000 0 05120	1508	RTX270	CLA	INST32 ADTG PORTION FINISHED.	F2515090
	06217	0 62100 0 06200	1509		STA	RTX254 REMODIFY TIX COMPILING	F2513100
	06220	0 50000 0 05114	1510		CLA	INST22 ROUTINE FOR TGTGS.	F2515110
	06221	0 62100 0 06507	1511		STA	TGA8 END OF BETA CYCLE8 RETURN TO 1 PLUS	F2513120
	06222	−0 53400 4 05325	1512	RTX280	LXD	RTX024,4 LOCATION OF THE INSTRUCTION	F2515130
	06223	0 02000 4 00001	1513		TRA	1,4 CALLING RTX.	F2513140
			1514			*************************************************************	F2515130
			1515			CILV IS CALLED WHEN AN INSTRUCTION NUMBER IS NEEDED FOR A C0M	F2515160
			1516			PILED BETA STATE INSTRUCTION.	F2515170
	06224	0 50000 0 05244	1517	CILV	CLA	VCTR THIS ROUTINE UPDATES	F2515180
	06225	0 60100 0 05176	1518		STO	CIL00 VCTR AND	F2515190
	06226	0 40000 0 05110	1519		ADD	L(8) STORE IT INTO CIL00	F2515200
	06227	0 60100 0 05244	1520		STO	VCTR IT IS CALLED WHEN	F2515210
	06230	−0 32000 0 05141	1521		ANA	ADMSK WE NEED A LOCATION	F2515220
	06231	0 40200 0 05060	1522		SUB	MAXLOC FOR A COMPILED	F2515230
	06232	0 10000 0 06234	1523		TZE	CILV1 INSTRUCTION.	F2515240
	06233	0 02000 4 00001	1524		TRA	1,4	F2515250
	06234	0 07400 4 00004	1525	CILV1	TSX	DIAG,4 TOO MANY INSTRUCTION NUMBERS.	F2515260
			1526			*************************************************************	F2515270
			1527			N3BIT PLACES THE VARIABLE N3 BIT OF A DO IN THE WORK N3IND.	F2513280
	06235	−0 53400 2 05230	1528	N3BIT	LXD	DOIND,2 THIS ROUTIN E ISOLATES	F2515290
	06236	0 50000 2 01076	1529		CLA	DOTAGZ,2 THE N3 BIT SO THAT	F2515300
	06237	0 77100 0 00017	1530		ARS	15 IT CAN BE EASILY TESTED.	F2515310
	06240	−0 32000 0 05126	1531		ANA	L(1)	F2515320
	06241	0 60100 0 05234	1532		STO	N3IND	F2515330
	06242	0 02000 4 00001	1533		TRA	1,4 RETURN	F2515340
			1534			TETG DETERMINES FOR WHICH DOS A GIVEN TAG IS A TEST. THIS	F2515330
			1535			INFORMATION IS RECORDED IN TAG4.	F2515360
	06243	0 50000 0 03652	1536	TETG	CLA	TAG3 ISOLATE	F2515370
	06244	−0 32000 0 05141	1537		ANA	ADMSK TAG NAME.	F2515380
	06245	0 60100 0 05241	1538		STO	ER40	F2515390
	06246	0 50000 0 03653	1539		CLA	TAG4 ISOLATE DUPES INDICATORS	F2515400
	06247	0 77100 0 00011	1540		ARS	9	F2515410
	06250	−0 32000 0 05076	1541		ANA	L(7) IF THERE ARE DUPES	F2515420
	06251	0 60100 0 05242	1542		STO	ER41 THIS INSURES THAT TEST BITS	F2515430
	06252	0 40200 0 05126	1543		SUB	L(1) ARE ENTERED ONLY FOR	F2515440
	06253	0 32000 0 05242	1544		ANS	ER41 RIGHTMOST DUPE.	F2515450
	06254	0 53400 1 05131	1545		LXA	L(3),1	F2515460
	06255	0 50000 1 03652	1546		CLA	TAG2+3,1 SELECT DOTAG WHICH	F2515470
	06256	0 10000 0 06275	1547		TZE	TETG5 CONTR0LS THIS	F2515480
	06257	−0 73400 2 00000	1548		PDX	0,2 SUBSCRIPT.	F2515400
	06260	0 50000 2 01106	1549		CLA	DOTAGZ+8,2	F2515S00
	06261	−0 32000 0 05105	1550		ANA	TETMSK ISOLATE TEST NAME	F2515510
	06262	0 77100 0 00022	1551		ARS	18 OF THIS SUBSCRIPT.	F2515520
	06263	0 40200 0 05241	1552		SUB	ER40 DOES TEST NAME EQUAL TAG NAME,	F2515530
	06264	−0 10000 0 06275	1553		TNZ	TETG5 NO, GO TO NEXT SUBSCRIPT.	F2515540
	06265	0 56000 0 05242	1554		LDQ	ER41 TEST NAME EQUALS TAG NAHE,	F2515550
	06266	0 76300 1 00044	1555		LLS	36,1 SEE IF THIS SUBSCRIPT	F2515560
	06267	0 76000 0 00001	1556		LBT	IS A LEFT DUPE.	F2515570
	06270	0 02000 0 06272	1557		TRA	TETG3 NOT A LEFT DUPE, ENTER TEST BIT.	F251S580
	06271	0 02000 0 06275	1558		TRA	TETG5 LEFT DUPE, IGNORE.	F2515590
	06272	0 50000 0 05136	1559	TETG3	CLA	BIT1 ENTER TEST BIT	F2515600
	06273	0 77100 1 00012	1560		ARS	10,1 FOR THIS	F2515610
	06274	−0 60200 0 03653	1561		ORS	TAG4 SUBSCRIPT.	F2515620
	06275	2 00001 1 06255	1562	TETG5	TIX	TETG+10,1,1 DEAL WITH NEXT SUBSCRIPT,	F2515630
	06276	0 02000 4 00001	1563		TRA	1,4	F2515640
			1564			*************************************************************	F2515650
			1565			PRES DETERMINES THE TXI BLOCK NUMBER FOR A GIVEN TAG AND PUTS	F2515660
			1566			IT IN INDEX REGISTER B.	F2515670
	06277	0 50000 0 03653	1567	PRES	CLA	TAG4 FIRST THE TEST	F2515680
	06300	0 76500 0 00032	1568		LRS	26 BITS ARE ISOLATED -	F2515690
	06301	0 76700 0 00041	1569		ALS	33 AND STORED.	F2515700
	06302	0 60100 0 05241	1570		STO	ER40 TEST BITS 1,2.	F2515710
	06303	0 76300 0 00005	1571		LLS	5 THEN THE GROUP NO.	F2515720
	06304	0 76700 0 00024	1572		ALS	20 IS LEFT	F2515730
	06305	−0 50100 0 03653	1573		ORA	TAG4 IN THE MQ WHILE THE	F2515740
	06306	0 77100 0 00025	1574		ARS	21 CARRY BITS ARE ORED	F2515750
	06307	−0 32000 0 05132	1575		ANA	L(5) AND STORED.	F2515760
	06310	0 60100 0 05242	1576		STO	ER41 CARRY BITS 101.	F2515770
	06311	0 76300 0 00005	1577		LLS	5 THE GR0UP NO. IS THEN	F2515780
	06312	−0 50100 0 05240	1578		ORA	POSIND SHIFTED TO BE COMBINED	F2515790
	06313	0 56000 0 05241	1579		LDQ	ER40 WITH THE POS. THE TEST	F2515800
	06314	0 76300 0 00001	1580		LLS	1 BITS ARE SEPARATED SO THAT	F2515810
	06315	0 76700 0 00001	1581		ALS	1 THEY CAN OR PROPERLY WITH	F2515820
	06316	0 76300 0 00002	1582		LLS	2 CARRY BITS LT, LC, CT, CC.	F2515830
	06317	−0 50100 0 05242	1583		ORA	ER41 THIS RESULTS IN THE MASK	F2515840
	06320	0 60100 0 05243	1584		STO	ARG USED FOR TABLE SEARCH.	F2515850
	06321	−0 63400 4 05241	1585		SXD	ER40,4	F2515860
	06322	0 53400 1 05126	1586		LXA	L(1),1 THIS BLOCK REPRESENTS	F2515870
	06323	1 00042 1 06324	1587		TXI	PRES10,1,34 SETS OF CALLING SEQUENCES TO	F2515880
	06324	−0 63400 1 06364	1588	PRES10	SXD	S3,1 SEARCH ROUTINE. MASK IS	F2515890
	06325	1 00012 1 06326	1589		TXI	PRES20,1,10 STORED AND BLOCK TEST	F2515900
	06326	0 50000 0 05144	1590	PRES20	CLA	SMSK1 INDEX DECREMENT IS STORED.	F2515910
	06327	0 60100 0 05143	1591		STO	SMSK FIRST 11 ENTRIES ARE	F2515920
	06330	0 07400 4 06354	1592		TSX	SEARCH,4 SFARCHED. THEN 12,12,4.	F2515930
	06331	0 50000 0 05145	1593		CLA	SMSK2 RETURN TO ROUTINE	F2515940
	06332	0 60100 0 05143	1594		STO	SMSK AFTER SEARCHING LAST	F2515950
	06333	2 00014 1 06334	1595		TIX	PRES30,1,12 BLOCK INDICATES AN ERROR.	F2515960
	06334	−0 63400 1 06364	1596	PRES30	SXD	S3,1	F2515970
	06335	1 00014 1 06336	1597		TXI	PRES40,1,12	F2515980
	06336	0 07400 4 06354	1598	PRES40	TSX	SEARCH,4	F2515990
	06337	0 50000 0 05147	1599		CLA	SMSK4	F2516000
	06340	0 60100 0 05143	1600		STO	SMSK	F2516010
	06341	2 00020 1 06342	1601		TIX	PRES50,1,16	F2516020
	06342	−0 63400 1 06364	1602	PRES50	SXD	S3,1	F2516030
	06343	1 00020 1 06344	1603		TXI	PRES60,1,16	F2516040
	06344	0 07400 4 06354	1604	PRES60	TSX	SEARCH,4	F2516050
	06345	0 50000 0 05146	1605		CLA	SMSK3	F2516060
	06346	0 60100 0 05143	1606		STO	SMSK	F2516070
	06347	2 00006 1 06350	1607		TIX	PRES70,1,6	F2516080
	06350	−0 63400 1 06364	1608	PRES70	SXD	S3,1	F2516090
	06351	1 00006 1 06352	1609		TXI	PRES80,1,6	F2516100
	06352	0 07400 4 06354	1610	PRES80	TSX	SEARCH,4	F2516110
	06353	0 07400 4 00004	1611	ERROR	TSX	DIAG,4 ALL SEARCHES FAILED.	F2516120
			1612			*************************************************************	F2516130
			1613			SEARCH IS CALLED BY PRES TO COMPARE CONSTANTS IN THE RX TABLE	F2516140
			1614			AGAINST VARIOUS PERMUTATIONS OF AN ARGUMENT WORD. A MATCHING	F2516150
			1615			COMPARISON MEANS THE CONSTANT WILL YIELD THE CORRECT BLOCK NU	F2316160
			1616			NUMBER.	F2516170
	06354	0 50000 1 06450	1617	SEARCH	CLA	RXTA+45,1	F2516180
	06355	0 77100 0 00003	1618		ARS	3 THIS ROUTINE TAKES	F2516190
	06356	0 60100 0 05217	1619		STO	WRKRXT THE ARGUMENT MASK, EDITS	F2516200
	06357	0 50000 0 05243	1620		CLA	ARG IT AND THEN SEARCHES	F2516210
	06360	−0 32000 0 05143	1621		ANA	SMSK PRESCR1BED BLOCKS OF	F2516220
	06361	0 40200 0 05217	1622		SUB	WRKRXT THE RX TABLE. -	F2516230
	06362	0 10000 0 06366	1623		TZE	S8 SUCCESSFUL SEARCH.	F2516240
	06363	2 00001 1 06364	1624		TIX	S3,1,1 INDEX FOR NEXT ENTRY,	F2516250
D	06364	3 00000 1 06354	1625	S3	TXH	SEARCH,1 TEST FOR END OF BLOCK,	F2516260
	06365	0 02000 4 00001	1626		TRA	1,4	F2516270
	06366	0 50000 1 06450	1627	S8	CLA	RXTA+45,1 TABLE ENTRY CONTAINS	F2516280
	06367	−0 32000 0 05076	1628		ANA	L(7) BLOCK NOS. 0-5 WHICH	F2516290
	06370	0 73400 2 00000	1629		PAX	0,2 CORRESPOND TO BLOCKS	F2516300
	06371	−0 53400 4 05241	1630		LXD	ER40,4 A-F.	F2516310
	06372	0 02000 4 00001	1631		TRA	1,4	F2516320
	06373	+000000006600	1632	RXTA	OCT	6600 6L, 760 MASK	F2516330
	06374	+000000006400	1633		OCT	6400 6C	F2516340
	06375	+000000006200	1634		OCT	6200 6R	F2516350
	06376	+000000005600	1635		OCT	5600 5L	F2516360
	06377	+000000004600	1636		OCT	4600 4L	F2516370
	06400	+000000004200	1637		OCT	4200 4R	F2516380
	06401	+000000003600	1638		OCT	3600 3L	F2516390
	06402	+000000003400	1639		OCT	3400 3C	F2516400
	06403	+000000002400	1640		OCT	2400 2C	F2516410
	06404	+000000001600	1641		OCT	1600 1L	F2516420
	06405	+000000005501	1642		OCT	5501 5C, 774 MASK	F2516430
	06406	+000000005400	1643		OCT	5400 5C	F2516440
	06407	+000000005302	1644		OCT	5302 5R	F2516450
	06410	+000000005200	1645		OCT	5200 5R	F2516460
	06411	+000000004541	1646		OCT	4541 4C	F2516470
	06412	+000000004501	1647		OCT	4501 4C	F2516480
	06413	+000000004445	1648		OCT	4445 4C	F2516490
	06414	+000000004400	1649		OCT	4400 4C	F2516500
	06415	+000000001541	1650		OCT	1541 1C	F2516510
	06416	+000000001501	1651		OCT	1501 1C	F2516520
	06417	+000000001445	1652		OCT	1445 1C	F2516530
	06420	+000000001400	1653		OCT	1400 1C	F2516540
	06421	+000000001215	1654		OCT	1215 1R, 773 MASK	F2516550
	06422	+000000001200	1655		OCT	1200 1R	F2516560
	06423	+000000002723	1656		OCT	2723 2L	F2516570
	06424	+000000002733	1657		OCT	2733 2L	F2516580
	06425	+000000002623	1658		OCT	2623 2L	F2516590
	06426	+000000002633	1659		OCT	2633 2L	F25166D0
	06427	+000000003324	1660		OCT	3324 3R	F2516610
	06430	+000000003302	1661		OCT	3302 3R	F2516620
	06431	+000000003223	1662		OCT	3223 3R	F2516630
	06432	+000000003200	1663		OCT	3200 3R	F2516640
	06433	+000000001334	1664		OCT	1334 1R	F2516650
	06434	+000000001324	1665		OCT	1324 1R	F2516660
	06435	+000000001315	1666		OCT	1315 1R	F2516670
	06436	+000000001302	1667		OCT	1302 1R	F2516680
	06437	+000000001233	1668		OCT	1233 1R	F2516690
	06440	+000000001223	1669		OCT	1223 1R	F2516700
	06441	+000000002600	1670		OCT	2600 2L, 763 MASK	F2516710
	06442	+000000002610	1671		OCT	2610 2L	F2516720
	06443	+000000002233	1672		OCT	2233 2R	F2516730
	06444	+000000002223	1673		OCT	2223 2R	F2516740
	06445	+000000002215	1674		OCT	2215 2R	F2516750
	06446	+000000002200	1675		OCT	2200 2R	F2516760
			1676			*************************************************************	F2516770
			1677			CN3IJ COMPUTES THE INDEX INCREMENTING VALUE FOR EACH PASS THR	F2516780
			1678			THROUGH A DO LOOP. THIS IS THE NORHAL TXI DECREMENT.	F2516790
	06447	0 56000 2 01102	1679	CN3IJ	LDQ	DOTAGZ+4,2 COMPUTES DECREMENT AND	F2516800
	06450	0 76300 0 00022	1680		LLS	18 LEAVES IT IN ACCUMULATOR.	F2516810
	06451	3 00002 1 06457	1681		TXH	CN3IJ5,1,2 IF POSIND=3, S1 POS.	F2516820
	06452	0 20000 0 03644	1682		MPY	WRKSC+6 D1N3 FOR S2 OR S3.	F2516830
	06453	0 76500 0 00022	1683		LRS	18	F2516840
	06454	3 00001 1 06457	1684		TXH	CN3IJ5,1,1 POSIND=2 S2 POS.	F2516850
	06455	0 20000 0 03645	1685		MPY	WRKSC+7 D2D1N3 FOR S3.	F2516860
	06456	0 76500 0 00022	1686		LRS	18	F2516870
	06457	−0 75400 1 00000	1687	CN3IJ5	PXD	0,1 PLACE TWICE	F2516880
	06460	0 76700 0 00001	1688		ALS	1 POSIND IN	F2516890
	06461	−0 73400 1 00000	1689		PDX	0,1 INDEX REGISTER.	F2516900
	06462	0 20000 1 03644	1690		MPY	WRKSC+6,1 CN3D1D2 OR CN3D1 OR CN3.	F2516910
	06463	0 77100 0 00001	1691		ARS	1	F2516920
	06464	0 02000 4 00001	1692		TRA	1,4 RESULT IS N3G.	F2516930
			1693			*************************************************************	F2516940
			1694			CIL023 FILLS OUT THE LOCATION, ADDRESS, AND TAG NAME WORDS FO	F2516950
			1695			FOR NON-LOCATION COMPILED INSTRUCTIONS ADDRESSING THE FOLLOWI	F2516960
			1696			ING INSTRUCTIONS	F2516970
	06465	0 50000 0 05133	1697	CIL023	CLA	L(0) ROUTINE PLACES SPECIAL	F2516980
	06466	0 60100 0 05176	1698		STO	CIL00	F2516990
	06467	0 50000 0 05061	1699		CLA	L1DEC SYMBOL FOR ADDRESS	F2517000
	06470	0 60100 0 05201	1700		STO	CIL03	F2517010
	06471	0 50000 0 05077	1701		CLA	BCD15 AND INITIALIZES LOC. WORD	F2517020
	06472	0 60100 0 05200	1702		STO	CIL02 AND PLACES TAG IN	F2517030
	06473	0 50000 0 03652	1703		CLA	TAG3 TAG WD. THIS IS DOEN	F2517040
	06474	0 62100 0 05201	1704		STA	CIL03 FOR INST. OF K DECREMENT.	F2517050
	06475	0 02000 4 00001	1705		TRA	1,4 ).	F2517060
			1706			*************************************************************	F2517070
			1707			TGA MAKES AN ENTRY IN APPENDED TAGTAG SHOWING THE LOCATION OF	F2317080
			1708			A GIVEN VARIABLE DECREMENT TXI OR TIX. FOR REFERENCE BY THE	F2517090
			1709			ALPHA STATE WHEN COMPILING CECREMENT INITIALIZATION	F2517100
			1710			INSTRUCTIONS.	F2517110
	06476	0 76700 0 00022	1711	TGA	ALS	18 FOR RX LOC.	F2517120
	06477	0 77100 0 00003	1712	TGAT	ARS	3 FOR TX LOC, DIV VCTOR BY 8.	F2517130
	06500	0 60100 0 05202	1713		STO	ERTGA	F2517140
	06501	0 53400 1 05240	1714		LXA	POSIND,1	F2517150
	06502	0 50000 0 05237	1715		CLA	XTG CALCULATES X LOC OF TTGA.	F2517160
	06503	0 77100 0 00002	1716		ARS	2 INDEX QUANTITY FOR TTGA IS	F2517170
	06504	−0 73400 2 00000	1717		PDX	0,2 ONE FOURTH THAT FOR TTG.	F2517180
	06505	0 50000 0 05202	1718		CLA	ERTGA	F2517190
	06506	2 00001 1 06511	1719	TGA5	TIX	TGA10,1,1 SHIFT LEFT FOR S1 OR S2	F2517200
	06507	−0 60200 2 02646	1720	TGA8	ORS	MXTGA,2 ADDRESS IS ORIGIN PLUS MAX	F2517210
	06510	0 02000 4 00001	1721		TRA	1,4 ADD TG WD. LINKAGE TRANSFER.	F2517220
	06511	0 76700 0 00006	1722	TGA10	ALS	6	F2517230
	06512	0 02000 0 06506	1723		TRA	TGA5	F2517240
			1724			*************************************************************	F23172S0
			1725			EDCB COMPILES TXI-SXD-TIX INSTRUCTIONS AND STORES THE SXD LOC	F2517260
			1726			ATION FOR BLOCKS B,C,D, OR E WHEN THE DECREMENTS ARE CONSTANT	F2517270
			1727			AND KNOWN.	F2517280
	06513	−0 63400 4 06533	1728	EDCB	SXD	EDCB5,4 COMPILES TXI SXD TIX	F2517290
	06514	0 50000 0 05042	1729		CLA	L(TXI) INSTRUCTIONS WHEN	F2517300
	06515	0 60100 0 05177	1730		STO	CIL01 DECREMENTS ARE KN0WN,	F2517310
	06516	0 50000 0 05245	1731		CLA	ERTX01 ASSUMES DECREMENTS TO	F2517320
	06517	0 62100 0 05177	1732		STA	CIL01 BE IN ERTX01 AND	F2517330
	06520	0 07400 4 06465	1733		TSX	CIL023,4 ERTX02,	F2517340
	06521	0 07400 4 04345	1734		TSX	CIT,4 COMPILE TXI INSTRUCITON.	F2517350
	06522	0 07400 4 04472	1735		TSX	CSXD,4 COMPILE SXD SKELETON.	F2517360
	06523	0 50000 0 05176	1736		CLA	CIL00	F2517370
	06524	−0 32000 0 05141	1737		ANA	ADMSK	F2517380
	06525	0 76700 0 00014	1738		ALS	12 BELOW, PLACE SXD LOC. INTO	F2517390
	06526	−0 53400 4 05250	1739		LXD	BLKNUM,4 DOTAG WORD 7. APPROPRIATE	F2517400
	06527	3 00002 4 06534	1740		TXH	EDCB10,4,2 BITS DEPEND ON BLOCK NOS.	F2517410
	06530	−0 53400 2 03647	1741		LXD	TAG2,2 BLOCKS D, E SHIFT LEFT 12.	F2517420
	06531	3 00001 4 06533	1742		TXH	EDCB5,4,1 BLOCKS C, B USE S1 DOTAG.	F2517430
	06532	0 76700 0 00006	1743		ALS	6 BLOCK C, SHIFT LEFT 12.	F2517440
D	06533	−3 00000 0 06535	1744	EDCB5	TXL	EDCB20,0 BLOCK B, SHIGT LEFT 18.	F2517450
	06534	−0 53400 2 03650	1745	EDCB10	LXD	TAG2+1,2 BLOCK D,E USE S2 DOTAG.	F2517460
	06535	−0 60200 2 01104	1746	EDCB20	ORS	DOTAGZ+6,2 PLACE LOC. INTO WD 7.	F2517470
	06536	0 50000 0 05046	1747		CLA	L(TIX) COMPILE	F2517480
	06537	0 60100 0 05177	1748		STO	CIL01 TIX.	F2517490
	06540	0 50000 0 05246	1749		CLA	ERTX02 COMPILE	F2517500
	06541	0 62100 0 05177	1750		STA	CIL01 TIX DECREMENT,	F2517510
	06542	0 07400 4 06465	1751		TSX	CIL023,4	F2517520
	06543	0 07400 4 04345	1752		TSX	CIT,4	F2517530
	06544	−0 53400 4 06533	1753		LXD	EDCB5,4	F2517540
	06545	0 02000 4 00001	1754		TRA	1,4	F2517550
			1755			*************************************************************	F2517560
			1756			BCDE COMPILES TXI-SXD-TIX INSTRUCTIONS AND MAKES PROPER TABLE	F2517570
			1757			ENTRIES IN DOTAG AND TGA WHEN BLOCK B,C,D, OR E IS VARIABLE.	F2517580
	06546	−0 63400 4 06567	1758	BCDE	SXD	BCDE2,4	F2517590
	06547	0 07400 4 06224	1759		TSX	CILV,4 OBTAIN LOC. FOR FIRST INST.	F2517600
	06550	0 50000 0 05176	1760		CLA	CIL00 MAKE LOCATION ENTRY INTO	F2517610
	06551	−0 32000 0 05141	1761		ANA	ADMSK APPENDED TAG WORD.	F2517620
	06552	0 07400 4 06476	1762		TSX	TGA,4	F2517630
	06553	0 50000 0 05042	1763		CLA	L(TXI) PLACE OPERATION IN	F2517640
	06554	0 60100 0 05177	1764		STO	CIL01 COMPILED INSTRUCTIN,	F2517650
	06555	0 07400 4 06625	1765		TSX	CIL23,4 FILL OUT REMAINING WORDS.	F2517660
	06556	0 07400 4 04345	1766		TSX	CIT,4	F2517670
	06557	0 07400 4 04472	1767		TSX	CSXD,4	F2517680
	06560	−0 53400 2 05250	1768		LXD	BLKNUM,2	F2517690
	06561	−3 00002 2 06570	1769		TXL	BCDE5,2,2 TEST FOR BLOCKS B OR C.	F2517700
	06562	0 50000 0 05176	1770		CLA	CIL00 BLOCK D OR E.	F2517710
	06563	−0 53400 1 03650	1771		LXD	TAG2+1,1 PLACE LOC. OF SXD INST.	F2517720
	06564	−0 32000 0 05141	1772		ANA	ADMSK INTO DOTAG ENTRY FOR	F2517730
	06565	0 76700 0 00014	1773		ALS	12 CENTER SUBSCRIPT.	F2517740
	06566	−0 60200 1 01104	1774		ORS	DOTAGZ+6,1	F2517750
D	06567	−3 00000 0 06577	1775	BCDE2	TXL	BCDE9,0 BLOCKS D,E CONTINUE.	F2517760
	06570	0 50000 0 05176	1776	BCDE5	CLA	CIL00 BLOCK B OR C .	F2517770
	06571	−0 53400 1 03647	1777		LXD	TAG2,1 PLACE LOC. FOR SXD OF	F2517780
	06572	−0 32000 0 05141	1778		ANA	ADMSK REMAINING TWO BLOCKS.	F2517790
	06573	0 76700 0 00014	1779		ALS	12 DISTINGUISH BETWEEN BLOCK B, C.	F2517800
	06574	3 00001 2 06576	1780		TXH	BCDE8,2,1	F2517810
	06575	0 76700 0 00006	1781		ALS	6	F2517820
	06576	−0 60200 1 01104	1782	BCDE8	ORS	DOTAGZ+6,1	F2517830
	06577	−0 75400 2 00000	1783	BCDE9	PXD	0,2 BLOCK NUMBER MUST BE	F2517840
	06600	0 76700 0 00016	1784		ALS	14 STORED IN PROPER POS.	F2517850
	06601	0 53400 1 05240	1785		LXA	POSIND,1 OF TAG 4 WORD.	F2517860
	06602	−3 00001 1 06606	1786		TXL	BCDE10−1,1,1	F2517870
	06603	−3 00002 1 06607	1787		TXL	BCDE10,1,2 IF POSITION IS LEFT,	F2517880
	06604	−0 50000 0 05140	1788		CAL	BIT8 PLACE A ONE IN BIT 7 OF TAG4	F2517890
	06605	0 02000 0 06607	1789		TRA	BCDE10 TO INDICATE BLOCK D SPECIAL.	F2517900
	06606	0 77100 0 00003	1790		ARS	3	F2517910
	06607	−0 53400 2 05237	1791	BCDE10	LXD	XTG,2	F2517920
	06610	−0 60200 2 02341	1792		ORS	MXTGTG+3,2	F2517930
	06611	0 07400 4 06224	1793		TSX	CILV,4 OBTAIN LOC. FOR THIRD	F2517940
	06612	0 50000 0 05046	1794		CLA	L(TIX) INST. AND OPERATION PART	F2517950
	06613	0 60100 0 05177	1795		STO	CIL01 FOR 2ND WORD.	F2517960
	06614	0 07400 4 06625	1796		TSX	CIL23,4 FILL OUT REMAINING WORDS.	F2517970
	06615	0 07400 4 04345	1797		TSX	CIT,4	F2517980
	06616	−0 53400 4 06567	1798		LXD	BCDE2,4	F2517990
	06617	0 02000 4 00001	1799		TRA	1,4	F2518000
			1800			*************************************************************	F2518010
			1801			NBITS ISOLATES THE VARIABLE PARAMETER BITS FOR A GIVEN DOTAG.	F2518020
	06620	0 50000 2 01076	1802	NBITS	CLA	DOTAGZ,2 ROUTINE FOR ISOLATING	F2518030
	06621	0 77100 0 00017	1803		ARS	15 THE N BITS OF A DO.	F2518040
	06622	−0 32000 0 05076	1804		ANA	L(7)	F2518050
	06623	0 60100 0 05235	1805		STO	N1N2N3	F2518060
	06624	0 02000 4 00001	1806		TRA	1,4	F2518070
			1807			*************************************************************	F2518080
			1808			CIL23 FILLS OUT THE ADDRESS AND TAG NAME WORDS FOR A COMPILED	F2518090
			1809			INSTRUCTION WHEN THE ADDRESS IS TO BE THE NEXT SEQUENTIAL INS	F2518100
			1810			TRUCTION AND THE LOCATION WORD IS FILLED ELSEWHERE.	F2518110
	06625	0 50000 0 05176	1811	CIL23	CLA	CIL00 THIS ROUTINE PLACES TAG IN	F2518120
	06626	0 60100 0 05200	1812		STO	CIL02 TAG WD. OF CIL03 AN0 1	F2518130
	06627	0 50000 0 03652	1813		CLA	TAG3 IN DECREMENT FOR THE	F2518140
	06630	−0 32000 0 05141	1814		ANA	ADMSK RELATIVE PART,	F2518150
	06631	−0 50100 0 05061	1815		ORA	L1DEC PLACES THE LOCATION IN	F2518160
	06632	0 60100 0 05201	1816		STO	CIL03 THE ADDRESS WORD CIL02 .	F2518170
	06633	0 02000 4 00001	1817		TRA	1,4	F2518180
			1818			*************************************************************	F2518190
			1819			CILNAM ENTERS ONLY THE TAG NAME.	F2518200
	06634	0 50000 0 03652	1820	CILNAM	CLA	TAG3 THIS ROUTINE	F2518210
	06635	−0 32000 0 05141	1821		ANA	ADMSK ENTERS THE	F2518220
	06636	0 60100 0 05201	1822		STO	CIL03 TAG NAME	F2518230
	06637	0 02000 4 00001	1823		TRA	1,4 IN CIL.	F2518240
			1824			*************************************************************	F2518250
			1825				F2518260
			1826				F2518270
			1827			MASTER RECORD CARD = FN049	F2518275
			1828			BEGIN ALPHA STATE	F2518280
			1829			THE ALPHA STATE, AC, IS CALLED BY MAN T0 COMPILE ALL INITIALI	F2518290
			1830			ZATION AND LOAD INSTRUCTIONS WHEN AN ALPH OF A DO IS UNDER C	F2518300
			1831			CONSIDERATION.	F2518310
		05256	1832		ORG	RTX	F2518320
	05256	−0 63400 4 06252	1833	AC	SXD	AC248,4 STORE LINKAGE	F2518330
	05257	0 60100 0 05244	1834		STO	VCTR DOTAG ALPHA IS LOCATION.	F2518340
	05260	0 50000 2 01104	1835		CLA	DOTAGZ+6,2 PLACE	F2518350
	05261	0 77100 0 00033	1836		ARS	27 .- SXD LOCATION	F2518360
	05262	−0 32000 0 05170	1837		ANA	6ONESR IN	F2518370
	05263	0 76700 0 00003	1838		ALS	3 CIL00 AND	F2518380
	05264	0 40000 0 05225	1839		ADD	B TXL LOCATION	F2518390
	05265	0 60100 0 05176	1840		STO	CIL00 IN	F2518400
	05266	0 50000 2 01076	1841		CLA	DOTAGZ,2 ERTX01 FOR	F2518410
	05267	−0 32000 0 05071	1842		ANA	N0PRET	F2518420
	05270	0 60100 0 05251	1843		STO	SXDTXZ	F2518430
	05271	0 76600 0 00301	1844		WRS	193 OF SXDTX TABLE	F2518440
	05272	−0 50000 0 05251	1845		CAL	SXDTXZ MAKE	F2518450
	05273	0 36100 0 05176	1846		ACL	CIL00 SXDTX	F2518460
	05274	0 60200 0 05245	1847		SLW	ERTX01 TABLE	F2518470
	05275	0 46000 0 05063	1848		LDA	DRADS2 ENTRY	F2518480
	05276	0 70000 0 05251	1849		CPY	SXDTXZ ON	F2518490
	05277	0 70000 0 05176	1850		CPY	CIL00 DRUM 1.	F2518500
	05300	0 70000 0 05245	1851		CPY	ERTX01	F2518510
	05301	0 50000 0 05063	1852		CLA	DRADS2 RESET DRUM	F2518520
	05302	0 40000 0 05131	1853		ADD	L(3) ADDRESS FOR	F2518530
	05303	0 60100 0 05063	1854		STO	DRADS2 NEXT ENTRY.	F2518540
	05304	0 50000 0 05123	1855	AC05	CLA	ALLONE INITIALIZE CIL WORDS	F2518550
	05305	0 60100 0 05176	1856		STO	CIL00 TO ALL ONES AND	F2518560
	05306	0 60100 0 05177	1857		STO	CIL01 PUT	F2518570
	05307	0 60100 0 05200	1858		STO	CIL02 INTO CIT	F2518580
	05310	0 60100 0 05201	1859		STO	CIL03 AS FIRST ALPHA STAGE	F2518590
	05311	0 07400 4 04352	1860		TSX	CITSP,4 ENTRY.	F2518600
	05312	0 07400 4 04153	1861		TSX	SCAN,4 SCAN AND FIND PICK	F2518610
	05313	−0 63400 1 05221	1862		SXD	RTXTGX,1	F2518620
	05314	−0 63400 1 05237	1863		SXD	XTG,1 BY A DO WITHIN ALPHA	F2518630
	05315	0 07400 4 04162	1864	AC010	TSX	FIND,4 AND BETA.	F2518640
	05316	0 02000 0 06240	1865		TRA	AC240+1 END OF DO FOR DOTAG.	F2518650
	05317	−0 63400 1 05237	1866		SXD	XTG,1 STORE TGTG INDEX IN XTG.	F2518660
	05320	0 07400 4 04373	1867	AC014	TSX	SCLMN1,4 OBTAIN X FOR MINLEV OF S.C	F2518670
	05321	−0 53400 1 05237	1868		LXD	XTG,1 SET UP FOR FIND ROUTINE.	F2518680
	05322	0 40200 0 05230	1869		SUB	DOIND TEST TO SEE IF THIS IS	F2518690
	05323	−0 10000 0 05315	1870	AC016	TNZ	AC010 THE OUTERMOST DO.	F2518700
	05324	−0 53400 1 03652	1871		LXD	TAG3,1 IF IT IS PROCEED TO	F2518710
	05325	3 00000 1 05340	1872		TXH	AC018,1,0 COMPILE PROPER INST.	F2518720
	05326	0 50000 0 03652	1873		CLA	TAG3 - NO CURRENT TG, USE NEW TG.	F2518730
	05327	0 77100 0 00013	1874		ARS	11 CHECK RESET TAG BIT	F2518740
	05330	0 76000 0 00001	1875		LBT	OR INSERTED COUNTER.	F2518750
	05331	0 02000 0 05334	1876		TRA	AC016I RESET TYPE ENTRY, USE NEW TAG	F2518760
	05332	0 07400 4 04230	1877		TSX	ENTR,4 CTR. TYPE ENTRY, SIMULATE	F2518770
	05333	0 02000 0 05343	1878		TRA	AC020 WRKSC AND CONTINUE	F2518780
	05334	0 50000 0 03652	1879	AC016I	CLA	TAG3 RESET TYPE ENTRY	F2518790
	05335	−0 32000 0 05153	1880		ANA	11BITS LAY OUT TAU ENTRIES	F2518800
	05336	0 07400 4 04236	1881		TSX	SUBCOM,4	F2518810
	05337	0 02000 0 05355	1882		TRA	AC021 DECRENENT AND CONTINUE	F2518820
	05340	0 50000 0 03652	1883	AC018	CLA	TAG3 CURRENT TAG VALID, LAY	F2518830
	05341	0 77100 0 00022	1884		ARS	18 OUT TAU DNTRIES INTO	F2518840
	05342	0 07400 4 04236	1885	AC019	TSX	SUBCOM,4 WRKSC AND CONTINUE	F2518850
	05343	0 07400 4 04560	1886	AC020	TSX	N1STET,4	F2518860
	05344	0 50000 0 05254	1887		CLA	N1SBX VALUE IS CONSTANT	F2518870
	05345	−0 10000 0 05400	1888		TNZ	AC030 VARIABLE, TRA AC030.	F2518880
	05346	0 07400 4 04406	1889		TSX	TELC,4 COMPUTE LOAD	F2518890
	05347	0 50000 0 05245	1890		CLA	ERTX01 VALUE	F2518900
	05350	0 76700 0 00022	1891		ALS	18 AND PLACE	F2518910
	05351	0 40000 0 05061	1892		ADD	L1DEC IN	F2518920
	05352	0 07400 4 04601	1893		TSX	FIXCON,4 FIXCON.	F2518930
	05353	0 60100 0 05200	1894		STO	CIL02 FIXCON LOCATION SYMBOL.	F2518940
	05354	0 02000 0 05357	1895		TRA	AC022 CONTINUE.	F2518950
	05355	0 50000 0 05100	1896	AC021	CLA	BCD0	F2518960
	05356	0 60100 0 05200	1897		STO	CIL02 LXD ADDRESS T0 BCD ZERO.	F2518970
	05357	0 50000 0 05051	1898	AC022	CLA	L(LXD)	F2518980
	05360	0 60100 0 05177	1899		STO	CIL01 LXD	F2518990
	05361	0 07400 4 07131	1900		TSX	CIL03I,4 FILL OUT LOCATION AND TG WORDS.	F2519000
	05362	0 50000 0 05200	1901		CLA	CIL02 PLACE LXD ADDRESS	F2519010
	05363	0 60100 0 07621	1902		STO	OR000+27 IN OR0 TABLE.	F2519020
	05364	0 73400 4 00000	1903		PAX	0,4 RELATIVE PART OF FIXCON NAME	F2519030
	05365	−0 32000 0 05104	1904		ANA	6ONES	F2519040
	05366	0 60100 0 05200	1905		STO	CIL02 ADDRESS.	F2519050
	05367	−0 63400 4 05201	1906		SXD	CIL03,4 RELATIVE ADDRESS.	F2519060
	05370	0 50000 0 05222	1907		CLA	LOCIND TEST LOCATION INDICATOR.	F2519070
	05371	0 10000 0 05376	1908		TZE	AC024	F2519080
	05372	0 40200 0 05126	1909		SUB	L(1)	F2519090
	05373	0 60100 0 05222	1910		STO	LOCIND A LOCATION MUST BE	F2519100
	05374	0 50000 0 05224	1911		CLA	A ASSIGNED FOR 1ST LXD	F2519110
	05375	0 60100 0 05176	1912		STO	CIL00 COMPILED FOR AN ALPHA.	F2519120
	05376	0 07400 4 04345	1913	AC024	TSX	CIT,4 PUT IN DOFILE.	F2519130
	05377	0 76100 0 00000	1914		NOP		F2519140
	05400	0 50000 0 03653	1915	AC030	CLA	TAG4 VARIABLE CASE, THE BITS FOR	F2519150
	05401	0 77100 0 00003	1916		ARS	3 DEFINING A SUB BY A DO OR	F2519160
	05402	−0 32000 0 05076	1917		ANA	L(7) A RELCON OR BOTH ARE	F2519170
	05403	0 60100 0 05210	1918		STO	RELC0 ISOLATED IN 3 SEPARATE	F2519180
	05404	0 50000 0 03653	1919		CLA	TAG4 WORDS, DEFDQ, RELCO, AND	F2519190
	05405	−0 32000 0 05076	1920		ANA	L(7) ORDEDO.	F2519200
	05406	0 60100 0 05253	1921		STO	DEFDO	F2519210
	05407	−0 50100 0 05210	1922		ORA	RELC0	F2519220
	05410	0 60100 0 05252	1923		STO	OREDO	F2519230
	05411	0 50000 0 05254	1924		CLA	N1SBX IF CONSTANT LOAD,	F2519240
	05412	0 10000 0 05567	1925		TZE	AC100+2 TRA AC100+2.	F2519250
	05413	0 50000 0 05127	1926		CLA	L(2) 1F VARIABLE LOAD, FILL	F2519260
	05414	0 07400 4 07137	1927		TSX	BITP,4 OR0 TABLE.	F2519270
	05415	0 02000 0 05417	1928		TRA	AC040 S1 NOT DEFINED.	F2519280
	05416	0 60100 0 07567	1929		STO	OR000+1 S1 DEFINED. STO SYMBOL IN OR0+1.	F2519290
	05417	0 50000 0 05126	1930	AC040	CLA	L(1) REPEAT FOR	F2519300
	05420	0 07400 4 07137	1931		TSX	BITP,4 S2.	F2519310
	05421	0 02000 0 05426	1932		TRA	AC046 S2 NOT DEFINED.	F2519320
	05422	0 60100 0 07572	1933		STO	OR000+4 S2 DEFINED. PUT SUBSCRIPT	F2519330
	05423	0 50000 0 03644	1934		CLA	WRKSC+6 SYMBOL IN OR0+4 AND	F2519340
	05424	0 07400 4 04601	1935		TSX	FIXCON,4 D1 SYMBOL	F2519350
	05425	0 60100 0 07575	1936		STO	OR000+7 IN OR0+7.	F2519360
	05426	0 50000 0 05133	1937	AC046	CLA	L(0) REPEAT FOR	F2519370
	05427	0 07400 4 07137	1938		TSX	BITP,4	F2519380
	05430	0 02000 0 05443	1939		TRA	AC048 S3 NOT DEFINED.	F2519390
	05431	0 60100 0 07613	1940		STO	OR000+21 S3 DEFINED. PUT SUBSCRIPT	F2519400
	05432	0 56000 0 03644	1941		LDQ	WRKSC+6 SYMBOL IN OR0+21	F2519410
	05433	0 20000 0 03645	1942		MPY	WRKSC+7 AND	F2519420
	05434	0 76700 0 00021	1943		ALS	17 PUT	F2519430
	05435	0 07400 4 04601	1944		TSX	FIXCON,4 D1D2 IN	F2519440
	05436	0 60100 0 07616	1945		STO	OR000+24 OR0+24.	F2519450
	05437	0 50000 0 03644	1946		CLA	WRKSC+6	F2519460
	05440	0 07400 4 04601	1947		TSX	FIXCON,4 OBTAIN SYMBOL FOR D1	F2519470
	05441	0 60100 0 07575	1948		STO	OR000+7 AND STORE IN OR0+7,	F2519480
	05442	0 76000 0 00140	1949		PSE	96 TURN OFF SENSE LIGHTS.	F2519490
	05443	0 07400 4 07172	1950	AC048	TSX	COSE,4 TEST COEFFS GREATER THAN 1.	F2519500
	05444	0 50000 0 05152	1951		CLA	0PMSK	F2519510
	05445	−0 32000 0 03653	1952		ANA	TAG4 COEFS, 011 RELCONS, 100 CUPE.	F2519520
	05446	−0 10000 0 05472	1953		TNZ	AC049 SOME OF ABOVE EXIST.	F2519530
M	05447	−0 53400 1 03650	1954		LXD	TAG21,1 NONE OF ABOVE EXIST,	F2519540
	05450	−3 00000 1 05452	1955		TXL	AC048+7,1,0 IF S2 DEF BY DO,	F2519550
	05451	−0 50000 1 01100	1956		CAL	DOTAGZ+2,1 ISOLATE N1.	F2519560
M	05452	−0 53400 1 03651	1957		LXD	TAG22,1 IF S3 DEF BY DO,	F2519570
	05453	−3 00000 1 05455	1958		TXL	AC048+10,1,0 OR N1S OF S2 AND S3.	F2519580
	05454	−0 50100 1 01100	1959		ORA	DOTAGZ+2,1 IF EITHER N1 IS GREATER	F2519590
	05455	0 40200 0 05126	1960		SUB	L(1) THAN 1, RETURN.	F2519600
	05456	0 10000 0 05460	1961		TZE	AC048I IS S1 IS	F2519610
	05457	0 12000 0 05472	1962		TPL	AC049 DEFINED BY A DO,	F2519620
	05460	−0 53400 1 03647	1963	AC048I	LXD	TAG2,1 IS/LATE N1.	F2519630
	05461	−3 00000 1 05464	1964		TXL	AC048I+4,1,0 IF NOT ISOLATE	F2519640
	05462	0 50000 1 01100	1965		CLA	DOTAGZ+2,1 S1 (BCD).	F2519650
	05463	0 02000 0 05465	1966		TRA	AC048I+5	F2519660
	05464	0 50000 0 03637	1967		CLA	WRKSC+1	F2519670
	05465	0 60100 0 05200	1968		STO	CIL02 STO S1 OR N1 SYMBOL.	F2519680
	05466	0 07400 4 07131	1969		TSX	CIL03I,4 FILL OUT	F2519690
	05467	0 50000 0 05051	1970		CLA	L(LXD) COMPILED INSTRUCTION	F2519700
	05470	0 60100 0 05177	1971		STO	CIL01 WORDS AND CONTINUE	F2519710
	05471	0 02000 0 05564	1972		TRA	AC100−1 T0 INIT PORTION,	F2519720
	05472	0 53400 1 05127	1973	AC049	LXA	L(2),1	F2519730
	05473	0 50000 0 05252	1974		CLA	OREDO IS LEFT SUB A RELCON,	F2519740
	05474	−0 32000 0 05130	1975		ANA	L(4) DORC, OR DOSUB.	F2519750
	05475	0 10000 0 05503	1976		TZE	AC049A NO, COMPILE CLA, SUB.	F2519760
	05476	−0 53400 2 03647	1977		LXD	TAG2,2 YES, IS IT A DOSUB.	F2519770
	05477	−3 00000 2 05505	1978		TXL	AC049B,2,0 NO.	F2519780
	05500	0 50000 2 01100	1979		CLA	DOTAGZ+2,2 YES, IS N1(S1)=1.	F2519790
	05501	0 40200 0 05126	1980		SUB	L(1)	F2519800
	05502	−0 10000 0 05505	1981		TNZ	AC049B NO.	F2519810
	05503	0 50000 0 07350	1982	AC049A	CLA	KLX01	F2519820
	05504	0 07400 4 07271	1983		TSX	LXC,4 COMPILE CLA, SUB.	F2519830
	05505	0 50000 0 05252	1984	AC049B	CLA	OREDO	F2519840
	05506	0 77100 0 00002	1985		ARS	2 DEFINITION.	F2519850
	05507	0 76000 0 00001	1986		LBT	OF S1.	F2519860
	05510	0 02000 0 05523	1987		TRA	AC064 S1 IS NOT DEF., TAKE S2.	F2519870
	05511	0 53400 1 05131	1988		LXA	L(3),1 S1 DEFINED, GO TO	F2519880
	05512	0 07400 4 04670	1989		TSX	0P2,4 OPTIMIZING ROUTINE.	F2519890
	05513	0 53400 1 05127	1990		LXA	L(2),1 AT LEAST 4 COMP INST.	F2519900
	05514	−0 76000 0 00141	1991		MSE	97 TEST ON COEF	F2519910
	05515	0 02000 0 05517	1992		TRA	AC050 GREATER THAN 1,	F2519920
	05516	1 00002 1 05521	1993		TXI	AC050I,1,2	F2519930
	05517	0 50000 0 07353	1994	AC050	CLA	KLX02 L(LXI02)	F2519940
	05520	0 02000 0 05522	1995		TRA	AC050I+1	F2519950
	05521	0 50000 0 07352	1996	AC050I	CLA	KLX02I L(LXI03)	F2519960
	05522	0 07400 4 07271	1997		TSX	LXC,4 COMPILER.	F2519970
	05523	0 50000 0 05252	1998	AC064	CLA	OREDO	F2519980
	05524	0 77100 0 00001	1999		ARS	1 S2	F2519990
	05525	0 76000 0 00001	2000		LBT	DEFINED.	F2520000
	05526	0 02000 0 05540	2001		TRA	AC080 S2 NOT DEFINED. S3.	F2520010
	05527	0 53400 1 05127	2002		LXA	L(2),1 CALL OP2 ROUTINE	F2520020
	05530	0 07400 4 04670	2003		TSX	0P2,4 TO OPTIMIZE.	F2520030
	05531	0 53400 1 05106	2004		LXA	L(6),1 COUNTER FOR COMPILING	F2520040
	05532	−0 76000 0 00142	2005		MSE	98 IS COEF GREATER THAN 1,	F2520050
	05533	0 02000 0 05536	2006		TRA	AC068 NO	F2520060
	05534	0 50000 0 07354	2007		CLA	KLX03 YES.	F2520070
	05535	1 00002 1 05537	2008		TXI	AC068+1,1,2 INCREMENT COMPILING COUNTER.	F2520080
	05536	0 50000 0 07356	2009	AC068	CLA	KLX03I	F2520090
	05537	0 07400 4 07271	2010		TSX	LXC,4 COMPILE S2 LOAD VALUE.	F2520100
	05540	0 50000 0 05252	2011	AC080	CLA	OREDO	F2520110
	05541	0 76000 0 00001	2012		LBT		F2520120
	05542	0 02000 0 05554	2013		TRA	AC096 S3 NOT DEFINED, EXIT.	F2520130
	05543	0 53400 1 05126	2014		LXA	L(1),1 CALL OP2 ROUTINE	F2520140
	05544	0 07400 4 04670	2015		TSX	0P2,4 FOR OPTIMIZATION	F2520150
	05545	0 53400 1 05106	2016		LXA	L(6),1 COMPILING COUNTER.	F2520160
	05546	−0 76000 0 00143	2017		MSE	99 TEST FOR COEF GREATER THAN 1.	F2520170
	05547	0 02000 0 05552	2018		TRA	AC084 NONE.	F2520180
	05550	0 50000 0 07355	2019		CLA	KLX05 C3 GREATER THAN 1, COMPILE	F2520190
	05551	1 00002 1 05553	2020		TXI	AC084+1,1,2 KLX05 BLOCK.	F2520200
	05552	0 50000 0 07357	2021	AC084	CLA	KLX05I C3=1, COMPILE KLX05I	F2520210
	05553	0 07400 4 07271	2022		TSX	LXC,4 BLOCK.	F2520220
	05554	0 07400 4 07131	2023	AC096	TSX	CIL03I,4 COMPILE	F2520230
	05555	0 50000 0 05051	2024		CLA	L(LXD) LXD.	F2520240
	05556	0 60100 0 05177	2025		STO	CIL01	F2520250
	05557	0 50000 0 07620	2026		CLA	OR000+26 ERASABLE OBJECT TIME SYMBOL.	F2520260
	05560	0 73400 1 00000	2027		PAX	0,1	F2520270
	05561	−0 32000 0 05104	2028		ANA	6ONES	F2520280
	05562	−0 63400 1 05201	2029		SXD	CIL03,1	F2520290
	05563	0 60100 0 05200	2030		STO	CIL02	F2520300
	05564	0 07400 4 04345	2031		TSX	CIT,4 PUT IN BUFFER.	F2520310
	05565	0 50000 0 07620	2032	AC100	CLA	OR000+26	F2520320
	05566	0 60100 0 07621	2033		STO	OR000+27	F2520330
	05567	0 53400 1 05131	2034		LXA	L(3),1 PREPARE TO	F2520340
	05570	−0 63400 1 05207	2035	AC109	SXD	AX,1 CHECK FOR	F2520350
	05571	0 50000 1 03652	2036		CLA	TAG2+3,1 DUPES.	F2520360
	05572	−0 73400 2 00000	2037		PDX	0,2 SAVE INDEX OF S.	F2520370
	05573	−3 00000 2 05743	2038		TXL	AC160,2,0 POS. NOT M0D. BY DO.	F2520380
	05574	−2 00001 1 05601	2039	AC110	TNX	AC116,1,1	F2520390
	05575	0 34000 1 03652	2040		CAS	TAG2+3,1 SKIP DUPES	F2520400
	05576	0 02000 0 05574	2041		TRA	AC110 EXCEPT	F2520410
	05577	0 02000 0 05743	2042		TRA	AC160 RIGHTMOST.	F2520420
	05600	0 02000 0 05574	2043		TRA	AC110	F2520430
	05601	0 50000 2 01106	2044	AC116	CLA	DOTAGZ+8,2 ISOLATE	F2520440
	05602	−0 32000 0 05171	2045		ANA	6T017 NAME OF TEST	F2520450
	05603	0 60100 0 05204	2046		STO	TETTG FOR THIS DO	F2520460
	05604	0 50000 0 03652	2047		CLA	TAG3 AND	F2520470
	05605	−0 32000 0 05172	2048		ANA	24T035 COMPARE	F2520480
	05606	0 76700 0 00022	2049		ALS	18 WITH	F2520490
	05607	0 34000 0 05204	2050		CAS	TETTG CURRENT TAG.	F2520500
	05610	0 02000 0 05743	2051		TRA	AC160 NOT A TEST TAG.	F2520510
	05611	0 02000 0 05613	2052		TRA	AC120 THIS IS A TEST TAG.	F2520520
	05612	0 02000 0 05743	2053		TRA	AC160 NOT A TEST TAG.	F2520530
	05613	0 50000 2 01101	2054	AC120	CLA	DOTAGZ+3,2 THIS IS TEST TAG,	F2520540
	05614	−0 32000 0 05104	2055		ANA	6ONES 18 N2 CONSTANT.	F2520550
	05615	−0 10000 0 05622	2056		TNZ	AC128	F2520560
	05616	0 50000 2 01106	2057		CLA	DOTAGZ+8,2 IF RIGHT TEST HAS VARIABLE DECREMENT	F2520570
	05617	−0 32000 0 05154	2058		ANA	BIT20 GO TO AC138 +4	F2520580
	05620	0 10000 0 05627	2059		TZE	AC138 INSTEAD OF	F2520590
	05621	0 02000 0 05633	2060		TRA	AC138+4	F2520600
	05622	0 50000 2 01101	2061	AC128	CLA	DOTAGZ+3,2	F2520610
	05623	0 60100 0 05200	2062		STO	CIL02 PUT N2 WORD AS	F2520620
	05624	0 50000 0 05133	2063		CLA	L(0) SYMBOLIC ADDRESS AND	F2520630
	05625	0 60100 0 05201	2064		STO	CIL03 ZERO AS THE	F2520640
	05626	0 02000 0 05660	2065		TRA	AC140 RELATIVE ADDRESS.	F2520650
	05627	0 56000 2 01104	2066	AC138	LDQ	DOTAGZ+6,2 CONSTANT N2 CASE.	F2520660
	05630	−0 77300 0 00011	2067		RQL	9 IS TEST	F2520670
	05631	−0 76300 0 00014	2068		LGL	12 MODIFIED.	F2520680
	05632	0 10000 0 05743	2069		TZE	AC160 NO, TAKE NEXT SUB.	F2520690
	05633	0 50000 2 01101	2070		CLA	DOTAGZ+3,2 YES, ISOLATE N2.	F2520700
	05634	−0 53400 1 05207	2071		LXD	AX,1	F2520710
	05635	0 07400 4 04451	2072		TSX	CXIJ+2,4 IF POSITION IS	F2520720
	05636	−2 00001 1 05647	2073		TNX	AC139,1,1	F2520730
	05637	0 60100 0 05070	2074		STO	ESTORE	F2520740
	05640	0 50000 2 01106	2075		CLA	DOTAGZ+8,2 DOES TEST	F2520750
	05641	−0 32000 0 05154	2076		ANA	BIT20 HAVE VARIABLE DECREMENT.	F2520760
	05642	−0 10000 0 05646	2077		TNZ	AC139−1	F2520770
	05643	0 50000 0 05070	2078		CLA	ESTORE	F2520780
	05644	0 07400 4 04410	2079		TSX	TELC+2,4	F2520790
	05645	0 02000 0 05647	2080		TRA	AC139	F2520800
	05646	0 50000 0 05070	2081		CLA	ESTORE	F2520810
	05647	0 76700 0 00022	2082	AC139	ALS	18	F2520820
	05650	0 07400 4 04601	2083		TSX	FIXCON,4 ASSIGN SYMBOL FOR	F2520830
	05651	0 73400 1 00000	2084		PAX	0,1 LOAD PORTION	F2520840
	05652	−0 32000 0 05104	2085		ANA	6ONES AND COMPILE	F2520850
	05653	0 60100 0 05200	2086		STO	CIL02 CLAL(GN2 + LOAD PORT.)	F2520860
	05654	0 50000 0 05133	2087		CLA	L(0)	F2520870
	05655	0 60100 0 05201	2088		STO	CIL03	F2520880
	05656	−0 63400 1 05201	2089		SXD	CIL03,1	F2520890
	05657	0 02000 0 05665	2090		TRA	AC144	F2520900
	05660	0 50000 0 05126	2091	AC140	CLA	L(1)	F2520910
	05661	−0 53400 1 05207	2092		LXD	AX,1 COMPUTE G AND DETERMINE	F2520920
	05662	0 07400 4 04451	2093		TSX	CXIJ+2,4 IF GREATER THAN ONE,	F2520930
	05663	0 40200 0 05126	2094		SUB	L(1)	F2520940
	05664	−0 10000 0 05673	2095		TNZ	AC146	F2520950
	05665	0 50000 0 05053	2096	AC144	CLA	L(CLA) G = 1,	F2520960
	05666	0 60100 0 05177	2097		STO	CIL01 COMPILE	F2520970
	05667	0 50000 0 05133	2098		CLA	L(0) CLA N2, FOLLOWED	F2520980
	05670	0 60100 0 05176	2099		STO	CIL00 LATER BY STD.	F2520990
	05671	0 07400 4 04345	2100		TSX	CIT,4	F2521000
	05672	0 02000 0 05704	2101		TRA	AC150	F2521010
	05673	0 40000 0 05126	2102	AC146	ADD	L(1) G GREATER THAN 1,	F2521020
	05674	0 76700 0 00022	2103		ALS	18 COMPILE	F2521030
	05675	0 07400 4 04601	2104		TSX	FIXCON,4 LDQ, MPY, ALS.	F2521040
	05676	0 60100 0 07577	2105		STO	OR000+9	F2521050
	05677	0 50000 0 05200	2106		CLA	CIL02	F2521060
	05700	0 60100 0 07567	2107		STO	OR000+1	F2521070
	05701	0 50000 0 07352	2108		CLA	KLX02I	F2521080
	05702	0 53400 1 05131	2109		LXA	L(3),1	F2521090
	05703	0 07400 4 07271	2110		TSX	LXC,4	F2521100
	05704	−0 53400 1 05207	2111	AC150	LXD	AX,1	F2521110
	05705	0 50000 1 03652	2112		CLA	TAG3,1	F2521120
	05706	−0 73400 2 00000	2113		PDX	0,2	F2521130
	05707	0 50000 2 01106	2114		CLA	DOTAGZ+8,2	F2521140
	05710	−0 32000 0 05154	2115		ANA	BIT20	F2521150
	05711	−0 53400 2 05207	2116		LXD	AX,2	F2521160
	05712	0 10000 0 05733	2117		TZE	AC157	F2521170
	05713	−2 00001 2 05733	2118		TNX	AC157,2,1	F2521180
	05714	0 53400 1 05126	2119		LXA	L(1),1	F2521190
	05715	0 50000 0 07351	2120		CLA	KLX01I	F2521200
	05716	0 07400 4 07271	2121		TSX	LXC,4	F2521210
	05717	0 50000 0 05166	2122		CLA	INST13	F2521220
	05720	0 60100 0 05554	2123		STO	AC096	F2521230
	05721	0 07400 4 07172	2124		TSX	COSE,4	F2521240
	05722	−0 53400 2 05207	2125		LXD	AX,2	F2521250
	05723	−3 00002 2 05540	2126		TXL	AC080,2,2	F2521260
	05724	0 02000 0 05523	2127		TRA	AC064	F2521270
	05725	0 50000 0 05167	2128	AC155	CLA	INST14	F2521280
	05726	0 60100 0 05554	2129		STO	AC096	F2521290
	05727	−0 53400 2 05207	2130		LXD	AX,2	F2521300
	05730	−0 53400 4 05173	2131		LXD	BB0X,4	F2521310
	05731	1 00004 4 05732	2132		TXI	AC155+5,4,4	F2521320
	05732	−0 63400 4 05173	2133		SXD	BB0X,4	F2521330
	05733	0 07400 4 07211	2134	AC157	TSX	TESTL0,4	F2521340
	05734	0 50000 0 05255	2135		CLA	TETLOC IN TETL0.	F2521350
	05735	0 60100 0 05200	2136		STO	CIL02 COMPILE	F2521360
	05736	0 50000 0 05052	2137		CLA	L(STD) STD TETL0	F2521370
	05737	0 60100 0 05177	2138		STO	CIL01 AND RETURN TO	F2521380
T	05740	−0 63400 0 05176	2139		SXD	CIL00 AC160 TO	F2521390
T	05741	−0 63400 0 05201	2140		SXD	CIL03 CONSIDER NEXT	F2521400
	05742	0 07400 4 04345	2141		TSX	CIT,4 SUB OF TAG.	F2521410
	05743	−0 53400 1 05207	2142	AC160	LXD	AX,1	F2521420
	05744	2 00001 1 05570	2143		TIX	AC109,1,1 REDUCE POS. CTR.	F2521430
	05745	0 50000 0 03653	2144		CLA	TAG4 CHECK SUSBIT	F2521440
	05746	0 12000 0 05770	2145		TPL	AC165 FOR FORVAR.	F2521450
	05747	−0 53400 2 05230	2146		LXD	DOIND,2 FORVAR, IS IT	F2521460
	05750	0 50000 2 01103	2147		CLA	DOTAGZ+5,2 WITHIN THE CURRENT DO.	F2521470
	05751	−0 32000 0 05136	2148		ANA	BIT1	F2521480
	05752	0 10000 0 05770	2149		TZE	AC165 NO, AC165.	F2521490
	05753	0 50000 0 05133	2150		CLA	L(0) YES,	F2521500
	05754	0 60100 0 05200	2151		STO	CIL02 COMPILE	F2521510
	05755	0 07400 4 07131	2152		TSX	CIL03I,4 INSTRUCTIONS	F2521520
	05756	0 50000 0 05043	2153		CLA	L(PXD) TO	F2521530
	05757	0 60100 0 05177	2154		STO	CIL01 STORE	F2521540
	05760	0 07400 4 04345	2155		TSX	CIT,4 THE	F2521550
	05761	0 50000 2 01077	2156		CLA	DOTAGZ+1,2 VALUE	F2521560
	05762	0 60100 0 05200	2157		STO	CIL02 OF	F2521570
	05763	0 50000 0 05044	2158		CLA	L(STO) THE	F2521580
	05764	0 60100 0 05177	2159		STO	CIL01 SUBSCRIPT	F2521590
	05765	−0 75400 0 00000	2160		PXD	0,0 INTO	F2521600
	05766	0 60100 0 05201	2161		STO	CIL03 ITS	F2521610
	05767	0 07400 4 04345	2162		TSX	CIT,4 SYMBOL.	F2521620
	05770	0 50000 0 05237	2163	AC165	CLA	XTG START SCANNING	F2521630
	05771	0 77100 0 00002	2164		ARS	2 TGA FOR LOCATIONS	F2521640
	05772	−0 73400 1 00000	2165		PDX	0,1 INDICATING VARIABLE	F2521650
	05773	−0 50000 1 02646	2166		CAL	MXTGA,1 DECREMENTS OF TXI	F2521660
	05774	0 60200 0 05211	2167		SLW	WRKTGA AND TIX INSTRUCTIONS-	F2521670
	05775	0 10000 0 06237	2168		TZE	AC240 NONE, AC240.	F2521680
	05776	0 53400 1 05131	2169		LXA	L(3),1 YES, ISOLATE	F2521690
	05777	−0 63400 1 05207	2170	AC166	SXD	AX,1 APP. TGTG AND	F2521700
	06000	−0 50000 0 05211	2171		CAL	WRKTGA CHECK FOR	F2521710
	06001	0 77100 0 00022	2172		ARS	18 LOCATIONS	F2521720
	06002	−2 00001 1 06005	2173	AC168	TNX	AC170,1,1 OF TXI	F2521730
	06003	0 77100 0 00006	2174		ARS	6 INSTRUCTIONS	F2521740
	06004	0 02000 0 06002	2175		TRA	AC168 WITH VARIABLE	F2521750
	06005	−0 32000 0 05170	2176	AC170	ANA	6ONESR DECREMENTS.	F2521760
	06006	0 10000 0 06060	2177		TZE	AC190 NONE, AC190.	F2521770
	06007	0 76700 0 00003	2178		ALS	3 STORE	F2521780
	06010	0 60100 0 05255	2179		STO	TETLOC LOC. OF TXI.	F2521790
	06011	0 53400 4 05133	2180		LXA	L(0),4	F2521800
	06012	−0 53400 1 05207	2181		LXD	AX,1 IS	F2521810
	06013	0 50000 0 03653	2182		CLA	TAG4 POSITION	F2521820
	06014	−3 00002 1 06035	2183		TXL	AC173,1,2	F2521830
	06015	−0 32000 0 05140	2184		ANA	BIT8 POSITION IS S1, IS	F2521840
	06016	−0 10000 0 06021	2185	AC171	TNZ	AC172 THIS BLOCK D SPECIAL.	F2521850
	06017	0 50000 0 03653	2186		CLA	TAG4 NO, BLOCK A.	F2521860
	06020	0 02000 0 06042	2187		TRA	AC176 TSX AOR0	F2521870
	06021	0 56000 0 03640	2188	AC172	LDQ	WRKSC+2 TES, SET UP	F2521880
	06022	0 20000 0 03644	2189		MPY	WRKSC+6 CID1 AS G	F2521890
	06023	0 76700 0 00021	2190		ALS	17 FOR XX POSITION.	F2521900
	06024	0 60100 0 07612	2191		STO	OR000+20 C1 IS G FOR	F2521910
	06025	0 50000 0 03636	2192		CLA	WRKSC N3X POSITION.	F2521920
	06026	0 60100 0 07611	2193		STO	OR000+19 PREPARE TO	F2521930
	06027	0 53400 1 05131	2194		LXA	L(3),1 CALL PC ROUTINE	F2521940
	06030	−0 63400 1 05212	2195		SXD	N3X,1 TO COMPILE	F2521950
	06031	0 53400 1 05127	2196		LXA	L(2),1 INITIALIZATION	F2521960
	06032	−0 63400 1 05213	2197		SXD	XX,1 INSTRUCTIONS	F2521970
	06033	0 07400 4 06701	2198		TSX	PC,4 FOR BLOCK D SPECIAL.	F2521980
	06034	0 02000 0 06060	2199		TRA	AC190	F2521990
	06035	−3 00001 1 06037	2200	AC173	TXL	AC174,1,1 IS POSITION S3)	F2522000
	06036	0 77100 0 00003	2201		ARS	3 ISOLATE BLKNUM	F2522010
	06037	0 77100 0 00035	2202	AC174	ARS	29 FROM TAG4 AND	F2522020
	06040	−0 32000 0 05076	2203		ANA	L(7) CALLPROPER ROUTINE	F2522030
	06041	0 73400 4 00000	2204		PAX	0,4 TO COMPILE INITIALIZATION	F2522040
	06042	3 00000 4 06045	2205	AC176	TXH	AC176+3,4,0 INSTRUCTIONS FOR THAT BLOCK.	F2522050
	06043	0 07400 4 06324	2206		TSX	AOR0,4 BLOCK A	F2522060
	06044	0 02000 0 06060	2207		TRA	AC190	F2522070
	06045	3 00001 4 06050	2208		TXH	AC178,4,1	F2522080
	06046	0 07400 4 06435	2209		TSX	BOR0,4 BLOCK B	F2522090
	06047	0 02000 0 06060	2210		TRA	AC190	F2522100
	06050	3 00002 4 06053	2211	AC178	TXH	AC182,4,2	F2522110
	06051	0 07400 4 06453	2212		TSX	COR0,4 BLOCK C	F2522120
	06052	0 02000 0 06060	2213		TRA	AC190	F2522130
	06053	3 00003 4 06056	2214	AC182	TXH	AC186,4,3	F2522140
	06054	0 07400 4 06502	2215		TSX	DORO,4 BLOCK D.	F2522150
	06055	0 02000 0 06060	2216		TRA	AC190	F2522160
	06056	0 07400 4 06541	2217	AC186	TSX	EOR0,4 BLOCK E.	F2522170
	06057	0 02000 0 06060	2218		TRA	AC190	F2522180
	06060	−0 53400 1 05207	2219	AC190	LXD	AX,1 IF ALL SUBS HAVE NOT BEEN	F2522190
	06061	2 00001 1 05777	2220		TIX	AC166,1,1 CONSIDERED FOR TXIS, TAKE NEXT RT.	F2522200
	06062	0 53400 1 05131	2221		LXA	L(3),1 THIS REPRESENTS END OF	F2522210
	06063	−0 63400 1 05207	2222	AC200	SXD	AX,1 TXI PHASE, START TIX.	F2522220
	06064	0 50000 0 05211	2223		CLA	WRKTGA ISOLATE APP. TGTG ENTRY.	F2522230
	06065	−2 00001 1 06070	2224	AC210	TNX	AC214+1,1,1	F2522240
	06066	0 77100 0 00006	2225		ARS	6	F2522250
	06067	0 02000 0 06065	2226	AC214	TRA	AC210	F2522260
	06070	−0 32000 0 05170	2227		ANA	6ONESR	F2522270
	06071	0 10000 0 06235	2228		TZE	AC236 IS THERE A TIX VAR. DEC. LOC.	F2522280
	06072	0 76700 0 00003	2229		ALS	3 YES, STORE TIX REL, LOC.	F2522290
	06073	0 60100 0 05255	2230		STO	TETLOC IN TETLOC WORD.	F2522300
	06074	−0 53400 1 05207	2231		LXD	AX,1	F2522310
	06075	0 50000 1 03652	2232		CLA	TAG2+3,1 ISOLATE	F2522320
	06076	−0 73400 2 00000	2233		PDX	0,2 N3 FOR	F2522330
	06077	0 50000 2 01102	2234	ACI21	CLA	DOTAGZ+4,2 THIS DO.	F2522340
	06100	0 40200 0 05126	2235		SUB	L(1) DOES N3 = 1.	F2522350
	06101	0 10000 0 06107	2236		TZE	AC220+2	F2522360
	06102	0 07400 4 07237	2237		TSX	XOR0,4 NO, PLACE N SYMBOLS	F2522370
	06103	0 53400 1 05106	2238		LXA	L(6),1 IN APPROP. OR0 LOCS	F2522380
	06104	−0 53400 2 05207	2239		LXD	AX,2 AND COMPUTE	F2522390
	06105	0 50000 2 07367	2240	AC220	CLA	KTX00+3,2 X QUANTITY	F2522400
	06106	0 07400 4 07271	2241		TSX	LXC,4 ON O.C. LEVEL.	F2522410
	06107	−0 53400 1 05207	2242		LXD	AX,1	F2522420
	06110	0 50000 0 05160	2243		CLA	INST4 TRA AC224. MODIFY ADR0	F2522430
	06111	0 60100 0 06424	2244		STO	AOR030 ROUTINE T0 COMPUTE G.	F2522440
	06112	0 50000 0 05161	2245		CLA	INST5 TRAAC228.	F2522450
	06113	0 60100 0 06430	2246		STO	AOR040	F2522460
	06114	0 07400 4 06324	2247		TSX	AOR0,4 COMPUTE G, PUT IN OR0+19.	F2522470
	06115	0 02000 0 06172	2248	AC224	TRA	AC230 G1 = 1.	F2522480
	06116	−0 53400 1 05207	2249	AC228	LXD	AX,1 G1 NOT = 1,	F2522490
	06117	0 50000 1 03652	2250		CLA	TAG2+3,1 COMPILE INSTRUCTIONS	F2522500
	06120	−0 73400 2 00000	2251		PDX	0,2 TO COMPUTE AND INIT1ALIZE	F2522510
	06121	0 50000 2 01102	2252		CLA	DOTAGZ+4,2 TIX DECREMENT.	F2522520
	06122	0 40200 0 05126	2253		SUB	L(1)	F2522530
	06123	−0 10000 0 06166	2254		TNZ	AC228I N3 NOT = 1.	F2522540
	06124	0 50000 2 01100	2255		CLA	DOTAGZ+2,2 N3 = 1, DOES	F2522550
	06125	0 40200 0 05126	2256		SUB	L(1) N1 = 1.	F2522560
	06126	−0 10000 0 06135	2257		TNZ	ACI22 N1 NOT = 1.	F2522570
	06127	0 50000 2 01101	2258		CLA	DOTAGZ+3,2 N3, N1=1.	F2522580
	06130	0 60100 0 07566	2259		STO	OR000 G GREATER THAN 1,	F2522590
	06131	0 50000 0 07360	2260		CLA	K1AOR0	F2522600
	06132	0 53400 1 05130	2261		LXA	L(4),1	F2522610
	06133	0 07400 4 07271	2262		TSX	LXC,4	F2522620
	06134	0 02000 0 06231	2263		TRA	AC234 EXIT TIX INITIAL1ZATION.	F2522630
	06135	0 07400 4 04741	2264	ACI22	TSX	OP3,4 N3= 1, N1 NOT = 1,	F2522640
	06136	0 50000 0 05054	2265		CLA	L(ADD) COMPILE	F2522650
	06137	0 60100 0 05177	2266		STO	CIL01 TIX	F2522660
	06140	0 50000 0 07603	2267		CLA	OR000+13 INITIALIZATION	F2522670
	06141	0 73400 1 00000	2268		PAX	0,1 GROUP	F2522680
	06142	−0 32000 0 05104	2269		ANA	6ONES FOR	F2522690
	06143	0 60100 0 05200	2270		STO	CIL02 THIS	F2522700
	06144	−0 63400 1 05201	2271		SXD	CIL03,1 CASE.	F2522710
	06145	0 07400 4 04345	2272		TSX	CIT,4	F2522720
	06146	0 50000 0 05044	2273		CLA	L(STO)	F2522730
	06147	0 60100 0 05177	2274		STO	CIL01	F2522740
	06150	0 50000 0 05133	2275		CLA	L(0)	F2522750
	06151	0 60100 0 05201	2276		STO	CIL03	F2522760
	06152	0 50000 0 07620	2277		CLA	OR000+26 ERASEABLE STORAGE	F2522770
	06153	0 73400 4 00000	2278		PAX	0,4 SYMBOL FOR ADDRESS.	F2522780
	06154	−0 32000 0 05104	2279		ANA	6ONES	F2522790
	06155	0 60100 0 05200	2280		STO	CIL02	F2522800
	06156	−0 63400 4 05201	2281		SXD	CIL03,4	F2522810
	06157	0 07400 4 04345	2282		TSX	CIT,4	F2522820
	06160	0 50000 0 07620	2283		CLA	OR000+26 PLACE ERASEABLE SYMBOL	F2522830
	06161	0 60100 0 07566	2284		STO	OR000 IN OR000 FOR LXC BLOCK.	F2522840
	06162	0 53400 1 05130	2285		LXA	L(4),1	F2522850
	06163	0 50000 0 07360	2286		CLA	K1AOR0	F2522860
	06164	0 07400 4 07271	2287		TSX	LXC,4	F2522870
	06165	0 02000 0 06231	2288		TRA	AC234 EXIT TIX INITIALIZATION,	F2522880
	06166	0 53400 1 05130	2289	AC228I	LXA	L(4),1	F2522890
	06167	0 50000 0 07371	2290		CLA	LTX040 COMPILE TIX INITIAL1ZATION	F2522900
	06170	0 07400 4 07271	2291		TSX	LXC,4 GROUP FOR THIS CASE.	F2522910
	06171	0 02000 0 06231	2292		TRA	AC234 EXIT TIX INITIALIZATION.	F2522920
	06172	−0 53400 1 05207	2293	AC230	LXD	AX,1 G=1,	F2522930
	06173	0 50000 1 03652	2294		CLA	TAG2+3,1 DOES	F2522940
	06174	−0 73400 2 00000	2295		PDX	0,2 N3 = 1.	F2522950
	06175	0 50000 2 01102	2296		CLA	DOTAGZ+4,2	F2522960
	06176	0 40200 0 05126	2297		SUB	L(1)	F2522970
	06177	−0 10000 0 06226	2298		TNZ	AC230I NO.	F2522980
	06200	0 50000 2 01100	2299		CLA	DOTAGZ+2,2 YES, DOES N1= 1.	F2522990
	06201	0 40200 0 05126	2300		SUB	L(1)	F252300D
	06202	−0 10000 0 06211	2301		TNZ	ACI23 NO.	F2523010
	06203	0 50000 2 01101	2302		CLA	DOTAGZ+3,2 G,N3,N1 = 1,	F2523020
	06204	0 60100 0 07566	2303		STO	OR000 COMPILE TIX	F2523030
	06205	0 50000 0 07362	2304		CLA	K2AOR0 INITIALIZATION	F2523040
	06206	0 53400 1 05127	2305		LXA	L(2),1 FOR THIS	F2523050
	06207	0 07400 4 07271	2306		TSX	LXC,4 CASE.	F2523060
	06210	0 02000 0 06231	2307		TRA	AC234 EXIT TIX INITIALIZATION.	F2523070
	06211	0 07400 4 04741	2308	ACI23	TSX	OP3,4 N3=1, N1 NOT = 1.	F2523080
	06212	0 50000 0 05054	2309		CLA	L(ADD) COMPILE	F2523090
	06213	0 60100 0 05177	2310		STO	CIL01 TIX	F2523100
	06214	0 50000 0 07603	2311		CLA	OR000+13 INITIALIZATION	F2523110
	06215	0 73400 1 00000	2312		PAX	0,1 FOR	F2523120
	06216	−0 32000 0 05104	2313		ANA	6ONES THIS	F2523130
	06217	0 60100 0 05200	2314		STO	CIL02 CASE.	F2523140
	06220	−0 63400 1 05201	2315		SXD	CIL03,1	F2523150
	06221	0 07400 4 04345	2316		TSX	CIT,4	F2523160
	06222	0 50000 0 07363	2317		CLA	K3AOR0	F2523170
	06223	0 53400 1 05126	2318		LXA	L(1),1	F2523180
	06224	0 07400 4 07271	2319		TSX	LXC,4	F2523190
	06225	0 02000 0 06231	2320		TRA	AC234 EXIT TIX INITIALIZATION.	F2523200
	06226	0 53400 1 05127	2321	AC230I	LXA	L(2),1 G =1, N3 NOT = 1.	F2523210
	06227	0 50000 0 07372	2322		CLA	LTX042	F2523220
	06230	0 07400 4 07271	2323		TSX	LXC,4 THIS CASE.	F2523230
	06231	0 50000 0 05157	2324	AC234	CLA	INST3 RESET MODIFIED AOR0.	F2523240
	06232	0 60100 0 06424	2325		STO	AOR030 LXC L(4),1.	F2523250
	06233	0 50000 0 05156	2326		CLA	INST2	F2523260
	06234	0 60100 0 06430	2327		STO	AOR040 LXD L(2),1.	F2523270
	06235	−0 53400 1 05207	2328	AC236	LXD	AX,1	F2523280
	06236	2 00001 1 06063	2329		TIX	AC200,1,1	F2523290
	06237	0 02000 0 05315	2330	AC240	TRA	AC010	F2523300
	06240	0 53400 2 05125	2331		LXA	LADMX,2 START ADTG COMPILING.	F2523310
	06241	1 00004 2 06242	2332		TXI	AC240+3,2,4	F2523320
	06242	−0 63400 2 05237	2333		SXD	XTG,2	F2523330
	06243	0 50000 0 05162	2334		CLA	INST8 L(TRA AC244).	F2523340
	06244	0 62100 0 06237	2335		STA	AC240 MODIFY RETURN FOR ADTG ENTRY.	F2523350
	06245	0 62100 0 05323	2336		STA	AC016	F2523360
	06246	0 50000 0 05163	2337		CLA	INST10	F2523370
	06247	0 62100 0 05773	2338		STA	AC165+3	F2523380
	06250	0 07400 4 04516	2339	AC244	TSX	ADTGSE,4 FIND VALID ADTG ENTRY.	F2523390
	06251	0 02000 0 06253	2340		TRA	AC250 END OF TABLE , GET NEXT DO.	F2523400
D	06252	−3 00000 0 05320	2341	AC248	TXL	AC014,0 VALID ENTRY, CONTINUE AC CYCLE.	F2523410
	06253	0 50000 0 05164	2342	AC250	CLA	INST11 REINITIALIZE	F2523420
	06254	0 62100 0 06237	2343		STA	AC240 INSTRUCTIONS	F2523430
	06255	0 62100 0 05323	2344		STA	AC016 MODIFIED	F2523440
	06256	0 50000 0 05165	2345		CLA	INST12 FOR DMTAG	F2523450
	06257	0 62100 0 05773	2346		STA	AC165+3 CYCLE,	F2523460
	06260	0 50000 0 05222	2347		CLA	LOCIND COMPILE AT LEAST	F2523470
	06261	0 10000 0 06272	2348		TZE	AC260 A BSS INST SO	F2523480
	06262	0 50000 0 05224	2349		CLA	A THAT TRA INST	F2523490
	06263	0 60100 0 05176	2350		STO	CIL00 WILL FUNCTION	F2523500
	06264	0 50000 0 05133	2351		CLA	L(0) PROPERLY.	F2523510
	06265	0 60100 0 05200	2352		STO	CIL02	F2523520
	06266	0 60100 0 05201	2353		STO	CIL03	F2523530
	06267	0 50000 0 05056	2354		CLA	L(BSS)	F2523540
	06270	0 60100 0 05177	2355		STO	CIL01	F2523550
	06271	0 07400 4 04345	2356		TSX	CIT,4	F2523560
	06272	−0 53400 4 06252	2357	AC260	LXD	AC248,4 END OF	F2523570
	06273	0 02000 4 00001	2358		TRA	1,4 ALPAHA CYCLE.	F2523580
			2359			*************************************************************	F2523590
			2360			CDOR0 TAKES COEF. AND DIM. AND FILLS OUT OR0.	F2523600
	06274	−0 63400 4 06277	2361	CDOR0	SXD	CDOR01,4	F2523610
	06275	−0 53400 2 05207	2362		LXD	AX,2	F2523620
	06276	−0 76000 0 00144	2363		MSE	100	F2523630
D	06277	3 00000 0 06300	2364	CDOR01	TXH	CDOR01+1,0 WHICH SUB IS IT.	F2523640
	06300	−3 00002 2 06307	2365		TXL	CDOR03,2,2 S2 OR S3, TRA.	F2523650
	06301	0 50000 0 03636	2366		CLA	WRKSC S1,	F2523660
	06302	0 40200 0 05061	2367		SUB	L1DEC IS C1 GREATER THAN1.	F2523670
	06303	0 10000 4 00001	2368		TZE	1,4 C1=1, RETURN.	F2523680
	06304	0 76000 0 00144	2369		PSE	100 C1 NOT = 1, TURN 0N	F2523690
	06305	0 50000 0 03636	2370		CLA	WRKSC SENSE LIGHT , ISOLATE C1.	F2523700
	06306	0 02000 0 06317	2371		TRA	CDOR07+1	F2523710
	06307	0 56000 0 03644	2372	CDOR03	LDQ	WRKSC+6 ISOLATE D1.	F2523720
	06310	−3 00001 2 06313	2373		TXL	CDOR05,2,1 WHICH SUBLISKIT.	F2523730
	06311	0 20000 0 03640	2374		MPY	WRKSC+2 S2, FORM C2D1.	F2523740
	06312	0 02000 0 06316	2375		TRA	CDOR07	F2523750
	06313	0 20000 0 03642	2376	CDOR05	MPY	WRKSC+4 S3, FORM	F2523760
	06314	0 76500 0 00022	2377		LRS	18 C3D1D2.	F2523770
	06315	0 20000 0 03645	2378		MPY	WRKSC+7	F2523780
	06316	0 76700 0 00021	2379	CDOR07	ALS	17 ASSIGN SYMBOL	F2523790
	06317	0 07400 4 04601	2380		TSX	FIXCON,4 FOR G AND PUT	F2523800
	06320	0 60100 0 07611	2381		STO	OR000+19 IN OR0 + 19.	F2523810
	06321	−0 53400 4 06277	2382		LXD	CDOR01,4 RESTORE LINKAGE,	F2523820
	06322	−0 53400 2 05207	2383		LXD	AX,2 PUT AX POSITION IN	F2523830
	06323	0 02000 4 00001	2384		TRA	1,4 I.R. B AND RETURN.	F2523840
			2385			*************************************************************	F2523850
			2386			AOR0, BOR0, COR0, DOR0, AND EOR0 ARE CALLED T0 MAKE APPROPRIA	F2523860
			2387			COMPILING TABLE (OR0) ENTRIES AND TO CALLL ROUTINES TO MAKE	F2523870
			2388			COMPUTATIONS AND COMPILE INSTRUCTIQNS TO INTIALIZE VARIABLE D	F2523880
			2389			DECREMENTS FOR BLOCKS A, B, C, D, AND E RESPECTIVELY.	F2523890
	06324	−0 63400 4 06346	2390	AOR0	SXD	AOR05,4	F2523900
	06325	0 50000 1 03652	2391		CLA	TAG2+3,1 LOCATION IS	F2523910
	06326	−0 73400 2 00000	2392		PDX	0,2 SPECIFIED IN OR0 +14	F2523920
	06327	0 50000 2 01076	2393		CLA	DOTAGZ,2 BY COMBINING TETLOC	F2523930
	06330	−0 32000 0 05141	2394		ANA	ADMSK WITH PROPER BETA.	F2523940
	06331	0 76700 0 00022	2395		ALS	18	F2523950
	06332	−0 50100 0 05255	2396		ORA	TETLOC	F2523960
	06333	0 60100 0 07604	2397		STO	OR000+14	F2523970
	06334	0 50000 2 01102	2398		CLA	DOTAGZ+4,2	F2523980
	06335	0 60100 0 07566	2399		STO	OR000	F2523990
	06336	−0 53400 1 05207	2400		LXD	AX,1	F2524000
	06337	−3 00002 1 06347	2401		TXL	AOR010,1,2 S2 OR S3.	F2524010
	06340	0 50000 0 03636	2402		CLA	WRKSC S1 , IS	F2524020
	06341	0 40200 0 05061	2403		SUB	L1DEC C1=1.	F2524030
	06342	0 10000 0 06424	2404		TZE	AOR030 YES	F2524040
	06343	0 40000 0 05061	2405		ADD	L1DEC NO, ASSIGN	F2524050
	06344	0 07400 4 04601	2406		TSX	FIXCON,4 SYMBOL FOR C1.	F2524060
	06345	0 60100 0 07611	2407		STO	OR000+19	F2524070
D	06346	−3 00000 0 06430	2408	AOR05	TXL	AOR040,0	F2524080
	06347	−3 00001 1 06367	2409	AOR010	TXL	AOR020,1,1 IS SUB S2.	F2524090
	06350	0 56000 0 03640	2410		LDQ	WRKSC+2 YES, FOR C2D1.	F2524100
	06351	0 20000 0 03644	2411		MPY	WRKSC+6 IF S2 IS A	F2524110
	06352	0 76700 0 00021	2412		ALS	17 DUPE, ADD C1.	F2524120
	06353	0 60100 0 05245	2413		STO	ERAOR0	F2524130
	06354	0 56000 0 03653	2414		LDQ	TAG4	F2524140
	06355	0 76300 0 00031	2415		LLS	25	F2524150
	06356	0 76000 0 00001	2416		LBT		F1I24160
	06357	0 02000 0 06363	2417		TRA	AOR014 NO DUPES.	F2524170
	06360	0 50000 0 03636	2418		CLA	WRKSC	F2524180
	06361	0 40000 0 05245	2419		ADD	ERAOR0	F2524190
	06362	0 60100 0 05245	2420		STO	ERAOR0	F2524200
	06363	0 50000 0 05245	2421	AOR014	CLA	ERAOR0 CONTAINS C2D1, ETC.	F2524210
	06364	0 07400 4 04601	2422		TSX	FIXCON,4 ASSIGN SYMBOL FOR	F2524220
	06365	0 60100 0 07611	2423		STO	OR000+19 G AND PUT IN OR0+19	F2524230
	06366	0 02000 0 06430	2424		TRA	AOR040	F2524240
	06367	0 56000 0 03642	2425	AOR020	LDQ	WRKSC+4 S3, FORM	F2524250
	06370	0 20000 0 03644	2426		MPY	WRKSC+6 C3D1D2.	F2524260
	06371	0 76500 0 00022	2427		LRS	18	F2524270
	06372	0 20000 0 03645	2428		MPY	WRKSC+7	F2524280
	06373	0 76700 0 00021	2429		ALS	17	F2524290
	06374	0 60100 0 05245	2430		STO	ERAOR0	F2524300
	06375	0 56000 0 03653	2431		LDQ	TAG4 CHECK DUPES	F2524310
	06376	0 76300 0 00032	2432		LLS	26 AND MAKE G	F2524320
	06377	0 76000 0 00001	2433		LBT	ADJUSTMENTS	F2524330
	06400	0 02000 0 06420	2434		TRA	AOR024 ACCORDINGLY.	F2524340
	06401	0 77100 0 00001	2435		ARS	1	F2524350
	06402	0 76000 0 00001	2436		LBT		F2524360
	06403	0 02000 0 06411	2437		TRA	AOR022	F2524370
	06404	0 56000 0 03640	2438		LDQ	WRKSC+2	F2524380
	06405	0 20000 0 03644	2439		MPY	WRKSC+6	F2524390
	06406	0 76700 0 00021	2440		ALS	17	F2524400
	06407	0 40000 0 05245	2441		ADD	ERAOR0	F2524410
	06410	0 60100 0 05245	2442		STO	ERAOR0	F2524420
	06411	0 50000 0 03653	2443	AOR022	CLA	TAG4	F2524430
	06412	0 77100 0 00013	2444		ARS	11	F2524440
	06413	0 76000 0 00001	2445		LBT		F2524450
	06414	0 02000 0 06420	2446		TRA	AOR024	F2524460
	06415	0 50000 0 03636	2447		CLA	WRKSC	F2524470
	06416	0 40000 0 05245	2448		ADD	ERAOR0	F2524480
	06417	0 60100 0 05245	2449		STO	ERAOR0	F2524490
	06420	0 50000 0 05245	2450	AOR024	CLA	ERAOR0	F2524500
	06421	0 07400 4 04601	2451		TSX	FIXCON,4 ASSIGN SYMBOL FOR	F2524510
	06422	0 60100 0 07611	2452		STO	OR000+19 G FOR S3.	F2524520
	06423	0 02000 0 06430	2453		TRA	AOR040	F2524530
	06424	0 53400 1 05127	2454	AOR030	LXA	L(2),1 SUB IS S1, C1=1,	F2524540
	06425	0 50000 0 07362	2455		CLA	K2AOR0 COMPILE CLA, STD.	F2524550
	06426	0 07400 4 07271	2456		TSX	LXC,4	F2524560
	06427	0 02000 0 06433	2457		TRA	AOR050	F2524570
	06430	0 53400 1 05130	2458	AOR040	LXA	L(4),1 COMPILE LDQ,MPY, STD.	F2524580
	06431	0 50000 0 07360	2459		CLA	K1AOR0	F2524590
	06432	0 07400 4 07271	2460		TSX	LXC,4	F2524600
	06433	−0 53400 4 06346	2461	AOR050	LXD	AOR05,4 RESTORE LINKAGE.	F2524610
	06434	0 02000 4 00001	2462		TRA	1,4	F2524620
			2463			*************************************************************	F2324630
	06435	−0 63400 4 05236	2464	BOR0	SXD	LINKC,4 FOR B BLOCK	F2524640
	06436	0 56000 0 03640	2465		LDQ	WRKSC+2 COMPUTE G AS	F2524650
	06437	0 20000 0 03644	2466		MPY	WRKSC+6 C2D1. PLACE	F2524660
	06440	0 76700 0 00021	2467		ALS	17 THIS AND C1	F2524670
	06441	0 60100 0 07611	2468		STO	OR000+19 IN OR0.	F2524680
	06442	0 50000 0 03636	2469		CLA	WRKSC	F2524690
	06443	0 60100 0 07612	2470		STO	OR000+20	F2524700
	06444	0 53400 1 05127	2471		LXA	L(2),1 INITIALIZE N3X	F2524710
	06445	−0 63400 1 05212	2472		SXD	N3X,1 POS. TO S2.	F2524720
	06446	0 53400 1 05131	2473		LXA	L(3),1 INITIALIZE XX	F2524730
	06447	−0 63400 1 05213	2474		SXD	XX,1 POS. TO S1.	F2524740
	06450	0 07400 4 06701	2475		TSX	PC,4	F2524750
	06451	−0 53400 4 05236	2476		LXD	LINKC,4	F2524760
	06452	0 02000 4 00001	2477		TRA	1,4	F2524770
			2478			*************************************************************	F2524780
	06453	−0 63400 4 06465	2479	COR0	SXD	COR005,4	F2524790
	06454	0 56000 0 03644	2480		LDQ	WRKSC+6 FORM C3D1D2 AND	F2524800
	06455	0 20000 0 03645	2481		MPY	WRKSC+7 STORE-IN	F2524810
	06456	0 76500 0 00022	2482		LRS	18 OR0+19	F2524820
	06457	0 20000 0 03642	2483		MPY	WRKSC+4 FOR USE BY	F2524830
	06460	0 76700 0 00021	2484		ALS	17 PC IN COMPUTING	F2524840
	06461	0 60100 0 07611	2485		STO	OR000+19 BLOCK C DECREMENTS.	F2524850
	06462	0 50000 0 03653	2486		CLA	TAG4 TEST	F2524860
	06463	0 77100 0 00011	2487		ARS	9 FOR	F2524870
	06464	0 76000 0 00001	2488		LBT	DUPES.	F2524880
D	06465	−3 00000 0 06473	2489	COR005	TXL	COR010,0 NO DUPES.	F2524890
	06466	0 56000 0 03644	2490		LDQ	WRKSC+6 IF DUPES, FORM	F2524900
	06467	0 20000 0 03640	2491		MPY	WRKSC+2 C2D1, ADD TO	F2524910
	06470	0 76700 0 00021	2492		ALS	17 OR0+19 , AND STORE	F2524920
	06471	0 40000 0 07611	2493		ADD	OR000+19 IN OR0+19 FOR	F2524930
	06472	0 60100 0 07611	2494		STO	OR000+19 USE BY PC.	F2524940
	06473	0 53400 1 05126	2495	COR010	LXA	L(1),1 SET N3X POSITION	F2524950
	06474	−0 63400 1 05212	2496		SXD	N3X,1 TO S3,	F2524960
	06475	0 53400 1 05131	2497		LXA	L(3),1 XX POSITION TO S1	F2524970
	06476	−0 63400 1 05213	2498		SXD	XX,1 AND CALL PC TO COMPUTE	F2524980
	06477	0 07400 4 06701	2499		TSX	PC,4 AND COMPILE BLKC INIT.	F2524990
	06500	−0 53400 4 06465	2500		LXD	COR005,4 RESTORE LINKAGE AND	F2525000
	06501	0 02000 4 00001	2501		TRA	1,4 RETURN TO MAIN ROUTINE.	F2525010
			2502			*************************************************************	F2525020
	06502	−0 63400 4 06522	2503	DORO	SXD	DOR05,4 BLOCK D NORMAL.	F2525030
	06503	0 56000 0 03642	2504		LDQ	WRKSC+4 COMPUTES C3D1D2, G1	F2525040
	06504	0 20000 0 03644	2505		MPY	WRKSC+6 AND C2D1, G2 IF DUP.	F2525050
	06505	0 76500 0 00022	2506		LRS	18 EXIST IN THE CASE	F2525060
	06506	0 20000 0 03645	2507		MPY	WRKSC+7 110 C1 ADDED TO G2.	F2525070
	06507	0 76700 0 00021	2508		ALS	17 IN THE CASE 101	F2525080
	06510	0 60100 0 07611	2509		STO	OR000+19 C1 ADDED TO G1.	F2525090
	06511	0 56000 0 03640	2510		LDQ	WRKSC+2	F2525100
	06512	0 20000 0 03644	2511		MPY	WRKSC+6	F2525110
	06513	0 76700 0 00021	2512		ALS	17	F2525120
	06514	0 60100 0 07612	2513		STO	OR000+20	F2525130
	06515	0 50000 0 03653	2514		CLA	TAG4	F2525140
	06516	0 77100 0 00011	2515		ARS	9	F2525150
	06517	−0 32000 0 05076	2516		ANA	L(7)	F2525160
	06520	0 10000 0 06532	2517		TZE	DOR020	F2525170
	06521	0 76000 0 00001	2518		LBT		F2525180
D	06522	−3 00000 0 06527	2519	DOR05	TXL	DOR010,0	F2525190
	06523	0 50000 0 03636	2520		CLA	WRKSC	F2525200
	06524	0 40000 0 07611	2521		ADD	OR000+19	F2525210
	06525	0 60100 0 07611	2522		STO	OR000+19	F2525220
	06526	0 02000 0 06532	2523		TRA	DOR020	FC52523D
	06527	0 50000 0 03636	2524	DOR010	CLA	WRKSC	F2525240
	06530	0 40000 0 07612	2525		ADD	OR000+20	F2525250
	06531	0 60100 0 07612	2526		STO	OR000+20	F2525260
	06532	0 53400 1 05126	2527	DOR020	LXA	L(1),1 SET N3X POS. TO S3,	F2525270
	06533	−0 63400 1 05212	2528		SXD	N3X,1	F2525280
	06534	0 53400 1 05127	2529		LXA	L(2),1 XX POS. TO S2.	F2525290
	06535	−0 63400 1 05213	2530		SXD	XX,1	F2525300
	06536	0 07400 4 06701	2531		TSX	PC,4 MAKE COMPUTATIONS AND COMPILE	F2525310
	06537	−0 53400 4 06522	2532		LXD	DOR05,4 INSTRUCTIONS TO INIT. VAR.	F2525320
	06540	0 02000 4 00001	2533		TRA	1,4 BLOCK D DECREMENTS,	F2525330
			2534			*************************************************************	F2525340
	06541	−0 63400 4 06645	2535	EOR0	SXD	EOR006,4	F2525350
	06542	0 07400 4 06502	2536		TSX	DORO,4 COMP. INSTR. FOR 1ST TXI-SXD-TIX.	F2525360
	06543	0 50000 0 07605	2537		CLA	OR000+15 UPDATE	F2525370
	06544	0 40000 0 05110	2538		ADD	L(8) TXI RELATIVE	F2525380
	06545	0 60100 0 07604	2539		STO	OR000+14 INSTRUCTION NUM8ER.	F2525390
	06546	0 40000 0 05135	2540		ADD	L(16) UPDATE TIX RELATIVE	F2525400
	06547	0 60100 0 07605	2541		STO	OR000+15 INSTRUCTION NUMBER.	F2525410
	06550	0 53400 1 05131	2542		LXA	L(3),1 SEE IF	F2525420
	06551	0 50000 1 03652	2543		CLA	TAG2+3,1 X FOR	F2525430
	06552	−0 73400 2 00000	2544		PDX	0,2 XX POSITION	F2525440
	06553	0 50000 2 01103	2545		CLA	DOTAGZ+5,2 IS	F2525450
	06554	−0 32000 0 05137	2546		ANA	BIT2 COMPUTABLE.	F2525460
	06555	0 10000 0 06644	2547		TZE	EOR006−1 X COMPUTABLE.	F2525470
	06556	0 50000 2 01102	2548		CLA	DOTAGZ+4,2 X NOT COMPUTABLE,	F2525480
	06557	0 40200 0 05126	2549		SUB	L(1) IS N3=1.	F2525490
	06560	−0 10000 0 06644	2550		TNZ	EOR006−1 N3 NOT =1.	F2525500
	06561	0 50000 2 01100	2551		CLA	DOTAGZ+2,2 N3=1, IS	F2525510
	06562	0 40200 0 05126	2552		SUB	L(1) N1 = 1.	F2525520
	06563	−0 10000 0 06610	2553		TNZ	EOR02 N1 NOT = 1.	F2525530
	06564	0 50000 0 03636	2554		CLA	WRKSC N3,NU = 1,	F2525540
	06565	0 40200 0 05061	2555		SUB	L1DEC DOES C1=1.	F2525550
	06566	−0 10000 0 06571	2556		TNZ	EOR01 NO.	F2525560
	06567	0 50000 2 01101	2557		CLA	DOTAGZ+3,2 N3, N1, C1 = 1 .	F2525570
	06570	0 02000 0 06674	2558		TRA	EOR022 ISOLATE N2 SYMBOL.	F2525580
	06571	0 50000 2 01101	2559	EOR01	CLA	DOTAGZ+3,2 ISOLATE	F2525590
	06572	0 60100 0 07566	2560		STO	OR000 N2 SYMBOL.	F2525600
	06573	0 50000 0 03636	2561		CLA	WRKSC ASSIGN SYMBOL	F2525610
	06574	0 07400 4 04601	2562		TSX	FIXCON,4 FOR C1, AND	F2525620
	06575	0 60100 0 07611	2563		STO	OR000+19 COMPILE LDQ L(N2),	F2525630
	06576	0 50000 0 07360	2564		CLA	K1AOR0 MPY L(C1), ARS 17.	F2525640
	06577	0 53400 1 05131	2565		LXA	L(3),1	F2525650
	06600	0 07400 4 07271	2566		TSX	LXC,4	F2525660
	06601	0 53400 1 05126	2567	EOR03	LXA	L(1),1 COMPILE	F2525670
	06602	0 50000 0 07376	2568		CLA	LXCIE1 SUB L(1),	F2525680
	06603	0 07400 4 07271	2569		TSX	LXC,4	F2525690
	06604	1 00001 1 06605	2570		TXI	EOR03+4,1,1 COMPILE	F2525700
	06605	0 50000 0 07400	2571		CLA	LXCEIP STD L(TIX), STD L(TXI).	F2525710
	06606	0 07400 4 07271	2572		TSX	LXC,4	F2525720
	06607	0 02000 0 06664	2573		TRA	EOR018+3	F2525730
	06610	0 07400 4 04741	2574	EOR02	TSX	OP3,4 COMPILE CLA (N2 - N1)	F2525740
	06611	0 50000 0 03636	2575		CLA	WRKSC OR CLA N2, SUB N1.	F2525750
	06612	0 40200 0 05061	2576		SUB	L1DEC DOES C1=1.	F2525760
	06613	0 10000 0 06601	2577		TZE	EOR03 UES, EOR03.	F2525770
	06614	0 50000 0 05054	2578		CLA	L(ADD) NO, COMPILE	F2525780
	06615	0 60100 0 05177	2579		STO	CIL01 ADD L(1),	F2525790
	06616	0 50000 0 07603	2580		CLA	OR000+13 STO 1)+3,	F2525800
	06617	0 73400 4 00000	2581		PAX	0,4	F2525810
	06620	−0 32000 0 05104	2582		ANA	6ONES MPY L(C1.,	F2525820
	06621	0 60100 0 05200	2583		STO	CIL02 ALS 17,	F2525830
	06622	−0 63400 4 05201	2584		SXD	CIL03,4 STO 1)+3,	F2525840
	06623	0 07400 4 04345	2585		TSX	CIT,4 AND GO TO	F2525850
	06624	0 50000 0 05044	2586		CLA	L(STO) EOR03.	F2525860
	06625	0 60100 0 05177	2587		STO	CIL01	F2525870
	06626	0 50000 0 07620	2588		CLA	OR000+26	F2525880
	06627	0 60100 0 07567	2589		STO	OR000+1	F2525890
	06630	0 73400 4 00000	2590		PAX	0,4	F2525900
	06631	−0 32000 0 05104	2591		ANA	6ONES	F2525910
	06632	0 60100 0 05200	2592		STO	CIL02	F2525920
	06633	−0 63400 4 05201	2593		SXD	CIL03,4	F2525930
	06634	0 07400 4 04345	2594		TSX	CIT,4 FIXCON SYMBOL	F2525940
	06635	0 50000 0 03636	2595		CLA	WRKSC FOR C1.	F2525950
	06636	0 07400 4 04601	2596		TSX	FIXCON,4	F2525960
	06637	0 60100 0 07577	2597		STO	OR000+9	F2525970
	06640	0 50000 0 07352	2598		CLA	KLX02I	F2525980
	06641	0 53400 1 05130	2599		LXA	L(4),1	F2525990
	06642	0 07400 4 07271	2600		TSX	LXC,4	F2526000
	06643	0 02000 0 06601	2601		TRA	EOR03	F2526010
	06644	0 07400 4 07226	2602		TSX	PXOR0,4 C1 GREATER THAN 1.	F2526020
D	06645	−3 00000 0 06647	2603	EOR006	TXL	EOR008,0	F2526030
	06646	0 02000 0 06666	2604		TRA	EOR020 X CONSTANT, EOR020.	F2526040
	06647	0 53400 1 05106	2605	EOR008	LXA	L(6),1 X NOT CONST.,	F2526050
	06650	0 50000 0 03636	2606		CLA	WRKSC COMPILE	F2526060
	06651	0 40200 0 05061	2607		SUB	L1DEC INSTRUCTIONS	F2526070
	06652	0 10000 0 06657	2608		TZE	EOR015 TO COMPUTE	F2526080
	06653	1 00002 1 06654	2609		TXI	EOR010,1,2 XGN3.	F2526090
	06654	0 50000 0 03636	2610	EOR010	CLA	WRKSC	F2526100
	06655	0 07400 4 04601	2611		TSX	FIXCON,4	F2526110
	06656	0 60100 0 07577	2612		STO	OR000+9	F2526120
	06657	0 50000 0 07373	2613	EOR015	CLA	LXCI	F2526130
	06660	0 07400 4 07271	2614		TSX	LXC,4	F2526140
	06661	0 53400 1 05130	2615	EOR018	LXA	L(4),1 COMPILE LLS, SUB,	F2526150
	06662	0 50000 0 07375	2616		CLA	LXCIE STD,STD.	F2526160
	06663	0 07400 4 07271	2617		TSX	LXC,4	F2526170
	06664	−0 53400 4 06645	2618		LXD	EOR006,4	F2526180
	06665	0 02000 4 00001	2619		TRA	1,4	F2526190
	06666	0 76500 0 00043	2620	EOR020	LRS	35	F2526200
	06667	0 76100 0 00000	2621		NOP		F2526210
	06670	0 20000 0 03636	2622		MPY	WRKSC	F2526220
	06671	0 76700 0 00021	2623		ALS	17	F2526230
	06672	0 76100 0 00000	2624		NOP		F2526240
	06673	0 07400 4 04601	2625		TSX	FIXCON,4	F2526250
	06674	0 60100 0 07612	2626	EOR022	STO	OR000+20 PUT SYMB0L IN	F2526260
	06675	0 53400 1 05126	2627		LXA	L(1),1 OR0+20 AND C0MPILE	F2526270
	06676	0 50000 0 07377	2628		CLA	LXCIEP CLA (SYMB0L),	F2526280
	06677	0 07400 4 07271	2629		TSX	LXC,4	F2526290
	06700	0 02000 0 06601	2630		TRA	EOR03	F2526300
			2631			*************************************************************	F2526310
			2632			PC IS A SUBROUTINE CALLED BY AOR0, BOR0, ETC. T0 HAKE C0MPUTA	F2526320
			2633			TIONS AND T0 CALL C0MPILING ROUTINES FOR TXI DECREMENT INTIA	F2526330
			2634			LIZATION.	F2526340
	06701	−0 63400 4 06717	2635	PC	SXD	PC04,4	F2526350
	06702	−0 53400 1 05212	2636		LXD	N3X,1	F2526360
	06703	0 50000 1 03652	2637		CLA	TAG2+3,1	F2526370
	06704	−0 73400 2 00000	2638		PDX	0,2	F2526380
	06705	0 50000 2 01076	2639		CLA	DOTAGZ,2	F2526390
	06706	−0 32000 0 05141	2640		ANA	ADMSK FORM LOCATION	F2526400
	06707	0 76700 0 00022	2641		ALS	18 WORDS AND PUT	F2526410
	06710	−0 50100 0 05255	2642		ORA	TETLOC IN OR0+14	F2526420
	06711	0 60100 0 07604	2643		STO	OR000+14 AND OR0+15.	F2526430
	06712	0 40000 0 05135	2644		ADD	L(16)	F2526440
	06713	0 60100 0 07605	2645		STO	OR000+15	F2526450
	06714	0 50000 2 01076	2646		CLA	DOTAGZ,2 IS N3 FOR THIS DO	F2526460
	06715	0 77100 0 00017	2647		ARS	15 VARIABLE.	F2526470
	06716	0 76000 0 00001	2648		LBT		F2526480
D	06717	−3 00000 0 06731	2649	PC04	TXL	PC10,0 NO, PC10.	F2526490
	06720	0 50000 2 01102	2650		CLA	DOTAGZ+4,2 YES,	F2526500
	06721	0 60100 0 07566	2651		STO	OR000 COMPILE	F2526510
	06722	0 50000 0 07611	2652		CLA	OR000+19 LDQ L(G), (N3X POS,),	F2526520
	06723	0 07400 4 04601	2653		TSX	FIXCON,4 MPY N3, (N3X POS.),	F2526530
	06724	0 60100 0 07611	2654		STO	OR000+19 ALS 17,	F2526540
	06725	0 53400 1 05130	2655		LXA	L(4),1 STO C(OR0+12)	F2526550
	06726	0 50000 0 07402	2656		CLA	K1BOR0	F2526560
	06727	0 07400 4 07271	2657		TSX	LXC,4	F2526570
	06730	0 02000 0 06736	2658		TRA	PC20	F2526580
	06731	0 56000 2 01102	2659	PC10	LDQ	DOTAGZ+4,2 N3 C0NSTANT, PUT	F2526590
	06732	0 20000 0 07611	2660		MPY	OR000+19 N3G SYMBOL IN	F2526600
	06733	0 76300 0 00043	2661		LLS	35 OR0+19	F2526610
	06734	0 07400 4 04601	2662		TSX	FIXCON,4	F2526620
	06735	0 60100 0 07611	2663		STO	OR000+19	F2526630
	06736	−0 53400 1 05213	2664	PC20	LXD	XX,1 ISOLATE N3 FOR	F2526640
	06737	0 50000 1 03652	2665	PCI	CLA	TAG2+3,1 XX POSITION	F2526650
	06740	−0 73400 2 00000	2666		PDX	0,2	F2526660
	06741	0 50000 2 01102	2667		CLA	DOTAGZ+4,2 DOES N3 = 1.	F2526670
	06742	0 40200 0 05126	2668		SUB	L(1)	F2526680
	06743	−0 10000 0 07050	2669		TNZ	PC21 NO, PC22.	F2526690
	06744	0 50000 2 01103	2670		CLA	DOTAGZ+5,2 YES, IS X CONST.	F2526700
	06745	−0 32000 0 05137	2671		ANA	BIT2	F2526710
	06746	0 10000 0 07050	2672		TZE	PC21 YES, PC21.	F2526720
	06747	−3 00002 1 07027	2673		TXL	PCI31,1,2 NO, IS POS. S2.	F2526730
	06750	0 50000 2 01100	2674		CLA	DOTAGZ+2,2 NO, IS N1 = 1.	F2526740
	06751	0 40200 0 05126	2675		SUB	L(1)	F2526750
	06752	−0 10000 0 06773	2676		TNZ	PCI22 NO, PCI22.	F2526760
	06753	0 50000 2 01101	2677		CLA	DOTAGZ+3,2 YES, DOES C1 = 1,	F2526770
	06754	0 60100 0 07567	2678		STO	OR000+1	F2526780
	06755	0 50000 0 03636	2679		CLA	WRKSC	F2526790
	06756	0 40200 0 05061	2680		SUB	L1DEC	F2526800
	06757	−0 10000 0 06764	2681		TNZ	PCI21 NO, PCI21.	F2526810
	06760	0 53400 1 05126	2682		LXA	L(1),1 YES, COMPILE	F2526820
	06761	0 50000 0 07353	2683		CLA	KLX02 CLA N1,	F2526830
	06762	0 07400 4 07271	2684		TSX	LXC,4 SUBL(1), AND	F2526840
	06763	0 02000 0 07044	2685		TRA	PCI33	F2526850
	06764	0 50000 0 03636	2686	PCI21	CLA	WRKSC	F2526860
	06765	0 07400 4 04601	2687		TSX	FIXCON,4 COMPILE	F2526870
	06766	0 60100 0 07577	2688		STO	OR000+9 LDQ L(N2)	F2526880
	06767	0 50000 0 07352	2689		CLA	KLX02I MPY LC1)	F2526890
	06770	0 53400 1 05130	2690		LXA	L(4),1 ALS 17	F2526900
	06771	0 07400 4 07271	2691		TSX	LXC,4 STO 1) +3.	F2526910
	06772	0 02000 0 07113	2692		TRA	PC60	F2526920
	06773	0 07400 4 04741	2693	PCI22	TSX	OP3,4 COMPILE CLA L(N2-N1)	F2526930
	06774	0 50000 0 03636	2694		CLA	WRKSC	F2526940
	06775	0 40200 0 05061	2695		SUB	L1DEC IS C1 = 1.	F2526950
	06776	0 10000 0 07113	2696		TZE	PC60 YES, PC 60.	F2526960
	06777	0 50000 0 03636	2697		CLA	WRKSC NO, OBTAIN	F2526970
	07000	0 07400 4 04601	2698		TSX	FIXCON,4 SYMBOL FOR	F2526980
	07001	0 60100 0 07577	2699		STO	OR000+9 C1 AND	F2526990
	07002	0 50000 0 05054	2700	PCI22R	CLA	L(ADD) COMPILE	F2527000
	07003	0 60100 0 05177	2701		STO	CIL01 ADD L(1)	F2527010
	07004	0 50000 0 07603	2702		CLA	OR000+13 STO 1) +3	F2527020
	07005	0 73400 1 00000	2703		PAX	0,1 LDQ 1) +3	F2527030
	07006	−0 63400 1 05201	2704		SXD	CIL03,1 MPY L(G)	F2527040
	07007	−0 32000 0 05104	2705		ANA	6ONES ALS17	F2527050
	07010	0 60100 0 05200	2706		STO	CIL02 STD 1) +3	F2527060
	07011	0 07400 4 04345	2707		TSX	CIT,4 SUB L(1),	F2527070
	07012	0 50000 0 05044	2708		CLA	L(STO) THEN GO	F2527080
	07013	0 60100 0 05177	2709		STO	CIL01 TO PC60.	F2527090
	07014	0 50000 0 07620	2710		CLA	OR000+26	F2527100
	07015	0 60100 0 07567	2711		STO	OR000+1	F2527110
	07016	0 73400 4 00000	2712		PAX	0,4	F2527120
	07017	−0 32000 0 05104	2713		ANA	6ONES	F2527130
	07020	0 60100 0 05200	2714		STO	CIL02	F2527140
	07021	−0 63400 4 05201	2715		SXD	CIL03,4	F2527150
	07022	0 07400 4 04345	2716		TSX	CIT,4	F2527160
	07023	0 53400 1 05130	2717		LXA	L(4),1	F2527170
	07024	0 50000 0 07352	2718		CLA	KLX02I	F2527180
	07025	0 07400 4 07271	2719		TSX	LXC,4	F2527190
	07026	0 02000 0 07044	2720		TRA	PCI33	F2527200
	07027	0 50000 0 07612	2721	PCI31	CLA	OR000+20 XX POS 2 , X VAR., N3 = 1,	F2527210
	07030	0 07400 4 04601	2722		TSX	FIXCON,4 ASSIGN SYMBOL FOR G	F2527220
	07031	0 60100 0 07577	2723		STO	OR000+9 AND PUT IN OR0+9	F2527230
	07032	0 50000 2 01100	2724		CLA	DOTAGZ+2,2 IS N1 = 1	F2527240
	07033	0 40200 0 05126	2725		SUB	L(1)	F2527250
	07034	0 10000 0 07037	2726		TZE	PCI32 YES, PCI32.	F2527260
	07035	0 07400 4 04741	2727		TSX	OP3,4 NO, COMPILE CLA (N2-N1)	F2527270
	07036	0 02000 0 07002	2728		TRA	PCI22R OR CLA N2, SUB N1.	F2527280
	07037	0 50000 2 01101	2729	PCI32	CLA	DOTAGZ+3,2 COMPILE	F2527290
	07040	0 60100 0 07567	2730		STO	OR000+1 LDQ N2,	F2527300
	07041	0 53400 1 05130	2731		LXA	L(4),1 MPY G,	F2527310
	07042	0 50000 0 07352	2732		CLA	KLX02I ALS 17,	F2527320
	07043	0 07400 4 07271	2733		TSX	LXC,4 STO1)+3,	F2527330
	07044	0 53400 1 05126	2734	PCI33	LXA	L(1),1	F2527340
	07045	0 50000 0 07404	2735		CLA	LXCI61	F2527350
	07046	0 07400 4 07271	2736		TSX	LXC,4	F2527360
	07047	0 02000 0 07113	2737		TRA	PC60	F2527370
	07050	0 07400 4 07226	2738	PC21	TSX	PXOR0,4 IS X CONSTANT.	F2527380
	07051	0 02000 0 07053	2739		TRA	PC22 NO, PC22.	F2527390
	07052	0 02000 0 07102	2740		TRA	PC50 YES. PC50,	F2527400
	07053	−0 53400 1 05213	2741	PC22	LXD	XX,1 X NOT CONSTANT,	F2527410
	07054	−3 00002 1 07073	2742		TXL	PC40,1,2 IS POSITION S1.	F2527420
	07055	0 53400 1 05106	2743		LXA	L(6),1 TES, COMPILE	F2527430
	07056	0 50000 0 03636	2744		CLA	WRKSC INSTRUCTIONS	F2527440
	07057	0 40200 0 05061	2745		SUB	L1DEC TO COMPUTE	F2527450
	07060	0 10000 0 07065	2746		TZE	PC30 N3X-1, AND	F2527460
	07061	1 00002 1 07062	2747		TXI	PC25,1,2 TO TO PC60,	F2527470
	07062	0 40000 0 05061	2748	PC25	ADD	L1DEC	F2527480
	07063	0 07400 4 04601	2749		TSX	FIXCON,4	F2527490
	07064	0 60100 0 07577	2750		STO	OR000+9	F2527500
	07065	0 50000 0 07373	2751	PC30	CLA	LXCI	F2527510
	07066	0 07400 4 07271	2752		TSX	LXC,4	F2527520
	07067	0 53400 1 05127	2753		LXA	L(2),1	F2527530
	07070	0 50000 0 07374	2754		CLA	LXCI6	F2527540
	07071	0 07400 4 07271	2755		TSX	LXC,4	F2527550
	07072	0 02000 0 07113	2756		TRA	PC60	F2527560
	07073	0 50000 0 07612	2757	PC40	CLA	OR000+20 POS, IS S2,	F2527570
	07074	0 07400 4 04601	2758		TSX	FIXCON,4 COMPILE INSTRUCTIONS	F2527580
	07075	0 60100 0 07612	2759		STO	OR000+20 TO COMPUT N3X-1 AND	F2527590
	07076	0 53400 1 05134	2760		LXA	L(10),1 GO TO PC60.	F2527600
	07077	0 50000 0 07403	2761		CLA	LX2CI	F2527610
	07100	0 07400 4 07271	2762		TSX	LXC,4	F2527620
	07101	0 02000 0 07113	2763		TRA	PC60	F2527630
	07102	0 76500 0 00043	2764	PC50	LRS	35 X IS CONSTANT,	F2527640
	07103	0 20000 0 07612	2765		MPY	OR000+20 FORM GN3X-1 FOR	F2527650
	07104	0 76700 0 00021	2766		ALS	17 XX POS. AND COMPILE	F2527660
	07105	0 40200 0 05061	2767		SUB	L1DEC	F2527670
	07106	0 07400 4 04601	2768		TSX	FIXCON,4	F2527680
	07107	0 60100 0 07612	2769		STO	OR000+20	F2527690
	07110	0 53400 1 05126	2770		LXA	L(1),1	F2527700
	07111	0 50000 0 07401	2771		CLA	XK	F2527710
	07112	0 07400 4 07271	2772		TSX	LXC,4	F2527720
	07113	−0 53400 1 05212	2773	PC60	LXD	N3X,1	F2527730
	07114	0 50000 1 03652	2774		CLA	TAG2+3,1 IS	F2527740
	07115	−0 73400 2 00000	2775		PDX	0,2 N3	F2527750
	07116	0 53400 1 05131	2776		LXA	L(3),1 OF	F2527760
	07117	0 50000 2 01076	2777		CLA	DOTAGZ,2 CURRENT	F2527770
	07120	0 77100 0 00017	2778		ARS	15 DO	F2527780
	07121	0 76000 0 00001	2779		LBT	VARIABLE.	F2527790
	07122	0 02000 0 07127	2780		TRA	PC61 CONSTANT, PC61.	F2527800
	07123	0 50000 0 07405	2781		CLA	LXCI8 VARIABLE, COMPILE	F2527810
	07124	0 07400 4 07271	2782	PC62	TSX	LXC,4 STD, ADD N3G, STD.	F2527820
	07125	−0 53400 4 06717	2783		LXD	PC04,4	F2527830
	07126	0 02000 4 00001	2784		TRA	1,4	F2527840
	07127	0 50000 0 07562	2785	PC61	CLA	LXCI8P CONSTANT. COMPILE	F2527850
	07130	0 02000 0 07124	2786		TRA	PC62 STO, ADD C(OR0+12), STD.	F2527860
			2787			*************************************************************	F2527870
			2788			CIL03I FILLS OUT LOCATION AND TAG NAME WORDS FOR COMPILED INS	F2527880
			2789			TRUCTIONS WITHOUT LOCATIONS.	F2527890
	07131	0 50000 0 05133	2790	CIL03I	CLA	L(0) PLACE 0 IN LOCATION	F2527900
	07132	0 60100 0 05176	2791		STO	CIL00 WORD AND TAG IN	F2527910
	07133	0 50000 0 03652	2792		CLA	TAG3 TAG WORD OF COMPILED	F2527920
	07134	−0 32000 0 05141	2793		ANA	ADMSK INSTRUCGIN.	F2527930
	07135	0 60100 0 05201	2794		STO	CIL03	F2527940
	07136	0 02000 4 00001	2795		TRA	1,4	F2527950
			2796			*************************************************************	F2527960
			2797			BITP CHECKS SUBSCRIPTS FOR DEFINITION. IF DEFINED BY RELCON	F2327970
			2798			OR DOSUB IT OBTAINS OBJECT PROGRAM SYMBOLS FOR N1 OR S1 RESPE	F2327980
			2799			CTIVELY.	F2527990
	07137	0 62100 0 07162	2800	BITP	STA	BITP14	F2528000
	07140	0 62100 0 07147	2801		STA	BITP02 INITIALIZE SHIFTS,	F2528010
	07141	0 62100 0 07153	2802		STA	BITP04 STORE LINKAGE	F2528020
	07142	0 73400 2 00000	2803		PAX	0,2 AND PLACE 0,1,2 IN	F2528030
	07143	0 76700 0 00001	2804		ALS	1 XB FOR S3, S2, AND	F2528040
	07144	0 73400 1 00000	2805		PAX	0,1 S1 RESPECTIVELY,	F2528050
	07145	−0 63400 4 07166	2806		SXD	BITP25,4	F2528060
	07146	0 50000 0 05252	2807		CLA	OREDO CHECK TO SEE IT	F2528070
A	07147	0 77100 0 00000	2808	BITP02	ARS	DEFINED BY DO, RELCON,	F2528080
	07150	0 76000 0 00001	2809		LBT	OR DORC. RETURN AS NOT	F2528090
	07151	0 02000 4 00001	2810		TRA	1,4 DEFINED IF NOT DEFINED.	F2528100
	07152	0 50000 0 05253	2811		CLA	DEFDO DEFINED. CHECK T0 SEE	F2528110
A	07153	0 77100 0 00000	2812	BITP04	ARS	IF DEFINED BY DO,	F2528120
	07154	0 76000 0 00001	2813		LBT		F2528130
	07155	0 02000 0 07167	2814		TRA	BITP30 DEFINED AS RELCON.	F2528140
	07156	0 50000 2 03651	2815		CLA	TAG2+2,2 DEFINED BY DO, CHECK	F2528150
	07157	−0 73400 2 00000	2816		PDX	0,2 TO SEE IF N1 IS	F2528160
	07160	0 50000 0 05254	2817	BITP10	CLA	N1SBX VARIABLE. IF SO, RETURN	F2528170
	07161	3 00007 0 00100	2818		TXH	64,0,7 AS UNDEFINED.	F2528180
A	07162	0 77100 0 00000	2819	BITP14	ARS	IF NOT,	F2528190
	07163	0 76000 0 00001	2820		LBT	CONTINUE.	F2528200
	07164	0 02000 0 07151	2821		TRA	BITP02+2 SYMBOL HAS VARIABLE N1.	F2528210
	07165	0 50000 2 01100	2822	BITP20	CLA	DOTAGZ+2,2 DOSUB, N2.	F2528220
D	07166	−3 00000 0 07170	2823	BITP25	TXL	BITP40,0 SUBMLEFT IN ACC.	F2528230
	07167	0 50000 1 03643	2824	BITP30	CLA	WRKSC+5,1 RELCON S SYMBOL FROM WRKSC.	F2528240
	07170	−0 53400 4 07166	2825	BITP40	LXD	BITP25,4 RESTORE LINKAGE	F2528250
	07171	0 02000 4 00002	2826		TRA	2,4 SYMBOL IN ACC.	F2528260
			2827			*************************************************************	F2528270
			2828			COSE TESTS COEFFICIENTS AND OBTAINS OBJECT PROGRAM SYMBOLS FR	F2528280
			2829			TH0SE GREATER THAN 1	F2528290
	07172	0 53400 1 05106	2830	COSE	LXA	L(6),1 COEFFICIENT INDEX.	F2528300
	07173	0 53400 2 05131	2831		LXA	L(3),2 SENSE LIGHT INDEX.	F2528310
	07174	−0 63400 4 05236	2832		SXD	LINKC,4 STORE LINKAGE.	F2528320
	07175	0 50000 1 03644	2833	COSE5	CLA	WRKSC+6,1 ISOLATE COEFFIEIENT,	F2528330
	07176	0 10000 0 07205	2834		TZE	COSE08 NO SUB FOR THIS DIM.	F2528340
	07177	0 40200 0 05061	2835		SUB	L1DEC	F2528350
	07200	0 10000 0 07205	2836		TZE	COSE08 C=1, CHECK NEXT C.	F2528360
	07201	0 76000 2 00144	2837		PSE	100,2 C NOT = 1, SENSE LIGHT.	F2528370
	07202	0 50000 1 03644	2838		CLA	WRKSC+6,1 ASS1GN FIXCON SYMBOL	F2528380
	07203	0 07400 4 04601	2839		TSX	FIXCON,4 FOR C NOT = 1. STORE IN	F2528390
	07204	0 60100 2 07602	2840		STO	OR000+12,2 OR0+910, OR 11.	F2528400
	07205	2 00002 1 07206	2841	COSE08	TIX	COSE10,1,2 BUMP COEF. INDEX.	F2528410
	07206	2 00001 2 07175	2842	COSE10	TIX	COSE5,2,1 BUMP S.6. TEST AND LOOP,	F2528420
	07207	−0 53400 4 05236	2843		LXD	LINKC,4 RESTORE LINKAGE	F2528430
	07210	0 02000 4 00001	2844		TRA	1,4 AND RETURN.	F2528440
			2845			*************************************************************	F2528450
			2846			TESTL0 OBTAINS THE TEST LOCATION TO BE THE SYMBOLIC ADDRESS O	F2528460
			2847			OF THE STD INITIALIZING INSTRUCT10N,	F2528470
	07211	0 50000 2 03652	2848	TESTL0	CLA	TAG2+3,2 INITIALIZE INDEX	F2528480
	07212	−0 73400 2 00000	2849		PDX	0,2 FOR TEST DOTAG.	F2528490
	07213	0 50000 0 05133	2850		CLA	L(0) ISOLATE	F2528500
	07214	0 56000 2 01104	2851		LDQ	DOTAGZ+6,2 SXD	F2528510
	07215	−0 77300 0 00003	2852		RQL	3 LOCATION	F2528520
	07216	−0 76300 0 00006	2853		LGL	6 AND PUT	F2528530
	07217	0 76700 0 00003	2854		ALS	3 IN TETLOC	F2528540
	07220	0 60100 0 05255	2855		STO	TETLOC ADDRESS	F2528550
	07221	0 50000 2 01076	2856		CLA	DOTAGZ,2 PUT TXL	F2528560
	07222	−0 32000 0 05141	2857		ANA	ADMSK LOCATION	F2528570
	07223	0 76700 0 00022	2858		ALS	18 IN TETLOC	F2528580
	07224	−0 60200 0 05255	2859		ORS	TETLOC DECREMENT.	F2528590
	07225	0 02000 4 00001	2860		TRA	1,4	F2528600
			2861			*************************************************************	F2528610
			2862			PREFACE TO OR0 EXAMINES VARIABLIITY OF X QUANTITY.	F2528620
	07226	0 50000 1 03652	2863	PXOR0	CLA	TAG2+3,1 IF X IS	F2528630
	07227	−0 73400 2 00000	2864		PDX	0,2 CONSTANT IT IS	F2528640
	07230	0 50000 2 01103	2865		CLA	DOTAGZ+5,2 LEFT IN THE	F2528650
	07231	−0 32000 0 05137	2866		ANA	BIT2 DECREMENT OF	F2528660
	07232	−0 10000 0 07237	2867		TNZ	XOR0 ACC.	F2528670
	07233	0 50000 2 01103	2868		CLA	DOTAGZ+5,2	F2528680
	07234	−0 32000 0 05141	2869		ANA	ADMSK	F2528690
	07235	0 76700 0 00022	2870		ALS	18	F2528700
	07236	0 02000 4 00002	2871		TRA	2,4	F2528710
			2872			*************************************************************	F2528720
			2873			XOR0 FILLS OUT OR0 FOR N1, N2, N3, GIVEN DO IN B AND POS IN A	F2528730
	07237	−0 63400 4 07260	2874	XOR0	SXD	XOR032,4	F2528740
	07240	0 50000 2 01076	2875		CLA	DOTAGZ,2	F2528750
	07241	0 77100 0 00017	2876		ARS	15	F2528760
	07242	−0 32000 0 05076	2877		ANA	L(7)	F2528770
	07243	0 60100 0 05235	2878		STO	N1N2N3	F2528780
	07244	0 50000 0 05067	2879		CLA	L(OR0) ORIGIN OF OR0 TABLE.	F2528790
	07245	0 40000 0 05130	2880		ADD	L(4) CALCULATES ADDRESS	F2528800
	07246	3 00002 1 07250	2881		TXH	XOR010,1,2 FOR STORING INTO	F2528810
	07247	0 40000 0 05131	2882		ADD	L(3) OR0 TABLE.	F2528820
	07250	3 00001 1 07252	2883	XOR010	TXH	XOR020,1,1	F2528830
	07251	0 40000 0 05066	2884		ADD	L(17)	F2528840
	07252	0 62100 0 07263	2885	XOR020	STA	XOR036 STORE ADRS FOR NS.	F2528850
	07253	0 53400 1 05131	2886		LXA	L(3),1	F2528860
	07254	0 56000 0 05235	2887	XOR030	LDQ	N1N2N3	F2528870
	07255	−0 77300 1 00044	2888		RQL	36,1	F2528880
	07256	0 50000 2 01100	2889		CLA	DOTAGZ+2,2	F2528890
	07257	0 16200 0 07261	2890		TQP	XOR034 N IS CONSTANT.	F2528900
D	07260	−3 00000 0 07263	2891	XOR032	TXL	XOR036,0 N IS VARIABLE	F2528910
	07261	0 76700 0 00022	2892	XOR034	ALS	18	F2528920
	07262	0 07400 4 04601	2893		TSX	FIXCON,4	F2528930
	07263	0 60100 1 00000	2894	XOR036	STO	0,1	F2528940
	07264	2 00001 2 07265	2895		TIX	XOR040,2,1	F2528950
	07265	2 00001 1 07254	2896	XOR040	TIX	XOR030,1,1	F2528960
	07266	0 60100 0 07566	2897		STO	OR000	F2528970
	07267	−0 53400 4 07260	2898		LXD	XOR032,4	F2528980
	07270	0 02000 4 00001	2899		TRA	1,4	F2528990
			2900			*************************************************************	F2529000
			2901			THIS ROUTINE EXAMINES A BLOCK OF CONSTANTS AND COMPILES ONE I	F2529010
			2902			INSTRUCTION FOR EACH. THE CALLER INDICATES THE FIRST CONSTAN	F2529020
			2903			BY A REFERENCE IN THE ACCUMULATOR, AND INDICATES THE NUMBER O	F2529030
			2904			OF INSTRUCTIONS IN INDEX REGISTER A.	F2529040
	07271	−0 63400 4 07336	2905	LXC	SXD	LXC19,4	F2529050
	07272	0 60100 0 05206	2906		STO	ERLXC	F2529060
	07273	−0 75400 1 00000	2907		PXD	0,1	F2529070
	07274	0 77100 0 00022	2908		ARS	18	F2529080
	07275	0 40000 0 05206	2909		ADD	ERLXC	F2529090
	07276	0 62100 0 07312	2910		STA	LXC10	F2529100
	07277	0 50000 0 05222	2911		CLA	LOCIND TEST TO SEE IF	F2529110
	07300	0 10000 0 07310	2912		TZE	LXC08 THIS IS THE FIRST	F2529120
	07301	0 40200 0 05126	2913		SUB	L(1) LXD COMPILED. IF SO,	F2529130
	07302	0 60100 0 05222	2914		STO	LOCIND PLACE A IN	F2529140
	07303	−0 53400 2 05230	2915		LXD	DOIND,2 DECREMENT	F2529150
	07304	0 50000 2 01076	2916		CLA	DOTAGZ,2 OF LOCATION WORD	F2529160
	07305	−0 32000 0 05142	2917		ANA	DECMSK FOR FIRST COMPILED	F2529170
	07306	0 60100 0 05176	2918		STO	CIL00 INSTRUCTION.	F2529180
	07307	0 02000 0 07312	2919		TRA	LXC10	F2529190
	07310	0 50000 0 05133	2920	LXC08	CLA	L(0)	F2529200
	07311	0 60100 0 05176	2921		STO	CIL00	F2529210
	07312	0 56000 1 00000	2922	LXC10	LDQ	0,1 SKELETAL INSTRUCTION.	F2529220
	07313	0 76300 0 00000	2923		LLS	0	F2529230
	07314	−0 76300 0 00022	2924		LGL	18	F2529240
	07315	−0 60000 0 05177	2925		STQ	CIL01 COMPILE OP. WORD.	F2529250
	07316	−0 12000 0 07337	2926		TMI	LXC20	F2529260
	07317	0 62100 0 07320	2927		STA	LXC15 SYMBOL.ADDR, TYPE INSTRUCTION,	F2529270
A	07320	0 50000 0 00000	2928	LXC15	CLA		F2529280
	07321	0 60100 0 05200	2929		STO	CIL02 SYMBOLIC ADDRESS.	F2529290
	07322	0 50000 0 05133	2930		CLA	L(0) RELATIVE	F2529300
	07323	0 60100 0 05201	2931		STO	CIL03 ADDRESS.	F2529310
	07324	−0 50000 0 05200	2932		CAL	CIL02 TEST CIL02	F2529320
	07325	−0 32000 0 05104	2933		ANA	6ONES WORD.	F2529330
	07326	0 10000 0 07344	2934		TZE	LXC30 FIRST CHARACTER IS ZERO.	F2529340
	07327	−0 32000 0 05102	2935		ANA	BIT01	F2529350
	07330	−0 10000 0 07344	2936		TNZ	LXC30 FIRST CHARACTER ALPHABETIC.	F2529360
	07331	−0 50000 0 05200	2937		CAL	CIL02 FIRST CHARACTER NUMBERIC,	F2529370
	07332	0 76700 0 00022	2938		ALS	18 PLACE REIGHT HALF OF CIL02	F2529380
	07333	0 62200 0 05201	2939		STD	CIL03 IN CIL03, LEFT HALF	F2529390
	07334	−0 50000 0 05104	2940		CAL	6ONES IN CIL02.	F2529400
	07335	0 32000 0 05200	2941		ANS	CIL02	F2529410
D	07336	−3 00000 0 07344	2942	LXC19	TXL	LXC30,0 SHIF TYPE INSTRUCTION,	F2529420
	07337	0 76700 0 00022	2943	LXC20	ALS	18	F2529430
	07340	−0 32000 0 05142	2944		ANA	DECMSK	F2529440
	07341	0 60100 0 05201	2945		STO	CIL03	F2529450
	07342	0 50000 0 05133	2946		CLA	L(0)	F2529460
	07343	0 60100 0 05200	2947		STO	CIL02	F2529470
	07344	0 07400 4 04345	2948	LXC30	TSX	CIT,4	F2529480
	07345	2 00001 1 07310	2949		TIX	LXC08,1,1 COUNT COMPILED INSTR. IN BLK.	F2529490
	07346	−0 53400 4 07336	2950		LXD	LXC19,4	F2529500
	07347	0 02000 4 00001	2951		TRA	1,4	F2529510
			2952			*************************************************************	F2529520
	07350	0 00000 0 07406	2953	KLX01		LXI00	F2529530
	07351	0 00000 0 07407	2954	KLX01I		LXI00+1	F2529540
	07352	0 00000 0 07412	2955	KLX02I		LXI05	F2529550
	07353	0 00000 0 07410	2956	KLX02		LXI02	F2529560
	07354	0 00000 0 07424	2957	KLX03		LXI16	F2529570
	07355	0 00000 0 07442	2958	KLX05		LXI30	F2529580
	07356	0 00000 0 07416	2959	KLX03I		LXI10	F2529590
	07357	0 00000 0 07434	2960	KLX05I		LXI24	F2529600
	07360	0 00000 0 07473	2961	K1AOR0		A1C00	F2529610
	07361	0 00000 0 07474	2962	KIAOR0		A1C01	F2529620
	07362	0 00000 0 07477	2963	K2AOR0		A1000	F2529630
	07363	0 00000 0 07500	2964	K3AOR0		A1001	F2529640
	07364	0 00000 0 07501	2965	KTX00		TXC00	F2529650
	07365	0 00000 0 07507	2966			TXC08	F2529660
	07366	0 00000 0 07515	2967			TXC18	F2529670
	07367	0 00000 0 07531	2968	KTX04		TXC30	F2529680
	07370	0 00000 0 07532	2969	KTX03		TXC31	F2529690
	07371	0 00000 0 07534	2970	LTX040		TX040	F2529700
	07372	0 00000 0 07536	2971	LTX042		TX042	F2529710
	07373	0 00000 0 07456	2972	LXCI		XCI	F2529720
	07374	0 00000 0 07466	2973	LXCI6		XCI6	F2529730
	07375	0 00000 0 07553	2974	LXCIE		XCIE	F2529740
	07376	0 00000 0 07554	2975	LXCIE1		XCIE+1	F2529750
	07377	0 00000 0 07563	2976	LXCIEP		XCIEP	F2529760
	07400	0 00000 0 07564	2977	LXCEIP		XCEIP	F2529770
	07401	0 00000 0 07552	2978	XK		XKI	F2529780
	07402	0 00000 0 07452	2979	K1BOR0		L(BIC)	F2529790
	07403	0 00000 0 07540	2980	LX2CI		X2CI	F2529800
	07404	0 00000 0 07467	2981	LXCI61		XCI6+1	F2529810
	07405	0 00000 0 07470	2982	LXCI8		XCI8	F2529820
	07406	0 07603 2 34321	2983	LXI00		14545,2,OR000+13	F2529830
	07407	0 07620 6 26346	2984			11494,6,OR000+26	F2529840
	07410	0 07567 2 34321	2985	LXI02		14545,2,OR000+1	F2529850
	07411	0 07620 6 26346	2986			11494,6,OR000+26	F2529860
	07412	0 07567 4 32450	2987	LXI05		13608,4,OR000+1	F2529870
	07413	0 07577 4 44770	2988			18936,4,OR000+9	F2529880
	07414	−2 00021 2 14362	2989		TNX	6386,2,17 ALS 17	F2529890
	07415	0 07620 6 26346	2990			11494,6,OR000+26	F2529900
	07416	0 07572 4 32450	2991	LXI10		13608,4,OR000+4	F2529910
	07417	0 07575 4 44770	2992			18936,4,OR000+7	F2529920
	07420	−2 00021 2 14362	2993		TNX	6386,2,17 ALS 17	F2529930
	07421	0 07575 6 26422	2994			11538,6,OR000+7	F2529940
	07422	0 07620 2 12424	2995			5396,2,OR000+26	F2529950
	07423	0 07620 6 26346	2996			11494,6,OR000+26	F2529960
	07424	0 07572 4 32450	2997	LXI16		13608,4,OR000+4	F2529970
	07425	0 07600 4 44770	2998			18936,4,OR000+10	F2529980
	07426	−2 00022 4 35162	2999		TNX	14962,4,18 LRS	F2529990
	07427	0 07575 4 44770	3000			18936,4,OR000+7	F2530000
	07430	−2 00021 2 14362	3001		TNX	6386,2,17 ALS	F2530010
	07431	0 07575 6 26422	3002			11538,6,OR000+7	F2530020
	07432	0 07620 2 12424	3003			5396,2,OR000+26	F2530030
	07433	0 07620 6 26346	3004			11494,6,OR000+26	F2530040
	07434	0 07613 4 32450	3005	LXI24		13608,4,OR000+21	F2530050
	07435	0 07616 4 44770	3006			18936,4,OR000+24	F2530060
	07436	−2 00021 2 14362	3007		TNX	6386,2,17 ALS	F2530070
	07437	0 07616 6 26422	3008			11538,6,OR000+24	F2530080
	07440	0 07620 2 12424	3009			5396,2,OR000+26	F2530090
	07441	0 07620 6 26346	3010			11494,6,OR000+26	F2530100
	07442	0 07613 4 32450	3011	LXI30		13608,4,OR000+21	F2530110
	07443	0 07601 4 44770	3012			18936,4,OR000+11	F2530120
	07444	−2 00022 4 35162	3013		TNX	14962,4,18 LRS	F2530130
	07445	0 07616 4 44770	3014			18936,4,OR000+24	F2530140
	07446	−2 00021 2 14362	3015		TNX	6386,2,17 ALS	F2530150
	07447	0 07616 6 26422	3016			11538,6,OR000+24	F2530160
	07450	0 07620 2 12424	3017			5396,2,OR000+26	F2530170
	07451	0 07620 6 26346	3018			11494,6,OR000+26	F2530180
	07452	0 07611 4 32450	3019	L(BIC)		13608,4,OR000+19	F2530190
	07453	0 07566 4 44770	3020			18936,4,OR000	F2530200
	07454	−2 00021 2 14362	3021		TNX	6386,2,17 ALS	F2530210
	07455	0 07602 6 26346	3022			11494,6,OR000+12	F2530220
	07456	0 07570 2 34321	3023	XCI		14545,2,OR000+2	F2530230
	07457	0 07567 6 26422	3024			11538,6,OR000+1	F2530240
	07460	0 07571 2 12424	3025			5396,2,OR000+3	F2530250
	07461	−2 00043 4 35162	3026		TNX	14962,4,35 LRS	F2530260
	07462	0 07571 2 46547	3027			19815,2,OR000+3	F2530270
	07463	0 07571 4 44770	3028			18936,4,OR000+3	F2530280
	07464	−2 00022 4 35162	3029		TNX	14962,4,18 LRS	F2530290
	07465	0 07577 4 44770	3030			18936,4,OR000+9	F2530300
	07466	−2 00043 4 34362	3031	XCI6	TNX	14578,4,35 LLS	F2530310
	07467	0 07603 6 26422	3032			11538,6,OR000+13	F2530320
	07470	0 07605 6 26324	3033	XCI8		11476,6,OR000+15	F2530330
	07471	0 07602 2 12424	3034			5396,2,OR000+12	F2530340
	07472	0 07604 6 26324	3035			11476,6,OR000+14	F2530350
	07473	0 07566 4 32450	3036	A1C00		13608,4,OR000	F2530360
	07474	0 07611 4 44770	3037	A1C01		18936,4,OR000+19	F2530370
	07475	−2 00021 2 14362	3038		TNX	6386,2,17 ALS	F2530380
	07476	0 07604 6 26324	3039			11476,6,OR000+14	F2530390
	07477	0 07566 2 34321	3040	A1000		14545,2,OR000	F2530400
	07500	0 07604 6 26324	3041	A1001		11476,6,OR000+14	F2530410
	07501	0 07570 2 34321	3042	TXC00		14545,2,OR000+2	F2530420
	07502	0 07567 6 26422	3043			11538,6,OR000+1	F2530430
	07503	0 07571 2 12424	3044			5396,2,OR000+3	F2530470
	07504	−2 00043 4 35162	3045		TNX	14962,4,35 LRS	F2530450
	07505	0 07571 2 46547	3046			19815,2,OR000+3	F25F0460
	07506	0 07571 4 44770	3047			18936,4,OR000+3	F2530470
	07507	0 07573 2 34321	3048	TXC08		14545,2,OR000+5	F2530480
	07510	0 07572 6 26422	3049			11538,6,OR000+4	F2530490
	07511	0 07574 2 12424	3050			5396,2,OR000+6	F2530500
	07512	−2 00043 4 35162	3051		TNX	14962,4,35 LRS	F2530510
	07513	0 07574 2 46547	3052			19815,2,OR000+6	F2530520
	07514	0 07574 4 44770	3053			18936,4,OR000+6	F2530530
	07515	0 07614 2 34321	3054	TXC18		14545,2,OR000+22	F2530540
	07516	0 07613 6 26422	3055			11538,6,OR000+21	F2530550
	07517	0 07615 2 12424	3056			5396,2,OR000+23	F2530560
	07520	−2 00043 4 35162	3057		TNX	14962,4,35 LRS	F2530570
	07521	0 07615 2 46547	3058			19815,2,OR000+23	F2530580
	07522	0 07615 4 44770	3059			18936,4,OR000+23	F2530590
	07523	−2 00022 4 35162	3060		TNX	14962,4,18 LRS	F2530600
	07524	0 07575 4 44770	3061			18936,4,OR000+7	F2530610
	07525	−2 00022 4 35162	3062		TNX	14962,4,18 LRS	F2530620
	07526	0 07576 4 44770	3063			18936,4,OR000+8	F2530630
	07527	−2 00022 4 35162	3064		TNX	14962,4,18 LRS	F2530640
	07530	0 07601 4 44770	3065			18936,4,OR000+11	F2530650
	07531	−2 00043 4 34362	3066	TXC30	TNX	14578,4,35 LLS	F2530660
	07532	0 07621 2 12424	3067	TXC31		5396,2,OR000+27	F2530670
	07533	0 07603 6 26422	3068			11538,6,OR000+13	F2530680
	07534	−2 00022 4 35162	3069	TX040	TNX	14962,4,18 LRS	F2530690
	07535	0 07611 4 44770	3070			18936,4,OR000+19	F2530700
	07536	−2 00043 4 34362	3071	TX042	TNX	14578,4,35 LLS	F2530710
	07537	0 07604 6 26324	3072			11476,6,OR000+14	F2530720
	07540	0 07573 2 34321	3073	X2CI		14545,2,OR000+5	F2530730
	07541	0 07572 6 26422	3074			11538,6,OR000+4	F2530740
	07542	0 07574 2 12424	3075			5396,2,OR000+6	F2530750
	07543	−2 00043 4 35162	3076		TNX	14962,4,35 LRS	F2530760
	07544	0 07574 2 46547	3077			19815,2,OR000+6	F2530770
	07545	0 07574 4 44770	3078			18936,4,OR000+6	F2530780
	07546	−2 00022 4 35162	3079		TNX	14962,4,18 LRS	F2530790
	07547	0 07612 4 44770	3080			18936,4,OR000+20	F2530800
	07550	−2 00043 4 34362	3081		TNX	14578,4,35 LLS	F2530810
	07551	0 07603 6 26422	3082			11538,6,OR000+13	F2530820
	07552	0 07612 2 34321	3083	XKI		14545,2,OR000+20	F2530830
	07553	−2 00043 4 34362	3084	XCIE	TNX	14578,4,35 LLS	F2530840
	07554	0 07603 6 26422	3085			11538,6,OR000+13	F2530850
	07555	0 07605 6 26324	3086			11476,6,OR000+15	F2530860
	07556	0 07604 6 26324	3087			11476,6,OR000+14	F2530870
	07557	0 07605 6 26324	3088	XCI8P		11476,6,OR000+15	F2530880
	07560	0 07611 2 12424	3089			5396,2,OR000+19	F2530890
	07561	0 07604 6 26324	3090			11476,6,OR000+14	F2530900
	07562	0 00000 0 07557	3091	LXCI8P		XCI8P	F2530910
	07563	0 07612 2 34321	3092	XCIEP		14545,2,OR000+20	F2530920
	07564	0 07605 6 26324	3093	XCEIP		11476,6,OR000+15	F2530930
	07565	0 07604 6 26324	3094			11476,6,OR000+14	F2530940
			3095			*************************************************************	F2530950
		07566	3096	OR000	BSS	12	F2530960
M	07602	+010000000001	3097	OR012	OCT	010000000001	F2530970
	07603	+060000000003	3098		OCT	060000000003	F2530980
		07604	3099	OR014	BSS	12	F2530990
M	07620	+010000000003	3100	OR026	OCT	010000000003 1)+3 SYMBOL.	F2531000
			3101			*************************************************************	F2531010
			3102				F2531020
			3103			*************************************************************	F2531030
			3104			SYNONYMS	F2531040
		01242	3105	ZEKSUM	SYN	TGTG+100	F2531050
M		03650	3106	TAG21	SYN	TAG2+1	F2531060
M		03651	3107	TAG22	SYN	TAG2+2	F2531070
M		05256	3108	RTXAC	SYN	RTX	F2531080
M		05256	3109	RTXAC	SYN	AC	F2531090
		05245	3110	ERAOR0	SYN	ERTX01	F2531100
		05241	3111	CPYWD1	SYN	ER40	F2531110
		05242	3112	CPYWD2	SYN	ER41	F2531120
M		05243	3113	ERDRM1	SYN	ARG	F2531130
M		05243	3114	ERDRM1	SYN	ARG	F2531140
		05246	3115	ERDRM	SYN	ERTX02	F2531150
		05202	3116	ERAB	SYN	ERTGA	F2531160
		03636	3117	ADTGA	SYN	OADTGA+100	F2531170
		03466	3118	ADTGMX	SYN	ADTG+400	F2531180
		01076	3119	DOTAGZ	SYN	DOTAG+450	F2531190
M		07602	3120	OR012	SYN	OR000+12	F2531200
		07603	3121	OR013	SYN	OR000+13	F2531210
		07610	3122	OR018	SYN	OR000+18	F2531220
M		07620	3123	OR026	SYN	OR000+26	F2531230
		02336	3124	MXTGTG	SYN	TGTG+672	F2531240
		02646	3125	MXTGA	SYN	OMXTGA+200	F2531250
		00004	3126	DIAG	EQU	4	F2531260