1			BLOCK THREE OF SECTION TWO.
			2			MASTER RECORD CARD = FN036	F2300004
			3			BLOCK 3 DOES SUBSCRIPT ANALYSIS FOR	F2300006
			4			THOSE SUBSCRIPT COMBINATIONS NO SUBSCRIPT	F2300010
			5			ELEMENT OF WHICH IS UNDER CONTROL OF	F2300020
			6			A DO (PURE RELATIVE CONSTANTS). TWO	F2300030
			7			TYPES OF TSXCOM TABLE ENTRIES ARE MADE IN ROUTINE FOUND	F2300040
			8			WHICH WILL INDICATE TO SUCCEEDING BLOCKS THE NECESSITY TO	F2300050
			9			COMPILE EITHER DIRECT LXDS OF INDEX REG VALUES OR TSXS TO	F2300060
			10			SUBROUTINES TO COMPUTE THOSE INDEX REG VALUES. FOUR-TYPES OF	F2300070
			11			TRASTO TABLE ENTRIES ARE MADE WHICH WILL INDICATE THAT	F2300080
			12			CERTAIN INDEXING INSTRUCTIONS SH0ULD BE COMPILED ACCOMPANYING	F2300000
			13			THE TRANSFERS OUT OF THE RANGE OF DOS WHICH DEFINE VALUES	F2300100
			14			OF THE SUBSCRIPTS IN QUESTION. FINALLY, TSXCOM ENTRIES AND	F2300110
			15			TABLE IRV ENTRIES ARE SORTED AND WRITTEN ON-DRUM. ROUTINES	F2300120
			16			ENCOUNTERED IN BLOCK 2 WILL BE RECOGNIZED IN THIS BLOCK 3 -	F2300130
			17			SUBCOM, TRAWORD, SPC, TINFOR, LIST.	F2300140
		00031	18		ORG	25	F2300150
		00031	19	NAME	BSS	1 TABLE STORAGE	F2300160
		00032	20		BSS	449	F2300170
		00733	21	NAMZ	BSS	1	F2300180
		00734	22	FORTAG	BSS	1	F2300190
		00735	23		BSS	1499	F2300200
		03670	24	FORTZ	BSS	1	F2300210
		03671	25	FORVAL	BSS	1	F2300220
		03672	26		BSS	1499	F2300230
		06625	27	4VALZ	BSS	1	F2300240
		00031	28		ORG	25	F2300250
		00031	29	TCOM	BSS	1	F2300260
		00032	30		BSS	749	F2300270
		01407	31	TCOMZ	BSS	1	F2311280
		03671	32		ORG	1977	F2300290
		03671	33	DOTAG	BSS	1	F2300300
		03672	34		BSS	1349	F2300310
		06377	35	DOTAGZ	BSS	1	F2300320
		06400	36		BSS	149	F2300330
		06625	37	IRVZ	BSS	1	F2300340
		06626	38	TAG	BSS	1 ADDRESS HAS FORTAG IX CURRENT	F2300350
		06627	39	TS	BSS	1 NEW NAME	F2300360
		06630	40	TAGIND	BSS	1 ONE IF SOLITARY SUB COEFF ONE, OTHERWISE ZERO	F2300370
		06631	41	DELTA	BSS	1 COUNT OF NO OF SYMBOLS IN SUB COMB	F2300380
		06632	42	RSYM1	BSS	1 WORKING SYMBOL ONE	F2300390
		06633	43	RSYM2	BSS	1 WORKING SYM8OL TWO	F2300400
		06634	44	RSYM3	BSS	1 WORKING SYMBOL THREE	F2300410
		06635	45	C1	BSS	1 COEFF FIRST SYMBOL	F2300420
		06636	46	S1	BSS	1 FIRST SYMBOL	F2300430
		06637	47	C2	BSS	1 COEFF 2ND SYMBOL	F2300440
		06640	48	S2	BSS	1 2ND SYMBOL	F2300450
		06641	49	C3	BSS	1 COEFF 3RD SYMBOL	F2300460
		06642	50	S3	BSS	1 3RD SYMBOL	F2300470
		06643	51	D1	BSS	1 DIM 1ST SYM, IF TWO-DIMENSIONAL	F2300480
		06644	52	D2	BSS	1 DIM 2ND SYM, IF THREE-DIMENSIONAL	F2300490
		06645	53	TL2	BSS	1 LEVEL DOTAG MATCHING SUBXCRIPT SYMBOL	F2300500
		06646	54	XR1	BSS	1 IX DOTAG MATCHING FIRST SUB SYMBOL (RSYM1)	F2300510
		06647	55	LR1	BSS	1 LEV DOTAG MATCHING 1ST SUB SYMB (RSYM1)	F2300520
		06650	56	NEXTR1	BSS	1 IX LAST DOTAG OF NEST SEARCHED IN TRAWRD 1ST LV	F2300530
		06651	57	XR2	BSS	1 IX DOTAG MATCHING 2ND SUB SYMB (RSYM2)	F2300540
		06652	58	LR2	BSS	1 LEV DOTAG MATCHING 2ND SUB SYMB (RSYM2)	F2300550
		06653	59	NEXTR2	BSS	1 IX LAST DO OF NEST SRCHD IN TRAWORD ON 2ND LEV	F2300560
		06654	60	XR3	BSS	1 1X DOTAG MATCHING THIRD SUB SYM8 (RSYM3)	F2300570
		06655	61	NEXTR3	BSS	1 IX LAST DO OF NEST SRCHD IN TRWRD ON 3RD LEVEL	F2300580
		06656	62	SKIP	BSS	1 SKIP, ZERO OR 1	F2300590
		06657	63	TRABIT	BSS	1 TRAWORD TEMP STORAGE	F2300600
		06660	64	NEXTA	BSS	1 INTERMEDIATE UPPER LIMIT OF RANGE	F2300610
		06661	65	LASTB	BSS	1 INTERHEDIATE LOWER LIMIT OF RANGE	F2300620
		06662	66	A	BSS	1 UPPER LIMIT OF RANGE	F2300630
		06663	67	B	BSS	1 LOWER LIMIT OF RANGE	F2300640
		06664	68	IRVXX	BSS	1 CURRENT TABLE IRV I.R. VALUE	F2300650
	06665	0 00000 0 00000	69	L(0)		0,0,0	F2300660
	06666	0 00001 0 00000	70	L(1)		0,0,1	F2300670
	06667	0 00002 0 00000	71	L(2)		0,0,2	F2300680
	06670	0 00003 0 00000	72	L(3)		0,0,3	F2300690
	06671	0 00006 0 00000	73	L(6)		0,0,6	F2300700
	06672	0 00044 0 00000	74	L(36)		0,0,36	F2300710
	06673	0 02506 0 00000	75	L(1350		0,0,1350	F2300720
	06674	0 02734 0 00000	76	L(1500		0,0,1500	F2300730
	06675	+000000000001	77	L(1)A	OCT	1	F2300740
	06676	−0 00000 0 00000	78	L(MZ)	MZE		F2300750
	06677	+200000000000	79	BITONE	OCT	200000000000	F2300760
	06700	+000000400000	80	BIT18	OCT	400000	F2300770
	06701	+177777777777	81	34ONES	OCT	177777777777	F2300780
	06702	+377777777777	82	35ONES	OCT	377777777777	F2300790
	06703	+000000077777	83	ADDMSK	OCT	77777	F2300800
	06704	+077777000000	84	DECMSK	OCT	77777000000	F2300810
	06705	−200000000000	85	PREMSK	OCT	−200000000000	F2300820
	06706	0 00000 0 00312	86	DRMADD		202	F2300830
	06707	0 00000 0 01760	87	NAMORG		1008	F2300840
	06710	0 00000 0 00031	88	NAMAD		NAME	F2300850
	06711	0 00702 0 00000	89	NAMAX		0,0,450	F2300860
	06712	0 00000 0 02430	90	IRVORG		1304	F2300870
	06713	0 00000 0 06377	91	IRVAD		IRV	F2300880
	06714	0 00226 0 00000	92	IRVMAX		0,0,150	F2300890
	06715	0 00000 0 01300	93	TCOMOR		704	F2300900
	06716	0 00000 0 01302	94	TSXORG		706	F2300910
	06717	0 00000 0 00031	95	TCOMAD		TCOM	F2300920
	06720	0 01356 0 00000	96	TCOMAX		0,0,750	F2300930
	06721	0 50000 0 07776	97	BLOCK3	CLA	4094 TSXCOM CARRYOYER FROM BLOCK TWO	F2300940
	06722	0 60100 0 07667	98		STO	LADDS EQUAL TO LAST TABLE ENTRY PLUS ONE.	F2300950
	06723	0 50000 0 07775	99		CLA	4093 TRASTO CARRYOVER FROM BLOCK TWO	F2300960
	06724	0 60100 0 07670	100		STO	LADDS+1 EQUAL TO LAST TABLE ENTRY PLUS ONE.	F2300970
	06725	0 50000 0 06714	101		CLA	IRVMAX INITIALIZE IRVXX.	F2300980
	06726	0 60100 0 06664	102		STO	IRVXX EQUAL TO ETC.	F2300990
	06727	−0 53400 1 00733	103		LXD	FORTAG−1,1 IF FORTAG EMPTY,	F2301000
	06730	3 02733 1 07616	104		TXH	NORMRT,1,1499 NORM RET MONITOR. GO TO SPACE TAPE 1.	F2301015
	06731	−0 53400 2 06671	105	NAMRD	LXD	L(6),2 INITIALIZE EERROR COUNTER.	F2301022
	06732	0 50000 0 07777	106	NAM10	CLA	4095 OBTAIN NAME ADDRESS CARRYOVER FROM BLOCK 2	F2301030
	06733	0 40200 0 06707	107		SUB	NAMORG FROM BLOCK TWO,	F2301040
	06734	0 73400 1 00000	108		PAX	0,1	F2301050
	06735	−3 00000 1 06766	109		TXL	NAM95,1,0 IF NO TABLE NAME, GO TO READ IN FORVAL.	F2301060
	06736	0 76200 0 00303	110		RDS	ADRUM READ IN TABLE NAME.	F2301070
	06737	0 40000 0 06710	111		ADD	NAMAD ADD CORE ORG TABLE NAME T0 COMP TERMINUS AND	F2301080
	06740	0 62100 0 06746	112		STA	NAM60 STORE IN COPY ADDRESS.	F2301090
	06741	−0 75400 1 00000	113		PXD	0,1	F2301100
	06742	−0 76000 0 00003	114		SSM		F2301110
	06743	0 40000 0 06711	115		ADD	NAMAX DIFF BETWEEN MAX NO ENTRIES AND ACTUAL NL.	F2301120
	06744	0 60100 0 00030	116		STO	NAME−1	F2301130
	06745	0 46000 0 06707	117		LDA	NAMORG DRUM LRG	F2301140
	06746	0 70000 1 00000	118	NAM60	CPY	0,1	F2301150
	06747	2 00001 1 06746	119		TIX	NAM60,1,1	F2301160
	06750	−0 53400 1 00030	120		LXD	NAME−1,1	F2301170
	06751	−0 63400 1 06762	121		SXD	NAM80,1	F2301180
	06752	−0 53400 1 06711	122		LXD	NAMAX,1	F2301190
	06753	−0 50000 1 00733	123	NAM70	CAL	NAMZ,1 COMPUTE CHECK SUM	F2301200
	06754	0 36100 1 00734	124		ACL	NAMZ+1,1 FOR	F2301210
	06755	0 60200 0 06771	125		SLW	NAMES1 EACH	F2301220
	06756	0 50000 0 06771	126		CLA	NAMES1 TABLE ENTRY,	F2301230
	06757	0 40200 1 00735	127		SUB	NAMZ+2,1 AND COMPARE	F2301240
	06760	−0 10000 0 06764	128		TNZ	NAM90 SAME.	F2301250
	06761	1 77775 1 06762	129		TXI	NAM80,1,−3	F2301260
D	06762	3 00000 1 06753	130	NAM80	TXH	NAM70,1	F2301270
	06763	0 02000 0 06772	131		TRA	BEGIN TABLE NAME ALL IN.	F2301280
	06764	2 00001 2 06732	132	NAM90	TIX	NAM10,2,1	F2301290
	06765	0 07400 4 00004	133		TSX	DIAG,4 DRUM READ NAME TABLE. ERROR. GO TO DIAGNOSTIC.	F2301305
	06766	0 50000 0 06711	134	NAM95	CLA	NAMAX TABLE NAME EMPTY.	F2301310
	06767	0 60100 0 00030	135		STO	NAME−1	F2301320
	06770	0 02000 0 06772	136		TRA	BEGIN	F2301330
A	06771	0 00000 0 00000	137	NAMES1	HTR	TEMP STORAGE	F2301340
	06772	−0 76000 0 00144	138	BEGIN	MSE	LIGHT TEST FOR EHPTY FORVAL	F2301350
	06773	0 02000 0 06776	139		TRA	CPYLP	F2301360
	06774	0 76000 0 00144	140		PSE	LIGHT IF EMPTY,	F2301370
	06775	0 02000 0 07616	141		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2301385
	06776	−0 53400 2 06671	142	CPYLP	LXD	L(6),2 READ IN FORVAL	F2301392
	06777	0 76200 0 00302	143	RDSDRM	RDS	BDRUM	F2301400
	07000	0 50000 0 06701	144		CLA	34ONES PUT DRUM MARK IN ACC.	F2301410
	07001	0 46000 0 06706	145		LDA	DRMADD	F2301420
	07002	−0 53400 1 06674	146		LXD	L(1500,1	F2301430
	07003	0 70000 1 06625	147	CPYONE	CPY	4VALZ,1 PULL IN FIRST WORD OF FORVAL.	F2301440
	07004	0 04000 0 07006	148		TLQ	CPYTWO TEST FOR DRUM MARK.	F2301430
	07005	0 02000 0 07012	149		TRA	CHKSUM	F2301460
	07006	0 70000 1 06626	150	CPYTWO	CPY	4VALZ+1,1 PULL IN 2ND WORD OF FORVAL,	F2301470
	07007	0 70000 1 06627	151		CPY	4VALZ+2,1 AND CHECK SUM.	F2301480
	07010	2 00003 1 07003	152		TIX	CPYONE,1,3	F2301490
	07011	−0 53400 1 06665	153		LXD	L(0),1	F2301500
	07012	−0 63400 1 03670	154	CHKSUM	SXD	FORVAL−1,1 COMPUTE AND	F2301510
	07013	−0 63400 1 07024	155		SXD	NEXT,1 COMPARE	F2301520
	07014	−0 53400 1 06674	156		LXD	L(1500,1 CHECK	F2301530
	07015	−0 50000 1 06625	157	CSLOOP	CAL	4VALZ,1 SUMS.	F2301540
	07016	0 36100 1 06626	158		ACL	4VALZ+1,1	F2301550
	07017	0 60200 0 07030	159		SLW	COMCS	F2301560
	07020	0 50000 0 07030	160		CLA	COMCS	F2301570
	07021	0 40200 1 06627	161		SUB	4VALZ+2,1	F2301580
	07022	−0 10000 0 07026	162		TNZ	ERROR	F2301590
	07023	1 77775 1 07024	163		TXI	NEXT,1,−3	F2301600
D	07024	3 00000 1 07015	164	NEXT	TXH	CSLOOP,1	F2301610
	07025	0 02000 0 07031	165		TRA	2WDDO FORVAL ALL IN.	F2301620
	07026	2 00001 2 06777	166	ERROR	TIX	RDSDRM,2,1	F2301630
	07027	0 07400 4 00004	167		TSX	DIAG,4 DRUM REAAD FORVAL TABLE. ERROR. GO TO DIAGNOSTIC.	F2301645
A	07030	0 00000 0 00000	168	COMCS	HTR		F2301650
	07031	−0 53400 4 06671	169	2WDDO	LXD	L(6),4 ERROR COUNTER.	F2301662
	07032	0 77200 0 00223	170	2WDO5	REW	TAPE3 PREPARE TO READ IN DOTAG.	F2301670
	07033	−0 53400 1 07071	171		LXD	L(300),1	F2301680
	07034	−0 76000 0 00143	172		MSE	99 TEST FOR EMPTY DOTAG.	F2301690
	07035	0 02000 0 07040	173		TRA	2WD10	F2301700
	07036	0 76000 0 00143	174		PSE	99	F2301710
	07037	0 02000 0 07062	175		TRA	2WD70	F2301720
	07040	−0 76000 0 00012	176	2WD10	RTT		F2301730
	07041	0 76100 0 00000	177		NOP		F2301740
	07042	0 76200 0 00223	178	2WD20	RDS	TAPE3 PULL	F2301750
	07043	−0 53400 2 07072	179	2WD30	LXD	L(7),2 IN	F2301760
	07044	0 70000 1 07570	180		CPY	DOZ,1 DOTAG	F2301770
	07045	0 02000 0 07050	181		TRA	2WD40 BUT	F2301780
	07046	0 02000 0 07062	182		TRA	2WD70 ONLY	F2301790
	07047	0 02000 0 07042	183		TRA	2WD20 THE	F2301800
	07050	0 70000 1 07571	184	2WD40	CPY	DOZ+1,1 FIRST	F2301810
	07051	0 02000 0 07054	185		TRA	2WD50 TWO	F2301820
	07052	0 07400 4 00004	186		TSX	DIAG,4 WORDS ERROR. GO TO DIAGNOSTIC.	F2301835
	07053	0 07400 4 00004	187		TSX	DIAG,4 OF ERROR. GO TO DIAGNOSTIC.	F2301845
	07054	0 70000 0 07073	188	2WD50	CPY	ESXX EACH	F2301850
	07055	0 02000 0 07060	189		TRA	2WD60 TABLE	F2301860
	07056	0 07400 4 00004	190		TSX	DIAG,4 ENTRY. ERROR. GO TO DIAGNOSTIC.	F2301875
	07057	0 07400 4 00004	191		TSX	DIAG,4 ERROR. GO TO DIAGNOSTIC.	F2301885
	07060	2 00001 2 07054	192	2WD60	TIX	2WD50,2,1	F2301890
	07061	1 77776 1 07043	193		TXI	2WD30,1,−2	F2301900
	07062	−0 63400 1 07570	194	2WD70	SXD	DOZ,1	F2301910
	07063	0 76600 0 00333	195		WRS	219	F2301920
	07064	−0 76000 0 00012	196		RTT		F2301930
	07065	0 02000 0 07067	197		TRA	2WD80 READ ERROR.	F2301940
	07066	0 02000 0 07616	198		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2301955
	07067	2 00001 4 07032	199	2WD80	TIX	2WDO5,4,1	F2301960
	07070	0 07400 4 00004	200		TSX	DIAG,4 TAPE 3 READING DOTAG, ERROR. GO TO DIAGNOSTIC.	F2301975
	07071	0 00454 0 00000	201	L(300)		0,0,300	F2301980
	07072	0 00007 0 00000	202	L(7)		0,0,7	F2301990
A	07073	0 00000 0 00000	203	ESXX	HTR	TEMP STORAGE.	F2302000
			204			MASTER RECORD CARD = FN037	F2302005
		07614	205		ORG	3980	F2302010
	07614	−0 63400 1 77777	206	BURNCE	SXD	T0P,1 DRUM 0VERFLOW	F2302011
	07615	0 02000 0 00004	207		TRA	DIAG ERROR PROCEDURE	F2302012
			208			THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST THE DIAGNOSTIC REC.	F2302016
	07616	0 76200 0 00221	209	NORMRT	RDS	145 SKIP OVER DIAGNOSTIC RECORD 0O SYSTEM TAPE.	F2302017
	07617	0 02000 0 00004	210		TRA	ONETCS GO TO ONE TO CS (MONITOR)	F2302018
	07620	−0 63400 4 07653	211	LIST	SXD	LIST40,4 SAVE LINKAGE	F2302030
	07621	−0 73400 1 00000	212		PDX	0,1 PUT INDEX QUANTITY IN XRA	F2302040
	07622	0 73400 6 00000	213		PAX	0,6 PUT NR. OF WDS IN XRB,XRC.	F2302050
	07623	0 40000 0 07654	214		ADD	LIST50 COMPUTE NR. OF WRDS	F2302060
	07624	0 62100 0 07641	215		STA	LIST30 PLUS ORIGIN E1 AND	F2302070
	07625	0 62100 0 07634	216		STA	LIST20 INITIALIZE ADDRESSES,	F2302080
	07626	0 50000 1 07701	217		CLA	LADDIN+5,1 TEST	F2302090
	07627	0 77100 0 00022	218		ARS	18 FOR	F2302100
	07630	0 40200 1 07674	219		SUB	LADDS+5,1 FULL	F2302110
	07631	−0 10000 0 07633	220		TNZ	LIST10 TABLE.	F2302120
	07632	0 07400 4 07614	221		TSX	BURNCE,4 DRUM 0VERFLOW, GO SAVE IRA BEFORE DIAG.	F2302135
	07633	−0 75400 0 00000	222	LIST10	PXD	0,0 ZERO IN ACC. .	F2302140
	07634	0 36100 2 00000	223	LIST20	ACL	0,2 COMPUTE	F2302150
	07635	2 00001 2 07634	224		TIX	LIST20,2,1 ENTRY	F2302160
	07636	0 76600 0 00303	225		WRS	ADRUM SELECT DRUM.	F2302165
	07637	0 60200 0 07655	226		SLW	LIST60 CHECK SUM.	F2302170
	07640	0 46000 1 07674	227		LDA	LADDS+5,1 COPY	F2302180
	07641	0 70000 4 00000	228	LIST30	CPY	0,4 ENTRY	F2302190
	07642	2 00001 4 07641	229		TIX	LIST30,4,1 AND	F2302200
	07643	0 70000 0 07655	230		CPY	LIST60 CHECK SUM.	F2302210
	07644	0 50000 1 07674	231		CLA	LADDS+5,1 COMPUTE	F2302220
	07645	0 40000 1 07667	232		ADD	TSXCOM+5,1 NEXT	F2302230
	07646	0 40000 0 06675	233		ADD	L(1)A ENTRY	F2302240
	07647	−0 32000 0 06703	234		ANA	ADDMSK ADDRESS.	F2302250
	07650	0 60100 1 07674	235		STO	LADDS+5,1	F2302260
	07651	−0 53400 4 07653	236		LXD	LIST40,4 EXIT	F2302270
	07652	0 02000 4 00001	237		TRA	1,4	F2302280
A	07653	0 00000 0 00000	238	LIST40	HTR	E.S.	F2302290
	07654	0 00000 0 07656	239	LIST50	HTR	E1 L(E1)	F2302300
A	07655	0 00000 0 00000	240	LIST60	HTR	E.S.	F2302310
			241			FOUR WORD ENTRY BLOCK	F2302320
A	07656	0 00000 0 00000	242	E1	HTR		F2302330
A	07657	0 00000 0 00000	243	E2	HTR		F2302340
A	07660	0 00000 0 00000	244	E3	HTR		F2302350
A	07661	0 00000 0 00000	245	E4	HTR		F2302360
			246			FIVE KEY WORDS, C(DEC)=INDEX QUANTITIES, C(ADD)=NR. OF WORDS.	F2302370
	07662	0 00005 0 00002	247	TSXCOM	HTR	2,0,5	F2302380
	07663	0 00004 0 00003	248	TRASTO	HTR	3,0,4	F2302390
	07664	0 00003 0 00002	249	NAMKEY	HTR	2,0,3	F2302400
	07665	0 00002 0 00002	250	CHATAG	HTR	2,0,2	F2122410
	07666	0 00001 0 00004	251	DRMTAG	HTR	4,0,1	F2302420
			252			FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART.	F2302430
A	07667	0 00000 0 00000	253	LADDS	HTR	TSXCOM	F2302440
A	07670	0 00000 0 00000	254		HTR	TRASTO	F2302450
A	07671	0 00000 0 00000	255		HTR	NAMKEY	F2302460
A	07672	0 00000 0 00000	256		HTR	CHATAG	F2302470
A	07673	0 00000 0 00000	257		HTR	DRMTAG	F2302480
			258			FIVE WORDS, C(ADD)=ORIGIN,C(DEC)=LAST TABLE L.C. PLUS ONE	F2302490
	07674	0 02660 0 01302	259	LADDIN	HTR	706,0,1456 TSXCOMP	F2302500
	07675	0 01300 0 00460	260		HTR	304,0,704 TRASTO	F2302510
	07676	0 02662 0 01760	261		HTR	1008,0,1458 NAMKEY	F2302520
	07677	0 00456 0 00002	262		HTR	2,0,302 CHATAG	F2302530
	07700	0 03650 0 02664	263		HTR	1460,0,1960 DRMTAG	F2302540
			264			THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE	F2302550
			265			CORRESP0NDING SUBSCRIPT COMPINATION FROM THE TAU	F2302560
			266			DRUM AND POSITIONS IT IN PROPER FORMAT IN STORAGE.	F2302570
	07701	−0 63400 4 07762	267	SUBCOM	SXD	SUB085,4 SAVE LINKAGE INDX.	F2302580
	07702	−0 53400 1 07770	268		LXD	SUBORG,1 INITIALIZE ERROR COUTNER.	F2302590
	07703	0 76200 0 00304	269	SUB010	RDS	TAUDRM SELECT TAU DRUM.	F2302600
	07704	−0 53400 4 07772	270		LXD	SUBORG+2,4 INITIALIZE	F2302610
	07705	−0 75400 0 00000	271		PXD	0,0 SUBSCRIPT COMBINATION	F2302620
	07706	0 60100 4 06645	272	SUB020	STO	C1+8,4 SPACE	F2302630
	07707	2 00001 4 07706	273		TIX	SUB020,4,1 T0 ZERO.	F2302640
	07710	0 50000 0 06626	274		CLA	TAG COMPUTE	F2302650
	07711	0 76500 0 00011	275		LRS	9 DRUM	F2302660
	07712	0 73400 6 00000	276		PAX	0,6 ADDRESS.	F2302670
	07713	−0 75400 0 00000	277		PXD	0,0 TAU ONE ADD. IS ORG+3TAU.	F2302680
	07714	0 76300 0 00011	278		LLS	9 TAU TWO ADD. IS ORG+5TAU.	F2302690
	07715	0 60100 0 07773	279		STO	SUBES1 TAU THREE ADD. IS ORG+7TAU.	F2302700
	07716	0 76700 0 00001	280		ALS	1 STORE	F2302710
	07717	0 60100 0 07774	281		STO	SUBES2 ADDRESS	F2302720
	07720	0 50000 4 07773	282		CLA	SUBORG+3,4 IN SUBES1	F2302730
	07721	0 40000 0 07773	283		ADD	SUBES1 FOR LDA	F2302740
	07722	0 40000 0 07774	284	SUB030	ADD	SUBES2 INSTRUCTION.	F2302750
	07723	2 00001 4 07722	285		TIX	SUB030,4,1	F2302760
	07724	0 62100 0 07773	286		STA	SUBES1	F2302770
	07725	0 46000 0 07773	287		LDA	SUBES1 COPY SUB. COMB.	F2302780
	07726	0 70000 0 06635	288		CPY	C1 TAU ONE, TWO, THREE	F2302790
	07727	−3 00002 2 07731	289		TXL	SUB040,2,2	F2302800
	07730	0 70000 0 06641	290		CPY	C3 TAU 3	F2302810
	07731	0 70000 0 06636	291	SUB040	CPY	S1 TAU 1,2,3	F2302820
	07732	−3 00001 2 07737	292		TXL	SUB060,2,1	F2302830
	07733	0 70000 0 06640	293		CPY	S2 TAU2,3	F2302840
	07734	−3 00002 2 07736	294		TXL	SUB050,2,2	F2302850
	07735	0 70000 0 06642	295		CPY	S3 TAU 3	F2302860
	07736	0 70000 0 06643	296	SUB050	CPY	D1 TAU 2,3	F2302870
	07737	0 70000 0 07773	297	SUB060	CPY	SUBES1 TAU 1,2,3	F2302880
	07740	−0 53400 4 07770	298		LXD	SUBORG,4 COMPUT CHECK SUM	F2302890
	07741	−0 50000 0 06635	299		CAL	C1 AND COMPARE WITH	F2302900
	07742	0 36100 4 06644	300	SUB070	ACL	C1+7,4 ENTRY CHECK CUM.	F2302910
	07743	2 00001 4 07742	301		TIX	SUB070,4,1 THREE ATTMPTS ARE MADE	F2302920
	07744	0 60200 0 07774	302		SLW	SUBES2 T0 READ SC CORRECTLY.	F2302930
	07745	0 50000 0 07774	303		CLA	SUBES2 IF ERROR STILL PRESENT,	F2302940
	07746	0 40200 0 07773	304		SUB	SUBES1 COMPLETE ROUTINE, MAKE ERROR RET.	F2302950
	07747	0 10000 0 07752	305		TZE	SUB075 CHECK SUMS AGREE, TRA.	F2302960
	07750	2 00001 1 07703	306		TIX	SUB010,1,1 CHECK SUMS DISAGREE,	F2302972
	07751	0 07400 4 00004	307		TSX	DIAG,4 IN READING TAU FROM DRUM, ERROR. GO TO DIAGNOSTIC.	F2302983
	07752	−0 53400 4 07771	308	SUB075	LXD	SUBORG+1,4 REARRANGE C1, C2, D1, D2,	F2302990
	07753	0 50000 4 06644	309	SUB080	CLA	C1+7,4 TO COMPLY WITH CORE	F2303000
	07754	0 73400 2 00000	310		PAX	0,2 STORAGE FORMAT.	F2303010
	07755	−0 32000 0 06704	311		ANA	DECMSK	F2303020
	07756	0 60100 4 06644	312		STO	C1+7,4	F2303030
	07757	−0 75400 2 00000	313		PXD	0,2	F2303040
	07760	−2 00006 4 07763	314		TNX	SUB090,4,6	F2303050
	07761	0 60100 0 06637	315		STO	C2	F2303060
D	07762	−3 00000 0 07753	316	SUB085	TXL	SUB080,0	F2303070
	07763	0 60100 0 06644	317	SUB090	STO	D2	F2303080
	07764	−0 53400 4 07762	318		LXD	SUB085,4 RESTORE LINKAGE INDEX,	F2303090
	07765	0 76100 0 00000	319		NOP		F2303102
	07766	0 02000 4 00001	320		TRA	1,4	F2303110
	07767	0 76100 0 00000	321	SUB100	NOP		F2303122
	07770	+000006001356	322	SUBORG	OCT	000006001356	F2303130
	07771	+000007000454	323		OCT	7000454 DEC. IS 7, ADD. IS ORG. TAU 2	F2303140
	07772	+000010000000	324		OCT	10000000 DEC. IS 8, ADD. IS ORG. TAU 1	F2303150
A	07773	0 00000 0 00000	325	SUBES1	HTR	E.S.	F2303160
A	07774	0 00000 0 00000	326	SUBES2	HTR	E.S.	F2303170
		06721	327		ORG	3537	F2303180
			328			MASTER RECORD CARD = FN039	F2303185
	06721	−0 53400 1 00733	329	BL3A	LXD	FORTAG−1,1 IF FORTAG	F2303190
	06722	3 02733 1 07616	330		TXH	NORMRT,1,1499 IS EMPTY, NORM RET MONITOR. GO SPACE TP 1.	F2303205
	06723	−0 76000 0 00144	331		MSE	LIGHT IF FORVAL IS EMPTY,	F2303210
	06724	0 02000 0 06726	332		TRA	INIT	F2303220
	06725	0 02000 0 07616	333		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2303235
	06726	−0 53400 1 03670	334	INIT	LXD	FORVAL−1,1 INITIALIZE	F2303240
	06727	−0 63400 1 07034	335		SXD	TAB60,1 .	F2303250
	06730	−0 53400 1 00733	336		LXD	FORTAG−1,1 .	F2303260
	06731	−0 63400 1 07015	337		SXD	VAL80,1 .	F2303270
	06732	−0 63400 1 07020	338		SXD	VAL95,1 .	F2303280
	06733	−0 53400 1 07570	339		LXD	DOZ,1 .	F2303290
	06734	−0 63400 1 07101	340		SXD	IND20,1 .	F2303300
	06735	−0 53400 1 06674	341	VALTAG	LXD	L(1500,1 THIS PROGRAM	F2303310
	06736	0 50000 1 03670	342	VAL10	CLA	FORTZ,1 MAKES A	F2303320
	06737	−0 12000 0 07017	343		TMI	VAL90 PASS OVER	F2303330
	06740	−0 32000 0 06677	344		ANA	BITONE FORTAG, AND	F2303340
	06741	−0 10000 0 07017	345		TNZ	VAL90 FOR EACH NON-NEGATIVE (NOT TRREATED IN BL 2)	F2303350
	06742	0 50000 1 03670	346		CLA	FORTZ,1 TAG WITH BITONE EQUAL	F2303360
	06743	−0 32000 0 06703	347		ANA	ADDMSK TO ZERO, (NOT YET TREATED HERE)	F2303370
	06744	0 60100 0 06626	348		STO	TAG OBTAINS THE CORRESP0ND1NG SUBSCRIPT	F2303380
	06745	−0 63400 1 07000	349		SXD	SAVEA,1 COMPINATION FROM THE	F2303390
	06746	0 07400 4 07701	350		TSX	SUBCOM,4 TAU TABLE DRUM.	F2303400
	06747	−0 53400 4 06670	351		LXD	L(3),4	F2303410
	06750	−0 75400 0 00000	352		PXD	0,0	F2303420
	06751	0 60100 4 06635	353	VAL20	STO	RSYM1+3,4 INITIALIZE WITH ZEROES.	F2303430
	06752	2 00001 4 06751	354		TIX	VAL20,4,1	F2303440
	06753	−0 53400 1 06671	355		LXD	L(6),1 THIS ROUTINE STORES	F2303450
	06754	−0 53400 2 06670	356		LXD	L(3),2 THE SYMBOLS AS FOLLOWS	F2303460
	06755	0 50000 1 06644	357	VAL30	CLA	S1+6,1 LEFTMOST IN RSYM1,	F2303470
	06756	0 10000 0 06761	358		TZE	VAL40 NEXT SYMBOL IN RSYM2,	F2303480
	06757	0 60100 2 06635	359		STO	RSYM1+3,2 RIGHTMOST IN RSYM3.	F2303490
	06760	1 77777 2 06761	360		TXI	VAL40,2,−1 IF THERE ARE NOT THREE	F2303500
	06761	2 00002 1 06755	361	VAL40	TIX	VAL30,1,2 SYMBOLS IN THE SC, THEN	F2303510
	06762	−0 75400 2 00000	362		PXD	0,2 THE RSYM LOCATIONS ARE	F2303520
	06763	−0 76000 0 00003	363		SSM	SET TO ZERO.	F2303530
	06764	0 40000 0 06670	364		ADD	L(3) DELTA IS THE SYMBOL COUNT.	F2303540
	06765	0 10000 0 07001	365		TZE	VAL60 SUBSCRIPT IS CONSTANT, NO SYMBOLS.	F2303550
	06766	0 60100 0 06631	366		STO	DELTA	F2303560
	06767	−0 53400 4 06665	367		LXD	L(0),4 LOCATION TAGIND IS SET	F2303570
	06770	0 40200 0 06666	368		SUB	L(1) TO ZERO, UNLESS THE SC	F2303580
	06771	−0 10000 0 06777	369		TNZ	VAL50 HAS THE FOLLOWING	F2303590
	06772	0 50000 0 06636	370		CLA	S1 CHARACTERISTICS	F2303600
	06773	0 10000 0 06777	371		TZE	VAL50 ONE SYMBOL	F2303610
	06774	−0 53400 1 06635	372		LXD	C1,1 IN LEFTMOST POSITION	F2303620
	06775	3 00001 1 06777	373		TXH	VAL50,1,1 WITH COEFFICIENT EQUAL	F2303630
	06776	−0 53400 4 06666	374		LXD	L(1),4 TO ONE	F2303640
	06777	−0 63400 4 06630	375	VAL50	SXD	TAGIND,4	F2303650
D	07000	−3 00000 0 07022	376	SAVEA	TXL	TABSER,0 GO TO PROCESSING ROUTINE. (DEC HAS FORTAG IX)	F2303660
	07001	−0 53400 1 07000	377	VAL60	LXD	SAVEA,1 RETURN FROM PROCESSING	F2303670
	07002	0 50000 1 03670	378		CLA	FORTZ,1 ROUTINE. FOR THIS TAG,	F2303680
	07003	−0 12000 0 07014	379		TMI	VAL70 AND ALL TAGS EQUAL TO	F2303690
	07004	−0 32000 0 06677	380		ANA	BITONE THIS TAG, SET FORTAG	F2303700
	07005	−0 10000 0 07014	381		TNZ	VAL70 ENTRY BIT ONE EQUAL	F2303710
	07006	0 50000 1 03670	382		CLA	FORTZ,1 TO ONE.	F2303720
	07007	−0 32000 0 06703	383		ANA	ADDMSK	F2303730
	07010	0 40200 0 06626	384		SUB	TAG	F2303740
	07011	−0 10000 0 07014	385		TNZ	VAL70	F2303750
	07012	0 50000 0 06677	386		CLA	BITONE	F2303760
	07013	−0 60200 1 03670	387		ORS	FORTZ,1	F2303770
	07014	1 77777 1 07015	388	VAL70	TXI	VAL80,1,−1	F2303780
D	07015	3 00000 1 07002	389	VAL80	TXH	VAL60+1,1 IF FORTAG DONE, (DEC HAS FORTAGIX)	F2303790
	07016	−0 53400 1 07000	390		LXD	SAVEA,1 GO BACK	F2303800
	07017	1 77777 1 07020	391	VAL90	TXI	VAL95,1,−1 FOR NEXT TAG	F2303810
D	07020	3 00000 1 06736	392	VAL95	TXH	VAL10,1 IF ANY (DEC HAS FORTAGIX)	F2303820
	07021	0 02000 0 07616	393		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2303835
	07022	−0 53400 1 06674	394	TABSER	LXD	L(1500,1 SEARCH	F2303840
	07023	−0 63400 2 07032	395		SXD	TAB40,2 (6 - 2X NO SUB SYMBOLS - VAL40)	F2303850
	07024	−0 53400 2 06670	396	TAB10	LXD	L(3),2 FORVAL	F2303860
	07025	0 50000 1 06626	397		CLA	4VALZ+1,1 FOR AN	F2303870
	07026	0 34000 2 06635	398	TAB20	CAS	RSYM1+3,2 OCCURRANCE	F2303880
	07027	0 02000 0 07031	399		TRA	TAB30 OF ANY SYMBOL	F2303890
	07030	0 02000 0 07036	400		TRA	FOUND IN THIS SC.	F2303900
	07031	1 77777 2 07032	401	TAB30	TXI	TAB40,2,−1	F2303910
D	07032	3 00000 2 07026	402	TAB40	TXH	TAB20,2 ( DEC LOADED FROM TABSER + 1)	F2303920
	07033	1 77775 1 07034	403	TAB50	TXI	TAB60,1,−3	F2303930
D	07034	3 00000 1 07024	404	TAB60	TXH	TAB10,1 (DEC HAS FORVALIX)	F2303940
	07035	0 02000 0 07001	405		TRA	VAL60	F2303950
	07036	−0 63400 1 07053	406	FOUND	SXD	FND10,1 IF SYMBOL FOUND,	F2303960
	07037	−0 53400 4 06630	407		LXD	TAGIND,4 MAKE NORMAL OR SPECIAL	F2303970
	07040	0 50000 1 06625	408		CLA	4VALZ,1 ENTRY IN TSXCOM, DEPENDING	F2303980
	07041	3 00000 4 07054	409		TXH	FND20,4,0 ON TAGIND. (UNLESS SEE SUBRT INDO)	F2303990
	07042	0 60100 0 07112	410		STO	FORNR	F2304000
	07043	0 07400 4 07064	411		TSX	INDO,4	F2304010
	07044	0 02000 0 07062	412		TRA	FND40 INDO RETURN IF FRVL ALPH IN RANGE MTCHNG DOTAG	F2304020
	07045	−0 53400 1 07053	413		LXD	FND10,1 RETURN FROM INDO WHEN NOT SO.	F2304030
	07046	0 50000 1 06625	414		CLA	4VALZ,1	F2304040
	07047	0 60100 0 07656	415		STO	E1 SPECIAL ENTRY IF TAGIND	F2304050
	07050	0 50000 0 06626	416		CLA	TAG NOT ZERO	F2304060
	07051	0 76700 0 00022	417		ALS	18	F2304070
	07052	−0 50100 0 06626	418		ORA	TAG	F2304080
D	07053	−3 00000 0 07057	419	FND10	TXL	FND30,0 (DEC HAS FORTAG IX)	F2304090
	07054	−0 50100 0 06626	420	FND20	ORA	TAG SET UP E BLOCK WHEN TAGIND EQUAL 1	F2304100
	07055	0 60100 0 07656	421		STO	E1	F2304110
	07056	0 50000 0 06632	422		CLA	RSYM1 TAG SYMBOL	F2304120
	07057	0 60100 0 07657	423	FND30	STO	E2	F2304130
	07060	0 50000 0 07662	424		CLA	TSXCOM TSXCOM KEY	F2304140
	07061	0 07400 4 07620	425		TSX	LIST,4	F2304150
	07062	−0 53400 1 07053	426	FND40	LXD	FND10,1	F2304160
	07063	0 02000 0 07033	427		TRA	TAB50 CONTINUE SEARCH	F2304170
			428			SUBRT INDO.... THIS ROUTINE DETERMINES WHETHER THE FORVAL	F2304180
			429			WHICH HAS BEEN FOUND TO HATCH A SUBSCRIPT FALLS WITHIN RANGE	F2304190
			430			OF A DO WHICH IN TURN MATCHES THE FORAVAL. IF SO A RETURN IS	F2304200
			431			MADE AND TSXCOM ENTRY FOR THIS FORVAL ALPHA IS OMMITTED.	F2304210
	07064	−0 53400 1 07113	432	INDO	LXD	IND60,1	F1004220
	07065	0 02000 0 07101	433		TRA	IND20 .	F1004230
	07066	0 50000 1 07570	434	IND10	CLA	DOZ,1 OBTAIN FIRST WORD DOTAG.	F2304240
	07067	0 73400 2 00000	435		PAX	0,2 DOTAGS BETA.	F2304250
	07070	−0 32000 0 06704	436		ANA	DECMSK DOTAGS ALPHA	F2304260
	07071	0 34000 0 07112	437		CAS	FORNR AGAINST FORVAL ALPHA.	F2304270
	07072	0 02000 4 00002	438		TRA	2,4 OUTSIDE RANGE . RETURN.	F2304280
	07073	0 07400 4 00004	439		TSX	DIAG,4 FORVAL ALPHA EQ DO ALPHA. ERROR. GO TO DIAGNOSTIC.	F2304295
	07074	−0 75400 2 00000	440		PXD	0,2	F2304300
	07075	0 34000 0 07112	441		CAS	FORNR DOTAGS BETA AGAINST FORVAL ALPHA.	F2304310
	07076	0 02000 0 07103	442		TRA	IND30 FORVAL WITHIN RANGE	F2304320
	07077	0 02000 0 07103	443		TRA	IND30 OF DOTAG.	F2304330
	07100	1 77776 1 07101	444		TXI	IND20,1,−2	F2304340
D	07101	3 00000 1 07066	445	IND20	TXH	IND10,1	F2304350
	07102	0 02000 4 00002	446		TRA	2,4 DOTAG EXHAUSTED, RETURN.	F2304360
	07103	−0 53400 2 06670	447	IND30	LXD	L(3),2	F2304370
	07104	0 50000 1 07571	448		CLA	DOZ+1,1 FN EDIT CORR CD NR.	F2304384
	07105	0 34000 2 06635	449	IND40	CAS	RSYM1+3,2 DOES DOTAG SYMBOL EQUAL	F2304390
	07106	0 02000 0 07110	450		TRA	IND50 FORVAL SYMBOL (WHICH HAS BEEN FOUND	F2304400
	07107	0 02000 4 00001	451		TRA	1,4 T0 EQUAL SUBSCRIPT). IF SO, RETURN.	F2304410
	07110	2 00001 2 07105	452	IND50	TIX	IND40,2,1	F2304420
	07111	1 77776 1 07101	453		TXI	IND20,1,−2	F2304430
A	07112	0 00000 0 00000	454	FORNR	HTR	STORAGE FOR FIRST WD FORVAL (ALPHA)	F2304440
	07113	0 00454 0 00000	455	IND60		0,0,300	F2304450
		07114	456	DO	BSS	1	F2304460
		07115	457		BSS	299	F2304470
		07570	458	DOZ	BSS	1	F2304480
		06721	459		ORG	3537	F2304490
			460			MASTER RECORD CARD = FN041	F2304495
	06721	−0 53400 1 00733	461	BL3B	LXD	FORTAG−1,1 FORTAG EMPTY	F2304500
	06722	3 02733 1 07616	462		TXH	NORMRT,1,1499 NORM RET MONITOR. GO TO SPACE TAPE 1.	F2304515
	06723	−0 76000 0 00143	463		MSE	99 TEST FOR EMPTY DOTAG	F2304520
	06724	0 02000 0 06727	464		TRA	RDOTAG OFF	F2304530
	06725	0 76000 0 00143	465		PSE	99 ON, EMPTY	F2304540
	06726	0 02000 0 07616	466		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2304555
	06727	−0 53400 6 06671	467	RDOTAG	LXD	L(6),6 INITIALIZE ERROR COUNTERS.	F2304562
	06730	0 76400 0 00222	468	RDP0S	BST	TAPE2 POSITION TAPE 2 FOR DOTAG	F2304570
	06731	0 76400 0 00222	469		BST	TAPE2	F2304580
	06732	0 76200 0 00222	470		RDS	TAPE2	F2304590
	06733	0 70000 0 06770	471		CPY	RDES1	F2304600
	06734	0 70000 0 06771	472		CPY	RDES2	F2304610
A	06735	0 70000 0 00000	473		CPY		F2304620
	06736	0 07400 4 00004	474		TSX	DIAG,4 ERROR. GO TO DIAGNOSTIC.	F2304635
	06737	0 07400 4 00004	475		TSX	DIAG,4 ERROR. GO TO DIAGNOSTIC.	F2304645
	06740	0 50000 0 06770	476	RDREC	CLA	RDES1	F2304650
	06741	0 40200 0 06771	477		SUB	RDES2	F2304660
	06742	0 10000 0 06745	478		TZE	RDBACK	F2304670
	06743	2 00001 4 06731	479		TIX	RDP0S+1,4,1 ERROR - REREAD	F2304680
	06744	0 07400 4 00004	480		TSX	DIAG,4 ERROR. GO TO DIAGNOSTIC.	F2304695
	06745	−0 53400 1 06770	481	RDBACK	LXD	RDES1,1 NO RECORDS	F2304700
	06746	1 00002 1 06747	482		TXI	RDBST,1,2	F2304710
	06747	0 76400 0 00222	483	RDBST	BST	TAPE2 8ACKSPACE DESIGNATED NO RECORDS	F2304720
	06750	2 00001 1 06747	484		TIX	RDBST,1,1	F2304730
	06751	−0 53400 1 06673	485		LXD	L(1350,1 MAX SIZE DOTAG	F2304740
	06752	0 76200 0 00222	486	RDRDS	RDS	TAPE2	F2304750
	06753	0 70000 1 06377	487	RDCPY	CPY	DOTAGZ,1 READ IN DOTAG	F2304760
	06754	1 77777 1 06753	488		TXI	RDCPY,1,−1	F2304770
	06755	0 02000 0 06757	489		TRA	RDEOF	F2304780
	06756	0 02000 0 06752	490		TRA	RDRDS	F2304790
	06757	−0 63400 1 03670	491	RDEOF	SXD	DOTAG−1,1 DOTAG INDEX(1350-NO DOTAG ENTRIES)	F2304800
	06760	0 76200 0 00222	492		RDS	TAPE2 SPACE TAPE.	F2304810
	06761	0 76200 0 00222	493		RDS	TAPE2	F2304820
	06762	0 76600 0 00333	494		WRS	219	F2304830
	06763	−0 76000 0 00012	495		RTT		F2304840
	06764	0 02000 0 06766	496		TRA	RDER ON	F2304850
	06765	0 02000 0 06772	497		TRA	DOPASS	F2304860
	06766	2 00001 2 06730	498	RDER	TIX	RDP0S,2,1 TRY TWICE MORE.	F2304870
	06767	0 07400 4 00004	499		TSX	DIAG,4 TAPE 2, READING DOTAG. ERROR. GO TO DIAGNOSTIC.	F2304885
A	06770	0 00000 0 00000	500	RDES1	HTR	RECORD COUNT	F2304890
A	06771	0 00000 0 00000	501	RDES2	HTR	RECORD COUNT	F2304900
	06772	−0 53400 1 03670	502	DOPASS	LXD	DOTAG−1,1 DOTAG INDEX.	F2304910
	06773	−0 63400 1 07110	503		SXD	SYM40,1 INITIALIZE.	F2304920
	06774	−0 63400 1 07160	504		SXD	SYM130,1 .	F2304930
	06775	−0 63400 1 07222	505		SXD	SYM220,1 .	F2304940
	06776	−0 63400 1 07523	506		SXD	TRAW20,1 .	F2304950
	06777	−0 63400 1 07541	507		SXD	TRAW50,1 .	F2304960
	07000	−0 63400 1 07420	508		SXD	SPC040,1 .	F2304970
	07001	−0 63400 1 07455	509		SXD	SPC090,1 .	F2304980
	07002	−0 53400 1 00030	510		LXD	NAME−1,1 .	F2304990
	07003	−0 63400 1 07261	511		SXD	GETN20,1 .	F2305000
			512			THIS ROUTINEMAKES A PASS OVER FORTAG AND FOR EACH NON-	F2305010
			513			NEGATIVE TAG, OBTAINS THE CORRESPONDING SUBSCRIPT COMPINATION	F2305020
			514			FROM THE TAU DRUM. THE SYMBOLS ARE PUT INTO THE LOCATIONS	F2305030
			515			RSYM1, RSYM2, RSYM3, AND LOCATION TAGIND IS INIT1ALIZED.	F2305040
			516			CONTROL THEN GOES TO ROUTINE SYMONE. UPON RETURN, THIS ENTRY	F2305050
			517			IN FORTAG AND ALL OTHER N0N- NEGATIVE ENTRIES CONTAINING	F2305060
			518			THIS TAG ARE SET NEGATIVE.	F2305070
	07004	−0 53400 1 00733	519	TAGPAS	LXD	FORTAG−1,1	F2305080
	07005	−0 63400 1 07601	520		SXD	TINF30,1	F2305090
	07006	−0 63400 1 07073	521		SXD	TAGP80,1	F2305100
	07007	−0 63400 1 07076	522		SXD	TAGP98,1	F2305110
	07010	−0 53400 1 06674	523		LXD	L(1500,1	F2305120
	07011	0 50000 1 03670	524	TAGP10	CLA	FORTZ,1	F2305130
	07012	−0 12000 0 07075	525		TMI	TAGP94 IF NEG, GET NEXT FORTAG	F2305140
	07013	−0 32000 0 06703	526		ANA	ADDMSK TAG	F2305150
	07014	0 60100 0 06626	527		STO	TAG	F2305160
	07015	−0 63400 1 07077	528		SXD	TAGX,1 SAVE CURRENT FORTAG IX	F2305170
	07016	0 07400 4 07701	529		TSX	SUBCOM,4 OBTAIN AND DISPERSE THE TAU TABLES.	F2305180
	07017	−0 53400 4 06670	530		LXD	L(3),4	F2305190
	07020	−0 75400 0 00000	531		PXD	0,0	F2305200
	07021	0 60100 4 06635	532	TAGP20	STO	RSYM1+3,4 INITIALIZE RSYM LOCATIONS WITH ZERO.	F2305210
	07022	2 00001 4 07021	533		TIX	TAGP20,4,1	F2305220
	07023	−0 53400 1 06671	534		LXD	L(6),1	F2305230
	07024	−0 53400 2 06670	535		LXD	L(3),2	F2305240
	07025	−0 53400 4 06665	536		LXD	L(0),4	F2305250
	07026	0 50000 1 06644	537	TAGP30	CLA	S1+6,1 GET SYMBOL	F2305260
	07027	0 10000 0 07041	538		TZE	TAGP40 IF ZERO, GET NEXT SYMBOL	F2305270
	07030	3 00002 2 07037	539		TXH	TAGP34,2,2 AT RSYM2 AND RSYM3 PASS,	F2305280
	07031	0 34000 0 06632	540		CAS	RSYM1 CHECK FOR DUPLICATE SYMBOLS.	F2305290
	07032	0 02000 0 07034	541		TRA	TAGP32	F2305300
	07033	1 00001 4 07041	542		TXI	TAGP40,4,1 SYMBOL DUPLICATES RSYM1.	F2305310
	07034	0 34000 0 06633	543	TAGP32	CAS	RSYM2	F2305320
	07035	0 02000 0 07037	544		TRA	TAGP34	F2305330
	07036	1 00001 4 07041	545		TXI	TAGP40,4,1 SYMBOL DUPLICATES RSYM2.	F2305340
	07037	0 60100 2 06635	546	TAGP34	STO	RSYM1+3,2	F2305350
	07040	1 77777 2 07041	547		TXI	TAGP40,2,−1 BUMP DELTA COUNTER.	F2305360
	07041	2 00002 1 07026	548	TAGP40	TIX	TAGP30,1,2	F2305370
	07042	−0 75400 2 00000	549		PXD	0,2 COMPUTE	F2305380
	07043	−0 76000 0 00003	550		SSM	DELTA AS NO	F2305390
	07044	0 40000 0 06670	551		ADD	L(3) OF DISTINCT SYMBOLS.	F2305400
	07045	0 10000 0 07062	552		TZE	TAGP50 CONSTANT SUBSCRIPT.	F2305410
	07046	0 60100 0 06631	553		STO	DELTA	F2305420
	07047	−0 53400 2 06665	554		LXD	L(0),2	F2305430
	07050	3 00000 4 07060	555		TXH	TAGP45,4,0 IF DUPES, SET TAGIND TO ZERO	F2305440
	07051	0 40200 0 06666	556		SUB	L(1)	F2305450
	07052	−0 10000 0 07060	557		TNZ	TAGP45 IF DELTA OTHER THAN ONE, SET TAGIND TO ZERO	F2303460
	07053	0 50000 0 06636	558		CLA	S1	F2305470
	07054	0 10000 0 07060	559		TZE	TAGP45 IF SUBSCRIPT CONSTANT, SET TAGIND TO ZERO	F2305480
	07055	−0 53400 1 06635	560		LXD	C1,1 IF COEFF OTHER THAN 1 SET TAGIND TO ZERO	F2305490
	07056	3 00001 1 07060	561		TXH	TAGP45,1,1	F2305500
	07057	−0 53400 2 06666	562		LXD	L(1),2 OTHERWISE SET TAGIND TO ONE.	F2305510
	07060	−0 63400 2 06630	563	TAGP45	SXD	TAGIND,2	F2305520
	07061	0 02000 0 07100	564		TRA	SYMONE GO TO ANALYZE DONESTI	F2305530
	07062	−0 53400 1 07077	565	TAGP50	LXD	TAGX,1 IF ANY .	F2305540
	07063	0 50000 1 03670	566	TAGP60	CLA	FORTZ,1 OF THE AS YET UNTREATED	F2305550
	07064	−0 12000 0 07072	567		TMI	TAGP70 FORTAGS	F2305560
	07065	−0 32000 0 06703	568		ANA	ADDMSK ARE	F2305570
	07066	0 40200 0 06626	569		SUB	TAG THE SAME AS THAT TAG	F2305580
	07067	−0 10000 0 07072	570		TNZ	TAGP70 JUST TREATED,	F2305590
	07070	−0 50000 0 06676	571		CAL	L(MZ) SET THEM	F2305600
	07071	−0 60200 1 03670	572		ORS	FORTZ,1 MINUS.	F2305610
	07072	1 77777 1 07073	573	TAGP70	TXI	TAGP80,1,−1	F2305620
D	07073	3 00000 1 07063	574	TAGP80	TXH	TAGP60,1 ( DEC HAS FORTAG IX)	F2305630
	07074	−0 53400 1 07077	575	TAGP90	LXD	TAGX,1	F2305640
	07075	1 77777 1 07076	576	TAGP94	TXI	TAGP98,1,−1 IF ALL OF FORTAG	F2305650
D	07076	3 00000 1 07011	577	TAGP98	TXH	TAGP10,1 HAS BEEN COMPLETED, (DEC HAS FORTAG IX)	F2305660
D	07077	−3 00000 0 07616	578	TAGX	TXL	NORMRT,0 NORMAL RET MONITOR. (DEC HAS CURR FORTAG IX)	F2305675
			579			ROUTINE SYMONE FINDS DOFORMULAS DEFINING SOME SYMBOL IN THIS	F2305680
			580			SC. IT USES TRAWRD TO DETERMINE WHETHER OR NOT ROUTINE	F2305690
			581			PROCESS SHOULD BE USED.	F2305700
			582			IF MORE THAN ONE SYMBOL, IT THEN USES ROUTINE SYM2.	F2305710
	07100	−0 53400 1 06673	583	SYMONE	LXD	L(1350,1	F2305720
	07101	−0 53400 2 06670	584	SYM10	LXD	L(3),2	F2305730
	07102	0 50000 1 06400	585		CLA	DOTAGZ+1,1 GET NEXT DOTAG SYMBOL.	F2305740
	07103	0 34000 2 06635	586	SYM20	CAS	RSYM1+3,2 IS IT SAME AS SUBSCRIPT SYMBOL.	F2305750
	07104	0 02000 0 07106	587		TRA	SYM30	F2305760
	07105	0 02000 0 07112	588		TRA	SYM50 YES	F2305770
	07106	2 00001 2 07103	589	SYM30	TIX	SYM20,2,1	F2305780
	07107	1 77767 1 07110	590		TXI	SYM40,1,−9	F2305790
D	07110	3 00000 1 07101	591	SYM40	TXH	SYM10,1 END OF DOTAG, RETURN.	F2305800
	07111	0 02000 0 07062	592		TRA	TAGP50	F2305810
	07112	0 50000 0 06632	593	SYM50	CLA	RSYM1 INTERCHANGE THE	F2305820
	07113	0 56000 2 06635	594		LDQ	RSYM1+3,2 MATCHING SUBSCRIPT	F2305830
	07114	0 60100 2 06635	595		STO	RSYM1+3,2 SYMBOL WITH	F2305840
	07115	−0 60000 0 06632	596		STQ	RSYM1 RSYM1.	F2305850
	07116	0 50000 1 06404	597		CLA	DOTAGZ+5,1	F2305860
	07117	−0 32000 0 06704	598		ANA	DECMSK STORE LEVEL	F2305870
	07120	0 60100 0 06647	599		STO	LR1 OF	F2305880
	07121	0 60100 0 06645	600		STO	TL2 DOTAG	F2305890
	07122	−0 63400 1 06646	601		SXD	XR1,1 THIS DOTAG IS R1.	F2305900
	07123	−0 53400 4 06631	602		LXD	DELTA,4 IF DELTA IS	F2305910
	07124	−0 53400 2 06666	603		LXD	L(1),2 ONE, THEN	F2305920
	07125	−3 00001 4 07127	604		TXL	SYM60,4,1 NO TRAWORD SKIP.	F2305930
	07126	−0 53400 2 06667	605		LXD	L(2),2 OTHERWISE, TRAWORD SKIP,	F2305940
	07127	0 07400 4 07513	606	SYM60	TSX	TRAWRD,4	F2305950
	07130	−0 63400 1 06650	607		SXD	NEXTR1,1 SAVE INDEX LAST DOTAG HANDLED.	F2305960
	07131	0 10000 0 07135	608		TZE	SYM70 ARE THERE TRANSFERS OUT(TRABITS).	F2305970
	07132	−0 53400 1 06646	609		LXD	XR1,1 YES. LOAD I.R. FOR MATCHING DOTAG.	F2305980
	07133	−0 53400 2 06666	610		LXD	L(1),2 A ONE TELLS PROCESS THAT	F2305990
	07134	0 07400 4 07236	611		TSX	PROCES,4 CALLER WAS SYMONE. (B).	F2306000
	07135	−0 53400 4 06631	612	SYM70	LXD	DELTA,4 NO TRANSFERS OUT (TRABITS)	F2306010
	07136	−3 00001 4 07142	613		TXL	SYM80,4,1 IF DELTA IS GREATER THAN ONE, THEN	F2306020
	07137	−0 53400 1 06646	614		LXD	XR1,1 LOAD INDEX REG FOR MATCHING DOTAG,	F2306030
	07140	−0 53400 2 06647	615		LXD	LR1,2 AND LEVEL AND	F2306040
	07141	0 02000 0 07144	616		TRA	SYM2 GO TO SECOND LEVEL SEARCH.	F2306050
	07142	−0 53400 1 06650	617	SYM80	LXD	NEXTR1,1 DELTA IS ONE,	F2306060
	07143	0 02000 0 07110	618		TRA	SYM40 CONTINUE FIRST LEVEL SEARCH.	F2306070
			619			ROUTINE SYMTWO MAKES A SECOND LEVEL SEARCH AMONG THOSE DOS	F2306080
			620			NESTED WITHIN THE DO MATCHING RSYM1. USES PROCESS ROUTINE	F2306090
			621			IF NECESSARY, AND ROUTINE SYM3 IF NECESSARY.	F2306100
	07144	−0 63400 2 07150	622	SYM2	SXD	SYM100,2 INITIALIZE LEVEL TEST	F2306110
	07145	0 02000 0 07157	623		TRA	SYM120	F2306120
	07146	0 50000 1 06404	624	SYM90	CLA	DOTAGZ+5,1 GET LEVEL OF	F2306130
	07147	−0 73400 2 00000	625		PDX	0,2 NEW DOTAG AND	F2306140
D	07150	−3 00000 2 07110	626	SYM100	TXL	SYM40,2 TEST AGAINST LEVEL OF R1 AND	F2306150
	07151	0 50000 1 06400	627		CLA	DOTAGZ+1,1 IF WITHIN RANGE OF R1,	F2306160
	07152	0 34000 0 06633	628		CAS	RSYM2 TEST MATCH DOTAG SYMBOL AGAINST RSYM2.	F2306170
	07153	0 02000 0 07155	629		TRA	SYM110	F2306180
	07154	0 02000 0 07166	630		TRA	SYM150 MATCHES . GO TO TREAT R2.	F2306190
	07155	0 40200 0 06634	631	SYM110	SUB	RSYM3 DOESNT MATCH RSYM2, TRY RSYM3.	F2306200
	07156	0 10000 0 07162	632		TZE	SYM140	F2306210
	07157	1 77767 1 07160	633	SYM120	TXI	SYM130,1,−9 GET NEXT DOTAG	F2306220
D	07160	3 00000 1 07146	634	SYM130	TXH	SYM90,1 (DEC CONTAINS DOTAG IX)	F2306230
	07161	0 02000 0 07110	635		TRA	SYM40 IF END OF DOTAG, EXIT.	F2306240
	07162	0 50000 0 06633	636	SYM140	CLA	RSYM2 DOTAG SYMBOL MATCHES RSYM3 -	F2306250
	07163	0 56000 0 06634	637		LDQ	RSYM3 INTERCHANGE	F2306260
	07164	0 60100 0 06634	638		STO	RSYM3 RSYM2 AND	F2306270
	07165	−0 60000 0 06633	639		STQ	RSYM2 RSYM3.	F2306280
	07166	−0 63400 1 06651	640	SYM150	SXD	XR2,1 THIS DOTAG IS R2	F2306290
	07167	−0 63400 2 06652	641		SXD	LR2,2 SAVE ITS LEVEL .	F2306300
	07170	−0 53400 2 06666	642		LXD	L(1),2 IF DELTA IS	F2306310
	07171	−0 53400 4 06631	643		LXD	DELTA,4 TWO OR ONE, THEN	F2306320
	07172	−3 00002 4 07174	644		TXL	SYM160,4,2 N0 TRAWORD SKIP.	F2306330
	07173	−0 53400 2 06667	645		LXD	L(2),2 OTHERWISE TRAWORD SKIP.	F2306340
	07174	0 07400 4 07513	646	SYM160	TSX	TRAWRD,4	F2306350
	07175	−0 63400 1 06653	647		SXD	NEXTR2,1 SAVE INDEX LAST DOTAG HANDLED.	F2306360
	07176	0 10000 0 07202	648		TZE	SYM170 ARE THERE TRANSFERS OUT (TRABITS)	F2306370
	07177	−0 53400 1 06651	649		LXD	XR2,1 YES. LOAD IX REG FOR MATCHING DOTAG.	F2306380
	07200	−0 53400 2 06667	650		LXD	L(2),2 A TWO TELLS PROCESS THAT	F2306390
	07201	0 07400 4 07236	651		TSX	PROCES,4 CALLER WAS SYM2. (2).	F2306400
	07202	−0 53400 4 06631	652	SYM170	LXD	DELTA,4 O0 TRANSFERS OUT (TRABITS)	F2306410
	07203	−3 00002 4 07207	653		TXL	SYM180,4,2 IF DELTA IS 3 , THEN	F2306420
	07204	−0 53400 1 06651	654		LXD	XR2,1 LOAD INDEX REG FOR MATCHING DOTAG.	F2306430
	07205	−0 53400 2 06652	655		LXD	LR2,2 AND LEVEL AND	F2306440
	07206	0 02000 0 07211	656		TRA	SYM3 GO TO THRID LEVEL SEARCH	F2306450
	07207	−0 53400 1 06653	657	SYM180	LXD	NEXTR2,1 DELTA IS LESS THAN-THREE,	F2306460
	07210	0 02000 0 07160	658		TRA	SYM130 CONTINUE SECOND LEVEL SEARCH.	F2306470
			659			ROUTINE SYM3 MAKES A THIRD LEVEL SEARCH OF DOTAG AMONG THOSE	F2306480
			660			DOS NESTED WITHIN THE DO MATCHING RSYM2, USES PROCESS IF	F2306490
			661			NECESSARY, AND THEN RETURNS TO SYM2.	F2306500
	07211	−0 63400 2 07215	662	SYM3	SXD	SYM200,2 INITIALIZE WITH LEVEL.OF R2.	F2306510
	07212	0 02000 0 07221	663		TRA	SYM210	F2306520
	07213	0 50000 1 06404	664	SYM190	CLA	DOTAGZ+5,1 OBTAIN LEVEL	F2306530
	07214	−0 73400 2 00000	665		PDX	0,2 OF CURRENT DOTAG AND IF IT IS	F2306540
D	07215	−3 00000 2 07160	666	SYM200	TXL	SYM130,2 OUTSIDE RANGE OF R2, EXIT. (DEC HAS LEVEL R2)	F2306550
	07216	0 50000 1 06400	667		CLA	DOTAGZ+1,1 OTHERWISE CHECK FOR IDENTIRY	F2306560
	07217	0 40200 0 06634	668		SUB	RSYM3 WITH THIRD FORTAG SYMBOL.	F2306570
	07220	0 10000 0 07224	669		TZE	SYM230 IF IDENTITY, GO TO ANALYZE . OTHERWISE,	F2306580
	07221	1 77767 1 07222	670	SYM210	TXI	SYM220,1,−9 GET NEXT DOTAG.	F2306590
D	07222	3 00000 1 07213	671	SYM220	TXH	SYM190,1 IF END OF DOTAG, (DEC HAS DOTAG IX)	F2306600
	07223	0 02000 0 07160	672		TRA	SYM130 EXIT FROM THIRD LEVEL SEARCH	F2306610
	07224	−0 63400 1 06654	673	SYM230	SXD	XR3,1 SAVE IX OF MATCHING DO	F2306620
	07225	−0 53400 2 06666	674		LXD	L(1),2 NO TRAWORD SKIP.	F2306630
	07226	0 07400 4 07513	675		TSX	TRAWRD,4 GO TO HUNT TRANSFERS-OUT.	F2306640
	07227	0 10000 0 07222	676		TZE	SYM220 IF NO TRNSFRS OUT-(TRABITS) RETURN TO SRCH	F2306650
	07230	−0 63400 1 06655	677		SXD	NEXTR3,1 TRNSFRS OUT. SAVE IX LAST DO HANDLED IN TRAWORD	F2306660
	07231	−0 53400 1 06654	678		LXD	XR3,1	F2306670
	07232	−0 53400 2 06670	679		LXD	L(3),2 THREE TELLS PROCESS THAT CALLER WAS SYM3	F2306680
	07233	0 07400 4 07236	680		TSX	PROCES,4	F2306690
	07234	−0 53400 1 06655	681		LXD	NEXTR3,1 GET IX NEXT DOTAG AND	F2306700
	07235	0 02000 0 07222	682		TRA	SYM220 CONTINUE THIRD LEVEL SEARCH.	F2306710
			683			ROUTINE PROCESS DETERHINES WHETHER OR NOT THERE EXISTS A	F2306720
			684			TAG IDENTICAL TO THE CURRENT RELCON TAG AND WHETHER ITS	F2306730
			685			TAG NAME HAS BEEN CHANGED. THE SEARCH FOR THIS IDENTICAL TAG	F2306740
			686			IS MADE THRU APPROPRIATE RANGES OF THAT DO WHOSE SYMBOL HAS	F23067S0
			687			BEEN FOUND TO MATCH ONE OF THE RELCON SYMBOLS. TRASTO ENTRIES	F2306760
			688			ARE ENTERED DEPENDING UPON WHICH OF THOSE CONDITIONS HOLDS.	F2306770
	07236	−0 63400 1 07262	689	PROCES	SXD	DOX,1 SAVE DOTAG IX	F2306780
	07237	−0 63400 4 07265	690		SXD	SYMLNK,4 AND CALLER	F2306790
	07240	−0 63400 2 07243	691		SXD	PR10,2 AND INITIALIZE WITH B.	F2306800
	07241	−0 53400 2 06631	692		LXD	DELTA,2	F2306810
	07242	−0 53400 4 06665	693		LXD	L(0),4	F2306820
D	07243	3 00000 2 07245	694	PR10	TXH	PR20,2 DOES DELTA EXCEED B. (DEC HAS B)	F2306830
	07244	−0 53400 4 06666	695		LXD	L(1),4 IF NOT, THEN NO SKIP. OTHERWISE,	F2306840
	07245	−0 63400 4 06656	696	PR20	SXD	SKIP,4 SXIP IF C(SKIP)=0.	F2306850
	07246	−0 53400 4 06630	697		LXD	TAGIND,4 TRA IF SPECIAL CASE, I.E., MOST SIMPLE	F2306860
	07247	3 00000 4 07317	698		TXH	PRSPEC,4,0 (TAGIND NOT ZERO)	F2306870
	07250	0 50000 1 06377	699		CLA	DOTAGZ,1 SEARCH TABLE NAME	F2306880
	07251	−0 32000 0 06704	700		ANA	DECMSK GET RSYM1 DOTAG ALPHA IN DEC	F2306890
	07252	0 40000 0 06626	701		ADD	TAG AND FORTAG IN ADDRESS.	F2306900
	07253	−0 53400 1 06711	702	GETNAM	LXD	NAMAX,1 LOAD MAX NO NAME TABLE WORDS	F2306910
	07254	0 02000 0 07261	703		TRA	GETN20	F2306920
	07255	0 34000 1 00733	704	GETN05	CAS	NAMZ,1 DOES THE DOTAG ALPHA AND FORTAG INDEX OF THE	F2306930
	07256	0 02000 0 07260	705		TRA	GETN10 FIRST WORD OF NAME TABLE MATCH THOSE ABOVE.	F2306940
	07257	0 02000 0 07263	706		TRA	GETN30 YES.	F2306950
	07260	1 77775 1 07261	707	GETN10	TXI	GETN20,1,−3 NO, GET NEXT NAME TABLE.	F2306960
D	07261	3 00000 1 07255	708	GETN20	TXH	GETN05,1 IS NAME TABLE EXHAUSTED (DEC HAS NAME IX)	F2306970
D	07262	−3 00000 0 07266	709	DOX	TXL	PR25,0 YES, NOT NOT FOUND. ( DEC HAS IX MATCHING DOTAG	F2306980
	07263	0 50000 1 00734	710	GETN30	CLA	NAMZ+1,1 FOUND. OBTAIN NEW TAG NAME	F2306990
	07264	0 60100 0 06627	711		STO	TS AND SAVE IT.	F2307000
D	07265	−3 00000 0 07313	712	SYMLNK	TXL	PR80,0	F2307010
	07266	−0 53400 4 06656	713	PR25	LXD	SKIP,4 NOT FOUND IN NAME TABLE,	F2307020
	07267	−0 53400 1 07262	714		LXD	DOX,1 SEARCH FORTAG	F2307030
	07270	3 00000 4 07275	715		TXH	PR30,4,0 IN PROPER RANGE.	F2307040
	07271	−0 53400 2 06666	716		LXD	L(1),2 INDICATE TINFOR SEARCH REQUIRED	F2307050
	07272	0 07400 4 07401	717		TSX	SPC000,4	F2307060
	07273	0 02000 0 07277	718		TRA	PR40 NOT FOUND	F2307070
	07274	0 02000 0 07315	719		TRA	PR90 T FOUND	F2307080
	07275	0 07400 4 07564	720	PR30	TSX	TINFOR,4	F2307090
	07276	0 02000 0 07315	721		TRA	PR90 FOUND, GO TO EXIT.	F2307100
	07277	−0 53400 2 06665	722	PR40	LXD	L(0),2 T NOT FOUND, MAKE TYPE 6	F2307110
	07300	0 07400 4 07336	723		TSX	TRAENT,4 TRASTO ENTRY	F2307120
			724			MAKE ENTRY IN TABLE IRV	F2307130
	07301	−0 53400 1 06664	725	PR60	LXD	IRVXX,1 GET IX FOR ENTRY IN TABLE IRV.	F2307140
	07302	3 00000 1 07304	726		TXH	PR70,1,0	F2307150
	07303	0 07400 4 00004	727		TSX	DIAG,4 TABLE IRV FULL. ERROR. GO TO DIAGNOSTIC.	F2307165
	07304	0 50000 0 06626	728	PR70	CLA	TAG PLACE TAG IN	F2307170
	07305	0 76700 0 00022	729		ALS	18 DECREMENT AND	F2307180
	07306	0 40000 0 06626	730		ADD	TAG ADDRESS AND	F2307190
	07307	0 60100 1 06625	731		STO	IRVZ,1 STORE ENTRY IN TABLE IRV	F2307200
	07310	1 77777 1 07311	732		TXI	PR75,1,−1 BUMP IRV TABLE INDEX AND	F2307210
	07311	−0 63400 1 06664	733	PR75	SXD	IRVXX,1 SAVE IT FOR NEXT ENTRY.	F2307220
	07312	0 02000 0 07315	734		TRA	PR90	F2307230
	07313	−0 53400 2 06666	735	PR80	LXD	L(1),2 MAKE TYPE ONE TRASTO ENTRY	F2307240
	07314	0 07400 4 07336	736		TSX	TRAENT,4	F2307250
	07315	−0 53400 4 07265	737	PR90	LXD	SYMLNK,4 RESTORE INDEX REG	F2307260
	07316	0 02000 4 00001	738		TRA	1,4 AND RETURN T0 CALLER	F2307270
			739			ROUTINE PERSPEC IS FOR THE SPECIAL CASE OF A SINGLE SUBSCRIPT	F2307280
			740			RELCON WITH NO COEFFICIENT (TAGIND EQUALS ONE)	F2307290
	07317	0 50000 1 06407	741	PRSPEC	CLA	DOTAGZ+8,1 IF DOTAGS	F2307300
	07320	0 77100 0 00022	742		ARS	18 TEST NAME	F2307310
	07321	0 40200 0 06626	743		SUB	TAG IS SAME AS	F2307320
	07322	−0 10000 0 07331	744		TNZ	PR100 CURRENT FORTAG	F2307330
	07323	0 50000 0 06700	745		CLA	BIT18 AND IF	F2307340
	07324	−0 32000 1 06405	746		ANA	DOTAGZ+6,1 THERE IS A	F2307350
	07325	0 10000 0 07315	747		TZE	PR90	F2307360
	07326	−0 53400 2 06670	748		LXD	L(3),2 MAKE A TYPE 5 TRASTO ENTRY	F2307370
	07327	0 07400 4 07336	749		TSX	TRAENT,4	F2307380
	07330	0 02000 0 07315	750		TRA	PR90	F2307390
	07331	0 07400 4 07564	751	PR100	TSX	TINFOR,4 LOOK FOR ALREADY PROCESSED IDENT FORTAG.	F2307400
	07332	0 02000 0 07315	752		TRA	PR90 FOUND.	F2307410
	07333	−0 53400 2 06667	753		LXD	L(2),2 NOT FOUND, MAKE A TYPE 1 TRASTO	F2307420
	07334	0 07400 4 07336	754		TSX	TRAENT,4 ENTRY	F2307430
	07335	0 02000 0 07315	755		TRA	PR90	F2307440
			756			MAKE A TRASTO ENTRY. TRASTO TYPE ONE ENTRY IS MADE WHEN	F2307450
			757			B IS ONE OR TWO, TYPE FIVE ENTRY WHEN B IS THREE, AND TYPE	F2307460
			758			SIX TRASTO ENTRY WHEN B IS ZERO.	F2307470
	07336	−0 63400 4 07375	759	TRAENT	SXD	TE70,4	F2307480
	07337	−0 53400 1 07262	760		LXD	DOX,1	F2307490
	07340	0 50000 1 06377	761		CLA	DOTAGZ,1 GET DOTAGS ALPHA AND BETA	F2307300
	07341	−3 00002 2 07343	762		TXL	TE10,2,2 WHERE B IS 3 (TYPE5)	F2307510
	07342	−0 76000 0 00003	763		SSM	SET E1 NEG.	F2307520
	07343	0 60100 0 07656	764	TE10	STO	E1 AND STORE IN E1.	F2307530
	07344	0 50000 0 06645	765		CLA	TL2 GET LEVEL OF DOTAG	F2307540
	07345	0 77100 0 00022	766		ARS	18 INTO ADDRESS AND	F2307550
	07346	3 00000 2 07350	767		TXH	TE20,2,0 WHERE B ZERO (TYPE 6),	F2307560
	07347	−0 76000 0 00003	768		SSM	SET NEG AND	F2307570
	07350	0 60100 0 07657	769	TE20	STO	E2 PUT IT INTO E2.	F2307580
	07351	−3 00001 2 07361	770		TXL	TE40,2,1 WHERE B 2OR3 (TYPE 1 OR 5),	F2307590
	07352	0 50000 1 06407	771		CLA	DOTAGZ+8,1 PREPARE DOTAGS	F2307600
	07353	−0 32000 0 06704	772		ANA	DECMSK TEST NAME .	F2307610
	07354	3 00002 2 07357	773		TXH	TE30,2,2 IF B 2 (TYPE 1)	F2307620
	07355	−0 50100 0 06626	774		ORA	TAG PREPARE FORTAG INDEX AND	F2307630
	07356	0 02000 0 07367	775		TRA	TE60 GO TO STORE IN E3.	F2307640
	07357	−0 50100 1 06401	776	TE30	ORA	DOTAGZ+2,1 WHERE B IS 3, (TYPE 3) PREPARE DOTAGS	F2307650
	07360	0 02000 0 07366	777		TRA	TE50 PARAMETER N1.	F2307660
	07361	0 50000 0 06626	778	TE40	CLA	TAG WHERE B ZERO OR 1 (TYPE 1), GET FORTAG	F2307670
	07362	−3 00000 2 07366	779		TXL	TE50,2,0 AND WHEN ONE,	F2307680
	07363	0 76700 0 00022	780		ALS	18 PUT IN DEC WITH	F2307690
	07364	0 40000 0 06627	781		ADD	TS NEW TAG NAME IN ADDRESS.	F2307700
	07365	0 02000 0 07367	782		TRA	TE60	F2307710
	07366	−0 76000 0 00003	783	TE50	SSM	SET MINUS FOR B ZERO OR 3 (TYPE 6OR5)	F2307720
	07367	0 60100 0 07660	784	TE60	STO	E3 AND STORE IN E3, FINALLY.	F2307730
	07370	−0 50000 0 07663	785		CAL	TRASTO GET TRASTO KEY WORD.	F2307740
	07371	−0 53400 2 06667	786		LXD	L(2),2 INDICATE TINFOR SEARCH NOT REQUIRED	F2307750
	07372	−0 53400 4 06656	787		LXD	SKIP,4	F2307760
	07373	3 00000 4 07376	788		TXH	TE80,4,0 IF SKIP IS 1 (DELTA GREATER THEN B),	F2307770
	07374	0 07400 4 07401	789		TSX	SPC000,4 GO TO SPC.	F2307780
D	07375	−3 00000 0 07377	790	TE70	TXL	TE90,0 (DEC SAVES TSXLINK)	F2307790
	07376	0 07400 4 07620	791	TE80	TSX	LIST,4 GO TO LIST KF SKIP IS ZERO.	F2307800
	07377	−0 53400 4 07375	792	TE90	LXD	TE70,4 RETURN FROM LIST.	F2307810
	07400	0 02000 4 00001	793		TRA	1,4 RETURN TO CALLER.	F2307820
			794			SUBROUTINE SPC000	F2307830
	07401	−0 63400 1 07473	795	SPC000	SXD	SPC115,1 SAVE INDEX OF DO TO BE SEARCHED.	F2307840
	07402	−0 63400 2 07446	796		SXD	SPC060,2 SAVE TINFOR, LIST INDICATOR	F2307850
	07403	−0 63400 4 07463	797		SXD	SPC105,4 SAVE TSX INDEX.	F2307860
	07404	0 60100 0 07512	798		STO	SPCKEY SAVE LIST KEY WORD	F2307870
	07405	0 50000 1 06404	799		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2307880
	07406	0 62200 0 07423	800		STD	SPC050 INITIALIZE TEST INSTR.	F2307890
	07407	0 50000 1 06377	801		CLA	DOTAGZ,1 OBTAIN ALPHABETA WRD,	F2307900
	07410	0 73400 2 00000	802		PAX	0,2 SAVE BETA,	F2307910
	07411	−0 32000 0 06704	803		ANA	DECMSK OBTA1N ALPHA ALONE	F2307920
	07412	0 60100 0 06660	804		STO	NEXTA STO IN NEXTA	F2307930
	07413	0 60100 0 06662	805		STO	A AND STORE IN A.	F2307940
	07414	−0 75400 2 00000	806		PXD	0,2 PUT BETA IN LASTB AND	F2307950
	07415	0 60100 0 06661	807		STO	LASTB BEGIN SEARCH FOR R2	F2307960
	07416	−0 53400 1 07473	808	SPC010	LXD	SPC115,1 OBTAIN CURRENT INDEX AND	F2307970
	07417	1 77767 1 07420	809	SPC020	TXI	SPC040,1,−9 GO DOWN ONE DO, IF POSSIBLE, ELSE	F2307980
D	07420	−3 00000 1 07464	810	SPC040	TXL	SPC110,1 GO TO SET UP LAST INTERVAL. (DEC HAS DOTAG IX)	F2307990
	07421	0 50000 1 06404	811		CLA	DOTAGZ+5,1 TEST WHETHER OR NOT THIS DO	F2308000
	07422	−0 73400 2 00000	812		PDX	0,2 IS IN RANGE OF R1(DXL)	F2308010
D	07423	−3 00000 2 07464	813	SPC050	TXL	SPC110,2 IF NOT, EXIT FOR LAST INTRVL. (DEC LEV DO)	F2308020
	07424	0 50000 1 06400	814		CLA	DOTAGZ+1,1 IF IN R1, IS THIS DO T0 BE	F2308030
	07425	0 40200 0 06634	815		SUB	RSYM3 SKIPPED. IF NOT, GO BACK TO	F2308040
	07426	0 10000 0 07432	816		TZE	SPC053 GET NEXT DO.	F2308050
	07427	0 50000 1 06400	817		CLA	DOTAGZ+1,1	F2308060
	07430	0 40200 0 06633	818		SUB	RSYM2	F2308070
	07431	−0 10000 0 07417	819		TNZ	SPC020	F2308080
	07432	0 50000 1 06377	820	SPC053	CLA	DOTAGZ,1 R2 FOUND, ARRANGE T0 SKIP THIS	F2308090
	07433	0 73400 2 00000	821		PAX	0,2 INTERVAL. USE ALPHA OF R2	F2308100
	07434	−0 32000 0 06704	822		ANA	DECMSK AS B, PUT BETA OF R2 IN	F2308110
	07435	0 60100 0 06663	823		STO	B NEXTA.	F2308120
	07436	−0 75400 2 00000	824		PXD	0,2 DO FORMULAS WITHIN R2 ARE	F2308130
	07437	0 60100 0 06660	825		STO	NEXTA ACCOUNTED FOR AFTER SEARCH.	F2308140
	07440	−0 63400 1 07473	826		SXD	SPC115,1 SAVE INDEX OF R2.	F2308150
	07441	−0 53400 2 07446	827	SPC055	LXD	SPC060,2 PUT TINFOR, LIST IND. IN XRB	F2308160
	07442	0 50000 0 06662	828	SPC058	CLA	A FOR	F2308170
	07443	0 40200 0 06663	829		SUB	B NON EMPTY	F2308180
	07444	0 10000 0 07447	830		TZE	SPC065 INTERVALS,	F2308190
	07445	−3 00001 2 07500	831		TXL	SPCTIN,2,1 GO TO ARRANGE TINFOR SEARCH, OR	F2308200
D	07446	−3 00000 0 07503	832	SPC060	TXL	SPCST0,0 TRA TO USE LIST. (DEC HAS TINFOR SEARCH INDIC)	F2308210
	07447	−0 53400 2 07446	833	SPC065	LXD	SPC060,2 RETURN HERE, TEST TINFOR	F2308220
	07450	−3 00000 2 07474	834		TXL	SPC120,2,0 LIST IND. IF ZERO, EXIT.	F2308230
	07451	−0 53400 1 07473	835	SPC070	LXD	SPC115,1 TO SET UP NEXT INTERVAL,	F2308240
	07452	0 50000 1 06404	836		CLA	DOTAGZ+5,1 OBTAIN INDEX OF LAST R2 AND	F2308250
	07453	0 62200 0 07460	837		STD	SPC100 STEP DOWN IN DOTAG BY USUAL	F2308260
	07454	1 77767 1 07455	838	SPC080	TXI	SPC090,1,−9 PROCEDURE UNTIL SOME DO IS	F2308270
D	07455	−3 00000 1 07464	839	SPC090	TXL	SPC110,1 FOUND NOT IN R2, OR UNTIL (DEC HAS DOTAG TX)	F2308280
	07456	0 50000 1 06404	840		CLA	DOTAGZ+5,1 DOTAG EXHAUSTED. IF DO FOUND	F2308290
	07457	−0 73400 2 00000	841		PDX	0,2 NOT IN R2, SET A AND GO TO TEST	F2308300
D	07460	3 00000 2 07454	842	SPC100	TXH	SPC080,2 IF THIS DO IS IN R1. (DEC HAS LEV LAST R2 DO)	F2308310
	07461	0 50000 0 06660	843		CLA	NEXTA IF IT IS, NEWR2 WILL BE FOUND	F2308320
	07462	0 60100 0 06662	844		STO	A OR EXIT MADE TO SPC110.	F2308330
D	07463	−3 00000 0 07423	845	SPC105	TXL	SPC050,0	F2308340
	07464	0 50000 0 06660	846	SPC110	CLA	NEXTA THIS IS SETUP FOR LAST	F2308350
	07465	0 60100 0 06662	847		STO	A INTERVAL. FOR A, USE	F2308360
	07466	0 50000 0 06661	848		CLA	LASTB CONTENTS OF NEXTA. FOR B,	F2308370
	07467	0 60100 0 06663	849		STO	B USE BETA OF R1, FOUND IN	F2308380
	07470	−0 53400 2 07446	850		LXD	SPC060,2 LASTB. OBTAIN TINFOR, STOTAG	F2308390
	07471	0 50000 0 06665	851		CLA	L(0) IND, AND SET LOCATION OF	F2308400
	07472	0 62200 0 07446	852		STD	SPC060 INDICATOR T0 ZERO. GO TO	F2308410
D	07473	−3 00000 0 07442	853	SPC115	TXL	SPC058,0 TINFOR OR TRASTO. (DEC HAS DOTAG IX)	F2308420
	07474	−0 53400 4 07463	854	SPC120	LXD	SPC105,4 EXIT, ALL STORES DONE, OR,	F2308430
	07475	0 02000 4 00001	855		TRA	1,4 SEARCH MADE, T NOT FOUND.	F2308440
	07476	−0 53400 4 07463	856	SPC130	LXD	SPC105,4 EXIT,T FOUND	F2308450
	07477	0 02000 4 00002	857		TRA	2,4 IN SOME INTERVAL	F2308460
	07500	0 07400 4 07572	858	SPCTIN	TSX	TINFXX,4 GO TO SEARCH FORTAG	F2308470
	07501	0 02000 0 07476	859		TRA	SPC130 T FOUND	F2308480
	07502	0 02000 0 07447	860		TRA	SPC065 T NOT FOUND	F2308490
	07503	0 50000 0 06663	861	SPCST0	CLA	B FOR TRASTO, E2 AND E3 ARE	F2308500
	07504	0 77100 0 00022	862		ARS	18 ALREADY SET UP, COLLECT	F2308510
	07505	0 40000 0 06662	863		ADD	A A AND B INTO E1 WORD,	F2308520
	07506	0 60100 0 07656	864		STO	E1 PUT TRASTO INDICATOR IN	F2308530
	07507	0 50000 0 07512	865		CLA	SPCKEY ACC. AND	F2308540
	07510	0 07400 4 07620	866		TSX	LIST,4 TSX TO LISTING ROUTINE.	F2308550
	07511	0 02000 0 07447	867		TRA	SPC065 ON RETURN, GO TO TEST FINISH.	F2308560
A	07512	0 00000 0 00000	868	SPCKEY	HTR	STORAGE FOR TABLEKEY	F2308570
			869			SUBROUTINE TRAWRD	F2308580
	07513	−0 63400 4 07545	870	TRAWRD	SXD	TRAW65,4	F2308590
	07514	0 50000 0 06665	871		CLA	L(0)	F2308600
	07515	0 60100 0 06657	872		STO	TRABIT INITIALIZE.	F2308610
	07516	0 50000 1 06404	873		CLA	DOTAGZ+5,1 LEVEL OF DOTAG	F2308620
	07517	0 62200 0 07526	874		STD	TRAW30	F2308630
	07520	−0 50000 1 06406	875	TRAW10	CAL	DOTAGZ+7,1 OBTAIN T2 WORD.	F2308640
	07521	−0 60200 0 06657	876		ORS	TRABIT OR INTO TRABIT	F2308650
	07522	1 77767 1 07523	877		TXI	TRAW20,1,−9 TAKE NEXT DO	F2308660
D	07523	−3 00000 1 07546	878	TRAW20	TXL	TRAW70,1 IF NONE, EXIT (DEC HAS DOTAG IX)	F2308670
	07524	0 50000 1 06404	879		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2308680
	07525	−0 73400 4 00000	880		PDX	0,4 PUT L IN XRC.	F2308690
D	07526	−3 00000 4 07546	881	TRAW30	TXL	TRAW70,4 EXIT IF DO IS NOT INRANGE R1 (DEC HAS LEV DO)	F2308700
	07527	−3 00001 2 07520	882		TXL	TRAW10,2,1 IF COMPLETE TEST, GO BACK (NO TRAWORD SKIP)	F2308710
	07530	0 50000 1 06400	883	TRAW35	CLA	DOTAGZ+1,1 IF INCOMPLETE TEST, IS THIS A	F2308720
	07531	0 40200 0 06633	884		SUB	RSYM2 DO TO BE SKIPPED	F2308730
	07532	0 10000 0 07536	885		TZE	TRAW38 IF SO, GO TO TRAW38	F2308740
	07533	0 50000 1 06400	886		CLA	DOTAGZ+1,1 TEST RSYM3	F2308750
	07534	0 40200 0 06634	887		SUB	RSYM3 IF NO SKIP	F2308760
	07535	−0 10000 0 07520	888		TNZ	TRAW10 GO BACK.	F2308770
	07536	0 50000 1 06404	889	TRAW38	CLA	DOTAGZ+5,1 THIS DO IS TO BE SKIPPED.	F2308780
	07537	0 62200 0 07544	890		STD	TRAW60 PUT LEVEL OF THIS DO IN TEST INSTR,	F2308790
	07540	1 77767 1 07541	891	TRAW40	TXI	TRAW50,1,−9 TAKE NEXT DO IF ANY	F2308800
D	07541	−3 00000 1 07546	892	TRAW50	TXL	TRAW70,1 IF NOT, EXIT. OTHERWISE, (DEC HAS DO IX)	F2308810
	07542	0 50000 1 06404	893		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2308820
	07543	−0 73400 4 00000	894		PDX	0,4 PUT L IN XRC	F2308830
D	07544	3 00000 4 07540	895	TRAW60	TXH	TRAW40,4 IF DO IS IN RANGE OF R2, GO BACK.	F2308840
D	07545	−3 00000 0 07526	896	TRAW65	TXL	TRAW30,0 OTHERWISE, GO TO TRAW30	F2308850
	07546	−0 53400 4 07545	897	TRAW70	LXD	TRAW65,4	F2308860
	07547	0 50000 0 06672	898		CLA	L(36) OBTAIN 36 IN DECREMENT	F2308870
	07550	0 40200 0 06645	899		SUB	TL2 36-TL2 (LEVEL OF DOTAG)	F2308880
	07551	0 77100 0 00022	900		ARS	18 IN ADDRESS	F23A1190
	07552	0 62100 0 07561	901		STA	TRAW90 INITIALIZE SHIFT	F2308900
	07553	0 50000 0 06645	902		CLA	TL2 OBTAIN TL2	F2308910
	07554	0 77100 0 00022	903		ARS	18 IN ADDRESS	F2308920
	07555	0 62100 0 07560	904		STA	TRAW80 INITIALIZE SHIFT	F2308930
	07556	0 50000 0 06665	905		CLA	L(0) ACC CONTAINS ZERO	F2308940
	07557	0 56000 0 06702	906		LDQ	35ONES MQ CONTAINS ALL ONES	F2308950
A	07560	0 76300 0 00000	907	TRAW80	LLS	PUT TL2 ONES IN ACC (LEV. DOTAG)	F2308960
A	07561	0 76700 0 00000	908	TRAW90	ALS	POSITION ONES IN ACC	F2308970
	07562	−0 32000 0 06657	909		ANA	TRABIT AND IN TRANSFER BITS	F2308980
	07563	0 02000 4 00001	910		TRA	1,4 GO BACK TO CALLING INSTR PLUS ONE.	F2308990
			911			SUBROUTINES TINFOR AND TINFXX	F2309000
	07564	0 50000 1 06377	912	TINFOR	CLA	DOTAGZ,1 C(XRA)=INDEX OF DO TO BE	F2309010
	07565	0 73400 1 00000	913		PAX	0,1 SEARCHED. SEPARATE ALPHA	F2309020
	07566	−0 32000 0 06704	914		ANA	DECMSK AND BETA	F2309030
	07567	0 60100 0 06662	915		STO	A AND STORE IN A	F2309040
	07570	−0 75400 1 00000	916		PXD	0,1	F2309050
	07571	0 60100 0 06663	917		STO	B B	F2309060
	07572	−0 53400 1 06674	918	TINFXX	LXD	L(1500,1 PUT MAX FORTAG INDEX IN XRA	F2309070
	07573	0 50000 1 03670	919	TINF10	CLA	FORTZ,1 OBTAIN FORTAG ENTRY	F2309080
	07574	−0 32000 0 06704	920		ANA	DECMSK RETAIN FORMULA NUMBER 0NLY	F2309090
	07575	0 34000 0 06662	921		CAS	A COMPARE ALPHA AND FORMULA NR.	F2309100
	07576	0 02000 0 07603	922		TRA	TINF40 FOR, NR. GREATER THAN ALPHA. TRA.	F2309110
	07577	0 76100 0 00000	923		NOP	C(A) MAY BE SOME BETA FROM SPC, HENCE, NO HALT.	F2309120
	07600	1 77777 1 07601	924	TINF20	TXI	TINF30,1,−1 FOR. NR. LESS THAN ALPHA. GO	F2309130
			925			BACK FOR NEXT FORTAG ENTRY	F2309140
D	07601	3 00000 1 07573	926	TINF30	TXH	TINF10,1 IF POSSIBLE. OTHERWISE, (DEC HAS FORTAG IX)	F2309150
	07602	0 02000 4 00002	927		TRA	2,4 RETURN TO CALLING INSTR PLUS TWO.	F2309160
	07603	0 34000 0 06663	928	TINF40	CAS	B COMPARE FOR, NR. WITH BETA	F2309170
	07604	0 02000 4 00002	929		TRA	2,4 FOR. NR. GREATER THAN BETA, EXIT.	F2309180
	07605	0 76100 0 00000	930		NOP	FOR. NR. EQUAL TO OR	F2309190
	07606	0 50000 1 03670	931		CLA	FORTZ,1 LESS THAN BETA, OBTAIN FORTAG	F2309200
	07607	0 12000 0 07600	932		TPL	TINF20 TAG AND COMPARE WITH SEARCH TAG.	F2309210
	07610	−0 32000 0 06703	933		ANA	ADDMSK I.F. NOT EQUAL, GO BACK FOR NEXT TAG	F2309220
	07611	0 40200 0 06626	934		SUB	TAG	F2309230
	07612	−0 10000 0 07600	935		TNZ	TINF20 IF EQUAL, RETURN TO CALLING	F2309240
	07613	0 02000 4 00001	936		TRA	1,4 INSTR PLUS ONE. XRA CONTAINS IX IN FORTAG OF	F2309250
			937			FIRST TAG FOUND	F2309260
		06721	938		ORG	3537	F2309270
			939			MASTER RECORD CARD = FN043	F2309275
	06721	−0 53400 1 00733	940	BL3C	LXD	FORTAG−1,1 IF FORTAG IS EMPTY,	F2309280
	06722	3 02733 1 07164	941		TXH	WRTIRV,1,1499 GO TO WRITE IRV	F2309290
			942			READ IN TSXCOM	F2309300
	06723	−0 53400 4 06671	943	RDTSX	LXD	L(6),4 INITIALIZE ERROR COUNTER	F2309312
	06724	0 50000 0 07667	944	RTSX10	CLA	LADDS COMPUTE NUMBER	F2309320
	06725	0 40200 0 06716	945		SUB	TSXORG OF TSXCOM ENTRIES	F2309330
	06726	0 73400 1 00000	946		PAX	0,1 AND	F2309340
	06727	−0 63400 1 00030	947		SXD	TCOM−1,1 SAVE.	F2309350
	06730	0 10000 0 06763	948		TZE	RTSX60 IF EMPTY, GO TO EXIT.	F2309360
	06731	0 40000 0 06717	949		ADD	TCOMAD OTHERWISE, COMPUTE TERMINAL CORE ADDRESS	F2309370
	06732	0 62100 0 06735	950		STA	RTSX20 AND INITIALIZE CPY ADDRESS THEREWITH.	F2309380
	06733	0 76200 0 00303	951		RDS	195 DRUM 3	F2309390
	06734	0 46000 0 06716	952		LDA	TSXORG ORIG OF TSXCOM TABLES ON DRUM	F2309400
	06735	0 70000 1 00000	953	RTSX20	CPY	0,1 READ TSXCOM (ADD HAS TERM CORE ADD TSXCOMP	F2309410
	06736	2 00001 1 06735	954		TIX	RTSX20,1,1 TABLES .	F2309420
	06737	−0 53400 1 00030	955		LXD	TCOM−1,1 COMPUTE	F2309430
	06740	−0 75400 1 00000	956		PXD	0,1 NUMBER OF	F2309440
	06741	−0 76000 0 00003	957		SSM	UNFILLED TSXCOM TABLE	F2309450
	06742	0 40000 0 06720	958		ADD	TCOMAX SPACES,	F2309460
	06743	0 60100 0 00030	959		STO	TCOM−1 SAVE,	F2309470
	06744	0 62200 0 06756	960		STD	RTSX30 AND INITIALIZE.	F2309480
	06745	−0 53400 1 06720	961		LXD	TCOMAX,1 COMPUTE	F2309490
	06746	−0 50000 1 01407	962	RTSX25	CAL	TCOMZ,1 CHECK	F2309500
	06747	0 36100 1 01410	963		ACL	TCOMZ+1,1 SUM FOR EACH TABLE ENTRY	F2309510
	06750	0 60200 0 06760	964		SLW	RTSX40 AND COMPARE	F2309520
	06751	0 50000 0 06760	965		CLA	RTSX40 AGAINST	F2309530
	06752	0 40200 1 01411	966		SUB	TCOMZ+2,1 GIVEN SUM.	F2309540
	06753	0 76100 0 00000	967		NOP		F2309550
	06754	−0 10000 0 06761	968		TNZ	RTSX50 ERROR.	F2309560
	06755	1 77775 1 06756	969		TXI	RTSX30,1,−3	F2309570
D	06756	3 00000 1 06746	970	RTSX30	TXH	RTSX25,1 IF COMPLETE, (DEC HAS UNUSED TSXCOM BUFFER)	F2309580
	06757	0 02000 0 06766	971		TRA	SORT GO TO SORT.	F2309590
A	06760	0 00000 0 00000	972	RTSX40	HTR		F2309600
	06761	2 00001 4 06724	973	RTSX50	TIX	RTSX10,4,1 GO BACK TO REREAD	F2309610
	06762	0 07400 4 00004	974		TSX	DIAG,4 READING TSXCOM FROM DRUM3. ERROR. GO TO DIAGNOSTIC.	F2309625
	06763	0 50000 0 06720	975	RTSX60	CLA	TCOMAX IF TSXCOM EMPTY PUT MAX N0	F2309630
	06764	0 60100 0 00030	976		STO	TCOM−1 TSXCOM ENTRIES IN KEY WORD AND	F2309640
	06765	0 02000 0 07053	977		TRA	IRVSRT EXIT.	F2309650
			978			SORT TSXCOM	F2309660
	06766	−0 76000 0 00144	979	SORT	MSE	LIGHT TURN OFF LIGHT	F2309670
	06767	0 76100 0 00000	980		NOP		F2309680
	06770	−0 53400 1 00030	981		LXD	TCOM−1,1 INITIALIZE	F2309690
	06771	1 00003 1 06772	982		TXI	SORT10,1,3	F2309700
	06772	3 01353 1 07034	983	SORT10	TXH	MAKIRV,1,747 IS THERE ONLY ONE ENTRY IN TSXCOM.	F2309710
	06773	−0 63400 1 07025	984		SXD	SORT80,1 INITIALIZE	F2309720
	06774	−0 53400 1 06720	985	SORT20	LXD	TCOMAX,1	F2309730
	06775	0 50000 1 01407	986	SORT30	CLA	TCOMZ,1 OBTAIN FIRST WORD, FIRST ENTRY TSXCOM (ALPHA)	F2309740
	06776	0 34000 1 01412	987		CAS	TCOMZ+3,1 COMPARE IT AGAINST SECOND ENTRY	F2309750
	06777	0 02000 0 07007	988		TRA	SORT50 OUT OF ORDER , REARRANGE TOTAL TSXCOM ENTRY.	F2309760
	07000	0 02000 0 07002	989		TRA	SORT40 IN ORDER BY FIRST WORDS. GO CHECK 2ND WORDS.	F2309770
	07001	0 02000 0 07024	990		TRA	SORT70 ENTRIES IN ORDER, IGNORE.	F2309780
	07002	0 50000 1 01410	991	SORT40	CLA	TCOMZ+1,1 ALRIGHT- FIRST WORDS IN ORDER BUT	F2309790
	07003	0 34000 1 01413	992		CAS	TCOMZ+4,1 HOW DO THEIR 2ND WORDS COMPARE.	F2309800
	07004	0 02000 0 07013	993		TRA	SORT60 IF OUT OF ORDER, GO TO REARRANGE.	F2309810
	07005	0 02000 0 07024	994		TRA	SORT70 IF EQUAL OR	F2309820
	07006	0 02000 0 07024	995		TRA	SORT70 IF IN ORDER, IGNORE.	F2309830
	07007	0 50000 1 01407	996	SORT50	CLA	TCOMZ,1 FIRST ENTRY GREATER, OUT OF ORDER 1ST WORDS.	F2309840
	07010	0 56000 1 01412	997		LDQ	TCOMZ+3,1 INTERCHANGE THE FIRST WORDS	F2309850
	07011	0 60100 1 01412	998		STO	TCOMZ+3,1 OF THE	F2309860
	07012	−0 60000 1 01407	999		STQ	TCOMZ,1 TWO ENTRIES.	F2309870
	07013	0 50000 1 01410	1000	SORT60	CLA	TCOMZ+1,1 INTERCHANGE	F2309880
	07014	0 56000 1 01413	1001		LDQ	TCOMZ+4,1 THE	F2309890
	07015	0 60100 1 01413	1002		STO	TCOMZ+4,1 SECOND	F2309900
	07016	−0 60000 1 01410	1003		STQ	TCOMZ+1,1 AND	F2309910
	07017	0 50000 1 01411	1004		CLA	TCOMZ+2,1 THIRD	F2309920
	07020	0 56000 1 01414	1005		LDQ	TCOMZ+5,1 WORDS	F2309930
	07021	0 60100 1 01414	1006		STO	TCOMZ+5,1 OF THE	F2309940
	07022	−0 60000 1 01411	1007		STQ	TCOMZ+2,1 TWO ENTRIES.	F2309930
	07023	0 76000 0 00144	1008		PSE	LIGHT INDICATE OUT OF ORDER ENTRY HAS BEEN FOUND.	F2309960
	07024	1 77775 1 07025	1009	SORT70	TXI	SORT80,1,−3 BUMP FOR NEXT COMPAR1S0N.	F2309970
D	07025	3 00000 1 06775	1010	SORT80	TXH	SORT30,1 IS PASS COMPLETE. (DEC HAS UNUSED TSXCOM BUFF+3	F2309980
	07026	−0 76000 0 00144	1011		MSE	LIGHT YES. WAS OUT OF ORDER ENTRY APPREHENDED .	F2309990
	07027	0 02000 0 07034	1012		TRA	REMOVE NO. GO TO MAKIRV.	F2310000
	07030	−0 53400 1 07025	1013		LXD	SORT80,1 YES. NUMBER OF COMPARISONS	F2310010
	07031	1 00003 1 07032	1014		TXI	SORT90,1,3 MADE IS DECREASED BY ONE	F2310020
	07032	−0 63400 1 07025	1015	SORT90	SXD	SORT80,1 ON EACH PASS.	F2310030
	07033	0 02000 0 06774	1016		TRA	SORT20	F2310040
			1017			BUILD UP TABLE IRV FROM TSXCOM	F2310050
	07034	−0 53400 2 06664	1018	MAKIRV	LXD	IRVXX,2 (IX VALUE FOR NEXT IRV ENTRY)	F2310060
	07035	−0 53400 1 00030	1019		LXD	TCOM−1,1	F2310070
	07036	−0 63400 1 07051	1020		SXD	MAK50,1	F2310080
	07037	−0 53400 1 06720	1021		LXD	TCOMAX,1	F2310090
	07040	−0 50000 1 01410	1022	MAK10	CAL	TCOMZ+1,1 GET SECOND WORD OF TSXCOMP	F2310100
	07041	−0 32000 0 06705	1023		ANA	PREMSK PULL OUT PREFIX.	F2310110
	07042	−0 10000 0 07050	1024		TNZ	MAK40 IS ANYTHING THERE.	F2310120
	07043	0 50000 1 01410	1025		CLA	TCOMZ+1,1	F2310130
	07044	3 00000 2 07046	1026		TXH	MAK20,2,0	F2310140
	07045	0 07400 4 00004	1027		TSX	DIAG,4 TABLE IRV BUFFER FULL, ERROR. GO TO DIAGNOSTIC.	F2310155
	07046	0 60100 2 06625	1028	MAK20	STO	IRVZ,2 STORE IRV.	F2310160
	07047	1 77777 2 07050	1029		TXI	MAK40,2,−1	F2310170
	07050	1 77775 1 07051	1030	MAK40	TXI	MAK50,1,−3	F2310180
D	07051	3 00000 1 07040	1031	MAK50	TXH	MAK10,1 IS TSXCOM TABLE EXHAUST (DEC HAS UNUSED TSXCOM)	F2310190
	07052	−0 63400 2 06664	1032	MAK60	SXD	IRVXX,2 YES. SAVE INDICATION OF SIZE OF IRV.	F2310200
			1033			SORT TABLE IRV.	F2310210
	07053	−0 53400 1 06664	1034	IRVSRT	LXD	IRVXX,1	F2310220
	07054	1 00001 1 07055	1035		TXI	IRVS10,1,1	F2310230
	07055	3 00225 1 07120	1036	IRVS10	TXH	WRTTSX,1,149 IS THERE BUT ONE ENTRY IN IRV.	F2310240
	07056	−0 63400 1 07067	1037		SXD	IRVS50,1	F2310250
	07057	−0 76000 0 00144	1038		MSE	LIGHT TURN OFF LITE.	F2310260
	07060	0 76100 0 00000	1039		NOP		F2310270
	07061	−0 53400 1 06714	1040	IRVS20	LXD	IRVMAX,1 INITIALIZE	F2310280
	07062	0 50000 1 06625	1041	IRVS30	CLA	IRVZ,1 GET FIRST IRV ENTRY AND	F2310290
	07063	0 34000 1 06626	1042		CAS	IRVZ+1,1 COMPARE AGAINST ITS NEIGHBOR.	F2310300
	07064	0 02000 0 07073	1043		TRA	IRVS60 OUT OF ORDER. GO TO REARRANGE.	F2310310
	07065	0 76100 0 00000	1044		NOP		F2310320
	07066	1 77777 1 07067	1045	IRVS40	TXI	IRVS50,1,−1 BUMP FOR NEXT COMPARIS0N	F2310330
D	07067	3 00000 1 07062	1046	IRVS50	TXH	IRVS30,1 IS PASS COMPLETE (DEC HAS IRV INDEX)	F2310340
	07070	−0 76000 0 00144	1047		MSE	LIGHT YES . WAS OUT OF ORDER NABBED.	F2310350
	07071	0 02000 0 07100	1048		TRA	DELETE NO. SORT COMPLETE.	F2310360
	07072	0 02000 0 07061	1049		TRA	IRVS20 YES. MAKE ANOTHER PASS.	F2310370
	07073	0 56000 1 06626	1050	IRVS60	LDQ	IRVZ+1,1 REARRANGE	F2310380
	07074	0 60100 1 06626	1051		STO	IRVZ+1,1 THE OUT OF ORDER	F2310390
	07075	−0 60000 1 06625	1052		STQ	IRVZ,1 IRV ENTRIES AND	F2310400
	07076	0 76000 0 00144	1053		PSE	LIGHT INDICATE SAME.	F2310410
	07077	0 02000 0 07066	1054		TRA	IRVS40	F2310420
			1055			DELETE DUPE ENTRIES FROM TABLE IRV	F2310430
	07100	−0 53400 1 06664	1056	DELETE	LXD	IRVXX,1	F2310440
	07101	−0 63400 1 07112	1057		SXD	DEL30,1 INITIALIZE	F2310450
	07102	−0 53400 3 06714	1058		LXD	IRVMAX,3 INITIALIZE CANDIDATE IR AND STANDARD IR	F2310460
	07103	2 00001 2 07104	1059		TIX	DEL10,2,1 BUMP CANDIDATE IR.	F2310470
	07104	0 50000 2 06625	1060	DEL10	CLA	IRVZ,2 GET CANDIDATE.	F2310480
	07105	0 34000 1 06625	1061		CAS	IRVZ,1 COMPARE AGAINST STANDARD.	F2310490
	07106	0 02000 0 07116	1062		TRA	DEL40 CANDIDATE DOES NOT MATCH STANDARD.	F2310500
	07107	0 02000 0 07111	1063		TRA	DEL20 CAND MATCHES STAND. IGNORE ITS REINSTATEMENT.	F2310510
	07110	0 07400 4 00004	1064		TSX	DIAG,4 IRV UNORDERED DESPITE SORT. ERROR. GO TO DIAGNOSTIC.	F2310523
	07111	1 77777 2 07112	1065	DEL20	TXI	DEL30,2,−1 BUMP FOR NEXT CANDIDATE.	F2310530
D	07112	3 00000 2 07104	1066	DEL30	TXH	DEL10,2 IS IT END OF PASS. (DEC HAS IRV INDEX)	F2310540
	07113	1 77777 1 07114	1067		TXI	DEL35,1,−1 YES. BUMP STANDARD IR.	F2310550
	07114	−0 63400 1 06664	1068	DEL35	SXD	IRVXX,1 SAVE NEW EDITED-IRV TABLE-SIZE INDICATION.	F2310560
	07115	0 02000 0 07120	1069		TRA	WRTTSX	F2310570
	07116	0 60100 1 06626	1070	DEL40	STO	IRVZ+1,1 NOT DUPE, PUT CANDIDATE BACK.	F2310580
	07117	1 77777 1 07111	1071		TXI	DEL20,1,−1 AND INSTALL IT AS STANDARD.	F2310590
			1072			WRITE EDITED TSXCOM TABLE ON DRUM	F2310600
	07120	0 76600 0 00303	1073	WRTTSX	WRS	ADRUM	F2310610
	07121	−0 53400 1 00030	1074		LXD	TCOM−1,1 INITIALIZE	F2310620
	07122	−0 63400 1 07133	1075		SXD	WTSX30,1	F2310630
	07123	−0 53400 1 06720	1076		LXD	TCOMAX,1	F2310640
	07124	−0 75400 0 00000	1077		PXD	0,0	F2310650
	07125	−0 53400 2 06665	1078		LXD	L(0),2	F2310660
	07126	0 02000 0 07133	1079		TRA	WTSX30	F2310670
	07127	0 36100 1 01407	1080	WTSX10	ACL	TCOMZ,1 COMPUTE	F2310680
	07130	0 36100 1 01410	1081		ACL	TCOMZ+1,1 CHECK SUM OF ALL ENTRIES	F2310690
	07131	1 77775 1 07132	1082		TXI	WTSX20,1,−3	F2310700
	07132	1 00002 2 07133	1083	WTSX20	TXI	WTSX30,2,2	F2310710
D	07133	3 00000 1 07127	1084	WTSX30	TXH	WTSX10,1 IS THAT ALL OF TSXCOM. (DEC HAS TSXCOM LIMIT)	F2310720
	07134	0 60200 0 07163	1085		SLW	WTSX60 STORE CHECK SUM.	F2310730
	07135	−0 53400 1 00030	1086		LXD	TCOM−1,1 COMPUTE	F2310740
	07136	−0 75400 1 00000	1087		PXD	0,1 NUM8ER	F2310750
	07137	−0 76000 0 00003	1088		SSM	OF	F2310760
	07140	0 40000 0 06720	1089		ADD	TCOMAX TSXCOM	F2310770
	07141	−0 73400 1 00000	1090		PDX	0,1 ENTRIES.	F2310780
	07142	0 77100 0 00022	1091		ARS	18 COMPUTE CORE	F2310790
	07143	0 40000 0 06717	1092		ADD	TCOMAD TERMINUS	F2310800
	07144	0 62100 0 07155	1093		STA	WTSX40 AND INITIALIZE CPY ADDRESS FOR FIRST WORD,	F2310810
	07145	0 40000 0 06675	1094		ADD	L(1)A FOR SECOND	F2310820
	07146	0 62100 0 07156	1095		STA	WTSX50 WORD.	F2310830
	07147	−0 75400 2 00000	1096		PXD	0,2	F2310840
	07150	0 60100 0 00030	1097		STO	TCOM−1 NOW CONTAINS NO OF TSXCOM ENTRIES MINUS C.S.	F2310850
	07151	0 46000 0 06715	1098		LDA	TCOMOR	F2310860
	07152	0 70000 0 00030	1099		CPY	TCOM−1 CPY WORD COUNT	F2310870
	07153	0 70000 0 00030	1100		CPY	TCOM−1 ONTO DRUM	F2310880
	07154	−3 00000 2 07164	1101		TXL	WRTIRV,2,0 IF EMPTY, EXIT.	F2310890
	07155	0 70000 1 00000	1102	WTSX40	CPY	0,1 WRITE TSXCOM ENTRIES	F2310900
	07156	0 70000 1 00000	1103	WTSX50	CPY	0,1 ONTO DRUM	F2310910
	07157	2 00003 1 07155	1104		TIX	WTSX40,1,3	F2310920
	07160	0 70000 0 07163	1105		CPY	WTSX60 CHECKSUM	F2310930
	07161	0 70000 0 07163	1106		CPY	WTSX60	F2310940
	07162	0 02000 0 07164	1107		TRA	WRTIRV	F2310950
A	07163	0 00000 0 00000	1108	WTSX60	HTR	C.S. STORAGE	F2310960
			1109			WRITE EDITED TABLE IRV ON DRUM	F2310970
	07164	0 76600 0 00303	1110	WRTIRV	WRS	ADRUM	F2310980
	07165	−0 53400 1 06664	1111		LXD	IRVXX,1	F2310990
	07166	−0 63400 1 07173	1112		SXD	WIRV20,1 INITIALIZE TEST INSTR.	F2311000
	07167	−0 75400 0 00000	1113		PXD	0,0	F2311010
	07170	−0 53400 1 06714	1114		LXD	IRVMAX,1	F2311020
	07171	0 36100 1 06625	1115	WIRV10	ACL	IRVZ,1 COMPUTE CHECK SUM.	F2311030
	07172	1 77777 1 07173	1116		TXI	WIRV20,1,−1	F2311040
D	07173	3 00000 1 07171	1117	WIRV20	TXH	WIRV10,1 IS IRV DONE FOR. (DEC HAS IRV IX)	F2311050
	07174	0 60200 0 07217	1118		SLW	WIRV40 YES. SAVE C.S.	F2311060
	07175	−0 53400 1 06664	1119		LXD	IRVXX,1 COMPUTE	F2311070
	07176	−0 75400 1 00000	1120		PXD	0,1 NUMBER	F2311080
	07177	−0 76000 0 00003	1121		SSM	OF	F2311090
	07200	0 40000 0 06714	1122		ADD	IRVMAX IRV ENTRIES	F2311100
	07201	0 60100 0 06664	1123		STO	IRVXX AND SAVE.	F2311110
	07202	−0 73400 1 00000	1124		PDX	0,1 COMPUTE	F2311120
	07203	0 77100 0 00022	1125		ARS	18 CORE TERMINUS	F2311130
	07204	0 40000 0 06713	1126		ADD	IRVAD OF IRV.	F2311140
	07205	0 62100 0 07212	1127		STA	WIRV30 INITIALIZE CPY.	F2311150
	07206	0 46000 0 06712	1128		LDA	IRVORG	F2311160
	07207	0 70000 0 06664	1129		CPY	IRVXX WRITE WORD	F2311170
	07210	0 70000 0 06664	1130		CPY	IRVXX COUNT.	F2311180
	07211	−3 00000 1 07220	1131		TXL	END,1,0 EXIT IF IRV EMPTY.	F2311190
	07212	0 70000 1 00000	1132	WIRV30	CPY	0,1 WRITE IRV.	F2311200
	07213	2 00001 1 07212	1133		TIX	WIRV30,1,1	F2311210
	07214	0 70000 0 07217	1134		CPY	WIRV40 WRITE	F2311220
	07215	0 70000 0 07217	1135		CPY	WIRV40 CHECK SUM.	F2311230
	07216	0 02000 0 07220	1136		TRA	END	F2311240
A	07217	0 00000 0 00000	1137	WIRV40	HTR	C.S. STORAGE	F2311250
	07220	0 76600 0 00303	1138	END	WRS	195 WRITE NR OF WDS IN TRASTO ON DRUM.	F2311260
	07221	0 50000 0 07670	1139		CLA	LADDS+1 ORIGIN PLUS NR OF WDS IN TRASTO	F2311270
	07222	0 40200 0 07232	1140		SUB	L(304A LESS ORIGIN OF TRASTO	F2311280
	07223	0 60100 0 07230	1141		STO	ENDES	F2311290
	07224	0 46000 0 07231	1142		LDA	L(302A	F2311300
	07225	0 70000 0 07230	1143		CPY	ENDES	F2311310
	07226	0 70000 0 07230	1144		CPY	ENDES	F2311320
	07227	0 02000 0 07616	1145		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2311335
A	07230	0 00000 0 00000	1146	ENDES	HTR		F2311340
	07231	0 00000 0 00456	1147	L(302A	HTR	302	F2311350
	07232	0 00000 0 00460	1148	L(304A	HTR	304	F2311360
		77777	1149	T0P	EQU	32767	F2311365
		00304	1150	TAUDRM	EQU	196	F2311370
		00303	1151	ADRUM	EQU	195	F2311380
		00302	1152	BDRUM	EQU	194	F2311390
		00222	1153	TAPE2	EQU	146	F2311400
		00223	1154	TAPE3	EQU	147	F2311410
		00144	1155	LIGHT	EQU	100 IF FORVAL EMPTY, LIGHT ON.	F2311420
		07034	1156	REMOVE	SYN	MAKIRV	F2311430
		06377	1157	IRV	SYN	DOTAGZ	F2311440
		00004	1158	ONETCS	EQU	4	F2311445
		00004	1159	DIAG	EQU	4	F2311446