Symbols

␣␣␣␣␣Y = 39

Definition
00047 0 00000 0 01750 137 Y TIFADD F4410280

References (3)

00621	0 46000 0 00047	522	LDA	Y LOCATE DRUM ADDRESS	F4414130
00633	0 50000 0 00047	532	CLA	Y SET DRUM ADDRESS	F4414230
00635	0 62100 0 00047	534	STA	Y	F4414250

␣␣␣␣AA = 92

Definition
00134 2 04230 1 00310 196 AA TIX RDINSA,1,NOINS TEST FOR END OF INSTRUCTION BLOCK F4410870

References (13)

00075	0 02000 0 00135	159	LTRAA	TRA	AA+1	F4410500
00100	0 02000 0 00135	162	LXRDN	TRA	AA+1	F4410530
00153	1 00004 1 00134	211	OTHER	TXI	AA,1,4 NO TRANSFER EXISTS	F4411020
00177	1 00010 1 00134	231		TXI	AA,1,8 LOOK AT NEXT INSTRUCTION	F4411220
00214	1 00004 1 00134	244		TXI	AA,1,4 LOOK AT NEXT INSTRUCTION	F4411350
00227	1 00004 1 00134	255		TXI	AA,1,4 YES,LOOK AT NEXT INSTRUCTION	F4411460
00242	1 00004 1 00134	266		TXI	AA,1,4 LOOK AT NEXT INST.	F4411570
00261	1 00014 1 00134	281		TXI	AA,1,12 LOOK AT INSTRUCTION AFTER THESE 3.	F4411720
00302	1 00014 1 00134	298		TXI	AA,1,12 DO INSTRUCTION AFTER 2ND TRA NEXT	F4411890
00305	1 00010 1 00134	301		TXI	AA,1,8 LOOK AT 2ND INSTRUCTION AFTER TEST	F4411920
00336	0 62200 0 00134	329		STD	AA	F4412200
00340	0 62100 0 00134	331		STA	AA	F4412220
00342	0 02000 0 00135	333	XRDIN	TRA	AA+1 RETURN TO MAIN ROUTINE	F4412240

␣␣␣␣L5 = 29

Definition
00035 0 00000 0 00005 2126 L5 5 F4460140
Reference
00604 0 50000 0 00035 2517 ZREM CLA L5 IF DRUM ENDS WITH LAST WORD IN AN F4464050

␣␣␣␣L8 = 31

Definition
00037 0 00000 0 00010 2128 L8 8 F4460160
Reference
00326 0 53400 2 00037 2333 LXA L8,2 SET FOR A COMPARISON F4462210

␣␣␣␣OK = 301

Definition
1173 TRANSFERED TO F4422990

00455 3 00001 4 00457 1174 OK TXH ONEVCT+1,4,1 TEST FOR ONLY 0OE BRANCH F4423000
Reference
00453 2 00001 4 00455 1171 TIX OK,4,1 CHECK NO. OF BRANCHES F4422970

␣␣␣␣ON = 53

Definition
00065 −0 50000 1 02413 1925 ON CAL BBTABL,1 F4440420
Reference
D 00060 −3 00000 2 00065 1920 1TXL TXL ON,2 NO MORE SETS F4440370

␣␣␣ADD = 433

Definition
00661 0 40000 4 06022 557 ADD ADD FRET.=−1,4 NO, ADD THIS FREQUENCY TO PREVIOUS F4414480

References (2)

	00674	0 12000 0 00661	568		TPL	ADD NEXT FREQUENCY,GO TO ADD	F4414590
	00706	0 50000 0 00663	578	DOEND	CLA	ADD+2 THIS DO ENTRY IS END OF TABLE	F4414690

␣␣␣ADM = 499

Definition
00763 0 40100 0 00771 625 ADM ADM ACLA SET ADDRESSES FOR BLOCK F4415160
Reference
01011 1 01750 4 00763 647 TXI ADM,4,XFRET= F4415380

␣␣␣ARS = 250

Definition
A 00372 0 77100 0 00000 361 ARS ARS F4412520
Reference
00370 0 62100 0 00372 359 STA ARS F4412500

␣␣␣BLT = 147

Definition
00223 56 BLT SYN 147 BBLIST TAPE (LOGICAL 3) F4400560

References (6)

00606	0 77000 0 00223	2521	OUT2	WEF	BLT	F4464090
00614	0 76600 0 00223	2527		WRS	BLT	F4464150
00620	0 76400 0 00223	2531		BST	BLT	F4464190
00621	0 76400 0 00223	2532		BST	BLT	F4464200
00622	0 76400 0 00223	2533		BST	BLT	F4464210
00623	0 76200 0 00223	2534		RDS	BLT	F4464220

␣␣␣CAS = 135

Definition
00207 0 34000 4 07774 2246 CAS CAS PRED+1,4 COMPARE BB NO IN PRED TABLE TO BB F4461340
Reference
00212 2 00002 4 00207 2249 TIX CAS,4,2 F4461370

␣␣␣L0M = 27

Definition
885 CONSTANTS AND VARIABLES F4420110

00033 0 00000 0 00000 886 L0M HTR 0 F4420120

References (2)

	00672	−0 53400 4 00033	1334		LXD	L0M,4 START LOOK UP	F4424600
	01070	0 30000 0 00033	1471		FAD	L0M FIND LEAST POWER OF 2 NOT LESS THAN	F4425970

␣␣␣L6M = 28

Definition
00034 0 00000 0 00006 887 L6M HTR 6 F4420130
Reference
00155 0 40000 0 00034 974 BADD ADD L6M LIST. F4421000

␣␣␣L6R = 30

Definition
00036 0 00000 0 00006 2127 L6R 6 F4460150

References (3)

00423	0 22100 0 00036	2395	DVP	L6R	F4462830
00430	0 20000 0 00036	2400	MPY	L6R	F4462880
00506	0 22100 0 00036	2446	DVP	L6R FIND OUT WHICH OF THE 6 WORDS IN	F4463340

␣␣␣LA1 = 25

Definition
00031 +000000000001 123 LA1 DEC 1 F4410140

References (48)

00127	0 53400 2 00031	191		LXA	LA1,2 INITIALIZE INDEX REGISTERS	F4410820
00130	0 53400 1 00031	192		LXA	LA1,1	F4410830
00351	0 40000 0 00031	340		ADD	LA1 NO, TRY READING AGAIN	F4412310
00461	0 40200 0 00031	419		SUB	LA1	F4413100
00520	0 40000 0 00031	450		ADD	LA1 NO, TRY READING AGAIN	F4413410
00527	0 53400 1 00031	460	RDTRAD	LXA	LA1,1 SET INDEX	F4413510
00554	0 40000 0 00031	481		ADD	LA1 NO, TRY READING AGAIN	F4413720
00562	0 53400 1 00031	489	CMBNE	LXA	LA1,1 COMBINE TRAD WITH TIFGO	F4413800
00565	0 40200 0 00031	492		SUB	LA1	F4413830
00654	0 53400 1 00031	552		LXA	LA1,1 INITIALIZE INDEX REGISTERS A AND C	F4414430
00717	0 40000 0 00031	587		ADD	LA1 NO, TRY READING AGAIN	F4414780
01057	0 53400 1 00031	693		LXA	LA1,1	F4415840
01136	0 40000 0 00031	742		ADD	LA1 NO, TRY READING AGAIN	F4416330
01176	0 40000 0 00031	777		ADD	LA1 NO, TRY READING AGAIN	F4416680
01204	0 53400 2 00031	785		LXA	LA1,2 ONE INTO IR B	F4416760
01310	0 56000 0 00031	857	CLTRA=	LDQ	LA1	F4417480
00205	0 40000 0 00031	998		ADD	LA1 ADD ONE FOR SENSE LIGHT ON	F4421240
00351	0 40000 0 00031	1105		ADD	LA1	F4422310
00615	0 40200 0 00031	1270		SUB	LA1	F4423960
00746	0 50000 0 00031	1381		CLA	LA1	F4425070
00751	0 40000 0 00031	1384		ADD	LA1 NEXT ENTRY	F4425100
01024	0 40000 0 00031	1431		ADD	LA1 NO, TRY READING AGA1N	F4425570
03144	0 40000 0 00031	1546		ADD	LA1 NO, TRY READING AGAIN	F4426720
03177	0 56000 0 00031	1576		LDQ	LA1	F4427020
03204	0 40000 0 00031	1581		ADD	LA1	F4427070
00104	0 40000 0 00031	1642		ADD	LA1 NO, TRY READING AGAIN	F4430550
00161	0 40000 0 00031	1693		ADD	LA1 NO, TRY READING AGAIN	F4431060
00252	0 40000 0 00031	1756		ADD	LA1 NEXT BLOCK	F4431690
00264	0 40000 0 00031	1766		ADD	LA1 NO, TRY READING AGAIN	F4431790
00271	0 53400 4 00031	1773		LXA	LA1,4	F4431860
00342	0 40000 0 00031	1816		ADD	LA1 NO, TRY READING AGAIN	F4432290
00042	−0 53400 1 00031	1906	SIMUL	LXD	LA1,1 PUT ZERO IN I R A	F4440230
00047	0 40200 0 00031	1911		SUB	LA1	F4440280
00103	−0 53400 1 00031	1939	STOPCS	LXD	LA1,1 -10 IS A STOP-GO TO BB ZERO	F4440560
00151	0 40000 0 00031	1977		ADD	LA1 ADD 1 TO COUNTER FOR THIS TRANSFER	F4440940
00065	0 40000 0 00031	2027		ADD	LA1 NO, TRY READING AGAIN	F4450400
00074	−0 53400 4 00031	2037	ZLXD	LXD	LA1,4 SET INDEX REGISTER--0 IN IR C	F4450500
00075	0 53400 2 00031	2038		LXA	LA1,2 ONE IN B	F4450510
00104	0 50000 0 00031	2045		CLA	LA1 NO IF-START FIXING COUNTERS	F4450580
00257	0 40000 0 00031	2292		ADD	LA1 NO, TRY READING AGAIN	F4461800
00264	0 53400 4 00031	2299		LXA	LA1,4	F4461870
00304	0 40000 0 00031	2315		ADD	LA1 NO, TRY READING AGAIN	F4462030
00407	0 53400 4 00031	2383		LXA	LA1,4	F4462710
00432	−0 53400 1 00031	2402		LXD	LA1,1	F4462900
00442	0 40000 0 00031	2410		ADD	LA1	F4462980
00456	0 40000 0 00031	2422		ADD	LA1	F4463100
00504	0 40000 0 00031	2444		ADD	LA1	F4463320
00511	0 40200 0 00031	2451		SUB	LA1	F4463390

␣␣␣LC1 = 28

Definition
00034 0 00000 0 77777 2125 LC1 −1 F4460130
Reference
00514 0 50000 0 00034 2456 CLA LC1 EXACTLY 1 WORD FITS (PUT LC1 IN AC) F4463440

␣␣␣LD2 = 167

Definition
00247 1 00002 4 00250 1032 LD2 TXI LD2+1,4,2 SET INDEX FOR NEXT ENTRY IN TIFRD F4421580

References (4)

00247	1 00002 4 00250	1032	LD2	TXI	LD2+1,4,2 SET INDEX FOR NEXT ENTRY IN TIFRD	F4421580
00445	0 50000 0 00247	1165		CLA	LD2 PUT NO. OF CASES (=2) IN TRA TABLE	F4422910
00521	0 50000 0 00247	1210		CLA	LD2 PUT NO. OF CASES(=2) IN TRA TABLE	F4423360
00543	0 50000 0 00247	1228		CLA	LD2 PUT NO OF CASES (=2) IN TRA TABLE	F4423540

␣␣␣LD3 = 30

Definition
00036 0 00003 0 00000 889 LD3 HTR 0,0,3 F4420150

References (3)

00312	−0 53400 4 00036	1073	ENDBB	LXD	LD3,4 SET INDEX	F4421990
00570	0 50000 0 00036	1249		CLA	LD3 PUT N0. OF CASES (=3) IN TRA TABLE	F4423750
00774	−0 53400 2 00036	1407		LXD	LD3,2 YES, SET INDEX FOR NO. OF RECORDS	F4425330

␣␣␣LD4 = 190

Definition
00276 1 00004 1 00143 1061 LD4 TXI FNDAS,1,4 NOT AN END OF BB, LOOK AT NEXT INST F4421870

References (4)

00211	−0 53400 2 00276	1002	LXD	LD4,2	F4421280
00604	−0 10000 0 00276	1261	TNZ	LD4 NO-IGNORE-- IS A PAUSE	F4423870
00607	−0 10000 0 00276	1264	TNZ	LD4 NO-- HPR IS A PAUSE--IGNORE	F4423900
03171	−0 53400 4 00276	1570	LXD	LD4,4	F4426960

␣␣␣LD5 = 221

Definition
00335 1 00005 2 00346 2340 LD5 TXI STOCD,2,5 NOT FOUND-IS PASSIVE -WANT 6 IN IRB F4462280

␣␣␣LD8 = 394

Definition
00612 1 00010 1 00130 1267 LD8 TXI BEGBB,1,8 DO NEXT BASIC BLOCK F4423930

References (2)

	00262	−0 53400 4 00612	1049		LXD	LD8,4 NO, CHECK FOR ENDING OF GROUP OF	F4421750
	01010	0 40000 0 00612	1419		ADD	LD8 PUT TEST FOR LAST 1NSTRUCTION	F4425450

␣␣␣LDQ = 562

Definition
01062 0 34000 2 07773 696 LDQ CAS BBLIST,2 COMPARE TO INST NO OF BEG OF BB F4415870

References (3)

01063	1 00001 2 01062	697	TXI	LDQ,2,1 BEG BB LESS, TRY NEXT	F4415880
01064	0 02000 0 01066	698	TRA	LDQ+4 BEG. B.B. EQUAL,FOUND	F4415890
01065	1 77777 2 01066	699	TXI	LDQ+4,2,−1 BEG B B GREATER, PREVIOUS BB IS IT	F4415900

␣␣␣LOR = 27

Definition
2123 CONSTANTS AND VARIABLES F4460110

00033 0 00000 0 00000 2124 LOR F4460120

References (12)

00137	0 53400 2 00033	2200		LXA	LOR,2	F4460880
00263	0 53400 2 00033	2298	TAGPAS	LXA	LOR,2 INITIALIZE INDEX REGISTERS	F4461860
00277	0 53400 1 00033	2310		LXA	LOR,1 CONTINUE TAG PASS	F4461980
00536	0 70000 0 00033	2477		CPY	LOR	F4463650
00540	0 70000 0 00033	2479		CPY	LOR	F4463670
00542	0 70000 0 00033	2481	CPY5	CPY	LOR	F4463690
00544	0 70000 0 00033	2483	CPY6	CPY	LOR (LESS THAN 6 WORDS LEFT)	F4463710
00550	0 70000 0 00033	2487	CPY6C	CPY	LOR	F4463750
00561	0 70000 0 00033	2498	CPY3A	CPY	LOR	F4463860
00563	0 70000 0 00033	2500	CPY4A	CPY	LOR	F4463880
00565	0 70000 0 00033	2502	CPY5A	CPY	LOR	F4463900
00567	0 70000 0 00033	2504	CPY6A	CPY	LOR	F4463920

␣␣␣LXD = 73

Definition

		1647				F4430600
		1648			THIS ROUTINE WRITES THE BBLIST ON DRUM 3	F4430610
00111	−0 53400 3 07774	1649	LXD	LXD	BBOX.=,3 PUT BASIC BLOCK LIST ON DRUM	F4430620

␣␣␣MPY = 690

Definition
01262 0 20000 0 00105 832 MPY MPY ERAS1= F4417230
Reference
00101 0 02000 0 01262 163 LMPY TRA MPY F4410540

␣␣␣STB = 238

Definition

		345				F4412360
		346			THIS ROUTINE STORES,IN OR0ER AND ELIMINATING DUPLICATIONS,	F4412370
		347			THE COMPILED INSTRUCTION NUMBER OF THE BEGINNING OF EACH	F4412380
		348			BASIC BLOCK	F4412390
00356	0 60100 0 00107	349	STB	STO	ERAS3=	F4412400

References (14)

00133	0 07400 4 00356	195	TSX	STB,4 INSTRUCTION IN BBLIST	F4410860
00174	0 07400 4 00356	228	TSX	STB,4 ADDRESS AND THE ADDRESS OF THE	F4411190
00176	0 07400 4 00356	230	TSX	STB,4 BLOCK LIST	F4411210
00213	0 07400 4 00356	243	TSX	STB,4 STORE ADDRESS IN BASIC BLOCK LIST	F4411340
00224	0 07400 4 00356	252	TSX	STB,4 PUT ADDRESS IN BASIC BLOCK LIST	F4411430
00237	0 07400 4 00356	263	TSX	STB,4 PUT ADDRESS OF TRA BACK IN TRA TABL	F4411540
00241	0 07400 4 00356	265	TSX	STB,4 PUT LOC OF NEXT INST. IN TRA	F4411560
00254	0 07400 4 00356	276	TSX	STB,4 INTO THE BASIC BLOCK LIST	F4411670
00256	0 07400 4 00356	278	TSX	STB,4	F4411690
00260	0 07400 4 00356	280	TSX	STB,4	F4411710
00273	0 07400 4 00356	291	TSX	STB,4	F4411820
00301	0 07400 4 00356	297	TSX	STB,4	F4411880
00304	0 07400 4 00356	300	TSX	STB,4 AFTER TEST	F4411910
00547	0 07400 4 00356	476	TSX	STB,4	F4413670

␣␣␣STF = 657

Definition
01221 0 50000 0 00053 798 STF CLA TAGMRK STORE IF INDICATION IN DOLIST F4416890
Reference
01220 0 12000 0 01223 797 TPL STF+2 TRANSFER IF DO HAS NO IF F4416880

␣␣␣SUB = 217

Definition
00331 0 40200 2 00063 2336 SUB SUB LCOPS+1,2 OP CODES OF TYPES 0F TAGGED INSTRS F4462240
Reference
00334 2 00001 2 00331 2339 TIX SUB,2,1 TRY NEXT COMPARISON F4462270

␣␣␣TAG = 3392

Definition
06500 93 TAG SYN BBLIST−ZBB+1 F4400930

References (4)

	06460	94	INST.R	SYN	TAG−15−1	F4400940
00324	0 60100 4 06500	2331		STO	TAG,4 BLOCK INTO TAG LIST	F4462190
00347	0 62200 4 06500	2351		STD	TAG,4 TAG LIST	F4462390
00354	0 70000 4 06500	2356	TGCPY	CPY	TAG,4	F4462440

␣␣␣TMI = 392

Definition
00610 −0 12000 0 00637 513 TMI TMI LXA6 ONLY A PARTIAL BLOCK F4414040

␣␣␣TNX = 437

Definition
00665 −2 00001 2 00711 561 TNX TNX ERRFN,2,1 THIS IS FORM. NO,--SHOUL0NT END TAB F4414520

References (2)

	00660	−0 12000 0 00665	556		TMI	TNX A NEW ENTRY--YES, TRANSFER	F4414470
	00712	0 50000 0 00665	582		CLA	TNX NUMBER WITH NO FREQUENCIES	F4414730

␣␣␣TPL = 260

Definition
00404 0 12000 0 00411 2380 TPL TPL FINAL F4462680
Reference
00405 0 50000 0 00404 2381 WRTG2 CLA TPL F4462690

␣␣␣TSX = 85

Definition
00125 0 07400 4 00633 2186 TSX TSX DRUM.J,4 F4460740

References (2)

	00112	0 62100 0 00126	2175		STA	TSX+1 STORE LENGTH FOR PUTTING SUCCESSOR	F4460630
	00131	0 50000 0 00130	2191		CLA	TSX+3	F4460790

␣␣␣TXH = 387

Definition
D 00603 3 00000 2 00576 506 TXH TXH CLATR,2 CHECK FOR LAST WORD FOR THIS GO TO F4413970

References (2)

	00575	0 62200 0 00603	500		STD	TXH STORE INDEX FOR LAST WORD	F4413910
	00602	1 00001 1 00603	505	TXIA	TXI	TXH,1,1 SET INDEX FOR TIFRD	F4413960

␣␣␣ZBB = 700

Definition
01274 27 ZBB SYN 700 LENGTH OF BB LIST F4400270

References (5)

	06500	71	DOLIST	SYN	BBLIST−ZBB+1 ADDRESSES OF ALL TABLES	F4400710
	01114	87	NLIST	SYN	BBTABL−ZBB−3	F4400870
	01120	91	DOBLOK	SYN	BBTABL−ZBB+1	F4400910
	06500	93	TAG	SYN	BBLIST−ZBB+1	F4400930
00411	3 01273 2 00434	376		TXH	BTSX,2,ZBB−1 TEST FOR OVERFLOW OF BBLIST	F4412670

␣␣13ON = 317

Definition
00475 1 00010 1 00130 1190 13ON TXI BEGBB,1,8 YES, GO TO NEXT BB--NEXT INST. F4423160

␣␣1CLA = 47

Definition
00057 0 50000 2 01063 1919 1CLA CLA SETTAB+1,2 LOOK AT ENTRY IN SET TABLE F4440360
Reference
00064 1 77777 2 00057 1924 TXI 1CLA,2,−1 DO NEXT SET F4440410

␣␣1LDQ = 76

Definition
00114 0 56000 1 07774 2177 1LDQ LDQ PRED+1,1 MOVE SUCCESSOR ADDRESS FROM DECR. F4460650
Reference
00124 2 00002 1 00114 2185 TIX 1LDQ,1,2 DO NEXT ENTRY F4460730

␣␣1STD = 102

Definition
00146 0 62100 1 07774 2207 1STD STA PRED+1,1 F4460950

␣␣1STO = 83

Definition
00123 0 60100 1 07775 2184 1STO STO PRED+2,1 STORE SHIFTED ENTRY F4460720
Reference
00121 0 02000 0 00123 2182 TRA 1STO NO OVERFLOW F4460700

␣␣1TXI = 564

Definition
01064 1 00455 1 01065 1467 1TXI TXI 1TXI+1,1,ZINSTM+1 F4425930
Reference
01064 1 00455 1 01065 1467 1TXI TXI 1TXI+1,1,ZINSTM+1 F4425930

␣␣1TXL = 48

Definition
D 00060 −3 00000 2 00065 1920 1TXL TXL ON,2 NO MORE SETS F4440370
Reference
00054 0 62200 0 00060 1916 STD 1TXL F4440330

␣␣2ACL = 88

Definition
00130 0 36100 1 06500 1666 2ACL ACL DOLIST,1 COMPUTE CHECK SUM F4430790
Reference
00131 2 00001 1 00130 1667 TIX 2ACL,1,1 F4430800

␣␣2CAS = 112

Definition
00160 0 34000 2 07774 2220 2CAS CAS PRED+1,2 F4461080
Reference
00173 2 00002 2 00160 2231 2TIX TIX 2CAS,2,2 TEST FOR END OF TABLE F4461190

␣␣2CLA = 112

Definition
00160 0 50000 1 03702 977 2CLA CLA INSTM−1,1 NOT AN ASSIGN F4421030
Reference
03140 0 02000 0 00160 1542 TR2CL TRA 2CLA F4426680

␣␣2CPY = 92

Definition
00134 0 70000 2 06500 1670 2CPY CPY DOLIST,2 COPY TABLE F4430830
Reference
00135 2 00001 2 00134 1671 TIX 2CPY,2,1 F4430840

␣␣2TIX = 123

Definition
00173 2 00002 2 00160 2231 2TIX TIX 2CAS,2,2 TEST FOR END OF TABLE F4461190

References (2)

	00161	0 02000 0 00173	2221		TRA	2TIX	F4461090
	00162	0 02000 0 00173	2222		TRA	2TIX	F4461100

␣␣2TNX = 104

Definition
00150 −2 00310 4 00155 969 2TNX TNX BADD,4,ZTIFRD IS BLOCK OF TIFRD ALL USED F4420950

References (2)

	03125	0 62200 0 00150	1531		STD	2TNX	F4426570
	03134	0 60100 0 00147	1538		STO	2TNX−1	F4426640

␣␣2TXI = 106

Definition

		2211				F4460990
		2212			THIS PART SORTS THE ALTERED SUCCESSOR TABLE INTO THE	F4461000
		2213			PREDECESSOR TABLE	F4461010
00152	1 77775 1 00153	2214	2TXI	TXI	2TXI+1,1,−3 LAST ADDRESS IN PRED INTO I R A	F4461020

Reference
00152 1 77775 1 00153 2214 2TXI TXI 2TXI+1,1,−3 LAST ADDRESS IN PRED INTO I R A F4461020

␣␣3ADD = 139

Definition
00213 0 40000 0 00035 1004 3ADD ADD LD1M OFF ALL SENSE LIGHTS F4421300
Reference
00222 2 00001 2 00213 1011 3TIX TIX 3ADD,2,1 ARE ALL SETS DONE F4421370

␣␣3CLA = 129

Definition
00201 0 50000 1 03700 994 3CLA CLA INSTM−3,1 LOOK AT RELATIVE ADDRESS OF PSE F4421200
Reference
00175 −2 00310 4 00201 990 TNX 3CLA,4,ZSET IF SET BLOCK IS FULL, PUT ON DRUM F4421160

␣␣3ENO = 140

Definition
00214 −0 75400 0 00000 2251 3ENO PXD 0,0 PUT ZERO AS PRED ADDR INTO TABLE F4461390
Reference
00205 −2 00001 2 00214 2244 TNX 3ENO,2,1 IS THIS THE END OF THE TABLE F4461320

␣␣3PXD = 129

Definition
00201 −0 75400 4 00000 2240 3PXD PXD 0,4 NEW BB F4461280
Reference
00210 0 02000 0 00201 2247 TRA 3PXD NO IN AC F4461350

␣␣3TIX = 146

Definition
00222 2 00001 2 00213 1011 3TIX TIX 3ADD,2,1 ARE ALL SETS DONE F4421370
Reference
00221 1 00001 4 00222 1010 TXI 3TIX,4,1 SET FOR NEXT ENTRY IN TABLE F4421360

␣␣3TXI = 132

Definition
00204 1 77776 4 00205 2243 3TXI TXI 3TXI+1,4,−2 SET FOR NEXT ENTRY IN BB TABLE F4461310
Reference
00204 1 77776 4 00205 2243 3TXI TXI 3TXI+1,4,−2 SET FOR NEXT ENTRY IN BB TABLE F4461310

␣␣4ACL = 104

Definition
00150 0 36100 2 07774 1684 4ACL ACL SETLOC,2 COMPUTE CHECKSUM F4430970

References (2)

	00151	2 00001 2 00150	1685		TIX	4ACL,2,1	F4430980
	00175	0 62100 0 00150	1705		STA	4ACL	F4431180

␣␣4CLA = 71

Definition
00107 0 50000 2 01121 2048 4CLA CLA DOBLOK+1,2 F4450610
Reference
00106 1 00001 4 00107 2047 TXI 4CLA,4,1 F4450600

␣␣4CPY = 100

Definition
00144 0 70000 1 07774 1680 4CPY CPY SETLOC,1 COPY BLOCK F4430930

References (3)

00145	2 00001 1 00144	1681		TIX	4CPY,1,1	F4430940
00172	0 50000 0 00144	1702	5CLA	CLA	4CPY SET ADDRESSES FOR NEXT BLOCK	F4431150
00174	0 62100 0 00144	1704		STA	4CPY	F4431170

␣␣4PXD = 95

Definition

		1673				F4430860
		1674			THIS READS THE TWO BLOCKS OF THE SET TABLE FROM THE DRUM	F4430870
00137	0 50000 0 00032	1675	4PXD	CLA	MINUS4 INITIALIZE ERROR BOX	F4430880

Reference
00200 0 02000 0 00137 1708 TRA 4PXD READ IN NEXT BLOCK F4431210

␣␣4STD = 162

Definition
00242 0 60100 4 04524 1027 4STD STO SETM,4 STORE ADDRESS OF N BEING SET F4421530
Reference
00236 −2 00310 4 00242 1023 TNX 4STD,4,ZSET IS SET BLOCK FULL F4421490

␣␣4STO = 144

Definition
00220 0 60100 4 04524 1009 4STO STO SETM,4 F4421350
Reference
00214 −2 00310 4 00220 1005 TNX 4STO,4,ZSET IS BLOCK OF SETS FULL F4421310

␣␣4TIX = 145

Definition
00221 2 04230 1 00306 249 4TIX TIX RDIN,1,NOINS READ IN MORE INSTRUCTIONS IF NEEDED F4411400

References (2)

	00220	1 00004 1 00221	248	LD4..=	TXI	4TIX,1,4 SET FOR NEXT INSTRUCTION	F4411390
	00345	0 02000 0 00222	336		TRA	4TIX+1 RETURN TO MAIN ROUTINE	F4412270

␣␣4TXI = 66

Definition
00102 1 00002 2 00103 2043 4TXI TXI 4TXI+1,2,2 SET FOR NEXT ENTRY IN DO LIST F4450560
Reference
00102 1 00002 2 00103 2043 4TXI TXI 4TXI+1,2,2 SET FOR NEXT ENTRY IN DO LIST F4450560

␣␣4TZE = 109

Definition
00155 0 10000 0 00164 1689 4TZE TZE TESTST F4431020
Reference
00177 0 62100 0 00155 1707 STA 4TZE STORE ADDRESS FOR NEXT ROUTINE F4431200

␣␣4WRS = 97

Definition
00141 0 76200 0 00303 1677 4WRS RDS SETDRM F4430900
Reference
00163 0 02000 0 00141 1695 TRA 4WRS TRY AGAIN TO READ IN F4431080

␣␣5CLA = 122

Definition
00172 0 50000 0 00144 1702 5CLA CLA 4CPY SET ADDRESSES FOR NEXT BLOCK F4431150

␣␣6ANA = 185

Definition
00271 −0 32000 0 00067 1056 6ANA ANA FSTLT TRANSFER F4421820

␣␣6CLA = 209

Definition
1080 A CERTAINTY CASE DUE TO AN ENTRY F4422060

00321 −0 50000 0 00074 1081 6CLA CAL CRTCD PUT CERTAINTY CODE IN BB TABLE F4422070

␣␣6LXD = 102

Definition
00146 −0 53400 1 00041 2079 6LXD LXD BBBOX,1 F4450920
Reference
00202 3 00000 4 00146 2107 9TXL TXH 6LXD,4,0 IS THIS THE END OF OUTER DO F4451200

␣␣6SET = 119

Definition
00167 0 50000 0 00047 1699 6SET CLA WSETY ANOTHER BLOCK-SET DRUM ADDRESS F4431120

␣␣6SUB = 205

Definition
00315 0 40200 4 00102 1076 6SUB SUB LTROP+1,4 C0MPARE TO POSSIBLE OP CODE F4422020
Reference
00317 2 00001 4 00315 1078 TIX 6SUB,4,1 TRY NEXT POSSIBILITY F4422040

␣␣7TNX = 227

Definition
00343 −2 00310 4 00347 1099 7TNX TNX BCLA,4,ZTIFRD IS TIFRD BLOCK USED F4422250
Reference
03126 0 62200 0 00343 1532 STD 7TNX F4426580

␣␣8ACL = 159

Definition
00237 0 36100 2 07774 1745 8ACL ACL TRATBL+1,2 F4431580

References (2)

	00240	2 00001 2 00237	1746		TIX	8ACL,2,1	F4431590
	00257	0 62100 0 00237	1761		STA	8ACL	F4431740

␣␣8CLA = 242

Definition
00362 0 50000 4 04214 1114 8CLA CLA TIFRDM,4 GET NEXT VALUE ON N FROM TIFRD F4422400
Reference
00356 −2 00310 4 00362 1110 8TNX TNX 8CLA,4,ZTIFRD SEE IF TIFRD BLOCK IS ALL USED F4422360

␣␣8CPY = 156

Definition
00234 0 70000 1 07774 1742 8CPY CPY TRATBL+1,1 COPY BLOCK OF TABLE F4431550

References (3)

00235	2 00001 1 00234	1743	TIX	8CPY,1,1	F4431560
00254	0 50000 0 00234	1758	CLA	8CPY SET ADDRESSES FOR NEXT BLOCK	F4431710
00256	0 62100 0 00234	1760	STA	8CPY	F4431730

␣␣8PXD = 152

Definition
00230 0 50000 0 00032 1738 8PXD CLA MINUS4 INITIALIZE ERROR BOX F4431510
Reference
00260 0 02000 0 00230 1762 TRA 8PXD COPY NEXT BLOCK F4431750

␣␣8TNX = 238

Definition
00356 −2 00310 4 00362 1110 8TNX TNX 8CLA,4,ZTIFRD SEE IF TIFRD BLOCK IS ALL USED F4422360
Reference
03127 0 62200 0 00356 1533 STD 8TNX F4426590

␣␣8TXI = 237

Definition
00355 1 00002 4 00356 1109 8TXI TXI 8TXI+1,4,2 SET FOR N-WORDS IN TIFRD F4422350

References (3)

00353	0 10000 0 00355	1107	8ATZE	TZE	8TXI ENTRY FOUND	F4422330
00355	1 00002 4 00356	1109	8TXI	TXI	8TXI+1,4,2 SET FOR N-WORDS IN TIFRD	F4422350
00374	1 00001 4 00356	1124		TXI	8TXI+1,4,1 SET FOR NEXT WORD	F4422500

␣␣8WRS = 154

Definition
00232 0 76200 0 00301 1740 8WRS RDS TRADRM F4431530

References (3)

00251	0 50000 0 00232	1755	CLA	8WRS NOT FINISHED--SET DRUM NUMBER FOR	F4431680
00253	0 62100 0 00232	1757	STA	8WRS	F4431700
00267	0 02000 0 00232	1769	TRA	8WRS TRY AGAIN	F4431820

␣␣9TXL = 130

Definition
00202 3 00000 4 00146 2107 9TXL TXH 6LXD,4,0 IS THIS THE END OF OUTER DO F4451200
Reference
00201 1 77777 4 00202 2106 TXI 9TXL,4,−1 DECREASE LEVEL COUNTER FOR DO DONE F4451190

␣␣ABOX = 376

Definition
D 00570 −2 00000 1 00563 495 ABOX TNX CLATF,1 IS THIS END OF TIFRD F4413860

References (3)

00505	0 62200 0 00570	439	STD	ABOX	F4413300
00567	1 00002 1 00570	494	TXI	ABOX,1,2	F4413850
00604	1 00002 1 00570	507	TXI	ABOX,1,2 SET FOR NEXT ENTRY IN TIFRD	F4413980

␣␣ACLA = 505

Definition
00771 0 36100 2 04053 631 ACLA ACL FRETN=,2 FIND CHECKSUM F4415220

References (3)

00763	0 40100 0 00771	625	ADM	ADM	ACLA SET ADDRESSES FOR BLOCK	F4415160
00764	0 62100 0 00771	626		STA	ACLA	F4415170
00772	2 00001 2 00771	632		TIX	ACLA,2,1	F4415230

␣␣ACLB = 597

Definition
01125 0 36100 2 04363 733 ACLB ACL DOCARE+101,2 SUM CHECKS F4416240
Reference
01126 2 00001 2 01125 734 TIX ACLB,2,1 F4416250

␣␣ACLF = 398

Definition
00616 0 36100 1 06024 519 ACLF ACL TIFRD,1 COMPUTE CHECKSUM F4414100

References (3)

00617	2 00001 1 00616	520		TIX	ACLF,1,1	F4414110
00627	−0 50000 0 00616	528		CAL	ACLF SET ADDRESSES FOR COMPUTING	F4414190
00631	0 62100 0 00616	530	STA6	STA	ACLF	F4414210

␣␣ADMK = 29

Definition
00035 0 77777 0 77777 1897 ADMK −1,0,−1 F4440140
Reference
00155 0 50000 0 00035 1981 OVRFLO CLA ADMK F4440980

␣␣ARSB = 253

Definition
00375 0 77100 0 00001 364 ARSB ARS 1 F4412550
Reference
00407 0 04000 0 00375 374 TLQ ARSB F4412650

␣␣ARSX = 573

Definition
A 01075 0 77100 0 00000 1476 ARSX ARS F4426020
Reference
01073 0 62100 0 01075 1474 STA ARSX F4426000

␣␣ASSN = 310

Definition
00466 1 00002 1 00452 424 ASSN TXI CPYTF,1,2 AN ASSIGN,KEEP ENTRY IN TIFRD F4413150
Reference
00475 1 00000 1 00466 431 TXI ASSN,1,XXXXXX LOOK AT NEXT ENTRY IN TIFRD F4413220

␣␣BACL = 165

Definition
00245 0 36100 2 07773 2282 BACL ACL BBLIST,2 F4461700
Reference
00246 2 00001 2 00245 2283 TIX BACL,2,1 F4461710

␣␣BADD = 109

Definition
00155 0 40000 0 00034 974 BADD ADD L6M LIST. F4421000
Reference
00150 −2 00310 4 00155 969 2TNX TNX BADD,4,ZTIFRD IS BLOCK OF TIFRD ALL USED F4420950

␣␣BBOX = 79

Definition
00117 0 00000 0 00000 938 BBOX F4420640

References (8)

00210	−0 63400 2 00117	1001	SLSOF	SXD	BBOX,2 SAVE INDEX B	F4421270
00223	−0 53400 2 00117	1012		LXD	BBOX,2 YES, RESTORE INDEX B	F4421380
00402	−0 63400 2 00117	1130		SXD	BBOX,2 SAVE INDEX	F4422560
00407	0 40200 0 00117	1135		SUB	BBOX	F4422610
00421	−0 53400 2 00117	1145	DOLXD	LXD	BBOX,2 RESTORE INDEX FOR BB TABLE	F4422710
00613	−0 63400 2 00117	1268	OUTB	SXD	BBOX,2 SAVE LENGTH OF BB TABLE	F4423940
00766	−0 63400 2 00117	1401		SXD	BBOX,2 SAVE INDEX	F4425270
01017	−0 53400 2 00117	1426		LXD	BBOX,2	F4425520

␣␣BBTY = 52

Definition
00064 0 00000 0 00000 2150 BBTY F4460380

References (5)

00435	0 62100 0 00064	2405		STA	BBTY STORE DRUM ADDRESSES	F4462930
00502	0 40200 0 00064	2442		SUB	BBTY SET B FOR TEST FOR END OF DRUM	F4463300
00531	0 46000 0 00064	2472		LDA	BBTY MAIN LOOP FOR STORING BB TABLE	F4463600
00573	0 46000 0 00064	2508	NOBK	LDA	BBTY	F4463960
00600	0 46000 0 00064	2513	LDA1	LDA	BBTY	F4464010

␣␣BCLA = 231

Definition
00347 0 50000 1 03703 1103 BCLA CLA INSTM,1 COMPARE FORMULA NUMBER OF INSTR. TO F4422290
Reference
00343 −2 00310 4 00347 1099 7TNX TNX BCLA,4,ZTIFRD IS TIFRD BLOCK USED F4422250

␣␣BCPY = 161

Definition
00241 0 70000 1 07773 2278 BCPY CPY BBLIST,1 F4461660
Reference
00242 2 00001 1 00241 2279 TIX BCPY,1,1 F4461670

␣␣BLDQ = 270

Definition
00416 0 56000 1 07774 381 BLDQ LDQ BBLIST+1,1 X SHOULD BE ENTERED HERE, SAVE NEXT F4412720

References (3)

	00414	0 02000 0 00417	379		TRA	BLDQ+1	F4412700
	00415	1 00001 1 00416	380	TXI2	TXI	BLDQ,1,1	F4412710
D	00425	−3 00000 1 00416	388	BTXL	TXL	BLDQ,1 IS THIS LAST ENTRY IN TABLE	F4412790

␣␣BOUT = 282

Definition
00432 −0 53400 1 00105 393 BOUT LXD ERAS1=,1 RESTORE INDEX REGISTER F4412840

References (3)

00404	0 02000 0 00432	371	TRA	BOUT	F4412620
00427	1 00001 2 00432	390	TXI	BOUT,2,1	F4412810
00431	1 00001 2 00432	392	TXI	BOUT,2,1	F4412830

␣␣BRDS = 158

Definition
00236 0 76200 0 00303 2275 BRDS RDS BBLDRM F4461630
Reference
00262 0 02000 0 00236 2295 TRA BRDS F4461830

␣␣BSTA = 293

Definition
00445 0 76400 0 00222 407 BSTA BST TBLTAP F4412980
Reference
00523 0 02000 0 00445 453 TRA BSTA F4413440

␣␣BSTQ = 280

Definition
00430 −0 60000 1 07774 391 BSTQ STQ BBLIST+1,1 STORE LAST ENTRY F4412820
Reference
D 00421 3 00000 1 00430 384 BTXH TXH BSTQ,1 YES, TRANSFER F4412750

␣␣BTSX = 284

Definition
00434 0 07400 4 00004 395 BTSX TSX RDFORT,4 BBLIST IS FULL WITHOUT THIS ENTRY F4412860
Reference
00411 3 01273 2 00434 376 TXH BTSX,2,ZBB−1 TEST FOR OVERFLOW OF BBLIST F4412670

␣␣BTXH = 273

Definition
D 00421 3 00000 1 00430 384 BTXH TXH BSTQ,1 YES, TRANSFER F4412750

References (2)

	00361	0 62200 0 00421	352		STD	BTXH	F4412430
	00420	1 00001 1 00421	383		TXI	BTXH,1,1 IS THIS LAST ENTRY IN TABLE.	F4412740

␣␣BTXL = 277

Definition
D 00425 −3 00000 1 00416 388 BTXL TXL BLDQ,1 IS THIS LAST ENTRY IN TABLE F4412790

References (2)

	00362	0 62200 0 00425	353		STD	BTXL	F4412440
	00424	1 00001 1 00425	387		TXI	BTXL,1,1	F4412780

␣␣CAL4 = 150

Definition
00226 −0 50000 2 02414 2265 CAL4 CAL BBTABL+1,2 F4461530

References (2)

	00225	1 00001 2 00226	2264		TXI	CAL4,2,1	F4461520
	00233	2 00001 2 00226	2270		TIX	CAL4,2,1	F4461580

␣␣CCLA = 130

Definition
00202 0 50000 1 02414 1712 CCLA CLA FIXDOS,1 GET ENTRY FROM FIXDO LIST F4431250
Reference
00212 1 77777 1 00202 1720 TXI CCLA,1,−1 LOOK AT NEXT ENTRY IN FIXDO LIST F4431330

␣␣CLA1 = 478

Definition
00736 0 50000 4 06023 602 CLA1 CLA FRET.=,4 TAKE TOTAL FREQ OF ENTRY (LAST WD) F4414930

References (2)

	00735	1 00001 4 00736	601		TXI	CLA1,4,1	F4414920
	00754	−2 01750 4 00736	616		TNX	CLA1,4,XFRET= NO--LOOK AT NEXT ENTRY	F4415070

␣␣CLA2 = 548

Definition
01044 0 50000 0 00105 678 CLA2 CLA ERAS1= RESTORE ACCUMULATOR F4415690
Reference
01042 0 04000 0 01044 676 TLQ CLA2 STORED LARGER,DO NOT EXCHANGE F4415670

␣␣CLAB = 262

Definition
00406 0 50000 0 00405 373 CLAB CLA TIXBB F4412640

References (3)

	00104	2 00000 1 00406	166	CNST2A	TIX	CLAB,1,0	F4410570
D	00403	1 00000 1 00406	370	TXIBB	TXI	CLAB,1	F4412610
D	00405	2 00000 1 00406	372	TIXBB	TIX	CLAB,1	F4412630

␣␣CLAD = 483

Definition
00743 0 50000 4 06023 607 CLAD CLA FRET.=,4 LOOK AT NEXT WORD F4414980

References (2)

	00742	1 00001 4 00743	606		TXI	CLAD,4,1 INDEX PLACE IN FRET	F4414970
	00752	1 00001 4 00743	614		TXI	CLAD,4,1 LOOK AT NEXT WORD	F4415050

␣␣CLAE = 609

Definition
01141 0 60000 0 00107 745 CLAE STZ ERAS3= SET SIGNAL FOR EMPTY DOCARE F4416360
Reference
01111 −2 00002 4 01141 721 TNX CLAE,4,2 TEST FOR EMPTY TABLE F4416120

␣␣CLAQ = 260

Definition
00404 0 50000 4 01062 1854 CLAQ CLA FRET,4 LOOK AT NEXT WORD IN FRET F4432670

References (3)

00403	2 00001 4 00404	1853	TIX	CLAQ,4,1 FORM. NO. SMALLER, TRY NEXT ENTRY	F4432660
00406	2 00001 4 00404	1856	TIX	CLAQ,4,1 KEEP LOOKING FOR BEG. OF NEXT ENTRY	F4432690
00411	0 50000 0 00403	1859	CLA	CLAQ−1 END OF BLOCK ONLY-STORE RETURN	F4432720

␣␣CLAR = 266

Definition
00412 0 50000 2 06477 1138 CLAR CLA DOLIST−1,2 LOOK AT ADDRESS WORD IN DO LIST F4422640
Reference
00410 0 10000 0 00412 1136 TZE CLAR F4422620

␣␣CLAT = 241

Definition
00361 0 50000 4 01062 1834 CLAT CLA FRET,4 IS FORMULA NO. IN TRA TABLE THE F4432470

References (2)

	00357	0 10000 0 00361	1832		TZE	CLAT YES, GET PROBABILITIES	F4432450
	00405	−0 12000 0 00362	1855		TMI	CLAT+1 - MEANS NEW ENTRY, COMPARE TO TRA	F4432680

␣␣COMB = 321

Definition
00501 0 50000 0 00041 2441 COMB CLA L2047 F4463290
Reference
00473 −0 12000 0 00501 2435 TMI COMB NO F4463230

␣␣COMP = 100

Definition
00144 0 50000 2 07773 1972 COMP CLA TRATBL,2 COMPARE TO CUMULATIVE PROB IN TRA F4440890
Reference
00146 1 00002 2 00144 1974 TXI COMP,2,2 NOT FOUND--LOOK AT NEXT BRANCH F4440910

␣␣CPY5 = 354

Definition
00542 0 70000 0 00033 2481 CPY5 CPY LOR F4463690
Reference
00541 1 00001 1 00542 2480 TXI CPY5,1,1 INCREASE INDEX OF POSITION IN BBT F4463680

␣␣CPY6 = 356

Definition
00544 0 70000 0 00033 2483 CPY6 CPY LOR (LESS THAN 6 WORDS LEFT) F4463710

␣␣CPYF = 430

Definition
00656 0 70000 4 06023 554 CPYF CPY FRET.=,4 COPY WORDS INTO STORAGE F4414450
Reference
00664 1 77777 4 00656 560 TXI CPYF,4,−1 NO,COPY NEXT WORD F4414510

␣␣CPYN = 185

Definition
00271 0 70000 1 06457 2304 CPYN CPY INSTR−1,1 COPY BLOCK F4461920
Reference
00272 1 00001 1 00271 2305 TXI CPYN,1,1 F4461930

␣␣D1XX = 526

Definition
01016 −0 53400 4 00122 1425 D1XX LXD OUTBX,4 NO ERROR, RESTORE INDEX REGISTERS F4425510
Reference
01006 3 00453 4 01016 1417 TXH D1XX,4,ZINSTM−1 IF 3RD RECORD FULL--NOT END OF F1LE F4425430

␣␣DONE = 493

Definition

		617				F4415080
		618			THIS ROUTINE WRITES FRET ON DRUM 2 IN BLOCKS OF 250 WORDS	F4415090
00755	0 50200 0 00107	619	DONE	CLS	FRTBX=	F4415100

␣␣DOYN = 42

Definition
00052 0 00000 0 03270 1614 DOYN DOADDR F4430270
Reference
00133 0 46000 0 00052 1669 LDA DOYN F4430820

␣␣DOYY = 30

Definition
00036 0 00000 0 03270 2002 DOYY DOADDR F4450150
Reference
00046 0 46000 0 00036 2012 LDA DOYY F4450250

␣␣DUMM = 364

Definition
A 00554 0 00000 0 00000 2491 DUMM HTR USED IN SWITCHING AT END OF BLOCK F4463790

␣␣EXIT = 708

Definition
A 01304 0 02000 0 00000 850 EXIT TRA RETURN TO MAIN PART OF THIS ROUTINE F4417410
Reference
01267 0 62100 0 01304 837 STA EXIT F4417280

␣␣FREM = 333

Definition
00515 0 76700 0 00001 2457 FREM ALS 1 GET ADDRESS OF INSTRUCTION TO BE F4463450

References (2)

	00513	−0 10000 0 00515	2454		TNZ	FREM MORE THAN ONE WORD FITS (LEAVE	F4463420
	00605	0 02000 0 00515	2518		TRA	FREM ENTRY	F4464060

␣␣FRET = 562

Definition
01062 88 FRET SYN NLIST−26 F4400880

References (5)

00306	0 70000 1 01062	1788	11CPY	CPY	FRET,1 COPY BLOCK	F4432010
00312	0 36100 2 01062	1792	11ACL	ACL	FRET,2 COMPUTE CHECKSUM	F4432050
00361	0 50000 4 01062	1834	CLAT	CLA	FRET,4 IS FORMULA NO. IN TRA TABLE THE	F4432470
00366	0 50000 4 01062	1839	CLAFN	CLA	FRET,4 GET PROBABILITY FROM FRET	F4432520
00404	0 50000 4 01062	1854	CLAQ	CLA	FRET,4 LOOK AT NEXT WORD IN FRET	F4432670

␣␣FSTT = 56

Definition
00070 −230000000000 915 FSTT OCT −230000000000 F4420410
Reference
00274 0 40200 0 00070 1059 SUB FSTT F4421850

␣␣FXDO = 473

Definition
00731 −0 75400 2 00000 1368 FXDO PXD 0,2 SEE IF TRA IS IN OR OUT OF RANGE F4424940

References (2)

	00724	0 02000 0 00731	1363		TRA	FXDO ENTRY EQUAL, HAS IF	F4424890
	01101	0 50000 0 00730	1480		CLA	FXDO−1	F4426060

␣␣INSX = 58

Definition
00072 0 00000 0 00000 2156 INSX F4460440

References (2)

	00461	0 50000 0 00072	2425		CLA	INSX END OF PREVIOUS BLOCK	F4463130
	00524	−0 60000 0 00072	2466		STQ	INSX	F4463540

␣␣KEYS = 405

Definition
00625 0 50000 1 10000 2536 KEYS CLA 4096,1 8-1-4-1 SYSTEM, DOES NOTHING IN F4464240
Reference
00627 2 00001 1 00625 2538 TIX KEYS,1,1 F4464260

␣␣LBEG = 63

Definition
00077 0 02000 0 00125 161 LBEG TRA BEGCLA F4410520
Reference
00122 0 50000 0 00077 185 CLA LBEG F4410760

␣␣LD1M = 29

Definition
00035 0 00001 0 00000 888 LD1M HTR 0,0,1 F4420140

References (7)

00213	0 40000 0 00035	1004	3ADD	ADD	LD1M OFF ALL SENSE LIGHTS	F4421300
00403	−0 53400 2 00035	1131		LXD	LD1M,2 LOOK AT DOLIST ENTRY FOR	F4422570
00633	−0 53400 4 00035	1289		LXD	LD1M,4 SET INDEX	F4424150
00665	0 40000 0 00035	1325		ADD	LD1M ADD ONE	F4424510
00717	−0 53400 4 00035	1358		LXD	LD1M,4 COMPARE TO DO LIST	F4424840
01072	0 40200 0 00035	1473		SUB	LD1M	F4425990
03124	0 40000 0 00035	1530		ADD	LD1M INTO COMPARISONS	F4426560

␣␣LD1N = 28

Definition
00034 0 00001 0 00000 1600 LD1N 0,0,1 F4430130

References (3)

00226	0 40200 0 00034	1736	SUB	LD1N	F4431490
00350	0 40200 0 00034	1825	SUB	LD1N	F4432380
00421	0 50000 0 00034	1867	CLA	LD1N PUT TOTAL PROBABILITY IN AC	F4432800

␣␣LD1P = 27

Definition
1894 CONSTANTS AND VARIABLES F4440110

00033 0 00001 0 00000 1895 LD1P 0,0,1 F4440120
Reference
00133 0 40000 0 00033 1963 ADD LD1P ADD ONE T0 LOOP COUNT F4440800

␣␣LD1R = 35

Definition
00043 0 00001 0 00000 2132 LD1R 0,0,1 F4460200

References (5)

00135	0 40200 0 00043	2198	SUB	LD1R	F4460860
00140	−0 53400 1 00043	2201	LXD	LD1R,1 ONE INTO INDEX A	F4460890
00412	0 40000 0 00043	2386	ADD	LD1R	F4462740
00471	0 40000 0 00043	2433	ADD	LD1R IS THIS LARGER THAN THE NUMBER OF	F4463210
00475	0 40200 0 00043	2437	SUB	LD1R NUMBER OF LAST BB INSTEAD	F4463250

␣␣LD7M = 31

Definition
00037 0 00007 0 00000 890 LD7M HTR 0,0,7 F4420160
Reference
00202 −0 32000 0 00037 995 ANA LD7M FIND NO OF SENSE LIGHT F4421210

␣␣LD7N = 29

Definition
00035 0 70007 0 00000 1601 LD7N 0,0,−TRATBL+2 F4430140
Reference
00210 0 40000 0 00035 1718 ADD LD7N SET FOR CORE ADDRESS OF COUNTER F4431310

␣␣LDA1 = 384

Definition
00600 0 46000 0 00064 2513 LDA1 LDA BBTY F4464010
Reference
00527 −3 00000 2 00600 2469 TXL LDA1,2,0 INDEX B HAS NO. OF WORDS LEFT ON F4463570

␣␣LDQ5 = 704

Definition
01300 0 56000 0 00034 846 LDQ5 LDQ L5...= FREQ NOT IN DVFQ, TAKE 5 AS FREQ F4417370
Reference
D 01274 3 00000 4 01300 842 DVFTST TXH LDQ5,4 TEST FOR END OF DVFQ F4417330

␣␣LMLE = 387

Definition
00603 1 77777 0 00575 2516 LMLE TXI NDDR,0,−1 F4464040
Reference
00602 −0 53400 4 00603 2515 LXD LMLE,4 PRESET RETURN TO MAIN LOOP F4464030

␣␣LMPY = 65

Definition
00101 0 02000 0 01262 163 LMPY TRA MPY F4410540
Reference
01264 0 50000 0 00101 834 VBLN2 CLA LMPY SET EXIT ADDRESS F4417250

␣␣LOUT = 62

Definition
00076 0 02000 0 00435 160 LOUT TRA STTIF= F4410510
Reference
00337 0 50000 0 00076 330 CLA LOUT STORE FINAL EXIT ADDRESS. F4412210

␣␣LPSE = 61

Definition
00075 +076225000000 920 LPSE OCT 76225000000 F4420460
Reference
00162 0 40200 0 00075 979 SUB LPSE F4421050

␣␣LSTQ = 66

Definition
00102 0 02000 0 01235 164 LSTQ TRA STQDTG F4410550
Reference
01266 0 50000 0 00102 836 VRBLN CLA LSTQ SET EXIT ADDRESS F4417270

␣␣LTPL = 62

Definition
00076 +034743000000 921 LTPL OCT 34743000000 F4420470
Reference
00554 0 40200 0 00076 1237 SUB LTPL TPL AND A TRA, IF NOT THERE HAS F4423630

␣␣LTRA = 63

Definition
00077 +035121000000 922 LTRA OCT 35121000000 TRA F4420480

References (2)

	00561	0 40200 0 00077	1242		SUB	LTRA	F4423680
	00603	0 40200 0 00077	1260		SUB	LTRA IS HPR FOLLOWED BY TRA	F4423860

␣␣LXA6 = 415

Definition
00637 0 53400 1 00106 536 LXA6 LXA ERAS2=,1 PUT LENGTH IN INDEX F4414270

References (2)

	00514	0 02000 0 00637	446		TRA	LXA6	F4413370
	00610	−0 12000 0 00637	513	TMI	TMI	LXA6 ONLY A PARTIAL BLOCK	F4414040

␣␣MASK = 40

Definition
00050 +037777037777 2137 MASK OCT 37777037777 F4460250
Reference
00227 −0 32000 0 00050 2266 ANA MASK F4461540

␣␣MBOX = 80

Definition
00120 0 00000 0 00000 939 MBOX 0 F4420650

References (3)

00462	0 62200 0 00120	1179		STD	MBOX SAVE NO. TO TEST IF VECTOR IS DONE	F4423050
00473	−0 53400 4 00120	1188		LXD	MBOX,4 HAVE ALL BRANCHES OF VECTOR BEEN	F4423140
00476	−0 63400 4 00120	1191	13SXD	SXD	MBOX,4 NO,SAVE COUNT AND ENTER NEXT	F4423170

␣␣NDDR = 381

Definition
00575 0 53400 2 00042 2510 NDDR LXA L2048,2 SELECT 2ND DRUM F4463980

References (2)

	00066	0 02000 0 00575	2152	LTRND	TRA	NDDR	F4460400
	00603	1 77777 0 00575	2516	LMLE	TXI	NDDR,0,−1	F4464040

␣␣NOBK = 379

Definition
00573 0 46000 0 00064 2508 NOBK LDA BBTY F4463960
Reference
00530 −2 00006 2 00573 2471 TNX NOBK,2,6 LESS THAN 6 WORDS FIT F4463590

␣␣OPCD = 72

Definition
00110 0 00000 0 00000 171 OPCD F4410620

References (3)

00140	0 62200 0 00110	200		STD	OPCD	F4410910
00146	0 50000 0 00110	206		CLA	OPCD	F4410970
00160	0 50000 0 00110	216	TRCS	CLA	OPCD FIND WHAT KIND OF TRANSFER THIS IS	F4411070

␣␣OUT2 = 390

Definition

		2519				F4464070
		2520			THIS ROUTINE WRITES BBLIST ON TAPE 3.	F4464080
00606	0 77000 0 00223	2521	OUT2	WEF	BLT	F4464090

References (2)

	00445	0 10000 0 00606	2413		TZE	OUT2	F4463010
	00446	−0 12000 0 00606	2414		TMI	OUT2 FORM NEW TABLE LENGTH	F4463020

␣␣OUTA = 524

Definition
01014 0 70000 0 00033 650 OUTA CPY L0...= F4415410
Reference
01001 3 01750 4 01014 639 TXH OUTA,4,XFRET= IS THIS END OF TABLE F4415300

␣␣OUTB = 395

Definition
00613 −0 63400 2 00117 1268 OUTB SXD BBOX,2 SAVE LENGTH OF BB TABLE F4423940
Reference
00053 0 02000 0 00613 902 LCOUT TRA OUTB TRANSFER TO EXIT ROUTINE F4420280

␣␣OUTR = 253

Definition
00375 −0 75400 4 00000 2373 OUTR PXD 0,4 F4462610
Reference
00273 0 02000 0 00375 2306 TRA OUTR END OF FILE-EXIT F4461940

␣␣PBOX = 78

Definition
00116 0 00312 0 00000 937 PBOX 0,0,ZTIFRD+2 F4420630

References (15)

00147	−0 53400 4 00116	968		LXD	PBOX,4 CHANGE, LOOK AT ASSIGN ENTRY	F4420940
00151	−0 63400 4 00116	970		SXD	PBOX,4 YES, READ IN MORE	F4420960
00153	−0 53400 4 00116	972		LXD	PBOX,4	F4420980
00231	−0 63400 4 00116	1018	ASNCS	SXD	PBOX,4 SAVE INDEX FOR TIFRD	F4421440
00244	−0 53400 4 00116	1029		LXD	PBOX,4 SET FOR TIFRD	F4421550
00250	−0 63400 4 00116	1033		SXD	PBOX,4 SAVE TIFRD INDEX	F4421590
00342	−0 53400 4 00116	1098		LXD	PBOX,4 PUT TIFRD ADDRESS INTO INDEX	F4422240
00344	−0 63400 4 00116	1100		SXD	PBOX,4 YES, SAVE INDEX	F4422260
00346	−0 53400 4 00116	1102		LXD	PBOX,4 RESTORE INDEX	F4422280
00357	−0 63400 4 00116	1111		SXD	PBOX,4 YES SAVE INDEX	F4422370
00361	−0 53400 4 00116	1113		LXD	PBOX,4 RESTORE INDEX	F4422390
00365	−0 63400 4 00116	1117		SXD	PBOX,4 SAVE TIFRD INDEX	F4422430
00373	−0 53400 4 00116	1123		LXD	PBOX,4 RESTORE INDEX FOR TIFRD	F4422490
00375	−0 63400 4 00116	1125	8ATRB	SXD	PBOX,4 SAVE TIFRD INDEX	F4422510
03135	−0 53400 4 00116	1539		LXD	PBOX,4	F4426650

␣␣PRED = 4091

Definition
07773 99 PRED SYN TRATBL F4400990

References (16)

00114	0 56000 1 07774	2177	1LDQ	LDQ	PRED+1,1 MOVE SUCCESSOR ADDRESS FROM DECR.	F4460650
00115	0 50000 1 07774	2178		CLA	PRED+1,1 TO ADDRESS PART OF ENTRY WORD	F4460660
00123	0 60100 1 07775	2184	1STO	STO	PRED+2,1 STORE SHIFTED ENTRY	F4460720
00127	0 00000 0 07773	2188		HTR	PRED CORE MEMORY ADDRESS OF LAST WORD	F4460760
00146	0 62100 1 07774	2207	1STD	STA	PRED+1,1	F4460950
00156	0 50000 1 07772	2218		CLA	PRED−1,1 TAKE ENTRIES FOR COMPARISON	F4461060
00157	0 56000 1 07773	2219		LDQ	PRED,1 FIND LARGEST ELEMENT LEFT IN TABLE	F4461070
00160	0 34000 2 07774	2220	2CAS	CAS	PRED+1,2	F4461080
00164	0 56000 2 07774	2224		LDQ	PRED+1,2 EXCHANGE ENTRIES-- STORAGE IS GREAT	F4461120
00165	0 60100 2 07774	2225		STO	PRED+1,2	F4461130
00170	0 56000 2 07775	2228		LDQ	PRED+2,2	F4461160
00171	0 60100 2 07775	2229		STO	PRED+2,2	F4461170
00174	0 60100 1 07772	2232		STO	PRED−1,1 THIS IS LARGEST ENTRY NOT SORTED	F4461200
00175	−0 60000 1 07773	2233		STQ	PRED,1 YET, STORE AND CONTINUE SORT	F4461210
00207	0 34000 4 07774	2246	CAS	CAS	PRED+1,4 COMPARE BB NO IN PRED TABLE TO BB	F4461340
00220	0 00000 0 07773	2255		HTR	PRED CORE MEMORY ADDRESS OF LAST WORD	F4461430

␣␣PSUB = 104

Definition
00150 0 40200 4 00074 208 PSUB SUB LPCOP=+1,4 LOOK FOR A TEST INSTRUCTION F4410990
Reference
00152 2 00001 4 00150 210 TIX PSUB,4,1 F4411010

␣␣PTRA = 111

Definition
00157 0 02000 0 00262 215 PTRA TRA PSECS PSE F4411060
Reference
00151 0 10000 4 00160 209 TZE PTRA+1,4 THIS IS A TEST F4411000

␣␣RCLA = 205

Definition
00315 0 50000 1 01574 312 RCLA CLA BGINS,1 MOVE EXTRA INSTRUCTIONS F4412030
Reference
00317 2 00001 1 00315 314 TIX RCLA,1,1 F4412050

␣␣RCPY = 209

Definition
00321 0 70000 1 06010 316 RCPY CPY INSTA−12,1 READ IN BLOCK OF INSTRUCTIONS F4412070

References (2)

	00322	1 00001 1 00321	317		TXI	RCPY,1,1	F4412080
	00333	0 02000 0 00320	326		TRA	RCPY−1 READ NEXT BLOCK	F4412170

␣␣RDIN = 198

Definition

		302				F4411930
		303			THIS ROUTINE READS A BLOCK OF COMPILED INSTRUCTIONS INTO	F4411940
		304			STORAGE FROM TAPE 4, FILE 1.	F4411950
00306	0 50000 0 00063	305	RDIN	CLA	LNOP.= STORE EXIT ADDRESS FROM RDINS	F4411960

Reference
00221 2 04230 1 00306 249 4TIX TIX RDIN,1,NOINS READ IN MORE INSTRUCTIONS IF NEEDED F4411400

␣␣RDS6 = 329

Definition
00511 0 76200 0 00222 443 RDS6 RDS TBLTAP F4413340
Reference
00512 1 77777 2 00513 444 TXI RDS6+2,2,−1 NO ENTRIES IN TIFGO-SKIP PROCESSING F4413850

␣␣RDSP = 710

Definition
01306 0 76200 0 00222 852 RDSP RDS TBLTAP FIND BEGINNING OF DOTAG F4417430
Reference
01307 2 00001 4 01306 853 TIX RDSP,4,1 F4417440

␣␣SBOX = 74

Definition
00112 +000001000000 933 SBOX OCT 1000000 F4420590

References (14)

00131	0 50000 0 00112	953		CLA	SBOX	F4420790
00174	−0 53400 4 00112	989	STSLT	LXD	SBOX,4 LOAD INDEX FOR SET TABLE	F4421150
00176	−0 63400 4 00112	991		SXD	SBOX,4 SAVE INDEX	F4421170
00200	−0 53400 4 00112	993		LXD	SBOX,4 RESTORE INDEX	F4421190
00215	−0 63400 4 00112	1006		SXD	SBOX,4 YES, SAVE INDEX C	F4421320
00217	−0 53400 4 00112	1008		LXD	SBOX,4 RESTORE INDEX C	F4421340
00224	−0 63400 4 00112	1013	TR3S	SXD	SBOX,4 STORE SET TABLE INDEX	F4421390
00235	−0 53400 4 00112	1022		LXD	SBOX,4 PUT SET TABLE ADDRESS INTO INDEX	F4421480
00237	−0 63400 4 00112	1024		SXD	SBOX,4 YES,SAVE INDEX	F4421500
00241	−0 53400 4 00112	1026		LXD	SBOX,4 RESTORE INDEX	F4421520
00243	−0 63400 4 00112	1028		SXD	SBOX,4 SAVE INDEX	F4421540
00252	−0 53400 4 00112	1035		LXD	SBOX,4 NUMBER, PUT SET ADDRESS IN INDEX	F4421610
00715	−0 53400 1 00112	1356		LXD	SBOX,1	F4424820
00725	−0 63400 1 00112	1364		SXD	SBOX,1 ENTRY LARGER, TEST FINISHED.	F4424900

␣␣SETM = 2388

Definition
04524 100 SETM SYN SET..M F4401000

References (6)

00220	0 60100 4 04524	1009	4STO	STO	SETM,4	F4421350
00242	0 60100 4 04524	1027	4STD	STO	SETM,4 STORE ADDRESS OF N BEING SET	F4421530
00745	0 60100 1 04524	1380	C4STD	STO	SETM,1 STORE BB NO. IN SET TABLE	F4425060
00747	0 62100 1 04524	1382		STA	SETM,1 STORE 1 INTO SET LIST	F4425080
01045	0 36100 4 04524	1450	D6ACL	ACL	SETM,4 COMPUTE CHECK SUM	F4425760
01052	0 70000 4 04524	1455	D6CPY	CPY	SETM,4 COPY BLOCK	F4425810

␣␣SLOC = 195

Definition
00303 0 50000 1 06014 299 SLOC CLA INSTA−8,1 STORE LOCATION OF 2ND INSTRUCTION F4411900
Reference
00277 −0 10000 0 00303 295 TNZ SLOC NO, STORE LOCATION OF 2ND INST. F4411860

␣␣STA6 = 409

Definition
00631 0 62100 0 00616 530 STA6 STA ACLF F4414210

␣␣SUBP = 181

Definition
00265 0 40200 4 00112 1052 SUBP SUB LNTOP+1,4 COMPARE TO OP CODES OF POSSIBLE F4421780
Reference
00267 2 00001 4 00265 1054 TIX SUBP,4,1 TRY NEXT POSSIBILITY F4421800

␣␣TBOX = 76

Definition
00114 +000001000000 935 TBOX OCT 1000000 F4420610

References (18)

00134	0 40000 0 00114	956		ADD	TBOX	F4420820
00137	−0 53400 4 00114	959		LXD	TBOX,4	F4420850
00141	−0 63400 4 00114	961		SXD	TBOX,4 SAVE NEW INDEX FOR TRA	F4420870
00340	−0 53400 4 00114	1096		LXD	TBOX,4	F4422220
00366	−0 53400 4 00114	1118		LXD	TBOX,4 GET TRA TABLE INDEX	F4422440
00370	−0 63400 4 00114	1120		SXD	TBOX,4 YES SAVE INDEX	F4422460
00404	−0 53400 4 00114	1132		LXD	TBOX,4 THIS DO	F4422580
00441	−0 53400 4 00114	1161	11LXD	LXD	TBOX,4	F4422870
00447	−0 63400 4 00114	1167		SXD	TBOX,4 SAVE TRA INDEX	F4422930
00460	−0 53400 4 00114	1177		LXD	TBOX,4 SET INDEX FOR TRA TABLE ADDRESS	F4423030
00477	−0 53400 4 00114	1192		LXD	TBOX,4 PUT TRA TABLE ADDRESS IN INDEX	F4423180
00501	−0 63400 4 00114	1194		SXD	TBOX,4 YES,SAVE TRA INDEX	F4423200
00516	−0 53400 4 00114	1207		LXD	TBOX,4 SET INDEX FOR TRA TABLE ADDRESS	F4423330
00533	−0 53400 4 00114	1220		LXD	TBOX,4 SET INDEX FOR TRA TABLE	F4423460
00540	−0 53400 4 00114	1225		LXD	TBOX,4 SET INDEX FOR TRA TABLE	F4423510
00565	−0 53400 4 00114	1246		LXD	TBOX,4 SET INDEX FOR TRA TABLE	F4423720
00655	−0 53400 4 00114	1313		LXD	TBOX,4	F4424390
00660	−0 63400 4 00114	1316	C2SXD	SXD	TBOX,4	F4424420

␣␣TIFY = 33

Definition
00041 0 00000 0 01750 892 TIFY TIFADD F4420180

References (3)

03073	0 46000 0 00041	1505	LDA	TIFY LOCATE DRUM ADDRESS	F4426310
03113	0 50000 0 00041	1521	CLA	TIFY THIS WAS A FULL BLOCK, SET DRUM	F4426470
03115	0 62100 0 00041	1523	STA	TIFY	F4426490

␣␣TR3S = 148

Definition
00224 −0 63400 4 00112 1013 TR3S SXD SBOX,4 STORE SET TABLE INDEX F4421390

References (3)

00146	0 10000 0 00225	966		TZE	TR3S+1 THIS CANT BE A SET OR AN ENDING	F4420920
00207	1 00001 4 00224	1000		TXI	TR3S,4,1 INDEX FOR NEXT SET ENTRY	F4421260
00256	1 00004 1 00224	1039	4TXII	TXI	TR3S,1,4 SINCE THIS INSTRUCTION IS A CLA AND	F4421650

␣␣TRAM = 3092

Definition
06024 101 TRAM SYN TRA..M F4401010

References (7)

	04530	104	NDTRA	SYN	TRAM−700 END OF TRA TABLE BLOCK (PART 2)	F4401040
01314	0 60100 1 06025	861		STO	TRAM+1,1	F4417520
01315	−0 60000 1 06024	862		STQ	TRAM,1	F4417530
00417	0 62200 4 06030	1143	DWFCD	STD	TRAM+4,4	F4422690
03162	0 36100 4 06024	1563	D4ACL	ACL	TRAM,4 COMPUTE CHECKSUM	F4426890
03166	0 70000 4 06024	1567	D4CPY	CPY	TRAM,4 COPY BLOCK	F4426930
03200	0 60100 4 06021	1577	D5ST2	STO	TRAM−3,4 INITIALIZE TRA TABLE	F4427030

␣␣TRAQ = 580

Definition
01104 0 02000 0 00130 1483 TRAQ TRA BEGBB F4426090
Reference
01100 −0 10000 0 01103 1479 TNZ TRAQ−1 FOR A TRANSFER TO A DO F4426050

␣␣TRCS = 112

Definition
00160 0 50000 0 00110 216 TRCS CLA OPCD FIND WHAT KIND OF TRANSFER THIS IS F4411070
Reference
00145 0 10000 0 00160 205 TZE TRCS F4410960

␣␣TSX2 = 142

Definition
00216 0 07400 4 00633 2253 TSX2 TSX DRUM.J,4 PUT PRED TABLE ON DRUM F4461410

References (3)

00113	0 62100 0 00217	2176	STA	TSX2+1 AND PREDECESSOR TABLES ON DRUM	F4460640
00132	0 60100 0 00221	2192	STO	TSX2+3	F4460800
00222	0 50000 0 00221	2257	CLA	TSX2+3	F4461450

␣␣TXBB = 101

Definition
D 00145 3 00000 1 00150 2206 TXBB TXH NBOXR−1,1 TEST FOR END 0F TABLE F4460940

References (2)

	00142	0 62200 0 00145	2203		STD	TXBB	F4460910
	00147	1 00002 1 00145	2208		TXI	TXBB,1,2 SET FOR NEXT TRA	F4460960

␣␣TXI2 = 269

Definition
00415 1 00001 1 00416 380 TXI2 TXI BLDQ,1,1 F4412710
Reference
00413 0 04000 0 00415 378 TLQ TXI2 F4412690

␣␣TXIA = 386

Definition
00602 1 00001 1 00603 505 TXIA TXI TXH,1,1 SET INDEX FOR TIFRD F4413960
Reference
00601 1 77777 2 00602 504 TXI TXIA,2,−1 SET INDEX FOR TRAD F4413950

␣␣TXL2 = 361

Definition
00551 −3 00000 1 00555 2488 TXL2 TXL CPY1A,1,XXXXXX F4463760

References (2)

	00466	0 62200 0 00551	2430		STD	TXL2 BLOCK WHICH WILL FIT IN THIS BLK	F4463180
	00477	0 62200 0 00551	2439		STD	TXL2	F4463270

␣␣TXL3 = 376

Definition
00570 −3 00000 1 00601 2505 TXL3 TXL CPY1B,1,XXXXXX F4463930

References (2)

	00467	0 62200 0 00570	2431		STD	TXL3	F4463190
	00500	0 62200 0 00570	2440		STD	TXL3	F4463280

␣␣TXLN = 78

Definition
D 00116 −3 00000 2 00111 1950 TXLN TXL CLANT,2 TEST FOR N NOT SET F4440670

References (2)

	00110	0 62200 0 00116	1944		STD	TXLN	F4440610
	00115	1 00002 2 00116	1949		TXI	TXLN,2,2 NO, LOOK AT NEXT ENTRY IN TRAT	F4440660

␣␣WBL1 = 397

Definition
00615 0 70000 2 07774 2528 WBL1 CPY BBOX.=,2 WRITE BB LIST F4464160
Reference
00617 2 00001 1 00615 2530 TIX WBL1,1,1 F4464180

␣␣WBL2 = 398

Definition
00616 1 00001 2 00617 2529 WBL2 TXI WBL2+1,2,1 F4464170

References (2)

	00613	−0 53400 2 00616	2526		LXD	WBL2,2	F4464140
	00616	1 00001 2 00617	2529	WBL2	TXI	WBL2+1,2,1	F4464170

␣␣WRS1 = 341

Definition
A 00525 0 76600 0 00000 2467 WRS1 WRS SELECT DRUM F4463550
Reference
00441 0 62100 0 00525 2409 STA WRS1 F4462970

␣␣XBOX = 84

Definition
00124 0 00000 0 00000 943 XBOX SAVE POWER OF 2 F4420690

References (2)

	00673	0 50000 0 00124	1335		CLA	XBOX	F4424610
	01076	0 60100 0 00124	1477		STO	XBOX	F4426030

␣␣XSET = 400

Definition
00620 31 XSET SYN 400 LENGTH OF SET TABLE F4400310
Reference
00046 0 00620 0 00000 897 LXSET 0,0,XSET F4420230

␣␣XTRA = 2800

Definition
05360 34 XTRA SYN 2800 LENGTH 0F TRA TABLE F4400340
Reference
00044 0 05360 0 00000 895 LXTRA 0,0,XTRA F4420210

␣␣ZERO = 27

Definition
1598 CONSTANTS AND VARIABLES F4430110

00033 0 00000 0 00000 1599 ZERO 0 F4430120

References (4)

00201	0 53400 1 00033	1711	FXSET	LXA	ZERO,1 SET INDEX FOR FIX DO LIST	F4431240
00270	0 56000 0 00033	1772	CLRNS	LDQ	ZERO	F4431850
00346	−0 53400 2 00033	1823	FXTRA	LXD	ZERO,2 SET INDEX REGISTERS	F4432360
00422	0 56000 0 00033	1868		LDQ	ZERO CLEAR MQ	F4432810

␣␣ZLXD = 60

Definition
00074 −0 53400 4 00031 2037 ZLXD LXD LA1,4 SET INDEX REGISTER--0 IN IR C F4450500
Reference
00072 3 00226 2 00074 2035 TXH ZLXD,2,150 CLEAR L-C0UNTERS TO INITIALIZE F4450480

␣␣ZREM = 388

Definition
00604 0 50000 0 00035 2517 ZREM CLA L5 IF DRUM ENDS WITH LAST WORD IN AN F4464050
Reference
00512 −0 12000 0 00604 2452 TMI ZREM BREAK IS BETWEEN ENTRIES (PUT 5 F4463400

␣␣ZSET = 200

Definition
00310 32 ZSET SYN 200 BLOCK LENGTH OF SET TABLE F4400320

References (10)

	07464	107	NDSET	SYN	SETLOC−ZSET END OF SET BLOCK (PART 3)	F4401070
00042	0 00000 0 00311	893	LZSET1		ZSET+1	F4420190
00047	0 00310 0 00000	898	LZSET		0,0,ZSET	F4420240
00175	−2 00310 4 00201	990		TNX	3CLA,4,ZSET IF SET BLOCK IS FULL, PUT ON DRUM	F4421160
00214	−2 00310 4 00220	1005		TNX	4STO,4,ZSET IS BLOCK OF SETS FULL	F4421310
00236	−2 00310 4 00242	1023		TNX	4STD,4,ZSET IS SET BLOCK FULL	F4421490
00743	−2 00310 1 00745	1378		TNX	C4STD,1,ZSET IS BLOCK OF SET TABLE FULL	F4425040
00041	0 00000 0 00310	1605	LAZST		ZSET	F4430180
00042	0 00000 0 00311	1606	LZST1		ZSET+1	F4430190
00045	0 00310 0 00000	1609	LZSETN		0,0,ZSET	F4430220

␣␣ZSTO = 57

Definition
00071 0 60100 2 00443 2034 ZSTO STO LCNTR,2 F4450470
Reference
00073 1 00001 2 00071 2036 TXI ZSTO,2,1 F4450490

␣␣ZTAG = 15

Definition
00017 36 ZTAG SYN 15 BLOCK LENGTH OF TAGLIST H F4400360

References (3)

00052	0 00017 0 00000	2139	LZTAG		0,0,ZTAG	F4460270
00352	−2 00017 4 00362	2354	TSTTG	TNX	TXINS,4,ZTAG TEST FOR END OF BLOCK	F4462420
00356	−2 00017 4 00354	2358		TNX	TGCPY,4,ZTAG	F4462460

␣␣ZTRA = 700

Definition
01274 35 ZTRA SYN 700 BLOCK LENGTH OF TRA TA8LE F4400350

References (8)

	04524	80	SET..M	SYN	TRA..M−ZTRA−4	F4400800
00045	0 00000 0 01300	135	LZTR4=		ZTRA+4	F4410260
00045	0 01274 0 00000	896	LZTRA		0,0,ZTRA	F4420220
00140	−2 01274 4 00143	960		TNX	FNDAS,4,ZTRA IS BLOCK OF TRA TABLE FULL	F4420860
00367	−2 01274 4 00372	1119		TNX	8ATSX,4,ZTRA IS BLOCK OF TRA TABLE FULL	F4422450
00500	−2 01274 4 00503	1193	STPCD	TNX	13TXIM,4,ZTRA HAS THIS BLOCK OF TRA BEEN FILLED	F4423190
00044	0 00000 0 01274	1608	LAZTR		ZTRA	F4430210
00046	0 01274 0 00000	1610	LZTRAN		0,0,ZTRA	F4430230

␣11ACL = 202

Definition
00312 0 36100 2 01062 1792 11ACL ACL FRET,2 COMPUTE CHECKSUM F4432050
Reference
00313 2 00001 2 00312 1793 TIX 11ACL,2,1 F4432060

␣11CAL = 291

Definition
00443 −0 50000 0 00474 1163 11CAL CAL PBYCDM PUT PROBABILITY CODE IN BB TABLE F4422690

␣11CLA = 210

Definition
00322 0 50000 0 00056 1800 11CLA CLA ERAS2N COMPARE CHECKSUMS F4432130
Reference
00316 3 00000 4 00322 1796 TXH 11CLA,4,0 TEST FOR FRET EMPTY F4432090

␣11CPY = 198

Definition
00306 0 70000 1 01062 1788 11CPY CPY FRET,1 COPY BLOCK F4432010
Reference
00307 2 00001 1 00306 1789 TIX 11CPY,1,1 F4432020

␣11LXD = 289

Definition
00441 −0 53400 4 00114 1161 11LXD LXD TBOX,4 F4422870

␣11PXD = 192

Definition
00300 0 50000 0 00032 1782 11PXD CLA MINUS4 INITIALIZE ERROR BOX F4431950

References (2)

	00273	0 10000 0 00300	1775		TZE	11PXD END OF LIST-DO NEXT ROUTINE	F4431880
	00333	0 60100 0 00301	1809		STO	11PXD+1 IN MORE-THIS IS END OF TABLE	F4432220

␣11WRS = 194

Definition
00302 0 76200 0 00302 1784 11WRS RDS FRTDRM SELECT DRUM F4431970
Reference
00345 0 02000 0 00302 1819 TRA 11WRS TRY AGAIN F4432320

␣12CLA = 213

Definition
00325 0 50000 0 00050 1803 12CLA CLA FRETY SET DRUM ADDRESS FOR NEXT BLOCK F4432160

␣12TRA = 222

Definition
00336 0 02000 0 00346 1812 12TRA TRA FXTRA GO TO NEXT PART OF PROGRAM F4432250

References (3)

00331	−0 10000 0 00334	1807	TNZ	12TRA−2	F4432200
00400	0 62100 0 00336	1849	STA	12TRA BLOCK, SETTING ADDRESS FOR	F4432620
00412	0 62100 0 00336	1860	STA	12TRA ADDRESS AND GO TO READ	F4432730

␣13CLA = 313

Definition
00471 0 50000 1 03675 1186 13CLA CLA INSTM−6,1 ENTER ADDRESS OF ONE TRANSFER F4423120
Reference
00467 −2 00454 1 00471 1184 13TIX TNX 13CLA,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED F4423100

␣13SXD = 318

Definition
00476 −0 63400 4 00120 1191 13SXD SXD MBOX,4 NO,SAVE COUNT AND ENTER NEXT F4423170
Reference
00474 2 00001 4 00476 1189 PBYCDM TIX 13SXD,4,1 ENTERED F4423150

␣13TIX = 311

Definition
00467 −2 00454 1 00471 1184 13TIX TNX 13CLA,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED F4423100
Reference
00503 1 00004 1 00467 1196 13TXIM TXI 13TIX,1,4 SET INST. INDEX AND DO NEXT BRANCH F4423220

␣13TXH = 234

Definition
D 00352 3 00000 2 00062 1827 13TXH TXH RDSET,2 HAS END OF TABLE BEEN REACHED F4432400

References (4)

00351	0 62200 0 00352	1826		STD	13TXH STORE FOR COMPARISON	F4432390
00360	1 00001 2 00352	1833	13TXIN	TXI	13TXH,2,1 NO, GO TO NEXT BASIC BLOCK	F4432460
00376	1 00001 2 00352	1847		TXI	13TXH,2,1 ALSO END OF ENTRY-LOOK AT NEXT BB.	F4432600
00437	1 00001 2 00352	1881		TXI	13TXH,2,1 DO NEXT BASIC BLOCK.	F4432940

␣14CLA = 255

Definition
00377 0 50000 0 00053 1848 14CLA CLA TRBCK END OF BLOCK OF FRET--READ IN NEXT F4432610
Reference
00373 −0 10000 0 00377 1844 TNZ 14CLA F4432570

␣14LXD = 250

Definition
00372 0 50000 0 00057 1843 14LXD CLA ERAS3N TEST FOR END OF LAST BLOCK F4432560
Reference
00365 −2 00001 4 00372 1838 14TIX TNX 14LXD,4,1 SET FOR NEXT WORD F4432510

␣14TIX = 245

Definition
00365 −2 00001 4 00372 1838 14TIX TNX 14LXD,4,1 SET FOR NEXT WORD F4432510
Reference
00371 1 00002 1 00365 1842 TXI 14TIX,1,2 SET FOR NEXT ENTRY IN TRA F4432550

␣15ADD = 280

Definition
00430 0 40000 0 00056 1874 15ADD ADD ERAS2N ADD PROB. OF BRANCH FOR CUMULATING F4432870
Reference
00433 1 00002 1 00430 1877 TXI 15ADD,1,2 NO, DO NEXT BRANCH F4432900

␣15LXD = 284

Definition
00434 −0 53400 4 00055 1878 15LXD LXD ERAS1N,4 RESTORE INDEX F4432910
Reference
00432 −2 00001 4 00434 1876 TNX 15LXD,4,1 IS THIS BASIC BLOCK DONE F4432890

␣16ACL = 59

Definition
00073 0 36100 2 01063 1633 16ACL ACL SETTAB+1,2 COMPUTE CHECK SUM F4430460
Reference
00074 2 00001 2 00073 1634 TIX 16ACL,2,1 F4430470

␣16CAL = 371

Definition
00563 −0 50000 0 00474 1244 16CAL CAL PBYCDM NO ERROR F4423700

␣16CLA = 367

Definition
00557 0 50000 1 03672 1240 16CLA CLA INSTM−9,1 CHECK FOR TRA F4423660
Reference
00555 0 10000 0 00557 1238 TZE 16CLA BEEN AN ERROR F4423640

␣16CPY = 55

Definition
00067 0 70000 1 01063 1629 16CPY CPY SETTAB+1,1 COPY TABLE F4430420
Reference
00070 2 00001 1 00067 1630 TIX 16CPY,1,1 F4430430

␣16WRS = 52

Definition
00064 0 76200 0 00303 1626 16WRS RDS SETDRM F4430390
Reference
00106 0 02000 0 00064 1644 TRA 16WRS TRY AGAIN F4430570

␣17ERR = 65

Definition
00101 0 50000 0 00030 1639 17ERR CLA ERRBX F4430520

␣1ALXD = 190

Definition
00276 −0 63400 1 00363 2309 1ALXD SXD LZINS,1 STORE LENGTH OF RECORD TO COMPARE F4461970

␣2FNDS = 101

Definition
00145 0 50000 1 03703 965 2FNDS CLA INSTM,1 IF THERE IS NO LOCATI0N SYMBOL, F4420910
Reference
00143 −2 00454 1 00145 963 FNDAS TNX 2FNDS,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED F4420890

␣2WYTR = 123

Definition
00173 0 50000 1 06022 227 2WYTR CLA INSTA−2,1 IS A CONDITONAL TRANSFER, PUT ITS F4411180

References (2)

	00246	−0 10000 0 00173	270		TNZ	2WYTR A TRA, IF NOT, TREAT IT AS A	F4411610
	00252	−0 10000 0 00173	274		TNZ	2WYTR	F4411650

␣4TXII = 174

Definition
00256 1 00004 1 00224 1039 4TXII TXI TR3S,1,4 SINCE THIS INSTRUCTION IS A CLA AND F4421650
Reference
00255 1 00001 4 00256 1038 TXI 4TXII,4,1 SET INDEX FOR NEXT ENTRY IN TABLE F4421640

␣7AACL = 142

Definition
00216 0 36100 1 07774 1726 7AACL ACL SETLOC,1 COMPUTE CHECK SUM F4431390
Reference
00217 2 00001 1 00216 1727 TIX 7AACL,1,1 F4431400

␣7ACPY = 146

Definition
00222 0 70000 2 07774 1730 7ACPY CPY SETLOC,2 COPY TABLE F4431430
Reference
00223 2 00001 2 00222 1731 TIX 7ACPY,2,1 F4431440

␣8ATRB = 253

Definition
00375 −0 63400 4 00116 1125 8ATRB SXD PBOX,4 SAVE TIFRD INDEX F4422510
Reference
00363 0 12000 0 00375 1115 TPL 8ATRB PLUS INDICATES NO MORE VALUES FOR N F4422410

␣8ATSX = 250

Definition
00372 0 07400 4 00653 1122 8ATSX TSX ENTRB,4 ENTER TRANSFER IN TRA TABLE F4422480
Reference
00367 −2 01274 4 00372 1119 TNX 8ATSX,4,ZTRA IS BLOCK OF TRA TABLE FULL F4422450

␣8ATZE = 235

Definition
00353 0 10000 0 00355 1107 8ATZE TZE 8TXI ENTRY FOUND F4422330

␣9CLAT = 261

Definition
00405 0 50000 2 06500 1133 9CLAT CLA DOLIST,2 COMPARE LOCATION IN DO LIST TO F4422590
Reference
00411 1 00002 2 00405 1137 TXI 9CLAT,2,2 NOT FOUND--TRY NEXT F4422630

␣ACBOX = 81

Definition
00121 0 00000 0 00000 940 ACBOX 0 F4420660

References (13)

00634	0 60100 0 00121	1290		STO	ACBOX SAVE AC	F4424160
00637	0 40200 0 00121	1293		SUB	ACBOX COMPARE TO N TO BE FOUND	F4424190
00644	0 50000 0 00121	1298	C1CLA	CLA	ACBOX STORE N IN N-LIST	F4424240
00667	0 60100 0 00121	1331	FNDBB	STO	ACBOX SAVE NUMBER BEING LOOKED FOR	F4424570
00677	0 50000 0 00121	1339		CLA	ACBOX	F4424650
00716	0 60100 0 00121	1357		STO	ACBOX SAVE ADDRESS BEING TESTED	F4424830
00720	0 50000 0 00121	1359	C4CLA	CLA	ACBOX PUT ADDRESS BEING TESTED INTO AC	F4424850
01033	0 60100 0 00121	1440		STO	ACBOX SAVE CONTENTS OF AC	F4425660
01061	0 50000 0 00121	1462		CLA	ACBOX	F4425880
03105	0 60200 0 00121	1515		SLW	ACBOX	F4426410
03106	0 50000 0 00121	1516		CLA	ACBOX	F4426420
03150	0 60100 0 00121	1553		STO	ACBOX SAVE CONTENTS OF THE AC	F4426790
03207	0 50000 0 00121	1584		CLA	ACBOX RESTORE CONTENTS OF AC	F4427100

␣ADRMK = 47

Definition
00057 +000000077777 906 ADRMK OCT 77777 F4420320

References (2)

	00753	−0 32000 0 00057	1386		ANA	ADRMK	F4425120
	01103	0 53400 2 00057	1482		LXA	ADRMK,2	F4426080

␣ALDNE = 468

Definition
00724 0 76600 0 00333 592 ALDNE IOD F4414830
Reference
00663 −2 00001 2 00724 559 TNX ALDNE,2,1 IS TABLE ALL COPIED F4414500

␣ASNCS = 153

Definition
00231 −0 63400 4 00116 1018 ASNCS SXD PBOX,4 SAVE INDEX FOR TIFRD F4421440
Reference
00157 0 10000 0 00231 976 TZE ASNCS F4421020

␣BBBOX = 33

Definition
00041 0 00000 0 00000 2005 BBBOX F4450180

References (4)

00110	0 62200 0 00041	2049		STD	BBBOX STORE NO. OF THIS BB.	F4450620
00126	−0 53400 1 00041	2063	ENDBBQ	LXD	BBBOX,1 THIS IS END 0F BB IN DO WITHOUT IF	F4450760
00146	−0 53400 1 00041	2079	6LXD	LXD	BBBOX,1	F4450920
00151	0 62200 0 00041	2082		STD	BBBOX DOES THIS BB START A DO	F4450950

␣BBLYN = 41

Definition
00051 0 00000 0 02260 1613 BBLYN BBLADD F4430260
Reference
00120 0 46000 0 00051 1656 LDA BBLYN F4430690

␣BBLYR = 51

Definition
00063 0 00000 0 02260 2149 BBLYR BBLADD F4460370
Reference
00237 0 46000 0 00063 2276 LDA BBLYR F4461640

␣BEGBB = 88

Definition

		947				F4420730
		948			THIS ROUTINE COMPLETES THE ANALYSIS OF THE COMPILED	F4420740
		949			INSTRUCTIONS USING THE BASIC BLOCK LIST, THE DO LIST, AND	F4420750
		950			TIFRD. IT COMPILES THE TABLES OF SETS AND TRANSFERS USED IN	F4420760
		951			THE SIMULATION PROGRAM.	F4420770
00130	1 00001 2 00131	952	BEGBB	TXI	BEGBB+1,2,1 SET FOR NEXT BASIC BLOCK	F4420780

References (12)

00130	1 00001 2 00131	952	BEGBB	TXI	BEGBB+1,2,1 SET FOR NEXT BASIC BLOCK	F4420780
00323	1 00004 1 00130	1083		TXI	BEGBB,1,4 LOOK AT NEXT INSTR--BEG OF A BB.	F4422090
00333	1 00004 1 00130	1091		TXI	BEGBB,1,4 LOOK AT NEXT INST.--NEW B.B.	F4422170
00376	1 00004 1 00130	1126		TXI	BEGBB,1,4 SET FOR NEXT INSTR AND NEXT BB.	F4422520
00423	1 00004 1 00130	1147		TXI	BEGBB,1,4 DO NEXT INSTR.--NEXT BASIC BLOCK	F4422730
00450	1 00010 1 00130	1168		TXI	BEGBB,1,8 DO NEXT INSTRUCTION	F4422940
00475	1 00010 1 00130	1190	13ON	TXI	BEGBB,1,8 YES, GO TO NEXT BB--NEXT INST.	F4423160
00527	1 00014 1 00130	1216	MSECD	TXI	BEGBB,1,12 DO NEXT BB.	F4423420
00551	1 00014 1 00130	1234	LD12M	TXI	BEGBB,1,12 DO NEXT BB	F4423600
00600	1 00014 1 00130	1257		TXI	BEGBB,1,12 DO NEXT BB.	F4423830
00612	1 00010 1 00130	1267	LD8	TXI	BEGBB,1,8 DO NEXT BASIC BLOCK	F4423930
01104	0 02000 0 00130	1483	TRAQ	TRA	BEGBB	F4426090

␣BEGDO = 78

Definition
00116 1 00001 4 00117 2055 BEGDO TXI CLANO−1,4,1 YES, INCREASE L BOX BY 1 F4450680
Reference
00153 0 10000 0 00116 2084 TZE BEGDO F4450970

␣BGINS = 892

Definition
01574 102 BGINS SYN INSTA−NOINS END OF INST. BLOCK (PART 1) F4401020
Reference
00315 0 50000 1 01574 312 RCLA CLA BGINS,1 MOVE EXTRA INSTRUCTIONS F4412030

␣BGTXI = 205

Definition
00315 1 00001 2 00316 2324 BGTXI TXI BGTXI+1,2,1 F4462120
Reference
00315 1 00001 2 00316 2324 BGTXI TXI BGTXI+1,2,1 F4462120

␣BLKNO = 60

Definition
00074 0 00114 0 00000 2158 BLKNO 0,0,76 F4460460

References (2)

	00426	−0 60000 0 00074	2398		STQ	BLKNO	F4462860
	00464	0 40000 0 00074	2428		ADD	BLKNO TESTING END OF BLOCK--THE VALUE	F4463160

␣BT2MK = 30

Definition
00036 +100000000000 1898 BT2MK OCT 100000000000 F4440150

References (6)

00067	0 40200 0 00036	1927	SUB	BT2MK	F4440440
00071	0 40200 0 00036	1929	SUB	BT2MK	F4440460
00073	0 40200 0 00036	1931	SUB	BT2MK	F4440480
00075	0 40200 0 00036	1933	SUB	BT2MK	F4440500
00077	0 40200 0 00036	1935	SUB	BT2MK	F4440520
00101	0 40200 0 00036	1937	SUB	BT2MK	F4440540

␣C1CLA = 420

Definition
00644 0 50000 0 00121 1298 C1CLA CLA ACBOX STORE N IN N-LIST F4424240
Reference
00642 −2 00031 4 00644 1296 ENTRN TNX C1CLA,4,ZNLIST TEST FOR OVERFLOW OF N-LIST F4424220

␣C2SXD = 432

Definition
00660 −0 63400 4 00114 1316 C2SXD SXD TBOX,4 F4424420
Reference
00657 1 00002 4 00660 1315 TXI C2SXD,4,2 SET FOR NEXT ENTRY IN TRA TABLE F4424410

␣C3ARS = 444

Definition
00674 0 77100 0 00001 1336 C3ARS ARS 1 F4424620
Reference
00706 0 04000 0 00674 1346 TLQ C3ARS F4424720

␣C3CLA = 453

Definition
00705 0 50000 0 00704 1345 C3CLA CLA C3TIX F4424710

References (3)

	00055	2 00000 4 00705	904	CNST2M	TIX	C3CLA,4,0 TO TEXT FOR END OF LOOKUP	F4420300
D	00702	1 00000 4 00705	1342	C3TXI	TXI	C3CLA,4	F4424680
	00704	2 00000 4 00705	1344	C3TIX	TIX	C3CLA,4,XXXXXX	F4424700

␣C3FND = 456

Definition
00710 −0 75400 4 00000 1348 C3FND PXD 0,4 F4424740
Reference
00703 0 02000 0 00710 1343 TRA C3FND F4424690

␣C3TIX = 452

Definition
00704 2 00000 4 00705 1344 C3TIX TIX C3CLA,4,XXXXXX F4424700

References (3)

	00676	0 62200 0 00704	1338		STD	C3TIX	F4424640
D	00700	3 00000 4 00704	1340	PLACEM	TXH	C3TIX,4	F4424660
	00705	0 50000 0 00704	1345	C3CLA	CLA	C3TIX	F4424710

␣C3TXI = 450

Definition
D 00702 1 00000 4 00705 1342 C3TXI TXI C3CLA,4 F4424680
Reference
00675 0 62200 0 00702 1337 STD C3TXI F4424630

␣C4CAS = 466

Definition
00722 0 34000 4 06477 1361 C4CAS CAS DOLIST−1,4 COMPARE TO DO LIST F4424870
Reference
00723 1 00002 4 00722 1362 TXI C4CAS,4,2 ENTRY SMALLER,OR EQUAL BUT W. NO IF F4424880

␣C4CLA = 464

Definition
00720 0 50000 0 00121 1359 C4CLA CLA ACBOX PUT ADDRESS BEING TESTED INTO AC F4424850

References (3)

00740	1 00002 4 00720	1375	TXI	C4CLA,4,2 TR. AT END OF DO--NO SET	F4425010
00741	1 00002 4 00720	1376	TXI	C4CLA,4,2 TR. IN RANGE OF DO--NO SET	F4425020
00762	1 00002 4 00720	1393	TXI	C4CLA,4,2 SET DO LIST INDEX, CONTINUE TEST	F4425190

␣C4ENT = 482

Definition
00742 0 50000 4 06500 1377 C4ENT CLA DOLIST,4 ENTER SET FOR DO. F4425030

References (2)

	00734	−0 12000 0 00742	1371		TMI	C4ENT TR BEFORE BEG OF DO,MAKE SET ENTRY	F4424970
	00737	0 02000 0 00742	1374		TRA	C4ENT TR. AFTER DO, ENTER SET	F4425000

␣C4STD = 485

Definition
00745 0 60100 1 04524 1380 C4STD STO SETM,1 STORE BB NO. IN SET TABLE F4425060
Reference
00743 −2 00310 1 00745 1378 TNX C4STD,1,ZSET IS BLOCK OF SET TABLE FULL F4425040

␣C5STD = 496

Definition
00760 0 60100 0 02413 1391 C5STD STO FIXDOS−1 STORE SET ADDRESS IN FIX DO LIST F4425170

References (4)

00614	0 50200 0 00760	1269	CLS	C5STD GET ADDRESS IN FXDO LIST	F44.3950
00750	0 50000 0 00760	1383	CLA	C5STD MODIFY ADDRESS IN FIX DO LIST FOR	F4425090
00752	0 62100 0 00760	1385	STA	C5STD	F4425110
00755	−0 12000 0 00757	1388	TMI	C5STD−1 NO CONTINUE TESTING	F4425140

␣C5TXI = 497

Definition
00761 1 00001 1 00762 1392 C5TXI TXI C5TXI+1,1,1 SET FOR NEXT ENTRY IN SET LIST F4425180
Reference
00761 1 00001 1 00762 1392 C5TXI TXI C5TXI+1,1,1 SET FOR NEXT ENTRY IN SET LIST F4425180

␣CASP4 = 573

Definition
01075 −0 75400 2 00000 707 CASP4 PXD 0,2 PUT BB NO INTO DOLIST IN PLACE OF F4415980

␣CHECK = 318

Definition
00476 0 76600 0 00333 432 CHECK IOD TEST FOR TAPE ERROR F4413230
Reference
00455 1 77777 1 00476 415 TXI CHECK,1,−1 END OF RECORD - GIVE RTT, SET INDEX F4413060

␣CLABB = 97

Definition
00141 0 50000 2 02412 2202 CLABB CLA BBTABL−1,2 GET ADDRESS IN TRA TABLE F4460900
Reference
D 00151 −3 00000 2 00141 2210 NBOXR TXL CLABB,2 TEST FOR LAST BB F4460980

␣CLADO = 529

Definition
01021 0 50000 1 06500 657 CLADO CLA DOLIST,1 TAKE LAST ENTRY NOT ALREADY SORTED F4415480
Reference
01053 3 00002 1 01021 685 TXH CLADO,1,2 ENTRY OF THOSE NOT YET SORTED. F4415760

␣CLADT = 655

Definition
01217 0 50000 1 04221 796 CLADT CLA DOTAG+3,1 LOOK FOR INDICAT1ON OF AN IF F4416870

␣CLAER = 389

Definition

		508				F4413990
		509			THIS ROUTINE WRITES TIFRD ON DRUM 1 IN BLOCKS OF 200 WORDS.	F4414000
00605	0 50000 0 00106	510	CLAER	CLA	ERAS2= HOW MANY WORDS ARE LEFT TO COPY	F4414010

References (2)

	00571	0 02000 0 00605	496		TRA	CLAER YES, STORE TIFRD ON DRUM	F4413870
	00636	0 02000 0 00605	535		TRA	CLAER DO NEXT BLOCK	F4414260

␣CLAFN = 246

Definition
00366 0 50000 4 01062 1839 CLAFN CLA FRET,4 GET PROBABILITY FROM FRET F4432520
Reference
00053 0 02000 0 00366 1615 TRBCK TRA CLAFN F4430280

␣CLAFT = 450

Definition
00702 0 50000 4 06023 574 CLAFT CLA FRET.=,4 PUT NEW FORMULA INTO FRET IN PLACE F4414650

References (3)

00701	1 00002 1 00702	573	TXI	CLAFT,1,2 INDEX POSITION IN DVFQ TABLE	F4414640
00707	0 62100 0 00704	579	STA	CLAFT+2 RESTORE ADDRESS	F4414700
00713	0 62100 0 00704	583	STA	CLAFT+2 RESTORE ADDRESS	F4414740

␣CLANN = 413

Definition
00635 0 50000 4 01114 1291 CLANN CLA NLIST,4 LOOK AT ENTRY IN N-LIST F4424170
Reference
00641 1 00001 4 00635 1295 TXI CLANN,4,1 NOT FOUND YET, TRY NEXT ENTRY F4424210

␣CLANO = 80

Definition
00120 0 50000 2 01122 2057 CLANO CLA DOBLOK+2,2 GET NO. OF TIMES IN THIS DO F4450700

References (2)

	00116	1 00001 4 00117	2055	BEGDO	TXI	CLANO−1,4,1 YES, INCREASE L BOX BY 1	F4450680
	00117	1 00002 2 00120	2056		TXI	CLANO,2,2 SET FOR NEXT ENTRY IN TNX LIST	F4450690

␣CLANS = 186

Definition
00272 0 50000 4 01114 1774 CLANS CLA NLIST,4 F4431870
Reference
00275 1 00001 4 00272 1777 TXI CLANS,4,1 SET FOR NEXT WORD IN LIST F4431900

␣CLANT = 73

Definition
00111 0 50000 2 07772 1945 CLANT CLA TRATBL−1,2 LOOK AT ENTRY IN TRAT F4440620
Reference
D 00116 −3 00000 2 00111 1950 TXLN TXL CLANT,2 TEST FOR N NOT SET F4440670

␣CLATF = 371

Definition
00563 0 50000 1 06024 490 CLATF CLA TIFRD,1 LOOK FOR A GO TO N ENTRY IN TIFRD F4413810
Reference
D 00570 −2 00000 1 00563 495 ABOX TNX CLATF,1 IS THIS END OF TIFRD F4413860

␣CLATR = 382

Definition
00576 0 50000 2 04303 501 CLATR CLA TRAD.=+251,2 STORE WORD FROM TRAD INTO TIFRD F4413920
Reference
D 00603 3 00000 2 00576 506 TXH TXH CLATR,2 CHECK FOR LAST WORD FOR THIS GO TO F4413970

␣CLRNS = 184

Definition

		1770				F4431830
		1771			THIS CLEARS THE LOCATION IN THE N-LIST	F4431840
00270	0 56000 0 00033	1772	CLRNS	LDQ	ZERO	F4431850

Reference
00247 −0 12000 0 00270 1753 TMI CLRNS MINUS MEANS ALL D0NE, CLEAR N LIST F4431660

␣CMBNE = 370

Definition

		487				F4413780
		488			THIS COMBINES TIFGO AND TRAD INTO TIFRD	F4413790
00562	0 53400 1 00031	489	CMBNE	LXA	LA1,1 COMBINE TRAD WITH TIFGO	F4413800

␣CNDTR = 278

Definition
00426 0 50000 1 03701 1150 CNDTR CLA INSTM−2,1 THE OP CODE IS A CONDITIONAL TRA F4422760
Reference
00275 0 10000 0 00426 1060 TZE CNDTR IS A CONDITIONAL TRANSFER F4421860

␣CODMK = 29

Definition
00035 −300000000000 2001 CODMK OCT −300000000000 F4450140
Reference
00131 −0 32000 0 00035 2066 ANA CODMK LOOK AT ENDING CODE F4450790

␣COMPR = 544

Definition
01040 0 60100 0 00105 674 COMPR STO ERAS1= ADDRESSES EQUAL,COMPARE LOCATIONS F4415650
Reference
01026 0 02000 0 01040 664 TRA COMPR ADDRESSES ARE EQUAL, COMPARE LOCATN F4415550

␣CONTN = 475

Definition
00733 −0 63400 1 01274 599 CONTN SXD DVFTST,1 SAVE LENGTH OF DVFQ TABLE F4414900
Reference
00732 1 77777 4 00733 598 TXI CONTN,4,−1 F4414890

␣CPY1A = 365

Definition

		2492			ONE OF THE FOLLOWING INSTRUCTIONS IS ALWAYS REPLACED BY	F4463800
		2493			TRANSFER TO SECOND DRUM.	F4463810
00555	0 70000 1 02413	2494	CPY1A	CPY	BBTABL,1	F4463820

References (5)

00462	0 60100 4 00555	2426		STO	CPY1A,4	F4463140
00521	0 56000 4 00555	2461		LDQ	CPY1A,4 REPLACE PROPER INSTRUCTION WITH A	F4463490
00523	0 60100 4 00555	2465		STO	CPY1A,4 STORE A TRA NDDR	F4463530
00551	−3 00000 1 00555	2488	TXL2	TXL	CPY1A,1,XXXXXX	F4463760
00574	0 02000 0 00555	2509		TRA	CPY1A	F4463970

␣CPY1B = 385

Definition
00601 0 70000 1 02413 2514 CPY1B CPY BBTABL,1 F4464020
Reference
00570 −3 00000 1 00601 2505 TXL3 TXL CPY1B,1,XXXXXX F4463930

␣CPY1D = 618

Definition
01152 0 70000 1 04216 757 CPY1D CPY DOTAG,1 COPY RECORD SAVING ONLY THOSE F4416480
Reference
01166 1 77774 1 01152 769 TXI CPY1D,1,−4 SET FOR NEXT ENTRY F4416600

␣CPY1R = 346

Definition
00532 0 70000 1 02413 2473 CPY1R CPY BBTABL,1 WRITE SIX WORDS OF ENTRY F4463610

References (2)

D	00545	−3 00000 1 00532	2484	TXLBBT	TXL	CPY1R,1	F4463720
	00577	0 02000 4 00532	2512		TRA	CPY1R,4	F4464000

␣CPY2A = 367

Definition
00557 0 70000 1 06314 2496 CPY2A CPY BBTAGS,1 F4463840

␣CPY2D = 622

Definition
01156 0 70000 0 00105 761 CPY2D CPY ERAS1= F4416520
Reference
01153 0 02000 0 01156 758 TRA CPY2D PARTS TO BE USED F4416490

␣CPY3A = 369

Definition
00561 0 70000 0 00033 2498 CPY3A CPY LOR F4463860

␣CPY4A = 371

Definition
00563 0 70000 0 00033 2500 CPY4A CPY LOR F4463880

␣CPY5A = 373

Definition
00565 0 70000 0 00033 2502 CPY5A CPY LOR F4463900
Reference
00564 1 00001 1 00565 2501 TXI CPY5A,1,1 F4463890

␣CPY6A = 375

Definition
00567 0 70000 0 00033 2504 CPY6A CPY LOR F4463920

␣CPY6C = 360

Definition
00550 0 70000 0 00033 2487 CPY6C CPY LOR F4463750
Reference
00543 −2 00006 2 00550 2482 TNX CPY6C,2,6 TEST FOR NEARING END OF DRUM F4463700

␣CPY7A = 377

Definition
00571 0 70000 0 00067 2506 CPY7A CPY ERAS1R F4463940

␣CPYFT = 510

Definition
00776 0 70000 1 04053 636 CPYFT CPY FRETN=,1 COPY BLOCK F4415270

References (2)

	00765	0 62100 0 00776	627		STA	CPYFT	F4415180
	00777	2 00001 1 00776	637		TIX	CPYFT,1,1	F4415280

␣CPYTF = 298

Definition
00452 0 70000 1 06024 412 CPYTF CPY TIFRD,1 COPY WORD 0F TIFGO F4413030

References (3)

00457	−0 12000 0 00451	417		TMI	CPYTF−1 -,MEANS AN IF, GIVE 2ND COPY,IGNORE	F4413080
00465	−0 10000 0 00452	423		TNZ	CPYTF NO, LOOK AT NEXT ENTRY, DONT SAVE	F4413140
00466	1 00002 1 00452	424	ASSN	TXI	CPYTF,1,2 AN ASSIGN,KEEP ENTRY IN TIFRD	F4413150

␣CRTCD = 60

Definition
00074 +300000000000 919 CRTCD OCT 300000000000 F4420450

References (2)

	00321	−0 50000 0 00074	1081	6CLA	CAL	CRTCD PUT CERTAINTY CODE IN BB TABLE	F4422070
	00331	−0 50000 0 00074	1089		CAL	CRTCD STORE CERTAINTY CODE IN BB TABLE	F4422150

␣CRTCS = 208

Definition
00320 0 07400 4 00663 1079 CRTCS TSX ENTB2,4 NOT A CONDITIONAL TRANSFER--IT IS F4422050

References (2)

	00172	0 10000 0 00320	987		TZE	CRTCS YES, IS A CERTAINTY CASE	F4421130
	00227	0 10000 0 00320	1016		TZE	CRTCS END OF BB MUST BE A CERTAINTY CASE	F4421420

␣D1BCK = 515

Definition
01003 0 76600 0 00333 1414 D1BCK WRS 219 TEST EOR TAPE ERROR E4425400
Reference
01000 −2 00001 2 01003 1411 TNX D1BCK,2,1 END OF RECORD--IS IT END OF 3RD REC F4425370

␣D1CLA = 504

Definition
00770 0 50000 4 03227 1403 D1CLA CLA NDINS,4 OF BLOCK FOR BEGINNING F4425290
Reference
00772 2 00001 4 00770 1405 TIX D1CLA,4,1 IS BLOCK SH1FTED F4425310

␣D1CPY = 509

Definition
00775 0 70000 4 03667 1408 D1CPY CPY INSTM−12,4 COPY BLOCK OF INSTRUCTIONS F4425340

References (2)

	00776	1 00001 4 00775	1409		TXI	D1CPY,4,1 SET FOR NEXT WORD	F4425350
	01002	0 02000 0 00775	1413		TRA	D1CPY	F4425390

␣D1RDS = 507

Definition
00773 0 76200 0 00224 1406 D1RDS RDS INSTTP SLLECT 1NSTRUCTION TAPE F4425320
Reference
01031 0 02000 0 00773 1436 TRA D1RDS TAPE BACKSPACED--TRY TO READ AGAIN F4425620

␣D2BST = 534

Definition
01026 0 76400 0 00224 1433 D2BST BST INSTTP BACKSPACE OVER RECOROS JUST REAO F4425590
Reference
01030 −2 00003 2 01026 1435 D2TIX TNX D2BST,2,3 F4425610

␣D2CPY = 1598

Definition
03076 0 70000 4 04213 1508 D2CPY CPY TIFRDM−1,4 READ IN BLOCK OF TIFRD F4426340
Reference
03077 2 00001 4 03076 1509 TIX D2CPY,4,1 TEST FOR END OF BLOCK F4426350

␣D2END = 519

Definition
01007 −0 75400 4 00000 1418 D2END PXD 0,4 REACHED END OF INSTRUCTIONS, F4425440
Reference
00777 0 02000 0 01007 1410 TRA D2END END OF FILE F4425360

␣D2TIX = 536

Definition
01030 −2 00003 2 01026 1435 D2TIX TNX D2BST,2,3 F4425610
Reference
01027 1 00001 2 01030 1434 TXI D2TIX,2,1 F4425600

␣D3ACL = 1603

Definition
03103 0 36100 2 04213 1513 D3ACL ACL TIFRDM−1,2 COMPUTE CHECKSUM F4426390
Reference
03104 2 00001 2 03103 1514 TIX D3ACL,2,1 F4426400

␣D4ACL = 1650

Definition
03162 0 36100 4 06024 1563 D4ACL ACL TRAM,4 COMPUTE CHECKSUM F4426890
Reference
03163 2 00001 4 03162 1564 TIX D4ACL,4,1 F4426900

␣D4CPY = 1654

Definition
03166 0 70000 4 06024 1567 D4CPY CPY TRAM,4 COPY BLOCK F4426930
Reference
03167 2 00001 4 03166 1568 TIX D4CPY,4,1 F4426940

␣D5CLA = 1658

Definition
03172 0 50000 4 04530 1571 D5CLA CLA NDTRA,4 SHIFT EXTRA ENTRIES FROM THE END F4426970
Reference
03174 2 00001 4 03172 1573 TIX D5CLA,4,1 F4426990

␣D5ST2 = 1664

Definition
03200 0 60100 4 06021 1577 D5ST2 STO TRAM−3,4 INITIALIZE TRA TABLE F4427030
Reference
03202 2 00002 4 03200 1579 TIX D5ST2,4,2 F4427050

␣D6ACL = 549

Definition
01045 0 36100 4 04524 1450 D6ACL ACL SETM,4 COMPUTE CHECK SUM F4425760
Reference
01046 2 00001 4 01045 1451 TIX D6ACL,4,1 F4425770

␣D6CPY = 554

Definition
01052 0 70000 4 04524 1455 D6CPY CPY SETM,4 COPY BLOCK F4425810
Reference
01053 2 00001 4 01052 1456 TIX D6CPY,4,1 F4425820

␣D7CLA = 540

Definition
01034 0 50000 0 00113 1441 D7CLA CLA SPBOX SET SP BOX FOR NEXT BLOCK F4425670

␣DDCAS = 674

Definition
01242 0 34000 4 04217 816 DDCAS CAS DOCARE+1,4 TO A TXL F4417070
Reference
01245 2 00001 4 01242 819 DDTIX TIX DDCAS,4,1 F4417100

␣DDTIX = 677

Definition
01245 2 00001 4 01242 819 DDTIX TIX DDCAS,4,1 F4417100
Reference
01243 0 02000 0 01245 817 TRA DDTIX F4417080

␣DOCSA = 152

Definition
00230 −0 53400 4 07775 256 DOCSA LXD DOBOX=,4 THIS IS THE END OF A DO F4411470
Reference
00202 0 02000 0 00230 234 TRA DOCSA TXL F4411250

␣DOCSM = 255

Definition
00377 0 50000 1 03701 1127 DOCSM CLA INSTM−2,1 THIS IS A DO CASE F4422530
Reference
00310 0 02000 0 00377 1071 TRA DOCSM TXL F4421970

␣DOEND = 454

Definition
00706 0 50000 0 00663 578 DOEND CLA ADD+2 THIS DO ENTRY IS END OF TABLE F4414690
Reference
00670 −2 00001 2 00706 564 TNX DOEND,2,1 TEST FOR END OF TABLE ON TAPE F4414550

␣DOLXD = 273

Definition
00421 −0 53400 2 00117 1145 DOLXD LXD BBOX,2 RESTORE INDEX FOR BB TABLE F4422710
Reference
00425 0 02000 0 00421 1149 TRA DOLXD STORE CODE IN B B TABLE F4422750

␣DOTAG = 2190

Definition
04216 77 DOTAG SYN DVFQ.=−301−600 F4400770

References (14)

	04216	78	DOCARE	SYN	DOTAG	F4400780
01152	0 70000 1 04216	757	CPY1D	CPY	DOTAG,1 COPY RECORD SAVING ONLY THOSE	F4416480
01161	0 70000 1 04217	764		CPY	DOTAG+1,1	F4416550
01162	0 70000 1 04220	765		CPY	DOTAG+2,1	F4416560
01163	0 70000 1 04221	766		CPY	DOTAG+3,1	F4416570
01217	0 50000 1 04221	796	CLADT	CLA	DOTAG+3,1 LOOK FOR INDICAT1ON OF AN IF	F4416870
01223	0 50000 1 04216	800		CLA	DOTAG,1	F4416910
01226	0 50000 1 04220	804		CLA	DOTAG+2,1 GET (N2-N1+N3) AND PUT IN MQ	F4416950
01232	0 22100 1 04217	808		DVP	DOTAG+1,1 NUMBER OF TIMES IN DO LOOP	F4416990
01241	0 50000 1 04222	815		CLA	DOTAG+4,1 DOES NEXT ENTRY IN DOTAG CORRESPOND	F4417060
01250	0 50000 1 04216	822		CLA	DOTAG,1 DOES THIS ENTRY HAVE A VARIABLE NO.	F4417130
01253	0 50000 1 04220	825		CLA	DOTAG+2,1 NO,GET N2-N1+N3	F4417160
01257	0 22100 1 04217	829		DVP	DOTAG+1,1 TIMES IN THIS DO	F4417200
01270	0 50000 1 04216	838		CLA	DOTAG,1 GET FORMULA NUMBER OF DO	F4417290

␣DOWIF = 90

Definition
00132 0 50000 2 07771 1962 DOWIF CLA TRATBL−2,2 THIS IS A DO WITH AN IF F4440790
Reference
00070 −0 12000 0 00132 1928 TMI DOWIF CODE IS 000, DO WITH IF F4440450

␣DTGBX = 654

Definition
01216 −3 77777 1 01310 795 DTGBX TXL CLTRA=,1,−1 IS DOTAG FINISHED--IF SO EXIT F4416860

References (4)

01171	−0 63400 1 01216	772	SXD	DTGBX,1 SAVE LENGTH OF TABLE SO FAR	F4416630
01201	−0 53400 1 01216	780	LXD	DTGBX,1 SET INDEX TO READ LAST RECORD AGAIN	F4416710
01206	0 50000 0 01216	787	CLA	DTGBX	F4416780
01215	1 77774 1 01216	794	TXI	DTGBX,1,−4 SET FOR NEXT ENTRY	F4416850

␣DWFCD = 271

Definition
00417 0 62200 4 06030 1143 DWFCD STD TRAM+4,4 F4422690
Reference
00420 −0 50000 0 00417 1144 CAL DWFCD GET CODE FOR DO WITH IF F4422700

␣EMPTY = 522

Definition
01012 0 76600 0 00302 648 EMPTY WRS FRTDRM F4415390
Reference
00653 −3 00000 2 01012 551 TXL EMPTY,2,0 F4414420

␣ENDBB = 202

Definition
00312 −0 53400 4 00036 1073 ENDBB LXD LD3,4 SET INDEX F4421990
Reference
00261 0 10000 0 00312 1048 TZE ENDBB YES,LOOK FOR TYPE OF ENDING F4421740

␣ENDDO = 109

Definition
00155 0 50000 1 07770 2086 ENDDO CLA TRATBL−3,1 THIS IS THE END 0F A DO WITHOUT IF F4450990
Reference
00132 0 10000 0 00155 2067 TZE ENDDO ZERO INDICATES DO ENDING F4450800

␣ENDRC = 188

Definition
00274 −0 76000 0 00012 2307 ENDRC RTT F4461950

␣ENTB2 = 435

Definition

		1319				F4424450
		1320			THIS ROUTINE ENTERS IN THE TRANSFER TABLE AN0 TESTS A	F4424460
		1321			TRANSFER TO THE INSTRUCTION (AND BASIC BLOCK) IMMEDIATELY	F4424470
		1322			AFTER THE LOCATION OF THE TRANSFER	F4424480
00663	−0 63400 4 00123	1323	ENTB2	SXD	ENTBX,4 SAVE INDEX	F4424490

References (2)

	00320	0 07400 4 00663	1079	CRTCS	TSX	ENTB2,4 NOT A CONDITIONAL TRANSFER--IT IS	F4422050
	00401	0 07400 4 00663	1129		TSX	ENTB2,4 ENTER TRA TO NEXT INSTR	F4422550

␣ENTBX = 83

Definition
00123 0 00000 0 00000 942 ENTBX 0 F4420680

References (3)

00653	−0 63400 4 00123	1311	ENTRB	SXD	ENTBX,4 SAVE INDEX	F4424370
00661	−0 53400 4 00123	1317		LXD	ENTBX,4 G0 TO TSTAD WITH ADDRESS SET TO GO	F4424430
00663	−0 63400 4 00123	1323	ENTB2	SXD	ENTBX,4 SAVE INDEX	F4424490

␣ENTER = 706

Definition
01302 0 56000 4 06024 848 ENTER LDQ DVFQ.=+1,4 F4417390

References (2)

	01277	1 00002 4 01302	845		TXI	ENTER,4,2 EQUAL--SET INDEX FOR NEXT SEARCH	F4417360
	01301	0 02000 0 01303	847		TRA	ENTER+1	F4417380

␣ENTRB = 427

Definition

		1305				F4424310
		1306			THIS ROUTINE TAKES THE COMPILED INSTRUCTION NUMBER IN THE	F4424320
		1307			ACCUMULATOR, TRANSLATES IT TO A BASIC BLOCK NUMBER, ENTERS	F4424330
		1308			THE BASIC BLOCK NUMBER IN THE TRANSFER TABLE, TESTS FOR A	F4424340
		1309			TRANSFER TO THE BEGINNING OF A 0O WITH AN IF. IT RETURNS TO	F4424350
		1310			THE LOCATION FOLLOWING THE TSX TO IT.	F4424360
00653	−0 63400 4 00123	1311	ENTRB	SXD	ENTBX,4 SAVE INDEX	F4424370

References (14)

00330	0 07400 4 00653	1088		TSX	ENTRB,4 ENTER IN TRA TABLE	F4422140
00372	0 07400 4 00653	1122	8ATSX	TSX	ENTRB,4 ENTER TRANSFER IN TRA TABLE	F4422480
00400	0 07400 4 00653	1128		TSX	ENTRB,4 ENTER ADDRESS OF TRA BACK	F4422540
00435	0 07400 4 00653	1157		TSX	ENTRB,4	F4422830
00437	0 07400 4 00653	1159		TSX	ENTRB,4	F4422850
00472	0 07400 4 00653	1187		TSX	ENTRB,4 INTO TRA TABLE.	F4423130
00524	0 07400 4 00653	1213		TSX	ENTRB,4	F4423390
00526	0 07400 4 00653	1215		TSX	ENTRB,4	F4423410
00546	0 07400 4 00653	1231		TSX	ENTRB,4 =ON- ADDRESS	F4423570
00550	0 07400 4 00653	1233		TSX	ENTRB,4	F4423590
00573	0 07400 4 00653	1252		TSX	ENTRB,4 TRA TABLE	F4423780
00575	0 07400 4 00653	1254		TSX	ENTRB,4	F4423800
00577	0 07400 4 00653	1256		TSX	ENTRB,4	F4423820
00666	0 02000 0 00655	1326		TRA	ENTRB+2 ENTER AND TEST THIS ADDRESS	F4424520

␣ENTRN = 418

Definition
00642 −2 00031 4 00644 1296 ENTRN TNX C1CLA,4,ZNLIST TEST FOR OVERFLOW OF N-LIST F4424220
Reference
00636 0 10000 0 00642 1292 TZE ENTRN END OF LIST REACHED, N NOT FOUND F4424180

␣ERRBX = 24

Definition

		120			CONSTANTS AND VARIABLES (THE 1ST THREE REMAIN IN CORES	F4410110
		121			THROUGHOUT SECTION 4.)	F4410120
00030	+000000000000	122	ERRBX	DEC	0 COUNTER FOR READING ERRORS	F4410130

References (43)

00311	0 60100 0 00030	308		STO	ERRBX	F4411990
00330	0 60100 0 00030	323		STO	ERRBX	F4412140
00346	0 50000 0 00030	337	RDERR	CLA	ERRBX	F4412280
00352	0 60100 0 00030	341		STO	ERRBX	F4412320
00436	0 60100 0 00030	400		STO	ERRBX	F4412910
00515	0 50000 0 00030	447	ERRORA	CLA	ERRBX	F4413380
00521	0 60100 0 00030	451		STO	ERRBX	F4413420
00526	0 60100 0 00030	459		STO	ERRBX	F4413500
00551	0 50000 0 00030	478	ERR2TD	CLA	ERRBX	F4413690
00555	0 60100 0 00030	482		STO	ERRBX	F4413730
00644	0 60100 0 00030	544		STO	ERRBX	F4414350
00714	0 50000 0 00030	584	ERRORF	CLA	ERRBX	F4414750
00720	0 60100 0 00030	588		STO	ERRBX	F4414790
01103	0 60100 0 00030	715		STO	ERRBX	F4416060
01133	0 50000 0 00030	739		CLA	ERRBX	F4416300
01137	0 60100 0 00030	743		STO	ERRBX	F4416340
01147	0 60100 0 00030	754		STO	ERRBX	F4416450
01173	0 50000 0 00030	774	ERR2DT	CLA	ERRBX	F4416650
01177	0 60100 0 00030	778		STO	ERRBX	F4416690
00765	0 60100 0 00030	1400		STO	ERRBX	F4425260
01021	0 50000 0 00030	1428	INERR	CLA	ERRBX	F4425540
01025	0 60100 0 00030	1432		STO	ERRBX	F4425580
03067	0 60100 0 00030	1501		STO	ERRBX	F4426270
03141	0 50000 0 00030	1543	TFERR	CLA	ERRBX	F4426690
03145	0 60100 0 00030	1547		STO	ERRBX	F4426730
00063	0 60100 0 00030	1625		STO	ERRBX	F4430380
00101	0 50000 0 00030	1639	17ERR	CLA	ERRBX	F4430520
00105	0 60100 0 00030	1643		STO	ERRBX	F4430560
00140	0 60100 0 00030	1676		STO	ERRBX	F4430890
00156	0 50000 0 00030	1690	STERR	CLA	ERRBX	F4431030
00162	0 60100 0 00030	1694		STO	ERRBX	F4431070
00261	0 50000 0 00030	1763	TRERR	CLA	ERRBX	F4431760
00265	0 60100 0 00030	1767		STO	ERRBX	F4431800
00337	0 50000 0 00030	1813	FQERR	CLA	ERRBX	F4432260
00343	0 60100 0 00030	1817		STO	ERRBX	F4432300
00043	0 60100 0 00030	2009		STO	ERRBX	F4450220
00062	0 50000 0 00030	2024		CLA	ERRBX	F4450370
00066	0 60100 0 00030	2028		STO	ERRBX	F4450410
00254	0 50000 0 00030	2289		CLA	ERRBX	F4461770
00260	0 60100 0 00030	2293		STO	ERRBX	F4461810
00266	0 60100 0 00030	2301		STO	ERRBX	F4461890
00301	0 50000 0 00030	2312	ERRORR	CLA	ERRBX	F4462000
00305	0 60100 0 00030	2316		STO	ERRBX	F4462040

␣ERRFN = 457

Definition
00711 0 07400 4 00004 581 ERRFN TSX RDFORT,4 THE TAPE RECORD ENDS WITH A FORMULA F4414720

References (2)

	00665	−2 00001 2 00711	561	TNX	TNX	ERRFN,2,1 THIS IS FORM. NO,--SHOUL0NT END TAB	F4414520
	00704	−2 00001 2 00711	576		TNX	ERRFN,2,1 THIS SHOULD BE END ONLY IF WAS DOCS	F4414670

␣FINAL = 265

Definition
00411 0 50000 0 07774 2385 FINAL CLA BBOX.= F4462730
Reference
00404 0 12000 0 00411 2380 TPL TPL FINAL F4462680

␣FNDAS = 99

Definition
00143 −2 00454 1 00145 963 FNDAS TNX 2FNDS,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED F4420890

References (6)

00140	−2 01274 4 00143	960		TNX	FNDAS,4,ZTRA IS BLOCK OF TRA TABLE FULL	F4420860
00230	1 00004 1 00143	1017	TXFAS	TXI	FNDAS,1,4 NOT END OF BB, LOOK AT NEXT INSTR.	F4421430
00276	1 00004 1 00143	1061	LD4	TXI	FNDAS,1,4 NOT AN END OF BB, LOOK AT NEXT INST	F4421870
00306	1 00004 1 00143	1069	TRTIN	TXI	FNDAS,1,4 TSX IS OP CODE	F4421950
01011	0 62200 0 00143	1420		STD	FNDAS INTO MAIN ROUT1NE	F4425460
01013	0 60100 0 00144	1422		STO	FNDAS+1 ROUTINE.	F4425480

␣FNDBB = 439

Definition

		1327				F4424530
		1328			THIS ROUTINE CHANGES COMPILED INSTRUCTION NOS. (IN THE AC)	F4424540
		1329			TO BASIC BLOCK NUMBERSIIN DECREMENT OF THE ACCUMULATOR) BY	F4424550
		1330			OPTIMAL TABLE LOOKUP	F4424560
00667	0 60100 0 00121	1331	FNDBB	STO	ACBOX SAVE NUMBER BEING LOOKED FOR	F4424570

References (2)

	00251	0 07400 4 00667	1034		TSX	FNDBB,4 CHANGE VALUE FOR N TO BASIC BLOCK	F4421600
	00654	0 07400 4 00667	1312		TSX	FNDBB,4 CHANGE INSTRUCTION NUMBER TO BB NO.	F4424380

␣FQERR = 223

Definition
00337 0 50000 0 00030 1813 FQERR CLA ERRBX F4432260
Reference
00324 −0 10000 0 00337 1802 TNZ FQERR IF NOT ZERO--HAS BEEN AN ERROR F4432150

␣FRETY = 40

Definition
00050 0 00000 0 01750 1612 FRETY FRTADD F4430250

References (3)

00303	0 46000 0 00050	1785		LDA	FRETY LOCATE DRUM ADDRESS	F4431980
00325	0 50000 0 00050	1803	12CLA	CLA	FRETY SET DRUM ADDRESS FOR NEXT BLOCK	F4432160
00327	0 60100 0 00050	1805		STO	FRETY	F4432180

␣FSTLT = 55

Definition
00067 −370000000000 914 FSTLT OCT −370000000000 F4420400
Reference
00271 −0 32000 0 00067 1056 6ANA ANA FSTLT TRANSFER F4421820

␣FXDOS = 56

Definition

			2030				F4450430
			2031			THIS ROUTINE FIXES THE COUNTERS FOR BASIC BLOCKS IN DOS	F4450440
			2032			WITHOUT IFS	F4450450
T	00070	−0 75400 0 00000	2033	FXDOS	PXD		F4450460

Reference
00061 0 10000 0 00070 2023 TZE FXDOS F4450360

␣FXSET = 129

Definition

		1709				F4431220
		1710			THIS ROUTINE FIXES THE SETS FOR TRANSFERS TO DOS WITH IFS	F4431230
00201	0 53400 1 00033	1711	FXSET	LXA	ZERO,1 SET INDEX FOR FIX DO LIST	F4431240

References (2)

	00054	0 00000 0 00201	1616	LFXST		FXSET	F4430290
	00166	−0 12000 0 00201	1698		TMI	FXSET NO OTHER-	F4431110

␣FXTRA = 230

Definition

		1820				F4432330
		1821			THIS ROUTINE PUTS THE CUMULATIVE PROBABILITIES INTO THE TRA	F4432340
		1822			TABLE FROM THE FREQUENCY TABLE	F4432350
00346	−0 53400 2 00033	1823	FXTRA	LXD	ZERO,2 SET INDEX REGISTERS	F4432360

References (2)

	00321	0 02000 0 00346	1799		TRA	FXTRA GO TO MAKE UP PROBABILITIES	F4432120
	00336	0 02000 0 00346	1812	12TRA	TRA	FXTRA GO TO NEXT PART OF PROGRAM	F4432250

␣GOTN2 = 378

Definition
00572 0 50000 1 06023 497 GOTN2 CLA TIFRD−1,1 GO TO N, PUT IN ENTRIES FROM TRAD F4413880
Reference
00566 0 10000 0 00572 493 TZE GOTN2 F4413840

␣GTNCD = 59

Definition
00073 −100000000000 918 GTNCD OCT −100000000000 F4420440
Reference
00334 −0 50000 0 00073 1092 GOTONM CAL GTNCD IS A GO TO N F4422180

␣HPRCS = 385

Definition
00601 −0 50000 1 03676 1258 HPRCS CAL INSTM−5,1 TEST FOR PAUSE(INNOCUOUS) OR A STOP F4423840
Reference
00305 0 02000 0 00601 1068 TRA HPRCS HPR F4421940

␣IF2CS = 350

Definition
00536 −0 50000 0 00474 1223 IF2CS CAL PBYCDM THIS IS A TWO-WAY TEST INSTRUCTION F4423490

References (2)

	00301	0 02000 0 00536	1064		TRA	IF2CS DCT	F4421900
	00302	0 02000 0 00536	1065		TRA	IF2CS RTT	F4421910

␣IF2PS = 324

Definition
00504 0 50000 1 03700 1197 IF2PS CLA INSTM−3,1 THIS IS A PSE, LOOK AT ADDRESS TO F4423230

References (2)

	00173	0 02000 0 00504	988		TRA	IF2PS NO, IS A PSE CASE.	F4421140
	00300	0 02000 0 00504	1063		TRA	IF2PS PSE	F4421690

␣IFMSK = 50

Definition
00062 +000000700000 909 IFMSK OCT 700000 F4420350

References (3)

00413	−0 32000 0 00062	1139	ANA	IFMSK SEE IF DO HAS AN IF	F4422650
00721	−0 50100 0 00062	1360	ORA	IFMSK WITH AN IF MARK	F4424860
00732	−0 50100 0 00062	1369	ORA	IFMSK OF THIS DO	F4424950

␣IFTSX = 366

Definition
00556 0 07400 4 00004 1239 IFTSX TSX RDFORT,4 ERROR F4423650
Reference
00562 −0 10000 0 00556 1243 TNZ IFTSX ERROR F4423690

␣IINBX = 57

Definition
00071 0 00000 0 00001 2155 IINBX 1 F4460430

References (3)

00460	0 53400 4 00071	2424	LXA	IINBX,4 RESTORE INSTRUCTION REPLACED FOR	F4463120
00517	0 62100 0 00071	2459	STA	IINBX SAVE ADDRESS 0F THIS ONE	F4463470
00520	0 53400 4 00071	2460	LXA	IINBX,4	F4463480

␣INERR = 529

Definition
01021 0 50000 0 00030 1428 INERR CLA ERRBX F4425540
Reference
01005 0 02000 0 01021 1416 TRA INERR ERROR F4425420

␣INSTA = 3092

Definition
06024 96 INSTA SYN INST.A F4400960

References (7)

	01574	102	BGINS	SYN	INSTA−NOINS END OF INST. BLOCK (PART 1)	F4401020
00173	0 50000 1 06022	227	2WYTR	CLA	INSTA−2,1 IS A CONDITONAL TRANSFER, PUT ITS	F4411180
00204	0 50000 1 06021	236	TRACSA	CLA	INSTA−3,1 IS INSTRUCTION TAGGED	F4411270
00262	0 50000 1 06021	282	PSECS	CLA	INSTA−3,1 INSTRUCTION IS A PSE	F4411730
00266	0 50000 1 06017	286	TSTCS	CLA	INSTA−5,1 THIS IS A TEST INSTRUCTION	F4411770
00303	0 50000 1 06014	299	SLOC	CLA	INSTA−8,1 STORE LOCATION OF 2ND INSTRUCTION	F4411900
00321	0 70000 1 06010	316	RCPY	CPY	INSTA−12,1 READ IN BLOCK OF INSTRUCTIONS	F4412070

␣INSTM = 1987

Definition
03703 97 INSTM SYN INST.M F4400970

References (17)

	03227	105	NDINS	SYN	INSTM−300 END OF INST. BLOCK (PART 2)	F4401030
00145	0 50000 1 03703	965	2FNDS	CLA	INSTM,1 IF THERE IS NO LOCATI0N SYMBOL,	F4420910
00160	0 50000 1 03702	977	2CLA	CLA	INSTM−1,1 NOT AN ASSIGN	F4421030
00170	0 50000 1 03677	985		CLA	INSTM−4,1 NOT A SET SENSE LIGHT, SEE IF NEXT	F4421110
00201	0 50000 1 03700	994	3CLA	CLA	INSTM−3,1 LOOK AT RELATIVE ADDRESS OF PSE	F4421200
00257	0 50000 1 03677	1046	TSTTR	CLA	INSTM−4,1 IS THIS LAST INSTRUCTION IN A BB	F4421720
00324	−0 50000 1 03701	1084	TRACSM	CAL	INSTM−2,1 OP CODE IS TRA--SEE IF ADDRESS IS	F4422100
00347	0 50000 1 03703	1103	BCLA	CLA	INSTM,1 COMPARE FORMULA NUMBER OF INSTR. TO	F4422290
00377	0 50000 1 03701	1127	DOCSM	CLA	INSTM−2,1 THIS IS A DO CASE	F4422530
00426	0 50000 1 03701	1150	CNDTR	CLA	INSTM−2,1 THE OP CODE IS A CONDITIONAL TRA	F4422760
00451	0 50000 1 03700	1169	GOTOVM	CLA	INSTM−3,1 THIS IS A GO TO VECTOR	F4422950
00471	0 50000 1 03675	1186	13CLA	CLA	INSTM−6,1 ENTER ADDRESS OF ONE TRANSFER	F4423120
00504	0 50000 1 03700	1197	IF2PS	CLA	INSTM−3,1 THIS IS A PSE, LOOK AT ADDRESS TO	F4423230
00523	0 50000 1 03671	1212	SNSCS	CLA	INSTM−10,1 PUT ADDRESS FOR ON INTO TRA TABLE	F4423380
00557	0 50000 1 03672	1240	16CLA	CLA	INSTM−9,1 CHECK FOR TRA	F4423660
00601	−0 50000 1 03676	1258	HPRCS	CAL	INSTM−5,1 TEST FOR PAUSE(INNOCUOUS) OR A STOP	F4423840
00775	0 70000 4 03667	1408	D1CPY	CPY	INSTM−12,4 COPY BLOCK OF INSTRUCTIONS	F4425340

␣INSTR = 3376

Definition
06460 98 INSTR SYN INST.R F4400980

References (2)

	00271	0 70000 1 06457	2304	CPYN	CPY	INSTR−1,1 COPY BLOCK	F4461920
	00364	0 50000 1 06460	2364		CLA	INSTR,1 IS THIS THE BEG OF A BASIC BLOCK	F4462520

␣INTBB = 200

Definition
00310 −0 75400 4 00000 2319 INTBB PXD 0,4 PUT TAG ADDR IN BB LIST F4462070
Reference
00366 0 10000 0 00310 2366 TZE INTBB YES F4462540

␣L2043 = 32

Definition
00040 0 00000 0 03773 2129 L2043 2043 F4460170

␣L2047 = 33

Definition
00041 0 00000 0 03777 2130 L2047 2047 F4460180

References (2)

	00434	−0 32000 0 00041	2404		ANA	L2047	F4462920
	00501	0 50000 0 00041	2441	COMB	CLA	L2047	F4463290

␣L2048 = 34

Definition
00042 0 00000 0 04000 2131 L2048 2048 F4460190
Reference
00575 0 53400 2 00042 2510 NDDR LXA L2048,2 SELECT 2ND DRUM F4463980

␣LA301 = 53

Definition
00065 0 76600 0 00301 2151 LA301 WDR 1 F4460390
Reference
00440 0 40000 0 00065 2408 ADD LA301 F4462960

␣LAZST = 33

Definition
00041 0 00000 0 00310 1605 LAZST ZSET F4430180
Reference
00173 0 40200 0 00041 1703 SUB LAZST F4431160

␣LAZTR = 36

Definition
00044 0 00000 0 01274 1608 LAZTR ZTRA F4430210
Reference
00255 0 40200 0 00044 1759 SUB LAZTR F4431720

␣LCNTR = 291

Definition
00443 92 LCNTR SYN DOBLOK−300−1 F4400920

References (10)

00071	0 60100 2 00443	2034	ZSTO	STO	LCNTR,2	F4450470
00105	0 60100 4 00443	2046		STO	LCNTR,4 PUT ONE IN COUNTER ZERO	F4450590
00112	0 62100 4 00443	2051		STA	LCNTR,4 STORE NO. TIMES IN LOOP IN COUNTERS	F4450640
00121	0 62100 4 00443	2058		STA	LCNTR,4 4	F4450710
00122	0 56000 4 00443	2059		LDQ	LCNTR,4 MULTIPLY NO OF TIMES IN THIS D0	F4450720
00123	0 20000 4 00444	2060		MPY	LCNTR+1,4 BY NO. OF TIMES IN OUTER DOS	F4450730
00124	−0 60000 4 00443	2061		STQ	LCNTR,4 STORE IN COUNTER FOR THIS DO	F4450740
00137	0 20000 4 00443	2072		MPY	LCNTR,4 THIS LOOP IS DONE	F4450850
00161	0 20000 4 00443	2090		MPY	LCNTR,4 TIMES IN LOOP	F4451030
00164	0 20000 4 00444	2093		MPY	LCNTR+1,4 STARTED TO GET COUNTER OUT	F4451060

␣LCOPS = 50

Definition
00062 +072467000000 2148 LCOPS OCT 72467000000 PDX F4460360

References (2)

	00331	0 40200 2 00063	2336	SUB	SUB	LCOPS+1,2 OP CODES OF TYPES 0F TAGGED INSTRS	F4462240
	00333	0 40000 2 00063	2338		ADD	LCOPS+1,2 RESTORE ORIGINAL CODE TO AC	F4462260

␣LCOUT = 43

Definition
00053 0 02000 0 00613 902 LCOUT TRA OUTB TRANSFER TO EXIT ROUTINE F4420280
Reference
01012 0 50000 0 00053 1421 CLA LCOUT PUT ADDRESS OF FINAL EXIT INTO MAIN F4425470

␣LD12M = 361

Definition
00551 1 00014 1 00130 1234 LD12M TXI BEGBB,1,12 DO NEXT BB F4423600

References (2)

	00767	−0 53400 4 00551	1402		LXD	LD12M,4 SHIFT EXTRA INSTRUCTIONS FROM END	F4425280
	01063	−0 53400 1 00551	1466	PASS2	LXD	LD12M,1 INITIALIZE INDEX REGISTERS	F4425920

␣LDSAN = 41

Definition
00051 0 76660 0 00000 900 LDSAN 0,0,−NLIST−4 F4420260

References (2)

	00204	0 40000 0 00051	997		ADD	LDSAN NOT ZERO, ADD ADDRESS OF FIRST	F4421230
	00212	0 50000 0 00051	1003		CLA	LDSAN PUT ENTRIES IN SET TABLE TO TURN	F4421290

␣LFXDN = 42

Definition
00052 0 00000 0 03063 901 LFXDN RDTIF−1 F4420270
Reference
00754 0 40200 0 00052 1387 SUB LFXDN IS FIXDO LIST FULL F4425130

␣LFXST = 44

Definition
00054 0 00000 0 00201 1616 LFXST FXSET F4430290
Reference
00176 0 50000 0 00054 1706 CLA LFXST F4431190

␣LNLST = 40

Definition
00050 0 76664 0 00000 899 LNLST 0,0,−NLIST F4420250
Reference
00234 0 40000 0 00050 1021 ADD LNLST PUT INDEX FOR N IN SET TABLE F4421470

␣LNTOP = 73

Definition
00111 +031316000000 932 LNTOP OCT 31316000000 TSX-HPR F4420580
Reference
00265 0 40200 4 00112 1052 SUBP SUB LNTOP+1,4 COMPARE TO OP CODES OF POSSIBLE F4421780

␣LOQP4 = 566

Definition
01066 −0 75400 2 00000 700 LOQP4 PXD 0,2 PUT B B NO IN DECREMENT F4415910

␣LTRAA = 61

Definition
00075 0 02000 0 00135 159 LTRAA TRA AA+1 F4410500
Reference
00343 0 50000 0 00075 334 RDIN2 CLA LTRAA RESTORE USUAL EXIT ADDRESS IN RDINS F4412250

␣LTRND = 54

Definition
00066 0 02000 0 00575 2152 LTRND TRA NDDR F4460400
Reference
00522 0 50000 0 00066 2464 CLA LTRND F4463520

␣LTROP = 65

Definition
00101 −000372000000 924 LTROP OCT −372000000 TTR-TXL F4420500
Reference
00315 0 40200 4 00102 1076 6SUB SUB LTROP+1,4 C0MPARE TO POSSIBLE OP CODE F4422020

␣LXABB = 108

Definition
00154 −0 75400 1 00000 2216 LXABB PXD 0,1 F4461040
Reference
00176 2 00002 1 00154 2234 TIX LXABB,1,2 HAS ENTIRE TABLE BEEN SORTED YET F4461220

␣LXRDN = 64

Definition
00100 0 02000 0 00135 162 LXRDN TRA AA+1 F4410530
Reference
00125 0 50000 0 00100 189 BEGCLA CLA LXRDN RESTORE USUAL EXIT ADDRESS F4410800

␣LXSET = 38

Definition
00046 0 00620 0 00000 897 LXSET 0,0,XSET F4420230
Reference
01037 0 40200 0 00046 1444 SUB LXSET F4425700

␣LXTRA = 36

Definition
00044 0 05360 0 00000 895 LXTRA 0,0,XTRA F4420210
Reference
03154 0 40200 0 00044 1557 SUB LXTRA F4426830

␣LZFR1 = 35

Definition
00043 0 00000 0 00374 1607 LZFR1 ZFRET=+2 F4430200
Reference
00326 0 40000 0 00043 1804 ADD LZFR1 F4432170

␣LZINS = 243

Definition
00363 2 00144 1 00265 2363 LZINS TIX RDINSR,1,ZINSTR F4462510

References (2)

	00276	−0 63400 1 00363	2309	1ALXD	SXD	LZINS,1 STORE LENGTH OF RECORD TO COMPARE	F4461970
	00300	0 02000 0 00364	2311		TRA	LZINS+1	F4461990

␣LZSET = 39

Definition
00047 0 00310 0 00000 898 LZSET 0,0,ZSET F4420240

References (3)

01035	0 40000 0 00047	1442	ADD	LZSET	F4425680
01044	−0 53400 4 00047	1449	LXD	LZSET,4 SET INDEX FOR COMPUTING CHECKSUM	F4425750
01051	−0 53400 4 00047	1454	LXD	LZSET,4 SET INOEX EOR COPY1NG	F4425800

␣LZST1 = 34

Definition
00042 0 00000 0 00311 1606 LZST1 ZSET+1 F4430190
Reference
00170 0 40000 0 00042 1700 ADD LZST1 F4431130

␣LZTAG = 42

Definition
00052 0 00017 0 00000 2139 LZTAG 0,0,ZTAG F4460270
Reference
00360 0 40000 0 00052 2360 ADD LZTAG F4462480

␣LZTRA = 37

Definition
00045 0 01274 0 00000 896 LZTRA 0,0,ZTRA F4420220

References (4)

03152	0 40000 0 00045	1555	ADD	LZTRA	F4426810
03160	−0 53400 4 00045	1561	LXD	LZTRA,4 SET INDEX	F4426870
03165	−0 53400 4 00045	1566	LXD	LZTRA,4 SET INDEX FOR COPYING	F4426920
03175	−0 53400 4 00045	1574	LXD	LZTRA,4 SET INDEX	F4427000

␣MPYR1 = 31

Definition
00037 0 00000 0 00000 2003 MPYR1 F4450160

References (12)

00056	0 60200 0 00037	2020	SLW	MPYR1	F4450330
00057	0 50000 0 00037	2021	CLA	MPYR1	F4450340
00135	0 60100 0 00037	2070	STO	MPYR1	F4450830
00136	0 56000 0 00037	2071	LDQ	MPYR1 MULTIPLY C0UNTER BY NUMBER OF TIMES	F4450840
00140	−0 60000 0 00037	2073	STQ	MPYR1	F4450860
00141	0 50000 0 00037	2074	CLA	MPYR1	F4450870
00157	0 60100 0 00037	2088	STO	MPYR1	F4451010
00160	0 56000 0 00037	2089	LDQ	MPYR1 MULTIPLY COUNTER BY TOTAL NO OF	F4451020
00163	0 56000 0 00037	2092	LDQ	MPYR1 MULTIPLY COUNTER BY NO TIME DO IS	F4451050
00165	−0 60000 0 00037	2094	STQ	MPYR1	F4451070
00166	0 50000 0 00037	2095	CLA	MPYR1	F4451080
00173	0 50200 0 00037	2100	CLS	MPYR1	F4451130

␣MPYR2 = 32

Definition
00040 0 00000 0 00000 2004 MPYR2 F4450170

References (4)

00052	0 70000 0 00040	2016	CPY	MPYR2	F4450290
00060	0 40200 0 00040	2022	SUB	MPYR2	F4450350
00162	−0 60000 0 00040	2091	STQ	MPYR2 STORE NO IN MPYR2	F4451040
00174	0 40000 0 00040	2101	ADD	MPYR2	F4451140

␣MSECD = 343

Definition
00527 1 00014 1 00130 1216 MSECD TXI BEGBB,1,12 DO NEXT BB. F4423420
Reference
00530 −0 50000 0 00527 1217 MSECSM CAL MSECD THIS IS A MSE TEST F4423430

␣NBOXR = 105

Definition
D 00151 −3 00000 2 00141 2210 NBOXR TXL CLABB,2 TEST FOR LAST BB F4460980

References (3)

	00136	0 62200 0 00151	2199		STD	NBOXR	F4460870
D	00145	3 00000 1 00150	2206	TXBB	TXH	NBOXR−1,1 TEST FOR END 0F TABLE	F4460940
	00150	1 00001 2 00151	2209		TXI	NBOXR,2,1 SET FOR NEXT BASIC BLOCK	F4460970

␣NDDOT = 672

Definition
01240 −0 53400 4 00107 814 NDDOT LXD ERAS3=,4 F4417050

␣NDINS = 1687

Definition
03227 105 NDINS SYN INSTM−300 END OF INST. BLOCK (PART 2) F4401030
Reference
00770 0 50000 4 03227 1403 D1CLA CLA NDINS,4 OF BLOCK FOR BEGINNING F4425290

␣NDSET = 3892

Definition
07464 107 NDSET SYN SETLOC−ZSET END OF SET BLOCK (PART 3) F4401070

␣NDTBL = 268

Definition
00414 0 50000 0 00402 1862 NDTBL CLA NOQFD END OF TABLE-PREVENT FURTHER F4432750
Reference
00410 0 10000 0 00414 1858 TZE NDTBL TEST FOR END OF TABLE F4432710

␣NDTRA = 2392

Definition
04530 104 NDTRA SYN TRAM−700 END OF TRA TABLE BLOCK (PART 2) F4401040
Reference
03172 0 50000 4 04530 1571 D5CLA CLA NDTRA,4 SHIFT EXTRA ENTRIES FROM THE END F4426970

␣NDWRS = 382

Definition
A 00576 0 76600 0 00000 2511 NDWRS WRS F4463990
Reference
00443 0 62100 0 00576 2411 STA NDWRS F4462990

␣NEWFM = 491

Definition
00753 1 00001 4 00754 615 NEWFM TXI NEWFM+1,4,1 IS THIS END OF TABLE F4415060

References (2)

	00744	−0 12000 0 00753	608		TMI	NEWFM FORMULA NUMBER--END OF THIS ENTRY	F4414990
	00753	1 00001 4 00754	615	NEWFM	TXI	NEWFM+1,4,1 IS THIS END OF TABLE	F4415060

␣NFOUN = 424

Definition
00650 −0 75400 4 00000 1302 NFOUN PXD 0,4 PUT INDEX FOR N INTO AC F4424280
Reference
00640 0 10000 0 00650 1294 TZE NFOUN N HAS BEEN FOUND F4424200

␣NLIST = 588

Definition
01114 87 NLIST SYN BBTABL−ZBB−3 F4400870

References (16)

	01062	88	FRET	SYN	NLIST−26	F4400880
	01062	89	SETTAB	SYN	NLIST−25−1	F4400890
	01260	90	SNSLT	SYN	NLIST+100	F4400900
01312	0 60100 0 01113	859		STO	NLIST−1 STORE ENDMARK FOR N-LIST	F4417500
01323	0 60000 0 01114	868		STZ	NLIST CLEAR DUMMY SENSE LIGHTS.	F4417590
01324	0 60000 0 01115	869		STZ	NLIST+1	F4417600
01325	0 60000 0 01116	870		STZ	NLIST+2	F4417610
01326	0 60000 0 01117	871		STZ	NLIST+3	F4417620
00050	0 76664 0 00000	899	LNLST		0,0,−NLIST	F4420250
00051	0 76660 0 00000	900	LDSAN		0,0,−NLIST−4	F4420260
00635	0 50000 4 01114	1291	CLANN	CLA	NLIST,4 LOOK AT ENTRY IN N-LIST	F4424170
00645	0 60100 4 01114	1299		STO	NLIST,4	F4424250
00647	0 60100 4 01113	1301		STO	NLIST−1,4 ENTRY IN N-LIST	F4424270
00272	0 50000 4 01114	1774	CLANS	CLA	NLIST,4	F4431870
00274	−0 60000 4 01114	1776		STQ	NLIST,4 STORE ZERO IN N-LIST	F4431890
00113	0 40200 4 01114	1947		SUB	NLIST,4 IS THIS ENTRY FOR CURRENT VALUE	F4440640

␣NOINS = 2200

Definition

	17			SECTI0N 5 (TAG ANALYSIS). THEIR	F4400170
	18			VALUES ARE THOSE OF PREDL (BLOCK	F4400180
	19			LENGTH OF PRED TABLE) AND 6*BBBL	F4400190
	20			(BLOCK LENGTH OF BB TABLE) RES-	F4400200
	21			PECT1VELY, AS GIVEN IN THE	F4400210
	22			SECTI0N 5 LISTING.	F4400220
04230	23	NOINS	SYN	2200 BLOCK LENGTH OF COMPILED	F4400230

References (4)

	01574	102	BGINS	SYN	INSTA−NOINS END OF INST. BLOCK (PART 1)	F4401020
00134	2 04230 1 00310	196	AA	TIX	RDINSA,1,NOINS TEST FOR END OF INSTRUCTION BLOCK	F4410870
00221	2 04230 1 00306	249	4TIX	TIX	RDIN,1,NOINS READ IN MORE INSTRUCTIONS IF NEEDED	F4411400
00331	3 04230 1 00341	324	LNOINS	TXH	XRDIN−1,1,NOINS END OF RECORD--SEE IF IT IS END OF	F4412150

␣NOMOR = 1625

Definition
03131 0 50000 0 03156 1535 NOMOR CLA TRTSX TIFRD IS ALL USED - STORE A TSX F4426610
Reference
00054 0 02000 0 03131 903 TRNOM TRA NOMOR F4420290

␣NOQFD = 258

Definition
00402 −0 12000 0 00416 1851 NOQFD TMI NTENT FORM. NO. IN FRET IS LARGER, NOT F4432640

References (4)

00317	0 50000 0 00402	1797		CLA	NOQFD IF EMPTY--PREVENT LOOKING AT IT	F4432100
00364	−0 10000 0 00402	1837		TNZ	NOQFD NO, NO FREQUENCY FOUND	F4432500
00374	0 50000 0 00402	1845		CLA	NOQFD END OF TABLE-PREVENT FURTHER	F4432580
00414	0 50000 0 00402	1862	NDTBL	CLA	NOQFD END OF TABLE-PREVENT FURTHER	F4432750

␣NTENT = 270

Definition
00416 0 50000 1 07771 1864 NTENT CLA TRATBL−2,1 NO ENTRY IN FRET--MAKE UP FREQS F4432770
Reference
00402 −0 12000 0 00416 1851 NOQFD TMI NTENT FORM. NO. IN FRET IS LARGER, NOT F4432640

␣NTIFR = 1988

Definition
03704 106 NTIFR SYN TIFRDM−200 EN0 OF TIFRD 8LOCK (PART 2) F4401060
Reference
03070 0 50000 0 03703 1502 CLA NTIFR−1 MOVE EXTRA WORD FROM END OF BLOCK F4426280

␣NXTBB = 104

Definition
00150 −0 75400 1 00000 2081 NXTBB PXD 0,1 LOOK AT NEXT BB F4450940
Reference
00147 1 00001 1 00150 2080 TXI NXTBB,1,1 SET FOR NEXT BB--DOES IT BEGIN A DO F4450930

␣NXTBL = 283

Definition
00433 0 50000 0 07777 2403 NXTBL CLA BBTBOX COMPUTE WRS ADDRESSES F4462910

References (3)

00547	0 02000 0 00433	2486	TRA	NXTBL	F4463740
00553	0 02000 0 00433	2490	TRA	NXTBL	F4463780
00572	0 02000 0 00433	2507	TRA	NXTBL	F4463950

␣NXTDO = 652

Definition
01214 1 00002 2 01215 793 NXTDO TXI NXTDO+1,2,2 F4416840

References (3)

01213	0 02000 0 01216	792		TRA	NXTDO+2	F4416830
01214	1 00002 2 01215	793	NXTDO	TXI	NXTDO+1,2,2	F4416840
01246	0 02000 0 01214	820		TRA	NXTDO YES-LOOK AT NEXT TXL AND NEXT ENTRY	F4417110

␣OCTAL = 41

Definition
00051 +170000000000 139 OCTAL OCT 170000000000 F4410300
Reference
00166 0 40200 0 00051 222 SUB OCTAL ADDRESS = SPECIAL MARK F4411130

␣OTHER = 107

Definition
00153 1 00004 1 00134 211 OTHER TXI AA,1,4 NO TRANSFER EXISTS F4411020

References (7)

00136	0 10000 0 00153	198	TZE	OTHER THIS INST. NEED NOT BE CONSIDERED	F4410890
00167	0 10000 0 00153	223	TZE	OTHER YES,IGNORE AS NOT REAL TRANSFER	F4411140
00172	0 10000 0 00153	226	TZE	OTHER	F4411170
00201	0 02000 0 00153	233	TRA	OTHER TSX	F4411240
00211	−0 10000 0 00153	241	TNZ	OTHER YES,THIS IS A GO TO N,IGNORE NOW	F4411320
00265	−0 10000 0 00153	285	TNZ	OTHER NOT A SKIP, LOOK AT NEXT INST.	F4411760
00271	−0 10000 0 00153	289	TNZ	OTHER NO,GO TO NEXT INSTRUCTION	F4411800

␣OUTBX = 82

Definition
00122 0 00000 0 00000 941 OUTBX 0 F4420670

References (12)

00670	−0 63400 4 00122	1332		SXD	OUTBX,4 SAVE EXIT INDEX	F4424580
00711	−0 53400 4 00122	1349		LXD	OUTBX,4	F4424750
00714	−0 63400 4 00122	1355		SXD	OUTBX,4	F4424810
00727	−0 53400 4 00122	1366		LXD	OUTBX,4 REGISTERS.	F4424920
00763	−0 63400 4 00122	1398	RDINSM	SXD	OUTBX,4 SAVE INDEX FOR RETURN	F4425240
01016	−0 53400 4 00122	1425	D1XX	LXD	OUTBX,4 NO ERROR, RESTORE INDEX REGISTERS	F4425510
01032	−0 63400 4 00122	1439	WRSET	SXD	OUTBX,4 SAVE INDEX FOR RETURN	F4425650
01060	−0 53400 4 00122	1461		LXD	OUTBX,4 RESTORE INDEX REGISTER	F4425870
03064	−0 63400 4 00122	1498	RDTIF	SXD	OUTBX,4 SAVE INDEX FOR RETURN	F4426240
03117	−0 53400 4 00122	1525		LXD	OUTBX,4	F4426510
03147	−0 63400 4 00122	1552	WRTRA	SXD	OUTBX,4 SAVE INDFX FOR RETURN	F4426780
03206	−0 53400 4 00122	1583	TRLXD	LXD	OUTBX,4 RESTORE INDEX REGISTERS	F4427090

␣P2SUB = 114

Definition
00162 0 40200 4 00070 218 P2SUB SUB LTROP=+1,4 F4411090
Reference
00164 2 00001 4 00162 220 TIX P2SUB,4,1 NOT FOUND YET F4411110

␣P2TRA = 131

Definition
00203 0 02000 0 00243 235 P2TRA TRA IF3CSA TZE F4411260
Reference
00163 0 10000 4 00204 219 TZE P2TRA+1,4 HAVE FOUND TYPE OF TRANSFER F4411100

␣PASS1 = 74

Definition

		173				F4410640
		174			THIS SCANS THE COMPILED INSTRUCTIONS AND COMPILES A LIST	F4410650
		175			KNOWN AS BBLIST OF THE COMPILED INSTRUCTION NUMBER OF THE	F4410660
		176			FIRST INSTRUCTION OF EACH BASIC BLOCK OF THE OBJECT PROGRAM.	F4410670
00112	0 77200 0 00224	177	PASS1	REW	INSTTP	F4410680

␣PASS2 = 563

Definition

		1464				F4425900
		1465			THIS SETS UP FOR OPTIMAL LOOK UP IN BB LIST	F4425910
01063	−0 53400 1 00551	1466	PASS2	LXD	LD12M,1 INITIALIZE INDEX REGISTERS	F4425920

␣PRDBB = 127

Definition

		2235				F4461230
		2236			THIS PUTS THE ADORESSES OF ENTRIES IN THE PREDECESSOR TABLE	F4461240
		2237			INTO THE BASIC BLOCK TABLE	F4461250
00177	−0 53400 2 07774	2238	PRDBB	LXD	BBOX.=,2 PUT LAST BB ADDRESS INTO IR B	F4461260

Reference
00153 −3 00000 1 00177 2215 TXL PRDBB,1,0 TEST FOR ONLY ONE ENTRY IN PRED F4461030

␣PSECS = 178

Definition
00262 0 50000 1 06021 282 PSECS CLA INSTA−3,1 INSTRUCTION IS A PSE F4411730
Reference
00157 0 02000 0 00262 215 PTRA TRA PSECS PSE F4411060

␣PSTCS = 332

Definition
00514 −0 50000 0 00474 1205 PSTCS CAL PBYCDM THIS IS A PSE TEST INSTRUCTION F4423310
Reference
00507 0 10000 0 00514 1200 TZE PSTCS YES, IT IS A TEST F4423260

␣RAND1 = 32

Definition
00040 +321702174347 1900 RAND1 OCT 321702174347 F4440170
Reference
00141 0 56000 0 00040 1969 PRBYCS LDQ RAND1 THIS IS A PROBABILITY CASE F4440860

␣RAND2 = 33

Definition
00041 +000000000001 1901 RAND2 OCT 1 F4440180

References (2)

	00142	0 20000 0 00041	1970		MPY	RAND2 GENERATE A RANDOM NUMBER BY	F4440870
	00143	−0 60000 0 00041	1971		STQ	RAND2 MULTIPLIC. AND SAVE THE RESULT	F4440880

␣RDBBL = 156

Definition

		2271				F4461590
		2272			THIS ROUTINE READS THE BASIC BLOCK LIST FROM THE DRUM	F4461600
00234	0 50000 0 00032	2273	RDBBL	CLA	MINUS4 INITIALIZE ERROR BOX	F4461610

Reference
00110 0 02000 0 00234 2173 TRA RDBBL F4460610

␣RDDOS = 34

Definition

		2006				F4450190
		2007			THIS ROUTINE PUTS THE DO LIST INTO STORAGE FROM THE DRUM	F4450200
00042	0 50000 0 00032	2008	RDDOS	CLA	MINUS4 INITIALIZE ERROR BOX	F4450210

␣RDDOT = 578

Definition

		712				F4416030
		713			THIS ROUTINE READS DOCARE FROM DRUM 1	F4416040
01102	0 50000 0 00032	714	RDDOT	CLA	MINUS4 INITIALIZE ERROR BOX	F4416050

Reference
D 01060 2 00000 1 01102 694 TIXDO TIX RDDOT,1 HAVE ALL ENTRIES BEEN DONE F4415850

␣RDDTG = 611

Definition

		747				F4416380
		748			THIS ROUTINE READS DOTAG FROM TAPE 2, FILE 6, AND CONDENSES	F4416390
		749			IT	F4416400
01143	0 76200 0 00222	750	RDDTG	RDS	TBLTAP	F4416410

Reference
01132 0 10000 0 01143 738 TZE RDDTG NO ERROR-DO NEXT PART OF PROGRAM F4416290

␣RDEND = 220

Definition
00334 −0 75400 1 00000 327 RDEND PXD 0,1 STORE NUMBER OF REMAINING INSTRUC- F4412180
Reference
00323 1 77777 1 00334 318 TXI RDEND,1,−1 END OF FILE F4412090

␣RDERR = 230

Definition
00346 0 50000 0 00030 337 RDERR CLA ERRBX F4412280
Reference
00326 0 02000 0 00346 321 TRA RDERR ERROR F4412120

␣RDFRT = 190

Definition

		1778				F4431910
		1779			THIS ROUTINE READS FRET FROM DRUM 2	F4431920
00276	−0 63400 2 00060	1780	RDFRT	SXD	ERAS4N,2 SAVE INDEX REGISTERS	F4431930

References (2)

	00401	0 02000 0 00276	1850		TRA	RDFRT RETURN	F4432630
	00413	0 02000 0 00276	1861		TRA	RDFRT IN NEXT BLOCK	F4432740

␣RDIN2 = 227

Definition
00343 0 50000 0 00075 334 RDIN2 CLA LTRAA RESTORE USUAL EXIT ADDRESS IN RDINS F4412250

␣RDINF = 425

Definition
00651 0 70000 0 00105 549 RDINF CPY ERAS1= COPY NUMBER OF WORDS IN TABLE F4414400

␣RDSEL = 202

Definition
00312 0 76200 0 00224 309 RDSEL RDS INSTTP SELECT INSTRUCTION TAPE F4412000

␣RDSET = 50

Definition

		1622				F4430350
		1623			THIS ROUTINE READS THE SET TABLE FROM DRUM 3.	F4430360
00062	0 50000 0 00032	1624	RDSET	CLA	MINUS4 INITIALIZE ERROR BOX	F4430370

Reference
D 00352 3 00000 2 00062 1827 13TXH TXH RDSET,2 HAS END OF TABLE BEEN REACHED F4432400

␣RDSIN = 184

Definition
00270 0 76200 0 00224 2303 RDSIN RDS INSTTP F4461910
Reference
00307 0 02000 0 00267 2318 TRA RDSIN−1 TRY AGAIN TO READ IN RECORD. F4462060

␣RDTIF = 1588

Definition

		1496			THIS ROUIINE READS A BLOCK OF TIFRD INTO CORE STORAGE FROM	F4426220
		1497			DRUM 1.	F4426230
03064	−0 63400 4 00122	1498	RDTIF	SXD	OUTBX,4 SAVE INDEX FOR RETURN	F4426240

References (6)

00052	0 00000 0 03063	901	LFXDN		RDTIF−1	F4420270
00152	0 07400 4 03064	971		TSX	RDTIF,4	F4420970
00345	0 07400 4 03064	1101		TSX	RDTIF,4 READ IN NEXT BLOCK 0F TIFRD	F4422270
00360	0 07400 4 03064	1112		TSX	RDTIF,4 READ IN NEXT BLOCK	F4422380
03122	0 60100 0 03065	1528		STO	RDTIF+1 ATTEMPTS TO READ IN	F4426540
03132	0 60100 0 03064	1536		STO	RDTIF	F4426620

␣RDTRA = 149

Definition

		1733				F4431460
		1734			THIS ROUTINE READS THE TRA TABLE FROM THE DRUM	F4431470
00225	0 50000 0 07777	1735	RDTRA	CLA	TTBOX=	F4431480

␣READ4 = 71

Definition
00107 0 76200 0 00221 1645 READ4 RDS SYSTAP F4430580
Reference
00100 0 10000 0 00107 1638 TZE READ4 IF NO ERROR-READ IN NEXT PROGRAM F4430510

␣READ5 = 112

Definition
00160 0 76200 0 00221 1984 READ5 RDS SYSTAP F4441010
Reference
00050 −0 12000 0 00160 1912 TMI READ5 HAVE FINISHED SIMULATION F4440290

␣READ6 = 132

Definition
00204 0 76200 0 00221 2109 READ6 RDS SYSTAP F4451220
Reference
00047 −3 00000 1 00204 2013 TXL READ6,1,0 IF NO DOS-GO TO TAG PASS F4450260

␣RFRET = 419

Definition

		540				F4414310
		541			THIS ROUTINE READS FRET FROM TAPE 2, FILE 5, RECORD 12, AND	F4414320
		542			CHANGES FREQUENCIES TO PROBABILITIES.	F4414330
00643	0 50000 0 00032	543	RFRET	CLA	MINUS4 INITIALIZE ERROR BOX	F4414340

Reference
00606 −0 12000 0 00643 511 TMI RFRET NONE F4414020

␣RTMSK = 28

Definition
00034 +000000777777 2000 RTMSK OCT 777777 F4450130

References (8)

00134	−0 32000 0 00034	2069	ANA	RTMSK GET COUNTER FROM TRA TABLE	F4450820
00142	0 34000 0 00034	2075	CAS	RTMSK TEST FOR COUNTER OVERFLOW	F4450880
00143	0 50000 0 00034	2076	CLA	RTMSK COUNTER HAS OVERFLOWED	F4450890
00156	−0 32000 0 00034	2087	ANA	RTMSK	F4451000
00167	0 34000 0 00034	2096	CAS	RTMSK TEST FOR COUNTER OVERFLOW	F4451090
00170	0 50000 0 00034	2097	CLA	RTMSK COUNTER HAS OVERFLOWED-USE MAX. NO.	F4451100
00175	0 34000 0 00034	2102	CAS	RTMSK TEST FOR COUNTER OVERFLOW	F4451150
00176	0 50000 0 00034	2103	CLA	RTMSK COUNTER HAS OVERFLOWED-USE MAX. NO.	F4451160

␣SELF1 = 143

Definition
00217 2 00001 4 00220 247 SELF1 TIX SELF1+1,4,1 PUT NUMBER OF BRANCHES INTO IR C F4411380
Reference
00217 2 00001 4 00220 247 SELF1 TIX SELF1+1,4,1 PUT NUMBER OF BRANCHES INTO IR C F4411380

␣SELF2 = 153

Definition
00231 1 00002 4 00232 257 SELF2 TXI SELF2+1,4,2 SET DOLIST ADORESS FOR NEXT ENTRY F4411480
Reference
00231 1 00002 4 00232 257 SELF2 TXI SELF2+1,4,2 SET DOLIST ADORESS FOR NEXT ENTRY F4411480

␣SELF3 = 294

Definition
00446 2 00001 1 00445 408 SELF3 TIX SELF3−1,1,1 F4412990
Reference
00446 2 00001 1 00445 408 SELF3 TIX SELF3−1,1,1 F4412990

␣SELF4 = 316

Definition
00474 0 62200 0 00475 430 SELF4 STD SELF4+1 F4413210
Reference
00474 0 62200 0 00475 430 SELF4 STD SELF4+1 F4413210

␣SELF5 = 347

Definition
00533 1 77777 1 00532 464 SELF5 TXI SELF5−1,1,−1 COPY NEXT WORD F4413550
Reference
00533 1 77777 1 00532 464 SELF5 TXI SELF5−1,1,−1 COPY NEXT WORD F4413550

␣SELF9 = 405

Definition
00625 2 00001 1 00624 526 SELF9 TIX SELF9−1,1,1 F4414170
Reference
00625 2 00001 1 00624 526 SELF9 TIX SELF9−1,1,1 F4414170

␣SETYM = 32

Definition
00040 0 00000 0 01275 891 SETYM SETADD F4420170

References (3)

01050	0 46000 0 00040	1453	LDA	SETYM LOCATE DRUM ADDRESS	F4425790
01055	0 50000 0 00040	1458	CLA	SETYM SET DRUM ADDRESS FOR NEXT BLOCK	F4425840
01057	0 60100 0 00040	1460	STO	SETYM	F4425860

␣SIMUL = 34

Definition

		1902				F4440190
		1903			THIS ROUTINE SIMULATES THE FLOW OF THE COMPILED PROGRAM,	F4440200
		1904			KEEPING TRACK OF THE NUMBER OF TIMES EACH BRANCH IS TAKEN AT	F4440210
		1905			EACH BRANCH POINT	F4440220
00042	−0 53400 1 00031	1906	SIMUL	LXD	LA1,1 PUT ZERO IN I R A	F4440230

␣SKIP1 = 231

Definition
00347 −0 12000 0 00351 338 SKIP1 TMI SKIP1+2 HAVE 5 TRIES AT READING BEEN MADE F4412290
Reference
00347 −0 12000 0 00351 338 SKIP1 TMI SKIP1+2 HAVE 5 TRIES AT READING BEEN MADE F4412290

␣SKIP2 = 334

Definition
00516 −0 12000 0 00520 448 SKIP2 TMI SKIP2+2 HAVE 5 TRIES AT READING BEEN MADE F4413390
Reference
00516 −0 12000 0 00520 448 SKIP2 TMI SKIP2+2 HAVE 5 TRIES AT READING BEEN MADE F4413390

␣SKIP3 = 362

Definition
00552 −0 12000 0 00554 479 SKIP3 TMI SKIP3+2 HAVE 5 TRIES AT READING BEEN MADE F4413700
Reference
00552 −0 12000 0 00554 479 SKIP3 TMI SKIP3+2 HAVE 5 TRIES AT READING BEEN MADE F4413700

␣SKIP4 = 461

Definition
00715 −0 12000 0 00717 585 SKIP4 TMI SKIP4+2 HAVE 5 TRIES AT READING BEEN MADE F4414760
Reference
00715 −0 12000 0 00717 585 SKIP4 TMI SKIP4+2 HAVE 5 TRIES AT READING BEEN MADE F4414760

␣SKIP5 = 604

Definition
01134 −0 12000 0 01136 740 SKIP5 TMI SKIP5+2 HAVE 5 TRIES AT READING BEEN MADE F4416310
Reference
01134 −0 12000 0 01136 740 SKIP5 TMI SKIP5+2 HAVE 5 TRIES AT READING BEEN MADE F4416310

␣SKIP6 = 636

Definition
01174 −0 12000 0 01176 775 SKIP6 TMI SKIP6+2 HAVE 5 TRIES AT READING BEEN MADE F4416660
Reference
01174 −0 12000 0 01176 775 SKIP6 TMI SKIP6+2 HAVE 5 TRIES AT READING BEEN MADE F4416660

␣SKIP7 = 530

Definition
01022 −0 12000 0 01024 1429 SKIP7 TMI SKIP7+2 HAVE 5 TRIES AT READING BEEN MADE F4425550
Reference
01022 −0 12000 0 01024 1429 SKIP7 TMI SKIP7+2 HAVE 5 TRIES AT READING BEEN MADE F4425550

␣SKIP8 = 1634

Definition
03142 −0 12000 0 03144 1544 SKIP8 TMI SKIP8+2 HAVE 5 TRIES AT READING BEEN MADE F4426700
Reference
03142 −0 12000 0 03144 1544 SKIP8 TMI SKIP8+2 HAVE 5 TRIES AT READING BEEN MADE F4426700

␣SKIP9 = 66

Definition
00102 −0 12000 0 00104 1640 SKIP9 TMI SKIP9+2 HAVE 5 TRIES AT READING BEEN MA0E F4430530
Reference
00102 −0 12000 0 00104 1640 SKIP9 TMI SKIP9+2 HAVE 5 TRIES AT READING BEEN MA0E F4430530

␣SLSOF = 136

Definition
00210 −0 63400 2 00117 1001 SLSOF SXD BBOX,2 SAVE INDEX B F4421270
Reference
00203 0 10000 0 00210 996 TZE SLSOF IF ZERO TURN ALL LIGHTS OFF F4421220

␣SNSCS = 339

Definition
00523 0 50000 1 03671 1212 SNSCS CLA INSTM−10,1 PUT ADDRESS FOR ON INTO TRA TABLE F4423380
Reference
00535 0 02000 0 00523 1222 TRA SNSCS PUT ADDRESSES IN TRA TABLE F4423480

␣SNSLT = 688

Definition
01260 90 SNSLT SYN NLIST+100 F4400900

References (2)

	00124	0 50000 4 01260	1956		CLA	SNSLT,4 IS LIGHT ON OR OFF	F4440730
	00127	0 60100 4 01260	1959		STO	SNSLT,4	F4440760

␣SPBOX = 75

Definition
00113 −000001000000 934 SPBOX OCT −1000000 F4420600

References (3)

00132	0 40000 0 00113	954		ADD	SPBOX	F4420800
01034	0 50000 0 00113	1441	D7CLA	CLA	SPBOX SET SP BOX FOR NEXT BLOCK	F4425670
01036	0 60100 0 00113	1443		STO	SPBOX	F4425690

␣SRCHN = 410

Definition

		1283				F4424090
		1284			THIS ROUTINE SEARCHES THE N-LIST FOR THE N IN THE AC, ENTERS	F4424100
		1285			IT IF IT IS NOT ALREADY ENTERED AND RETURNS TO THE LOCATION	F4424110
		1286			FOLLOWING THE TSX WITH THE INDEX FOR N IN THE DECREMENT OF	F4424120
		1287			THE ACCUMULATOR	F4424130
00632	−0 63400 4 00125	1288	SRCHN	SXD	ERAS1M,4 SAVE INDEX TO RETURN	F4424140

References (2)

	00233	0 07400 4 00632	1020		TSX	SRCHN,4 SEARCH N-LIST FOR N	F4421460
	00337	0 07400 4 00632	1095		TSX	SRCHN,4 FIND LOCATION 0F N IN N-LIST	F4422210

␣SRTDO = 526

Definition

		652				F4415430
		653			THIS ROUTINE SORTS THE LIST OF TXL INSTRUCTIONS BY ADDRESS	F4415440
01016	−0 53400 1 07775	654	SRTDO	LXD	DOBOX=,1 PUT TOTAL LNGTH OF DOLIST IN ERAS2=	F4415450

␣START = 64

Definition

		2162				F4460500
		2163			THIS ROUTINE ALTERS THE TRATBL INTO SUCC TABLE AND PUTS IT	F4460510
		2164			ON THE DRUM.	F4460520
00100	0 77200 0 00224	2165	START	REW	INSTTP	F4460530

␣STERR = 110

Definition
00156 0 50000 0 00030 1690 STERR CLA ERRBX F4431030

␣STMSK = 36

Definition
00044 +000000777770 2133 STMSK OCT 777770 F4460210

References (2)

	00317	−0 32000 0 00044	2326		ANA	STMSK	F4462140
	00370	−0 32000 0 00044	2368		ANA	STMSK	F4462560

␣STOCD = 230

Definition
00346 −0 75400 2 00000 2350 STOCD PXD 0,2 STORE CODE FOR TYPE OF OPERATION IN F4462380

References (9)

00335	1 00005 2 00346	2340	LD5	TXI	STOCD,2,5 NOT FOUND-IS PASSIVE -WANT 6 IN IRB	F4462280
00336	1 77771 2 00346	2342		TXI	STOCD,2,−7 LXA--INDEX HAS 8, WANT 1	F4462300
00337	1 77776 2 00346	2343		TXI	STOCD,2,−2 TXI--INDEX HAS 7, WANT 5	F4462310
00340	1 77777 2 00346	2344		TXI	STOCD,2,−1 TIX--INDEX HAS 6, WANT 5	F4462320
00341	1 77775 2 00346	2345		TXI	STOCD,2,−3 LXP--INDEX HAS 5, WANT 2	F4462330
00342	1 77777 2 00346	2346		TXI	STOCD,2,−1 DED--INDEX HAS 4, WANT 3	F4462340
00343	1 77776 2 00346	2347		TXI	STOCD,2,−2 LXD--INDEX HAS 3, WANT 1	F4462350
00344	1 77777 2 00346	2348		TXI	STOCD,2,−1 PAX--INDEX HAS 2, WANT 1	F4462360
00345	0 02000 0 00346	2349	TROPS	TRA	STOCD PDX--INDEX HAS 1, WANT 1	F4462370

␣STPCD = 320

Definition
00500 −2 01274 4 00503 1193 STPCD TNX 13TXIM,4,ZTRA HAS THIS BLOCK OF TRA BEEN FILLED F4423190
Reference
00610 −0 50000 0 00500 1265 CAL STPCD THIS IS A STOP--PUT STOP CODE IN F4423910

␣STQDO = 537

Definition
01031 −0 60000 1 06503 667 STQDO STQ DOLIST+3,1 F4415580
Reference
01043 0 02000 0 01031 677 TRA STQDO STORED LOC SMALLER, EXCHANGE F4415680

␣STSLT = 124

Definition
00174 −0 53400 4 00112 989 STSLT LXD SBOX,4 LOAD INDEX FOR SET TABLE F4421150
Reference
00167 0 10000 0 00174 984 TZE STSLT IT IS A SET SENSE LIGHT F4421100

␣STWRS = 546

Definition
01042 0 76600 0 00303 1447 STWRS WRS SETDRM SELECT DRUM F4425730
Reference
01040 −0 12000 0 01042 1445 TMI STWRS NO OVERFLOW --CONTINLE F4425710

␣TAGMK = 37

Definition
00045 +000000777777 2134 TAGMK OCT 777777 F4460220

References (3)

00267	0 53400 1 00045	2302	LXA	TAGMK,1	F4461900
00322	−0 32000 0 00045	2329	ANA	TAGMK	F4462170
00373	−0 32000 0 00045	2371	ANA	TAGMK	F4462590

␣TFERR = 1633

Definition
03141 0 50000 0 00030 1543 TFERR CLA ERRBX F4426690
Reference
03110 −0 10000 0 03141 1518 TNZ TFERR NOT EQUAL,ERROR F4426440

␣TFLXD = 1614

Definition
03116 −0 53400 2 00125 1524 TFLXD LXD ERAS1M,2 RESTORE INDEX REGISTER F4426500

References (2)

	03130	0 02000 0 03116	1534		TRA	TFLXD RESTORE INDEX REGISTERS AND EXIT.	F4426600
	03137	0 02000 0 03117	1541		TRA	TFLXD+1	F4426670

␣TFRDS = 1594

Definition
03072 0 76200 0 00301 1504 TFRDS RDS TIFDRM SELECT DRUM F4426300
Reference
03146 0 02000 0 03072 1548 TRA TFRDS F4426740

␣TGCPY = 236

Definition
00354 0 70000 4 06500 2356 TGCPY CPY TAG,4 F4462440
Reference
00356 −2 00017 4 00354 2358 TNX TGCPY,4,ZTAG F4462460

␣TGMSK = 27

Definition
1998 CONSTANTS AND VARIABLES F4450110

00033 +000000700000 1999 TGMSK OCT 700000 F4450120
Reference
00101 −0 32000 0 00033 2042 ANA TGMSK DOES THIS DO HAVE AN IF F4450550

␣TGSTO = 241

Definition
00361 0 60100 0 00073 2361 TGSTO STO TGPBOX F4462490
Reference
00406 0 60100 0 00361 2382 STO TGSTO F4462700

␣TGTXI = 237

Definition
00355 1 00001 4 00356 2357 TGTXI TXI TGTXI+1,4,1 F4462450
Reference
00355 1 00001 4 00356 2357 TGTXI TXI TGTXI+1,4,1 F4462450

␣TIFRD = 3092

Definition
06024 73 TIFRD SYN DOLIST−300 F4400730

References (10)

	03710	74	TRAD.=	SYN	TIFRD−1100	F4400740
00452	0 70000 1 06024	412	CPYTF	CPY	TIFRD,1 COPY WORD 0F TIFGO	F4413030
00456	0 50000 1 06024	416	CLATFA	CLA	TIFRD,1 LOOK AT THIS WORD OF TIFGO	F4413070
00462	0 70000 1 06023	420		CPY	TIFRD−1,1 COPY SECOND WORD OF ENTRY	F4413110
00467	0 50000 1 06023	425	GOTONA	CLA	TIFRD−1,1 A GO TO N, SAVE ENTRY AND ALSO	F4413160
00563	0 50000 1 06024	490	CLATF	CLA	TIFRD,1 LOOK FOR A GO TO N ENTRY IN TIFRD	F4413810
00572	0 50000 1 06023	497	GOTN2	CLA	TIFRD−1,1 GO TO N, PUT IN ENTRIES FROM TRAD	F4413880
00600	0 60100 1 06022	503		STO	TIFRD−2,1	F4413940
00616	0 36100 1 06024	519	ACLF	ACL	TIFRD,1 COMPUTE CHECKSUM	F4414100
00624	0 70000 1 06024	525	CPY7FT	CPY	TIFRD,1 COPY TABLE	F4414160

␣TIXBB = 261

Definition
D 00405 2 00000 1 00406 372 TIXBB TIX CLAB,1 F4412630

References (3)

00377	0 62200 0 00405	366		STD	TIXBB	F4412570
00401	3 00000 1 00405	368	PLACEA	TXH	TIXBB,1,XXXXXX	F4412590
00406	0 50000 0 00405	373	CLAB	CLA	TIXBB	F4412640

␣TIXDO = 560

Definition
D 01060 2 00000 1 01102 694 TIXDO TIX RDDOT,1 HAVE ALL ENTRIES BEEN DONE F4415850

References (2)

	01056	0 62200 0 01060	692		STD	TIXDO DECREMENT OF TIX FOR COMPARISON	F4415830
	01101	1 00002 1 01060	711		TXI	TIXDO,1,2 DO NEXT ENTRY	F4416020

␣TMARK = 38

Definition
00046 +000033000000 2135 TMARK OCT 33000000 F4460230

References (2)

	00313	−0 50100 0 00046	2322		ORA	TMARK	F4462100
	00400	−0 50100 0 00046	2376		ORA	TMARK	F4462640

␣TPBOX = 77

Definition
00115 −000001000000 936 TPBOX OCT −1000000 F4420620

References (3)

00135	0 40000 0 00115	957		ADD	TPBOX	F4420830
03151	0 50000 0 00115	1554	TRCLA	CLA	TPBOX SET TP BOX FOR NEXT BLOCK	F4426800
03153	0 60100 0 00115	1556		STO	TPBOX	F4426820

␣TPTST = 212

Definition
00324 0 76600 0 00333 319 TPTST WRS 219 TEST FOR TAPE ERROR F4412100

␣TR2CL = 1632

Definition
03140 0 02000 0 00160 1542 TR2CL TRA 2CLA F4426680
Reference
03133 0 50000 0 03140 1537 CLA TR2CL F4426630

␣TRBCK = 43

Definition
00053 0 02000 0 00366 1615 TRBCK TRA CLAFN F4430280
Reference
00377 0 50000 0 00053 1848 14CLA CLA TRBCK END OF BLOCK OF FRET--READ IN NEXT F4432610

␣TRCLA = 1641

Definition
03151 0 50000 0 00115 1554 TRCLA CLA TPBOX SET TP BOX FOR NEXT BLOCK F4426800

␣TRERR = 177

Definition
00261 0 50000 0 00030 1763 TRERR CLA ERRBX F4431760
Reference
00244 −0 10000 0 00261 1750 TNZ TRERR IF NOT ZERO, HAS BEEN AN ERROR F4431630

␣TRLXD = 1670

Definition
03206 −0 53400 4 00122 1583 TRLXD LXD OUTBX,4 RESTORE INDEX REGISTERS F4427090

␣TRNOM = 44

Definition
00054 0 02000 0 03131 903 TRNOM TRA NOMOR F4420290
Reference
03121 0 50000 0 00054 1527 LSTBLT CLA TRNOM END OF TIFGO--PREVENT FURTHER F4426530

␣TROPS = 229

Definition
00345 0 02000 0 00346 2349 TROPS TRA STOCD PDX--INDEX HAS 1, WANT 1 F4462370
Reference
00332 0 10000 2 00346 2337 TZE TROPS+1,2 TRANSFER WHEN FOUND F4462250

␣TROUT = 96

Definition
00140 1 00002 2 00147 1968 TROUT TXI ENTERP,2,2 TAKE TRANSFER OUT F4440850

References (2)

	00100	−0 12000 0 00140	1936		TMI	TROUT CODE IS 100-- DO NO IF	F4440530
	00135	0 04000 0 00140	1965		TLQ	TROUT TRANSFER OUT--LOOP DONE	F4440820

␣TRTIN = 198

Definition
00306 1 00004 1 00143 1069 TRTIN TXI FNDAS,1,4 TSX IS OP CODE F4421950
Reference
00266 0 10000 4 00307 1053 TZE TRTIN+1,4 ENDINGS--TRANSFER WHEN FOUND F4421790

␣TRTSX = 1646

Definition
03156 0 07400 4 00004 1559 TRTSX TSX RDFORT,4 THE TRA TABLE HAS OVERFLOWED F4426850
Reference
03131 0 50000 0 03156 1535 NOMOR CLA TRTSX TIFRD IS ALL USED - STORE A TSX F4426610

␣TRTTR = 201

Definition
00311 0 02000 0 00327 1072 TRTTR TRA TRACSM+3 TTR F4421980
Reference
00316 0 10000 4 00312 1077 TZE TRTTR+1,4 TRANSFER IF FOUND F4422030

␣TRWRS = 1647

Definition
03157 0 76600 0 00301 1560 TRWRS WRS TRADRM SELECT DRUM F4426860

References (3)

03155	−0 12000 0 03157	1558	TMI	TRWRS NO OVERFLOW--CONTINUE	F4426840
03203	0 50000 0 03157	1580	CLA	TRWRS SET ADDRESS FOR NEXT BLOCK	F4427060
03205	0 62100 0 03157	1582	STA	TRWRS	F4427080

␣TSTAD = 459

Definition

		1351				F4424770
		1352			THIS ROUTINE TESTS FOR A TRANSFER TO THE BEGINNING OF A DO	F4424780
		1353			AND MAKES A SET ENTRY FOR THE DO.	F4424790
00713	−0 63400 1 00125	1354	TSTAD	SXD	ERAS1M,1 SAVE INDEX REGISTER FOR TRA BACK	F4424800

References (2)

	00662	0 02000 0 00713	1318		TRA	TSTAD BACK TO MAIN ROUTINE	F4424440
	01102	0 60100 0 00713	1481		STO	TSTAD	F4426070

␣TSTCS = 182

Definition
00266 0 50000 1 06017 286 TSTCS CLA INSTA−5,1 THIS IS A TEST INSTRUCTION F4411770

References (3)

00154	0 02000 0 00266	212	TRA	TSTCS DCT	F4411030
00155	0 02000 0 00266	213	TRA	TSTCS RTT	F4411040
00156	0 02000 0 00266	214	TRA	TSTCS MSE	F4411050

␣TSTOP = 213

Definition
00325 −0 63400 2 00067 2332 TSTOP SXD ERAS1R,2 SAVE INDEX F4462200
Reference
00374 0 02000 0 00324 2372 TRA TSTOP−1 F4462600

␣TSTTG = 234

Definition
00352 −2 00017 4 00362 2354 TSTTG TNX TXINS,4,ZTAG TEST FOR END OF BLOCK F4462420
Reference
00351 1 00001 4 00352 2353 TXI TSTTG,4,1 SET FOR NEXT WORD IN TAG LIST F4462410

␣TSTTR = 175

Definition

		1040			IS FOLL0WED BY A STA, IT CANNOT	F4421660
		1041			BE THE END OF A BASIC BLOCK.	F4421670
		1042			ALSO THE STA CANNOT BE AN	F4421680
		1043			ASSIGN, PSE, TRANSFER, OR SKIP.	F4421690
		1044			IT CAN ONLY BE A CERTAINTY CASE	F4421700
		1045			OR INNOCUOUS.	F4421710
00257	0 50000 1 03677	1046	TSTTR	CLA	INSTM−4,1 IS THIS LAST INSTRUCTION IN A BB	F4421720

Reference
00163 −0 10000 0 00257 980 TNZ TSTTR NOT A PSE, LOOK FOR A TRANSFER F4421060

␣TXFAS = 152

Definition
00230 1 00004 1 00143 1017 TXFAS TXI FNDAS,1,4 NOT END OF BB, LOOK AT NEXT INSTR. F4421430

References (3)

00430	0 10000 0 00230	1152	TZE	TXFAS NO-- IT IS NOT ANYTHING	F4422780
00433	0 10000 0 00230	1155	TZE	TXFAS	F4422810
00513	−0 10000 0 00230	1204	TNZ	TXFAS NO,THIS IS NOT A BB END	F4423300

␣TXIBB = 259

Definition
D 00403 1 00000 1 00406 370 TXIBB TXI CLAB,1 F4412610
Reference
00376 0 62200 0 00403 365 STD TXIBB F4412560

␣TXINS = 242

Definition
00362 1 00004 1 00363 2362 TXINS TXI TXINS+1,1,4 F4462500

References (4)

00320	0 10000 0 00362	2327		TZE	TXINS NO	F4462150
00352	−2 00017 4 00362	2354	TSTTG	TNX	TXINS,4,ZTAG TEST FOR END OF BLOCK	F4462420
00362	1 00004 1 00363	2362	TXINS	TXI	TXINS+1,1,4	F4462500
00371	0 10000 0 00362	2369		TZE	TXINS NO	F4462570

␣TXITF = 292

Definition
00444 1 00014 1 00445 406 TXITF TXI TXITF+1,1,12 IXTAG, END FILE, 9 TABLES F4412970
Reference
00444 1 00014 1 00445 406 TXITF TXI TXITF+1,1,12 IXTAG, END FILE, 9 TABLES F4412970

␣TXLDO = 531

Definition
01023 −3 00002 1 01046 659 TXLDO TXL STOREA,1,2 IS THERE ANOTHER ENTRY TO BE F4415580

References (3)

01025	1 77776 1 01023	662	TXI	TXLDO,1,−2 STORED ADDRESS SMALLER, LOOK AT	F4415530
01037	1 77776 1 01023	673	TXI	TXLDO,1,−2	F4415640
01045	1 77776 1 01023	679	TXI	TXLDO,1,−2	F4415700

␣VBLN2 = 692

Definition
01264 0 50000 0 00101 834 VBLN2 CLA LMPY SET EXIT ADDRESS F4417250
Reference
01252 −0 10000 0 01264 824 TNZ VBLN2 YES,GET NO. FROM DVFQ F4417150

␣VRBLN = 694

Definition
01266 0 50000 0 00102 836 VRBLN CLA LSTQ SET EXIT ADDRESS F4417270

References (2)

	01225	−0 10000 0 01266	803		TNZ	VRBLN VARIABLE,GET FROM DVFQ	F4416940
	01265	0 02000 0 01267	835		TRA	VRBLN+1	F4417260

␣WRSET = 538

Definition

		1437				F4425630
		1438			THIS ROUTIRE WRITES A BLOCK OF SETS ON DRUM 3.	F4425640
01032	−0 63400 4 00122	1439	WRSET	SXD	OUTBX,4 SAVE INDEX FOR RETURN	F4425650

References (5)

00177	0 07400 4 01032	992	TSX	WRSET,4 GO TO DRUM ROUTINE	F4421180
00216	0 07400 4 01032	1007	TSX	WRSET,4 WRITE BLOCK ON DRUM	F4421330
00240	0 07400 4 01032	1025	TSX	WRSET,4 PUT BLOCK ON DRUM	F4421510
00627	0 07400 4 01032	1280	TSX	WRSET,4 WRITE LAST BLOCK OF SETS ON DRUM	F4424060
00744	0 07400 4 01032	1379	TSX	WRSET,4 YES, WRITE BLOCK ON DRUM	F4425050

␣WRTAG = 235

Definition
00353 0 76600 0 00223 2355 WRTAG WRS TAGTAP END OF BLOCK--WRITE ON TAPE F4462430
Reference
00410 0 02000 0 00353 2384 TRA WRTAG F4462720

␣WRTG2 = 261

Definition
00405 0 50000 0 00404 2381 WRTG2 CLA TPL F4462690
Reference
00402 3 00001 4 00405 2378 TXH WRTG2,4,1 F4462660

␣WRTRA = 1639

Definition

		1549				F4426750
		1550			THIS ROUTINE WRITES A BLOCK OF THE TRA TABLE ON THE DRUM	F4426760
		1551			WITH CHECK SUM	F4426770
03147	−0 63400 4 00122	1552	WRTRA	SXD	OUTBX,4 SAVE INDFX FOR RETURN	F4426780

References (4)

00142	0 07400 4 03147	962	TSX	WRTRA,4 WRITE TRA BLOCK ON DRUM	F4420880
00371	0 07400 4 03147	1121	TSX	WRTRA,4 WRITE BLOCK ON DRUM	F4422470
00502	0 07400 4 03147	1195	TSX	WRTRA,4 WRITE BLOCK OF TRA ON DRUM	F4423210
00626	0 07400 4 03147	1279	TSX	WRTRA,4 WRITE LAST BLOCK OF TRAS ON DRUM	F4424050

␣WRTST = 139

Definition

		1721				F4431340
		1722			THIS ROUTINE WRITES THE FINISHED SET TABLE ON THE DRUM	F4431350
00213	−0 53400 3 07776	1723	WRTST	LXD	SSBOX=,3 SET INDEX REGISTERS	F4431360

Reference
00203 −0 12000 0 00213 1713 TMI WRTST ALL DONE IF MINUS F4431260

␣WSETY = 39

Definition
00047 0 00000 0 01275 1611 WSETY SETADD F4430240

References (5)

00065	0 46000 0 00047	1627		LDA	WSETY LOCATE DRUM ADDRESS	F4430400
00142	0 46000 0 00047	1678		LDA	WSETY	F4430910
00167	0 50000 0 00047	1699	6SET	CLA	WSETY ANOTHER BLOCK-SET DRUM ADDRESS	F4431120
00171	0 60100 0 00047	1701		STO	WSETY	F4431140
00221	0 46000 0 00047	1729		LDA	WSETY	F4431420

␣XRDIN = 226

Definition
00342 0 02000 0 00135 333 XRDIN TRA AA+1 RETURN TO MAIN ROUTINE F4412240

References (5)

00123	0 62100 0 00342	186		STA	XRDIN SET EXIT ADDRESS	F4410770
00126	0 62100 0 00342	190		STA	XRDIN	F4410810
00307	0 60100 0 00342	306		STO	XRDIN	F4411970
00331	3 04230 1 00341	324	LNOINS	TXH	XRDIN−1,1,NOINS END OF RECORD--SEE IF IT IS END OF	F4412150
00344	0 60100 0 00342	335		STO	XRDIN	F4412260

␣XX14X = 52

Definition
00064 +000140000000 911 XX14X OCT 140000000 F4420370
Reference
00166 0 40200 0 00064 983 SUB XX14X F4421090

␣XX16X = 53

Definition
00065 +000160000000 912 XX16X OCT 160000000 F4420380
Reference
00506 0 40200 0 00065 1199 SUB XX16X F4423250

␣XX360 = 54

Definition
00066 +000360000000 913 XX360 OCT 360000000 F4420390
Reference
00512 0 40200 0 00066 1203 SUB XX360 F4423290

␣XXPSX = 51

Definition
00063 +000770000000 910 XXPSX OCT 770000000 F4420360

References (2)

	00165	−0 32000 0 00063	982		ANA	XXPSX	F4421080
	00505	−0 32000 0 00063	1198		ANA	XXPSX SEE IF IT IS 164-166	F4423240

0CTALM = 57

Definition
00071 +170000000000 916 0CTALM OCT 170000000000 F4420420
Reference
00427 0 40200 0 00071 1151 SUB 0CTALM SEE IF THIS IS A REAL TRANSFER F4422770

13TXIM = 323

Definition
00503 1 00004 1 00467 1196 13TXIM TXI 13TIX,1,4 SET INST. INDEX AND DO NEXT BRANCH F4423220
Reference
00500 −2 01274 4 00503 1193 STPCD TNX 13TXIM,4,ZTRA HAS THIS BLOCK OF TRA BEEN FILLED F4423190

13TXIN = 240

Definition
00360 1 00001 2 00352 1833 13TXIN TXI 13TXH,2,1 NO, GO TO NEXT BASIC BLOCK F4432460

References (4)

00320	0 62100 0 00357	1798	STA	13TXIN−1	F4432110
00367	−0 12000 0 00360	1840	TMI	13TXIN MINUS INDICATES NEXT ENTRY IN FRET	F4432530
00375	0 62100 0 00357	1846	STA	13TXIN−1 LOOKING AT FRET	F4432590
00415	0 62100 0 00357	1863	STA	13TXIN−1 LOOKING AT FRET.	F4432760

14ONES = 41

Definition
00051 +377770000000 2138 14ONES OCT 377770000000 F4460260
Reference
00122 −0 50100 0 00051 2183 ORA 14ONES OVERFLOW-ENTER HIGHEST POSSIBLE NO F4460710

1STLT= = 49

Definition
00061 −370000000000 147 1STLT= OCT −370000000000 F4410380
Reference
00141 −0 32000 0 00061 201 ANA 1STLT= IF FIRST LETTER IS A T,GO TO TRCS F4410920

1STT.= = 50

Definition
00062 −230000000000 148 1STT.= OCT −230000000000 F4410390
Reference
00144 0 40200 0 00062 204 SUB 1STT.= F4410950

9TSTND = 131

Definition
D 00203 −3 00000 2 00100 2108 9TSTND TXL LOOKDO,2 YES, IS IT END OF PROBLEM F4451210

References (2)

	00077	0 62200 0 00203	2040		STD	9TSTND	F4450530
	00103	−0 10000 0 00203	2044		TNZ	9TSTND DO HAS IF-LOOK AT NEXT	F4450570

BADPOS = 340

Definition
00524 0 07400 4 00004 454 BADPOS TSX RDFORT,4 TAPE POSITIONED INCORRECTLY F4413450

References (3)

00503	−0 10000 0 00524	437	TNZ	BADPOS	F4413280
00542	−0 10000 0 00524	471	TNZ	BADPOS	F4413620
00731	−0 10000 0 00524	597	TNZ	BADPOS	F4414880

BBBB.J = 141

Definition

	2			SECTION 4 - FLOW ANALYSIS	F4400020
	3			ROBERT C. BRILL - NOVEMBER 13, 1958	F4400030
	4				F4400040
	5			NOTE - THIS LISTING CORRESP0NDS TO THE FORTRAN II 4-1-6-2	F4400050
	6			SYSTEM TAPE. TO MAKE IT CORRESP0ND TO THE 8-1-6-2 SYSTEM	F4400060
	7			TAPE MAKE THE FOLLOWING CHANGES IN THIS LISTING.	F4400070
	8			IN RECORD F0730000, LOCATI0N 77, CHANGE	F4400080
	9			000674000000 TO 003140000000	F4400090
	10			IN RECORD F0730000, LOCATI0N 632, CHANGE	F4400100
	11			000000000215 TO 000000001037	F4400110
	12				F4400120
	13				F4400130
	14			DEFINITI0N STATEMENTS	F4400140
00215	15	BBBB.J	SYN	141 THESE FIRST TWO DEFINITI0NS MAKE	F4400150

Reference
00632 0 00000 0 00215 2554 GP1..J HTR BBBB.J ADDRESS HAS B. F4464420

BBLADD = 1200

Definition
02260 67 BBLADD SYN 1200 DRUM ADDRESS FOR BB LIST F4400670

References (2)

	00051	0 00000 0 02260	1613	BBLYN		BBLADD	F4430260
	00063	0 00000 0 02260	2149	BBLYR		BBLADD	F4460370

BBLDRM = 195

Definition
00303 63 BBLDRM SYN 195 BBLIST DRUM (LOGICAL 3) F4400630

References (2)

	00113	0 76600 0 00303	1651		WRS	BBLDRM	F4430640
	00236	0 76200 0 00303	2275	BRDS	RDS	BBLDRM	F4461630

BBLIST = 4091

Definition
07773 70 BBLIST SYN 4091 THE FOLLOWING ARE THE BASE F4400700

References (28)

	06500	71	DOLIST	SYN	BBLIST−ZBB+1 ADDRESSES OF ALL TABLES	F4400710
	07774	83	SETLOC	SYN	BBLIST+1	F4400830
	07773	84	TRATBL	SYN	BBLIST	F4400840
	06500	93	TAG	SYN	BBLIST−ZBB+1	F4400930
00114	0 60100 0 07773	179		STO	BBLIST STORE MARK FOR END OF B B LIST	F4410700
00402	0 34000 1 07774	369		CAS	BBLIST+1,1	F4412600
00412	0 56000 1 07774	377		LDQ	BBLIST+1,1	F4412680
00416	0 56000 1 07774	381	BLDQ	LDQ	BBLIST+1,1 X SHOULD BE ENTERED HERE, SAVE NEXT	F4412720
00417	0 60100 1 07774	382		STO	BBLIST+1,1 ENTRY AND STORE X	F4412730
00422	0 50000 1 07774	385		CLA	BBLIST+1,1 NO, SHIFT NEXT ENTRY	F4412760
00423	−0 60000 1 07774	386		STQ	BBLIST+1,1	F4412770
00426	0 60100 1 07774	389		STO	BBLIST+1,1 YES, STORE LAST ENTRY	F4412800
00430	−0 60000 1 07774	391	BSTQ	STQ	BBLIST+1,1 STORE LAST ENTRY	F4412820
01062	0 34000 2 07773	696	LDQ	CAS	BBLIST,2 COMPARE TO INST NO OF BEG OF BB	F4415870
01071	0 34000 2 07773	703		CAS	BBLIST,2 COMPARE TO BB OF ADDR FIRST	F4415940
00171	0 40200 2 07772	986		SUB	BBLIST−1,2 INSTRUCTION STARTS A BB	F4421120
00226	0 40200 2 07772	1015		SUB	BBLIST−1,2 (CANT BE A TRANSFER, SKIP, ETC.)	F4421410
00260	0 40200 2 07772	1047		SUB	BBLIST−1,2	F4421730
00701	0 34000 4 07773	1341		CAS	BBLIST,4	F4424670
00114	0 36100 1 07773	1652		ACL	BBLIST,1 COMPUTE CHECK SUM	F4430650
00116	0 36100 0 07773	1654		ACL	BBLIST	F4430670
00121	0 70000 2 07773	1657		CPY	BBLIST,2 COPY LIST	F4430700
00123	0 70000 0 07773	1659		CPY	BBLIST COPY LAST WORD IN LIST	F4430720
00241	0 70000 1 07773	2278	BCPY	CPY	BBLIST,1	F4461660
00243	0 70000 0 07773	2280		CPY	BBLIST	F4461680
00245	0 36100 2 07773	2282	BACL	ACL	BBLIST,2	F4461700
00247	0 36100 0 07773	2284		ACL	BBLIST	F4461720
00365	0 40200 2 07773	2365		SUB	BBLIST,2	F4462530

BBOX.= = 4092

Definition

	41			NOSTIC ROUTINE. A RDS SYSTAP	F4400410
	42			FOLL0WED BY A TRA RDFORT CALLS	F4400420
	43			IN THE NEXT RECORD OF THE	F4400430
	44			FORTRAN PROGRAM.	F4400440
07774	45	BBOX.=	SYN	4092 THE FOLL0WING ARE THE ADDRESSES	F4400450

References (19)

00116	0 60100 0 07774	181		STO	BBOX.=	F4410720
00513	−0 63400 2 07774	445		SXD	BBOX.=,2	F4413360
00561	−0 63400 2 07774	486		SXD	BBOX.=,2 SAVE LENGTH OF BB TABLE	F4413770
01065	0 50000 0 07774	1468		CLA	BBOX.= GET LENGTH OF BBLIST	F4425940
00111	−0 53400 3 07774	1649	LXD	LXD	BBOX.=,3 PUT BASIC BLOCK LIST ON DRUM	F4430620
00347	0 50000 0 07774	1824		CLA	BBOX.= ADD LENGTH OF TABLE	F4432370
00134	0 50000 0 07774	2197		CLA	BBOX.=	F4460850
00177	−0 53400 2 07774	2238	PRDBB	LXD	BBOX.=,2 PUT LAST BB ADDRESS INTO IR B	F4461260
00224	−0 53400 2 07774	2263	SHFTBB	LXD	BBOX.=,2 SET INDEX	F4461510
00240	−0 53400 3 07774	2277		LXD	BBOX.=,3	F4461650
00411	0 50000 0 07774	2385	FINAL	CLA	BBOX.=	F4462730
00413	0 60100 0 07774	2387		STO	BBOX.=	F4462750
00427	0 56000 0 07774	2399		LDQ	BBOX.=	F4462870
00472	0 40200 0 07774	2434		SUB	BBOX.= THE LAST BASIC BLOCK	F4463220
00474	0 50000 0 07774	2436		CLA	BBOX.= YES, TEST DECREMENT SHOULD BE	F4463240
00607	−0 53400 1 07774	2522		LXD	BBOX.=,1	F4464100
00610	0 50000 0 07774	2523		CLA	BBOX.=	F4464110
00612	0 60100 0 07774	2525		STO	BBOX.=	F4464130
00615	0 70000 2 07774	2528	WBL1	CPY	BBOX.=,2 WRITE BB LIST	F4464160

BBSIZE = 444

Definition
00674 16 BBSIZE SYN 444 THE PROGRAM COMPATIBLE WITH F4400160
Reference
00077 0 00674 0 00000 2161 BLKMAX 0,0,BBSIZE F4460490

BBTABL = 1291

Definition
02413 85 BBTABL SYN TRATBL−2800 F4400850

References (39)

	02414	86	FIXDOS	SYN	BBTABL+1	F4400860
	01114	87	NLIST	SYN	BBTABL−ZBB−3	F4400870
	01120	91	DOBLOK	SYN	BBTABL−ZBB+1	F4400910
00136	0 60100 2 02413	958		STO	BBTABL,2 PUT TRA TABLE ADDRESS INTO BB TABLE	F4420840
00322	0 63000 2 02413	1082		STP	BBTABL,2	F4422080
00332	0 63000 2 02413	1090		STP	BBTABL,2	F4422160
00335	0 63000 2 02413	1093		STP	BBTABL,2 STORE GO TO N CODE IN BB TABLE	F4422190
00422	0 63000 2 02413	1146		STP	BBTABL,2 STORE CODE FOR ENDING IN BB TABLE	F4422720
00444	0 63000 2 02413	1164		STP	BBTABL,2	F4422900
00464	0 63000 2 02413	1181		STP	BBTABL,2 PUT PROBABILITY CODE IN BB TABLE	F4423070
00515	0 63000 2 02413	1206		STP	BBTABL,2 PUT PROBABILITY CODE IN BB TABLE	F4423320
00531	0 63000 2 02413	1218		STP	BBTABL,2 STORE MSE CODE IN BBTABL	F4423440
00537	0 63000 2 02413	1224		STP	BBTABL,2 PUT PROBABILITY CODE IN BB TABLE	F4423500
00564	0 63000 2 02413	1245		STP	BBTABL,2 PUT PROBABILITY CODE IN BB TABLE	F4423710
00611	0 63000 2 02413	1266		STP	BBTABL,2 BB TABLE AND NO ENTRY IN TRATBL	F4423920
00620	0 50000 2 02413	1273		CLA	BBTABL,2 LOOK AT LAST ENTRY IN BB TABLE	F4423990
00625	0 60100 2 02412	1278		STO	BBTABL−1,2	F4424040
00207	0 50000 2 02413	1717		CLA	BBTABL,2 GET ADDRESS IN TRA TABLE	F4431300
00353	−0 50000 2 02413	1828		CAL	BBTABL,2 LOOK AT ENTRY IN BB TABLE	F4432410
00052	0 50000 1 02413	1914		CLA	BBTABL,1 GET ADDRESS OF SETS FOR THIS BB	F4440310
00055	0 50000 1 02412	1917		CLA	BBTABL−1,1 GET FIRST ADDRESS OF SETS FOR BB	F4440340
00065	−0 50000 1 02413	1925	ON	CAL	BBTABL,1	F4440420
00107	0 50000 1 02412	1943		CLA	BBTABL−1,1 SAVE END OF ENTRY IN TRA TABLE	F4440600
00117	−0 50000 1 02413	1951		CAL	BBTABL,1	F4440680
00127	0 50000 1 02413	2064		CLA	BBTABL,1 LOOK AT ENTRY ON BB TABLE	F4450770
00106	0 62100 0 02412	2171		STA	BBTABL−1	F4460590
00107	0 62100 0 02413	2172		STA	BBTABL	F4460600
00141	0 50000 2 02412	2202	CLABB	CLA	BBTABL−1,2 GET ADDRESS IN TRA TABLE	F4460900
00203	0 62100 2 02413	2242		STA	BBTABL,2 PUT PRED ADDR IN BB TABLE	F4461300
00213	0 62100 0 02412	2250		STA	BBTABL−1 PUT ZERO AS PRED FOR BB1	F4461380
00215	0 62100 0 02413	2252		STA	BBTABL FOR BB ZERO	F4461400
00226	−0 50000 2 02414	2265	CAL4	CAL	BBTABL+1,2	F4461530
00231	0 62200 2 02414	2268		STD	BBTABL+1,2	F4461560
00232	0 62100 2 02414	2269		STA	BBTABL+1,2	F4461570
00532	0 70000 1 02413	2473	CPY1R	CPY	BBTABL,1 WRITE SIX WORDS OF ENTRY	F4463610
00533	0 36100 1 02413	2474		ACL	BBTABL,1	F4463620
00555	0 70000 1 02413	2494	CPY1A	CPY	BBTABL,1	F4463820
00556	0 36100 1 02413	2495		ACL	BBTABL,1	F4463830
00601	0 70000 1 02413	2514	CPY1B	CPY	BBTABL,1	F4464020

BBTAGS = 3276

Definition
06314 95 BBTAGS SYN INST.R−100 F4400950

References (6)

00314	0 60100 2 06314	2323		STO	BBTAGS,2	F4462110
00401	0 60100 2 06314	2377		STO	BBTAGS,2	F4462650
00534	0 70000 1 06314	2475		CPY	BBTAGS,1	F4463630
00535	0 36100 1 06314	2476		ACL	BBTAGS,1	F4463640
00557	0 70000 1 06314	2496	CPY2A	CPY	BBTAGS,1	F4463840
00560	0 36100 1 06314	2497		ACL	BBTAGS,1	F4463850

BBTBOX = 4095

Definition
07777 51 BBTBOX SYN 4095 F4400510

References (5)

00415	0 60100 0 07777	2389		STO	BBTBOX	F4462770
00433	0 50000 0 07777	2403	NXTBL	CLA	BBTBOX COMPUTE WRS ADDRESSES	F4462910
00436	0 50000 0 07777	2406		CLA	BBTBOX	F4462940
00455	0 40000 0 07777	2421		ADD	BBTBOX	F4463090
00457	0 60100 0 07777	2423		STO	BBTBOX	F4463110

BEGCLA = 85

Definition
188 BLOCK OF COMPILED INSTRUCTIONS F4410790

00125 0 50000 0 00100 189 BEGCLA CLA LXRDN RESTORE USUAL EXIT ADDRESS F4410800
Reference
00077 0 02000 0 00125 161 LBEG TRA BEGCLA F4410520

BLKMAX = 63

Definition
00077 0 00674 0 00000 2161 BLKMAX 0,0,BBSIZE F4460490

References (3)

00421	0 56000 0 00077	2393		LDQ	BLKMAX COMPUTE NO. OF BB IN BLOCK	F4462810
00447	0 40200 0 00077	2415		SUB	BLKMAX	F4463030
00453	0 40000 0 00077	2419	LSTBLR	ADD	BLKMAX FORM NEXT DRUM ADDRESS	F4463070

BLKSIZ = 61

Definition
00075 0 00000 0 00000 2159 BLKSIZ LENGTH OF BLOCK TO BE STORED F4460470

CHSMCR = 600

Definition
01130 0 50000 0 00106 736 CHSMCR CLA ERAS2= F4416270
Reference
01142 0 02000 0 01130 746 TRA CHSMCR F4416370

CLATFA = 302

Definition
00456 0 50000 1 06024 416 CLATFA CLA TIFRD,1 LOOK AT THIS WORD OF TIFGO F4413070
Reference
00453 0 02000 0 00456 413 TRA CLATFA REGULAR EXIT FROM COPY F4413040

CLTRA= = 712

Definition

		854				F4417450
		855			THIS ROUTINE CLEARS THE TRANSFER TABLE AND PRESETS ALL	F4417460
		856			COUNTERS TO ZERO	F4417470
01310	0 56000 0 00031	857	CLTRA=	LDQ	LA1	F4417480

References (3)

	01017	−3 00000 1 01305	655		TXL	CLTRA=−3,1,0 IF NO DOS, OMIT ROUTINES WITH DOS	F4415460
	01216	−3 77777 1 01310	795	DTGBX	TXL	CLTRA=,1,−1 IS DOTAG FINISHED--IF SO EXIT	F4416860
D	01247	−3 00000 1 01310	821	DTGBX2	TXL	CLTRA=,1 TEST FOR END	F4417120

CNST2A = 68

Definition
00104 2 00000 1 00406 166 CNST2A TIX CLAB,1,0 F4410570
Reference
00373 0 56000 0 00104 362 LDQ CNST2A F4412530

CNST2M = 45

Definition
00055 2 00000 4 00705 904 CNST2M TIX C3CLA,4,0 TO TEXT FOR END OF LOOKUP F4420300
Reference
00671 0 56000 0 00055 1333 LDQ CNST2M SET UP TEST FOR END F4424590

CONSTA = 67

Definition
00103 +002000000000 165 CONSTA OCT 2000000000 F4410560
Reference
00371 0 50000 0 00103 360 CLA CONSTA F4412510

CONSTM = 46

Definition
00056 +002000000000 905 CONSTM OCT 2000000000 F4420310
Reference
01074 0 50000 0 00056 1475 CLA CONSTM F4426010

CPY3FT = 439

Definition
00667 0 70000 4 06023 563 CPY3FT CPY FRET.=,4 COPY FIRST FREQUENCY IN ENTRY F4414540
Reference
00705 1 00001 4 00667 577 TXI CPY3FT,4,1 COPY NEXT WORD F4414680

CPY7FT = 404

Definition
00624 0 70000 1 06024 525 CPY7FT CPY TIFRD,1 COPY TABLE F4414160
Reference
00632 0 62100 0 00624 531 STA CPY7FT F4414220

CPYDOT = 586

Definition
01112 0 70000 1 04216 722 CPYDOT CPY DOCARE,1 COPY TABLE F4416130
Reference
01115 2 00002 4 01112 725 TIX CPYDOT,4,2 TEST FOR END F4416160

DECMKM = 48

Definition
00060 +077777000000 907 DECMKM OCT 77777000000 F4420330

References (9)

00161	−0 32000 0 00060	978	ANA	DECMKM TEST FOR A SET SENSE LIGHT	F4421040
00264	−0 32000 0 00060	1051	ANA	DECMKM LOOK AT OP CODE	F4421770
00314	−0 32000 0 00060	1075	ANA	DECMKM AT OP CODE FOR TYPE OF ENDING	F4422010
00350	−0 32000 0 00060	1104	ANA	DECMKM THAT OF NEXT ENTRY IN TIFRD	F4422300
00406	−0 32000 0 00060	1134	ANA	DECMKM THIS BASIC BLOCK	F4422600
00511	−0 32000 0 00060	1202	ANA	DECMKM NO, SEE IF ADDR IS 360	F4423280
00553	−0 32000 0 00060	1236	ANA	DECMKM CHECK TO SEE IF IT IS FOLLOWED BY A	F4423620
00560	−0 32000 0 00060	1241	ANA	DECMKM	F4423670
00602	−0 32000 0 00060	1259	ANA	DECMKM	F4423850

DECMKP = 28

Definition
00034 0 77777 0 00000 1896 DECMKP 0,0,−1 F4440130
Reference
00112 −0 32000 0 00034 1946 ANA DECMKP AND OUT ALL BUT VALUE FOR N IN TRAT F4440630

DECMKR = 39

Definition
00047 +077777000000 2136 DECMKR OCT 77777000000 F4460240

References (3)

00330	−0 32000 0 00047	2335	ANA	DECMKR	F4462230
00416	0 50000 0 00047	2390	CLA	DECMKR WANT TXL TO HAVE BLK-1	F4462780
00470	−0 32000 0 00047	2432	ANA	DECMKR	F4463200

DOADDR = 1720

Definition
03270 66 DOADDR SYN 1720 DRUM ADDRESS FOR DO LIST F4400660

References (2)

	00052	0 00000 0 03270	1614	DOYN		DOADDR	F4430270
	00036	0 00000 0 03270	2002	DOYY		DOADDR	F4450150

DOBLOK = 592

Definition
01120 91 DOBLOK SYN BBTABL−ZBB+1 F4400910

References (10)

	00443	92	LCNTR	SYN	DOBLOK−300−1	F4400920
00050	0 70000 1 01120	2014		CPY	DOBLOK,1	F4450270
00054	0 36100 2 01120	2018		ACL	DOBLOK,2	F4450310
00100	0 50000 2 01117	2041	LOOKDO	CLA	DOBLOK−1,2 LOOK AT ENTRY IN DO LIST	F4450540
00107	0 50000 2 01121	2048	4CLA	CLA	DOBLOK+1,2	F4450610
00111	0 50000 2 01122	2050		CLA	DOBLOK+2,2	F4450630
00113	0 50000 2 01117	2052	NTHRDO	CLA	DOBLOK−1,2 IS THERE ANOTHER TXL TO THIS ADDR.	F4450650
00114	0 40200 2 01121	2053		SUB	DOBLOK+1,2	F4450660
00120	0 50000 2 01122	2057	CLANO	CLA	DOBLOK+2,2 GET NO. OF TIMES IN THIS DO	F4450700
00152	0 40200 2 01117	2083		SUB	DOBLOK−1,2 COMPARE TO DO LIST	F4450960

DOBOX= = 4093

Definition
07775 46 DOBOX= SYN 4093 OF SPECIAL COUNTERS F4400460

References (10)

00117	0 60100 0 07775	182		STO	DOBOX=	F4410730
00230	−0 53400 4 07775	256	DOCSA	LXD	DOBOX=,4 THIS IS THE END OF A DO	F4411470
00236	−0 63400 4 07775	262		SXD	DOBOX=,4 STORE DO LIST ADDRESS	F4411530
01016	−0 53400 1 07775	654	SRTDO	LXD	DOBOX=,1 PUT TOTAL LNGTH OF DOLIST IN ERAS2=	F4415450
01055	0 50000 0 07775	691		CLA	DOBOX= PUT NUMBER OF WORDS IN LIST INTO	F4415820
01317	−0 53400 1 07775	864		LXD	DOBOX=,1	F4417550
01077	0 50000 0 07775	1478		CLA	DOBOX= IF THERE ARE NO DOS, DO NOT TEST	F4426040
00125	−0 53400 3 07775	1663		LXD	DOBOX=,3 COPY DO LIST ONTO DRUM	F4430760
00045	−0 53400 3 07775	2011		LXD	DOBOX=,3	F4450240
00076	0 50000 0 07775	2039		CLA	DOBOX= PUT LENGTH OF TNX TABLE IN 9TSTND	F4450520

DOCARE = 2190

Definition
04216 78 DOCARE SYN DOTAG F4400780

References (5)

01112	0 70000 1 04216	722	CPYDOT	CPY	DOCARE,1 COPY TABLE	F4416130
01114	0 70000 1 04363	724		CPY	DOCARE+101,1 COPY CHECKSUMS	F4416150
01121	0 36100 1 04217	729		ACL	DOCARE+1,1	F4416200
01125	0 36100 2 04363	733	ACLB	ACL	DOCARE+101,2 SUM CHECKS	F4416240
01242	0 34000 4 04217	816	DDCAS	CAS	DOCARE+1,4 TO A TXL	F4417070

DOCRDR = 193

Definition
00301 59 DOCRDR SYN 193 DOCARE DRUM (LOGICAL 1) F4400300
Reference
01104 0 76200 0 00301 716 RDSDOT RDS DOCRDR SELECT DOCARE DRUM F4416070

DOCSFT = 445

Definition
00675 0 50000 4 06021 569 DOCSFT CLA FRET.=−2,4 NEW FORMULA NUMBER,ENTRY JUST F4414600
Reference
00710 0 02000 0 00675 580 TRA DOCSFT ERROR EXIT F4414710

DODRUM = 193

Definition
00301 60 DODRUM SYN 193 DOLIST DRUM (LOGICAL 1) F4400600

References (2)

	00127	0 76600 0 00301	1665		WRS	DODRUM SELECT DRUM	F4430780
	00044	0 76200 0 00301	2010	RDSDOL	RDS	DODRUM	F4450230

DOLIST = 3392

Definition
06500 71 DOLIST SYN BBLIST−ZBB+1 ADDRESSES OF ALL TABLES F4400710

References (33)

	06024	72	INST.A	SYN	DOLIST−300	F4400720
	06024	73	TIFRD	SYN	DOLIST−300	F4400730
	06023	75	FRET.=	SYN	DOLIST−301	F4400750
	06024	79	TRA..M	SYN	DOLIST−300	F4400790
00233	0 60100 4 06501	259		STO	DOLIST+1,4 ADDRESS 0F TRANSFER INTO 0O LIST	F4411500
00235	0 60100 4 06500	261		STO	DOLIST,4	F4411520
01021	0 50000 1 06500	657	CLADO	CLA	DOLIST,1 TAKE LAST ENTRY NOT ALREADY SORTED	F4415480
01022	0 56000 1 06501	658		LDQ	DOLIST+1,1 PUT ADDRESS IN AC, LOC IN MQ	F4415490
01024	0 34000 1 06502	661		CAS	DOLIST+2,1 YES, COMPARE ADDRESSES	F4415520
01030	0 50000 1 06503	666		CLA	DOLIST+3,1 ENTRIES	F4415570
01031	−0 60000 1 06503	667	STQDO	STQ	DOLIST+3,1	F4415580
01034	0 50000 1 06502	670		CLA	DOLIST+2,1	F4415610
01035	−0 60000 1 06502	671		STQ	DOLIST+2,1	F4415620
01041	0 50000 1 06503	675		CLA	DOLIST+3,1	F4415660
01047	0 60100 1 06500	681		STO	DOLIST,1 PREVIOUSLY SORTED, STORE JUST	F4415720
01050	−0 60000 1 06501	682		STQ	DOLIST+1,1 BEFORE THOSE ALREADY SORTED AND	F4415730
01061	0 50000 1 06477	695		CLA	DOLIST−1,1 ADD INST NO TO BE CHANGED (ADDR)	F4415860
01067	0 60100 1 06477	701		STO	DOLIST−1,1 REPLACE INSTR NO IN DO LIST	F4415920
01070	0 50000 1 06500	702		CLA	DOLIST,1 ADD INSTR NO OF LOC OF TXL	F4415930
01076	0 60100 1 06500	708		STO	DOLIST,1 INSTRUCTION NUMBER	F4415990
01077	0 50000 1 06477	709		CLA	DOLIST−1,1 PUT BB NO OF ADDRESS OF THIS DO	F4416000
01222	−0 60200 2 06477	799		ORS	DOLIST−1,2	F4416900
01237	0 62100 2 06500	813		STA	DOLIST,2 TEST FOR END	F4417040
01321	0 60100 1 06477	866		STO	DOLIST−1,1 STORE ENDMARK FOR DOLIST	F4417570
00405	0 50000 2 06500	1133	9CLAT	CLA	DOLIST,2 COMPARE LOCATION IN DO LIST TO	F4422590
00412	0 50000 2 06477	1138	CLAR	CLA	DOLIST−1,2 LOOK AT ADDRESS WORD IN DO LIST	F4422640
00415	0 50000 2 06500	1141		CLA	DOLIST,2 DO WITH IF-PUT LOOP COUNT IN	F4422670
00722	0 34000 4 06477	1361	C4CAS	CAS	DOLIST−1,4 COMPARE TO DO LIST	F4424870
00733	0 40200 4 06477	1370		SUB	DOLIST−1,4	F4424960
00736	0 34000 4 06500	1373		CAS	DOLIST,4 COMPARE TO END OF DO.	F4424990
00742	0 50000 4 06500	1377	C4ENT	CLA	DOLIST,4 ENTER SET FOR DO.	F4425030
00130	0 36100 1 06500	1666	2ACL	ACL	DOLIST,1 COMPUTE CHECK SUM	F4430790
00134	0 70000 2 06500	1670	2CPY	CPY	DOLIST,2 COPY TABLE	F4430830

DONOIF = 276

Definition
00424 −0 50000 0 00424 1148 DONOIF CAL DONOIF GET CODE FOR DO WITHOUT IF F4422740

References (2)

	00414	0 10000 0 00424	1140		TZE	DONOIF NO IF--TRANSFER	F4422660
	00424	−0 50000 0 00424	1148	DONOIF	CAL	DONOIF GET CODE FOR DO WITHOUT IF	F4422740

DRUM.J = 411

Definition
00633 0 50000 4 00002 2555 DRUM.J CLA 2,4 SET ADDRESSES DEPENDENT ON INITIAL F4464430

References (2)

	00125	0 07400 4 00633	2186	TSX	TSX	DRUM.J,4	F4460740
	00216	0 07400 4 00633	2253	TSX2	TSX	DRUM.J,4 PUT PRED TABLE ON DRUM	F4461410

DTGBX2 = 679

Definition
D 01247 −3 00000 1 01310 821 DTGBX2 TXL CLTRA=,1 TEST FOR END F4417120

References (2)

	01207	0 62200 0 01247	788		STD	DTGBX2 PUT LENGTH OF DOTAG IN FOR TEST	F4416790
	01244	1 77774 1 01247	818		TXI	DTGBX2,1,−4 NO-SET FOR NEXT ENTRY AND SAME TXL	F4417090

DVFQ.= = 3091

Definition
06023 76 DVFQ.= SYN FRET.= F4400760

References (5)

	04216	77	DOTAG	SYN	DVFQ.=−301−600	F4400770
00676	0 60100 1 06023	570		STO	DVFQ.=,1 COPIED WAS FOR A DO, MOVE TO	F4414610
00700	0 60100 1 06022	572		STO	DVFQ.=−1,1	F4414630
01275	0 34000 4 06023	843		CAS	DVFQ.=,4 COMPARE TO FORMULA NO. IN DVFQ	F4417340
01302	0 56000 4 06024	848	ENTER	LDQ	DVFQ.=+1,4	F4417390

DVFQB= = 73

Definition
00111 0 00001 0 00000 172 DVFQB= HTR 0,0,1 F4410630

References (2)

	01273	−0 53400 4 00111	841		LXD	DVFQB=,4	F4417320
	01303	−0 63400 4 00111	849		SXD	DVFQB=,4	F4417400

DVFTST = 700

Definition
D 01274 3 00000 4 01300 842 DVFTST TXH LDQ5,4 TEST FOR END OF DVFQ F4417330

References (2)

	00733	−0 63400 1 01274	599	CONTN	SXD	DVFTST,1 SAVE LENGTH OF DVFQ TABLE	F4414900
	01276	1 00002 4 01274	844		TXI	DVFTST,4,2 DVFQ TOO SMALL, TRY NEXT	F4417350

ENDBBQ = 86

Definition
00126 −0 53400 1 00041 2063 ENDBBQ LXD BBBOX,1 THIS IS END 0F BB IN DO WITHOUT IF F4450760

References (2)

	00115	−0 10000 0 00126	2054		TNZ	ENDBBQ NO, LOOK AT END OF THIS B.B.	F4450670
	00154	0 02000 0 00126	2085		TRA	ENDBBQ	F4450980

ENDMK= = 42

Definition
00052 +377777777777 140 ENDMK= OCT 377777777777 F4410310

References (3)

00113	0 50000 0 00052	178	CLA	ENDMK=	F4410690
00740	0 50000 0 00052	604	CLA	ENDMK= STORE HIGHEST NO AS TOTAL PROB.	F4414950
00750	0 56000 0 00052	612	LDQ	ENDMK=	F4415030

ENDMKM = 58

Definition
00072 +377777777777 917 ENDMKM OCT 377777777777 F4420430
Reference
01014 0 50000 0 00072 1423 CLA ENDMKM F4425490

ENDMKN = 32

Definition
00040 +377777777777 1604 ENDMKN OCT 377777777777 F4430170
Reference
00435 0 50000 0 00040 1879 CLA ENDMKN F4432920

ENTERP = 103

Definition
00147 0 50000 2 07772 1975 ENTERP CLA TRATBL−1,2 THIS IS THE BRANCH TO BE TAKEN F4440920

References (8)

00076	−0 12000 0 00147	1934		TMI	ENTERP CODE IS 011--CERTAINTY	F4440510
00114	0 10000 0 00147	1948		TZE	ENTERP YES, ENTER	F4440650
00121	0 02000 0 00147	1953		TRA	ENTERP ENTER TRA TO FIRST BRANCH GIVEN	F4440700
00130	0 02000 0 00147	1960		TRA	ENTERP ENTER TRANSFER	F4440770
00131	1 00002 2 00147	1961	MSETXI	TXI	ENTERP,2,2 ENTER TRANSFER	F4440780
00137	0 02000 0 00147	1967		TRA	ENTERP TAKE TRANSFER BACK	F4440840
00140	1 00002 2 00147	1968	TROUT	TXI	ENTERP,2,2 TAKE TRANSFER OUT	F4440850
00145	0 04000 0 00147	1973		TLQ	ENTERP FOUND, TAKE TRANSFER	F4440900

ERAS1= = 69

Definition
00105 0 00000 0 00000 167 ERAS1= F4410580

References (43)

00142	0 60200 0 00105	202		SLW	ERAS1=	F4410930
00143	0 50000 0 00105	203		CLA	ERAS1=	F4410940
00313	−0 63400 1 00105	310		SXD	ERAS1=,1	F4412010
00341	−0 53400 1 00105	332		LXD	ERAS1=,1 NO ERROR,RESTORE INDEX REGISTER	F4412230
00357	−0 63400 1 00105	350		SXD	ERAS1=,1	F4412410
00432	−0 53400 1 00105	393	BOUT	LXD	ERAS1=,1 RESTORE INDEX REGISTER	F4412840
00442	0 70000 0 00105	404		CPY	ERAS1= GET NO. OF RECORDS IN DOTAG	F4412950
00443	−0 53400 1 00105	405		LXD	ERAS1=,1 BACKSPACE OVER COUNT, END FILE,	F4412960
00451	0 70000 0 00105	411		CPY	ERAS1= COPY NO OF WORDS IN TABLE	F4413020
00470	0 62200 0 00105	426		STD	ERAS1= LEAVE ENOUGH SPACE FOR CORRES-	F4413170
00473	0 40200 0 00105	429		SUB	ERAS1=	F4413200
00531	0 70000 0 00105	462		CPY	ERAS1= COPY TABLE NUMBER	F4413530
00540	0 50000 0 00105	469		CLA	ERAS1= CHECK FOR POSITIONING OF TAPE	F4413600
00620	0 60200 0 00105	521		SLW	ERAS1= STORE CHECK SUM	F4414120
00626	0 70000 0 00105	527		CPY	ERAS1= COPY CHECK SUM	F4414180
00651	0 70000 0 00105	549	RDINF	CPY	ERAS1= COPY NUMBER OF WORDS IN TABLE	F4414400
00652	−0 53400 2 00105	550		LXD	ERAS1=,2 PUT NUMBER OF WORDS INTO INDEX B	F4414410
00737	0 60100 0 00105	603		STO	ERAS1= STORE AS DIVISOR	F4414940
00746	0 22100 0 00105	610		DVP	ERAS1= DIVIDE BY TOTAL FREQUENCY TO GET	F4415010
00773	0 60200 0 00105	633		SLW	ERAS1= STORE CHECKSUM	F4415240
01000	0 70000 0 00105	638		CPY	ERAS1= COPY CHECK SUM	F4415290
01027	0 60100 0 00105	665		STO	ERAS1= STORED ADDRESS LARGER, EXCHANGE	F4415560
01032	0 56000 0 00105	668		LDQ	ERAS1=	F4415590
01033	0 60100 0 00105	669		STO	ERAS1=	F4415600
01036	0 56000 0 00105	672		LDQ	ERAS1=	F4415630
01040	0 60100 0 00105	674	COMPR	STO	ERAS1= ADDRESSES EQUAL,COMPARE LOCATIONS	F4415650
01044	0 50000 0 00105	678	CLA2	CLA	ERAS1= RESTORE ACCUMULATOR	F4415690
01106	0 70000 0 00105	718		CPY	ERAS1=	F4416090
01107	0 53400 4 00105	719		LXA	ERAS1=,4	F4416100
01120	−0 50000 0 00105	728		CAL	ERAS1=	F4416190
01123	0 60200 0 00105	731		SLW	ERAS1=	F4416220
01131	0 40200 0 00105	737		SUB	ERAS1=	F4416280
01156	0 70000 0 00105	761	CPY2D	CPY	ERAS1=	F4416520
01157	0 70000 0 00105	762		CPY	ERAS1=	F4416530
01160	0 70000 0 00105	763		CPY	ERAS1=	F4416540
01164	0 70000 0 00105	767		CPY	ERAS1=	F4416580
01165	0 70000 0 00105	768		CPY	ERAS1=	F4416590
01211	0 60100 0 00105	790		STO	ERAS1=	F4416810
01227	0 62100 0 00105	805		STA	ERAS1=	F4416960
01231	0 56000 0 00105	807		LDQ	ERAS1= DIVIDE (N2-N1+N3) BY N3 TO GET	F4416980
01235	−0 60000 0 00105	811	STQDTG	STQ	ERAS1=	F4417020
01236	0 50000 0 00105	812		CLA	ERAS1= SHIFT TO AC	F4417030
01262	0 20000 0 00105	832	MPY	MPY	ERAS1=	F4417230

ERAS1M = 85

Definition
00125 0 00000 0 00000 944 ERAS1M 0 F4420700

References (12)

00272	0 60200 0 00125	1057		SLW	ERAS1M	F4421830
00273	0 50000 0 00125	1058		CLA	ERAS1M	F4421840
00632	−0 63400 4 00125	1288	SRCHN	SXD	ERAS1M,4 SAVE INDEX TO RETURN	F4424140
00651	−0 53400 4 00125	1303		LXD	ERAS1M,4 RESTORE INDEX FOR TRA BACK	F4424290
00713	−0 63400 1 00125	1354	TSTAD	SXD	ERAS1M,1 SAVE INDEX REGISTER FOR TRA BACK	F4424800
00726	−0 53400 1 00125	1365		LXD	ERAS1M,1 SAVE SET INDEX AN0 RESTORE INDEX	F4424910
01047	0 60200 0 00125	1452		SLW	ERAS1M STORE CHECK SUM	F4425780
01054	0 70000 0 00125	1457		CPY	ERAS1M COPY CHECK SUM	F4425830
03065	−0 63400 2 00125	1499		SXD	ERAS1M,2 SAVE INDEX	F4426250
03116	−0 53400 2 00125	1524	TFLXD	LXD	ERAS1M,2 RESTORE INDEX REGISTER	F4426500
03164	0 60200 0 00125	1565		SLW	ERAS1M STORE CHECK SUM	F4426910
03170	0 70000 0 00125	1569		CPY	ERAS1M COPY CHECK SUM	F4426950

ERAS1N = 45

Definition
00055 0 00000 0 00000 1617 ERAS1N F4430300

References (16)

00071	0 70000 0 00055	1631		CPY	ERAS1N COPY CHECK SUM	F4430440
00077	0 40200 0 00055	1637		SUB	ERAS1N	F4430500
00117	0 60200 0 00055	1655		SLW	ERAS1N STORE CHECK SUM	F4430680
00124	0 70000 0 00055	1660		CPY	ERAS1N COPY CHECK SUM	F4430730
00132	0 60200 0 00055	1668		SLW	ERAS1N STORE CHECK SUM	F4430810
00136	0 70000 0 00055	1672		CPY	ERAS1N COPY CHECK SUM	F4430850
00146	0 70000 0 00055	1682		CPY	ERAS1N COPY CHECK SUM	F4430950
00154	0 40200 0 00055	1688		SUB	ERAS1N COMPARE CHECK SUMS	F4431010
00220	0 60200 0 00055	1728		SLW	ERAS1N STORE CHECK SUM	F4431410
00224	0 70000 0 00055	1732		CPY	ERAS1N COPY CHECK SUM	F4431450
00236	0 70000 0 00055	1744		CPY	ERAS1N COPY CHECK SUM	F4431570
00243	0 40200 0 00055	1749		SUB	ERAS1N COMPARE CHECK SUMS	F4431620
00310	0 70000 0 00055	1790		CPY	ERAS1N COPY CHECK SUM	F4432030
00323	0 40200 0 00055	1801		SUB	ERAS1N	F4432140
00417	−0 63400 4 00055	1865		SXD	ERAS1N,4 SAVE FRET ADDRESS	F4432780
00434	−0 53400 4 00055	1878	15LXD	LXD	ERAS1N,4 RESTORE INDEX	F4432910

ERAS1R = 55

Definition
00067 0 00000 0 00000 2153 ERAS1R F4460410

References (13)

00163	−0 60000 0 00067	2223		STQ	ERAS1R	F4461110
00166	0 50000 0 00067	2226		CLA	ERAS1R	F4461140
00167	−0 60000 0 00067	2227		STQ	ERAS1R	F4461150
00172	0 50000 0 00067	2230		CLA	ERAS1R	F4461180
00244	0 70000 0 00067	2281		CPY	ERAS1R	F4461690
00252	0 40200 0 00067	2287		SUB	ERAS1R	F4461750
00325	−0 63400 2 00067	2332	TSTOP	SXD	ERAS1R,2 SAVE INDEX	F4462200
00350	−0 53400 2 00067	2352		LXD	ERAS1R,2	F4462400
00537	0 60200 0 00067	2478		SLW	ERAS1R	F4463660
00546	0 70000 0 00067	2485		CPY	ERAS1R WHOLE BLOCK FITS, COPY CHECKSUM	F4463730
00552	0 70000 0 00067	2489		CPY	ERAS1R	F4463770
00562	0 60200 0 00067	2499		SLW	ERAS1R	F4463870
00571	0 70000 0 00067	2506	CPY7A	CPY	ERAS1R	F4463940

ERAS2= = 70

Definition
00106 0 00000 0 00000 168 ERAS2= F4410590

References (25)

00223	−0 63400 4 00106	251		SXD	ERAS2=,4 SAVE IN0EX REGISTER C	F4411420
00225	−0 53400 4 00106	253		LXD	ERAS2=,4 RESTORE INDEX REGISTER C	F4411440
00320	−0 63400 1 00106	315		SXD	ERAS2=,1 SAVE INDEX IN CASE OF ERROR	F4412060
00354	−0 53400 1 00106	343		LXD	ERAS2=,1 RESET INDEX REGISTER	F4412340
00450	0 70000 0 00106	410		CPY	ERAS2= COPY TABLE NUMBER	F4413010
00501	0 50000 0 00106	435		CLA	ERAS2= CHECK FOR POSITIONING OF TAPE	F4413260
00507	0 60100 0 00106	441		STO	ERAS2=	F4413320
00605	0 50000 0 00106	510	CLAER	CLA	ERAS2= HOW MANY WORDS ARE LEFT TO COPY	F4414010
00612	0 60100 0 00106	515		STO	ERAS2= STORE NO OF WORDS LEFT AFTER THIS	F4414060
00637	0 53400 1 00106	536	LXA6	LXA	ERAS2=,1 PUT LENGTH IN INDEX	F4414270
00641	0 60100 0 00106	538		STO	ERAS2=	F4414290
00650	0 70000 0 00106	548		CPY	ERAS2= COPY TABLE NUMBER	F4414390
00727	0 50000 0 00106	595		CLA	ERAS2= CHECK FOR POSITIONING OF TAPE	F4414860
00770	0 60100 0 00106	630		STO	ERAS2= STORE LENGTH OF BLOCK	F4415210
00775	0 70000 0 00106	635		CPY	ERAS2= COPY NO OF WORDS IN BLOCK	F4415260
01020	−0 63400 1 00106	656		SXD	ERAS2=,1	F4415470
01046	−0 53400 1 00106	680	STOREA	LXD	ERAS2=,1 NOW HAVE HIGHEST OF ENTRIES NOT	F4415710
01052	−0 63400 1 00106	684		SXD	ERAS2=,1 ALREADY SORTED, LOOK FOR HIGHEST	F4415750
01110	0 70000 0 00106	720		CPY	ERAS2=	F4416110
01124	−0 50000 0 00106	732		CAL	ERAS2=	F4416230
01127	0 60200 0 00106	735		SLW	ERAS2=	F4416260
01130	0 50000 0 00106	736	CHSMCR	CLA	ERAS2=	F4416270
01212	0 60100 0 00106	791		STO	ERAS2= CLEAR ERAS1= AND ERAS2=	F4416820
01254	0 62100 0 00106	826		STA	ERAS2= AND PUT IN MQ	F4417170
01256	0 56000 0 00106	828		LDQ	ERAS2= DIV N2-N1+N3 BY N3 TO GET NO. OF	F4417190

ERAS2M = 86

Definition
00126 0 00000 0 00000 945 ERAS2M 0 F4420710

References (5)

03074	0 70000 0 00126	1506	CPY	ERAS2M COPY LENGTH OF BLOCK	F4426320
03075	−0 53400 6 00126	1507	LXD	ERAS2M,6 SET INDEX FOR COUNT	F4426330
03101	−0 50000 0 00126	1511	CAL	ERAS2M	F4426370
03111	−0 53400 4 00126	1519	LXD	ERAS2M,4 WAS THIS A FULL BLOCK	F4426450
03123	0 50000 0 00126	1529	CLA	ERAS2M PUT NUMBER OF WORDS IN THIS BLOCK	F4426550

ERAS2N = 46

Definition
00056 0 00000 0 00000 1618 ERAS2N F4430310

References (13)

00075	0 60200 0 00056	1635		SLW	ERAS2N STORE CHECK SUM	F4430480
00076	0 50000 0 00056	1636		CLA	ERAS2N COMPARE CHECK SUMS	F4430490
00152	0 60200 0 00056	1686		SLW	ERAS2N	F4430990
00153	0 50000 0 00056	1687		CLA	ERAS2N	F4431000
00241	0 60200 0 00056	1747		SLW	ERAS2N	F4431600
00242	0 50000 0 00056	1748		CLA	ERAS2N	F4431610
00304	0 70000 0 00056	1786		CPY	ERAS2N COPY NO. 0F WORDS IN BLOCK	F4431990
00305	−0 53400 7 00056	1787		LXD	ERAS2N,7 SET INDEX REGISTERS	F4432000
00314	0 36100 0 00056	1794		ACL	ERAS2N	F4432070
00315	0 60200 0 00056	1795		SLW	ERAS2N	F4432080
00322	0 50000 0 00056	1800	11CLA	CLA	ERAS2N COMPARE CHECKSUMS	F4432130
00426	−0 60000 0 00056	1872		STQ	ERAS2N STORE PROBABILITY IN AC	F4432850
00430	0 40000 0 00056	1874	15ADD	ADD	ERAS2N ADD PROB. OF BRANCH FOR CUMULATING	F4432870

ERAS2R = 56

Definition
00070 0 00000 0 00000 2154 ERAS2R F4460420

References (2)

	00250	0 60200 0 00070	2285		SLW	ERAS2R	F4461730
	00251	0 50000 0 00070	2286		CLA	ERAS2R	F4461740

ERAS3= = 71

Definition
00107 0 00000 0 00000 169 ERAS3= F4410600

References (11)

	00107	170	FRTBX=	SYN	ERAS3=	F4410610
00356	0 60100 0 00107	349	STB	STO	ERAS3=	F4412400
00400	0 50000 0 00107	367		CLA	ERAS3=	F4412580
00410	0 50000 0 00107	375		CLA	ERAS3= X WAS NOT FOUND, ENTER IT	F4412660
00615	0 60100 0 00107	518		STO	ERAS3= AND IN ERAS3=	F4414090
00622	−0 53400 1 00107	523		LXD	ERAS3=,1 SET INDEX	F4414140
00623	0 70000 0 00107	524		CPY	ERAS3= COPY NO OF WORDS IN BLOCK	F4414150
01116	−0 63400 1 00107	726		SXD	ERAS3=,1 SAVE INDEX	F4416170
01117	−0 53400 2 00107	727		LXD	ERAS3=,2	F4416180
01141	0 60000 0 00107	745	CLAE	STZ	ERAS3= SET SIGNAL FOR EMPTY DOCARE	F4416360
01240	−0 53400 4 00107	814	NDDOT	LXD	ERAS3=,4	F4417050

ERAS3M = 87

Definition
00127 0 00000 0 00000 946 ERAS3M F4420720

References (2)

	03100	0 70000 0 00127	1510		CPY	ERAS3M COPY CHECK SUM	F4426360
	03107	0 40200 0 00127	1517		SUB	ERAS3M C0MPARE CHECK SUMS	F4426430

ERAS3N = 47

Definition
00057 0 00000 0 00000 1619 ERAS3N F4430320

References (7)

00227	0 60100 0 00057	1737		STO	ERAS3N INITIALIZE ERAS3N	F4431500
00245	0 50000 0 00057	1751		CLA	ERAS3N PUT NO OF WORDS COPIED IN AC	F4431640
00250	0 60100 0 00057	1754		STO	ERAS3N STORE NUMBER OF WORDS LEFT TO COPY	F4431670
00311	0 70000 0 00057	1791		CPY	ERAS3N C0PY FIRST WORD OF NEXT BLOCK	F4432040
00330	0 50000 0 00057	1806		CLA	ERAS3N TEST FOR END OF FRET	F4432190
00372	0 50000 0 00057	1843	14LXD	CLA	ERAS3N TEST FOR END OF LAST BLOCK	F4432560
00407	0 50000 0 00057	1857		CLA	ERAS3N END OF BLOCK REACHED	F4432700

ERAS4N = 48

Definition
00060 0 00000 0 00000 1620 ERAS4N F4430330

References (2)

	00276	−0 63400 2 00060	1780	RDFRT	SXD	ERAS4N,2 SAVE INDEX REGISTERS	F4431930
	00335	−0 53400 2 00060	1811		LXD	ERAS4N,2	F4432240

ERAS5N = 49

Definition
00061 0 00000 0 00000 1621 ERAS5N F4430340

References (2)

	00277	−0 63400 1 00061	1781		SXD	ERAS5N,1	F4431940
	00334	−0 53400 1 00061	1810		LXD	ERAS5N,1 RESTORE INDEX REGISTERS	F4432230

ERR2DT = 635

Definition
01173 0 50000 0 00030 774 ERR2DT CLA ERRBX F4416650
Reference
01170 0 02000 0 01173 771 TRA ERR2DT F4416620

ERR2TD = 361

Definition
00551 0 50000 0 00030 478 ERR2TD CLA ERRBX F4413690
Reference
00537 0 02000 0 00551 468 TRA ERR2TD ERROR F4413590

ERRORA = 333

Definition
00515 0 50000 0 00030 447 ERRORA CLA ERRBX F4413380
Reference
00500 0 02000 0 00515 434 TRA ERRORA ERROR F4413250

ERRORF = 460

Definition
00714 0 50000 0 00030 584 ERRORF CLA ERRBX F4414750
Reference
00726 0 02000 0 00714 594 TRA ERRORF ERROR F4414850

ERRORR = 193

Definition
00301 0 50000 0 00030 2312 ERRORR CLA ERRBX F4462000
Reference
00275 0 02000 0 00301 2308 TRA ERRORR F4461960

FIXDOS = 1292

Definition
02414 86 FIXDOS SYN BBTABL+1 F4400860

References (2)

	00760	0 60100 0 02413	1391	C5STD	STO	FIXDOS−1 STORE SET ADDRESS IN FIX DO LIST	F4425170
	00202	0 50000 1 02414	1712	CCLA	CLA	FIXDOS,1 GET ENTRY FROM FIXDO LIST	F4431250

FRELAB = 31

Definition
00037 +000000000007 129 FRELAB DEC 7 F4410200
Reference
00730 0 40200 0 00037 596 SUB FRELAB F4414870

FRET.= = 3091

Definition
06023 75 FRET.= SYN DOLIST−301 F4400750

References (17)

	06023	76	DVFQ.=	SYN	FRET.=	F4400760
	04053	103	FRETN=	SYN	FRET.=−1000 BEGINNING OF FRET (PART 1)	F4401030
00656	0 70000 4 06023	554	CPYF	CPY	FRET.=,4 COPY WORDS INTO STORAGE	F4414450
00657	0 50000 4 06023	555		CLA	FRET.=,4 IS THIS WORD THE FORMULA NUMBER OF	F4414460
00661	0 40000 4 06022	557	ADD	ADD	FRET.=−1,4 NO, ADD THIS FREQUENCY TO PREVIOUS	F4414480
00662	0 60100 4 06023	558		STO	FRET.=,4 SUM TO GET CUMULATIVE FREQUENCY	F4414490
00667	0 70000 4 06023	563	CPY3FT	CPY	FRET.=,4 COPY FIRST FREQUENCY IN ENTRY	F4414540
00672	0 70000 4 06023	566		CPY	FRET.=,4 COPY NEXT WORD-- IS IT NEXT FREQ OR	F4414570
00673	0 50000 4 06023	567		CLA	FRET.=,4 IS IT NEW FORMULA NUMBER	F4414580
00675	0 50000 4 06021	569	DOCSFT	CLA	FRET.=−2,4 NEW FORMULA NUMBER,ENTRY JUST	F4414600
00677	0 50000 4 06022	571		CLA	FRET.=−1,4 DVFQ	F4414620
00702	0 50000 4 06023	574	CLAFT	CLA	FRET.=,4 PUT NEW FORMULA INTO FRET IN PLACE	F4414650
00703	0 60100 4 06021	575		STO	FRET.=−2,4 OF ENTRY JUST MOVED	F4414660
00736	0 50000 4 06023	602	CLA1	CLA	FRET.=,4 TAKE TOTAL FREQ OF ENTRY (LAST WD)	F4414930
00741	0 60100 4 06023	605		STO	FRET.=,4	F4414960
00743	0 50000 4 06023	607	CLAD	CLA	FRET.=,4 LOOK AT NEXT WORD	F4414980
00751	−0 60000 4 06023	613		STQ	FRET.=,4	F4415040

FRETN= = 2091

Definition
04053 103 FRETN= SYN FRET.=−1000 BEGINNING OF FRET (PART 1) F4401030

References (2)

	00771	0 36100 2 04053	631	ACLA	ACL	FRETN=,2 FIND CHECKSUM	F4415220
	00776	0 70000 1 04053	636	CPYFT	CPY	FRETN=,1 COPY BLOCK	F4415270

FRETY= = 38

Definition
00046 0 00000 0 01750 136 FRETY= FRTADD F4410270

References (4)

00774	0 46000 0 00046	634	LDA	FRETY=	F4415250
01002	0 50000 0 00046	640	CLA	FRETY= NO,SET DRUM ADDRESS FOR NEXT BLOCK	F4415310
01004	0 62100 0 00046	642	STA	FRETY=	F4415330
01013	0 46000 0 00046	649	LDA	FRETY=	F4415400

FRTADD = 1000

Definition
01750 68 FRTADD SYN 1000 DRUM ADDRESS FOR FRET F4400680

References (2)

	00046	0 00000 0 01750	136	FRETY=		FRTADD	F4410270
	00050	0 00000 0 01750	1612	FRETY		FRTADD	F4430250

FRTBX= = 71

Definition
00107 170 FRTBX= SYN ERAS3= F4410610

References (2)

	00734	−0 63400 4 00107	600		SXD	FRTBX=,4 SAVE LENGTH OF FRET TABLE IN STOR.	F4414910
	00755	0 50200 0 00107	619	DONE	CLS	FRTBX=	F4415100

FRTDRM = 194

Definition
00302 62 FRTDRM SYN 194 FRET DRUM (LOGICAL 2) F4400620

References (3)

00766	0 76600 0 00302	628		WRS	FRTDRM SELECT DRUM	F4415190
01012	0 76600 0 00302	648	EMPTY	WRS	FRTDRM	F4415390
00302	0 76200 0 00302	1784	11WRS	RDS	FRTDRM SELECT DRUM	F4431970

G1...J = 418

Definition
00642 −0 53400 1 01013 2562 G1...J LXD GK6..J,1 INITIALIZE INDEX 0F POSITION IN F4464500

G10..J = 479

Definition
00737 0 50000 0 00731 2623 G10..J CLA G26..J SUM CK. FITS TOO F4465110

References (2)

	00720	0 02000 0 00737	2608		TRA	G10..J	F4464960
	00722	−0 12000 0 00737	2610		TMI	G10..J	F4464980

G11..J = 504

Definition

		2648				F4465360
		2649			DRUM SELECTION SUBROUTINE,COMPUTES NEW DRUM ADDRESS	F4465370
00770	0 60100 0 00764	2650	G11..J	STO	G18..J STORE SWITCH WORD.	F4465380

References (3)

00711	0 07400 2 00770	2601	TSX	G11..J,2 ALS0 STORES SWITCH	F4464890
00724	0 07400 2 00770	2612	TSX	G11..J,2	F4465000
00740	0 07400 2 00770	2624	TSX	G11..J,2	F4465120

G12..J = 481

Definition
00741 0 50000 0 00666 2625 G12..J CLA G8...J F4465130
Reference
00727 0 02000 0 00741 2615 TRA G12..J F4465030

G13..J = 502

Definition
00766 0 46000 0 01020 2646 G13..J LDA GV5..J F4465340
Reference
00746 0 02000 0 00766 2630 TRA G13..J NO F4465180

G14..J = 496

Definition
00760 0 70000 1 77776 2640 G14..J CPY TABLEJ−2,1 F4465280

References (3)

	00641	0 62100 0 00760	2561		STA	G14..J	F4464490
D	00763	−3 00000 1 00760	2643	G23..J	TXL	G14..J,1	F4465310
	00767	0 02000 0 00760	2647		TRA	G14..J	F4465350

G15..J = 484

Definition
00744 0 50000 0 01015 2628 G15..J CLA GV2..J F4465160
Reference
00712 0 02000 0 00744 2602 TRA G15..J F4464900

G16..J = 497

Definition
00761 1 00004 1 00762 2641 G16..J TXI G16..J+1,1,4 F4465290
Reference
00761 1 00004 1 00762 2641 G16..J TXI G16..J+1,1,4 F4465290

G17..J = 498

Definition
00762 0 70000 1 00000 2642 G17..J CPY TABLEJ,1 F4465300
Reference
00636 0 62100 0 00762 2558 STA G17..J F4464460

G18..J = 500

Definition
00764 0 70000 0 01017 2644 G18..J CPY GV4..J OR TRA G25 OR TRA G24 F4465320

References (2)

	00754	0 02000 0 00764	2636		TRA	G18..J	F4465240
	00770	0 60100 0 00764	2650	G11..J	STO	G18..J STORE SWITCH WORD.	F4465380

G19..J = 467

Definition
00723 0 50000 0 01006 2611 G19..J CLA GK3..J NO F4464990

G2...J = 420

Definition
00644 0 50000 4 00001 2564 G2...J CLA 1,4 FORM N-B F4464520

References (2)

	00732	0 02000 0 00644	2618		TRA	G2...J	F4465060
	00765	0 02000 0 00644	2645		TRA	G2...J	F4465330

G20..J = 445

Definition
00675 0 60100 0 01021 2589 G20..J STO GV6..J NO,STO. AMOUNT LEFT OVER F4464770

G21..J = 514

Definition
A 01002 0 76600 0 00000 2660 G21..J WRS F4465480
Reference
01001 0 60100 0 01002 2659 STO G21..J F4465470

G22..J = 495

Definition
00757 0 70000 1 00000 2639 G22..J CPY TABLEJ,1 F4465270
Reference
00635 0 62100 0 00757 2557 STA G22..J F4464450

G23..J = 499

Definition
D 00763 −3 00000 1 00760 2643 G23..J TXL G14..J,1 F4465310

References (2)

	00707	−0 63400 2 00763	2599		SXD	G23..J,2	F4464870
	00742	0 62200 0 00763	2626		STD	G23..J SET END TEST	F4465140

G24..J = 459

Definition
00713 0 50000 4 00003 2603 G24..J CLA 3,4 F4464910
Reference
01007 0 02000 0 00713 2667 GK4..J TRA G24..J F4465550

G25..J = 472

Definition
00730 0 76600 0 00000 2616 G25..J WRS SET..J F4465040

References (2)

	00726	0 62100 0 00730	2614		STA	G25..J ON NEXT DRUM	F4465020
	01006	0 02000 0 00730	2666	GK3..J	TRA	G25..J	F4465540

G26..J = 473

Definition
00731 0 70000 0 01017 2617 G26..J CPY GV4..J COPY CHECK SUM. F4465050
Reference
00737 0 50000 0 00731 2623 G10..J CLA G26..J SUM CK. FITS TOO F4465110

G27..J = 494

Definition
00756 1 00002 1 00757 2638 G27..J TXI G27..J+1,1,2 F4465260
Reference
00756 1 00002 1 00757 2638 G27..J TXI G27..J+1,1,2 F4465260

G3...J = 475

Definition
00733 0 56000 0 01014 2619 G3...J LDQ ZERO.J RECORD THAT THERE ARE NO WORDS LEFT F4465070
Reference
00646 −0 12000 0 00733 2566 TMI G3...J IS N LARGER THAN B F4464540

G30..J = 454

Definition
00706 1 77776 2 00707 2598 G30..J TXI G30..J+1,2,−2 END TEST IS 2 LESS F4464860
Reference
00706 1 77776 2 00707 2598 G30..J TXI G30..J+1,2,−2 END TEST IS 2 LESS F4464860

G31..J = 439

Definition
00667 0 60200 0 01017 2583 G31..J SLW GV4..J STORE CHECK SUM F4464710
Reference
00665 3 07775 2 00667 2581 TXH G31..J,2,4093 SUM. F4464690

G32..J = 493

Definition
00755 0 46000 0 01020 2637 G32..J LDA GV5..J COPY WORDS 0NTO THE DRUM F4465250
Reference
00750 0 04000 0 00755 2632 TLQ G32..J IS IT EQUAL TO ONE F4465200

G33..J = 491

Definition
00753 0 70000 1 00000 2635 G33..J CPY TABLEJ,1 F4465230
Reference
00637 0 62100 0 00753 2559 STA G33..J F4464470

G34..J = 490

Definition
00752 1 00002 1 00753 2634 G34..J TXI G34..J+1,1,2 F4465220
Reference
00752 1 00002 1 00753 2634 G34..J TXI G34..J+1,1,2 F4465220

G4...J = 425

Definition
00651 0 10000 4 00004 2569 G4...J TZE 4,4 IF NO WORDS LEFT,RETURN F4464570
Reference
00736 0 02000 0 00651 2622 TRA G4...J F4465100

G5...J = 428

Definition
00654 1 00002 1 00655 2572 G5...J TXI G5...J+1,1,2 UP IT,IT LAGS BEHIND F4464600
Reference
00654 1 00002 1 00655 2572 G5...J TXI G5...J+1,1,2 UP IT,IT LAGS BEHIND F4464600

G6...J = 435

Definition
00663 1 00002 1 00664 2579 G6...J TXI G6...J+1,1,2 CHECK F4464670

References (2)

	00663	1 00002 1 00664	2579	G6...J	TXI	G6...J+1,1,2 CHECK	F4464670
	00666	−3 00000 1 00663	2582	G8...J	TXL	G6...J,1,SET..J	F4464700

G7...J = 436

Definition
00664 0 36100 1 00000 2580 G7...J ACL TABLEJ,1 F4464680
Reference
00634 0 62100 0 00664 2556 STA G7...J TABLE ADDRESS IN CORES F4464440

G8...J = 438

Definition
00666 −3 00000 1 00663 2582 G8...J TXL G6...J,1,SET..J F4464700

References (5)

00643	−0 63400 1 00666	2563		SXD	G8...J,1 TABLE.	F4464510
00653	−0 53400 1 00666	2571		LXD	G8...J,1 CURRENT INDEX TO A	F4464590
00657	0 40200 0 00666	2575		SUB	G8...J THE TXL IS NEGATIVE	F4464630
00661	−0 63400 2 00666	2577		SXD	G8...J,2 SET NEW END TEST	F4464650
00741	0 50000 0 00666	2625	G12..J	CLA	G8...J	F4465130

G9...J = 465

Definition
00721 0 40000 0 01010 2609 G9...J ADD ONEA.J DOES SUM CHECK FIT TOO F4464970
Reference
00674 −0 12000 0 00721 2588 TMI G9...J F4464760

GK1..J = 516

Definition

		2662			F4465500
		2663		FOLLOWING ARE THE CONSTANTS USED	F4465510
01004	0 00000 0 03777	2664	GK1..J	2047	F4465520

Reference
00671 −0 32000 0 01004 2585 ANA GK1..J F4464730

GK2..J = 517

Definition
01005 0 00000 0 04000 2665 GK2..J 2048 F4465530
Reference
00672 0 40200 0 01005 2586 SUB GK2..J F4464740

GK3..J = 518

Definition
01006 0 02000 0 00730 2666 GK3..J TRA G25..J F4465540
Reference
00723 0 50000 0 01006 2611 G19..J CLA GK3..J NO F4464990

GK4..J = 519

Definition
01007 0 02000 0 00713 2667 GK4..J TRA G24..J F4465550
Reference
00710 0 50000 0 01007 2600 CLA GK4..J DRUM SELECTION ROUTINE F4464880

GK5..J = 521

Definition
01011 0 76600 0 00301 2669 GK5..J WDR 1 F4465570
Reference
01000 0 40000 0 01011 2658 ADD GK5..J F4465460

GK6..J = 523

Definition
01013 0 77774 0 00000 2671 GK6..J 0,0,−4 F4465590
Reference
00642 −0 53400 1 01013 2562 G1...J LXD GK6..J,1 INITIALIZE INDEX 0F POSITION IN F4464500

GOTONA = 311

Definition
00467 0 50000 1 06023 425 GOTONA CLA TIFRD−1,1 A GO TO N, SAVE ENTRY AND ALSO F4413160
Reference
00463 0 10000 0 00467 421 TZE GOTONA THIS IS A GO TO N ENTRY F4413120

GOTONM = 220

Definition
00334 −0 50000 0 00073 1092 GOTONM CAL GTNCD IS A GO TO N F4422180
Reference
00326 −0 10000 0 00334 1086 TNZ GOTONM IN N LIST (GO TO N) F4422120

GOTONP = 69

Definition
00105 0 50000 2 07773 1941 GOTONP CLA TRATBL,2 THIS IS A GO TO N--GET ADDRESS OF F4440580
Reference
00102 −0 12000 0 00105 1938 TMI GOTONP CODE IS 101-GO TO N CASE F4440550

GOTOVA = 141

Definition
00215 0 50000 1 06021 245 GOTOVA CLA INST.A−3,1 THIS IS A GO TO VECTOR F4411360
Reference
00206 −0 10000 0 00215 238 TNZ GOTOVA YES,IS A GO TO VECTOR F4411290

GOTOVM = 297

Definition
00451 0 50000 1 03700 1169 GOTOVM CLA INSTM−3,1 THIS IS A GO TO VECTOR F4422950
Reference
00277 0 02000 0 00451 1062 TRA GOTOVM TRA IS THE OPERATI0N CODE F4421880

GP1..J = 410

Definition

		2541				F4464290
		2542			THIS DRUM SUBROUTINE TRANSFERS A TABLE TO THE DRUM,TABLE IS	F4464300
		2543			BACKWARDS IN CM AND STORED EVERY OTHER WORD. GOES FORWARD ON	F4464310
		2544			DRUM. CALLING SEQUENCE IS,	F4464320
		2545			TSX DRUM,4	F4464330
		2546			HTR N N IS NUMBER OF ENTRIES IN THE TABLE	F4464340
		2547			HTR A A IS CM ADDRESS OF LAST ENTRY IN	F4464350
		2548			TABLE	F4464360
		2549			HTR D D IS DRUM ADDRESS,0-8191	F4464370
		2550			UPON RETURN, NEXT AVAILABLE DRUM ADDRESS HAS REPLACED THE	F4464380
		2551			HTR D	F4464390
		2552			A CHECK SUM IS PUT AFTER EVERY B WORDS,SEE THE NEXT CARD.	F4464400
		2553			A MUST BE GREATER THAN 1,N GETS REPLACED BY 0	F4464410
00632	0 00000 0 00215	2554	GP1..J	HTR	BBBB.J ADDRESS HAS B.	F4464420

References (2)

	00645	0 40200 0 00632	2565		SUB	GP1..J	F4464530
	00650	0 50000 0 00632	2568		CLA	GP1..J PREPARE TO TRANSFER B WORDS	F4464560

GV2..J = 525

Definition
2673 VARIABLES OR TEMPORARY STORAGE F4465610

01015 0 00000 0 00000 2674 GV2..J LENGTH OF BLOCK F4465620

References (7)

00652	0 60100 0 01015	2570		STO	GV2..J	F4464580
00673	0 40000 0 01015	2587		ADD	GV2..J WILL BLOCK FIT	F4464750
00676	0 40200 0 01015	2590		SUB	GV2..J	F4464780
00700	0 60100 0 01015	2592		STO	GV2..J	F4464800
00717	0 60100 0 01015	2607		STO	GV2..J	F4464950
00744	0 50000 0 01015	2628	G15..J	CLA	GV2..J	F4465160
00773	0 40000 0 01015	2653		ADD	GV2..J FORM THE NEW DRUM ADDRESS	F4465410

GV3..J = 526

Definition
01016 0 00000 0 00000 2675 GV3..J INDEX OF LAST WORD IN BLOCK F4465630

References (5)

00655	−0 63400 1 01016	2573	SXD	GV3..J,1	F4464610
00702	0 40000 0 01016	2594	ADD	GV3..J FORM INITIALIZING INDEX	F4464820
00704	−0 53400 1 01016	2596	LXD	GV3..J,1 LOAD BEFORE STORING BACK	F4464840
00705	−0 63400 2 01016	2597	SXD	GV3..J,2	F4464850
00743	−0 53400 1 01016	2627	LXD	GV3..J,1	F4465150

GV4..J = 527

Definition
01017 0 00000 0 00000 2676 GV4..J SUM CHECK F4465640

References (3)

00667	0 60200 0 01017	2583	G31..J	SLW	GV4..J STORE CHECK SUM	F4464710
00731	0 70000 0 01017	2617	G26..J	CPY	GV4..J COPY CHECK SUM.	F4465050
00764	0 70000 0 01017	2644	G18..J	CPY	GV4..J OR TRA G25 OR TRA G24	F4465320

GV5..J = 528

Definition
01020 0 00000 0 00000 2677 GV5..J OLD DRUM ADDRESS F4465650

References (5)

00751	0 46000 0 01020	2633		LDA	GV5..J YES, TRANSFER THE SINGLE WORD	F4465210
00755	0 46000 0 01020	2637	G32..J	LDA	GV5..J COPY WORDS 0NTO THE DRUM	F4465250
00766	0 46000 0 01020	2646	G13..J	LDA	GV5..J	F4465340
00772	0 60100 0 01020	2652		STO	GV5..J	F4465400
00776	0 50000 0 01020	2656		CLA	GV5..J SELECT THE DRUM	F4465440

GV6..J = 529

Definition
01021 0 00000 0 00000 2678 GV6..J REMAINING BLOCK LENGTH F4465660

References (2)

	00675	0 60100 0 01021	2589	G20..J	STO	GV6..J NO,STO. AMOUNT LEFT OVER	F4464770
	00716	0 50000 0 01021	2606		CLA	GV6..J WORDS LEFT.	F4464940

IF3CSA = 163

Definition
00243 0 50000 1 06017 267 IF3CSA CLA INST.A−5,1 THIS INSTRUCTION IS A TZE F4411580
Reference
00203 0 02000 0 00243 235 P2TRA TRA IF3CSA TZE F4411260

IF3CSM = 362

Definition
00552 0 50000 1 03676 1235 IF3CSM CLA INST.M−5,1 THIS IS A TZE, NOT END OF A BB. F4423610
Reference
00304 0 02000 0 00552 1067 TRA IF3CSM TZE F4421930

INST.A = 3092

Definition
06024 72 INST.A SYN DOLIST−300 F4400720

References (24)

	06024	96	INSTA	SYN	INST.A	F4400960
00132	0 50000 1 06024	194		CLA	INST.A,1 PUT INSTRUCTION NUMBER OF FIRST	F4410850
00135	0 50000 1 06024	197		CLA	INST.A,1 IF THERE IS NO LOCATION SYMBOL,	F4410880
00137	−0 50000 1 06023	199		CAL	INST.A−1,1	F4410900
00165	0 50000 1 06022	221		CLA	INST.A−2,1 IS THIS A TRANSFER WITH A SYMBOLIC	F4411120
00170	0 50000 1 06024	224		CLA	INST.A,1	F4411150
00171	0 40200 1 06022	225		SUB	INST.A−2,1	F4411160
00175	0 50000 1 06016	229		CLA	INST.A−6,1 NEXT INSTRUCTION IN THE BASIC	F4411200
00207	−0 50000 1 06022	239		CAL	INST.A−2,1 TEST FOR A GO TO N	F4411300
00212	0 50000 1 06022	242		CLA	INST.A−2,1 NOT TAGGED,IS A STRAIGHT TRANSFER	F4411330
00215	0 50000 1 06021	245	GOTOVA	CLA	INST.A−3,1 THIS IS A GO TO VECTOR	F4411360
00222	0 50000 1 06022	250		CLA	INST.A−2,1 GET ADDRESS OF THIS INSTRUCTION	F4411410
00232	0 50000 1 06024	258		CLA	INST.A,1 PUT LOCA,ION OF TRANSFER AND	F4411490
00234	0 50000 1 06022	260		CLA	INST.A−2,1	F4411510
00240	0 50000 1 06020	264		CLA	INST.A−4,1	F4411550
00243	0 50000 1 06017	267	IF3CSA	CLA	INST.A−5,1 THIS INSTRUCTION IS A TZE	F4411580
00247	0 50000 1 06013	271		CLA	INST.A−9,1 TWO-WAY TRANSFER	F4411620
00253	0 50000 1 06022	275		CLA	INST.A−2,1 PUT ADDRESSES OF THE THREE BRANCHES	F4411660
00255	0 50000 1 06016	277		CLA	INST.A−6,1	F4411680
00257	0 50000 1 06012	279		CLA	INST.A−10,1	F4411700
00272	0 50000 1 06016	290		CLA	INST.A−6,1 YES, IS USED FOR SKIPPING	F4411810
00274	0 50000 1 06013	292		CLA	INST.A−9,1 IS TEST INSTRUCTION FOLLOWED BY	F4411830
00300	0 50000 1 06012	296		CLA	INST.A−10,1 YES,STORE ADDRESS OF 2ND TRA	F4411870
00316	0 60100 1 06024	313		STO	INST.A,1	F4412040

INST.M = 1987

Definition
03703 82 INST.M SYN TIFRDM−201 F4400820

References (32)

	03703	97	INSTM	SYN	INST.M	F4400970
00154	0 50000 1 03703	973		CLA	INST.M,1 COMPARE FORMULA NO. TO ASSIGN	F4420990
00164	0 50000 1 03700	981		CLA	INST.M−3,1 LOOK AT ADDRESS OF PSE FOR SET	F4421070
00225	0 50000 1 03677	1014		CLA	INST.M−4,1 TEST THIS FOR END OF A BASIC BLOCK	F4421400
00232	0 50000 1 03675	1019		CLA	INST.M−6,1 PUT ADDRESS (=N) OF STA INTO AC	F4421450
00263	−0 50000 1 03702	1050		CAL	INST.M−1,1 INSTRUCTIONS	F4421760
00270	−0 50000 1 03702	1055		CAL	INST.M−1,1 NOT FOUND--LOOK FOR A CONDITIONAL	F4421810
00313	0 50000 1 03702	1074		CLA	INST.M−1,1 THIS INST ENDS A BASIC BLOCK--LOOK	F4422000
00327	0 50000 1 03701	1087		CLA	INST.M−2,1 GET INSTR OF ADDRESS	F4422130
00336	0 50000 1 03701	1094		CLA	INST.M−2,1 PUT N INTO AC	F4422200
00431	0 50000 1 03703	1153		CLA	INST.M,1	F4422790
00432	0 40200 1 03701	1154		SUB	INST.M−2,1	F4422800
00434	0 50000 1 03701	1156		CLA	INST.M−2,1 PUT ADDRESS OF TRA IN TRA TABLE	F4422820
00436	0 50000 1 03675	1158		CLA	INST.M−6,1 PUT NEXT TRA ADDRESS IN TRA TABLE	F4422840
00440	0 50000 1 03703	1160		CLA	INST.M,1	F4422860
00465	0 50000 1 03703	1182		CLA	INST.M,1	F4423080
00510	0 50000 1 03700	1201		CLA	INST.M−3,1	F4423270
00517	0 50000 1 03703	1208		CLA	INST.M,1 PUT FORMULA NUMBER IN TRA TABLE	F4423340
00525	0 50000 1 03675	1214		CLA	INST.M−6,1 PUT OFF ADDRESS INTO TRA TABLE	F4423400
00532	0 50000 1 03700	1219		CLA	INST.M−3,1 LOOK AT ADDRESS OF MSE	F4423450
00541	0 50000 1 03703	1226		CLA	INST.M,1 PUT FORMULA NUMBER IN TRA TABLE	F4423520
00545	0 50000 1 03675	1230		CLA	INST.M−6,1 PUT ADDRESSES IN TRA TABLE	F4423560
00547	0 50000 1 03671	1232		CLA	INST.M−10,1 -OFF - ADDRESS	F4423580
00552	0 50000 1 03676	1235	IF3CSM	CLA	INST.M−5,1 THIS IS A TZE, NOT END OF A BB.	F4423610
00566	0 50000 1 03703	1247		CLA	INST.M,1 PUT FORMULA NO. IN TRA TABLE	F4423730
00572	0 50000 1 03675	1251		CLA	INST.M−6,1 PUT ADDRESSES OF BRANCHES INTO	F4423770
00574	0 50000 1 03701	1253		CLA	INST.M−2,1	F4423790
00576	0 50000 1 03671	1255		CLA	INST.M−10,1	F4423810
00605	0 50000 1 03675	1262		CLA	INST.M−6,1 DOES TRA GO BACK TO HPR	F4423880
00606	0 40200 1 03703	1263		SUB	INST.M,1	F4423890
00771	0 60100 4 03703	1404		STO	INST.M,4	F4425300
01015	0 60100 4 03667	1424		STO	INST.M−12,4	F4425500

INST.R = 3376

Definition
06460 94 INST.R SYN TAG−15−1 F4400940

References (7)

	06314	95	BBTAGS	SYN	INST.R−100	F4400950
	06460	98	INSTR	SYN	INST.R	F4400980
00316	−0 50000 1 06455	2325		CAL	INST.R−3,1 IS THIS THE INSTRUCTION TAGGED	F4462130
00321	0 50000 1 06455	2328		CLA	INST.R−3,1 YES,	F4462160
00327	0 50000 1 06457	2334		CLA	INST.R−1,1 COMPARE OP CODE OF INSTRUCTION	F4462220
00367	0 50000 1 06455	2367		CLA	INST.R−3,1 NO, IS IT TAGGED	F4462550
00372	0 50000 1 06455	2370		CLA	INST.R−3,1 YES	F4462580

INSTTP = 148

Definition
00224 57 INSTTP SYN 148 CIT TAPE (L0GICAL 4) F4400370

References (11)

00112	0 77200 0 00224	177	PASS1	REW	INSTTP	F4410680
00312	0 76200 0 00224	309	RDSEL	RDS	INSTTP SELECT INSTRUCTION TAPE	F4412000
00332	0 76200 0 00224	325		RDS	INSTTP BLOCK GOING INTO STORAGE	F4412160
00353	0 76400 0 00224	342		BST	INSTTP	F4412330
01015	0 77200 0 00224	651		REW	INSTTP REWIND COMPILED INSTRUCTION TAPE	F4415420
00773	0 76200 0 00224	1406	D1RDS	RDS	INSTTP SLLECT 1NSTRUCTION TAPE	F4425320
01001	0 76200 0 00224	1412		RDS	INSTTP NO, READ NEXT RECORD.	F4425380
01026	0 76400 0 00224	1433	D2BST	BST	INSTTP BACKSPACE OVER RECOROS JUST REAO	F4425590
00100	0 77200 0 00224	2165	START	REW	INSTTP	F4460530
00270	0 76200 0 00224	2303	RDSIN	RDS	INSTTP	F4461910
00306	0 76400 0 00224	2317		BST	INSTTP	F4462050

INTOBB = 38

Definition
00046 0 50000 0 00037 1910 INTOBB CLA VISITS COUNT NO. OF BASIC BLOCKS VISITED F4440270

References (3)

00104	0 02000 0 00046	1940	TRA	INTOBB	F4440570
00154	0 10000 0 00046	1980	TZE	INTOBB NO OVERFLOW, DO NEXT BB	F4440970
00157	0 02000 0 00046	1983	TRA	INTOBB	F4441000

ISPRED = 73

Definition
00111 0 77100 0 00023 2174 ISPRED ARS 19 F4460620
Reference
00103 3 00000 1 00111 2168 TXH ISPRED,1,0 F4460560

L0...= = 27

Definition
00033 +000000000000 125 L0...= DEC 0 F4410160

References (7)

00365	0 30000 0 00033	356		FAD	L0...=	F4412470
00640	0 50200 0 00033	537		CLS	L0...= PUT MINUS IN ERAS2= AS LENGTH LEFT	F4414280
00745	0 56000 0 00033	609		LDQ	L0...= ANOTHER CUMULATIVE FREQUENCY	F4415000
01014	0 70000 0 00033	650	OUTA	CPY	L0...=	F4415410
01054	0 53400 2 00033	690		LXA	L0...=,2 INITIALIZE INDEX REGISTERS	F4415810
01105	0 53400 1 00033	717		LXA	L0...=,1 ZERO INTO I.R.A	F4416080
01205	0 53400 4 00033	786		LXA	L0...=,4 ZERO INTO INDEX C	F4416770

L5...= = 28

Definition
00034 +000000000005 126 L5...= DEC 5 F4410170

References (3)

00464	0 40200 0 00034	422		SUB	L5...= NOT A GO TO N--IS IT AN ASSIGN	F4413130
00645	0 53400 4 00034	545		LXA	L5...=,4 SPACE TO FRET	F4414360
01300	0 56000 0 00034	846	LDQ5	LDQ	L5...= FREQ NOT IN DVFQ, TAKE 5 AS FREQ	F4417370

LAFT2= = 36

Definition
00044 0 00000 0 00374 134 LAFT2= ZFRET=+2 F4410250
Reference
01003 0 40000 0 00044 641 ADD LAFT2= F4415320

LAZFT= = 35

Definition
00043 0 00000 0 00372 133 LAZFT= ZFRET= F4410240
Reference
00762 0 50000 0 00043 624 CLA LAZFT= GET LENGTH OF BLOCK F4415150

LD1..= = 32

Definition
00040 0 00001 0 00000 130 LD1..= HTR 0,0,1 F4410210

References (2)

	00367	0 40200 0 00040	358		SUB	LD1..=	F4412490
	00522	−0 53400 1 00040	452		LXD	LD1..=,1 RESET INDEX REGISTER	F4413430

LD12.= = 89

Definition
00131 1 00014 1 00132 193 LD12.= TXI LD12.=+1,1,12 F4410840

References (3)

00131	1 00014 1 00132	193	LD12.=	TXI	LD12.=+1,1,12	F4410840
00314	−0 53400 1 00131	311		LXD	LD12.=,1	F4412020
00335	0 40000 0 00131	328		ADD	LD12.= TIONS FOR TEST	F4412190

LD4..= = 144

Definition
00220 1 00004 1 00221 248 LD4..= TXI 4TIX,1,4 SET FOR NEXT INSTRUCTION F4411390

References (4)

00147	−0 53400 4 00220	207	LXD	LD4..=,4 FOUR INTO INDEX REGISTER C	F4410980
00161	−0 53400 4 00220	217	LXD	LD4..=,4 FOUR INTO INDEX REGISTER C	F4411080
00226	2 00001 4 00220	254	TIX	LD4..=,4,1 HAVE ALL BRANCHES BEEN DONE	F4411450
01305	−0 53400 4 00220	851	LXD	LD4..=,4 READ DOTAG	F4417420

LENGTH = 62

Definition
00076 0 00000 0 00000 2160 LENGTH TOTAL LENGTH OF TABLE LEFT TO STORE F4460480

References (3)

00431	−0 60000 0 00076	2401	STQ	LENGTH STORE TOTAL LNGTH OF TABLE FOR DRUM	F4462890
00444	0 50000 0 00076	2412	CLA	LENGTH	F4463000
00450	0 60100 0 00076	2416	STO	LENGTH IS THIS A FULL BLOCK	F4463040

LNOINS = 217

Definition
00331 3 04230 1 00341 324 LNOINS TXH XRDIN−1,1,NOINS END OF RECORD--SEE IF IT IS END OF F4412150
Reference
00355 0 02000 0 00332 344 TRA LNOINS+1 AND TRY TO READ AGAIN F4412350

LNOP.= = 51

Definition
00063 0 76100 0 00000 149 LNOP.= NOP PROGRAM CONSTANT F4410400
Reference
00306 0 50000 0 00063 305 RDIN CLA LNOP.= STORE EXIT ADDRESS FROM RDINS F4411960

LOOKDO = 64

Definition
00100 0 50000 2 01117 2041 LOOKDO CLA DOBLOK−1,2 LOOK AT ENTRY IN DO LIST F4450540
Reference
D 00203 −3 00000 2 00100 2108 9TSTND TXL LOOKDO,2 YES, IS IT END OF PROBLEM F4451210

LPCOP= = 59

Definition
00073 +030000000000 157 LPCOP= OCT 30000000000 PSE-MSE F4410480
Reference
00150 0 40200 4 00074 208 PSUB SUB LPCOP=+1,4 LOOK FOR A TEST INSTRUCTION F4410990

LSTBLK = 518

Definition
01006 −0 75400 4 00000 644 LSTBLK PXD 0,4 ONLY A PARTIAL BLOCK LEFT F4415350
Reference
00760 −2 00372 4 01006 622 LZFRT= TNX LSTBLK,4,ZFRET= IS THERE ONLY A PARTIAL BLOCK LEFT F4415130

LSTBLR = 299

Definition
00453 0 40000 0 00077 2419 LSTBLR ADD BLKMAX FORM NEXT DRUM ADDRESS F4463070
Reference
00451 −0 12000 0 00453 2417 TMI LSTBLR NO, PUT IN ACTUAL LENGTH F4463050

LSTBLT = 1617

Definition
03121 0 50000 0 00054 1527 LSTBLT CLA TRNOM END OF TIFGO--PREVENT FURTHER F4426530

References (2)

	03102	0 10000 0 03121	1512		TZE	LSTBLT TIFGO IS EMPTY	F4426380
	03112	−2 00307 4 03121	1520		TNX	LSTBLT,4,ZTIFRD−1 NO--WAS LAST BLOCK	F4426460

LTPL.= = 60

Definition
00074 +034743000000 158 LTPL.= OCT 34743000000 F4410490
Reference
00245 0 40200 0 00074 269 SUB LTPL.= IS IT FOLLOWED BY BOTH A TPL AND F4411600

LTRA.= = 52

Definition
00064 +035121000000 150 LTRA.= OCT 35121000000 TRA F4410410

References (3)

00251	0 40200 0 00064	273	SUB	LTRA.=	F4411640
00270	0 40200 0 00064	288	SUB	LTRA.=	F4411790
00276	0 40200 0 00064	294	SUB	LTRA.=	F4411850

LTROP= = 55

Definition
00067 +000162000000 153 LTROP= OCT 162000000 TZE-TXL F4410440
Reference
00162 0 40200 4 00070 218 P2SUB SUB LTROP=+1,4 F4411090

LXFRT= = 40

Definition
00050 0 01750 0 00000 138 LXFRT= 0,0,XFRET= F4410290

References (2)

	00655	−0 53400 4 00050	553		LXD	LXFRT=,4	F4414440
	00756	0 40000 0 00050	620		ADD	LXFRT=	F4415110

LZFRT= = 496

Definition
00760 −2 00372 4 01006 622 LZFRT= TNX LSTBLK,4,ZFRET= IS THERE ONLY A PARTIAL BLOCK LEFT F4415130

References (2)

	00761	−0 53400 3 00760	623		LXD	LZFRT=,3 NO, FULL BLOCK--SET INDEX REGS.	F4415140
	01005	0 02000 0 00760	643		TRA	LZFRT= DO NEXT BLOCK	F4415340

LZSET1 = 34

Definition
00042 0 00000 0 00311 893 LZSET1 ZSET+1 F4420190
Reference
01056 0 40000 0 00042 1459 ADD LZSET1 F4425850

LZSETN = 37

Definition
00045 0 00310 0 00000 1609 LZSETN 0,0,ZSET F4430220

References (2)

	00143	−0 53400 3 00045	1679		LXD	LZSETN,3	F4430920
	00165	0 40200 0 00045	1697		SUB	LZSETN	F4431100

LZTF2= = 34

Definition
00042 0 00000 0 00312 132 LZTF2= ZTIFRD+2 F4410230
Reference
00634 0 40000 0 00042 533 ADD LZTF2= F4414240

LZTIF2 = 35

Definition
00043 0 00000 0 00312 894 LZTIF2 ZTIFRD+2 F4420200
Reference
03114 0 40000 0 00043 1522 ADD LZTIF2 ADDRESS FOR NEXT BLOCK F4426480

LZTIF= = 33

Definition
00041 0 00000 0 00310 131 LZTIF= ZTIFRD F4410220

References (3)

00607	0 40200 0 00041	512	SUB	LZTIF=	F4414030
00611	0 53400 1 00041	514	LXA	LZTIF=,1 FULL	F4414050
00630	0 40200 0 00041	529	SUB	LZTIF= CHECK SUM AND COPY	F4414200

LZTR4= = 37

Definition
00045 0 00000 0 01300 135 LZTR4= ZTRA+4 F4410260
Reference
01313 0 53400 1 00045 860 LXA LZTR4=,1 F4417510

LZTRAN = 38

Definition
00046 0 01274 0 00000 1610 LZTRAN 0,0,ZTRA F4430230

References (2)

	00233	−0 53400 3 00046	1741		LXD	LZTRAN,3 SET INDICES	F4431540
	00246	0 40200 0 00046	1752		SUB	LZTRAN ADD BLOCK JUST COPIED	F4431650

MINUS4 = 26

Definition
00032 −000000000004 124 MINUS4 DEC −4 F4410150

References (17)

00310	0 50000 0 00032	307	RDINSA	CLA	MINUS4 INITIALIZE ERROR BOX	F4411980
00327	0 50000 0 00032	322		CLA	MINUS4 INITIALIZE ERROR BOX	F4412130
00435	0 50000 0 00032	399	STTIF=	CLA	MINUS4 INITIALIZE ERROR BOX	F4412900
00525	0 50000 0 00032	458		CLA	MINUS4 INITIALIZE ERROR BOX	F4413490
00643	0 50000 0 00032	543	RFRET	CLA	MINUS4 INITIALIZE ERROR BOX	F4414340
01102	0 50000 0 00032	714	RDDOT	CLA	MINUS4 INITIALIZE ERROR BOX	F4416050
01146	0 50000 0 00032	753		CLA	MINUS4 INITIALIZE ERROR BOX	F4416440
00764	0 50000 0 00032	1399		CLA	MINUS4 INITIALIZE ERROR BOX	F4425250
03066	0 50000 0 00032	1500		CLA	MINUS4 INITIALIZE ERROR BOX	F4426260
00062	0 50000 0 00032	1624	RDSET	CLA	MINUS4 INITIALIZE ERROR BOX	F4430370
00137	0 50000 0 00032	1675	4PXD	CLA	MINUS4 INITIALIZE ERROR BOX	F4430880
00230	0 50000 0 00032	1738	8PXD	CLA	MINUS4 INITIALIZE ERROR BOX	F4431510
00300	0 50000 0 00032	1782	11PXD	CLA	MINUS4 INITIALIZE ERROR BOX	F4431950
00042	0 50000 0 00032	2008	RDDOS	CLA	MINUS4 INITIALIZE ERROR BOX	F4450210
00234	0 50000 0 00032	2273	RDBBL	CLA	MINUS4 INITIALIZE ERROR BOX	F4461610
00265	0 50000 0 00032	2300	RDINSR	CLA	MINUS4 INITIALIZE ERROR BOX	F4461880
00624	0 53400 1 00032	2535		LXA	MINUS4,1 MOVES KEYS FOR SECTION 5 IN	F4464230

MSECSE = 82

Definition
00122 0 50000 2 07773 1954 MSECSE CLA TRATBL,2 THIS IS A MSE--GET ADDRESS OF SENSE F4440710
Reference
00072 −0 12000 0 00122 1930 TMI MSECSE CODE IS 001--MSE CASE F4440470

MSECSM = 344

Definition
00530 −0 50000 0 00527 1217 MSECSM CAL MSECD THIS IS A MSE TEST F4423430
Reference
00303 0 02000 0 00530 1066 TRA MSECSM MSE F4421920

MSETXI = 89

Definition
00131 1 00002 2 00147 1961 MSETXI TXI ENTERP,2,2 ENTER TRANSFER F4440780
Reference
00125 0 10000 0 00131 1957 TZE MSETXI OFF--TAKE SECOND BRANCH F4440740

NMASK= = 48

Definition
00060 −300000000000 146 NMASK= OCT −300000000000 F4410370
Reference
00210 −0 32000 0 00060 240 ANA NMASK= IS ADDRESS IN N-BLOCK F4411310

NOPRED = 68

Definition
00104 0 60100 0 07776 2169 NOPRED STO PREDBX F4460570

NTHRDO = 75

Definition
00113 0 50000 2 01117 2052 NTHRDO CLA DOBLOK−1,2 IS THERE ANOTHER TXL TO THIS ADDR. F4450650
Reference
00125 0 02000 0 00113 2062 TRA NTHRDO SEE IF THERE IS ANOTHER TNX TO THIS F4450750

NTRDO= = 643

Definition

		782				F4416730
		783			THIS ROUTINE PUTS INFORMATION FROM DOTAG AND DVFQ INTO DOLIST	F4416740
01203	−0 53400 1 00054	784	NTRDO=	LXD	OPMSK=,1 C0MPLEMENT OF ONE INTO I R A	F4416750

Reference
01154 0 02000 0 01203 759 TRA NTRDO= END OF FILE--ALL COPIED F4416500

ONEA.J = 520

Definition
01010 0 00000 0 00001 2668 ONEA.J 1 F4465560

References (5)

00714	0 40200 0 01010	2604		SUB	ONEA.J	F4464920
00721	0 40000 0 01010	2609	G9...J	ADD	ONEA.J DOES SUM CHECK FIT TOO	F4464970
00725	0 40000 0 01010	2613		ADD	ONEA.J ARRANGE TO PUT CK SUM	F4465010
00747	0 56000 0 01010	2631		LDQ	ONEA.J	F4465190
00774	0 40000 0 01010	2654		ADD	ONEA.J	F4465420

ONEVCT = 302

Definition
00456 1 00004 1 00327 1175 ONEVCT TXI TRACSM+3,1,4 ONLY ONE BRANCH--A CERTAINTY CASE F4423010
Reference
00455 3 00001 4 00457 1174 OK TXH ONEVCT+1,4,1 TEST FOR ONLY 0OE BRANCH F4423000

OPMSK= = 44

Definition
00054 +077777000000 142 OPMSK= OCT 77777000000 F4410330

References (7)

00244	−0 32000 0 00054	268		ANA	OPMSK=	F4411590
00250	−0 32000 0 00054	272		ANA	OPMSK=	F4411630
00267	−0 32000 0 00054	287		ANA	OPMSK= IS IT FOLLOWED BY A TRA	F4411780
00275	−0 32000 0 00054	293		ANA	OPMSK= TWO TRAS	F4411840
01150	−0 53400 1 00054	755		LXD	OPMSK=,1 COMPLEMENT OF ONE INTO IR A	F4416460
01203	−0 53400 1 00054	784	NTRDO=	LXD	OPMSK=,1 C0MPLEMENT OF ONE INTO I R A	F4416750
01320	0 50000 0 00054	865		CLA	OPMSK=	F4417560

OVRFLO = 109

Definition
00155 0 50000 0 00035 1981 OVRFLO CLA ADMK F4440980

PBYCDM = 316

Definition
00474 2 00001 4 00476 1189 PBYCDM TIX 13SXD,4,1 ENTERED F4423150

References (5)

00443	−0 50000 0 00474	1163	11CAL	CAL	PBYCDM PUT PROBABILITY CODE IN BB TABLE	F4422690
00463	−0 50000 0 00474	1180		CAL	PBYCDM	F4423060
00514	−0 50000 0 00474	1205	PSTCS	CAL	PBYCDM THIS IS A PSE TEST INSTRUCTION	F4423310
00536	−0 50000 0 00474	1223	IF2CS	CAL	PBYCDM THIS IS A TWO-WAY TEST INSTRUCTION	F4423490
00563	−0 50000 0 00474	1244	16CAL	CAL	PBYCDM NO ERROR	F4423700

PBYCDN = 30

Definition
00036 +200000000000 1602 PBYCDN OCT 200000000000 F4430150
Reference
00356 0 40200 0 00036 1831 SUB PBYCDN IS IT A PROBABILITY CASE F4432440

PFXMKM = 49

Definition
00061 −300000000000 908 PFXMKM OCT −300000000000 F4420340
Reference
00325 −0 32000 0 00061 1085 ANA PFXMKM IN PROGRAM(UNCONDITIONAL TRA) OR F4422110

PFXMKN = 31

Definition
00037 −300000000000 1603 PFXMKN OCT −300000000000 F4430160
Reference
00355 −0 32000 0 00037 1830 ANA PFXMKN LOOK AT C0DE FOR ENDING F4432430

PLACEA = 257

Definition
00401 3 00000 1 00405 368 PLACEA TXH TIXBB,1,XXXXXX F4412590
Reference
00363 0 62200 0 00401 354 STD PLACEA F4412450

PLACEM = 448

Definition
D 00700 3 00000 4 00704 1340 PLACEM TXH C3TIX,4 F4424660
Reference
01066 0 62200 0 00700 1469 STD PLACEM PUT LENGTH INTO TEST F4425950

PRBYCS = 97

Definition
00141 0 56000 0 00040 1969 PRBYCS LDQ RAND1 THIS IS A PROBABILITY CASE F4440860
Reference
00074 −0 12000 0 00141 1932 TMI PRBYCS CODE IS 010--PROBABILITY F4440490

PREDBX = 4094

Definition
07776 50 PREDBX SYN 4094 F4400500

References (3)

00104	0 60100 0 07776	2169	NOPRED	STO	PREDBX	F4460570
00223	0 60100 0 07776	2258		STO	PREDBX SAVE DRUM ADDRESS	F4461460
00414	0 50000 0 07776	2388		CLA	PREDBX	F4462760

PSEMK= = 45

Definition
00055 +000060000000 143 PSEMK= OCT 60000000 F4410340
Reference
00264 0 40200 0 00055 284 SUB PSEMK= F4411750

PSTMK= = 46

Definition
00056 +000070000000 144 PSTMK= OCT 70000000 F4410350
Reference
00263 −0 32000 0 00056 283 ANA PSTMK= F4411740

RDFORT = 4

Definition

	38			THE LISTING INDICATES THAT ITS	F4400380
	39			VALUE IS SET BY THE PROGRAM.	F4400390
00004	40	RDFORT	SYN	4 A TSX RDFORT,4 CALLS IN THE DIAG-	F4400400

References (39)

00350	0 07400 4 00004	339		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4412300
00434	0 07400 4 00004	395	BTSX	TSX	RDFORT,4 BBLIST IS FULL WITHOUT THIS ENTRY	F4412860
00454	0 07400 4 00004	414		TSX	RDFORT,4 END OF FILE SHOULD NOT OCCUR	F4413050
00517	0 07400 4 00004	449		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4413400
00524	0 07400 4 00004	454	BADPOS	TSX	RDFORT,4 TAPE POSITIONED INCORRECTLY	F4413450
00534	0 07400 4 00004	465		TSX	RDFORT,4 END OF FILE SHOULD NOT OCCUR	F4413560
00553	0 07400 4 00004	480		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4413710
00711	0 07400 4 00004	581	ERRFN	TSX	RDFORT,4 THE TAPE RECORD ENDS WITH A FORMULA	F4414720
00716	0 07400 4 00004	586		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4414770
01135	0 07400 4 00004	741		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4416320
01175	0 07400 4 00004	776		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4416670
01234	0 07400 4 00004	810		TSX	RDFORT,4 BAD DIVIDE	F4417010
01261	0 07400 4 00004	831		TSX	RDFORT,4 BAD DIVIDE	F4417220
01327	0 02000 0 00004	872		TRA	RDFORT	F4417630
00354	0 07400 4 00004	1108		TSX	RDFORT,4 NO ENTRY FOUND IN TIFRD FOR GO TO N	F4422340
00454	0 07400 4 00004	1172		TSX	RDFORT,4 NONE, PART OF PROGRAM NOT	F4422980
00556	0 07400 4 00004	1239	IFTSX	TSX	RDFORT,4 ERROR	F4423650
00631	0 02000 0 00004	1282		TRA	RDFORT DO NEXT BLOCK OF PROGRAM	F4424080
00643	0 07400 4 00004	1297		TSX	RDFORT,4 N-LIST HAS OVERFLOWED	F4424230
00707	0 07400 4 00004	1347		TSX	RDFORT,4 FL0W ERROR	F4424730
00756	0 07400 4 00004	1389		TSX	RDFORT,4 FIXDOS FULL	F4425150
01023	0 07400 4 00004	1430		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4425560
01041	0 07400 4 00004	1446		TSX	RDFORT,4 SET TABLE HAS OVERFLOWED.	F4425720
03143	0 07400 4 00004	1545		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4426710
03156	0 07400 4 00004	1559	TRTSX	TSX	RDFORT,4 THE TRA TABLE HAS OVERFLOWED	F4426850
00103	0 07400 4 00004	1641		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4430540
00110	0 02000 0 00004	1646		TRA	RDFORT	F4430590
00160	0 07400 4 00004	1692		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4431050
00263	0 07400 4 00004	1765		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4431780
00341	0 07400 4 00004	1815		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4432280
00425	0 07400 4 00004	1871		TSX	RDFORT,4 BAD DIVIDE	F4432840
00161	0 02000 0 00004	1985		TRA	RDFORT	F4441020
00064	0 07400 4 00004	2026		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4450390
00205	0 02000 0 00004	2110		TRA	RDFORT YES, GO TO NEXT ROUTINE	F4451230
00256	0 07400 4 00004	2291		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4461790
00303	0 07400 4 00004	2314		TSX	RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE	F4462020
00425	0 07400 4 00004	2397		TSX	RDFORT,4 BAD DIVIDE	F4462850
00510	0 07400 4 00004	2450		TSX	RDFORT,4 BAD DIVIDE	F4463380
00631	0 02000 0 00004	2540		TRA	RDFORT	F4464280

RDINSA = 200

Definition
00310 0 50000 0 00032 307 RDINSA CLA MINUS4 INITIALIZE ERROR BOX F4411980

References (2)

	00124	0 02000 0 00310	187		TRA	RDINSA TRANSFER TO ROUTINE TO READ IN 1ST	F4410780
	00134	2 04230 1 00310	196	AA	TIX	RDINSA,1,NOINS TEST FOR END OF INSTRUCTION BLOCK	F4410870

RDINSM = 499

Definition

		1394				F4425200
		1395			THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INSTRUCTIONS	F4425210
		1396			INTO STORAGE AND SHIFTS THE EXTRA INSTRUCTIONS TO THE	F4425220
		1397			BEGINNING OF THE BLOCK	F4425230
00763	−0 63400 4 00122	1398	RDINSM	SXD	OUTBX,4 SAVE INDEX FOR RETURN	F4425240

References (2)

	00144	0 07400 4 00763	964		TSX	RDINSM,4 YES, READ IN NEXT BLOCK	F4420900
	00470	0 07400 4 00763	1185		TSX	RDINSM,4 READ IN NEXT BLOCK	F4423110

RDINSR = 181

Definition
00265 0 50000 0 00032 2300 RDINSR CLA MINUS4 INITIALIZE ERROR BOX F4461880
Reference
00363 2 00144 1 00265 2363 LZINS TIX RDINSR,1,ZINSTR F4462510

RDSDOL = 36

Definition
00044 0 76200 0 00301 2010 RDSDOL RDS DODRUM F4450230
Reference
00067 0 02000 0 00044 2029 TRA RDSDOL F4450420

RDSDOT = 580

Definition
01104 0 76200 0 00301 716 RDSDOT RDS DOCRDR SELECT DOCARE DRUM F4416070
Reference
01140 0 02000 0 01104 744 TRA RDSDOT F4416350

RDSDTG = 617

Definition
01151 0 76200 0 00222 756 RDSDTG RDS TBLTAP F4416470

References (2)

	01172	0 02000 0 01151	773		TRA	RDSDTG COPY NEXT RECORD	F4416640
	01202	0 02000 0 01151	781		TRA	RDSDTG	F4416720

RDSFTP = 422

Definition
00646 0 76200 0 00222 546 RDSFTP RDS TBLTAP F4414370

References (2)

	00647	2 00001 4 00646	547		TIX	RDSFTP,4,1	F4414380
	00723	0 02000 0 00650	591		TRA	RDSFTP+2 TRY AGAIN	F4414820

RDTRAD = 343

Definition
00527 0 53400 1 00031 460 RDTRAD LXA LA1,1 SET INDEX F4413510

References (2)

	00510	−0 10000 0 00525	442		TNZ	RDTRAD−2 TIFGO IS NOT EMPTY	F4413330
	00557	0 02000 0 00527	484		TRA	RDTRAD	F4413750

SELF10 = 438

Definition
00666 1 77777 4 00667 562 SELF10 TXI SELF10+1,4,−1 INDEX PLACE IN STORAGE F4414530
Reference
00666 1 77777 4 00667 562 SELF10 TXI SELF10+1,4,−1 INDEX PLACE IN STORAGE F4414530

SELF11 = 441

Definition
00671 1 77777 4 00672 565 SELF11 TXI SELF11+1,4,−1 INDEX PLACE IN STORAGE F4414560
Reference
00671 1 77777 4 00672 565 SELF11 TXI SELF11+1,4,−1 INDEX PLACE IN STORAGE F4414560

SELF13 = 553

Definition
01051 1 77776 1 01052 683 SELF13 TXI SELF13+1,1,−2 SET INDEX TO AVOID THIS ENTRY AS F4415740
Reference
01051 1 77776 1 01052 683 SELF13 TXI SELF13+1,1,−2 SET INDEX TO AVOID THIS ENTRY AS F4415740

SELF14 = 570

Definition
01072 1 00001 2 01071 704 SELF14 TXI SELF14−1,2,1 TOO SMALL--TRY NEXT F4415950
Reference
01072 1 00001 2 01071 704 SELF14 TXI SELF14−1,2,1 TOO SMALL--TRY NEXT F4415950

SELF15 = 571

Definition
01073 0 02000 0 01075 705 SELF15 TRA SELF15+2 EQUAL--FOUND F4415960
Reference
01073 0 02000 0 01075 705 SELF15 TRA SELF15+2 EQUAL--FOUND F4415960

SELF16 = 572

Definition
01074 1 77777 2 01075 706 SELF16 TXI SELF16+1,2,−1 TOO LARGE, WAS ONE PREVIOUS F4415970
Reference
01074 1 77777 2 01075 706 SELF16 TXI SELF16+1,2,−1 TOO LARGE, WAS ONE PREVIOUS F4415970

SELF17 = 587

Definition
01113 1 00001 1 01114 723 SELF17 TXI SELF17+1,1,1 F4416140
Reference
01113 1 00001 1 01114 723 SELF17 TXI SELF17+1,1,1 F4416140

SELF18 = 594

Definition
01122 2 00001 1 01121 730 SELF18 TIX SELF18−1,1,1 SUM ENTRIES F4416210
Reference
01122 2 00001 1 01121 730 SELF18 TIX SELF18−1,1,1 SUM ENTRIES F4416210

SELF26 = 718

Definition
01316 2 00002 1 01314 863 SELF26 TIX SELF26−2,1,2 F4417540
Reference
01316 2 00002 1 01314 863 SELF26 TIX SELF26−2,1,2 F4417540

SELF30 = 77

Definition
00115 2 00001 1 00114 1653 SELF30 TIX SELF30−1,1,1 F4430660
Reference
00115 2 00001 1 00114 1653 SELF30 TIX SELF30−1,1,1 F4430660

SELF31 = 82

Definition
00122 2 00001 2 00121 1658 SELF31 TIX SELF31−1,2,1 F4430710
Reference
00122 2 00001 2 00121 1658 SELF31 TIX SELF31−1,2,1 F4430710

SELF32 = 41

Definition
00051 2 00001 1 00050 2015 SELF32 TIX SELF32−1,1,1 F4450280
Reference
00051 2 00001 1 00050 2015 SELF32 TIX SELF32−1,1,1 F4450280

SELF33 = 45

Definition
00055 2 00001 2 00054 2019 SELF33 TIX SELF33−1,2,1 F4450320
Reference
00055 2 00001 2 00054 2019 SELF33 TIX SELF33−1,2,1 F4450320

SET..J = 0

Definition
00000 2680 SET..J SYN 0 F4465680

References (2)

	00666	−3 00000 1 00663	2582	G8...J	TXL	G6...J,1,SET..J	F4464700
	00730	0 76600 0 00000	2616	G25..J	WRS	SET..J	F4465040

SET..M = 2388

Definition
04524 80 SET..M SYN TRA..M−ZTRA−4 F4400800

References (4)

	04214	81	TIFRDM	SYN	SET..M−200	F4400810
	04524	100	SETM	SYN	SET..M	F4401000
00206	0 60100 4 04524	999		STO	SET..M,4 STORE SET ENTRY	F4421250
00254	0 62100 4 04524	1037		STA	SET..M,4 INTO TABLE ENTRY	F4421630

SETADD = 701

Definition
01275 69 SETADD SYN 701 DRUM ADDRESS FOR SET TABLE F4400690

References (2)

	00040	0 00000 0 01275	891	SETYM		SETADD	F4420170
	00047	0 00000 0 01275	1611	WSETY		SETADD	F4430240

SETDRM = 195

Definition
00303 64 SETDRM SYN 195 SET DRUM (LOGICAL 3) F4400640

References (4)

01042	0 76600 0 00303	1447	STWRS	WRS	SETDRM SELECT DRUM	F4425730
00064	0 76200 0 00303	1626	16WRS	RDS	SETDRM	F4430390
00141	0 76200 0 00303	1677	4WRS	RDS	SETDRM	F4430900
00214	0 76600 0 00303	1724		WRS	SETDRM SELECT DRUM	F4431370

SETLOC = 4092

Definition
07774 83 SETLOC SYN BBLIST+1 F4400830

References (7)

	07464	107	NDSET	SYN	SETLOC−ZSET END OF SET BLOCK (PART 3)	F4401070
00144	0 70000 1 07774	1680	4CPY	CPY	SETLOC,1 COPY BLOCK	F4430930
00150	0 36100 2 07774	1684	4ACL	ACL	SETLOC,2 COMPUTE CHECKSUM	F4430970
00205	0 50000 4 07774	1715		CLA	SETLOC,4 LOOK AT ENTRY IN SET TABLE	F4431280
00211	0 62200 4 07774	1719		STD	SETLOC,4 PUT INTO SET TABLE	F4431320
00216	0 36100 1 07774	1726	7AACL	ACL	SETLOC,1 COMPUTE CHECK SUM	F4431390
00222	0 70000 2 07774	1730	7ACPY	CPY	SETLOC,2 COPY TABLE	F4431430

SETTAB = 562

Definition
01062 89 SETTAB SYN NLIST−25−1 F4400890

References (3)

00067	0 70000 1 01063	1629	16CPY	CPY	SETTAB+1,1 COPY TABLE	F4430420
00073	0 36100 2 01063	1633	16ACL	ACL	SETTAB+1,2 COMPUTE CHECK SUM	F4430460
00057	0 50000 2 01063	1919	1CLA	CLA	SETTAB+1,2 LOOK AT ENTRY IN SET TABLE	F4440360

SHFTBB = 148

Definition

		2259				F4461470
		2260			THIS ROUTINE ADJUSTS THE ADDRESSES IN THE BB TABLE TO	F4461480
		2261			CORRESPOND TO ONE WORD ENTRIES IN THE PREDECESSOR AND	F4461490
		2262			SUCCESSOR TABLES	F4461500
00224	−0 53400 2 07774	2263	SHFTBB	LXD	BBOX.=,2 SET INDEX	F4461510

SKIP10 = 111

Definition
00157 −0 12000 0 00161 1691 SKIP10 TMI SKIP10+2 HAVE 5 TRIES AT READING BEEN MADE F4431040
Reference
00157 −0 12000 0 00161 1691 SKIP10 TMI SKIP10+2 HAVE 5 TRIES AT READING BEEN MADE F4431040

SKIP11 = 178

Definition
00262 −0 12000 0 00264 1764 SKIP11 TMI SKIP11+2 HAVE 5 TRIES AT READING BEEN MADE F4431770

References (2)

	00231	0 02000 0 00265	1739		TRA	SKIP11+3	F4431520
	00262	−0 12000 0 00264	1764	SKIP11	TMI	SKIP11+2 HAVE 5 TRIES AT READING BEEN MADE	F4431770

SKIP12 = 224

Definition
00340 −0 12000 0 00342 1814 SKIP12 TMI SKIP12+2 HAVE 5 TRIES AT READING BEEN MADE F4432270

References (3)

00301	0 02000 0 00343	1783		TRA	SKIP12+3	F4431960
00332	0 50000 0 00341	1808		CLA	SKIP12+1 STORE A TSX TO PREVENT READING	F4432210
00340	−0 12000 0 00342	1814	SKIP12	TMI	SKIP12+2 HAVE 5 TRIES AT READING BEEN MADE	F4432270

SKIP13 = 51

Definition
00063 −0 12000 0 00065 2025 SKIP13 TMI SKIP13+2 HAVE 5 TRIES AT READING BEEN MADE F4450380
Reference
00063 −0 12000 0 00065 2025 SKIP13 TMI SKIP13+2 HAVE 5 TRIES AT READING BEEN MADE F4450380

SKIP14 = 173

Definition
00255 −0 12000 0 00257 2290 SKIP14 TMI SKIP14+2 HAVE 5 TRIES AT READING BEEN MADE F4461780

References (2)

	00235	0 02000 0 00260	2274		TRA	SKIP14+3	F4461620
	00255	−0 12000 0 00257	2290	SKIP14	TMI	SKIP14+2 HAVE 5 TRIES AT READING BEEN MADE	F4461780

SKIP15 = 194

Definition
00302 −0 12000 0 00304 2313 SKIP15 TMI SKIP15+2 HAVE 5 TRIES AT READING BEEN MADE F4462010
Reference
00302 −0 12000 0 00304 2313 SKIP15 TMI SKIP15+2 HAVE 5 TRIES AT READING BEEN MADE F4462010

SSBOX= = 4094

Definition
07776 47 SSBOX= SYN 4094 F4400470

References (5)

00120	0 60100 0 07776	183		STO	SSBOX=	F4410740
00623	0 62200 0 07776	1276		STD	SSBOX= PUT LENGTH OF SET TABLE IN SS BOX	F4424020
00066	−0 53400 3 07776	1628		LXD	SSBOX=,3 SET INDEX REGISTERS	F4430410
00164	0 50000 0 07776	1696	TESTST	CLA	SSBOX= IS THERE ANOTHER BLOCK ON DRUM	F4431090
00213	−0 53400 3 07776	1723	WRTST	LXD	SSBOX=,3 SET INDEX REGISTERS	F4431360

STOPCS = 67

Definition
00103 −0 53400 1 00031 1939 STOPCS LXD LA1,1 -10 IS A STOP-GO TO BB ZERO F4440560

STOREA = 550

Definition
01046 −0 53400 1 00106 680 STOREA LXD ERAS2=,1 NOW HAVE HIGHEST OF ENTRIES NOT F4415710
Reference
01023 −3 00002 1 01046 659 TXLDO TXL STOREA,1,2 IS THERE ANOTHER ENTRY TO BE F4415580

STOREB = 399

Definition
00617 0 60100 0 00000 1272 STOREB STO XXXXXX F4423980
Reference
00616 0 62100 0 00617 1271 STA STOREB F4423970

STQDTG = 669

Definition
01235 −0 60000 0 00105 811 STQDTG STQ ERAS1= F4417020

References (2)

	00102	0 02000 0 01235	164	LSTQ	TRA	STQDTG	F4410550
	01263	0 02000 0 01235	833		TRA	STQDTG	F4417240

STTIF= = 285

Definition

		396				F4412670
		397			THIS ROUTINE READS TIFGO FROM TAPE 2, FILE 5, RECORD 6,	F4412880
		398			ELIMINATING UNWANTED PARTS OF TIFGO.	F4412890
00435	0 50000 0 00032	399	STTIF=	CLA	MINUS4 INITIALIZE ERROR BOX	F4412900

Reference
00076 0 02000 0 00435 160 LOUT TRA STTIF= F4410510

SUCCBX = 4093

Definition
07775 49 SUCCBX SYN 4093 F4400490

References (2)

	00105	0 60100 0 07775	2170		STO	SUCCBX THERE IS NO PRED TABLE-SPACE OVER	F4460660
	00133	0 60100 0 07775	2193		STO	SUCCBX	F4460810

SYSTAP = 145

Definition
00221 52 SYSTAP SYN 145 FORTRAN SYSTEM TAPE (LOGICAL 1) F4400520

References (6)

01322	0 76200 0 00221	867		RDS	SYSTAP	F4417580
00630	0 76200 0 00221	1281		RDS	SYSTAP	F4424070
00107	0 76200 0 00221	1645	READ4	RDS	SYSTAP	F4430580
00160	0 76200 0 00221	1984	READ5	RDS	SYSTAP	F4441010
00204	0 76200 0 00221	2109	READ6	RDS	SYSTAP	F4451220
00630	0 76200 0 00221	2539		RDS	SYSTAP	F4464270

TABLEJ = 0

Definition
00000 2679 TABLEJ SYN 0 F4465670

References (5)

00664	0 36100 1 00000	2580	G7...J	ACL	TABLEJ,1	F4464680
00753	0 70000 1 00000	2635	G33..J	CPY	TABLEJ,1	F4465230
00757	0 70000 1 00000	2639	G22..J	CPY	TABLEJ,1	F4465270
00760	0 70000 1 77776	2640	G14..J	CPY	TABLEJ−2,1	F4465280
00762	0 70000 1 00000	2642	G17..J	CPY	TABLEJ,1	F4465300

TAGMRK = 43

Definition
00053 +000000700000 141 TAGMRK OCT 700000 F4410320

References (3)

01221	0 50000 0 00053	798	STF	CLA	TAGMRK STORE IF INDICATION IN DOLIST	F4416890
01224	−0 32000 0 00053	801		ANA	TAGMRK LOOK FOR INDICATION OF VARIABLE	F4416920
01251	−0 32000 0 00053	823		ANA	TAGMRK OF TIMES IN LOOP	F4417140

TAGPAS = 179

Definition

		2296				F4461840
		2297			THIS ROUTINE COMPILES THE LIST OF TAGGED INSTRUCTIONS	F4461850
00263	0 53400 2 00033	2298	TAGPAS	LXA	LOR,2 INITIALIZE INDEX REGISTERS	F4461860

Reference
00253 0 10000 0 00263 2288 TZE TAGPAS F4461760

TAGTAP = 147

Definition
54 TAPE (LOGICAL 2) F4400540

00223 55 TAGTAP SYN 147 TAGLIST TAPE (LOGICAL 3) F4400550
Reference
00353 0 76600 0 00223 2355 WRTAG WRS TAGTAP END OF BLOCK--WRITE ON TAPE F4462430

TBLTAP = 146

Definition
00222 53 TBLTAP SYN 146 TIFGO, TRAD, FRET, AND DOTAG F4400530

References (17)

00437	0 76400 0 00222	401		BST	TBLTAP POSITION TAPE4TO READ TIFGO	F4412920
00440	0 76400 0 00222	402		BST	TBLTAP	F4412930
00441	0 76200 0 00222	403		RDS	TBLTAP	F4412940
00445	0 76400 0 00222	407	BSTA	BST	TBLTAP	F4412980
00447	0 76200 0 00222	409		RDS	TBLTAP	F4413000
00511	0 76200 0 00222	443	RDS6	RDS	TBLTAP	F4413340
00530	0 76200 0 00222	461		RDS	TBLTAP	F4413520
00556	0 76400 0 00222	483		BST	TBLTAP	F4413740
00646	0 76200 0 00222	546	RDSFTP	RDS	TBLTAP	F4414370
00721	0 76400 0 00222	589		BST	TBLTAP	F4414800
00722	0 76200 0 00222	590		RDS	TBLTAP SET TO READ FRET AGAIN.	F4414810
01143	0 76200 0 00222	750	RDDTG	RDS	TBLTAP	F4416410
01144	0 76200 0 00222	751		RDS	TBLTAP	F4416420
01145	0 76200 0 00222	752		RDS	TBLTAP	F4416430
01151	0 76200 0 00222	756	RDSDTG	RDS	TBLTAP	F4416470
01200	0 76400 0 00222	779		BST	TBLTAP	F4416700
01306	0 76200 0 00222	852	RDSP	RDS	TBLTAP FIND BEGINNING OF DOTAG	F4417430

TESTDT = 631

Definition
01167 −0 76000 0 00012 770 TESTDT RTT 4 TEST REDUNDANCY F4416610
Reference
01155 0 02000 0 01167 760 TRA TESTDT END OF RECORD--TEST FOR ERROR F4416510

TESTST = 116

Definition
00164 0 50000 0 07776 1696 TESTST CLA SSBOX= IS THERE ANOTHER BLOCK ON DRUM F4431090
Reference
00155 0 10000 0 00164 1689 4TZE TZE TESTST F4431020

TGMSK= = 47

Definition
00057 +000000777777 145 TGMSK= OCT 777777 F4410360

References (3)

00205	−0 32000 0 00057	237	ANA	TGMSK=	F4411280
00460	−0 32000 0 00057	418	ANA	TGMSK= IS THIS A GO TO N ENTRY	F4413090
00564	−0 32000 0 00057	491	ANA	TGMSK=	F4413820

TGPBOX = 59

Definition
00073 −0 00001 0 00000 2157 TGPBOX MZE 0,0,1 F4460450

References (5)

00311	0 40000 0 00073	2320		ADD	TGPBOX	F4462080
00357	0 50000 0 00073	2359		CLA	TGPBOX	F4462470
00361	0 60100 0 00073	2361	TGSTO	STO	TGPBOX	F4462490
00376	0 40000 0 00073	2374		ADD	TGPBOX	F4462620
00403	0 50000 0 00073	2379		CLA	TGPBOX	F4462670

TIFADD = 1000

Definition
01750 65 TIFADD SYN 1000 DRUM ADDRESS FOR TIFRD F4400630

References (2)

	00047	0 00000 0 01750	137	Y		TIFADD	F4410280
	00041	0 00000 0 01750	892	TIFY		TIFADD	F4420180

TIFDRM = 193

Definition
00301 58 TIFDRM SYN 193 TIFRD DRUM (L0GICAL 1) F4400380

References (2)

	00613	0 76600 0 00301	516	WRSTIF	WRS	TIFDRM	F4414070
	03072	0 76200 0 00301	1504	TFRDS	RDS	TIFDRM SELECT DRUM	F4426300

TIFLAB = 29

Definition
00035 +000000000002 127 TIFLAB DEC 2 F4410180
Reference
00502 0 40200 0 00035 436 SUB TIFLAB F4413270

TIFRDM = 2188

Definition
04214 81 TIFRDM SYN SET..M−200 F4400810

References (10)

	03703	82	INST.M	SYN	TIFRDM−201	F4400820
	03704	106	NTIFR	SYN	TIFRDM−200 EN0 OF TIFRD 8LOCK (PART 2)	F4401060
00156	0 40200 4 04214	975		SUB	TIFRDM,4	F4421010
00245	0 50000 4 04213	1030		CLA	TIFRDM−1,4 GET VALUE TO ASSIGN TO N FROM TIFRD	F4421560
00352	0 40200 4 04214	1106		SUB	TIFRDM,4	F4422320
00362	0 50000 4 04214	1114	8CLA	CLA	TIFRDM,4 GET NEXT VALUE ON N FROM TIFRD	F4422400
03071	0 60100 0 04213	1503		STO	TIFRDM−1 TO BEGINNING	F4426290
03076	0 70000 4 04213	1508	D2CPY	CPY	TIFRDM−1,4 READ IN BLOCK OF TIFRD	F4426340
03103	0 36100 2 04213	1513	D3ACL	ACL	TIFRDM−1,2 COMPUTE CHECKSUM	F4426390
03136	0 60000 4 04214	1540		STZ	TIFRDM,4	F4426660

TRA..M = 3092

Definition
06024 79 TRA..M SYN DOLIST−300 F4400790

References (17)

	04524	80	SET..M	SYN	TRA..M−ZTRA−4	F4400800
	06024	101	TRAM	SYN	TRA..M	F4401010
00341	0 62200 4 06024	1097		STD	TRA..M,4 PUT N-LIST ADDRESS IN TRA TABLE	F4422230
00442	0 62200 4 06030	1162		STD	TRA..M+4,4	F4422880
00446	0 62200 4 06026	1166		STD	TRA..M+2,4	F4422920
00461	0 62200 4 06022	1178		STD	TRA..M−2,4 PUT NO. INTO TRA TABLE	F4423040
00466	0 62200 4 06024	1183		STD	TRA..M,4 PUT FORMULA NUMBER INT0 TRA TABLE	F4423090
00520	0 62200 4 06024	1209		STD	TRA..M,4	F4423350
00522	0 62200 4 06022	1211		STD	TRA..M−2,4	F4423370
00534	0 62200 4 06024	1221		STD	TRA..M,4 PUT NO. OF SENSE LIGHT IN TRA TABLE	F4423470
00542	0 62200 4 06024	1227		STD	TRA..M,4	F4423530
00544	0 62200 4 06022	1229		STD	TRA..M−2,4	F4423550
00567	0 62200 4 06024	1248		STD	TRA..M,4	F4423740
00571	0 62200 4 06022	1250		STD	TRA..M−2,4	F4423760
00656	0 62200 4 06023	1314		STD	TRA..M−1,4 ENTER IN TRA TABLE	F4424400
03173	0 60100 4 06024	1572		STO	TRA..M,4 TO THE BEGINNING OF BLOCK	F4426980
03201	−0 60000 4 06020	1578		STQ	TRA..M−4,4	F4427040

TRACSA = 132

Definition
00204 0 50000 1 06021 236 TRACSA CLA INSTA−3,1 IS INSTRUCTION TAGGED F4411270
Reference
00200 0 02000 0 00204 232 TRA TRACSA TRA IS THE OPERATION CODE F4411230

TRACSM = 212

Definition
00324 −0 50000 1 03701 1084 TRACSM CAL INSTM−2,1 OP CODE IS TRA--SEE IF ADDRESS IS F4422100

References (3)

00307	0 02000 0 00324	1070		TRA	TRACSM TRA IS THE OPERATION CODE	F4421960
00311	0 02000 0 00327	1072	TRTTR	TRA	TRACSM+3 TTR	F4421980
00456	1 00004 1 00327	1175	ONEVCT	TXI	TRACSM+3,1,4 ONLY ONE BRANCH--A CERTAINTY CASE	F4423010

TRAD.= = 1992

Definition
03710 74 TRAD.= SYN TIFRD−1100 F4400740

References (4)

00532	0 70000 1 03711	463		CPY	TRAD.=+1,1 COPY NUMBER OF WORDS AND TABLE	F4413540
00544	0 50000 1 03710	473		CLA	TRAD.=,1 NO ERROR--ENTER IN BASIC BLOCK LIST	F4413640
00546	0 60100 1 03710	475		STO	TRAD.=,1	F4413660
00576	0 50000 2 04303	501	CLATR	CLA	TRAD.=+251,2 STORE WORD FROM TRAD INTO TIFRD	F4413920

TRADRM = 193

Definition
00301 61 TRADRM SYN 193 INITIAL TRA TABLE DRUM (LOGICAL 1) F4400610

References (2)

	03157	0 76600 0 00301	1560	TRWRS	WRS	TRADRM SELECT DRUM	F4426860
	00232	0 76200 0 00301	1740	8WRS	RDS	TRADRM	F4431530

TRALAB = 30

Definition
00036 +000000000003 128 TRALAB DEC 3 F4410190
Reference
00541 0 40200 0 00036 470 SUB TRALAB F4413610

TRATBL = 4091

Definition
07773 84 TRATBL SYN BBLIST F4400840

References (27)

	02413	85	BBTABL	SYN	TRATBL−2800	F4400850
	07773	99	PRED	SYN	TRATBL	F4400990
00035	0 70007 0 00000	1601	LD7N		0,0,−TRATBL+2	F4430140
00234	0 70000 1 07774	1742	8CPY	CPY	TRATBL+1,1 COPY BLOCK OF TABLE	F4431550
00237	0 36100 2 07774	1745	8ACL	ACL	TRATBL+1,2	F4431580
00363	0 40000 1 07773	1836		ADD	TRATBL,1	F4432490
00370	0 60100 1 07773	1841		STO	TRATBL,1 PUT PROBABILITY IN TRA TABLE	F4432540
00416	0 50000 1 07771	1864	NTENT	CLA	TRATBL−2,1 NO ENTRY IN FRET--MAKE UP FREQS	F4432770
00423	0 22100 1 07771	1869		DVP	TRATBL−2,1 DIVIDE BY NO. OF BRANCHES	F4432820
00431	0 60100 1 07773	1875		STO	TRATBL,1 PROBABILITY AND STORE	F4432880
00436	0 60100 1 07773	1880		STO	TRATBL,1 STORE PROBABILITY IN LAST BRANCH	F4432930
00105	0 50000 2 07773	1941	GOTONP	CLA	TRATBL,2 THIS IS A GO TO N--GET ADDRESS OF	F4440580
00111	0 50000 2 07772	1945	CLANT	CLA	TRATBL−1,2 LOOK AT ENTRY IN TRAT	F4440620
00122	0 50000 2 07773	1954	MSECSE	CLA	TRATBL,2 THIS IS A MSE--GET ADDRESS OF SENSE	F4440710
00132	0 50000 2 07771	1962	DOWIF	CLA	TRATBL−2,2 THIS IS A DO WITH AN IF	F4440790
00134	0 56000 2 07773	1964		LDQ	TRATBL,2 COMPARE TO NO. OF TIMES IN LOOP	F4440810
00136	0 62200 2 07771	1966		STD	TRATBL−2,2 LOOP NOT DONE-STORE NEW COUNT	F4440830
00144	0 50000 2 07773	1972	COMP	CLA	TRATBL,2 COMPARE TO CUMULATIVE PROB IN TRA	F4440890
00147	0 50000 2 07772	1975	ENTERP	CLA	TRATBL−1,2 THIS IS THE BRANCH TO BE TAKEN	F4440920
00152	0 62100 2 07772	1978		STA	TRATBL−1,2 STORE COUNT	F4440950
00153	0 40200 2 07772	1979		SUB	TRATBL−1,2 TEST FOR OVERFLOW	F4440960
00156	0 62100 2 07772	1982		STA	TRATBL−1,2 STORE MAXIMUM COUNT	F4440990
00133	0 50000 1 07772	2068		CLA	TRATBL−1,1 A CERTAINTY CASE--LOOK AT TRATBL	F4450810
00145	0 62100 1 07772	2078		STA	TRATBL−1,1 PUT ALL ONES IN C0UNTER	F4450910
00155	0 50000 1 07770	2086	ENDDO	CLA	TRATBL−3,1 THIS IS THE END 0F A DO WITHOUT IF	F4450990
00172	0 62100 1 07770	2099		STA	TRATBL−3,1 STORE NO TIMES OUT IN COUNTER OUT	F4451120
00200	0 62100 1 07772	2105		STA	TRATBL−1,1 STORE NO TIMES BACK IN COUNT. BACK	F4451180

TTBOX= = 4095

Definition
07777 48 TTBOX= SYN 4095 F4400480

References (6)

00121	0 60100 0 07777	184		STO	TTBOX=	F4410750
00621	0 62200 0 07777	1274		STD	TTBOX= PUT LENGTH OF TRA TABLE IN TTBOX	F4424000
00225	0 50000 0 07777	1735	RDTRA	CLA	TTBOX=	F4431480
00043	−0 50000 0 07777	1907		CAL	TTBOX=	F4440240
00101	0 50000 0 07777	2166		CLA	TTBOX=	F4460540
00200	−0 53400 5 07777	2239		LXD	TTBOX=,5 PUT LAST PRED ADDRESS INTO A AND C	F4461270

TWOA.J = 522

Definition
01012 0 00000 0 00002 2670 TWOA.J 2 F4465580
Reference
00640 0 40200 0 01012 2560 SUB TWOA.J F4464480

TXITRD = 368

Definition
00560 1 77777 2 00561 485 TXITRD TXI TXITRD+1,2,−1 F4413760

References (2)

	00543	−3 00000 1 00560	472	TXLTRD	TXL	TXITRD,1,0 ALL OF TRAD NOW IN BASIC BLOCK LIST	F4413630
	00560	1 77777 2 00561	485	TXITRD	TXI	TXITRD+1,2,−1	F4413760

TXLBBT = 357

Definition
D 00545 −3 00000 1 00532 2484 TXLBBT TXL CPY1R,1 F4463720

References (4)

00417	0 62200 0 00545	2391	STD	TXLBBT LATER	F4462790
00463	−0 50000 0 00545	2427	CAL	TXLBBT COMPUTE NEW TEST DECREMENTS FOR	F4463150
00465	0 62200 0 00545	2429	STD	TXLBBT IS THE NUMBER OF THE LAST BASIC	F4463170
00476	0 62200 0 00545	2438	STD	TXLBBT	F4463260

TXLTRD = 355

Definition
00543 −3 00000 1 00560 472 TXLTRD TXL TXITRD,1,0 ALL OF TRAD NOW IN BASIC BLOCK LIST F4413630
Reference
00550 1 00001 1 00543 477 TXI TXLTRD,1,1 SET FOR NEXT WORD IN TRAD F4413680

VISITS = 31

Definition
00037 0 00000 0 07640 1899 VISITS HTR 4000 COUNTER FOR NUMBER OF VISITS F4440160

References (3)

00045	0 60100 0 00037	1909		STO	VISITS ENTRIES IN TRATBL TIMES 128	F4440260
00046	0 50000 0 00037	1910	INTOBB	CLA	VISITS COUNT NO. OF BASIC BLOCKS VISITED	F4440270
00051	0 60100 0 00037	1913		STO	VISITS	F4440300

WRSTIF = 395

Definition
00613 0 76600 0 00301 516 WRSTIF WRS TIFDRM F4414070
Reference
00642 0 02000 0 00613 539 TRA WRSTIF TRA TO WRITE BLOCK AND COMPUTE CKSM F4414300

XFRET= = 1000

Definition
01750 29 XFRET= SYN 1000 TABLE LENGTH AND DRUM ADD FOR FRET F4400290

References (4)

00050	0 01750 0 00000	138	LXFRT=		0,0,XFRET=	F4410290
00754	−2 01750 4 00736	616		TNX	CLA1,4,XFRET= NO--LOOK AT NEXT ENTRY	F4415070
01001	3 01750 4 01014	639		TXH	OUTA,4,XFRET= IS THIS END OF TABLE	F4415300
01011	1 01750 4 00763	647		TXI	ADM,4,XFRET=	F4415380

XXXXXX = 0

Definition
00000 37 XXXXXX SYN 0 THE APPEARANCE OF THIS SYMBOL IN F4400370

References (6)

00401	3 00000 1 00405	368	PLACEA	TXH	TIXBB,1,XXXXXX	F4412590
00475	1 00000 1 00466	431		TXI	ASSN,1,XXXXXX LOOK AT NEXT ENTRY IN TIFRD	F4413220
00617	0 60100 0 00000	1272	STOREB	STO	XXXXXX	F4423980
00704	2 00000 4 00705	1344	C3TIX	TIX	C3CLA,4,XXXXXX	F4424700
00551	−3 00000 1 00555	2488	TXL2	TXL	CPY1A,1,XXXXXX	F4463760
00570	−3 00000 1 00601	2505	TXL3	TXL	CPY1B,1,XXXXXX	F4463930

ZERO.J = 524

Definition
01014 0 00000 0 00000 2672 ZERO.J F4465600

References (2)

	00662	0 50000 0 01014	2578		CLA	ZERO.J	F4464660
	00733	0 56000 0 01014	2619	G3...J	LDQ	ZERO.J RECORD THAT THERE ARE NO WORDS LEFT	F4465070

ZFRET= = 250

Definition
00372 30 ZFRET= SYN 250 BLOCK LENGTH OF FRET F4400300

References (4)

00043	0 00000 0 00372	133	LAZFT=		ZFRET=	F4410240
00044	0 00000 0 00374	134	LAFT2=		ZFRET=+2	F4410250
00760	−2 00372 4 01006	622	LZFRT=	TNX	LSTBLK,4,ZFRET= IS THERE ONLY A PARTIAL BLOCK LEFT	F4415130
00043	0 00000 0 00374	1607	LZFR1		ZFRET=+2	F4430200

ZINSTM = 300

Definition
24 INSTRUCTION TABLE (CIT)-PART 1 F4400240

00454 25 ZINSTM SYN 300 SAME AS PREVIOUS - PART 2 F4400230

References (4)

00143	−2 00454 1 00145	963	FNDAS	TNX	2FNDS,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED	F4420890
00467	−2 00454 1 00471	1184	13TIX	TNX	13CLA,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED	F4423100
01006	3 00453 4 01016	1417		TXH	D1XX,4,ZINSTM−1 IF 3RD RECORD FULL--NOT END OF F1LE	F4425430
01064	1 00455 1 01065	1467	1TXI	TXI	1TXI+1,1,ZINSTM+1	F4425930

ZINSTR = 100

Definition
00144 26 ZINSTR SYN 100 SAME AS PREVIOUS - PART 6 F4400260
Reference
00363 2 00144 1 00265 2363 LZINS TIX RDINSR,1,ZINSTR F4462510

ZNLIST = 25

Definition
00031 33 ZNLIST SYN 25 LENGTH 0F NLIST F4400330
Reference
00642 −2 00031 4 00644 1296 ENTRN TNX C1CLA,4,ZNLIST TEST FOR OVERFLOW OF N-LIST F4424220

ZTIFRD = 200

Definition
00310 28 ZTIFRD SYN 200 8LOCK LENGTH OF TIFRD F4400280

References (8)

00041	0 00000 0 00310	131	LZTIF=		ZTIFRD	F4410220
00042	0 00000 0 00312	132	LZTF2=		ZTIFRD+2	F4410230
00043	0 00000 0 00312	894	LZTIF2		ZTIFRD+2	F4420200
00116	0 00312 0 00000	937	PBOX		0,0,ZTIFRD+2	F4420630
00150	−2 00310 4 00155	969	2TNX	TNX	BADD,4,ZTIFRD IS BLOCK OF TIFRD ALL USED	F4420950
00343	−2 00310 4 00347	1099	7TNX	TNX	BCLA,4,ZTIFRD IS TIFRD BLOCK USED	F4422250
00356	−2 00310 4 00362	1110	8TNX	TNX	8CLA,4,ZTIFRD SEE IF TIFRD BLOCK IS ALL USED	F4422360
03112	−2 00307 4 03121	1520		TNX	LSTBLT,4,ZTIFRD−1 NO--WAS LAST BLOCK	F4426460

			1173			TRANSFERED TO	F4422990
	00455	3 00001 4 00457	1174	OK	TXH	ONEVCT+1,4,1 TEST FOR ONLY 0OE BRANCH	F4423000

			885			CONSTANTS AND VARIABLES	F4420110
	00033	0 00000 0 00000	886	L0M	HTR	0	F4420120

			2123			CONSTANTS AND VARIABLES	F4460110
	00033	0 00000 0 00000	2124	LOR			F4460120

			1080			A CERTAINTY CASE DUE TO AN ENTRY	F4422060
	00321	−0 50000 0 00074	1081	6CLA	CAL	CRTCD PUT CERTAINTY CODE IN BB TABLE	F4422070

			1894			CONSTANTS AND VARIABLES	F4440110
	00033	0 00001 0 00000	1895	LD1P		0,0,1	F4440120

			1598			CONSTANTS AND VARIABLES	F4430110
	00033	0 00000 0 00000	1599	ZERO		0	F4430120

			1998			CONSTANTS AND VARIABLES	F4450110
	00033	+000000700000	1999	TGMSK	OCT	700000	F4450120

			188			BLOCK OF COMPILED INSTRUCTIONS	F4410790
	00125	0 50000 0 00100	189	BEGCLA	CLA	LXRDN RESTORE USUAL EXIT ADDRESS	F4410800

			2673			VARIABLES OR TEMPORARY STORAGE	F4465610
	01015	0 00000 0 00000	2674	GV2..J		LENGTH OF BLOCK	F4465620

			54			TAPE (LOGICAL 2)	F4400540
		00223	55	TAGTAP	SYN	147 TAGLIST TAPE (LOGICAL 3)	F4400550

			24			INSTRUCTION TABLE (CIT)-PART 1	F4400240
		00454	25	ZINSTM	SYN	300 SAME AS PREVIOUS - PART 2	F4400230