1			BLOCK TWO OF SECTION TWO.
			2			MASTER RECORD CARD = FN034	F2200004
			3			BLOCK 2 OF SECTION 2 PERFORMS SUBSCRIPT ANALYSIS FOR THOSE	F2200006
			4			SUBSCRIPT COMBINATIONS WHICH HAVE SUBSCRIPTS	F2200010
			5			SOME OR ALL OF WHICH ARE UNDER CONTROL OF THEIR RESPECTIVE	F2200020
			6			DOS. THERE ARE TWO MACHINE STATES, ONE	F2200030
			7			OF WHICH IS RESERVED EXCLUSIVELY	F2200040
			8			FOR THOSE SUBSCRIPT COMBINATIONS	F2200050
			9			SOME SUBSCRIPT ELEMENT/S OF WHICH ARE	F2200060
			10			NOT UNDER CONTROL OF A DO (RELATIVE	F2200070
			11			CONSTANT).	F2200080
		00031	12		ORG	25	F2200090
		00031	13	DOTAG	BSS	1	F2200100
		00032	14		BSS	449	F2200110
		00733	15	DOTAGZ	BSS	1	F2200120
		00734	16	FORTAG	BSS	1	F2200140
		00735	17		BSS	1499	F2200150
		03670	18	FORTZ	BSS	1	F2200160
		03670	19		ORG	1976	F2200170
		03670	20	DOREC	BSS	1 (INIT ZERO)	F2200180
		03671	21		BSS	1	F2200190
		03672	22	ATSW	BSS	1 ADDED TAG SWITCH. EQ 1 IF PROC ADDED TAGS(INITO	F2200200
		03673	23	NEWTAG	BSS	1 (INIT 4000M0DS, FIRSTTAG)	F2200210
		03674	24	XC	BSS	1 IX CURRENT DO.	F2200220
		03675	25	LC	BSS	1 LEV CURRENT DO	F2200230
		03676	26	ALPHA	BSS	1 ALPHA CURRENT DO	F2200240
		03677	27	BETA	BSS	1 BETA CURRENT DO	F2200250
		03700	28	TAG	BSS	1 TAG CURRENT TAG IN ROUTINE TAG	F2200260
		03701	29	TS	BSS	1 TAG, EITHER FORTAG OR NEW TAG NAME OF CURRENT	F2200270
		03702	30	TAG1	BSS	1 4TH WD OF TAGTAG	F2200280
		03703	31	GR0UP	BSS	1 GROUP NR. IN DEC	F2200290
		03704	32	C1	BSS	1 COEFF 1ST SYMB (HERE T0 D2 BELOW, INIT 0,SUBCOM	F2200300
		03705	33	S1	BSS	1 SUBSCR 1ST SYMB	F2200310
		03706	34	C2	BSS	1 COEFF 2ND SYMB	F2200320
		03707	35	S2	BSS	1 SUBSC 2ND	F2200330
		03710	36	C3	BSS	1 COEFF 3RD	F2200340
		03711	37	S3	BSS	1 SUBSC 3RD	F2200350
		03712	38	D1	BSS	1 DIMENSION 1ST	F2200360
		03713	39	D2	BSS	1 DIM 2ND	F2200370
		03714	40	X1	BSS	1 IX DO MATHCHING 1ST SYMB.) (HERE TO CARWRD	F2200380
		03715	41	L1	BSS	1 LEV DO MATCHING 1ST SYMB BELOW, INIT 0,IDENT	F2200390
		03716	42	X2	BSS	1 IX DO MATHCING 2ND SYMB	F2200400
		03717	43	L2	BSS	1 LEV DO MATCHING 2ND	F2200410
		03720	44	X3	BSS	1 IX DO MATCHING 3RD	F2200420
		03721	45	L3	BSS	1 LEV DO MATCHING 3RD	F2200430
		03722	46	XL	BSS	1 IX LOWEST LEVEL DOSUB	F2200440
		03723	47	LL	BSS	1 LEV LOWEST LEVEL DOSUB	F2200450
		03724	48	NRSUBS	BSS	1 NR. SUBSCRIPTS IN SUBSCR COMBINATION	F2200460
		03725	49	NRRC	BSS	1 NR. RELCONS IN SUBSCR COMBINATION	F2200470
		03726	50	NRDS	BSS	1 NR DOSUBS IN S.C.	F2200480
		03727	51	DORC	BSS	1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DORC	F2200490
		03730	52	RCSUBS	BSS	1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 RELCON	F2200500
		03731	53	DOSUBS	BSS	1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DOSUB	F2200510
		03732	54	DELTA	BSS	1	F2200520
		03733	55	RCDUP	BSS	1 BIT POS 15,16,17,EQ1 FOR CORRES DUPE RELCONS	F2200530
		03734	56	DUPES	BSS	1 BIT POS 15,16,17 EQ 1 FOR CORRES DUPE DOSUBS	F2200540
		03735	57	RSYM1	BSS	1 --	F2200550
		03736	58	RSYM2	BSS	1	F2200560
		03737	59	CARWRD	BSS	1 BIT 11 IF LEFT TYPE 1 CARRY, 12 LEFT TYPE 2,	F2200570
			60			13 CENTER TYPE 1, 14 CENTER TYPE 2.	F2200571
			61			S SET NEG IF COUNTER AND TEST FOUND	F2200572
		03740	62	TL1	BSS	1	F2200580
		03741	63	TL2	BSS	1	F2200590
		03742	64	A	BSS	1	F2200600
		03743	65	B	BSS	1	F2200610
		03744	66	NEXTA	BSS	1	F2200620
		03745	67	LASTB	BSS	1	F2200630
		03746	68	REBITS	BSS	1	F2200640
		03747	69	TRABIT	BSS	1	F2200650
		03750	70	LOWP0S	BSS	1 5,3,1 1F LL SUBSCR IS X1,X2,X3 RESPECT. (ID)	F2200660
	03751	0 00000 0 00000	71	L(0)		0,0,0	F2200670
	03752	0 00001 0 00000	72	L(1)		0,0,1	F2200680
	03753	0 00002 0 00000	73	L(2)		0,0,2	F2200690
	03754	0 00003 0 00000	74	L(3)		0,0,3	F2200711
	03755	0 00004 0 00000	75	L(4)		0,0,4	F2200710
	03756	0 00005 0 00000	76	L(5)		0,0,5	F2200720
	03757	0 00006 0 00000	77	L(6)		0,0,6	F2200730
	03760	0 00024 0 00000	78	L(20)		0,0,20	F2200740
	03761	0 00044 0 00000	79	L(36)		0,0,36	F2200750
	03762	0 00074 0 00000	80	L(60)		0,0,60	F2200760
	03763	0 00702 0 00000	81	L(450)		0,0,450	F2200770
	03764	0 02734 0 00000	82	L(1500		0,0,1500	F2200780
	03765	0 00000 0 00001	83	L(1)A		1	F2200790
	03766	0 00000 0 00002	84	L(2)A		2	F2200800
	03767	0 00000 0 00004	85	L(4)A		4	F2200810
	03770	−0 00000 0 00000	86	L(MZ)	MZE		F2200820
	03771	+377777777777	87	35ONES	OCT	377777777777	F2200830
	03772	+077777000000	88	DECMSK	OCT	77777000000	F2200840
	03773	+000000077777	89	ADDMSK	OCT	77777	F2200850
	03774	+000100000000	90	CR1	OCT	100000000 BIT 11	F2200860
	03775	+000040000000	91	CR2	OCT	40000000 BIT 12	F2200870
	03776	+000000300000	92	CARMSK	OCT	300000 BITS 19,20 (CARRY BITS OF DOTAG, WD 6)	F2200880
	03777	+000000004000	93	FRSTAG	OCT	4000	F2200890
	04000	+200000000000	94	BITONE	OCT	200000000000	F220090D
	04001	+100000000000	95	BITTWO	OCT	100000000000	F2200910
	04002	−200000000000	96	2BITS	OCT	−200000000000 S AND 1 BIT	F2200920
	04003	+000000400000	97	BIT18	OCT	400000	F2200930
	04004	+000000200000	98	BIT19	OCT	200000	F2200940
	04005	+000000100000	99	BIT20	OCT	100000	F2200950
	04006	0 00000 0 00144	100	ADTXX		100	F2200960
	04007	0 00000 0 00454	101	RESXX		300	F2200970
	04010	0 00000 0 00120	102	TAGXX		80	F2200980
	04011	0 00000 0 00144	103	NAMXX		100	F2200990
	04012	0 77200 0 00223	104	BEGIN	REW	DOTAPE REWIND DOTAG TAPE	F2201000
	04013	−0 53400 1 03756	105		LXD	L(5),1 INITIALIZE	F2201010
	04014	0 50000 1 05106	106	BEG10	CLA	LADDIN+5,1 DRUM PROGRAM	F2201020
	04015	−0 32000 0 03773	107		ANA	ADDMSK ADDRESSES	F2201030
	04016	0 60100 1 05101	108		STO	LADDS+5,1
	04017	2 00001 1 04014	109		TIX	BEG10,1,1	F2201040
	04020	0 50000 0 03751	110		CLA	L(0) , ,	F2201050
	04021	0 60100 0 03670	111		STO	DOREC	F2201060
	04022	−0 76000 0 00012	112		RTT	TURN	F2201070
	04023	0 76100 0 00000	113		NOP	LIGHT OFF	F2201080
	04024	−0 53400 6 03751	114		LXD	L(0),6 TEST FOR EMPTY	F2201090
	04025	−0 76000 0 00144	115		MSE	100 FORVAL	F2201110
	04026	−0 53400 4 03752	116		LXD	L(1),4 OFF, NOT EMPTY	F2201120
	04027	−0 63400 4 04112	117		SXD	END80,4 ON, EMPTY	F2201130
	04030	−0 76000 0 00143	118		MSE	99 TEST FOR	F2201140
	04031	−0 53400 2 03752	119		LXD	L(1),2 EMPTY DOTAG	F2201150
	04032	−0 63400 2 04113	120		SXD	END85,2 SAVE TABLE INFO 1N END PROG.	F2201160
	04033	−3 00000 2 04043	121		TXL	END,2,0 IF DOTAG EMPTY, GO TO END.	F2201170
	04034	−0 53400 1 00733	122		LXD	FORTAG−1,1 INITIALIZE	F2201170
	04035	−0 63400 1 05426	123		SXD	TINF30,1 FORTAG	F2201180
	04036	−0 63400 1 04407	124		SXD	TAG20,1 TEST	F2201190
	04037	−0 63400 1 04516	125		SXD	TAG90,1 INSTRUCTIONS.	F2201200
	04040	0 50000 0 03777	126	PAT01	CLA	FRSTAG INITIALIZE NEW TAG NAME BASE	F2201220
	04041	0 60100 0 03673	127		STO	NEWTAG	F2201230
	04042	0 02000 0 04116	128		TRA	NEST	F2201240
	04043	0 77000 0 00224	129	END	WEF	ATAPE WEF ON TAGTAG TAPE	F2201250
	04044	0 76600 0 00303	130		WRS	195 MAKE END OF DRUMTAG TABLE ENTRY.	F2201260
	04045	0 46000 0 05100	131		LDA	LADDS+4	F2201270
	04046	0 70000 0 03771	132		CPY	35ONES	F2201280
	04047	0 70000 0 03771	133		CPY	35ONES	F2201290
	04050	−0 53400 1 03756	134		LXD	L(5),1	F2201300
	04051	0 76600 0 00333	135	END10	WRS	219 DELAY.	F2201310
	04052	0 76600 0 00303	136		WRS	ADRUM WRITE.	F2201320
	04053	0 50000 1 05106	137		CLA	LADDIN+5,1 ALL	F2201330
	04054	0 40200 0 03766	138		SUB	L(2)A DRUM	F2201340
	04055	0 62100 0 04114	139		STA	END90 TABLE	F2201350
	04056	0 50000 1 05106	140		CLA	LADDIN+5,1 WORD	F2201360
	04057	−0 32000 0 03773	141		ANA	ADDMSK COUNTS	F2201370
	04060	0 40200 1 05101	142		SUB	LADDS+5,1 IN	F2201380
	04061	0 76000 0 00003	143		SSP	FIRST	F2201390
	04062	0 60100 0 04115	144		STO	END95 TWO	F2201400
	04063	0 46000 0 04114	145		LDA	END90 WORDS	F2201410
	04064	0 70000 0 04115	146		CPY	END95 PRECEDING	F2201420
	04065	0 70000 0 04115	147		CPY	END95 EACH TABLE . (TSXCOM, TRASTO, NAMKEY,	F2201430
	04066	2 00001 1 04051	148		TIX	END10,1,1 CHATAG, DRMTAG)	F2201440
	04067	0 76000 0 00140	149		PSE	96 RESTORE SENSE LIGHTS	F2201450
	04070	−0 53400 1 04112	150		LXD	END80,1 SL 100 ON, FORVAL EMPTY	F2201450
	04071	3 00000 1 04073	151		TXH	END20,1,0 SL 99 ON, DOTAG EMPTY,	F2201470
	04072	0 76000 0 00144	152		PSE	100	F2201480
	04073	−0 53400 1 04113	153	END20	LXD	END85,1	F2201490
	04074	3 00000 1 04076	154		TXH	END30,1,0	F2201500
	04075	0 76000 0 00143	155		PSE	99	F2201510
	04076	0 77000 0 00222	156	END30	WEF	TAPE2 WRITE EOF AFTER DONEST RECORDS	F2201520
	04077	0 76600 0 00222	157		WRS	TAPE2	F2201530
	04100	0 70000 0 03670	158		CPY	DOREC MAKE AN EXTRA FILE WITH	F2201540
	04101	0 70000 0 03670	159		CPY	DOREC DONEST RECORD COUNT.	F2201550
	04102	0 77000 0 00222	160		WEF	TAPE2	F2201560
	04103	0 50000 0 05075	161		CLA	LADDS+1 TRASTO CARRYOVER TO BLOCK 3	F2201570
	04104	0 60100 0 07775	162		STO	4093	F2201580
	04105	0 50000 0 05074	163		CLA	LADDS TSXCOM CARRYOVER TO BLOCK 3.	F2201590
	04106	0 60100 0 07776	164		STO	4094	F2201600
	04107	0 50000 0 05076	165		CLA	LADDS+2 NAMKEY (OR NAME) CARRYOVER TO BLOCK 3,	F2201610
	04110	0 60100 0 07777	166		STO	4095	F2201620
	04111	0 02000 0 06647	167		TRA	NORMRT	F2201635
A	04112	0 00000 0 00000	168	END80	HTR	ES. (DEC HAS 1 IF FORVAL NOT EMPTY)	F2201640
A	04113	0 00000 0 00000	169	END85	HTR	FOR (DEC HAS 1 IF DOTAG NOT EMPTY)	F2201650
A	04114	0 00000 0 00000	170	END90	HTR	END	F2201670
A	04115	0 00000 0 00000	171	END95	HTR	PROGRAM.	F2201680
	04116	−0 53400 1 03751	172	NEST	LXD	L(0),1 READ	F2201690
	04117	0 76200 0 00223	173	NEST10	RDS	DOTAPE ONE	F2201700
	04120	−0 53400 2 03763	174		LXD	L(450),2 NEST OF DO FORMULAS	F2201710
	04121	0 70000 2 00733	175	NEST20	CPY	DOTAGZ,2 FROM	F2201720
	04122	1 77777 2 04156	176		TXI	NEST60,2,−1 DOTAPE.	F2201730
	04123	0 02000 0 04043	177		TRA	END IF EOF, GO TO ROUTINE END.	F2201740
	04124	0 50000 0 03751	178	NEST30	CLA	L(0) INITIALIZING INSTRUCTIONS.	F2201750
	04125	0 60100 0 03672	179		STO	ATSW	F2201760
	04126	−0 63400 2 03674	180		SXD	XC,2 PUT C(XRB) IN XC	F2201780
	04127	−0 63400 2 00030	181		SXD	DOTAG−1,2 INITIALIZE	F2201790
	04130	−0 63400 2 04260	182		SXD	NEST95,2 DECS	F2201800
	04131	−0 63400 2 05451	183		SXD	TRAW20,2 THAT	F2201810
	04132	−0 63400 2 05464	184		SXD	TRAW50,2 TEST	F2201820
	04133	−0 63400 2 05316	185		SXD	SPC040,2 END OF	F2201830
	04134	−0 63400 2 05353	186		SXD	SPC090,2 DONEST.	F2201840
	04135	0 53400 4 04006	187		LXA	ADTXX,4 INIT	F2201850
	04136	−0 63400 4 04006	188		SXD	ADTXX,4 DECS	F2201860
	04137	0 53400 4 04007	189		LXA	RESXX,4 FROM	F2201870
	04140	−0 63400 4 04007	190		SXD	RESXX,4 ADDRESSES.	F2201880
	04141	0 53400 4 04010	191		LXA	TAGXX,4	F2201890
	04142	−0 63400 4 04010	192		SXD	TAGXX,4	F2201900
	04143	0 53400 4 04011	193		LXA	NAMXX,4	F2201910
	04144	−0 63400 4 04011	194		SXD	NAMXX,4	F2201920
	04145	0 76600 0 00333	195		WRS	219 MAKE	F2201930
	04146	−0 76000 0 00012	196		RTT	RTT	F2201940
	04147	0 02000 0 04151	197		TRA	NEST35 TEST	F2201950
	04150	0 02000 0 04262	198		TRA	DOFOR IF NO ERROR, GO TO DOFOR.	F2201960
	04151	1 00001 1 04152	199	NEST35	TXI	NEST40,1,1 IF ERROR, .	F2201970
	04152	3 00004 1 04155	200	NEST40	TXH	NEST50,1,4 TRY 4 TIMES MORE FOR	F2201985
	04153	0 76400 0 00223	201		BST	DOTAPE CORRECT READ.	F2201990
	04154	0 02000 0 04117	202		TRA	NEST10 AFTER FIFTH INCORRECT READ,	F2202002
	04155	0 07400 4 00004	203	NEST50	TSX	DIAG,4 ERROR. GO TO DIAGNOSTIC	F2202015
	04156	3 00000 2 04121	204	NEST60	TXH	NEST20,2,0 INDEX COPY. IF DOTAG	F2202020
	04157	0 70000 0 04163	205		CPY	NEST70 STORAGE FULL, AND MORE	F2202030
	04160	0 07400 4 00004	206		TSX	DIAG,4 NEST ENTRIES REMAIN. ERROR. GO TO DIAGNOSTIC.	F2202045
	04161	0 07400 4 00004	207		TSX	DIAG,4 INCORRECT EOF. ERROR. GO TO DIAGNOSTIC.	F2202055
	04162	0 02000 0 04124	208		TRA	NEST30 NO ENTRIES LEFT, GO TO NEST30).	F2202060
A	04163	0 00000 0 00000	209	NEST70	HTR	E.S.	F2202070
	04164	−0 53400 2 03755	210	NESTEN	LXD	L(4),2 PUT END OF NEST INDICATION	F2202080
	04165	0 50000 0 03771	211		CLA	35ONES IN TAGTAG, CONSISTING OF	F2202090
	04166	0 60100 2 05067	212	NEST80	STO	E1+4,2 FOUR WORDS OF 35 ONES.	F2202100
	04167	2 00001 2 04166	213		TIX	NEST80,2,1	F2202120
	04170	0 07400 4 05510	214		TSX	TAGENT,4 ENTER IN TAGTAG AND	F2202130
	04171	0 07400 2 05522	215		TSX	TETAPE,2 WRITE BUFFER ON TAPE.	F2202140
	04172	0 50000 0 03752	216		CLA	L(1)
	04173	0 60100 0 03672	217		STO	ATSW SET ADDED TAG SWITCH	F2202150
	04174	0 07400 4 05206	218		TSX	DRMENT,4 AND GO TO DRMENT TO	F2202160
	04175	−0 53400 1 04011	219		LXD	NAMXX,1 PROCESS ADDED TAGS	F2202170
			220			SXD NEST84,1 TO DRUM TABLE NAME	F2202190
	04176	−0 63400 1 04212	221		SXD	NEST84,1 TO DRUM TABLE NAME	F2202190
	04177	0 53400 1 04011	222		LXA	NAMXX,1 ALL ENTRIES	F2202200
D	04200	−3 00000 0 04212	223	NEST81	TXL	NEST84,0 IN CORE TABLE NAME	F2202210
	04201	0 50000 1 07301	224	NEST82	CLA	NAMZ,1	F2202210
	04202	0 60100 0 05063	225		STO	E1	F2202220
	04203	0 50000 1 07302	226		CLA	NAMZ+1,1	F2202230
	04204	0 60100 0 05064	227		STO	E2	F2202240
	04205	0 50000 0 05071	228		CLA	NAMKEY	F2202250
	04206	−0 63400 1 04200	229		SXD	NEST81,1	F2202260
	04207	0 07400 4 05025	230		TSX	LIST,4	F2202270
	04210	−0 53400 1 04200	231		LXD	NEST81,1	F2202280
	04211	1 77776 1 04212	232		TXI	NEST84,1,−2	F2202290
D	04212	3 00000 1 04201	233	NEST84	TXH	NEST82,1	F2202300
	04213	−0 53400 1 04006	234		LXD	ADTXX,1 TRANSFER	F2202310
	04214	−0 63400 1 04234	235		SXD	NEST88,1 TO DRUM TABLE NAME	F2202320
	04215	0 53400 1 04006	236		LXA	ADTXX,1 ALL ENTRIESP	F2202340
D	04216	−3 00000 0 04234	237	NEST85	TXL	NEST88,0 IN CORE TABLE ADTAG	F2202340
	04217	0 50000 1 07136	238	NEST86	CLA	ADTAGZ+1,1 EXCEPT	F2202360
	04220	−0 12000 0 04233	239		TMI	NEST87 RESET	F2202370
	04221	0 60100 0 05064	240		STO	E2 ENTRIES	F2202380
	04222	0 50000 1 07135	241		CLA	ADTAGZ,1	F2202380
	04223	0 60100 0 05063	242		STO	E1	F2202390
	04224	−0 73400 2 00000	243		PDX	0,2	F2202400
	04225	0 50000 2 00733	244		CLA	DOTAGZ,2	F2202410
	04226	0 62200 0 05063	245		STD	E1	F2202420
	04227	−0 63400 1 04216	246		SXD	NEST85,1	F2202430
	04230	0 50000 0 05071	247		CLA	NAMKEY	F2202440
	04231	0 07400 4 05025	248		TSX	LIST,4	F2202450
	04232	−0 53400 1 04216	249		LXD	NEST85,1	F2202460
	04233	1 77776 1 04234	250	NEST87	TXI	NEST88,1,−2	F2202470
D	04234	3 00000 1 04217	251	NEST88	TXH	NEST86,1	F2202480
	04235	−0 53400 1 00030	252	NST100	LXD	DOTAG−1,1	F2202490
	04236	0 02000 0 04247	253		TRA	NST120	F2202500
	04237	0 50000 1 00743	254	NST110	CLA	DOTAGZ+8,1 DOES BIT 20 WD 9 OF THIS DOTAG	F2202510
	04240	−0 32000 0 04005	255		ANA	BBIT EQ 1.	F2202530
	04241	0 10000 0 04247	256		TZE	NST120 AND	F2202530
	04242	0 50000 1 00732	257		CLA	DOTAGZ−1,1 DOES BIT 18 WD 9 OF PRIOR DOTAG	F2202550
	04243	−0 32000 0 04003	258		ANA	ABIT EQ 1.	F2202550
	04244	−0 10000 0 04247	259		TNZ	NST120	F2202560
	04245	0 50000 0 03773	260		CLA	ADDMSK YES. ERASE DEC WD 9	F2202570
	04246	0 32000 1 00743	261		ANS	DOTAGZ+8,1 OF PRIOR DOTAG.	F2202580
	04247	1 00011 1 04250	262	NST120	TXI	NST130,1,9	F2202590
	04250	−3 00671 1 04237	263	NST130	TXL	NST110,1,441	F2202610
	04251	0 50000 0 03670	264		CLA	DOREC WRITE	F2202620
	04252	0 40000 0 03752	265		ADD	L(1) DOTAG	F2202630
	04253	0 60100 0 03670	266		STO	DOREC ON	F2202640
	04254	0 76600 0 00222	267		WRS	TAPE2 TAPE TWO.	F2202660
	04255	−0 53400 1 03763	268		LXD	L(450),1 COUNT NR.	F2202670
	04256	0 70000 1 00733	269	NEST90	CPY	DOTAGZ,1 OF NESTS.	F2202680
	04257	1 77777 1 04260	270		TXI	NEST95,1,−1 IN DOREC.	F2202700
D	04260	3 00000 1 04256	271	NEST95	TXH	NEST90,1 (DEC HAS DOTAG IX)	F2202710
	04261	0 02000 0 04116	272		TRA	NEST RETURN FOR NEXT NEST,	F2202720
	04262	−0 53400 1 03674	273	DOFOR	LXD	XC,1 OBTAIN	F2202730
	04263	1 00011 1 04264	274		TXI	DOF10,1,9 NEXT BACK DO,	F2202740
	04264	3 00702 1 04164	275	DOF10	TXH	NESTEN,1,450 IF ANY.	F2202750
	04265	0 07400 4 04363	276		TSX	DOINFO,4 USE DOINFO	F2202760
	04266	0 02000 0 04377	277		TRA	TAG00 AND GO TO TAG00 ROUT1NE.	F2202770
	04267	−0 53400 1 03674	278	DOFEND	LXD	XC,1 IS A COUNTER	F2202780
	04270	0 50000 1 00743	279		CLA	DOTAGZ+8,1	F2202790
	04271	−0 32000 0 04004	280		ANA	BIT19	F2202800
	04272	0 10000 0 04326	281		TZE	MAKESC	F2202810
	04273	−0 50000 1 00740	282		CAL	DOTAGZ+5,1 NECESSARY BECAUSE OF	F2202820
	04274	−0 32000 0 04002	283		ANA	2BITS TRANSFERS OR COMPUTATION WITH	F2202830
	04275	−0 10000 0 04301	284		TNZ	DOF15 SYMBOL.	F2202840
	04276	0 50000 0 04005	285		CLA	BIT20 TEST FOR	F2202850
	04277	−0 32000 1 00741	286		ANA	DOTAGZ+6,1 DELTA TWO	F2202860
	04300	0 10000 0 04305	287		TZE	DOF20 INSERT	F2202870
	04301	0 50000 1 00741	288	DOF15	CLA	DOTAGZ+6,1 HAS A COUNTER BEEN	F2202880
	04302	−0 32000 0 04001	289		ANA	BITTWO FOUND.	F2202890
	04303	−0 10000 0 04322	290		TNZ	DOF40 IF NOT,	F2202900
	04304	0 02000 0 04326	291		TRA	MAKESC MAKE ONE. (RETURN IS TO DOF40)	F2202910
	04305	0 50000 1 00740	292	DOF20	CLA	DOTAGZ+5,1 IF NO COUNTER NECESSARY,	F2202920
	04306	−0 32000 0 04003	293		ANA	SUBBIT HAS SYM OCCURRED WITH	F2202930
	04307	0 10000 0 04314	294		TZE	DOF30 RECON NOT AS TYPE ONE	F2202940
	04310	0 50000 1 00743	295		CLA	DOTAGZ+8,1 CARRY. IF SO, HAS A	F2202950
	04311	−0 73400 2 00000	296		PDX	0,2 TEST BEEN FOUND.	F2202960
	04312	3 00000 2 04322	297		TXH	DOF40,2,0 IF NOT,	F2202970
	04313	0 02000 0 04326	298		TRA	MAKESC MAKE A COUNTER (RETURN IS T0 DOF40)	F2202980
	04314	0 50000 1 00743	299	DOF30	CLA	DOTAGZ+8,1 IF SYM HAS NOT OCCURRED WITH	F2202990
	04315	0 77100 0 00014	300		ARS	12 RELCON OR IN SUCH OCCURRENCES	F2203000
	04316	−0 73400 2 00000	301		PDX	0,2 WAS ALWAYS A TYPE ONE	F2203010
	04317	−3 00013 2 04322	302		TXL	DOF40,2,11 CARRY, IS CURRECT TEST	F2203020
	04320	0 50000 0 04005	303		CLA	BBIT	F2203030
	04321	−0 60200 1 00743	304		ORS	DOTAGZ+8,1	F2203040
	04322	0 50000 0 04325	305	DOF40	CLA	DOF50 MADE. TAKE SIGN AND	F2203030
	04323	0 32000 1 00743	306		ANS	DOTAGZ+8,1 TEST TABLE INTEGER OUT	F2203060
	04324	0 02000 0 04262	307		TRA	DOFOR OF TEST WORD AND EXIT.	F2203070
	04325	+007777777777	308	DOF50	OCT	7777777777	F2203080
	04326	0 50000 0 03755	309	MAKESC	CLA	L(4) INITIALIZE	F2203090
	04327	0 60100 0 03731	310		STO	DOSUBS DOSUBS AND OTHER LOCATIONS	F2203100
	04330	0 50000 0 03751	311		CLA	L(0) USED IN 1NS00.	F2203110
	04331	0 60100 0 03730	312		STO	RCSUBS	F2203120
	04332	0 60100 0 03727	313		STO	DORC	F2203130
	04333	0 60100 0 03704	314		STO	C1	F2203140
	04334	0 60100 0 03737	315		STO	CARWRD	F2203150
	04335	0 50000 0 03673	316		CLA	NEWTAG GET A NAME	F2203160
	04336	0 60100 0 03701	317		STO	TS FOR THIS	F2203170
	04337	0 40000 0 03765	318		ADD	L(1)A SUBSCRIPT AND	F2203180
	04340	0 60100 0 03673	319		STO	NEWTAG UP DATE NEWTAG.	F2203190
	04341	0 07400 4 06075	320		TSX	1NS00,4 USE 1NS00 FOR TEST INF0,LIST.	F2203200
	04342	0 50000 0 03757	321		CLA	L(6) SET UP TAG TAG	F2203210
	04343	−0 50100 0 03767	322		ORA	L(4)A ENTRY	F2203220
	04344	−0 50100 0 03737	323		ORA	CARWRD	F2203230
	04345	0 60200 0 05066	324		SLW	E4	F2203240
	04346	0 50000 0 03701	325		CLA	TS	F2203250
	04347	0 60100 0 05065	326		STO	E3	F2203270
	04350	0 50000 0 03751	327		CLA	L(0)	F2203280
	04351	0 60100 0 05064	328		STO	E2	F2203290
	04352	0 50000 0 03674	329		CLA	XC	F2203300
	04353	0 77100 0 00022	330		ARS	18	F2203310
	04354	−0 50100 0 03676	331		ORA	ALPHA	F2203320
	04355	0 60100 0 05063	332		STO	E1	F2203340
	04356	0 07400 4 05510	333		TSX	TAGENT,4 ENTER INTO TAGTAG.	F2203350
	04357	−0 53400 1 03674	334		LXD	XC,1	F2203360
	04360	0 50000 0 04003	335		CLA	ABIT	F2203370
	04361	−0 60200 1 00743	336		ORS	DOTAGZ+8,1	F2203380
	04362	0 02000 0 04322	337		TRA	DOF40 RETURN	F2203390
	04363	0 50000 1 00733	338	DOINFO	CLA	DOTAGZ,1 FOR THE DO FORMULA WHOSE	F2203400
	04364	0 73400 2 00000	339		PAX	0,2 INDEX IS IN XRA,	F2203410
	04365	−0 32000 0 03772	340		ANA	DECMSK ESTABLISH	F2203420
	04366	0 60100 0 03676	341		STO	ALPHA ALPHA,BETA,XC,XL	F2203430
	04367	−0 75400 2 00000	342		PXD	0,2	F2203440
	04370	0 60100 0 03677	343		STO	BETA	F2203450
	04371	−0 75400 1 00000	344		PXD	0,1	F2203460
	04372	0 60100 0 03674	345		STO	XC	F2203470
	04373	0 50000 1 00740	346		CLA	DOTAGZ+5,1	F2203480
	04374	−0 32000 0 03772	347		ANA	DECMSK	F2203490
	04375	0 60100 0 03675	348		STO	LC	F2203500
	04376	0 02000 4 00001	349		TRA	1,4	F2203510
	04377	−0 53400 1 03764	350	TAG00	LXD	L(1500,1 THIS ROUTINE	F2203520
	04400	0 02000 0 04407	351		TRA	TAG20 SELECTS EVERY TAG	F2203530
	04401	0 50000 1 03670	352	TAG05	CLA	FORTZ,1 IN THE RANGE OF THE	F2203540
	04402	−0 32000 0 03772	353		ANA	DECMSK CURRENT DO WHICH	F2203550
	04403	0 34000 0 03676	354		CAS	ALPHA CONTAINS THE SUBSCRIPT	F2203560
	04404	0 02000 0 04413	355		TRA	TAG30 SYMBOL OF THE CURRENT	F2203570
	04405	0 07400 4 00004	356		TSX	DIAG,4 DO, AND WHICH HAS NOT (ERROR. GO TO DIAGNOSTIC.)	F2203585
	04406	1 77777 1 04407	357	TAG10	TXI	TAG20,1,−1 PREVIOUSLY BEEN	F2203590
D	04407	3 00000 1 04401	358	TAG20	TXH	TAG05,1 PROCESSED, AND (DEC HAS FORTAG IX)	F2203600
	04410	0 02000 0 04267	359		TRA	DOFEND COMPLETELY PROCESSES	F2203610
	04411	−0 53400 1 04414	360	TAG25	LXD	TAG40,1 THE TAG. THE RETURN	F2203620
	04412	0 02000 0 04406	361		TRA	TAG10 IS TO DOFEND	F2203630
	04413	0 34000 0 03677	362	TAG30	CAS	BETA COMPARE WITH BETA.	F2203640
D	04414	−3 00000 0 04267	363	TAG40	TXL	DOFEND,0 RANGE FINISHED. (DEC HAS CURR FORTAG IX)	F2203650
	04415	0 76100 0 00000	364		NOP	IF ENTRY IS NEGATIVE,	F2203660
	04416	0 50000 1 03670	365		CLA	FORTZ,1 THEN IT HAS ALREADY	F2203670
	04417	−0 12000 0 04406	366		TMI	TAG10 BEEN PROCESSED.	F2203680
	04420	−0 32000 0 03773	367		ANA	ADDMSK STORE	F2203690
	04421	0 60100 0 03700	368		STO	TAG IN TAG,	F2203710
	04422	−0 63400 1 04414	369		SXD	TAG40,1 AND SAVE INDEX.	F2203720
	04423	0 07400 4 04520	370		TSX	SUBCOM,4 OBTAIN SUB. COM.	F2203730
	04424	0 76100 0 00000	371		NOP		F2203745
	04425	0 07400 4 05566	372		TSX	IDENT,4 USE IDENT.	F2203750
	04426	0 02000 0 04411	373		TRA	TAG25 SC. NOT WANTED.	F2203760
	04427	0 07400 4 06030	374		TSX	NAME,4 SC. TO BE PROCESSED. USE NAME.	F2203770
	04430	0 07400 4 05106	375		TSX	BRANCH,4	F2203780
	04431	0 07400 4 04614	376		TSX	SCEND,4	F2203800
	04432	0 07400 4 05510	377		TSX	TAGENT,4	F2203810
	04433	−0 53400 2 03756	378	TAG50	LXD	L(5),2	F2203820
	04434	0 50000 2 03721	379	TAG52	CLA	X1+5,2 ENTER BIT 18 WD 9	F2203830
	04435	0 10000 0 04447	380		TZE	TAG58 OF MATCHING DOTAG	F2203840
	04436	−0 73400 1 00000	381		PDX	0,1 IF 1ST SUBSCR OR	F2203850
	04437	3 00004 2 04445	382		TXH	TAG56,2,4 IF THERE IS NO	F2203860
	04440	0 50000 0 03774	383		CLA	CR1 TYPE 1 CARRY INTO	F2203870
	04441	3 00002 2 04443	384		TXH	TAG54,2,2 THE 2ND AND 3RD	F2203880
	04442	0 77100 0 00002	385		ARS	2 SUBSCRS RESPECTIVELY,	F2203890
	04443	−0 32000 0 03737	386	TAG54	ANA	CARWRD	F2203910
	04444	−0 10000 0 04447	387		TNZ	TAG58	F2203910
	04445	0 50000 0 04003	388	TAG56	CLA	ABIT ENTER BIT 18 WD 9.	F2203920
	04446	−0 60200 1 00743	389		ORS	DOTAGZ+8,1	F2203940
	04447	2 00002 2 04434	390	TAG58	TIX	TAG52,2,2	F2203950
	04450	−0 53400 4 03756	391		LXD	L(5),4 TAG 60 SEQUENCE CONCERNS	F2203960
	04451	0 50000 4 03721	392	TAG60	CLA	X1+5,4 TESTS AND ADDED TAGS.	F2203970
	04452	0 10000 0 04500	393		TZE	TAG68 FOR EACH INDEXED SUBSCRIPT,	F2203980
	04453	−0 73400 1 00000	394		PDX	0,1 DETERMINE F IRST WHETHER	F2203990
	04454	0 50000 0 03730	395		CLA	RCSUBS OR NOT IT	F2204000
	04455	−0 50100 0 03727	396		ORA	DORC OCCURS WITH	F2204010
	04456	0 10000 0 04470	397		TZE	TAG66 A RELCON	F2204020
	04457	−3 00001 4 04465	398		TXL	TAG64,4,1 IF SO, PUT IN	F2204030
	04460	0 50000 0 03774	399		CLA	CR1 SUBBIT MEANING A TEST	F2204040
	04461	3 00003 4 04463	400		TXH	TAG62,4,3 IS NEEDED UNLESS	F2204050
	04462	0 77100 0 00002	401		ARS	2 THE 1ST AND 2ND.	F2204070
	04463	−0 32000 0 03737	402	TAG62	ANA	CARWRD SUBSCR PROMOTE A	F2204070
	04464	−0 10000 0 04500	403		TNZ	TAG68 TYPE ONE CARRY (LEFT	F2204080
	04465	0 50000 0 04003	404	TAG64	CLA	SUBBIT OR CENTER RESPECTIVELY)	F2204090
	04466	−0 60200 1 00740	405		ORS	DOTAGZ+5,1 IS	F2204100
D	04467	−3 00000 0 04500	406	TAG65	TXL	TAG68,0 NEEDED.	F2204110
	04470	0 50000 0 04004	407	TAG66	CLA	BIT19	F2204120
	04471	−0 60200 1 00743	408		ORS	DOTAGZ+8,1	F2204130
	04472	0 50000 1 00740	409		CLA	DOTAGZ+5,1 IF THE SUBSCRIPT DOES NOT OCCUR	F2204140
	04473	−0 32000 0 04002	410		ANA	2BITS WITH A RELCON, DETERMINE WHETHER OR	F2204160
	04474	−0 10000 0 04500	411		TNZ	TAG68 NOT A COUNTER HAS ALREAD Y BEEN REQUESTED.	F2204170
	04475	−0 63400 4 04467	412		SXD	TAG65,4 IF SO TAKE NEXT INDEDEX SUBSCR. REQUESTED.	F2204180
	04476	0 07400 2 04665	413		TSX	TEST,2 IF NOT, USE ROUTINE TEST.	F2204190
	04477	−0 53400 4 04467	414		LXD	TAG65,4 THEN TAKE NEXT INDEXED SUBSCRIPT.	F2204200
	04500	2 00002 4 04451	415	TAG68	TIX	TAG60,4,2	F2204220
	04501	−0 53400 1 04414	416	TAG70	LXD	TAG40,1 SET ALL OCCURRANCES	F2204230
	04502	0 50000 1 03670	417	TAG72	CLA	FORTZ,1 OF THIS TAG, IN FORTAG,	F2204240
	04503	−0 32000 0 03772	418		ANA	DECMSK IN THE RANGE OF THIS	F2204240
	04504	0 34000 0 03677	419		CAS	BETA DO, NEGATIVE.	F2204250
D	04505	−3 00000 0 04411	420	TAG75	TXL	TAG25,0	F2204260
	04506	0 76100 0 00000	421		NOP		F2204270
	04507	0 50000 1 03670	422		CLA	FORTZ,1	F2204280
	04510	−0 32000 0 03773	423		ANA	ADDMSK	F2204290
	04511	0 40200 0 03700	424		SUB	TAG	F2204300
	04512	−0 10000 0 04515	425		TNZ	TAG80	F2204310
	04513	−0 50000 0 03770	426		CAL	L(MZ)	F2204320
	04514	−0 60200 1 03670	427		ORS	FORTZ,1	F2204330
	04515	1 77777 1 04516	428	TAG80	TXI	TAG90,1,−1	F2204340
D	04516	3 00000 1 04502	429	TAG90	TXH	TAG72,1 . (DEC HAS FORTAG IX)	F2204380
	04517	0 02000 0 04411	430		TRA	TAG25 RETURN FOR NEXT TAG.	F2204370
			431			THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE	F2204380
			432			CORRESPONDING SUBSCRIPT COMPINATION FROM THE TAU	F2204390
			433			DRUM AND P0SITIONS IT IN PROPER FORMAT IN STORAGE.	F2204400
	04520	−0 63400 4 04601	434	SUBCOM	SXD	SUB085,4 SAVE LINKAGE INDEX.	F2204410
	04521	−0 53400 1 04607	435		LXD	SUBORG,1 INITIALIZE ERROR COUNTER	F2204420
	04522	0 76200 0 00304	436	SUB010	RDS	TAUDRM SELECT TAU DRUM.	F2204430
	04523	−0 53400 4 04611	437		LXD	SUBORG+2,4 INITIALIZE	F2204440
	04524	−0 75400 0 00000	438		PXD	0,0 SUBSCRIPT COMBINATION	F2204450
	04525	0 60100 4 03714	439	SUB020	STO	C1+8,4 SPACE	F2204460
	04526	2 00001 4 04525	440		TIX	SUB020,4,1 TO ZERO.	F2204470
	04527	0 50000 0 03700	441		CLA	TAG COMPUTE	F2204480
	04530	0 76500 0 00011	442		LRS	9 DRUM	F2204490
	04531	0 73400 6 00000	443		PAX	0,6 ADDRESS.	F2204500
	04532	−0 75400 0 00000	444		PXD	0,0 TAU ONE ADD. IS ORG+3TAU.	F2204510
	04533	0 76300 0 00011	445		LLS	9 TAU TWO ADD. IS ORG+5TAU.	F2204520
	04534	0 60100 0 04612	446		STO	SUBES1 TAU THREE ADD. IS ORG+7TAU	F2204530
	04535	0 76700 0 00001	447		ALS	1 STORE	F2204540
	04536	0 60100 0 04613	448		STO	SUBES2 ADDRESS	F2204550
	04537	0 50000 4 04612	449		CLA	SUBORG+3,4 IN SUBES1	F2204560
	04540	0 40000 0 04612	450		ADD	SUBES1 FOR LDA	F2204570
	04541	0 40000 0 04613	451	SUB030	ADD	SUBES2 INSTRUCTION.	F2204580
	04542	2 00001 4 04541	452		TIX	SUB030,4,1	F2204590
	04543	0 62100 0 04612	453		STA	SUBES1	F2204600
	04544	0 46000 0 04612	454		LDA	SUBES1 COPY SUB. COMB.	F2204610
	04545	0 70000 0 03704	455		CPY	C1 TAU ONE, TWO, THREE	F2204620
	04546	−3 00002 2 04550	456		TXL	SUB040,2,2	F2204630
	04547	0 70000 0 03710	457		CPY	C3 TAU 3	F2204640
	04550	0 70000 0 03705	458	SUB040	CPY	S1 TAU 1,2,3	F2204650
	04551	−3 00001 2 04556	459		TXL	SUB060,2,1	F2204660
	04552	0 70000 0 03707	460		CPY	S2 TAU 2,3	F2204670
	04553	−3 00002 2 04555	461		TXL	SUB050,2,2	F2204680
	04554	0 70000 0 03711	462		CPY	S3 TAU 3	F2204690
	04555	0 70000 0 03712	463	SUB050	CPY	D1 TAU 2,3	F2204700
	04556	0 70000 0 04612	464	SUB060	CPY	SUBES1 TAU 1,2,3	F2204710
	04557	−0 53400 4 04607	465		LXD	SUBORG,4 COMPUTE CHECK SUM	F2204720
	04560	−0 50000 0 03704	466		CAL	C1 AND COMPARE WITH	F2204730
	04561	0 36100 4 03713	467	SUB070	ACL	C1+7,4 ENTRY CHECK SUM.	F2204740
	04562	2 00001 4 04561	468		TIX	SUB070,4,1 THREE ATTEMPTS ARE MADE	F2204750
	04563	0 60200 0 04613	469		SLW	SUBES2 T0 READ SC CORRECTLY.	F2204760
	04564	0 50000 0 04613	470		CLA	SUBES2 IF ERROR STILL PRESENT,	F2204770
	04565	0 40200 0 04612	471		SUB	SUBES1 COMPLETE ROUTINE, MAKE.ERROR RET.	F2204780
	04566	0 10000 0 04571	472		TZE	SUB075 CHECK SUMS AGREE, TRA.	F2204790
	04567	2 00001 1 04522	473		TIX	SUB010,1,1 CHECK SUMS DISAGREE	F2204805
	04570	0 07400 4 00004	474	PAT03	TSX	DIAG,4 IN READING TAU FROM DRUM. ERROR. GO TO DIAGNOSTIC.	F2204815
	04571	−0 53400 4 04610	475	SUB075	LXD	SUBORG+1,4 REARRANGE C1,C2,D1,D2,	F2204820
	04572	0 50000 4 03713	476	SUB080	CLA	C1+7,4 TO COMPLY WITH CORE	F2204830
	04573	0 73400 2 00000	477		PAX	0,2 STORAGE FORMAT.	F2204840
	04574	−0 32000 0 03772	478		ANA	DECMSK	F2204850
	04575	0 60100 4 03713	479		STO	C1+7,4	F2204860
	04576	−0 75400 2 00000	480		PXD	0,2	F2204870
	04577	−2 00006 4 04602	481		TNX	SUB090,4,6	F2204880
	04600	0 60100 0 03706	482		STO	C2	F2204890
D	04601	−3 00000 0 04572	483	SUB085	TXL	SUB080,0	F2204900
	04602	0 60100 0 03713	484	SUB090	STO	D2	F2204910
	04603	−0 53400 4 04601	485		LXD	SUB085,4 RESTORE LTNKAGE INDEX,	F2204920
	04604	0 76100 0 00000	486		NOP		F2204935
	04605	0 02000 4 00002	487		TRA	2,4 A NORMAL RETURN.	F2204940
	04606	0 76100 0 00000	488	SUB100	NOP		F2204955
	04607	+000006001356	489	SUBORG	OCT	6001356 DEC. IS 6, ADD. IS ORG. TAU 3	F2204960
	04610	+000007000454	490		OCT	7000454 DEC. IS 7, ADD. IS ORG. TAU 2	F2204970
	04611	+000010000000	491		OCT	10000000 DEC. IS 8, ADD. IS ORG. TAU 1	F2204980
A	04612	0 00000 0 00000	492	SUBES1	HTR	E.S.	F2204990
A	04613	0 00000 0 00000	493	SUBES2	HTR	E.S.	F2205000
			494			SCEND COLLECTS TAGTAG ENTRY AND MAKES TABLE ENTRY	F2205010
	04614	0 50000 0 03703	495	SCEND	CLA	GR0UP ALL OF SCEND IS CONCERNED	F2205020
	04615	0 60100 0 03702	496		STO	TAG1 WITH GENERATING THE	F2205030
	04616	0 50000 0 03731	497		CLA	DOSUBS TAGTAG ENTRY FROM ITS	F2205040
	04617	−0 50100 0 03734	498		ORA	DUPES	F2205050
	04620	0 77100 0 00022	499		ARS	18 VARIOUS COMPONENTS.	F2205060
	04621	−0 60200 0 03702	500		ORS	TAG1	F2205070
	04622	0 50000 0 03730	501		CLA	RCSUBS	F2205079
	04623	−0 50100 0 03727	502		ORA	DORC	F2205080
	04624	0 77100 0 00017	503		ARS	15	F22D5100
	04625	−0 60200 0 03702	504		ORS	TAG1	F2205110
	04626	0 50000 0 03734	505		CLA	DUPES	F2205120
	04627	0 77100 0 00011	506		ARS	9	F2205130
	04630	−0 60200 0 03702	507		ORS	TAG1	F2205140
	04631	−0 50000 0 03737	508		CAL	CARWRD	F2205150
	04632	−0 60200 0 03702	509		ORS	TAG1	F2205160
	04633	−0 53400 1 03756	510		LXD	L(5),1	F2205170
	04634	0 50000 0 03752	511	SCE010	CLA	L(1)	F2205180
	04635	0 34000 1 03711	512		CAS	C1+5,1 GENERATES THE THREE BIT	F2205190
	04636	0 02000 0 04645	513		TRA	SCE020 TAG SHOWING WHICH	F2205200
	04637	0 02000 0 04645	514		TRA	SCE020 COEFFICIENTS ARE GREATER	F2205210
	04640	−0 75400 1 00000	515		PXD	0,1 THAN ONE.	F2205220
	04641	−3 00001 1 04643	516		TXL	SCE015,1,1	F2205230
	04642	0 40200 0 03752	517		SUB	L(1)	F2205240
	04643	0 77100 0 00006	518	SCE015	ARS	6	F2205250
	04644	−0 60200 0 03702	519		ORS	TAG1	F2205260
	04645	2 00002 1 04634	520	SCE020	TIX	SCE010,1,2	F2205270
	04646	0 50000 0 03702	521		CLA	TAG1 TAG1 IS NOW COMPLETE.	F2205280
	04647	0 60100 0 05066	522		STO	E4 CONSTRUCT THE TAGTAG	F2205290
	04650	0 50000 0 03700	523		CLA	TAG ENTRY	F2205300
	04651	0 76700 0 00022	524		ALS	18	F2205310
	04652	0 40000 0 03701	525		ADD	TS	F2205320
	04653	0 60100 0 05065	526		STO	E3	F2205330
	04654	0 50000 0 03720	527		CLA	X3	F2205340
	04655	0 77100 0 00022	528		ARS	18	F2205350
	04656	0 40000 0 03716	529		ADD	X2	F2205360
	04657	0 60100 0 05064	530		STO	E2	F2205370
	04660	0 50000 0 03714	531		CLA	X1	F2205380
	04661	0 77100 0 00022	532		ARS	18	F2205390
	04662	0 40000 0 03676	533		ADD	ALPHA	F2205400
	04663	0 60100 0 05063	534		STO	E1	F2205410
	04664	0 02000 4 00001	535		TRA	1,4	F2205420
	04665	0 50000 1 00743	536	TEST	CLA	DOTAGZ+8,1 IF A SUFFICIENTLY GOOD	F2205430
	04666	−0 12000 2 00001	537		TMI	1,2 TEST PREVIOUSLY FOUND, EXIT.	F2205440
	04667	2 00001 4 04670	538		TIX	TEST10,4,1 XRC CONTAINS 5,3,1,	F2205450
	04670	−0 75400 4 00000	539	TEST10	PXD	0,4 DEPENDING ON P0SITION NR	F2205460
	04671	0 76700 0 00003	540		ALS	3 1,2,3. CONSTRUCT A	F2205470
	04672	−0 50100 0 03703	541		ORA	GR0UP TABLE SEARCH MASK IN	F2205480
	04673	−3 00001 4 04701	542		TXL	TEST20,4,1 WHICH THE FORTH OCTAL	F2205490
	04674	0 60100 0 04732	543		STO	TEST85 DIGIT IS THE CARRY BIT	F2205500
	04675	0 50000 0 03737	544		CLA	CARWRD INF0. FOR THE POSITION	F2205510
	04676	0 76700 4 00005	545		ALS	5,4 BEING CONSIDERED THE	F2205520
	04677	−0 32000 0 04733	546		ANA	TEST90 FIFTH OCTAL DIGIT IS THE	F2205530
	04700	−0 50100 0 04732	547		ORA	TEST85 POSITION BIT, AND THE	F2205540
	04701	−0 53400 4 04704	548	TEST20	LXD	TEST35,4 SIXTH OCTAL DIGIT	F2205550
	04702	0 34000 4 04754	549	TEST30	CAS	TESTAB+15,4 IS THE GROUP NUMBER.	F2205560
	04703	1 77777 4 04706	550		TXI	TEST40,4,−1 SEARCH TESTAB FOR	F2205570
	04704	−3 00017 0 04707	551	TEST35	TXL	TEST50,0,15 ENTRY AND CONSIDER	F2205580
	04705	1 77777 4 04706	552		TXI	TEST40,4,−1 C(XRC) AFTER SEARCH, IF	F2205590
	04706	3 00000 4 04702	553	TEST40	TXH	TEST30,4,0 ENTRY NOT FOUND C(XRC)=0.	F2205600
	04707	−0 63400 4 04715	554	TEST50	SXD	TEST60,4 COMPARE THIS INTEGER	F2205610
	04710	0 50000 1 00743	555		CLA	DOTAGZ+8,1 WITH PREVIOUS.INTEGER,	F2205620
	04711	−0 73400 4 00000	556		PDX	0,4 IF ANY, IF NEW NR. IS LESS	F2205630
	04712	−3 00000 4 04720	557		TXL	TEST75,4,0 THAN OLD, USE NEW TAG	F2205640
	04713	0 77100 0 00014	558		ARS	12 FOR TEST. OTHERWISE	F2205650
	04714	−0 73400 4 00000	559		PDX	0,4 USE OLD TAG.	F2205660
D	04715	−3 00000 4 04731	560	TEST60	TXL	TEST80,4 (DEC HAS TEST TAB NR. FOR THIS S C.)	F2205670
	04716	0 50000 0 04734	561	TEST70	CLA	TEST95 IF THE NEW TAG IS	F2205680
	04717	0 32000 1 00743	562		ANS	DOTAGZ+8,1 USED, AND C(XRC)	F2115690
	04720	−0 53400 4 04715	563	TEST75	LXD	TEST60,4 AFTER SEARCH WAS ZERO,	F2205700
	04721	−0 75400 4 00000	564		PXD	0,4 SET DOTAGZ+8 WORD	F2205710
	04722	0 77100 0 00006	565		ARS	6 NEGATIVE.	F2205720
	04723	−0 50100 0 03701	566		ORA	TS	F2205730
	04724	0 76700 0 00022	567		ALS	18	F2205740
	04725	−0 60200 1 00743	568		ORS	DOTAGZ+8,1	F2205750
	04726	3 00000 4 04731	569		TXH	TEST80,4,0	F2205760
	04727	−0 50000 0 03770	570		CAL	L(MZ)	F2205770
	04730	−0 60200 1 00743	571		ORS	DOTAGZ+8,1	F2205780
	04731	0 02000 2 00001	572	TEST80	TRA	1,2	F2205790
A	04732	0 00000 0 00000	573	TEST85	HTR	STORAGE FOR COMPOSED TST WORD.	F2205800
	04733	+000300000000	574	TEST90	OCT	300000000 BITS 10, 11 )-. - -.	F2205810
	04734	+000000777777	575	TEST95	OCT	777777	F2205820
	04735	+000241000000	576	TESTAB	OCT	241000000 FIRST SIGNIF DIGIT CONTAINS	F2205830
	04736	+000221000000	577		OCT	221000000 A TWO IF TYPE ONE CARRY ,	F2205840
	04737	+000244000000	578		OCT	244000000 ONE IF TYPE TWO FROM LEFT OR	F2205850
	04740	+000222000000	579		OCT	222000000 CENTER. (4TH OCT DIG). NEXT	F2205860
	04741	+000141000000	580		OCT	141000000 HAS 4 IF POSIT OF SUBSC IS	F2205870
	04742	+000121000000	581		OCT	121000000 LEFT, 2 IF CENTER, 0 IF RIGHT	F2205880
	04743	+000144000000	582		OCT	144000000 (5TH OCT DIGIT). FINAL DIG HAS	F2205890
	04744	+000122000000	583		OCT	122000000 GR0UP NR. (6TH OCT DIG).	F2205900
	04745	+000045000000	584		OCT	45000000	F2205910
	04746	+000041000000	585		OCT	41000000	F2205920
	04747	+000021000000	586		OCT	21000000	F2205930
	04750	+000044000000	587		OCT	44000000	F2205940
	04751	+000022000000	588		OCT	22000000	F2205950
	04752	+000043000000	589		OCT	43000000	F2205960
	04753	+000023000000	590		OCT	23000000	F2205970
	04754	−0 63400 4 04770	591	CARRY	SXD	CAR05,4 SAVE LINKAGE	F2205980
	04755	0 50000 2 03720	592		CLA	X1+4,2 PUT LEFT INDEX	F2205990
	04756	−0 73400 1 00000	593		PDX	0,1 IN XRA	F2206000
	04757	0 50000 2 03722	594		CLA	X1+6,2 PUT RIGHT INDEX	F2206010
	04760	−0 73400 4 00000	595		PDX	0,4 IN XRC	F2206020
	04761	0 50000 1 00740	596		CLA	DOTAGZ+5,1 TEST LEFS SUB. DO	F2206030
	04762	−0 32000 0 03776	597		ANA	CARMSK CARRY BITS.	F2206040
	04763	0 10000 0 05022	598		TZE	CAR30 EXIT IF NO CARRY.	F2206050
	04764	0 50000 1 00741	599		CLA	DOTAGZ+6,1 COMPARE	F2206060
	04765	−0 32000 0 03772	600		ANA	DECMSK NO CARRY TRA LEVEL	F2206070
	04766	0 34000 0 03723	601		CAS	LL AND LOW LEVEL.	F2206080
	04767	0 02000 0 05022	602		TRA	CAR30 EXIT	F2206090
D	04770	−3 00000 0 05022	603	CAR05	TXL	CAR30,0	F2206100
	04771	0 50000 1 00740	604		CLA	DOTAGZ+5,1 COMPUTE FOR LEFT	F2206110
	04772	−0 32000 0 03773	605		ANA	ADDMSK SUBSCRIPT THE QUANTITY	F2206120
	04773	0 60100 0 05024	606		STO	CAR40 C*X (COEF. TIMES ADDED	F2206130
	04774	0 56000 0 05024	607		LDQ	CAR40 VALUE).	F2206140
	04775	0 20000 2 03710	608		MPY	C1+4,2 COMPUTE FOR RIGHT	F2206150
	04776	−0 60000 0 05024	609		STQ	CAR40 SUBSCRIPT THE QUANTITY	F2206160
	04777	0 56000 0 03712	610		LDQ	D1 C*N3*D(L) (O0EF.TIMES	F2206170
	05000	3 00002 2 05002	611		TXH	CAR10,2,2 INCREMENT TIMES DIM. OF	F2206180
	05001	0 56000 0 03713	612		LDQ	D2 LEFT SUBSCR1PT.	F2206190
	05002	0 20000 4 00737	613	CAR10	MPY	DOTAGZ+4,4 IF THESE QUANTIT1ES	F2206200
	05003	0 20000 2 03712	614		MPY	C1+6,2 ARE UNEQUAL,	F2206210
	05004	0 76700 0 00021	615		ALS	17 EXIT	F2206220
	05005	0 40200 0 05024	616		SUB	CAR40	F2206230
	05006	−0 10000 0 05022	617		TNZ	CAR30 OBTAIN LEFT	F2206240
	05007	0 50000 1 00740	618		CLA	DOTAGZ+5,1 SUB. DOTAG	F2206250
	05010	−0 32000 0 03776	619		ANA	CARMSK CARRY BITS AGAIN.	F2206260
	05011	0 77100 0 00017	620		ARS	15 TEST FOR	F2206270
	05012	0 76000 0 00001	621		LBT	CARRY TYPE 0NE	F2206280
	05013	0 02000 0 05016	622		TRA	CAR15 OR CARRY TYPE	F2206290
	05014	0 50000 0 03774	623		CLA	CR1 TWO.	F2206300
	05015	0 02000 0 05017	624		TRA	CAR20 OBTAIN PROPER	F2206310
	05016	0 50000 0 03775	625	CAR15	CLA	CR2 TAGTAG CARRY BIT,	F2206320
	05017	3 00002 2 05021	626	CAR20	TXH	CAR25,2,2 SHIFT IF NECESSARY FOR	F2206330
	05020	0 77100 0 00002	627		ARS	2 CENTER SUB. AND	F2206340
	05021	−0 60200 0 03737	628	CAR25	ORS	CARWRD PLACE IN CARWRD.	F2206350
	05022	−0 53400 4 04770	629	CAR30	LXD	CAR05,4 EXIT	F2206I60
	05023	0 02000 4 00001	630		TRA	1,4	F2206370
A	05024	0 00000 0 00000	631	CAR40	HTR	E.S.	F2206380
	05025	−0 63400 4 05060	632	LIST	SXD	LIST40,4 SAVE LINKAGE	F2206400
	05026	−0 73400 1 00000	633		PDX	0,1 PUT INDEX QUANTITY IN XRA	F2206410
	05027	0 73400 6 00000	634		PAX	0,6 PUT NR. OF WDS IN XRB,XRC.	F2206420
	05030	0 40000 0 05061	635		ADD	LIST50 COMPUTE NR, OF WRDS	F2206430
	05031	0 62100 0 05046	636		STA	LIST30 PLUS ORIGIN EI AND	F2206440
	05032	0 62100 0 05041	637		STA	LIST20 INITIALIZE ADDRESSES.	F22064S0
	05033	0 50000 1 05106	638		CLA	LADDIN+5,1 TEST	F2206460
	05034	0 77100 0 00022	639		ARS	18 FOR	F2206470
	05035	0 40200 1 05101	640		SUB	LADDS+5,1 FULL	F2206480
	05036	−0 10000 0 05040	641		TNZ	LIST10 TABLE.	F2206490
	05037	0 07400 4 07774	642		TSX	BURNCE,4 DRUM OVERFLOW, GO SAVE IRA BEFORE DIAG.	F2206505
	05040	−0 75400 0 00000	643	LIST10	PXD	0,0 ZERO IN ACC.	F2206510
	05041	0 36100 2 00000	644	LIST20	ACL	0,2 COMPUTE	F2206520
	05042	2 00001 2 05041	645		TIX	LIST20,2,1 ENTRY	F2206530
	05043	0 76600 0 00303	646		WRS	ADRUM SELECT DRUMF	F2206535
	05044	0 60200 0 05062	647		SLW	LIST60 CHECK SUM.	F2206540
	05045	0 46000 1 05101	648		LDA	LADDS+5,1 COPY	F2206550
	05046	0 70000 4 00000	649	LIST30	CPY	0,4 ENTRY	F2206560
	05047	2 00001 4 05046	650		TIX	LIST30,4,1 AND	F2206570
	05050	0 70000 0 05062	651		CPY	LIST60 CHECK SUM.	F2206580
	05051	0 50000 1 05101	652		CLA	LADDS+5,1 COMPUTE	F2206590
	05052	0 40000 1 05074	653		ADD	TSXC0M+5,1 NEXT	F2206600
	05053	0 40000 0 03765	654		ADD	L(1)A ENTRY	F2206610
	05054	−0 32000 0 03773	655		ANA	ADDMSK ADDRESS.	F2206620
	05055	0 60100 1 05101	656		STO	LADDS+5,1	F2206630
	05056	−0 53400 4 05060	657		LXD	LIST40,4 EXIT	F2206640
	05057	0 02000 4 00001	658		TRA	1,4	F2206650
A	05060	0 00000 0 00000	659	LIST40	HTR	E.S.	F2206660
	05061	0 00000 0 05063	660	LIST50	HTR	E1 L(E1)	F2206670
A	05062	0 00000 0 00000	661	LIST60	HTR	E.S.	F2206680
			662			F0UR WORD ENTRY BLOCK	F2206690
A	05063	0 00000 0 00000	663	E1	HTR		F2206700
A	05064	0 00000 0 00000	664	E2	HTR		F2206710
A	05065	0 00000 0 00000	665	E3	HTR		F2206720
A	05066	0 00000 0 00000	666	E4	HTR		F2206730
			667			FIVE KEY WORDS, C(DEC)=INDEX QUANTITIES, C(ADD)=NR. OF WORDS.	F2206740
	05067	0 00005 0 00002	668	TSXC0M	HTR	2,0,5 ACC KEY WORD WHEN TSX TO LIST.	F2206750
	05070	0 00004 0 00003	669	TRASTO	HTR	3,0,4 (ADD DOES NOT INCL CHECK SUM)	F2206760
	05071	0 00003 0 00002	670	NAMKEY	HTR	2,0,3	F2206770
	05072	0 00002 0 00002	671	CHATAG	HTR	2,0,2	F2206780
	05073	0 00001 0 00004	672	DRMTAG	HTR	4,0,1 (ADTAG)	F2206790
			673			FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART.	F2206800
A	05074	0 00000 0 00000	674	LADDS	HTR	TSXC0M - ADD OF LADDIN - LAST PLUS 1	F2206810
A	05075	0 00000 0 00000	675		HTR	TRASTO	F2206820
A	05076	0 00000 0 00000	676		HTR	NAMKEY	F2206830
A	05077	0 00000 0 00000	677		HTR	CHATAG	F2206840
A	05100	0 00000 0 00000	678		HTR	DRMTAG	F2206850
			679			FIVE WORDS, C(ADD)=ORIGIN, C(DEC)=LAST TABLE LOC. PLUS ONE	F2206860
	05101	0 01756 0 01302	680	LADDIN	HTR	706,0,1006 TSXCOM	F2206870
	05102	0 01300 0 00460	681		HTR	304,0,704 TRASTO	F2206880
	05103	0 02662 0 01760	682		HTR	1008,0,1458 NAMKEY	F2206890
	05104	0 00456 0 00002	683		HTR	2,0,302 CHATAG	F2206900
	05105	0 03650 0 02664	684		HTR	1460,0,1960 DRMTAG	F2206910
	05106	−0 63400 4 05122	685	BRANCH	SXD	BRA45,4 IF THERE ARE RELCONS	F2206920
	05107	0 50000 0 03725	686		CLA	NRRC (NOT DORC) IN THE SC,	F2206930
	05110	0 10000 0 05112	687		TZE	BRA10 USE	F2206940
	05111	0 07400 4 05534	688		TSX	RELCON,4 RELCON.	F2206950
	05112	−0 53400 1 03726	689	BRA10	LXD	NRDS,1 THIS ROUTINE	F2206960
	05113	3 00001 1 05116	690		TXH	BRA30,1,1 CONDENSES	F2206970
	05114	0 07400 4 06075	691	BRA20	TSX	1NS00,4 DUPLICATE	F2206980
	05115	0 02000 0 05136	692		TRA	BRA90 SUBSCRIPTS	F2206990
	05116	3 00002 1 05123	693	BRA30	TXH	BRA50,1,2 AND	F2207000
	05117	0 50000 0 03734	694		CLA	DUPES TRANSFERS	F2207010
	05120	−0 10000 0 05114	695		TNZ	BRA20 TO	F2207020
	05121	0 07400 4 06147	696	BRA40	TSX	2NS00,4 ROUTINES	F2207030
D	05122	−3 00000 0 05136	697	BRA45	TXL	BRA90,0 1NS00, 2NS00, 3NS00	F2207040
	05123	−0 53400 4 03734	698	BRA50	LXD	DUPES,4 AFTER	F2207050
	05124	3 00006 4 05114	699		TXH	BRA20,4,6 PROCESSING,	F2207060
	05125	−3 00000 4 05135	700		TXL	BRA80,4,0 RETURN	F2207070
	05126	3 00005 4 05132	701		TXH	BRA60,4,5 IS TO	F2207080
	05127	−3 00003 4 05132	702		TXL	BRA60,4,3 DRMENT OR	F2207090
	05130	0 50000 0 03754	703		CLA	L(3) TAG00	F2207100
	05131	0 02000 0 05133	704		TRA	BRA70	F2207110
	05132	0 50000 0 03756	705	BRA60	CLA	L(5)	F2207120
	05133	0 60100 0 03731	706	BRA70	STO	DOSUBS	F2207130
	05134	0 02000 0 05121	707		TRA	BRA40	F2207140
	05135	0 07400 4 06246	708	BRA80	TSX	3NS00,4	F2207150
	05136	−0 53400 4 05122	709	BRA90	LXD	BRA45,4	F2207160
	05137	0 02000 4 00001	710		TRA	1,4	F2207170
	05140	−0 63400 4 05204	711	RSR	SXD	RSR20,4 SAVE LINKAGE	F2207180
	05141	−0 63400 1 05205	712		SXD	RSR30,1 SAVE INDEX	F2207190
	05142	0 50000 1 00741	713		CLA	DOTAGZ+6,1 HAS COUNTER ADJUSTMENT	F2207200
	05143	−0 32000 0 04003	714		ANA	BIT18 INSTRUCTION BEEN ENTERED.	F2207210
	05144	−0 10000 0 05164	715		TNZ	RSR10 IF SO, GO TO RSR10	F2207220
	05145	0 50000 0 04003	716		CLA	BIT18 IF NOT, ENTER IN	F2207230
	05146	−0 60200 1 00741	717		ORS	DOTAGZ+6,1 TRASTO AN ENTRY TO CAUSE	F2207240
	05147	0 50000 1 00733	718		CLA	DOTAGZ,1 THE COUNTER TO BE	F2207250
	05150	−0 76000 0 00003	719		SSM		F2207260
	05151	0 60100 0 05063	720		STO	E1 DECREASED BY N1, WHICH	F2207270
	05152	0 50000 1 00740	721		CLA	DOTAGZ+5,1 WILL MAKE IT USEFUL AS	F2207280
	05153	−0 32000 0 03772	722		ANA	DECMSK AS A RESET SUB. COMB.	F2207290
	05154	0 77100 0 00022	723		ARS	18	F2207300
	05155	0 60100 0 05064	724		STO	E2	F2207310
	05156	0 50000 1 00743	725		CLA	DOTAGZ+8,1	F2207320
	05157	−0 32000 0 03772	726		ANA	DECMSK	F2207330
	05160	−0 50100 1 00735	727		ORA	DOTAGZ+2,1	F2207340
	05161	0 60100 0 05065	728		STO	E3	F2207350
	05162	0 50000 0 05070	729		CLA	TRASTO	F2207360
	05163	0 07400 4 05025	730		TSX	LIST,4	F2207370
	05164	−0 53400 1 05205	731	RSR10	LXD	RSR30,1 ENTER IN TRASTO	F2207380
	05165	0 50000 1 00743	732		CLA	DOTAGZ+8,1 AN ENTRY T0 CAUSE	F2207390
	05166	−0 32000 0 03772	733		ANA	DECMSK THE TAG UNDER	F2207400
	05167	−0 50100 0 03701	734		ORA	TS CONSIDERATION	F2207410
	05170	−0 76000 0 00003	735		SSM		F2207420
	05171	0 60100 0 05065	736		STO	E3 TO BE RESET	F2207430
	05172	0 50000 0 03741	737		CLA	TL2 BY THE ADJUSTED	F2207440
	05173	0 77100 0 00022	738		ARS	18 COUNTER AT THE	F2207450
	05174	−0 50100 0 03740	739		ORA	TL1 PROPER TIMES.	F2207460
	05175	0 60100 0 05064	740		STO	E2	F2207470
	05176	0 50000 1 00733	741		CLA	DOTAGZ,1	F2207480
	05177	0 60100 0 05063	742		STO	E1	F2207490
	05200	0 50000 0 05070	743		CLA	TRASTO	F2207500
	05201	0 07400 4 05025	744		TSX	LIST,4	F2207510
	05202	−0 53400 4 05204	745		LXD	RSR20,4	F2207520
	05203	0 02000 4 00001	746		TRA	1,4	F2207530
A	05204	0 00000 0 00000	747	RSR20	HTR		F2207540
A	05205	0 00000 0 00000	748	RSR30	HTR		F2207550
	05206	−0 63400 4 05212	749	DRMENT	SXD	DRM05,4 THIS ROUTINE	F2207560
	05207	−0 53400 2 04006	750		LXD	ADTXX,2 PROCESSES THE	F2207570
	05210	−0 63400 2 05241	751		SXD	DRM20,2 ADDED TAG TABLE	F2207580
	05211	0 53400 2 04006	752		LXA	ADTXX,2	F2207590
D	05212	−3 00000 0 05241	753	DRM05	TXL	DRM20,0	F2207600
	05213	0 50000 2 07135	754	DRM10	CLA	ADTAGZ,2 OBTAIN FIRST ENTRY WORD.	F2207610
	05214	−0 73400 1 00000	755		PDX	0,1 PUT INDEX IN XRA.	F2207620
	05215	−0 32000 0 03773	756		ANA	ADDMSK STORE TAG	F2207630
	05216	0 60100 0 03700	757		STO	TAG IN TAG	F2207640
	05217	0 60100 0 03701	758		STO	TS AND TS	F2207650
	05220	−0 75400 1 00000	759		PXD	0,1 PUT INDEX	F2207660
	05221	0 60100 0 03674	760		STO	XC IN XC	F2207670
	05222	−0 63400 2 05244	761		SXD	DRM30,2 SAVE INDEX B.	F2207680
	05223	0 50000 2 07136	762		CLA	ADTAGZ+1,2 OBTAIN WORD TWO.	F2207690
	05224	−0 12000 0 05245	763		TMI	DRM40 TRA IF RESET ENTRY.	F2207700
	05225	0 60100 0 03701	764		STO	TS SAVE NAME IN TS.	F2207710
	05226	0 07400 4 04363	765		TSX	DOINFO,4 USE DOINFO	F2207720
	05227	0 07400 4 04520	766		TSX	SUBCOM,4 AND	F2207730
	05230	0 76100 0 00000	767		NOP	OTHER	F2207745
	05231	0 07400 4 05566	768		TSX	IDENT,4 ROUTINES	F2207750
	05232	0 07400 4 00004	769		TSX	DIAG,4 IN ORDER TO (ERROR. GO TO DIAGNOSTIC.)	F2207765
	05233	0 07400 4 05106	770		TSX	BRANCH,4 PROCESS	F2207770
	05234	0 07400 4 04614	771		TSX	SCEND,4 ENTRY.	F2207780
	05235	0 50000 0 05073	772		CLA	DRMTAG	F2207790
	05236	0 07400 4 05025	773		TSX	LIST,4 ENTER RESULT IN DRMTAG.	F2207800
	05237	−0 53400 2 05244	774	DRM15	LXD	DRM30,2	F2207810
	05240	1 77776 2 05241	775		TXI	DRM20,2,−2	F2207820
D	05241	3 00000 2 05213	776	DRM20	TXH	DRM10,2	F2207830
	05242	−0 53400 4 05212	777		LXD	DRM05,4	F2207840
	05243	0 02000 4 00001	778		TRA	1,4	F2207850
A	05244	0 00000 0 00000	779	DRM30	HTR		F2207860
	05245	0 73400 4 00000	780	DRM40	PAX	0,4 FOR RESET ENTRY,	F2207870
	05246	−0 32000 0 03772	781		ANA	DECMSK INITIALIZE CELLS	F2207880
	05247	0 60100 0 03740	782		STO	TL1 USED IN RSR ROUTINE.	F2207890
	05250	−0 75400 4 00000	783		PXD	0,4	F2207900
	05251	0 60100 0 03741	784		STO	TL2	F2207910
	05252	0 07400 4 05140	785		TSX	RSR,4	F2207920
	05253	0 02000 0 05237	786		TRA	DRM15 TRA FOR NEXT ENTRY.	F2207930
			787			SUBROUTINE TAGADD	F2207940
	05254	3 00000 2 05256	788	TAGADD	TXH	TAGAD1,2,0 C(IRB) EQ 1 IF NORMAL ADTAG	F2207950
	05255	−0 75400 1 00000	789		PXD	0,1	F2207960
	05256	−0 53400 1 04006	790	TAGAD1	LXD	ADTXX,1	F2207970
	05257	−3 00000 1 05273	791		TXL	TAGAD6,1,0	F2207980
	05260	3 00000 2 05274	792		TXH	TAGAD8,2,0 XRB=1,NORMAL ADDED TAG	F2207990
	05261	0 40000 0 03700	793		ADD	TAG	F2208000
	05262	0 60100 1 07135	794		STO	ADTAGZ,1	F2208010
	05263	0 50000 0 03673	795		CLA	NEWTAG	F2208020
	05264	0 56000 0 03673	796		LDQ	NEWTAG	F2208030
	05265	0 60100 1 07136	797		STO	ADTAGZ+1,1	F2208040
	05266	0 40000 0 03765	798		ADD	L(1)A	F2208050
	05267	0 60100 0 03673	799		STO	NEWTAG	F2208060
	05270	1 77776 1 05271	800		TXI	TAGAD2,1,−2	F2208070
	05271	−0 63400 1 04006	801	TAGAD2	SXD	ADTXX,1	F2208080
	05272	0 02000 4 00001	802	TAGAD3	TRA	1,4	F2208088
	05273	0 07400 4 00004	803	TAGAD6	TSX	DIAG,4 TABLE WILL NOT HOLD ENTRY. ERROR. GO TO DIAGNOSTIC.	F2208093
	05274	0 60100 1 07135	804	TAGAD8	STO	ADTAGZ,1	F2208110
	05275	−0 60000 1 07136	805		STQ	ADTAGZ+1,1	F2208120
	05276	1 77776 1 05271	806		TXI	TAGAD2,1,−2	F2208130
			807			SUBROUTINE SPC000	F2208140
	05277	−0 63400 1 05371	808	SPC000	SXD	SPC115,1 SAVE INDEX OF DO TO BE SEARCHED.	F2208150
	05300	−0 63400 2 05344	809		SXD	SPC060,2 SAVE TINFOR,LIST INDICATOR	F2208160
	05301	−0 63400 4 05361	810		SXD	SPC105,4 SAVE TSX INDEX.	F2208170
	05302	0 60100 0 05410	811		STO	SPCKEY SAVE LIST KEY WORD	F2208180
	05303	0 50000 1 00740	812		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2208190
	05304	0 62200 0 05321	813		STD	SPC050 INITIALIZE TEST INSTR.	F2208200
	05305	0 50000 1 00733	814		CLA	DOTAGZ,1 OBTAIN ALPHABETA WRD,	F2208210
	05306	0 73400 2 00000	815		PAX	0,2 SAVE BETA,	F2208220
	05307	−0 32000 0 03772	816		ANA	DECMSK OBTAIN ALPHA ALONE	F2208230
	05310	0 60100 0 03744	817		STO	NEXTA STO IN NEXTA	F2208240
	05311	0 60100 0 03742	818		STO	A AND STORE IN A.	F2208250
	05312	−0 75400 2 00000	819		PXD	0,2 PUT BETA IN LASTB AND	F2208260
	05313	0 60100 0 03745	820		STO	LASTB BETING SEARCH FOR R2	F2208270
	05314	−0 53400 1 05371	821	SPC010	LXD	SPC115,1 OBTAIN CURRENT INDEX AND	F2208280
	05315	1 77767 1 05316	822	SPC020	TXI	SPC040,1,−9 GO DOWN ONE DO,IF POSSIBLE,ELSE	F2208290
D	05316	−3 00000 1 05362	823	SPC040	TXL	SPC110,1 GO TO SET UP LAST INTERVAL.	F2208300
	05317	0 50000 1 00740	824		CLA	DOTAGZ+5,1 TEST WHETHER OR NOT THIS DO	F2208310
	05320	−0 73400 2 00000	825		PDX	0,2 IS IN RANGE OF R1(DXL)	F2208320
D	05321	−3 00000 2 05362	826	SPC050	TXL	SPC110,2 IF NOT,EXIT FOR LAST 1NTERVAL,	F2208330
	05322	0 50000 1 00734	827		CLA	DOTAGZ+1,1 IF IN R1,IS THIS DO TO BE	F2208340
	05323	0 40200 0 03735	828		SUB	RSYM1 SKIPPED. IF NOT,GO BACK TO	F2208350
	05324	0 10000 0 05330	829		TZE	SPC053 GET NEXT DO.	F2208360
	05325	0 50000 1 00734	830		CLA	DOTAGZ+1,1	F2208370
	05326	0 40200 0 03736	831		SUB	RSYM2	F2208380
	05327	−0 10000 0 05315	832		TNZ	SPC020	F2208390
	05330	0 50000 1 00733	833	SPC053	CLA	DOTAGZ,1 R2 FOUND,ARRANGE TO SKIP THIS	F2208400
	05331	0 73400 2 00000	834		PAX	0,2 INTERVAL. USE ALPHA OF R2	F2208410
	05332	−0 32000 0 03772	835		ANA	DECMSK AS B,PUT BETA OF R2 IN	F2208420
	05333	0 60100 0 03743	836		STO	B NEXTA.	F2208430
	05334	−0 75400 2 00000	837		PXD	0,2 DO FORMULAS WITHIN R2 ARE	F2208440
	05335	0 60100 0 03744	838		STO	NEXTA ACCOUNTED FOR AFTER SEARCH.	F2208450
	05336	−0 63400 1 05371	839		SXD	SPC115,1 SAVE INDEX OF R2.	F2208460
	05337	−0 53400 2 05344	840	SPC055	LXD	SPC060,2 PUT TINFOR, LIST IND. IN XRB	F2208470
	05340	0 50000 0 03742	841	SPC058	CLA	A FOR	F2208480
	05341	0 40200 0 03743	842		SUB	B NON EMPTY	F2208490
	05342	0 10000 0 05345	843		TZE	SPC065 INTERVALS,	F2208500
	05343	−3 00001 2 05376	844		TXL	SPCTIN,2,1 GO TO ARRANGE TINFOR SEARCH, OR	F2208510
D	05344	−3 00000 0 05401	845	SPC060	TXL	SPCSTO,0 TRA TO USE LIST.	F2208520
	05345	−0 53400 2 05344	846	SPC065	LXD	SPC060,2 RETURN HERE,TEST TINFOR	F2208530
	05346	−3 00000 2 05372	847		TXL	SPC120,2,0 LIST IND. IF ZERO, EXIT.	F2208540
	05347	−0 53400 1 05371	848	SPC070	LXD	SPC115,1 TO SET UP NEXT INTERVAL,	F2208550
	05350	0 50000 1 00740	849		CLA	DOTAGZ+5,1 OBTAIN INDEX OF LAST R2 AND	F2208560
	05351	0 62200 0 05356	850		STD	SPC100 STEP DOWN IN DOTAG BY USUAL	F2208570
	05352	1 77767 1 05353	851	SPC080	TXI	SPC090,1,−9 PROCEDURE UNTIL SOME DO IS	F2208580
D	05353	−3 00000 1 05362	852	SPC090	TXL	SPC110,1 FOUND NOT IN R2,OR UNTIL	F2208590
	05354	0 50000 1 00740	853		CLA	DOTAGZ+5,1 DOTAG EXHAUSTED. IF DO FOUND	F2208600
	05355	−0 73400 2 00000	854		PDX	0,2 NOT IN R2,SET A AND GO TO TEST	F2208610
D	05356	3 00000 2 05352	855	SPC100	TXH	SPC080,2 IF THIS DO IS IN R1.	F2208620
	05357	0 50000 0 03744	856		CLA	NEXTA IF IT IS,NEWR2 WILL BE FOUND	F2208630
	05360	0 60100 0 03742	857		STO	A OR EXIT MADE T0 SPC110.	F2208640
D	05361	−3 00000 0 05321	858	SPC105	TXL	SPC050,0	F2208650
	05362	0 50000 0 03744	859	SPC110	CLA	NEXTA THIS IS SETUP FOR LAST	F2208660
	05363	0 60100 0 03742	860		STO	A INTERVAL. FOR A,USE	F2208670
	05364	0 50000 0 03745	861		CLA	LASTB CONTENTS OF NEXTA. FOR B,	F2208680
	05365	0 60100 0 03743	862		STO	B USE BETA OF R1,FOUND IN	F2208690
	05366	−0 53400 2 05344	863		LXD	SPC060,2 LASTB. OBTAIN TINFOR,STOTAG	F2208700
	05367	0 50000 0 03751	864		CLA	L(0) IND,AND SET LOCATION OF	F2208710
	05370	0 62200 0 05344	865		STD	SPC060 INDICATOR TO ZERO. GO TO	F2208720
D	05371	−3 00000 0 05340	866	SPC115	TXL	SPC058,0 TINFOR OR TRASTO.	F2208730
	05372	−0 53400 4 05361	867	SPC120	LXD	SPC105,4 EXIT,ALL STORES DONE,OR,	F2208740
	05373	0 02000 4 00001	868		TRA	1,4 SEARCH MADE,T NOT FOUND.	F2208750
	05374	−0 53400 4 05361	869	SPC130	LXD	SPC105,4 EXIT,T FOUND	F2208760
	05375	0 02000 4 00002	870		TRA	2,4 IN SOME INTERVAL	F2208770
	05376	0 07400 4 05417	871	SPCTIN	TSX	TINFXX,4 GO TO SEARCH FORTAG	F2208780
	05377	0 02000 0 05374	872		TRA	SPC130 T FOUND	F2208790
	05400	0 02000 0 05345	873		TRA	SPC065 T NOT FOUND	F2208800
	05401	0 50000 0 03743	874	SPCSTO	CLA	B FOR TRASTO,E2 AND E3 ARE	F2208810
	05402	0 77100 0 00022	875		ARS	18 ALREADY SET UP. COLLECT	F2208820
	05403	0 40000 0 03742	876		ADD	A A AND B INTO E1 WORD,	F2208830
	05404	0 60100 0 05063	877		STO	E1 PUT TRASTO INDICATOR IN	F2208840
	05405	0 50000 0 05410	878		CLA	SPCKEY ACC. AND	F2208850
	05406	0 07400 4 05025	879		TSX	LIST,4 TSX TO LISTING ROUTINE.	F2208860
	05407	0 02000 0 05345	880		TRA	SPC065 ON RETURN,GO TO TEST FINISH.	F2208870
A	05410	0 00000 0 00000	881	SPCKEY	HTR	STORAGE FOR TABLEKEY	F2208880
			882			SUBROUTINES TINFOR AND TINFXX	F2208890
	05411	0 50000 1 00733	883	TINFOR	CLA	DOTAGZ,1 C(XRA)=INDEX OF DR TO BE	F2208900
	05412	0 73400 1 00000	884		PAX	0,1 SEARCHED, SEPARATE ALPHA	F2208910
	05413	−0 32000 0 03772	885		ANA	DECMSK AND BETA	F22D8920
	05414	0 60100 0 03742	886		STO	A AND STORE IN A	F2208930
	05415	−0 75400 1 00000	887		PXD	0,1	F2208940
	05416	0 60100 0 03743	888		STO	B B	F2208950
	05417	−0 53400 1 03764	889	TINFXX	LXD	L(1500,1 PUT MAX FORTAG INDEX IN XRA	F2208960
	05420	0 50000 1 03670	890	TINF10	CLA	FORTZ,1 OBTAIN FORTAG ENTRY	F2208970
	05421	−0 32000 0 03772	891		ANA	DECMSK RETAIN FORMULA NUMBER ONLY	F2208980
	05422	0 34000 0 03742	892		CAS	A COMPARE ALPHA AND FORMULA NR.	F2208990
	05423	0 02000 0 05430	893		TRA	TINF40 FOR. NR. GREATER THAN ALPHA. TRA.	F2209000
	05424	0 76100 0 00000	894		NOP	C(A) MAY BE SOME BETA FROM SPC	F2209010
	05425	1 77777 1 05426	895	TINF20	TXI	TINF30,1,−1 FOR.NR. LESS THAN ALPHA. GO	F2209020
			896			BACK FOR NEXT FORTAG ENTRY	F2209030
D	05426	3 00000 1 05420	897	TINF30	TXH	TINF10,1 IF POSSIBLE. OTHERWISE,	F2209040
	05427	0 02000 4 00002	898		TRA	2,4 RETURN T0 CALLING INSTR PLUS TWO.	F2209050
	05430	0 34000 0 03743	899	TINF40	CAS	B COMPARE FOR. NR. WITH BETA	F2209060
	05431	0 02000 4 00002	900		TRA	2,4 FOR. NR. GREATER THAN BETA,EXIT,	F2209070
	05432	0 76100 0 00000	901		NOP	FOR. NR. EQUAL TO OR	F2209080
	05433	0 50000 1 03670	902		CLA	FORTZ,1 LESS THAN BETA,OBTAIN FORTAG	F2209090
	05434	0 12000 0 05425	903		TPL	TINF20 TAG AND COMPARE WITH SEARCH TAG.	F2209100
	05435	−0 32000 0 03773	904		ANA	ADDMSK I.F. NOT EQUAL,GO BACK FOR NEXT TAG	F2209110
	05436	0 40200 0 03700	905		SUB	TAG	F2209120
	05437	−0 10000 0 05425	906		TNZ	TINF20 IF EQUAL,RETURN TO CALLING	F2209130
	05440	0 02000 4 00001	907		TRA	1,4	F2209140
			908			INSTR PLUS ONE. XRA CONTAINS INDEX IN FORTAG OF FIRST TAG	F2209150
			909			FOUND	F2209160
			910			SUBROUTINE TRAWRD	F2209170
	05441	−0 63400 4 05470	911	TRAWRD	SXD	TRAW65,4	F2209180
	05442	0 50000 0 03751	912		CLA	L(0)	F2209190
	05443	0 60100 0 03747	913		STO	TRABIT	F2209200
	05444	0 50000 1 00740	914		CLA	DOTAGZ+5,1	F2209210
	05445	0 62200 0 05454	915		STD	TRAW30	F2209220
	05446	0 50000 1 00742	916	TRAW10	CLA	DOTAGZ+7,1 OBTAIN T2 WORD	F2209230
	05447	−0 60200 0 03747	917		ORS	TRABIT OR INTO TRABIT	F2209240
	05450	1 77767 1 05451	918		TXI	TRAW20,1,−9 TAKE NEXT DO	F2209250
D	05451	−3 00000 1 05471	919	TRAW20	TXL	TRAW70,1 IF NONE, EXIT. (DEC HAS DOTAG IX)	F2209260
	05452	0 50000 1 00740	920		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2209270
	05453	−0 73400 4 00000	921		PDX	0,4 PUT L IN XRC.	F2209280
D	05454	−3 00000 4 05471	922	TRAW30	TXL	TRAW70,4 EXIT IF DO IS NOT IN RANGE R1	F2209290
	05455	−3 00001 2 05446	923		TXL	TRAW10,2,1 IF COMPLETE TEST,G0 BACK	F2209300
	05456	0 50000 1 00734	924	TRAW35	CLA	DOTAGZ+1,1 IF INCOMPLETE TEST,IS THIS A	F2209310
	05457	0 40200 0 03736	925		SUB	RSYM2 DO TO BE SKIPPED	F2209320
	05460	−0 10000 0 05446	926		TNZ	TRAW10 IF NOT, GO 8ACK	F2209330
	05461	0 50000 1 00740	927		CLA	DOTAGZ+5,1 THIS DO IS TO BE SKIPPED	F2209340
	05462	0 62200 0 05467	928		STD	TRAW60 PUT LEVEL OF THIS DO IN TEST INSTR.	F2209350
	05463	1 77767 1 05464	929	TRAW40	TXI	TRAW50,1,−9 TAKE NEXT DO IF ANY	F2209360
D	05464	−3 00000 1 05471	930	TRAW50	TXL	TRAW70,1 IF NOT, EXIT. OTHERWISE, (DEC.HAS DOTAG IX)	F2209370
	05465	0 50000 1 00740	931		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2209380
	05466	−0 73400 4 00000	932		PDX	0,4 PUT L IN XRC	F2209390
D	05467	3 00000 4 05463	933	TRAW60	TXH	TRAW40,4 IF DO IS IN RANGE OF R2,GO BACK	F2209400
D	05470	−3 00000 0 05454	934	TRAW65	TXL	TRAW30,0 OTHERWISE,GO TO TRAW30	F2209410
	05471	−0 53400 4 05470	935	TRAW70	LXD	TRAW65,4	F2209420
	05472	0 50000 0 03761	936		CLA	L(36) OBTAIN 36 IN DECREMENT	F2209430
	05473	0 40200 0 03741	937		SUB	TL2 36-TL2	F2209440
	05474	0 77100 0 00022	938		ARS	18 IN ADDRESS	F2209450
	05475	0 62100 0 05505	939		STA	TRAW90 INITIALIZE SHIFT	F2209460
	05476	0 50000 0 03741	940		CLA	TL2 OBTAIN TL2	F2209470
	05477	0 40200 0 03740	941		SUB	TL1 TL2-TL1	F2209480
	05500	0 77100 0 00022	942		ARS	18 IN ADDRESS	F2209490
	05501	0 62100 0 05504	943		STA	TRAW80 INITIALIZE SHIFT	F2209500
	05502	0 50000 0 03751	944		CLA	L(0) ACC CONTAINS ZERO	F2209510
	05503	0 56000 0 03771	945		LDQ	35ONES MQ CONTAINS ALL ONES	F2209520
A	05504	0 76300 0 00000	946	TRAW80	LLS	PUT TL2-TL1 ONES-IN-ACC	F2209530
A	05505	0 76700 0 00000	947	TRAW90	ALS	POSITION ONES IN ACC	F2209540
	05506	−0 32000 0 03747	948		ANA	TRABIT AND IN TRANSFER BITS	F2209550
	05507	0 02000 4 00001	949		TRA	1,4 GO BACK TO CALLING INSTR PLUS ONE.	F2209560
			950			SUBROUTINES TAGENT AND TETAPE	F2209570
	05510	−0 53400 1 04010	951	TAGENT	LXD	TAGXX,1 THIS ROUTINE ENTERS	F2209580
	05511	3 00000 1 05513	952		TXH	TE10,1,0 ONE ENTRY IN TAGZ,	F2209590
	05512	0 07400 2 05522	953		TSX	TETAPE,2 IF POSSIBLE. IF NOT,	F2209600
	05513	−0 53400 2 03755	954	TE10	LXD	L(4),2 TRA TO TETAPE.	F2209610
	05514	0 50000 2 05067	955	TE20	CLA	E1+4,2	F2209620
	05515	0 60100 1 06771	956		STO	TAGZ,1	F2209630
	05516	1 77777 1 05517	957		TXI	TE30,1,−1	F2209640
	05517	2 00001 2 05514	958	TE30	TIX	TE20,2,1	F2209650
	05520	−0 63400 1 04010	959		SXD	TAGXX,1	F2209660
	05521	0 02000 4 00001	960		TRA	1,4	F2209670
	05522	0 76600 0 00224	961	TETAPE	WRS	ATAPE THIS ROUTINE	F2209680
	05523	−0 53400 1 04010	962		LXD	TAGXX,1 ENTERS ALL THE VALID	F2209690
	05524	−0 63400 1 05530	963		SXD	TE50,1 ENTRIES IN TAGZ ON	F2209700
	05525	0 53400 1 04010	964		LXA	TAGXX,1 THE TAPE	F2209710
	05526	0 70000 1 06771	965	TE40	CPY	TAGZ,1 THE LAST ENTRY ON TAPE	F2209720
	05527	1 77777 1 05530	966		TXI	TE50,1,−1 AFTER EACH NEST IS	F2209730
D	05530	3 00000 1 05526	967	TE50	TXH	TE40,1 AN ENTRY OF 4 WDS OF 35 ONES	F2209740
	05531	0 53400 1 04010	968		LXA	TAGXX,1	F2209750
	05532	−0 63400 1 04010	969		SXD	TAGXX,1	F2209760
	05533	0 02000 2 00001	970		TRA	1,2	F2209770
			971			ROUTINE RELCON PINGPONGS INSTRUCTIONS	F2209780
	05534	−0 53400 2 03753	972	RELCON	LXD	L(2),2 INITIALIZE SWITCH	F2209790
	05535	−0 53400 4 03756	973	REL10	LXD	L(5),4 INITIALIZE ERROR COUNTER.	F2209805
	05536	−0 53400 1 05565	974	REL20	LXD	RELWDS,1 PUT NR OF DRM WDS IN XRA	F2209810
	05537	0 76200 0 00301	975		RDS	PPDRM LOCATE DRUM ADDRESS	F2209820
	05540	0 46000 2 05566	976		LDA	RELDRA+2,2 LOCATE PROPER DRM ADDRESS	F2209830
	05541	0 70000 1 06566	977	REL30	CPY	CORESZ,1 READ STATE B, OR A, INTO	F2209840
	05542	2 00001 1 05541	978		TIX	REL30,1,1 STORAGE	F2209850
	05543	−0 53400 1 05565	979		LXD	RELWDS,1 LOAD XRA WITH NR OF DRM WDS	F2209860
	05544	−0 75400 0 00000	980		PXD	0,0 COMPUTE	F2209870
	05545	0 36100 1 06566	981	REL40	ACL	CORESZ,1 CHECK	F2209880
	05546	2 00001 1 05545	982		TIX	REL40,1,1 SUM	F2209890
	05547	0 60200 0 05561	983		SLW	REL80 AND	F2209900
	05550	0 50000 0 05561	984		CLA	REL80 COMPARE.	F2209910
	05551	0 40200 2 05564	985		SUB	RELCS+2,2 IF NOT ZERO,	F2209920
	05552	−0 10000 0 05557	986		TNZ	REL70 GO TO ERROR ROUTINE.	F2209930
	05553	−3 00001 2 05112	987	REL50	TXL	BRA10,2,1 IF STATE A, RETURN-TO BRANCH.	F2209940
D	05554	−3 00000 0 05566	988	REL60	TXL	CORES,0 AND TRA TO REL ROUTINE	F2209950
	05555	−0 53400 2 03752	989	RELEND	LXD	L(1),2	F2209960
	05556	0 02000 0 05535	990		TRA	REL10 GO TO READ IN STATE A.	F2209970
	05557	2 00001 4 05536	991	REL70	TIX	REL20,4,1 COUNT IN ERROR COUNTER AND RETURN	F2209980
	05560	0 07400 4 00004	992		TSX	DIAG,4 DRUM READ ERROR. GO TO DIAGNOSTIC.	F2209995
A	05561	0 00000 0 00000	993	REL80	HTR	E.S.	F2210000
	05562	+103075525444	994	RELCS	OCT	103075525444 CHECK SUM, STATE B, RELCON	F2210014
	05563	−246744643200	995		OCT	−246744643200 CHECK SUM STATE A, NORMAL	F2210024
	05564	+000000001000	996	RELDRA	OCT	1000 DRUM ADDRESS, STATE B.	F2210030
	05565	+001000000000	997		OCT	1000000000 NR. WDS, DRUM ADDRESS.STATE A.	F2210040
		05566	998		ORG	2934	F2210050
			999			MASTER RECORD CARD = FN032	F2210055
	05566	−0 63400 4 05622	1000	IDENT	SXD	ID075,4 SAVE INDEX	F2210060
	05567	−0 53400 1 03760	1001		LXD	L(20),1 INITIALIZE IDENT STORAGE.	F2210070
	05570	0 50000 0 03751	1002		CLA	L(0) TO ZERO	F2210080
	05571	0 60100 0 06027	1003		STO	IDES	F2210090
	05572	0 60100 1 03740	1004	ID010	STO	X1+20,1	F2210100
	05573	2 00001 1 05572	1005		TIX	ID010,1,1	F2210110
	05574	0 50000 0 03771	1006		CLA	35ONES INITIALIZE	F2210120
	05575	0 60100 0 03723	1007		STO	LL LOW LEVEL	F2210130
	05576	−0 53400 2 03751	1008		LXD	L(0),2 COUNT THE SUBSCRIPT	F2210140
	05577	−0 53400 4 03756	1009		LXD	L(5),4 SYMBOLS.	F2210150
	05600	0 50000 4 03712	1010	ID020	CLA	S1+5,4 STORE COUNT IN	F2210160
	05601	0 10000 0 05603	1011		TZE	ID030 NRSUBS, AND ALSO IN	F2210170
	05602	1 00001 2 05603	1012		TXI	ID030,2,1 NRRC, WHICH IS THE.	F2210180
	05603	2 00002 4 05600	1013	ID030	TIX	ID020,4,2 COUNT OF REL. CON.	F2210190
	05604	−0 75400 2 00000	1014		PXD	0,2 SUBSCRIPTS. DO SUBS ARE	F2210200
	05605	0 60100 0 03725	1015		STO	NRRC SUBTRACTED OUT LATER.	F2210210
	05606	0 60100 0 03724	1016		STO	NRSUBS	F2210220
	05607	−0 53400 1 03674	1017		LXD	XC,1 COMPARE EACH SYMBOL	F2210230
	05610	−0 53400 2 03675	1018		LXD	LC,2 IN THE SUB. COMB. WITH	F2210240
	05611	0 76000 0 00141	1019		PSE	TL THE SYMBOL OF EACH	F2210250
	05612	0 50000 1 00734	1020	ID050	CLA	DOTAGZ+1,1 DO IN THE SUB NEST.	F2210260
	05613	−0 53400 4 03756	1021		LXD	L(5),4 WHEN EQUALITY IS	F2210270
	05614	0 34000 4 03712	1022	ID060	CAS	S1+5,4 FOUND, GO TO ID120.	F2210280
	05615	0 02000 0 05617	1023		TRA	ID070 IF THE CURRENT DO	F2210290
	05616	0 02000 0 05632	1024		TRA	ID120 SYMBOL IS NOT FOUND,	F2210300
	05617	2 00002 4 05614	1025	ID070	TIX	ID060,4,2 MAKE EXIT FROM ID410	F2210310
	05620	−0 76000 0 00141	1026		MSE	TL	F2210320
	05621	0 02000 0 05623	1027		TRA	ID080	F2210330
D	05622	−3 00000 0 06025	1028	ID075	TXL	ID410,0	F2210340
	05623	−3 00001 2 05646	1029	ID080	TXL	ID150,2,1 THESE INSTRUCTIONS	F2210350
	05624	1 00011 1 05625	1030	ID090	TXI	ID100,1,9 FIND THE NEXT BACK	F2210360
	05625	0 50000 1 00740	1031	ID100	CLA	DOTAGZ+5,1 SUB NEST DO FORMULA,	F2210370
	05626	0 62200 0 05627	1032		STD	ID110 AND RETURN CONTROL	F2210380
D	05627	−3 00000 2 05624	1033	ID110	TXL	ID090,2 TO ID050.	F2210390
	05630	−0 73400 2 00000	1034		PDX	0,2	F2210400
	05631	0 02000 0 05612	1035		TRA	ID050	F2210410
	05632	−0 76000 0 00141	1036	ID120	MSE	TL TURN OFF TEST LIGHT	F2210420
	05633	0 76100 0 00000	1037		NOP	AND	F2210430
	05634	−0 75400 1 00000	1038		PXD	0,1 ESTABLISH	F2210440
	05635	0 60100 4 03721	1039		STO	X1+5,4 INDEX	F2210450
	05636	−0 75400 2 00000	1040		PXD	0,2 AND	F2210460
	05637	0 60100 4 03722	1041		STO	L1+5,4 LEVEL FOR THIS SUBSCRIPT.	F2210470
	05640	0 50000 0 03725	1042		CLA	NRRC SUBTRACT ONE FROM	F2210480
	05641	0 40200 0 03752	1043		SUB	L(1) NRRC. THIS WORD	F2210490
	05642	0 60100 0 03725	1044		STO	NRRC CONTAINS INITIALLY	F2210500
	05643	0 10000 0 05646	1045		TZE	ID150 THE NUMBER OF	F2210510
	05644	0 50000 1 00734	1046		CLA	DOTAGZ+1,1 SUBSCRIPTS IN THE	F2210520
	05645	0 02000 0 05617	1047		TRA	ID070 COMBINATION.	F2210530
	05646	0 76600 0 00333	1048	ID150	IOD	THIS - EDRECN0 FN 265001 P463	F2210540
	05647	0 50000 0 03714	1049		CLA	X1 ROUTINE FN265002	F2210550
	05650	0 56000 0 03716	1050		LDQ	X2 LOOKS FOR THE	F2210560
	05651	0 04000 0 05653	1051		TLQ	PT041 OUTERM0ST	F2210570
	05652	0 50000 0 03716	1052		CLA	X2 DOTAG	F2210580
	05653	0 56000 0 03720	1053	PT041	LDQ	X3 OF A	F2210590
	05654	0 04000 0 05656	1054		TLQ	PT042 SUBSCRIPT	F2210600
	05655	0 50000 0 03720	1055		CLA	X3 COMBINATION.	F2210610
	05656	0 60100 0 05662	1056	PT042	STO	PT043	F2210620
	05657	−0 53400 4 03757	1057		LXD	L(6),4	F2210630
	05660	−0 53400 3 03754	1058		LXD	L(3),3	F2210640
	05661	0 02000 0 05663	1059		TRA	ID160 RETURN	F2210650
A	05662	0 00000 0 00000	1060	PT043	HTR		F2210660
	05663	0 50000 1 03710	1061	ID160	CLA	S1+3,1 WHICH CAN BE ASSIGNED	F2210670
	05664	0 10000 0 05671	1062		TZE	ID170 HAVE BEEN ASSIGNED.	F2210680
	05665	0 40200 2 03712	1063		SUB	S1+5,2 THIS	F2210690
	05666	−0 10000 0 05671	1064		TNZ	ID170 ROUTINE	F2210700
	05667	−0 75400 4 00000	1065		PXD	0,4 MAKES UP THE	F2210710
	05670	−0 60200 0 03734	1066		ORS	DUPES DUPLICATE	F2210720
	05671	2 00001 4 05672	1067	ID170	TIX	ID180,4,1 SUBSCRIPT	F2210730
	05672	2 00002 2 05663	1068	ID180	TIX	ID160,2,2 WORD.	F2210740
	05673	2 00001 4 05674	1069		TIX	ID190,4,1	F2210750
	05674	2 00002 1 05663	1070	ID190	TIX	ID160,1,2	F2210760
	05675	−0 53400 2 03725	1071		LXD	NRRC,2 IF THERE IS MORE	F2210770
	05676	−3 00000 2 05723	1072		TXL	ID300,2,0 THAN ONE RELCON,	F2210780
	05677	−3 00001 2 05704	1073		TXL	ID195,2,1 AND IF THERE ARE	F2210790
	05700	0 50000 0 03734	1074		CLA	DUPES DUPLICATES, THEN THE	F2210800
	05701	0 60100 0 03733	1075		STO	RCDUP RELCONS ARE DUPLICATES.	F2210810
	05702	0 50000 0 03751	1076		CLA	L(0) OTHERWISE, THE DOSUBS	F2210820
	05703	0 60100 0 03734	1077		STO	DUPES ARE DUPLICATES.	F2210830
	05704	−0 53400 4 03756	1078	ID195	LXD	L(5),4 IF THERE ARE RELCONS,	F2210840
	05705	0 50000 4 03722	1079	ID200	CLA	L1+5,4 THERE ARE NOT MORE	F2210850
	05706	−0 10000 0 05720	1080		TNZ	ID210 THAN TWO.	F2210860
	05707	0 50000 4 03712	1081		CLA	S1+5,4 PUT THEIR SYMBOLS	F2210870
	05710	0 10000 0 05720	1082		TZE	ID210 IN PSYM1 AND RSYM2,	F2210880
	05711	−0 75400 4 00000	1083		PXD	0,4 AND PUT BITS IN THE	F2210890
	05712	−3 00001 4 05714	1084		TXL	ID205,4,1 PROPER POSITIONS OF	F2210900
	05713	0 40200 0 03752	1085		SUB	L(1) RCSUBS.	F2210910
	05714	−0 60200 0 03730	1086	ID205	ORS	RCSUBS	F2210920
	05715	0 50000 4 03712	1087		CLA	S1+5,4	F2210930
	05716	−2 00001 2 05722	1088		TNX	ID220,2,1	F2210940
	05717	0 60100 0 03736	1089		STO	RSYM2	F2210950
	05720	2 00002 4 05705	1090	ID210	TIX	ID200,4,2	F2210960
	05721	0 02000 0 05723	1091		TRA	ID300	F2210970
	05722	0 60100 0 03735	1092	ID220	STO	RSYM1	F2210980
	05723	−0 53400 4 03756	1093	ID300	LXD	L(5),4 FOR ALL DO SUBS,	F2210990
	05724	0 50000 4 03721	1094	ID310	CLA	X1+5,4 SELECT THE	F2211000
	05725	0 10000 0 05740	1095		TZE	ID340 MAXIMUM OF ALL	F2211010
	05726	−0 73400 1 00000	1096		PDX	0,1 VARAIBLE N LEVEL	F2211020
	05727	−0 53400 2 03754	1097		LXD	L(3),2 OF DEFINITION	F2211030
	05730	0 50000 1 00741	1098	ID320	CLA	DOTAGZ+6,1 QUANTITIES.	F2211040
	05731	−0 32000 0 03773	1099		ANA	ADDMSK	F2211050
	05732	0 76700 0 00022	1100		ALS	18	F2211060
	05733	0 34000 0 06027	1101		CAS	IDES	F2211070
	05734	0 60100 0 06027	1102		STO	IDES	F2211080
	05735	0 76100 0 00000	1103		NOP		F2211090
	05736	2 00001 1 05737	1104		TIX	ID330,1,1	F2211100
	05737	2 00001 2 05730	1105	ID330	TIX	ID320,2,1	F2211110
	05740	2 00002 4 05724	1106	ID340	TIX	ID310,4,2	F2211120
	05741	−0 53400 4 03756	1107		LXD	L(5),4 COMPARE THIS MAXIMUM	F2211130
	05742	−0 53400 2 03751	1108		LXD	L(0),2	F2211140
	05743	0 50000 4 03722	1109	ID350	CLA	L1+5,4 WITH EACH SUBSCRIPT	F2211150
	05744	0 10000 0 06000	1110		TZE	ID380 LEVEL, THOSE SUBSCRIPT	F2211160
	05745	0 34000 0 06027	1111		CAS	IDES LEVELS LESS THAN OR	F2211170
	05746	0 02000 0 05764	1112		TRA	ID370 EQUAL T0 THE MAXIMUN	F2211180
	05747	0 76100 0 00000	1113		NOP	LEVEL OF DEFINITION	F2211190
	05750	−0 75400 4 00000	1114		PXD	0,4 QUANTITY WILL BE TREATED	F2211200
	05751	−3 00001 4 05753	1115		TXL	ID360,4,1 AS REL. CONS.	F2211210
	05752	0 40200 0 03752	1116		SUB	L(1) INDICATE THIS CONDITION	F2211220
	05753	−0 60200 0 03727	1117	ID360	ORS	DORC IN THE DORC WORD.	F2211230
	05754	0 50000 4 03721	1118		CLA	X1+5,4	F2211240
	05755	−0 73400 1 00000	1119		PDX	0,1	F2211250
	05756	0 50000 0 04000	1120		CLA	BITONE MAKE INDICATION FOR STORED COUNTER	F2211260
	05757	−0 60200 1 00740	1121		ORS	DOTAGZ+5,1 FOR THIS DORC.	F2211270
	05760	−0 75400 0 00000	1122		PXD	0,0 CLEAR X(N) AND L(N)	F2211280
	05761	0 60100 4 03722	1123		STO	L1+5,4 SINCE THEY ARE NO L0NGER DOSUBS.	F2211290
	05762	0 60100 4 03721	1124		STO	X1+5,4	F2211300
	05763	0 02000 0 06000	1125		TRA	ID380	F2211310
	05764	0 34000 0 03723	1126	ID370	CAS	LL FOR TRUE DO SUBS.	F2211320
	05765	0 02000 0 05773	1127		TRA	ID372 ESTABLISH LOW LEVEL	F2211330
	05766	0 02000 0 05773	1128		TRA	ID372 AND LOW INDEX. LOW	F2211340
	05767	0 60100 0 03723	1129		STO	LL LEVEL WORD WAS	F2211350
	05770	0 50000 4 03721	1130		CLA	X1+5,4 INITIALIZED TO	F2211360
	05771	0 60100 0 03722	1131		STO	XL 35ONES.	F2211370
	05772	−0 63400 4 03750	1132		SXD	LOWP0S,4	F2211380
	05773	−0 75400 4 00000	1133	ID372	PXD	0,4 PUT BITS IN	F2211390
	05774	−3 00001 4 05776	1134		TXL	ID375,4,1 PROPER POSITIONS	F2211400
	05775	0 40200 0 03752	1135		SUB	L(1) OF DOSUBS	F2211410
	05776	−0 60200 0 03731	1136	ID375	ORS	DOSUBS WORD	F2211420
	05777	1 00001 2 06000	1137		TXI	ID380,2,1	F2211430
	06000	2 00002 4 05743	1138	ID380	TIX	ID350,4,2	F2211440
	06001	−0 75400 2 00000	1139		PXD	0,2	F2211450
	06002	0 60100 0 03726	1140		STO	NRDS CHECK TO SEE THAT	F2211460
	06003	−0 10000 0 06005	1141		TNZ	ID385 AT LEAST ONE SUBSCR IS A DOSUB	F2211472
	06004	0 07400 4 00004	1142		TSX	DIAG,4 NO DOSUB WAS PRECLUDED. ERROR. GO TO DIAGNOSTIC	F2211485
	06005	−0 53400 2 03725	1143	ID385	LXD	NRRC,2 THESE INSTRUCTIONS	F2211490
	06006	−3 00000 2 06023	1144		TXL	ID400,2,0 COMPUTE DELTA.	F2211500
	06007	−0 53400 4 03752	1145		LXD	L(1),4 IF ONE DISTINCT DOSUB,	F2211510
	06010	0 50000 0 03733	1146		CLA	RCDUP ONE DISTINCT RELCON,	F2211520
	06011	−0 10000 0 06021	1147		TNZ	ID395 DELTA IS ONE.	F2211530
	06012	0 50000 0 03734	1148		CLA	DUPES IF TWO DISTINCT DOSUBS,	F2211540
	06013	−0 10000 0 06021	1149		TNZ	ID395 ONE RELCON, DELTA IS TWO.	F2211550
	06014	−3 00001 2 06016	1150		TXL	ID390,2,1 IF ONE DOSUB, TWO	F2211560
	06015	1 00002 4 06021	1151		TXI	ID395,4,2 DISTINCT RELCONS,	F2211570
	06016	−0 53400 2 03726	1152	ID390	LXD	NRDS,2 DELTA IS THREE.	F2211580
	06017	−3 00001 2 06021	1153		TXL	ID395,2,1 FOR ALL OTHER CASES,	F2211590
	06020	1 00001 4 06021	1154		TXI	ID395,4,1 DELTA IS ZERO.	F2211600
	06021	−0 75400 4 00000	1155	ID395	PXD	0,4	F2211610
	06022	0 60100 0 03732	1156		STO	DELTA	F2211620
	06023	−0 53400 4 05622	1157	ID400	LXD	ID075,4 EXIT,	F2211630
	06024	0 02000 4 00002	1158		TRA	2,4 SUBCOM USED.	F2211640
	06025	−0 53400 4 05622	1159	ID410	LXD	ID075,4 EXIT,	F2211650
	06026	0 02000 4 00001	1160		TRA	1,4 SUBCOMB NOT USED.	F2211660
A	06027	0 00000 0 00000	1161	IDES	HTR		F2211670
	06030	−0 63400 4 06036	1162	NAME	SXD	NAM10,4 - SAVE LINKAGE	F2211680
	06031	0 50000 0 03700	1163		CLA	TAG PUT TAU IN TS,	F2211690
	06032	0 60100 0 03701	1164	PAT05	STO	TS P463	F2211700
	06033	−0 53400 1 05662	1165		LXD	PT043,1	F2211710
	06034	0 07400 4 05411	1166	RET01	TSX	TINFOR,4 SEARCH RANGE OF XL	F2211720
	06035	0 02000 0 06037	1167		TRA	NAM20 (FOUND) FOR NEGATICE TAG.	F2211730
TD	06036	−3 00000 0 06073	1168	NAM10	TXL	NAM50 NOT FOUND	F2211740
	06037	0 50000 0 03673	1169	NAM20	CLA	NEWTAG OBTAIN	F2211750
	06040	0 60100 0 03701	1170		STO	TS NEW	F2211760
	06041	0 40000 0 03765	1171		ADD	L(1)A NAME	F2211770
	06042	0 60100 0 03673	1172		STO	NEWTAG	F2211780
	06043	−0 53400 1 03674	1173		LXD	XC,1 ARRANGE	F2211790
	06044	0 50000 1 00733	1174		CLA	DOTAGZ,1 ENTRY BLOCK	F2211800
	06045	0 60100 0 05063	1175		STO	E1 FOR CHATAG	F2211810
	06046	0 50000 0 03700	1176		CLA	TAG ENTRY.	F2211820
	06047	0 76700 0 00022	1177		ALS	18	F2211830
	06050	0 40000 0 03701	1178		ADD	TS	F2211840
	06051	0 60100 0 05064	1179		STO	E2	F2211850
	06052	0 50000 0 05072	1180		CLA	CHATAG	F2211860
	06053	−0 53400 4 03725	1181		LXD	NRRC,4 USE LIST OR SPC000,	F2211870
	06054	3 00000 4 06057	1182		TXH	NAM30,4,0 DEPENDING UPON	F2211880
	06055	0 07400 4 05025	1183		TSX	LIST,4 WHETHER OR NOT	F2211890
	06056	0 02000 0 06061	1184		TRA	NAM40 WORD NRRC IS ZERO. I.E., ARE THERE RELCONS.	F2211900
	06057	−0 53400 2 03753	1185	NAM30	LXD	L(2),2 NO TINFOR SEARCH REQUIRED.	F2211910
	06060	0 07400 4 05277	1186		TSX	SPC000,4	F2211920
	06061	−0 53400 1 04011	1187	NAM40	LXD	NAMXX,1 ENTER	F2211930
	06062	3 00000 1 06064	1188		TXH	NAM44,1,0 ALPHA,	F2211940
	06063	0 07400 4 00004	1189		TSX	DIAG,4 TAG, (NAME TABLE FULL. ERROR. GO TO DIAGNOSTIC.)	F2211955
	06064	0 50000 0 03676	1190	NAM44	CLA	ALPHA AND	F2211960
	06065	−0 50100 0 03700	1191		ORA	TAG NAME	F2211970
	06066	0 60100 1 07301	1192		STO	NAMZ,1 IN	F2211980
	06067	0 50000 0 03701	1193		CLA	TS NAME	F2211990
	06070	0 60100 1 07302	1194		STO	NAMZ+1,1 TABLE	F2212000
	06071	1 77776 1 06072	1195		TXI	NAM48,1,−2	F2212010
	06072	−0 63400 1 04011	1196	NAM48	SXD	NAMXX,1	F2212020
	06073	−0 53400 4 06036	1197	NAM50	LXD	NAM10,4 EXIT	F2212030
	06074	0 02000 4 00001	1198		TRA	1,4	F2212040
			1199			1NS00 PROCESSES SC CONTAINING ONE DISTINCT INDEXED SUBSCRIPT.	F2212050
	06075	−0 63400 4 06146	1200	1NS00	SXD	1NS20,4 SAVE LINKAGE	F2212060
	06076	−0 53400 1 03674	1201		LXD	XC,1	F2212070
	06077	0 50000 0 04001	1202		CLA	BITTWO IF A COUNTER HAS	F2212080
	06100	−0 32000 1 00741	1203		ANA	DOTAGZ+6,1 BEEN FOUND,	F2212090
	06101	−0 10000 0 06142	1204		TNZ	1NS10 GO TO 1NS10	F2212100
	06102	−0 53400 4 03731	1205		LXD	DOSUBS,4 SKIP TO 1NS10	F2212110
	06103	−3 00003 4 06142	1206		TXL	1NS10,4,3 IF NOT FIRST POSITION.	F2212120
	06104	3 00004 4 06142	1207		TXH	1NS10,4,4	F2212130
	06105	0 50000 0 03730	1208		CLA	RCSUBS IF ANY RELCONS,	F2212140
	06106	−0 50100 0 03727	1209		ORA	DORC GO TO 1NS10	F2212150
	06107	−0 10000 0 06142	1210		TNZ	1NS10	F2212160
	06110	−0 53400 4 03704	1211		LXD	C1,4 IF C1 IS NOT ONE,	F2212170
	06111	3 00001 4 06142	1212		TXH	1NS10,4,1 GO TO 1NS10	F2212180
	06112	0 50000 0 03773	1213		CLA	ADDMSK THIS SUB. COMB. WILL SERVE	F2212190
	06113	0 32000 1 00743	1214		ANS	DOTAGZ+8,1 AS COUNTER AND TEST, ENTER IN	F2212200
	06114	0 50000 0 03701	1215		CLA	TS DOTAGZ+8.	F2212210
	06115	0 76700 0 00022	1216		ALS	18 INDICATE	F2212220
	06116	−0 50100 0 03770	1217		ORA	L(MZ) BEST TEST	F2212230
	06117	−0 60200 1 00743	1218		ORS	DOTAGZ+8,1 FOUND.	F2212240
	06120	0 50000 0 04001	1219		CLA	BITTWO INDICATE COUNTER FOUND.	F2212250
	06121	−0 60200 1 00741	1220		ORS	DOTAGZ+6,1	F2212260
	06122	−0 50000 0 03770	1221		CAL	L(MZ) SET CARWRD NEGATIVE.	F2212270
	06123	−0 60200 0 03737	1222		ORS	CARWRD TEST BITONE OF L WORD.	F2212280
	06124	0 50000 0 04000	1223		CLA	BITONE IF ONE, SKIP TRASTO	F2212290
	06125	−0 32000 1 00740	1224		ANA	DOTAGZ+5,1 TEST.	F2212300
	06126	−0 10000 0 06142	1225		TNZ	1NS10	F2212310
	06127	0 50000 1 00740	1226	1NS05	CLA	DOTAGZ+5,1 TEST TO SEE IF TRANSFER	F2212320
	06130	0 12000 0 06142	1227		TPL	1NS10 STORE NECESSARY.	F2212330
	06131	0 50000 1 00733	1228		CLA	DOTAGZ,1 MAKE TRASTO ENTRY	F2212340
	06132	0 60100 0 05063	1229		STO	E1 TO STORE COUNTER	F2212350
	06133	0 50000 1 00734	1230		CLA	DOTAGZ+1,1 IN LOCATION OF SYMBOL.	F2212360
	06134	0 60100 0 05064	1231		STO	E2	F2212370
	06135	0 50000 0 03675	1232		CLA	LC	F2212380
	06136	−0 50100 0 03701	1233		ORA	TS	F2212390
	06137	0 60100 0 05065	1234		STO	E3	F2212400
	06140	0 50000 0 05070	1235		CLA	TRASTO	F2212410
	06141	0 07400 4 05025	1236		TSX	LIST,4	F2212420
	06142	0 50000 0 03757	1237	1NS10	CLA	L(6) ENTER	F2212430
	06143	0 60100 0 03703	1238		STO	GR0UP GROUP NR.	F2212440
	06144	−0 53400 4 06146	1239		LXD	1NS20,4 AND EXIT.	F2212450
	06145	0 02000 4 00001	1240		TRA	1,4	F2212460
A	06146	0 00000 0 00000	1241	1NS20	HTR		F2212470
			1242			2NS00 ROUTINE PROCESSES SC WITH TWO DISTINCT INDEXED	F2212480
			1243			SUBSCRIPTS,	F2212490
	06147	−0 63400 4 06157	1244	2NS00	SXD	2NS25,4 SAVE LINKAAGE	F2212500
	06150	−0 53400 1 03731	1245	2NS10	LXD	DOSUBS,1 2NS10 T0 2NS80 DETERMINE THE	F2212510
	06151	−0 53400 2 03753	1246		LXD	L(2),2 GROUP NR AND CARRY BITS	F2212520
	06152	0 50000 0 03715	1247		CLA	L1 FOR THE SL.	F2212530
	06153	3 00003 1 06155	1248		TXH	2NS20,1,3	F2212540
	06154	0 50000 0 03717	1249		CLA	L2	F2212550
	06155	−3 00005 1 06160	1250	2NS20	TXL	2NS30,1,5	F2212560
	06156	0 40200 0 03717	1251		SUB	L2	F2212570
D	06157	−3 00000 0 06161	1252	2NS25	TXL	2NS40,0	F2212580
	06160	0 40200 0 03721	1253	2NS30	SUB	L3	F2212590
	06161	−0 12000 0 06174	1254	2NS40	TMI	2NS70	F2212600
	06162	0 40200 0 03752	1255		SUB	L(1)	F2212610
	06163	−0 10000 0 06172	1256		TNZ	2NS60	F2212620
	06164	−3 00003 1 06167	1257		TXL	2NS50,1,3	F2212630
	06165	−3 00005 1 06172	1258		TXL	2NS60,1,5	F2212640
	06166	1 00002 2 06167	1259		TXI	2NS50,2,2	F2212650
	06167	−0 53400 4 03734	1260	2NS50	LXD	DUPES,4 THIS DUPE TEST IS AN ADJUSTMENT	F2212660
	06170	3 00000 4 06172	1261		TXH	2NS60,4,0 FOR DUPLICATES IN A REDUCED	F2212670
	06171	0 07400 4 04754	1262		TSX	CARRY,4 3NS CASE.	F2212680
	06172	0 50000 0 03752	1263	2NS60	CLA	L(1)	F2212690
D	06173	−3 00000 0 06175	1264	2NS65	TXL	2NS80,0	F2212700
	06174	0 50000 0 03757	1265	2NS70	CLA	L(6)	F2212710
	06175	0 60100 0 03703	1266	2NS80	STO	GR0UP	F2212720
	06176	−0 73400 4 00000	1267		PDX	0,4	F2212730
	06177	−0 53400 2 03731	1268		LXD	DOSUBS,2 THIS ROUTINE,TO 2NS90,	F2212740
	06200	0 50000 0 03715	1269		CLA	L1 PREPARES A TRAWRD CALLING	F2212750
	06201	3 00003 2 06203	1270		TXH	2NS82,2,3 SEQUENCE TO DETERMINE	F2212760
	06202	0 50000 0 03717	1271		CLA	L2 WHETHER OR NOT RESETTING	F2212770
	06203	−3 00005 2 06206	1272	2NS82	TXL	2NS84,2,5 IS NECESSARY	F2212780
	06204	0 56000 0 03717	1273		LDQ	L2	F2212790
	06205	0 02000 0 06207	1274		TRA	2NS86	F2212800
	06206	0 56000 0 03721	1275	2NS84	LDQ	L3	F2212810
	06207	−3 00001 4 06220	1276	2NS86	TXL	2NS88,4,1 TEST GROUP	F2212820
	06210	0 60100 0 03740	1277		STO	TL1	F2212830
	06211	−0 60000 0 03741	1278		STQ	TL2	F2212840
	06212	−0 53400 1 03720	1279		LXD	X3,1	F2212850
	06213	0 50000 0 03752	1280		CLA	L(1)	F2212860
	06214	−3 00005 2 06227	1281		TXL	2NS90,2,5	F2212870
	06215	−0 53400 1 03716	1282		LXD	X2,1	F2212880
	06216	0 50000 0 03753	1283		CLA	L(2)	F2212890
	06217	0 02000 0 06227	1284		TRA	2NS90	F2212900
	06220	0 60100 0 03741	1285	2NS88	STO	TL2	F2212910
	06221	−0 60000 0 03740	1286		STQ	TL1	F2212920
	06222	−0 53400 1 03714	1287		LXD	X1,1	F2212930
	06223	0 50000 0 03755	1288		CLA	L(4)	F2212940
	06224	3 00003 2 06227	1289		TXH	2NS90,2,3	F2212950
	06225	−0 53400 1 03716	1290		LXD	X2,1	F2212960
	06226	0 50000 0 03753	1291		CLA	L(2)	F2212970
	06227	0 60100 0 03746	1292	2NS90	STO	REBITS 2NS90 SEQ. SINGLE REBITS	F2212980
	06230	−0 32000 0 03734	1293		ANA	DUPES ARE PART OF THE TAG OF THE	F2212990
	06231	0 10000 0 06235	1294		TZE	2NS91 RESETTING SC,IT MUST BE	F2213000
	06232	0 50000 0 03746	1295		CLA	REBITS ADJUSTED FOR DUPE RESETS.	F2213010
	06233	−0 50100 0 03734	1296		ORA	DUPES	F2213020
	06234	0 60100 0 03746	1297		STO	REBITS	F2213030
	06235	−0 63400 1 06173	1298	2NS91	SXD	2NS65,1	F2213040
	06236	−0 53400 2 03752	1299		LXD	L(1),2	F2213050
	06237	0 07400 4 05441	1300		TSX	TRAWRD,4 TEST FOR TANSFER BITS.	F2213060
	06240	0 10000 0 06244	1301		TZE	2NSEND RESETTING NOT NECESSARY IF	F2213070
	06241	−0 53400 2 03746	1302		LXD	REBITS,2 TRAWRD RESULT ZERO. IF	F2213080
	06242	−0 53400 1 06173	1303		LXD	2NS65,1 RESETTING NECESSARY, EXECUTE	F2213090
	06243	0 07400 4 06370	1304		TSX	RESET,4 RESET ROUTINE AND	F2213100
	06244	−0 53400 4 06157	1305	2NSEND	LXD	2NS25,4 EXIT	F2213110
	06245	0 02000 4 00001	1306		TRA	1,4	F2213120
			1307			3NS00 ROUTINE PROCESSES SC WITH THREE DISTINCT INDEXED	F2213130
			1308			SUBSCRIPTS.	F2213140
	06246	−0 63400 4 06255	1309	3NS00	SXD	3GRP15,4 SAVE LINKAGE	F2213150
			1310			THIS ROUTINE DETERMINES GROUP NUMBER FOR 3NS NO DUPE SC	F2213160
	06247	−0 53400 2 03751	1311		LXD	L(0),2 PUT ZERO IN XRB	F2213170
	06250	0 50000 0 03721	1312		CLA	L3 OBTAIN L3	F2213180
	06251	0 34000 0 03717	1313		CAS	L2 COMPARE WITH L2	F2213190
	06252	1 00004 2 06254	1314		TXI	3GRP10,2,4 L3 GREATER THAN L2	F2213200
	06253	0 07400 4 00004	1315		TSX	DIAG,4 N0 DUPES. ERROR. GO TO DIAGNOSTIC.	F2213215
	06254	0 34000 0 03715	1316	3GRP10	CAS	L1 L3 LESS THAN L2,COMPARE L3,L1	F2213220
D	06255	−3 00000 0 06260	1317	3GRP15	TXL	3GRP20,0 L3 GREATER THAN L1	F2213230
	06256	0 07400 4 00004	1318		TSX	DIAG,4 N0 DUPES. ERROR. GO TO DIAGNOSTIC.	F2213243
	06257	1 00001 2 06260	1319		TXI	3GRP20,2,1 L3 LESS THAN L1	F2213250
	06260	0 50000 0 03717	1320	3GRP20	CLA	L2 OBTAIN L2	F2213260
	06261	0 40200 0 03715	1321		SUB	L1 SUBTRACT L1	F2213270
	06262	−0 12000 0 06264	1322		TMI	3GRP30 TRA IF L2 LESS THAN L1	F2213280
	06263	1 00002 2 06264	1323		TXI	3GRP30,2,2 L2 GREATER THAN L1	F2213290
	06264	−0 75400 2 00000	1324	3GRP30	PXD	0,2 PUT GROUP NUMBER IN ACC DEC.	F2213300
	06265	0 60100 0 03703	1325		STO	GR0UP OR INTO TAG 1	F2213310
	06266	0 50000 0 03715	1326		CLA	L1 OBTAIN L1	F2213320
	06267	0 40200 0 03752	1327		SUB	L(1) L1 LESS 1	F2213330
	06270	0 40200 0 03717	1328		SUB	L2 L1 LESS 1 LESS L2	F2213340
	06271	−0 10000 0 06274	1329		TNZ	3GRP40 NOT ZERO,NO CARRY,TRA	F2213350
	06272	−0 53400 2 03755	1330		LXD	L(4),2 SET XRB	F2213360
	06273	0 07400 4 04754	1331		TSX	CARRY,4 AND TSX TO CARRY	F2213370
	06274	0 50000 0 03717	1332	3GRP40	CLA	L2 RE-ENTRY,OBTAIN L2	F2213380
	06275	0 40200 0 03752	1333		SUB	L(1) L2 LESS 1	F2213390
	06276	0 40200 0 03721	1334		SUB	L3 L2 LESS 1 LESS L3	F2213400
	06277	−0 10000 0 06302	1335		TNZ	3GRP50 NOT ZERO,NO CARRY,TRA	F2213410
	06300	−0 53400 2 03753	1336		LXD	L(2),2 SET XRB	F2213420
	06301	0 07400 4 04754	1337		TSX	CARRY,4 AND TSX TO CARRY	F2213430
	06302	−0 53400 6 03751	1338	3GRP50	LXD	L(0),6 THE FOLLOWING ROUTINE,	F2213440
	06303	−0 53400 1 03703	1339		LXD	GR0UP,1 THROUGH 3GRP72, COMPUTES	F2213450
	06304	0 02000 1 06313	1340	3GRP55	TRA	3GRP55+7,1 QUANTITIES FOR XRB, XRC.	F2213460
	06305	1 00002 2 06314	1341		TXI	3GRP65,2,2 GROUP IS SIX	F2213470
	06306	1 00004 4 06314	1342		TXI	3GRP65,4,4 FIVE	F2213480
	06307	1 00004 2 06314	1343		TXI	3GRP65,2,4 FOUR	F2213490
	06310	1 00002 6 06313	1344		TXI	3GRP60,6,2 THREE	F2213500
	06311	1 00002 4 06314	1345		TXI	3GRP65,4,2 TWO	F2213510
	06312	1 00004 4 06313	1346		TXI	3GRP60,4,4 ONE	F2213520
	06313	1 00002 2 06314	1347	3GRP60	TXI	3GRP65,2,2	F2213530
	06314	0 50000 4 03720	1348	3GRP65	CLA	X1+4,4	F2213540
	06315	0 60100 0 06362	1349		STO	INX	F2213550
	06316	0 50000 4 03721	1350		CLA	X1+5,4	F2213560
	06317	0 60100 0 06363	1351		STO	INL	F2213570
	06320	0 50000 2 03720	1352		CLA	X1+4,2	F2213580
	06321	0 60100 0 06364	1353		STO	MIDX	F2213590
	06322	0 50000 2 03721	1354		CLA	X1+5,2	F2213600
	06323	0 60100 0 06365	1355		STO	MIDL	F2213610
	06324	3 00000 4 06326	1356		TXH	3GRP70,4,0 THE QUANTIT1ES IN XRB.	F2213620
	06325	1 00001 4 06326	1357		TXI	3GRP70,4,1 XRC, ARE ZERO, TWO, OR	F2213630
	06326	−0 63400 4 06357	1358	3GRP70	SXD	INP,4 FOUR, ADJUSTED TO ONE,	F2213640
	06327	3 00000 2 06331	1359		TXH	3GRP72,2,0 TWO, FOUR, TO INDICATE THE	F2213630
	06330	1 00001 2 06331	1360		TXI	3GRP72,2,1 POSITION OF THE SUBCCRIPT	F2213660
	06331	−0 63400 2 06361	1361	3GRP72	SXD	MIDP,2 BEING RESET, STORE IN INP, MIDP.	F2213670
	06332	−0 53400 4 03755	1362		LXD	L(4),4 THIS LOOP IS EXECUTED TWICE.	F2213680
	06333	0 50000 4 06366	1363	3GRP75	CLA	INX+4,4 OBTAIN INNER INDEX OF PAIR	F2213690
	06334	−0 73400 1 00000	1364		PDX	0,1 IN XRA	F2213700
	06335	0 50000 4 06367	1365		CLA	INL+4,4 OBTAIN INNER LEVEL OF PAIR	F2213710
	06336	0 60100 0 03741	1366		STO	TL2 TL2	F2213718
	06337	0 50000 0 03723	1367		CLA	LL OBTAIN LOWER LEVEL IN	F2213720
	06340	0 60100 0 03740	1368		STO	TL1 TL1	F2213740
	06341	−0 53400 2 03752	1369		LXD	L(1),2 PUT ONE IN XRB,	F2213750
	06342	−0 63400 4 06360	1370		SXD	3GRP80,4 SAVE XRC,	F2213760
	06343	0 07400 4 05441	1371		TSX	TRAWRD,4 AND USE TRAWRD.	F2213770
	06344	−0 53400 4 06360	1372		LXD	3GRP80,4 RESTORE XRC,	F2213780
	06345	0 10000 0 06355	1373		TZE	3GRP77 GO TO INDEXING IF ZERO.	F2213790
	06346	0 50000 4 06363	1374		CLA	INP+4,4 TRAWRD RESULT NOT ZERO.	F2213800
	06347	−0 73400 2 00000	1375		PDX	0,2 PREPARE T0	F2213810
	06350	0 50000 4 06366	1376		CLA	INX+4,4 USE RESET	F2213820
	06351	−0 73400 1 00000	1377		PDX	0,1	F2213830
	06352	−0 63400 4 06360	1378		SXD	3GRP80,4 SAVE XRC,	F2213840
	06353	0 07400 4 06370	1379		TSX	RESET,4 GO TO RESET,	F2213850
	06354	−0 53400 4 06360	1380		LXD	3GRP80,4 RESTR0E XRC,	F2213860
	06355	2 00002 4 06333	1381	3GRP77	TIX	3GRP75,4,2 INDEX AND GO BACK,	F2213870
	06356	0 02000 0 06366	1382		TRA	3NSEND OR EXIT	F2213880
A	06357	0 00000 0 00000	1383	INP	HTR	POSITION OF INNER SUB.	F2213890
A	06360	0 00000 0 00000	1384	3GRP80	HTR		F2213900
A	06361	0 00000 0 00000	1385	MIDP	HTR	POSITION OF MIDDLE SUB.	F2213910
A	06362	0 00000 0 00000	1386	INX	HTR	INDEX INNER LEVEL SUBSCRIPT	F2213920
A	06363	0 00000 0 00000	1387	INL	HTR	LEVEL INNER LEVEL SUBSCRIPT	F2213930
A	06364	0 00000 0 00000	1388	MIDX	HTR	INDEX MIDDLE LEVEL SUBSCRIPT	F2213940
A	06365	0 00000 0 00000	1389	MIDL	HTR	LEVEL MIDDLE LEVEL SUBSCRIPT	F2213950
	06366	−0 53400 4 06255	1390	3NSEND	LXD	3GRP15,4	F2213960
	06367	0 02000 4 00001	1391		TRA	1,4	F2213970
	06370	−0 63400 4 06421	1392	RESET	SXD	RES45,4 SAVE LINKAGE	F2213980
	06371	−0 75400 2 00000	1393		PXD	0,2 SAVE	F2213990
	06372	0 60100 0 06613	1394		STO	RES300 PREFIX (REBITS)	F2214000
	06373	−0 75400 1 00000	1395		PXD	0,1 SAVE INDEX	F2214010
	06374	0 60100 0 06614	1396		STO	RES310 OF RESET	F2214020
	06375	0 50000 0 03710	1397		CLA	C3 OBTAIN C3 IN	F2214030
	06376	0 77100 0 00022	1398		ARS	18 ADDRESS PART.	F2214040
	06377	0 02000 2 06406	1399	RES05	TRA	RES05+7,2 INDEXED T RANSFER, C(XRB)=C(REBITS)	F2214050
	06400	0 02000 0 06422	1400		TRA	RES50 C(XRB)=110	F2214060
	06401	0 02000 0 06414	1401		TRA	RES30 C(XRB)=101	F2214070
	06402	0 02000 0 06416	1402		TRA	RES40 C(XRB)=100	F2214080
	06403	0 02000 0 06412	1403		TRA	RES20 C(XRB)=011	F2214090
	06404	0 02000 0 06422	1404		TRA	RES50 C(XRB)= 010	F2214100
	06405	0 60100 0 05064	1405	RES10	STO	E2 C(XRB)=001	F2214110
	06406	0 50000 0 03713	1406		CLA	D2 THESE INSTRUCTIONS, THROUGH	F2214120
	06407	0 77100 0 00022	1407		ARS	18 RES60, COMPUTE THE	F2214130
	06410	0 40000 0 03712	1408		ADD	D1 CHARACTERISTIC WORDS OF THE	F2214140
	06411	0 02000 0 06430	1409		TRA	RES60 SUBSCRIPT COMBINATION.	F2214150
	06412	0 40000 0 03706	1410	RES20	ADD	C2	F2214160
	06413	0 02000 0 06405	1411		TRA	RES10	F2214170
	06414	0 40000 0 03704	1412	RES30	ADD	C1	F2214180
	06415	0 02000 0 06405	1413		TRA	RES10	F2214190
	06416	0 50000 0 03704	1414	RES40	CLA	C1	F2214200
	06417	0 60100 0 05064	1415		STO	E2	F2214210
	06420	0 50000 0 03751	1416		CLA	L(0)	F2214220
D	06421	−3 00000 0 06430	1417	RES45	TXL	RES60,0	F2214230
	06422	0 50000 0 03706	1418	RES50	CLA	C2	F2214240
	06423	0 77100 0 00022	1419		ARS	18	F2214250
	06424	−3 00002 2 06426	1420		TXL	RES55,2,2	F2214260
	06425	0 40000 0 03704	1421		ADD	C1	F2214270
	06426	0 60100 0 05064	1422	RES55	STO	E2	F2214280
	06427	0 50000 0 03712	1423		CLA	D1	F2214290
	06430	0 60100 0 05065	1424	RES60	STO	E3	F2214300
	06431	3 00004 2 06433	1425		TXH	RES65,2,4 IF PREFIX IS 1,0,0,	F2214310
	06432	3 00003 2 06620	1426		TXH	RES400,2,3 T RA TO RES400	F2214320
	06433	−0 53400 1 04007	1427	RES65	LXD	RESXX,1 SEARCH	F2214330
	06434	−0 63400 1 06445	1428		SXD	RES75,1 RETAB	F2214340
	06435	0 53400 1 04007	1429		LXA	RESXX,1 FOR	F2214350
	06436	0 02000 0 06445	1430		TRA	RES75 SAME	F2214360
	06437	0 50000 1 07755	1431	RES70	CLA	RETABZ,1 INDEX.	F2214370
	06440	−0 32000 0 03772	1432		ANA	DECMSK	F2214380
	06441	0 34000 0 06614	1433		CAS	RES310	F2214390
	06442	1 77775 1 06445	1434		TXI	RES75,1,−3	F2214400
	06443	0 02000 0 06447	1435		TRA	RES80 INDEX FOUND, GO TO RES80	F2214410
	06444	1 77775 1 06445	1436	RES73	TXI	RES75,1,−3	F2214420
D	06445	3 00000 1 06437	1437	RES75	TXH	RES70,1	F2214430
	06446	0 02000 0 06466	1438		TRA	RES85 NOT FOUND, GO TO RES85	F2214440
	06447	0 50000 1 07755	1439	RES80	CLA	RETABZ,1 COMPARE PREFIX OF	F2214450
	06450	−0 32000 0 06615	1440		ANA	RES320 RETAB ENTRY	F2214460
	06451	0 76700 0 00006	1441		ALS	6 WITH CURRENT	F2214470
	06452	0 40200 0 06613	1442		SUB	RES300 PREFIX. IF NOT EQUAL,	F2214480
	06453	−0 10000 0 06444	1443		TNZ	RES73 CONTINUE RETAB SEARCH.	F2214490
	06454	0 50000 1 07756	1444		CLA	RETABZ+1,1 IF EQUAL, COMPARE	F2214500
	06455	0 40200 0 05064	1445		SUB	E2 C HARACTERISTIC WORDS.	F2214510
	06456	−0 10000 0 06444	1446		TNZ	RES73 IF	F2214520
	06457	0 50000 1 07757	1447		CLA	RETABZ+2,1 NOT	F2214530
	06460	0 40200 0 05065	1448		SUB	E3	F2214540
	06461	−0 10000 0 06444	1449		TNZ	RES73 EQUAL, CONTINUE SEARCH.	F2214550
	06462	0 50000 1 07755	1450		CLA	RETABZ,1 IF EQUAL,	F2214560
	06463	−0 32000 0 03773	1451		ANA	ADDMSK USE RESET TAG ALREADY	F2214570
	06464	0 60100 0 06616	1452		STO	RES330 ENTERED. SAVE NAME.	F2214580
	06465	0 02000 0 06573	1453		TRA	RES200 TRA T0 RES200	F2214590
	06466	0 50000 0 06613	1454	RES85	CLA	RES300 NO USABLE ENTRY FOUND.	F2214600
	06467	0 77100 0 00006	1455		ARS	6 MAKE	F2214610
	06470	−0 50100 0 03700	1456		ORA	TAG NEW	F2214620
	06471	0 60100 0 06616	1457		STO	RES330	F2214630
	06472	−0 50100 0 06614	1458		ORA	RES310 ENTRY	F2214640
	06473	−0 53400 1 04007	1459		LXD	RESXX,1 IN	F2214650
	06474	3 00000 1 06476	1460		TXH	RES87,1,0 RETAB.	F2214660
	06475	0 07400 4 00004	1461		TSX	DIAG,4 RETAB TABLE FULL. ERROR. GO TO DIAGNOSTIC.	F2214675
	06476	0 60100 1 07755	1462	RES87	STO	RETABZ,1	F2214680
	06477	0 50000 0 05064	1463		CLA	E2	F2214690
	06500	0 60100 1 07756	1464		STO	RETABZ+1,1	F2214700
	06501	0 50000 0 05065	1465		CLA	E3	F2214710
	06502	0 60100 1 07757	1466		STO	RETABZ+2,1	F2214720
	06503	1 77775 1 06504	1467		TXI	RES88,1,−3 ADJUST IN DEX.	F2214730
	06504	−0 63400 1 04007	1468	RES88	SXD	RESXX,1	F2214740
	06505	0 50000 0 06614	1469		CLA	RES310 MAKE E2 WORD	F2214750
	06506	3 00005 2 06522	1470		TXH	RES96,2,5 FOR DRUMTAG OR	F2214760
	06507	3 00004 2 06521	1471		TXH	RES94,2,4 TAGTAG ENTRY	F2214770
	06510	3 00003 2 06520	1472		TXH	RES92,2,3	F2214780
	06511	3 00002 2 06515	1473		TXH	RES90,2,2	F2214790
	06512	3 00001 2 06522	1474		TXH	RES96,2,1	F2214800
	06513	0 77100 0 00022	1475		ARS	18	F2214810
	06514	0 02000 0 06522	1476		TRA	RES96	F2214820
	06515	0 77100 0 00022	1477	RES90	ARS	18	F2214830
	06516	0 40000 0 06614	1478		ADD	RES310	F2214840
	06517	0 02000 0 06522	1479		TRA	RES96	F2214850
	06520	0 50000 0 03751	1480	RES92	CLA	L(0)	F2214860
	06521	0 77100 0 00022	1481	RES94	ARS	18	F2214870
	06522	0 60100 0 05064	1482	RES96	STO	E2	F2214880
	06523	0 50000 0 06614	1483		CLA	RES310 MAKE	F2214890
	06524	0 77100 0 00022	1484		ARS	18 E1 WORD	F2214900
	06525	3 00003 2 06527	1485		TXH	RES98,2,3	F2214910
	06526	0 50000 0 03751	1486		CLA	L(0)	F2214920
	06527	0 60100 0 05063	1487	RES98	STO	E1	F2214930
	06530	−0 53400 1 06614	1488		LXD	RES310,1	F2214940
	06531	0 50000 1 00733	1489		CLA	DOTAGZ,1	F2214950
	06532	−0 32000 0 03772	1490		ANA	DECMSK	F2214960
	06533	−0 60200 0 05063	1491		ORS	E1	F2214970
	06534	0 50000 0 06616	1492		CLA	RES330 MAKE	F2214980
	06535	0 60100 0 05065	1493		STO	E3 E3 WORD	F2214990
	06536	0 50000 0 03757	1494		CLA	L(6) MAKE	F2215000
	06537	0 60100 0 05066	1495		STO	E4 E4	F2215010
	06540	0 50000 0 06613	1496		CLA	RES300 WORD	F2215020
	06541	0 77100 0 00022	1497		ARS	18	F2215030
	06542	−0 60200 0 05066	1498		ORS	E4	F2215040
	06543	−3 00002 2 06550	1499		TXL	RES110,2,2	F2215050
	06544	−3 00003 2 06546	1500		TXL	RES100,2,3	F2215060
	06545	−3 00004 2 06550	1501		TXL	RES110,2,4	F2215070
	06546	0 76700 0 00011	1502	RES100	ALS	9	F2215080
	06547	−0 60200 0 05066	1503		ORS	E4	F2215090
	06550	0 50000 0 03751	1504	RES110	CLA	L(0) THESE INSTRUCTIONS,	F2215100
	06551	0 60100 0 06617	1505		STO	RES340 T0 RES170, DETERMINE	F2215110
	06552	−0 53400 4 03756	1506		LXD	L(5),4 WHICH COEFFICIENTS	F2215120
	06553	0 50000 4 03711	1507	RES120	CLA	C1+5,4 ARE GREATER THAN	F2215130
	06554	0 40200 0 03752	1508		SUB	L(1) ONE AND PLACE	F2215140
	06555	0 10000 0 06562	1509		TZE	RES140 THIS INFO IN	F2215150
	06556	2 00001 4 06557	1510		TIX	RES130,4,1 E4(TAG1).	F2215160
	06557	−0 75400 4 00000	1511	RES130	PXD	0,4	F2215170
	06560	−0 60200 0 06617	1512		ORS	RES340	F2215180
	06561	1 00001 4 06562	1513		TXI	RES140,4,1	F2215190
	06562	2 00002 4 06553	1514	RES140	TIX	RES120,4,2	F2215200
	06563	0 50000 0 06617	1515		CLA	RES340	F2215210
	06564	−0 32000 0 06613	1516		ANA	RES300	F2215220
	06565	0 77100 0 00006	1517		ARS	6	F2215230
	06566	−0 60200 0 05066	1518		ORS	E4	F2215240
	06567	0 50000 0 05073	1519		CLA	DRMTAG DRUM TAG ENTRY	F2215250
	06570	0 07400 4 05025	1520		TSX	LIST,4 OR	F2215260
	06571	0 02000 0 06573	1521		TRA	RES200 TAGTAG	F2215270
	06572	0 07400 4 05510	1522	RES180	TSX	TAGENT,4 ENTRY.	F2215280
	06573	−0 53400 1 06614	1523	RES200	LXD	RES310,1 MAKE	F2215290
	06574	0 50000 1 00733	1524		CLA	DOTAGZ,1 PROPER	F2215300
	06575	0 60100 0 05063	1525		STO	E1 TRASTO	F2215310
	06576	0 50000 0 03741	1526		CLA	TL2 ENTRY	F2215320
	06577	0 77100 0 00022	1527		ARS	18	F2215330
	06600	0 40000 0 03740	1528		ADD	TL1	F2215340
	06601	0 60100 0 05064	1529		STO	E2	F2215350
	06602	0 50000 0 06616	1530		CLA	RES330	F2215360
	06603	0 76700 0 00022	1531		ALS	18	F2215370
	06604	0 40000 0 03701	1532		ADD	TS	F2215380
	06605	−0 76000 0 00003	1533		SSM		F2215390
	06606	0 60100 0 05065	1534		STO	E3	F2215400
	06607	0 50000 0 05070	1535		CLA	TRASTO	F2215410
	06610	0 07400 4 05025	1536		TSX	LIST,4	F2215420
	06611	−0 53400 4 06421	1537	RES210	LXD	RES45,4 EXIT.	F2215430
	06612	0 02000 4 00001	1538		TRA	1,4	F2215440
A	06613	0 00000 0 00000	1539	RES300	HTR	PREFIX STORAGE	F2215450
A	06614	0 00000 0 00000	1540	RES310	HTR	INDEX STORAGE	F2215460
	06615	+000000070000	1541	RES320	OCT	70000 PREFIX MASK	F2215470
A	06616	0 00000 0 00000	1542	RES330	HTR	RESET NAME STORAGE	F2215480
A	06617	0 00000 0 00000	1543	RES340	HTR	E.S.	F2215490
	06620	0 50000 0 05064	1544	RES400	CLA	E2 TEST FOR COEFFICIENT	F2215500
	06621	0 40200 0 03752	1545		SUB	L(1) EQUAL TO ONE.	F2215510
	06622	−0 10000 0 06433	1546		TNZ	RES65 IF NOT, PROCESS NORMALLY	F2215520
	06623	0 50000 1 00733	1547		CLA	DOTAGZ,1 THROUGH RESET.	F2215530
	06624	0 77100 0 00021	1548		ARS	17 TEST FOR CONSTANT N1.	F2215540
	06625	0 76000 0 00001	1549		LBT	IF VARIABLE, NORMAL PROCESSING.	F2215550
	06626	0 02000 0 06630	1550		TRA	RES410 0	F2215560
	06627	0 02000 0 06433	1551		TRA	RES65 1	F2215570
	06630	0 50000 1 00741	1552	RES410	CLA	DOTAGZ+6,1 HAS COUNTER BEEN FOUND.	F2215580
	06631	−0 32000 0 04001	1553		ANA	BITTWO	F2215590
	06632	−0 10000 0 06645	1554		TNZ	RES420 IF SO, GO TO RES420	F2215600
	06633	0 50000 0 03741	1555		CLA	TL2 IF NOT, MAKE ENTRY	F2215610
	06634	0 77100 0 00022	1556		ARS	18 IN ADDED TAG TABLE	F2215620
	06635	−0 50100 0 03740	1557		ORA	TL1 FOR PROCESSING INTO	F2215630
	06636	−0 76000 0 00003	1558		SSM	DRUM TAG AFTER NEST	F2215640
	06637	0 76500 0 00043	1559		LRS	35 ANALYSIS.	F2215650
	06640	−0 75400 1 00000	1560		PXD	0,1	F2215660
	06641	−0 50100 0 03701	1561		ORA	TS	F2215670
	06642	−0 53400 2 03752	1562		LXD	L(1),2	F2215680
	06643	0 07400 4 05254	1563		TSX	TAGADD,4	F2215690
	06644	0 02000 0 06611	1564		TRA	RES210 TRA TO EXIT	F2215700
	06645	0 07400 4 05140	1565	RES420	TSX	RSR,4 COUNTER FOUND, USE RSR.	F2215710
	06646	0 02000 0 06611	1566		TRA	RES210 TRA T0 EXIT	F2215720
			1567			THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST DIAGNOSTIC RECORD.	F2215725
	06647	0 76200 0 00221	1568	NORMRT	RDS	145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE.	F2215726
	06650	0 02000 0 00004	1569		TRA	ONETCS GO TO ONE TO CS ( MONITOR)	F2215727
		06651	1570		BSS	80	F2215730
		06771	1571	TAGZ	BSS	1	F2215740
		06772	1572		BSS	99	F2215750
		07135	1573	ADTAGZ	BSS	1	F2215760
		07136	1574		BSS	99	F2215770
		07301	1575	NAMZ	BSS	1	F2215780
		07302	1576		BSS	299	F2215790
		07755	1577	RETABZ	BSS	1	F2215800
			1578			MASTER RECORD CARD = FN030	F2215805
			1579			TMIS ROUTINE PROCESSES SINGLE RELATIVE CONSTANTS	F2215810
			1580			AND, FOR SC WITH TWO RC SUBS, DOES ALL PROCESSING	F2215820
			1581			EXCEPT WHERE THERE IS A POSSIBLE MULTIPLE DEFINITION,	F2215830
			1582			AT WHICH POINT IT CALLS ON 2R0000.	F2215840
		05566	1583		ORG	IDENT STATE B	F2215850
	05566	−0 53400 1 00030	1584	CORES	LXD	DOTAG−1,1	F2215860
	05567	−0 63400 1 05602	1585		SXD	DSDR20,1	F2215870
	05570	−0 63400 1 05745	1586		SXD	DSD118,1	F2215880
	05571	−0 63400 1 05762	1587		SXD	DSD145,1	F2215890
	05572	−0 63400 1 06026	1588		SXD	2R0020,1	F2215900
	05573	−0 76000 0 00144	1589	DSDR00	MSE	100	F2215910
	05574	0 76100 0 00000	1590		NOP		F2215920
	05575	−0 53400 1 03674	1591		LXD	XC,1 PUT INDEX OF DC IN XRA	F2215930
	05576	−0 53400 4 03732	1592		LXD	DELTA,4 PUT DELTA IN XRC	F2215940
	05577	0 50000 0 03675	1593		CLA	LC INITIALIZE END OF	F2215950
	05600	0 62200 0 05605	1594		STD	DSDR30 DC TEST INSTR	F2215960
	05601	1 77767 1 05602	1595	DSDR10	TXI	DSDR20,1,−9 TAKE NEXT DOWN DO,IF POSSIBLE	F2215970
D	05602	−3 00000 1 05734	1596	DSDR20	TXL	DSD100,1 EXIT IF DOTAG EXHAUSTED.	F2215980
	05603	0 50000 1 00740	1597		CLA	DOTAGZ+5,1 OBTAIN LEVEL OF THIS DO IN	F2215990
	05604	−0 73400 2 00000	1598		PDX	0,2 XRB,COMPARE W1TH LEVEL OF	F2216000
D	05605	−3 00000 2 05734	1599	DSDR30	TXL	DSD100,2 D6 AND EXIT IF NOT IN DC.	F2216010
	05606	0 50000 1 00734	1600		CLA	DOTAGZ+1,1 OBTAIN SYMBOL OF THIS DO	F2216020
	05607	0 40200 0 03735	1601		SUB	RSYM1 COMPARE WITH (FIRST) R SYM.	F2216030
	05610	0 10000 0 05621	1602		TZE	DSDR50 IF THIS DO IS DR1,TRA.	F2216040
	05611	−3 00002 4 05601	1603		TXL	DSDR10,4,2 IF NOT DR1,GO BACK,UNLESS DELTA3	F2216050
	05612	0 50000 1 00734	1604		CLA	DOTAGZ+1,1 OBTAIN SYMBOL AGAIN	F2216060
	05613	0 40200 0 03736	1605		SUB	RSYM2 AND COMPARE WITH RSYM2	F2216070
	05614	−0 10000 0 05601	1606		TNZ	DSDR10 IF NOT RSYM1 OR RSYM2,G0 BACK	F2216080
	05615	0 50000 0 03736	1607		CLA	RSYM2 IF DO SYM IS RSYM2,	F2216090
	05616	0 56000 0 03735	1608		LDQ	RSYM1 SWITCH RSYM1 AND RSYM2	F2216100
	05617	0 60100 0 03735	1609		STO	RSYM1 TO MAKE BUCKET LABLES	F2216110
	05620	−0 60000 0 03736	1610		STQ	RSYM2 AGREE WITH ORDER OF DO FORMULAS	F2216120
	05621	−0 63400 1 06365	1611	DSDR50	SXD	XR1,1 SAVE	F2216130
	05622	−0 75400 2 00000	1612		PXD	0,2 INDEX OF R1	F2216140
	05623	0 60100 0 06366	1613		STO	LR1 AND LEVEL OF R1	F2216150
	05624	0 60100 0 03741	1614		STO	TL2 INITIALIZE TRAWRD TL2	F2216160
	05625	0 50000 0 03723	1615		CLA	LL INITIALIZE TRAWRD TL1	F2216170
	05626	0 60100 0 03740	1616		STO	TL1 PREPARE	F2216180
	05627	−0 53400 2 03752	1617		LXD	L(1),2 TRAWRD C(XRB)	F2216190
	05630	−3 00002 4 05632	1618		TXL	DSDR55,4,2	F2216200
	05631	−0 53400 2 03753	1619		LXD	L(2),2	F2216210
	05632	0 07400 4 05441	1620	DSDR55	TSX	TRAWRD,4 GO TO TRAWRD AND	F2216220
	05633	0 60100 0 06371	1621		STO	D2D1 SAVE IF NOT ZERO	F2216230
	05634	−0 53400 4 03732	1622		LXD	DELTA,4 RETURN HERE	F2216240
	05635	3 00002 4 05703	1623		TXH	DSDR85,4,2 TRANSFER IF DELTA IS THREE	F2216250
	05636	0 10000 0 05602	1624		TZE	DSDR20 RETURN IF RESULT ZERO	F2216260
	05637	−0 63400 1 05733	1625		SXD	DSDR95,1	F2216270
	05640	−3 00001 4 05655	1626		TXL	DSDR65,4,1 TR IF DELTA=1	F2216280
	05641	0 50000 0 03761	1627		CLA	L(36) FOR DELTA=2,SEPARATE	F2216290
	05642	0 40200 0 03675	1628		SUB	LC TRAWRD RESULTS.	F2216300
	05643	0 77100 0 00022	1629		ARS	18	F2216310
	05644	0 62100 0 05647	1630		STA	DSDR60	F2216320
	05645	0 56000 0 03751	1631		LDQ	L(0)	F2216330
	05646	0 50000 0 06371	1632		CLA	D2D1	F2216340
A	05647	0 76500 0 00000	1633	DSDR60	LRS		F2216350
	05650	0 10000 0 05652	1634		TZE	DSDR62 IF TRANSFERS EXIST DC T0 DL,	F2216360
	05651	0 76000 0 00144	1635		PSE	100 SET SENSE SWITCH	F2216370
	05652	−0 60000 0 06371	1636	DSDR62	STQ	D2D1	F2216380
	05653	0 50000 0 06371	1637		CLA	D2D1	F2216390
	05654	0 10000 0 05700	1638		TZE	DSDR80 IF NO TRANSFERS DR TO DC,EXIT	F2216400
	05655	0 50000 0 03672	1639	DSDR65	CLA	ATSW TEST ADDED TAG SWITCH	F2216410
	05656	−0 10000 0 05700	1640		TNZ	DSDR80 IF ADDED DELTA TWO, SKIP INSERT	F2216420
	05657	−0 53400 1 06365	1641		LXD	XR1,1 IS TAG IN DR1	F2216430
	05660	0 07400 4 05411	1642		TSX	TINFOR,4 GO TO TINFOR AND RETURN	F2216440
	05661	0 02000 0 05667	1643		TRA	DSDR70 FOUND	F2216450
	05662	−0 53400 2 03751	1644		LXD	L(0),2 NOT FOUND	F2216460
	05663	−0 53400 1 06365	1645		LXD	XR1,1	F2216470
	05664	0 07400 4 05254	1646		TSX	TAGADD,4 INSERT TAG IN R1,RETURN	F2216480
	05665	−0 60000 0 06374	1647		STQ	TR1 HERE AND STORE NAME IN TR1	F2216490
	05666	0 02000 0 05675	1648		TRA	DSDR75	F2216500
	05667	−0 53400 1 06365	1649	DSDR70	LXD	XR1,1 FIND NAME OF TAG IN R1	F2216510
	05670	0 50000 1 00733	1650		CLA	DOTAGZ,1	F2216520
	05671	−0 32000 0 03772	1651		ANA	DECMSK	F2216530
	05672	0 40000 0 03700	1652		ADD	TAG	F2216540
	05673	0 07400 4 06376	1653		TSX	GETNAM,4	F2216550
	05674	0 60100 0 06374	1654		STO	TR1	F2216560
	05675	−0 53400 1 06365	1655	DSDR75	LXD	XR1,1 LIST STORES	F2216570
	05676	−0 53400 2 03751	1656		LXD	L(0),2	F2216580
	05677	0 07400 4 06431	1657		TSX	STORES,4	F2216590
	05700	−0 53400 1 05733	1658	DSDR80	LXD	DSDR95,1	F2216600
	05701	−0 53400 4 03732	1659		LXD	DELTA,4	F2216610
	05702	0 02000 0 05602	1660		TRA	DSDR20	F2216620
	05703	0 10000 0 06022	1661	DSDR85	TZE	2R0000 GO TO R2 SEARCH IF NO TRA R1 TO D6	F2216630
	05704	−0 53400 1 06365	1662		LXD	XR1,1 IF TRA R1 TO DC,	F2216640
	05705	−0 53400 2 03752	1663		LXD	L(1),2 USE SPC000 TO LOOK FOR	F2216630
	05706	0 07400 4 05277	1664		TSX	SPC000,4 TAG IN R1	F2216660
	05707	0 02000 0 05717	1665		TRA	DSDR87 NOT FOUND,GO TO DSDR87	F2216670
	05710	−0 53400 1 06365	1666		LXD	XR1,1 FOUND,USE SUBROUTINE	F2216680
	05711	0 50000 1 00733	1667		CLA	DOTAGZ,1 GETNAM TO DETERMINE LABLE	F2216690
	05712	−0 32000 0 03772	1668		ANA	DECMSK OF TAG IN R1	F2216700
	05713	0 40000 0 03700	1669		ADD	TAG	F2216710
	05714	0 07400 4 06376	1670		TSX	GETNAM,4	F2216720
	05715	0 60100 0 06374	1671		STO	TR1 PUT NAME IN TR1	F2216730
	05716	0 02000 0 05726	1672		TRA	DSDR89	F2216740
	05717	−0 53400 1 06365	1673	DSDR87	LXD	XR1,1 USE TAGADD TO INSERT	F2216750
	05720	−0 53400 2 03751	1674		LXD	L(0),2 TAG IN R1	F2216760
	05721	0 07400 4 05254	1675		TSX	TAGADD,4	F2216770
	05722	−0 60000 0 06374	1676		STQ	TR1 PUT NAME IN TR1	F2216780
	05723	−0 53400 1 03722	1677		LXD	XL,1	F2216790
	05724	0 50000 0 04005	1678		CLA	BIT20	F2216800
	05725	−0 60200 1 00741	1679		ORS	DOTAGZ+6,1	F2216810
	05726	−0 53400 1 06365	1680	DSDR89	LXD	XR1,1 LIST STORES	F2216820
	05727	−0 53400 2 03752	1681		LXD	L(1),2	F2216830
	05730	0 07400 4 06431	1682		TSX	STORES,4	F2216840
	05731	0 02000 0 06022	1683	DSDR90	TRA	2R0000 GO TO R2 ROUTINE AND	F2216850
	05732	−0 53400 4 03732	1684	DSDR92	LXD	DELTA,4 RETURN HERE	F2216860
D	05733	−3 00000 0 05602	1685	DSDR95	TXL	DSDR20,0 NEXT R1. DEC CONTAINS XNEXTR1	F2216870
	05734	−3 00001 4 06021	1686	DSD100	TXL	DSD200,4,1 TRA IF DELTA IS 1	F2216880
	05735	3 00002 4 06021	1687		TXH	DSD200,4,2 TRA IF DELTA IS 3	F2216890
	05736	−0 76000 0 00144	1688		MSE	100 DELTA IS 2,TEST D3D1 SWITCH	F2216900
	05737	0 02000 0 05741	1689		TRA	DSD110 LIGHT OFF	F2216910
	05740	0 02000 0 05776	1690		TRA	DSD170 LIGHT ON	F2216920
	05741	−0 53400 1 03722	1691	DSD110	LXD	XL,1 OBTAIN INDEX OF DL IN XRA	F2216930
	05742	0 50000 1 00740	1692		CLA	DOTAGZ+5,1 OBTAIN LEVEL OF DL	F2216940
	05743	0 62200 0 05750	1693		STD	DSD120 AND STORE IN TEST INSTR.	F2216950
	05744	1 77767 1 05745	1694	DSD115	TXI	DSD118,1,−9 TAKE NEXT DOWN DO IF POSSIBLE	F2216960
D	05745	−3 00000 1 06021	1695	DSD118	TXL	DSD200,1 OTHERWISE,EXIT,	F2216970
	05746	0 50000 1 00740	1696		CLA	DOTAGZ+5,1 OBTAIN LEVEL OF THIS DO	F2216980
	05747	−0 73400 2 00000	1697		PDX	0,2 AND TEST WHETHER THIS DO IS	F2216990
D	05750	−3 00000 2 06021	1698	DSD120	TXL	DSD200,2 IN DL. IF NOT,EXIT.	F2217000
	05751	−0 75400 1 00000	1699		PXD	0,1 IF IN DL,	F2217010
	05752	0 40200 0 03674	1700		SUB	XC IF THIS DO D6.	F2217020
	05753	0 10000 0 05760	1701		TZE	DSD130 IF SO,TRA.	F2217030
	05754	0 50000 1 00734	1702		CLA	DOTAGZ+1,1 IF NOT,IS THIS DO A DR.	F2217040
	05755	0 40200 0 03735	1703		SUB	RSYM1	F2217050
	05756	0 10000 0 05767	1704		TZE	DSD160 IF SO,TRA,	F2217060
	05757	0 02000 0 05744	1705		TRA	DSD115 IF NOT,GO BACK TO GET NEXT DO	F2217070
	05760	−0 63400 2 05765	1706	DSD130	SXD	DSD150,2 IF DO IS DC,	F2217080
	05761	1 77767 1 05762	1707	DSD140	TXI	DSD145,1,−9	F2217090
D	05762	−3 00000 1 06021	1708	DSD145	TXL	DSD200,1	F2217100
	05763	0 50000 1 00740	1709		CLA	DOTAGZ+5,1 IS NEW IN DL.	F2217110
	05764	−0 73400 2 00000	1710		PDX	0,2 IF SO,GO BACK TO STEP DOWN	F2217120
D	05765	−3 00000 2 05750	1711	DSD150	TXL	DSD120,2 AGAIN IN DC. IF NOT IN	F2217130
	05766	0 02000 0 05761	1712		TRA	DSD140 DC, GO TO TEST IF IN DL	F2217140
	05767	−0 75400 2 00000	1713	DSD160	PXD	0,2 INITIALIZE	F2217150
	05770	0 60100 0 03741	1714		STO	TL2 TL2 TO LEVEL OF DR	F2217160
	05771	0 50000 0 03723	1715		CLA	LL PUT LEVEL OF DL	F2217170
	05772	0 60100 0 03740	1716		STO	TL1 IN TL1	F2217180
	05773	−0 53400 2 03752	1717		LXD	L(1),2 PUT 1 IN XRB	F2217190
	05774	0 07400 4 05441	1718		TSX	TRAWRD,4 AND GO TO TRAWRD.	F2217200
	05775	0 10000 0 05745	1719		TZE	DSD118 IF RESUTL ZERO,GO BACK	F2217210
	05776	−0 53400 2 03722	1720	DSD170	LXD	XL,2	F2217220
	05777	0 50000 0 04000	1721		CLA	BITONE	F2217230
	06000	−0 60200 2 00740	1722		ORS	DOTAGZ+5,2	F2217240
	06001	−0 53400 2 03750	1723		LXD	LOWP0S,2	F2217250
	06002	0 50000 0 03751	1724		CLA	L(0)	F2217260
	06003	0 60100 2 03721	1725		STO	X1+5,2	F2217270
	06004	0 60100 2 03722	1726		STO	X1+6,2	F2217280
	06005	2 00001 2 06006	1727		TIX	DSD175,2,1	F2217290
	06006	−0 75400 2 00000	1728	DSD175	PXD	0,2	F2217300
	06007	−0 60200 0 03727	1729		ORS	DORC	F2217310
	06010	0 76000 0 00006	1730		COM		F2217320
	06011	0 32000 0 03731	1731		ANS	DOSUBS	F2217330
	06012	0 50000 0 03674	1732		CLA	XC	F2217340
	06013	0 60100 0 03722	1733		STO	XL	F2217350
	06014	0 50000 0 03675	1734		CLA	LC	F2217360
	06015	0 60100 0 03723	1735		STO	LL	F2217370
	06016	0 50000 0 03752	1736		CLA	L(1)	F2217380
	06017	0 60100 0 03726	1737		STO	NRDS	F2217390
	06020	0 60100 0 03732	1738		STO	DELTA	F2217400
	06021	0 02000 0 06123	1739	DSD200	TRA	DS4VAL	F2217410
			1740			RELCON DELTA THREE SECOND LEVEL DEFINITION.	F2217420
	06022	−0 53400 1 06365	1741	2R0000	LXD	XR1,1 PUT INDEX OF R1 IN XRA	F2217430
	06023	0 50000 0 06366	1742		CLA	LR1 OBTAIN LEVEL OF R1	F2217440
	06024	0 62200 0 06031	1743		STD	2R0030 INITIALIZE TEST INSTR.	F2217450
	06025	1 77767 1 06026	1744	2R0010	TXI	2R0020,1,−9 TAKE NEXT DOWN DO IF POSSIBLE	F2217460
D	06026	−3 00000 1 05732	1745	2R0020	TXL	DSDR92,1 EXIT IF PARTLY FULL DOTAG EXHAUSTED	F2217470
	06027	0 50000 1 00740	1746		CLA	DOTAGZ+5,1 OBTAIN LEVEL OF DO	F2217480
	06030	−0 73400 2 00000	1747		PDX	0,2 PUT IN XRB AND COMPARE WITH	F2217490
D	06031	−3 00000 2 05732	1748	2R0030	TXL	DSDR92,2 LR1,EXIT IF NEW DO NOT IN XR1.	F2217500
	06032	0 50000 1 00734	1749		CLA	DOTAGZ+1,1 OBTAIN SYMBOL OF NEW DO,	F2217510
	06033	0 40200 0 03736	1750		SUB	RSYM2 COMPARE WITH RSYM2.	F2217520
	06034	−0 10000 0 06025	1751		TNZ	2R0010 IF NOT RSYM2,G0 BACK.	F2217530
	06035	−0 63400 1 06367	1752		SXD	XR2,1 SAVE INDEX	F2217540
	06036	−0 75400 2 00000	1753		PXD	0,2 AND LEVEL	F2217550
	06037	0 60100 0 06370	1754		STO	LR2 OF R2.	F2217560
	06040	0 60100 0 03741	1755		STO	TL2 PREPARE FOR TSX TO TRAWRD.	F2217570
	06041	0 50000 0 03675	1756		CLA	LC TO TEST FOR TRANSFERS	F2217580
	06042	0 60100 0 03740	1757		STO	TL1 FROM R2 TO DS.	F2217590
	06043	−0 53400 2 03752	1758		LXD	L(1),2	F2217600
	06044	0 07400 4 05441	1759		TSX	TRAWRD,4 IF NO TRANSFERS,GO BACK	F2217610
	06045	0 10000 0 06026	1760		TZE	2R0020 FOR NEXT DO.	F2217620
	06046	−0 63400 1 06072	1761		SXD	2R0065,1	F2217630
	06047	0 60100 0 06373	1762		STO	D3D2 TEMPORARY STORAGE	F2217640
	06050	0 50000 0 03761	1763		CLA	L(36) PUT 36 IN ACC	F2217650
	06051	0 40200 0 06366	1764		SUB	LR1 SUB LEVEL OF R1,	F2217660
	06052	0 77100 0 00022	1765		ARS	18 SHIFT RESULT AND	F2217670
	06053	0 62100 0 06056	1766		STA	2R0050	F2217680
	06054	0 56000 0 03751	1767		LDQ	L(0) PUT ZERO IN MQ,	F2217690
	06055	0 50000 0 06373	1768		CLA	D3D2 OBTAIN TRAWRD RESULT,	F2217700
A	06056	0 76500 0 00000	1769	2R0050	LRS	PERFORM SEPARATION	F2217710
	06057	0 60100 0 06372	1770		STO	D3D1 AND SAVE	F2217720
	06060	−0 60000 0 06373	1771		STQ	D3D2 RESULTS.	F2217730
	06061	0 50000 0 06372	1772		CLA	D3D1 IF D3D1 IS ZERO,THEN D3D2	F2217740
	06062	−0 10000 0 06065	1773		TNZ	2R0060 IS NOT ZERO	F2217750
	06063	0 50000 0 06371	1774		CLA	D2D1 IF D2D1 IS ZERO,	F2217760
	06064	0 10000 0 06121	1775		TZE	2R0200 TR TO GET NEX DO	F2217770
	06065	−0 53400 1 06367	1776	2R0060	LXD	XR2,1 SEARCH FOR TAG	F2217780
	06066	0 07400 4 05411	1777		TSX	TINFOR,4 IN R2	F2217790
	06067	0 02000 0 06100	1778		TRA	2R0080 FOUN0,TR TO OBTAIN NAME	F2217800
	06070	−0 53400 1 06367	1779		LXD	XR2,1 NOT FOUND, LOOK FOR DELTA TWO	F2217810
	06071	0 07400 4 06413	1780		TSX	ADDSER,4 INSERT IN ADDED TAG TABLE.	F2217820
D	06072	−3 00000 0 06105	1781	2R0065	TXL	2R0090,0 FOUND,NAME IN ACC.	F2217830
	06073	−0 53400 1 06367	1782		LXD	XR2,1 NOT FOUND	F2217840
	06074	−0 53400 2 03751	1783		LXD	L(0),2 ADD TAG	F2217850
	06075	0 07400 4 05254	1784		TSX	TAGADD,4 IN TABLE OF ADDED TAGES	F2217860
	06076	−0 60000 0 06375	1785		STQ	TR2 PUT NAME IN TR2	F2217870
	06077	0 02000 0 06106	1786		TRA	2R0100	F2217880
	06100	−0 53400 1 06367	1787	2R0080	LXD	XR2,1 SEARCH	F2217890
	06101	0 50000 1 00733	1788		CLA	DOTAGZ,1 FOR	F2217900
	06102	−0 32000 0 03772	1789		ANA	DECMSK NAME	F2217910
	06103	0 40000 0 03700	1790		ADD	TAG	F2217920
	06104	0 07400 4 06376	1791		TSX	GETNAM,4	F2217930
	06105	0 60100 0 06375	1792	2R0090	STO	TR2 PUT NAME IN TR2	F2217940
	06106	0 50000 0 06372	1793	2R0100	CLA	D3D1 LIST STORES IF ANY TR,	F1I17950
	06107	0 10000 0 06113	1794		TZE	2R0150 FOR TRANSFERS,	F2217960
	06110	−0 53400 1 06367	1795		LXD	XR2,1 D3D1	F2217970
	06111	−0 53400 2 03753	1796		LXD	L(2),2	F2217980
	06112	0 07400 4 06431	1797		TSX	STORES,4	F2217990
	06113	0 50000 0 06373	1798	2R0150	CLA	D3D2 TEST TR	F2218000
	06114	0 10000 0 06121	1799		TZE	2R0200 D3D2	F2218010
	06115	0 50000 0 06371	1800		CLA	D2D1 TEST TR	F2218020
	06116	0 10000 0 06121	1801		TZE	2R0200 D2D1	F2218030
	06117	−0 53400 1 06367	1802		LXD	XR2,1 LIST STORES	F2218040
	06120	0 07400 4 06447	1803		TSX	STORXX,4	F2218050
	06121	−0 53400 1 06072	1804	2R0200	LXD	2R0065,1 RETURN FOR	F2218060
	06122	0 02000 0 06026	1805		TRA	2R0020 NEXT R2	F2218070
			1806			DRUM SEARCH OF FORVAL	F2218080
	06123	−0 53400 1 04112	1807	DS4VAL	LXD	END80,1 OBTAIN FORVAL EMPTY INDICATOR,	F2218090
	06124	−3 00000 1 06207	1808		TXL	DS4V20,1,0 EXIT IF FORVAL EMPTY	F2218100
	06125	0 50000 0 03700	1809		CLA	TAG PRESET WORD E2 FOR LIST	F2218110
	06126	0 76700 0 00022	1810		ALS	18 ROUTINE,TAU TAG AND NAME	F2218120
	06127	0 40000 0 03701	1811		ADD	TS	F2218130
	06130	0 60100 0 05064	1812		STO	E2	F2218140
	06131	−0 76000 0 00144	1813		MSE	100 LIGHT 100 OFF	F2218150
	06132	0 76100 0 00000	1814		NOP		F2218160
	06133	0 50000 0 03676	1815		CLA	ALPHA THESE INSTRUCTIONS SET UP	F2218170
	06134	0 60100 0 03742	1816		STO	A FOR DRUM SEARCH.	F2218180
	06135	0 50000 0 03677	1817		CLA	BETA	F2218190
	06136	0 40000 0 03765	1818		ADD	L(1)A	F2218200
	06137	0 60100 0 03743	1819		STO	B	F2218210
	06140	0 50000 0 06363	1820		CLA	4VALAD OBTAIN LOCATION FO FIRST	F2218220
	06141	0 60100 0 06362	1821		STO	FORAD FORVAL DRUM ENTRY,STORE IN	F2218230
	06142	−0 53400 1 03751	1822		LXD	L(0),1 LDA ADDRESS. PUT ZERO	F2218240
	06143	0 07400 4 06210	1823		TSX	FSXX,4 IN XRA AND GO TO	F2218250
	06144	−0 53400 4 03732	1824		LXD	DELTA,4 SEARCH ROUTINE. UPON RETURN,	F2218260
	06145	3 00002 4 06207	1825		TXH	DS4V20,4,2 ECIT UNLESS DELTA IS 2,	F2218270
	06146	−3 00001 4 06207	1826		TXL	DS4V20,4,1 IN WHICH CASE,CONTINUE,	F2218280
	06147	0 76000 0 00144	1827		PSE	100 TURN INDICATOR LIGHT ON	F2218290
	06150	0 50000 0 03743	1828		CLA	B THE FOLLOWING INSTR,	F2218300
	06151	0 60100 0 03744	1829		STO	NEXTA SET UP TWO ADDITIONAL	F2218310
	06152	0 50000 0 03742	1830		CLA	A RANGES FOR SEARCHING,	F2218320
	06153	0 60100 0 03743	1831		STO	B THOSE FORMULAS OUTSIDE	F2218330
	06154	−0 53400 2 03722	1832		LXD	XL,2 OF DC BUT WITHIN DL.	F2218340
	06155	0 50000 2 00733	1833		CLA	DOTAGZ,2 IN THESE SPECIAL RANGES	F2218350
	06156	0 73400 2 00000	1834		PAX	0,2 AS SOON AS ONE ENTRY IS	F2218360
	06157	−0 32000 0 03772	1835		ANA	DECMSK FOUND IN EITHER RANGE,	F2218370
	06160	0 60100 0 03742	1836		STO	A TO BE DONE.	F2218380
	06161	−0 75400 2 00000	1837		PXD	0,2	F2218390
	06162	0 40000 0 03765	1838		ADD	L(1)A	F2218400
	06163	0 60100 0 03745	1839		STO	LASTB	F2218410
	06164	0 50000 0 03742	1840		CLA	A	F2218420
	06165	0 40000 0 03752	1841		ADD	L(1)	F2218430
	06166	0 40200 0 03743	1842		SUB	B	F2218440
	06167	0 10000 0 06174	1843		TZE	DS4V10 IF THIS RANGE IS EMPTY,	F2218450
	06170	0 50000 0 06363	1844		CLA	4VALAD SKIP SEARCH.	F2218460
	06171	0 60100 0 06362	1845		STO	FORAD	F2218470
	06172	−0 53400 1 03751	1846		LXD	L(0),1	F2218480
	06173	0 07400 4 06210	1847		TSX	FSXX,4 GO TO SEARCH ROUTINE	F2218490
	06174	0 50000 0 03744	1848	DS4V10	CLA	NEXTA A AND B FOR SECOND	F2218500
	06175	0 60100 0 03742	1849		STO	A SPECIAL RANGE.	F2218510
	06176	0 50000 0 03745	1850		CLA	LASTB	F2218520
	06177	0 60100 0 03743	1851		STO	B	F2218530
	06200	0 40200 0 03742	1852		SUB	A	F2218540
	06201	0 10000 0 06207	1853		TZE	DS4V20	F2218550
	06202	0 76000 0 00144	1854		PSE	100	F2218560
	06203	0 50000 0 06363	1855		CLA	4VALAD	F2218570
	06204	0 60100 0 06362	1856		STO	FORAD	F2218580
	06205	−0 53400 1 03751	1857		LXD	L(0),1	F2218590
	06206	0 07400 4 06210	1858		TSX	FSXX,4	F2218600
	06207	0 02000 0 05555	1859	DS4V20	TRA	RELEND EXIT	F2218610
	06210	−0 63400 4 06231	1860	FSXX	SXD	FS28,4 SAVE TSX INDEX	F2218620
	06211	0 50000 0 03756	1861	FS00	CLA	L(5) INITIALIZE	F2218632
	06212	0 62200 0 06361	1862		STD	4VLHL8 ERROR COUNTER	F2218640
	06213	0 76200 0 00302	1863	FS05	RDS	194	F2218650
	06214	−0 53400 2 06300	1864		LXD	BS71,2	F2218660
	06215	0 46000 0 06362	1865		LDA	FORAD FIND FIRST OR NEXT ADDRESS	F2218670
	06216	0 50000 0 03742	1866		CLA	A IN FORVAL,PUT A IN ACC.	F2218680
	06217	0 70000 0 06472	1867	FS10	CPY	BLOCK COPY FORMULA NR.	F2218690
	06220	0 04000 0 06232	1868		TLQ	FS30 A GREATER THAN FOR.NR.,TRA.	F2218700
	06221	0 70000 0 06473	1869		CPY	BLOCK+1 A LESS,COPY BALANCE OF	F2218710
	06222	0 50000 0 03743	1870		CLA	B ENTRY,PUT B IN ACC,	F2218720
	06223	0 70000 0 06474	1871		CPY	BLOCK+2 ADJUST XRA FOR THIS	F2218730
	06224	1 00003 1 06225	1872		TXI	FS20,1,3 ENTRY.	F2218740
	06225	0 70000 2 06566	1873	FS20	CPY	BLOCK+60,2 COPY NEXT FOR. NR.	F2218750
	06226	0 04000 0 06235	1874		TLQ	FS40 B GREAT THAN FOR. NR.,TRA.	F2218760
	06227	0 40200 0 06472	1875	FS25	SUB	BLOCK TEST FIRST ENTRY.	F2218770
	06230	0 12000 0 06242	1876		TPL	FS50 B GREATER THAN F,TRA	F2218780
D	06231	−3 00000 0 06353	1877	FS28	TXL	BS99,0 B LESS THAN F,EXIT	F2218790
	06232	0 70000 0 06473	1878	FS30	CPY	BLOCK+1 COPY BALANCE OF ENTRY,GO	F2218800
	06233	0 70000 0 06474	1879		CPY	BLOCK+2 BACK IF POSSIBLE T0 CONTINUE	F2218810
	06234	1 00003 1 06217	1880		TXI	FS10,1,3 SEARCH FOR BEGINNING OF RANGE,	F2218820
	06235	0 70000 2 06567	1881	FS40	CPY	BLOCK+61,2 THIS ENTRY IS IN RANGE,	F2218830
	06236	0 70000 2 06570	1882		CPY	BLOCK+62,2 CONTINUE READING IN ENTRIES	F2218840
	06237	2 00003 2 06225	1883		TIX	FS20,2,3 UNTIL BLOCK FULL OR RANGE	F2218850
	06240	−0 53400 2 03751	1884		LXD	L(0),2 EXCEEDED.	F2218860
	06241	0 02000 0 06227	1885		TRA	FS25	F2218870
	06242	−0 63400 2 06255	1886	FS50	SXD	CS20,2	F2218880
	06243	−0 63400 2 06265	1887		SXD	BS40,2	F2218890
	06244	−0 63400 1 06262	1888		SXD	BS25,1	F2218900
	06245	−0 53400 2 03762	1889	CS00	LXD	L(60),2 THIS ROUTINE COMPUTES	F2218910
	06246	−0 50000 2 06566	1890	CS10	CAL	BLOCK+60,2 THE CHECK SUMS OF THE	F2218920
	06247	0 36100 2 06567	1891		ACL	BLOCK+61,2 ENTRIES AND COMPARES	F2218930
	06250	0 60200 0 06364	1892		SLW	4VALES	F2218940
	06251	0 50000 0 06364	1893		CLA	4VALES THEM WITH THE GIVEN CHECK	F2218950
	06252	0 40200 2 06570	1894		SUB	BLOCK+62,2 SUMS.	F2218960
	06253	−0 10000 0 06355	1895		TNZ	4VLHLT TRA TO EXIT IF BAD ENTRY.	F2218970
	06254	1 77775 2 06255	1896		TXI	CS20,2,−3	F2218980
D	06255	3 00000 2 06246	1897	CS20	TXH	CS10,2 CONTINUE WITH BS00	F2218990
	06256	0 50000 0 03735	1898	BS00	CLA	RSYM1 THIS ROUTINE SEARCHES	F2219000
	06257	−0 53400 4 03732	1899		LXD	DELTA,4 THE STORAGE BLOCK FOR	F2219010
	06260	−0 53400 2 03762	1900	BS10	LXD	L(60),2 RSYM1,AND RSYM2 IF DELTA	F2219020
	06261	0 34000 2 06567	1901	BS20	CAS	BLOCK+61,2 IS THREE.	F2219030
D	06262	−3 00000 0 06264	1902	BS25	TXL	BS30,0	F2219040
	06263	0 02000 0 06272	1903		TRA	BS60 EQUALITY F UND,TRA.	F2219050
	06264	1 77775 2 06265	1904	BS30	TXI	BS40,2,−3 RE-ENTRY	F2219060
D	06265	3 00000 2 06261	1905	BS40	TXH	BS20,2	F2219070
	06266	−3 00002 4 06275	1906	BS50	TXL	BS70,4,2	F2219080
	06267	−0 53400 4 03751	1907		LXD	L(0),4	F2219090
	06270	0 50000 0 03736	1908		CLA	RSYM2	F2219100
	06271	0 02000 0 06260	1909		TRA	BS10	F2219110
	06272	−0 76000 0 00144	1910	BS60	MSE	100 TEST TO SEE IF	F2219120
	06273	0 02000 0 06307	1911		TRA	BS80 NORMAL SEARCH,OR IF	F2219130
	06274	0 02000 0 06327	1912		TRA	BS90 SPECIAL CASE OF DELTA TWO.	F2219140
	06275	−0 53400 2 06265	1913	BS70	LXD	BS40,2 BLOCK SEARCH DONE. IF BLOCK	F2219150
	06276	3 00000 2 06353	1914		TXH	BS99,2,0 WAS NOT FULL,EXIT.	F2219160
	06277	−0 53400 1 06262	1915		LXD	BS25,1 OTHERWISE,PREPARE TO CONTINUE	F2219170
	06300	1 00071 1 06301	1916	BS71	TXI	BS72,1,57 SEARCH,IF MORE ENTRIES IN FORVAL.	F2219180
	06301	3 02733 1 06353	1917	BS72	TXH	BS99,1,1499	F2219190
	06302	−0 75400 1 00000	1918		PXD	0,1 AND COMPUTE	F2219200
	06303	0 77100 0 00022	1919		ARS	18 NEW FORVAL	F2219210
	06304	0 40000 0 06363	1920		ADD	4VALAD ADDRESS	F2219220
	06305	0 60100 0 06362	1921		STO	FORAD	F2219230
D	06306	−3 00000 0 06211	1922	BS78	TXL	FS00,0 GO BACK TO CONTINUE SEARCH	F2219240
	06307	0 60100 0 06364	1923	BS80	STO	4VALES RSYM FOUND,ARRANGE TO	F2219250
	06310	−0 53400 1 03722	1924		LXD	XL,1 SAVE INDEXED SUBSCRIPTS.	F2219260
	06311	0 50000 0 04000	1925		CLA	BITONE	F2219270
	06312	−0 60200 1 00740	1926		ORS	DOTAGZ+5,1	F2219280
	06313	−0 53400 1 03674	1927		LXD	XC,1	F2219290
	06314	−0 60200 1 00740	1928		ORS	DOTAGZ+5,1 RSYM FOUND,E2 PREVIOUSLY	F2219300
	06315	0 50000 2 06566	1929		CLA	BLOCK+60,2 PREPARED,NOW PREPARE	F2219310
	06316	0 60100 0 05063	1930		STO	E1 E1,SAVE ACC,XR8,XRC,	F2219320
	06317	0 50000 0 05067	1931		CLA	TSXC0M AND LIST.	F2219330
	06320	−0 63400 2 06326	1932		SXD	BS85,2 AFTER LISTING,	F2219340
	06321	−0 63400 4 06306	1933		SXD	BS78,4 RESTORE ACC,XR8,XRC	F2219330
	06322	0 07400 4 05025	1934		TSX	LIST,4 AND RETURN TO CONTINUE	F2219360
	06323	−0 53400 2 06326	1935		LXD	BS85,2 SEARCH.	F2219370
	06324	−0 53400 4 06306	1936		LXD	BS78,4	F2219380
	06325	0 50000 0 06364	1937		CLA	4VALES	F2219390
TD	06326	−3 00000 0 06264	1938	BS85	TXL	BS30	F2219400
	06327	−0 53400 2 03722	1939	BS90	LXD	XL,2 SPECIAL CASE,DELTA TWO,	F2219410
	06330	0 50000 0 04000	1940		CLA	BITONE PUT IN BIT TO SAVE SL	F2219420
	06331	−0 60200 2 00740	1941		ORS	DOTAGZ+5,2	F2219430
	06332	−0 53400 2 03750	1942		LXD	LOWP0S,2 OBTAIN INDEX QUANTITY 1, 3, 5.	F2219440
	06333	0 50000 0 03751	1943		CLA	L(0) FOR XL,	F2219450
	06334	0 60100 2 03721	1944		STO	X1+5,2 SET PROPER X AND L TO ZERO,	F2219460
	06335	0 60100 2 03722	1945		STO	X1+6,2	F2219470
	06336	2 00001 2 06337	1946		TIX	BS91,2,1 ADJUST 1,3,5 TO 1,2,4,	F2219480
	06337	−0 75400 2 00000	1947	BS91	PXD	0,2 PUT IN ACC	F2219490
	06340	−0 60200 0 03727	1948	BS92	ORS	DORC AND PUT BIT IN DORC	F2219500
	06341	0 76000 0 00006	1949		COM	REMOVE BIT	F2219510
	06342	0 32000 0 03731	1950		ANS	DOSUBS FROM DOSUBS	F2219520
	06343	0 50000 0 03674	1951		CLA	XC	F2219530
	06344	0 60100 0 03722	1952		STO	XL	F2219540
	06345	0 50000 0 03675	1953		CLA	LC	F2219550
	06346	0 60100 0 03723	1954		STO	LL	F2219560
	06347	0 50000 0 03752	1955		CLA	L(1)	F2219570
	06350	0 60100 0 03726	1956		STO	NRDS	F2219580
	06351	0 60100 0 03732	1957		STO	DELTA	F2219590
	06352	0 02000 0 06207	1958		TRA	DS4V20 EXIT	F2219600
	06353	−0 53400 4 06231	1959	BS99	LXD	FS28,4 EXIT FROM FSXX ENTRY	F2219610
	06354	0 02000 4 00001	1960		TRA	1,4	F2219620
	06355	−0 53400 2 06361	1961	4VLHLT	LXD	4VLHL8,2 IF THERE IS AN ERROR IN THE	F2219630
	06356	2 00001 2 06360	1962		TIX	4VLHL4,2,1 CHECK SUM ROUTINE,THE BLOCK	F2219640
	06357	0 07400 4 00004	1963	4VLHL2	TSX	DIAG,4 WILL BE REREAD 5 TIMES. (ERROR. GO TO DIAGNOSTIC.)	F2219655
	06360	−0 63400 2 06361	1964	4VLHL4	SXD	4VLHL8,2 BEFORE THE MACHINE STOPS.	F2219660
D	06361	−3 00000 0 06213	1965	4VLHL8	TXL	FS05,0	F2219670
A	06362	0 00000 0 00000	1966	FORAD	HTR	DRUM ADDRESS FOR LDA INSTR.	F2219680
	06363	0 00000 0 00312	1967	4VALAD	HTR	202	F2219690
A	06364	0 00000 0 00000	1968	4VALES	HTR	E.S.	F2219700
	06365	0 00000 0 00000	1969	XR1			F2219710
	06366	0 00000 0 00000	1970	LR1			F2219720
	06367	0 00000 0 00000	1971	XR2			F2219730
	06370	0 00000 0 00000	1972	LR2			F2219740
	06371	0 00000 0 00000	1973	D2D1			F2219750
	06372	0 00000 0 00000	1974	D3D1			F2219760
	06373	0 00000 0 00000	1975	D3D2			F2219770
	06374	0 00000 0 00000	1976	TR1			F2219780
	06375	0 00000 0 00000	1977	TR2			F2219790
			1978			SUBROUTINE GETNAM	F2219800
	06376	−0 53400 1 04011	1979	GETNAM	LXD	NAMXX,1 THIS ROUTINE SEARCHES	F2219810
	06377	−0 63400 1 06406	1980		SXD	GETN20,1 TABLE NAMZ FOR THE NAME	F2219820
	06400	0 53400 1 04011	1981		LXA	NAMXX,1 OF TAU TAG IN A PARTICULAR	F2219830
	06401	0 02000 0 06406	1982		TRA	GETN20	F2219840
	06402	0 34000 1 07301	1983	GETN05	CAS	NAMZ,1 DO FORMULA.	F2219850
	06403	0 02000 0 06405	1984		TRA	GETN10	F2219860
	06404	0 02000 0 06411	1985		TRA	GETN30	F2219870
	06405	1 77776 1 06406	1986	GETN10	TXI	GETN20,1,−2	F2219880
D	06406	3 00000 1 06402	1987	GETN20	TXH	GETN05,1	F2219890
	06407	−0 32000 0 03773	1988		ANA	ADDMSK	F2219900
	06410	0 02000 4 00001	1989		TRA	1,4	F2219910
	06411	0 50000 1 07302	1990	GETN30	CLA	NAMZ+1,1	F2219920
	06412	0 02000 4 00001	1991		TRA	1,4	F2219930
			1992			SUBROUTINE ADDSER	F2219940
	06413	−0 75400 1 00000	1993	ADDSER	PXD	0,1	F2219950
	06414	0 40000 0 03700	1994		ADD	TAG	F2219960
	06415	−0 53400 1 04006	1995		LXD	ADTXX,1 PREPARE XRA AND DEC 0	F2219970
	06416	−0 63400 1 06425	1996		SXD	ADS030,1 ADS030 FOR TABLE SEARCH.	F2219980
	06417	0 53400 1 04006	1997		LXA	ADTXX,1	F2219990
	06420	0 02000 0 06425	1998		TRA	ADS030 TRA FOR EMPTY TABLE TEST	F2220000
	06421	0 34000 1 07135	1999	ADS010	CAS	ADTAGZ,1	F2220010
	06422	0 02000 0 06424	2000		TRA	ADS020,	F2220020
	06423	0 02000 0 06427	2001		TRA	ADS040 FIRST WORD FOUND	F2220030
	06424	1 77776 1 06425	2002	ADS020	TXI	ADS030,1,−2	F2220040
D	06425	3 00000 1 06421	2003	ADS030	TXH	ADS010,1	F2220050
	06426	0 02000 4 00002	2004		TRA	2,4 NOT FOUND	F2220060
	06427	0 50000 1 07136	2005	ADS040	CLA	ADTAGZ+1,1	F2220070
	06430	0 02000 4 00001	2006	ADS050	TRA	1,4	F2220080
			2007			SUBROUTINES STORES AND STORXX	F2220090
	06431	−0 63400 4 06464	2008	STORES	SXD	STO40,4 THIS ROUTINE PREPARES	F2220100
	06432	0 50000 0 06366	2009		CLA	LR1 AN ENTRY FOR TABLE TRASTO	F2220110
	06433	0 77100 0 00022	2010		ARS	18 AND USES LIST TO ENTERS	F2220120
	06434	0 40000 0 03675	2011		ADD	LC THE ENTRY ON THE PROPER	F2220130
	06435	0 60100 0 05064	2012		STO	E2 DRUM TABLE. IF SPC000	F2220140
	06436	0 50000 0 06374	2013		CLA	TR1 IS USED BY THE ROUTINE,	F2220150
	06437	−3 00001 2 06441	2014		TXL	STO20,2,1 MANY ENTRIES MAY BE MADE	F2220160
	06440	0 50000 0 06375	2015		CLA	TR2 IN TRA STO.	F2220170
	06441	0 76700 0 00022	2016	STO20	ALS	18 IF DELTA EQUALS ONE OR TWO,	F2220180
	06442	0 40000 0 03701	2017		ADD	TS THIS ROUTINE IS ENTERED	F2220190
	06443	0 60100 0 05065	2018		STO	E3 THROUGH STORES WITH C(XRB)	F2220200
	06444	−3 00000 2 06460	2019		TXL	STO35,2,0 ZERO. IF DELTA IS THREE	F2220210
	06445	−3 00001 2 06465	2020		TXL	STO50,2,1 AND WE ARE WORKING ON	F2220220
	06446	0 02000 0 06460	2021		TRA	STO35 TRANSFERS DR2 TO DS THEN	F2220230
	06447	−0 63400 4 06464	2022	STORXX	SXD	STO40,4 STORES ENTRY IS USED WITH	F2220240
	06450	0 50000 0 06370	2023		CLA	LR2 C(XRB)=2	F2220250
	06451	0 77100 0 00022	2024		ARS	18 1F DELTA=3,TRA DR1 TO DS,	F2220260
	06452	0 40000 0 06366	2025		ADD	LR1 STORES ENTRY IS USED WITH	F2220270
	06453	0 60100 0 05064	2026		STO	E2 C(XRB)=1	F2220280
	06454	0 50000 0 06375	2027		CLA	TR2 IF DELTA=3,TRA DR2 TO DR1,	F2220290
	06455	0 76700 0 00022	2028		ALS	18 ENTRY STORXX IS USED.	F2220300
	06456	0 40000 0 06374	2029		ADD	TR1 C(XRB) NOT USED.	F2220310
	06457	0 60100 0 05065	2030		STO	E3 LIST ROUTINE IS.USED IN	F2220320
			2031			EVERY CASE,MAKING ONE	F2220330
			2032			TRASTO ENTRY,EXCEPT FOR	F2220340
			2033			CASE DELTA=3,TRA DR1 TO DS,	F2220350
			2034			C(XRB)=1,WHEN SPC000 IS USED.	F2220360
	06460	0 50000 1 00733	2035	STO35	CLA	DOTAGZ,1 LIST ROUTINE USED	F2220370
	06461	0 60100 0 05063	2036		STO	E1	F2220380
	06462	0 50000 0 05070	2037		CLA	TRASTO	F2220390
	06463	0 07400 4 05025	2038		TSX	LIST,4	F2220400
D	06464	−3 00000 0 06470	2039	STO40	TXL	ST100,0	F2220410
	06465	−0 53400 2 03753	2040	STO50	LXD	L(2),2 SPC000 USED.	F2220420
	06466	0 50000 0 05070	2041		CLA	TRASTO	F2220430
	06467	0 07400 4 05277	2042		TSX	SPC000,4	F2220440
	06470	−0 53400 4 06464	2043	ST100	LXD	STO40,4 EXIT	F2220450
	06471	0 02000 4 00001	2044		TRA	1,4	F2220760
		06472	2045	BLOCK	BSS	60	F2220470
		07730	2046		ORG	4056	F2220480
			2047			MASTER RECORD CARD = FN029	F2220485
	07730	−0 53400 2 07770	2048	PP0NG	LXD	PG80,2 ROUTINE PPONG SETS UP DRUM ONE FOR	F2220490
	07731	0 02000 0 07733	2049		TRA	PG10 PING-PONGING.	F2220300
	07732	−0 53400 2 07767	2050		LXD	PG70,2	F2220510
	07733	−0 53400 4 07771	2051	PG10	LXD	PG90,4	F2220520
	07734	0 76600 0 00301	2052	PG15	WRS	193	F2220530
	07735	−0 53400 1 07772	2053		LXD	PG95,1	F2220540
	07736	0 46000 2 07767	2054		LDA	PG60+2,2	F2220550
	07737	0 70000 1 06566	2055	PG20	CPY	CORESZ,1	F2220560
	07740	2 00001 1 07737	2056		TIX	PG20,1,1	F2220570
	07741	0 76600 0 00333	2057		WRS	219	F2220580
	07742	0 76200 0 00301	2058		RDS	193	F2220590
	07743	−0 53400 1 07772	2059		LXD	PG95,1	F2220600
	07744	0 46000 2 07767	2060		LDA	PG60+2,2	F2220610
	07745	0 70000 1 05566	2061	PG30	CPY	CORES,1	F2220620
	07746	2 00001 1 07745	2062		TIX	PG30,1,1	F2220630
	07747	−0 53400 1 07772	2063		LXD	PG95,1	F2220640
	07750	−0 75400 0 00000	2064		PXD	0,0 PG40-1	F2220630
	07751	0 36100 1 05566	2065	PG40	ACL	CORES,1	F2220660
	07752	2 00001 1 07751	2066		TIX	PG40,1,1	F2220670
	07753	0 60200 0 07773	2067		SLW	PG99	F2220680
	07754	0 50000 0 07773	2068		CLA	PG99	F2220690
	07755	0 40200 2 07765	2069		SUB	PG50+2,2	F2220700
	07756	0 10000 0 07761	2070		TZE	NORMRP	F2220715
	07757	2 00001 4 07734	2071		TIX	PG15,4,1	F2220720
	07760	0 07400 4 00004	2072		TSX	DIAG,4 DRUM READ ERROR. GO TO DIAGNOSTIC.	F2220735
	07761	0 76200 0 00221	2073	NORMRP	RDS	145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE.	F2220736
	07762	0 02000 0 00004	2074		TRA	ONETCS GO TO ONE TO CS (MONITOR)=	F2220737
	07763	+103075525444	2075	PG50	OCT	103075525444 CHECK SUM, STATE B, RELCON	F2220744
	07764	−246744643200	2076		OCT	−246744643200 CHECK SUM STATE A, NORMAL	F2220754
	07765	+000000001000	2077	PG60	OCT	1000	F2220760
	07766	+000000000000	2078		OCT		F2220770
	07767	+000001000000	2079	PG70	OCT	1000000	F2220780
	07770	+000002000000	2080	PG80	OCT	2000000	F2220790
	07771	+000005000000	2081	PG90	OCT	5000000	F2220805
	07772	+001000000000	2082	PG95	OCT	1000000000	F2220810
A	07773	0 00000 0 00000	2083	PG99	HTR		F2220820
	07774	−0 63400 1 77777	2084	BURNCE	SXD	T0P,1 DRUM OVERFLOW	F2220825
	07775	0 02000 0 00004	2085		TRA	DIAG ERROR PROCEDURE.	F2220826
		77777	2086	T0P	EQU	32767	F2220827
		00222	2087	TAPE2	EQU	146	F2220830
		00223	2088	DOTAPE	EQU	147	F2220840
		00224	2089	ATAPE	EQU	148	F2220850
		00301	2090	PPDRM	EQU	193	F2220860
		00303	2091	ADRUM	EQU	195	F2220870
		00304	2092	TAUDRM	EQU	196	F2220880
		00141	2093	TL	EQU	97	F2220890
		05565	2094	RELWDS	SYN	RELDRA+1	F2220900
		04003	2095	ABIT	SYN	BIT18	F2220910
		04005	2096	BBIT	SYN	BIT20	F2220920
		04003	2097	SUBBIT	SYN	BIT18	F2220930
		06566	2098	CORESZ	SYN	CORES+512	F2220940
		00004	2099	ONETCS	EQU	4	F2220945
		00004	2100	DIAG	EQU	4	F2220946