Symbols

␣␣␣␣A1 = 96

Definition
00140 0 50000 1 00000 86 A1 CLA 0,1 OBTAIN WORD 1 F3B00850
References (2)
00113 0 62100 0 00140 64 STA A1 F3B00630

00137 1 00002 1 00140 85 TXI A1,1,2 RESTORE LOOP COUNT F3B00840

␣␣␣␣A2 = 103

Definition
00147 −0 63400 2 02341 94 A2 SXD 3BOX,2 TO GET 4 WORDS IN PROPER LOC. F3B00930
Reference
00146 1 77777 2 00147 93 TXI A2,2,−1 SUB. 1 FROM IR 2, LOOP BACK F3B00920

␣␣␣␣A3 = 100

Definition
00144 −0 50000 1 00000 91 A3 CAL 0,1 CLEAR IR 2, AND GET 1ST WD. IN ACC F3B00900
References (2)
00114 0 62100 0 00144 65 STA A3 F3B00640

00151 2 00001 4 00144 96 TIX A3,4,1 F3B00950

␣␣␣␣A4 = 93

Definition
00135 0 50000 1 00000 82 A4 CLA 0,1 OBTAIN WORD 3, AND SEPARATE TYPES F3B00810

References (8)

00112	0 62100 0 00135	63	STA	A4	F3B00620
00134	1 77776 1 00135	81	TXI	A4,1,−2	F3B00800
00152	1 77776 1 00135	97	TXI	A4,1,−2 PICK UP NEXT TRASTO ENTRY	F3B00960
00170	1 77776 1 00135	113	TXI	A4,1,−2 TRANSFER BACK TO SORT NEXT ENTRY	F3B01120
00202	1 77776 1 00135	124	TXI	A4,1,−2 BACK FOR NEXT ENTRY	F3B01230
00216	1 77776 1 00135	138	TXI	A4,1,−2 OBTAIN NEXT TRASTO ENTRY	F3B01370
00234	1 77776 1 00135	154	TXI	A4,1,−2 OBTAIN NEXT TRASTO ENTRY	F3B01530
00246	1 77776 1 00135	165	TXI	A4,1,−2 OBTAIN NEXT TRASTO ENTRIES	F3B01640

␣␣␣␣B1 = 108

Definition
00154 −0 50000 1 00000 100 B1 CAL 0,1 OBTAIN WORD 2 F3B00990

References (2)

	00115	0 62100 0 00154	66		STA	B1	F3B00650
	00153	1 77777 1 00154	99	B2	TXI	B1,1,−1	F3B00980

␣␣␣␣B2 = 107

Definition
98 ENTRY IS TYPE 1 OR 2 F3B00970

00153 1 77777 1 00154 99 B2 TXI B1,1,−1 F3B00980
Reference
00141 0 12000 0 00153 87 TPL B2 ENTRY IS TYPE 1 OR 2 P3B0D890

␣␣␣␣B3 = 112

Definition
00160 0 53400 4 02277 105 B3 LXA L(4),4 COUNT 4 IN IR 4 F3B01040
Reference
00157 1 00001 1 00160 104 TXI B3,1,1 RESTORE COUNT TO GET WORD 1 F3B01030

␣␣␣␣B4 = 117

Definition
00165 −0 63400 2 02340 110 B4 SXD 2BOX,2 PLACE COUNT IN PROPER PLACE F3B01090
Reference
00164 1 77777 2 00165 109 TXI B4,2,−1 DECREASE COUNT IN IR 2 BY -1 F3B01080

␣␣␣␣B5 = 114

Definition
00162 −0 50000 1 00000 107 B5 CAL 0,1 1ST WORD F3B01060

References (2)

	00116	0 62100 0 00162	67		STA	B5	F3B00660
	00167	2 00001 4 00162	112		TIX	B5,4,1	F3B01110

␣␣␣␣C1 = 121

Definition
114 ENTRY IS TYPE 1 F3B01130

00171 1 00001 1 00172 115 C1 TXI C2,1,1 RESTORE COUNT TO GET WD 1. F3B01140
Reference
00156 0 10000 0 00171 102 TZE C1 ENTRY IS TYPE 1 F3B01010

␣␣␣␣C2 = 122

Definition
00172 0 53400 4 02277 116 C2 LXA L(4),4 F3B01150
Reference
00171 1 00001 1 00172 115 C1 TXI C2,1,1 RESTORE COUNT TO GET WD 1. F3B01140

␣␣␣␣C3 = 124

Definition
00174 −0 50000 1 00000 118 C3 CAL 0,1 F3B01170

References (2)

	00117	0 62100 0 00174	68		STA	C3	F3B00670
	00201	2 00001 4 00174	123		TIX	C3,4,1	F3B01220

␣␣␣␣C4 = 127

Definition
00177 −0 63400 2 02337 121 C4 SXD 1BOX,2 SAVE COUNT OF TYPE 1 ENTRY F3B01200
Reference
00176 1 77777 2 00177 120 TXI C4,2,−1 F3B01190

␣␣␣␣D1 = 131

Definition
125 ENTRY IS TYPE 4, 5 OR 6 F3B01240

00203 1 00002 1 00204 126 D1 TXI D2,1,2 F3B01250
Reference
00136 −0 12000 0 00203 83 TMI D1 ENTRY IS TYPE 4,5 OR 6, 3RD WD, MINUS F3B00820

␣␣␣␣D2 = 132

Definition
00204 0 50000 1 00000 127 D2 CLA 0,1 OBTAIN WORD 1 F3B01260

References (2)

	00120	0 62100 0 00204	69		STA	D2	F3B00680
	00203	1 00002 1 00204	126	D1	TXI	D2,1,2	F3B01250

␣␣␣␣D3 = 136

Definition
00210 −0 50000 1 00000 132 D3 CAL 0,1 F3B01310

References (2)

	00121	0 62100 0 00210	70		STA	D3	F3B00690
	00215	2 00001 4 00210	137		TIX	D3,4,1	F3B01360

␣␣␣␣D4 = 139

Definition
00213 −0 63400 2 02343 135 D4 SXD 5BOX,2 SAVE COUNT FOR TYPE 1 ENTRY F3B01340
Reference
00212 1 77777 2 00213 134 TXI D4,2,−1 F3B01330

␣␣␣␣E1 = 143

Definition
139 ENTRY IS TYPE 4 OR 6 F3B01380

00217 1 77777 1 00220 140 E1 TXI E2,1,−1 F3B01390
Reference
00205 0 12000 0 00217 128 TPL E1 ENTRY IS TYPE 4 OR 6 F3B01270

␣␣␣␣E2 = 144

Definition
00220 −0 50000 1 00000 141 E2 CAL 0,1 OBTAIN WORD 2 F3B01400

References (2)

	00122	0 62100 0 00220	71		STA	E2	F3B00700
	00217	1 77777 1 00220	140	E1	TXI	E2,1,−1	F3B01390

␣␣␣␣E3 = 148

Definition
00224 0 53400 4 02277 146 E3 LXA L(4),4 F3B01450
Reference
00223 1 00001 1 00224 145 TXI E3,1,1 RESTORE COUNT TO GET WORD 1 F3B01440

␣␣␣␣E4 = 150

Definition
00226 −0 50000 1 00000 148 E4 CAL 0,1 F3B01470

References (2)

	00123	0 62100 0 00226	72		STA	E4	F3B00710
	00233	2 00001 4 00226	153		TIX	E4,4,1	F3B01520

␣␣␣␣E5 = 153

Definition
00231 −0 63400 2 02344 151 E5 SXD 6BOX,2 SAVE COUNT FOR TYPE 6 ENTRY F3B01500
Reference
00230 1 77777 2 00231 150 TXI E5,2,−1 F3B01490

␣␣␣␣F1 = 157

Definition
155 ENTRY IS TYPE 4 F3B01540

00235 1 00001 1 00236 156 F1 TXI F2,1,1 F3B01550
Reference
00222 0 10000 0 00235 143 TZE F1 ENTRY IS TYPE 4 F3B01420

␣␣␣␣F2 = 158

Definition
00236 0 53400 4 02277 157 F2 LXA L(4),4 F3B01560
Reference
00235 1 00001 1 00236 156 F1 TXI F2,1,1 F3B01550

␣␣␣␣F3 = 160

Definition
00240 −0 50000 1 00000 159 F3 CAL 0,1 F3B01580

References (2)

	00124	0 62100 0 00240	73		STA	F3	F3B00720
	00245	2 00001 4 00240	164		TIX	F3,4,1	F3B01630

␣␣␣␣F4 = 163

Definition
00243 −0 63400 2 02342 162 F4 SXD 4BOX,2 SAVE COUNT FOR TYPE 4 ENTRY F3B01610
Reference
00242 1 77777 2 00243 161 TXI F4,2,−1 F3B01600

␣␣␣␣G1 = 174

Definition
00256 1 77777 2 00257 174 G1 TXI G2,2,−1 F3801730
Reference
00255 1 77777 1 00256 173 TXI G1,1,−1 F3B01720

␣␣␣␣G2 = 175

Definition
00257 1 00001 4 00260 175 G2 TXI G3,4,1 F3B01740
Reference
00256 1 77777 2 00257 174 G1 TXI G2,2,−1 F3801730

␣␣␣␣G3 = 176

Definition
00260 3 00000 4 00253 176 G3 TXH G4,4,0 INDEX C REDUCES T0 ZERO F3B01750
Reference
00257 1 00001 4 00260 175 G2 TXI G3,4,1 F3B01740

␣␣␣␣G4 = 171

Definition
00253 −0 50000 2 03210 171 G4 CAL TYPE2,2 F3B01700
Reference
00260 3 00000 4 00253 176 G3 TXH G4,4,0 INDEX C REDUCES T0 ZERO F3B01750

␣␣␣␣H1 = 182

Definition
00266 1 77777 4 00267 183 H1 TXI H2,4,−1 F3B01820
Reference
00265 1 77777 1 00266 182 TXI H1,1,−1 F3B01810

␣␣␣␣H2 = 183

Definition
00267 1 00001 2 00270 184 H2 TXI H3,2,1 F3B01830
Reference
00266 1 77777 4 00267 183 H1 TXI H2,4,−1 F3B01820

␣␣␣␣H3 = 184

Definition
00270 3 00000 2 00263 185 H3 TXH H4,2,0 F3B01840
Reference
00267 1 00001 2 00270 184 H2 TXI H3,2,1 F3B01830

␣␣␣␣H4 = 179

Definition
00263 −0 50000 4 04030 180 H4 CAL TYPE3,4 F3B01790
Reference
00270 3 00000 2 00263 185 H3 TXH H4,2,0 F3B01840

␣␣␣␣H5 = 177

Definition
177 TYPE 3 TO TRASTO F3B01760

00261 −0 53400 2 02341 178 H5 LXD 3BOX,2 F3B01770
Reference
00251 −3 00000 4 00261 169 TXL H5,4,0 6. F3B01680

␣␣␣␣I1 = 190

Definition
00276 1 77777 2 00277 192 I1 TXI I2,2,−1 F3B01910
Reference
00275 1 77777 1 00276 191 TXI I1,1,−1 F3B01900

␣␣␣␣I2 = 191

Definition
00277 1 00001 4 00300 193 I2 TXI I3,4,1 F3B01920
Reference
00276 1 77777 2 00277 192 I1 TXI I2,2,−1 F3B01910

␣␣␣␣I3 = 192

Definition
00300 3 00000 4 00273 194 I3 TXH I4,4,0 F3B01930
Reference
00277 1 00001 4 00300 193 I2 TXI I3,4,1 F3B01920

␣␣␣␣I4 = 187

Definition
00273 −0 50000 2 04650 189 I4 CAL TYPE4,2 F3B01880
Reference
00300 3 00000 4 00273 194 I3 TXH I4,4,0 F3B01930

␣␣␣␣I5 = 185

Definition
186 TYPE 4 TO TRASTO F3B01850

00271 −0 53400 4 02342 187 I5 LXD 4BOX,4 F3801860
Reference
00262 −3 00000 2 00271 179 TXL I5,2,0 F3B01780

␣␣␣␣J1 = 198

Definition
00306 1 77777 4 00307 201 J1 TXI J2,4,−1 F3B02000
Reference
00305 1 77777 1 00306 200 TXI J1,1,−1 F3B01990

␣␣␣␣J2 = 199

Definition
00307 1 00001 2 00310 202 J2 TXI J3,2,1 F3B02010
Reference
00306 1 77777 4 00307 201 J1 TXI J2,4,−1 F3B02000

␣␣␣␣J3 = 200

Definition
00310 3 00000 2 00303 203 J3 TXH J4,2,0 F3B02020
Reference
00307 1 00001 2 00310 202 J2 TXI J3,2,1 F3B02010

␣␣␣␣J4 = 195

Definition
00303 −0 50000 4 05470 198 J4 CAL TYPE5,4 F3B01970
Reference
00310 3 00000 2 00303 203 J3 TXH J4,2,0 F3B02020

␣␣␣␣J5 = 193

Definition
195 TYPE 5 TO TRASTO F3B01940

00301 −0 53400 2 02343 196 J5 LXD 5BOX,2 F3D01950
Reference
00272 −3 00000 4 00301 188 TXL J5,4,0 - F3B01870

␣␣␣␣K1 = 206

Definition
00316 1 77777 2 00317 210 K1 TXI K2,2,−1 F3B02090
Reference
00315 1 77777 1 00316 209 TXI K1,1,−1 F3B02080

␣␣␣␣K2 = 207

Definition
00317 1 00001 4 00320 211 K2 TXI K3,4,1 F3B02100
Reference
00316 1 77777 2 00317 210 K1 TXI K2,2,−1 F3B02090

␣␣␣␣K3 = 208

Definition
00320 3 00000 4 00313 212 K3 TXH K4,4,0 F3B02110
Reference
00317 1 00001 4 00320 211 K2 TXI K3,4,1 F3B02100

␣␣␣␣K4 = 203

Definition
00313 −0 50000 2 06310 207 K4 CAL TYPE6,2 F3B02060
Reference
00320 3 00000 4 00313 212 K3 TXH K4,4,0 F3B02110

␣␣␣␣K5 = 201

Definition
204 TYPE 6 TO TRASTO F3B02030

00311 −0 53400 4 02344 205 K5 LXD 6BOX,4 F3B02040
Reference
00302 −3 00000 2 00311 197 TXL K5,2,0 F3B01960

␣␣␣CPY = 303

Definition
00457 0 70000 0 02366 311 CPY CPY M2CW+4 FILE F3B03100
Reference
00460 0 02000 0 00457 312 TRA CPY F3B03110

␣␣␣L0X = 1242

Definition
02332 1296 L0X SYN O456 LOWER INDEX FOR TRAD IN DECR FIELD F3B12720

References (5)

00474	0 60200 0 02332	324	SLW	L0X	F3B03230
00552	−0 63400 2 02332	374	SXD	L0X,2 SAVE CTRAD U IN INDEX CELL DECR.	F3B03730
00555	0 40200 0 02332	377	SUB	L0X CTRAD U	F3B03760
01125	−0 63400 2 02332	620	SXD	L0X,2 STORE COMPILING FIRST	F3B06100
01130	0 40200 0 02332	623	SUB	L0X	F3806220

␣␣␣OUT = 296

Definition
00450 0 50000 0 02345 304 OUT CLA TRSWC TIFGO WORD COUNT. F3BD3030
Reference
00412 0 10000 0 00450 274 TZE OUT YES F3B02730

␣␣␣RDS = 302

Definition
00456 0 76200 0 00222 310 RDS RDS 146 MOVE UP TAPE 2, 3 FILES TO TIFGO F3B03090

References (2)

	00462	0 02000 0 00456	314		TRA	RDS	F3B03130
	00463	2 00001 1 00456	315	TIX	TIX	RDS,1,1	F3B03140

␣␣␣REW = 308

Definition
00464 0 77200 0 00224 316 REW REW 148 TAPE.4 REWOUND F3B03150

␣␣␣TIX = 307

Definition
00463 2 00001 1 00456 315 TIX TIX RDS,1,1 F3B03140
Reference
00461 0 02000 0 00463 313 TRA TIX END OF RECORD F3B03120

␣␣1BOX = 1247

Definition
02337 0 00000 0 00000 1304 1BOX F3B12800

References (5)

00125	−0 63400 0 02337	74		SXD	1BOX,0 CLEAR DECREMENT OF WORK AREA	F3B00730
00173	−0 53400 2 02337	117		LXD	1BOX,2	F3B01160
00177	−0 63400 2 02337	121	C4	SXD	1BOX,2 SAVE COUNT OF TYPE 1 ENTRY	F3B01200
00247	−0 53400 1 02337	167	PACK	LXD	1BOX,1 PACK TRASTO ENTRIES T0 GETHER	F3B01660
	02337	1310	ONEL	SYN	1BOX TWOS COMPS	F3B12860

␣␣2BOX = 1248

Definition
02340 0 00000 0 00000 1305 2BOX F3B12810

References (4)

00126	−0 63400 0 02340	75		SXD	2BOX,0	F3B00740
00161	−0 53400 2 02340	106		LXD	2BOX,2 CLEAR IR 2	F3B01050
00165	−0 63400 2 02340	110	B4	SXD	2BOX,2 PLACE COUNT IN PROPER PLACE	F3B01090
00250	−0 53400 4 02340	168		LXD	2BOX,4 IN MEMORY IN ORDER OF TYPES 1 THRU	F3B01670

␣␣3BOX = 1249

Definition
02341 0 00000 0 00000 1306 3BOX F3B12820

References (4)

00127	−0 63400 0 02341	76		SXD	3BOX,0	F3B00750
00143	−0 53400 2 02341	90		LXD	3BOX,2 PLACE A COUNT OF 4 IN IR 4,	F3B00890
00147	−0 63400 2 02341	94	A2	SXD	3BOX,2 TO GET 4 WORDS IN PROPER LOC.	F3B00930
00261	−0 53400 2 02341	178	H5	LXD	3BOX,2	F3B01770

␣␣4BOX = 1250

Definition
02342 0 00000 0 00000 1307 4BOX F3B12830

References (4)

00130	−0 63400 0 02342	77		SXD	4BOX,0	F3B00760
00237	−0 53400 2 02342	158		LXD	4BOX,2	F3B01570
00243	−0 63400 2 02342	162	F4	SXD	4BOX,2 SAVE COUNT FOR TYPE 4 ENTRY	F3B01610
00271	−0 53400 4 02342	187	I5	LXD	4BOX,4	F3801860

␣␣5BOX = 1251

Definition
02343 0 00000 0 00000 1308 5BOX F3B12840

References (4)

00131	−0 63400 0 02343	78		SXD	5BOX,0	F3B00770
00207	−0 53400 2 02343	131		LXD	5BOX,2 COUNT OF ENTRIES FOR TYPE 5	F3B01300
00213	−0 63400 2 02343	135	D4	SXD	5BOX,2 SAVE COUNT FOR TYPE 1 ENTRY	F3B01340
00301	−0 53400 2 02343	196	J5	LXD	5BOX,2	F3D01950

␣␣6BOX = 1252

Definition
02344 0 00000 0 00000 1309 6BOX F3B12850

References (4)

00132	−0 63400 0 02344	79		SXD	6BOX,0	F3B00780
00225	−0 53400 2 02344	147		LXD	6BOX,2	F2B01460
00231	−0 63400 2 02344	151	E5	SXD	6BOX,2 SAVE COUNT FOR TYPE 6 ENTRY	F3B01500
00311	−0 53400 4 02344	205	K5	LXD	6BOX,4	F3B02040

␣␣ADD1 = 1185

Definition
02241 −0 63400 4 02260 1234 ADD1 SXD ADD4,4 SAVE LINKAGE F3B12330
Reference
02271 0 07400 4 02241 1258 PAT17 TSX ADD1,4 F3B12570

␣␣ADD2 = 1186

Definition
02242 −0 53400 2 02346 1235 ADD2 LXD CTRAST,2 CURRENT TRASTO ENTRY POINT F3B12340
Reference
D 02270 −3 00000 0 02242 1257 TXL ADD2,0 F3B12560

␣␣ADD3 = 1196

Definition
02254 1 77774 2 02255 1245 ADD3 TXI ADD3+1,2,−4 SKIP TO NEXT ENTRY F3B12440

References (5)

02244	0 12000 0 02254	1237		TPL	ADD3 SORT OUT TYPES 1,2,3	F3B12360
02246	−0 12000 0 02254	1239		TMI	ADD3 TYPE 2	F3B12380
02250	−0 12000 0 02254	1241		TMI	ADD3 TYPE 3	F3B12400
02254	1 77774 2 02255	1245	ADD3	TXI	ADD3+1,2,−4 SKIP TO NEXT ENTRY	F3B12440
02262	1 77774 2 02255	1251		TXI	ADD3+1,2,−4 BACK FOR NEXT ENTRY	F3B12500

␣␣ADD4 = 1200

Definition
D 02260 −3 00000 0 02265 1249 ADD4 TXL ADD6,0 F3B12480

References (2)

	02241	−0 63400 4 02260	1234	ADD1	SXD	ADD4,4 SAVE LINKAGE	F3B12330
	02263	−0 53400 4 02260	1252	ADD5	LXD	ADD4,4	F3B12510

␣␣ADD5 = 1203

Definition
02263 −0 53400 4 02260 1252 ADD5 LXD ADD4,4 F3B12510
Reference
02256 0 02000 0 02263 1247 TRA ADD5 F3B12460

␣␣ADD6 = 1205

Definition
02265 0 50000 0 02333 1254 ADD6 CLA ADDCO F3B12530

References (6)

	02013	−0 63400 4 02270	1070	M23000	SXD	ADD6+3,4 SAVE CONTENTS 0F IR4 FOR LINKAGE	F3B10690
	02027	−0 63400 4 02270	1083	M23025	SXD	ADD6+3,4 SAVE LINKAGE	F3B10820
	02043	−0 63400 4 02270	1096	M23035	SXD	ADD6+3,4	F3B10950
	02062	−0 63400 4 02270	1112	M23040	SXD	ADD6+3,4 SAVE LINKAGE	F3B11110
D	02260	−3 00000 0 02265	1249	ADD4	TXL	ADD6,0	F3B12480
	02272	−0 53400 4 02270	1259	PAT18	LXD	ADD6+3,4	F3B12580

␣␣ASC0 = 3797

Definition
07325 1351 ASC0 BSS 300 F3B13270
Reference
00745 0 60100 2 07325 502 STO ASC0,2 STORE BETA IN PROPER ASC0 LOC F3B05010

␣␣ASN0 = 3796

Definition
07324 1350 ASN0 BSS 1 ONE LESS THAN CUR ASSIGN NUM IN DEC FIELD F3B13260

References (3)

00475	0 60200 0 07324	325		SLW	ASN0	F3B03240
00730	0 50000 0 07324	489	M21600	CLA	ASN0 CURRENT ASSIGN NO.	F3B04880
00733	0 60100 0 07324	492		STO	ASN0 REPLACE ASSIGN NO.	F3B04910

␣␣BBOX = 1261

Definition
02355 0 00000 0 00000 1328 BBOX TWOS COMP OF NO OF WDS ALREADY ENTERED IN BLOCK F3B13040

References (4)

00473	0 60200 0 02355	323		SLW	BBOX	F3B03220
00751	−0 53400 2 02355	507	M21900	LXD	BBOX,2 2S COMPL. OF NO OF WDS IN BLOCK	F3B05060
02203	−0 53400 2 02355	1204		LXD	BBOX,2 2 S COMP. OF NO. OF WDS. IN BLOCK	F3B12030
02233	−0 63400 2 02355	1228		SXD	BBOX,2 SAVE COUNT	F3B12270

␣␣CALL = 209

Definition
00321 215 CALL SYN RTT00 F3B02140
Reference
00312 −3 00000 4 00321 206 TXL CALL,4,0 F3B02050

␣␣CBOX = 1241

Definition
02331 1294 CBOX SYN L(3) IRC STORED IN DECR FIELD FOR ALL CLSD SUBROUTINE LINKAGE F3B12700

References (16)

00472	0 60200 0 02331	322		SLW	CBOX	F3B03210
01477	−0 63400 4 02331	861	M22750	SXD	CBOX,4 TR COUNT STORED FOR LINKAGE	F3B08600
01546	−0 53400 4 02331	900		LXD	CBOX,4 RESTORE LINKAGE, LEVEL NO.	F3B08990
01556	−0 53400 4 02331	908	M22795	LXD	CBOX,4	F3B09070
01560	−0 63400 4 02331	911	M22800	SXD	CBOX,4 SAVE COUNT IN 4 FOR LINKAGE	F3B09100
01631	−0 53400 4 02331	952	M22848	LXD	CBOX,4 RESTORE LINKAGE	F3B09510
02077	−0 63400 4 02331	1129	M23050	SXD	CBOX,4 SAVE LINKAGE	F3B11280
02111	−0 53400 4 02331	1139		LXD	CBOX,4 RESTORE LINKAGE	F3B11380
02113	−0 63400 4 02331	1142	M23060	SXD	CBOX,4 SAVE LINKAGE	F3B11410
02125	−0 53400 4 02331	1152		LXD	CBOX,4 RESTORE LINKAGE	F3B11510
02127	−0 63400 4 02331	1155	M23065	SXD	CBOX,4 SAVE LINKAGE	F3B11540
02145	−0 53400 4 02331	1169		LXD	CBOX,4	F3B11680
02147	−0 63400 4 02331	1172	M23070	SXD	CBOX,4 SAVE LINKAGE	F3B11710
02161	−0 53400 4 02331	1182		LXD	CBOX,4	F3B11810
02163	−0 63400 4 02331	1187	M23075	SXD	CBOX,4 SAVE LINKAGE	F3B11860
02175	−0 53400 4 02331	1197		LXD	CBOX,4	F3B11960

␣␣CDR1 = 25

Definition
00031 1 00013 4 00032 12 CDR1 TXI M20000+2,4,11 ADD 13 FOR SPACING TAPE TO TIFGO TABLE F3B00110

␣␣CHS1 = 1255

Definition
02347 0 00000 0 00000 1320 CHS1 F3B12960

References (3)

00074	0 60200 0 02347	48	RDRB4	SLW	CHS1 AFTER ALL WORDS ARE COUNTED	F3B00470
00103	0 50000 0 02347	55		CLA	CHS1 COMPUTED CHECK SUM.	F3B00540
	02347	1321	ETRAL	SYN	CHS1 CURRENT TRALEV ENTRY POINT IN DEC FIELD (TWOS COMP)	F3B12970

␣␣CHS2 = 1256

Definition
02350 0 00000 0 00000 1322 CHS2 F3B12980

References (3)

00102	0 60200 0 02350	54		SLW	CHS2	F3B00530
00104	0 40200 0 02350	56		SUB	CHS2 DO CHECK SUMS MATCH	F3B00550
	02350	1323	LEVN0	SYN	CHS2 LEVEL NUM OF CURRENT ADDR OF CURR TIFGO ENTRY IN ADDRESS	F3B12990

␣␣CIB2 = 3474

Definition
06622 1345 CIB2 SYN TYPE2+1802 F3B13210

References (4)

00760	0 70000 1 06622	514	M21910	CPY	CIB2,1 WRITE REMAINING CITS	F3B05130
02213	0 70000 1 06622	1212	CIT201	CPY	CIB2,1 OUTPUT AREA	F3B12110
02225	0 60100 2 06622	1222		STO	CIB2,2 OUTPUT AREA	F3B12210
	06767	1346	TRAD	SYN	CIB2+101	F3B13220

␣␣CLOC = 1264

Definition
02360 0 00000 0 00000 1331 CLOC INCREMENT FOR LOC WD OF FIRST INST IN CUR BLOCK F3B13070

References (10)

01036	0 60100 0 02360	563	PAT3	STO	CLOC FOR LOC WD OF 1ST INSTR OF TRASTO BLOCK	F3B05620
01076	0 60100 0 02360	596	PAT7	STO	CLOC SAVE INCREMENT	F3B05930
01173	0 60100 0 02360	658		STO	CLOC COUNTER	F3B06570
01217	0 50000 0 02360	678		CLA	CLOC UPDATE LOCATION WORD FOR NEXT ENTRY	F3B06770
01221	0 60100 0 02360	680		STO	CLOC	F3B06790
01305	0 60100 0 02360	734		STO	CLOC COUNTER	F3B07330
01331	0 50000 0 02360	754		CLA	CLOC UPDATE LOCATION WORD FOR	F3B07530
01333	0 60100 0 02360	756		STO	CLOC	F3B07550
01705	0 50000 0 02360	996	PAT10	CLA	CLOC INCREMENT FOR LOC WD OF 1ST ENTRY	F3B09950
01707	0 60100 0 02360	998	PAT12	STO	CLOC RESTORE WITH NEW INCREMENT	F3B09970

␣␣COR3 = 71

Definition
00107 0 07400 4 00004 59 COR3 TSX 4,4 CHECK SUMS INCORRECT AFTER 5 TRIES F3B00580

␣␣COR4 = 232

Definition
00350 0 07400 4 00004 238 COR4 TSX 4,4 ERROR READING TIFGO TABLE AFTER 5 TRIES F3B02370

␣␣COR5 = 253

Definition
00375 0 07400 4 00004 260 COR5 TSX 4,4 AFTER 5 TRIES F3B02590

␣␣COR6 = 264

Definition
00410 0 07400 4 00004 272 COR6 TSX 4,4 AFTER 5 TRIES F3B02710

␣␣COR7 = 280

Definition
00430 0 07400 4 00004 288 COR7 TSX 4,4 ERROR READING TAPE 4 F3B02870

␣␣COR8 = 294

Definition
00446 0 07400 4 00004 302 COR8 TSX 4,4 ERROR TRYING T0 READ TRALEV FROM TAPE 4 F3B03010

␣␣E1C2 = 1257

Definition
02351 0 00000 0 00000 1324 E1C2 CELL FOR SAVING AC F3B13000

References (2)

	02177	0 60100 0 02351	1200	CIT200	STO	E1C2 SAVE AC	F3B11990
	02234	0 50000 0 02351	1229		CLA	E1C2 RESTORE AC	F3B12280

␣␣E2C2 = 1258

Definition
02352 0 00000 0 00000 1325 E2C2 CELL FOR SAVING MQ F3B13010

References (2)

	02200	−0 60000 0 02352	1201		STQ	E2C2 SAVE MQ	F3B12000
	02235	0 56000 0 02352	1230		LDQ	E2C2 RESTORE MQ	F3B12290

␣␣E3C2 = 1259

Definition
02353 0 00000 0 00000 1326 E3C2 CELL FOR SAVING IRA IN DEC FIELD F3B13020

References (2)

	02201	−0 63400 1 02353	1202		SXD	E3C2,1 SAVE IR 1	F3B12010
	02236	−0 53400 1 02353	1231		LXD	E3C2,1 RESTORE IR 1	F3B12300

␣␣E4C2 = 1260

Definition
02354 0 00000 0 00000 1327 E4C2 CELL FOR SAVING IRB IN DEC FIELD F3B13030

References (2)

	02202	−0 63400 2 02354	1203		SXD	E4C2,2 SAVE IR 2	F3B12020
	02237	−0 53400 2 02354	1232		LXD	E4C2,2 RESTORE IR 2	F3B12310

␣␣L(0) = 1212

Definition
02274 1290 L(0) SYN M2CON F3B12660

References (3)

00252	−0 53400 2 02274	170	LXD	L(0),2	F3B01690
00333	0 53400 1 02274	225	LXA	L(0),1	F3B02240
00363	0 53400 1 02274	250	LXA	L(0),1	F3B02490

␣␣L(2) = 1214

Definition
02276 1291 L(2) SYN M2CON+2 F3B12670
Reference
00327 0 40200 0 02276 221 SUB L(2) IS TABLE CALLED FOR F3B02200

␣␣L(3) = 1241

Definition
02331 +000000000003 1293 L(3) DEC 3 F3B12690

References (3)

00067	0 53400 2 02331	43		LXA	L(3),2 PLACE COUNT OF 3 IN IR 2 IN ORDER TO	F3B00420
00355	0 40200 0 02331	244		SUB	L(3) IS TABLE CALLED FOR	F3B02430
	02331	1294	CBOX	SYN	L(3) IRC STORED IN DECR FIELD FOR ALL CLSD SUBROUTINE LINKAGE	F3B12700

␣␣L(4) = 1215

Definition
02277 1292 L(4) SYN M2CON+3 F3B12680

References (6)

00142	0 53400 4 02277	89		LXA	L(4),4 MINUS IN FIRST AND THIRD WDS.	F3B00880
00160	0 53400 4 02277	105	B3	LXA	L(4),4 COUNT 4 IN IR 4	F3B01040
00172	0 53400 4 02277	116	C2	LXA	L(4),4	F3B01150
00206	0 53400 4 02277	130		LXA	L(4),4	F3B01290
00224	0 53400 4 02277	146	E3	LXA	L(4),4	F3B01450
00236	0 53400 4 02277	157	F2	LXA	L(4),4	F3B01560

␣␣M2CW = 1266

Definition
02362 1334 M2CW BSS 5 FOUR WORD INSTRUCTION STORAGE F3B13100

References (115)

00457	0 70000 0 02366	311	CPY	CPY	M2CW+4 FILE	F3B03100
00541	0 60100 0 02364	364		STO	M2CW+2 3RD WD OF INSTRUCTION AREA	F3B03630
00545	0 00000 0 02364	368		HTR	M2CW+2 BETA	F3B03670
00556	0 60100 0 02365	378		STO	M2CW+3 4TH WD OF INSTRUCTION	F3B03770
00563	0 00000 0 02365	383		HTR	M2CW+3 NO. OF TRAD ENTRUES CTRAD 1+1-CTRAD 2	F3B03820
00571	0 60100 0 02364	389		STO	M2CW+2 3RD WD. OF CIT	F3B03880
00575	0 00000 0 02364	393		HTR	M2CW+2 TRAD BI	F3B03920
00613	0 60100 0 02364	408	M21310	STO	M2CW+2 STORE BETA 2 IN 3RD WD.	F3B04070
00617	0 00000 0 02364	412		HTR	M2CW+2 BETA 2, BETA 1	F38D411D
00635	0 60100 0 02364	427	M21410	STO	M2CW+2 COMPILE	F3B04260
00641	0 00000 0 02364	431		HTR	M2CW+2 BETA1,	F3B04300
00652	0 60100 0 02364	441		STO	M2CW+2 3RD WORD, BETA 1	F3B04400
00656	0 00000 0 02364	445		HTR	M2CW+2 BETA 1	F3B04440
00663	0 60100 0 02364	450		STO	M2CW+2 3RD WORD OF COMPILED INSTRUCTIONS	F3B04490
00667	0 00000 0 02364	454		HTR	M2CW+2 BETA 2	F3B04530
00674	0 60100 0 02364	460		STO	M2CW+2 3RD WORD OF CIT	F3B04590
00705	0 60100 0 02366	469		STO	M2CW+4 5TH WD.	F3B04680
00710	0 60100 0 02362	472		STO	M2CW INTERNAL FMLA NO.	F3B04710
00712	0 00000 0 02362	474		HTR	M2CW	F3B04730
00714	0 00000 0 02366	476		HTR	M2CW+4 BETA 2 C(M2CW+4)	F3B04750
00721	0 60100 0 02366	481		STO	M2CW+4 STORE BETA 3	F3B04800
00725	0 00000 0 02366	485		HTR	M2CW+4 BETA 3 C(M2CW+4)	F3B04840
00731	0 60100 0 02365	490		STO	M2CW+3 4TH WORD OF CIT	F3B04890
00740	0 00000 0 02365	497		HTR	M2CW+3 CURRENT ASSIGN NO.	F3B04960
00770	0 70000 0 02366	522		CPY	M2CW+4 OF TIFGO FILE	F3B05210
01034	0 60100 0 02362	561	PAT1	STO	M2CW	F3B05600
01050	0 60100 0 02362	573		STO	M2CW ADJUST LOCATION WORD TO ZERO	F3B05720
01055	0 60100 0 02362	578		STO	M2CW +170000000000 , NEW. LOC. WORD	F3B05770
01060	0 60100 0 02364	581		STO	M2CW+2 3RD WORD	F3B05800
01062	0 00000 0 02362	583		HTR	M2CW 17(8)	F3B05820
01064	0 00000 0 02364	585		HTR	M2CW+2 BETA	F3B05840
01074	0 60100 0 02362	594	PAT5	STO	M2CW	F3B05930
01110	0 60100 0 02362	606		STO	M2CW ADJUST LOCATION WROD TO ZERO	F3B06030
01131	0 60100 0 02365	624		STO	M2CW+3	F3806230
01147	0 00000 0 02365	638		HTR	M2CW+3 NO. OF ADDRESS IN TRAD	F3B06370
01174	0 60100 0 02362	659		STO	M2CW SET LOCATION WORD FOR FIRST	F3B06580
01176	−0 60200 0 02362	661		ORS	M2CW	F3B06600
01212	0 60100 0 02362	673		STO	M2CW ADJUST LOCATION WORD	F3B06720
01222	0 60100 0 02362	681		STO	M2CW	F3B06800
01306	0 60100 0 02362	735		STO	M2CW SET LOCATION WORD FOR	F3B07340
01310	−0 60200 0 02362	737		ORS	M2CW	F3B07360
01324	0 60100 0 02362	749		STO	M2CW ADJUST LOCATION WORD	F3B07480
01334	0 60100 0 02362	757		STO	M2CW	F3B07560
01611	0 60100 0 02365	936		STO	M2CW+3 DECREMENT, T1, IN 4TH WORD	F3B09350
01613	0 60200 0 02364	938		SLW	M2CW+2 SYMBOLIC ADDRESS	F3B09370
01615	−0 60200 0 02364	940		ORS	M2CW+2 PUT 1N ADDRESS PART OF 3RD WD	F3B09390
01617	0 00000 0 02362	942		HTR	M2CW INT. FMLA NO. IF ANY	F3B09410
01621	0 00000 0 02364	944		HTR	M2CW+2 +140000000000, T2	F3B09430
01622	0 00000 0 02365	945		HTR	M2CW+3 T1	F3B09440
01623	0 60100 0 02365	946		STO	M2CW+3 PUT T2 IN 4TH WRD.	F3B09450
01627	0 00000 0 02364	950		HTR	M2CW+2 14(8),T2	F3B09490
01630	0 00000 0 02365	951		HTR	M2CW+3 T2	F3B09500
01635	0 60200 0 02364	956		SLW	M2CW+2 SAVE IN 3RD WORD FOR COMPILER	F3B09550
01640	0 60200 0 02365	959		SLW	M2CW+3 STORE IN 4TH WD	F3B09580
01642	0 00000 0 02362	961		HTR	M2CW INTERNAL FMLA NO., IF ANY	F3B09600
01645	0 00000 0 02365	964		HTR	M2CW+3 ZERO,T1	F3B09630
01651	0 00000 0 02364	968		HTR	M2CW+2 S(BCD)	F3B09670
01660	0 60100 0 02365	975		STO	M2CW+3 4TH WORD	F3B09740
01666	0 60100 0 02363	981		STO	M2CW+1 2ND WORD OF COMPILER	F3B09800
01670	−0 60200 0 02363	983		ORS	M2CW+1 IN DECREMENT	F3B09820
01672	0 00000 0 02362	985		HTR	M2CW	F3B09840
01673	0 00000 0 02363	986		HTR	M2CW+1 TXI, N(COMP)	F3B09850
01675	0 00000 0 02365	988		HTR	M2CW+3 1,	F3B09870
01704	0 60100 0 02365	995	PAT9	STO	M2CW+3	F3B09940
01710	0 60100 0 02364	999	PAT13	STO	M2CW+2 ALS 0 PLACE IN 3RD WD OF COMPILER	F3B09980
01712	−0 60200 0 02364	1001	PAT15	ORS	M2CW+2 SAVE IN DECREMENT OF 3RD WD	F3B10000
01714	0 00000 0 02362	1003		HTR	M2CW	F3B10020
01716	0 00000 0 02364	1005	COR16	HTR	M2CW+2 WORD COUNT, INCREMENTED LOC WD	F3B10040
01717	0 00000 0 02365	1006		HTR	M2CW+3 T1	F3B10050
01723	0 60100 0 02365	1010		STO	M2CW+3 4TH WORD	F3B10090
01725	0 00000 0 02364	1012	COR17	HTR	M2CW+2 LOC WORD	F3B10110
01730	0 00000 0 02365	1015		HTR	M2CW+3 1T2	F3B10140
01737	0 60100 0 02365	1022		STO	M2CW+3 4TH WRD. FOR COMPILER	F3B10210
01743	0 60200 0 02363	1026		SLW	M2CW+1 1 TXI, N	F3B10250
01745	0 00000 0 02362	1028		HTR	M2CW	F3B10270
01746	0 00000 0 02363	1029		HTR	M2CW+1 TXI, N	F3B10280
01750	0 00000 0 02365	1031		HTR	M2CW+3 1,T	F3B10300
01756	0 60100 0 02364	1037		STO	M2CW+2 3RD WD OF COMPILER	F3B10360
01761	0 60100 0 02366	1040		STO	M2CW+4 5TH WORD	F3B10390
01763	0 00000 0 02362	1042		HTR	M2CW	F3B10410
01766	0 00000 0 02366	1045		HTR	M2CW+4 4,4	F3B10440
01772	0 00000 0 02364	1049		HTR	M2CW+2 12(8),T	F3B10480
01775	0 60100 0 02365	1052		STO	M2CW+3 4TH WD OF COMPILER	F3B10510
01777	0 60100 0 02364	1054		STO	M2CW+2 3RD WD, SAVE T	F3B10530
02003	0 00000 0 02364	1058		HTR	M2CW+2 14(8),T	F3B10570
02004	0 00000 0 02365	1059		HTR	M2CW+3 ZERO,T	F3B10580
02011	0 00000 0 02366	1064		HTR	M2CW+4 5 4	F3B10630
02015	0 60100 0 02364	1072		STO	M2CW+2 3RD WORD	F3B10710
02017	−0 60200 0 02364	1074		ORS	M2CW+2 PLACE IN ADDRESS	F3B10730
02023	0 00000 0 02364	1078		HTR	M2CW+2 TIFEN, ADDC0	F3B10770
02031	0 60100 0 02364	1085		STO	M2CW+2 3RD WD.	F3B10840
02033	−0 60200 0 02364	1087		ORS	M2CW+2 ADDRESS	F3B10860
02037	0 00000 0 02364	1091		HTR	M2CW+2 TIFFN, ADDC0	F3B10900
02045	0 60100 0 02362	1098		STO	M2CW INT.FMLA NO	F3B10970
02046	0 60100 0 02364	1099		STO	M2CW+2 3RD WD	F3B10980
02050	−0 60200 0 02362	1101		ORS	M2CW ADDRESS OF FIRST WD.	F3B1100D
02052	−0 60200 0 02364	1103		ORS	M2CW+2 ADD 10 TO COUNT	F3B11020
02054	0 00000 0 02362	1105		HTR	M2CW INT FMLAN0, ADDC0	F3B11040
02056	0 00000 0 02364	1107		HTR	M2CW+2 INT. FMLA NO., ADDC0+10	F3B11060
02064	0 60100 0 02364	1114		STO	M2CW+2 3RD WD	F3B11130
02067	−0 60200 0 02364	1117		ORS	M2CW+2 IN ADDRESS OF 3RD WD	F3B11160
02073	0 00000 0 02364	1121		HTR	M2CW+2 TIFFN, ADDC0+10	F3B11200
02103	0 60100 0 02364	1133		STO	M2CW+2 SRD WORD	F3B11320
02107	0 00000 0 02364	1137		HTR	M2CW+2 AI	F3B11360
02117	0 60100 0 02364	1146		STO	M2CW+2 3RD WD	F3B114S0
02123	0 00000 0 02364	1150		HTR	M2CW+2 AI	F3B11490
02133	0 60100 0 02364	1159		STO	M2CW+2	F3B11580
02135	0 60100 0 02362	1161		STO	M2CW	F3B11600
02137	−0 60200 0 02362	1163		ORS	M2CW ADD TO ADDRESS	F3B11620
02141	0 00000 0 02362	1165		HTR	M2CW T1FFN+10(8)	F3B11640
02143	0 00000 0 02364	1167		HTR	M2CW+2 AI	F3B11660
02153	0 60100 0 02364	1176		STO	M2CW+2	F3B11750
02157	0 00000 0 02364	1180		HTR	M2CW+2 AI	F3B11790
02167	0 60100 0 02364	1191		STO	M2CW+2 ENTRY	F3B11900
02173	0 00000 0 02364	1195		HTR	M2CW+2 AI	F3B11940

␣␣MASK = 1245

Definition
02335 −200000000000 1302 MASK OCT −200000000000 F3B12780

References (2)

	00155	−0 32000 0 02335	101		ANA	MASK EXAMINE PREFIX, IF TYPE 2 HAS MINUS SIGN	F3B01000
	00221	−0 32000 0 02335	142		ANA	MASK TEST IF MINUS	F3B01410

␣␣O456 = 1242

Definition
02332 +000000000456 1295 O456 OCT 456 F3B12710

References (2)

	00040	0 46000 0 02332	20		LDA	O456 LOCATE DRUM ADDRESS OF TRASTO	F3B00190
		02332	1296	L0X	SYN	O456 LOWER INDEX FOR TRAD IN DECR FIELD	F3B12720

␣␣O460 = 1246

Definition
02336 +000000000460 1303 O460 OCT 460 F3B12790
Reference
00061 0 46000 0 02336 37 LDA O460 INITIAL DRUM ADDRESS F3B00360

␣␣ONEL = 1247

Definition
02337 1310 ONEL SYN 1BOX TWOS COMPS F3B12860

References (9)

01510	0 50000 0 02337	870		CLA	ONEL TYPE 1	F3B08690
01513	0 50000 0 02337	873	M22760	CLA	ONEL TEST TYPE 1	F3B08720
01564	0 50000 2 02337	915	M22805	CLA	ONEL,2 LENGTH OF TYPE 1 ENTRY ETC.	F3B09140
01570	0 40000 2 02337	919		ADD	ONEL,2 LENGTH OF TYPE 1 ENTRY ETC	F3B09180
	02340	1311	TWOL	SYN	ONEL+1 OF THE LENGTHS	F3B12870
	02341	1312	THREEL	SYN	ONEL+2 OF VARIOUS TYPES	F3B12880
	02342	1313	F0URL	SYN	ONEL+3 OF ENTRY BLOCKS	F3B12890
	02343	1314	FIVEL	SYN	ONEL+4 IN TRASTO	F3B12900
	02344	1315	SIXL	SYN	ONEL+5 IN DECREMENT FIELD	F3B12910

␣␣PACK = 167

Definition
166 TYPE 2 TO TRASTO F3B01650

00247 −0 53400 1 02337 167 PACK LXD 1BOX,1 PACK TRASTO ENTRIES T0 GETHER F3B01660

References (6)

00150	−2 00001 1 00247	95	TNX	PACK,1,1 EXIT FOR END OF TRASTO	F3B00940
00166	−2 00001 1 00247	111	TNX	PACK,1,1 EXIT	F3B01100
00200	−2 00001 1 00247	122	TNX	PACK,1,1 EXIT	F3B01210
00214	−2 00001 1 00247	136	TNX	PACK,1,1 EXIT	F3B01350
00232	−2 00001 1 00247	152	TNX	PACK,1,1 EXIT	F3B01510
00244	−2 00001 1 00247	163	TNX	PACK,1,1 EXIT	F3B01620

␣␣PAT1 = 540

Definition
01034 0 60100 0 02362 561 PAT1 STO M2CW F3B05600

␣␣PAT2 = 541

Definition
01035 0 50000 0 02301 562 PAT2 CLA M2CON+5 +10,INCREMENT F3B05610

␣␣PAT3 = 542

Definition
01036 0 60100 0 02360 563 PAT3 STO CLOC FOR LOC WD OF 1ST INSTR OF TRASTO BLOCK F3B05620

␣␣PAT5 = 572

Definition
01074 0 60100 0 02362 594 PAT5 STO M2CW F3B05930

␣␣PAT6 = 573

Definition
01075 0 50000 0 02301 595 PAT6 CLA M2CON+5 +10 F3B05940

␣␣PAT7 = 574

Definition
01076 0 60100 0 02360 596 PAT7 STO CLOC SAVE INCREMENT F3B05930

␣␣PAT9 = 964

Definition
01704 0 60100 0 02365 995 PAT9 STO M2CW+3 F3B09940

␣␣RET3 = 971

Definition
01713 0 07400 4 02177 1002 RET3 TSX CIT200,4 COMPILER F3B10010

␣␣SAVE = 1265

Definition
1332 0F TRASTO INSERTIONS (IN ADDR FIELD) F3B13080

02361 0 00000 0 00000 1333 SAVE TEHP STORAGE FOR FIRST TRALEV ENTRY FOR IF (E) F3B13090

References (2)

	01362	0 60100 0 02361	781		STO	SAVE A1, A2, A3, BECOMES A2, A3, A1	F3B07800
	01367	0 50000 0 02361	786		CLA	SAVE A1 THIRD	F3B07850

␣␣SIXL = 1252

Definition
02344 1315 SIXL SYN ONEL+5 IN DECREMENT FIELD F3B12910

␣␣STRS = 72

Definition
60 PROGRAM TO SORT TRASTO ENTRIES BY TYPE F3B00590

00110 0 50000 0 02345 61 STRS CLA TRSWC INITIALIZATION OF ALL MODIFIED ADDRESSES F3B00600
Reference
00105 0 10000 0 00110 57 TZE STRS YES F3B00560

␣␣TRAD = 3575

Definition
06767 1346 TRAD SYN CIB2+101 F3B13220

References (6)

00353	0 70000 0 06766	242		CPY	TRAD−1 IDENTIFICATION NUMBER	F3B02410
00354	0 50000 0 06766	243		CLA	TRAD−1	F3B02420
00360	0 70000 0 06766	247	RTTE2	CPY	TRAD−1 GET WORD COUNT	F3B02460
00361	0 50000 0 06766	248		CLA	TRAD−1 TEST WORD COUNT FOR NUMBER OF ENTRIES	F3B02470
00364	0 70000 1 06767	251	RTTE3	CPY	TRAD,1 COPY TRAD ENTRIES AND GET 2S COMP.	F3B02500
00567	0 50000 2 07361	387	M21125	CLA	TRAD+250,2 BRING IN NEXT TRAD ENTRY	F3B03860

␣␣TWOL = 1248

Definition
02340 1311 TWOL SYN ONEL+1 OF THE LENGTHS F3B12870

References (2)

	01504	0 50000 0 02340	866		CLA	TWOL TWOS COMPLIMENT OF NO OF WDS. IN DEC. FIELD	F3808630
	01515	0 40000 0 02340	875	M22762	ADD	TWOL NO. OF TYPE 2	F3B08740

␣ADDCO = 1243

Definition
02333 1299 ADDCO SYN TRSORG 8 TIMES THE NUM OF TIMES THE CURRENT ADDRESS OF THE F3B127S0

References (25)

01017	0 60100 0 02333	547		STO	ADDCO	F3B05460
01045	0 50000 0 02333	570		CLA	ADDCO TIFGO FMLA NO AGAIN FOUND	F3B05600
01052	0 50000 0 02333	575	M22035	CLA	ADDCO NO. OF TIMES TIFGO ENTRY APPEARS IN TRASTO	F3B05740
01105	0 50000 0 02333	603		CLA	ADDCO TIFGO FMLA NO.AGAIN FOUND	F3B06020
01166	0 50000 0 02333	653		CLA	ADDCO	F3B06520
01200	0 60100 0 02333	663		STO	ADDCO TRASTO LEV.NO.SEARCH AND TRANSFER TO PERFORM	F3B06620
01207	0 50000 0 02333	670		CLA	ADDCO TIFGO FMLA NO.AGAIN FOUND	F3B06690
01214	0 50000 0 02333	675	M22263	CLA	ADDCO	F3B06740
01300	0 50000 0 02333	729		CLA	ADDCO	F3B07280
01312	0 60100 0 02333	739		STO	ADDCO TRASTO LEV NO SEARCH	F3B07380
01321	0 50000 0 02333	746		CLA	ADDCO TIFGO FMLA NO AGAIN FOUND	F3B07450
01326	0 50000 0 02333	751	M22455	CLA	ADDCO	F3B07500
01430	0 50000 0 02333	819		CLA	ADDCO SET ADDC0 FOR	F3B08180
01432	0 60100 0 02333	821		STO	ADDCO	F3B08200
01445	0 50000 0 02333	832		CLA	ADDCO	F3B08310
01543	0 50000 0 02333	897	M22783	CLA	ADDCO NO. OF TIMES TIFGO APPEARS	F3808960
01545	0 60100 0 02333	899		STO	ADDCO RESTORE	F3B08980
02016	0 50000 0 02333	1073		CLA	ADDCO 8 TIMES N0, 0F TIMES ADDRESS )S IN TRASTO	F3B10720
02032	0 50000 0 02333	1086		CLA	ADDCO COUNT	F3B10850
02047	0 50000 0 02333	1100		CLA	ADDCO COUNT	F3B10990
02065	0 50000 0 02333	1115		CLA	ADDCO	F3B11140
02251	0 50000 0 02333	1242		CLA	ADDCO COUNT TIMES 8	F3B12410
02253	0 60100 0 02333	1244		STO	ADDCO RESTORE NEW COUNT	F3B12430
02265	0 50000 0 02333	1254	ADD6	CLA	ADDCO	F3B12530
02267	0 60100 0 02333	1256		STO	ADDCO	F3B12550

␣COR12 = 745

Definition
01351 0 07400 4 02027 771 COR12 TSX M23025,4 F3B07700

␣COR13 = 807

Definition
01447 0 10000 0 00535 834 COR13 TZE M21030−1 F3B08330

␣COR14 = 963

Definition
01703 0 76100 0 00000 994 COR14 NOP F3B09930

␣COR16 = 974

Definition
01716 0 00000 0 02364 1005 COR16 HTR M2CW+2 WORD COUNT, INCREMENTED LOC WD F3B10040

␣COR17 = 981

Definition
01725 0 00000 0 02364 1012 COR17 HTR M2CW+2 LOC WORD F3B10110

␣COR18 = 1008

Definition
01760 −0 50100 0 02334 1039 COR18 ORA COR28 +000004 F3B10380

␣COR20 = 1045

Definition
02025 0 02000 0 02271 1080 COR20 TRA PAT17 F3B10790

␣COR22 = 1057

Definition
02041 0 02000 0 02271 1093 COR22 TRA PAT17 F3B10920

␣COR24 = 1072

Definition
02060 0 02000 0 02271 1109 COR24 TRA PAT17 F3B11080

␣COR26 = 1085

Definition
02075 0 02000 0 02271 1123 COR26 TRA PAT17 F3B11220

␣COR27 = 1225

Definition
02311 +170000000000 1274 COR27 OCT 170000000000,120000000000,60000000000,3000000 F3B12620

␣COR28 = 1244

Definition
1300 CURRENT TIFGO ENTRY APPEARS IN TRASTO, IN ADDR FIELD F3B12760

02334 +000004000000 1301 COR28 OCT 4000000 F3B12770
Reference
01760 −0 50100 0 02334 1039 COR18 ORA COR28 +000004 F3B10380

␣EASC0 = 3795

Definition
07323 1349 EASC0 BSS 1 CURRENT ASC0 ENTRY POINT IN DECR FIELD (TWOS COMP) F3B13250

References (3)

00476	0 60200 0 07323	326		SLW	EASC0	F3B03250
00744	−0 53400 2 07323	501		LXD	EASC0,2 CURRENT ASC0 ENTRY PT. IN IR 2	F3B05000
00747	−0 63400 2 07323	504	M21620	SXD	EASC0,2 PT. AND STORE	F3B03030

␣ETRAL = 1255

Definition
02347 1321 ETRAL SYN CHS1 CURRENT TRALEV ENTRY POINT IN DEC FIELD (TWOS COMP) F3B12970

References (41)

00470	0 60200 0 02347	320		SLW	ETRAL	F3B03190
00514	0 50000 0 02347	342	M21010	CLA	ETRAL DETERMINE CURRENT TIFGO ENTRY	F3B03410
00517	−0 53400 2 02347	345		LXD	ETRAL,2 IR 2, CURRENT TRALEV ENTRY	F3B03440
00777	−0 63400 2 02347	531		SXD	ETRAL,2 POINT, SAVE IN PROPER CELL	F3B05300
01004	−0 53400 2 02347	536	M22006	LXD	ETRAL,2 2S COMPL. 0F TRALEV ENTRY PT. COUNT	F3B053S0
01013	−0 63400 2 02347	543	M22013	SXD	ETRAL,2 START OF NEXT ENTRY, SAVE COUNT	F3B05420
01066	−0 53400 2 02347	587		LXD	ETRAL,2 UPDATE TRALEV ENTRY POINT	F3B05860
01070	−0 63400 2 02347	589		SXD	ETRAL,2 UPDATE TRALEV TO NEXT ENTRY	F3B05880
01112	−0 53400 2 02347	608	M22120	LXD	ETRAL,2 UPDATE TRALEV ENTRY POINT	F3B06070
01121	−0 63400 2 02347	615	M22130	SXD	ETRAL,2	F3B06140
01135	−0 53400 2 02347	628		LXD	ETRAL,2 POINT FOR LAST ADDRESS	F3B06270
01142	−0 63400 2 02347	633		SXD	ETRAL,2 CURRENT TRALEV ENTRY PT.	F3806320
01161	−0 53400 2 02347	648		LXD	ETRAL,2 UPDATE TRALEV ENTRY POINT	F3B06470
01163	−0 63400 2 02347	650		SXD	ETRAL,2	F3B06490
01171	−0 63400 2 02347	656		SXD	ETRAL,2 PASS THROUGH TRASTO	F3B06550
01225	−0 53400 2 02347	684		LXD	ETRAL,2 UPDATE TRALEV ENTRT PIINT	F3B06830
01227	−0 63400 2 02347	686		SXD	ETRAL,2	F3B06850
01234	−0 63400 2 02347	691	M22280	SXD	ETRAL,2	F3B06900
01236	−0 53400 2 02347	694	M22300	LXD	ETRAL,2 UPDATE TRALEV	F3B06930
01243	−0 63400 2 02347	699		SXD	ETRAL,2	F3B06980
01252	−0 53400 2 02347	707	M22400	LXD	ETRAL,2 UPDATE TRALEV	F3B07060
01274	−0 53400 2 02347	725		LXD	ETRAL,2 UPDATE TRALEV ENTRY POINT	F3B07240
01276	−0 63400 2 02347	727	M22425	SXD	ETRAL,2	F3B07260
01303	−0 63400 2 02347	732	M22430	SXD	ETRAL,2 PASS THROUGH TREASTO	F3B07310
01337	−0 53400 2 02347	760		LXD	ETRAL,2 UPDATE TRALEV ENTRY	F3B07590
01341	−0 63400 2 02347	762	M22465	SXD	ETRAL,2	F3B07610
01344	−0 53400 2 02347	766	M22500	LXD	ETRAL,2 INITIALIZE AND RECORD END OF	F3B07650
01360	−0 53400 2 02347	779	M22600	LXD	ETRAL,2 PERMUTE WDS. OF THIS TRALEV ENTRY	F3B07780
01411	−0 53400 2 02347	804		LXD	ETRAL,2 UPDATE TRALEV	F3B08030
01413	−0 63400 2 02347	806	M22635	SXD	ETRAL,2	F3B08050
01425	−0 53400 2 02347	816		LXD	ETRAL,2	F3B08150
01427	−0 63400 2 02347	818	M22655	SXD	ETRAL,2 ENTRY POINT	F3B08170
01442	−0 53400 2 02347	829		LXD	ETRAL,2	F3B08280
01444	−0 63400 2 02347	831	M22670	SXD	ETRAL,2 FOR NEXT TIFGO ENTRY	F3B08300
01451	−0 63400 2 02347	836	M22675	SXD	ETRAL,2 SECOND PASS THROUGH TRASTO	F3B08350
01500	−0 53400 2 02347	862		LXD	ETRAL,2 CURRENT TRALEV ENTRY PT. IN IR 2	F3B08610
02100	−0 53400 2 02347	1130		LXD	ETRAL,2 IN IRZ CURRENT TRALEV ENTRY PT,	F3B11290
02114	−0 53400 2 02347	1143		LXD	ETRAL,2 CURRENT TRALEV ENTRY DT.	F3B11420
02130	−0 53400 2 02347	1156		LXD	ETRAL,2 CURRENT TRALEV ENTRY PT	F3B11550
02150	−0 53400 2 02347	1173		LXD	ETRAL,2	F3B11720
02164	−0 53400 2 02347	1188		LXD	ETRAL,2	F3B11870

␣F0URL = 1250

Definition
02342 1313 F0URL SYN ONEL+3 OF ENTRY BLOCKS F3B12890

␣FIVEL = 1251

Definition
02343 1314 FIVEL SYN ONEL+4 IN TRASTO F3B12900

␣LEVN0 = 1256

Definition
02350 1323 LEVN0 SYN CHS2 LEVEL NUM OF CURRENT ADDR OF CURR TIFGO ENTRY IN ADDRESS F3B12990

References (5)

00471	0 60200 0 02350	321	SLW	LEVN0	F3B03200
01502	0 62100 0 02350	864	STA	LEVN0 CURRENT LEVEL NO.	F3B08630
01531	0 34000 0 02350	887	CAS	LEVN0 COMPARE TO CURRENT TIFGO LEVEL NO,	F3808860
01540	0 34000 0 02350	894	CAS	LEVN0 CURRENT TIFGO LEVEL NO.	F3B08930
01553	0 34000 0 02350	905	CAS	LEVN0 COMPARE LEVEL NO.	F3B09040

␣M2ABC = 1229

Definition
02315 635121000000 1278 M2ABC BCD 6TRA000TZE000TPL000SXD000LXP000PXD000 F3B12630

References (27)

00544	0 00000 0 02315	367	HTR	M2ABC TRA	F3B03660
00574	0 00000 0 02315	392	HTR	M2ABC TRA	F3B03910
00616	0 00000 0 02315	411	HTR	M2ABC TRA	F3B04100
00640	0 00000 0 02315	430	HTR	M2ABC TRA	F3B04290
00666	0 00000 0 02315	453	HTR	M2ABC TRA	F3B04520
00713	0 00000 0 02316	475	HTR	M2ABC+1 TZE	F3B04740
00724	0 00000 0 02317	484	HTR	M2ABC+2 TPL	F3B04830
01063	0 00000 0 02315	584	HTR	M2ABC TRA	F3B05830
01620	0 00000 0 02320	943	HTR	M2ABC+3 SXD	F3B09420
01626	0 00000 0 02321	949	HTR	M2ABC+4 LXD	F3B09480
01643	0 00000 0 02322	962	HTR	M2ABC+5 PXD	F3B09610
01650	0 00000 0 02323	967	HTR	M2ABC+6 STO	F3B09660
01667	−0 50000 0 02324	982	CAL	M2ABC+7 TXI	F3B09810
01715	0 00000 0 02320	1004	HTR	M2ABC+3 SXD	F3B10030
01726	0 00000 0 02325	1013	HTR	M2ABC+8 TIX	F3B10120
01740	−0 50000 0 02324	1023	CAL	M2ABC+7 TXI	F3B10220
01764	0 00000 0 02320	1043	HTR	M2ABC+3 SXD	F3B10420
01771	0 00000 0 02326	1048	HTR	M2ABC+9 TSX	F3B10470
02002	0 00000 0 02321	1057	HTR	M2ABC+4 LXP	F3B10560
02007	0 00000 0 02327	1062	HTR	M2ABC+10 LXD	F3B10610
02022	0 00000 0 02315	1077	HTR	M2ABC TRA	F3B10760
02055	0 00000 0 02316	1106	HTR	M2ABC+1 TZE	F3B11050
02072	0 00000 0 02317	1120	HTR	M2ABC+2 TPL	F3B11190
02106	0 00000 0 02315	1136	HTR	M2ABC TRA	F3B11350
02142	0 00000 0 02316	1166	HTR	M2ABC+1 TZE	F3B11650
02156	0 00000 0 02317	1179	HTR	M2ABC+2 TPL	F3B11780
02172	0 00000 0 02315	1194	HTR	M2ABC TRA	F3B11930

␣M2CON = 1212

Definition
02274 +000000000000 1261 M2CON DEC 0,1,2,4,6,8,16,1B17,3B17 F3B12600

References (154)

00030	0 53400 4 02274	11	M20000	LXA	M2CON,4 PLACE A ZERO IN IR 4	F3B00100
00414	−0 53400 1 02305	276	RTTA3	LXD	M2CON+9,1 RESET IR 1 T0 ALL ONES	F3B02750
00452	0 40000 0 02275	306		ADD	M2CON+1 2S COMPLIMENT OF WORD COUNT	F3B03050
00455	−0 53400 1 02314	309		LXD	M2CON+16,1 PLACE 5 IN IR 1	F3B03080
00502	0 53400 1 02274	330		LXA	M2CON,1 INITIALIZE IR 1 TO ZERO	F3B03290
00511	−0 32000 0 02306	339		ANA	M2CON+10 TEST DIFFERTENT TYPES	F3B03380
00512	0 40200 0 02300	340		SUB	M2CON+4	F3B03390
00525	−0 32000 0 02306	351		ANA	M2CON+10	F3B03500
00527	0 34000 0 02277	353		CAS	M2CON+3	F3B03520
00532	0 34000 0 02276	356		CAS	M2CON+2	F3B03550
00546	0 00000 0 02274	369		HTR	M2CON 0	F3B03680
00553	−0 32000 0 02305	375		ANA	M2CON+9 SAVE CTRAD 1 IN ACCUMULATOR	F3B03740
00554	0 40000 0 02303	376		ADD	M2CON+7 ADD ONE, CTRAD 1+I	F3803750
00561	0 00000 0 02274	381		HTR	M2CON ZERO	F3B03800
00573	0 00000 0 02274	391		HTR	M2CON ZERO	F3B03900
00576	0 00000 0 02274	394		HTR	M2CON ZERO	F3B03930
00604	0 00000 0 02274	401		HTR	M2CON ZERO	F3B04000
00605	0 00000 0 02274	402		HTR	M2CON ZERO	F3B04010
00606	0 00000 0 02274	403		HTR	M2CON ZERO	F3B04020
00610	−0 32000 0 02306	405		ANA	M2CON+10 SAVE ADDRESS, BETA 2	F3B04040
00612	0 53400 2 02276	407		LXA	M2CON+2,2 LOAD 2 IN IR 2, 2 SETS OF 1NSTRUCTION	F3B04060
00615	0 00000 0 02274	410		HTR	M2CON ZERO	F3B04090
00620	0 00000 0 02274	413		HTR	M2CON ZERO	F3B04120
00622	−0 32000 0 02305	415		ANA	M2CON+9 SAVE DECREMENT	F3B04140
00627	0 00000 0 02274	421		HTR	M2CON ZERO	F3B04200
00630	0 00000 0 02274	422		HTR	M2CON ZERO	F3B04210
00631	0 00000 0 02274	423		HTR	M2CON ZERO	F3B04220
00633	−0 32000 0 02305	425		ANA	M2CON+9 SAVE DECREMENT	F3B04240
00634	0 53400 2 02276	426		LXA	M2CON+2,2 COUNT OF 2 IN IR 2	F3B04250
00637	0 00000 0 02274	429		HTR	M2CON ZERO	F3B04280
00642	0 00000 0 02274	432		HTR	M2CON ZERO	F3B04310
00644	−0 32000 0 02306	434		ANA	M2CON+10 SAVE BETA 2	F3B04330
00651	−0 32000 0 02305	440		ANA	M2CON+9 SAVE DECREMENT	F3B04390
00655	0 00000 0 02274	444		HTR	M2CON ZERO	F3B04430
00657	0 00000 0 02274	446		HTR	M2CON ZERO	F3B04450
00661	−0 32000 0 02306	448		ANA	M2CON+10 SAVE BETA 2	F3B04470
00665	0 00000 0 02274	452		HTR	M2CON ZERO	F3B04510
00670	0 00000 0 02274	455		HTR	M2CON ZERO	F3B04540
00672	−0 32000 0 02306	458	M21800	ANA	M2CON+10 SAVE ADDRESS OF 1ST WD, BETA 1	F3B04570
00677	0 00000 0 02274	463		HTR	M2CON ZERO	F3B04620
00700	0 00000 0 02274	464		HTR	M2CON ZERO	F3B04630
00701	0 00000 0 02274	465		HTR	M2CON ZERO	F3B04640
00704	−0 32000 0 02305	468		ANA	M2CON+9 SAVE DECREMENT BETA 2	F3804670
00707	−0 50100 0 02301	471		ORA	M2CON+5 10(8) INSTR. NO. WITHIN INTERNAL FMLANO.	F3B04700
00715	0 00000 0 02274	477		HTR	M2CON ZERO	F3B04760
00717	−0 32000 0 02306	479		ANA	M2CON+10 SAVE ADDRESS, BETA 3	F3B04780
00723	0 00000 0 02274	483		HTR	M2CON ZERO	F3804820
00726	0 00000 0 02274	486		HTR	M2CON ZERO	F3B04850
00732	0 40000 0 02303	491		ADD	M2CON+7 +000001000000	F3B04900
00736	0 00000 0 02274	495		HTR	M2CON ZERO	F3B04940
00737	0 00000 0 02307	496		HTR	M2CON+11 +030000000000	F3B04950
00757	−0 53400 1 02274	513		LXD	M2CON,1 ZEROS IN IR 1	F3B05120
01000	−0 53400 2 02274	532		LXD	M2CON,2 RESET IR 2 WITH ZERO	F3B05310
01016	0 50000 0 02274	546		CLA	M2CON INITIALIZE ADDC0	F3B05450
01022	−0 32000 0 02306	550		ANA	M2CON+10	F3B05490
01024	0 34000 0 02277	552		CAS	M2CON+3	F3B05510
01027	0 34000 0 02276	555		CAS	M2CON+2	F3B05540
01035	0 50000 0 02301	562	PAT2	CLA	M2CON+5 +10,INCREMENT	F3B05610
01047	0 50000 0 02274	572		CLA	M2CON TIFGO ENTRY ALREADY FOUND IN TRASTO	F3B05710
01054	0 50000 0 02311	577		CLA	M2CON+13 TIFGO ENTRY FOUND IN TRASTO	F3B05760
01065	0 00000 0 02274	586		HTR	M2CON ZERO	F3B05850
01075	0 50000 0 02301	595	PAT6	CLA	M2CON+5 +10	F3B05940
01107	0 50000 0 02274	605		CLA	M2CON T1FG0 ENTRY ALREADY FOUND IN TRASTO	F3B06040
01126	−0 32000 0 02305	621		ANA	M2CON+9 INSTRUCTION	F3806200
01127	0 40000 0 02303	622		ADD	M2CON+7	F3B06210
01133	0 40000 0 02304	626		ADD	M2CON+8 N-1 IN ORDER TO	F3806230
01145	0 00000 0 02274	636		HTR	M2CON ZERO	F3B06350
01172	0 50000 0 02301	657		CLA	M2CON+5 1NITIALIZE LOCATION	F3B06560
01177	0 50000 0 02274	662		CLA	M2CON INITIALIZE ADDC0 FOR	F3B06610
01211	0 50000 0 02274	672		CLA	M2CON CURT1FG0 ADD ALREADY FOUND IN TRASTO	F3B06710
01220	0 40000 0 02301	679		ADD	M2CON+5 BLOCK OF TRASTO UNSERTS	F3B06780
01246	0 00000 0 02274	702		HTR	M2CON ZERO	F3B07010
01247	0 00000 0 02274	703		HTR	M2CON ZERO	F3B07020
01250	0 00000 0 02274	704		HTR	M2CON ZERO	F3B07030
01260	0 00000 0 02274	713		HTR	M2CON ZERO	F3B07120
01261	0 00000 0 02274	714		HTR	M2CON ZERO	F3B07130
01262	0 00000 0 02274	715		HTR	M2CON ZERO	F3B07140
01304	0 50000 0 02301	733		CLA	M2CON+5 INITIALIZE LOCATION	F3B07320
01311	0 50000 0 02274	738		CLA	M2CON INITIALIZE ADDC0 FOR	F3B07370
01323	0 50000 0 02274	748		CLA	M2CON CUR TIFGO ENTRY ALREADY FOUND IN TRAS	F3B07470
01332	0 40000 0 02301	755		ADD	M2CON+5 NEXT BLOCK OF TRASTO INSERTS	F3B07540
01375	0 00000 0 02274	792		HTR	M2CON ZERO	F3B07910
01376	0 00000 0 02274	793		HTR	M2CON ZERO	F3B07920
01377	0 00000 0 02274	794		HTR	M2CON ZERO	F3B07930
01431	0 40000 0 02301	820		ADD	M2CON+5 TRA ADDRESS	F3B08190
01446	0 40200 0 02301	833		SUB	M2CON+5	F3B08320
01454	0 50000 0 02302	839		CLA	M2CON+6 INITIALIZE LOCATION	F3B08380
01462	−0 32000 0 02306	847		ANA	M2CON+10 SAVE DECREMENT	F3B08460
01471	−0 32000 0 02305	854		ANA	M2CON+9 MASK OUT ADDRESS	F3B08530
01530	−0 32000 0 02306	886		ANA	M2CON+10 SAVE ADDRESS, TEST UPPER LEVEL	F3B08850
01536	−0 32000 0 02305	892		ANA	M2CON+9 SAVE DECREMENT	F3B08910
01544	0 40000 0 02301	898		ADD	M2CON+5 ADD 10(8) INCREMENT	F3B08970
01551	−0 32000 0 02305	903		ANA	M2CON+9 SAVE DECREMENT	F3B09020
01561	−0 53400 2 02274	912		LXD	M2CON,2 PLACE ZERO IN IR 2	F3B09110
01567	0 50000 0 02274	918	M22810	CLA	M2CON ZERO IN ACC.	F3B09170
01612	−0 50000 0 02310	937		CAL	M2CON+12 +140000000000	F3B09360
01625	0 00000 0 02274	948		HTR	M2CON ZERO	F3B09470
01637	−0 32000 0 02306	958		ANA	M2CON+10 SAVE ADDRESS	F3B09570
01644	0 00000 0 02274	963		HTR	M2CON ZERO	F3B09620
01647	0 00000 0 02274	966		HTR	M2CON ZERO	F3B09650
01652	0 00000 0 02274	969		HTR	M2CON ZERO	F3B09680
01657	0 40000 0 02303	974		ADD	M2CON+7 1 T0 ADDRESS FOR SIGN	F3B09730
01664	0 40000 0 02275	979		ADD	M2CON+1 ADD ONE, 2 S COMPLIMENT	F3B09780
01665	−0 32000 0 02306	980		ANA	M2CON+10 SAVE ADDRESS	F3B09790
01674	0 00000 0 02311	987		HTR	M2CON+13 +170000000000	F3B09860
01706	0 40000 0 02301	997	PAT11	ADD	M2CON+5 ADD 10	F3B09960
01721	−0 32000 0 02306	1008		ANA	M2CON+10 SAVE ADDRESS	F3B10070
01722	0 40000 0 02303	1009		ADD	M2CON+7 1 TO ADDRESS FOR C	F3B10080
01727	0 00000 0 02311	1014		HTR	M2CON+13 17(8)	F3B10130
01736	0 40000 0 02303	1021		ADD	M2CON+7 1 FOR SIGN	F3B10200
01747	0 00000 0 02311	1030		HTR	M2CON+13 17(8)	F3B10290
01755	−0 50100 0 02312	1036		ORA	M2CON+14 +120000000000	F3B10350
01757	0 50000 0 02277	1038		CLA	M2CON+3 +000000000004	F3B10370
01765	0 00000 0 02313	1044		HTR	M2CON+15 60000000000	F3B10430
01770	0 00000 0 02274	1047		HTR	M2CON ZERO	F3B10460
01773	0 00000 0 02277	1050		HTR	M2CON+3 ZERO,4	F3B10490
01776	−0 50100 0 02310	1053		ORA	M2CON+12 14 IN DECREMENT	F3B10520
02001	0 00000 0 02274	1056		HTR	M2CON ZERO	F3B10550
02006	0 00000 0 02274	1061		HTR	M2CON ZERO	F3B10600
02010	0 00000 0 02313	1063		HTR	M2CON+15 6(8)	F3B10620
02021	0 00000 0 02274	1076		HTR	M2CON ZERO	F3B10750
02024	0 00000 0 02274	1079		HTR	M2CON ZERO	F3B10780
02036	0 00000 0 02274	1090		HTR	M2CON ZERO	F3B10890
02040	0 00000 0 02274	1092		HTR	M2CON	F3B10910
02051	0 40000 0 02301	1102		ADD	M2CON+5 ADD 10	F3B11010
02057	0 00000 0 02274	1108		HTR	M2CON ZERO	F3B11070
02066	0 40000 0 02301	1116		ADD	M2CON+5 10 TO ADDC0	F3B11150
02071	0 00000 0 02274	1119		HTR	M2CON ZERO	F3B11180
02074	0 00000 0 02274	1122		HTR	M2CON ZERO	F3B11210
02102	−0 32000 0 02305	1132		ANA	M2CON+9 SAVE DECREMENT, OF TRAVEV ENTRY	F3B11310
02105	0 00000 0 02274	1135		HTR	M2CON ZERO	F3B11340
02110	0 00000 0 02274	1138		HTR	M2CON ZERO	F3B11370
02116	−0 32000 0 02305	1145		ANA	M2CON+9 SAVE DECREMENT	F3B11440
02122	0 00000 0 02274	1149		HTR	M2CON ZERO	F3B11480
02124	0 00000 0 02274	1151		HTR	M2CON ZERO	F3B11500
02132	−0 32000 0 02305	1158		ANA	M2CON+9 ENTRY	F3B11570
02136	0 50000 0 02301	1162		CLA	M2CON+5 10 (8)	F3B11610
02144	0 00000 0 02274	1168		HTR	M2CON ZERO	F3B11670
02152	−0 32000 0 02305	1175		ANA	M2CON+9 DECREMENT OF TRALEV ENTRY	F3B11740
02155	0 00000 0 02274	1178		HTR	M2CON ZERO	F3B11770
02160	0 00000 0 02274	1181		HTR	M2CON ZERO	F3B11800
02166	−0 32000 0 02305	1190		ANA	M2CON+9 SAVE DECREMENT OF TRALEV	F3B11890
02171	0 00000 0 02311	1193		HTR	M2CON+13 +170000000000	F3B11920
02174	0 00000 0 02274	1196		HTR	M2CON ZERO	F3B11950
02210	0 40000 0 02303	1209		ADD	M2CON+7 ADD 1 TO DECREMENT	F3B12080
02212	0 53400 1 02274	1211		LXA	M2CON,1 ZERO IN IR 1	F3B12100
02217	0 53400 1 02277	1216	CIT204	LXA	M2CON+3,1 COUNT 0F 4 IN IR 1	F3B12150
02220	0 50000 0 02275	1217		CLA	M2CON+1 1 IN ACC	F3B12160
02227	0 40000 0 02275	1224		ADD	M2CON+1 ONE	F3B12230
02252	0 40000 0 02301	1243		ADD	M2CON+5 ADD ONE	F3B12420
02266	0 40200 0 02301	1255		SUB	M2CON+5	F3B12540
	02274	1290	L(0)	SYN	M2CON	F3B12660
	02276	1291	L(2)	SYN	M2CON+2	F3B12670
	02277	1292	L(4)	SYN	M2CON+3	F3B12680

␣PAT10 = 965

Definition
01705 0 50000 0 02360 996 PAT10 CLA CLOC INCREMENT FOR LOC WD OF 1ST ENTRY F3B09950

␣PAT11 = 966

Definition
01706 0 40000 0 02301 997 PAT11 ADD M2CON+5 ADD 10 F3B09960

␣PAT12 = 967

Definition
01707 0 60100 0 02360 998 PAT12 STO CLOC RESTORE WITH NEW INCREMENT F3B09970

␣PAT13 = 968

Definition
01710 0 60100 0 02364 999 PAT13 STO M2CW+2 ALS 0 PLACE IN 3RD WD OF COMPILER F3B09980

␣PAT14 = 969

Definition
01711 0 50000 0 02345 1000 PAT14 CLA TRSWC WORD COUNT F3B09990

␣PAT15 = 970

Definition
01712 −0 60200 0 02364 1001 PAT15 ORS M2CW+2 SAVE IN DECREMENT OF 3RD WD F3B10000

␣PAT17 = 1209

Definition
02271 0 07400 4 02241 1258 PAT17 TSX ADD1,4 F3B12570

References (4)

02025	0 02000 0 02271	1080	COR20	TRA	PAT17	F3B10790
02041	0 02000 0 02271	1093	COR22	TRA	PAT17	F3B10920
02060	0 02000 0 02271	1109	COR24	TRA	PAT17	F3B11080
02075	0 02000 0 02271	1123	COR26	TRA	PAT17	F3B11220

␣PAT18 = 1210

Definition
02272 −0 53400 4 02270 1259 PAT18 LXD ADD6+3,4 F3B12580

␣PAT19 = 1211

Definition
02273 0 02000 4 00006 1260 PAT19 TRA 6,4 F3B12590

␣RDRA1 = 40

Definition
00050 0 50000 0 02345 28 RDRA1 CLA TRSWC ARE THERE ENTRIES IN TRASTO F3B00270
Reference
00045 0 10000 0 00050 25 TZE RDRA1 YES F3B00240

␣RDRA2 = 31

Definition
00037 0 76200 0 00303 19 RDRA2 RDR 3 SELECT DRUM 3 F3B00180
Reference
00046 2 00001 4 00037 26 TIX RDRA2,4,1 NO, TRY 4 MORE TIMES F3B00250

␣RDRA3 = 47

Definition
00057 0 76200 0 00303 35 RDRA3 RDR 3 SELECT DRUM 3 F3B00340
Reference
00106 2 00001 4 00057 58 TIX RDRA3,4,1 IF THE SUMS DONT AGREE, TRY 4 MORE TIMES F3B00570

␣RDRB1 = 50

Definition
00062 0 70000 1 00000 38 RDRB1 CPY 0,1 AND COPY ALL OF THE TRASTO F3B00370
References (2)
00053 0 62100 0 00062 31 STA RDRB1 INITIALIZE ADDRESSES OF CPY INSTR. F3B00300

00063 2 00001 1 00062 39 TIX RDRB1,1,1 ENTRIES. F3B00380

␣RDRB2 = 56

Definition
00070 0 36100 1 00000 44 RDRB2 ACL 0,1 ADD LOGICALLY EVERYTHREE TRASTO F3B00430
References (2)
00054 0 62100 0 00070 32 STA RDRB2 F3B00310

00072 2 00001 2 00070 46 TIX RDRB2,2,1 IR 2 USED TO COUNT EVERY THREE F3B00450

␣RDRB3 = 54

Definition
00066 −3 00000 1 00074 42 RDRB3 TXL RDRB4,1,0 CHECK COUNT DURING LOOP F3B00410
Reference
00073 1 77777 1 00066 47 TXI RDRB3,1,−1 WORDS, SKIP OVER 4TH WORD. F3B00460

␣RDRB4 = 60

Definition
00074 0 60200 0 02347 48 RDRB4 SLW CHS1 AFTER ALL WORDS ARE COUNTED F3B00470

References (2)

	00066	−3 00000 1 00074	42	RDRB3	TXL	RDRB4,1,0 CHECK COUNT DURING LOOP	F3B00410
	00071	−2 00001 1 00074	45		TNX	RDRB4,1,1 WORDS, COUNT ALL ENTRIES	F3B00440

␣RDRB5 = 64

Definition
00100 0 36100 1 00000 52 RDRB5 ACL 0,1 ACCUMULATE SUM LOGICALLY F3B00510

References (3)

00055	0 62100 0 00100	33	STA	RDRB5	F3B00320
00077	1 77775 1 00100	51	TXI	RDRB5,1,−3 ADD OLD CHECKS SUMS, AND	F3B00500
00101	2 00004 1 00100	53	TIX	RDRB5,1,4	F3B00520

␣RTT00 = 209

Definition
213 PROGRAM TO READ TIFGO TABLE F3B02120

00321 −0 76000 0 00012 214 RTT00 RTT TURN OFF TAPE CHECK INDICATOR AND LITES F3B02130

References (2)

	00051	0 10000 0 00321	29		TZE	RTT00 NO	F3B00280
		00321	215	CALL	SYN	RTT00	F3B02140

␣RTTA1 = 269

Definition
00415 0 70000 1 03211 277 RTTA1 CPY TRALEV,1 COPY LOOP. ADD COUNT TO READ ADDRESS F3B02760
Reference
00416 1 77777 1 00415 278 TXI RTTA1,1,−1 F3B02770

␣RTTA2 = 276

Definition
00424 0 76400 0 00204 284 RTTA2 BST 4 BACKSPACE TAPE 4 F3B02830
Reference
00422 0 02000 0 00424 282 TRA RTTA2 YES F3B02810

␣RTTA3 = 268

Definition
00414 −0 53400 1 02305 276 RTTA3 LXD M2CON+9,1 RESET IR 1 T0 ALL ONES F3B02750
Reference
00427 2 00001 2 00414 287 TIX RTTA3,2,1 TRY AGAIN T0 READ IN ENTRIES F3B02860

␣RTTB1 = 281

Definition
00431 −0 63400 1 00442 289 RTTB1 SXD RTTB4,1 SAVE WORD COUNT OF FIRST RECORD, 2S COMP, F3B02880
Reference
00423 0 02000 0 00431 283 TRA RTTB1 NO F3B02820

␣RTTB2 = 285

Definition
00435 0 70000 1 03211 293 RTTB2 CPY TRALEV,1 COPY SECOND RECORD ETC, IN PROPER PLACE F3B02920
Reference
00436 1 77777 1 00435 294 TXI RTTB2,1,−1 SUBTRACT 1 FROM COUNT F3B02930

␣RTTB3 = 292

Definition
00444 0 76400 0 00204 300 RTTB3 BST 4 F3B02990
Reference
D 00442 −3 00000 1 00444 298 RTTB4 TXL RTTB3,1 YES, COMPARE TO WORD COUNT OF FIRST F3B02970

␣RTTB4 = 290

Definition
D 00442 −3 00000 1 00444 298 RTTB4 TXL RTTB3,1 YES, COMPARE TO WORD COUNT OF FIRST F3B02970

References (2)

	00431	−0 63400 1 00442	289	RTTB1	SXD	RTTB4,1 SAVE WORD COUNT OF FIRST RECORD, 2S COMP,	F3B02880
	00434	−0 53400 1 00442	292		LXD	RTTB4,1 REPLACE COUNT IN IR 1 OF FIRST RECORD	F3B02910

␣RTTB5 = 283

Definition
00433 0 76200 0 00224 291 RTTB5 RTB 4 F3B02900
Reference
00445 2 00001 2 00433 301 TIX RTTB5,2,1 F3B03000

␣RTTB6 = 295

Definition
00447 −0 63400 1 03210 303 RTTB6 SXD TRALEV−1,1 SAVE TRALEV WORD COUNT F3B03020

References (2)

	00437	0 02000 0 00447	295		TRA	RTTB6 EOF	F3B02940
	00443	0 02000 0 00447	299		TRA	RTTB6 RECORD, NO.	F3B02980

␣RTTC0 = 254

Definition
261 PROGRAM T0 READ TRALEV F3B02600

00376 0 76000 0 00000 262 RTTC0 CLM CLEAR ACCUMULATOR F3B02610
Reference
00372 0 02000 0 00376 257 TRA RTTC0 NO F3B02560

␣RTTC1 = 262

Definition
00406 0 76400 0 00204 270 RTTC1 BST 4 ERROR ROUTINE FOR READING TRALEV F3B02690
Reference
00404 0 02000 0 00406 268 TRA RTTC1 YES F3B02670

␣RTTC2 = 257

Definition
00401 0 76200 0 00224 265 RTTC2 RTB 4 READ TRALEV ENTRIES FROM TP. 4 F3B02640
Reference
00407 2 00001 2 00401 271 TIX RTTC2,2,1 F3B02700

␣RTTC3 = 265

Definition
00411 0 50000 0 03211 273 RTTC3 CLA TRALEV IS TRALEV EMPTY F3B02720
Reference
00405 0 02000 0 00411 269 TRA RTTC3 NO F3B02680

␣RTTC4 = 256

Definition
00400 0 53400 2 02330 264 RTTC4 LXA M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02630

␣RTTD1 = 218

Definition
00332 0 70000 0 05471 224 RTTD1 CPY TIFGO−1 GET WORD COUNT F3B02230
Reference
00330 0 10000 0 00332 222 TZE RTTD1 YES F3B02210

␣RTTD2 = 222

Definition
00336 0 70000 1 05472 228 RTTD2 CPY TIFGO,1 COPY F3B02270
Reference
00337 1 77777 1 00336 229 TXI RTTD2,1,−1 LOOP F3B02280

␣RTTD3 = 212

Definition
00324 0 76200 0 00222 218 RTTD3 RTB 2 SELECT TAPE 2 T0 READ TIFGO F3B02170
Reference
00347 2 00001 2 00324 237 TIX RTTD3,2,1 F3B02360

␣RTTD4 = 230

Definition
00346 0 76400 0 00202 236 RTTD4 BST 2 F3B02350
Reference
00343 0 02000 0 00346 233 TRA RTTD4 YES F3B02320

␣RTTD5 = 226

Definition
00342 −0 76000 0 00012 232 RTTD5 RTT IS TAPE CHECK ON F3B02310
Reference
00335 0 10000 0 00342 227 TZE RTTD5 NO TIFGO ENTRIES F3B02260

␣RTTE1 = 233

Definition
239 PROGRAM T0 READ TRAD TABLE F3B02380

00351 0 53400 2 02330 240 RTTE1 LXA M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02390
Reference
00345 0 02000 0 00351 235 TRA RTTE1 TO READ TRAD TABLE F3B02340

␣RTTE2 = 240

Definition
00360 0 70000 0 06766 247 RTTE2 CPY TRAD−1 GET WORD COUNT F3B02460
Reference
00356 0 10000 0 00360 245 TZE RTTE2 YES F3B02440

␣RTTE3 = 244

Definition
00364 0 70000 1 06767 251 RTTE3 CPY TRAD,1 COPY TRAD ENTRIES AND GET 2S COMP. F3B02500
Reference
00365 1 77777 1 00364 252 TXI RTTE3,1,−1 OF NUMBER OF ENTRIES. F3B02510

␣RTTE4 = 251

Definition
00373 0 76400 0 00202 258 RTTE4 BST 2 ERROR ROUTINE FOR READING TRAD F3B02570
Reference
00371 0 02000 0 00373 256 TRA RTTE4 YES F3B02550

␣RTTE5 = 234

Definition
00352 0 76200 0 00222 241 RTTE5 RTB 2 READ TRAD TABLE FROM TAPE 2 F3B02400
Reference
00374 2 00001 2 00352 259 TIX RTTE5,2,1 ENTRIES F3B02580

␣RTTE6 = 248

Definition
00370 −0 76000 0 00012 255 RTTE6 RTT IS TAPE CHECK ON F3B02540
Reference
00362 0 10000 0 00370 249 TZE RTTE6 F3B02480

␣TFRC0 = 3794

Definition
07322 1348 TFRC0 BSS 1 F3B13240

References (4)

00501	0 60200 0 07322	329	SLW	TFRC0	F3B03280
00752	−0 53400 4 07322	508	LXD	TFRC0,4	F3B05070
02207	0 50000 0 07322	1208	CLA	TFRC0 TIFGO FILE REC. COUNT	F3B12070
02211	0 60100 0 07322	1210	STO	TFRC0 TIFGO FILE REC. COUNT	F3B12090

␣TIFFN = 1253

Definition
02345 1317 TIFFN SYN TRSWC CURRENT TIFGO FMLA NUM IN DEC FIELD F3B12930

References (30)

00466	0 60200 0 02345	318		SLW	TIFFN REPLACE INDEX COUNTERS	F3B03170
00507	0 62200 0 02345	337		STD	TIFFN SAVE INTERNAL FMLA. NO.	F3B03360
00521	0 40000 0 02345	347		ADD	TIFFN TIFGO FMLA NO.	F3803460
00543	0 00000 0 02345	366		HTR	TIFFN ALPHA	F3B03650
00560	0 00000 0 02345	380		HTR	TIFFN ALPHA	F3B03790
00562	0 00000 0 02345	382		HTR	TIFFN ALPHA	F3B03810
00603	0 00000 0 02345	400		HTR	TIFFN ALPHA	F3B03990
00626	0 00000 0 02345	420		HTR	TIFFN ALPHA	F3B04190
00654	0 00000 0 02345	443		HTR	TIFFN ALPHA	F3B04420
00676	0 00000 0 02345	462		HTR	TIFFN ALPHA	F3B04610
00706	0 50000 0 02345	470		CLA	TIFFN ALPHA	F3B04690
00735	0 00000 0 02345	494		HTR	TIFFN ALPHA	F3B04930
01033	0 50000 0 02345	560	M22020	CLA	TIFFN CURRENT TIFGO FMLA NO.	F3B05590
01072	0 50000 0 02345	592	M22100	CLA	TIFFN CURRENT TIFGO ALPHA	F3B05910
01144	0 00000 0 02345	635		HTR	TIFFN ALPHA	F3806340
01146	0 00000 0 02345	637		HTR	TIFFN ALPHA	F3B06360
01175	0 50000 0 02345	660	M22245	CLA	TIFFN TRASTO INSERT	F3B06590
01245	0 00000 0 02345	701		HTR	TIFFN ALPHA	F3B07000
01257	0 00000 0 02345	712		HTR	TIFFN ALPHA	F3B07110
01307	0 50000 0 02345	736	M22435	CLA	TIFFN FIRST TRASTO INSERT	F3B07330
01374	0 00000 0 02345	791		HTR	TIFFN ALPHA	F3B07900
01464	0 34000 0 02345	849		CAS	TIFFN CURRENT TIFGO FMLA. NO.	F3B08480
01472	0 34000 0 02345	855		CAS	TIFFN INTERNAL FORMULA NO. ALPHA	F3B08540
02014	0 50000 0 02345	1071		CLA	TIFFN CURRENT TIF60 FMLA. NO. IN DECR.	F3B10700
02030	0 50000 0 02345	1084		CLA	TIFFN TIFGO FMLA NO.	F3B10830
02035	0 00000 0 02345	1089		HTR	TIFFN TIFGO FMLA NO.	F3B10880
02044	0 50000 0 02345	1097		CLA	TIFFN	F3B10960
02063	0 50000 0 02345	1113		CLA	TIFFN TIFGO INT. FMLA NO.	F3B11120
02121	0 00000 0 02345	1148		HTR	TIFFN TIFGO INT. FMLA NO	F3B11470
02134	0 50000 0 02345	1160		CLA	TIFFN TIFGO FMLA NO.	F3B11590

␣TIFGO = 2874

Definition
05472 1344 TIFGO SYN TYPE2+1202 F3B13200

References (24)

00325	0 70000 0 05471	219		CPY	TIFGO−1	F3B02180
00326	0 50000 0 05471	220		CLA	TIFGO−1 IDENTIFICATION FOR TIFGO TABLE	F3B02190
00332	0 70000 0 05471	224	RTTD1	CPY	TIFGO−1 GET WORD COUNT	F3B02230
00334	0 50000 0 05471	226		CLA	TIFGO−1 TEST WD. COUNT	F3B02250
00336	0 70000 1 05472	228	RTTD2	CPY	TIFGO,1 COPY	F3B02270
00344	−0 63400 1 05471	234		SXD	TIFGO−1,1 NO	F3B02330
00504	0 40200 0 05471	334		SUB	TIFGO−1 N0. OF TIFGO ENTRIES	F3B03330
00506	0 50000 1 05472	336		CLA	TIFGO,1 FIRST WD. OF TIFGO ENTRY,	F3B03350
00523	0 50000 1 05472	349	M21020	CLA	TIFGO,1	F3B03480
00537	0 50000 1 05472	362		CLA	TIFGO,1 2ND WORD BETA IN ADDRESS	F3B03610
00550	0 50000 1 05472	372	M21100	CLA	TIFGO,1 2ND WORD OF TIFGO ENTRY	F3B03710
00565	0 50000 1 05472	385	M21120	CLA	TIFGO,1 2ND WORD OF TIFGO ENTRY	F3B03840
00607	0 50000 1 05472	404		CLA	TIFGO,1 2ND. WORD OF TIFGO ENTRY	F3B04030
00621	0 50000 1 05472	414		CLA	TIFGO,1 2ND WORD	F3B04130
00632	0 50000 1 05472	424		CLA	TIFGO,1 2ND WORD OF TIFGO ENTRY	F3B04230
00643	0 50000 1 05472	433		CLA	TIFGO,1 2ND WORD	F3B04320
00650	0 50000 1 05472	439	M21500	CLA	TIFGO,1 2ND WORD 0F TIFGO ENTRY	F3B04380
00660	0 50000 1 05472	447		CLA	TIFGO,1 2ND WORD OF TIFGO ENTRY	F3B04460
00703	0 50000 1 05472	467	M21810	CLA	TIFGO,1 2ND WD. OF TIFGO ENTRY	F3B04660
00716	0 50000 1 05472	478		CLA	TIFGO,1 2ND WORD 0F TIFGO ENTRY	F3B04770
00742	0 50000 1 05472	499		CLA	TIFGO,1 2ND WD. OF TIFGO ENTRY	F3B04980
01020	0 50000 1 05472	548		CLA	TIFGO,1 OBTAIN TIFGO TYPE, TRANSFER TO ROUTINES	F3B05470
01056	0 50000 1 05473	579	M22040	CLA	TIFGO+1,1 TIFGO BETA	F3B05780
01123	0 50000 1 05472	618	M22200	CLA	TIFGO,1 COMPUTE N+1 (CTRAD1- CTRAD2+1)	F3806170

␣TRSWC = 1253

Definition
02345 0 00000 0 00000 1316 TRSWC WORD COUNT F3B12920

References (11)

00041	0 70000 0 02345	21		CPY	TRSWC WORD COUNT	F3B00200
00043	0 50000 0 02345	23		CLA	TRSWC DOES WORD COUNT AGREE	F3B00220
00050	0 50000 0 02345	28	RDRA1	CLA	TRSWC ARE THERE ENTRIES IN TRASTO	F3B00270
00060	0 53400 1 02345	36		LXA	TRSWC,1 PLACE WORD COUNT IN IR 1	F3B00350
00065	0 53400 1 02345	41		LXA	TRSWC,1 NEW WORD COUNT IN IR 1	F3B00400
00076	0 53400 1 02345	50		LXA	TRSWC,1 WORD COUNT OF TRASTO ENTRIES	F3B00490
00110	0 50000 0 02345	61	STRS	CLA	TRSWC INITIALIZATION OF ALL MODIFIED ADDRESSES	F3B00600
00133	0 53400 1 02345	80		LXA	TRSWC,1 WORD COUNT IN IR 1	F3B00790
00450	0 50000 0 02345	304	OUT	CLA	TRSWC TIFGO WORD COUNT.	F3BD3030
01711	0 50000 0 02345	1000	PAT14	CLA	TRSWC WORD COUNT	F3B09990
	02345	1317	TIFFN	SYN	TRSWC CURRENT TIFGO FMLA NUM IN DEC FIELD	F3B12930

␣TYPE1 = 1272

Definition
02370 1337 TYPE1 SYN TRASTO F3B13130

References (6)

00175	0 60200 2 02370	119	SLW	TYPE1,2 STORE IN PROPER MEMORY P0SITION	F3B01180
00254	0 60200 1 02370	172	SLW	TYPE1,1	F3801710
00264	0 60200 1 02370	181	SLW	TYPE1,1	F3B01800
00274	0 60200 1 02370	190	SLW	TYPE1,1	F3B01890
00304	0 60200 1 02370	199	SLW	TYPE1,1	F3B01980
00314	0 60200 1 02370	208	SLW	TYPE1,1	F3B02070

␣TYPE2 = 1672

Definition
03210 1338 TYPE2 BSS 400 F3B13140

References (5)

00163	0 60200 2 03210	108		SLW	TYPE2,2 PROPER OUTPUT AREA	F3B01070
00253	−0 50000 2 03210	171	G4	CAL	TYPE2,2	F3B01700
	03211	1343	TRALEV	SYN	TYPE2+1	F3B13190
	05472	1344	TIFGO	SYN	TYPE2+1202	F3B13200
	06622	1345	CIB2	SYN	TYPE2+1802	F3B13210

␣TYPE3 = 2072

Definition
04030 1339 TYPE3 BSS 400 F3B13150

References (2)

	00145	0 60200 2 04030	92		SLW	TYPE3,2 PLACE IN PROPER MEMORY LOC.	F3B00910
	00263	−0 50000 4 04030	180	H4	CAL	TYPE3,4	F3B01790

␣TYPE4 = 2472

Definition
04650 1340 TYPE4 BSS 400 F3B13160

References (2)

	00241	0 60200 2 04650	160		SLW	TYPE4,2 STORE IN PROPER MEMORY POS	F3B01590
	00273	−0 50000 2 04650	189	I4	CAL	TYPE4,2	F3B01880

␣TYPE5 = 2872

Definition
05470 1341 TYPE5 BSS 400 F3B13170

References (2)

	00211	0 60200 2 05470	133		SLW	TYPE5,2 STORE IN PROPER MEMORY POS.	F3B01320
	00303	−0 50000 4 05470	198	J4	CAL	TYPE5,4	F3B01970

␣TYPE6 = 3272

Definition
06310 1342 TYPE6 BSS 400 F3B13180

References (2)

	00227	0 60200 2 06310	149		SLW	TYPE6,2 STORE IN PROPER MEMORY POS	F3B01480
	00313	−0 50000 2 06310	207	K4	CAL	TYPE6,2	F3B02060

␣WCCHS = 1254

Definition
02346 0 00000 0 00000 1318 WCCHS F3B12940

References (3)

00042	0 70000 0 02346	22		CPY	WCCHS CHECK SUM	F3B00210
00044	0 40200 0 02346	24		SUB	WCCHS WITH ITS CHECK SUM	F3B00230
	02346	1319	CTRAST	SYN	WCCHS CURRENT TRASTO ENTRY POINT IN DEC FIELD (TWOS COMP)	F3B12950

CIT200 = 1151

Definition
1199 M2 COMPILER CIT200 F3B11980

02177 0 60100 0 02351 1200 CIT200 STO E1C2 SAVE AC F3B11990

References (39)

00542	0 07400 4 02177	365		TSX	CIT200,4 COMPILE INSTRUCTION	F3B03640
00557	0 07400 4 02177	379	M21110	TSX	CIT200,4 COMP1LE	F3B03780
00572	0 07400 4 02177	390		TSX	CIT200,4 COMPILE	F3B03890
00602	0 07400 4 02177	399	M21300	TSX	CIT200,4 COMPILE	F3B03980
00614	0 07400 4 02177	409		TSX	CIT200,4 COMPILE	F3B04080
00625	0 07400 4 02177	419	M21400	TSX	CIT200,4 COMPILE	F3B04180
00636	0 07400 4 02177	428		TSX	CIT200,4 COMPILE	F3B04270
00653	0 07400 4 02177	442		TSX	CIT200,4 COMPILE	F3B04410
00664	0 07400 4 02177	451	M21515	TSX	CIT200,4 COMPILE	F3B04500
00675	0 07400 4 02177	461		TSX	CIT200,4 COMPILE	F3B04600
00711	0 07400 4 02177	473		TSX	CIT200,4 COMPILE	F3B04720
00722	0 07400 4 02177	482		TSX	CIT200,4 COMPILE	F3B04810
00734	0 07400 4 02177	493		TSX	CIT200,4 COMPILE	F3B04920
01061	0 07400 4 02177	582		TSX	CIT200,4 COMPILE FINAL INSTRUCTION	F3B05810
01143	0 07400 4 02177	634		TSX	CIT200,4 COMPILE FIRST INSTRUCTION	F3B06330
01244	0 07400 4 02177	700		TSX	CIT200,4 COMPILE INFO. INSTRUCTION	F3B06990
01256	0 07400 4 02177	711		TSX	CIT200,4 COMPILE INFO. INSTRUCTION	F3B07100
01373	0 07400 4 02177	790		TSX	CIT200,4 COMPILE INFO INSTRUCTION	F3B07890
01616	0 07400 4 02177	941		TSX	CIT200,4 COMPILE INSTRUCTIONS	F3B09400
01624	0 07400 4 02177	947		TSX	CIT200,4 COMPILE	F3B09460
01641	0 07400 4 02177	960		TSX	CIT200,4 COMPILER	F3B09590
01646	0 07400 4 02177	965		TSX	CIT200,4 COMPILER	F3B09640
01671	0 07400 4 02177	984		TSX	CIT200,4 COMPILER	F3B09830
01713	0 07400 4 02177	1002	RET3	TSX	CIT200,4 COMPILER	F3B10010
01724	0 07400 4 02177	1011		TSX	CIT200,4 COMPILER	F3B10100
01744	0 07400 4 02177	1027		TSX	CIT200,4 COMPILER	F3B10260
01762	0 07400 4 02177	1041		TSX	CIT200,4 COMPILER	F3B10400
01767	0 07400 4 02177	1046		TSX	CIT200,4 COMPILER	F3B10450
02000	0 07400 4 02177	1055		TSX	CIT200,4 COMPILER	F3B10540
02005	0 07400 4 02177	1060		TSX	CIT200,4 COMPILER	F3B10590
02020	0 07400 4 02177	1075		TSX	CIT200,4 COMPILER	F3B10740
02034	0 07400 4 02177	1088		TSX	CIT200,4 COMPILER	F3B10870
02053	0 07400 4 02177	1104		TSX	CIT200,4 COMPILER	F3B11030
02070	0 07400 4 02177	1118		TSX	CIT200,4 COMPILER	F3B11170
02104	0 07400 4 02177	1134		TSX	CIT200,4 COMPILER	F3B11330
02120	0 07400 4 02177	1147		TSX	CIT200,4 COMPILER	F3B11460
02140	0 07400 4 02177	1164		TSX	CIT200,4	F3B11630
02154	0 07400 4 02177	1177		TSX	CIT200,4	F3B11760
02170	0 07400 4 02177	1192		TSX	CIT200,4	F3B11910

CIT201 = 1163

Definition
02213 0 70000 1 06622 1212 CIT201 CPY CIB2,1 OUTPUT AREA F3B12110
Reference
02216 3 00001 2 02213 1215 CIT203 TXH CIT201,2,1 BACK T0 CONTINUE WRITING F3B12140

CIT202 = 1165

Definition
02215 1 00001 2 02216 1214 CIT202 TXI CIT203,2,1 SET UP COUNT OF BLOCK F3B12130
Reference
02214 1 77777 1 02215 1213 TXI CIT202,1,−1 SET COUNT FOR NEXT WORD F3B12120

CIT203 = 1166

Definition
02216 3 00001 2 02213 1215 CIT203 TXH CIT201,2,1 BACK T0 CONTINUE WRITING F3B12140
Reference
02215 1 00001 2 02216 1214 CIT202 TXI CIT203,2,1 SET UP COUNT OF BLOCK F3B12130

CIT204 = 1167

Definition
02217 0 53400 1 02277 1216 CIT204 LXA M2CON+3,1 COUNT 0F 4 IN IR 1 F3B12150

References (2)

	02204	3 77634 2 02217	1205		TXH	CIT204,2,−100 COMPARE TO 100.	F3B12040
	02205	−3 00000 2 02217	1206		TXL	CIT204,2,0 LAST ENTRY	F3B12050

CIT205 = 1170

Definition
02222 0 50000 4 00000 1219 CIT205 CLA 0,4 ADDRESS OF NEXT ENTRY F3B12180

References (4)

02221	0 62100 0 02222	1218		STA	CIT205 TO GET NEXT ENTRY	F3B12170
02226	0 50000 0 02222	1223		CLA	CIT205 ADDRESS	F3B12220
02230	0 62100 0 02222	1225		STA	CIT205 RESTORE ADDRESS	F3B12240
02232	2 00001 1 02222	1227	CIT207	TIX	CIT205,1,1 GET NEXT ENTRY	F3BI2260

CIT206 = 1172

Definition
A 02224 0 50000 0 00000 1221 CIT206 CLA NEXT ENTRY F3B12200
Reference
02223 0 62100 0 02224 1220 STA CIT206 F3B12190

CIT207 = 1178

Definition
02232 2 00001 1 02222 1227 CIT207 TIX CIT205,1,1 GET NEXT ENTRY F3BI2260
Reference
02231 1 77777 2 02232 1226 TXI CIT207,2,−1 DECREASE BLOCK COUNT F3B12250

CTRAST = 1254

Definition
02346 1319 CTRAST SYN WCCHS CURRENT TRASTO ENTRY POINT IN DEC FIELD (TWOS COMP) F3B12950

References (34)

00467	0 60200 0 02346	319		SLW	CTRAST CELLS TO ZEROS	F3B03180
01041	−0 53400 2 02346	566		LXD	CTRAST,2 CUR.TIFGO NO.NOT IN TRASTO	F3B05630
01101	−0 53400 2 02346	599		LXD	CTRAST,2 CUR TIFGQ LEV NO NOT IN TRASTO	F3B05980
01152	−0 53400 2 02346	641		LXD	CTRAST,2 CUR TIFGO LEV NO NOT IN TRASTO	F3806400
01160	0 60100 0 02346	647		STO	CTRAST TRASTO LEV NO SEARCH	F3B06460
01203	−0 53400 2 02346	666		LXD	CTRAST,2 CUR TIFGO NO.NOT FOUND	F3B06650
01224	0 60100 0 02346	683		STO	CTRAST LEV. NI. SEARCH	F3B06820
01265	−0 53400 2 02346	718		LXD	CTRAST,2 CUR. TIFGO LEVEL NO. NOT IN TRASTO	F3B07170
01273	0 60100 0 02346	724		STO	CTRAST TRASTO LEVEL NO. SEARCH	F3B07230
01315	−0 53400 2 02346	742		LXD	CTRAST,2 CUR TIFGO LEV NO NOT FOUND IN TRASTO	F3B07410
01336	0 60100 0 02346	759		STO	CTRAST NO SEARCH	F3B07580
01352	−0 53400 2 02346	772		LXD	CTRAST,2 CUR TIFGO LEV NO NOT IN TRASTO	F3B07710
01402	−0 53400 2 02346	797		LXD	CTRAST,2 CUR TIFGO LEV NO NOT FOUND IN TRASTO	F3B07960
01410	0 60100 0 02346	803		STO	CTRAST TRASTO LEV NO SEARCH	F3B08020
01416	−0 53400 4 02346	809		LXD	CTRAST,4 CUR TIFGO LEV N0 NOT FOUND IN TRASTO	F3B08080
01424	0 60100 0 02346	815		STO	CTRAST TRASTO LEV NO SEARCH	F3B08140
01435	−0 53400 2 02346	824		LXD	CTRAST,2 CUR TIFGO LEV NO NOT FOUND IN TRASTO	F3808230
01453	0 60100 0 02346	838		STO	CTRAST PASS THROUGH TRASTO	F3B08370
01475	−0 63400 2 02346	858	M22715	SXD	CTRAST,2	F3B08570
01503	−0 53400 2 02346	865		LXD	CTRAST,2 CURRENT TRASTO ENTRY PT.	F3B08640
01506	0 50000 0 02346	868		CLA	CTRAST CURRENT TRASTO ENTRY PT.	F3B08670
01520	0 34000 0 02346	878		CAS	CTRAST COMPARE	F3B08770
01524	0 34000 0 02346	882	M22767	CAS	CTRAST	F3B08810
01562	0 50000 0 02346	913		CLA	CTRAST CURRENT TRASTO ENTRY POINT	F3B09120
01574	0 40200 0 02346	923		SUB	CTRAST CURRENT TRASTO ENTRY POINT	F3B09220
01576	0 40000 0 02346	925		ADD	CTRAST	F3B09240
01606	−0 53400 2 02346	933	M22825	LXD	CTRAST,2 TYPE I INSERTS	F3B09320
01633	−0 53400 2 02346	954	M22850	LXD	CTRAST,2 TYPE II INSERTS	F3B09530
01654	−0 53400 2 02346	971	M22875	LXD	CTRAST,2 TYPE III INSERTS	F3B09700
01677	−0 53400 2 02346	990	M22900	LXD	CTRAST,2 TYPE IV INSERT	F3B09890
01732	−0 53400 2 02346	1017	M22925	LXD	CTRAST,2 TYPE V INSERTS	F3B10160
01752	−0 53400 2 02346	1033	M22950	LXD	CTRAST,2 TYPE VI INSERTS	F3B10320
02242	−0 53400 2 02346	1235	ADD2	LXD	CTRAST,2 CURRENT TRASTO ENTRY POINT	F3B12340
02261	−0 53400 2 02346	1250		LXD	CTRAST,2 END	F3B12490

CTRSWC = 1271

Definition
02367 0 00000 0 00000 1335 CTRSWC F3B13110
Reference
00454 −0 63400 1 02367 308 SXD CTRSWC,1 SAVE WORD COUNT F3B03070

ETRAST = 1262

Definition
02356 0 00000 0 00000 1329 ETRAST TRASTO ENTRY POINT FOR INITIAL TIFGO FMLA NO MATCH IN DEC F3B13050

References (9)

00477	0 60200 0 02356	327		SLW	ETRAST	F3B03260
01015	−0 63400 2 02356	545	M22015	SXD	ETRAST,2 SAVE TRASTO ENTRY PT.	F3B05440
01157	0 50000 0 02356	646	M22233	CLA	ETRAST RESET CTRAST CELL FOR	F3B06430
01223	0 50000 0 02356	682	M22270	CLA	ETRAST RESET CTRAST FOR TRASTO	F3B06810
01272	0 50000 0 02356	723	M22420	CLA	ETRAST RESET CTRAST CELL FOR	F3B07220
01335	0 50000 0 02356	758	M22460	CLA	ETRAST RESET CTRAST FOR TRASTO LEV	F3B07570
01407	0 50000 0 02356	802	M22630	CLA	ETRAST RESET CTRAST CELL FOR	F3B08010
01423	0 50000 0 02356	814	M22650	CLA	ETRAST RESET CTRAST CELL FOR	F3B08130
01452	0 50000 0 02356	837		CLA	ETRAST RESET CTRAST FOR SECOND	F3B08360

M20000 = 24

Definition
10 POSITIONING OF TAPE 2, TAPE 3, TAPE 4 F3B00090

00030 0 53400 4 02274 11 M20000 LXA M2CON,4 PLACE A ZERO IN IR 4 F3B00100

References (2)

	00031	1 00013 4 00032	12	CDR1	TXI	M20000+2,4,11 ADD 13 FOR SPACING TAPE TO TIFGO TABLE	F3B00110
	00033	2 00001 4 00032	14		TIX	M20000+2,4,1 OVER 7 RECORDS	F3B00130

M21000 = 323

Definition

		331			M2 MAIN PROGRAM- TIFGO FMLA NO NOT IN	F3B03300
		332			TRALEV	F3B03310
00503	−0 75400 1 00000	333	M21000	PXD	0,1 TEST T0 SEE IF AT END OF TIFGO	F3B03320

References (11)

00535	1 77776 1 00503	359	TXI	M21000,1,−2 TIFGO ENTRY A GO TO N(A)	F3B03580
00547	1 77777 1 00503	370	TXI	M21000,1,−1	F3B03690
00601	1 77777 1 00503	397	TXI	M21000,1,−1 BACK TO NEXT TIFGO.	F3B03960
00624	1 77777 1 00503	417	TXI	M21000,1,−1 BACK T0 OBTAIN NEXT TIFGO	F3B04160
00647	1 77777 1 00503	437	TXI	M21000,1,−1 BACK TO GET NEXT TIFGO	F3B04360
00671	1 77777 1 00503	456	TXI	M21000,1,−1 BACK TO NEXT TIFGO ENTRY	F3B04550
00750	1 77777 1 00503	505	TXI	M21000,1,−1 BACK FOR NEXT TIFGO	F3B05040
01071	1 77776 1 00503	590	TXI	M21000,1,−2 BACK TO TEST AGAIN.	F3B05890
01122	1 77777 1 00503	616	TXI	M21000,1,−1	F3B061S0
01235	1 77777 1 00503	692	TXI	M21000,1,−1 BACK TO NEXT TIFGO	F3B06910
01343	1 77777 1 00503	764	TXI	M21000,1,−1 NEXT TIFGO.	F3B07630

M21010 = 332

Definition
00514 0 50000 0 02347 342 M21010 CLA ETRAL DETERMINE CURRENT TIFGO ENTRY F3B03410
Reference
00510 −0 12000 0 00514 338 TMI M21010 SIGNIFIES AN IF F3B03370

M21020 = 339

Definition
00523 0 50000 1 05472 349 M21020 CLA TIFGO,1 F3B03480

References (2)

	00516	0 10000 0 00523	344		TZE	M21020 END OF TRALEV	F3B03430
	01014	0 02000 0 00523	544		TRA	M21020 OF TRALEV, BACK TO COMPILE INSTR.	F3B05430

M21030 = 350

Definition
360 TIFGO ENTRY A GO TO A F3B03590

00536 1 77777 1 00537 361 M21030 TXI M21030+1,1,−1 F3B03600

References (3)

00526	0 10000 0 00536	352		TZE	M21030 TIFGO ENTRY A GO TO A	F3B03510
00536	1 77777 1 00537	361	M21030	TXI	M21030+1,1,−1	F3B03600
01447	0 10000 0 00535	834	COR13	TZE	M21030−1	F3B08330

M21100 = 360

Definition
371 TIFGO ENTRY A GO TO (A),I F3B03700

00550 0 50000 1 05472 372 M21100 CLA TIFGO,1 2ND WORD OF TIFGO ENTRY F3B03710
Reference
00534 1 77777 1 00550 358 TXI M21100,1,−1 TIFGO ENTRY A GO TO (A),1 F3B03570

M21110 = 367

Definition
00557 0 07400 4 02177 379 M21110 TSX CIT200,4 COMP1LE F3B03780

M21120 = 373

Definition
00565 0 50000 1 05472 385 M21120 CLA TIFGO,1 2ND WORD OF TIFGO ENTRY F3B03840
Reference
00564 1 00001 2 00565 384 TXI M21120,2,1 STEP UP COUNT TO NEXT TRAD ENTRY F3B03830

M21125 = 375

Definition
00567 0 50000 2 07361 387 M21125 CLA TRAD+250,2 BRING IN NEXT TRAD ENTRY F3B03860
Reference
D 00600 −3 00000 2 00567 396 M21140 TXL M21125,2 TEST IF LAST TRAD ENTRY, NO F3B03950

M21140 = 384

Definition
D 00600 −3 00000 2 00567 396 M21140 TXL M21125,2 TEST IF LAST TRAD ENTRY, NO F3B03950

References (2)

	00566	0 62200 0 00600	386		STD	M21140 STORE IN TXL INSTRUCTION	F3B03850
	00577	1 00001 2 00600	395		TXI	M21140,2,1 STEP UP TRAD ENTRY	F3B03940

M21300 = 386

Definition
398 TIFGO ENTRY AN IF SENSE F3B03970

00602 0 07400 4 02177 399 M21300 TSX CIT200,4 COMPILE F3B03980
Reference
00533 1 77777 1 00602 357 TXI M21300,1,−1 TIFGO ENTRY AN IF SENSE F3B03560

M21310 = 395

Definition
00613 0 60100 0 02364 408 M21310 STO M2CW+2 STORE BETA 2 IN 3RD WD. F3B04070
Reference
00623 2 00001 2 00613 416 TIX M21310,2,1 COMPILE SECOND TRA F3B04150

M21400 = 405

Definition
418 TIFGO ENTRY AN IF DIV CK F3B04170

00625 0 07400 4 02177 419 M21400 TSX CIT200,4 COMPILE F3B04180
Reference
00531 1 77777 1 00625 355 TXI M21400,1,−1 TIFGO ENTRY AN IF DIVCK F3B03540

M21410 = 413

Definition
00635 0 60100 0 02364 427 M21410 STO M2CW+2 COMPILE F3B04260
Reference
00646 2 00001 2 00635 436 TIX M21410,2,1 COMPILE 2ND TRA INSTR, F3B04350

M21500 = 424

Definition
438 TIFGO ENTRY AN IF OVERFLOW F3B04370

00650 0 50000 1 05472 439 M21500 CLA TIFGO,1 2ND WORD 0F TIFGO ENTRY F3B04380
Reference
00530 1 77777 1 00650 354 TXI M21500,1,−1 TIFGO ENTRY AN IF OVERFLOW F3B03530

M21515 = 436

Definition
00664 0 07400 4 02177 451 M21515 TSX CIT200,4 COMPILE F3B04500
Reference
00727 0 02000 0 00664 487 TRA M21515 TR. TO COMPILE TRA TO BETA 1 F3B04860

M21600 = 472

Definition
488 TIFGO ENTRY AN ASSIGN F3B04870

00730 0 50000 0 07324 489 M21600 CLA ASN0 CURRENT ASSIGN NO. F3B04880
Reference
00513 0 10000 0 00730 341 TZE M21600 TIFGO ENTRY AN ASSIGN F3B03400

M21610 = 481

Definition
00741 1 77777 1 00742 498 M21610 TXI M21610+1,1,−1 F3B04970
Reference
00741 1 77777 1 00742 498 M21610 TXI M21610+1,1,−1 F3B04970

M21620 = 487

Definition
00747 −0 63400 2 07323 504 M21620 SXD EASC0,2 PT. AND STORE F3B03030
Reference
00746 1 77777 2 00747 503 TXI M21620,2,−1 STEP COUNT FOR NEXT ASC0 ENTRY F3B05020

M21800 = 442

Definition
457 TIFGO ENTRY AN IF (E) F3B04560

00672 −0 32000 0 02306 458 M21800 ANA M2CON+10 SAVE ADDRESS OF 1ST WD, BETA 1 F3B04570
Reference
00524 −0 12000 0 00672 350 TMI M21800 TIFGO ENTRY AN IF(E) F3B03490

M21810 = 451

Definition
00703 0 50000 1 05472 467 M21810 CLA TIFGO,1 2ND WD. OF TIFGO ENTRY F3B04660
Reference
00702 1 77777 1 00703 466 TXI M21810,1,−1 STEP COUNT FOR 2ND TIFGO WORD F3B04650

M21900 = 489

Definition
506 M2 TERMINAL ROUTINE F3B05050

00751 −0 53400 2 02355 507 M21900 LXD BBOX,2 2S COMPL. OF NO OF WDS IN BLOCK F3B05060

References (2)

	00505	0 10000 0 00751	335		TZE	M21900 END OF TIFGO	F3B03340
	00753	1 00003 4 00754	509		TXI	M21900+3,4,3 STEP UP BLOCK COUNT BY 3	F3B05080

M21910 = 496

Definition
00760 0 70000 1 06622 514 M21910 CPY CIB2,1 WRITE REMAINING CITS F3B05130

References (4)

00756	1 00001 4 00757	512	TXI	M21910−1,4,1 STEPUP IR 4 BY 1	F3B05110
00761	1 77777 1 00762	515	TXI	M21910+2,1,−1 DECREASE COUNT IN IR 1	F3B05140
00762	1 00001 2 00763	516	TXI	M21910+3,2,1 INCREASE COUNT IN IR 2	F3B05150
00763	3 00001 2 00760	517	TXH	M21910,2,1 TEST 1F AT END	F3B05160

M21920 = 500

Definition
00764 0 77000 0 00222 518 M21920 WEF 146 WRITE END OF FILE F3B05170

References (2)

	00754	−3 00000 2 00764	510		TXL	M21920,2,0 TEST IF AT END OF BLOCK	F3B05090
	00766	2 00001 4 00765	520		TIX	M21920+1,4,1	F3B05190

M21925 = 503

Definition
00767 0 76200 0 00222 521 M21925 RDS 146 POSITION TAPE 2 AT BEGINNING F3B05200

References (2)

	00771	0 02000 0 00770	523		TRA	M21925+1 BACK TO READ LOOP	F3B05220
	00773	0 02000 0 00767	525		TRA	M21925	F3B05240

M22000 = 510

Definition

		528			M2-MAIN PROGRAM-TIFGO FMLA NO IN	F3B05270
		529			TRALEV	F3B05280
00776	1 77777 2 00777	530	M22000	TXI	M22000+1,2,−1 UPDATE TRALEV ENTRY	F3B05290

References (3)

00522	0 10000 0 00776	348		TZE	M22000 T1FG0 ENTRY IN TRALEV	F3B03470
00772	0 02000 0 00774	524		TRA	M22000−2	F3B05230
00776	1 77777 2 00777	530	M22000	TXI	M22000+1,2,−1 UPDATE TRALEV ENTRY	F3B05290

M22006 = 516

Definition
01004 −0 53400 2 02347 536 M22006 LXD ETRAL,2 2S COMPL. 0F TRALEV ENTRY PT. COUNT F3B053S0

References (2)

	01002	0 02000 0 01004	534		TRA	M22006 CUR TIFGO FMLA NO NOT IN TRASTO	F3B05330
	01012	1 77777 2 01005	542		TXI	M22006+1,2,−1 NO, UPDATE TRALEV TABLE	F3B05410

M22013 = 523

Definition
01013 −0 63400 2 02347 543 M22013 SXD ETRAL,2 START OF NEXT ENTRY, SAVE COUNT F3B05420

References (2)

	01006	−0 12000 0 01013	538		TMI	M22013 IS IT START OF NEXT ENTRY 2	F3B05370
	01011	0 10000 0 01013	541		TZE	M22013 IS IT END OF TRALEV TABLE, YES	F3B05400

M22015 = 525

Definition
01015 −0 63400 2 02356 545 M22015 SXD ETRAST,2 SAVE TRASTO ENTRY PT. F3B05440
Reference
01003 0 02000 0 01015 535 TRA M22015 CUR TIFGO FMLA NO IN TRASTO F3B05340

M22020 = 539

Definition
559 TIFGO ENTRY A GO TO A F3B05580

01033 0 50000 0 02345 560 M22020 CLA TIFFN CURRENT TIFGO FMLA NO. F3B05590
Reference
01023 0 10000 0 01033 551 TZE M22020 GO TO A F3B05500

M22022 = 543

Definition
01037 0 07400 4 01477 564 M22022 TSX M22750,4 TRASTO LEV.NO.SEARCH F3B05630

References (2)

	01046	0 10000 0 01037	571		TZE	M22022 TIFGO ENTRY NOT YET FOUND IN TRASTO	F3B05700
	01051	0 02000 0 01037	574		TRA	M22022 BACK TO LEVEL NO. SEARCH	F3B05730

M22025 = 546

Definition
01042 1 77774 2 01043 567 M22025 TXI M22025+1,2,−4 UP0ATE TRASTO ENTRY POINT F3B05660
Reference
01042 1 77774 2 01043 567 M22025 TXI M22025+1,2,−4 UP0ATE TRASTO ENTRY POINT F3B05660

M22035 = 554

Definition
01052 0 50000 0 02333 575 M22035 CLA ADDCO NO. OF TIMES TIFGO ENTRY APPEARS IN TRASTO F3B05740
Reference
01044 0 02000 0 01052 569 TRA M22035 TIFGO FMLA NO.NOT AGAIN FOUND F3B05680

M22040 = 558

Definition
01056 0 50000 1 05473 579 M22040 CLA TIFGO+1,1 TIFGO BETA F3B05780
Reference
01053 0 10000 0 01056 576 TZE M22040 TIFGO ENTRY NEVER FOUND IN TRASTO F3B0S730

M22050 = 567

Definition
01067 1 77777 2 01070 588 M22050 TXI M22050+1,2,−1 F3B05870
Reference
01067 1 77777 2 01070 588 M22050 TXI M22050+1,2,−1 F3B05870

M22100 = 570

Definition
591 TIFGO ENTRY A GO TO N (A) F3B05900

01072 0 50000 0 02345 592 M22100 CLA TIFFN CURRENT TIFGO ALPHA F3B05910
Reference
01032 1 77777 1 01072 558 TXI M22100,1,−1 GO TO N (A) F3B05570

M22105 = 575

Definition
01077 0 07400 4 01477 597 M22105 TSX M22750,4 TRASTO LEV NO SEARCH F3B05960

References (2)

	01106	0 10000 0 01077	604		TZE	M22105 TIFGO ENTRY NOT YET FOUND IN TRASTO	F3B06030
	01111	0 02000 0 01077	607		TRA	M22105 BACK TO LEVEL NO. SEARCH	F3806060

M22110 = 578

Definition
01102 1 77774 2 01103 600 M22110 TXI M22110+1,2,−4 UPDATE TRASTO ENTRY POINT F3B05990
Reference
01102 1 77774 2 01103 600 M22110 TXI M22110+1,2,−4 UPDATE TRASTO ENTRY POINT F3B05990

M22120 = 586

Definition
01112 −0 53400 2 02347 608 M22120 LXD ETRAL,2 UPDATE TRALEV ENTRY POINT F3B06070

References (2)

	01104	0 02000 0 01112	602		TRA	M22120 TIFGO FMLA NO.NOT AGAIN FOUND	F3B06010
	01120	1 77777 2 01113	614		TXI	M22120+1,2,−1 SPACE OVER TO NEXT ENTRY	F3806130

M22130 = 593

Definition
01121 −0 63400 2 02347 615 M22130 SXD ETRAL,2 F3B06140

References (2)

	01114	−0 12000 0 01121	610		TMI	M22130	F3B06090
	01117	0 10000 0 01121	613		TZE	M22130	F3B06120

M22200 = 595

Definition
617 TIFGO ENTRY A GO TO (A),1 F3B06160

01123 0 50000 1 05472 618 M22200 CLA TIFGO,1 COMPUTE N+1 (CTRAD1- CTRAD2+1) F3806170
Reference
01031 1 77777 1 01123 557 TXI M22200,1,−1 GO TO (A),1 F3B05560

M22220 = 608

Definition
D 01140 1 00000 2 01141 631 M22220 TXI M22220+1,2 F3806300

References (2)

	01134	0 62200 0 01140	627		STD	M22220 OBTAIN TRALEV ENTRY	F3B06260
D	01140	1 00000 2 01141	631	M22220	TXI	M22220+1,2	F3806300

M22225 = 616

Definition
01150 0 07400 4 01477 639 M22225 TSX M22750,4 TRASTO LEVEL NO SEARCH F3B06380

References (3)

	01156	0 02000 0 01150	645	TRA	M22225 TIFGO FMLA NO AGAIN FOUND	F3B06440
D	01165	−3 00000 2 01150	652	TXL	M22225,2	F3B06510
	01251	0 02000 0 01150	705	TRA	M22225 TRASTO LEVEL NO. SEARCH	F3B07040

M22230 = 619

Definition
01153 1 77774 2 01154 642 M22230 TXI M22230+1,2,−4 UPDATE TRASTD ENTRY POINT F3B06410
Reference
01153 1 77774 2 01154 642 M22230 TXI M22230+1,2,−4 UPDATE TRASTD ENTRY POINT F3B06410

M22233 = 623

Definition
01157 0 50000 0 02356 646 M22233 CLA ETRAST RESET CTRAST CELL FOR F3B06430

M22240 = 628

Definition
01164 −3 00000 2 01166 651 M22240 TXL M22240+2,2,0 F3B06500

References (4)

01136	−0 63400 2 01165	629		SXD	M22240+1,2	F3B06280
01162	1 00001 2 01163	649		TXI	M22240−1,2,1	F3B06480
01164	−3 00000 2 01166	651	M22240	TXL	M22240+2,2,0	F3B06500
01237	−0 63400 2 01165	695		SXD	M22240+1,2	F3B06940

M22245 = 637

Definition
01175 0 50000 0 02345 660 M22245 CLA TIFFN TRASTO INSERT F3B06590
Reference
D 01231 −3 00000 2 01175 688 TXL M22245,2 F3B06870

M22250 = 641

Definition
01201 0 07400 4 01477 664 M22250 TSX M22750,4 TRASTO LEV.NO.SEARCH F3B06630

References (2)

	01210	0 10000 0 01201	671		TZE	M22250 CUR TIFGO ADD NOT YET FOUND IN TRASTO	F3B06700
	01213	0 02000 0 01201	674		TRA	M22250	F3B06730

M22255 = 644

Definition
01204 1 77774 2 01205 667 M22255 TXI M22255+1,2,−4 UPDATE TRASTO ENTRY POINT F3B06660
Reference
01204 1 77774 2 01205 667 M22255 TXI M22255+1,2,−4 UPDATE TRASTO ENTRY POINT F3B06660

M22263 = 652

Definition
01214 0 50000 0 02333 675 M22263 CLA ADDCO F3B06740
Reference
01206 0 02000 0 01214 669 TRA M22263 TIFGO FMLA NO.NOT AGAIN FOUND F3B06680

M22270 = 659

Definition
01223 0 50000 0 02356 682 M22270 CLA ETRAST RESET CTRAST FOR TRASTO F3B06810
Reference
01215 0 10000 0 01223 676 TZE M22270 CUR. TIFGO NEVER FQUND IN TRASTO F3B06750

M22275 = 664

Definition
01230 −3 00000 2 01232 687 M22275 TXL M22275+2,2,0 F3B06860

References (5)

01137	−0 63400 2 01231	630		SXD	M22275+1,2	F3806290
01167	0 10000 0 01232	654		TZE	M22275+2 TIFGO ENTRY NEVER FOUND IN TRASTO	F3B06530
01226	1 00001 2 01227	685		TXI	M22275−1,2,1	F3B06840
01230	−3 00000 2 01232	687	M22275	TXL	M22275+2,2,0	F3B06860
01240	−0 63400 2 01231	696		SXD	M22275+1,2	F3B06950

M22280 = 668

Definition
01234 −0 63400 2 02347 691 M22280 SXD ETRAL,2 F3B06900
Reference
01233 1 77777 2 01234 690 TXI M22280,2,−1 FOR NEXT TIFGO ENTRY F3B06890

M22300 = 670

Definition
693 TIFGO ENTRY AN IF SENSE F3B06920

01236 −0 53400 2 02347 694 M22300 LXD ETRAL,2 UPDATE TRALEV F3B06930
Reference
01030 1 77777 1 01236 556 TXI M22300,1,−1 IF SENSE F3B05550

M22303 = 673

Definition
01241 1 77777 2 01242 697 M22303 TXI M22303+1,2,−1 F3B06960
Reference
01241 1 77777 2 01242 697 M22303 TXI M22303+1,2,−1 F3B06960

M22400 = 682

Definition
706 TIFGO ENTRY AN IF DIV CK F3B07050

01252 −0 53400 2 02347 707 M22400 LXD ETRAL,2 UPDATE TRALEV F3B07060

References (2)

	01026	1 77777 1 01252	554		TXI	M22400,1,−1 IF DIV CK	F3B05530
	01253	1 77776 2 01254	708		TXI	M22400+2,2,−2	F3B07070

M22410 = 691

Definition
01263 0 07400 4 01477 716 M22410 TSX M22750,4 TRASTO LEVEL NO SEARCH F3B07150

References (2)

	01271	0 02000 0 01263	722		TRA	M22410 TIFGO FMLA. NO. AGAIN FOUND	F3B07210
D	01277	3 00000 2 01263	728		TXH	M22410,2	F3B07270

M22415 = 694

Definition
01266 1 77774 2 01267 719 M22415 TXI M22415+1,2,−4 UPDATE TRASTO ENTRY POINT F3B07180
Reference
01266 1 77774 2 01267 719 M22415 TXI M22415+1,2,−4 UPDATE TRASTO ENTRY POINT F3B07180

M22420 = 698

Definition
01272 0 50000 0 02356 723 M22420 CLA ETRAST RESET CTRAST CELL FOR F3B07220
Reference
01357 0 02000 0 01272 777 TRA M22420 CONTINUE AS IN DVCH. F3B07760

M22425 = 702

Definition
01276 −0 63400 2 02347 727 M22425 SXD ETRAL,2 F3B07260

References (3)

01254	−0 63400 2 01277	709	SXD	M22425+1,2	F3B07080
01275	1 77777 2 01276	726	TXI	M22425,2,−1	F3B07250
01346	−0 63400 2 01277	768	SXD	M22425+1,2	F3B07670

M22430 = 707

Definition
01303 −0 63400 2 02347 732 M22430 SXD ETRAL,2 PASS THROUGH TREASTO F3B07310
Reference
01302 1 00002 2 01303 731 TXI M22430,2,2 RESET ETRAL FOR SECOND F3B07300

M22435 = 711

Definition
01307 0 50000 0 02345 736 M22435 CLA TIFFN FIRST TRASTO INSERT F3B07330

References (2)

D	01342	3 00000 2 01307	763		TXH	M22435,2 TEST END OF TRALEV ENTRIES .	F3B07620
	01455	1 77777 1 01305	840		TXI	M22435−2,1,−1	F3B08390

M22440 = 715

Definition
01313 0 07400 4 01477 740 M22440 TSX M22750,4 TRASTO LEV NO SEARCH F3B07390

References (2)

	01322	0 10000 0 01313	747		TZE	M22440 CUR TIFGO ADD NOT YET FOUND IN TRASTO	F3807460
	01325	0 02000 0 01313	750		TRA	M22440 TRASTO LEV. NO, SEARCH	F3B07490

M22445 = 718

Definition
01316 1 77774 2 01317 743 M22445 TXI M22445+1,2,−4 UPDATE TRASTO ENTRY POINT F3807420
Reference
01316 1 77774 2 01317 743 M22445 TXI M22445+1,2,−4 UPDATE TRASTO ENTRY POINT F3807420

M22455 = 726

Definition
01326 0 50000 0 02333 751 M22455 CLA ADDCO F3B07500
Reference
01320 0 02000 0 01326 745 TRA M22455 TIFGO FMLA NO NOT AGAIN FOUND F3B07440

M22460 = 733

Definition
01335 0 50000 0 02356 758 M22460 CLA ETRAST RESET CTRAST FOR TRASTO LEV F3B07570
Reference
01327 0 10000 0 01335 752 TZE M22460 CUR TIFGO ADD NEVER FOUND IN TRASTO F3807510

M22465 = 737

Definition
01341 −0 63400 2 02347 762 M22465 SXD ETRAL,2 F3B07610

References (5)

01255	−0 63400 2 01342	710	SXD	M22465+1,2	F3B07090
01301	0 10000 0 01343	730	TZE	M22465+2 TIFGO ENTRY NEVER FOUND IN TRASTO	F3B07290
01340	1 77777 2 01341	761	TXI	M22465,2,−1 POINT	F3B07600
01347	−0 63400 2 01342	769	SXD	M22465+1,2	F3B07680
01372	−0 63400 2 01342	789	SXD	M22465+1,2	F3B07880

M22500 = 740

Definition
765 TIFGO ENTRY AN IF OVERFLOW F3B07640

01344 −0 53400 2 02347 766 M22500 LXD ETRAL,2 INITIALIZE AND RECORD END OF F3B07650

References (2)

	01025	1 77777 1 01344	553		TXI	M22500,1,−1 IF OVERFLOW	F3B05520
	01345	1 77776 2 01346	767		TXI	M22500+2,2,−2 TRALEV ENTRY	F3B07660

M22505 = 744

Definition
01350 0 07400 4 01477 770 M22505 TSX M22750,4 TRASTO LEV NO SEARCH F3B07690
Reference
01356 0 02000 0 01350 776 TRA M22505 TRASTO FMLA NO AGAIN FOUND F3B07750

M22510 = 747

Definition
01353 1 77774 2 01354 773 M22510 TXI M22510+1,2,−4 UPDATE TRASTO ENTRY POINT F3B07720
Reference
01353 1 77774 2 01354 773 M22510 TXI M22510+1,2,−4 UPDATE TRASTO ENTRY POINT F3B07720

M22600 = 752

Definition
778 TIFGO ENTRY AN IF (E) F3B07770

01360 −0 53400 2 02347 779 M22600 LXD ETRAL,2 PERMUTE WDS. OF THIS TRALEV ENTRY F3B07780
Reference
01021 −0 12000 0 01360 549 TMI M22600 IF(E) F3B05480

M22610 = 761

Definition
01371 1 77775 2 01372 788 M22610 TXI M22610+1,2,−3 F3B07870
Reference
01371 1 77775 2 01372 788 M22610 TXI M22610+1,2,−3 F3B07870

M22620 = 768

Definition
01400 0 07400 4 01477 795 M22620 TSX M22750,4 TRASTQ LEV NO SEARCH F3B07940
Reference
01406 0 02000 0 01400 801 TRA M22620 TRASTO FMLA NO AGAIN FOUND F3B08000

M22625 = 771

Definition
01403 1 77774 2 01404 798 M22625 TXI M22625+1,2,−4 UPDATE TRASTO ENTRY POINT F3B07970
Reference
01403 1 77774 2 01404 798 M22625 TXI M22625+1,2,−4 UPDATE TRASTO ENTRY POINT F3B07970

M22630 = 775

Definition
01407 0 50000 0 02356 802 M22630 CLA ETRAST RESET CTRAST CELL FOR F3B08010

M22635 = 779

Definition
01413 −0 63400 2 02347 806 M22635 SXD ETRAL,2 F3B08050
Reference
01412 1 77777 2 01413 805 TXI M22635,2,−1 ENTRY POINT F3B08040

M22640 = 780

Definition
01414 0 07400 4 01477 807 M22640 TSX M22750,4 TRASTO LEVEL NO SEARCH F3B08060
Reference
01422 0 02000 0 01414 813 TRA M22640 TIFGO FMLA NO AGAIN FOUND F3B08120

M22645 = 784

Definition
01420 0 07400 4 01456 811 M22645 TSX M22700,4 TRASTO FMLA NO SEARCH F3B08100
Reference
01417 1 77774 2 01420 810 TXI M22645,2,−4 UPDATE TRASTO ENTRY POINT F3B08090

M22650 = 787

Definition
01423 0 50000 0 02356 814 M22650 CLA ETRAST RESET CTRAST CELL FOR F3B08130

M22655 = 791

Definition
01427 −0 63400 2 02347 818 M22655 SXD ETRAL,2 ENTRY POINT F3B08170
Reference
01426 1 77777 2 01427 817 TXI M22655,2,−1 UPDATE TRALEV F3B08160

M22660 = 795

Definition
01433 0 07400 4 01477 822 M22660 TSX M22750,4 TRASTQ LEV NO SEARCH F3B08210
Reference
01441 0 02000 0 01433 828 TRA M22660 TIFO FMLA NO AGAIN FOUND F3B08270

M22663 = 799

Definition
01437 0 07400 4 01456 826 M22663 TSX M22700,4 TRASTO FMLA NO SEARCH F3B08250
Reference
01436 1 77774 2 01437 825 TXI M22663,2,−4 UPDATE TRASTO ENTRY POINT F3B08240

M22670 = 804

Definition
01444 −0 63400 2 02347 831 M22670 SXD ETRAL,2 FOR NEXT TIFGO ENTRY F3B08300
Reference
01443 1 77777 2 01444 830 TXI M22670,2,−1 UPDATE TRALEV ENTRY POINT F3B08290

M22675 = 809

Definition
01451 −0 63400 2 02347 836 M22675 SXD ETRAL,2 SECOND PASS THROUGH TRASTO F3B08350
Reference
01450 1 00003 2 01451 835 TXI M22675,2,3 RESET ETRAL FOR F3B08340

M22700 = 814

Definition

		841			M2 CLOSED SUBROUTINES	F3B08400
		842			TRASTO FMLA NO SEARCH	F3B08410
01456	−0 75400 2 00000	843	M22700	PXD	0,2 PLACE COUNT 0F TRALEV ENTRY IN AC.	F3B08420

References (15)

01001	0 07400 4 01456	533		TSX	M22700,4 TRASTO FMLA NO SEARCH, M2 SUBROUTINE	F3B05320
01043	0 07400 4 01456	568		TSX	M22700,4 TRASTO FMLA NO SEARCH	F3B05670
01103	0 07400 4 01456	601		TSX	M22700,4 TRASTO FMLA NO SEARCH	F3B06000
01154	0 07400 4 01456	643		TSX	M22700,4 TRASTO FMLA NO.SEARCH	F3B06420
01205	0 07400 4 01456	668		TSX	M22700,4 TRASTO FMLA NO.SEARCH	F3B06670
01267	0 07400 4 01456	720		TSX	M22700,4 TRASTO FMLA. NO. SEARCH	F3B07190
01317	0 07400 4 01456	744		TSX	M22700,4 TRASTO FMLA NO SEARCH	F3B07430
01354	0 07400 4 01456	774		TSX	M22700,4 TRASTO FMLA NO SEARCH	F3B07730
01404	0 07400 4 01456	799		TSX	M22700,4 TRASTO FMLA NO SEARCH	F3B07980
01420	0 07400 4 01456	811	M22645	TSX	M22700,4 TRASTO FMLA NO SEARCH	F3B08100
01437	0 07400 4 01456	826	M22663	TSX	M22700,4 TRASTO FMLA NO SEARCH	F3B08250
01467	1 77774 2 01456	852		TXI	M22700,2,−4 TRAS TO LESS THAN TIFGO, BACK TO BRING NEXT	F3B08510
01473	1 77774 2 01456	856		TXI	M22700,2,−4 TRASTO	F3B08550
01474	1 77774 2 01456	857		TXI	M22700,2,−4	F3B08560
02255	0 07400 4 01456	1246		TSX	M22700,4 TRASTO FMLA NO SEARCH	F3B12450

M22710 = 824

Definition
01470 0 50000 2 02370 853 M22710 CLA TRASTO,2 TRASTO ENTRY F3B08520
Reference
01465 0 02000 0 01470 850 TRA M22710 TRASTO GREATER THAN TIFGO F3B08490

M22715 = 829

Definition
01475 −0 63400 2 02346 858 M22715 SXD CTRAST,2 F3B08570
Reference
01466 0 02000 0 01475 851 TRA M22715 TRASTO EQUAL TO TIFGO FMLA NO F3B08500

M22750 = 831

Definition
860 TRASTO LEVEL NO SEARCH F3B08590

01477 −0 63400 4 02331 861 M22750 SXD CBOX,4 TR COUNT STORED FOR LINKAGE F3B08600

References (11)

01037	0 07400 4 01477	564	M22022	TSX	M22750,4 TRASTO LEV.NO.SEARCH	F3B05630
01077	0 07400 4 01477	597	M22105	TSX	M22750,4 TRASTO LEV NO SEARCH	F3B05960
01150	0 07400 4 01477	639	M22225	TSX	M22750,4 TRASTO LEVEL NO SEARCH	F3B06380
01201	0 07400 4 01477	664	M22250	TSX	M22750,4 TRASTO LEV.NO.SEARCH	F3B06630
01263	0 07400 4 01477	716	M22410	TSX	M22750,4 TRASTO LEVEL NO SEARCH	F3B07150
01313	0 07400 4 01477	740	M22440	TSX	M22750,4 TRASTO LEV NO SEARCH	F3B07390
01350	0 07400 4 01477	770	M22505	TSX	M22750,4 TRASTO LEV NO SEARCH	F3B07690
01400	0 07400 4 01477	795	M22620	TSX	M22750,4 TRASTQ LEV NO SEARCH	F3B07940
01414	0 07400 4 01477	807	M22640	TSX	M22750,4 TRASTO LEVEL NO SEARCH	F3B08060
01433	0 07400 4 01477	822	M22660	TSX	M22750,4 TRASTQ LEV NO SEARCH	F3B08210
02257	0 07400 4 01477	1248		TSX	M22750,4 TRASTO LEVEL NO SEA RCH	F3B12470

M22760 = 843

Definition
01513 0 50000 0 02337 873 M22760 CLA ONEL TEST TYPE 1 F3B08720
Reference
01507 −0 10000 0 01513 869 TNZ M22760 F3B08680

M22762 = 845

Definition
01515 0 40000 0 02340 875 M22762 ADD TWOL NO. OF TYPE 2 F3B08740

References (2)

	01525	0 02000 0 01515	883		TRA	M22762	F3B08820
	01526	0 02000 0 01515	884		TRA	M22762	F3B08830

M22767 = 852

Definition
01524 0 34000 0 02346 882 M22767 CAS CTRAST F3B08810
Reference
01514 −0 10000 0 01524 874 TNZ M22767 F3808730

M22770 = 855

Definition
01527 0 50000 2 02371 885 M22770 CLA TRASTO+1,2 LEVEL NOS. F3B08840

References (4)

01505	0 10000 0 01527	867	TZE	M22770 TYPE 2	F3B08660
01512	0 02000 0 01527	872	TRA	M22770	F3B08710
01521	0 02000 0 01527	879	TRA	M22770	F3B08780
01522	0 02000 0 01527	880	TRA	M22770	F3B08790

M22777 = 861

Definition
01535 0 50000 2 02371 891 M22777 CLA TRASTO+1,2 LEVEL NOS. F3B08900
Reference
01532 0 02000 0 01535 888 TRA M22777 LESS THAN F3B08870

M22783 = 867

Definition
01543 0 50000 0 02333 897 M22783 CLA ADDCO NO. OF TIMES TIFGO APPEARS F3808960

References (2)

	01542	0 02000 0 01543	896		TRA	M22783 EQUAL TO OR GREATER THAN	F3B08930
	01554	0 02000 0 01543	906		TRA	M22783	F3B09050

M22787 = 872

Definition
01550 0 50000 2 02372 902 M22787 CLA TRASTO+2,2 TAGS, WORD 3, TYPE 2 LEVEL NO. F3B09010

References (2)

	01511	0 10000 0 01550	871		TZE	M22787	F3B08700
	01523	0 02000 0 01550	881		TRA	M22787	F3B08800

M22795 = 878

Definition
01556 −0 53400 4 02331 908 M22795 LXD CBOX,4 F3B09070

References (4)

01533	0 02000 0 01556	889	TRA	M22795	F3B08880
01534	0 02000 0 01556	890	TRA	M22795	F3B08890
01541	0 02000 0 01556	895	TRA	M22795 EXIT, NOT FOUND	F3B08940
01555	0 02000 0 01556	907	TRA	M22795	F3809060

M22800 = 880

Definition
910 INDEXING INSTRUCTION COMPILER F3B09090

01560 −0 63400 4 02331 911 M22800 SXD CBOX,4 SAVE COUNT IN 4 FOR LINKAGE F3B09100

References (4)

01040	0 07400 4 01560	565	TSX	M22800,4 CUR.TIFGO LEV.NO.IN TRASTO	F3B05640
01100	0 07400 4 01560	598	TSX	M22800,4 CUR TIFGO LEV NO.IN TRASTO	F3B05970
01202	0 07400 4 01560	665	TSX	M22800,4 CUR TIFGO LEV NO FOUND	F3B06640
01314	0 07400 4 01560	741	TSX	M22800,4 CUR TIFGO LEV NO FOUND IN TRASTO	F3B07400

M22805 = 884

Definition
01564 0 50000 2 02337 915 M22805 CLA ONEL,2 LENGTH OF TYPE 1 ENTRY ETC. F3B09140
Reference
01566 1 77777 2 01564 917 TXI M22805,2,−1 GET NEXT TYPE ENTRY F3B09160

M22810 = 887

Definition
01567 0 50000 0 02274 918 M22810 CLA M2CON ZERO IN ACC. F3B09170

References (2)

	01563	−0 10000 0 01567	914		TNZ	M22810	F3B09130
	01577	1 77777 2 01570	926	M22813	TXI	M22810+1,2,−1 SORT ACCORDING TO TYPE	F3B09250

M22813 = 895

Definition
01577 1 77777 2 01570 926 M22813 TXI M22810+1,2,−1 SORT ACCORDING TO TYPE F3B09250
Reference
01573 0 10000 0 01577 922 TZE M22813 F3B09210

M22819 = 896

Definition
01600 0 02000 0 01606 927 M22819 TRA M22825 TYPE I INSERTS F3B09260

References (2)

	01565	−0 10000 2 01600	916		TNZ	M22819,2 ENTRIES EXIST	F3B09150
	01575	−0 12000 2 01600	924		TMI	M22819,2 PROPER TYPE	F3B09230

M22825 = 902

Definition
01606 −0 53400 2 02346 933 M22825 LXD CTRAST,2 TYPE I INSERTS F3B09320
Reference
01600 0 02000 0 01606 927 M22819 TRA M22825 TYPE I INSERTS F3B09260

M22848 = 921

Definition
01631 −0 53400 4 02331 952 M22848 LXD CBOX,4 RESTORE LINKAGE F3B09510

References (5)

01653	0 02000 0 01631	970	TRA	M22848 TO RESTORE LINKAGE	F3B09690
01676	0 02000 0 01631	989	TRA	M22848 RESTORE LINKAGE	F3B09880
01731	0 02000 0 01631	1016	TRA	M22848 BACK TO RESTORE LINKAGE	F3B10150
01751	0 02000 0 01631	1032	TRA	M22848 RESTORE LINKAGE	F3B10310
02012	0 02000 0 01631	1065	TRA	M22848 BACK TO RESTORE LINKAGE	F3B10640

M22850 = 923

Definition
01633 −0 53400 2 02346 954 M22850 LXD CTRAST,2 TYPE II INSERTS F3B09530
Reference
01601 0 02000 0 01633 928 TRA M22850 TYPE II INSERTS F3B09270

M22875 = 940

Definition
01654 −0 53400 2 02346 971 M22875 LXD CTRAST,2 TYPE III INSERTS F3B09700
Reference
01602 0 02000 0 01654 929 TRA M22875 TYPE III INSERTS F3B09280

M22900 = 959

Definition
01677 −0 53400 2 02346 990 M22900 LXD CTRAST,2 TYPE IV INSERT F3B09890
Reference
01603 0 02000 0 01677 930 TRA M22900 TYPE IV INSERTS F3B09290

M22925 = 986

Definition
01732 −0 53400 2 02346 1017 M22925 LXD CTRAST,2 TYPE V INSERTS F3B10160
Reference
01604 0 02000 0 01732 931 TRA M22925 TYPE V INSERTS F3B09300

M22950 = 1002

Definition
01752 −0 53400 2 02346 1033 M22950 LXD CTRAST,2 TYPE VI INSERTS F3B10320
Reference
01605 0 02000 0 01752 932 TRA M22950 TYPE VI INSERTS F3B09310

M23000 = 1035

Definition

		1066			INITIAL TRANSFER COMPILERS FOR TIFGO ENTRIES	F3B10650
		1067			WHEN A TRASTO ENTRY IS ASSOCIATED WITH	F3B10660
		1068			THE TRANSFER ADDRESS	F3B10670
		1069			TRANSFER WITH LOCATION 0	F3B10680
02013	−0 63400 4 02270	1070	M23000	SXD	ADD6+3,4 SAVE CONTENTS 0F IR4 FOR LINKAGE	F3B10690

References (3)

01151	0 07400 4 02013	640	TSX	M23000,4 COR TIFGO LEV NO IN TRASTO	F3B06390
01264	0 07400 4 02013	717	TSX	M23000,4 CUR. TIFGO LEVEL NO. IN TRASTO	F3B07160
01434	0 07400 4 02013	823	TSX	M23000,4 CUR TIFGO LEV NO FOUND IN TRASTO	F3B08220

M23025 = 1047

Definition
1082 INFO INSTRUCTION FOR IF OVERFLOW F3B10810

02027 −0 63400 4 02270 1083 M23025 SXD ADD6+3,4 SAVE LINKAGE F3B10820
Reference
01351 0 07400 4 02027 771 COR12 TSX M23025,4 F3B07700

M23035 = 1059

Definition
1095 TRANSFER ON ZERO WITH LOCATION FMLA NO + 8 F3B10940

02043 −0 63400 4 02270 1096 M23035 SXD ADD6+3,4 F3B10950
Reference
01401 0 07400 4 02043 796 TSX M23035,4 CUR TIFGO LEV NO FOUND IN TRASTO F3B07930

M23040 = 1074

Definition
1111 TRANSFER ON PLUS WITH LOCATION 0 F3B11100

02062 −0 63400 4 02270 1112 M23040 SXD ADD6+3,4 SAVE LINKAGE F3B11110
Reference
01415 0 07400 4 02062 808 TSX M23040,4 CUR TIFGO LEV NO FOUND IN TRASTO F3B08070

M23050 = 1087

Definition

		1125			INITIAL TRANSFER COMPILERS FOR TIFGO	F3B11240
		1126			ENTRIES WHEN THERE IS NO TRASTO ENTRY	F3B11250
		1127			FOR THE TRANSFER ADDRESS	F3B11260
		1128			TRANSFER WITH LOCATION 0	F3B11270
02077	−0 63400 4 02331	1129	M23050	SXD	CBOX,4 SAVE LINKAGE	F3B11280

References (3)

01155	0 07400 4 02077	644	TSX	M23050,4 TIFGO FMLA NO.NOT AGAIN FOUND	F3B06430
01270	0 07400 4 02077	721	TSX	M23050,4 TIFGO FMLA. NO NOT AGAIN FOUND	F3B07200
01440	0 07400 4 02077	827	TSX	M23050,4 TIFGO FMLA NO NOT AGAIN FOUND	F3B08260

M23060 = 1099

Definition
1141 INFO INSTRUCTION FOR IF OVERFLOW F3B11400

02113 −0 63400 4 02331 1142 M23060 SXD CBOX,4 SAVE LINKAGE F3B11410
Reference
01355 0 07400 4 02113 775 TSX M23060,4 TRASTO FMLA NO NOT AGAIN FOUND F3B07740

M23065 = 1111

Definition
1154 TRANSFER ON ZERO WITH LOCATION FMLA NO + 8 F3B11530

02127 −0 63400 4 02331 1155 M23065 SXD CBOX,4 SAVE LINKAGE F3B11540
Reference
01405 0 07400 4 02127 800 TSX M23065,4 TRASTO FMLA NO NOT AGAIN FOUND F3B07990

M23070 = 1127

Definition
1171 TRANSFER ON PLUS WITH LOCATION 0 F3B11700

02147 −0 63400 4 02331 1172 M23070 SXD CBOX,4 SAVE LINKAGE F3B11710
Reference
01421 0 07400 4 02147 812 TSX M23070,4 TIFGO FMLA NO NOT AGAIN FOUND F3B08110

M23075 = 1139

Definition

		1184			FINAL TRANSFER COMPILER FOR TIFGO	F3B11830
		1185			ENTRIES WHEN A TRASTO ENTRY IS ASSOCIATED	F3B11840
		1186			WITH THE TRANSFER ADDRESS	F3B11850
02163	−0 63400 4 02331	1187	M23075	SXD	CBOX,4 SAVE LINKAGE	F3B11860

References (2)

	01216	0 07400 4 02163	677		TSX	M23075,4 CUR. TIFGO ADD. FOUND IN.TRASTO	F3B06760
	01330	0 07400 4 02163	753		TSX	M23075,4 CUR TIFG0 ADD FOUND IN TRASTO	F3B07520

M2ECTR = 1240

Definition
02330 +000000000005 1289 M2ECTR DEC 5 F3B12650

References (7)

00036	0 53400 4 02330	18		LXA	M2ECTR,4 LOAD COUNT OF 5 FOR ERROR ROUTINE	F3B00170
00056	0 53400 4 02330	34		LXA	M2ECTR,4 LOAD COUNT OF 5 FOR ERROR ROUTINE	F3B00330
00323	0 53400 2 02330	217		LXA	M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE	F3B02160
00351	0 53400 2 02330	240	RTTE1	LXA	M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE	F3B02390
00400	0 53400 2 02330	264	RTTC4	LXA	M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE	F3B02630
00413	0 53400 2 02330	275		LXA	M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE	F3B02740
00432	0 53400 2 02330	290		LXA	M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE	F3B02890

NETRAL = 1263

Definition
02357 0 00000 0 00000 1330 NETRAL TRALEV ENTRY POINT FOR LAST ADD IN DEC FIELD(TWOS COMP) F3B13060

References (5)

00500	0 60200 0 02357	328	SLW	NETRAL	F3B03270
01141	−0 63400 2 02357	632	SXD	NETRAL,2 TRALEV. ENTRY PT. FOR LAST ADDRESS	F3B06310
01170	−0 53400 2 02357	655	LXD	NETRAL,2 RESET ETRAL FOR SECOND	F3B06540
01232	−0 53400 2 02357	689	LXD	NETRAL,2 UPDATE TRALEV ENTRY POINT	F3806880
01242	−0 63400 2 02357	698	SXD	NETRAL,2	F3B06970

ORTRST = 1243

Definition
02333 1298 ORTRST SYN TRSORG F3B12740
Reference
00052 0 40000 0 02333 30 ADD ORTRST INITIAL LOCATION OF TRASTO WORK AREA F3B00290

THREEL = 1249

Definition
02341 1312 THREEL SYN ONEL+2 OF VARIOUS TYPES F3B12880

TRALEV = 1673

Definition
03211 1343 TRALEV SYN TYPE2+1 F3B13190

References (25)

00377	0 60200 0 03210	263		SLW	TRALEV−1 SET WORD PRECEDING ENTRIES T0 ZERO	F3B02620
00402	0 70000 0 03211	266		CPY	TRALEV IDENTIFICATION	F3B02650
00411	0 50000 0 03211	273	RTTC3	CLA	TRALEV IS TRALEV EMPTY	F3B02720
00415	0 70000 1 03211	277	RTTA1	CPY	TRALEV,1 COPY LOOP. ADD COUNT TO READ ADDRESS	F3B02760
00426	0 70000 0 03211	286		CPY	TRALEV GET WORD COUNT	F3B02850
00435	0 70000 1 03211	293	RTTB2	CPY	TRALEV,1 COPY SECOND RECORD ETC, IN PROPER PLACE	F3B02920
00447	−0 63400 1 03210	303	RTTB6	SXD	TRALEV−1,1 SAVE TRALEV WORD COUNT	F3B03020
00515	0 40200 0 03210	343		SUB	TRALEV−1 FOR CORRESPONDING TRALEV ENTRY	F3B03420
00520	0 50000 2 03211	346		CLA	TRALEV,2 TRALEV, FMLA WD.	F3B03450
01005	0 50000 2 03211	537		CLA	TRALEV,2 TRALEV ENTRY	F3B05360
01010	0 40200 0 03210	540		SUB	TRALEV−1 TRALEV WORD COUNT	F3B05390
01113	0 50000 2 03211	609		CLA	TRALEV,2 BEGINNING OF TRALEV BLOCK	F3B06080
01116	0 40200 0 03210	612		SUB	TRALEV−1	F3B06110
01361	0 50000 2 03211	780		CLA	TRALEV,2 SO THAT	F3B07790
01363	0 50000 2 03212	782		CLA	TRALEV+1,2 A2 FIRST	F3B07810
01364	0 60100 2 03211	783		STO	TRALEV,2	F3B07820
01365	0 50000 2 03213	784		CLA	TRALEV+2,2 A3 SECOND	F3B07830
01366	0 60100 2 03212	785		STO	TRALEV+1,2	F3B07840
01370	0 60100 2 03213	787		STO	TRALEV+2,2	F3B07860
01501	0 50000 2 03211	863		CLA	TRALEV,2 LOAD TRALEV WORD	F3B08620
02101	0 50000 2 03211	1131		CLA	TRALEV,2 CURRENT TRALEV ENTRY	F3B11300
02115	0 50000 2 03211	1144		CLA	TRALEV,2 TRALEV ENTRY	F3B11430
02131	0 50000 2 03211	1157		CLA	TRALEV,2 SAVE DECREMENT OF TRALEV	F3B11560
02151	0 50000 2 03211	1174		CLA	TRALEV,2	F3B11730
02165	0 50000 2 03211	1189		CLA	TRALEV,2	F3B11880

TRASTO = 1272

Definition
02370 1336 TRASTO BSS 400 F3B13120

References (20)

01457	0 40200 0 02367	844		SUB	TRASTO−1 TRASTO WORD COUNT	F3B08430
01461	0 50000 2 02370	846		CLA	TRASTO,2 TRASTO ENTRY	F3B08450
01470	0 50000 2 02370	853	M22710	CLA	TRASTO,2 TRASTO ENTRY	F3B08520
01527	0 50000 2 02371	885	M22770	CLA	TRASTO+1,2 LEVEL NOS.	F3B08840
01535	0 50000 2 02371	891	M22777	CLA	TRASTO+1,2 LEVEL NOS.	F3B08900
01550	0 50000 2 02372	902	M22787	CLA	TRASTO+2,2 TAGS, WORD 3, TYPE 2 LEVEL NO.	F3B09010
01607	0 50000 2 02372	934		CLA	TRASTO+2,2 3RD WRD 0F TRASTO ENTRY	F3B09330
01634	−0 50000 2 02371	955		CAL	TRASTO+1,2 2ND WORD OF TRASTO ENTRY	F3B09540
01636	−0 50000 2 02372	957		CAL	TRASTO+2,2 3RD WD OF ENTRY	F3B09560
01655	0 50000 2 02372	972		CLA	TRASTO+2,2 3RD WRD OF TRASTO ENTRY	F3B09710
01700	0 50000 2 02372	991		CLA	TRASTO+2,2 3RD WRD 0F TRASTO ENTRY	F3B09900
01720	0 50000 2 02372	1007		CLA	TRASTO+2,2 3RD WORD OF TRASTO ENTRY	F3B10060
01733	0 50000 2 02372	1018		CLA	TRASTO+2,2 3RD WORD	F3B10170
01753	0 50000 2 02372	1034		CLA	TRASTO+2,2 3RD WORD 0F TRASTO ENTRY	F3B10330
01774	0 50200 2 02372	1051		CLS	TRASTO+2,2 3RD WORD	F3B10500
02243	0 50000 2 02372	1236		CLA	TRASTO+2,2 3RD WD OF TRASTO ENTRY	F3B12330
02245	0 50000 2 02371	1238		CLA	TRASTO+1,2 TYPES 4,5,6. TEST 2ND WD	F3B12370
02247	0 50000 2 02370	1240		CLA	TRASTO,2 1ST WORD	F3B12390
02333	0 00000 0 02370	1297	TRSORG		TRASTO	F3B12730
	02370	1337	TYPE1	SYN	TRASTO	F3B13130

TRSORG = 1243

Definition
02333 0 00000 0 02370 1297 TRSORG TRASTO F3B12730

References (3)

00111	0 40000 0 02333	62		ADD	TRSORG	F3B00610
	02333	1298	ORTRST	SYN	TRSORG	F3B12740
	02333	1299	ADDCO	SYN	TRSORG 8 TIMES THE NUM OF TIMES THE CURRENT ADDRESS OF THE	F3B127S0

	00113	0 62100 0 00140	64		STA	A1	F3B00630
	00137	1 00002 1 00140	85		TXI	A1,1,2 RESTORE LOOP COUNT	F3B00840

	00114	0 62100 0 00144	65		STA	A3	F3B00640
	00151	2 00001 4 00144	96		TIX	A3,4,1	F3B00950

			98			ENTRY IS TYPE 1 OR 2	F3B00970
	00153	1 77777 1 00154	99	B2	TXI	B1,1,−1	F3B00980

			114			ENTRY IS TYPE 1	F3B01130
	00171	1 00001 1 00172	115	C1	TXI	C2,1,1 RESTORE COUNT TO GET WD 1.	F3B01140

			125			ENTRY IS TYPE 4, 5 OR 6	F3B01240
	00203	1 00002 1 00204	126	D1	TXI	D2,1,2	F3B01250

			139			ENTRY IS TYPE 4 OR 6	F3B01380
	00217	1 77777 1 00220	140	E1	TXI	E2,1,−1	F3B01390

			155			ENTRY IS TYPE 4	F3B01540
	00235	1 00001 1 00236	156	F1	TXI	F2,1,1	F3B01550

			177			TYPE 3 TO TRASTO	F3B01760
	00261	−0 53400 2 02341	178	H5	LXD	3BOX,2	F3B01770

			186			TYPE 4 TO TRASTO	F3B01850
	00271	−0 53400 4 02342	187	I5	LXD	4BOX,4	F3801860

			195			TYPE 5 TO TRASTO	F3B01940
	00301	−0 53400 2 02343	196	J5	LXD	5BOX,2	F3D01950

			204			TYPE 6 TO TRASTO	F3B02030
	00311	−0 53400 4 02344	205	K5	LXD	6BOX,4	F3B02040

			166			TYPE 2 TO TRASTO	F3B01650
	00247	−0 53400 1 02337	167	PACK	LXD	1BOX,1 PACK TRASTO ENTRIES T0 GETHER	F3B01660

			1332			0F TRASTO INSERTIONS (IN ADDR FIELD)	F3B13080
	02361	0 00000 0 00000	1333	SAVE		TEHP STORAGE FOR FIRST TRALEV ENTRY FOR IF (E)	F3B13090

			60			PROGRAM TO SORT TRASTO ENTRIES BY TYPE	F3B00590
	00110	0 50000 0 02345	61	STRS	CLA	TRSWC INITIALIZATION OF ALL MODIFIED ADDRESSES	F3B00600

			1300			CURRENT TIFGO ENTRY APPEARS IN TRASTO, IN ADDR FIELD	F3B12760
	02334	+000004000000	1301	COR28	OCT	4000000	F3B12770

	00053	0 62100 0 00062	31		STA	RDRB1 INITIALIZE ADDRESSES OF CPY INSTR.	F3B00300
	00063	2 00001 1 00062	39		TIX	RDRB1,1,1 ENTRIES.	F3B00380

	00054	0 62100 0 00070	32		STA	RDRB2	F3B00310
	00072	2 00001 2 00070	46		TIX	RDRB2,2,1 IR 2 USED TO COUNT EVERY THREE	F3B00450

			213			PROGRAM TO READ TIFGO TABLE	F3B02120
	00321	−0 76000 0 00012	214	RTT00	RTT	TURN OFF TAPE CHECK INDICATOR AND LITES	F3B02130

			261			PROGRAM T0 READ TRALEV	F3B02600
	00376	0 76000 0 00000	262	RTTC0	CLM	CLEAR ACCUMULATOR	F3B02610

			239			PROGRAM T0 READ TRAD TABLE	F3B02380
	00351	0 53400 2 02330	240	RTTE1	LXA	M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE	F3B02390

			1199			M2 COMPILER CIT200	F3B11980
	02177	0 60100 0 02351	1200	CIT200	STO	E1C2 SAVE AC	F3B11990

			10			POSITIONING OF TAPE 2, TAPE 3, TAPE 4	F3B00090
	00030	0 53400 4 02274	11	M20000	LXA	M2CON,4 PLACE A ZERO IN IR 4	F3B00100

			360			TIFGO ENTRY A GO TO A	F3B03590
	00536	1 77777 1 00537	361	M21030	TXI	M21030+1,1,−1	F3B03600

			371			TIFGO ENTRY A GO TO (A),I	F3B03700
	00550	0 50000 1 05472	372	M21100	CLA	TIFGO,1 2ND WORD OF TIFGO ENTRY	F3B03710

			398			TIFGO ENTRY AN IF SENSE	F3B03970
	00602	0 07400 4 02177	399	M21300	TSX	CIT200,4 COMPILE	F3B03980

			418			TIFGO ENTRY AN IF DIV CK	F3B04170
	00625	0 07400 4 02177	419	M21400	TSX	CIT200,4 COMPILE	F3B04180

			438			TIFGO ENTRY AN IF OVERFLOW	F3B04370
	00650	0 50000 1 05472	439	M21500	CLA	TIFGO,1 2ND WORD 0F TIFGO ENTRY	F3B04380

			488			TIFGO ENTRY AN ASSIGN	F3B04870
	00730	0 50000 0 07324	489	M21600	CLA	ASN0 CURRENT ASSIGN NO.	F3B04880

			457			TIFGO ENTRY AN IF (E)	F3B04560
	00672	−0 32000 0 02306	458	M21800	ANA	M2CON+10 SAVE ADDRESS OF 1ST WD, BETA 1	F3B04570

			506			M2 TERMINAL ROUTINE	F3B05050
	00751	−0 53400 2 02355	507	M21900	LXD	BBOX,2 2S COMPL. OF NO OF WDS IN BLOCK	F3B05060