Symbols

␣␣␣␣␣A = 3506

Definition
06662 66 A BSS 1 UPPER LIMIT OF RANGE F2300630

References (7)

07413	0 60100 0 06662	805		STO	A AND STORE IN A.	F2307940
07442	0 50000 0 06662	828	SPC058	CLA	A FOR	F2308170
07462	0 60100 0 06662	844		STO	A OR EXIT MADE TO SPC110.	F2308330
07465	0 60100 0 06662	847		STO	A INTERVAL. FOR A, USE	F2308360
07505	0 40000 0 06662	863		ADD	A A AND B INTO E1 WORD,	F2308520
07567	0 60100 0 06662	915		STO	A AND STORE IN A	F2309040
07575	0 34000 0 06662	921		CAS	A COMPARE ALPHA AND FORMULA NR.	F2309100

␣␣␣␣␣B = 3507

Definition
06663 67 B BSS 1 LOWER LIMIT OF RANGE F2300640

References (6)

07435	0 60100 0 06663	823		STO	B NEXTA.	F2308120
07443	0 40200 0 06663	829		SUB	B NON EMPTY	F2308180
07467	0 60100 0 06663	849		STO	B USE BETA OF R1, FOUND IN	F2308380
07503	0 50000 0 06663	861	SPCST0	CLA	B FOR TRASTO, E2 AND E3 ARE	F2308500
07571	0 60100 0 06663	917		STO	B B	F2309060
07603	0 34000 0 06663	928	TINF40	CAS	B COMPARE FOR, NR. WITH BETA	F2309170

␣␣␣␣C1 = 3485

Definition
06635 45 C1 BSS 1 COEFF FIRST SYMBOL F2300420

References (8)

07706	0 60100 4 06645	272	SUB020	STO	C1+8,4 SPACE	F2302630
07726	0 70000 0 06635	288		CPY	C1 TAU ONE, TWO, THREE	F2302790
07741	−0 50000 0 06635	299		CAL	C1 AND COMPARE WITH	F2302900
07742	0 36100 4 06644	300	SUB070	ACL	C1+7,4 ENTRY CHECK CUM.	F2302910
07753	0 50000 4 06644	309	SUB080	CLA	C1+7,4 TO COMPLY WITH CORE	F2303000
07756	0 60100 4 06644	312		STO	C1+7,4	F2303030
06774	−0 53400 1 06635	372		LXD	C1,1 IN LEFTMOST POSITION	F2303620
07055	−0 53400 1 06635	560		LXD	C1,1 IF COEFF OTHER THAN 1 SET TAGIND TO ZERO	F2305490

␣␣␣␣C2 = 3487

Definition
06637 47 C2 BSS 1 COEFF 2ND SYMBOL F2300440
Reference
07761 0 60100 0 06637 315 STO C2 F2303060

␣␣␣␣C3 = 3489

Definition
06641 49 C3 BSS 1 COEFF 3RD SYMBOL F2300460
Reference
07730 0 70000 0 06641 290 CPY C3 TAU 3 F2302810

␣␣␣␣D1 = 3491

Definition
06643 51 D1 BSS 1 DIM 1ST SYM, IF TWO-DIMENSIONAL F2300480
Reference
07736 0 70000 0 06643 296 SUB050 CPY D1 TAU 2,3 F2302870

␣␣␣␣D2 = 3492

Definition
06644 52 D2 BSS 1 DIM 2ND SYM, IF THREE-DIMENSIONAL F2300490
Reference
07763 0 60100 0 06644 317 SUB090 STO D2 F2303080

␣␣␣␣DO = 3660

Definition
07114 456 DO BSS 1 F2304460

␣␣␣␣E1 = 4014

Definition
241 FOUR WORD ENTRY BLOCK F2302320

A 07656 0 00000 0 00000 242 E1 HTR F2302330

References (5)

07654	0 00000 0 07656	239	LIST50	HTR	E1 L(E1)	F2302300
07047	0 60100 0 07656	415		STO	E1 SPECIAL ENTRY IF TAGIND	F2304050
07055	0 60100 0 07656	421		STO	E1	F2304110
07343	0 60100 0 07656	764	TE10	STO	E1 AND STORE IN E1.	F2307530
07506	0 60100 0 07656	864		STO	E1 PUT TRASTO INDICATOR IN	F2308530

␣␣␣␣E2 = 4015

Definition
A 07657 0 00000 0 00000 243 E2 HTR F2302340

References (2)

	07057	0 60100 0 07657	423	FND30	STO	E2	F2304130
	07350	0 60100 0 07657	769	TE20	STO	E2 PUT IT INTO E2.	F2307580

␣␣␣␣E3 = 4016

Definition
A 07660 0 00000 0 00000 244 E3 HTR F2302350
Reference
07367 0 60100 0 07660 784 TE60 STO E3 AND STORE IN E3, FINALLY. F2307730

␣␣␣␣E4 = 4017

Definition
A 07661 0 00000 0 00000 245 E4 HTR F2302360

␣␣␣␣S1 = 3486

Definition
06636 46 S1 BSS 1 FIRST SYMBOL F2300430

References (5)

07731	0 70000 0 06636	291	SUB040	CPY	S1 TAU 1,2,3	F2302820
06755	0 50000 1 06644	357	VAL30	CLA	S1+6,1 LEFTMOST IN RSYM1,	F2303470
06772	0 50000 0 06636	370		CLA	S1 CHARACTERISTICS	F2303600
07026	0 50000 1 06644	537	TAGP30	CLA	S1+6,1 GET SYMBOL	F2305260
07053	0 50000 0 06636	558		CLA	S1	F2305470

␣␣␣␣S2 = 3488

Definition
06640 48 S2 BSS 1 2ND SYMBOL F2300450
Reference
07733 0 70000 0 06640 293 CPY S2 TAU2,3 F2302840

␣␣␣␣S3 = 3490

Definition
06642 50 S3 BSS 1 3RD SYMBOL F2300470
Reference
07735 0 70000 0 06642 295 CPY S3 TAU 3 F2302860

␣␣␣␣TS = 3479

Definition
06627 39 TS BSS 1 NEW NAME F2300360

References (2)

	07264	0 60100 0 06627	711		STO	TS AND SAVE IT.	F2307000
	07364	0 40000 0 06627	781		ADD	TS NEW TAG NAME IN ADDRESS.	F2307700

␣␣␣DOX = 3762

Definition
D 07262 −3 00000 0 07266 709 DOX TXL PR25,0 YES, NOT NOT FOUND. ( DEC HAS IX MATCHING DOTAG F2306980

References (3)

07236	−0 63400 1 07262	689	PROCES	SXD	DOX,1 SAVE DOTAG IX	F2306780
07267	−0 53400 1 07262	714		LXD	DOX,1 SEARCH FORTAG	F2307030
07337	−0 53400 1 07262	760		LXD	DOX,1	F2307490

␣␣␣DOZ = 3960

Definition
07570 458 DOZ BSS 1 F2304480

References (6)

07044	0 70000 1 07570	180		CPY	DOZ,1 DOTAG	F2301770
07050	0 70000 1 07571	184	2WD40	CPY	DOZ+1,1 FIRST	F2301810
07062	−0 63400 1 07570	194	2WD70	SXD	DOZ,1	F2301910
06733	−0 53400 1 07570	339		LXD	DOZ,1 .	F2303290
07066	0 50000 1 07570	434	IND10	CLA	DOZ,1 OBTAIN FIRST WORD DOTAG.	F2304240
07104	0 50000 1 07571	448		CLA	DOZ+1,1 FN EDIT CORR CD NR.	F2304384

␣␣␣END = 3728

Definition
07220 0 76600 0 00303 1138 END WRS 195 WRITE NR OF WDS IN TRASTO ON DRUM. F2311260

References (2)

	07211	−3 00000 1 07220	1131		TXL	END,1,0 EXIT IF IRV EMPTY.	F2311190
	07216	0 02000 0 07220	1136		TRA	END	F2311240

␣␣␣IRV = 3327

Definition
06377 1157 IRV SYN DOTAGZ F2311440
Reference
06713 0 00000 0 06377 91 IRVAD IRV F2300880

␣␣␣LR1 = 3495

Definition
06647 55 LR1 BSS 1 LEV DOTAG MATCHING 1ST SUB SYMB (RSYM1) F2300520

References (2)

	07120	0 60100 0 06647	599		STO	LR1 OF	F2305880
	07140	−0 53400 2 06647	615		LXD	LR1,2 AND LEVEL AND	F2306040

␣␣␣LR2 = 3498

Definition
06652 58 LR2 BSS 1 LEV DOTAG MATCHING 2ND SUB SYMB (RSYM2) F2300550

References (2)

	07167	−0 63400 2 06652	641		SXD	LR2,2 SAVE ITS LEVEL .	F2306300
	07205	−0 53400 2 06652	655		LXD	LR2,2 AND LEVEL AND	F2306440

␣␣␣T0P = 32767

Definition
77777 1149 T0P EQU 32767 F2311365
Reference
07614 −0 63400 1 77777 206 BURNCE SXD T0P,1 DRUM 0VERFLOW F2302011

␣␣␣TAG = 3478

Definition
06626 38 TAG BSS 1 ADDRESS HAS FORTAG IX CURRENT F2300350

References (15)

07710	0 50000 0 06626	274		CLA	TAG COMPUTE	F2302650
06744	0 60100 0 06626	348		STO	TAG OBTAINS THE CORRESP0ND1NG SUBSCRIPT	F2303380
07010	0 40200 0 06626	384		SUB	TAG	F2303740
07050	0 50000 0 06626	416		CLA	TAG NOT ZERO	F2304060
07052	−0 50100 0 06626	418		ORA	TAG	F2304080
07054	−0 50100 0 06626	420	FND20	ORA	TAG SET UP E BLOCK WHEN TAGIND EQUAL 1	F2304100
07014	0 60100 0 06626	527		STO	TAG	F2305160
07066	0 40200 0 06626	569		SUB	TAG THE SAME AS THAT TAG	F2305580
07252	0 40000 0 06626	701		ADD	TAG AND FORTAG IN ADDRESS.	F2306900
07304	0 50000 0 06626	728	PR70	CLA	TAG PLACE TAG IN	F2307170
07306	0 40000 0 06626	730		ADD	TAG ADDRESS AND	F2307190
07321	0 40200 0 06626	743		SUB	TAG IS SAME AS	F2307320
07355	−0 50100 0 06626	774		ORA	TAG PREPARE FORTAG INDEX AND	F2307630
07361	0 50000 0 06626	778	TE40	CLA	TAG WHERE B ZERO OR 1 (TYPE 1), GET FORTAG	F2307670
07611	0 40200 0 06626	934		SUB	TAG	F2309230

␣␣␣TL2 = 3493

Definition
06645 53 TL2 BSS 1 LEVEL DOTAG MATCHING SUBXCRIPT SYMBOL F2300500

References (4)

07121	0 60100 0 06645	600	STO	TL2 DOTAG	F2305890
07344	0 50000 0 06645	765	CLA	TL2 GET LEVEL OF DOTAG	F2307540
07550	0 40200 0 06645	899	SUB	TL2 36-TL2 (LEVEL OF DOTAG)	F2308880
07553	0 50000 0 06645	902	CLA	TL2 OBTAIN TL2	F2308910

␣␣␣XR1 = 3494

Definition
06646 54 XR1 BSS 1 IX DOTAG MATCHING FIRST SUB SYMBOL (RSYM1) F2300510

References (3)

07122	−0 63400 1 06646	601	SXD	XR1,1 THIS DOTAG IS R1.	F2305900
07132	−0 53400 1 06646	609	LXD	XR1,1 YES. LOAD I.R. FOR MATCHING DOTAG.	F2305980
07137	−0 53400 1 06646	614	LXD	XR1,1 LOAD INDEX REG FOR MATCHING DOTAG,	F2306030

␣␣␣XR2 = 3497

Definition
06651 57 XR2 BSS 1 IX DOTAG MATCHING 2ND SUB SYMB (RSYM2) F2300540

References (3)

07166	−0 63400 1 06651	640	SYM150	SXD	XR2,1 THIS DOTAG IS R2	F2306290
07177	−0 53400 1 06651	649		LXD	XR2,1 YES. LOAD IX REG FOR MATCHING DOTAG.	F2306380
07204	−0 53400 1 06651	654		LXD	XR2,1 LOAD INDEX REG FOR MATCHING DOTAG.	F2306430

␣␣␣XR3 = 3500

Definition
06654 60 XR3 BSS 1 1X DOTAG MATCHING THIRD SUB SYM8 (RSYM3) F2300570

References (2)

	07224	−0 63400 1 06654	673	SYM230	SXD	XR3,1 SAVE IX OF MATCHING DO	F2306620
	07231	−0 53400 1 06654	678		LXD	XR3,1	F2306670

␣␣BL3A = 3537

Definition
328 MASTER RECORD CARD = FN039 F2303185

06721 −0 53400 1 00733 329 BL3A LXD FORTAG−1,1 IF FORTAG F2303190

␣␣BL3B = 3537

Definition
460 MASTER RECORD CARD = FN041 F2304495

06721 −0 53400 1 00733 461 BL3B LXD FORTAG−1,1 FORTAG EMPTY F2304500

␣␣BL3C = 3537

Definition
939 MASTER RECORD CARD = FN043 F2309275

06721 −0 53400 1 00733 940 BL3C LXD FORTAG−1,1 IF FORTAG IS EMPTY, F2309280

␣␣DIAG = 4

Definition
00004 1159 DIAG EQU 4 F2311446

References (18)

06765	0 07400 4 00004	133	TSX	DIAG,4 DRUM READ NAME TABLE. ERROR. GO TO DIAGNOSTIC.	F2301305
07027	0 07400 4 00004	167	TSX	DIAG,4 DRUM REAAD FORVAL TABLE. ERROR. GO TO DIAGNOSTIC.	F2301645
07052	0 07400 4 00004	186	TSX	DIAG,4 WORDS ERROR. GO TO DIAGNOSTIC.	F2301835
07053	0 07400 4 00004	187	TSX	DIAG,4 OF ERROR. GO TO DIAGNOSTIC.	F2301845
07056	0 07400 4 00004	190	TSX	DIAG,4 ENTRY. ERROR. GO TO DIAGNOSTIC.	F2301875
07057	0 07400 4 00004	191	TSX	DIAG,4 ERROR. GO TO DIAGNOSTIC.	F2301885
07070	0 07400 4 00004	200	TSX	DIAG,4 TAPE 3 READING DOTAG, ERROR. GO TO DIAGNOSTIC.	F2301975
07615	0 02000 0 00004	207	TRA	DIAG ERROR PROCEDURE	F2302012
07751	0 07400 4 00004	307	TSX	DIAG,4 IN READING TAU FROM DRUM, ERROR. GO TO DIAGNOSTIC.	F2302983
07073	0 07400 4 00004	439	TSX	DIAG,4 FORVAL ALPHA EQ DO ALPHA. ERROR. GO TO DIAGNOSTIC.	F2304295
06736	0 07400 4 00004	474	TSX	DIAG,4 ERROR. GO TO DIAGNOSTIC.	F2304635
06737	0 07400 4 00004	475	TSX	DIAG,4 ERROR. GO TO DIAGNOSTIC.	F2304645
06744	0 07400 4 00004	480	TSX	DIAG,4 ERROR. GO TO DIAGNOSTIC.	F2304695
06767	0 07400 4 00004	499	TSX	DIAG,4 TAPE 2, READING DOTAG. ERROR. GO TO DIAGNOSTIC.	F2304885
07303	0 07400 4 00004	727	TSX	DIAG,4 TABLE IRV FULL. ERROR. GO TO DIAGNOSTIC.	F2307165
06762	0 07400 4 00004	974	TSX	DIAG,4 READING TSXCOM FROM DRUM3. ERROR. GO TO DIAGNOSTIC.	F2309625
07045	0 07400 4 00004	1027	TSX	DIAG,4 TABLE IRV BUFFER FULL, ERROR. GO TO DIAGNOSTIC.	F2310155
07110	0 07400 4 00004	1064	TSX	DIAG,4 IRV UNORDERED DESPITE SORT. ERROR. GO TO DIAGNOSTIC.	F2310523

␣␣ESXX = 3643

Definition
A 07073 0 00000 0 00000 203 ESXX HTR TEMP STORAGE. F2302000
Reference
07054 0 70000 0 07073 188 2WD50 CPY ESXX EACH F2301850

␣␣INDO = 3636

Definition

		428			SUBRT INDO.... THIS ROUTINE DETERMINES WHETHER THE FORVAL	F2304180
		429			WHICH HAS BEEN FOUND TO HATCH A SUBSCRIPT FALLS WITHIN RANGE	F2304190
		430			OF A DO WHICH IN TURN MATCHES THE FORAVAL. IF SO A RETURN IS	F2304200
		431			MADE AND TSXCOM ENTRY FOR THIS FORVAL ALPHA IS OMMITTED.	F2304210
07064	−0 53400 1 07113	432	INDO	LXD	IND60,1	F1004220

Reference
07043 0 07400 4 07064 411 TSX INDO,4 F2304010

␣␣INIT = 3542

Definition
06726 −0 53400 1 03670 334 INIT LXD FORVAL−1,1 INITIALIZE F2303240
Reference
06724 0 02000 0 06726 332 TRA INIT F2303220

␣␣IRVZ = 3477

Definition
06625 37 IRVZ BSS 1 F2300340

References (11)

07307	0 60100 1 06625	731		STO	IRVZ,1 STORE ENTRY IN TABLE IRV	F2307200
07046	0 60100 2 06625	1028	MAK20	STO	IRVZ,2 STORE IRV.	F2310160
07062	0 50000 1 06625	1041	IRVS30	CLA	IRVZ,1 GET FIRST IRV ENTRY AND	F2310290
07063	0 34000 1 06626	1042		CAS	IRVZ+1,1 COMPARE AGAINST ITS NEIGHBOR.	F2310300
07073	0 56000 1 06626	1050	IRVS60	LDQ	IRVZ+1,1 REARRANGE	F2310380
07074	0 60100 1 06626	1051		STO	IRVZ+1,1 THE OUT OF ORDER	F2310390
07075	−0 60000 1 06625	1052		STQ	IRVZ,1 IRV ENTRIES AND	F2310400
07104	0 50000 2 06625	1060	DEL10	CLA	IRVZ,2 GET CANDIDATE.	F2310480
07105	0 34000 1 06625	1061		CAS	IRVZ,1 COMPARE AGAINST STANDARD.	F2310490
07116	0 60100 1 06626	1070	DEL40	STO	IRVZ+1,1 NOT DUPE, PUT CANDIDATE BACK.	F2310580
07171	0 36100 1 06625	1115	WIRV10	ACL	IRVZ,1 COMPUTE CHECK SUM.	F2311030

␣␣L(0) = 3509

Definition
06665 0 00000 0 00000 69 L(0) 0,0,0 F2300660

References (10)

07011	−0 53400 1 06665	153		LXD	L(0),1	F2301500
06767	−0 53400 4 06665	367		LXD	L(0),4 LOCATION TAGIND IS SET	F2303570
07025	−0 53400 4 06665	536		LXD	L(0),4	F2305250
07047	−0 53400 2 06665	554		LXD	L(0),2	F2305430
07242	−0 53400 4 06665	693		LXD	L(0),4	F2306820
07277	−0 53400 2 06665	722	PR40	LXD	L(0),2 T NOT FOUND, MAKE TYPE 6	F2307110
07471	0 50000 0 06665	851		CLA	L(0) IND, AND SET LOCATION OF	F2308400
07514	0 50000 0 06665	871		CLA	L(0)	F2308600
07556	0 50000 0 06665	905		CLA	L(0) ACC CONTAINS ZERO	F2308940
07125	−0 53400 2 06665	1078		LXD	L(0),2	F2310660

␣␣L(1) = 3510

Definition
06666 0 00001 0 00000 70 L(1) 0,0,1 F2300670

References (11)

06770	0 40200 0 06666	368		SUB	L(1) TO ZERO, UNLESS THE SC	F2303580
06776	−0 53400 4 06666	374		LXD	L(1),4 TO ONE	F2303640
07051	0 40200 0 06666	556		SUB	L(1)	F2305450
07057	−0 53400 2 06666	562		LXD	L(1),2 OTHERWISE SET TAGIND TO ONE.	F2305510
07124	−0 53400 2 06666	603		LXD	L(1),2 ONE, THEN	F2305920
07133	−0 53400 2 06666	610		LXD	L(1),2 A ONE TELLS PROCESS THAT	F2305990
07170	−0 53400 2 06666	642		LXD	L(1),2 IF DELTA IS	F2306310
07225	−0 53400 2 06666	674		LXD	L(1),2 NO TRAWORD SKIP.	F2306630
07244	−0 53400 4 06666	695		LXD	L(1),4 IF NOT, THEN NO SKIP. OTHERWISE,	F2306840
07271	−0 53400 2 06666	716		LXD	L(1),2 INDICATE TINFOR SEARCH REQUIRED	F2307050
07313	−0 53400 2 06666	735	PR80	LXD	L(1),2 MAKE TYPE ONE TRASTO ENTRY	F2307240

␣␣L(2) = 3511

Definition
06667 0 00002 0 00000 71 L(2) 0,0,2 F2300680

References (5)

07126	−0 53400 2 06667	605	LXD	L(2),2 OTHERWISE, TRAWORD SKIP,	F2305940
07173	−0 53400 2 06667	645	LXD	L(2),2 OTHERWISE TRAWORD SKIP.	F2306340
07200	−0 53400 2 06667	650	LXD	L(2),2 A TWO TELLS PROCESS THAT	F2306390
07333	−0 53400 2 06667	753	LXD	L(2),2 NOT FOUND, MAKE A TYPE 1 TRASTO	F2307420
07371	−0 53400 2 06667	786	LXD	L(2),2 INDICATE TINFOR SEARCH NOT REQUIRED	F2307750

␣␣L(3) = 3512

Definition
06670 0 00003 0 00000 72 L(3) 0,0,3 F2300690

References (11)

06747	−0 53400 4 06670	351		LXD	L(3),4	F2303410
06754	−0 53400 2 06670	356		LXD	L(3),2 THE SYMBOLS AS FOLLOWS	F2303460
06764	0 40000 0 06670	364		ADD	L(3) DELTA IS THE SYMBOL COUNT.	F2303540
07024	−0 53400 2 06670	396	TAB10	LXD	L(3),2 FORVAL	F2303860
07103	−0 53400 2 06670	447	IND30	LXD	L(3),2	F2304370
07017	−0 53400 4 06670	530		LXD	L(3),4	F2305190
07024	−0 53400 2 06670	535		LXD	L(3),2	F2305240
07044	0 40000 0 06670	551		ADD	L(3) OF DISTINCT SYMBOLS.	F2305400
07101	−0 53400 2 06670	584	SYM10	LXD	L(3),2	F2305730
07232	−0 53400 2 06670	679		LXD	L(3),2 THREE TELLS PROCESS THAT CALLER WAS SYM3	F2306680
07326	−0 53400 2 06670	748		LXD	L(3),2 MAKE A TYPE 5 TRASTO ENTRY	F2307370

␣␣L(6) = 3513

Definition
06671 0 00006 0 00000 73 L(6) 0,0,6 F2300700

References (7)

06731	−0 53400 2 06671	105	NAMRD	LXD	L(6),2 INITIALIZE EERROR COUNTER.	F2301022
06776	−0 53400 2 06671	142	CPYLP	LXD	L(6),2 READ IN FORVAL	F2301392
07031	−0 53400 4 06671	169	2WDDO	LXD	L(6),4 ERROR COUNTER.	F2301662
06753	−0 53400 1 06671	355		LXD	L(6),1 THIS ROUTINE STORES	F2303450
06727	−0 53400 6 06671	467	RDOTAG	LXD	L(6),6 INITIALIZE ERROR COUNTERS.	F2304562
07023	−0 53400 1 06671	534		LXD	L(6),1	F2305230
06723	−0 53400 4 06671	943	RDTSX	LXD	L(6),4 INITIALIZE ERROR COUNTER	F2309312

␣␣L(7) = 3642

Definition
07072 0 00007 0 00000 202 L(7) 0,0,7 F2301990
Reference
07043 −0 53400 2 07072 179 2WD30 LXD L(7),2 IN F2301760

␣␣LIST = 3984

Definition
07620 −0 63400 4 07653 211 LIST SXD LIST40,4 SAVE LINKAGE F2302030

References (3)

07061	0 07400 4 07620	425		TSX	LIST,4	F2304150
07376	0 07400 4 07620	791	TE80	TSX	LIST,4 GO TO LIST KF SKIP IS ZERO.	F2307800
07510	0 07400 4 07620	866		TSX	LIST,4 TSX TO LISTING ROUTINE.	F2308550

␣␣NAME = 25

Definition
00031 19 NAME BSS 1 TABLE STORAGE F2300160

References (5)

06710	0 00000 0 00031	88	NAMAD		NAME	F2300850
06744	0 60100 0 00030	116		STO	NAME−1	F2301130
06750	−0 53400 1 00030	120		LXD	NAME−1,1	F2301170
06767	0 60100 0 00030	135		STO	NAME−1	F2301320
07002	−0 53400 1 00030	510		LXD	NAME−1,1 .	F2304990

␣␣NAMZ = 475

Definition
00733 21 NAMZ BSS 1 F2300180

References (5)

06753	−0 50000 1 00733	123	NAM70	CAL	NAMZ,1 COMPUTE CHECK SUM	F2301200
06754	0 36100 1 00734	124		ACL	NAMZ+1,1 FOR	F2301210
06757	0 40200 1 00735	127		SUB	NAMZ+2,1 AND COMPARE	F2301240
07255	0 34000 1 00733	704	GETN05	CAS	NAMZ,1 DOES THE DOTAG ALPHA AND FORTAG INDEX OF THE	F2306930
07263	0 50000 1 00734	710	GETN30	CLA	NAMZ+1,1 FOUND. OBTAIN NEW TAG NAME	F2306990

␣␣NEXT = 3604

Definition
D 07024 3 00000 1 07015 164 NEXT TXH CSLOOP,1 F2301610

References (2)

	07013	−0 63400 1 07024	155		SXD	NEXT,1 COMPARE	F2301520
	07023	1 77775 1 07024	163		TXI	NEXT,1,−3	F2301600

␣␣PR10 = 3747

Definition
D 07243 3 00000 2 07245 694 PR10 TXH PR20,2 DOES DELTA EXCEED B. (DEC HAS B) F2306830
Reference
07240 −0 63400 2 07243 691 SXD PR10,2 AND INITIALIZE WITH B. F2306800

␣␣PR20 = 3749

Definition
07245 −0 63400 4 06656 696 PR20 SXD SKIP,4 SXIP IF C(SKIP)=0. F2306850
Reference
D 07243 3 00000 2 07245 694 PR10 TXH PR20,2 DOES DELTA EXCEED B. (DEC HAS B) F2306830

␣␣PR25 = 3766

Definition
07266 −0 53400 4 06656 713 PR25 LXD SKIP,4 NOT FOUND IN NAME TABLE, F2307020
Reference
D 07262 −3 00000 0 07266 709 DOX TXL PR25,0 YES, NOT NOT FOUND. ( DEC HAS IX MATCHING DOTAG F2306980

␣␣PR30 = 3773

Definition
07275 0 07400 4 07564 720 PR30 TSX TINFOR,4 F2307090
Reference
07270 3 00000 4 07275 715 TXH PR30,4,0 IN PROPER RANGE. F2307040

␣␣PR40 = 3775

Definition
07277 −0 53400 2 06665 722 PR40 LXD L(0),2 T NOT FOUND, MAKE TYPE 6 F2307110
Reference
07273 0 02000 0 07277 718 TRA PR40 NOT FOUND F2307070

␣␣PR60 = 3777

Definition
724 MAKE ENTRY IN TABLE IRV F2307130

07301 −0 53400 1 06664 725 PR60 LXD IRVXX,1 GET IX FOR ENTRY IN TABLE IRV. F2307140

␣␣PR70 = 3780

Definition
07304 0 50000 0 06626 728 PR70 CLA TAG PLACE TAG IN F2307170
Reference
07302 3 00000 1 07304 726 TXH PR70,1,0 F2307150

␣␣PR75 = 3785

Definition
07311 −0 63400 1 06664 733 PR75 SXD IRVXX,1 SAVE IT FOR NEXT ENTRY. F2307220
Reference
07310 1 77777 1 07311 732 TXI PR75,1,−1 BUMP IRV TABLE INDEX AND F2307210

␣␣PR80 = 3787

Definition
07313 −0 53400 2 06666 735 PR80 LXD L(1),2 MAKE TYPE ONE TRASTO ENTRY F2307240
Reference
D 07265 −3 00000 0 07313 712 SYMLNK TXL PR80,0 F2307010

␣␣PR90 = 3789

Definition
07315 −0 53400 4 07265 737 PR90 LXD SYMLNK,4 RESTORE INDEX REG F2307260

References (7)

07274	0 02000 0 07315	719	TRA	PR90 T FOUND	F2307080
07276	0 02000 0 07315	721	TRA	PR90 FOUND, GO TO EXIT.	F2307100
07312	0 02000 0 07315	734	TRA	PR90	F2307230
07325	0 10000 0 07315	747	TZE	PR90	F2307360
07330	0 02000 0 07315	750	TRA	PR90	F2307390
07332	0 02000 0 07315	752	TRA	PR90 FOUND.	F2307410
07335	0 02000 0 07315	755	TRA	PR90	F2307440

␣␣RDER = 3574

Definition
06766 2 00001 2 06730 498 RDER TIX RDP0S,2,1 TRY TWICE MORE. F2304870
Reference
06764 0 02000 0 06766 496 TRA RDER ON F2304850

␣␣SKIP = 3502

Definition
06656 62 SKIP BSS 1 SKIP, ZERO OR 1 F2300590

References (3)

07245	−0 63400 4 06656	696	PR20	SXD	SKIP,4 SXIP IF C(SKIP)=0.	F2306850
07266	−0 53400 4 06656	713	PR25	LXD	SKIP,4 NOT FOUND IN NAME TABLE,	F2307020
07372	−0 53400 4 06656	787		LXD	SKIP,4	F2307760

␣␣SORT = 3574

Definition
978 SORT TSXCOM F2309660

06766 −0 76000 0 00144 979 SORT MSE LIGHT TURN OFF LIGHT F2309670
Reference
06757 0 02000 0 06766 971 TRA SORT GO TO SORT. F2309590

␣␣SYM2 = 3684

Definition

		619			ROUTINE SYMTWO MAKES A SECOND LEVEL SEARCH AMONG THOSE DOS	F2306080
		620			NESTED WITHIN THE DO MATCHING RSYM1. USES PROCESS ROUTINE	F2306090
		621			IF NECESSARY, AND ROUTINE SYM3 IF NECESSARY.	F2306100
07144	−0 63400 2 07150	622	SYM2	SXD	SYM100,2 INITIALIZE LEVEL TEST	F2306110

Reference
07141 0 02000 0 07144 616 TRA SYM2 GO TO SECOND LEVEL SEARCH. F2306050

␣␣SYM3 = 3721

Definition

		659			ROUTINE SYM3 MAKES A THIRD LEVEL SEARCH OF DOTAG AMONG THOSE	F2306480
		660			DOS NESTED WITHIN THE DO MATCHING RSYM2, USES PROCESS IF	F2306490
		661			NECESSARY, AND THEN RETURNS TO SYM2.	F2306500
07211	−0 63400 2 07215	662	SYM3	SXD	SYM200,2 INITIALIZE WITH LEVEL.OF R2.	F2306510

Reference
07206 0 02000 0 07211 656 TRA SYM3 GO TO THRID LEVEL SEARCH F2306450

␣␣TAGX = 3647

Definition
D 07077 −3 00000 0 07616 578 TAGX TXL NORMRT,0 NORMAL RET MONITOR. (DEC HAS CURR FORTAG IX) F2305675

References (3)

07015	−0 63400 1 07077	528		SXD	TAGX,1 SAVE CURRENT FORTAG IX	F2305170
07062	−0 53400 1 07077	565	TAGP50	LXD	TAGX,1 IF ANY .	F2305540
07074	−0 53400 1 07077	575	TAGP90	LXD	TAGX,1	F2305640

␣␣TCOM = 25

Definition
00031 29 TCOM BSS 1 F2300260

References (12)

06717	0 00000 0 00031	95	TCOMAD		TCOM	F2300920
06727	−0 63400 1 00030	947		SXD	TCOM−1,1 SAVE.	F2309350
06737	−0 53400 1 00030	955		LXD	TCOM−1,1 COMPUTE	F2309430
06743	0 60100 0 00030	959		STO	TCOM−1 SAVE,	F2309470
06764	0 60100 0 00030	976		STO	TCOM−1 TSXCOM ENTRIES IN KEY WORD AND	F2309640
06770	−0 53400 1 00030	981		LXD	TCOM−1,1 INITIALIZE	F2309690
07035	−0 53400 1 00030	1019		LXD	TCOM−1,1	F2310070
07121	−0 53400 1 00030	1074		LXD	TCOM−1,1 INITIALIZE	F2310620
07135	−0 53400 1 00030	1086		LXD	TCOM−1,1 COMPUTE	F2310740
07150	0 60100 0 00030	1097		STO	TCOM−1 NOW CONTAINS NO OF TSXCOM ENTRIES MINUS C.S.	F2310850
07152	0 70000 0 00030	1099		CPY	TCOM−1 CPY WORD COUNT	F2310870
07153	0 70000 0 00030	1100		CPY	TCOM−1 ONTO DRUM	F2310880

␣␣TE10 = 3811

Definition
07343 0 60100 0 07656 764 TE10 STO E1 AND STORE IN E1. F2307530
Reference
07341 −3 00002 2 07343 762 TXL TE10,2,2 WHERE B IS 3 (TYPE5) F2307510

␣␣TE20 = 3816

Definition
07350 0 60100 0 07657 769 TE20 STO E2 PUT IT INTO E2. F2307580
Reference
07346 3 00000 2 07350 767 TXH TE20,2,0 WHERE B ZERO (TYPE 6), F2307560

␣␣TE30 = 3823

Definition
07357 −0 50100 1 06401 776 TE30 ORA DOTAGZ+2,1 WHERE B IS 3, (TYPE 3) PREPARE DOTAGS F2307650
Reference
07354 3 00002 2 07357 773 TXH TE30,2,2 IF B 2 (TYPE 1) F2307620

␣␣TE40 = 3825

Definition
07361 0 50000 0 06626 778 TE40 CLA TAG WHERE B ZERO OR 1 (TYPE 1), GET FORTAG F2307670
Reference
07351 −3 00001 2 07361 770 TXL TE40,2,1 WHERE B 2OR3 (TYPE 1 OR 5), F2307590

␣␣TE50 = 3830

Definition
07366 −0 76000 0 00003 783 TE50 SSM SET MINUS FOR B ZERO OR 3 (TYPE 6OR5) F2307720

References (2)

	07360	0 02000 0 07366	777		TRA	TE50 PARAMETER N1.	F2307660
	07362	−3 00000 2 07366	779		TXL	TE50,2,0 AND WHEN ONE,	F2307680

␣␣TE60 = 3831

Definition
07367 0 60100 0 07660 784 TE60 STO E3 AND STORE IN E3, FINALLY. F2307730

References (2)

	07356	0 02000 0 07367	775		TRA	TE60 GO TO STORE IN E3.	F2307640
	07365	0 02000 0 07367	782		TRA	TE60	F2307710

␣␣TE70 = 3837

Definition
D 07375 −3 00000 0 07377 790 TE70 TXL TE90,0 (DEC SAVES TSXLINK) F2307790

References (2)

	07336	−0 63400 4 07375	759	TRAENT	SXD	TE70,4	F2307480
	07377	−0 53400 4 07375	792	TE90	LXD	TE70,4 RETURN FROM LIST.	F2307810

␣␣TE80 = 3838

Definition
07376 0 07400 4 07620 791 TE80 TSX LIST,4 GO TO LIST KF SKIP IS ZERO. F2307800
Reference
07373 3 00000 4 07376 788 TXH TE80,4,0 IF SKIP IS 1 (DELTA GREATER THEN B), F2307770

␣␣TE90 = 3839

Definition
07377 −0 53400 4 07375 792 TE90 LXD TE70,4 RETURN FROM LIST. F2307810
Reference
D 07375 −3 00000 0 07377 790 TE70 TXL TE90,0 (DEC SAVES TSXLINK) F2307790

␣2WD10 = 3616

Definition
07040 −0 76000 0 00012 176 2WD10 RTT F2301730
Reference
07035 0 02000 0 07040 173 TRA 2WD10 F2301700

␣2WD20 = 3618

Definition
07042 0 76200 0 00223 178 2WD20 RDS TAPE3 PULL F2301750
Reference
07047 0 02000 0 07042 183 TRA 2WD20 THE F2301800

␣2WD30 = 3619

Definition
07043 −0 53400 2 07072 179 2WD30 LXD L(7),2 IN F2301760
Reference
07061 1 77776 1 07043 193 TXI 2WD30,1,−2 F2301900

␣2WD40 = 3624

Definition
07050 0 70000 1 07571 184 2WD40 CPY DOZ+1,1 FIRST F2301810
Reference
07045 0 02000 0 07050 181 TRA 2WD40 BUT F2301780

␣2WD50 = 3628

Definition
07054 0 70000 0 07073 188 2WD50 CPY ESXX EACH F2301850

References (2)

	07051	0 02000 0 07054	185		TRA	2WD50 TWO	F2301820
	07060	2 00001 2 07054	192	2WD60	TIX	2WD50,2,1	F2301890

␣2WD60 = 3632

Definition
07060 2 00001 2 07054 192 2WD60 TIX 2WD50,2,1 F2301890
Reference
07055 0 02000 0 07060 189 TRA 2WD60 TABLE F2301860

␣2WD70 = 3634

Definition
07062 −0 63400 1 07570 194 2WD70 SXD DOZ,1 F2301910

References (2)

	07037	0 02000 0 07062	175		TRA	2WD70	F2301720
	07046	0 02000 0 07062	182		TRA	2WD70 ONLY	F2301790

␣2WD80 = 3639

Definition
07067 2 00001 4 07032 199 2WD80 TIX 2WDO5,4,1 F2301960
Reference
07065 0 02000 0 07067 197 TRA 2WD80 READ ERROR. F2301940

␣2WDDO = 3609

Definition
07031 −0 53400 4 06671 169 2WDDO LXD L(6),4 ERROR COUNTER. F2301662
Reference
07025 0 02000 0 07031 165 TRA 2WDDO FORVAL ALL IN. F2301620

␣2WDO5 = 3610

Definition
07032 0 77200 0 00223 170 2WDO5 REW TAPE3 PREPARE TO READ IN DOTAG. F2301670
Reference
07067 2 00001 4 07032 199 2WD80 TIX 2WDO5,4,1 F2301960

␣4VALZ = 3477

Definition
06625 27 4VALZ BSS 1 F2300240

References (9)

07003	0 70000 1 06625	147	CPYONE	CPY	4VALZ,1 PULL IN FIRST WORD OF FORVAL.	F2301440
07006	0 70000 1 06626	150	CPYTWO	CPY	4VALZ+1,1 PULL IN 2ND WORD OF FORVAL,	F2301470
07007	0 70000 1 06627	151		CPY	4VALZ+2,1 AND CHECK SUM.	F2301480
07015	−0 50000 1 06625	157	CSLOOP	CAL	4VALZ,1 SUMS.	F2301540
07016	0 36100 1 06626	158		ACL	4VALZ+1,1	F2301550
07021	0 40200 1 06627	161		SUB	4VALZ+2,1	F2301580
07025	0 50000 1 06626	397		CLA	4VALZ+1,1 FOR AN	F2303870
07040	0 50000 1 06625	408		CLA	4VALZ,1 ENTRY IN TSXCOM, DEPENDING	F2303980
07046	0 50000 1 06625	414		CLA	4VALZ,1	F2304040

␣ADRUM = 195

Definition
00303 1151 ADRUM EQU 195 F2311380

References (4)

06736	0 76200 0 00303	110		RDS	ADRUM READ IN TABLE NAME.	F2301070
07636	0 76600 0 00303	225		WRS	ADRUM SELECT DRUM.	F2302165
07120	0 76600 0 00303	1073	WRTTSX	WRS	ADRUM	F2310610
07164	0 76600 0 00303	1110	WRTIRV	WRS	ADRUM	F2310980

␣BDRUM = 194

Definition
00302 1152 BDRUM EQU 194 F2311390
Reference
06777 0 76200 0 00302 143 RDSDRM RDS BDRUM F2301400

␣BEGIN = 3578

Definition
06772 −0 76000 0 00144 138 BEGIN MSE LIGHT TEST FOR EHPTY FORVAL F2301350

References (2)

	06763	0 02000 0 06772	131		TRA	BEGIN TABLE NAME ALL IN.	F2301280
	06770	0 02000 0 06772	136		TRA	BEGIN	F2301330

␣BIT18 = 3520

Definition
06700 +000000400000 80 BIT18 OCT 400000 F2300770
Reference
07323 0 50000 0 06700 745 CLA BIT18 AND IF F2307340

␣COMCS = 3608

Definition
A 07030 0 00000 0 00000 168 COMCS HTR F2301650

References (2)

	07017	0 60200 0 07030	159		SLW	COMCS	F2301560
	07020	0 50000 0 07030	160		CLA	COMCS	F2301570

␣CPYLP = 3582

Definition
06776 −0 53400 2 06671 142 CPYLP LXD L(6),2 READ IN FORVAL F2301392
Reference
06773 0 02000 0 06776 139 TRA CPYLP F2301360

␣DEL10 = 3652

Definition
07104 0 50000 2 06625 1060 DEL10 CLA IRVZ,2 GET CANDIDATE. F2310480

References (2)

	07103	2 00001 2 07104	1059		TIX	DEL10,2,1 BUMP CANDIDATE IR.	F2310470
D	07112	3 00000 2 07104	1066	DEL30	TXH	DEL10,2 IS IT END OF PASS. (DEC HAS IRV INDEX)	F2310540

␣DEL20 = 3657

Definition
07111 1 77777 2 07112 1065 DEL20 TXI DEL30,2,−1 BUMP FOR NEXT CANDIDATE. F2310530

References (2)

	07107	0 02000 0 07111	1063		TRA	DEL20 CAND MATCHES STAND. IGNORE ITS REINSTATEMENT.	F2310510
	07117	1 77777 1 07111	1071		TXI	DEL20,1,−1 AND INSTALL IT AS STANDARD.	F2310590

␣DEL30 = 3658

Definition
D 07112 3 00000 2 07104 1066 DEL30 TXH DEL10,2 IS IT END OF PASS. (DEC HAS IRV INDEX) F2310540

References (2)

	07101	−0 63400 1 07112	1057		SXD	DEL30,1 INITIALIZE	F2310450
	07111	1 77777 2 07112	1065	DEL20	TXI	DEL30,2,−1 BUMP FOR NEXT CANDIDATE.	F2310530

␣DEL35 = 3660

Definition
07114 −0 63400 1 06664 1068 DEL35 SXD IRVXX,1 SAVE NEW EDITED-IRV TABLE-SIZE INDICATION. F2310560
Reference
07113 1 77777 1 07114 1067 TXI DEL35,1,−1 YES. BUMP STANDARD IR. F2310550

␣DEL40 = 3662

Definition
07116 0 60100 1 06626 1070 DEL40 STO IRVZ+1,1 NOT DUPE, PUT CANDIDATE BACK. F2310580
Reference
07106 0 02000 0 07116 1062 TRA DEL40 CANDIDATE DOES NOT MATCH STANDARD. F2310500

␣DELTA = 3481

Definition
06631 41 DELTA BSS 1 COUNT OF NO OF SYMBOLS IN SUB COMB F2300380

References (7)

06766	0 60100 0 06631	366		STO	DELTA	F2303560
07046	0 60100 0 06631	553		STO	DELTA	F2305420
07123	−0 53400 4 06631	602		LXD	DELTA,4 IF DELTA IS	F2305910
07135	−0 53400 4 06631	612	SYM70	LXD	DELTA,4 NO TRANSFERS OUT (TRABITS)	F2306010
07171	−0 53400 4 06631	643		LXD	DELTA,4 TWO OR ONE, THEN	F2306320
07202	−0 53400 4 06631	652	SYM170	LXD	DELTA,4 O0 TRANSFERS OUT (TRABITS)	F2306410
07241	−0 53400 2 06631	692		LXD	DELTA,2	F2306810

␣DOTAG = 1977

Definition
03671 33 DOTAG BSS 1 F2300300

References (2)

	06757	−0 63400 1 03670	491	RDEOF	SXD	DOTAG−1,1 DOTAG INDEX(1350-NO DOTAG ENTRIES)	F2304800
	06772	−0 53400 1 03670	502	DOPASS	LXD	DOTAG−1,1 DOTAG INDEX.	F2304910

␣ENDES = 3736

Definition
A 07230 0 00000 0 00000 1146 ENDES HTR F2311340

References (3)

07223	0 60100 0 07230	1141	STO	ENDES	F2311290
07225	0 70000 0 07230	1143	CPY	ENDES	F2311310
07226	0 70000 0 07230	1144	CPY	ENDES	F2311320

␣ERROR = 3606

Definition
07026 2 00001 2 06777 166 ERROR TIX RDSDRM,2,1 F2301630
Reference
07022 −0 10000 0 07026 162 TNZ ERROR F2301590

␣FND10 = 3627

Definition
D 07053 −3 00000 0 07057 419 FND10 TXL FND30,0 (DEC HAS FORTAG IX) F2304090

References (3)

07036	−0 63400 1 07053	406	FOUND	SXD	FND10,1 IF SYMBOL FOUND,	F2303960
07045	−0 53400 1 07053	413		LXD	FND10,1 RETURN FROM INDO WHEN NOT SO.	F2304030
07062	−0 53400 1 07053	426	FND40	LXD	FND10,1	F2304160

␣FND20 = 3628

Definition
07054 −0 50100 0 06626 420 FND20 ORA TAG SET UP E BLOCK WHEN TAGIND EQUAL 1 F2304100
Reference
07041 3 00000 4 07054 409 TXH FND20,4,0 ON TAGIND. (UNLESS SEE SUBRT INDO) F2303990

␣FND30 = 3631

Definition
07057 0 60100 0 07657 423 FND30 STO E2 F2304130
Reference
D 07053 −3 00000 0 07057 419 FND10 TXL FND30,0 (DEC HAS FORTAG IX) F2304090

␣FND40 = 3634

Definition
07062 −0 53400 1 07053 426 FND40 LXD FND10,1 F2304160
Reference
07044 0 02000 0 07062 412 TRA FND40 INDO RETURN IF FRVL ALPH IN RANGE MTCHNG DOTAG F2304020

␣FORNR = 3658

Definition
A 07112 0 00000 0 00000 454 FORNR HTR STORAGE FOR FIRST WD FORVAL (ALPHA) F2304440

References (3)

07042	0 60100 0 07112	410	STO	FORNR	F2304000
07071	0 34000 0 07112	437	CAS	FORNR AGAINST FORVAL ALPHA.	F2304270
07075	0 34000 0 07112	441	CAS	FORNR DOTAGS BETA AGAINST FORVAL ALPHA.	F2304310

␣FORTZ = 1976

Definition
03670 24 FORTZ BSS 1 F2300210

References (10)

06736	0 50000 1 03670	342	VAL10	CLA	FORTZ,1 MAKES A	F2303320
06742	0 50000 1 03670	346		CLA	FORTZ,1 TAG WITH BITONE EQUAL	F2303360
07002	0 50000 1 03670	378		CLA	FORTZ,1 ROUTINE. FOR THIS TAG,	F2303680
07006	0 50000 1 03670	382		CLA	FORTZ,1 TO ONE.	F2303720
07013	−0 60200 1 03670	387		ORS	FORTZ,1	F2303770
07011	0 50000 1 03670	524	TAGP10	CLA	FORTZ,1	F2305130
07063	0 50000 1 03670	566	TAGP60	CLA	FORTZ,1 OF THE AS YET UNTREATED	F2305550
07071	−0 60200 1 03670	572		ORS	FORTZ,1 MINUS.	F2305610
07573	0 50000 1 03670	919	TINF10	CLA	FORTZ,1 OBTAIN FORTAG ENTRY	F2309080
07606	0 50000 1 03670	931		CLA	FORTZ,1 LESS THAN BETA, OBTAIN FORTAG	F2309200

␣FOUND = 3614

Definition
07036 −0 63400 1 07053 406 FOUND SXD FND10,1 IF SYMBOL FOUND, F2303960
Reference
07030 0 02000 0 07036 400 TRA FOUND IN THIS SC. F2303900

␣IND10 = 3638

Definition
07066 0 50000 1 07570 434 IND10 CLA DOZ,1 OBTAIN FIRST WORD DOTAG. F2304240
Reference
D 07101 3 00000 1 07066 445 IND20 TXH IND10,1 F2304350

␣IND20 = 3649

Definition
D 07101 3 00000 1 07066 445 IND20 TXH IND10,1 F2304350

References (4)

06734	−0 63400 1 07101	340	SXD	IND20,1 .	F2303300
07065	0 02000 0 07101	433	TRA	IND20 .	F1004230
07100	1 77776 1 07101	444	TXI	IND20,1,−2	F2304340
07111	1 77776 1 07101	453	TXI	IND20,1,−2	F2304430

␣IND30 = 3651

Definition
07103 −0 53400 2 06670 447 IND30 LXD L(3),2 F2304370

References (2)

	07076	0 02000 0 07103	442		TRA	IND30 FORVAL WITHIN RANGE	F2304320
	07077	0 02000 0 07103	443		TRA	IND30 OF DOTAG.	F2304330

␣IND40 = 3653

Definition
07105 0 34000 2 06635 449 IND40 CAS RSYM1+3,2 DOES DOTAG SYMBOL EQUAL F2304390
Reference
07110 2 00001 2 07105 452 IND50 TIX IND40,2,1 F2304420

␣IND50 = 3656

Definition
07110 2 00001 2 07105 452 IND50 TIX IND40,2,1 F2304420
Reference
07106 0 02000 0 07110 450 TRA IND50 FORVAL SYMBOL (WHICH HAS BEEN FOUND F2304400

␣IND60 = 3659

Definition
07113 0 00454 0 00000 455 IND60 0,0,300 F2304450
Reference
07064 −0 53400 1 07113 432 INDO LXD IND60,1 F1004220

␣IRVAD = 3531

Definition
06713 0 00000 0 06377 91 IRVAD IRV F2300880
Reference
07204 0 40000 0 06713 1126 ADD IRVAD OF IRV. F2311140

␣IRVXX = 3508

Definition
06664 68 IRVXX BSS 1 CURRENT TABLE IRV I.R. VALUE F2300650

References (13)

06726	0 60100 0 06664	102		STO	IRVXX EQUAL TO ETC.	F2300990
07301	−0 53400 1 06664	725	PR60	LXD	IRVXX,1 GET IX FOR ENTRY IN TABLE IRV.	F2307140
07311	−0 63400 1 06664	733	PR75	SXD	IRVXX,1 SAVE IT FOR NEXT ENTRY.	F2307220
07034	−0 53400 2 06664	1018	MAKIRV	LXD	IRVXX,2 (IX VALUE FOR NEXT IRV ENTRY)	F2310060
07052	−0 63400 2 06664	1032	MAK60	SXD	IRVXX,2 YES. SAVE INDICATION OF SIZE OF IRV.	F2310200
07053	−0 53400 1 06664	1034	IRVSRT	LXD	IRVXX,1	F2310220
07100	−0 53400 1 06664	1056	DELETE	LXD	IRVXX,1	F2310440
07114	−0 63400 1 06664	1068	DEL35	SXD	IRVXX,1 SAVE NEW EDITED-IRV TABLE-SIZE INDICATION.	F2310560
07165	−0 53400 1 06664	1111		LXD	IRVXX,1	F2310990
07175	−0 53400 1 06664	1119		LXD	IRVXX,1 COMPUTE	F2311070
07201	0 60100 0 06664	1123		STO	IRVXX AND SAVE.	F2311110
07207	0 70000 0 06664	1129		CPY	IRVXX WRITE WORD	F2311170
07210	0 70000 0 06664	1130		CPY	IRVXX COUNT.	F2311180

␣L(1)A = 3517

Definition
06675 +000000000001 77 L(1)A OCT 1 F2300740

References (2)

	07646	0 40000 0 06675	233		ADD	L(1)A ENTRY	F2302240
	07145	0 40000 0 06675	1094		ADD	L(1)A FOR SECOND	F2310820

␣L(36) = 3514

Definition
06672 0 00044 0 00000 74 L(36) 0,0,36 F2300710
Reference
07547 0 50000 0 06672 898 CLA L(36) OBTAIN 36 IN DECREMENT F2308870

␣L(MZ) = 3518

Definition
06676 −0 00000 0 00000 78 L(MZ) MZE F2300750
Reference
07070 −0 50000 0 06676 571 CAL L(MZ) SET THEM F2305600

␣LADDS = 4023

Definition
252 FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART. F2302430

A 07667 0 00000 0 00000 253 LADDS HTR TSXCOM F2302440

References (8)

06722	0 60100 0 07667	98		STO	LADDS EQUAL TO LAST TABLE ENTRY PLUS ONE.	F2300950
06724	0 60100 0 07670	100		STO	LADDS+1 EQUAL TO LAST TABLE ENTRY PLUS ONE.	F2300970
07630	0 40200 1 07674	219		SUB	LADDS+5,1 FULL	F2302110
07640	0 46000 1 07674	227		LDA	LADDS+5,1 COPY	F2302180
07644	0 50000 1 07674	231		CLA	LADDS+5,1 COMPUTE	F2302220
07650	0 60100 1 07674	235		STO	LADDS+5,1	F2302260
06724	0 50000 0 07667	944	RTSX10	CLA	LADDS COMPUTE NUMBER	F2309320
07221	0 50000 0 07670	1139		CLA	LADDS+1 ORIGIN PLUS NR OF WDS IN TRASTO	F2311270

␣LASTB = 3505

Definition
06661 65 LASTB BSS 1 INTERHEDIATE LOWER LIMIT OF RANGE F2300620

References (2)

	07415	0 60100 0 06661	807		STO	LASTB BEGIN SEARCH FOR R2	F2307960
	07466	0 50000 0 06661	848		CLA	LASTB CONTENTS OF NEXTA. FOR B,	F2308370

␣LIGHT = 100

Definition
00144 1155 LIGHT EQU 100 IF FORVAL EMPTY, LIGHT ON. F2311420

References (9)

06772	−0 76000 0 00144	138	BEGIN	MSE	LIGHT TEST FOR EHPTY FORVAL	F2301350
06774	0 76000 0 00144	140		PSE	LIGHT IF EMPTY,	F2301370
06723	−0 76000 0 00144	331		MSE	LIGHT IF FORVAL IS EMPTY,	F2303210
06766	−0 76000 0 00144	979	SORT	MSE	LIGHT TURN OFF LIGHT	F2309670
07023	0 76000 0 00144	1008		PSE	LIGHT INDICATE OUT OF ORDER ENTRY HAS BEEN FOUND.	F2309960
07026	−0 76000 0 00144	1011		MSE	LIGHT YES. WAS OUT OF ORDER ENTRY APPREHENDED .	F2309990
07057	−0 76000 0 00144	1038		MSE	LIGHT TURN OFF LITE.	F2310260
07070	−0 76000 0 00144	1047		MSE	LIGHT YES . WAS OUT OF ORDER NABBED.	F2310350
07076	0 76000 0 00144	1053		PSE	LIGHT INDICATE SAME.	F2310410

␣MAK10 = 3616

Definition
07040 −0 50000 1 01410 1022 MAK10 CAL TCOMZ+1,1 GET SECOND WORD OF TSXCOMP F2310100
Reference
D 07051 3 00000 1 07040 1031 MAK50 TXH MAK10,1 IS TSXCOM TABLE EXHAUST (DEC HAS UNUSED TSXCOM) F2310190

␣MAK20 = 3622

Definition
07046 0 60100 2 06625 1028 MAK20 STO IRVZ,2 STORE IRV. F2310160
Reference
07044 3 00000 2 07046 1026 TXH MAK20,2,0 F2310140

␣MAK40 = 3624

Definition
07050 1 77775 1 07051 1030 MAK40 TXI MAK50,1,−3 F2310180

References (2)

	07042	−0 10000 0 07050	1024		TNZ	MAK40 IS ANYTHING THERE.	F2310120
	07047	1 77777 2 07050	1029		TXI	MAK40,2,−1	F2310170

␣MAK50 = 3625

Definition
D 07051 3 00000 1 07040 1031 MAK50 TXH MAK10,1 IS TSXCOM TABLE EXHAUST (DEC HAS UNUSED TSXCOM) F2310190

References (2)

	07036	−0 63400 1 07051	1020		SXD	MAK50,1	F2310080
	07050	1 77775 1 07051	1030	MAK40	TXI	MAK50,1,−3	F2310180

␣MAK60 = 3626

Definition
07052 −0 63400 2 06664 1032 MAK60 SXD IRVXX,2 YES. SAVE INDICATION OF SIZE OF IRV. F2310200

␣NAM10 = 3546

Definition
06732 0 50000 0 07777 106 NAM10 CLA 4095 OBTAIN NAME ADDRESS CARRYOVER FROM BLOCK 2 F2301030
Reference
06764 2 00001 2 06732 132 NAM90 TIX NAM10,2,1 F2301290

␣NAM60 = 3558

Definition
06746 0 70000 1 00000 118 NAM60 CPY 0,1 F2301150

References (2)

	06740	0 62100 0 06746	112		STA	NAM60 STORE IN COPY ADDRESS.	F2301090
	06747	2 00001 1 06746	119		TIX	NAM60,1,1	F2301160

␣NAM70 = 3563

Definition
06753 −0 50000 1 00733 123 NAM70 CAL NAMZ,1 COMPUTE CHECK SUM F2301200
Reference
D 06762 3 00000 1 06753 130 NAM80 TXH NAM70,1 F2301270

␣NAM80 = 3570

Definition
D 06762 3 00000 1 06753 130 NAM80 TXH NAM70,1 F2301270

References (2)

	06751	−0 63400 1 06762	121		SXD	NAM80,1	F2301180
	06761	1 77775 1 06762	129		TXI	NAM80,1,−3	F2301260

␣NAM90 = 3572

Definition
06764 2 00001 2 06732 132 NAM90 TIX NAM10,2,1 F2301290
Reference
06760 −0 10000 0 06764 128 TNZ NAM90 SAME. F2301250

␣NAM95 = 3574

Definition
06766 0 50000 0 06711 134 NAM95 CLA NAMAX TABLE NAME EMPTY. F2301310
Reference
06735 −3 00000 1 06766 109 TXL NAM95,1,0 IF NO TABLE NAME, GO TO READ IN FORVAL. F2301060

␣NAMAD = 3528

Definition
06710 0 00000 0 00031 88 NAMAD NAME F2300850
Reference
06737 0 40000 0 06710 111 ADD NAMAD ADD CORE ORG TABLE NAME T0 COMP TERMINUS AND F2301080

␣NAMAX = 3529

Definition
06711 0 00702 0 00000 89 NAMAX 0,0,450 F2300860

References (4)

06743	0 40000 0 06711	115		ADD	NAMAX DIFF BETWEEN MAX NO ENTRIES AND ACTUAL NL.	F2301120
06752	−0 53400 1 06711	122		LXD	NAMAX,1	F2301190
06766	0 50000 0 06711	134	NAM95	CLA	NAMAX TABLE NAME EMPTY.	F2301310
07253	−0 53400 1 06711	702	GETNAM	LXD	NAMAX,1 LOAD MAX NO NAME TABLE WORDS	F2306910

␣NAMRD = 3545

Definition
06731 −0 53400 2 06671 105 NAMRD LXD L(6),2 INITIALIZE EERROR COUNTER. F2301022

␣NEXTA = 3504

Definition
06660 64 NEXTA BSS 1 INTERMEDIATE UPPER LIMIT OF RANGE F2300610

References (4)

07412	0 60100 0 06660	804		STO	NEXTA STO IN NEXTA	F2307930
07437	0 60100 0 06660	825		STO	NEXTA ACCOUNTED FOR AFTER SEARCH.	F2308140
07461	0 50000 0 06660	843		CLA	NEXTA IF IT IS, NEWR2 WILL BE FOUND	F2308320
07464	0 50000 0 06660	846	SPC110	CLA	NEXTA THIS IS SETUP FOR LAST	F2308350

␣PR100 = 3801

Definition
07331 0 07400 4 07564 751 PR100 TSX TINFOR,4 LOOK FOR ALREADY PROCESSED IDENT FORTAG. F2307400
Reference
07322 −0 10000 0 07331 744 TNZ PR100 CURRENT FORTAG F2307330

␣RDBST = 3559

Definition
06747 0 76400 0 00222 483 RDBST BST TAPE2 8ACKSPACE DESIGNATED NO RECORDS F2304720

References (2)

	06746	1 00002 1 06747	482		TXI	RDBST,1,2	F2304710
	06750	2 00001 1 06747	484		TIX	RDBST,1,1	F2304730

␣RDCPY = 3563

Definition
06753 0 70000 1 06377 487 RDCPY CPY DOTAGZ,1 READ IN DOTAG F2304760
Reference
06754 1 77777 1 06753 488 TXI RDCPY,1,−1 F2304770

␣RDEOF = 3567

Definition
06757 −0 63400 1 03670 491 RDEOF SXD DOTAG−1,1 DOTAG INDEX(1350-NO DOTAG ENTRIES) F2304800
Reference
06755 0 02000 0 06757 489 TRA RDEOF F2304780

␣RDES1 = 3576

Definition
A 06770 0 00000 0 00000 500 RDES1 HTR RECORD COUNT F2304890

References (3)

06733	0 70000 0 06770	471		CPY	RDES1	F2304600
06740	0 50000 0 06770	476	RDREC	CLA	RDES1	F2304650
06745	−0 53400 1 06770	481	RDBACK	LXD	RDES1,1 NO RECORDS	F2304700

␣RDES2 = 3577

Definition
A 06771 0 00000 0 00000 501 RDES2 HTR RECORD COUNT F2304900

References (2)

	06734	0 70000 0 06771	472		CPY	RDES2	F2304610
	06741	0 40200 0 06771	477		SUB	RDES2	F2304660

␣RDP0S = 3544

Definition
06730 0 76400 0 00222 468 RDP0S BST TAPE2 POSITION TAPE 2 FOR DOTAG F2304570

References (2)

	06743	2 00001 4 06731	479		TIX	RDP0S+1,4,1 ERROR - REREAD	F2304680
	06766	2 00001 2 06730	498	RDER	TIX	RDP0S,2,1 TRY TWICE MORE.	F2304870

␣RDRDS = 3562

Definition
06752 0 76200 0 00222 486 RDRDS RDS TAPE2 F2304750
Reference
06756 0 02000 0 06752 490 TRA RDRDS F2304790

␣RDREC = 3552

Definition
06740 0 50000 0 06770 476 RDREC CLA RDES1 F2304650

␣RDTSX = 3539

Definition
942 READ IN TSXCOM F2309300

06723 −0 53400 4 06671 943 RDTSX LXD L(6),4 INITIALIZE ERROR COUNTER F2309312

␣RSYM1 = 3482

Definition
06632 42 RSYM1 BSS 1 WORKING SYMBOL ONE F2300390

References (13)

06751	0 60100 4 06635	353	VAL20	STO	RSYM1+3,4 INITIALIZE WITH ZEROES.	F2303430
06757	0 60100 2 06635	359		STO	RSYM1+3,2 RIGHTMOST IN RSYM3.	F2303490
07026	0 34000 2 06635	398	TAB20	CAS	RSYM1+3,2 OCCURRANCE	F2303880
07056	0 50000 0 06632	422		CLA	RSYM1 TAG SYMBOL	F2304120
07105	0 34000 2 06635	449	IND40	CAS	RSYM1+3,2 DOES DOTAG SYMBOL EQUAL	F2304390
07021	0 60100 4 06635	532	TAGP20	STO	RSYM1+3,4 INITIALIZE RSYM LOCATIONS WITH ZERO.	F2305210
07031	0 34000 0 06632	540		CAS	RSYM1 CHECK FOR DUPLICATE SYMBOLS.	F2305290
07037	0 60100 2 06635	546	TAGP34	STO	RSYM1+3,2	F2305350
07103	0 34000 2 06635	586	SYM20	CAS	RSYM1+3,2 IS IT SAME AS SUBSCRIPT SYMBOL.	F2305750
07112	0 50000 0 06632	593	SYM50	CLA	RSYM1 INTERCHANGE THE	F2305820
07113	0 56000 2 06635	594		LDQ	RSYM1+3,2 MATCHING SUBSCRIPT	F2305830
07114	0 60100 2 06635	595		STO	RSYM1+3,2 SYMBOL WITH	F2305840
07115	−0 60000 0 06632	596		STQ	RSYM1 RSYM1.	F2305850

␣RSYM2 = 3483

Definition
06633 43 RSYM2 BSS 1 WORKING SYM8OL TWO F2300400

References (6)

07034	0 34000 0 06633	543	TAGP32	CAS	RSYM2	F2305320
07152	0 34000 0 06633	628		CAS	RSYM2 TEST MATCH DOTAG SYMBOL AGAINST RSYM2.	F2306170
07162	0 50000 0 06633	636	SYM140	CLA	RSYM2 DOTAG SYMBOL MATCHES RSYM3 -	F2306250
07165	−0 60000 0 06633	639		STQ	RSYM2 RSYM3.	F2306280
07430	0 40200 0 06633	818		SUB	RSYM2	F2308070
07531	0 40200 0 06633	884		SUB	RSYM2 DO TO BE SKIPPED	F2308730

␣RSYM3 = 3484

Definition
06634 44 RSYM3 BSS 1 WORKING SYMBOL THREE F2300410

References (6)

07155	0 40200 0 06634	631	SYM110	SUB	RSYM3 DOESNT MATCH RSYM2, TRY RSYM3.	F2306200
07163	0 56000 0 06634	637		LDQ	RSYM3 INTERCHANGE	F2306260
07164	0 60100 0 06634	638		STO	RSYM3 RSYM2 AND	F2306270
07217	0 40200 0 06634	668		SUB	RSYM3 WITH THIRD FORTAG SYMBOL.	F2306570
07425	0 40200 0 06634	815		SUB	RSYM3 SKIPPED. IF NOT, GO BACK TO	F2308040
07534	0 40200 0 06634	887		SUB	RSYM3 IF NO SKIP	F2308760

␣SAVEA = 3584

Definition
D 07000 −3 00000 0 07022 376 SAVEA TXL TABSER,0 GO TO PROCESSING ROUTINE. (DEC HAS FORTAG IX) F2303660

References (3)

06745	−0 63400 1 07000	349		SXD	SAVEA,1 COMPINATION FROM THE	F2303390
07001	−0 53400 1 07000	377	VAL60	LXD	SAVEA,1 RETURN FROM PROCESSING	F2303670
07016	−0 53400 1 07000	390		LXD	SAVEA,1 GO BACK	F2303800

␣SYM10 = 3649

Definition
07101 −0 53400 2 06670 584 SYM10 LXD L(3),2 F2305730
Reference
D 07110 3 00000 1 07101 591 SYM40 TXH SYM10,1 END OF DOTAG, RETURN. F2305800

␣SYM20 = 3651

Definition
07103 0 34000 2 06635 586 SYM20 CAS RSYM1+3,2 IS IT SAME AS SUBSCRIPT SYMBOL. F2305750
Reference
07106 2 00001 2 07103 589 SYM30 TIX SYM20,2,1 F2305780

␣SYM30 = 3654

Definition
07106 2 00001 2 07103 589 SYM30 TIX SYM20,2,1 F2305780
Reference
07104 0 02000 0 07106 587 TRA SYM30 F2305760

␣SYM40 = 3656

Definition
D 07110 3 00000 1 07101 591 SYM40 TXH SYM10,1 END OF DOTAG, RETURN. F2305800

References (5)

	06773	−0 63400 1 07110	503		SXD	SYM40,1 INITIALIZE.	F2304920
	07107	1 77767 1 07110	590		TXI	SYM40,1,−9	F2305790
	07143	0 02000 0 07110	618		TRA	SYM40 CONTINUE FIRST LEVEL SEARCH.	F2306070
D	07150	−3 00000 2 07110	626	SYM100	TXL	SYM40,2 TEST AGAINST LEVEL OF R1 AND	F2306150
	07161	0 02000 0 07110	635		TRA	SYM40 IF END OF DOTAG, EXIT.	F2306240

␣SYM50 = 3658

Definition
07112 0 50000 0 06632 593 SYM50 CLA RSYM1 INTERCHANGE THE F2305820
Reference
07105 0 02000 0 07112 588 TRA SYM50 YES F2305770

␣SYM60 = 3671

Definition
07127 0 07400 4 07513 606 SYM60 TSX TRAWRD,4 F2305950
Reference
07125 −3 00001 4 07127 604 TXL SYM60,4,1 NO TRAWORD SKIP. F2305930

␣SYM70 = 3677

Definition
07135 −0 53400 4 06631 612 SYM70 LXD DELTA,4 NO TRANSFERS OUT (TRABITS) F2306010
Reference
07131 0 10000 0 07135 608 TZE SYM70 ARE THERE TRANSFERS OUT(TRABITS). F2305970

␣SYM80 = 3682

Definition
07142 −0 53400 1 06650 617 SYM80 LXD NEXTR1,1 DELTA IS ONE, F2306060
Reference
07136 −3 00001 4 07142 613 TXL SYM80,4,1 IF DELTA IS GREATER THAN ONE, THEN F2306020

␣SYM90 = 3686

Definition
07146 0 50000 1 06404 624 SYM90 CLA DOTAGZ+5,1 GET LEVEL OF F2306130
Reference
D 07160 3 00000 1 07146 634 SYM130 TXH SYM90,1 (DEC CONTAINS DOTAG IX) F2306230

␣TAB10 = 3604

Definition
07024 −0 53400 2 06670 396 TAB10 LXD L(3),2 FORVAL F2303860
Reference
D 07034 3 00000 1 07024 404 TAB60 TXH TAB10,1 (DEC HAS FORVALIX) F2303940

␣TAB20 = 3606

Definition
07026 0 34000 2 06635 398 TAB20 CAS RSYM1+3,2 OCCURRANCE F2303880
Reference
D 07032 3 00000 2 07026 402 TAB40 TXH TAB20,2 ( DEC LOADED FROM TABSER + 1) F2303920

␣TAB30 = 3609

Definition
07031 1 77777 2 07032 401 TAB30 TXI TAB40,2,−1 F2303910
Reference
07027 0 02000 0 07031 399 TRA TAB30 OF ANY SYMBOL F2303890

␣TAB40 = 3610

Definition
D 07032 3 00000 2 07026 402 TAB40 TXH TAB20,2 ( DEC LOADED FROM TABSER + 1) F2303920

References (2)

	07023	−0 63400 2 07032	395		SXD	TAB40,2 (6 - 2X NO SUB SYMBOLS - VAL40)	F2303850
	07031	1 77777 2 07032	401	TAB30	TXI	TAB40,2,−1	F2303910

␣TAB50 = 3611

Definition
07033 1 77775 1 07034 403 TAB50 TXI TAB60,1,−3 F2303930
Reference
07063 0 02000 0 07033 427 TRA TAB50 CONTINUE SEARCH F2304170

␣TAB60 = 3612

Definition
D 07034 3 00000 1 07024 404 TAB60 TXH TAB10,1 (DEC HAS FORVALIX) F2303940

References (2)

	06727	−0 63400 1 07034	335		SXD	TAB60,1 .	F2303250
	07033	1 77775 1 07034	403	TAB50	TXI	TAB60,1,−3	F2303930

␣TAPE2 = 146

Definition
00222 1153 TAPE2 EQU 146 F2311400

References (7)

06730	0 76400 0 00222	468	RDP0S	BST	TAPE2 POSITION TAPE 2 FOR DOTAG	F2304570
06731	0 76400 0 00222	469		BST	TAPE2	F2304580
06732	0 76200 0 00222	470		RDS	TAPE2	F2304590
06747	0 76400 0 00222	483	RDBST	BST	TAPE2 8ACKSPACE DESIGNATED NO RECORDS	F2304720
06752	0 76200 0 00222	486	RDRDS	RDS	TAPE2	F2304750
06760	0 76200 0 00222	492		RDS	TAPE2 SPACE TAPE.	F2304810
06761	0 76200 0 00222	493		RDS	TAPE2	F2304820

␣TAPE3 = 147

Definition
00223 1154 TAPE3 EQU 147 F2311410

References (2)

	07032	0 77200 0 00223	170	2WDO5	REW	TAPE3 PREPARE TO READ IN DOTAG.	F2301670
	07042	0 76200 0 00223	178	2WD20	RDS	TAPE3 PULL	F2301750

␣TCOMZ = 775

Definition
01407 31 TCOMZ BSS 1 F2311280

References (23)

06746	−0 50000 1 01407	962	RTSX25	CAL	TCOMZ,1 CHECK	F2309500
06747	0 36100 1 01410	963		ACL	TCOMZ+1,1 SUM FOR EACH TABLE ENTRY	F2309510
06752	0 40200 1 01411	966		SUB	TCOMZ+2,1 GIVEN SUM.	F2309540
06775	0 50000 1 01407	986	SORT30	CLA	TCOMZ,1 OBTAIN FIRST WORD, FIRST ENTRY TSXCOM (ALPHA)	F2309740
06776	0 34000 1 01412	987		CAS	TCOMZ+3,1 COMPARE IT AGAINST SECOND ENTRY	F2309750
07002	0 50000 1 01410	991	SORT40	CLA	TCOMZ+1,1 ALRIGHT- FIRST WORDS IN ORDER BUT	F2309790
07003	0 34000 1 01413	992		CAS	TCOMZ+4,1 HOW DO THEIR 2ND WORDS COMPARE.	F2309800
07007	0 50000 1 01407	996	SORT50	CLA	TCOMZ,1 FIRST ENTRY GREATER, OUT OF ORDER 1ST WORDS.	F2309840
07010	0 56000 1 01412	997		LDQ	TCOMZ+3,1 INTERCHANGE THE FIRST WORDS	F2309850
07011	0 60100 1 01412	998		STO	TCOMZ+3,1 OF THE	F2309860
07012	−0 60000 1 01407	999		STQ	TCOMZ,1 TWO ENTRIES.	F2309870
07013	0 50000 1 01410	1000	SORT60	CLA	TCOMZ+1,1 INTERCHANGE	F2309880
07014	0 56000 1 01413	1001		LDQ	TCOMZ+4,1 THE	F2309890
07015	0 60100 1 01413	1002		STO	TCOMZ+4,1 SECOND	F2309900
07016	−0 60000 1 01410	1003		STQ	TCOMZ+1,1 AND	F2309910
07017	0 50000 1 01411	1004		CLA	TCOMZ+2,1 THIRD	F2309920
07020	0 56000 1 01414	1005		LDQ	TCOMZ+5,1 WORDS	F2309930
07021	0 60100 1 01414	1006		STO	TCOMZ+5,1 OF THE	F2309940
07022	−0 60000 1 01411	1007		STQ	TCOMZ+2,1 TWO ENTRIES.	F2309930
07040	−0 50000 1 01410	1022	MAK10	CAL	TCOMZ+1,1 GET SECOND WORD OF TSXCOMP	F2310100
07043	0 50000 1 01410	1025		CLA	TCOMZ+1,1	F2310130
07127	0 36100 1 01407	1080	WTSX10	ACL	TCOMZ,1 COMPUTE	F2310680
07130	0 36100 1 01410	1081		ACL	TCOMZ+1,1 CHECK SUM OF ALL ENTRIES	F2310690

␣VAL10 = 3550

Definition
06736 0 50000 1 03670 342 VAL10 CLA FORTZ,1 MAKES A F2303320
Reference
D 07020 3 00000 1 06736 392 VAL95 TXH VAL10,1 IF ANY (DEC HAS FORTAGIX) F2303820

␣VAL20 = 3561

Definition
06751 0 60100 4 06635 353 VAL20 STO RSYM1+3,4 INITIALIZE WITH ZEROES. F2303430
Reference
06752 2 00001 4 06751 354 TIX VAL20,4,1 F2303440

␣VAL30 = 3565

Definition
06755 0 50000 1 06644 357 VAL30 CLA S1+6,1 LEFTMOST IN RSYM1, F2303470
Reference
06761 2 00002 1 06755 361 VAL40 TIX VAL30,1,2 SYMBOLS IN THE SC, THEN F2303510

␣VAL40 = 3569

Definition
06761 2 00002 1 06755 361 VAL40 TIX VAL30,1,2 SYMBOLS IN THE SC, THEN F2303510

References (2)

	06756	0 10000 0 06761	358		TZE	VAL40 NEXT SYMBOL IN RSYM2,	F2303480
	06760	1 77777 2 06761	360		TXI	VAL40,2,−1 IF THERE ARE NOT THREE	F2303500

␣VAL50 = 3583

Definition
06777 −0 63400 4 06630 375 VAL50 SXD TAGIND,4 F2303650

References (3)

06771	−0 10000 0 06777	369	TNZ	VAL50 HAS THE FOLLOWING	F2303590
06773	0 10000 0 06777	371	TZE	VAL50 ONE SYMBOL	F2303610
06775	3 00001 1 06777	373	TXH	VAL50,1,1 WITH COEFFICIENT EQUAL	F2303630

␣VAL60 = 3585

Definition
07001 −0 53400 1 07000 377 VAL60 LXD SAVEA,1 RETURN FROM PROCESSING F2303670

References (3)

	06765	0 10000 0 07001	365		TZE	VAL60 SUBSCRIPT IS CONSTANT, NO SYMBOLS.	F2303550
D	07015	3 00000 1 07002	389	VAL80	TXH	VAL60+1,1 IF FORTAG DONE, (DEC HAS FORTAGIX)	F2303790
	07035	0 02000 0 07001	405		TRA	VAL60	F2303950

␣VAL70 = 3596

Definition
07014 1 77777 1 07015 388 VAL70 TXI VAL80,1,−1 F2303780

References (3)

07003	−0 12000 0 07014	379	TMI	VAL70 AND ALL TAGS EQUAL TO	F2303690
07005	−0 10000 0 07014	381	TNZ	VAL70 ENTRY BIT ONE EQUAL	F2303710
07011	−0 10000 0 07014	385	TNZ	VAL70	F2303750

␣VAL80 = 3597

Definition
D 07015 3 00000 1 07002 389 VAL80 TXH VAL60+1,1 IF FORTAG DONE, (DEC HAS FORTAGIX) F2303790

References (2)

	06731	−0 63400 1 07015	337		SXD	VAL80,1 .	F2303270
	07014	1 77777 1 07015	388	VAL70	TXI	VAL80,1,−1	F2303780

␣VAL90 = 3599

Definition
07017 1 77777 1 07020 391 VAL90 TXI VAL95,1,−1 FOR NEXT TAG F2303810

References (2)

	06737	−0 12000 0 07017	343		TMI	VAL90 PASS OVER	F2303330
	06741	−0 10000 0 07017	345		TNZ	VAL90 FOR EACH NON-NEGATIVE (NOT TRREATED IN BL 2)	F2303350

␣VAL95 = 3600

Definition
D 07020 3 00000 1 06736 392 VAL95 TXH VAL10,1 IF ANY (DEC HAS FORTAGIX) F2303820

References (2)

	06732	−0 63400 1 07020	338		SXD	VAL95,1 .	F2303280
	07017	1 77777 1 07020	391	VAL90	TXI	VAL95,1,−1 FOR NEXT TAG	F2303810

34ONES = 3521

Definition
06701 +177777777777 81 34ONES OCT 177777777777 F2300780
Reference
07000 0 50000 0 06701 144 CLA 34ONES PUT DRUM MARK IN ACC. F2301410

35ONES = 3522

Definition
06702 +377777777777 82 35ONES OCT 377777777777 F2300790
Reference
07557 0 56000 0 06702 906 LDQ 35ONES MQ CONTAINS ALL ONES F2308950

ADDMSK = 3523

Definition
06703 +000000077777 83 ADDMSK OCT 77777 F2300800

References (6)

07647	−0 32000 0 06703	234	ANA	ADDMSK ADDRESS.	F2302250
06743	−0 32000 0 06703	347	ANA	ADDMSK TO ZERO, (NOT YET TREATED HERE)	F2303370
07007	−0 32000 0 06703	383	ANA	ADDMSK	F2303730
07013	−0 32000 0 06703	526	ANA	ADDMSK TAG	F2305150
07065	−0 32000 0 06703	568	ANA	ADDMSK ARE	F2305570
07610	−0 32000 0 06703	933	ANA	ADDMSK I.F. NOT EQUAL, GO BACK FOR NEXT TAG	F2309220

BITONE = 3519

Definition
06677 +200000000000 79 BITONE OCT 200000000000 F2300760

References (3)

06740	−0 32000 0 06677	344	ANA	BITONE FORTAG, AND	F2303340
07004	−0 32000 0 06677	380	ANA	BITONE THIS TAG, SET FORTAG	F2303700
07012	0 50000 0 06677	386	CLA	BITONE	F2303760

BLOCK3 = 3537

Definition
06721 0 50000 0 07776 97 BLOCK3 CLA 4094 TSXCOM CARRYOYER FROM BLOCK TWO F2300940

BURNCE = 3980

Definition
07614 −0 63400 1 77777 206 BURNCE SXD T0P,1 DRUM 0VERFLOW F2302011
Reference
07632 0 07400 4 07614 221 TSX BURNCE,4 DRUM 0VERFLOW, GO SAVE IRA BEFORE DIAG. F2302135

CHATAG = 4021

Definition
07665 0 00002 0 00002 250 CHATAG HTR 2,0,2 F2122410

CHKSUM = 3594

Definition
07012 −0 63400 1 03670 154 CHKSUM SXD FORVAL−1,1 COMPUTE AND F2301510
Reference
07005 0 02000 0 07012 149 TRA CHKSUM F2301460

CPYONE = 3587

Definition
07003 0 70000 1 06625 147 CPYONE CPY 4VALZ,1 PULL IN FIRST WORD OF FORVAL. F2301440
Reference
07010 2 00003 1 07003 152 TIX CPYONE,1,3 F2301490

CPYTWO = 3590

Definition
07006 0 70000 1 06626 150 CPYTWO CPY 4VALZ+1,1 PULL IN 2ND WORD OF FORVAL, F2301470
Reference
07004 0 04000 0 07006 148 TLQ CPYTWO TEST FOR DRUM MARK. F2301430

CSLOOP = 3597

Definition
07015 −0 50000 1 06625 157 CSLOOP CAL 4VALZ,1 SUMS. F2301540
Reference
D 07024 3 00000 1 07015 164 NEXT TXH CSLOOP,1 F2301610

DECMSK = 3524

Definition
06704 +077777000000 84 DECMSK OCT 77777000000 F2300810

References (9)

07755	−0 32000 0 06704	311	ANA	DECMSK	F2303020
07070	−0 32000 0 06704	436	ANA	DECMSK DOTAGS ALPHA	F2304260
07117	−0 32000 0 06704	598	ANA	DECMSK STORE LEVEL	F2305870
07251	−0 32000 0 06704	700	ANA	DECMSK GET RSYM1 DOTAG ALPHA IN DEC	F2306890
07353	−0 32000 0 06704	772	ANA	DECMSK TEST NAME .	F2307610
07411	−0 32000 0 06704	803	ANA	DECMSK OBTA1N ALPHA ALONE	F2307920
07434	−0 32000 0 06704	822	ANA	DECMSK AS B, PUT BETA OF R2 IN	F2308110
07566	−0 32000 0 06704	914	ANA	DECMSK AND BETA	F2309030
07574	−0 32000 0 06704	920	ANA	DECMSK RETAIN FORMULA NUMBER 0NLY	F2309090

DELETE = 3648

Definition
1055 DELETE DUPE ENTRIES FROM TABLE IRV F2310430

07100 −0 53400 1 06664 1056 DELETE LXD IRVXX,1 F2310440
Reference
07071 0 02000 0 07100 1048 TRA DELETE NO. SORT COMPLETE. F2310360

DOPASS = 3578

Definition
06772 −0 53400 1 03670 502 DOPASS LXD DOTAG−1,1 DOTAG INDEX. F2304910
Reference
06765 0 02000 0 06772 497 TRA DOPASS F2304860

DOTAGZ = 3327

Definition
06377 35 DOTAGZ BSS 1 F2300320

References (30)

06753	0 70000 1 06377	487	RDCPY	CPY	DOTAGZ,1 READ IN DOTAG	F2304760
07102	0 50000 1 06400	585		CLA	DOTAGZ+1,1 GET NEXT DOTAG SYMBOL.	F2305740
07116	0 50000 1 06404	597		CLA	DOTAGZ+5,1	F2305860
07146	0 50000 1 06404	624	SYM90	CLA	DOTAGZ+5,1 GET LEVEL OF	F2306130
07151	0 50000 1 06400	627		CLA	DOTAGZ+1,1 IF WITHIN RANGE OF R1,	F2306160
07213	0 50000 1 06404	664	SYM190	CLA	DOTAGZ+5,1 OBTAIN LEVEL	F2306530
07216	0 50000 1 06400	667		CLA	DOTAGZ+1,1 OTHERWISE CHECK FOR IDENTIRY	F2306560
07250	0 50000 1 06377	699		CLA	DOTAGZ,1 SEARCH TABLE NAME	F2306880
07317	0 50000 1 06407	741	PRSPEC	CLA	DOTAGZ+8,1 IF DOTAGS	F2307300
07324	−0 32000 1 06405	746		ANA	DOTAGZ+6,1 THERE IS A	F2307350
07340	0 50000 1 06377	761		CLA	DOTAGZ,1 GET DOTAGS ALPHA AND BETA	F2307300
07352	0 50000 1 06407	771		CLA	DOTAGZ+8,1 PREPARE DOTAGS	F2307600
07357	−0 50100 1 06401	776	TE30	ORA	DOTAGZ+2,1 WHERE B IS 3, (TYPE 3) PREPARE DOTAGS	F2307650
07405	0 50000 1 06404	799		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2307880
07407	0 50000 1 06377	801		CLA	DOTAGZ,1 OBTAIN ALPHABETA WRD,	F2307900
07421	0 50000 1 06404	811		CLA	DOTAGZ+5,1 TEST WHETHER OR NOT THIS DO	F2308000
07424	0 50000 1 06400	814		CLA	DOTAGZ+1,1 IF IN R1, IS THIS DO T0 BE	F2308030
07427	0 50000 1 06400	817		CLA	DOTAGZ+1,1	F2308060
07432	0 50000 1 06377	820	SPC053	CLA	DOTAGZ,1 R2 FOUND, ARRANGE T0 SKIP THIS	F2308090
07452	0 50000 1 06404	836		CLA	DOTAGZ+5,1 OBTAIN INDEX OF LAST R2 AND	F2308250
07456	0 50000 1 06404	840		CLA	DOTAGZ+5,1 DOTAG EXHAUSTED. IF DO FOUND	F2308290
07516	0 50000 1 06404	873		CLA	DOTAGZ+5,1 LEVEL OF DOTAG	F2308620
07520	−0 50000 1 06406	875	TRAW10	CAL	DOTAGZ+7,1 OBTAIN T2 WORD.	F2308640
07524	0 50000 1 06404	879		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2308680
07530	0 50000 1 06400	883	TRAW35	CLA	DOTAGZ+1,1 IF INCOMPLETE TEST, IS THIS A	F2308720
07533	0 50000 1 06400	886		CLA	DOTAGZ+1,1 TEST RSYM3	F2308750
07536	0 50000 1 06404	889	TRAW38	CLA	DOTAGZ+5,1 THIS DO IS TO BE SKIPPED.	F2308780
07542	0 50000 1 06404	893		CLA	DOTAGZ+5,1 OBTAIN L WORD	F2308820
07564	0 50000 1 06377	912	TINFOR	CLA	DOTAGZ,1 C(XRA)=INDEX OF DO TO BE	F2309010
	06377	1157	IRV	SYN	DOTAGZ	F2311440

DRMADD = 3526

Definition
06706 0 00000 0 00312 86 DRMADD 202 F2300830
Reference
07001 0 46000 0 06706 145 LDA DRMADD F2301420

DRMTAG = 4022

Definition
07666 0 00001 0 00004 251 DRMTAG HTR 4,0,1 F2302420

FORTAG = 476

Definition
00734 22 FORTAG BSS 1 F2300190

References (6)

06727	−0 53400 1 00733	103		LXD	FORTAG−1,1 IF FORTAG EMPTY,	F2301000
06721	−0 53400 1 00733	329	BL3A	LXD	FORTAG−1,1 IF FORTAG	F2303190
06730	−0 53400 1 00733	336		LXD	FORTAG−1,1 .	F2303260
06721	−0 53400 1 00733	461	BL3B	LXD	FORTAG−1,1 FORTAG EMPTY	F2304500
07004	−0 53400 1 00733	519	TAGPAS	LXD	FORTAG−1,1	F2305080
06721	−0 53400 1 00733	940	BL3C	LXD	FORTAG−1,1 IF FORTAG IS EMPTY,	F2309280

FORVAL = 1977

Definition
03671 25 FORVAL BSS 1 F2300220

References (2)

	07012	−0 63400 1 03670	154	CHKSUM	SXD	FORVAL−1,1 COMPUTE AND	F2301510
	06726	−0 53400 1 03670	334	INIT	LXD	FORVAL−1,1 INITIALIZE	F2303240

GETN05 = 3757

Definition
07255 0 34000 1 00733 704 GETN05 CAS NAMZ,1 DOES THE DOTAG ALPHA AND FORTAG INDEX OF THE F2306930
Reference
D 07261 3 00000 1 07255 708 GETN20 TXH GETN05,1 IS NAME TABLE EXHAUSTED (DEC HAS NAME IX) F2306970

GETN10 = 3760

Definition
07260 1 77775 1 07261 707 GETN10 TXI GETN20,1,−3 NO, GET NEXT NAME TABLE. F2306960
Reference
07256 0 02000 0 07260 705 TRA GETN10 FIRST WORD OF NAME TABLE MATCH THOSE ABOVE. F2306940

GETN20 = 3761

Definition
D 07261 3 00000 1 07255 708 GETN20 TXH GETN05,1 IS NAME TABLE EXHAUSTED (DEC HAS NAME IX) F2306970

References (3)

07003	−0 63400 1 07261	511		SXD	GETN20,1 .	F2305000
07254	0 02000 0 07261	703		TRA	GETN20	F2306920
07260	1 77775 1 07261	707	GETN10	TXI	GETN20,1,−3 NO, GET NEXT NAME TABLE.	F2306960

GETN30 = 3763

Definition
07263 0 50000 1 00734 710 GETN30 CLA NAMZ+1,1 FOUND. OBTAIN NEW TAG NAME F2306990
Reference
07257 0 02000 0 07263 706 TRA GETN30 YES. F2306950

GETNAM = 3755

Definition
07253 −0 53400 1 06711 702 GETNAM LXD NAMAX,1 LOAD MAX NO NAME TABLE WORDS F2306910

IRVMAX = 3532

Definition
06714 0 00226 0 00000 92 IRVMAX 0,0,150 F2300890

References (5)

06725	0 50000 0 06714	101		CLA	IRVMAX INITIALIZE IRVXX.	F2300980
07061	−0 53400 1 06714	1040	IRVS20	LXD	IRVMAX,1 INITIALIZE	F2310280
07102	−0 53400 3 06714	1058		LXD	IRVMAX,3 INITIALIZE CANDIDATE IR AND STANDARD IR	F2310460
07170	−0 53400 1 06714	1114		LXD	IRVMAX,1	F2311020
07200	0 40000 0 06714	1122		ADD	IRVMAX IRV ENTRIES	F2311100

IRVORG = 3530

Definition
06712 0 00000 0 02430 90 IRVORG 1304 F2300870
Reference
07206 0 46000 0 06712 1128 LDA IRVORG F2311160

IRVS10 = 3629

Definition
07055 3 00225 1 07120 1036 IRVS10 TXH WRTTSX,1,149 IS THERE BUT ONE ENTRY IN IRV. F2310240
Reference
07054 1 00001 1 07055 1035 TXI IRVS10,1,1 F2310230

IRVS20 = 3633

Definition
07061 −0 53400 1 06714 1040 IRVS20 LXD IRVMAX,1 INITIALIZE F2310280
Reference
07072 0 02000 0 07061 1049 TRA IRVS20 YES. MAKE ANOTHER PASS. F2310370

IRVS30 = 3634

Definition
07062 0 50000 1 06625 1041 IRVS30 CLA IRVZ,1 GET FIRST IRV ENTRY AND F2310290
Reference
D 07067 3 00000 1 07062 1046 IRVS50 TXH IRVS30,1 IS PASS COMPLETE (DEC HAS IRV INDEX) F2310340

IRVS40 = 3638

Definition
07066 1 77777 1 07067 1045 IRVS40 TXI IRVS50,1,−1 BUMP FOR NEXT COMPARIS0N F2310330
Reference
07077 0 02000 0 07066 1054 TRA IRVS40 F2310420

IRVS50 = 3639

Definition
D 07067 3 00000 1 07062 1046 IRVS50 TXH IRVS30,1 IS PASS COMPLETE (DEC HAS IRV INDEX) F2310340

References (2)

	07056	−0 63400 1 07067	1037		SXD	IRVS50,1	F2310250
	07066	1 77777 1 07067	1045	IRVS40	TXI	IRVS50,1,−1 BUMP FOR NEXT COMPARIS0N	F2310330

IRVS60 = 3643

Definition
07073 0 56000 1 06626 1050 IRVS60 LDQ IRVZ+1,1 REARRANGE F2310380
Reference
07064 0 02000 0 07073 1043 TRA IRVS60 OUT OF ORDER. GO TO REARRANGE. F2310310

IRVSRT = 3627

Definition
1033 SORT TABLE IRV. F2310210

07053 −0 53400 1 06664 1034 IRVSRT LXD IRVXX,1 F2310220
Reference
06765 0 02000 0 07053 977 TRA IRVSRT EXIT. F2309650

L(1350 = 3515

Definition
06673 0 02506 0 00000 75 L(1350 0,0,1350 F2300720

References (2)

	06751	−0 53400 1 06673	485		LXD	L(1350,1 MAX SIZE DOTAG	F2304740
	07100	−0 53400 1 06673	583	SYMONE	LXD	L(1350,1	F2305720

L(1500 = 3516

Definition
06674 0 02734 0 00000 76 L(1500 0,0,1500 F2300730

References (6)

07002	−0 53400 1 06674	146		LXD	L(1500,1	F2301430
07014	−0 53400 1 06674	156		LXD	L(1500,1 CHECK	F2301530
06735	−0 53400 1 06674	341	VALTAG	LXD	L(1500,1 THIS PROGRAM	F2303310
07022	−0 53400 1 06674	394	TABSER	LXD	L(1500,1 SEARCH	F2303840
07010	−0 53400 1 06674	523		LXD	L(1500,1	F2305120
07572	−0 53400 1 06674	918	TINFXX	LXD	L(1500,1 PUT MAX FORTAG INDEX IN XRA	F2309070

L(300) = 3641

Definition
07071 0 00454 0 00000 201 L(300) 0,0,300 F2301980
Reference
07033 −0 53400 1 07071 171 LXD L(300),1 F2301680

L(302A = 3737

Definition
07231 0 00000 0 00456 1147 L(302A HTR 302 F2311350
Reference
07224 0 46000 0 07231 1142 LDA L(302A F2311300

L(304A = 3738

Definition
07232 0 00000 0 00460 1148 L(304A HTR 304 F2311360
Reference
07222 0 40200 0 07232 1140 SUB L(304A LESS ORIGIN OF TRASTO F2311280

LADDIN = 4028

Definition
258 FIVE WORDS, C(ADD)=ORIGIN,C(DEC)=LAST TABLE L.C. PLUS ONE F2302490

07674 0 02660 0 01302 259 LADDIN HTR 706,0,1456 TSXCOMP F2302500
Reference
07626 0 50000 1 07701 217 CLA LADDIN+5,1 TEST F2302090

LIST10 = 3995

Definition
07633 −0 75400 0 00000 222 LIST10 PXD 0,0 ZERO IN ACC. . F2302140
Reference
07631 −0 10000 0 07633 220 TNZ LIST10 TABLE. F2302120

LIST20 = 3996

Definition
07634 0 36100 2 00000 223 LIST20 ACL 0,2 COMPUTE F2302150

References (2)

	07625	0 62100 0 07634	216		STA	LIST20 INITIALIZE ADDRESSES,	F2302080
	07635	2 00001 2 07634	224		TIX	LIST20,2,1 ENTRY	F2302160

LIST30 = 4001

Definition
07641 0 70000 4 00000 228 LIST30 CPY 0,4 ENTRY F2302190

References (2)

	07624	0 62100 0 07641	215		STA	LIST30 PLUS ORIGIN E1 AND	F2302070
	07642	2 00001 4 07641	229		TIX	LIST30,4,1 AND	F2302200

LIST40 = 4011

Definition
A 07653 0 00000 0 00000 238 LIST40 HTR E.S. F2302290

References (2)

	07620	−0 63400 4 07653	211	LIST	SXD	LIST40,4 SAVE LINKAGE	F2302030
	07651	−0 53400 4 07653	236		LXD	LIST40,4 EXIT	F2302270

LIST50 = 4012

Definition
07654 0 00000 0 07656 239 LIST50 HTR E1 L(E1) F2302300
Reference
07623 0 40000 0 07654 214 ADD LIST50 COMPUTE NR. OF WRDS F2302060

LIST60 = 4013

Definition
A 07655 0 00000 0 00000 240 LIST60 HTR E.S. F2302310

References (2)

	07637	0 60200 0 07655	226		SLW	LIST60 CHECK SUM.	F2302170
	07643	0 70000 0 07655	230		CPY	LIST60 CHECK SUM.	F2302210

MAKIRV = 3612

Definition
1017 BUILD UP TABLE IRV FROM TSXCOM F2310050

07034 −0 53400 2 06664 1018 MAKIRV LXD IRVXX,2 (IX VALUE FOR NEXT IRV ENTRY) F2310060

References (2)

	06772	3 01353 1 07034	983	SORT10	TXH	MAKIRV,1,747 IS THERE ONLY ONE ENTRY IN TSXCOM.	F2309710
		07034	1156	REMOVE	SYN	MAKIRV	F2311430

NAMES1 = 3577

Definition
A 06771 0 00000 0 00000 137 NAMES1 HTR TEMP STORAGE F2301340

References (2)

	06755	0 60200 0 06771	125		SLW	NAMES1 EACH	F2301220
	06756	0 50000 0 06771	126		CLA	NAMES1 TABLE ENTRY,	F2301230

NAMKEY = 4020

Definition
07664 0 00003 0 00002 249 NAMKEY HTR 2,0,3 F2302400

NAMORG = 3527

Definition
06707 0 00000 0 01760 87 NAMORG 1008 F2300840

References (2)

	06733	0 40200 0 06707	107		SUB	NAMORG FROM BLOCK TWO,	F2301040
	06745	0 46000 0 06707	117		LDA	NAMORG DRUM LRG	F2301140

NEXTR1 = 3496

Definition
06650 56 NEXTR1 BSS 1 IX LAST DOTAG OF NEST SEARCHED IN TRAWRD 1ST LV F2300530

References (2)

	07130	−0 63400 1 06650	607		SXD	NEXTR1,1 SAVE INDEX LAST DOTAG HANDLED.	F2305960
	07142	−0 53400 1 06650	617	SYM80	LXD	NEXTR1,1 DELTA IS ONE,	F2306060

NEXTR2 = 3499

Definition
06653 59 NEXTR2 BSS 1 IX LAST DO OF NEST SRCHD IN TRAWORD ON 2ND LEV F2300560

References (2)

	07175	−0 63400 1 06653	647		SXD	NEXTR2,1 SAVE INDEX LAST DOTAG HANDLED.	F2306360
	07207	−0 53400 1 06653	657	SYM180	LXD	NEXTR2,1 DELTA IS LESS THAN-THREE,	F2306460

NEXTR3 = 3501

Definition
06655 61 NEXTR3 BSS 1 IX LAST DO OF NEST SRCHD IN TRWRD ON 3RD LEVEL F2300580

References (2)

	07230	−0 63400 1 06655	677		SXD	NEXTR3,1 TRNSFRS OUT. SAVE IX LAST DO HANDLED IN TRAWORD	F2306660
	07234	−0 53400 1 06655	681		LXD	NEXTR3,1 GET IX NEXT DOTAG AND	F2306700

NORMRT = 3982

Definition
208 THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST THE DIAGNOSTIC REC. F2302016

07616 0 76200 0 00221 209 NORMRT RDS 145 SKIP OVER DIAGNOSTIC RECORD 0O SYSTEM TAPE. F2302017

References (10)

	06730	3 02733 1 07616	104		TXH	NORMRT,1,1499 NORM RET MONITOR. GO TO SPACE TAPE 1.	F2301015
	06775	0 02000 0 07616	141		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2301385
	07066	0 02000 0 07616	198		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2301955
	06722	3 02733 1 07616	330		TXH	NORMRT,1,1499 IS EMPTY, NORM RET MONITOR. GO SPACE TP 1.	F2303205
	06725	0 02000 0 07616	333		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2303235
	07021	0 02000 0 07616	393		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2303835
	06722	3 02733 1 07616	462		TXH	NORMRT,1,1499 NORM RET MONITOR. GO TO SPACE TAPE 1.	F2304515
	06726	0 02000 0 07616	466		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2304555
D	07077	−3 00000 0 07616	578	TAGX	TXL	NORMRT,0 NORMAL RET MONITOR. (DEC HAS CURR FORTAG IX)	F2305675
	07227	0 02000 0 07616	1145		TRA	NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1	F2311335

ONETCS = 4

Definition
00004 1158 ONETCS EQU 4 F2311445
Reference
07617 0 02000 0 00004 210 TRA ONETCS GO TO ONE TO CS (MONITOR) F2302018

PREMSK = 3525

Definition
06705 −200000000000 85 PREMSK OCT −200000000000 F2300820
Reference
07041 −0 32000 0 06705 1023 ANA PREMSK PULL OUT PREFIX. F2310110

PROCES = 3742

Definition

		683			ROUTINE PROCESS DETERHINES WHETHER OR NOT THERE EXISTS A	F2306720
		684			TAG IDENTICAL TO THE CURRENT RELCON TAG AND WHETHER ITS	F2306730
		685			TAG NAME HAS BEEN CHANGED. THE SEARCH FOR THIS IDENTICAL TAG	F2306740
		686			IS MADE THRU APPROPRIATE RANGES OF THAT DO WHOSE SYMBOL HAS	F23067S0
		687			BEEN FOUND TO MATCH ONE OF THE RELCON SYMBOLS. TRASTO ENTRIES	F2306760
		688			ARE ENTERED DEPENDING UPON WHICH OF THOSE CONDITIONS HOLDS.	F2306770
07236	−0 63400 1 07262	689	PROCES	SXD	DOX,1 SAVE DOTAG IX	F2306780

References (3)

07134	0 07400 4 07236	611	TSX	PROCES,4 CALLER WAS SYMONE. (B).	F2306000
07201	0 07400 4 07236	651	TSX	PROCES,4 CALLER WAS SYM2. (2).	F2306400
07233	0 07400 4 07236	680	TSX	PROCES,4	F2306690

PRSPEC = 3791

Definition

		739			ROUTINE PERSPEC IS FOR THE SPECIAL CASE OF A SINGLE SUBSCRIPT	F2307280
		740			RELCON WITH NO COEFFICIENT (TAGIND EQUALS ONE)	F2307290
07317	0 50000 1 06407	741	PRSPEC	CLA	DOTAGZ+8,1 IF DOTAGS	F2307300

Reference
07247 3 00000 4 07317 698 TXH PRSPEC,4,0 (TAGIND NOT ZERO) F2306870

RDBACK = 3557

Definition
06745 −0 53400 1 06770 481 RDBACK LXD RDES1,1 NO RECORDS F2304700
Reference
06742 0 10000 0 06745 478 TZE RDBACK F2304670

RDOTAG = 3543

Definition
06727 −0 53400 6 06671 467 RDOTAG LXD L(6),6 INITIALIZE ERROR COUNTERS. F2304562
Reference
06724 0 02000 0 06727 464 TRA RDOTAG OFF F2304530

RDSDRM = 3583

Definition
06777 0 76200 0 00302 143 RDSDRM RDS BDRUM F2301400
Reference
07026 2 00001 2 06777 166 ERROR TIX RDSDRM,2,1 F2301630

REMOVE = 3612

Definition
07034 1156 REMOVE SYN MAKIRV F2311430
Reference
07027 0 02000 0 07034 1012 TRA REMOVE NO. GO TO MAKIRV. F2310000

RTSX10 = 3540

Definition
06724 0 50000 0 07667 944 RTSX10 CLA LADDS COMPUTE NUMBER F2309320
Reference
06761 2 00001 4 06724 973 RTSX50 TIX RTSX10,4,1 GO BACK TO REREAD F2309610

RTSX20 = 3549

Definition
06735 0 70000 1 00000 953 RTSX20 CPY 0,1 READ TSXCOM (ADD HAS TERM CORE ADD TSXCOMP F2309410

References (2)

	06732	0 62100 0 06735	950		STA	RTSX20 AND INITIALIZE CPY ADDRESS THEREWITH.	F2309380
	06736	2 00001 1 06735	954		TIX	RTSX20,1,1 TABLES .	F2309420

RTSX25 = 3558

Definition
06746 −0 50000 1 01407 962 RTSX25 CAL TCOMZ,1 CHECK F2309500
Reference
D 06756 3 00000 1 06746 970 RTSX30 TXH RTSX25,1 IF COMPLETE, (DEC HAS UNUSED TSXCOM BUFFER) F2309580

RTSX30 = 3566

Definition
D 06756 3 00000 1 06746 970 RTSX30 TXH RTSX25,1 IF COMPLETE, (DEC HAS UNUSED TSXCOM BUFFER) F2309580

References (2)

	06744	0 62200 0 06756	960		STD	RTSX30 AND INITIALIZE.	F2309480
	06755	1 77775 1 06756	969		TXI	RTSX30,1,−3	F2309570

RTSX40 = 3568

Definition
A 06760 0 00000 0 00000 972 RTSX40 HTR F2309600

References (2)

	06750	0 60200 0 06760	964		SLW	RTSX40 AND COMPARE	F2309520
	06751	0 50000 0 06760	965		CLA	RTSX40 AGAINST	F2309530

RTSX50 = 3569

Definition
06761 2 00001 4 06724 973 RTSX50 TIX RTSX10,4,1 GO BACK TO REREAD F2309610
Reference
06754 −0 10000 0 06761 968 TNZ RTSX50 ERROR. F2309560

RTSX60 = 3571

Definition
06763 0 50000 0 06720 975 RTSX60 CLA TCOMAX IF TSXCOM EMPTY PUT MAX N0 F2309630
Reference
06730 0 10000 0 06763 948 TZE RTSX60 IF EMPTY, GO TO EXIT. F2309360

SORT10 = 3578

Definition
06772 3 01353 1 07034 983 SORT10 TXH MAKIRV,1,747 IS THERE ONLY ONE ENTRY IN TSXCOM. F2309710
Reference
06771 1 00003 1 06772 982 TXI SORT10,1,3 F2309700

SORT20 = 3580

Definition
06774 −0 53400 1 06720 985 SORT20 LXD TCOMAX,1 F2309730
Reference
07033 0 02000 0 06774 1016 TRA SORT20 F2310040

SORT30 = 3581

Definition
06775 0 50000 1 01407 986 SORT30 CLA TCOMZ,1 OBTAIN FIRST WORD, FIRST ENTRY TSXCOM (ALPHA) F2309740
Reference
D 07025 3 00000 1 06775 1010 SORT80 TXH SORT30,1 IS PASS COMPLETE. (DEC HAS UNUSED TSXCOM BUFF+3 F2309980

SORT40 = 3586

Definition
07002 0 50000 1 01410 991 SORT40 CLA TCOMZ+1,1 ALRIGHT- FIRST WORDS IN ORDER BUT F2309790
Reference
07000 0 02000 0 07002 989 TRA SORT40 IN ORDER BY FIRST WORDS. GO CHECK 2ND WORDS. F2309770

SORT50 = 3591

Definition
07007 0 50000 1 01407 996 SORT50 CLA TCOMZ,1 FIRST ENTRY GREATER, OUT OF ORDER 1ST WORDS. F2309840
Reference
06777 0 02000 0 07007 988 TRA SORT50 OUT OF ORDER , REARRANGE TOTAL TSXCOM ENTRY. F2309760

SORT60 = 3595

Definition
07013 0 50000 1 01410 1000 SORT60 CLA TCOMZ+1,1 INTERCHANGE F2309880
Reference
07004 0 02000 0 07013 993 TRA SORT60 IF OUT OF ORDER, GO TO REARRANGE. F2309810

SORT70 = 3604

Definition
07024 1 77775 1 07025 1009 SORT70 TXI SORT80,1,−3 BUMP FOR NEXT COMPAR1S0N. F2309970

References (3)

07001	0 02000 0 07024	990	TRA	SORT70 ENTRIES IN ORDER, IGNORE.	F2309780
07005	0 02000 0 07024	994	TRA	SORT70 IF EQUAL OR	F2309820
07006	0 02000 0 07024	995	TRA	SORT70 IF IN ORDER, IGNORE.	F2309830

SORT80 = 3605

Definition
D 07025 3 00000 1 06775 1010 SORT80 TXH SORT30,1 IS PASS COMPLETE. (DEC HAS UNUSED TSXCOM BUFF+3 F2309980

References (4)

06773	−0 63400 1 07025	984		SXD	SORT80,1 INITIALIZE	F2309720
07024	1 77775 1 07025	1009	SORT70	TXI	SORT80,1,−3 BUMP FOR NEXT COMPAR1S0N.	F2309970
07030	−0 53400 1 07025	1013		LXD	SORT80,1 YES. NUMBER OF COMPARISONS	F2310010
07032	−0 63400 1 07025	1015	SORT90	SXD	SORT80,1 ON EACH PASS.	F2310030

SORT90 = 3610

Definition
07032 −0 63400 1 07025 1015 SORT90 SXD SORT80,1 ON EACH PASS. F2310030
Reference
07031 1 00003 1 07032 1014 TXI SORT90,1,3 MADE IS DECREASED BY ONE F2310020

SPC000 = 3841

Definition
794 SUBROUTINE SPC000 F2307830

07401 −0 63400 1 07473 795 SPC000 SXD SPC115,1 SAVE INDEX OF DO TO BE SEARCHED. F2307840

References (2)

	07272	0 07400 4 07401	717		TSX	SPC000,4	F2307060
	07374	0 07400 4 07401	789		TSX	SPC000,4 GO TO SPC.	F2307780

SPC010 = 3854

Definition
07416 −0 53400 1 07473 808 SPC010 LXD SPC115,1 OBTAIN CURRENT INDEX AND F2307970

SPC020 = 3855

Definition
07417 1 77767 1 07420 809 SPC020 TXI SPC040,1,−9 GO DOWN ONE DO, IF POSSIBLE, ELSE F2307980
Reference
07431 −0 10000 0 07417 819 TNZ SPC020 F2308080

SPC040 = 3856

Definition
D 07420 −3 00000 1 07464 810 SPC040 TXL SPC110,1 GO TO SET UP LAST INTERVAL. (DEC HAS DOTAG IX) F2307990

References (2)

	07000	−0 63400 1 07420	508		SXD	SPC040,1 .	F2304970
	07417	1 77767 1 07420	809	SPC020	TXI	SPC040,1,−9 GO DOWN ONE DO, IF POSSIBLE, ELSE	F2307980

SPC050 = 3859

Definition
D 07423 −3 00000 2 07464 813 SPC050 TXL SPC110,2 IF NOT, EXIT FOR LAST INTRVL. (DEC LEV DO) F2308020

References (2)

	07406	0 62200 0 07423	800		STD	SPC050 INITIALIZE TEST INSTR.	F2307890
D	07463	−3 00000 0 07423	845	SPC105	TXL	SPC050,0	F2308340

SPC053 = 3866

Definition
07432 0 50000 1 06377 820 SPC053 CLA DOTAGZ,1 R2 FOUND, ARRANGE T0 SKIP THIS F2308090
Reference
07426 0 10000 0 07432 816 TZE SPC053 GET NEXT DO. F2308050

SPC055 = 3873

Definition
07441 −0 53400 2 07446 827 SPC055 LXD SPC060,2 PUT TINFOR, LIST IND. IN XRB F2308160

SPC058 = 3874

Definition
07442 0 50000 0 06662 828 SPC058 CLA A FOR F2308170
Reference
D 07473 −3 00000 0 07442 853 SPC115 TXL SPC058,0 TINFOR OR TRASTO. (DEC HAS DOTAG IX) F2308420

SPC060 = 3878

Definition
D 07446 −3 00000 0 07503 832 SPC060 TXL SPCST0,0 TRA TO USE LIST. (DEC HAS TINFOR SEARCH INDIC) F2308210

References (5)

07402	−0 63400 2 07446	796		SXD	SPC060,2 SAVE TINFOR, LIST INDICATOR	F2307850
07441	−0 53400 2 07446	827	SPC055	LXD	SPC060,2 PUT TINFOR, LIST IND. IN XRB	F2308160
07447	−0 53400 2 07446	833	SPC065	LXD	SPC060,2 RETURN HERE, TEST TINFOR	F2308220
07470	−0 53400 2 07446	850		LXD	SPC060,2 LASTB. OBTAIN TINFOR, STOTAG	F2308390
07472	0 62200 0 07446	852		STD	SPC060 INDICATOR T0 ZERO. GO TO	F2308410

SPC065 = 3879

Definition
07447 −0 53400 2 07446 833 SPC065 LXD SPC060,2 RETURN HERE, TEST TINFOR F2308220

References (3)

07444	0 10000 0 07447	830	TZE	SPC065 INTERVALS,	F2308190
07502	0 02000 0 07447	860	TRA	SPC065 T NOT FOUND	F2308490
07511	0 02000 0 07447	867	TRA	SPC065 ON RETURN, GO TO TEST FINISH.	F2308560

SPC070 = 3881

Definition
07451 −0 53400 1 07473 835 SPC070 LXD SPC115,1 TO SET UP NEXT INTERVAL, F2308240

SPC080 = 3884

Definition
07454 1 77767 1 07455 838 SPC080 TXI SPC090,1,−9 PROCEDURE UNTIL SOME DO IS F2308270
Reference
D 07460 3 00000 2 07454 842 SPC100 TXH SPC080,2 IF THIS DO IS IN R1. (DEC HAS LEV LAST R2 DO) F2308310

SPC090 = 3885

Definition
D 07455 −3 00000 1 07464 839 SPC090 TXL SPC110,1 FOUND NOT IN R2, OR UNTIL (DEC HAS DOTAG TX) F2308280

References (2)

	07001	−0 63400 1 07455	509		SXD	SPC090,1 .	F2304980
	07454	1 77767 1 07455	838	SPC080	TXI	SPC090,1,−9 PROCEDURE UNTIL SOME DO IS	F2308270

SPC100 = 3888

Definition
D 07460 3 00000 2 07454 842 SPC100 TXH SPC080,2 IF THIS DO IS IN R1. (DEC HAS LEV LAST R2 DO) F2308310
Reference
07453 0 62200 0 07460 837 STD SPC100 STEP DOWN IN DOTAG BY USUAL F2308260

SPC105 = 3891

Definition
D 07463 −3 00000 0 07423 845 SPC105 TXL SPC050,0 F2308340

References (3)

07403	−0 63400 4 07463	797		SXD	SPC105,4 SAVE TSX INDEX.	F2307860
07474	−0 53400 4 07463	854	SPC120	LXD	SPC105,4 EXIT, ALL STORES DONE, OR,	F2308430
07476	−0 53400 4 07463	856	SPC130	LXD	SPC105,4 EXIT,T FOUND	F2308450

SPC110 = 3892

Definition
07464 0 50000 0 06660 846 SPC110 CLA NEXTA THIS IS SETUP FOR LAST F2308350

References (3)

D	07420	−3 00000 1 07464	810	SPC040	TXL	SPC110,1 GO TO SET UP LAST INTERVAL. (DEC HAS DOTAG IX)	F2307990
D	07423	−3 00000 2 07464	813	SPC050	TXL	SPC110,2 IF NOT, EXIT FOR LAST INTRVL. (DEC LEV DO)	F2308020
D	07455	−3 00000 1 07464	839	SPC090	TXL	SPC110,1 FOUND NOT IN R2, OR UNTIL (DEC HAS DOTAG TX)	F2308280

SPC115 = 3899

Definition
D 07473 −3 00000 0 07442 853 SPC115 TXL SPC058,0 TINFOR OR TRASTO. (DEC HAS DOTAG IX) F2308420

References (4)

07401	−0 63400 1 07473	795	SPC000	SXD	SPC115,1 SAVE INDEX OF DO TO BE SEARCHED.	F2307840
07416	−0 53400 1 07473	808	SPC010	LXD	SPC115,1 OBTAIN CURRENT INDEX AND	F2307970
07440	−0 63400 1 07473	826		SXD	SPC115,1 SAVE INDEX OF R2.	F2308150
07451	−0 53400 1 07473	835	SPC070	LXD	SPC115,1 TO SET UP NEXT INTERVAL,	F2308240

SPC120 = 3900

Definition
07474 −0 53400 4 07463 854 SPC120 LXD SPC105,4 EXIT, ALL STORES DONE, OR, F2308430
Reference
07450 −3 00000 2 07474 834 TXL SPC120,2,0 LIST IND. IF ZERO, EXIT. F2308230

SPC130 = 3902

Definition
07476 −0 53400 4 07463 856 SPC130 LXD SPC105,4 EXIT,T FOUND F2308450
Reference
07501 0 02000 0 07476 859 TRA SPC130 T FOUND F2308480

SPCKEY = 3914

Definition
A 07512 0 00000 0 00000 868 SPCKEY HTR STORAGE FOR TABLEKEY F2308570

References (2)

	07404	0 60100 0 07512	798		STO	SPCKEY SAVE LIST KEY WORD	F2307870
	07507	0 50000 0 07512	865		CLA	SPCKEY ACC. AND	F2308540

SPCST0 = 3907

Definition
07503 0 50000 0 06663 861 SPCST0 CLA B FOR TRASTO, E2 AND E3 ARE F2308500
Reference
D 07446 −3 00000 0 07503 832 SPC060 TXL SPCST0,0 TRA TO USE LIST. (DEC HAS TINFOR SEARCH INDIC) F2308210

SPCTIN = 3904

Definition
07500 0 07400 4 07572 858 SPCTIN TSX TINFXX,4 GO TO SEARCH FORTAG F2308470
Reference
07445 −3 00001 2 07500 831 TXL SPCTIN,2,1 GO TO ARRANGE TINFOR SEARCH, OR F2308200

SUB010 = 4035

Definition
07703 0 76200 0 00304 269 SUB010 RDS TAUDRM SELECT TAU DRUM. F2302600
Reference
07750 2 00001 1 07703 306 TIX SUB010,1,1 CHECK SUMS DISAGREE, F2302972

SUB020 = 4038

Definition
07706 0 60100 4 06645 272 SUB020 STO C1+8,4 SPACE F2302630
Reference
07707 2 00001 4 07706 273 TIX SUB020,4,1 T0 ZERO. F2302640

SUB030 = 4050

Definition
07722 0 40000 0 07774 284 SUB030 ADD SUBES2 INSTRUCTION. F2302750
Reference
07723 2 00001 4 07722 285 TIX SUB030,4,1 F2302760

SUB040 = 4057

Definition
07731 0 70000 0 06636 291 SUB040 CPY S1 TAU 1,2,3 F2302820
Reference
07727 −3 00002 2 07731 289 TXL SUB040,2,2 F2302800

SUB050 = 4062

Definition
07736 0 70000 0 06643 296 SUB050 CPY D1 TAU 2,3 F2302870
Reference
07734 −3 00002 2 07736 294 TXL SUB050,2,2 F2302850

SUB060 = 4063

Definition
07737 0 70000 0 07773 297 SUB060 CPY SUBES1 TAU 1,2,3 F2302880
Reference
07732 −3 00001 2 07737 292 TXL SUB060,2,1 F2302830

SUB070 = 4066

Definition
07742 0 36100 4 06644 300 SUB070 ACL C1+7,4 ENTRY CHECK CUM. F2302910
Reference
07743 2 00001 4 07742 301 TIX SUB070,4,1 THREE ATTMPTS ARE MADE F2302920

SUB075 = 4074

Definition
07752 −0 53400 4 07771 308 SUB075 LXD SUBORG+1,4 REARRANGE C1, C2, D1, D2, F2302990
Reference
07747 0 10000 0 07752 305 TZE SUB075 CHECK SUMS AGREE, TRA. F2302960

SUB080 = 4075

Definition
07753 0 50000 4 06644 309 SUB080 CLA C1+7,4 TO COMPLY WITH CORE F2303000
Reference
D 07762 −3 00000 0 07753 316 SUB085 TXL SUB080,0 F2303070

SUB085 = 4082

Definition
D 07762 −3 00000 0 07753 316 SUB085 TXL SUB080,0 F2303070

References (2)

	07701	−0 63400 4 07762	267	SUBCOM	SXD	SUB085,4 SAVE LINKAGE INDX.	F2302580
	07764	−0 53400 4 07762	318		LXD	SUB085,4 RESTORE LINKAGE INDEX,	F2303090

SUB090 = 4083

Definition
07763 0 60100 0 06644 317 SUB090 STO D2 F2303080
Reference
07760 −2 00006 4 07763 314 TNX SUB090,4,6 F2303050

SUB100 = 4087

Definition
07767 0 76100 0 00000 321 SUB100 NOP F2303122

SUBCOM = 4033

Definition

		264			THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE	F2302550
		265			CORRESP0NDING SUBSCRIPT COMPINATION FROM THE TAU	F2302560
		266			DRUM AND POSITIONS IT IN PROPER FORMAT IN STORAGE.	F2302570
07701	−0 63400 4 07762	267	SUBCOM	SXD	SUB085,4 SAVE LINKAGE INDX.	F2302580

References (2)

	06746	0 07400 4 07701	350		TSX	SUBCOM,4 TAU TABLE DRUM.	F2303400
	07016	0 07400 4 07701	529		TSX	SUBCOM,4 OBTAIN AND DISPERSE THE TAU TABLES.	F2305180

SUBES1 = 4091

Definition
A 07773 0 00000 0 00000 325 SUBES1 HTR E.S. F2303160

References (6)

07715	0 60100 0 07773	279		STO	SUBES1 TAU THREE ADD. IS ORG+7TAU.	F2302700
07721	0 40000 0 07773	283		ADD	SUBES1 FOR LDA	F2302740
07724	0 62100 0 07773	286		STA	SUBES1	F2302770
07725	0 46000 0 07773	287		LDA	SUBES1 COPY SUB. COMB.	F2302780
07737	0 70000 0 07773	297	SUB060	CPY	SUBES1 TAU 1,2,3	F2302880
07746	0 40200 0 07773	304		SUB	SUBES1 COMPLETE ROUTINE, MAKE ERROR RET.	F2302950

SUBES2 = 4092

Definition
A 07774 0 00000 0 00000 326 SUBES2 HTR E.S. F2303170

References (4)

07717	0 60100 0 07774	281		STO	SUBES2 ADDRESS	F2302720
07722	0 40000 0 07774	284	SUB030	ADD	SUBES2 INSTRUCTION.	F2302750
07744	0 60200 0 07774	302		SLW	SUBES2 T0 READ SC CORRECTLY.	F2302930
07745	0 50000 0 07774	303		CLA	SUBES2 IF ERROR STILL PRESENT,	F2302940

SUBORG = 4088

Definition
07770 +000006001356 322 SUBORG OCT 000006001356 F2303130

References (5)

07702	−0 53400 1 07770	268		LXD	SUBORG,1 INITIALIZE ERROR COUTNER.	F2302590
07704	−0 53400 4 07772	270		LXD	SUBORG+2,4 INITIALIZE	F2302610
07720	0 50000 4 07773	282		CLA	SUBORG+3,4 IN SUBES1	F2302730
07740	−0 53400 4 07770	298		LXD	SUBORG,4 COMPUT CHECK SUM	F2302890
07752	−0 53400 4 07771	308	SUB075	LXD	SUBORG+1,4 REARRANGE C1, C2, D1, D2,	F2302990

SYM100 = 3688

Definition
D 07150 −3 00000 2 07110 626 SYM100 TXL SYM40,2 TEST AGAINST LEVEL OF R1 AND F2306150
Reference
07144 −0 63400 2 07150 622 SYM2 SXD SYM100,2 INITIALIZE LEVEL TEST F2306110

SYM110 = 3693

Definition
07155 0 40200 0 06634 631 SYM110 SUB RSYM3 DOESNT MATCH RSYM2, TRY RSYM3. F2306200
Reference
07153 0 02000 0 07155 629 TRA SYM110 F2306180

SYM120 = 3695

Definition
07157 1 77767 1 07160 633 SYM120 TXI SYM130,1,−9 GET NEXT DOTAG F2306220
Reference
07145 0 02000 0 07157 623 TRA SYM120 F2306120

SYM130 = 3696

Definition
D 07160 3 00000 1 07146 634 SYM130 TXH SYM90,1 (DEC CONTAINS DOTAG IX) F2306230

References (5)

	06774	−0 63400 1 07160	504		SXD	SYM130,1 .	F2304930
	07157	1 77767 1 07160	633	SYM120	TXI	SYM130,1,−9 GET NEXT DOTAG	F2306220
	07210	0 02000 0 07160	658		TRA	SYM130 CONTINUE SECOND LEVEL SEARCH.	F2306470
D	07215	−3 00000 2 07160	666	SYM200	TXL	SYM130,2 OUTSIDE RANGE OF R2, EXIT. (DEC HAS LEVEL R2)	F2306550
	07223	0 02000 0 07160	672		TRA	SYM130 EXIT FROM THIRD LEVEL SEARCH	F2306610

SYM140 = 3698

Definition
07162 0 50000 0 06633 636 SYM140 CLA RSYM2 DOTAG SYMBOL MATCHES RSYM3 - F2306250
Reference
07156 0 10000 0 07162 632 TZE SYM140 F2306210

SYM150 = 3702

Definition
07166 −0 63400 1 06651 640 SYM150 SXD XR2,1 THIS DOTAG IS R2 F2306290
Reference
07154 0 02000 0 07166 630 TRA SYM150 MATCHES . GO TO TREAT R2. F2306190

SYM160 = 3708

Definition
07174 0 07400 4 07513 646 SYM160 TSX TRAWRD,4 F2306350
Reference
07172 −3 00002 4 07174 644 TXL SYM160,4,2 N0 TRAWORD SKIP. F2306330

SYM170 = 3714

Definition
07202 −0 53400 4 06631 652 SYM170 LXD DELTA,4 O0 TRANSFERS OUT (TRABITS) F2306410
Reference
07176 0 10000 0 07202 648 TZE SYM170 ARE THERE TRANSFERS OUT (TRABITS) F2306370

SYM180 = 3719

Definition
07207 −0 53400 1 06653 657 SYM180 LXD NEXTR2,1 DELTA IS LESS THAN-THREE, F2306460
Reference
07203 −3 00002 4 07207 653 TXL SYM180,4,2 IF DELTA IS 3 , THEN F2306420

SYM190 = 3723

Definition
07213 0 50000 1 06404 664 SYM190 CLA DOTAGZ+5,1 OBTAIN LEVEL F2306530
Reference
D 07222 3 00000 1 07213 671 SYM220 TXH SYM190,1 IF END OF DOTAG, (DEC HAS DOTAG IX) F2306600

SYM200 = 3725

Definition
D 07215 −3 00000 2 07160 666 SYM200 TXL SYM130,2 OUTSIDE RANGE OF R2, EXIT. (DEC HAS LEVEL R2) F2306550
Reference
07211 −0 63400 2 07215 662 SYM3 SXD SYM200,2 INITIALIZE WITH LEVEL.OF R2. F2306510

SYM210 = 3729

Definition
07221 1 77767 1 07222 670 SYM210 TXI SYM220,1,−9 GET NEXT DOTAG. F2306590
Reference
07212 0 02000 0 07221 663 TRA SYM210 F2306520

SYM220 = 3730

Definition
D 07222 3 00000 1 07213 671 SYM220 TXH SYM190,1 IF END OF DOTAG, (DEC HAS DOTAG IX) F2306600

References (4)

06775	−0 63400 1 07222	505		SXD	SYM220,1 .	F2304940
07221	1 77767 1 07222	670	SYM210	TXI	SYM220,1,−9 GET NEXT DOTAG.	F2306590
07227	0 10000 0 07222	676		TZE	SYM220 IF NO TRNSFRS OUT-(TRABITS) RETURN TO SRCH	F2306650
07235	0 02000 0 07222	682		TRA	SYM220 CONTINUE THIRD LEVEL SEARCH.	F2306710

SYM230 = 3732

Definition
07224 −0 63400 1 06654 673 SYM230 SXD XR3,1 SAVE IX OF MATCHING DO F2306620
Reference
07220 0 10000 0 07224 669 TZE SYM230 IF IDENTITY, GO TO ANALYZE . OTHERWISE, F2306580

SYMLNK = 3765

Definition
D 07265 −3 00000 0 07313 712 SYMLNK TXL PR80,0 F2307010

References (2)

	07237	−0 63400 4 07265	690		SXD	SYMLNK,4 AND CALLER	F2306790
	07315	−0 53400 4 07265	737	PR90	LXD	SYMLNK,4 RESTORE INDEX REG	F2307260

SYMONE = 3648

Definition

		579			ROUTINE SYMONE FINDS DOFORMULAS DEFINING SOME SYMBOL IN THIS	F2305680
		580			SC. IT USES TRAWRD TO DETERMINE WHETHER OR NOT ROUTINE	F2305690
		581			PROCESS SHOULD BE USED.	F2305700
		582			IF MORE THAN ONE SYMBOL, IT THEN USES ROUTINE SYM2.	F2305710
07100	−0 53400 1 06673	583	SYMONE	LXD	L(1350,1	F2305720

Reference
07061 0 02000 0 07100 564 TRA SYMONE GO TO ANALYZE DONESTI F2305530

TABSER = 3602

Definition
07022 −0 53400 1 06674 394 TABSER LXD L(1500,1 SEARCH F2303840
Reference
D 07000 −3 00000 0 07022 376 SAVEA TXL TABSER,0 GO TO PROCESSING ROUTINE. (DEC HAS FORTAG IX) F2303660

TAGIND = 3480

Definition
06630 40 TAGIND BSS 1 ONE IF SOLITARY SUB COEFF ONE, OTHERWISE ZERO F2300370

References (4)

06777	−0 63400 4 06630	375	VAL50	SXD	TAGIND,4	F2303650
07037	−0 53400 4 06630	407		LXD	TAGIND,4 MAKE NORMAL OR SPECIAL	F2303970
07060	−0 63400 2 06630	563	TAGP45	SXD	TAGIND,2	F2305520
07246	−0 53400 4 06630	697		LXD	TAGIND,4 TRA IF SPECIAL CASE, I.E., MOST SIMPLE	F2306860

TAGP10 = 3593

Definition
07011 0 50000 1 03670 524 TAGP10 CLA FORTZ,1 F2305130
Reference
D 07076 3 00000 1 07011 577 TAGP98 TXH TAGP10,1 HAS BEEN COMPLETED, (DEC HAS FORTAG IX) F2305660

TAGP20 = 3601

Definition
07021 0 60100 4 06635 532 TAGP20 STO RSYM1+3,4 INITIALIZE RSYM LOCATIONS WITH ZERO. F2305210
Reference
07022 2 00001 4 07021 533 TIX TAGP20,4,1 F2305220

TAGP30 = 3606

Definition
07026 0 50000 1 06644 537 TAGP30 CLA S1+6,1 GET SYMBOL F2305260
Reference
07041 2 00002 1 07026 548 TAGP40 TIX TAGP30,1,2 F2305370

TAGP32 = 3612

Definition
07034 0 34000 0 06633 543 TAGP32 CAS RSYM2 F2305320
Reference
07032 0 02000 0 07034 541 TRA TAGP32 F2305300

TAGP34 = 3615

Definition
07037 0 60100 2 06635 546 TAGP34 STO RSYM1+3,2 F2305350

References (2)

	07030	3 00002 2 07037	539		TXH	TAGP34,2,2 AT RSYM2 AND RSYM3 PASS,	F2305280
	07035	0 02000 0 07037	544		TRA	TAGP34	F2305330

TAGP40 = 3617

Definition
07041 2 00002 1 07026 548 TAGP40 TIX TAGP30,1,2 F2305370

References (4)

07027	0 10000 0 07041	538	TZE	TAGP40 IF ZERO, GET NEXT SYMBOL	F2305270
07033	1 00001 4 07041	542	TXI	TAGP40,4,1 SYMBOL DUPLICATES RSYM1.	F2305310
07036	1 00001 4 07041	545	TXI	TAGP40,4,1 SYMBOL DUPLICATES RSYM2.	F2305340
07040	1 77777 2 07041	547	TXI	TAGP40,2,−1 BUMP DELTA COUNTER.	F2305360

TAGP45 = 3632

Definition
07060 −0 63400 2 06630 563 TAGP45 SXD TAGIND,2 F2305520

References (4)

07050	3 00000 4 07060	555	TXH	TAGP45,4,0 IF DUPES, SET TAGIND TO ZERO	F2305440
07052	−0 10000 0 07060	557	TNZ	TAGP45 IF DELTA OTHER THAN ONE, SET TAGIND TO ZERO	F2303460
07054	0 10000 0 07060	559	TZE	TAGP45 IF SUBSCRIPT CONSTANT, SET TAGIND TO ZERO	F2305480
07056	3 00001 1 07060	561	TXH	TAGP45,1,1	F2305500

TAGP50 = 3634

Definition
07062 −0 53400 1 07077 565 TAGP50 LXD TAGX,1 IF ANY . F2305540

References (2)

	07045	0 10000 0 07062	552		TZE	TAGP50 CONSTANT SUBSCRIPT.	F2305410
	07111	0 02000 0 07062	592		TRA	TAGP50	F2305810

TAGP60 = 3635

Definition
07063 0 50000 1 03670 566 TAGP60 CLA FORTZ,1 OF THE AS YET UNTREATED F2305550
Reference
D 07073 3 00000 1 07063 574 TAGP80 TXH TAGP60,1 ( DEC HAS FORTAG IX) F2305630

TAGP70 = 3642

Definition
07072 1 77777 1 07073 573 TAGP70 TXI TAGP80,1,−1 F2305620

References (2)

	07064	−0 12000 0 07072	567		TMI	TAGP70 FORTAGS	F2305560
	07067	−0 10000 0 07072	570		TNZ	TAGP70 JUST TREATED,	F2305590

TAGP80 = 3643

Definition
D 07073 3 00000 1 07063 574 TAGP80 TXH TAGP60,1 ( DEC HAS FORTAG IX) F2305630

References (2)

	07006	−0 63400 1 07073	521		SXD	TAGP80,1	F2305100
	07072	1 77777 1 07073	573	TAGP70	TXI	TAGP80,1,−1	F2305620

TAGP90 = 3644

Definition
07074 −0 53400 1 07077 575 TAGP90 LXD TAGX,1 F2305640

TAGP94 = 3645

Definition
07075 1 77777 1 07076 576 TAGP94 TXI TAGP98,1,−1 IF ALL OF FORTAG F2305650
Reference
07012 −0 12000 0 07075 525 TMI TAGP94 IF NEG, GET NEXT FORTAG F2305140

TAGP98 = 3646

Definition
D 07076 3 00000 1 07011 577 TAGP98 TXH TAGP10,1 HAS BEEN COMPLETED, (DEC HAS FORTAG IX) F2305660

References (2)

	07007	−0 63400 1 07076	522		SXD	TAGP98,1	F2305110
	07075	1 77777 1 07076	576	TAGP94	TXI	TAGP98,1,−1 IF ALL OF FORTAG	F2305650

TAGPAS = 3588

Definition

		512			THIS ROUTINEMAKES A PASS OVER FORTAG AND FOR EACH NON-	F2305010
		513			NEGATIVE TAG, OBTAINS THE CORRESPONDING SUBSCRIPT COMPINATION	F2305020
		514			FROM THE TAU DRUM. THE SYMBOLS ARE PUT INTO THE LOCATIONS	F2305030
		515			RSYM1, RSYM2, RSYM3, AND LOCATION TAGIND IS INIT1ALIZED.	F2305040
		516			CONTROL THEN GOES TO ROUTINE SYMONE. UPON RETURN, THIS ENTRY	F2305050
		517			IN FORTAG AND ALL OTHER N0N- NEGATIVE ENTRIES CONTAINING	F2305060
		518			THIS TAG ARE SET NEGATIVE.	F2305070
07004	−0 53400 1 00733	519	TAGPAS	LXD	FORTAG−1,1	F2305080

TAUDRM = 196

Definition
00304 1150 TAUDRM EQU 196 F2311370
Reference
07703 0 76200 0 00304 269 SUB010 RDS TAUDRM SELECT TAU DRUM. F2302600

TCOMAD = 3535

Definition
06717 0 00000 0 00031 95 TCOMAD TCOM F2300920

References (2)

	06731	0 40000 0 06717	949		ADD	TCOMAD OTHERWISE, COMPUTE TERMINAL CORE ADDRESS	F2309370
	07143	0 40000 0 06717	1092		ADD	TCOMAD TERMINUS	F2310800

TCOMAX = 3536

Definition
06720 0 01356 0 00000 96 TCOMAX 0,0,750 F2300930

References (7)

06742	0 40000 0 06720	958		ADD	TCOMAX SPACES,	F2309460
06745	−0 53400 1 06720	961		LXD	TCOMAX,1 COMPUTE	F2309490
06763	0 50000 0 06720	975	RTSX60	CLA	TCOMAX IF TSXCOM EMPTY PUT MAX N0	F2309630
06774	−0 53400 1 06720	985	SORT20	LXD	TCOMAX,1	F2309730
07037	−0 53400 1 06720	1021		LXD	TCOMAX,1	F2310090
07123	−0 53400 1 06720	1076		LXD	TCOMAX,1	F2310640
07140	0 40000 0 06720	1089		ADD	TCOMAX TSXCOM	F2310770

TCOMOR = 3533

Definition
06715 0 00000 0 01300 93 TCOMOR 704 F2300900
Reference
07151 0 46000 0 06715 1098 LDA TCOMOR F2310860

TINF10 = 3963

Definition
07573 0 50000 1 03670 919 TINF10 CLA FORTZ,1 OBTAIN FORTAG ENTRY F2309080
Reference
D 07601 3 00000 1 07573 926 TINF30 TXH TINF10,1 IF POSSIBLE. OTHERWISE, (DEC HAS FORTAG IX) F2309150

TINF20 = 3968

Definition
07600 1 77777 1 07601 924 TINF20 TXI TINF30,1,−1 FOR. NR. LESS THAN ALPHA. GO F2309130

References (2)

	07607	0 12000 0 07600	932		TPL	TINF20 TAG AND COMPARE WITH SEARCH TAG.	F2309210
	07612	−0 10000 0 07600	935		TNZ	TINF20 IF EQUAL, RETURN TO CALLING	F2309240

TINF30 = 3969

Definition
925 BACK FOR NEXT FORTAG ENTRY F2309140

D 07601 3 00000 1 07573 926 TINF30 TXH TINF10,1 IF POSSIBLE. OTHERWISE, (DEC HAS FORTAG IX) F2309150

References (2)

	07005	−0 63400 1 07601	520		SXD	TINF30,1	F2305090
	07600	1 77777 1 07601	924	TINF20	TXI	TINF30,1,−1 FOR. NR. LESS THAN ALPHA. GO	F2309130

TINF40 = 3971

Definition
07603 0 34000 0 06663 928 TINF40 CAS B COMPARE FOR, NR. WITH BETA F2309170
Reference
07576 0 02000 0 07603 922 TRA TINF40 FOR, NR. GREATER THAN ALPHA. TRA. F2309110

TINFOR = 3956

Definition
911 SUBROUTINES TINFOR AND TINFXX F2309000

07564 0 50000 1 06377 912 TINFOR CLA DOTAGZ,1 C(XRA)=INDEX OF DO TO BE F2309010

References (2)

	07275	0 07400 4 07564	720	PR30	TSX	TINFOR,4	F2307090
	07331	0 07400 4 07564	751	PR100	TSX	TINFOR,4 LOOK FOR ALREADY PROCESSED IDENT FORTAG.	F2307400

TINFXX = 3962

Definition
07572 −0 53400 1 06674 918 TINFXX LXD L(1500,1 PUT MAX FORTAG INDEX IN XRA F2309070
Reference
07500 0 07400 4 07572 858 SPCTIN TSX TINFXX,4 GO TO SEARCH FORTAG F2308470

TRABIT = 3503

Definition
06657 63 TRABIT BSS 1 TRAWORD TEMP STORAGE F2300600

References (3)

07515	0 60100 0 06657	872	STO	TRABIT INITIALIZE.	F2308610
07521	−0 60200 0 06657	876	ORS	TRABIT OR INTO TRABIT	F2308650
07562	−0 32000 0 06657	909	ANA	TRABIT AND IN TRANSFER BITS	F2308980

TRAENT = 3806

Definition

		756			MAKE A TRASTO ENTRY. TRASTO TYPE ONE ENTRY IS MADE WHEN	F2307450
		757			B IS ONE OR TWO, TYPE FIVE ENTRY WHEN B IS THREE, AND TYPE	F2307460
		758			SIX TRASTO ENTRY WHEN B IS ZERO.	F2307470
07336	−0 63400 4 07375	759	TRAENT	SXD	TE70,4	F2307480

References (4)

07300	0 07400 4 07336	723	TSX	TRAENT,4 TRASTO ENTRY	F2307120
07314	0 07400 4 07336	736	TSX	TRAENT,4	F2307250
07327	0 07400 4 07336	749	TSX	TRAENT,4	F2307380
07334	0 07400 4 07336	754	TSX	TRAENT,4 ENTRY	F2307430

TRASTO = 4019

Definition
07663 0 00004 0 00003 248 TRASTO HTR 3,0,4 F2302390
Reference
07370 −0 50000 0 07663 785 CAL TRASTO GET TRASTO KEY WORD. F2307740

TRAW10 = 3920

Definition
07520 −0 50000 1 06406 875 TRAW10 CAL DOTAGZ+7,1 OBTAIN T2 WORD. F2308640

References (2)

	07527	−3 00001 2 07520	882		TXL	TRAW10,2,1 IF COMPLETE TEST, GO BACK (NO TRAWORD SKIP)	F2308710
	07535	−0 10000 0 07520	888		TNZ	TRAW10 GO BACK.	F2308770

TRAW20 = 3923

Definition
D 07523 −3 00000 1 07546 878 TRAW20 TXL TRAW70,1 IF NONE, EXIT (DEC HAS DOTAG IX) F2308670

References (2)

	06776	−0 63400 1 07523	506		SXD	TRAW20,1 .	F2304950
	07522	1 77767 1 07523	877		TXI	TRAW20,1,−9 TAKE NEXT DO	F2308660

TRAW30 = 3926

Definition
D 07526 −3 00000 4 07546 881 TRAW30 TXL TRAW70,4 EXIT IF DO IS NOT INRANGE R1 (DEC HAS LEV DO) F2308700

References (2)

	07517	0 62200 0 07526	874		STD	TRAW30	F2308630
D	07545	−3 00000 0 07526	896	TRAW65	TXL	TRAW30,0 OTHERWISE, GO TO TRAW30	F2308850

TRAW35 = 3928

Definition
07530 0 50000 1 06400 883 TRAW35 CLA DOTAGZ+1,1 IF INCOMPLETE TEST, IS THIS A F2308720

TRAW38 = 3934

Definition
07536 0 50000 1 06404 889 TRAW38 CLA DOTAGZ+5,1 THIS DO IS TO BE SKIPPED. F2308780
Reference
07532 0 10000 0 07536 885 TZE TRAW38 IF SO, GO TO TRAW38 F2308740

TRAW40 = 3936

Definition
07540 1 77767 1 07541 891 TRAW40 TXI TRAW50,1,−9 TAKE NEXT DO IF ANY F2308800
Reference
D 07544 3 00000 4 07540 895 TRAW60 TXH TRAW40,4 IF DO IS IN RANGE OF R2, GO BACK. F2308840

TRAW50 = 3937

Definition
D 07541 −3 00000 1 07546 892 TRAW50 TXL TRAW70,1 IF NOT, EXIT. OTHERWISE, (DEC HAS DO IX) F2308810

References (2)

	06777	−0 63400 1 07541	507		SXD	TRAW50,1 .	F2304960
	07540	1 77767 1 07541	891	TRAW40	TXI	TRAW50,1,−9 TAKE NEXT DO IF ANY	F2308800

TRAW60 = 3940

Definition
D 07544 3 00000 4 07540 895 TRAW60 TXH TRAW40,4 IF DO IS IN RANGE OF R2, GO BACK. F2308840
Reference
07537 0 62200 0 07544 890 STD TRAW60 PUT LEVEL OF THIS DO IN TEST INSTR, F2308790

TRAW65 = 3941

Definition
D 07545 −3 00000 0 07526 896 TRAW65 TXL TRAW30,0 OTHERWISE, GO TO TRAW30 F2308850

References (2)

	07513	−0 63400 4 07545	870	TRAWRD	SXD	TRAW65,4	F2308590
	07546	−0 53400 4 07545	897	TRAW70	LXD	TRAW65,4	F2308860

TRAW70 = 3942

Definition
07546 −0 53400 4 07545 897 TRAW70 LXD TRAW65,4 F2308860

References (3)

D	07523	−3 00000 1 07546	878	TRAW20	TXL	TRAW70,1 IF NONE, EXIT (DEC HAS DOTAG IX)	F2308670
D	07526	−3 00000 4 07546	881	TRAW30	TXL	TRAW70,4 EXIT IF DO IS NOT INRANGE R1 (DEC HAS LEV DO)	F2308700
D	07541	−3 00000 1 07546	892	TRAW50	TXL	TRAW70,1 IF NOT, EXIT. OTHERWISE, (DEC HAS DO IX)	F2308810

TRAW80 = 3952

Definition
A 07560 0 76300 0 00000 907 TRAW80 LLS PUT TL2 ONES IN ACC (LEV. DOTAG) F2308960
Reference
07555 0 62100 0 07560 904 STA TRAW80 INITIALIZE SHIFT F2308930

TRAW90 = 3953

Definition
A 07561 0 76700 0 00000 908 TRAW90 ALS POSITION ONES IN ACC F2308970
Reference
07552 0 62100 0 07561 901 STA TRAW90 INITIALIZE SHIFT F2308900

TRAWRD = 3915

Definition
869 SUBROUTINE TRAWRD F2308580

07513 −0 63400 4 07545 870 TRAWRD SXD TRAW65,4 F2308590

References (3)

07127	0 07400 4 07513	606	SYM60	TSX	TRAWRD,4	F2305950
07174	0 07400 4 07513	646	SYM160	TSX	TRAWRD,4	F2306350
07226	0 07400 4 07513	675		TSX	TRAWRD,4 GO TO HUNT TRANSFERS-OUT.	F2306640

TSXCOM = 4018

Definition
246 FIVE KEY WORDS, C(DEC)=INDEX QUANTITIES, C(ADD)=NR. OF WORDS. F2302370

07662 0 00005 0 00002 247 TSXCOM HTR 2,0,5 F2302380

References (2)

	07645	0 40000 1 07667	232		ADD	TSXCOM+5,1 NEXT	F2302230
	07060	0 50000 0 07662	424		CLA	TSXCOM TSXCOM KEY	F2304140

TSXORG = 3534

Definition
06716 0 00000 0 01302 94 TSXORG 706 F2300910

References (2)

	06725	0 40200 0 06716	945		SUB	TSXORG OF TSXCOM ENTRIES	F2309330
	06734	0 46000 0 06716	952		LDA	TSXORG ORIG OF TSXCOM TABLES ON DRUM	F2309400

VALTAG = 3549

Definition
06735 −0 53400 1 06674 341 VALTAG LXD L(1500,1 THIS PROGRAM F2303310

WIRV10 = 3705

Definition
07171 0 36100 1 06625 1115 WIRV10 ACL IRVZ,1 COMPUTE CHECK SUM. F2311030
Reference
D 07173 3 00000 1 07171 1117 WIRV20 TXH WIRV10,1 IS IRV DONE FOR. (DEC HAS IRV IX) F2311050

WIRV20 = 3707

Definition
D 07173 3 00000 1 07171 1117 WIRV20 TXH WIRV10,1 IS IRV DONE FOR. (DEC HAS IRV IX) F2311050

References (2)

	07166	−0 63400 1 07173	1112		SXD	WIRV20,1 INITIALIZE TEST INSTR.	F2311000
	07172	1 77777 1 07173	1116		TXI	WIRV20,1,−1	F2311040

WIRV30 = 3722

Definition
07212 0 70000 1 00000 1132 WIRV30 CPY 0,1 WRITE IRV. F2311200

References (2)

	07205	0 62100 0 07212	1127		STA	WIRV30 INITIALIZE CPY.	F2311150
	07213	2 00001 1 07212	1133		TIX	WIRV30,1,1	F2311210

WIRV40 = 3727

Definition
A 07217 0 00000 0 00000 1137 WIRV40 HTR C.S. STORAGE F2311250

References (3)

07174	0 60200 0 07217	1118	SLW	WIRV40 YES. SAVE C.S.	F2311060
07214	0 70000 0 07217	1134	CPY	WIRV40 WRITE	F2311220
07215	0 70000 0 07217	1135	CPY	WIRV40 CHECK SUM.	F2311230

WRTIRV = 3700

Definition
1109 WRITE EDITED TABLE IRV ON DRUM F2310970

07164 0 76600 0 00303 1110 WRTIRV WRS ADRUM F2310980

References (3)

06722	3 02733 1 07164	941	TXH	WRTIRV,1,1499 GO TO WRITE IRV	F2309290
07154	−3 00000 2 07164	1101	TXL	WRTIRV,2,0 IF EMPTY, EXIT.	F2310890
07162	0 02000 0 07164	1107	TRA	WRTIRV	F2310950

WRTTSX = 3664

Definition
1072 WRITE EDITED TSXCOM TABLE ON DRUM F2310600

07120 0 76600 0 00303 1073 WRTTSX WRS ADRUM F2310610

References (2)

	07055	3 00225 1 07120	1036	IRVS10	TXH	WRTTSX,1,149 IS THERE BUT ONE ENTRY IN IRV.	F2310240
	07115	0 02000 0 07120	1069		TRA	WRTTSX	F2310570

WTSX10 = 3671

Definition
07127 0 36100 1 01407 1080 WTSX10 ACL TCOMZ,1 COMPUTE F2310680
Reference
D 07133 3 00000 1 07127 1084 WTSX30 TXH WTSX10,1 IS THAT ALL OF TSXCOM. (DEC HAS TSXCOM LIMIT) F2310720

WTSX20 = 3674

Definition
07132 1 00002 2 07133 1083 WTSX20 TXI WTSX30,2,2 F2310710
Reference
07131 1 77775 1 07132 1082 TXI WTSX20,1,−3 F2310700

WTSX30 = 3675

Definition
D 07133 3 00000 1 07127 1084 WTSX30 TXH WTSX10,1 IS THAT ALL OF TSXCOM. (DEC HAS TSXCOM LIMIT) F2310720

References (3)

07122	−0 63400 1 07133	1075		SXD	WTSX30,1	F2310630
07126	0 02000 0 07133	1079		TRA	WTSX30	F2310670
07132	1 00002 2 07133	1083	WTSX20	TXI	WTSX30,2,2	F2310710

WTSX40 = 3693

Definition
07155 0 70000 1 00000 1102 WTSX40 CPY 0,1 WRITE TSXCOM ENTRIES F2310900

References (2)

	07144	0 62100 0 07155	1093		STA	WTSX40 AND INITIALIZE CPY ADDRESS FOR FIRST WORD,	F2310810
	07157	2 00003 1 07155	1104		TIX	WTSX40,1,3	F2310920

WTSX50 = 3694

Definition
07156 0 70000 1 00000 1103 WTSX50 CPY 0,1 ONTO DRUM F2310910
Reference
07146 0 62100 0 07156 1095 STA WTSX50 WORD. F2310830

WTSX60 = 3699

Definition
A 07163 0 00000 0 00000 1108 WTSX60 HTR C.S. STORAGE F2310960

References (3)

07134	0 60200 0 07163	1085	SLW	WTSX60 STORE CHECK SUM.	F2310730
07160	0 70000 0 07163	1105	CPY	WTSX60 CHECKSUM	F2310930
07161	0 70000 0 07163	1106	CPY	WTSX60	F2310940

			241			FOUR WORD ENTRY BLOCK	F2302320
A	07656	0 00000 0 00000	242	E1	HTR		F2302330

			328			MASTER RECORD CARD = FN039	F2303185
	06721	−0 53400 1 00733	329	BL3A	LXD	FORTAG−1,1 IF FORTAG	F2303190

			460			MASTER RECORD CARD = FN041	F2304495
	06721	−0 53400 1 00733	461	BL3B	LXD	FORTAG−1,1 FORTAG EMPTY	F2304500

			939			MASTER RECORD CARD = FN043	F2309275
	06721	−0 53400 1 00733	940	BL3C	LXD	FORTAG−1,1 IF FORTAG IS EMPTY,	F2309280

			724			MAKE ENTRY IN TABLE IRV	F2307130
	07301	−0 53400 1 06664	725	PR60	LXD	IRVXX,1 GET IX FOR ENTRY IN TABLE IRV.	F2307140

			978			SORT TSXCOM	F2309660
	06766	−0 76000 0 00144	979	SORT	MSE	LIGHT TURN OFF LIGHT	F2309670

			252			FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART.	F2302430
A	07667	0 00000 0 00000	253	LADDS	HTR	TSXCOM	F2302440

			942			READ IN TSXCOM	F2309300
	06723	−0 53400 4 06671	943	RDTSX	LXD	L(6),4 INITIALIZE ERROR COUNTER	F2309312

			1055			DELETE DUPE ENTRIES FROM TABLE IRV	F2310430
	07100	−0 53400 1 06664	1056	DELETE	LXD	IRVXX,1	F2310440

			1033			SORT TABLE IRV.	F2310210
	07053	−0 53400 1 06664	1034	IRVSRT	LXD	IRVXX,1	F2310220

			258			FIVE WORDS, C(ADD)=ORIGIN,C(DEC)=LAST TABLE L.C. PLUS ONE	F2302490
	07674	0 02660 0 01302	259	LADDIN	HTR	706,0,1456 TSXCOMP	F2302500

			1017			BUILD UP TABLE IRV FROM TSXCOM	F2310050
	07034	−0 53400 2 06664	1018	MAKIRV	LXD	IRVXX,2 (IX VALUE FOR NEXT IRV ENTRY)	F2310060

			208			THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST THE DIAGNOSTIC REC.	F2302016
	07616	0 76200 0 00221	209	NORMRT	RDS	145 SKIP OVER DIAGNOSTIC RECORD 0O SYSTEM TAPE.	F2302017

			794			SUBROUTINE SPC000	F2307830
	07401	−0 63400 1 07473	795	SPC000	SXD	SPC115,1 SAVE INDEX OF DO TO BE SEARCHED.	F2307840

			925			BACK FOR NEXT FORTAG ENTRY	F2309140
D	07601	3 00000 1 07573	926	TINF30	TXH	TINF10,1 IF POSSIBLE. OTHERWISE, (DEC HAS FORTAG IX)	F2309150

			911			SUBROUTINES TINFOR AND TINFXX	F2309000
	07564	0 50000 1 06377	912	TINFOR	CLA	DOTAGZ,1 C(XRA)=INDEX OF DO TO BE	F2309010

			869			SUBROUTINE TRAWRD	F2308580
	07513	−0 63400 4 07545	870	TRAWRD	SXD	TRAW65,4	F2308590

			246			FIVE KEY WORDS, C(DEC)=INDEX QUANTITIES, C(ADD)=NR. OF WORDS.	F2302370
	07662	0 00005 0 00002	247	TSXCOM	HTR	2,0,5	F2302380

			1109			WRITE EDITED TABLE IRV ON DRUM	F2310970
	07164	0 76600 0 00303	1110	WRTIRV	WRS	ADRUM	F2310980

			1072			WRITE EDITED TSXCOM TABLE ON DRUM	F2310600
	07120	0 76600 0 00303	1073	WRTTSX	WRS	ADRUM	F2310610