Symbols

␣␣␣␣␣A = 2018

Definition
03742 64 A BSS 1 F2200600

References (14)

05311	0 60100 0 03742	818		STO	A AND STORE IN A.	F2208250
05340	0 50000 0 03742	841	SPC058	CLA	A FOR	F2208480
05360	0 60100 0 03742	857		STO	A OR EXIT MADE T0 SPC110.	F2208640
05363	0 60100 0 03742	860		STO	A INTERVAL. FOR A,USE	F2208670
05403	0 40000 0 03742	876		ADD	A A AND B INTO E1 WORD,	F2208830
05414	0 60100 0 03742	886		STO	A AND STORE IN A	F2208930
05422	0 34000 0 03742	892		CAS	A COMPARE ALPHA AND FORMULA NR.	F2208990
06134	0 60100 0 03742	1816		STO	A FOR DRUM SEARCH.	F2218180
06152	0 50000 0 03742	1830		CLA	A RANGES FOR SEARCHING,	F2218320
06160	0 60100 0 03742	1836		STO	A TO BE DONE.	F2218380
06164	0 50000 0 03742	1840		CLA	A	F2218420
06175	0 60100 0 03742	1849		STO	A SPECIAL RANGE.	F2218510
06200	0 40200 0 03742	1852		SUB	A	F2218540
06216	0 50000 0 03742	1866		CLA	A IN FORVAL,PUT A IN ACC.	F2218680

␣␣␣␣␣B = 2019

Definition
03743 65 B BSS 1 F2200610

References (12)

05333	0 60100 0 03743	836		STO	B NEXTA.	F2208430
05341	0 40200 0 03743	842		SUB	B NON EMPTY	F2208490
05365	0 60100 0 03743	862		STO	B USE BETA OF R1,FOUND IN	F2208690
05401	0 50000 0 03743	874	SPCSTO	CLA	B FOR TRASTO,E2 AND E3 ARE	F2208810
05416	0 60100 0 03743	888		STO	B B	F2208950
05430	0 34000 0 03743	899	TINF40	CAS	B COMPARE FOR. NR. WITH BETA	F2209060
06137	0 60100 0 03743	1819		STO	B	F2218210
06150	0 50000 0 03743	1828		CLA	B THE FOLLOWING INSTR,	F2218300
06153	0 60100 0 03743	1831		STO	B THOSE FORMULAS OUTSIDE	F2218330
06166	0 40200 0 03743	1842		SUB	B	F2218440
06177	0 60100 0 03743	1851		STO	B	F2218530
06222	0 50000 0 03743	1870		CLA	B ENTRY,PUT B IN ACC,	F2218720

␣␣␣␣C1 = 1988

Definition
03704 32 C1 BSS 1 COEFF 1ST SYMB (HERE T0 D2 BELOW, INIT 0,SUBCOM F2200300

References (15)

04333	0 60100 0 03704	314		STO	C1	F2203140
04525	0 60100 4 03714	439	SUB020	STO	C1+8,4 SPACE	F2204460
04545	0 70000 0 03704	455		CPY	C1 TAU ONE, TWO, THREE	F2204620
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
04572	0 50000 4 03713	476	SUB080	CLA	C1+7,4 TO COMPLY WITH CORE	F2204830
04575	0 60100 4 03713	479		STO	C1+7,4	F2204860
04635	0 34000 1 03711	512		CAS	C1+5,1 GENERATES THE THREE BIT	F2205190
04775	0 20000 2 03710	608		MPY	C1+4,2 COMPUTE FOR RIGHT	F2206150
05003	0 20000 2 03712	614		MPY	C1+6,2 ARE UNEQUAL,	F2206210
06110	−0 53400 4 03704	1211		LXD	C1,4 IF C1 IS NOT ONE,	F2212170
06414	0 40000 0 03704	1412	RES30	ADD	C1	F2214180
06416	0 50000 0 03704	1414	RES40	CLA	C1	F2214200
06425	0 40000 0 03704	1421		ADD	C1	F2214270
06553	0 50000 4 03711	1507	RES120	CLA	C1+5,4 ARE GREATER THAN	F2215130

␣␣␣␣C2 = 1990

Definition
03706 34 C2 BSS 1 COEFF 2ND SYMB F2200320

References (3)

04600	0 60100 0 03706	482		STO	C2	F2204890
06412	0 40000 0 03706	1410	RES20	ADD	C2	F2214160
06422	0 50000 0 03706	1418	RES50	CLA	C2	F2214240

␣␣␣␣C3 = 1992

Definition
03710 36 C3 BSS 1 COEFF 3RD F2200340

References (2)

	04547	0 70000 0 03710	457		CPY	C3 TAU 3	F2204640
	06375	0 50000 0 03710	1397		CLA	C3 OBTAIN C3 IN	F2214030

␣␣␣␣D1 = 1994

Definition
03712 38 D1 BSS 1 DIMENSION 1ST F2200360

References (4)

04555	0 70000 0 03712	463	SUB050	CPY	D1 TAU 2,3	F2204700
04777	0 56000 0 03712	610		LDQ	D1 CN3D(L) (O0EF.TIMES	F2206170
06410	0 40000 0 03712	1408		ADD	D1 CHARACTERISTIC WORDS OF THE	F2214140
06427	0 50000 0 03712	1423		CLA	D1	F2214290

␣␣␣␣D2 = 1995

Definition
03713 39 D2 BSS 1 DIM 2ND F2200370

References (3)

04602	0 60100 0 03713	484	SUB090	STO	D2	F2204910
05001	0 56000 0 03713	612		LDQ	D2 LEFT SUBSCR1PT.	F2206190
06406	0 50000 0 03713	1406		CLA	D2 THESE INSTRUCTIONS, THROUGH	F2214120

␣␣␣␣E1 = 2611

Definition
662 F0UR WORD ENTRY BLOCK F2206690

A 05063 0 00000 0 00000 663 E1 HTR F2206700

References (18)

04166	0 60100 2 05067	212	NEST80	STO	E1+4,2 FOUR WORDS OF 35 ONES.	F2202100
04202	0 60100 0 05063	225		STO	E1	F2202220
04223	0 60100 0 05063	242		STO	E1	F2202390
04226	0 62200 0 05063	245		STD	E1	F2202420
04355	0 60100 0 05063	332		STO	E1	F2203340
04663	0 60100 0 05063	534		STO	E1	F2205410
05061	0 00000 0 05063	660	LIST50	HTR	E1 L(E1)	F2206670
05151	0 60100 0 05063	720		STO	E1 DECREASED BY N1, WHICH	F2207270
05177	0 60100 0 05063	742		STO	E1	F2207490
05404	0 60100 0 05063	877		STO	E1 PUT TRASTO INDICATOR IN	F2208840
05514	0 50000 2 05067	955	TE20	CLA	E1+4,2	F2209620
06045	0 60100 0 05063	1175		STO	E1 FOR CHATAG	F2211810
06132	0 60100 0 05063	1229		STO	E1 TO STORE COUNTER	F2212350
06527	0 60100 0 05063	1487	RES98	STO	E1	F2214930
06533	−0 60200 0 05063	1491		ORS	E1	F2214970
06575	0 60100 0 05063	1525		STO	E1 TRASTO	F2215310
06316	0 60100 0 05063	1930		STO	E1 E1,SAVE ACC,XR8,XRC,	F2219320
06461	0 60100 0 05063	2036		STO	E1	F2220380

␣␣␣␣E2 = 2612

Definition
A 05064 0 00000 0 00000 664 E2 HTR F2206710

References (19)

04204	0 60100 0 05064	227		STO	E2	F2202240
04221	0 60100 0 05064	240		STO	E2 ENTRIES	F2202380
04351	0 60100 0 05064	328		STO	E2	F2203290
04657	0 60100 0 05064	530		STO	E2	F2205370
05155	0 60100 0 05064	724		STO	E2	F2207310
05175	0 60100 0 05064	740		STO	E2	F2207470
06051	0 60100 0 05064	1179		STO	E2	F2211850
06134	0 60100 0 05064	1231		STO	E2	F2212370
06405	0 60100 0 05064	1405	RES10	STO	E2 C(XRB)=001	F2214110
06417	0 60100 0 05064	1415		STO	E2	F2214210
06426	0 60100 0 05064	1422	RES55	STO	E2	F2214280
06455	0 40200 0 05064	1445		SUB	E2 C HARACTERISTIC WORDS.	F2214510
06477	0 50000 0 05064	1463		CLA	E2	F2214690
06522	0 60100 0 05064	1482	RES96	STO	E2	F2214880
06601	0 60100 0 05064	1529		STO	E2	F2215350
06620	0 50000 0 05064	1544	RES400	CLA	E2 TEST FOR COEFFICIENT	F2215500
06130	0 60100 0 05064	1812		STO	E2	F2218140
06435	0 60100 0 05064	2012		STO	E2 DRUM TABLE. IF SPC000	F2220140
06453	0 60100 0 05064	2026		STO	E2 C(XRB)=1	F2220280

␣␣␣␣E3 = 2613

Definition
A 05065 0 00000 0 00000 665 E3 HTR F2206720

References (12)

04347	0 60100 0 05065	326		STO	E3	F2203270
04653	0 60100 0 05065	526		STO	E3	F2205330
05161	0 60100 0 05065	728		STO	E3	F2207350
05171	0 60100 0 05065	736		STO	E3 TO BE RESET	F2207430
06137	0 60100 0 05065	1234		STO	E3	F2212400
06430	0 60100 0 05065	1424	RES60	STO	E3	F2214300
06460	0 40200 0 05065	1448		SUB	E3	F2214540
06501	0 50000 0 05065	1465		CLA	E3	F2214710
06535	0 60100 0 05065	1493		STO	E3 E3 WORD	F2214990
06606	0 60100 0 05065	1534		STO	E3	F2215400
06443	0 60100 0 05065	2018		STO	E3 THROUGH STORES WITH C(XRB)	F2220200
06457	0 60100 0 05065	2030		STO	E3 LIST ROUTINE IS.USED IN	F2220320

␣␣␣␣E4 = 2614

Definition
A 05066 0 00000 0 00000 666 E4 HTR F2206730

References (6)

04345	0 60200 0 05066	324	SLW	E4	F2203240
04647	0 60100 0 05066	522	STO	E4 CONSTRUCT THE TAGTAG	F2205290
06537	0 60100 0 05066	1495	STO	E4 E4	F2215010
06542	−0 60200 0 05066	1498	ORS	E4	F2215040
06547	−0 60200 0 05066	1503	ORS	E4	F2215090
06566	−0 60200 0 05066	1518	ORS	E4	F2215240

␣␣␣␣L1 = 1997

Definition
03715 41 L1 BSS 1 LEV DO MATCHING 1ST SYMB BELOW, INIT 0,IDENT F2200390

References (9)

05637	0 60100 4 03722	1041		STO	L1+5,4 LEVEL FOR THIS SUBSCRIPT.	F2210470
05705	0 50000 4 03722	1079	ID200	CLA	L1+5,4 THERE ARE NOT MORE	F2210850
05743	0 50000 4 03722	1109	ID350	CLA	L1+5,4 WITH EACH SUBSCRIPT	F2211150
05761	0 60100 4 03722	1123		STO	L1+5,4 SINCE THEY ARE NO L0NGER DOSUBS.	F2211290
06152	0 50000 0 03715	1247		CLA	L1 FOR THE SL.	F2212530
06200	0 50000 0 03715	1269		CLA	L1 PREPARES A TRAWRD CALLING	F2212750
06254	0 34000 0 03715	1316	3GRP10	CAS	L1 L3 LESS THAN L2,COMPARE L3,L1	F2213220
06261	0 40200 0 03715	1321		SUB	L1 SUBTRACT L1	F2213270
06266	0 50000 0 03715	1326		CLA	L1 OBTAIN L1	F2213320

␣␣␣␣L2 = 1999

Definition
03717 43 L2 BSS 1 LEV DO MATCHING 2ND F2200410

References (8)

06154	0 50000 0 03717	1249		CLA	L2	F2212550
06156	0 40200 0 03717	1251		SUB	L2	F2212570
06202	0 50000 0 03717	1271		CLA	L2 WHETHER OR NOT RESETTING	F2212770
06204	0 56000 0 03717	1273		LDQ	L2	F2212790
06251	0 34000 0 03717	1313		CAS	L2 COMPARE WITH L2	F2213190
06260	0 50000 0 03717	1320	3GRP20	CLA	L2 OBTAIN L2	F2213260
06270	0 40200 0 03717	1328		SUB	L2 L1 LESS 1 LESS L2	F2213340
06274	0 50000 0 03717	1332	3GRP40	CLA	L2 RE-ENTRY,OBTAIN L2	F2213380

␣␣␣␣L3 = 2001

Definition
03721 45 L3 BSS 1 LEV DO MATCHING 3RD F2200430

References (4)

06160	0 40200 0 03721	1253	2NS30	SUB	L3	F2212590
06206	0 56000 0 03721	1275	2NS84	LDQ	L3	F2212810
06250	0 50000 0 03721	1312		CLA	L3 OBTAIN L3	F2213180
06276	0 40200 0 03721	1334		SUB	L3 L2 LESS 1 LESS L3	F2213400

␣␣␣␣LC = 1981

Definition
03675 25 LC BSS 1 LEV CURRENT DO F2200230

References (9)

04375	0 60100 0 03675	348	STO	LC	F2203500
05610	−0 53400 2 03675	1018	LXD	LC,2 IN THE SUB. COMB. WITH	F2210240
06135	0 50000 0 03675	1232	CLA	LC	F2212380
05577	0 50000 0 03675	1593	CLA	LC INITIALIZE END OF	F2215950
05642	0 40200 0 03675	1628	SUB	LC TRAWRD RESULTS.	F2216300
06014	0 50000 0 03675	1734	CLA	LC	F2217360
06041	0 50000 0 03675	1756	CLA	LC TO TEST FOR TRANSFERS	F2217580
06345	0 50000 0 03675	1953	CLA	LC	F2219550
06434	0 40000 0 03675	2011	ADD	LC THE ENTRY ON THE PROPER	F2220130

␣␣␣␣LL = 2003

Definition
03723 47 LL BSS 1 LEV LOWEST LEVEL DOSUB F2200450

References (9)

04766	0 34000 0 03723	601		CAS	LL AND LOW LEVEL.	F2206080
05575	0 60100 0 03723	1007		STO	LL LOW LEVEL	F2210130
05764	0 34000 0 03723	1126	ID370	CAS	LL FOR TRUE DO SUBS.	F2211320
05767	0 60100 0 03723	1129		STO	LL LEVEL WORD WAS	F2211350
06337	0 50000 0 03723	1367		CLA	LL OBTAIN LOWER LEVEL IN	F2213720
05625	0 50000 0 03723	1615		CLA	LL INITIALIZE TRAWRD TL1	F2216170
05771	0 50000 0 03723	1715		CLA	LL PUT LEVEL OF DL	F2217170
06015	0 60100 0 03723	1735		STO	LL	F2217370
06346	0 60100 0 03723	1954		STO	LL	F2219560

␣␣␣␣S1 = 1989

Definition
03705 33 S1 BSS 1 SUBSCR 1ST SYMB F2200310

References (7)

04550	0 70000 0 03705	458	SUB040	CPY	S1 TAU 1,2,3	F2204650
05600	0 50000 4 03712	1010	ID020	CLA	S1+5,4 STORE COUNT IN	F2210160
05614	0 34000 4 03712	1022	ID060	CAS	S1+5,4 FOUND, GO TO ID120.	F2210280
05663	0 50000 1 03710	1061	ID160	CLA	S1+3,1 WHICH CAN BE ASSIGNED	F2210670
05665	0 40200 2 03712	1063		SUB	S1+5,2 THIS	F2210690
05707	0 50000 4 03712	1081		CLA	S1+5,4 PUT THEIR SYMBOLS	F2210870
05715	0 50000 4 03712	1087		CLA	S1+5,4	F2210930

␣␣␣␣S2 = 1991

Definition
03707 35 S2 BSS 1 SUBSC 2ND F2200330
Reference
04552 0 70000 0 03707 460 CPY S2 TAU 2,3 F2204670

␣␣␣␣S3 = 1993

Definition
03711 37 S3 BSS 1 SUBSC 3RD F2200350
Reference
04554 0 70000 0 03711 462 CPY S3 TAU 3 F2204690

␣␣␣␣TL = 97

Definition
00141 2093 TL EQU 97 F2220890

References (3)

05611	0 76000 0 00141	1019		PSE	TL THE SYMBOL OF EACH	F2210250
05620	−0 76000 0 00141	1026		MSE	TL	F2210320
05632	−0 76000 0 00141	1036	ID120	MSE	TL TURN OFF TEST LIGHT	F2210420

␣␣␣␣TS = 1985

Definition
03701 29 TS BSS 1 TAG, EITHER FORTAG OR NEW TAG NAME OF CURRENT F2200270

References (17)

04336	0 60100 0 03701	317		STO	TS FOR THIS	F2203170
04346	0 50000 0 03701	325		CLA	TS	F2203250
04652	0 40000 0 03701	525		ADD	TS	F2205320
04723	−0 50100 0 03701	566		ORA	TS	F2205730
05167	−0 50100 0 03701	734		ORA	TS CONSIDERATION	F2207410
05217	0 60100 0 03701	758		STO	TS AND TS	F2207650
05225	0 60100 0 03701	764		STO	TS SAVE NAME IN TS.	F2207710
06032	0 60100 0 03701	1164	PAT05	STO	TS P463	F2211700
06040	0 60100 0 03701	1170		STO	TS NEW	F2211760
06050	0 40000 0 03701	1178		ADD	TS	F2211840
06067	0 50000 0 03701	1193		CLA	TS NAME	F2211990
06114	0 50000 0 03701	1215		CLA	TS DOTAGZ+8.	F2212210
06136	−0 50100 0 03701	1233		ORA	TS	F2212390
06604	0 40000 0 03701	1532		ADD	TS	F2215380
06641	−0 50100 0 03701	1561		ORA	TS	F2215670
06127	0 40000 0 03701	1811		ADD	TS	F2218130
06442	0 40000 0 03701	2017		ADD	TS THIS ROUTINE IS ENTERED	F2220190

␣␣␣␣X1 = 1996

Definition
03714 40 X1 BSS 1 IX DO MATHCHING 1ST SYMB.) (HERE TO CARWRD F2200380

References (21)

04434	0 50000 2 03721	379	TAG52	CLA	X1+5,2 ENTER BIT 18 WD 9	F2203830
04451	0 50000 4 03721	392	TAG60	CLA	X1+5,4 TESTS AND ADDED TAGS.	F2203970
04660	0 50000 0 03714	531		CLA	X1	F2205380
04755	0 50000 2 03720	592		CLA	X1+4,2 PUT LEFT INDEX	F2205990
04757	0 50000 2 03722	594		CLA	X1+6,2 PUT RIGHT INDEX	F2206010
05572	0 60100 1 03740	1004	ID010	STO	X1+20,1	F2210100
05635	0 60100 4 03721	1039		STO	X1+5,4 INDEX	F2210450
05647	0 50000 0 03714	1049		CLA	X1 ROUTINE FN265002	F2210550
05724	0 50000 4 03721	1094	ID310	CLA	X1+5,4 SELECT THE	F2211000
05754	0 50000 4 03721	1118		CLA	X1+5,4	F2211240
05762	0 60100 4 03721	1124		STO	X1+5,4	F2211300
05770	0 50000 4 03721	1130		CLA	X1+5,4 INITIALIZED TO	F2211360
06222	−0 53400 1 03714	1287		LXD	X1,1	F2212930
06314	0 50000 4 03720	1348	3GRP65	CLA	X1+4,4	F2213540
06316	0 50000 4 03721	1350		CLA	X1+5,4	F2213560
06320	0 50000 2 03720	1352		CLA	X1+4,2	F2213580
06322	0 50000 2 03721	1354		CLA	X1+5,2	F2213600
06003	0 60100 2 03721	1725		STO	X1+5,2	F2217270
06004	0 60100 2 03722	1726		STO	X1+6,2	F2217280
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

␣␣␣␣X2 = 1998

Definition
03716 42 X2 BSS 1 IX DO MATHCING 2ND SYMB F2200400

References (5)

04656	0 40000 0 03716	529	ADD	X2	F2205360
05650	0 56000 0 03716	1050	LDQ	X2 LOOKS FOR THE	F2210560
05652	0 50000 0 03716	1052	CLA	X2 DOTAG	F2210580
06215	−0 53400 1 03716	1282	LXD	X2,1	F2212880
06225	−0 53400 1 03716	1290	LXD	X2,1	F2212960

␣␣␣␣X3 = 2000

Definition
03720 44 X3 BSS 1 IX DO MATCHING 3RD F2200420

References (4)

04654	0 50000 0 03720	527		CLA	X3	F2205340
05653	0 56000 0 03720	1053	PT041	LDQ	X3 OF A	F2210590
05655	0 50000 0 03720	1055		CLA	X3 COMBINATION.	F2210610
06212	−0 53400 1 03720	1279		LXD	X3,1	F2212850

␣␣␣␣XC = 1980

Definition
03674 24 XC BSS 1 IX CURRENT DO. F2200220

References (15)

04126	−0 63400 2 03674	180		SXD	XC,2 PUT C(XRB) IN XC	F2201780
04262	−0 53400 1 03674	273	DOFOR	LXD	XC,1 OBTAIN	F2202730
04267	−0 53400 1 03674	278	DOFEND	LXD	XC,1 IS A COUNTER	F2202780
04352	0 50000 0 03674	329		CLA	XC	F2203300
04357	−0 53400 1 03674	334		LXD	XC,1	F2203360
04372	0 60100 0 03674	345		STO	XC	F2203470
05221	0 60100 0 03674	760		STO	XC IN XC	F2207670
05607	−0 53400 1 03674	1017		LXD	XC,1 COMPARE EACH SYMBOL	F2210230
06043	−0 53400 1 03674	1173		LXD	XC,1 ARRANGE	F2211790
06076	−0 53400 1 03674	1201		LXD	XC,1	F2212070
05575	−0 53400 1 03674	1591		LXD	XC,1 PUT INDEX OF DC IN XRA	F2215930
05752	0 40200 0 03674	1700		SUB	XC IF THIS DO D6.	F2217020
06012	0 50000 0 03674	1732		CLA	XC	F2217340
06313	−0 53400 1 03674	1927		LXD	XC,1	F2219290
06343	0 50000 0 03674	1951		CLA	XC	F2219530

␣␣␣␣XL = 2002

Definition
03722 46 XL BSS 1 IX LOWEST LEVEL DOSUB F2200440

References (9)

05771	0 60100 0 03722	1131		STO	XL 35ONES.	F2211370
05723	−0 53400 1 03722	1677		LXD	XL,1	F2216790
05741	−0 53400 1 03722	1691	DSD110	LXD	XL,1 OBTAIN INDEX OF DL IN XRA	F2216930
05776	−0 53400 2 03722	1720	DSD170	LXD	XL,2	F2217220
06013	0 60100 0 03722	1733		STO	XL	F2217350
06154	−0 53400 2 03722	1832		LXD	XL,2 OF DC BUT WITHIN DL.	F2218340
06310	−0 53400 1 03722	1924		LXD	XL,1 SAVE INDEXED SUBSCRIPTS.	F2219260
06327	−0 53400 2 03722	1939	BS90	LXD	XL,2 SPECIAL CASE,DELTA TWO,	F2219410
06344	0 60100 0 03722	1952		STO	XL	F2219540

␣␣␣CR1 = 2044

Definition
03774 +000100000000 90 CR1 OCT 100000000 BIT 11 F2200860

References (3)

04440	0 50000 0 03774	383	CLA	CR1 TYPE 1 CARRY INTO	F2203870
04460	0 50000 0 03774	399	CLA	CR1 SUBBIT MEANING A TEST	F2204040
05014	0 50000 0 03774	623	CLA	CR1 TWO.	F2206300

␣␣␣CR2 = 2045

Definition
03775 +000040000000 91 CR2 OCT 40000000 BIT 12 F2200870
Reference
05016 0 50000 0 03775 625 CAR15 CLA CR2 TAGTAG CARRY BIT, F2206320

␣␣␣END = 2083

Definition
04043 0 77000 0 00224 129 END WEF ATAPE WEF ON TAGTAG TAPE F2201250

References (2)

	04033	−3 00000 2 04043	121		TXL	END,2,0 IF DOTAG EMPTY, GO TO END.	F2201170
	04123	0 02000 0 04043	177		TRA	END IF EOF, GO TO ROUTINE END.	F2201740

␣␣␣INL = 3315

Definition
A 06363 0 00000 0 00000 1387 INL HTR LEVEL INNER LEVEL SUBSCRIPT F2213930

References (2)

	06317	0 60100 0 06363	1351		STO	INL	F2213570
	06335	0 50000 4 06367	1365		CLA	INL+4,4 OBTAIN INNER LEVEL OF PAIR	F2213710

␣␣␣INP = 3311

Definition
A 06357 0 00000 0 00000 1383 INP HTR POSITION OF INNER SUB. F2213890

References (2)

	06326	−0 63400 4 06357	1358	3GRP70	SXD	INP,4 FOUR, ADJUSTED TO ONE,	F2213640
	06346	0 50000 4 06363	1374		CLA	INP+4,4 TRAWRD RESULT NOT ZERO.	F2213800

␣␣␣INX = 3314

Definition
A 06362 0 00000 0 00000 1386 INX HTR INDEX INNER LEVEL SUBSCRIPT F2213920

References (3)

06315	0 60100 0 06362	1349		STO	INX	F2213550
06333	0 50000 4 06366	1363	3GRP75	CLA	INX+4,4 OBTAIN INNER INDEX OF PAIR	F2213690
06350	0 50000 4 06366	1376		CLA	INX+4,4 USE RESET	F2213820

␣␣␣LR1 = 3318

Definition
06366 0 00000 0 00000 1970 LR1 F2219720

References (5)

05623	0 60100 0 06366	1613	STO	LR1 AND LEVEL OF R1	F2216150
06023	0 50000 0 06366	1742	CLA	LR1 OBTAIN LEVEL OF R1	F2217440
06051	0 40200 0 06366	1764	SUB	LR1 SUB LEVEL OF R1,	F2217660
06432	0 50000 0 06366	2009	CLA	LR1 AN ENTRY FOR TABLE TRASTO	F2220110
06452	0 40000 0 06366	2025	ADD	LR1 STORES ENTRY IS USED WITH	F2220270

␣␣␣LR2 = 3320

Definition
06370 0 00000 0 00000 1972 LR2 F2219740

References (2)

	06037	0 60100 0 06370	1754		STO	LR2 OF R2.	F2217560
	06450	0 50000 0 06370	2023		CLA	LR2 C(XRB)=2	F2220250

␣␣␣RSR = 2656

Definition
05140 −0 63400 4 05204 711 RSR SXD RSR20,4 SAVE LINKAGE F2207180

References (2)

	05252	0 07400 4 05140	785		TSX	RSR,4	F2207920
	06645	0 07400 4 05140	1565	RES420	TSX	RSR,4 COUNTER FOUND, USE RSR.	F2215710

␣␣␣T0P = 32767

Definition
77777 2086 T0P EQU 32767 F2220827
Reference
07774 −0 63400 1 77777 2084 BURNCE SXD T0P,1 DRUM OVERFLOW F2220825

␣␣␣TAG = 1984

Definition
03700 28 TAG BSS 1 TAG CURRENT TAG IN ROUTINE TAG F2200260

References (16)

04421	0 60100 0 03700	368	STO	TAG IN TAG,	F2203710
04511	0 40200 0 03700	424	SUB	TAG	F2204300
04527	0 50000 0 03700	441	CLA	TAG COMPUTE	F2204480
04650	0 50000 0 03700	523	CLA	TAG ENTRY	F2205300
05216	0 60100 0 03700	757	STO	TAG IN TAG	F2207640
05261	0 40000 0 03700	793	ADD	TAG	F2208000
05436	0 40200 0 03700	905	SUB	TAG	F2209120
06031	0 50000 0 03700	1163	CLA	TAG PUT TAU IN TS,	F2211690
06046	0 50000 0 03700	1176	CLA	TAG ENTRY.	F2211820
06065	−0 50100 0 03700	1191	ORA	TAG NAME	F2211970
06470	−0 50100 0 03700	1456	ORA	TAG NEW	F2214620
05672	0 40000 0 03700	1652	ADD	TAG	F2216540
05713	0 40000 0 03700	1669	ADD	TAG	F2216710
06103	0 40000 0 03700	1790	ADD	TAG	F2217920
06125	0 50000 0 03700	1809	CLA	TAG PRESET WORD E2 FOR LIST	F2218110
06414	0 40000 0 03700	1994	ADD	TAG	F2219960

␣␣␣TL1 = 2016

Definition

	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

References (11)

05174	−0 50100 0 03740	739	ORA	TL1 PROPER TIMES.	F2207460
05247	0 60100 0 03740	782	STO	TL1 USED IN RSR ROUTINE.	F2207890
05477	0 40200 0 03740	941	SUB	TL1 TL2-TL1	F2209480
06210	0 60100 0 03740	1277	STO	TL1	F2212830
06221	−0 60000 0 03740	1286	STQ	TL1	F2212920
06340	0 60100 0 03740	1368	STO	TL1 TL1	F2213740
06600	0 40000 0 03740	1528	ADD	TL1	F2215340
06635	−0 50100 0 03740	1557	ORA	TL1 FOR PROCESSING INTO	F2215630
05626	0 60100 0 03740	1616	STO	TL1 PREPARE	F2216180
05772	0 60100 0 03740	1716	STO	TL1 IN TL1	F2217180
06042	0 60100 0 03740	1757	STO	TL1 FROM R2 TO DS.	F2217590

␣␣␣TL2 = 2017

Definition
03741 63 TL2 BSS 1 F2200590

References (12)

05172	0 50000 0 03741	737		CLA	TL2 BY THE ADJUSTED	F2207440
05251	0 60100 0 03741	784		STO	TL2	F2207910
05473	0 40200 0 03741	937		SUB	TL2 36-TL2	F2209440
05476	0 50000 0 03741	940		CLA	TL2 OBTAIN TL2	F2209470
06211	−0 60000 0 03741	1278		STQ	TL2	F2212840
06220	0 60100 0 03741	1285	2NS88	STO	TL2	F2212910
06336	0 60100 0 03741	1366		STO	TL2 TL2	F2213718
06576	0 50000 0 03741	1526		CLA	TL2 ENTRY	F2215320
06633	0 50000 0 03741	1555		CLA	TL2 IF NOT, MAKE ENTRY	F2215610
05624	0 60100 0 03741	1614		STO	TL2 INITIALIZE TRAWRD TL2	F2216160
05770	0 60100 0 03741	1714		STO	TL2 TL2 TO LEVEL OF DR	F2217160
06040	0 60100 0 03741	1755		STO	TL2 PREPARE FOR TSX TO TRAWRD.	F2217570

␣␣␣TR1 = 3324

Definition
06374 0 00000 0 00000 1976 TR1 F2219780

References (6)

05665	−0 60000 0 06374	1647	STQ	TR1 HERE AND STORE NAME IN TR1	F2216490
05674	0 60100 0 06374	1654	STO	TR1	F2216560
05715	0 60100 0 06374	1671	STO	TR1 PUT NAME IN TR1	F2216730
05722	−0 60000 0 06374	1676	STQ	TR1 PUT NAME IN TR1	F2216780
06436	0 50000 0 06374	2013	CLA	TR1 IS USED BY THE ROUTINE,	F2220150
06456	0 40000 0 06374	2029	ADD	TR1 C(XRB) NOT USED.	F2220310

␣␣␣TR2 = 3325

Definition
06375 0 00000 0 00000 1977 TR2 F2219790

References (4)

06076	−0 60000 0 06375	1785		STQ	TR2 PUT NAME IN TR2	F2217870
06105	0 60100 0 06375	1792	2R0090	STO	TR2 PUT NAME IN TR2	F2217940
06440	0 50000 0 06375	2015		CLA	TR2 IN TRA STO.	F2220170
06454	0 50000 0 06375	2027		CLA	TR2 IF DELTA=3,TRA DR2 TO DR1,	F2220290

␣␣␣XR1 = 3317

Definition
06365 0 00000 0 00000 1969 XR1 F2219710

References (10)

05621	−0 63400 1 06365	1611	DSDR50	SXD	XR1,1 SAVE	F2216130
05657	−0 53400 1 06365	1641		LXD	XR1,1 IS TAG IN DR1	F2216430
05663	−0 53400 1 06365	1645		LXD	XR1,1	F2216470
05667	−0 53400 1 06365	1649	DSDR70	LXD	XR1,1 FIND NAME OF TAG IN R1	F2216510
05675	−0 53400 1 06365	1655	DSDR75	LXD	XR1,1 LIST STORES	F2216570
05704	−0 53400 1 06365	1662		LXD	XR1,1 IF TRA R1 TO DC,	F2216640
05710	−0 53400 1 06365	1666		LXD	XR1,1 FOUND,USE SUBROUTINE	F2216680
05717	−0 53400 1 06365	1673	DSDR87	LXD	XR1,1 USE TAGADD TO INSERT	F2216750
05726	−0 53400 1 06365	1680	DSDR89	LXD	XR1,1 LIST STORES	F2216820
06022	−0 53400 1 06365	1741	2R0000	LXD	XR1,1 PUT INDEX OF R1 IN XRA	F2217430

␣␣␣XR2 = 3319

Definition
06367 0 00000 0 00000 1971 XR2 F2219730

References (7)

06035	−0 63400 1 06367	1752		SXD	XR2,1 SAVE INDEX	F2217540
06065	−0 53400 1 06367	1776	2R0060	LXD	XR2,1 SEARCH FOR TAG	F2217780
06070	−0 53400 1 06367	1779		LXD	XR2,1 NOT FOUND, LOOK FOR DELTA TWO	F2217810
06073	−0 53400 1 06367	1782		LXD	XR2,1 NOT FOUND	F2217840
06100	−0 53400 1 06367	1787	2R0080	LXD	XR2,1 SEARCH	F2217890
06110	−0 53400 1 06367	1795		LXD	XR2,1 D3D1	F2217970
06117	−0 53400 1 06367	1802		LXD	XR2,1 LIST STORES	F2218040

␣␣ABIT = 2051

Definition
04003 2095 ABIT SYN BIT18 F2220910

References (3)

04243	−0 32000 0 04003	258		ANA	ABIT EQ 1.	F2202550
04360	0 50000 0 04003	335		CLA	ABIT	F2203370
04445	0 50000 0 04003	388	TAG56	CLA	ABIT ENTER BIT 18 WD 9.	F2203920

␣␣ATSW = 1978

Definition
03672 22 ATSW BSS 1 ADDED TAG SWITCH. EQ 1 IF PROC ADDED TAGS(INITO F2200200

References (3)

04125	0 60100 0 03672	179		STO	ATSW	F2201760
04173	0 60100 0 03672	217		STO	ATSW SET ADDED TAG SWITCH	F2202150
05655	0 50000 0 03672	1639	DSDR65	CLA	ATSW TEST ADDED TAG SWITCH	F2216410

␣␣BBIT = 2053

Definition
04005 2096 BBIT SYN BIT20 F2220920

References (2)

	04240	−0 32000 0 04005	255		ANA	BBIT EQ 1.	F2202530
	04320	0 50000 0 04005	303		CLA	BBIT	F2203030

␣␣BETA = 1983

Definition
03677 27 BETA BSS 1 BETA CURRENT DO F2200250

References (4)

04370	0 60100 0 03677	343		STO	BETA	F2203450
04413	0 34000 0 03677	362	TAG30	CAS	BETA COMPARE WITH BETA.	F2203640
04504	0 34000 0 03677	419		CAS	BETA DO, NEGATIVE.	F2204250
06135	0 50000 0 03677	1817		CLA	BETA	F2218190

␣␣BS00 = 3246

Definition
06256 0 50000 0 03735 1898 BS00 CLA RSYM1 THIS ROUTINE SEARCHES F2219000

␣␣BS10 = 3248

Definition
06260 −0 53400 2 03762 1900 BS10 LXD L(60),2 RSYM1,AND RSYM2 IF DELTA F2219020
Reference
06271 0 02000 0 06260 1909 TRA BS10 F2219110

␣␣BS20 = 3249

Definition
06261 0 34000 2 06567 1901 BS20 CAS BLOCK+61,2 IS THREE. F2219030
Reference
D 06265 3 00000 2 06261 1905 BS40 TXH BS20,2 F2219070

␣␣BS25 = 3250

Definition
D 06262 −3 00000 0 06264 1902 BS25 TXL BS30,0 F2219040

References (2)

	06244	−0 63400 1 06262	1888		SXD	BS25,1	F2218900
	06277	−0 53400 1 06262	1915		LXD	BS25,1 OTHERWISE,PREPARE TO CONTINUE	F2219170

␣␣BS30 = 3252

Definition
06264 1 77775 2 06265 1904 BS30 TXI BS40,2,−3 RE-ENTRY F2219060

References (2)

D	06262	−3 00000 0 06264	1902	BS25	TXL	BS30,0	F2219040
TD	06326	−3 00000 0 06264	1938	BS85	TXL	BS30	F2219400

␣␣BS40 = 3253

Definition
D 06265 3 00000 2 06261 1905 BS40 TXH BS20,2 F2219070

References (3)

06243	−0 63400 2 06265	1887		SXD	BS40,2	F2218890
06264	1 77775 2 06265	1904	BS30	TXI	BS40,2,−3 RE-ENTRY	F2219060
06275	−0 53400 2 06265	1913	BS70	LXD	BS40,2 BLOCK SEARCH DONE. IF BLOCK	F2219150

␣␣BS50 = 3254

Definition
06266 −3 00002 4 06275 1906 BS50 TXL BS70,4,2 F2219080

␣␣BS60 = 3258

Definition
06272 −0 76000 0 00144 1910 BS60 MSE 100 TEST TO SEE IF F2219120
Reference
06263 0 02000 0 06272 1903 TRA BS60 EQUALITY F UND,TRA. F2219050

␣␣BS70 = 3261

Definition
06275 −0 53400 2 06265 1913 BS70 LXD BS40,2 BLOCK SEARCH DONE. IF BLOCK F2219150
Reference
06266 −3 00002 4 06275 1906 BS50 TXL BS70,4,2 F2219080

␣␣BS71 = 3264

Definition
06300 1 00071 1 06301 1916 BS71 TXI BS72,1,57 SEARCH,IF MORE ENTRIES IN FORVAL. F2219180
Reference
06214 −0 53400 2 06300 1864 LXD BS71,2 F2218660

␣␣BS72 = 3265

Definition
06301 3 02733 1 06353 1917 BS72 TXH BS99,1,1499 F2219190
Reference
06300 1 00071 1 06301 1916 BS71 TXI BS72,1,57 SEARCH,IF MORE ENTRIES IN FORVAL. F2219180

␣␣BS78 = 3270

Definition
D 06306 −3 00000 0 06211 1922 BS78 TXL FS00,0 GO BACK TO CONTINUE SEARCH F2219240

References (2)

	06321	−0 63400 4 06306	1933		SXD	BS78,4 RESTORE ACC,XR8,XRC	F2219330
	06324	−0 53400 4 06306	1936		LXD	BS78,4	F2219380

␣␣BS80 = 3271

Definition
06307 0 60100 0 06364 1923 BS80 STO 4VALES RSYM FOUND,ARRANGE TO F2219250
Reference
06273 0 02000 0 06307 1911 TRA BS80 NORMAL SEARCH,OR IF F2219130

␣␣BS85 = 3286

Definition
TD 06326 −3 00000 0 06264 1938 BS85 TXL BS30 F2219400

References (2)

	06320	−0 63400 2 06326	1932		SXD	BS85,2 AFTER LISTING,	F2219340
	06323	−0 53400 2 06326	1935		LXD	BS85,2 SEARCH.	F2219370

␣␣BS90 = 3287

Definition
06327 −0 53400 2 03722 1939 BS90 LXD XL,2 SPECIAL CASE,DELTA TWO, F2219410
Reference
06274 0 02000 0 06327 1912 TRA BS90 SPECIAL CASE OF DELTA TWO. F2219140

␣␣BS91 = 3295

Definition
06337 −0 75400 2 00000 1947 BS91 PXD 0,2 PUT IN ACC F2219490
Reference
06336 2 00001 2 06337 1946 TIX BS91,2,1 ADJUST 1,3,5 TO 1,2,4, F2219480

␣␣BS92 = 3296

Definition
06340 −0 60200 0 03727 1948 BS92 ORS DORC AND PUT BIT IN DORC F2219500

␣␣BS99 = 3307

Definition
06353 −0 53400 4 06231 1959 BS99 LXD FS28,4 EXIT FROM FSXX ENTRY F2219610

References (3)

D	06231	−3 00000 0 06353	1877	FS28	TXL	BS99,0 B LESS THAN F,EXIT	F2218790
	06276	3 00000 2 06353	1914		TXH	BS99,2,0 WAS NOT FULL,EXIT.	F2219160
	06301	3 02733 1 06353	1917	BS72	TXH	BS99,1,1499	F2219190

␣␣CS00 = 3237

Definition
06245 −0 53400 2 03762 1889 CS00 LXD L(60),2 THIS ROUTINE COMPUTES F2218910

␣␣CS10 = 3238

Definition
06246 −0 50000 2 06566 1890 CS10 CAL BLOCK+60,2 THE CHECK SUMS OF THE F2218920
Reference
D 06255 3 00000 2 06246 1897 CS20 TXH CS10,2 CONTINUE WITH BS00 F2218990

␣␣CS20 = 3245

Definition
D 06255 3 00000 2 06246 1897 CS20 TXH CS10,2 CONTINUE WITH BS00 F2218990

References (2)

	06242	−0 63400 2 06255	1886	FS50	SXD	CS20,2	F2218880
	06254	1 77775 2 06255	1896		TXI	CS20,2,−3	F2218980

␣␣D2D1 = 3321

Definition
06371 0 00000 0 00000 1973 D2D1 F2219750

References (6)

05633	0 60100 0 06371	1621		STO	D2D1 SAVE IF NOT ZERO	F2216230
05646	0 50000 0 06371	1632		CLA	D2D1	F2216340
05652	−0 60000 0 06371	1636	DSDR62	STQ	D2D1	F2216380
05653	0 50000 0 06371	1637		CLA	D2D1	F2216390
06063	0 50000 0 06371	1774		CLA	D2D1 IF D2D1 IS ZERO,	F2217760
06115	0 50000 0 06371	1800		CLA	D2D1 TEST TR	F2218020

␣␣D3D1 = 3322

Definition
06372 0 00000 0 00000 1974 D3D1 F2219760

References (3)

06057	0 60100 0 06372	1770		STO	D3D1 AND SAVE	F2217720
06061	0 50000 0 06372	1772		CLA	D3D1 IF D3D1 IS ZERO,THEN D3D2	F2217740
06106	0 50000 0 06372	1793	2R0100	CLA	D3D1 LIST STORES IF ANY TR,	F1I17950

␣␣D3D2 = 3323

Definition
06373 0 00000 0 00000 1975 D3D2 F2219770

References (4)

06047	0 60100 0 06373	1762		STO	D3D2 TEMPORARY STORAGE	F2217640
06055	0 50000 0 06373	1768		CLA	D3D2 OBTAIN TRAWRD RESULT,	F2217700
06060	−0 60000 0 06373	1771		STQ	D3D2 RESULTS.	F2217730
06113	0 50000 0 06373	1798	2R0150	CLA	D3D2 TEST TR	F2218000

␣␣DIAG = 4

Definition
00004 2100 DIAG EQU 4 F2220946

References (16)

04155	0 07400 4 00004	203	NEST50	TSX	DIAG,4 ERROR. GO TO DIAGNOSTIC	F2202015
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
04405	0 07400 4 00004	356		TSX	DIAG,4 DO, AND WHICH HAS NOT (ERROR. GO TO DIAGNOSTIC.)	F2203585
04570	0 07400 4 00004	474	PAT03	TSX	DIAG,4 IN READING TAU FROM DRUM. ERROR. GO TO DIAGNOSTIC.	F2204815
05232	0 07400 4 00004	769		TSX	DIAG,4 IN ORDER TO (ERROR. GO TO DIAGNOSTIC.)	F2207765
05273	0 07400 4 00004	803	TAGAD6	TSX	DIAG,4 TABLE WILL NOT HOLD ENTRY. ERROR. GO TO DIAGNOSTIC.	F2208093
05560	0 07400 4 00004	992		TSX	DIAG,4 DRUM READ ERROR. GO TO DIAGNOSTIC.	F2209995
06004	0 07400 4 00004	1142		TSX	DIAG,4 NO DOSUB WAS PRECLUDED. ERROR. GO TO DIAGNOSTIC	F2211485
06063	0 07400 4 00004	1189		TSX	DIAG,4 TAG, (NAME TABLE FULL. ERROR. GO TO DIAGNOSTIC.)	F2211955
06253	0 07400 4 00004	1315		TSX	DIAG,4 N0 DUPES. ERROR. GO TO DIAGNOSTIC.	F2213215
06256	0 07400 4 00004	1318		TSX	DIAG,4 N0 DUPES. ERROR. GO TO DIAGNOSTIC.	F2213243
06475	0 07400 4 00004	1461		TSX	DIAG,4 RETAB TABLE FULL. ERROR. GO TO DIAGNOSTIC.	F2214675
06357	0 07400 4 00004	1963	4VLHL2	TSX	DIAG,4 WILL BE REREAD 5 TIMES. (ERROR. GO TO DIAGNOSTIC.)	F2219655
07760	0 07400 4 00004	2072		TSX	DIAG,4 DRUM READ ERROR. GO TO DIAGNOSTIC.	F2220735
07775	0 02000 0 00004	2085		TRA	DIAG ERROR PROCEDURE.	F2220826

␣␣DORC = 2007

Definition
03727 51 DORC BSS 1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DORC F2200490

References (7)

04332	0 60100 0 03727	313		STO	DORC	F2203130
04455	−0 50100 0 03727	396		ORA	DORC OCCURS WITH	F2204010
04623	−0 50100 0 03727	502		ORA	DORC	F2205080
05753	−0 60200 0 03727	1117	ID360	ORS	DORC IN THE DORC WORD.	F2211230
06106	−0 50100 0 03727	1209		ORA	DORC GO TO 1NS10	F2212150
06007	−0 60200 0 03727	1729		ORS	DORC	F2217310
06340	−0 60200 0 03727	1948	BS92	ORS	DORC AND PUT BIT IN DORC	F2219500

␣␣FS00 = 3209

Definition
06211 0 50000 0 03756 1861 FS00 CLA L(5) INITIALIZE F2218632
Reference
D 06306 −3 00000 0 06211 1922 BS78 TXL FS00,0 GO BACK TO CONTINUE SEARCH F2219240

␣␣FS05 = 3211

Definition
06213 0 76200 0 00302 1863 FS05 RDS 194 F2218650
Reference
D 06361 −3 00000 0 06213 1965 4VLHL8 TXL FS05,0 F2219670

␣␣FS10 = 3215

Definition
06217 0 70000 0 06472 1867 FS10 CPY BLOCK COPY FORMULA NR. F2218690
Reference
06234 1 00003 1 06217 1880 TXI FS10,1,3 SEARCH FOR BEGINNING OF RANGE, F2218820

␣␣FS20 = 3221

Definition
06225 0 70000 2 06566 1873 FS20 CPY BLOCK+60,2 COPY NEXT FOR. NR. F2218750

References (2)

	06224	1 00003 1 06225	1872		TXI	FS20,1,3 ENTRY.	F2218740
	06237	2 00003 2 06225	1883		TIX	FS20,2,3 UNTIL BLOCK FULL OR RANGE	F2218850

␣␣FS25 = 3223

Definition
06227 0 40200 0 06472 1875 FS25 SUB BLOCK TEST FIRST ENTRY. F2218770
Reference
06241 0 02000 0 06227 1885 TRA FS25 F2218870

␣␣FS28 = 3225

Definition
D 06231 −3 00000 0 06353 1877 FS28 TXL BS99,0 B LESS THAN F,EXIT F2218790

References (2)

	06210	−0 63400 4 06231	1860	FSXX	SXD	FS28,4 SAVE TSX INDEX	F2218620
	06353	−0 53400 4 06231	1959	BS99	LXD	FS28,4 EXIT FROM FSXX ENTRY	F2219610

␣␣FS30 = 3226

Definition
06232 0 70000 0 06473 1878 FS30 CPY BLOCK+1 COPY BALANCE OF ENTRY,GO F2218800
Reference
06220 0 04000 0 06232 1868 TLQ FS30 A GREATER THAN FOR.NR.,TRA. F2218700

␣␣FS40 = 3229

Definition
06235 0 70000 2 06567 1881 FS40 CPY BLOCK+61,2 THIS ENTRY IS IN RANGE, F2218830
Reference
06226 0 04000 0 06235 1874 TLQ FS40 B GREAT THAN FOR. NR.,TRA. F2218760

␣␣FS50 = 3234

Definition
06242 −0 63400 2 06255 1886 FS50 SXD CS20,2 F2218880
Reference
06230 0 12000 0 06242 1876 TPL FS50 B GREATER THAN F,TRA F2218780

␣␣FSXX = 3208

Definition
06210 −0 63400 4 06231 1860 FSXX SXD FS28,4 SAVE TSX INDEX F2218620

References (3)

06143	0 07400 4 06210	1823	TSX	FSXX,4 IN XRA AND GO TO	F2218250
06173	0 07400 4 06210	1847	TSX	FSXX,4 GO TO SEARCH ROUTINE	F2218490
06206	0 07400 4 06210	1858	TSX	FSXX,4	F2218600

␣␣IDES = 3095

Definition
A 06027 0 00000 0 00000 1161 IDES HTR F2211670

References (4)

05571	0 60100 0 06027	1003	STO	IDES	F2210090
05733	0 34000 0 06027	1101	CAS	IDES	F2211070
05734	0 60100 0 06027	1102	STO	IDES	F2211080
05745	0 34000 0 06027	1111	CAS	IDES LEVELS LESS THAN OR	F2211170

␣␣L(0) = 2025

Definition
03751 0 00000 0 00000 71 L(0) 0,0,0 F2200670

References (32)

04020	0 50000 0 03751	110		CLA	L(0) , ,	F2201050
04024	−0 53400 6 03751	114		LXD	L(0),6 TEST FOR EMPTY	F2201090
04116	−0 53400 1 03751	172	NEST	LXD	L(0),1 READ	F2201690
04124	0 50000 0 03751	178	NEST30	CLA	L(0) INITIALIZING INSTRUCTIONS.	F2201750
04330	0 50000 0 03751	311		CLA	L(0) USED IN 1NS00.	F2203110
04350	0 50000 0 03751	327		CLA	L(0)	F2203280
05367	0 50000 0 03751	864		CLA	L(0) IND,AND SET LOCATION OF	F2208710
05442	0 50000 0 03751	912		CLA	L(0)	F2209190
05502	0 50000 0 03751	944		CLA	L(0) ACC CONTAINS ZERO	F2209510
05570	0 50000 0 03751	1002		CLA	L(0) TO ZERO	F2210080
05576	−0 53400 2 03751	1008		LXD	L(0),2 COUNT THE SUBSCRIPT	F2210140
05702	0 50000 0 03751	1076		CLA	L(0) OTHERWISE, THE DOSUBS	F2210820
05742	−0 53400 2 03751	1108		LXD	L(0),2	F2211140
06247	−0 53400 2 03751	1311		LXD	L(0),2 PUT ZERO IN XRB	F2213170
06302	−0 53400 6 03751	1338	3GRP50	LXD	L(0),6 THE FOLLOWING ROUTINE,	F2213440
06420	0 50000 0 03751	1416		CLA	L(0)	F2214220
06520	0 50000 0 03751	1480	RES92	CLA	L(0)	F2214860
06526	0 50000 0 03751	1486		CLA	L(0)	F2214920
06550	0 50000 0 03751	1504	RES110	CLA	L(0) THESE INSTRUCTIONS,	F2215100
05645	0 56000 0 03751	1631		LDQ	L(0)	F2216330
05662	−0 53400 2 03751	1644		LXD	L(0),2 NOT FOUND	F2216460
05676	−0 53400 2 03751	1656		LXD	L(0),2	F2216580
05720	−0 53400 2 03751	1674		LXD	L(0),2 TAG IN R1	F2216760
06002	0 50000 0 03751	1724		CLA	L(0)	F2217260
06054	0 56000 0 03751	1767		LDQ	L(0) PUT ZERO IN MQ,	F2217690
06074	−0 53400 2 03751	1783		LXD	L(0),2 ADD TAG	F2217850
06142	−0 53400 1 03751	1822		LXD	L(0),1 LDA ADDRESS. PUT ZERO	F2218240
06172	−0 53400 1 03751	1846		LXD	L(0),1	F2218480
06205	−0 53400 1 03751	1857		LXD	L(0),1	F2218590
06240	−0 53400 2 03751	1884		LXD	L(0),2 EXCEEDED.	F2218860
06267	−0 53400 4 03751	1907		LXD	L(0),4	F2219090
06333	0 50000 0 03751	1943		CLA	L(0) FOR XL,	F2219450

␣␣L(1) = 2026

Definition
03752 0 00001 0 00000 72 L(1) 0,0,1 F2200680

References (30)

04026	−0 53400 4 03752	116		LXD	L(1),4 OFF, NOT EMPTY	F2201120
04031	−0 53400 2 03752	119		LXD	L(1),2 EMPTY DOTAG	F2201150
04172	0 50000 0 03752	216		CLA	L(1)
04252	0 40000 0 03752	265		ADD	L(1) DOTAG	F2202630
04634	0 50000 0 03752	511	SCE010	CLA	L(1)	F2205180
04642	0 40200 0 03752	517		SUB	L(1)	F2205240
05555	−0 53400 2 03752	989	RELEND	LXD	L(1),2	F2209960
05641	0 40200 0 03752	1043		SUB	L(1) NRRC. THIS WORD	F2210490
05713	0 40200 0 03752	1085		SUB	L(1) RCSUBS.	F2210910
05752	0 40200 0 03752	1116		SUB	L(1) INDICATE THIS CONDITION	F2211220
05775	0 40200 0 03752	1135		SUB	L(1) OF DOSUBS	F2211410
06007	−0 53400 4 03752	1145		LXD	L(1),4 IF ONE DISTINCT DOSUB,	F2211510
06162	0 40200 0 03752	1255		SUB	L(1)	F2212610
06172	0 50000 0 03752	1263	2NS60	CLA	L(1)	F2212690
06213	0 50000 0 03752	1280		CLA	L(1)	F2212860
06236	−0 53400 2 03752	1299		LXD	L(1),2	F2213050
06267	0 40200 0 03752	1327		SUB	L(1) L1 LESS 1	F2213330
06275	0 40200 0 03752	1333		SUB	L(1) L2 LESS 1	F2213390
06341	−0 53400 2 03752	1369		LXD	L(1),2 PUT ONE IN XRB,	F2213750
06554	0 40200 0 03752	1508		SUB	L(1) ONE AND PLACE	F2215140
06621	0 40200 0 03752	1545		SUB	L(1) EQUAL TO ONE.	F2215510
06642	−0 53400 2 03752	1562		LXD	L(1),2	F2215680
05627	−0 53400 2 03752	1617		LXD	L(1),2 TRAWRD C(XRB)	F2216190
05705	−0 53400 2 03752	1663		LXD	L(1),2 USE SPC000 TO LOOK FOR	F2216630
05727	−0 53400 2 03752	1681		LXD	L(1),2	F2216830
05773	−0 53400 2 03752	1717		LXD	L(1),2 PUT 1 IN XRB	F2217190
06016	0 50000 0 03752	1736		CLA	L(1)	F2217380
06043	−0 53400 2 03752	1758		LXD	L(1),2	F2217600
06165	0 40000 0 03752	1841		ADD	L(1)	F2218430
06347	0 50000 0 03752	1955		CLA	L(1)	F2219570

␣␣L(2) = 2027

Definition
03753 0 00002 0 00000 73 L(2) 0,0,2 F2200690

References (9)

05534	−0 53400 2 03753	972	RELCON	LXD	L(2),2 INITIALIZE SWITCH	F2209790
06057	−0 53400 2 03753	1185	NAM30	LXD	L(2),2 NO TINFOR SEARCH REQUIRED.	F2211910
06151	−0 53400 2 03753	1246		LXD	L(2),2 GROUP NR AND CARRY BITS	F2212520
06216	0 50000 0 03753	1283		CLA	L(2)	F2212890
06226	0 50000 0 03753	1291		CLA	L(2)	F2212970
06300	−0 53400 2 03753	1336		LXD	L(2),2 SET XRB	F2213420
05631	−0 53400 2 03753	1619		LXD	L(2),2	F2216210
06111	−0 53400 2 03753	1796		LXD	L(2),2	F2217980
06465	−0 53400 2 03753	2040	STO50	LXD	L(2),2 SPC000 USED.	F2220420

␣␣L(3) = 2028

Definition
03754 0 00003 0 00000 74 L(3) 0,0,3 F2200711

References (3)

05130	0 50000 0 03754	703	CLA	L(3) TAG00	F2207100
05660	−0 53400 3 03754	1058	LXD	L(3),3	F2210640
05727	−0 53400 2 03754	1097	LXD	L(3),2 OF DEFINITION	F2211030

␣␣L(4) = 2029

Definition
03755 0 00004 0 00000 75 L(4) 0,0,4 F2200710

References (6)

04164	−0 53400 2 03755	210	NESTEN	LXD	L(4),2 PUT END OF NEST INDICATION	F2202080
04326	0 50000 0 03755	309	MAKESC	CLA	L(4) INITIALIZE	F2203090
05513	−0 53400 2 03755	954	TE10	LXD	L(4),2 TRA TO TETAPE.	F2209610
06223	0 50000 0 03755	1288		CLA	L(4)	F2212940
06272	−0 53400 2 03755	1330		LXD	L(4),2 SET XRB	F2213360
06332	−0 53400 4 03755	1362		LXD	L(4),4 THIS LOOP IS EXECUTED TWICE.	F2213680

␣␣L(5) = 2030

Definition
03756 0 00005 0 00000 76 L(5) 0,0,5 F2200720

References (14)

04013	−0 53400 1 03756	105		LXD	L(5),1 INITIALIZE	F2201010
04050	−0 53400 1 03756	134		LXD	L(5),1	F2201300
04433	−0 53400 2 03756	378	TAG50	LXD	L(5),2	F2203820
04450	−0 53400 4 03756	391		LXD	L(5),4 TAG 60 SEQUENCE CONCERNS	F2203960
04633	−0 53400 1 03756	510		LXD	L(5),1	F2205170
05132	0 50000 0 03756	705	BRA60	CLA	L(5)	F2207120
05535	−0 53400 4 03756	973	REL10	LXD	L(5),4 INITIALIZE ERROR COUNTER.	F2209805
05577	−0 53400 4 03756	1009		LXD	L(5),4 SYMBOLS.	F2210150
05613	−0 53400 4 03756	1021		LXD	L(5),4 WHEN EQUALITY IS	F2210270
05704	−0 53400 4 03756	1078	ID195	LXD	L(5),4 IF THERE ARE RELCONS,	F2210840
05723	−0 53400 4 03756	1093	ID300	LXD	L(5),4 FOR ALL DO SUBS,	F2210990
05741	−0 53400 4 03756	1107		LXD	L(5),4 COMPARE THIS MAXIMUM	F2211130
06552	−0 53400 4 03756	1506		LXD	L(5),4 WHICH COEFFICIENTS	F2215120
06211	0 50000 0 03756	1861	FS00	CLA	L(5) INITIALIZE	F2218632

␣␣L(6) = 2031

Definition
03757 0 00006 0 00000 77 L(6) 0,0,6 F2200730

References (5)

04342	0 50000 0 03757	321		CLA	L(6) SET UP TAG TAG	F2203210
05657	−0 53400 4 03757	1057		LXD	L(6),4	F2210630
06142	0 50000 0 03757	1237	1NS10	CLA	L(6) ENTER	F2212430
06174	0 50000 0 03757	1265	2NS70	CLA	L(6)	F2212710
06536	0 50000 0 03757	1494		CLA	L(6) MAKE	F2215000

␣␣LIST = 2581

Definition
05025 −0 63400 4 05060 632 LIST SXD LIST40,4 SAVE LINKAGE F2206400

References (12)

04207	0 07400 4 05025	230	TSX	LIST,4	F2202270
04231	0 07400 4 05025	248	TSX	LIST,4	F2202450
05163	0 07400 4 05025	730	TSX	LIST,4	F2207370
05201	0 07400 4 05025	744	TSX	LIST,4	F2207510
05236	0 07400 4 05025	773	TSX	LIST,4 ENTER RESULT IN DRMTAG.	F2207800
05406	0 07400 4 05025	879	TSX	LIST,4 TSX TO LISTING ROUTINE.	F2208860
06055	0 07400 4 05025	1183	TSX	LIST,4 WHETHER OR NOT	F2211890
06141	0 07400 4 05025	1236	TSX	LIST,4	F2212420
06570	0 07400 4 05025	1520	TSX	LIST,4 OR	F2215260
06610	0 07400 4 05025	1536	TSX	LIST,4	F2215420
06322	0 07400 4 05025	1934	TSX	LIST,4 AND RETURN TO CONTINUE	F2219360
06463	0 07400 4 05025	2038	TSX	LIST,4	F2220400

␣␣MIDL = 3317

Definition
A 06365 0 00000 0 00000 1389 MIDL HTR LEVEL MIDDLE LEVEL SUBSCRIPT F2213950
Reference
06323 0 60100 0 06365 1355 STO MIDL F2213610

␣␣MIDP = 3313

Definition
A 06361 0 00000 0 00000 1385 MIDP HTR POSITION OF MIDDLE SUB. F2213910
Reference
06331 −0 63400 2 06361 1361 3GRP72 SXD MIDP,2 BEING RESET, STORE IN INP, MIDP. F2213670

␣␣MIDX = 3316

Definition
A 06364 0 00000 0 00000 1388 MIDX HTR INDEX MIDDLE LEVEL SUBSCRIPT F2213940
Reference
06321 0 60100 0 06364 1353 STO MIDX F2213590

␣␣NAME = 3096

Definition
06030 −0 63400 4 06036 1162 NAME SXD NAM10,4 - SAVE LINKAGE F2211680
Reference
04427 0 07400 4 06030 374 TSX NAME,4 SC. TO BE PROCESSED. USE NAME. F2203770

␣␣NAMZ = 3777

Definition
07301 1575 NAMZ BSS 1 F2215780

References (6)

04201	0 50000 1 07301	224	NEST82	CLA	NAMZ,1	F2202210
04203	0 50000 1 07302	226		CLA	NAMZ+1,1	F2202230
06066	0 60100 1 07301	1192		STO	NAMZ,1 IN	F2211980
06070	0 60100 1 07302	1194		STO	NAMZ+1,1 TABLE	F2212000
06402	0 34000 1 07301	1983	GETN05	CAS	NAMZ,1 DO FORMULA.	F2219850
06411	0 50000 1 07302	1990	GETN30	CLA	NAMZ+1,1	F2219920

␣␣NEST = 2126

Definition
04116 −0 53400 1 03751 172 NEST LXD L(0),1 READ F2201690

References (2)

	04042	0 02000 0 04116	128		TRA	NEST	F2201240
	04261	0 02000 0 04116	272		TRA	NEST RETURN FOR NEXT NEST,	F2202720

␣␣NRDS = 2006

Definition
03726 50 NRDS BSS 1 NR DOSUBS IN S.C. F2200480

References (5)

05112	−0 53400 1 03726	689	BRA10	LXD	NRDS,1 THIS ROUTINE	F2206960
06002	0 60100 0 03726	1140		STO	NRDS CHECK TO SEE THAT	F2211460
06016	−0 53400 2 03726	1152	ID390	LXD	NRDS,2 DELTA IS THREE.	F2211580
06017	0 60100 0 03726	1737		STO	NRDS	F2217390
06350	0 60100 0 03726	1956		STO	NRDS	F2219580

␣␣NRRC = 2005

Definition
03725 49 NRRC BSS 1 NR. RELCONS IN SUBSCR COMBINATION F2200470

References (7)

05107	0 50000 0 03725	686		CLA	NRRC (NOT DORC) IN THE SC,	F2206930
05605	0 60100 0 03725	1015		STO	NRRC SUBTRACTED OUT LATER.	F2210210
05640	0 50000 0 03725	1042		CLA	NRRC SUBTRACT ONE FROM	F2210480
05642	0 60100 0 03725	1044		STO	NRRC CONTAINS INITIALLY	F2210500
05675	−0 53400 2 03725	1071		LXD	NRRC,2 IF THERE IS MORE	F2210770
06005	−0 53400 2 03725	1143	ID385	LXD	NRRC,2 THESE INSTRUCTIONS	F2211490
06053	−0 53400 4 03725	1181		LXD	NRRC,4 USE LIST OR SPC000,	F2211870

␣␣PG10 = 4059

Definition
07733 −0 53400 4 07771 2051 PG10 LXD PG90,4 F2220520
Reference
07731 0 02000 0 07733 2049 TRA PG10 PING-PONGING. F2220300

␣␣PG15 = 4060

Definition
07734 0 76600 0 00301 2052 PG15 WRS 193 F2220530
Reference
07757 2 00001 4 07734 2071 TIX PG15,4,1 F2220720

␣␣PG20 = 4063

Definition
07737 0 70000 1 06566 2055 PG20 CPY CORESZ,1 F2220560
Reference
07740 2 00001 1 07737 2056 TIX PG20,1,1 F2220570

␣␣PG30 = 4069

Definition
07745 0 70000 1 05566 2061 PG30 CPY CORES,1 F2220620
Reference
07746 2 00001 1 07745 2062 TIX PG30,1,1 F2220630

␣␣PG40 = 4073

Definition
07751 0 36100 1 05566 2065 PG40 ACL CORES,1 F2220660
Reference
07752 2 00001 1 07751 2066 TIX PG40,1,1 F2220670

␣␣PG50 = 4083

Definition
07763 +103075525444 2075 PG50 OCT 103075525444 CHECK SUM, STATE B, RELCON F2220744
Reference
07755 0 40200 2 07765 2069 SUB PG50+2,2 F2220700

␣␣PG60 = 4085

Definition
07765 +000000001000 2077 PG60 OCT 1000 F2220760

References (2)

	07736	0 46000 2 07767	2054		LDA	PG60+2,2	F2220550
	07744	0 46000 2 07767	2060		LDA	PG60+2,2	F2220610

␣␣PG70 = 4087

Definition
07767 +000001000000 2079 PG70 OCT 1000000 F2220780
Reference
07732 −0 53400 2 07767 2050 LXD PG70,2 F2220510

␣␣PG80 = 4088

Definition
07770 +000002000000 2080 PG80 OCT 2000000 F2220790
Reference
07730 −0 53400 2 07770 2048 PP0NG LXD PG80,2 ROUTINE PPONG SETS UP DRUM ONE FOR F2220490

␣␣PG90 = 4089

Definition
07771 +000005000000 2081 PG90 OCT 5000000 F2220805
Reference
07733 −0 53400 4 07771 2051 PG10 LXD PG90,4 F2220520

␣␣PG95 = 4090

Definition
07772 +001000000000 2082 PG95 OCT 1000000000 F2220810

References (3)

07735	−0 53400 1 07772	2053	LXD	PG95,1	F2220540
07743	−0 53400 1 07772	2059	LXD	PG95,1	F2220600
07747	−0 53400 1 07772	2063	LXD	PG95,1	F2220640

␣␣PG99 = 4091

Definition
A 07773 0 00000 0 00000 2083 PG99 HTR F2220820

References (2)

	07753	0 60200 0 07773	2067		SLW	PG99	F2220680
	07754	0 50000 0 07773	2068		CLA	PG99	F2220690

␣␣TAG1 = 1986

Definition
03702 30 TAG1 BSS 1 4TH WD OF TAGTAG F2200280

References (7)

04615	0 60100 0 03702	496	STO	TAG1 WITH GENERATING THE	F2205030
04621	−0 60200 0 03702	500	ORS	TAG1	F2205070
04625	−0 60200 0 03702	504	ORS	TAG1	F2205110
04630	−0 60200 0 03702	507	ORS	TAG1	F2205140
04632	−0 60200 0 03702	509	ORS	TAG1	F2205160
04644	−0 60200 0 03702	519	ORS	TAG1	F2205260
04646	0 50000 0 03702	521	CLA	TAG1 TAG1 IS NOW COMPLETE.	F2205280

␣␣TAGZ = 3577

Definition
06771 1571 TAGZ BSS 1 F2215740

References (2)

	05515	0 60100 1 06771	956		STO	TAGZ,1	F2209630
	05526	0 70000 1 06771	965	TE40	CPY	TAGZ,1 THE LAST ENTRY ON TAPE	F2209720

␣␣TE10 = 2891

Definition
05513 −0 53400 2 03755 954 TE10 LXD L(4),2 TRA TO TETAPE. F2209610
Reference
05511 3 00000 1 05513 952 TXH TE10,1,0 ONE ENTRY IN TAGZ, F2209590

␣␣TE20 = 2892

Definition
05514 0 50000 2 05067 955 TE20 CLA E1+4,2 F2209620
Reference
05517 2 00001 2 05514 958 TE30 TIX TE20,2,1 F2209650

␣␣TE30 = 2895

Definition
05517 2 00001 2 05514 958 TE30 TIX TE20,2,1 F2209650
Reference
05516 1 77777 1 05517 957 TXI TE30,1,−1 F2209640

␣␣TE40 = 2902

Definition
05526 0 70000 1 06771 965 TE40 CPY TAGZ,1 THE LAST ENTRY ON TAPE F2209720
Reference
D 05530 3 00000 1 05526 967 TE50 TXH TE40,1 AN ENTRY OF 4 WDS OF 35 ONES F2209740

␣␣TE50 = 2904

Definition
D 05530 3 00000 1 05526 967 TE50 TXH TE40,1 AN ENTRY OF 4 WDS OF 35 ONES F2209740

References (2)

	05524	−0 63400 1 05530	963		SXD	TE50,1 ENTRIES IN TAGZ ON	F2209700
	05527	1 77777 1 05530	966		TXI	TE50,1,−1 AFTER EACH NEST IS	F2209730

␣␣TEST = 2485

Definition
04665 0 50000 1 00743 536 TEST CLA DOTAGZ+8,1 IF A SUFFICIENTLY GOOD F2205430
Reference
04476 0 07400 2 04665 413 TSX TEST,2 IF NOT, USE ROUTINE TEST. F2204190

␣1NS00 = 3133

Definition
1199 1NS00 PROCESSES SC CONTAINING ONE DISTINCT INDEXED SUBSCRIPT. F2212050

06075 −0 63400 4 06146 1200 1NS00 SXD 1NS20,4 SAVE LINKAGE F2212060

References (2)

	04341	0 07400 4 06075	320		TSX	1NS00,4 USE 1NS00 FOR TEST INF0,LIST.	F2203200
	05114	0 07400 4 06075	691	BRA20	TSX	1NS00,4 DUPLICATE	F2206980

␣1NS05 = 3159

Definition
06127 0 50000 1 00740 1226 1NS05 CLA DOTAGZ+5,1 TEST TO SEE IF TRANSFER F2212320

␣1NS10 = 3170

Definition
06142 0 50000 0 03757 1237 1NS10 CLA L(6) ENTER F2212430

References (7)

06101	−0 10000 0 06142	1204	TNZ	1NS10 GO TO 1NS10	F2212100
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
06107	−0 10000 0 06142	1210	TNZ	1NS10	F2212160
06111	3 00001 4 06142	1212	TXH	1NS10,4,1 GO TO 1NS10	F2212180
06126	−0 10000 0 06142	1225	TNZ	1NS10	F2212310
06130	0 12000 0 06142	1227	TPL	1NS10 STORE NECESSARY.	F2212330

␣1NS20 = 3174

Definition
A 06146 0 00000 0 00000 1241 1NS20 HTR F2212470

References (2)

	06075	−0 63400 4 06146	1200	1NS00	SXD	1NS20,4 SAVE LINKAGE	F2212060
	06144	−0 53400 4 06146	1239		LXD	1NS20,4 AND EXIT.	F2212450

␣2BITS = 2050

Definition
04002 −200000000000 96 2BITS OCT −200000000000 S AND 1 BIT F2200920

References (2)

	04274	−0 32000 0 04002	283		ANA	2BITS TRANSFERS OR COMPUTATION WITH	F2202830
	04473	−0 32000 0 04002	410		ANA	2BITS WITH A RELCON, DETERMINE WHETHER OR	F2204160

␣2NS00 = 3175

Definition

		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

Reference
05121 0 07400 4 06147 696 BRA40 TSX 2NS00,4 ROUTINES F2207030

␣2NS10 = 3176

Definition
06150 −0 53400 1 03731 1245 2NS10 LXD DOSUBS,1 2NS10 T0 2NS80 DETERMINE THE F2212510

␣2NS20 = 3181

Definition
06155 −3 00005 1 06160 1250 2NS20 TXL 2NS30,1,5 F2212560
Reference
06153 3 00003 1 06155 1248 TXH 2NS20,1,3 F2212540

␣2NS25 = 3183

Definition
D 06157 −3 00000 0 06161 1252 2NS25 TXL 2NS40,0 F2212580

References (2)

	06147	−0 63400 4 06157	1244	2NS00	SXD	2NS25,4 SAVE LINKAAGE	F2212500
	06244	−0 53400 4 06157	1305	2NSEND	LXD	2NS25,4 EXIT	F2213110

␣2NS30 = 3184

Definition
06160 0 40200 0 03721 1253 2NS30 SUB L3 F2212590
Reference
06155 −3 00005 1 06160 1250 2NS20 TXL 2NS30,1,5 F2212560

␣2NS40 = 3185

Definition
06161 −0 12000 0 06174 1254 2NS40 TMI 2NS70 F2212600
Reference
D 06157 −3 00000 0 06161 1252 2NS25 TXL 2NS40,0 F2212580

␣2NS50 = 3191

Definition
06167 −0 53400 4 03734 1260 2NS50 LXD DUPES,4 THIS DUPE TEST IS AN ADJUSTMENT F2212660

References (2)

	06164	−3 00003 1 06167	1257		TXL	2NS50,1,3	F2212630
	06166	1 00002 2 06167	1259		TXI	2NS50,2,2	F2212650

␣2NS60 = 3194

Definition
06172 0 50000 0 03752 1263 2NS60 CLA L(1) F2212690

References (3)

06163	−0 10000 0 06172	1256	TNZ	2NS60	F2212620
06165	−3 00005 1 06172	1258	TXL	2NS60,1,5	F2212640
06170	3 00000 4 06172	1261	TXH	2NS60,4,0 FOR DUPLICATES IN A REDUCED	F2212670

␣2NS65 = 3195

Definition
D 06173 −3 00000 0 06175 1264 2NS65 TXL 2NS80,0 F2212700

References (2)

	06235	−0 63400 1 06173	1298	2NS91	SXD	2NS65,1	F2213040
	06242	−0 53400 1 06173	1303		LXD	2NS65,1 RESETTING NECESSARY, EXECUTE	F2213090

␣2NS70 = 3196

Definition
06174 0 50000 0 03757 1265 2NS70 CLA L(6) F2212710
Reference
06161 −0 12000 0 06174 1254 2NS40 TMI 2NS70 F2212600

␣2NS80 = 3197

Definition
06175 0 60100 0 03703 1266 2NS80 STO GR0UP F2212720
Reference
D 06173 −3 00000 0 06175 1264 2NS65 TXL 2NS80,0 F2212700

␣2NS82 = 3203

Definition
06203 −3 00005 2 06206 1272 2NS82 TXL 2NS84,2,5 IS NECESSARY F2212780
Reference
06201 3 00003 2 06203 1270 TXH 2NS82,2,3 SEQUENCE TO DETERMINE F2212760

␣2NS84 = 3206

Definition
06206 0 56000 0 03721 1275 2NS84 LDQ L3 F2212810
Reference
06203 −3 00005 2 06206 1272 2NS82 TXL 2NS84,2,5 IS NECESSARY F2212780

␣2NS86 = 3207

Definition
06207 −3 00001 4 06220 1276 2NS86 TXL 2NS88,4,1 TEST GROUP F2212820
Reference
06205 0 02000 0 06207 1274 TRA 2NS86 F2212800

␣2NS88 = 3216

Definition
06220 0 60100 0 03741 1285 2NS88 STO TL2 F2212910
Reference
06207 −3 00001 4 06220 1276 2NS86 TXL 2NS88,4,1 TEST GROUP F2212820

␣2NS90 = 3223

Definition
06227 0 60100 0 03746 1292 2NS90 STO REBITS 2NS90 SEQ. SINGLE REBITS F2212980

References (3)

06214	−3 00005 2 06227	1281	TXL	2NS90,2,5	F2212870
06217	0 02000 0 06227	1284	TRA	2NS90	F2212900
06224	3 00003 2 06227	1289	TXH	2NS90,2,3	F2212950

␣2NS91 = 3229

Definition
06235 −0 63400 1 06173 1298 2NS91 SXD 2NS65,1 F2213040
Reference
06231 0 10000 0 06235 1294 TZE 2NS91 RESETTING SC,IT MUST BE F2213000

␣3NS00 = 3238

Definition

		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

Reference
05135 0 07400 4 06246 708 BRA80 TSX 3NS00,4 F2207150

␣ADRUM = 195

Definition
00303 2091 ADRUM EQU 195 F2220870

References (2)

	04052	0 76600 0 00303	136		WRS	ADRUM WRITE.	F2201320
	05043	0 76600 0 00303	646		WRS	ADRUM SELECT DRUMF	F2206535

␣ADTXX = 2054

Definition
04006 0 00000 0 00144 100 ADTXX 100 F2200960

References (10)

04135	0 53400 4 04006	187		LXA	ADTXX,4 INIT	F2201850
04136	−0 63400 4 04006	188		SXD	ADTXX,4 DECS	F2201860
04213	−0 53400 1 04006	234		LXD	ADTXX,1 TRANSFER	F2202310
04215	0 53400 1 04006	236		LXA	ADTXX,1 ALL ENTRIESP	F2202340
05207	−0 53400 2 04006	750		LXD	ADTXX,2 PROCESSES THE	F2207570
05211	0 53400 2 04006	752		LXA	ADTXX,2	F2207590
05256	−0 53400 1 04006	790	TAGAD1	LXD	ADTXX,1	F2207970
05271	−0 63400 1 04006	801	TAGAD2	SXD	ADTXX,1	F2208080
06415	−0 53400 1 04006	1995		LXD	ADTXX,1 PREPARE XRA AND DEC 0	F2219970
06417	0 53400 1 04006	1997		LXA	ADTXX,1	F2219990

␣ALPHA = 1982

Definition
03676 26 ALPHA BSS 1 ALPHA CURRENT DO F2200240

References (6)

04354	−0 50100 0 03676	331		ORA	ALPHA	F2203320
04366	0 60100 0 03676	341		STO	ALPHA ALPHA,BETA,XC,XL	F2203430
04403	0 34000 0 03676	354		CAS	ALPHA CONTAINS THE SUBSCRIPT	F2203560
04662	0 40000 0 03676	533		ADD	ALPHA	F2205400
06064	0 50000 0 03676	1190	NAM44	CLA	ALPHA AND	F2211960
06133	0 50000 0 03676	1815		CLA	ALPHA THESE INSTRUCTIONS SET UP	F2218170

␣ATAPE = 148

Definition
00224 2089 ATAPE EQU 148 F2220850

References (2)

	04043	0 77000 0 00224	129	END	WEF	ATAPE WEF ON TAGTAG TAPE	F2201250
	05522	0 76600 0 00224	961	TETAPE	WRS	ATAPE THIS ROUTINE	F2209680

␣BEG10 = 2060

Definition
04014 0 50000 1 05106 106 BEG10 CLA LADDIN+5,1 DRUM PROGRAM F2201020
Reference
04017 2 00001 1 04014 109 TIX BEG10,1,1 F2201040

␣BEGIN = 2058

Definition
04012 0 77200 0 00223 104 BEGIN REW DOTAPE REWIND DOTAG TAPE F2201000

␣BIT18 = 2051

Definition
04003 +000000400000 97 BIT18 OCT 400000 F2200930

References (4)

05143	−0 32000 0 04003	714		ANA	BIT18 INSTRUCTION BEEN ENTERED.	F2207210
05145	0 50000 0 04003	716		CLA	BIT18 IF NOT, ENTER IN	F2207230
	04003	2095	ABIT	SYN	BIT18	F2220910
	04003	2097	SUBBIT	SYN	BIT18	F2220930

␣BIT19 = 2052

Definition
04004 +000000200000 98 BIT19 OCT 200000 F2200940

References (2)

	04271	−0 32000 0 04004	280		ANA	BIT19	F2202800
	04470	0 50000 0 04004	407	TAG66	CLA	BIT19	F2204120

␣BIT20 = 2053

Definition
04005 +000000100000 99 BIT20 OCT 100000 F2200950

References (3)

04276	0 50000 0 04005	285		CLA	BIT20 TEST FOR	F2202850
05724	0 50000 0 04005	1678		CLA	BIT20	F2216800
	04005	2096	BBIT	SYN	BIT20	F2220920

␣BLOCK = 3386

Definition
06472 2045 BLOCK BSS 60 F2220470

References (14)

06217	0 70000 0 06472	1867	FS10	CPY	BLOCK COPY FORMULA NR.	F2218690
06221	0 70000 0 06473	1869		CPY	BLOCK+1 A LESS,COPY BALANCE OF	F2218710
06223	0 70000 0 06474	1871		CPY	BLOCK+2 ADJUST XRA FOR THIS	F2218730
06225	0 70000 2 06566	1873	FS20	CPY	BLOCK+60,2 COPY NEXT FOR. NR.	F2218750
06227	0 40200 0 06472	1875	FS25	SUB	BLOCK TEST FIRST ENTRY.	F2218770
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
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
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
06252	0 40200 2 06570	1894		SUB	BLOCK+62,2 SUMS.	F2218960
06261	0 34000 2 06567	1901	BS20	CAS	BLOCK+61,2 IS THREE.	F2219030
06315	0 50000 2 06566	1929		CLA	BLOCK+60,2 PREPARED,NOW PREPARE	F2219310

␣BRA10 = 2634

Definition
05112 −0 53400 1 03726 689 BRA10 LXD NRDS,1 THIS ROUTINE F2206960

References (2)

	05110	0 10000 0 05112	687		TZE	BRA10 USE	F2206940
	05553	−3 00001 2 05112	987	REL50	TXL	BRA10,2,1 IF STATE A, RETURN-TO BRANCH.	F2209940

␣BRA20 = 2636

Definition
05114 0 07400 4 06075 691 BRA20 TSX 1NS00,4 DUPLICATE F2206980

References (2)

	05120	−0 10000 0 05114	695		TNZ	BRA20 TO	F2207020
	05124	3 00006 4 05114	699		TXH	BRA20,4,6 PROCESSING,	F2207060

␣BRA30 = 2638

Definition
05116 3 00002 1 05123 693 BRA30 TXH BRA50,1,2 AND F2207000
Reference
05113 3 00001 1 05116 690 TXH BRA30,1,1 CONDENSES F2206970

␣BRA40 = 2641

Definition
05121 0 07400 4 06147 696 BRA40 TSX 2NS00,4 ROUTINES F2207030
Reference
05134 0 02000 0 05121 707 TRA BRA40 F2207140

␣BRA45 = 2642

Definition
D 05122 −3 00000 0 05136 697 BRA45 TXL BRA90,0 1NS00, 2NS00, 3NS00 F2207040

References (2)

	05106	−0 63400 4 05122	685	BRANCH	SXD	BRA45,4 IF THERE ARE RELCONS	F2206920
	05136	−0 53400 4 05122	709	BRA90	LXD	BRA45,4	F2207160

␣BRA50 = 2643

Definition
05123 −0 53400 4 03734 698 BRA50 LXD DUPES,4 AFTER F2207050
Reference
05116 3 00002 1 05123 693 BRA30 TXH BRA50,1,2 AND F2207000

␣BRA60 = 2650

Definition
05132 0 50000 0 03756 705 BRA60 CLA L(5) F2207120

References (2)

	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

␣BRA70 = 2651

Definition
05133 0 60100 0 03731 706 BRA70 STO DOSUBS F2207130
Reference
05131 0 02000 0 05133 704 TRA BRA70 F2207110

␣BRA80 = 2653

Definition
05135 0 07400 4 06246 708 BRA80 TSX 3NS00,4 F2207150
Reference
05125 −3 00000 4 05135 700 TXL BRA80,4,0 RETURN F2207070

␣BRA90 = 2654

Definition
05136 −0 53400 4 05122 709 BRA90 LXD BRA45,4 F2207160

References (2)

	05115	0 02000 0 05136	692		TRA	BRA90 SUBSCRIPTS	F2206990
D	05122	−3 00000 0 05136	697	BRA45	TXL	BRA90,0 1NS00, 2NS00, 3NS00	F2207040

␣CAR05 = 2552

Definition
D 04770 −3 00000 0 05022 603 CAR05 TXL CAR30,0 F2206100

References (2)

	04754	−0 63400 4 04770	591	CARRY	SXD	CAR05,4 SAVE LINKAGE	F2205980
	05022	−0 53400 4 04770	629	CAR30	LXD	CAR05,4 EXIT	F2206I60

␣CAR10 = 2562

Definition
05002 0 20000 4 00737 613 CAR10 MPY DOTAGZ+4,4 IF THESE QUANTIT1ES F2206200
Reference
05000 3 00002 2 05002 611 TXH CAR10,2,2 INCREMENT TIMES DIM. OF F2206180

␣CAR15 = 2574

Definition
05016 0 50000 0 03775 625 CAR15 CLA CR2 TAGTAG CARRY BIT, F2206320
Reference
05013 0 02000 0 05016 622 TRA CAR15 OR CARRY TYPE F2206290

␣CAR20 = 2575

Definition
05017 3 00002 2 05021 626 CAR20 TXH CAR25,2,2 SHIFT IF NECESSARY FOR F2206330
Reference
05015 0 02000 0 05017 624 TRA CAR20 OBTAIN PROPER F2206310

␣CAR25 = 2577

Definition
05021 −0 60200 0 03737 628 CAR25 ORS CARWRD PLACE IN CARWRD. F2206350
Reference
05017 3 00002 2 05021 626 CAR20 TXH CAR25,2,2 SHIFT IF NECESSARY FOR F2206330

␣CAR30 = 2578

Definition
05022 −0 53400 4 04770 629 CAR30 LXD CAR05,4 EXIT F2206I60

References (4)

	04763	0 10000 0 05022	598		TZE	CAR30 EXIT IF NO CARRY.	F2206050
	04767	0 02000 0 05022	602		TRA	CAR30 EXIT	F2206090
D	04770	−3 00000 0 05022	603	CAR05	TXL	CAR30,0	F2206100
	05006	−0 10000 0 05022	617		TNZ	CAR30 OBTAIN LEFT	F2206240

␣CAR40 = 2580

Definition
A 05024 0 00000 0 00000 631 CAR40 HTR E.S. F2206380

References (4)

04773	0 60100 0 05024	606	STO	CAR40 C*X (COEF. TIMES ADDED	F2206130
04774	0 56000 0 05024	607	LDQ	CAR40 VALUE).	F2206140
04776	−0 60000 0 05024	609	STQ	CAR40 SUBSCRIPT THE QUANTITY	F2206160
05005	0 40200 0 05024	616	SUB	CAR40	F2206230

␣CARRY = 2540

Definition
04754 −0 63400 4 04770 591 CARRY SXD CAR05,4 SAVE LINKAGE F2205980

References (3)

06171	0 07400 4 04754	1262	TSX	CARRY,4 3NS CASE.	F2212680
06273	0 07400 4 04754	1331	TSX	CARRY,4 AND TSX TO CARRY	F2213370
06301	0 07400 4 04754	1337	TSX	CARRY,4 AND TSX TO CARRY	F2213430

␣CORES = 2934

Definition
05566 −0 53400 1 00030 1584 CORES LXD DOTAG−1,1 F2215860

References (4)

D	05554	−3 00000 0 05566	988	REL60	TXL	CORES,0 AND TRA TO REL ROUTINE	F2209950
	07745	0 70000 1 05566	2061	PG30	CPY	CORES,1	F2220620
	07751	0 36100 1 05566	2065	PG40	ACL	CORES,1	F2220660
		06566	2098	CORESZ	SYN	CORES+512	F2220940

␣DELTA = 2010

Definition
03732 54 DELTA BSS 1 F2200520

References (9)

06022	0 60100 0 03732	1156		STO	DELTA	F2211620
05576	−0 53400 4 03732	1592		LXD	DELTA,4 PUT DELTA IN XRC	F2215940
05634	−0 53400 4 03732	1622		LXD	DELTA,4 RETURN HERE	F2216240
05701	−0 53400 4 03732	1659		LXD	DELTA,4	F2216610
05732	−0 53400 4 03732	1684	DSDR92	LXD	DELTA,4 RETURN HERE	F2216860
06020	0 60100 0 03732	1738		STO	DELTA	F2217400
06144	−0 53400 4 03732	1824		LXD	DELTA,4 SEARCH ROUTINE. UPON RETURN,	F2218260
06257	−0 53400 4 03732	1899		LXD	DELTA,4 THE STORAGE BLOCK FOR	F2219010
06351	0 60100 0 03732	1957		STO	DELTA	F2219590

␣DOF10 = 2228

Definition
04264 3 00702 1 04164 275 DOF10 TXH NESTEN,1,450 IF ANY. F2202750
Reference
04263 1 00011 1 04264 274 TXI DOF10,1,9 NEXT BACK DO, F2202740

␣DOF15 = 2241

Definition
04301 0 50000 1 00741 288 DOF15 CLA DOTAGZ+6,1 HAS A COUNTER BEEN F2202880
Reference
04275 −0 10000 0 04301 284 TNZ DOF15 SYMBOL. F2202840

␣DOF20 = 2245

Definition
04305 0 50000 1 00740 292 DOF20 CLA DOTAGZ+5,1 IF NO COUNTER NECESSARY, F2202920
Reference
04300 0 10000 0 04305 287 TZE DOF20 INSERT F2202870

␣DOF30 = 2252

Definition
04314 0 50000 1 00743 299 DOF30 CLA DOTAGZ+8,1 IF SYM HAS NOT OCCURRED WITH F2202990
Reference
04307 0 10000 0 04314 294 TZE DOF30 RECON NOT AS TYPE ONE F2202940

␣DOF40 = 2258

Definition
04322 0 50000 0 04325 305 DOF40 CLA DOF50 MADE. TAKE SIGN AND F2203030

References (4)

04303	−0 10000 0 04322	290	TNZ	DOF40 IF NOT,	F2202900
04312	3 00000 2 04322	297	TXH	DOF40,2,0 IF NOT,	F2202970
04317	−3 00013 2 04322	302	TXL	DOF40,2,11 CARRY, IS CURRECT TEST	F2203020
04362	0 02000 0 04322	337	TRA	DOF40 RETURN	F2203390

␣DOF50 = 2261

Definition
04325 +007777777777 308 DOF50 OCT 7777777777 F2203080
Reference
04322 0 50000 0 04325 305 DOF40 CLA DOF50 MADE. TAKE SIGN AND F2203030

␣DOFOR = 2226

Definition
04262 −0 53400 1 03674 273 DOFOR LXD XC,1 OBTAIN F2202730

References (2)

	04150	0 02000 0 04262	198		TRA	DOFOR IF NO ERROR, GO TO DOFOR.	F2201960
	04324	0 02000 0 04262	307		TRA	DOFOR OF TEST WORD AND EXIT.	F2203070

␣DOREC = 1976

Definition
03670 20 DOREC BSS 1 (INIT ZERO) F2200180

References (5)

04021	0 60100 0 03670	111	STO	DOREC	F2201060
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
04251	0 50000 0 03670	264	CLA	DOREC WRITE	F2202620
04253	0 60100 0 03670	266	STO	DOREC ON	F2202640

␣DOTAG = 25

Definition
00031 13 DOTAG BSS 1 F2200100

References (3)

04127	−0 63400 2 00030	181		SXD	DOTAG−1,2 INITIALIZE	F2201790
04235	−0 53400 1 00030	252	NST100	LXD	DOTAG−1,1	F2202490
05566	−0 53400 1 00030	1584	CORES	LXD	DOTAG−1,1	F2215860

␣DRM05 = 2698

Definition
D 05212 −3 00000 0 05241 753 DRM05 TXL DRM20,0 F2207600

References (2)

	05206	−0 63400 4 05212	749	DRMENT	SXD	DRM05,4 THIS ROUTINE	F2207560
	05242	−0 53400 4 05212	777		LXD	DRM05,4	F2207840

␣DRM10 = 2699

Definition
05213 0 50000 2 07135 754 DRM10 CLA ADTAGZ,2 OBTAIN FIRST ENTRY WORD. F2207610
Reference
D 05241 3 00000 2 05213 776 DRM20 TXH DRM10,2 F2207830

␣DRM15 = 2719

Definition
05237 −0 53400 2 05244 774 DRM15 LXD DRM30,2 F2207810
Reference
05253 0 02000 0 05237 786 TRA DRM15 TRA FOR NEXT ENTRY. F2207930

␣DRM20 = 2721

Definition
D 05241 3 00000 2 05213 776 DRM20 TXH DRM10,2 F2207830

References (3)

	05210	−0 63400 2 05241	751		SXD	DRM20,2 ADDED TAG TABLE	F2207580
D	05212	−3 00000 0 05241	753	DRM05	TXL	DRM20,0	F2207600
	05240	1 77776 2 05241	775		TXI	DRM20,2,−2	F2207820

␣DRM30 = 2724

Definition
A 05244 0 00000 0 00000 779 DRM30 HTR F2207860

References (2)

	05222	−0 63400 2 05244	761		SXD	DRM30,2 SAVE INDEX B.	F2207680
	05237	−0 53400 2 05244	774	DRM15	LXD	DRM30,2	F2207810

␣DRM40 = 2725

Definition
05245 0 73400 4 00000 780 DRM40 PAX 0,4 FOR RESET ENTRY, F2207870
Reference
05224 −0 12000 0 05245 763 TMI DRM40 TRA IF RESET ENTRY. F2207700

␣DUPES = 2012

Definition
03734 56 DUPES BSS 1 BIT POS 15,16,17 EQ 1 FOR CORRES DUPE DOSUBS F2200540

References (11)

04617	−0 50100 0 03734	498		ORA	DUPES	F2205050
04626	0 50000 0 03734	505		CLA	DUPES	F2205120
05117	0 50000 0 03734	694		CLA	DUPES TRANSFERS	F2207010
05123	−0 53400 4 03734	698	BRA50	LXD	DUPES,4 AFTER	F2207050
05670	−0 60200 0 03734	1066		ORS	DUPES DUPLICATE	F2210720
05700	0 50000 0 03734	1074		CLA	DUPES DUPLICATES, THEN THE	F2210800
05703	0 60100 0 03734	1077		STO	DUPES ARE DUPLICATES.	F2210830
06012	0 50000 0 03734	1148		CLA	DUPES IF TWO DISTINCT DOSUBS,	F2211540
06167	−0 53400 4 03734	1260	2NS50	LXD	DUPES,4 THIS DUPE TEST IS AN ADJUSTMENT	F2212660
06230	−0 32000 0 03734	1293		ANA	DUPES ARE PART OF THE TAG OF THE	F2212990
06233	−0 50100 0 03734	1296		ORA	DUPES	F2213020

␣END10 = 2089

Definition
04051 0 76600 0 00333 135 END10 WRS 219 DELAY. F2201310
Reference
04066 2 00001 1 04051 148 TIX END10,1,1 CHATAG, DRMTAG) F2201440

␣END20 = 2107

Definition
04073 −0 53400 1 04113 153 END20 LXD END85,1 F2201490
Reference
04071 3 00000 1 04073 151 TXH END20,1,0 SL 99 ON, DOTAG EMPTY, F2201470

␣END30 = 2110

Definition
04076 0 77000 0 00222 156 END30 WEF TAPE2 WRITE EOF AFTER DONEST RECORDS F2201520
Reference
04074 3 00000 1 04076 154 TXH END30,1,0 F2201500

␣END80 = 2122

Definition
A 04112 0 00000 0 00000 168 END80 HTR ES. (DEC HAS 1 IF FORVAL NOT EMPTY) F2201640

References (3)

04027	−0 63400 4 04112	117		SXD	END80,4 ON, EMPTY	F2201130
04070	−0 53400 1 04112	150		LXD	END80,1 SL 100 ON, FORVAL EMPTY	F2201450
06123	−0 53400 1 04112	1807	DS4VAL	LXD	END80,1 OBTAIN FORVAL EMPTY INDICATOR,	F2218090

␣END85 = 2123

Definition
A 04113 0 00000 0 00000 169 END85 HTR FOR (DEC HAS 1 IF DOTAG NOT EMPTY) F2201650

References (2)

	04032	−0 63400 2 04113	120		SXD	END85,2 SAVE TABLE INFO 1N END PROG.	F2201160
	04073	−0 53400 1 04113	153	END20	LXD	END85,1	F2201490

␣END90 = 2124

Definition
A 04114 0 00000 0 00000 170 END90 HTR END F2201670

References (2)

	04055	0 62100 0 04114	139		STA	END90 TABLE	F2201350
	04063	0 46000 0 04114	145		LDA	END90 WORDS	F2201410

␣END95 = 2125

Definition
A 04115 0 00000 0 00000 171 END95 HTR PROGRAM. F2201680

References (3)

04062	0 60100 0 04115	144	STO	END95 TWO	F2201400
04064	0 70000 0 04115	146	CPY	END95 PRECEDING	F2201420
04065	0 70000 0 04115	147	CPY	END95 EACH TABLE . (TSXCOM, TRASTO, NAMKEY,	F2201430

␣FORAD = 3314

Definition
A 06362 0 00000 0 00000 1966 FORAD HTR DRUM ADDRESS FOR LDA INSTR. F2219680

References (5)

06141	0 60100 0 06362	1821	STO	FORAD FORVAL DRUM ENTRY,STORE IN	F2218230
06171	0 60100 0 06362	1845	STO	FORAD	F2218470
06204	0 60100 0 06362	1856	STO	FORAD	F2218580
06215	0 46000 0 06362	1865	LDA	FORAD FIND FIRST OR NEXT ADDRESS	F2218670
06305	0 60100 0 06362	1921	STO	FORAD	F2219230

␣FORTZ = 1976

Definition
03670 18 FORTZ BSS 1 F2200160

References (7)

04401	0 50000 1 03670	352	TAG05	CLA	FORTZ,1 IN THE RANGE OF THE	F2203540
04416	0 50000 1 03670	365		CLA	FORTZ,1 THEN IT HAS ALREADY	F2203670
04502	0 50000 1 03670	417	TAG72	CLA	FORTZ,1 OF THIS TAG, IN FORTAG,	F2204240
04507	0 50000 1 03670	422		CLA	FORTZ,1	F2204280
04514	−0 60200 1 03670	427		ORS	FORTZ,1	F2204330
05420	0 50000 1 03670	890	TINF10	CLA	FORTZ,1 OBTAIN FORTAG ENTRY	F2208970
05433	0 50000 1 03670	902		CLA	FORTZ,1 LESS THAN BETA,OBTAIN FORTAG	F2209090

␣GR0UP = 1987

Definition
03703 31 GR0UP BSS 1 GROUP NR. IN DEC F2200290

References (6)

04614	0 50000 0 03703	495	SCEND	CLA	GR0UP ALL OF SCEND IS CONCERNED	F2205020
04672	−0 50100 0 03703	541		ORA	GR0UP TABLE SEARCH MASK IN	F2205480
06143	0 60100 0 03703	1238		STO	GR0UP GROUP NR.	F2212440
06175	0 60100 0 03703	1266	2NS80	STO	GR0UP	F2212720
06265	0 60100 0 03703	1325		STO	GR0UP OR INTO TAG 1	F2213310
06303	−0 53400 1 03703	1339		LXD	GR0UP,1 THROUGH 3GRP72, COMPUTES	F2213450

␣ID010 = 2938

Definition
05572 0 60100 1 03740 1004 ID010 STO X1+20,1 F2210100
Reference
05573 2 00001 1 05572 1005 TIX ID010,1,1 F2210110

␣ID020 = 2944

Definition
05600 0 50000 4 03712 1010 ID020 CLA S1+5,4 STORE COUNT IN F2210160
Reference
05603 2 00002 4 05600 1013 ID030 TIX ID020,4,2 COUNT OF REL. CON. F2210190

␣ID030 = 2947

Definition
05603 2 00002 4 05600 1013 ID030 TIX ID020,4,2 COUNT OF REL. CON. F2210190

References (2)

	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

␣ID050 = 2954

Definition
05612 0 50000 1 00734 1020 ID050 CLA DOTAGZ+1,1 DO IN THE SUB NEST. F2210260
Reference
05631 0 02000 0 05612 1035 TRA ID050 F2210410

␣ID060 = 2956

Definition
05614 0 34000 4 03712 1022 ID060 CAS S1+5,4 FOUND, GO TO ID120. F2210280
Reference
05617 2 00002 4 05614 1025 ID070 TIX ID060,4,2 MAKE EXIT FROM ID410 F2210310

␣ID070 = 2959

Definition
05617 2 00002 4 05614 1025 ID070 TIX ID060,4,2 MAKE EXIT FROM ID410 F2210310

References (2)

	05615	0 02000 0 05617	1023		TRA	ID070 IF THE CURRENT DO	F2210290
	05645	0 02000 0 05617	1047		TRA	ID070 COMBINATION.	F2210530

␣ID075 = 2962

Definition
D 05622 −3 00000 0 06025 1028 ID075 TXL ID410,0 F2210340

References (3)

05566	−0 63400 4 05622	1000	IDENT	SXD	ID075,4 SAVE INDEX	F2210060
06023	−0 53400 4 05622	1157	ID400	LXD	ID075,4 EXIT,	F2211630
06025	−0 53400 4 05622	1159	ID410	LXD	ID075,4 EXIT,	F2211650

␣ID080 = 2963

Definition
05623 −3 00001 2 05646 1029 ID080 TXL ID150,2,1 THESE INSTRUCTIONS F2210350
Reference
05621 0 02000 0 05623 1027 TRA ID080 F2210330

␣ID090 = 2964

Definition
05624 1 00011 1 05625 1030 ID090 TXI ID100,1,9 FIND THE NEXT BACK F2210360
Reference
D 05627 −3 00000 2 05624 1033 ID110 TXL ID090,2 TO ID050. F2210390

␣ID100 = 2965

Definition
05625 0 50000 1 00740 1031 ID100 CLA DOTAGZ+5,1 SUB NEST DO FORMULA, F2210370
Reference
05624 1 00011 1 05625 1030 ID090 TXI ID100,1,9 FIND THE NEXT BACK F2210360

␣ID110 = 2967

Definition
D 05627 −3 00000 2 05624 1033 ID110 TXL ID090,2 TO ID050. F2210390
Reference
05626 0 62200 0 05627 1032 STD ID110 AND RETURN CONTROL F2210380

␣ID120 = 2970

Definition
05632 −0 76000 0 00141 1036 ID120 MSE TL TURN OFF TEST LIGHT F2210420
Reference
05616 0 02000 0 05632 1024 TRA ID120 SYMBOL IS NOT FOUND, F2210300

␣ID150 = 2982

Definition
05646 0 76600 0 00333 1048 ID150 IOD THIS - EDRECN0 FN 265001 P463 F2210540

References (2)

	05623	−3 00001 2 05646	1029	ID080	TXL	ID150,2,1 THESE INSTRUCTIONS	F2210350
	05643	0 10000 0 05646	1045		TZE	ID150 THE NUMBER OF	F2210510

␣ID160 = 2995

Definition
05663 0 50000 1 03710 1061 ID160 CLA S1+3,1 WHICH CAN BE ASSIGNED F2210670

References (3)

05661	0 02000 0 05663	1059		TRA	ID160 RETURN	F2210650
05672	2 00002 2 05663	1068	ID180	TIX	ID160,2,2 WORD.	F2210740
05674	2 00002 1 05663	1070	ID190	TIX	ID160,1,2	F2210760

␣ID170 = 3001

Definition
05671 2 00001 4 05672 1067 ID170 TIX ID180,4,1 SUBSCRIPT F2210730

References (2)

	05664	0 10000 0 05671	1062		TZE	ID170 HAVE BEEN ASSIGNED.	F2210680
	05666	−0 10000 0 05671	1064		TNZ	ID170 ROUTINE	F2210700

␣ID180 = 3002

Definition
05672 2 00002 2 05663 1068 ID180 TIX ID160,2,2 WORD. F2210740
Reference
05671 2 00001 4 05672 1067 ID170 TIX ID180,4,1 SUBSCRIPT F2210730

␣ID190 = 3004

Definition
05674 2 00002 1 05663 1070 ID190 TIX ID160,1,2 F2210760
Reference
05673 2 00001 4 05674 1069 TIX ID190,4,1 F2210750

␣ID195 = 3012

Definition
05704 −0 53400 4 03756 1078 ID195 LXD L(5),4 IF THERE ARE RELCONS, F2210840
Reference
05677 −3 00001 2 05704 1073 TXL ID195,2,1 AND IF THERE ARE F2210790

␣ID200 = 3013

Definition
05705 0 50000 4 03722 1079 ID200 CLA L1+5,4 THERE ARE NOT MORE F2210850
Reference
05720 2 00002 4 05705 1090 ID210 TIX ID200,4,2 F2210960

␣ID205 = 3020

Definition
05714 −0 60200 0 03730 1086 ID205 ORS RCSUBS F2210920
Reference
05712 −3 00001 4 05714 1084 TXL ID205,4,1 PROPER POSITIONS OF F2210900

␣ID210 = 3024

Definition
05720 2 00002 4 05705 1090 ID210 TIX ID200,4,2 F2210960

References (2)

	05706	−0 10000 0 05720	1080		TNZ	ID210 THAN TWO.	F2210860
	05710	0 10000 0 05720	1082		TZE	ID210 IN PSYM1 AND RSYM2,	F2210880

␣ID220 = 3026

Definition
05722 0 60100 0 03735 1092 ID220 STO RSYM1 F2210980
Reference
05716 −2 00001 2 05722 1088 TNX ID220,2,1 F2210940

␣ID300 = 3027

Definition
05723 −0 53400 4 03756 1093 ID300 LXD L(5),4 FOR ALL DO SUBS, F2210990

References (2)

	05676	−3 00000 2 05723	1072		TXL	ID300,2,0 THAN ONE RELCON,	F2210780
	05721	0 02000 0 05723	1091		TRA	ID300	F2210970

␣ID310 = 3028

Definition
05724 0 50000 4 03721 1094 ID310 CLA X1+5,4 SELECT THE F2211000
Reference
05740 2 00002 4 05724 1106 ID340 TIX ID310,4,2 F2211120

␣ID320 = 3032

Definition
05730 0 50000 1 00741 1098 ID320 CLA DOTAGZ+6,1 QUANTITIES. F2211040
Reference
05737 2 00001 2 05730 1105 ID330 TIX ID320,2,1 F2211110

␣ID330 = 3039

Definition
05737 2 00001 2 05730 1105 ID330 TIX ID320,2,1 F2211110
Reference
05736 2 00001 1 05737 1104 TIX ID330,1,1 F2211100

␣ID340 = 3040

Definition
05740 2 00002 4 05724 1106 ID340 TIX ID310,4,2 F2211120
Reference
05725 0 10000 0 05740 1095 TZE ID340 MAXIMUM OF ALL F2211010

␣ID350 = 3043

Definition
05743 0 50000 4 03722 1109 ID350 CLA L1+5,4 WITH EACH SUBSCRIPT F2211150
Reference
06000 2 00002 4 05743 1138 ID380 TIX ID350,4,2 F2211440

␣ID360 = 3051

Definition
05753 −0 60200 0 03727 1117 ID360 ORS DORC IN THE DORC WORD. F2211230
Reference
05751 −3 00001 4 05753 1115 TXL ID360,4,1 AS REL. CONS. F2211210

␣ID370 = 3060

Definition
05764 0 34000 0 03723 1126 ID370 CAS LL FOR TRUE DO SUBS. F2211320
Reference
05746 0 02000 0 05764 1112 TRA ID370 EQUAL T0 THE MAXIMUN F2211180

␣ID372 = 3067

Definition
05773 −0 75400 4 00000 1133 ID372 PXD 0,4 PUT BITS IN F2211390

References (2)

	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

␣ID375 = 3070

Definition
05776 −0 60200 0 03731 1136 ID375 ORS DOSUBS WORD F2211420
Reference
05774 −3 00001 4 05776 1134 TXL ID375,4,1 PROPER POSITIONS F2211400

␣ID380 = 3072

Definition
06000 2 00002 4 05743 1138 ID380 TIX ID350,4,2 F2211440

References (3)

05744	0 10000 0 06000	1110	TZE	ID380 LEVEL, THOSE SUBSCRIPT	F2211160
05763	0 02000 0 06000	1125	TRA	ID380	F2211310
05777	1 00001 2 06000	1137	TXI	ID380,2,1	F2211430

␣ID385 = 3077

Definition
06005 −0 53400 2 03725 1143 ID385 LXD NRRC,2 THESE INSTRUCTIONS F2211490
Reference
06003 −0 10000 0 06005 1141 TNZ ID385 AT LEAST ONE SUBSCR IS A DOSUB F2211472

␣ID390 = 3086

Definition
06016 −0 53400 2 03726 1152 ID390 LXD NRDS,2 DELTA IS THREE. F2211580
Reference
06014 −3 00001 2 06016 1150 TXL ID390,2,1 IF ONE DOSUB, TWO F2211560

␣ID395 = 3089

Definition
06021 −0 75400 4 00000 1155 ID395 PXD 0,4 F2211610

References (5)

06011	−0 10000 0 06021	1147	TNZ	ID395 DELTA IS ONE.	F2211530
06013	−0 10000 0 06021	1149	TNZ	ID395 ONE RELCON, DELTA IS TWO.	F2211550
06015	1 00002 4 06021	1151	TXI	ID395,4,2 DISTINCT RELCONS,	F2211570
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

␣ID400 = 3091

Definition
06023 −0 53400 4 05622 1157 ID400 LXD ID075,4 EXIT, F2211630
Reference
06006 −3 00000 2 06023 1144 TXL ID400,2,0 COMPUTE DELTA. F2211500

␣ID410 = 3093

Definition
06025 −0 53400 4 05622 1159 ID410 LXD ID075,4 EXIT, F2211650
Reference
D 05622 −3 00000 0 06025 1028 ID075 TXL ID410,0 F2210340

␣IDENT = 2934

Definition
999 MASTER RECORD CARD = FN032 F2210055

05566 −0 63400 4 05622 1000 IDENT SXD ID075,4 SAVE INDEX F2210060

References (3)

04425	0 07400 4 05566	372	TSX	IDENT,4 USE IDENT.	F2203750
05231	0 07400 4 05566	768	TSX	IDENT,4 ROUTINES	F2207750
	05566	1583	ORG	IDENT STATE B	F2215850

␣L(1)A = 2037

Definition
03765 0 00000 0 00001 83 L(1)A 1 F2200790

References (6)

04337	0 40000 0 03765	318	ADD	L(1)A SUBSCRIPT AND	F2203180
05053	0 40000 0 03765	654	ADD	L(1)A ENTRY	F2206610
05266	0 40000 0 03765	798	ADD	L(1)A	F2208050
06041	0 40000 0 03765	1171	ADD	L(1)A NAME	F2211770
06136	0 40000 0 03765	1818	ADD	L(1)A	F2218200
06162	0 40000 0 03765	1838	ADD	L(1)A	F2218400

␣L(2)A = 2038

Definition
03766 0 00000 0 00002 84 L(2)A 2 F2200800
Reference
04054 0 40200 0 03766 138 SUB L(2)A DRUM F2201340

␣L(20) = 2032

Definition
03760 0 00024 0 00000 78 L(20) 0,0,20 F2200740
Reference
05567 −0 53400 1 03760 1001 LXD L(20),1 INITIALIZE IDENT STORAGE. F2210070

␣L(36) = 2033

Definition
03761 0 00044 0 00000 79 L(36) 0,0,36 F2200750

References (3)

05472	0 50000 0 03761	936	CLA	L(36) OBTAIN 36 IN DECREMENT	F2209430
05641	0 50000 0 03761	1627	CLA	L(36) FOR DELTA=2,SEPARATE	F2216290
06050	0 50000 0 03761	1763	CLA	L(36) PUT 36 IN ACC	F2217650

␣L(4)A = 2039

Definition
03767 0 00000 0 00004 85 L(4)A 4 F2200810
Reference
04343 −0 50100 0 03767 322 ORA L(4)A ENTRY F2203220

␣L(60) = 2034

Definition
03762 0 00074 0 00000 80 L(60) 0,0,60 F2200760

References (2)

	06245	−0 53400 2 03762	1889	CS00	LXD	L(60),2 THIS ROUTINE COMPUTES	F2218910
	06260	−0 53400 2 03762	1900	BS10	LXD	L(60),2 RSYM1,AND RSYM2 IF DELTA	F2219020

␣L(MZ) = 2040

Definition
03770 −0 00000 0 00000 86 L(MZ) MZE F2200820

References (4)

04513	−0 50000 0 03770	426	CAL	L(MZ)	F2204320
04727	−0 50000 0 03770	570	CAL	L(MZ)	F2205770
06116	−0 50100 0 03770	1217	ORA	L(MZ) BEST TEST	F2212230
06122	−0 50000 0 03770	1221	CAL	L(MZ) SET CARWRD NEGATIVE.	F2212270

␣LADDS = 2620

Definition
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

References (10)

04016	0 60100 1 05101	108	STO	LADDS+5,1
04045	0 46000 0 05100	131	LDA	LADDS+4	F2201270
04060	0 40200 1 05101	142	SUB	LADDS+5,1 IN	F2201380
04103	0 50000 0 05075	161	CLA	LADDS+1 TRASTO CARRYOVER TO BLOCK 3	F2201570
04105	0 50000 0 05074	163	CLA	LADDS TSXCOM CARRYOVER TO BLOCK 3.	F2201590
04107	0 50000 0 05076	165	CLA	LADDS+2 NAMKEY (OR NAME) CARRYOVER TO BLOCK 3,	F2201610
05035	0 40200 1 05101	640	SUB	LADDS+5,1 FULL	F2206480
05045	0 46000 1 05101	648	LDA	LADDS+5,1 COPY	F2206550
05051	0 50000 1 05101	652	CLA	LADDS+5,1 COMPUTE	F2206590
05055	0 60100 1 05101	656	STO	LADDS+5,1	F2206630

␣LASTB = 2021

Definition
03745 67 LASTB BSS 1 F2200630

References (4)

05313	0 60100 0 03745	820	STO	LASTB BETING SEARCH FOR R2	F2208270
05364	0 50000 0 03745	861	CLA	LASTB CONTENTS OF NEXTA. FOR B,	F2208680
06163	0 60100 0 03745	1839	STO	LASTB	F2218410
06176	0 50000 0 03745	1850	CLA	LASTB	F2218520

␣NAM10 = 3102

Definition
TD 06036 −3 00000 0 06073 1168 NAM10 TXL NAM50 NOT FOUND F2211740

References (2)

	06030	−0 63400 4 06036	1162	NAME	SXD	NAM10,4 - SAVE LINKAGE	F2211680
	06073	−0 53400 4 06036	1197	NAM50	LXD	NAM10,4 EXIT	F2212030

␣NAM20 = 3103

Definition
06037 0 50000 0 03673 1169 NAM20 CLA NEWTAG OBTAIN F2211750
Reference
06035 0 02000 0 06037 1167 TRA NAM20 (FOUND) FOR NEGATICE TAG. F2211730

␣NAM30 = 3119

Definition
06057 −0 53400 2 03753 1185 NAM30 LXD L(2),2 NO TINFOR SEARCH REQUIRED. F2211910
Reference
06054 3 00000 4 06057 1182 TXH NAM30,4,0 DEPENDING UPON F2211880

␣NAM40 = 3121

Definition
06061 −0 53400 1 04011 1187 NAM40 LXD NAMXX,1 ENTER F2211930
Reference
06056 0 02000 0 06061 1184 TRA NAM40 WORD NRRC IS ZERO. I.E., ARE THERE RELCONS. F2211900

␣NAM44 = 3124

Definition
06064 0 50000 0 03676 1190 NAM44 CLA ALPHA AND F2211960
Reference
06062 3 00000 1 06064 1188 TXH NAM44,1,0 ALPHA, F2211940

␣NAM48 = 3130

Definition
06072 −0 63400 1 04011 1196 NAM48 SXD NAMXX,1 F2212020
Reference
06071 1 77776 1 06072 1195 TXI NAM48,1,−2 F2212010

␣NAM50 = 3131

Definition
06073 −0 53400 4 06036 1197 NAM50 LXD NAM10,4 EXIT F2212030
Reference
TD 06036 −3 00000 0 06073 1168 NAM10 TXL NAM50 NOT FOUND F2211740

␣NAMXX = 2057

Definition
04011 0 00000 0 00144 103 NAMXX 100 F2200990

References (8)

04143	0 53400 4 04011	193		LXA	NAMXX,4	F2201910
04144	−0 63400 4 04011	194		SXD	NAMXX,4	F2201920
04175	−0 53400 1 04011	219		LXD	NAMXX,1 PROCESS ADDED TAGS	F2202170
04177	0 53400 1 04011	222		LXA	NAMXX,1 ALL ENTRIES	F2202200
06061	−0 53400 1 04011	1187	NAM40	LXD	NAMXX,1 ENTER	F2211930
06072	−0 63400 1 04011	1196	NAM48	SXD	NAMXX,1	F2212020
06376	−0 53400 1 04011	1979	GETNAM	LXD	NAMXX,1 THIS ROUTINE SEARCHES	F2219810
06400	0 53400 1 04011	1981		LXA	NAMXX,1 OF TAU TAG IN A PARTICULAR	F2219830

␣NEXTA = 2020

Definition
03744 66 NEXTA BSS 1 F2200620

References (6)

05310	0 60100 0 03744	817		STO	NEXTA STO IN NEXTA	F2208240
05335	0 60100 0 03744	838		STO	NEXTA ACCOUNTED FOR AFTER SEARCH.	F2208450
05357	0 50000 0 03744	856		CLA	NEXTA IF IT IS,NEWR2 WILL BE FOUND	F2208630
05362	0 50000 0 03744	859	SPC110	CLA	NEXTA THIS IS SETUP FOR LAST	F2208660
06151	0 60100 0 03744	1829		STO	NEXTA SET UP TWO ADDITIONAL	F2218310
06174	0 50000 0 03744	1848	DS4V10	CLA	NEXTA A AND B FOR SECOND	F2218500

␣PAT01 = 2080

Definition
04040 0 50000 0 03777 126 PAT01 CLA FRSTAG INITIALIZE NEW TAG NAME BASE F2201220

␣PAT03 = 2424

Definition
04570 0 07400 4 00004 474 PAT03 TSX DIAG,4 IN READING TAU FROM DRUM. ERROR. GO TO DIAGNOSTIC. F2204815

␣PAT05 = 3098

Definition
06032 0 60100 0 03701 1164 PAT05 STO TS P463 F2211700

␣PP0NG = 4056

Definition
2047 MASTER RECORD CARD = FN029 F2220485

07730 −0 53400 2 07770 2048 PP0NG LXD PG80,2 ROUTINE PPONG SETS UP DRUM ONE FOR F2220490

␣PPDRM = 193

Definition
00301 2090 PPDRM EQU 193 F2220860
Reference
05537 0 76200 0 00301 975 RDS PPDRM LOCATE DRUM ADDRESS F2209820

␣PT041 = 2987

Definition
05653 0 56000 0 03720 1053 PT041 LDQ X3 OF A F2210590
Reference
05651 0 04000 0 05653 1051 TLQ PT041 OUTERM0ST F2210570

␣PT042 = 2990

Definition
05656 0 60100 0 05662 1056 PT042 STO PT043 F2210620
Reference
05654 0 04000 0 05656 1054 TLQ PT042 SUBSCRIPT F2210600

␣PT043 = 2994

Definition
A 05662 0 00000 0 00000 1060 PT043 HTR F2210660

References (2)

	05656	0 60100 0 05662	1056	PT042	STO	PT043	F2210620
	06033	−0 53400 1 05662	1165		LXD	PT043,1	F2211710

␣RCDUP = 2011

Definition
03733 55 RCDUP BSS 1 BIT POS 15,16,17,EQ1 FOR CORRES DUPE RELCONS F2200530

References (2)

	05701	0 60100 0 03733	1075		STO	RCDUP RELCONS ARE DUPLICATES.	F2210810
	06010	0 50000 0 03733	1146		CLA	RCDUP ONE DISTINCT RELCON,	F2211520

␣REL10 = 2909

Definition
05535 −0 53400 4 03756 973 REL10 LXD L(5),4 INITIALIZE ERROR COUNTER. F2209805
Reference
05556 0 02000 0 05535 990 TRA REL10 GO TO READ IN STATE A. F2209970

␣REL20 = 2910

Definition
05536 −0 53400 1 05565 974 REL20 LXD RELWDS,1 PUT NR OF DRM WDS IN XRA F2209810
Reference
05557 2 00001 4 05536 991 REL70 TIX REL20,4,1 COUNT IN ERROR COUNTER AND RETURN F2209980

␣REL30 = 2913

Definition
05541 0 70000 1 06566 977 REL30 CPY CORESZ,1 READ STATE B, OR A, INTO F2209840
Reference
05542 2 00001 1 05541 978 TIX REL30,1,1 STORAGE F2209850

␣REL40 = 2917

Definition
05545 0 36100 1 06566 981 REL40 ACL CORESZ,1 CHECK F2209880
Reference
05546 2 00001 1 05545 982 TIX REL40,1,1 SUM F2209890

␣REL50 = 2923

Definition
05553 −3 00001 2 05112 987 REL50 TXL BRA10,2,1 IF STATE A, RETURN-TO BRANCH. F2209940

␣REL60 = 2924

Definition
D 05554 −3 00000 0 05566 988 REL60 TXL CORES,0 AND TRA TO REL ROUTINE F2209950

␣REL70 = 2927

Definition
05557 2 00001 4 05536 991 REL70 TIX REL20,4,1 COUNT IN ERROR COUNTER AND RETURN F2209980
Reference
05552 −0 10000 0 05557 986 TNZ REL70 GO TO ERROR ROUTINE. F2209930

␣REL80 = 2929

Definition
A 05561 0 00000 0 00000 993 REL80 HTR E.S. F2210000

References (2)

	05547	0 60200 0 05561	983		SLW	REL80 AND	F2209900
	05550	0 50000 0 05561	984		CLA	REL80 COMPARE.	F2209910

␣RELCS = 2930

Definition
05562 +103075525444 994 RELCS OCT 103075525444 CHECK SUM, STATE B, RELCON F2210014
Reference
05551 0 40200 2 05564 985 SUB RELCS+2,2 IF NOT ZERO, F2209920

␣RES05 = 3327

Definition
06377 0 02000 2 06406 1399 RES05 TRA RES05+7,2 INDEXED T RANSFER, C(XRB)=C(REBITS) F2214050
Reference
06377 0 02000 2 06406 1399 RES05 TRA RES05+7,2 INDEXED T RANSFER, C(XRB)=C(REBITS) F2214050

␣RES10 = 3333

Definition
06405 0 60100 0 05064 1405 RES10 STO E2 C(XRB)=001 F2214110

References (2)

	06413	0 02000 0 06405	1411		TRA	RES10	F2214170
	06415	0 02000 0 06405	1413		TRA	RES10	F2214190

␣RES20 = 3338

Definition
06412 0 40000 0 03706 1410 RES20 ADD C2 F2214160
Reference
06403 0 02000 0 06412 1403 TRA RES20 C(XRB)=011 F2214090

␣RES30 = 3340

Definition
06414 0 40000 0 03704 1412 RES30 ADD C1 F2214180
Reference
06401 0 02000 0 06414 1401 TRA RES30 C(XRB)=101 F2214070

␣RES40 = 3342

Definition
06416 0 50000 0 03704 1414 RES40 CLA C1 F2214200
Reference
06402 0 02000 0 06416 1402 TRA RES40 C(XRB)=100 F2214080

␣RES45 = 3345

Definition
D 06421 −3 00000 0 06430 1417 RES45 TXL RES60,0 F2214230

References (2)

	06370	−0 63400 4 06421	1392	RESET	SXD	RES45,4 SAVE LINKAGE	F2213980
	06611	−0 53400 4 06421	1537	RES210	LXD	RES45,4 EXIT.	F2215430

␣RES50 = 3346

Definition
06422 0 50000 0 03706 1418 RES50 CLA C2 F2214240

References (2)

	06400	0 02000 0 06422	1400		TRA	RES50 C(XRB)=110	F2214060
	06404	0 02000 0 06422	1404		TRA	RES50 C(XRB)= 010	F2214100

␣RES55 = 3350

Definition
06426 0 60100 0 05064 1422 RES55 STO E2 F2214280
Reference
06424 −3 00002 2 06426 1420 TXL RES55,2,2 F2214260

␣RES60 = 3352

Definition
06430 0 60100 0 05065 1424 RES60 STO E3 F2214300

References (2)

	06411	0 02000 0 06430	1409		TRA	RES60 SUBSCRIPT COMBINATION.	F2214150
D	06421	−3 00000 0 06430	1417	RES45	TXL	RES60,0	F2214230

␣RES65 = 3355

Definition
06433 −0 53400 1 04007 1427 RES65 LXD RESXX,1 SEARCH F2214330

References (3)

06431	3 00004 2 06433	1425	TXH	RES65,2,4 IF PREFIX IS 1,0,0,	F2214310
06622	−0 10000 0 06433	1546	TNZ	RES65 IF NOT, PROCESS NORMALLY	F2215520
06627	0 02000 0 06433	1551	TRA	RES65 1	F2215570

␣RES70 = 3359

Definition
06437 0 50000 1 07755 1431 RES70 CLA RETABZ,1 INDEX. F2214370
Reference
D 06445 3 00000 1 06437 1437 RES75 TXH RES70,1 F2214430

␣RES73 = 3364

Definition
06444 1 77775 1 06445 1436 RES73 TXI RES75,1,−3 F2214420

References (3)

06453	−0 10000 0 06444	1443	TNZ	RES73 CONTINUE RETAB SEARCH.	F2214490
06456	−0 10000 0 06444	1446	TNZ	RES73 IF	F2214520
06461	−0 10000 0 06444	1449	TNZ	RES73 EQUAL, CONTINUE SEARCH.	F2214550

␣RES75 = 3365

Definition
D 06445 3 00000 1 06437 1437 RES75 TXH RES70,1 F2214430

References (4)

06434	−0 63400 1 06445	1428		SXD	RES75,1 RETAB	F2214340
06436	0 02000 0 06445	1430		TRA	RES75 SAME	F2214360
06442	1 77775 1 06445	1434		TXI	RES75,1,−3	F2214400
06444	1 77775 1 06445	1436	RES73	TXI	RES75,1,−3	F2214420

␣RES80 = 3367

Definition
06447 0 50000 1 07755 1439 RES80 CLA RETABZ,1 COMPARE PREFIX OF F2214450
Reference
06443 0 02000 0 06447 1435 TRA RES80 INDEX FOUND, GO TO RES80 F2214410

␣RES85 = 3382

Definition
06466 0 50000 0 06613 1454 RES85 CLA RES300 NO USABLE ENTRY FOUND. F2214600
Reference
06446 0 02000 0 06466 1438 TRA RES85 NOT FOUND, GO TO RES85 F2214440

␣RES87 = 3390

Definition
06476 0 60100 1 07755 1462 RES87 STO RETABZ,1 F2214680
Reference
06474 3 00000 1 06476 1460 TXH RES87,1,0 RETAB. F2214660

␣RES88 = 3396

Definition
06504 −0 63400 1 04007 1468 RES88 SXD RESXX,1 F2214740
Reference
06503 1 77775 1 06504 1467 TXI RES88,1,−3 ADJUST IN DEX. F2214730

␣RES90 = 3405

Definition
06515 0 77100 0 00022 1477 RES90 ARS 18 F2214830
Reference
06511 3 00002 2 06515 1473 TXH RES90,2,2 F2214790

␣RES92 = 3408

Definition
06520 0 50000 0 03751 1480 RES92 CLA L(0) F2214860
Reference
06510 3 00003 2 06520 1472 TXH RES92,2,3 F2214780

␣RES94 = 3409

Definition
06521 0 77100 0 00022 1481 RES94 ARS 18 F2214870
Reference
06507 3 00004 2 06521 1471 TXH RES94,2,4 TAGTAG ENTRY F2214770

␣RES96 = 3410

Definition
06522 0 60100 0 05064 1482 RES96 STO E2 F2214880

References (4)

06506	3 00005 2 06522	1470	TXH	RES96,2,5 FOR DRUMTAG OR	F2214760
06512	3 00001 2 06522	1474	TXH	RES96,2,1	F2214800
06514	0 02000 0 06522	1476	TRA	RES96	F2214820
06517	0 02000 0 06522	1479	TRA	RES96	F2214850

␣RES98 = 3415

Definition
06527 0 60100 0 05063 1487 RES98 STO E1 F2214930
Reference
06525 3 00003 2 06527 1485 TXH RES98,2,3 F2214910

␣RESET = 3320

Definition
06370 −0 63400 4 06421 1392 RESET SXD RES45,4 SAVE LINKAGE F2213980

References (2)

	06243	0 07400 4 06370	1304		TSX	RESET,4 RESET ROUTINE AND	F2213100
	06353	0 07400 4 06370	1379		TSX	RESET,4 GO TO RESET,	F2213850

␣RESXX = 2055

Definition
04007 0 00000 0 00454 101 RESXX 300 F2200970

References (6)

04137	0 53400 4 04007	189		LXA	RESXX,4 FROM	F2201870
04140	−0 63400 4 04007	190		SXD	RESXX,4 ADDRESSES.	F2201880
06433	−0 53400 1 04007	1427	RES65	LXD	RESXX,1 SEARCH	F2214330
06435	0 53400 1 04007	1429		LXA	RESXX,1 FOR	F2214350
06473	−0 53400 1 04007	1459		LXD	RESXX,1 IN	F2214650
06504	−0 63400 1 04007	1468	RES88	SXD	RESXX,1	F2214740

␣RET01 = 3100

Definition
06034 0 07400 4 05411 1166 RET01 TSX TINFOR,4 SEARCH RANGE OF XL F2211720

␣RSR10 = 2676

Definition
05164 −0 53400 1 05205 731 RSR10 LXD RSR30,1 ENTER IN TRASTO F2207380
Reference
05144 −0 10000 0 05164 715 TNZ RSR10 IF SO, GO TO RSR10 F2207220

␣RSR20 = 2692

Definition
A 05204 0 00000 0 00000 747 RSR20 HTR F2207540

References (2)

	05140	−0 63400 4 05204	711	RSR	SXD	RSR20,4 SAVE LINKAGE	F2207180
	05202	−0 53400 4 05204	745		LXD	RSR20,4	F2207520

␣RSR30 = 2693

Definition
A 05205 0 00000 0 00000 748 RSR30 HTR F2207550

References (2)

	05141	−0 63400 1 05205	712		SXD	RSR30,1 SAVE INDEX	F2207190
	05164	−0 53400 1 05205	731	RSR10	LXD	RSR30,1 ENTER IN TRASTO	F2207380

␣RSYM1 = 2013

Definition
03735 57 RSYM1 BSS 1 -- F2200550

References (7)

05323	0 40200 0 03735	828		SUB	RSYM1 SKIPPED. IF NOT,GO BACK TO	F2208350
05722	0 60100 0 03735	1092	ID220	STO	RSYM1	F2210980
05607	0 40200 0 03735	1601		SUB	RSYM1 COMPARE WITH (FIRST) R SYM.	F2216030
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
05755	0 40200 0 03735	1703		SUB	RSYM1	F2217050
06256	0 50000 0 03735	1898	BS00	CLA	RSYM1 THIS ROUTINE SEARCHES	F2219000

␣RSYM2 = 2014

Definition
03736 58 RSYM2 BSS 1 F2200560

References (8)

05326	0 40200 0 03736	831	SUB	RSYM2	F2208380
05457	0 40200 0 03736	925	SUB	RSYM2 DO TO BE SKIPPED	F2209320
05717	0 60100 0 03736	1089	STO	RSYM2	F2210950
05613	0 40200 0 03736	1605	SUB	RSYM2 AND COMPARE WITH RSYM2	F2216070
05615	0 50000 0 03736	1607	CLA	RSYM2 IF DO SYM IS RSYM2,	F2216090
05620	−0 60000 0 03736	1610	STQ	RSYM2 AGREE WITH ORDER OF DO FORMULAS	F2216120
06033	0 40200 0 03736	1750	SUB	RSYM2 COMPARE WITH RSYM2.	F2217520
06270	0 50000 0 03736	1908	CLA	RSYM2	F2219100

␣SCEND = 2444

Definition
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

References (2)

	04431	0 07400 4 04614	376		TSX	SCEND,4	F2203800
	05234	0 07400 4 04614	771		TSX	SCEND,4 ENTRY.	F2207780

␣ST100 = 3384

Definition
06470 −0 53400 4 06464 2043 ST100 LXD STO40,4 EXIT F2220450
Reference
D 06464 −3 00000 0 06470 2039 STO40 TXL ST100,0 F2220410

␣STO20 = 3361

Definition
06441 0 76700 0 00022 2016 STO20 ALS 18 IF DELTA EQUALS ONE OR TWO, F2220180
Reference
06437 −3 00001 2 06441 2014 TXL STO20,2,1 MANY ENTRIES MAY BE MADE F2220160

␣STO35 = 3376

Definition

		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

References (2)

	06444	−3 00000 2 06460	2019		TXL	STO35,2,0 ZERO. IF DELTA IS THREE	F2220210
	06446	0 02000 0 06460	2021		TRA	STO35 TRANSFERS DR2 TO DS THEN	F2220230

␣STO40 = 3380

Definition
D 06464 −3 00000 0 06470 2039 STO40 TXL ST100,0 F2220410

References (3)

06431	−0 63400 4 06464	2008	STORES	SXD	STO40,4 THIS ROUTINE PREPARES	F2220100
06447	−0 63400 4 06464	2022	STORXX	SXD	STO40,4 STORES ENTRY IS USED WITH	F2220240
06470	−0 53400 4 06464	2043	ST100	LXD	STO40,4 EXIT	F2220450

␣STO50 = 3381

Definition
06465 −0 53400 2 03753 2040 STO50 LXD L(2),2 SPC000 USED. F2220420
Reference
06445 −3 00001 2 06465 2020 TXL STO50,2,1 AND WE ARE WORKING ON F2220220

␣TAG00 = 2303

Definition
04377 −0 53400 1 03764 350 TAG00 LXD L(1500,1 THIS ROUTINE F2203520
Reference
04266 0 02000 0 04377 277 TRA TAG00 AND GO TO TAG00 ROUT1NE. F2202770

␣TAG05 = 2305

Definition
04401 0 50000 1 03670 352 TAG05 CLA FORTZ,1 IN THE RANGE OF THE F2203540
Reference
D 04407 3 00000 1 04401 358 TAG20 TXH TAG05,1 PROCESSED, AND (DEC HAS FORTAG IX) F2203600

␣TAG10 = 2310

Definition
04406 1 77777 1 04407 357 TAG10 TXI TAG20,1,−1 PREVIOUSLY BEEN F2203590

References (2)

	04412	0 02000 0 04406	361		TRA	TAG10 IS TO DOFEND	F2203630
	04417	−0 12000 0 04406	366		TMI	TAG10 BEEN PROCESSED.	F2203680

␣TAG20 = 2311

Definition
D 04407 3 00000 1 04401 358 TAG20 TXH TAG05,1 PROCESSED, AND (DEC HAS FORTAG IX) F2203600

References (3)

04036	−0 63400 1 04407	124		SXD	TAG20,1 TEST	F2201190
04400	0 02000 0 04407	351		TRA	TAG20 SELECTS EVERY TAG	F2203530
04406	1 77777 1 04407	357	TAG10	TXI	TAG20,1,−1 PREVIOUSLY BEEN	F2203590

␣TAG25 = 2313

Definition
04411 −0 53400 1 04414 360 TAG25 LXD TAG40,1 THE TAG. THE RETURN F2203620

References (3)

	04426	0 02000 0 04411	373		TRA	TAG25 SC. NOT WANTED.	F2203760
D	04505	−3 00000 0 04411	420	TAG75	TXL	TAG25,0	F2204260
	04517	0 02000 0 04411	430		TRA	TAG25 RETURN FOR NEXT TAG.	F2204370

␣TAG30 = 2315

Definition
04413 0 34000 0 03677 362 TAG30 CAS BETA COMPARE WITH BETA. F2203640
Reference
04404 0 02000 0 04413 355 TRA TAG30 SYMBOL OF THE CURRENT F2203570

␣TAG40 = 2316

Definition
D 04414 −3 00000 0 04267 363 TAG40 TXL DOFEND,0 RANGE FINISHED. (DEC HAS CURR FORTAG IX) F2203650

References (3)

04411	−0 53400 1 04414	360	TAG25	LXD	TAG40,1 THE TAG. THE RETURN	F2203620
04422	−0 63400 1 04414	369		SXD	TAG40,1 AND SAVE INDEX.	F2203720
04501	−0 53400 1 04414	416	TAG70	LXD	TAG40,1 SET ALL OCCURRANCES	F2204230

␣TAG50 = 2331

Definition
04433 −0 53400 2 03756 378 TAG50 LXD L(5),2 F2203820

␣TAG52 = 2332

Definition
04434 0 50000 2 03721 379 TAG52 CLA X1+5,2 ENTER BIT 18 WD 9 F2203830
Reference
04447 2 00002 2 04434 390 TAG58 TIX TAG52,2,2 F2203950

␣TAG54 = 2339

Definition
04443 −0 32000 0 03737 386 TAG54 ANA CARWRD F2203910
Reference
04441 3 00002 2 04443 384 TXH TAG54,2,2 THE 2ND AND 3RD F2203880

␣TAG56 = 2341

Definition
04445 0 50000 0 04003 388 TAG56 CLA ABIT ENTER BIT 18 WD 9. F2203920
Reference
04437 3 00004 2 04445 382 TXH TAG56,2,4 IF THERE IS NO F2203860

␣TAG58 = 2343

Definition
04447 2 00002 2 04434 390 TAG58 TIX TAG52,2,2 F2203950

References (2)

	04435	0 10000 0 04447	380		TZE	TAG58 OF MATCHING DOTAG	F2203840
	04444	−0 10000 0 04447	387		TNZ	TAG58	F2203910

␣TAG60 = 2345

Definition
04451 0 50000 4 03721 392 TAG60 CLA X1+5,4 TESTS AND ADDED TAGS. F2203970
Reference
04500 2 00002 4 04451 415 TAG68 TIX TAG60,4,2 F2204220

␣TAG62 = 2355

Definition
04463 −0 32000 0 03737 402 TAG62 ANA CARWRD SUBSCR PROMOTE A F2204070
Reference
04461 3 00003 4 04463 400 TXH TAG62,4,3 IS NEEDED UNLESS F2204050

␣TAG64 = 2357

Definition
04465 0 50000 0 04003 404 TAG64 CLA SUBBIT OR CENTER RESPECTIVELY) F2204090
Reference
04457 −3 00001 4 04465 398 TXL TAG64,4,1 IF SO, PUT IN F2204030

␣TAG65 = 2359

Definition
D 04467 −3 00000 0 04500 406 TAG65 TXL TAG68,0 NEEDED. F2204110

References (2)

	04475	−0 63400 4 04467	412		SXD	TAG65,4 IF SO TAKE NEXT INDEDEX SUBSCR. REQUESTED.	F2204180
	04477	−0 53400 4 04467	414		LXD	TAG65,4 THEN TAKE NEXT INDEXED SUBSCRIPT.	F2204200

␣TAG66 = 2360

Definition
04470 0 50000 0 04004 407 TAG66 CLA BIT19 F2204120
Reference
04456 0 10000 0 04470 397 TZE TAG66 A RELCON F2204020

␣TAG68 = 2368

Definition
04500 2 00002 4 04451 415 TAG68 TIX TAG60,4,2 F2204220

References (4)

	04452	0 10000 0 04500	393		TZE	TAG68 FOR EACH INDEXED SUBSCRIPT,	F2203980
	04464	−0 10000 0 04500	403		TNZ	TAG68 TYPE ONE CARRY (LEFT	F2204080
D	04467	−3 00000 0 04500	406	TAG65	TXL	TAG68,0 NEEDED.	F2204110
	04474	−0 10000 0 04500	411		TNZ	TAG68 NOT A COUNTER HAS ALREAD Y BEEN REQUESTED.	F2204170

␣TAG70 = 2369

Definition
04501 −0 53400 1 04414 416 TAG70 LXD TAG40,1 SET ALL OCCURRANCES F2204230

␣TAG72 = 2370

Definition
04502 0 50000 1 03670 417 TAG72 CLA FORTZ,1 OF THIS TAG, IN FORTAG, F2204240
Reference
D 04516 3 00000 1 04502 429 TAG90 TXH TAG72,1 . (DEC HAS FORTAG IX) F2204380

␣TAG75 = 2373

Definition
D 04505 −3 00000 0 04411 420 TAG75 TXL TAG25,0 F2204260

␣TAG80 = 2381

Definition
04515 1 77777 1 04516 428 TAG80 TXI TAG90,1,−1 F2204340
Reference
04512 −0 10000 0 04515 425 TNZ TAG80 F2204310

␣TAG90 = 2382

Definition
D 04516 3 00000 1 04502 429 TAG90 TXH TAG72,1 . (DEC HAS FORTAG IX) F2204380

References (2)

	04037	−0 63400 1 04516	125		SXD	TAG90,1 INSTRUCTIONS.	F2201200
	04515	1 77777 1 04516	428	TAG80	TXI	TAG90,1,−1	F2204340

␣TAGXX = 2056

Definition
04010 0 00000 0 00120 102 TAGXX 80 F2200980

References (8)

04141	0 53400 4 04010	191		LXA	TAGXX,4	F2201890
04142	−0 63400 4 04010	192		SXD	TAGXX,4	F2201900
05510	−0 53400 1 04010	951	TAGENT	LXD	TAGXX,1 THIS ROUTINE ENTERS	F2209580
05520	−0 63400 1 04010	959		SXD	TAGXX,1	F2209660
05523	−0 53400 1 04010	962		LXD	TAGXX,1 ENTERS ALL THE VALID	F2209690
05525	0 53400 1 04010	964		LXA	TAGXX,1 THE TAPE	F2209710
05531	0 53400 1 04010	968		LXA	TAGXX,1	F2209750
05532	−0 63400 1 04010	969		SXD	TAGXX,1	F2209760

␣TAPE2 = 146

Definition
00222 2087 TAPE2 EQU 146 F2220830

References (4)

04076	0 77000 0 00222	156	END30	WEF	TAPE2 WRITE EOF AFTER DONEST RECORDS	F2201520
04077	0 76600 0 00222	157		WRS	TAPE2	F2201530
04102	0 77000 0 00222	160		WEF	TAPE2	F2201560
04254	0 76600 0 00222	267		WRS	TAPE2 TAPE TWO.	F2202660

2NSEND = 3236

Definition
06244 −0 53400 4 06157 1305 2NSEND LXD 2NS25,4 EXIT F2213110
Reference
06240 0 10000 0 06244 1301 TZE 2NSEND RESETTING NOT NECESSARY IF F2213070

2R0000 = 3090

Definition
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

References (2)

	05703	0 10000 0 06022	1661	DSDR85	TZE	2R0000 GO TO R2 SEARCH IF NO TRA R1 TO D6	F2216630
	05731	0 02000 0 06022	1683	DSDR90	TRA	2R0000 GO TO R2 ROUTINE AND	F2216850

2R0010 = 3093

Definition
06025 1 77767 1 06026 1744 2R0010 TXI 2R0020,1,−9 TAKE NEXT DOWN DO IF POSSIBLE F2217460
Reference
06034 −0 10000 0 06025 1751 TNZ 2R0010 IF NOT RSYM2,G0 BACK. F2217530

2R0020 = 3094

Definition
D 06026 −3 00000 1 05732 1745 2R0020 TXL DSDR92,1 EXIT IF PARTLY FULL DOTAG EXHAUSTED F2217470

References (4)

05572	−0 63400 1 06026	1588		SXD	2R0020,1	F2215900
06025	1 77767 1 06026	1744	2R0010	TXI	2R0020,1,−9 TAKE NEXT DOWN DO IF POSSIBLE	F2217460
06045	0 10000 0 06026	1760		TZE	2R0020 FOR NEXT DO.	F2217620
06122	0 02000 0 06026	1805		TRA	2R0020 NEXT R2	F2218070

2R0030 = 3097

Definition
D 06031 −3 00000 2 05732 1748 2R0030 TXL DSDR92,2 LR1,EXIT IF NEW DO NOT IN XR1. F2217500
Reference
06024 0 62200 0 06031 1743 STD 2R0030 INITIALIZE TEST INSTR. F2217450

2R0050 = 3118

Definition
A 06056 0 76500 0 00000 1769 2R0050 LRS PERFORM SEPARATION F2217710
Reference
06053 0 62100 0 06056 1766 STA 2R0050 F2217680

2R0060 = 3125

Definition
06065 −0 53400 1 06367 1776 2R0060 LXD XR2,1 SEARCH FOR TAG F2217780
Reference
06062 −0 10000 0 06065 1773 TNZ 2R0060 IS NOT ZERO F2217750

2R0065 = 3130

Definition
D 06072 −3 00000 0 06105 1781 2R0065 TXL 2R0090,0 FOUND,NAME IN ACC. F2217830

References (2)

	06046	−0 63400 1 06072	1761		SXD	2R0065,1	F2217630
	06121	−0 53400 1 06072	1804	2R0200	LXD	2R0065,1 RETURN FOR	F2218060

2R0080 = 3136

Definition
06100 −0 53400 1 06367 1787 2R0080 LXD XR2,1 SEARCH F2217890
Reference
06067 0 02000 0 06100 1778 TRA 2R0080 FOUN0,TR TO OBTAIN NAME F2217800

2R0090 = 3141

Definition
06105 0 60100 0 06375 1792 2R0090 STO TR2 PUT NAME IN TR2 F2217940
Reference
D 06072 −3 00000 0 06105 1781 2R0065 TXL 2R0090,0 FOUND,NAME IN ACC. F2217830

2R0100 = 3142

Definition
06106 0 50000 0 06372 1793 2R0100 CLA D3D1 LIST STORES IF ANY TR, F1I17950
Reference
06077 0 02000 0 06106 1786 TRA 2R0100 F2217880

2R0150 = 3147

Definition
06113 0 50000 0 06373 1798 2R0150 CLA D3D2 TEST TR F2218000
Reference
06107 0 10000 0 06113 1794 TZE 2R0150 FOR TRANSFERS, F2217960

2R0200 = 3153

Definition
06121 −0 53400 1 06072 1804 2R0200 LXD 2R0065,1 RETURN FOR F2218060

References (3)

06064	0 10000 0 06121	1775	TZE	2R0200 TR TO GET NEX DO	F2217770
06114	0 10000 0 06121	1799	TZE	2R0200 D3D2	F2218010
06116	0 10000 0 06121	1801	TZE	2R0200 D2D1	F2218030

35ONES = 2041

Definition
03771 +377777777777 87 35ONES OCT 377777777777 F2200830

References (5)

04046	0 70000 0 03771	132	CPY	35ONES	F2201280
04047	0 70000 0 03771	133	CPY	35ONES	F2201290
04165	0 50000 0 03771	211	CLA	35ONES IN TAGTAG, CONSISTING OF	F2202090
05503	0 56000 0 03771	945	LDQ	35ONES MQ CONTAINS ALL ONES	F2209520
05574	0 50000 0 03771	1006	CLA	35ONES INITIALIZE	F2210120

3GRP10 = 3244

Definition
06254 0 34000 0 03715 1316 3GRP10 CAS L1 L3 LESS THAN L2,COMPARE L3,L1 F2213220
Reference
06252 1 00004 2 06254 1314 TXI 3GRP10,2,4 L3 GREATER THAN L2 F2213200

3GRP15 = 3245

Definition
D 06255 −3 00000 0 06260 1317 3GRP15 TXL 3GRP20,0 L3 GREATER THAN L1 F2213230

References (2)

	06246	−0 63400 4 06255	1309	3NS00	SXD	3GRP15,4 SAVE LINKAGE	F2213150
	06366	−0 53400 4 06255	1390	3NSEND	LXD	3GRP15,4	F2213960

3GRP20 = 3248

Definition
06260 0 50000 0 03717 1320 3GRP20 CLA L2 OBTAIN L2 F2213260

References (2)

D	06255	−3 00000 0 06260	1317	3GRP15	TXL	3GRP20,0 L3 GREATER THAN L1	F2213230
	06257	1 00001 2 06260	1319		TXI	3GRP20,2,1 L3 LESS THAN L1	F2213250

3GRP30 = 3252

Definition
06264 −0 75400 2 00000 1324 3GRP30 PXD 0,2 PUT GROUP NUMBER IN ACC DEC. F2213300

References (2)

	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

3GRP40 = 3260

Definition
06274 0 50000 0 03717 1332 3GRP40 CLA L2 RE-ENTRY,OBTAIN L2 F2213380
Reference
06271 −0 10000 0 06274 1329 TNZ 3GRP40 NOT ZERO,NO CARRY,TRA F2213350

3GRP50 = 3266

Definition
06302 −0 53400 6 03751 1338 3GRP50 LXD L(0),6 THE FOLLOWING ROUTINE, F2213440
Reference
06277 −0 10000 0 06302 1335 TNZ 3GRP50 NOT ZERO,NO CARRY,TRA F2213410

3GRP55 = 3268

Definition
06304 0 02000 1 06313 1340 3GRP55 TRA 3GRP55+7,1 QUANTITIES FOR XRB, XRC. F2213460
Reference
06304 0 02000 1 06313 1340 3GRP55 TRA 3GRP55+7,1 QUANTITIES FOR XRB, XRC. F2213460

3GRP60 = 3275

Definition
06313 1 00002 2 06314 1347 3GRP60 TXI 3GRP65,2,2 F2213530

References (2)

	06310	1 00002 6 06313	1344		TXI	3GRP60,6,2 THREE	F2213500
	06312	1 00004 4 06313	1346		TXI	3GRP60,4,4 ONE	F2213520

3GRP65 = 3276

Definition
06314 0 50000 4 03720 1348 3GRP65 CLA X1+4,4 F2213540

References (5)

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
06311	1 00002 4 06314	1345		TXI	3GRP65,4,2 TWO	F2213510
06313	1 00002 2 06314	1347	3GRP60	TXI	3GRP65,2,2	F2213530

3GRP70 = 3286

Definition
06326 −0 63400 4 06357 1358 3GRP70 SXD INP,4 FOUR, ADJUSTED TO ONE, F2213640

References (2)

	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

3GRP72 = 3289

Definition
06331 −0 63400 2 06361 1361 3GRP72 SXD MIDP,2 BEING RESET, STORE IN INP, MIDP. F2213670

References (2)

	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

3GRP75 = 3291

Definition
06333 0 50000 4 06366 1363 3GRP75 CLA INX+4,4 OBTAIN INNER INDEX OF PAIR F2213690
Reference
06355 2 00002 4 06333 1381 3GRP77 TIX 3GRP75,4,2 INDEX AND GO BACK, F2213870

3GRP77 = 3309

Definition
06355 2 00002 4 06333 1381 3GRP77 TIX 3GRP75,4,2 INDEX AND GO BACK, F2213870
Reference
06345 0 10000 0 06355 1373 TZE 3GRP77 GO TO INDEXING IF ZERO. F2213790

3GRP80 = 3312

Definition
A 06360 0 00000 0 00000 1384 3GRP80 HTR F2213900

References (4)

06342	−0 63400 4 06360	1370	SXD	3GRP80,4 SAVE XRC,	F2213760
06344	−0 53400 4 06360	1372	LXD	3GRP80,4 RESTORE XRC,	F2213780
06352	−0 63400 4 06360	1378	SXD	3GRP80,4 SAVE XRC,	F2213840
06354	−0 53400 4 06360	1380	LXD	3GRP80,4 RESTR0E XRC,	F2213860

3NSEND = 3318

Definition
06366 −0 53400 4 06255 1390 3NSEND LXD 3GRP15,4 F2213960
Reference
06356 0 02000 0 06366 1382 TRA 3NSEND OR EXIT F2213880

4VALAD = 3315

Definition
06363 0 00000 0 00312 1967 4VALAD HTR 202 F2219690

References (4)

06140	0 50000 0 06363	1820	CLA	4VALAD OBTAIN LOCATION FO FIRST	F2218220
06170	0 50000 0 06363	1844	CLA	4VALAD SKIP SEARCH.	F2218460
06203	0 50000 0 06363	1855	CLA	4VALAD	F2218570
06304	0 40000 0 06363	1920	ADD	4VALAD ADDRESS	F2219220

4VALES = 3316

Definition
A 06364 0 00000 0 00000 1968 4VALES HTR E.S. F2219700

References (4)

06250	0 60200 0 06364	1892		SLW	4VALES	F2218940
06251	0 50000 0 06364	1893		CLA	4VALES THEM WITH THE GIVEN CHECK	F2218950
06307	0 60100 0 06364	1923	BS80	STO	4VALES RSYM FOUND,ARRANGE TO	F2219250
06325	0 50000 0 06364	1937		CLA	4VALES	F2219390

4VLHL2 = 3311

Definition
06357 0 07400 4 00004 1963 4VLHL2 TSX DIAG,4 WILL BE REREAD 5 TIMES. (ERROR. GO TO DIAGNOSTIC.) F2219655

4VLHL4 = 3312

Definition
06360 −0 63400 2 06361 1964 4VLHL4 SXD 4VLHL8,2 BEFORE THE MACHINE STOPS. F2219660
Reference
06356 2 00001 2 06360 1962 TIX 4VLHL4,2,1 CHECK SUM ROUTINE,THE BLOCK F2219640

4VLHL8 = 3313

Definition
D 06361 −3 00000 0 06213 1965 4VLHL8 TXL FS05,0 F2219670

References (3)

06212	0 62200 0 06361	1862		STD	4VLHL8 ERROR COUNTER	F2218640
06355	−0 53400 2 06361	1961	4VLHLT	LXD	4VLHL8,2 IF THERE IS AN ERROR IN THE	F2219630
06360	−0 63400 2 06361	1964	4VLHL4	SXD	4VLHL8,2 BEFORE THE MACHINE STOPS.	F2219660

4VLHLT = 3309

Definition
06355 −0 53400 2 06361 1961 4VLHLT LXD 4VLHL8,2 IF THERE IS AN ERROR IN THE F2219630
Reference
06253 −0 10000 0 06355 1895 TNZ 4VLHLT TRA TO EXIT IF BAD ENTRY. F2218970

ADDMSK = 2043

Definition
03773 +000000077777 89 ADDMSK OCT 77777 F2200850

References (13)

04015	−0 32000 0 03773	107	ANA	ADDMSK ADDRESSES	F2201030
04057	−0 32000 0 03773	141	ANA	ADDMSK COUNTS	F2201370
04245	0 50000 0 03773	260	CLA	ADDMSK YES. ERASE DEC WD 9	F2202570
04420	−0 32000 0 03773	367	ANA	ADDMSK STORE	F2203690
04510	−0 32000 0 03773	423	ANA	ADDMSK	F2204290
04772	−0 32000 0 03773	605	ANA	ADDMSK SUBSCRIPT THE QUANTITY	F2206120
05054	−0 32000 0 03773	655	ANA	ADDMSK ADDRESS.	F2206620
05215	−0 32000 0 03773	756	ANA	ADDMSK STORE TAG	F2207630
05435	−0 32000 0 03773	904	ANA	ADDMSK I.F. NOT EQUAL,GO BACK FOR NEXT TAG	F2209110
05731	−0 32000 0 03773	1099	ANA	ADDMSK	F2211050
06112	0 50000 0 03773	1213	CLA	ADDMSK THIS SUB. COMB. WILL SERVE	F2212190
06463	−0 32000 0 03773	1451	ANA	ADDMSK USE RESET TAG ALREADY	F2214570
06407	−0 32000 0 03773	1988	ANA	ADDMSK	F2219900

ADDSER = 3339

Definition
1992 SUBROUTINE ADDSER F2219940

06413 −0 75400 1 00000 1993 ADDSER PXD 0,1 F2219950
Reference
06071 0 07400 4 06413 1780 TSX ADDSER,4 INSERT IN ADDED TAG TABLE. F2217820

ADS010 = 3345

Definition
06421 0 34000 1 07135 1999 ADS010 CAS ADTAGZ,1 F2220010
Reference
D 06425 3 00000 1 06421 2003 ADS030 TXH ADS010,1 F2220050

ADS020 = 3348

Definition
06424 1 77776 1 06425 2002 ADS020 TXI ADS030,1,−2 F2220040
Reference
06422 0 02000 0 06424 2000 TRA ADS020, F2220020

ADS030 = 3349

Definition
D 06425 3 00000 1 06421 2003 ADS030 TXH ADS010,1 F2220050

References (3)

06416	−0 63400 1 06425	1996		SXD	ADS030,1 ADS030 FOR TABLE SEARCH.	F2219980
06420	0 02000 0 06425	1998		TRA	ADS030 TRA FOR EMPTY TABLE TEST	F2220000
06424	1 77776 1 06425	2002	ADS020	TXI	ADS030,1,−2	F2220040

ADS040 = 3351

Definition
06427 0 50000 1 07136 2005 ADS040 CLA ADTAGZ+1,1 F2220070
Reference
06423 0 02000 0 06427 2001 TRA ADS040 FIRST WORD FOUND F2220030

ADS050 = 3352

Definition
06430 0 02000 4 00001 2006 ADS050 TRA 1,4 F2220080

ADTAGZ = 3677

Definition
07135 1573 ADTAGZ BSS 1 F2215760

References (10)

04217	0 50000 1 07136	238	NEST86	CLA	ADTAGZ+1,1 EXCEPT	F2202360
04222	0 50000 1 07135	241		CLA	ADTAGZ,1	F2202380
05213	0 50000 2 07135	754	DRM10	CLA	ADTAGZ,2 OBTAIN FIRST ENTRY WORD.	F2207610
05223	0 50000 2 07136	762		CLA	ADTAGZ+1,2 OBTAIN WORD TWO.	F2207690
05262	0 60100 1 07135	794		STO	ADTAGZ,1	F2208010
05265	0 60100 1 07136	797		STO	ADTAGZ+1,1	F2208040
05274	0 60100 1 07135	804	TAGAD8	STO	ADTAGZ,1	F2208110
05275	−0 60000 1 07136	805		STQ	ADTAGZ+1,1	F2208120
06421	0 34000 1 07135	1999	ADS010	CAS	ADTAGZ,1	F2220010
06427	0 50000 1 07136	2005	ADS040	CLA	ADTAGZ+1,1	F2220070

BITONE = 2048

Definition
04000 +200000000000 94 BITONE OCT 200000000000 F220090D

References (5)

05756	0 50000 0 04000	1120	CLA	BITONE MAKE INDICATION FOR STORED COUNTER	F2211260
06124	0 50000 0 04000	1223	CLA	BITONE IF ONE, SKIP TRASTO	F2212290
05777	0 50000 0 04000	1721	CLA	BITONE	F2217230
06311	0 50000 0 04000	1925	CLA	BITONE	F2219270
06330	0 50000 0 04000	1940	CLA	BITONE PUT IN BIT TO SAVE SL	F2219420

BITTWO = 2049

Definition
04001 +100000000000 95 BITTWO OCT 100000000000 F2200910

References (4)

04302	−0 32000 0 04001	289	ANA	BITTWO FOUND.	F2202890
06077	0 50000 0 04001	1202	CLA	BITTWO IF A COUNTER HAS	F2212080
06120	0 50000 0 04001	1219	CLA	BITTWO INDICATE COUNTER FOUND.	F2212250
06631	−0 32000 0 04001	1553	ANA	BITTWO	F2215590

BRANCH = 2630

Definition
05106 −0 63400 4 05122 685 BRANCH SXD BRA45,4 IF THERE ARE RELCONS F2206920

References (2)

	04430	0 07400 4 05106	375		TSX	BRANCH,4	F2203780
	05233	0 07400 4 05106	770		TSX	BRANCH,4 PROCESS	F2207770

BURNCE = 4092

Definition
07774 −0 63400 1 77777 2084 BURNCE SXD T0P,1 DRUM OVERFLOW F2220825
Reference
05037 0 07400 4 07774 642 TSX BURNCE,4 DRUM OVERFLOW, GO SAVE IRA BEFORE DIAG. F2206505

CARMSK = 2046

Definition
03776 +000000300000 92 CARMSK OCT 300000 BITS 19,20 (CARRY BITS OF DOTAG, WD 6) F2200880

References (2)

	04762	−0 32000 0 03776	597		ANA	CARMSK CARRY BITS.	F2206040
	05010	−0 32000 0 03776	619		ANA	CARMSK CARRY BITS AGAIN.	F2206260

CARWRD = 2015

Definition
03737 59 CARWRD BSS 1 BIT 11 IF LEFT TYPE 1 CARRY, 12 LEFT TYPE 2, F2200570

References (8)

04334	0 60100 0 03737	315		STO	CARWRD	F2203150
04344	−0 50100 0 03737	323		ORA	CARWRD	F2203230
04443	−0 32000 0 03737	386	TAG54	ANA	CARWRD	F2203910
04463	−0 32000 0 03737	402	TAG62	ANA	CARWRD SUBSCR PROMOTE A	F2204070
04631	−0 50000 0 03737	508		CAL	CARWRD	F2205150
04675	0 50000 0 03737	544		CLA	CARWRD INF0. FOR THE POSITION	F2205510
05021	−0 60200 0 03737	628	CAR25	ORS	CARWRD PLACE IN CARWRD.	F2206350
06123	−0 60200 0 03737	1222		ORS	CARWRD TEST BITONE OF L WORD.	F2212280

CHATAG = 2618

Definition
05072 0 00002 0 00002 671 CHATAG HTR 2,0,2 F2206780
Reference
06052 0 50000 0 05072 1180 CLA CHATAG F2211860

CORESZ = 3446

Definition
06566 2098 CORESZ SYN CORES+512 F2220940

References (3)

05541	0 70000 1 06566	977	REL30	CPY	CORESZ,1 READ STATE B, OR A, INTO	F2209840
05545	0 36100 1 06566	981	REL40	ACL	CORESZ,1 CHECK	F2209880
07737	0 70000 1 06566	2055	PG20	CPY	CORESZ,1	F2220560

DECMSK = 2042

Definition
03772 +077777000000 88 DECMSK OCT 77777000000 F2200840

References (20)

04365	−0 32000 0 03772	340	ANA	DECMSK ESTABLISH	F2203420
04374	−0 32000 0 03772	347	ANA	DECMSK	F2203490
04402	−0 32000 0 03772	353	ANA	DECMSK CURRENT DO WHICH	F2203550
04503	−0 32000 0 03772	418	ANA	DECMSK IN THE RANGE OF THIS	F2204240
04574	−0 32000 0 03772	478	ANA	DECMSK	F2204850
04765	−0 32000 0 03772	600	ANA	DECMSK NO CARRY TRA LEVEL	F2206070
05153	−0 32000 0 03772	722	ANA	DECMSK AS A RESET SUB. COMB.	F2207290
05157	−0 32000 0 03772	726	ANA	DECMSK	F2207330
05166	−0 32000 0 03772	733	ANA	DECMSK THE TAG UNDER	F2207400
05246	−0 32000 0 03772	781	ANA	DECMSK INITIALIZE CELLS	F2207880
05307	−0 32000 0 03772	816	ANA	DECMSK OBTAIN ALPHA ALONE	F2208230
05332	−0 32000 0 03772	835	ANA	DECMSK AS B,PUT BETA OF R2 IN	F2208420
05413	−0 32000 0 03772	885	ANA	DECMSK AND BETA	F22D8920
05421	−0 32000 0 03772	891	ANA	DECMSK RETAIN FORMULA NUMBER ONLY	F2208980
06440	−0 32000 0 03772	1432	ANA	DECMSK	F2214380
06532	−0 32000 0 03772	1490	ANA	DECMSK	F2214960
05671	−0 32000 0 03772	1651	ANA	DECMSK	F2216530
05712	−0 32000 0 03772	1668	ANA	DECMSK OF TAG IN R1	F2216700
06102	−0 32000 0 03772	1789	ANA	DECMSK NAME	F2217910
06157	−0 32000 0 03772	1835	ANA	DECMSK FOUND IN EITHER RANGE,	F2218370

DOFEND = 2231

Definition
04267 −0 53400 1 03674 278 DOFEND LXD XC,1 IS A COUNTER F2202780

References (2)

	04410	0 02000 0 04267	359		TRA	DOFEND COMPLETELY PROCESSES	F2203610
D	04414	−3 00000 0 04267	363	TAG40	TXL	DOFEND,0 RANGE FINISHED. (DEC HAS CURR FORTAG IX)	F2203650

DOINFO = 2291

Definition
04363 0 50000 1 00733 338 DOINFO CLA DOTAGZ,1 FOR THE DO FORMULA WHOSE F2203400

References (2)

	04265	0 07400 4 04363	276		TSX	DOINFO,4 USE DOINFO	F2202760
	05226	0 07400 4 04363	765		TSX	DOINFO,4 USE DOINFO	F2207720

DOSUBS = 2009

Definition
03731 53 DOSUBS BSS 1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DOSUB F2200510

References (9)

04327	0 60100 0 03731	310		STO	DOSUBS DOSUBS AND OTHER LOCATIONS	F2203100
04616	0 50000 0 03731	497		CLA	DOSUBS TAGTAG ENTRY FROM ITS	F2205040
05133	0 60100 0 03731	706	BRA70	STO	DOSUBS	F2207130
05776	−0 60200 0 03731	1136	ID375	ORS	DOSUBS WORD	F2211420
06102	−0 53400 4 03731	1205		LXD	DOSUBS,4 SKIP TO 1NS10	F2212110
06150	−0 53400 1 03731	1245	2NS10	LXD	DOSUBS,1 2NS10 T0 2NS80 DETERMINE THE	F2212510
06177	−0 53400 2 03731	1268		LXD	DOSUBS,2 THIS ROUTINE,TO 2NS90,	F2212740
06011	0 32000 0 03731	1731		ANS	DOSUBS	F2217330
06342	0 32000 0 03731	1950		ANS	DOSUBS FROM DOSUBS	F2219520

DOTAGZ = 475

Definition
00733 15 DOTAGZ BSS 1 F2200120

References (92)

04121	0 70000 2 00733	175	NEST20	CPY	DOTAGZ,2 FROM	F2201720
04225	0 50000 2 00733	244		CLA	DOTAGZ,2	F2202410
04237	0 50000 1 00743	254	NST110	CLA	DOTAGZ+8,1 DOES BIT 20 WD 9 OF THIS DOTAG	F2202510
04242	0 50000 1 00732	257		CLA	DOTAGZ−1,1 DOES BIT 18 WD 9 OF PRIOR DOTAG	F2202550
04246	0 32000 1 00743	261		ANS	DOTAGZ+8,1 OF PRIOR DOTAG.	F2202580
04256	0 70000 1 00733	269	NEST90	CPY	DOTAGZ,1 OF NESTS.	F2202680
04270	0 50000 1 00743	279		CLA	DOTAGZ+8,1	F2202790
04273	−0 50000 1 00740	282		CAL	DOTAGZ+5,1 NECESSARY BECAUSE OF	F2202820
04277	−0 32000 1 00741	286		ANA	DOTAGZ+6,1 DELTA TWO	F2202860
04301	0 50000 1 00741	288	DOF15	CLA	DOTAGZ+6,1 HAS A COUNTER BEEN	F2202880
04305	0 50000 1 00740	292	DOF20	CLA	DOTAGZ+5,1 IF NO COUNTER NECESSARY,	F2202920
04310	0 50000 1 00743	295		CLA	DOTAGZ+8,1 CARRY. IF SO, HAS A	F2202950
04314	0 50000 1 00743	299	DOF30	CLA	DOTAGZ+8,1 IF SYM HAS NOT OCCURRED WITH	F2202990
04321	−0 60200 1 00743	304		ORS	DOTAGZ+8,1	F2203040
04323	0 32000 1 00743	306		ANS	DOTAGZ+8,1 TEST TABLE INTEGER OUT	F2203060
04361	−0 60200 1 00743	336		ORS	DOTAGZ+8,1	F2203380
04363	0 50000 1 00733	338	DOINFO	CLA	DOTAGZ,1 FOR THE DO FORMULA WHOSE	F2203400
04373	0 50000 1 00740	346		CLA	DOTAGZ+5,1	F2203480
04446	−0 60200 1 00743	389		ORS	DOTAGZ+8,1	F2203940
04466	−0 60200 1 00740	405		ORS	DOTAGZ+5,1 IS	F2204100
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
04665	0 50000 1 00743	536	TEST	CLA	DOTAGZ+8,1 IF A SUFFICIENTLY GOOD	F2205430
04710	0 50000 1 00743	555		CLA	DOTAGZ+8,1 WITH PREVIOUS.INTEGER,	F2205620
04717	0 32000 1 00743	562		ANS	DOTAGZ+8,1 USED, AND C(XRC)	F2115690
04725	−0 60200 1 00743	568		ORS	DOTAGZ+8,1	F2205750
04730	−0 60200 1 00743	571		ORS	DOTAGZ+8,1	F2205780
04761	0 50000 1 00740	596		CLA	DOTAGZ+5,1 TEST LEFS SUB. DO	F2206030
04764	0 50000 1 00741	599		CLA	DOTAGZ+6,1 COMPARE	F2206060
04771	0 50000 1 00740	604		CLA	DOTAGZ+5,1 COMPUTE FOR LEFT	F2206110
05002	0 20000 4 00737	613	CAR10	MPY	DOTAGZ+4,4 IF THESE QUANTIT1ES	F2206200
05007	0 50000 1 00740	618		CLA	DOTAGZ+5,1 SUB. DOTAG	F2206250
05142	0 50000 1 00741	713		CLA	DOTAGZ+6,1 HAS COUNTER ADJUSTMENT	F2207200
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
05152	0 50000 1 00740	721		CLA	DOTAGZ+5,1 WILL MAKE IT USEFUL AS	F2207280
05156	0 50000 1 00743	725		CLA	DOTAGZ+8,1	F2207320
05160	−0 50100 1 00735	727		ORA	DOTAGZ+2,1	F2207340
05165	0 50000 1 00743	732		CLA	DOTAGZ+8,1 AN ENTRY T0 CAUSE	F2207390
05176	0 50000 1 00733	741		CLA	DOTAGZ,1	F2207480
05303	0 50000 1 00740	812		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2208190
05305	0 50000 1 00733	814		CLA	DOTAGZ,1 OBTAIN ALPHABETA WRD,	F2208210
05317	0 50000 1 00740	824		CLA	DOTAGZ+5,1 TEST WHETHER OR NOT THIS DO	F2208310
05322	0 50000 1 00734	827		CLA	DOTAGZ+1,1 IF IN R1,IS THIS DO TO BE	F2208340
05325	0 50000 1 00734	830		CLA	DOTAGZ+1,1	F2208370
05330	0 50000 1 00733	833	SPC053	CLA	DOTAGZ,1 R2 FOUND,ARRANGE TO SKIP THIS	F2208400
05350	0 50000 1 00740	849		CLA	DOTAGZ+5,1 OBTAIN INDEX OF LAST R2 AND	F2208560
05354	0 50000 1 00740	853		CLA	DOTAGZ+5,1 DOTAG EXHAUSTED. IF DO FOUND	F2208600
05411	0 50000 1 00733	883	TINFOR	CLA	DOTAGZ,1 C(XRA)=INDEX OF DR TO BE	F2208900
05444	0 50000 1 00740	914		CLA	DOTAGZ+5,1	F2209210
05446	0 50000 1 00742	916	TRAW10	CLA	DOTAGZ+7,1 OBTAIN T2 WORD	F2209230
05452	0 50000 1 00740	920		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2209270
05456	0 50000 1 00734	924	TRAW35	CLA	DOTAGZ+1,1 IF INCOMPLETE TEST,IS THIS A	F2209310
05461	0 50000 1 00740	927		CLA	DOTAGZ+5,1 THIS DO IS TO BE SKIPPED	F2209340
05465	0 50000 1 00740	931		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2209380
05612	0 50000 1 00734	1020	ID050	CLA	DOTAGZ+1,1 DO IN THE SUB NEST.	F2210260
05625	0 50000 1 00740	1031	ID100	CLA	DOTAGZ+5,1 SUB NEST DO FORMULA,	F2210370
05644	0 50000 1 00734	1046		CLA	DOTAGZ+1,1 SUBSCRIPTS IN THE	F2210520
05730	0 50000 1 00741	1098	ID320	CLA	DOTAGZ+6,1 QUANTITIES.	F2211040
05757	−0 60200 1 00740	1121		ORS	DOTAGZ+5,1 FOR THIS DORC.	F2211270
06044	0 50000 1 00733	1174		CLA	DOTAGZ,1 ENTRY BLOCK	F2211800
06100	−0 32000 1 00741	1203		ANA	DOTAGZ+6,1 BEEN FOUND,	F2212090
06113	0 32000 1 00743	1214		ANS	DOTAGZ+8,1 AS COUNTER AND TEST, ENTER IN	F2212200
06117	−0 60200 1 00743	1218		ORS	DOTAGZ+8,1 FOUND.	F2212240
06121	−0 60200 1 00741	1220		ORS	DOTAGZ+6,1	F2212260
06125	−0 32000 1 00740	1224		ANA	DOTAGZ+5,1 TEST.	F2212300
06127	0 50000 1 00740	1226	1NS05	CLA	DOTAGZ+5,1 TEST TO SEE IF TRANSFER	F2212320
06131	0 50000 1 00733	1228		CLA	DOTAGZ,1 MAKE TRASTO ENTRY	F2212340
06133	0 50000 1 00734	1230		CLA	DOTAGZ+1,1 IN LOCATION OF SYMBOL.	F2212360
06531	0 50000 1 00733	1489		CLA	DOTAGZ,1	F2214950
06574	0 50000 1 00733	1524		CLA	DOTAGZ,1 PROPER	F2215300
06623	0 50000 1 00733	1547		CLA	DOTAGZ,1 THROUGH RESET.	F2215530
06630	0 50000 1 00741	1552	RES410	CLA	DOTAGZ+6,1 HAS COUNTER BEEN FOUND.	F2215580
05603	0 50000 1 00740	1597		CLA	DOTAGZ+5,1 OBTAIN LEVEL OF THIS DO IN	F2215990
05606	0 50000 1 00734	1600		CLA	DOTAGZ+1,1 OBTAIN SYMBOL OF THIS DO	F2216020
05612	0 50000 1 00734	1604		CLA	DOTAGZ+1,1 OBTAIN SYMBOL AGAIN	F2216060
05670	0 50000 1 00733	1650		CLA	DOTAGZ,1	F2216520
05711	0 50000 1 00733	1667		CLA	DOTAGZ,1 GETNAM TO DETERMINE LABLE	F2216690
05725	−0 60200 1 00741	1679		ORS	DOTAGZ+6,1	F2216810
05742	0 50000 1 00740	1692		CLA	DOTAGZ+5,1 OBTAIN LEVEL OF DL	F2216940
05746	0 50000 1 00740	1696		CLA	DOTAGZ+5,1 OBTAIN LEVEL OF THIS DO	F2216980
05754	0 50000 1 00734	1702		CLA	DOTAGZ+1,1 IF NOT,IS THIS DO A DR.	F2217040
05763	0 50000 1 00740	1709		CLA	DOTAGZ+5,1 IS NEW IN DL.	F2217110
06000	−0 60200 2 00740	1722		ORS	DOTAGZ+5,2	F2217240
06027	0 50000 1 00740	1746		CLA	DOTAGZ+5,1 OBTAIN LEVEL OF DO	F2217480
06032	0 50000 1 00734	1749		CLA	DOTAGZ+1,1 OBTAIN SYMBOL OF NEW DO,	F2217510
06101	0 50000 1 00733	1788		CLA	DOTAGZ,1 FOR	F2217900
06155	0 50000 2 00733	1833		CLA	DOTAGZ,2 IN THESE SPECIAL RANGES	F2218350
06312	−0 60200 1 00740	1926		ORS	DOTAGZ+5,1	F2219280
06314	−0 60200 1 00740	1928		ORS	DOTAGZ+5,1 RSYM FOUND,E2 PREVIOUSLY	F2219300
06331	−0 60200 2 00740	1941		ORS	DOTAGZ+5,2	F2219430
06460	0 50000 1 00733	2035	STO35	CLA	DOTAGZ,1 LIST ROUTINE USED	F2220370

DOTAPE = 147

Definition
00223 2088 DOTAPE EQU 147 F2220840

References (3)

04012	0 77200 0 00223	104	BEGIN	REW	DOTAPE REWIND DOTAG TAPE	F2201000
04117	0 76200 0 00223	173	NEST10	RDS	DOTAPE ONE	F2201700
04153	0 76400 0 00223	201		BST	DOTAPE CORRECT READ.	F2201990

DRMENT = 2694

Definition
05206 −0 63400 4 05212 749 DRMENT SXD DRM05,4 THIS ROUTINE F2207560
Reference
04174 0 07400 4 05206 218 TSX DRMENT,4 AND GO TO DRMENT TO F2202160

DRMTAG = 2619

Definition
05073 0 00001 0 00004 672 DRMTAG HTR 4,0,1 (ADTAG) F2206790

References (2)

	05235	0 50000 0 05073	772		CLA	DRMTAG	F2207790
	06567	0 50000 0 05073	1519		CLA	DRMTAG DRUM TAG ENTRY	F2215250

DS4V10 = 3196

Definition
06174 0 50000 0 03744 1848 DS4V10 CLA NEXTA A AND B FOR SECOND F2218500
Reference
06167 0 10000 0 06174 1843 TZE DS4V10 IF THIS RANGE IS EMPTY, F2218450

DS4V20 = 3207

Definition
06207 0 02000 0 05555 1859 DS4V20 TRA RELEND EXIT F2218610

References (5)

06124	−3 00000 1 06207	1808	TXL	DS4V20,1,0 EXIT IF FORVAL EMPTY	F2218100
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
06201	0 10000 0 06207	1853	TZE	DS4V20	F2218550
06352	0 02000 0 06207	1958	TRA	DS4V20 EXIT	F2219600

DS4VAL = 3155

Definition
1806 DRUM SEARCH OF FORVAL F2218080

06123 −0 53400 1 04112 1807 DS4VAL LXD END80,1 OBTAIN FORVAL EMPTY INDICATOR, F2218090
Reference
06021 0 02000 0 06123 1739 DSD200 TRA DS4VAL F2217410

DSD100 = 3036

Definition
05734 −3 00001 4 06021 1686 DSD100 TXL DSD200,4,1 TRA IF DELTA IS 1 F2216880

References (2)

D	05602	−3 00000 1 05734	1596	DSDR20	TXL	DSD100,1 EXIT IF DOTAG EXHAUSTED.	F2215980
D	05605	−3 00000 2 05734	1599	DSDR30	TXL	DSD100,2 D6 AND EXIT IF NOT IN DC.	F2216010

DSD110 = 3041

Definition
05741 −0 53400 1 03722 1691 DSD110 LXD XL,1 OBTAIN INDEX OF DL IN XRA F2216930
Reference
05737 0 02000 0 05741 1689 TRA DSD110 LIGHT OFF F2216910

DSD115 = 3044

Definition
05744 1 77767 1 05745 1694 DSD115 TXI DSD118,1,−9 TAKE NEXT DOWN DO IF POSSIBLE F2216960
Reference
05757 0 02000 0 05744 1705 TRA DSD115 IF NOT,GO BACK TO GET NEXT DO F2217070

DSD118 = 3045

Definition
D 05745 −3 00000 1 06021 1695 DSD118 TXL DSD200,1 OTHERWISE,EXIT, F2216970

References (3)

05570	−0 63400 1 05745	1586		SXD	DSD118,1	F2215880
05744	1 77767 1 05745	1694	DSD115	TXI	DSD118,1,−9 TAKE NEXT DOWN DO IF POSSIBLE	F2216960
05775	0 10000 0 05745	1719		TZE	DSD118 IF RESUTL ZERO,GO BACK	F2217210

DSD120 = 3048

Definition
D 05750 −3 00000 2 06021 1698 DSD120 TXL DSD200,2 IN DL. IF NOT,EXIT. F2217000

References (2)

	05743	0 62200 0 05750	1693		STD	DSD120 AND STORE IN TEST INSTR.	F2216950
D	05765	−3 00000 2 05750	1711	DSD150	TXL	DSD120,2 AGAIN IN DC. IF NOT IN	F2217130

DSD130 = 3056

Definition
05760 −0 63400 2 05765 1706 DSD130 SXD DSD150,2 IF DO IS DC, F2217080
Reference
05753 0 10000 0 05760 1701 TZE DSD130 IF SO,TRA. F2217030

DSD140 = 3057

Definition
05761 1 77767 1 05762 1707 DSD140 TXI DSD145,1,−9 F2217090
Reference
05766 0 02000 0 05761 1712 TRA DSD140 DC, GO TO TEST IF IN DL F2217140

DSD145 = 3058

Definition
D 05762 −3 00000 1 06021 1708 DSD145 TXL DSD200,1 F2217100

References (2)

	05571	−0 63400 1 05762	1587		SXD	DSD145,1	F2215890
	05761	1 77767 1 05762	1707	DSD140	TXI	DSD145,1,−9	F2217090

DSD150 = 3061

Definition
D 05765 −3 00000 2 05750 1711 DSD150 TXL DSD120,2 AGAIN IN DC. IF NOT IN F2217130
Reference
05760 −0 63400 2 05765 1706 DSD130 SXD DSD150,2 IF DO IS DC, F2217080

DSD160 = 3063

Definition
05767 −0 75400 2 00000 1713 DSD160 PXD 0,2 INITIALIZE F2217150
Reference
05756 0 10000 0 05767 1704 TZE DSD160 IF SO,TRA, F2217060

DSD170 = 3070

Definition
05776 −0 53400 2 03722 1720 DSD170 LXD XL,2 F2217220
Reference
05740 0 02000 0 05776 1690 TRA DSD170 LIGHT ON F2216920

DSD175 = 3078

Definition
06006 −0 75400 2 00000 1728 DSD175 PXD 0,2 F2217300
Reference
06005 2 00001 2 06006 1727 TIX DSD175,2,1 F2217290

DSD200 = 3089

Definition
06021 0 02000 0 06123 1739 DSD200 TRA DS4VAL F2217410

References (5)

	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
D	05745	−3 00000 1 06021	1695	DSD118	TXL	DSD200,1 OTHERWISE,EXIT,	F2216970
D	05750	−3 00000 2 06021	1698	DSD120	TXL	DSD200,2 IN DL. IF NOT,EXIT.	F2217000
D	05762	−3 00000 1 06021	1708	DSD145	TXL	DSD200,1	F2217100

DSDR00 = 2939

Definition
05573 −0 76000 0 00144 1589 DSDR00 MSE 100 F2215910

DSDR10 = 2945

Definition
05601 1 77767 1 05602 1595 DSDR10 TXI DSDR20,1,−9 TAKE NEXT DOWN DO,IF POSSIBLE F2215970

References (2)

	05611	−3 00002 4 05601	1603		TXL	DSDR10,4,2 IF NOT DR1,GO BACK,UNLESS DELTA3	F2216050
	05614	−0 10000 0 05601	1606		TNZ	DSDR10 IF NOT RSYM1 OR RSYM2,G0 BACK	F2216080

DSDR20 = 2946

Definition
D 05602 −3 00000 1 05734 1596 DSDR20 TXL DSD100,1 EXIT IF DOTAG EXHAUSTED. F2215980

References (5)

	05567	−0 63400 1 05602	1585		SXD	DSDR20,1	F2215870
	05601	1 77767 1 05602	1595	DSDR10	TXI	DSDR20,1,−9 TAKE NEXT DOWN DO,IF POSSIBLE	F2215970
	05636	0 10000 0 05602	1624		TZE	DSDR20 RETURN IF RESULT ZERO	F2216260
	05702	0 02000 0 05602	1660		TRA	DSDR20	F2216620
D	05733	−3 00000 0 05602	1685	DSDR95	TXL	DSDR20,0 NEXT R1. DEC CONTAINS XNEXTR1	F2216870

DSDR30 = 2949

Definition
D 05605 −3 00000 2 05734 1599 DSDR30 TXL DSD100,2 D6 AND EXIT IF NOT IN DC. F2216010
Reference
05600 0 62200 0 05605 1594 STD DSDR30 DC TEST INSTR F2215960

DSDR50 = 2961

Definition
05621 −0 63400 1 06365 1611 DSDR50 SXD XR1,1 SAVE F2216130
Reference
05610 0 10000 0 05621 1602 TZE DSDR50 IF THIS DO IS DR1,TRA. F2216040

DSDR55 = 2970

Definition
05632 0 07400 4 05441 1620 DSDR55 TSX TRAWRD,4 GO TO TRAWRD AND F2216220
Reference
05630 −3 00002 4 05632 1618 TXL DSDR55,4,2 F2216200

DSDR60 = 2983

Definition
A 05647 0 76500 0 00000 1633 DSDR60 LRS F2216350
Reference
05644 0 62100 0 05647 1630 STA DSDR60 F2216320

DSDR62 = 2986

Definition
05652 −0 60000 0 06371 1636 DSDR62 STQ D2D1 F2216380
Reference
05650 0 10000 0 05652 1634 TZE DSDR62 IF TRANSFERS EXIST DC T0 DL, F2216360

DSDR65 = 2989

Definition
05655 0 50000 0 03672 1639 DSDR65 CLA ATSW TEST ADDED TAG SWITCH F2216410
Reference
05640 −3 00001 4 05655 1626 TXL DSDR65,4,1 TR IF DELTA=1 F2216280

DSDR70 = 2999

Definition
05667 −0 53400 1 06365 1649 DSDR70 LXD XR1,1 FIND NAME OF TAG IN R1 F2216510
Reference
05661 0 02000 0 05667 1643 TRA DSDR70 FOUND F2216450

DSDR75 = 3005

Definition
05675 −0 53400 1 06365 1655 DSDR75 LXD XR1,1 LIST STORES F2216570
Reference
05666 0 02000 0 05675 1648 TRA DSDR75 F2216500

DSDR80 = 3008

Definition
05700 −0 53400 1 05733 1658 DSDR80 LXD DSDR95,1 F2216600

References (2)

	05654	0 10000 0 05700	1638		TZE	DSDR80 IF NO TRANSFERS DR TO DC,EXIT	F2216400
	05656	−0 10000 0 05700	1640		TNZ	DSDR80 IF ADDED DELTA TWO, SKIP INSERT	F2216420

DSDR85 = 3011

Definition
05703 0 10000 0 06022 1661 DSDR85 TZE 2R0000 GO TO R2 SEARCH IF NO TRA R1 TO D6 F2216630
Reference
05635 3 00002 4 05703 1623 TXH DSDR85,4,2 TRANSFER IF DELTA IS THREE F2216250

DSDR87 = 3023

Definition
05717 −0 53400 1 06365 1673 DSDR87 LXD XR1,1 USE TAGADD TO INSERT F2216750
Reference
05707 0 02000 0 05717 1665 TRA DSDR87 NOT FOUND,GO TO DSDR87 F2216670

DSDR89 = 3030

Definition
05726 −0 53400 1 06365 1680 DSDR89 LXD XR1,1 LIST STORES F2216820
Reference
05716 0 02000 0 05726 1672 TRA DSDR89 F2216740

DSDR90 = 3033

Definition
05731 0 02000 0 06022 1683 DSDR90 TRA 2R0000 GO TO R2 ROUTINE AND F2216850

DSDR92 = 3034

Definition
05732 −0 53400 4 03732 1684 DSDR92 LXD DELTA,4 RETURN HERE F2216860

References (2)

D	06026	−3 00000 1 05732	1745	2R0020	TXL	DSDR92,1 EXIT IF PARTLY FULL DOTAG EXHAUSTED	F2217470
D	06031	−3 00000 2 05732	1748	2R0030	TXL	DSDR92,2 LR1,EXIT IF NEW DO NOT IN XR1.	F2217500

DSDR95 = 3035

Definition
D 05733 −3 00000 0 05602 1685 DSDR95 TXL DSDR20,0 NEXT R1. DEC CONTAINS XNEXTR1 F2216870

References (2)

	05637	−0 63400 1 05733	1625		SXD	DSDR95,1	F2216270
	05700	−0 53400 1 05733	1658	DSDR80	LXD	DSDR95,1	F2216600

FORTAG = 476

Definition
00734 16 FORTAG BSS 1 F2200140
Reference
04034 −0 53400 1 00733 122 LXD FORTAG−1,1 INITIALIZE F2201170

FRSTAG = 2047

Definition
03777 +000000004000 93 FRSTAG OCT 4000 F2200890
Reference
04040 0 50000 0 03777 126 PAT01 CLA FRSTAG INITIALIZE NEW TAG NAME BASE F2201220

GETN05 = 3330

Definition
06402 0 34000 1 07301 1983 GETN05 CAS NAMZ,1 DO FORMULA. F2219850
Reference
D 06406 3 00000 1 06402 1987 GETN20 TXH GETN05,1 F2219890

GETN10 = 3333

Definition
06405 1 77776 1 06406 1986 GETN10 TXI GETN20,1,−2 F2219880
Reference
06403 0 02000 0 06405 1984 TRA GETN10 F2219860

GETN20 = 3334

Definition
D 06406 3 00000 1 06402 1987 GETN20 TXH GETN05,1 F2219890

References (3)

06377	−0 63400 1 06406	1980		SXD	GETN20,1 TABLE NAMZ FOR THE NAME	F2219820
06401	0 02000 0 06406	1982		TRA	GETN20	F2219840
06405	1 77776 1 06406	1986	GETN10	TXI	GETN20,1,−2	F2219880

GETN30 = 3337

Definition
06411 0 50000 1 07302 1990 GETN30 CLA NAMZ+1,1 F2219920
Reference
06404 0 02000 0 06411 1985 TRA GETN30 F2219870

GETNAM = 3326

Definition
1978 SUBROUTINE GETNAM F2219800

06376 −0 53400 1 04011 1979 GETNAM LXD NAMXX,1 THIS ROUTINE SEARCHES F2219810

References (3)

05673	0 07400 4 06376	1653	TSX	GETNAM,4	F2216550
05714	0 07400 4 06376	1670	TSX	GETNAM,4	F2216720
06104	0 07400 4 06376	1791	TSX	GETNAM,4	F2217930

L(1500 = 2036

Definition
03764 0 02734 0 00000 82 L(1500 0,0,1500 F2200780

References (2)

	04377	−0 53400 1 03764	350	TAG00	LXD	L(1500,1 THIS ROUTINE	F2203520
	05417	−0 53400 1 03764	889	TINFXX	LXD	L(1500,1 PUT MAX FORTAG INDEX IN XRA	F2208960

L(450) = 2035

Definition
03763 0 00702 0 00000 81 L(450) 0,0,450 F2200770

References (2)

	04120	−0 53400 2 03763	174		LXD	L(450),2 NEST OF DO FORMULAS	F2201710
	04255	−0 53400 1 03763	268		LXD	L(450),1 COUNT NR.	F2202670

LADDIN = 2625

Definition
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

References (4)

04014	0 50000 1 05106	106	BEG10	CLA	LADDIN+5,1 DRUM PROGRAM	F2201020
04053	0 50000 1 05106	137		CLA	LADDIN+5,1 ALL	F2201330
04056	0 50000 1 05106	140		CLA	LADDIN+5,1 WORD	F2201360
05033	0 50000 1 05106	638		CLA	LADDIN+5,1 TEST	F2206460

LIST10 = 2592

Definition
05040 −0 75400 0 00000 643 LIST10 PXD 0,0 ZERO IN ACC. F2206510
Reference
05036 −0 10000 0 05040 641 TNZ LIST10 TABLE. F2206490

LIST20 = 2593

Definition
05041 0 36100 2 00000 644 LIST20 ACL 0,2 COMPUTE F2206520

References (2)

	05032	0 62100 0 05041	637		STA	LIST20 INITIALIZE ADDRESSES.	F22064S0
	05042	2 00001 2 05041	645		TIX	LIST20,2,1 ENTRY	F2206530

LIST30 = 2598

Definition
05046 0 70000 4 00000 649 LIST30 CPY 0,4 ENTRY F2206560

References (2)

	05031	0 62100 0 05046	636		STA	LIST30 PLUS ORIGIN EI AND	F2206440
	05047	2 00001 4 05046	650		TIX	LIST30,4,1 AND	F2206570

LIST40 = 2608

Definition
A 05060 0 00000 0 00000 659 LIST40 HTR E.S. F2206660

References (2)

	05025	−0 63400 4 05060	632	LIST	SXD	LIST40,4 SAVE LINKAGE	F2206400
	05056	−0 53400 4 05060	657		LXD	LIST40,4 EXIT	F2206640

LIST50 = 2609

Definition
05061 0 00000 0 05063 660 LIST50 HTR E1 L(E1) F2206670
Reference
05030 0 40000 0 05061 635 ADD LIST50 COMPUTE NR, OF WRDS F2206430

LIST60 = 2610

Definition
A 05062 0 00000 0 00000 661 LIST60 HTR E.S. F2206680

References (2)

	05044	0 60200 0 05062	647		SLW	LIST60 CHECK SUM.	F2206540
	05050	0 70000 0 05062	651		CPY	LIST60 CHECK SUM.	F2206580

LOWP0S = 2024

Definition
03750 70 LOWP0S BSS 1 5,3,1 1F LL SUBSCR IS X1,X2,X3 RESPECT. (ID) F2200660

References (3)

05772	−0 63400 4 03750	1132	SXD	LOWP0S,4	F2211380
06001	−0 53400 2 03750	1723	LXD	LOWP0S,2	F2217250
06332	−0 53400 2 03750	1942	LXD	LOWP0S,2 OBTAIN INDEX QUANTITY 1, 3, 5.	F2219440

MAKESC = 2262

Definition
04326 0 50000 0 03755 309 MAKESC CLA L(4) INITIALIZE F2203090

References (3)

04272	0 10000 0 04326	281	TZE	MAKESC	F2202810
04304	0 02000 0 04326	291	TRA	MAKESC MAKE ONE. (RETURN IS TO DOF40)	F2202910
04313	0 02000 0 04326	298	TRA	MAKESC MAKE A COUNTER (RETURN IS T0 DOF40)	F2202980

NAMKEY = 2617

Definition
05071 0 00003 0 00002 670 NAMKEY HTR 2,0,3 F2206770

References (2)

	04205	0 50000 0 05071	228		CLA	NAMKEY	F2202250
	04230	0 50000 0 05071	247		CLA	NAMKEY	F2202440

NEST10 = 2127

Definition
04117 0 76200 0 00223 173 NEST10 RDS DOTAPE ONE F2201700
Reference
04154 0 02000 0 04117 202 TRA NEST10 AFTER FIFTH INCORRECT READ, F2202002

NEST20 = 2129

Definition
04121 0 70000 2 00733 175 NEST20 CPY DOTAGZ,2 FROM F2201720
Reference
04156 3 00000 2 04121 204 NEST60 TXH NEST20,2,0 INDEX COPY. IF DOTAG F2202020

NEST30 = 2132

Definition
04124 0 50000 0 03751 178 NEST30 CLA L(0) INITIALIZING INSTRUCTIONS. F2201750
Reference
04162 0 02000 0 04124 208 TRA NEST30 NO ENTRIES LEFT, GO TO NEST30). F2202060

NEST35 = 2153

Definition
04151 1 00001 1 04152 199 NEST35 TXI NEST40,1,1 IF ERROR, . F2201970
Reference
04147 0 02000 0 04151 197 TRA NEST35 TEST F2201950

NEST40 = 2154

Definition
04152 3 00004 1 04155 200 NEST40 TXH NEST50,1,4 TRY 4 TIMES MORE FOR F2201985
Reference
04151 1 00001 1 04152 199 NEST35 TXI NEST40,1,1 IF ERROR, . F2201970

NEST50 = 2157

Definition
04155 0 07400 4 00004 203 NEST50 TSX DIAG,4 ERROR. GO TO DIAGNOSTIC F2202015
Reference
04152 3 00004 1 04155 200 NEST40 TXH NEST50,1,4 TRY 4 TIMES MORE FOR F2201985

NEST60 = 2158

Definition
04156 3 00000 2 04121 204 NEST60 TXH NEST20,2,0 INDEX COPY. IF DOTAG F2202020
Reference
04122 1 77777 2 04156 176 TXI NEST60,2,−1 DOTAPE. F2201730

NEST70 = 2163

Definition
A 04163 0 00000 0 00000 209 NEST70 HTR E.S. F2202070
Reference
04157 0 70000 0 04163 205 CPY NEST70 STORAGE FULL, AND MORE F2202030

NEST80 = 2166

Definition
04166 0 60100 2 05067 212 NEST80 STO E1+4,2 FOUR WORDS OF 35 ONES. F2202100
Reference
04167 2 00001 2 04166 213 TIX NEST80,2,1 F2202120

NEST81 = 2176

Definition
D 04200 −3 00000 0 04212 223 NEST81 TXL NEST84,0 IN CORE TABLE NAME F2202210

References (2)

	04206	−0 63400 1 04200	229		SXD	NEST81,1	F2202260
	04210	−0 53400 1 04200	231		LXD	NEST81,1	F2202280

NEST82 = 2177

Definition
04201 0 50000 1 07301 224 NEST82 CLA NAMZ,1 F2202210
Reference
D 04212 3 00000 1 04201 233 NEST84 TXH NEST82,1 F2202300

NEST84 = 2186

Definition
D 04212 3 00000 1 04201 233 NEST84 TXH NEST82,1 F2202300

References (3)

	04176	−0 63400 1 04212	221		SXD	NEST84,1 TO DRUM TABLE NAME	F2202190
D	04200	−3 00000 0 04212	223	NEST81	TXL	NEST84,0 IN CORE TABLE NAME	F2202210
	04211	1 77776 1 04212	232		TXI	NEST84,1,−2	F2202290

NEST85 = 2190

Definition
D 04216 −3 00000 0 04234 237 NEST85 TXL NEST88,0 IN CORE TABLE ADTAG F2202340

References (2)

	04227	−0 63400 1 04216	246		SXD	NEST85,1	F2202430
	04232	−0 53400 1 04216	249		LXD	NEST85,1	F2202460

NEST86 = 2191

Definition
04217 0 50000 1 07136 238 NEST86 CLA ADTAGZ+1,1 EXCEPT F2202360
Reference
D 04234 3 00000 1 04217 251 NEST88 TXH NEST86,1 F2202480

NEST87 = 2203

Definition
04233 1 77776 1 04234 250 NEST87 TXI NEST88,1,−2 F2202470
Reference
04220 −0 12000 0 04233 239 TMI NEST87 RESET F2202370

NEST88 = 2204

Definition
D 04234 3 00000 1 04217 251 NEST88 TXH NEST86,1 F2202480

References (3)

	04214	−0 63400 1 04234	235		SXD	NEST88,1 TO DRUM TABLE NAME	F2202320
D	04216	−3 00000 0 04234	237	NEST85	TXL	NEST88,0 IN CORE TABLE ADTAG	F2202340
	04233	1 77776 1 04234	250	NEST87	TXI	NEST88,1,−2	F2202470

NEST90 = 2222

Definition
04256 0 70000 1 00733 269 NEST90 CPY DOTAGZ,1 OF NESTS. F2202680
Reference
D 04260 3 00000 1 04256 271 NEST95 TXH NEST90,1 (DEC HAS DOTAG IX) F2202710

NEST95 = 2224

Definition
D 04260 3 00000 1 04256 271 NEST95 TXH NEST90,1 (DEC HAS DOTAG IX) F2202710

References (2)

	04130	−0 63400 2 04260	182		SXD	NEST95,2 DECS	F2201800
	04257	1 77777 1 04260	270		TXI	NEST95,1,−1 IN DOREC.	F2202700

NESTEN = 2164

Definition
04164 −0 53400 2 03755 210 NESTEN LXD L(4),2 PUT END OF NEST INDICATION F2202080
Reference
04264 3 00702 1 04164 275 DOF10 TXH NESTEN,1,450 IF ANY. F2202750

NEWTAG = 1979

Definition
03673 23 NEWTAG BSS 1 (INIT 4000M0DS, FIRSTTAG) F2200210

References (8)

04041	0 60100 0 03673	127		STO	NEWTAG	F2201230
04335	0 50000 0 03673	316		CLA	NEWTAG GET A NAME	F2203160
04340	0 60100 0 03673	319		STO	NEWTAG UP DATE NEWTAG.	F2203190
05263	0 50000 0 03673	795		CLA	NEWTAG	F2208020
05264	0 56000 0 03673	796		LDQ	NEWTAG	F2208030
05267	0 60100 0 03673	799		STO	NEWTAG	F2208060
06037	0 50000 0 03673	1169	NAM20	CLA	NEWTAG OBTAIN	F2211750
06042	0 60100 0 03673	1172		STO	NEWTAG	F2211780

NORMRP = 4081

Definition
07761 0 76200 0 00221 2073 NORMRP RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE. F2220736
Reference
07756 0 10000 0 07761 2070 TZE NORMRP F2220715

NORMRT = 3495

Definition
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
Reference
04111 0 02000 0 06647 167 TRA NORMRT F2201635

NRSUBS = 2004

Definition
03724 48 NRSUBS BSS 1 NR. SUBSCRIPTS IN SUBSCR COMBINATION F2200460
Reference
05606 0 60100 0 03724 1016 STO NRSUBS F2210220

NST100 = 2205

Definition
04235 −0 53400 1 00030 252 NST100 LXD DOTAG−1,1 F2202490

NST110 = 2207

Definition
04237 0 50000 1 00743 254 NST110 CLA DOTAGZ+8,1 DOES BIT 20 WD 9 OF THIS DOTAG F2202510
Reference
04250 −3 00671 1 04237 263 NST130 TXL NST110,1,441 F2202610

NST120 = 2215

Definition
04247 1 00011 1 04250 262 NST120 TXI NST130,1,9 F2202590

References (3)

04236	0 02000 0 04247	253	TRA	NST120	F2202500
04241	0 10000 0 04247	256	TZE	NST120 AND	F2202530
04244	−0 10000 0 04247	259	TNZ	NST120	F2202560

NST130 = 2216

Definition
04250 −3 00671 1 04237 263 NST130 TXL NST110,1,441 F2202610
Reference
04247 1 00011 1 04250 262 NST120 TXI NST130,1,9 F2202590

ONETCS = 4

Definition
00004 2099 ONETCS EQU 4 F2220945

References (2)

	06650	0 02000 0 00004	1569		TRA	ONETCS GO TO ONE TO CS ( MONITOR)	F2215727
	07762	0 02000 0 00004	2074		TRA	ONETCS GO TO ONE TO CS (MONITOR)=	F2220737

RCSUBS = 2008

Definition
03730 52 RCSUBS BSS 1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 RELCON F2200500

References (5)

04331	0 60100 0 03730	312		STO	RCSUBS	F2203120
04454	0 50000 0 03730	395		CLA	RCSUBS OR NOT IT	F2204000
04622	0 50000 0 03730	501		CLA	RCSUBS	F2205079
05714	−0 60200 0 03730	1086	ID205	ORS	RCSUBS	F2210920
06105	0 50000 0 03730	1208		CLA	RCSUBS IF ANY RELCONS,	F2212140

REBITS = 2022

Definition
03746 68 REBITS BSS 1 F2200640

References (4)

06227	0 60100 0 03746	1292	2NS90	STO	REBITS 2NS90 SEQ. SINGLE REBITS	F2212980
06232	0 50000 0 03746	1295		CLA	REBITS ADJUSTED FOR DUPE RESETS.	F2213010
06234	0 60100 0 03746	1297		STO	REBITS	F2213030
06241	−0 53400 2 03746	1302		LXD	REBITS,2 TRAWRD RESULT ZERO. IF	F2213080

RELCON = 2908

Definition
971 ROUTINE RELCON PINGPONGS INSTRUCTIONS F2209780

05534 −0 53400 2 03753 972 RELCON LXD L(2),2 INITIALIZE SWITCH F2209790
Reference
05111 0 07400 4 05534 688 TSX RELCON,4 RELCON. F2206950

RELDRA = 2932

Definition
05564 +000000001000 996 RELDRA OCT 1000 DRUM ADDRESS, STATE B. F2210030

References (2)

	05540	0 46000 2 05566	976		LDA	RELDRA+2,2 LOCATE PROPER DRM ADDRESS	F2209830
		05565	2094	RELWDS	SYN	RELDRA+1	F2220900

RELEND = 2925

Definition
05555 −0 53400 2 03752 989 RELEND LXD L(1),2 F2209960
Reference
06207 0 02000 0 05555 1859 DS4V20 TRA RELEND EXIT F2218610

RELWDS = 2933

Definition
05565 2094 RELWDS SYN RELDRA+1 F2220900

References (2)

	05536	−0 53400 1 05565	974	REL20	LXD	RELWDS,1 PUT NR OF DRM WDS IN XRA	F2209810
	05543	−0 53400 1 05565	979		LXD	RELWDS,1 LOAD XRA WITH NR OF DRM WDS	F2209860

RES100 = 3430

Definition
06546 0 76700 0 00011 1502 RES100 ALS 9 F2215080
Reference
06544 −3 00003 2 06546 1500 TXL RES100,2,3 F2215060

RES110 = 3432

Definition
06550 0 50000 0 03751 1504 RES110 CLA L(0) THESE INSTRUCTIONS, F2215100

References (2)

	06543	−3 00002 2 06550	1499		TXL	RES110,2,2	F2215050
	06545	−3 00004 2 06550	1501		TXL	RES110,2,4	F2215070

RES120 = 3435

Definition
06553 0 50000 4 03711 1507 RES120 CLA C1+5,4 ARE GREATER THAN F2215130
Reference
06562 2 00002 4 06553 1514 RES140 TIX RES120,4,2 F2215200

RES130 = 3439

Definition
06557 −0 75400 4 00000 1511 RES130 PXD 0,4 F2215170
Reference
06556 2 00001 4 06557 1510 TIX RES130,4,1 E4(TAG1). F2215160

RES140 = 3442

Definition
06562 2 00002 4 06553 1514 RES140 TIX RES120,4,2 F2215200

References (2)

	06555	0 10000 0 06562	1509		TZE	RES140 THIS INFO IN	F2215150
	06561	1 00001 4 06562	1513		TXI	RES140,4,1	F2215190

RES180 = 3450

Definition
06572 0 07400 4 05510 1522 RES180 TSX TAGENT,4 ENTRY. F2215280

RES200 = 3451

Definition
06573 −0 53400 1 06614 1523 RES200 LXD RES310,1 MAKE F2215290

References (2)

	06465	0 02000 0 06573	1453		TRA	RES200 TRA T0 RES200	F2214590
	06571	0 02000 0 06573	1521		TRA	RES200 TAGTAG	F2215270

RES210 = 3465

Definition
06611 −0 53400 4 06421 1537 RES210 LXD RES45,4 EXIT. F2215430

References (2)

	06644	0 02000 0 06611	1564		TRA	RES210 TRA TO EXIT	F2215700
	06646	0 02000 0 06611	1566		TRA	RES210 TRA T0 EXIT	F2215720

RES300 = 3467

Definition
A 06613 0 00000 0 00000 1539 RES300 HTR PREFIX STORAGE F2215450

References (5)

06372	0 60100 0 06613	1394		STO	RES300 PREFIX (REBITS)	F2214000
06452	0 40200 0 06613	1442		SUB	RES300 PREFIX. IF NOT EQUAL,	F2214480
06466	0 50000 0 06613	1454	RES85	CLA	RES300 NO USABLE ENTRY FOUND.	F2214600
06540	0 50000 0 06613	1496		CLA	RES300 WORD	F2215020
06564	−0 32000 0 06613	1516		ANA	RES300	F2215220

RES310 = 3468

Definition
A 06614 0 00000 0 00000 1540 RES310 HTR INDEX STORAGE F2215460

References (8)

06374	0 60100 0 06614	1396		STO	RES310 OF RESET	F2214020
06441	0 34000 0 06614	1433		CAS	RES310	F2214390
06472	−0 50100 0 06614	1458		ORA	RES310 ENTRY	F2214640
06505	0 50000 0 06614	1469		CLA	RES310 MAKE E2 WORD	F2214750
06516	0 40000 0 06614	1478		ADD	RES310	F2214840
06523	0 50000 0 06614	1483		CLA	RES310 MAKE	F2214890
06530	−0 53400 1 06614	1488		LXD	RES310,1	F2214940
06573	−0 53400 1 06614	1523	RES200	LXD	RES310,1 MAKE	F2215290

RES320 = 3469

Definition
06615 +000000070000 1541 RES320 OCT 70000 PREFIX MASK F2215470
Reference
06450 −0 32000 0 06615 1440 ANA RES320 RETAB ENTRY F2214460

RES330 = 3470

Definition
A 06616 0 00000 0 00000 1542 RES330 HTR RESET NAME STORAGE F2215480

References (4)

06464	0 60100 0 06616	1452	STO	RES330 ENTERED. SAVE NAME.	F2214580
06471	0 60100 0 06616	1457	STO	RES330	F2214630
06534	0 50000 0 06616	1492	CLA	RES330 MAKE	F2214980
06602	0 50000 0 06616	1530	CLA	RES330	F2215360

RES340 = 3471

Definition
A 06617 0 00000 0 00000 1543 RES340 HTR E.S. F2215490

References (3)

06551	0 60100 0 06617	1505	STO	RES340 T0 RES170, DETERMINE	F2215110
06560	−0 60200 0 06617	1512	ORS	RES340	F2215180
06563	0 50000 0 06617	1515	CLA	RES340	F2215210

RES400 = 3472

Definition
06620 0 50000 0 05064 1544 RES400 CLA E2 TEST FOR COEFFICIENT F2215500
Reference
06432 3 00003 2 06620 1426 TXH RES400,2,3 T RA TO RES400 F2214320

RES410 = 3480

Definition
06630 0 50000 1 00741 1552 RES410 CLA DOTAGZ+6,1 HAS COUNTER BEEN FOUND. F2215580
Reference
06626 0 02000 0 06630 1550 TRA RES410 0 F2215560

RES420 = 3493

Definition
06645 0 07400 4 05140 1565 RES420 TSX RSR,4 COUNTER FOUND, USE RSR. F2215710
Reference
06632 −0 10000 0 06645 1554 TNZ RES420 IF SO, GO TO RES420 F2215600

RETABZ = 4077

Definition
07755 1577 RETABZ BSS 1 F2215800

References (8)

06437	0 50000 1 07755	1431	RES70	CLA	RETABZ,1 INDEX.	F2214370
06447	0 50000 1 07755	1439	RES80	CLA	RETABZ,1 COMPARE PREFIX OF	F2214450
06454	0 50000 1 07756	1444		CLA	RETABZ+1,1 IF EQUAL, COMPARE	F2214500
06457	0 50000 1 07757	1447		CLA	RETABZ+2,1 NOT	F2214530
06462	0 50000 1 07755	1450		CLA	RETABZ,1 IF EQUAL,	F2214560
06476	0 60100 1 07755	1462	RES87	STO	RETABZ,1	F2214680
06500	0 60100 1 07756	1464		STO	RETABZ+1,1	F2214700
06502	0 60100 1 07757	1466		STO	RETABZ+2,1	F2214720

SCE010 = 2460

Definition
04634 0 50000 0 03752 511 SCE010 CLA L(1) F2205180
Reference
04645 2 00002 1 04634 520 SCE020 TIX SCE010,1,2 F2205270

SCE015 = 2467

Definition
04643 0 77100 0 00006 518 SCE015 ARS 6 F2205250
Reference
04641 −3 00001 1 04643 516 TXL SCE015,1,1 F2205230

SCE020 = 2469

Definition
04645 2 00002 1 04634 520 SCE020 TIX SCE010,1,2 F2205270

References (2)

	04636	0 02000 0 04645	513		TRA	SCE020 TAG SHOWING WHICH	F2205200
	04637	0 02000 0 04645	514		TRA	SCE020 COEFFICIENTS ARE GREATER	F2205210

SPC000 = 2751

Definition
807 SUBROUTINE SPC000 F2208140

05277 −0 63400 1 05371 808 SPC000 SXD SPC115,1 SAVE INDEX OF DO TO BE SEARCHED. F2208150

References (3)

06060	0 07400 4 05277	1186	TSX	SPC000,4	F2211920
05706	0 07400 4 05277	1664	TSX	SPC000,4 TAG IN R1	F2216660
06467	0 07400 4 05277	2042	TSX	SPC000,4	F2220440

SPC010 = 2764

Definition
05314 −0 53400 1 05371 821 SPC010 LXD SPC115,1 OBTAIN CURRENT INDEX AND F2208280

SPC020 = 2765

Definition
05315 1 77767 1 05316 822 SPC020 TXI SPC040,1,−9 GO DOWN ONE DO,IF POSSIBLE,ELSE F2208290
Reference
05327 −0 10000 0 05315 832 TNZ SPC020 F2208390

SPC040 = 2766

Definition
D 05316 −3 00000 1 05362 823 SPC040 TXL SPC110,1 GO TO SET UP LAST INTERVAL. F2208300

References (2)

	04133	−0 63400 2 05316	185		SXD	SPC040,2 END OF	F2201830
	05315	1 77767 1 05316	822	SPC020	TXI	SPC040,1,−9 GO DOWN ONE DO,IF POSSIBLE,ELSE	F2208290

SPC050 = 2769

Definition
D 05321 −3 00000 2 05362 826 SPC050 TXL SPC110,2 IF NOT,EXIT FOR LAST 1NTERVAL, F2208330

References (2)

	05304	0 62200 0 05321	813		STD	SPC050 INITIALIZE TEST INSTR.	F2208200
D	05361	−3 00000 0 05321	858	SPC105	TXL	SPC050,0	F2208650

SPC053 = 2776

Definition
05330 0 50000 1 00733 833 SPC053 CLA DOTAGZ,1 R2 FOUND,ARRANGE TO SKIP THIS F2208400
Reference
05324 0 10000 0 05330 829 TZE SPC053 GET NEXT DO. F2208360

SPC055 = 2783

Definition
05337 −0 53400 2 05344 840 SPC055 LXD SPC060,2 PUT TINFOR, LIST IND. IN XRB F2208470

SPC058 = 2784

Definition
05340 0 50000 0 03742 841 SPC058 CLA A FOR F2208480
Reference
D 05371 −3 00000 0 05340 866 SPC115 TXL SPC058,0 TINFOR OR TRASTO. F2208730

SPC060 = 2788

Definition
D 05344 −3 00000 0 05401 845 SPC060 TXL SPCSTO,0 TRA TO USE LIST. F2208520

References (5)

05300	−0 63400 2 05344	809		SXD	SPC060,2 SAVE TINFOR,LIST INDICATOR	F2208160
05337	−0 53400 2 05344	840	SPC055	LXD	SPC060,2 PUT TINFOR, LIST IND. IN XRB	F2208470
05345	−0 53400 2 05344	846	SPC065	LXD	SPC060,2 RETURN HERE,TEST TINFOR	F2208530
05366	−0 53400 2 05344	863		LXD	SPC060,2 LASTB. OBTAIN TINFOR,STOTAG	F2208700
05370	0 62200 0 05344	865		STD	SPC060 INDICATOR TO ZERO. GO TO	F2208720

SPC065 = 2789

Definition
05345 −0 53400 2 05344 846 SPC065 LXD SPC060,2 RETURN HERE,TEST TINFOR F2208530

References (3)

05342	0 10000 0 05345	843	TZE	SPC065 INTERVALS,	F2208500
05400	0 02000 0 05345	873	TRA	SPC065 T NOT FOUND	F2208800
05407	0 02000 0 05345	880	TRA	SPC065 ON RETURN,GO TO TEST FINISH.	F2208870

SPC070 = 2791

Definition
05347 −0 53400 1 05371 848 SPC070 LXD SPC115,1 TO SET UP NEXT INTERVAL, F2208550

SPC080 = 2794

Definition
05352 1 77767 1 05353 851 SPC080 TXI SPC090,1,−9 PROCEDURE UNTIL SOME DO IS F2208580
Reference
D 05356 3 00000 2 05352 855 SPC100 TXH SPC080,2 IF THIS DO IS IN R1. F2208620

SPC090 = 2795

Definition
D 05353 −3 00000 1 05362 852 SPC090 TXL SPC110,1 FOUND NOT IN R2,OR UNTIL F2208590

References (2)

	04134	−0 63400 2 05353	186		SXD	SPC090,2 DONEST.	F2201840
	05352	1 77767 1 05353	851	SPC080	TXI	SPC090,1,−9 PROCEDURE UNTIL SOME DO IS	F2208580

SPC100 = 2798

Definition
D 05356 3 00000 2 05352 855 SPC100 TXH SPC080,2 IF THIS DO IS IN R1. F2208620
Reference
05351 0 62200 0 05356 850 STD SPC100 STEP DOWN IN DOTAG BY USUAL F2208570

SPC105 = 2801

Definition
D 05361 −3 00000 0 05321 858 SPC105 TXL SPC050,0 F2208650

References (3)

05301	−0 63400 4 05361	810		SXD	SPC105,4 SAVE TSX INDEX.	F2208170
05372	−0 53400 4 05361	867	SPC120	LXD	SPC105,4 EXIT,ALL STORES DONE,OR,	F2208740
05374	−0 53400 4 05361	869	SPC130	LXD	SPC105,4 EXIT,T FOUND	F2208760

SPC110 = 2802

Definition
05362 0 50000 0 03744 859 SPC110 CLA NEXTA THIS IS SETUP FOR LAST F2208660

References (3)

D	05316	−3 00000 1 05362	823	SPC040	TXL	SPC110,1 GO TO SET UP LAST INTERVAL.	F2208300
D	05321	−3 00000 2 05362	826	SPC050	TXL	SPC110,2 IF NOT,EXIT FOR LAST 1NTERVAL,	F2208330
D	05353	−3 00000 1 05362	852	SPC090	TXL	SPC110,1 FOUND NOT IN R2,OR UNTIL	F2208590

SPC115 = 2809

Definition
D 05371 −3 00000 0 05340 866 SPC115 TXL SPC058,0 TINFOR OR TRASTO. F2208730

References (4)

05277	−0 63400 1 05371	808	SPC000	SXD	SPC115,1 SAVE INDEX OF DO TO BE SEARCHED.	F2208150
05314	−0 53400 1 05371	821	SPC010	LXD	SPC115,1 OBTAIN CURRENT INDEX AND	F2208280
05336	−0 63400 1 05371	839		SXD	SPC115,1 SAVE INDEX OF R2.	F2208460
05347	−0 53400 1 05371	848	SPC070	LXD	SPC115,1 TO SET UP NEXT INTERVAL,	F2208550

SPC120 = 2810

Definition
05372 −0 53400 4 05361 867 SPC120 LXD SPC105,4 EXIT,ALL STORES DONE,OR, F2208740
Reference
05346 −3 00000 2 05372 847 TXL SPC120,2,0 LIST IND. IF ZERO, EXIT. F2208540

SPC130 = 2812

Definition
05374 −0 53400 4 05361 869 SPC130 LXD SPC105,4 EXIT,T FOUND F2208760
Reference
05377 0 02000 0 05374 872 TRA SPC130 T FOUND F2208790

SPCKEY = 2824

Definition
A 05410 0 00000 0 00000 881 SPCKEY HTR STORAGE FOR TABLEKEY F2208880

References (2)

	05302	0 60100 0 05410	811		STO	SPCKEY SAVE LIST KEY WORD	F2208180
	05405	0 50000 0 05410	878		CLA	SPCKEY ACC. AND	F2208850

SPCSTO = 2817

Definition
05401 0 50000 0 03743 874 SPCSTO CLA B FOR TRASTO,E2 AND E3 ARE F2208810
Reference
D 05344 −3 00000 0 05401 845 SPC060 TXL SPCSTO,0 TRA TO USE LIST. F2208520

SPCTIN = 2814

Definition
05376 0 07400 4 05417 871 SPCTIN TSX TINFXX,4 GO TO SEARCH FORTAG F2208780
Reference
05343 −3 00001 2 05376 844 TXL SPCTIN,2,1 GO TO ARRANGE TINFOR SEARCH, OR F2208510

STORES = 3353

Definition
2007 SUBROUTINES STORES AND STORXX F2220090

06431 −0 63400 4 06464 2008 STORES SXD STO40,4 THIS ROUTINE PREPARES F2220100

References (3)

05677	0 07400 4 06431	1657	TSX	STORES,4	F2216590
05730	0 07400 4 06431	1682	TSX	STORES,4	F2216840
06112	0 07400 4 06431	1797	TSX	STORES,4	F2217990

STORXX = 3367

Definition
06447 −0 63400 4 06464 2022 STORXX SXD STO40,4 STORES ENTRY IS USED WITH F2220240
Reference
06120 0 07400 4 06447 1803 TSX STORXX,4 F2218050

SUB010 = 2386

Definition
04522 0 76200 0 00304 436 SUB010 RDS TAUDRM SELECT TAU DRUM. F2204430
Reference
04567 2 00001 1 04522 473 TIX SUB010,1,1 CHECK SUMS DISAGREE F2204805

SUB020 = 2389

Definition
04525 0 60100 4 03714 439 SUB020 STO C1+8,4 SPACE F2204460
Reference
04526 2 00001 4 04525 440 TIX SUB020,4,1 TO ZERO. F2204470

SUB030 = 2401

Definition
04541 0 40000 0 04613 451 SUB030 ADD SUBES2 INSTRUCTION. F2204580
Reference
04542 2 00001 4 04541 452 TIX SUB030,4,1 F2204590

SUB040 = 2408

Definition
04550 0 70000 0 03705 458 SUB040 CPY S1 TAU 1,2,3 F2204650
Reference
04546 −3 00002 2 04550 456 TXL SUB040,2,2 F2204630

SUB050 = 2413

Definition
04555 0 70000 0 03712 463 SUB050 CPY D1 TAU 2,3 F2204700
Reference
04553 −3 00002 2 04555 461 TXL SUB050,2,2 F2204680

SUB060 = 2414

Definition
04556 0 70000 0 04612 464 SUB060 CPY SUBES1 TAU 1,2,3 F2204710
Reference
04551 −3 00001 2 04556 459 TXL SUB060,2,1 F2204660

SUB070 = 2417

Definition
04561 0 36100 4 03713 467 SUB070 ACL C1+7,4 ENTRY CHECK SUM. F2204740
Reference
04562 2 00001 4 04561 468 TIX SUB070,4,1 THREE ATTEMPTS ARE MADE F2204750

SUB075 = 2425

Definition
04571 −0 53400 4 04610 475 SUB075 LXD SUBORG+1,4 REARRANGE C1,C2,D1,D2, F2204820
Reference
04566 0 10000 0 04571 472 TZE SUB075 CHECK SUMS AGREE, TRA. F2204790

SUB080 = 2426

Definition
04572 0 50000 4 03713 476 SUB080 CLA C1+7,4 TO COMPLY WITH CORE F2204830
Reference
D 04601 −3 00000 0 04572 483 SUB085 TXL SUB080,0 F2204900

SUB085 = 2433

Definition
D 04601 −3 00000 0 04572 483 SUB085 TXL SUB080,0 F2204900

References (2)

	04520	−0 63400 4 04601	434	SUBCOM	SXD	SUB085,4 SAVE LINKAGE INDEX.	F2204410
	04603	−0 53400 4 04601	485		LXD	SUB085,4 RESTORE LTNKAGE INDEX,	F2204920

SUB090 = 2434

Definition
04602 0 60100 0 03713 484 SUB090 STO D2 F2204910
Reference
04577 −2 00006 4 04602 481 TNX SUB090,4,6 F2204880

SUB100 = 2438

Definition
04606 0 76100 0 00000 488 SUB100 NOP F2204955

SUBBIT = 2051

Definition
04003 2097 SUBBIT SYN BIT18 F2220930

References (2)

	04306	−0 32000 0 04003	293		ANA	SUBBIT HAS SYM OCCURRED WITH	F2202930
	04465	0 50000 0 04003	404	TAG64	CLA	SUBBIT OR CENTER RESPECTIVELY)	F2204090

SUBCOM = 2384

Definition

		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

References (2)

	04423	0 07400 4 04520	370		TSX	SUBCOM,4 OBTAIN SUB. COM.	F2203730
	05227	0 07400 4 04520	766		TSX	SUBCOM,4 AND	F2207730

SUBES1 = 2442

Definition
A 04612 0 00000 0 00000 492 SUBES1 HTR E.S. F2204990

References (6)

04534	0 60100 0 04612	446		STO	SUBES1 TAU THREE ADD. IS ORG+7TAU	F2204530
04540	0 40000 0 04612	450		ADD	SUBES1 FOR LDA	F2204570
04543	0 62100 0 04612	453		STA	SUBES1	F2204600
04544	0 46000 0 04612	454		LDA	SUBES1 COPY SUB. COMB.	F2204610
04556	0 70000 0 04612	464	SUB060	CPY	SUBES1 TAU 1,2,3	F2204710
04565	0 40200 0 04612	471		SUB	SUBES1 COMPLETE ROUTINE, MAKE.ERROR RET.	F2204780

SUBES2 = 2443

Definition
A 04613 0 00000 0 00000 493 SUBES2 HTR E.S. F2205000

References (4)

04536	0 60100 0 04613	448		STO	SUBES2 ADDRESS	F2204550
04541	0 40000 0 04613	451	SUB030	ADD	SUBES2 INSTRUCTION.	F2204580
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

SUBORG = 2439

Definition
04607 +000006001356 489 SUBORG OCT 6001356 DEC. IS 6, ADD. IS ORG. TAU 3 F2204960

References (5)

04521	−0 53400 1 04607	435		LXD	SUBORG,1 INITIALIZE ERROR COUNTER	F2204420
04523	−0 53400 4 04611	437		LXD	SUBORG+2,4 INITIALIZE	F2204440
04537	0 50000 4 04612	449		CLA	SUBORG+3,4 IN SUBES1	F2204560
04557	−0 53400 4 04607	465		LXD	SUBORG,4 COMPUTE CHECK SUM	F2204720
04571	−0 53400 4 04610	475	SUB075	LXD	SUBORG+1,4 REARRANGE C1,C2,D1,D2,	F2204820

TAGAD1 = 2734

Definition
05256 −0 53400 1 04006 790 TAGAD1 LXD ADTXX,1 F2207970
Reference
05254 3 00000 2 05256 788 TAGADD TXH TAGAD1,2,0 C(IRB) EQ 1 IF NORMAL ADTAG F2207950

TAGAD2 = 2745

Definition
05271 −0 63400 1 04006 801 TAGAD2 SXD ADTXX,1 F2208080

References (2)

	05270	1 77776 1 05271	800		TXI	TAGAD2,1,−2	F2208070
	05276	1 77776 1 05271	806		TXI	TAGAD2,1,−2	F2208130

TAGAD3 = 2746

Definition
05272 0 02000 4 00001 802 TAGAD3 TRA 1,4 F2208088

TAGAD6 = 2747

Definition
05273 0 07400 4 00004 803 TAGAD6 TSX DIAG,4 TABLE WILL NOT HOLD ENTRY. ERROR. GO TO DIAGNOSTIC. F2208093
Reference
05257 −3 00000 1 05273 791 TXL TAGAD6,1,0 F2207980

TAGAD8 = 2748

Definition
05274 0 60100 1 07135 804 TAGAD8 STO ADTAGZ,1 F2208110
Reference
05260 3 00000 2 05274 792 TXH TAGAD8,2,0 XRB=1,NORMAL ADDED TAG F2207990

TAGADD = 2732

Definition
787 SUBROUTINE TAGADD F2207940

05254 3 00000 2 05256 788 TAGADD TXH TAGAD1,2,0 C(IRB) EQ 1 IF NORMAL ADTAG F2207950

References (4)

06643	0 07400 4 05254	1563	TSX	TAGADD,4	F2215690
05664	0 07400 4 05254	1646	TSX	TAGADD,4 INSERT TAG IN R1,RETURN	F2216480
05721	0 07400 4 05254	1675	TSX	TAGADD,4	F2216770
06075	0 07400 4 05254	1784	TSX	TAGADD,4 IN TABLE OF ADDED TAGES	F2217860

TAGENT = 2888

Definition
950 SUBROUTINES TAGENT AND TETAPE F2209570

05510 −0 53400 1 04010 951 TAGENT LXD TAGXX,1 THIS ROUTINE ENTERS F2209580

References (4)

04170	0 07400 4 05510	214		TSX	TAGENT,4 ENTER IN TAGTAG AND	F2202130
04356	0 07400 4 05510	333		TSX	TAGENT,4 ENTER INTO TAGTAG.	F2203350
04432	0 07400 4 05510	377		TSX	TAGENT,4	F2203810
06572	0 07400 4 05510	1522	RES180	TSX	TAGENT,4 ENTRY.	F2215280

TAUDRM = 196

Definition
00304 2092 TAUDRM EQU 196 F2220880
Reference
04522 0 76200 0 00304 436 SUB010 RDS TAUDRM SELECT TAU DRUM. F2204430

TEST10 = 2488

Definition
04670 −0 75400 4 00000 539 TEST10 PXD 0,4 DEPENDING ON P0SITION NR F2205460
Reference
04667 2 00001 4 04670 538 TIX TEST10,4,1 XRC CONTAINS 5,3,1, F2205450

TEST20 = 2497

Definition
04701 −0 53400 4 04704 548 TEST20 LXD TEST35,4 SIXTH OCTAL DIGIT F2205550
Reference
04673 −3 00001 4 04701 542 TXL TEST20,4,1 WHICH THE FORTH OCTAL F2205490

TEST30 = 2498

Definition
04702 0 34000 4 04754 549 TEST30 CAS TESTAB+15,4 IS THE GROUP NUMBER. F2205560
Reference
04706 3 00000 4 04702 553 TEST40 TXH TEST30,4,0 ENTRY NOT FOUND C(XRC)=0. F2205600

TEST35 = 2500

Definition
04704 −3 00017 0 04707 551 TEST35 TXL TEST50,0,15 ENTRY AND CONSIDER F2205580
Reference
04701 −0 53400 4 04704 548 TEST20 LXD TEST35,4 SIXTH OCTAL DIGIT F2205550

TEST40 = 2502

Definition
04706 3 00000 4 04702 553 TEST40 TXH TEST30,4,0 ENTRY NOT FOUND C(XRC)=0. F2205600

References (2)

	04703	1 77777 4 04706	550		TXI	TEST40,4,−1 SEARCH TESTAB FOR	F2205570
	04705	1 77777 4 04706	552		TXI	TEST40,4,−1 C(XRC) AFTER SEARCH, IF	F2205590

TEST50 = 2503

Definition
04707 −0 63400 4 04715 554 TEST50 SXD TEST60,4 COMPARE THIS INTEGER F2205610
Reference
04704 −3 00017 0 04707 551 TEST35 TXL TEST50,0,15 ENTRY AND CONSIDER F2205580

TEST60 = 2509

Definition
D 04715 −3 00000 4 04731 560 TEST60 TXL TEST80,4 (DEC HAS TEST TAB NR. FOR THIS S C.) F2205670

References (2)

	04707	−0 63400 4 04715	554	TEST50	SXD	TEST60,4 COMPARE THIS INTEGER	F2205610
	04720	−0 53400 4 04715	563	TEST75	LXD	TEST60,4 AFTER SEARCH WAS ZERO,	F2205700

TEST70 = 2510

Definition
04716 0 50000 0 04734 561 TEST70 CLA TEST95 IF THE NEW TAG IS F2205680

TEST75 = 2512

Definition
04720 −0 53400 4 04715 563 TEST75 LXD TEST60,4 AFTER SEARCH WAS ZERO, F2205700
Reference
04712 −3 00000 4 04720 557 TXL TEST75,4,0 THAN OLD, USE NEW TAG F2205640

TEST80 = 2521

Definition
04731 0 02000 2 00001 572 TEST80 TRA 1,2 F2205790

References (2)

D	04715	−3 00000 4 04731	560	TEST60	TXL	TEST80,4 (DEC HAS TEST TAB NR. FOR THIS S C.)	F2205670
	04726	3 00000 4 04731	569		TXH	TEST80,4,0	F2205760

TEST85 = 2522

Definition
A 04732 0 00000 0 00000 573 TEST85 HTR STORAGE FOR COMPOSED TST WORD. F2205800

References (2)

	04674	0 60100 0 04732	543		STO	TEST85 DIGIT IS THE CARRY BIT	F2205500
	04700	−0 50100 0 04732	547		ORA	TEST85 POSITION BIT, AND THE	F2205540

TEST90 = 2523

Definition
04733 +000300000000 574 TEST90 OCT 300000000 BITS 10, 11 )-. - -. F2205810
Reference
04677 −0 32000 0 04733 546 ANA TEST90 FIFTH OCTAL DIGIT IS THE F2205530

TEST95 = 2524

Definition
04734 +000000777777 575 TEST95 OCT 777777 F2205820
Reference
04716 0 50000 0 04734 561 TEST70 CLA TEST95 IF THE NEW TAG IS F2205680

TESTAB = 2525

Definition
04735 +000241000000 576 TESTAB OCT 241000000 FIRST SIGNIF DIGIT CONTAINS F2205830
Reference
04702 0 34000 4 04754 549 TEST30 CAS TESTAB+15,4 IS THE GROUP NUMBER. F2205560

TETAPE = 2898

Definition
05522 0 76600 0 00224 961 TETAPE WRS ATAPE THIS ROUTINE F2209680

References (2)

	04171	0 07400 2 05522	215		TSX	TETAPE,2 WRITE BUFFER ON TAPE.	F2202140
	05512	0 07400 2 05522	953		TSX	TETAPE,2 IF POSSIBLE. IF NOT,	F2209600

TINF10 = 2832

Definition
05420 0 50000 1 03670 890 TINF10 CLA FORTZ,1 OBTAIN FORTAG ENTRY F2208970
Reference
D 05426 3 00000 1 05420 897 TINF30 TXH TINF10,1 IF POSSIBLE. OTHERWISE, F2209040

TINF20 = 2837

Definition
05425 1 77777 1 05426 895 TINF20 TXI TINF30,1,−1 FOR.NR. LESS THAN ALPHA. GO F2209020

References (2)

	05434	0 12000 0 05425	903		TPL	TINF20 TAG AND COMPARE WITH SEARCH TAG.	F2209100
	05437	−0 10000 0 05425	906		TNZ	TINF20 IF EQUAL,RETURN TO CALLING	F2209130

TINF30 = 2838

Definition
896 BACK FOR NEXT FORTAG ENTRY F2209030

D 05426 3 00000 1 05420 897 TINF30 TXH TINF10,1 IF POSSIBLE. OTHERWISE, F2209040

References (2)

	04035	−0 63400 1 05426	123		SXD	TINF30,1 FORTAG	F2201180
	05425	1 77777 1 05426	895	TINF20	TXI	TINF30,1,−1 FOR.NR. LESS THAN ALPHA. GO	F2209020

TINF40 = 2840

Definition
05430 0 34000 0 03743 899 TINF40 CAS B COMPARE FOR. NR. WITH BETA F2209060
Reference
05423 0 02000 0 05430 893 TRA TINF40 FOR. NR. GREATER THAN ALPHA. TRA. F2209000

TINFOR = 2825

Definition
882 SUBROUTINES TINFOR AND TINFXX F2208890

05411 0 50000 1 00733 883 TINFOR CLA DOTAGZ,1 C(XRA)=INDEX OF DR TO BE F2208900

References (3)

06034	0 07400 4 05411	1166	RET01	TSX	TINFOR,4 SEARCH RANGE OF XL	F2211720
05660	0 07400 4 05411	1642		TSX	TINFOR,4 GO TO TINFOR AND RETURN	F2216440
06066	0 07400 4 05411	1777		TSX	TINFOR,4 IN R2	F2217790

TINFXX = 2831

Definition
05417 −0 53400 1 03764 889 TINFXX LXD L(1500,1 PUT MAX FORTAG INDEX IN XRA F2208960
Reference
05376 0 07400 4 05417 871 SPCTIN TSX TINFXX,4 GO TO SEARCH FORTAG F2208780

TRABIT = 2023

Definition
03747 69 TRABIT BSS 1 F2200650

References (3)

05443	0 60100 0 03747	913	STO	TRABIT	F2209200
05447	−0 60200 0 03747	917	ORS	TRABIT OR INTO TRABIT	F2209240
05506	−0 32000 0 03747	948	ANA	TRABIT AND IN TRANSFER BITS	F2209550

TRASTO = 2616

Definition
05070 0 00004 0 00003 669 TRASTO HTR 3,0,4 (ADD DOES NOT INCL CHECK SUM) F2206760

References (6)

05162	0 50000 0 05070	729	CLA	TRASTO	F2207360
05200	0 50000 0 05070	743	CLA	TRASTO	F2207500
06140	0 50000 0 05070	1235	CLA	TRASTO	F2212410
06607	0 50000 0 05070	1535	CLA	TRASTO	F2215410
06462	0 50000 0 05070	2037	CLA	TRASTO	F2220390
06466	0 50000 0 05070	2041	CLA	TRASTO	F2220430

TRAW10 = 2854

Definition
05446 0 50000 1 00742 916 TRAW10 CLA DOTAGZ+7,1 OBTAIN T2 WORD F2209230

References (2)

	05455	−3 00001 2 05446	923		TXL	TRAW10,2,1 IF COMPLETE TEST,G0 BACK	F2209300
	05460	−0 10000 0 05446	926		TNZ	TRAW10 IF NOT, GO 8ACK	F2209330

TRAW20 = 2857

Definition
D 05451 −3 00000 1 05471 919 TRAW20 TXL TRAW70,1 IF NONE, EXIT. (DEC HAS DOTAG IX) F2209260

References (2)

	04131	−0 63400 2 05451	183		SXD	TRAW20,2 THAT	F2201810
	05450	1 77767 1 05451	918		TXI	TRAW20,1,−9 TAKE NEXT DO	F2209250

TRAW30 = 2860

Definition
D 05454 −3 00000 4 05471 922 TRAW30 TXL TRAW70,4 EXIT IF DO IS NOT IN RANGE R1 F2209290

References (2)

	05445	0 62200 0 05454	915		STD	TRAW30	F2209220
D	05470	−3 00000 0 05454	934	TRAW65	TXL	TRAW30,0 OTHERWISE,GO TO TRAW30	F2209410

TRAW35 = 2862

Definition
05456 0 50000 1 00734 924 TRAW35 CLA DOTAGZ+1,1 IF INCOMPLETE TEST,IS THIS A F2209310

TRAW40 = 2867

Definition
05463 1 77767 1 05464 929 TRAW40 TXI TRAW50,1,−9 TAKE NEXT DO IF ANY F2209360
Reference
D 05467 3 00000 4 05463 933 TRAW60 TXH TRAW40,4 IF DO IS IN RANGE OF R2,GO BACK F2209400

TRAW50 = 2868

Definition
D 05464 −3 00000 1 05471 930 TRAW50 TXL TRAW70,1 IF NOT, EXIT. OTHERWISE, (DEC.HAS DOTAG IX) F2209370

References (2)

	04132	−0 63400 2 05464	184		SXD	TRAW50,2 TEST	F2201820
	05463	1 77767 1 05464	929	TRAW40	TXI	TRAW50,1,−9 TAKE NEXT DO IF ANY	F2209360

TRAW60 = 2871

Definition
D 05467 3 00000 4 05463 933 TRAW60 TXH TRAW40,4 IF DO IS IN RANGE OF R2,GO BACK F2209400
Reference
05462 0 62200 0 05467 928 STD TRAW60 PUT LEVEL OF THIS DO IN TEST INSTR. F2209350

TRAW65 = 2872

Definition
D 05470 −3 00000 0 05454 934 TRAW65 TXL TRAW30,0 OTHERWISE,GO TO TRAW30 F2209410

References (2)

	05441	−0 63400 4 05470	911	TRAWRD	SXD	TRAW65,4	F2209180
	05471	−0 53400 4 05470	935	TRAW70	LXD	TRAW65,4	F2209420

TRAW70 = 2873

Definition
05471 −0 53400 4 05470 935 TRAW70 LXD TRAW65,4 F2209420

References (3)

D	05451	−3 00000 1 05471	919	TRAW20	TXL	TRAW70,1 IF NONE, EXIT. (DEC HAS DOTAG IX)	F2209260
D	05454	−3 00000 4 05471	922	TRAW30	TXL	TRAW70,4 EXIT IF DO IS NOT IN RANGE R1	F2209290
D	05464	−3 00000 1 05471	930	TRAW50	TXL	TRAW70,1 IF NOT, EXIT. OTHERWISE, (DEC.HAS DOTAG IX)	F2209370

TRAW80 = 2884

Definition
A 05504 0 76300 0 00000 946 TRAW80 LLS PUT TL2-TL1 ONES-IN-ACC F2209530
Reference
05501 0 62100 0 05504 943 STA TRAW80 INITIALIZE SHIFT F2209500

TRAW90 = 2885

Definition
A 05505 0 76700 0 00000 947 TRAW90 ALS POSITION ONES IN ACC F2209540
Reference
05475 0 62100 0 05505 939 STA TRAW90 INITIALIZE SHIFT F2209460

TRAWRD = 2849

Definition

		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

References (5)

06237	0 07400 4 05441	1300		TSX	TRAWRD,4 TEST FOR TANSFER BITS.	F2213060
06343	0 07400 4 05441	1371		TSX	TRAWRD,4 AND USE TRAWRD.	F2213770
05632	0 07400 4 05441	1620	DSDR55	TSX	TRAWRD,4 GO TO TRAWRD AND	F2216220
05774	0 07400 4 05441	1718		TSX	TRAWRD,4 AND GO TO TRAWRD.	F2217200
06044	0 07400 4 05441	1759		TSX	TRAWRD,4 IF NO TRANSFERS,GO BACK	F2217610

TSXC0M = 2615

Definition
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

References (2)

	05052	0 40000 1 05074	653		ADD	TSXC0M+5,1 NEXT	F2206600
	06317	0 50000 0 05067	1931		CLA	TSXC0M AND LIST.	F2219330

			662			F0UR WORD ENTRY BLOCK	F2206690
A	05063	0 00000 0 00000	663	E1	HTR		F2206700

			1199			1NS00 PROCESSES SC CONTAINING ONE DISTINCT INDEXED SUBSCRIPT.	F2212050
	06075	−0 63400 4 06146	1200	1NS00	SXD	1NS20,4 SAVE LINKAGE	F2212060

			999			MASTER RECORD CARD = FN032	F2210055
	05566	−0 63400 4 05622	1000	IDENT	SXD	ID075,4 SAVE INDEX	F2210060

			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

			2047			MASTER RECORD CARD = FN029	F2220485
	07730	−0 53400 2 07770	2048	PP0NG	LXD	PG80,2 ROUTINE PPONG SETS UP DRUM ONE FOR	F2220490

			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

			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

			1992			SUBROUTINE ADDSER	F2219940
	06413	−0 75400 1 00000	1993	ADDSER	PXD	0,1	F2219950

			1806			DRUM SEARCH OF FORVAL	F2218080
	06123	−0 53400 1 04112	1807	DS4VAL	LXD	END80,1 OBTAIN FORVAL EMPTY INDICATOR,	F2218090

			1978			SUBROUTINE GETNAM	F2219800
	06376	−0 53400 1 04011	1979	GETNAM	LXD	NAMXX,1 THIS ROUTINE SEARCHES	F2219810

			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

			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

			971			ROUTINE RELCON PINGPONGS INSTRUCTIONS	F2209780
	05534	−0 53400 2 03753	972	RELCON	LXD	L(2),2 INITIALIZE SWITCH	F2209790

			807			SUBROUTINE SPC000	F2208140
	05277	−0 63400 1 05371	808	SPC000	SXD	SPC115,1 SAVE INDEX OF DO TO BE SEARCHED.	F2208150

			2007			SUBROUTINES STORES AND STORXX	F2220090
	06431	−0 63400 4 06464	2008	STORES	SXD	STO40,4 THIS ROUTINE PREPARES	F2220100

			787			SUBROUTINE TAGADD	F2207940
	05254	3 00000 2 05256	788	TAGADD	TXH	TAGAD1,2,0 C(IRB) EQ 1 IF NORMAL ADTAG	F2207950

			950			SUBROUTINES TAGENT AND TETAPE	F2209570
	05510	−0 53400 1 04010	951	TAGENT	LXD	TAGXX,1 THIS ROUTINE ENTERS	F2209580

			896			BACK FOR NEXT FORTAG ENTRY	F2209030
D	05426	3 00000 1 05420	897	TINF30	TXH	TINF10,1 IF POSSIBLE. OTHERWISE,	F2209040

			882			SUBROUTINES TINFOR AND TINFXX	F2208890
	05411	0 50000 1 00733	883	TINFOR	CLA	DOTAGZ,1 C(XRA)=INDEX OF DR TO BE	F2208900

			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