Symbols

␣␣␣␣␣A = 3267

Definition
06303 445 A BSS 1 AN ADDRESS TO WHICH G TRANSFERS. F2104290

References (3)

06034	0 60100 0 06303	272	STO	A SAVE ADDRESS	F2102560
06055	0 40000 0 06303	289	ADD	A IN	F2102730
06102	0 56000 0 06303	312	LDQ	A IN	F2102960

␣␣␣␣␣G = 3264

Definition
06300 442 G BSS 1 GAMMA OF SOME TIFGO ENTRY F2104260

References (5)

05733	0 60100 0 06300	205		STO	G OR LESS THAN G, SAVE G.	F2101890
05743	0 50000 0 06300	213	FLO75	CLA	G OBTAIN G	F2101970
05754	0 50200 0 06300	222		CLS	G LIST MINUS G	F2102060
06101	0 50000 0 06300	311		CLA	G PLACE G ANDA	F2102950
06172	0 40200 0 06300	369		SUB	G THAN G,	F2103530

␣␣␣BNA = 3262

Definition
06276 440 BNA BSS 1 BEGINNING OF NEST ADDRESS F2104240

References (2)

	05711	0 60100 0 06276	187		STO	BNA END OF NEST	F2101710
	05717	0 34000 0 06276	193		CAS	BNA COMPARE WITH BNA	F2101770

␣␣␣BNX = 3261

Definition
438 ES FORFLOW F2104220

06275 439 BNX BSS 1 BEGINNING OF NEST INDEX F2104230

References (4)

05705	−0 63400 1 06275	183	FLO40	SXD	BNX,1 SAVE BEGINNING 0O NEST INDEX.	F2101670
05725	−0 53400 1 06275	199	FLO65	LXD	BNX,1	F2101830
05744	−0 53400 1 06275	214		LXD	BNX,1 OBTAIN CURRENT NEST INDEX	F2101980
06035	−0 53400 1 06275	273		LXD	BNX,1 OBTAIN	F2102570

␣␣␣CR1 = 2896

Definition
05520 +000000100000 63 CR1 OCT 100000 F2100470
Reference
05621 0 50000 0 05520 130 CLA CR1 ZERO, CARRY IS TYPE ONE, F2101140

␣␣␣CR2 = 2897

Definition
05521 +000000200000 64 CR2 OCT 200000 F2100480
Reference
05623 0 50000 0 05521 132 MR40 CLA CR2 TWO. INDICATE TYPE IN F2101160

␣␣␣ENA = 3263

Definition
06277 441 ENA BSS 1 END OF NEST ADDRESS F2104250

References (2)

	05713	0 60100 0 06277	189		STO	ENA	F2101730
	05730	0 34000 0 06277	202		CAS	ENA COMPARE G AND ENA	F2101860

␣␣␣LDA = 3269

Definition
06305 447 LDA BSS 1 RANGE. LEVEL OF XDA. F2104310

References (9)

06042	0 60100 0 06305	278		STO	LDA XDA AND LDA.	F2102620
06053	0 50000 0 06305	287		CLA	LDA LIST	F2102710
06062	0 40200 0 06305	295		SUB	LDA EXIT. THIS ROUTINE INSERTS	F2102790
06077	0 50000 0 06305	309	INC00	CLA	LDA EXIT IF	F2102930
06116	0 40200 0 06305	324		SUB	LDA	F2103080
06142	0 50000 0 06305	345	RNC00	CLA	LDA EXIT IF LDA IS ZERO	F2103290
06145	0 40200 0 06305	348		SUB	LDA LDA EQUALS	F2103320
06202	0 40200 0 06305	377		SUB	LDA DO EQUAL TO GREATER	F2103610
06204	0 50000 0 06305	379		CLA	LDA AND CURRENT LDA.	F2103630

␣␣␣LDG = 3266

Definition
06302 444 LDG BSS 1 RANGE. LEVEL OF XDG. F2104280

References (4)

05753	0 60100 0 06302	221	STO	LDG LDG	F2102050
06060	−0 53400 2 06302	293	LXD	LDG,2 XRB CONTAINS LDG	F2102770
06144	0 50000 0 06302	347	CLA	LDG EXIT IF	F2103310
06151	0 50000 0 06302	352	CLA	LDG AND	F2103360

␣␣␣XDA = 3268

Definition
06304 446 XDA BSS 1 1NDEX OF DO WITH A IN IMMED. F2104300

References (2)

	06040	0 60100 0 06304	276		STO	XDA THAT DO.	F2102600
	06111	−0 53400 1 06304	319	INC30	LXD	XDA,1 INITIALIZE XRA	F2103030

␣␣␣XDG = 3265

Definition
06301 443 XDG BSS 1 INDEX OF DO WITH G IN IMMED. F2104270

References (4)

05751	0 60100 0 06301	219		STO	XDG XDG	F2102030
06050	−0 53400 1 06301	284		LXD	XDG,1 XDG DO.	F2102680
06057	−0 53400 1 06301	292	RS00	LXD	XDG,1 XRA CONTAINS XDG	F2102760
06150	−0 53400 1 06301	351		LXD	XDG,1 INITIALIZE XRA	F2103350

␣␣DIAG = 4

Definition
00004 983 DIAG EQU 4 F2109711

References (20)

05721	0 07400 4 00004	195	TSX	DIAG,4 BNA, MAY BE IN NEST. ERROR. GO TO DIAGNOSTIC.	F2101795
05742	0 07400 4 00004	212	TSX	DIAG,4 SEVEN. ERROR. GO TO DIAGN0STIC.	F2101965
05763	0 07400 4 00004	229	TSX	DIAG,4 7, R0YS TRA. ERROR, GO TO DIAGNOSTIC.	F2102135
05764	0 07400 4 00004	230	TSX	DIAG,4 6, ASSIGN FORMULA ERROR. GO TO DIAGNOSTIC.	F2102145
06044	0 07400 4 00004	280	TSX	DIAG,4 LEV. ADD OF TRA EXCEEDS 20. ERROR. GO TO DIAGNOSTIC.	F2102645
06065	0 07400 4 00004	298	TSX	DIAG,4 JUMP INTO HIGHER LEVEL. ERROR. GO TO DIAGNOSTIC.	F2102825
06373	0 07400 4 00004	502	TSX	DIAG,4 IS ONE ERROR. GO TO DIAGNOSTIC	F2104865
06376	0 07400 4 00004	505	TSX	DIAG,4 PASSED. ERROR. GO TO DIAGNOSTIC	F2104893
06432	0 07400 4 00004	533	TSX	DIAG,4 CURRENT DO, ERROR. GO TO DIAGNOSTIC.	F2105173
06534	0 07400 4 00004	600	TSX	DIAG,4 ERROR GO TO DIAGNOSTIC.	F2103845
06635	0 07400 4 00004	666	TSX	DIAG,4 FIND NEXT NEST. IF SO, (ERROR. GO TO DIAGNOSTIC.)	F2106503
06710	0 07400 4 00004	709	TSX	DIAG,4 IF NOT IN NEST, ERROR. GO TO DIAGNOSTIC.	F2106933
07023	0 07400 4 00004	788	TSX	DIAG,4 ERROR GO TO DIAGNOSTIC	F2107695
07075	0 07400 4 00004	831	TSX	DIAG,4 EOF. ERROR. GO TO DIAGNOSTIC	F2108125
07076	0 07400 4 00004	832	TSX	DIAG,4 EOR ERROR. GO TO DIAGNOSTIC.	F2108135
07103	0 07400 4 00004	837	TSX	DIAG,4 EOF ERROR. GO TO DIAGNOSTIC.	F2108183
07112	0 07400 4 00004	844	TSX	DIAG,4 WRONG TABLE 1DENT NR. ERROR. GO TO DIAGNOSTIC.	F2108255
07123	0 07400 4 00004	853	TSX	DIAG,4 TABLE NR. IN MQ. ERROR. GO TO DIAGNOSTIC.	F2108344
07135	0 07400 4 00004	863	TSX	DIAG,4 FOUR ZERO WORDS =ERROR. GO TO DIAGNOSTIC.	F2108445
07250	0 07400 4 00004	940	TSX	DIAG,4 SHOULD NOT BE EOR HERE. ERROR. GO TO DIAGNOSTIC.	F2III215

␣␣DOAD = 3689

Definition
07151 0 02506 0 02537 875 DOAD HTR DOTAGZ,0,1350 ADDRESS PART CONTAINS F2108560
Reference
05545 0 50000 0 07151 85 CLA DOAD IN F2100690

␣␣EB00 = 3721

Definition
908 END OF BLOCK ROUTINE F2108890

07211 0 77200 0 00223 909 EB00 REW 147 REWIND DOTAG TAPE F2108900
Reference
07162 0 02000 0 07211 885 TRA EB00 AND EX1T F2108660

␣␣EB10 = 3726

Definition
07216 −0 53400 1 00030 914 EB10 LXD DOTAG−1,1 INITIALIZE TEST INSTR. F2108950
Reference
07213 0 02000 0 07216 911 TRA EB10 OFF, NOT EMPTY F2108920

␣␣EB20 = 3729

Definition
07221 −0 53400 4 05503 917 EB20 LXD L(9),4 WRITE F2108980
Reference
07232 0 02000 0 07221 926 TRA EB20 F2109070

␣␣EB30 = 3734

Definition
07226 0 70000 1 02537 922 EB30 CPY DOTAGZ,1 NEST F2109030

References (2)

	07224	3 00001 2 07226	920		TXH	EB30,2,1 TAPE	F2109010
	07231	2 00001 4 07226	925		TIX	EB30,4,1	F2109060

␣␣EB40 = 3736

Definition
D 07230 −3 00000 1 07233 924 EB40 TXL EB50,1 RECORD F2109050

References (2)

	07217	−0 63400 1 07230	915		SXD	EB40,1 AND	F2108960
	07227	1 77777 1 07230	923		TXI	EB40,1,−1 PER	F2109040

␣␣EB50 = 3739

Definition
07233 0 77000 0 00223 927 EB50 WEF 147 WRITE END OF FILE F2109080

References (2)

	07215	0 02000 0 07233	913		TRA	EB50	F2108940
D	07230	−3 00000 1 07233	924	EB40	TXL	EB50,1 RECORD	F2109050

␣␣EB60 = 3740

Definition
07234 −0 53400 2 05500 928 EB60 LXD L(4),2 READ F2109090

␣␣EB70 = 3748

Definition
07244 0 76200 0 00222 936 EB70 RDS TTAPE MOVE TTAPE PAST F2109170

References (2)

	07242	−3 02733 1 07244	934		TXL	EB70,1,1499 FORTAG	F2109150
	07246	0 02000 0 07244	938		TRA	EB70	F2109190

␣␣EB80 = 3753

Definition
A 07251 0 00000 0 00000 941 EB80 HTR ES F2109220
Reference
07245 0 70000 0 07251 937 CPY EB80 END OF FILE MARK. F2109180

␣␣EB90 = 3754

Definition
07252 −0 76000 0 00142 942 EB90 MSE 98 IS TRALEV TALBE EMPTY F2109230
Reference
07247 0 02000 0 07252 939 TRA EB90 EOF F2109200

␣␣EB95 = 3760

Definition
07260 0 77000 0 00224 948 EB95 WEF TLTAPE TRALEV TAPE F2109290
Reference
07253 0 02000 0 07260 943 TRA EB95 F2109240

␣␣ERNX = 3787

Definition
07313 −0 63400 2 07302 975 ERNX SXD ERNBR,2 F2109551
Reference
07312 1 00003 2 07313 974 TXI ERNX,2,3 F2109541

␣␣FLOW = 2994

Definition
163 FLOW, TRANSFER ANALYS1S, F2101470

05662 −0 53400 4 02537 164 FLOW LXD TIFGO−1,4 TEST FOR EMPTY TIFGO F2101480
Reference
07317 −3 00000 2 05662 979 TXL FLOW,2,0 F2109591

␣␣INCX = 3168

Definition
A 06140 0 00000 0 00000 342 INCX HTR ES. F2103260

References (3)

06104	0 60100 0 06140	314		STO	INCX INCX IS LESS THAN INCY.	F2102980
06107	−0 60000 0 06140	317	INC20	STQ	INCX	F2103010
06131	0 34000 0 06140	335		CAS	INCX LESS THAN INCY, COMPARE	F2103190

␣␣INCY = 3169

Definition
A 06141 0 00000 0 00000 343 INCY HTR ES. F2103270

References (3)

06105	−0 60000 0 06141	315	STQ	INCY	F2102990
06110	0 60100 0 06141	318	STO	INCY	F2103020
06126	0 34000 0 06141	332	CAS	INCY COMPARE WITH INCY.	F2103160

␣␣L(0) = 2876

Definition
05474 0 00000 0 00000 43 L(0) 0,0,0 F2100270

References (3)

06217	−0 53400 4 05474	391	LXD	L(0),4 INITIALIZE XRC,	F2103750
07255	0 70000 0 05474	945	CPY	L(0)	F2109260
07256	0 70000 0 05474	946	CPY	L(0)	F2109270

␣␣L(1) = 2877

Definition
05475 0 00001 0 00000 44 L(1) 0,0,1 F2100280

References (7)

05544	−0 53400 2 05475	84		LXD	L(1),2 READ	F2100680
05556	0 50000 0 05475	95	MR05	CLA	L(1) INITIALIZE LEVEL TO ONE	F2100790
05616	0 40000 0 05475	127		ADD	L(1) TAG, AND ADD ONE TO ALPHA.	F2101110
05643	0 40000 0 05475	148		ADD	L(1) ADD ONE, STORE IN L.	F2101320
06117	0 40200 0 05475	325		SUB	L(1)	F2103090
06426	0 40200 0 05475	529		SUB	L(1)	F2105130
06526	−0 53400 1 05475	594		LXD	L(1),1	F2105780

␣␣L(2) = 2878

Definition
05476 0 00002 0 00000 45 L(2) 0,0,2 F2100290

References (2)

	05534	−0 53400 2 05476	76		LXD	L(2),2 READ	F2100600
	07072	−0 53400 4 05476	828		LXD	L(2),4 PUT TWO IN XRC	F2108090

␣␣L(3) = 2879

Definition
05477 0 00003 0 00000 46 L(3) 0,0,3 F2100300

References (3)

05540	−0 53400 2 05477	80		LXD	L(3),2 READ	F2100640
06323	−0 53400 2 05477	462		LXD	L(3),2 INITIALIZE XRB COUNTER	F2104460
06657	−0 53400 2 05477	684	TS55	LXD	L(3),2 PUT THREE IN XRC	F2106680

␣␣L(4) = 2880

Definition
05500 0 00004 0 00000 47 L(4) 0,0,4 F2100310
Reference
07234 −0 53400 2 05500 928 EB60 LXD L(4),2 READ F2109090

␣␣L(5) = 2881

Definition
05501 0 00005 0 00000 48 L(5) 0,0,5 F2100320
Reference
06760 −0 53400 2 05501 753 RH00 LXD L(5),2 READ IN F2107340

␣␣L(6) = 2882

Definition
05502 0 00006 0 00000 49 L(6) 0,0,6 F2100330
Reference
06570 −0 53400 2 05502 629 LXD L(6),2 FORVAL F2106130

␣␣L(9) = 2883

Definition
05503 0 00011 0 00000 50 L(9) 0,0,9 F2100340

References (2)

	05527	−0 53400 1 05503	71		LXD	L(9),1 FOR READING IN TAPE	F2100550
	07221	−0 53400 4 05503	917	EB20	LXD	L(9),4 WRITE	F2108980

␣␣LB00 = 3695

Definition
881 TRANSFER IN EXTENDED RANGE BIT. F2108620

07157 −0 76000 0 00143 882 LB00 MSE 99 TEST FOR EMPTY DOTAG F2108630
Reference
07053 0 02000 0 07157 812 RH95 TRA LB00 EXIT F2107930

␣␣LB02 = 3699

Definition
07163 −0 53400 1 00030 886 LB02 LXD DOTAG−1,1 OBTAIN NEXT UNUSED INDEX F2108670
Reference
07160 0 02000 0 07163 883 TRA LB02 OFF, NOT EMPTY F2108640

␣␣LB05 = 3700

Definition
D 07164 −3 00000 0 07207 887 LB05 TXL LB60,0 TRA TO ADJUST FOR LAST DO. F2108680

References (2)

	07171	−0 63400 1 07164	892		SXD	LB05,1 SAVE XRA	F2108730
	07206	−0 53400 1 07164	905	LB50	LXD	LB05,1 IF NOT, FIND NEXT DO	F2108860

␣␣LB10 = 3701

Definition
07165 0 50000 1 02545 888 LB10 CLA DOTAGZ+6,1 OBTAIN T1 WORD. F2108690
Reference
07210 −3 02506 1 07165 907 LB70 TXL LB10,1,1350 EB00 FOLLOWS F2108880

␣␣LB20 = 3708

Definition
07174 −0 50000 0 05510 895 LB20 CAL LMSK OR IN F2108760
Reference
07205 0 12000 0 07174 904 TPL LB20 IF PLUS GO TO PUT IN MSK. F2108850

␣␣LB25 = 3711

Definition
07177 1 00011 1 07200 898 LB25 TXI LB30,1,9 FIND NEXT BACK F2108790
Reference
D 07202 −3 00000 2 07177 901 LB40 TXL LB25,2 F2108820

␣␣LB30 = 3712

Definition
07200 0 50000 1 02544 899 LB30 CLA DOTAGZ+5,1 SUBNEST DO, F2108800
Reference
07177 1 00011 1 07200 898 LB25 TXI LB30,1,9 FIND NEXT BACK F2108790

␣␣LB40 = 3714

Definition
D 07202 −3 00000 2 07177 901 LB40 TXL LB25,2 F2108820
Reference
07201 0 62200 0 07202 900 STD LB40 F2108810

␣␣LB50 = 3718

Definition
07206 −0 53400 1 07164 905 LB50 LXD LB05,1 IF NOT, FIND NEXT DO F2108860
Reference
07176 −3 00001 2 07206 897 TXL LB50,2,1 EXIT IF LEVEL ONE. F2108780

␣␣LB60 = 3719

Definition
07207 1 00011 1 07210 906 LB60 TXI LB70,1,9 IN MAIN PASS. F2108870

References (3)

D	07164	−3 00000 0 07207	887	LB05	TXL	LB60,0 TRA TO ADJUST FOR LAST DO.	F2108680
	07166	−0 12000 0 07207	889		TMI	LB60 TEST SIGN, TRA IF NEG.	F2108700
	07170	0 10000 0 07207	891		TZE	LB60 IF NONE,TRA.	F2108720

␣␣LB70 = 3720

Definition
07210 −3 02506 1 07165 907 LB70 TXL LB10,1,1350 EB00 FOLLOWS F2108880
Reference
07207 1 00011 1 07210 906 LB60 TXI LB70,1,9 IN MAIN PASS. F2108870

␣␣LIST = 32767

Definition
77777 981 LIST SYN 32767 F2109611

References (7)

07266	0 60100 2 77777	954	STO	LIST,2 IN LIST	F2109141
07270	0 60100 2 77776	956	STO	LIST−1,2	F2109361
07272	0 60100 2 77775	958	STO	LIST−2,2	F2109181
07274	0 60100 2 77774	960	STO	LIST−3,2	F2102401
07305	0 60000 2 77777	969	STZ	LIST,2 IS GREATER THAN	F2109491
07307	0 60100 2 77776	971	STO	LIST−1,2	F2109511
07311	0 60100 2 77775	973	STO	LIST−2,2	F2109531

␣␣LMSK = 2888

Definition
05510 984 LMSK SYN L(MZ) F2109712
Reference
07174 −0 50000 0 05510 895 LB20 CAL LMSK OR IN F2108760

␣␣MR00 = 2923

Definition
91 MR00 COMPUTES LEVEL, X, CARRY BITS. F2100750

05553 −0 53400 1 00030 92 MR00 LXD DOTAG−1,1 INITIALIZE TEST F2100760
Reference
05550 −3 02505 1 05553 88 TXL MR00,1,1349 TEST FOR EMPTY DOTAG F2100720

␣␣MR05 = 2926

Definition
05556 0 50000 0 05475 95 MR05 CLA L(1) INITIALIZE LEVEL TO ONE F2100790
Reference
05656 −3 00001 2 05556 159 TXL MR05,2,1 LEVEL ONE, START NEW NEST F2101430

␣␣MR10 = 2927

Definition
05557 −0 73400 2 00000 96 MR10 PDX 0,2 PUT LEVEL IN XRB F2100800
Reference
05644 0 02000 0 05557 149 TRA MR10 GO TO MR10 F2101330

␣␣MR12 = 2933

Definition
D 05565 3 00000 4 05570 102 MR12 TXH MR15,4 F2100860
Reference
05564 0 62200 0 05565 101 STD MR12 F2100850

␣␣MR14 = 2935

Definition
A 05567 0 00000 0 00000 104 MR14 HTR F2100880

References (2)

	05562	−0 63400 4 05567	99		SXD	MR14,4	F2100830
	05570	−0 53400 4 05567	105	MR15	LXD	MR14,4	F2100890

␣␣MR15 = 2936

Definition
05570 −0 53400 4 05567 105 MR15 LXD MR14,4 F2100890

References (2)

D	05565	3 00000 4 05570	102	MR12	TXH	MR15,4	F2100860
	07315	0 02000 0 05570	977		TRA	MR15	F2109571

␣␣MR20 = 2942

Definition
05576 0 50000 1 02542 111 MR20 CLA DOTAGZ+3,1 COMPUTE X AND STORE IN F2100950
Reference
05572 0 10000 0 05576 107 TZE MR20 IF NOT ZERO( PUT BIT F2100910

␣␣MR30 = 2956

Definition
05614 0 50000 4 02537 125 MR30 CLA DOTAGZ,4 OBTAIN FIRST WORD OF NEXT F2101090
Reference
05612 0 02000 0 05614 123 TRA MR30 0) VARIABLE( CONTINUE-WITH MR30, F2101070

␣␣MR40 = 2963

Definition
05623 0 50000 0 05521 132 MR40 CLA CR2 TWO. INDICATE TYPE IN F2101160
Reference
05620 −0 10000 0 05623 129 TNZ MR40 (TAG IS ZERO). IF RESULT IS F2101130

␣␣MR50 = 2964

Definition
05624 −0 60200 1 02544 133 MR50 ORS DOTAGZ+5,1 L WORD OF CURRENT DA. F2101170
Reference
05622 0 02000 0 05624 131 TRA MR50 IF NOT ZERO, CARRY IS TYPE F2101150

␣␣MR60 = 2965

Definition
05625 −0 75400 1 00000 134 MR60 PXD 0,1 MAKE CURRENT.DO NEXT BACK F2101180

References (4)

05575	0 02000 0 05625	110	TRA	MR60 END.	F2100940
05606	−3 00001 2 05625	119	TXL	MR60,2,1 IF L IS ONE( SKIP CARRY TEST)	F2101030
05613	0 02000 0 05625	124	TRA	MR60 1) OTHERWISE GO TO END.	F2101080
07300	0 02000 0 05625	964	TRA	MR60	F2109441

␣␣MR70 = 2968

Definition
05630 −3 00000 1 07316 137 MR70 TXL ERTST,1,0 NO MORE DOS, EXIT TO TEST IF ERRORS F2101211

References (2)

	05554	−0 63400 1 05630	93		SXD	MR70,1 INSTRUCTION.	F2100770
	05627	1 77767 1 05630	136		TXI	MR70,1,−9 TAKE NEXT DO IN DOTAG.	F2101200

␣␣MR75 = 2972

Definition
05634 0 50000 4 02537 141 MR75 CLA DOTAGZ,4 OBTAIN BETA OF XRC DO, F2101250
Reference
05657 1 00011 4 05634 160 TXI MR75,4,9 BY TRA TO MR05. ELSE TRA MR75, F2101440

␣␣MR80 = 2981

Definition
05645 0 50000 1 02537 150 MR80 CLA DOTAGZ,1 F2101340
Reference
05640 −0 12000 0 05645 145 TMI MR80 CONTAINS NEW DO. OTHERWISE, TRA F2101290

␣␣MR85 = 2988

Definition
05654 0 50000 4 02544 157 MR85 CLA DOTAGZ+5,4 F2101410
Reference
05651 0 02000 0 05654 154 TRA MR85 ALPHA(XRA) GREATER THAN BETA(XRC) F2101380

␣␣MRES = 2992

Definition
A 05660 0 00000 0 00000 161 MRES HTR ES F2101450

References (2)

	05633	0 60100 0 05660	140		STO	MRES AND SAVE	F2101240
	05637	0 40200 0 05660	144		SUB	MRES IF NOT NEGATIVE, XRC DD	F2101280

␣␣RH00 = 3568

Definition
752 USE OF SYMBOL WITHIN RANGE AS FXD POINT VAR. FORVAR SEARCH. F2107330

06760 −0 53400 2 05501 753 RH00 LXD L(5),2 READ IN F2107340
Reference
06753 0 02000 0 06760 747 T190 TRA RH00 EXIT F2107280

␣␣RH05 = 3576

Definition
06770 −0 63400 1 07032 761 RH05 SXD RH60,1 FORVAR.TEST F2107420
Reference
06765 0 02000 0 06770 758 TRA RH05 NOT EMPTY F2107390

␣␣RH10 = 3585

Definition
07001 0 50000 1 02537 770 RH10 CLA DOTAGZ,1 OBTAIN FIRST DOTAG WORD. F2107510
Reference
D 07052 3 00000 1 07001 811 RH90 TXH RH10,1 BACK, IF POSSIBLE. F2107920

␣␣RH20 = 3597

Definition
07015 −0 53400 4 07054 782 RH20 LXD RHNNX,4 OTHERWISE, ADJUST FORVAR F2107630
Reference
07013 0 02000 0 07015 780 TRA RH20 ON LAST LEVEL ONE, FORVAR F2107610

␣␣RH30 = 3599

Definition
07017 −0 53400 4 07055 784 RH30 LXD RHCNX,4 PUT FORVAR INDEX IN XRC F2107650
Reference
07011 3 00001 2 07017 778 TXH RH30,2,1 TRA IF LEVEL GREATER THAN ONE. F2107590

␣␣RH40 = 3601

Definition
07021 0 34000 4 05474 786 RH40 CAS 4VARZ,4 FORVAR ENTRY IN RANGE. F2107670
Reference
D 07032 3 00000 4 07021 795 RH60 TXH RH40,4 IF NO ENTRIES GREATER F2107760

␣␣RH50 = 3605

Definition
07025 0 50000 0 07057 790 RH50 CLA RLAST FOR NEXT DO, AND COMPARE F2107710
Reference
D 07043 3 00000 4 07025 804 RH75 TXH RH50,4 IF POSSIBLE. OTHERWISE, F2107850

␣␣RH60 = 3610

Definition
D 07032 3 00000 4 07021 795 RH60 TXH RH40,4 IF NO ENTRIES GREATER F2107760

References (2)

	06770	−0 63400 1 07032	761	RH05	SXD	RH60,1 FORVAR.TEST	F2107420
	07022	1 77776 4 07032	787		TXI	RH60,4,−2	F2107680

␣␣RH70 = 3612

Definition
07034 0 50000 1 02540 797 RH70 CLA DOTAGZ+1,1 IN RANGE, COMPARE SYMB0LS F2107780
Reference
07030 0 02000 0 07034 793 TRA RH70 TRA, IN RANGE. F2107740

␣␣RH72 = 3618

Definition
07042 1 77776 4 07043 803 RH72 TXI RH75,4,−2 INDEX FORVAR AND GO BACK, F2107840
Reference
07036 −0 10000 0 07042 799 TNZ RH72 DOTAG-ENTRY. F2107800

␣␣RH75 = 3619

Definition
D 07043 3 00000 4 07025 804 RH75 TXH RH50,4 IF POSSIBLE. OTHERWISE, F2107850

References (2)

	06771	−0 63400 1 07043	762		SXD	RH75,1 INIT1ALIZING	F2107430
	07042	1 77776 4 07043	803	RH72	TXI	RH75,4,−2 INDEX FORVAR AND GO BACK,	F2107840

␣␣RH80 = 3623

Definition
07047 3 00001 2 07051 808 RH80 TXH RH85,2,1 N0T IN RANGE, TEST LEVEL F2107890
Reference
07031 0 02000 0 07047 794 TRA RH80 TRA, NOT IN RANGE F2107750

␣␣RH85 = 3625

Definition
07051 1 77767 1 07052 810 RH85 TXI RH90,1,−9 INDEX IN DOTAG AND GO F2107910

References (4)

07041	3 00001 2 07051	802		TXH	RH85,2,1	F2107830
07044	3 00001 2 07051	805		TXH	RH85,2,1 TEST LEVEL. IF LEVEL IS	F2107860
07046	0 02000 0 07051	807		TRA	RH85 NEXT LEVEL ONE ENCOUNTERED	F2107880
07047	3 00001 2 07051	808	RH80	TXH	RH85,2,1 N0T IN RANGE, TEST LEVEL	F2107890

␣␣RH90 = 3626

Definition
D 07052 3 00000 1 07001 811 RH90 TXH RH10,1 BACK, IF POSSIBLE. F2107920

References (2)

	06773	−0 63400 1 07052	764		SXD	RH90,1 INITIALIZING	F2107450
	07051	1 77767 1 07052	810	RH85	TXI	RH90,1,−9 INDEX IN DOTAG AND GO	F2107910

␣␣RH95 = 3627

Definition
07053 0 02000 0 07157 812 RH95 TRA LB00 EXIT F2107930

References (4)

06763	3 02733 1 07053	756	TXH	RH95,1,1499 EXIT IF FORVAR EMPTY	F2107370
06767	0 02000 0 07053	760	TRA	RH95 AND EXIT.	F2107410
07014	0 02000 0 07053	781	TRA	RH95 EXHAUSTED, IF SO, EXIT,	F2107620
07033	0 02000 0 07053	796	TRA	RH95 THAN RFIRST, EXIT.	F2107770

␣␣RS00 = 3119

Definition
291 TRANSFER BIT INSERTION IN DO FORMULA F2102750

06057 −0 53400 1 06301 292 RS00 LXD XDG,1 XRA CONTAINS XDG F2102760

␣␣RS10 = 3121

Definition
06061 −0 75400 2 00000 294 RS10 PXD 0,2 IF G AND A IN SAME DO, F2102780
Reference
D 06076 −3 00000 0 06061 307 RS60 TXL RS10,0 RS10 F2102910

␣␣RS20 = 3126

Definition
06066 −0 50000 0 05510 299 RS20 CAL L(MZ) F2102830
Reference
06064 0 12000 0 06066 297 TPL RS20 OUT OF THE RANGE OF THIS DO. F2102810

␣␣RS30 = 3129

Definition
06071 1 00011 1 06072 302 RS30 TXI RS40,1,9 DO FORMULA F2102860
Reference
D 06074 −3 00000 2 06071 305 RS50 TXL RS30,2 LEVEL F2102890

␣␣RS40 = 3130

Definition
06072 0 50000 1 02544 303 RS40 CLA DOTAGZ+5,1 AND RETURN F2102870
Reference
06071 1 00011 1 06072 302 RS30 TXI RS40,1,9 DO FORMULA F2102860

␣␣RS50 = 3132

Definition
D 06074 −3 00000 2 06071 305 RS50 TXL RS30,2 LEVEL F2102890
Reference
06073 0 62200 0 06074 304 STD RS50 TO TEST F2102880

␣␣RS60 = 3134

Definition
D 06076 −3 00000 0 06061 307 RS60 TXL RS10,0 RS10 F2102910

References (2)

	06033	−0 63400 4 06076	271	FA000	SXD	RS60,4 SAVE TSX SET	F2102550
	06214	−0 53400 4 06076	387	RNC95	LXD	RS60,4 GO BACK TO CONTROL ROUTINE	F2103710

␣␣RT10 = 3640

Definition
07070 0 76200 0 00222 826 RT10 RDS TTAPE SELECT TAPE F2108070
Reference
D 07121 −3 00000 0 07070 851 RT73 TXL RT10,0 F2108320

␣␣RT20 = 3643

Definition
07073 0 70000 4 07131 829 RT20 CPY RT95+2,4 COPY FIRST TWO WORDS. F2108100
Reference
07077 2 00001 4 07073 833 RT30 TIX RT20,4,1 F2108140

␣␣RT30 = 3647

Definition
07077 2 00001 4 07073 833 RT30 TIX RT20,4,1 F2108140
Reference
07074 0 02000 0 07077 830 TRA RT30 INTO E.S. F2108110

␣␣RT40 = 3649

Definition
07101 0 70000 1 00000 835 RT40 CPY 0,1 COPY TABLE F2108160

References (2)

	07060	0 62100 0 07101	818	RTAPE	STA	RT40 INITIALIZE TABLE ADDRESS	F2107990
	07102	1 77777 1 07101	836		TXI	RT40,1,−1 COUNT NR. OF WORDS.	F2108170

␣␣RT45 = 3652

Definition
07104 0 76600 0 00333 838 RT45 WRS 219 ERROR. GO TO DIAGNOSTIC. F2108183
Reference
07136 −3 00005 0 07104 864 RTD18 TXL RT45,0,5 ARE STORED,BEFORE F2108450

␣␣RT60 = 3659

Definition
07113 −0 53400 4 07124 845 RT60 LXD RT80,4 TABLE CORRECT, F2108260
Reference
07111 0 10000 0 07113 843 TZE RT60 NO ERROR F2108240

␣␣RT70 = 3661

Definition
07115 −0 53400 4 07121 847 RT70 LXD RT73,4 F2108280
Reference
07106 0 02000 0 07115 840 TRA RT70 ERROR, TRA F2108200

␣␣RT73 = 3665

Definition
D 07121 −3 00000 0 07070 851 RT73 TXL RT10,0 F2108320

References (3)

07067	−0 63400 4 07121	825		SXD	RT73,4	F2108060
07115	−0 53400 4 07121	847	RT70	LXD	RT73,4	F2108280
07120	−0 63400 4 07121	850		SXD	RT73,4 COUNT DOWN ERROR COUNTER	F2108310

␣␣RT75 = 3666

Definition
07122 0 56000 0 07125 852 RT75 LDQ RT90 IF FIVE FAILURES, PUT F2108332
Reference
07117 −2 00001 4 07122 849 TNX RT75,4,1 F2108300

␣␣RT80 = 3668

Definition
A 07124 0 00000 0 00000 854 RT80 HTR TSX INDEX STORAGE F2108350

References (2)

	07062	−0 63400 4 07124	820		SXD	RT80,4 SAVEXRC, TSX SET	F2108010
	07113	−0 53400 4 07124	845	RT60	LXD	RT80,4 TABLE CORRECT,	F2108260

␣␣RT90 = 3669

Definition
A 07125 0 00000 0 00000 855 RT90 HTR TABLE NR STORAGE, C.S. F2108360

References (3)

07065	0 60100 0 07125	823		STO	RT90	F2108040
07107	0 50000 0 07125	841		CLA	RT90 NO ERROR,	F2108220
07122	0 56000 0 07125	852	RT75	LDQ	RT90 IF FIVE FAILURES, PUT	F2108332

␣␣RT92 = 3670

Definition
A 07126 0 00000 0 00000 856 RT92 HTR ADDRESS WORD STORAGE F2108370

References (2)

	07061	0 60100 0 07126	819		STO	RT92	F2108000
	07071	−0 53400 1 07126	827		LXD	RT92,1 PUT MAX NR WORDS IN XRA	F2108080

␣␣RT95 = 3671

Definition
A 07127 0 00000 0 00000 857 RT95 HTR TABLE NR, WD ONE OF TABLE. F2108380

References (2)

	07073	0 70000 4 07131	829	RT20	CPY	RT95+2,4 COPY FIRST TWO WORDS.	F2108100
	07110	0 40200 0 07127	842		SUB	RT95 TEST TABLE NR.	F2108230

␣␣RT96 = 3672

Definition
A 07130 0 00000 0 00000 858 RT96 HTR NR. OF WDS IN DEC. F2108390

␣␣SF00 = 3302

Definition
06346 −0 63400 1 06326 481 SF00 SXD SV48,1 SAVE INDEX OF N. N CURRENT DO F2104650
Reference
D 06326 −3 00000 0 06346 465 SV48 TXL SF00,0 INDEX STO OF N IN CUR. DO F2104490

␣␣SF10 = 3310

Definition
D 06356 −3 00000 0 06362 489 SF10 TXL SF20,0 CURRENT INDEX GREATER. F2104730

References (2)

	06347	−0 63400 2 06356	482		SXD	SF10,2 SAVE N COUNTER.	F2104660
	06451	−0 53400 2 06356	548		LXD	SF10,2 OBTAIN N COUNTER IN XRB	F2105320

␣␣SF15 = 3313

Definition
D 06361 −3 00000 0 06366 492 SF15 TXL SF30,0 TURN ON LIGHT 97. F2104760

References (3)

06350	−0 63400 4 06361	483		SXD	SF15,4	F2104670
06410	−0 53400 1 06361	515	SF74	LXD	SF15,1	F2104990
06465	−0 53400 4 06361	560	SFEND	LXD	SF15,4 GO BACK FOR NEXT	F2105440

␣␣SF20 = 3314

Definition
06362 −0 53400 4 06325 493 SF20 LXD SV44,4 CUR. IND. GREATER, PUT IN XRC F2104770
Reference
D 06356 −3 00000 0 06362 489 SF10 TXL SF20,0 CURRENT INDEX GREATER. F2104730

␣␣SF30 = 3318

Definition
06366 −0 75400 4 00000 497 SF30 PXD 0,4 OF CUR. IND, SYM. IND. XRC F2104810
Reference
D 06361 −3 00000 0 06366 492 SF15 TXL SF30,0 TURN ON LIGHT 97. F2104760

␣␣SF35 = 3320

Definition
06370 0 50000 1 02544 499 SF35 CLA DOTAGZ+5,1 PUT LEVEL OF D(XRA) IN F2104830
Reference
06406 0 02000 0 06370 513 TRA SF35 GO BACK FOR NEXT DO F2104970

␣␣SF40 = 3324

Definition
06374 1 00011 1 06375 503 SF40 TXI SF50,1,9 BACK UP IN XRA- F2104870

References (2)

	06372	3 00001 2 06374	501		TXH	SF40,2,1 LEVEL	F2104850
D	06401	−3 00000 2 06374	508	SF70	TXL	SF40,2 SF90 UPON FINDING A DO	F2104920

␣␣SF50 = 3325

Definition
06375 −3 02506 1 06377 504 SF50 TXL SF60,1,1350 HALT IF TOP OD DOTAG F2104880
Reference
06374 1 00011 1 06375 503 SF40 TXI SF50,1,9 BACK UP IN XRA- F2104870

␣␣SF60 = 3327

Definition
06377 0 50000 1 02544 506 SF60 CLA DOTAGZ+5,1 THIS ROUTINE, BY RAISING F2104900
Reference
06375 −3 02506 1 06377 504 SF50 TXL SF60,1,1350 HALT IF TOP OD DOTAG F2104880

␣␣SF70 = 3329

Definition
D 06401 −3 00000 2 06374 508 SF70 TXL SF40,2 SF90 UPON FINDING A DO F2104920
Reference
06400 0 62200 0 06401 507 STD SF70 XRA, EXITS TO SF80 OR F2104910

␣␣SF73 = 3335

Definition
06407 −0 63400 1 06422 514 SF73 SXD SF76,1 THIS ROUTINE (THROUGH SF76) F2104980
Reference
06404 0 02000 0 06407 511 TRA SF73 CONTAINS THE DO OF XRC F2104950

␣␣SF74 = 3336

Definition
06410 −0 53400 1 06361 515 SF74 LXD SF15,1 F2104990

␣␣SF76 = 3346

Definition
D 06422 −3 00000 0 06437 525 SF76 TXL SF90,0 NON EMPTY INTERSECTION F2105090

References (2)

	06407	−0 63400 1 06422	514	SF73	SXD	SF76,1 THIS ROUTINE (THROUGH SF76)	F2104980
	06414	−0 53400 1 06422	519		LXD	SF76,1 GREATEST EXIT LEVEL OF	F2105030

␣␣SF78 = 3347

Definition
A 06423 0 00000 0 00000 526 SF78 HTR WITH THAT SUB NEST. F2105100

References (3)

06413	0 60100 0 06423	518	STO	SF78 TO DETERMINE THE	F2105020
06417	0 34000 0 06423	522	CAS	SF78 SUBNEST OF A DO WITH	F2105060
06420	0 50000 0 06423	523	CLA	SF78 VARIABLE NS, BUT IN A	F2105070

␣␣SF79 = 3348

Definition
06424 0 50000 1 02544 527 SF79 CLA DOTAGZ+5,1 F2105110
Reference
06357 0 02000 0 06424 490 TRA SF79 EQUALITY F2104740

␣␣SF80 = 3353

Definition
06431 −0 76000 0 00141 532 SF80 MSE 97 EQUALITY, IF SYM DO IS F2105160
Reference
06405 0 02000 0 06431 512 TRA SF80 AND CURRENT DO. F2104960

␣␣SF90 = 3359

Definition
06437 0 77100 0 00022 538 SF90 ARS 18 IN ADDRESS PART F2105220

References (2)

D	06422	−3 00000 0 06437	525	SF76	TXL	SF90,0 NON EMPTY INTERSECTION	F2105090
	06427	−0 10000 0 06437	530		TNZ	SF90	F2105140

␣␣SF92 = 3370

Definition
06452 0 50000 1 02543 549 SF92 CLA DOTAGZ+4,1 OBTAIN VAR. N IN ACC. F2105330
Reference
06464 0 02000 0 06452 559 TRA SF92 OF DEFINITION. F2105430

␣␣SF94 = 3372

Definition
06454 0 34000 1 02543 551 SF94 CAS DOTAGZ+4,1 COMPARE, TO FIND DUPLICATE F2105350
Reference
06460 2 00001 2 06454 555 SF98 TIX SF94,2,1 AND IN COUNTER F2105390

␣␣SF96 = 3375

Definition
06457 1 00001 1 06460 554 SF96 TXI SF98,1,1 INDEX IN DO FORMULA F2105380

References (2)

	06453	0 02000 0 06457	550		TRA	SF96 GO TO INDEXING.	F2105340
	06455	0 02000 0 06457	552		TRA	SF96 N S.	F2105360

␣␣SF98 = 3376

Definition
06460 2 00001 2 06454 555 SF98 TIX SF94,2,1 AND IN COUNTER F2105390
Reference
06457 1 00001 1 06460 554 SF96 TXI SF98,1,1 INDEX IN DO FORMULA F2105380

␣␣SF99 = 3378

Definition
06462 0 50000 0 06467 557 SF99 CLA SFES1 REPLACE F2105410
Reference
06456 0 02000 0 06462 553 TRA SF99 DUPE FOUND. F2105370

␣␣SV00 = 3271

Definition
449 DO SYMBOL DEFINITION OF VARIABLE RANGES AND INCREMENTS F2104330

06307 −0 53400 1 00030 450 SV00 LXD DOTAG−1,1 F2104340

References (3)

05663	3 01127 4 06307	165	TXH	SV00,4,599	F2101490
05776	3 01127 1 06307	240	TXH	SV00,1,599	F2102240
06000	0 02000 0 06307	242	TRA	SV00	F2102260

␣␣SV10 = 3277

Definition
06315 −0 63400 1 06345 456 SV10 SXD SV98,1 SAVE NEST INDEX F2104400
Reference
D 06345 −3 00000 0 06315 480 SV98 TXL SV10,0 1F NEW NEST, SV10 (NEST.INDEX STO.) F2104640

␣␣SV20 = 3278

Definition
06316 0 50000 1 02537 457 SV20 CLA DOTAGZ,1 OBTAIN FIRST WORD CURRENT F2104410
Reference
06344 3 00001 2 06316 479 TXH SV20,2,1 IF NOT NEW NEST, TRA SV20 F2104630

␣␣SV30 = 3282

Definition
06322 0 50000 4 02540 461 SV30 CLA DOTAGZ+1,4 OBTAIN SYM OF XRC, F2104450
Reference
06336 3 00001 2 06322 473 TXH SV30,2,1 TEST SYM. OTHERWISE. F2104570

␣␣SV40 = 3284

Definition
06324 0 34000 1 02543 463 SV40 CAS DOTAGZ+4,1 AND TEST FOR SYM EQUALS VAR.N. F2104470
Reference
06330 2 00001 2 06324 467 SV60 TIX SV40,2,1 IN XRB AND GO BACK. F2104510

␣␣SV44 = 3285

Definition
D 06325 −3 00000 0 06327 464 SV44 TXL SV50,0 CURRENT DO INDEX STORAGE. F2104480

References (5)

06314	−0 63400 1 06325	455		SXD	SV44,1 SAVE CURRENT DO INDEX	F2104390
06331	−0 53400 1 06325	468	SV65	LXD	SV44,1 SYM NOT VAR.N., PUT CURRENT	F2104520
06341	−0 63400 1 06325	476		SXD	SV44,1 SAVE CURRENT DO INDEX.	F2104600
06353	−0 53400 1 06325	486		LXD	SV44,1 OBTAIN INDEX OF CURRENT DO	F2104700
06362	−0 53400 4 06325	493	SF20	LXD	SV44,4 CUR. IND. GREATER, PUT IN XRC	F2104770

␣␣SV48 = 3286

Definition
D 06326 −3 00000 0 06346 465 SV48 TXL SF00,0 INDEX STO OF N IN CUR. DO F2104490

References (2)

	06346	−0 63400 1 06326	481	SF00	SXD	SV48,1 SAVE INDEX OF N. N CURRENT DO	F2104650
	06441	−0 53400 1 06326	540		LXD	SV48,1 INDEX OF VAR.N. IN CUR. DO.	F2105240

␣␣SV50 = 3287

Definition
06327 1 00001 1 06330 466 SV50 TXI SV60,1,1 TAKE NEXT.N, COUNT F2104500
Reference
D 06325 −3 00000 0 06327 464 SV44 TXL SV50,0 CURRENT DO INDEX STORAGE. F2104480

␣␣SV60 = 3288

Definition
06330 2 00001 2 06324 467 SV60 TIX SV40,2,1 IN XRB AND GO BACK. F2104510
Reference
06327 1 00001 1 06330 466 SV50 TXI SV60,1,1 TAKE NEXT.N, COUNT F2104500

␣␣SV65 = 3289

Definition
06331 −0 53400 1 06325 468 SV65 LXD SV44,1 SYM NOT VAR.N., PUT CURRENT F2104520
Reference
06466 0 02000 0 06331 561 TRA SV65 SYMBOL DO F2105450

␣␣SV70 = 3290

Definition
06332 1 77767 4 06333 469 SV70 TXI SV80,4,−9 DO INDEX IN XRA AND INDEX F2104530

␣␣SV80 = 3291

Definition
D 06333 −3 00000 4 06337 470 SV80 TXL SV90,4 XRC. IF TABLE ENDS, GO70 SU90. F2104540

References (2)

	06310	−0 63400 1 06333	451		SXD	SV80,1	F2104350
	06332	1 77767 4 06333	469	SV70	TXI	SV80,4,−9 DO INDEX IN XRA AND INDEX	F2104530

␣␣SV90 = 3295

Definition
06337 1 77767 1 06340 474 SV90 TXI SV95,1,−9 TAKE NEXT DOWN DO F2104580

References (2)

	06320	0 10000 0 06337	459		TZE	SV90 IF ZERO, GO TO INDEXING	F2104430
D	06333	−3 00000 4 06337	470	SV80	TXL	SV90,4 XRC. IF TABLE ENDS, GO70 SU90.	F2104540

␣␣SV95 = 3296

Definition
D 06340 −3 00000 1 06567 475 SV95 TXL TS4VAL,1 POSSIBLE. OTHERWISE, EXIT F2104590

References (2)

	06311	−0 63400 1 06340	452		SXD	SV95,1	F2104360
	06337	1 77767 1 06340	474	SV90	TXI	SV95,1,−9 TAKE NEXT DOWN DO	F2104580

␣␣SV98 = 3301

Definition
D 06345 −3 00000 0 06315 480 SV98 TXL SV10,0 1F NEW NEST, SV10 (NEST.INDEX STO.) F2104640

References (2)

	06315	−0 63400 1 06345	456	SV10	SXD	SV98,1 SAVE NEST INDEX	F2104400
	06321	−0 53400 4 06345	460		LXD	SV98,4 OTHERWISE, NEST INDEX IN XRC	F2104440

␣␣T100 = 3529

Definition
06711 0 50000 1 02537 710 T100 CLA DOTAGZ,1 NEXT BACK DO FOUND. F2106940
Reference
D 06705 3 00000 2 06711 706 TS90 TXH T100,2 THROUGH, CURRENT DO IS F2106900

␣␣T110 = 3538

Definition
D 06722 −3 00000 2 06724 719 T110 TXL T120,2 DEC CONTAINS CURRENT LEVEL. F2107030

References (2)

	06655	−0 63400 2 06722	682		SXD	T110,2 SAVE LEVEL OF CURRENT DO	F2106660
	06701	−0 53400 2 06722	702		LXD	T110,2 CURRENT DO LEVEL IN XRB	F2106860

␣␣T120 = 3540

Definition

		721			RANGE OF THE DO WITH VARIABLE N. IGNORE AND	F2107046
		722			GET NEXT FORVAL.	F2107047
06724	−0 53400 1 06742	723	T120	LXD	T144,1 PUT CUR. VAR. DO INDEX IN	F2107050

Reference
D 06722 −3 00000 2 06724 719 T110 TXL T120,2 DEC CONTAINS CURRENT LEVEL. F2107030

␣␣T130 = 3545

Definition
D 06731 −3 00000 2 06746 728 T130 TXL T170,2 FURTAG FOR. NR. F2107100
Reference
06727 −0 63400 2 06731 726 SXD T130,2 STORE IN DEC OF T130. F2107080

␣␣T140 = 3553

Definition
06741 0 34000 1 02543 736 T140 CAS DOTAGZ+4,1 IN DO VAR.N S. F2107180
Reference
06745 2 00001 2 06741 741 T160 TIX T140,2,1 F2107220

␣␣T144 = 3554

Definition
D 06742 −3 00000 0 06744 737 T144 TXL T150,0 IF SO, REPLACE ITS LEVEL(DEC HAS IX FOR VAR N) F2107100

References (2)

	06677	−0 63400 1 06742	700		SXD	T144,1 SAVE COUNTER OF SYM IN DO	F2106840
	06724	−0 53400 1 06742	723	T120	LXD	T144,1 PUT CUR. VAR. DO INDEX IN	F2107050

␣␣T148 = 3555

Definition
D 06743 −3 00000 0 06747 738 T148 TXL T180,0 OF DEF BY THIS ( DEC HAS 3,2,1 IF FORVAL F2107200

References (2)

	06676	−0 63400 2 06743	699	TS80	SXD	T148,2 SAVE VAR. N. COUNTER.	F2106830
	06736	−0 53400 2 06743	733		LXD	T148,2 AND TEST TO SEE IF THIS	F2107150

␣␣T150 = 3556

Definition
739 MATCHES VARIABLE N3,N2,N1) F2107201

06744 1 00001 1 06745 740 T150 TXI T160,1,1 NEW LEVEL. F2107210
Reference
D 06742 −3 00000 0 06744 737 T144 TXL T150,0 IF SO, REPLACE ITS LEVEL(DEC HAS IX FOR VAR N) F2107100

␣␣T160 = 3557

Definition
06745 2 00001 2 06741 741 T160 TIX T140,2,1 F2107220

References (3)

06740	1 00001 1 06745	735		TXI	T160,1,1 DUPLICATED	F2107170
06744	1 00001 1 06745	740	T150	TXI	T160,1,1 NEW LEVEL.	F2107210
06752	1 00001 1 06745	746		TXI	T160,1,1	F2107270

␣␣T170 = 3558

Definition
06746 1 77776 4 06673 742 T170 TXI TS75,4,−2 F2107230

References (2)

	06723	0 02000 0 06746	720		TRA	T170 APPARENT DEFINITION OF A VARIABLE N WITHIN	F2107044
D	06731	−3 00000 2 06746	728	T130	TXL	T170,2 FURTAG FOR. NR.	F2107100

␣␣T180 = 3559

Definition
06747 0 50000 0 06754 743 T180 CLA T195 F2107240
Reference
D 06743 −3 00000 0 06747 738 T148 TXL T180,0 OF DEF BY THIS ( DEC HAS 3,2,1 IF FORVAL F2107200

␣␣T190 = 3563

Definition
06753 0 02000 0 06760 747 T190 TRA RH00 EXIT F2107280

References (4)

	06574	0 02000 0 06753	633		TRA	T190 SENSE LIGHT AND EXTT	F2106170
	06602	0 02000 0 06753	639		TRA	T190 EXIT	F2106230
D	06651	−3 00000 0 06753	678	TS38	TXL	T190,0 EXIT, STORAGE FOR INDEX CUR. DO.	F2106620
	06653	0 02000 0 06753	680		TRA	T190 EXIT	F2106640

␣␣T195 = 3564

Definition
A 06754 0 00000 0 00000 748 T195 HTR ES F2107290

References (2)

	06735	0 60100 0 06754	732		STO	T195 LEVEL,	F2107140
	06747	0 50000 0 06754	743	T180	CLA	T195	F2107240

␣␣TBNA = 3566

Definition
A 06756 0 00000 0 00000 750 TBNA HTR ES F2107310

References (2)

	06626	0 60100 0 06756	659		STO	TBNA END OF NEST ADDRESS ENA.	F2106430
	06632	0 50000 0 06756	663		CLA	TBNA FROM ENTIRE ROUTINE.	F2106470

␣␣TENA = 3567

Definition
A 06757 0 00000 0 00000 751 TENA HTR ES F2107320

References (3)

06630	0 60100 0 06757	661	STO	TENA FOR NRS. FOUND GREATER	F2106450
06637	0 50000 0 06757	668	CLA	TENA FOR NEXT DO.	F2106520
06661	0 50000 0 06757	686	CLA	TENA TEST FOR END OF NEST	F2106700

␣␣TIFX = 3270

Definition
06306 448 TIFX BSS 1 CURRENT TIFGO INDEX. F2104320

References (7)

05675	−0 63400 4 06306	175		SXD	TIFX,4 CURRENT TIFGO INDEX	F2101590
05714	−0 53400 4 06306	190		LXD	TIFX,4 OBTAIN CURRENT T1FGO INDEX	F2101740
05727	−0 63400 4 06306	201	FLO70	SXD	TIFX,4 SAVE CURRENT TIFGO INDEX	F2101850
05756	−0 53400 4 06306	224		LXD	TIFX,4 OBTAIN FIRST WORD OF	F2102080
05773	−0 53400 4 06306	237	FLO90	LXD	TIFX,4 GO BACK FOR NEXT	F2102210
06004	−0 53400 4 06306	247		LXD	TIFX,4 WITH THE TIFGO ENTRY,	F2102310
06010	−0 53400 4 06306	251		LXD	TIFX,4 CONTR0L IS RETURED TO	F2102350

␣␣TIFZ = 1976

Definition
03670 22 TIFZ BSS 1 F2100060

References (7)

05715	0 50000 4 03670	191	FLO50	CLA	TIFZ,4 AND SEARCH FOR TIFGO	F2101750
05734	0 50000 4 03670	206		CLA	TIFZ,4 TEST FOR THREE ADDRESS IF.	F2101900
05757	0 50000 4 03670	225		CLA	TIFZ,4 TIFGO ENTRY	F2102090
06005	0 50000 4 03671	248	2ADIF	CLA	TIFZ+1,4 ONE AT A TIME.	F2102320
06011	0 50000 4 03671	252	GOTOK	CLA	TIFZ+1,4 FLO90 FOR NEXT	F2102360
06016	0 50000 4 03671	257	GOTOVN	CLA	TIFZ+1,4 FOR GOTOV TRANSFERS,	F2102410
07153	0 01130 0 03670	877	TIFAD	HTR	TIFZ,0,600 TABLE PLUS ONE.	F2108580

␣␣TLTZ = 2828

Definition
05414 28 TLTZ BSS 1 F2100120

References (2)

	06254	0 60100 1 05414	421		STO	TLTZ,1 INDEX. STORE ENTRY.	F2104030
	06270	0 70000 1 05414	433	TLT30	CPY	TLTZ,1 COPY BUFFER.	F2104170

␣␣TRAD = 1977

Definition
03671 23 TRAD BSS 1 F2100070
Reference
05543 −0 63400 1 03670 83 SXD TRAD−1,1 SAVE NEXT UNUSED INDEX F2100670

␣␣TS00 = 3464

Definition
06610 −0 76000 0 00141 645 TS00 MSE 97 SENSE LIGHT-97 OFF F2106290

␣␣TS10 = 3466

Definition
06612 0 50000 1 02544 647 TS10 CLA DOTAGZ+5,1 OBTAIN LEVEL OF CURRENT F2106310
Reference
D 06650 3 00000 1 06612 677 TS35 TXH TS10,1 INDEX FOR NEXT DO, IF POSSIBLE. F2106610

␣␣TS15 = 3473

Definition
06621 −0 76000 0 00141 654 TS15 MSE 97 F2106380
Reference
06614 −3 00001 2 06621 649 TXL TS15,2,1 GO TO NEST PROCEDURE. IF F2106330

␣␣TS20 = 3483

Definition
06633 0 34000 4 04510 664 TS20 CAS 4VALZ,4 TEST WHETHER FIRST SUCH F2106480
Reference
D 06652 3 00000 4 06633 679 TS40 TXH TS20,4 INDEX TEST FOR FORVAL F2106630

␣␣TS25 = 3491

Definition
06643 1 77767 1 06650 672 TS25 TXI TS35,1,−9 F2106560
Reference
06641 0 12000 0 06643 670 TPL TS25 F2106540

␣␣TS30 = 3492

Definition
06644 0 50000 1 02537 673 TS30 CLA DOTAGZ,1 INNER DO PROCEDURE. F2106570
Reference
06616 0 02000 0 06644 651 TRA TS30,0 OFF, GO TO INNER DO PRECEDURE, F2106350

␣␣TS33 = 3495

Definition
06647 1 77767 1 06650 676 TS33 TXI TS35,1,−9 TABLE SEARCH. OTHERWISE, F2106600
Reference
06663 −0 12000 0 06647 688 TMI TS33 NOT IN NEST TRA FOR NEXT DO. F2106720

␣␣TS35 = 3496

Definition
D 06650 3 00000 1 06612 677 TS35 TXH TS10,1 INDEX FOR NEXT DO, IF POSSIBLE. F2106610

References (5)

06604	−0 63400 1 06650	641		SXD	TS35,1	F2106230
06620	1 77767 1 06650	653		TXI	TS35,1,−9 INDEXING FOR NEXT NEST.	F2106370
06643	1 77767 1 06650	672	TS25	TXI	TS35,1,−9	F2106560
06647	1 77767 1 06650	676	TS33	TXI	TS35,1,−9 TABLE SEARCH. OTHERWISE,	F2106600
06675	1 77767 1 06650	698		TXI	TS35,1,−9 AND TRA FOR NEXT DO.	F2106820

␣␣TS38 = 3497

Definition
D 06651 −3 00000 0 06753 678 TS38 TXL T190,0 EXIT, STORAGE FOR INDEX CUR. DO. F2106620

References (4)

06654	−0 63400 1 06651	681	TS50	SXD	TS38,1 SAVE INDEX OF CURRENT DO	F2106650
06660	−0 53400 1 06651	685		LXD	TS38,1 CURRENT DO IN XRA	F2106690
06674	−0 53400 1 06651	697		LXD	TS38,1 RESTORE CURRENT DO INDEX	F2106810
06700	−0 53400 1 06651	701		LXD	TS38,1 CURRENT DO INDEX IN XRA	F2106850

␣␣TS40 = 3498

Definition
D 06652 3 00000 4 06633 679 TS40 TXH TS20,4 INDEX TEST FOR FORVAL F2106630

References (2)

	06575	−0 63400 1 06652	634	TSV10	SXD	TS40,1 INITIALIZE TEST INSTRS.	F2106180
	06634	1 77776 4 06652	665		TXI	TS40,4,−2 NR. IS IN NEST IF NOT,	F2106490

␣␣TS50 = 3500

Definition
06654 −0 63400 1 06651 681 TS50 SXD TS38,1 SAVE INDEX OF CURRENT DO F2106650
Reference
06646 −0 10000 0 06654 675 TNZ TS50 IN WHICH CASE TRA FOR F2106590

␣␣TS55 = 3503

Definition
06657 −0 53400 2 05477 684 TS55 LXD L(3),2 PUT THREE IN XRC F2106680
Reference
D 06673 3 00000 4 06657 696 TS75 TXH TS55,4 IF ANY F2106800

␣␣TS60 = 3509

Definition
06665 0 34000 1 02543 690 TS60 CAS DOTAGZ+4,1 SYMBOL, COMPARE WITH VAR F2106740
Reference
06671 2 00001 2 06665 694 TS70 TIX TS60,2,1 COUNT IN XRB F2106780

␣␣TS65 = 3512

Definition
06670 1 00001 1 06671 693 TS65 TXI TS70,1,1 INDEX IN XRA, F2106770
Reference
06666 0 02000 0 06670 691 TRA TS65 N SYMBOLS. F2106750

␣␣TS70 = 3513

Definition
06671 2 00001 2 06665 694 TS70 TIX TS60,2,1 COUNT IN XRB F2106780
Reference
06670 1 00001 1 06671 693 TS65 TXI TS70,1,1 INDEX IN XRA, F2106770

␣␣TS75 = 3515

Definition
D 06673 3 00000 4 06657 696 TS75 TXH TS55,4 IF ANY F2106800

References (3)

06576	−0 63400 1 06673	635		SXD	TS75,1	F2106190
06672	1 77776 4 06673	695		TXI	TS75,4,−2 TAKE NEXT FORTAG ENTRY,	F2106790
06746	1 77776 4 06673	742	T170	TXI	TS75,4,−2	F2107230

␣␣TS80 = 3518

Definition
06676 −0 63400 2 06743 699 TS80 SXD T148,2 SAVE VAR. N. COUNTER. F2106830
Reference
06667 0 02000 0 06676 692 TRA TS80 EQUALITY F2106760

␣␣TS85 = 3523

Definition
06703 0 50000 1 02544 704 TS85 CLA DOTAGZ+5,1 OBTAIN NEXT BACK DO IN F2106880

References (2)

	06702	1 00001 2 06703	703		TXI	TS85,2,1 ADJUST XRB FOR CURRENT DO TEST.	F2106870
	06706	1 00011 1 06703	707	TS92	TXI	TS85,1,9 PRODUCED.	F2106910

␣␣TS90 = 3525

Definition
D 06705 3 00000 2 06711 706 TS90 TXH T100,2 THROUGH, CURRENT DO IS F2106900

References (2)

	06704	0 62200 0 06705	705		STD	TS90 SUBNEST. ON FIRST TIME	F2106890
	06730	−0 53400 2 06705	727		LXD	TS90,2 OBTAIN LEVEL OF DO CONTAINING	F2107000

␣␣TS92 = 3526

Definition
06706 1 00011 1 06703 707 TS92 TXI TS85,1,9 PRODUCED. F2106910
Reference
06707 2 00001 2 06706 708 TS94 TIX TS92,2,1 ADJUST LEVEL. F2106920

␣␣TS94 = 3527

Definition
06707 2 00001 2 06706 708 TS94 TIX TS92,2,1 ADJUST LEVEL. F2106920

References (2)

	06714	0 12000 0 06707	713		TPL	TS94 DO. IF NOT, GO TO TS94	F2106970
	06721	−0 12000 0 06707	718		TMI	TS94	F2107020

␣␣XFOR = 3565

Definition
A 06755 0 00000 0 00000 749 XFOR HTR FORTAG INDEX F2107300

References (4)

06607	−0 63400 4 06755	644	SXD	XFOR,4 XFOR. CONTINUE WITH TS00	F2106280
06631	−0 53400 4 06755	662	LXD	XFOR,4 THAN ENA. IF NONE, EXIT	F2106460
06636	−0 63400 4 06755	667	SXD	XFOR,4 GO TO INDEXING INSTRS.	F2106510
06656	−0 53400 4 06755	683	LXD	XFOR,4 OBTAIN FORVAL INDEX IN XRC	F2106670

␣2ADIF = 3077

Definition
06005 0 50000 4 03671 248 2ADIF CLA TIFZ+1,4 ONE AT A TIME. F2102320

References (3)

05765	0 02000 0 06005	231	TRA	2ADIF 5, 2 ADDRESS TYPE	F2102150
05766	0 02000 0 06005	232	TRA	2ADIF 4, 2 ADIF	F2102160
05767	0 02000 0 06005	233	TRA	2ADIF 3, 2ADIF	F2102170

␣3ADIF = 3073

Definition
243 CONTROL ROUTINES F2102270

06001 −0 32000 0 05516 244 3ADIF ANA ADDMSK THE FOLLOWING ROUTINES F2102280
Reference
05760 −0 12000 0 06001 226 TMI 3ADIF TRA IF 3ADIF F2102100

␣4VALZ = 2376

Definition
04510 32 4VALZ BSS 1 F2100160

References (7)

06633	0 34000 4 04510	664	TS20	CAS	4VALZ,4 TEST WHETHER FIRST SUCH	F2106480
06640	0 40200 4 04510	669		SUB	4VALZ,4	F2106530
06662	0 40200 4 04510	687		SUB	4VALZ,4	F2106710
06664	0 50000 4 04511	689		CLA	4VALZ+1,4 IN NEST 0BTAIN FORTAG	F2106730
06713	0 40200 4 04510	712		SUB	4VALZ,4 FORMULA NR. IS IN THIS	F2106960
06720	0 40200 4 04510	717		SUB	4VALZ,4	F2107010
07152	0 01750 0 04510	876	4VALAD	HTR	4VALZ,0,1000 ADDRESS OF LAST WORD IN	F2108570

␣4VARZ = 2876

Definition
05474 36 4VARZ BSS 1 F2100200

References (4)

07021	0 34000 4 05474	786	RH40	CAS	4VARZ,4 FORVAR ENTRY IN RANGE.	F2107670
07026	0 34000 4 05474	791		CAS	4VARZ,4 FORVAR ENTRY WITH RLAST	F2107720
07035	0 40200 4 05475	798		SUB	4VARZ+1,4 IF EQUAL, PUT BIT IN	F2107790
07155	0 02734 0 05474	879	4VARAD	HTR	4VARZ,0,1500 WRDS.	F2108600

␣ADL10 = 3218

Definition
06222 0 50000 1 02537 394 ADL10 CLA DOTAGZ,1 OBTAIN FIRST WORD. F2103780
Reference
06243 3 00001 4 06222 411 TXH ADL10,4,1 UNLESS NGW DO HAS LEVEL ONE. F2103950

␣ADL20 = 3222

Definition
D 06226 −3 00000 0 06244 398 ADL20 TXL ADL70,0 ALPHA NOT LESS THAN ADD, THEN F2103820

References (2)

	06216	−0 63400 4 06226	390	ADLOC	SXD	ADL20,4 SAVE TSX SET	F2103740
	06250	−0 53400 4 06226	416	ADL80	LXD	ADL20,4 TSX SET IN XRC	F2104000

␣ADL30 = 3223

Definition
D 06227 −3 00000 0 06244 399 ADL30 TXL ADL70,0 ADD IN LAST CHOOSEN DO. F2103830

References (3)

06220	−0 63400 4 06227	392		SXD	ADL30,4 AND DEC OF ADL30, PUT ADDRESS	F2103760
06236	−0 63400 1 06227	406	ADL40	SXD	ADL30,1 IF DO IN THIS NEST, SXD.	F2103900
06244	−0 53400 3 06227	412	ADL70	LXD	ADL30,3 OBTAIN XDA IN XRA, XRB.	F2103960

␣ADL40 = 3230

Definition
06236 −0 63400 1 06227 406 ADL40 SXD ADL30,1 IF DO IN THIS NEST, SXD. F2103900
Reference
06233 0 02000 0 06236 403 TRA ADL40 ADDRESS, THIS DO CONTAINS F2103870

␣ADL50 = 3231

Definition
06237 1 77767 1 06240 407 ADL50 TXI ADL60,1,−9 IN ANY CASE, TAKE NEXT DOWN F2103910
Reference
06234 3 00000 4 06237 404 TXH ADL50,4,0 ADDRESS. EXIT IF OUT OF NEST F2103880

␣ADL60 = 3232

Definition
D 06240 −3 00000 1 06244 408 ADL60 TXL ADL70,1 DO, IF ANY, F2103920

References (2)

	05667	−0 63400 1 06240	169		SXD	ADL60,1	F2101530
	06237	1 77767 1 06240	407	ADL50	TXI	ADL60,1,−9 IN ANY CASE, TAKE NEXT DOWN	F2103910

␣ADL70 = 3236

Definition
06244 −0 53400 3 06227 412 ADL70 LXD ADL30,3 OBTAIN XDA IN XRA, XRB. F2103960

References (4)

D	06226	−3 00000 0 06244	398	ADL20	TXL	ADL70,0 ALPHA NOT LESS THAN ADD, THEN	F2103820
D	06227	−3 00000 0 06244	399	ADL30	TXL	ADL70,0 ADD IN LAST CHOOSEN DO.	F2103830
	06235	0 02000 0 06244	405		TRA	ADL70 TO ADL 70. OTHERWISE, GO TO 30	F2103890
D	06240	−3 00000 1 06244	408	ADL60	TXL	ADL70,1 DO, IF ANY,	F2103920

␣ADL80 = 3240

Definition
06250 −0 53400 4 06226 416 ADL80 LXD ADL20,4 TSX SET IN XRC F2104000
Reference
06245 −3 00000 1 06250 413 TXL ADL80,1,0 EXIT IF ZERO. F2103970

␣ADL90 = 3242

Definition
A 06252 0 00000 0 00000 418 ADL90 HTR F2104020

References (3)

06221	0 60100 0 06252	393	STO	ADL90 IN ADL90. XRA CONTAINS BNX	F2103770
06225	0 34000 0 06252	397	CAS	ADL90 COMPARE WITH ADDRESS. IF	F2103810
06231	0 34000 0 06252	401	CAS	ADL90 COMPARE WITH BETA.	F2103850

␣ADLOC = 3214

Definition
389 INDEX AND LEVEL OF ADDRESS F2103730

06216 −0 63400 4 06226 390 ADLOC SXD ADL20,4 SAVE TSX SET F2103740

References (2)

	05745	0 07400 4 06216	215		TSX	ADLOC,4 OBTAIN XDG AND LDG	F2101990
	06036	0 07400 4 06216	274		TSX	ADLOC,4 INDEX OF DO CONTAINING	F2102580

␣DOTAG = 25

Definition
00031 17 DOTAG BSS 1 F2100017

References (8)

05547	−0 63400 1 00030	87		SXD	DOTAG−1,1 SAVE NEXT UNUSED INDEX	F2100710
05553	−0 53400 1 00030	92	MR00	LXD	DOTAG−1,1 INITIALIZE TEST	F2100760
05664	−0 53400 1 00030	166		LXD	DOTAG−1,1 INITIALIZE	F2101500
06307	−0 53400 1 00030	450	SV00	LXD	DOTAG−1,1	F2104340
06603	−0 53400 1 00030	640	TSV20	LXD	DOTAG−1,1 DOTAG TEST INITIALIZING	F2106240
06772	−0 53400 1 00030	763		LXD	DOTAG−1,1 DOTAG TEST	F2107440
07163	−0 53400 1 00030	886	LB02	LXD	DOTAG−1,1 OBTAIN NEXT UNUSED INDEX	F2108670
07216	−0 53400 1 00030	914	EB10	LXD	DOTAG−1,1 INITIALIZE TEST INSTR.	F2108950

␣ERIR2 = 3777

Definition
07301 0 00000 0 00000 965 ERIR2 F2109451

References (4)

07263	−0 63400 2 07301	951	ERLIST	SXD	ERIR2,2 SAVE X R B	F2109311
07277	−0 53400 2 07301	963		LXD	ERIR2,2	F2109431
07303	−0 63400 2 07301	967	ERBETA	SXD	ERIR2,2 SAVE ALPHA DO BETA	F2109471
07314	−0 53400 2 07301	976		LXD	ERIR2,2	F2109561

␣ERNBR = 3778

Definition
07302 0 00000 0 00000 966 ERNBR F2109461

References (5)

07264	−0 53400 2 07302	952		LXD	ERNBR,2 GET ERROR NUMBER	F2109321
07276	−0 63400 2 07302	962	ERNXT	SXD	ERNBR,2	F2109421
07304	−0 53400 2 07302	968		LXD	ERNBR,2 WHERE ALPHA	F2109481
07313	−0 63400 2 07302	975	ERNX	SXD	ERNBR,2	F2109551
07316	−0 53400 2 07302	978	ERTST	LXD	ERNBR,2	F2109581

␣ERNXT = 3774

Definition
07276 −0 63400 2 07302 962 ERNXT SXD ERNBR,2 F2109421
Reference
07275 1 00004 2 07276 961 TXI ERNXT,2,4 F2109411

␣ERTST = 3790

Definition
07316 −0 53400 2 07302 978 ERTST LXD ERNBR,2 F2109581
Reference
05630 −3 00000 1 07316 137 MR70 TXL ERTST,1,0 NO MORE DOS, EXIT TO TEST IF ERRORS F2101211

␣FA000 = 3099

Definition
270 ANALYSIS OF ADDRESS F2102540

06033 −0 63400 4 06076 271 FA000 SXD RS60,4 SAVE TSX SET F2102550

References (4)

06003	0 07400 4 06033	246	TSX	FA000,4 THE ADDRESSES ASSOCIATED	F2102300
06007	0 07400 4 06033	250	TSX	FA000,4 ARE PR0CESSED,	F2102340
06014	0 07400 4 06033	255	TSX	FA000,4	F2102390
06026	0 07400 4 06033	265	TSX	FA000,4 TRANSFERS, ALL ADDRESSES	F2102490

␣FA010 = 3109

Definition
06045 0 77100 0 00022 281 FA010 ARS 18 F2102650
Reference
06043 −3 00024 2 06045 279 TXL FA010,2,20 TEST LEVEL F2102630

␣FA020 = 3113

Definition
A 06051 0 77100 0 00000 285 FA020 ARS F2102690
Reference
06046 0 62100 0 06051 282 STA FA020 TRANSFER F2102660

␣FLO10 = 3004

Definition
05674 −0 53400 4 05504 174 FLO10 LXD L(600),4 INIT1ALIZE F2101580

␣FLO15 = 3007

Definition
05677 0 50000 1 02544 177 FLO15 CLA DOTAGZ+5,1 OBTAIN LEVEL OF DO F2101610
Reference
D 05703 3 00000 1 05677 181 FLO30 TXH FLO15,1 LEVEL ONE, IF ANY. F2101650

␣FLO20 = 3010

Definition
05702 1 77767 1 05703 180 FLO20 TXI FLO30,1,−9 LEVEL ONE, FIND NEXT F2101640
Reference
05726 0 02000 0 05702 200 TRA FLO20 F2101840

␣FLO30 = 3011

Definition
D 05703 3 00000 1 05677 181 FLO30 TXH FLO15,1 LEVEL ONE, IF ANY. F2101650

References (2)

	05665	−0 63400 1 05703	167		SXD	FLO30,1 TEST	F2101510
	05702	1 77767 1 05703	180	FLO20	TXI	FLO30,1,−9 LEVEL ONE, FIND NEXT	F2101640

␣FLO40 = 3013

Definition
05705 −0 63400 1 06275 183 FLO40 SXD BNX,1 SAVE BEGINNING 0O NEST INDEX. F2101670
Reference
05701 −3 00001 2 05705 179 TXL FLO40,2,1 TRA IF LEVEL ONE. IF NOT F2101630

␣FLO50 = 3021

Definition
05715 0 50000 4 03670 191 FLO50 CLA TIFZ,4 AND SEARCH FOR TIFGO F2101750
Reference
D 05723 3 00000 4 05715 197 FLO60 TXH FLO50,4 FOR NEXT TIFGO ENTRY, F2101810

␣FLO55 = 3026

Definition
05722 1 77776 4 05723 196 FLO55 TXI FLO60,4,−2 LESS THAN BNA, GO BACK F2101800
Reference
05740 −3 00006 2 05722 210 TXL FLO55,2,6 IGNORE, TAKE NEXT TIFGO ENTRY F2101940

␣FLO60 = 3027

Definition
D 05723 3 00000 4 05715 197 FLO60 TXH FLO50,4 FOR NEXT TIFGO ENTRY, F2101810

References (3)

05666	−0 63400 4 05723	168		SXD	FLO60,4 INSTRUCTIONS	F2101520
05722	1 77776 4 05723	196	FLO55	TXI	FLO60,4,−2 LESS THAN BNA, GO BACK	F2101800
05774	1 77776 4 05723	238		TXI	FLO60,4,−2 TIFGO ENTRY,	F2102220

␣FLO65 = 3029

Definition
05725 −0 53400 1 06275 199 FLO65 LXD BNX,1 F2101830
Reference
05731 0 02000 0 05725 203 TRA FLO65 G GREATER, GO BACK FOR NEXT NEST. F2101870

␣FLO70 = 3031

Definition
05727 −0 63400 4 06306 201 FLO70 SXD TIFX,4 SAVE CURRENT TIFGO INDEX F2101850
Reference
05720 0 02000 0 05727 194 TRA FLO70 GREATER THAN OR EQUAL TO F2101780

␣FLO75 = 3043

Definition
05743 0 50000 0 06300 213 FLO75 CLA G OBTAIN G F2101970

References (3)

05735	−0 12000 0 05743	207	TMI	FLO75 USE ADDRESS TO DETERMINE	F2101910
05737	−3 00005 2 05743	209	TXL	FLO75,2,5 ASSIGN FORMULA. IF IT IS,	F2101930
05741	−3 00007 2 05743	211	TXL	FLO75,2,7 TEST FOR ADD. GREATER THAN	F2101950

␣FLO80 = 3058

Definition
05762 0 02000 2 05772 228 FLO80 TRA FLO80+8,2 INDEXED TRA, F2102120
Reference
05762 0 02000 2 05772 228 FLO80 TRA FLO80+8,2 INDEXED TRA, F2102120

␣FLO90 = 3067

Definition
05773 −0 53400 4 06306 237 FLO90 LXD TIFX,4 GO BACK FOR NEXT F2102210

References (2)

	06015	0 02000 0 05773	256		TRA	FLO90	F2102400
D	06032	−3 00000 0 05773	269	GTV30	TXL	FLO90,0 CARRY RESTRICTIONS.	F2102530

␣FORTZ = 1976

Definition
03670 40 FORTZ BSS 1 F2100240
Reference
07156 0 02734 0 03670 880 4TAGAD HTR FORTZ,0,1500 F2108610

␣GOTOK = 3081

Definition
06011 0 50000 4 03671 252 GOTOK CLA TIFZ+1,4 FLO90 FOR NEXT F2102360
Reference
05772 0 02000 0 06011 236 TRA GOTOK 0 GO TO CONSTANT F2102200

␣GTV10 = 3091

Definition
06023 0 50000 4 04263 262 GTV10 CLA TRADZ,4 TO GET ADDRESSES F2102460
Reference
D 06031 3 00000 4 06023 268 GTV20 TXH GTV10,4 LEVEL BECAUSE OF F2102520

␣GTV20 = 3097

Definition
D 06031 3 00000 4 06023 268 GTV20 TXH GTV10,4 LEVEL BECAUSE OF F2102520

References (3)

06020	−0 63400 4 06031	259	SXD	GTV20,4 FOR INDEXING	F2102430
06022	0 02000 0 06031	261	TRA	GTV20	F2102450
06030	1 77777 4 06031	267	TXI	GTV20,4,−1 THOUGH THEY ARE ON SAME	F2102510

␣GTV30 = 3098

Definition
D 06032 −3 00000 0 05773 269 GTV30 TXL FLO90,0 CARRY RESTRICTIONS. F2102530

References (2)

	06025	−0 63400 4 06032	264		SXD	GTV30,4 FOR GOTON (ASSIGN) TYPE	F2102480
	06027	−0 53400 4 06032	266		LXD	GTV30,4 MUST BE PROCESSED EVEN	F2102500

␣INC00 = 3135

Definition
308 INDEXING NO CARRY CONDITION F2102920

06077 0 50000 0 06305 309 INC00 CLA LDA EXIT IF F2102930

References (2)

	06063	0 10000 0 06077	296		TZE	INC00 BIT MEANING THERE IS A JUMP	F2102800
	06070	−3 00001 2 06077	301		TXL	INC00,2,1 FIND NEXT BACK SUBNEST	F2102850

␣INC20 = 3143

Definition
06107 −0 60000 0 06140 317 INC20 STQ INCX F2103010
Reference
06103 0 04000 0 06107 313 TLQ INC20 INCX AND INCY SO THAT F2102970

␣INC30 = 3145

Definition
06111 −0 53400 1 06304 319 INC30 LXD XDA,1 INITIALIZE XRA F2103030
Reference
06106 0 02000 0 06111 316 TRA INC30 F2103000

␣INC35 = 3146

Definition
06112 1 77767 1 06113 320 INC35 TXI INC40,1,−9 FIND DO OF LEVEL LDA F2103040

References (3)

06121	0 12000 0 06112	327	TPL	INC35 LEVEL TO HIGH, GO BACK.	F2103110
06134	0 02000 0 06112	338	TRA	INC35 LESS THAN INCX, GET NEXT DO.	F2103220
06137	0 02000 0 06112	341	TRA	INC35 GO BACK FOR NEXT DO.	F2103250

␣INC40 = 3147

Definition
D 06113 −3 00000 1 06142 321 INC40 TXL RNC00,1 PLUS ONE. F2103050

References (2)

	05670	−0 63400 1 06113	170		SXD	INC40,1	F2101540
	06112	1 77767 1 06113	320	INC35	TXI	INC40,1,−9 FIND DO OF LEVEL LDA	F2103040

␣INC50 = 3155

Definition
06123 0 50000 1 02537 329 INC50 CLA DOTAGZ,1 OBTAIN BETA OF F2103130
Reference
06120 0 10000 0 06123 326 TZE INC50 DO OF LEVEL LDA PLUS ONE FOUND. F2103100

␣INC60 = 3165

Definition
06135 −0 50000 0 05517 339 INC60 CAL NCMSK AND OUT CARRY BITS. F2103230

References (2)

	06132	0 02000 0 06135	336		TRA	INC60 WITH INCX. GREATER THAN	F2103200
	06133	0 02000 0 06135	337		TRA	INC60 OR EQUAL TO INCX, GO TO INC60.	F2103210

␣L(MZ) = 2888

Definition
05510 −0 00000 0 00000 55 L(MZ) MZE F2100390

References (3)

06047	−0 50000 0 05510	283		CAL	L(MZ) LEVEL IN	F2102670
06066	−0 50000 0 05510	299	RS20	CAL	L(MZ)	F2102830
	05510	984	LMSK	SYN	L(MZ)	F2109712

␣MRES1 = 2993

Definition
A 05661 0 00000 0 00000 162 MRES1 HTR F2101460

References (2)

	05636	0 60100 0 05661	143		STO	MRES1	F2101270
	05650	0 34000 0 05661	153		CAS	MRES1	F2101370

␣NCMSK = 2895

Definition
05517 −377777477777 62 NCMSK OCT −377777477777 F2100460
Reference
06135 −0 50000 0 05517 339 INC60 CAL NCMSK AND OUT CARRY BITS. F2103230

␣RHCNX = 3629

Definition
A 07055 0 00000 0 00000 814 RHCNX HTR CURRENT NEST INDEX F2107950

References (3)

07016	−0 63400 4 07055	783		SXD	RHCNX,4 1NDEX TO SKIP LAST NEST AREA	F2107640
07017	−0 53400 4 07055	784	RH30	LXD	RHCNX,4 PUT FORVAR INDEX IN XRC	F2107650
07024	−0 63400 4 07055	789		SXD	RHCNX,4 SAVE INDEX AT THIS POINT,	F2107700

␣RHNNX = 3628

Definition
A 07054 0 00000 0 00000 813 RHNNX HTR NEXT NGST INDEX F2107940

References (3)

06775	−0 63400 1 07054	766		SXD	RHNNX,1 IN NEXT NEST INDEX.	F2107470
07015	−0 53400 4 07054	782	RH20	LXD	RHNNX,4 OTHERWISE, ADJUST FORVAR	F2107630
07050	−0 63400 4 07054	809		SXD	RHNNX,4 SET NEXT NEST INDEX IF L IS ONE.	F2107900

␣RLAST = 3631

Definition
A 07057 0 00000 0 00000 816 RLAST HTR BETA ADDRESS F2107970

References (2)

	07006	0 60100 0 07057	775		STO	RLAST	F2107560
	07025	0 50000 0 07057	790	RH50	CLA	RLAST FOR NEXT DO, AND COMPARE	F2107710

␣RNC00 = 3170

Definition
344 RESET NO CARRY CONDITION. NO CARRY TRANSFER LEVEL F2103280

06142 0 50000 0 06305 345 RNC00 CLA LDA EXIT IF LDA IS ZERO F2103290

References (5)

	06100	0 10000 0 06142	310		TZE	RNC00 LDA IS ZERO.	F2102940
D	06113	−3 00000 1 06142	321	INC40	TXL	RNC00,1 PLUS ONE.	F2103050
	06122	0 02000 0 06142	328		TRA	RNC00 LEVEL TO LOW, DA EXHAUSTED.	F2103120
	06127	0 02000 0 06142	333		TRA	RNC00 GREATER THAN OR EQUAL TO	F2103170
	06130	0 02000 0 06142	334		TRA	RNC00 GREATEST OF G, A, EXIT.	F2103180

␣RNC20 = 3180

Definition
06154 1 00011 1 06155 355 RNC20 TXI RNC30,1,9 FIND NEXT BACKS F2103390

References (2)

D	06160	−3 00000 2 06154	359	RNC40	TXL	RNC20,2	F2103430
	06211	2 00001 4 06154	384		TIX	RNC20,4,1 OTHERWISE, EXIT.	F2103680

␣RNC30 = 3181

Definition
06155 3 02506 1 06214 356 RNC30 TXH RNC95,1,1350 SUBNESTDO. F2103400
Reference
06154 1 00011 1 06155 355 RNC20 TXI RNC30,1,9 FIND NEXT BACKS F2103390

␣RNC40 = 3184

Definition
D 06160 −3 00000 2 06154 359 RNC40 TXL RNC20,2 F2103430
Reference
06157 0 62200 0 06160 358 STD RNC40 F2103420

␣RNC50 = 3185

Definition
06161 −0 63400 1 06206 360 RNC50 SXD RNC75,1 SAVE XRA F2103440
Reference
06153 1 00001 2 06161 354 TXI RNC50,2,1 C(XRB) LDG PLUS ONE. F2103380

␣RNC60 = 3189

Definition
06165 1 77767 1 06166 364 RNC60 TXI RNC70,1,−9 TAKE NEXT DOWN DO IF ANY. F2103480

References (3)

	06177	−0 10000 0 06165	374		TNZ	RNC60 SUBNEST DO. IF NOT, GET NEXT DO.	F2103580
	06203	0 12000 0 06165	378		TPL	RNC60 OF PREVIOUS VALUE	F2103620
D	06206	−3 00000 0 06165	381	RNC75	TXL	RNC60,0 GO BACK FOR NEXT TEST DO	F2103650

␣RNC70 = 3190

Definition
D 06166 −3 00000 1 06207 365 RNC70 TXL RNC80,1 F2103490

References (2)

	05671	−0 63400 1 06166	171		SXD	RNC70,1	F2101550
	06165	1 77767 1 06166	364	RNC60	TXI	RNC70,1,−9 TAKE NEXT DOWN DO IF ANY.	F2103480

␣RNC75 = 3206

Definition
D 06206 −3 00000 0 06165 381 RNC75 TXL RNC60,0 GO BACK FOR NEXT TEST DO F2103650

References (2)

	06161	−0 63400 1 06206	360	RNC50	SXD	RNC75,1 SAVE XRA	F2103440
	06207	−0 53400 1 06206	382	RNC80	LXD	RNC75,1 GO BACK FOR NEXT SUBNEST DO,	F2103660

␣RNC80 = 3207

Definition
06207 −0 53400 1 06206 382 RNC80 LXD RNC75,1 GO BACK FOR NEXT SUBNEST DO, F2103660

References (2)

D	06166	−3 00000 1 06207	365	RNC70	TXL	RNC80,1	F2103490
	06173	0 12000 0 06207	370		TPL	RNC80 TEST LEVEL	F2103540

␣RNC85 = 3210

Definition
D 06212 −3 00000 0 06214 385 RNC85 TXL RNC95,0 F2103690

References (2)

	06162	0 62200 0 06212	361		STD	RNC85 SAVE LEVEL OF THIS DO	F2103450
	06210	−0 53400 2 06212	383		LXD	RNC85,2 IF COUNTER PERMITS.	F2103670

␣RNC90 = 3211

Definition
A 06213 0 00000 0 00000 386 RNC90 HTR ES F2103700

References (2)

	06164	0 60100 0 06213	363		STO	RNC90 SUBNEST DO.	F2103470
	06176	0 40200 0 06213	373		SUB	RNC90 LEVEL AS NEXT INNERMOST	F2103570

␣RNC95 = 3212

Definition
06214 −0 53400 4 06076 387 RNC95 LXD RS60,4 GO BACK TO CONTROL ROUTINE F2103710

References (4)

	06143	0 10000 0 06214	346		TZE	RNC95	F2103300
	06146	0 10000 0 06214	349		TZE	RNC95 LDG	F2103330
	06155	3 02506 1 06214	356	RNC30	TXH	RNC95,1,1350 SUBNESTDO.	F2103400
D	06212	−3 00000 0 06214	385	RNC85	TXL	RNC95,0	F2103690

␣RTAPE = 3632

Definition
817 TAPE READING ROUTINE F2107980

07060 0 62100 0 07101 818 RTAPE STA RT40 INITIALIZE TABLE ADDRESS F2107990

References (6)

05536	0 07400 4 07060	78	TSX	RTAPE,4 TIEFGO	F2100620
05542	0 07400 4 07060	82	TSX	RTAPE,4 TRAD	F2100660
05546	0 07400 4 07060	86	TSX	RTAPE,4 TDO WITH DOTAG FORMAT	F2100700
06571	0 07400 4 07060	630	TSX	RTAPE,4	F2106140
06762	0 07400 4 07060	755	TSX	RTAPE,4	F2107360
07236	0 07400 4 07060	930	TSX	RTAPE,4 FORTAG.	F2109110

␣RTD10 = 3674

Definition
07132 −0 53400 4 07136 860 RTD10 LXD RTD18,4 READS IN ONE F2108410
Reference
07150 1 77777 1 07132 874 TXI RTD10,1,−1 TO RTD10 F2108550

␣RTD15 = 3675

Definition
07133 0 70000 1 02537 861 RTD15 CPY DOTAGZ,1 ENTRY FROM F2108420
Reference
07137 2 00001 4 07133 865 RTD20 TIX RTD15,4,1 READING IN F2108460

␣RTD18 = 3678

Definition
07136 −3 00005 0 07104 864 RTD18 TXL RT45,0,5 ARE STORED,BEFORE F2108450

References (2)

	07066	−0 53400 4 07136	824		LXD	RTD18,4 INITIALIZE ERROR COUNTER.	F2108050
	07132	−0 53400 4 07136	860	RTD10	LXD	RTD18,4 READS IN ONE	F2108410

␣RTD20 = 3679

Definition
07137 2 00001 4 07133 865 RTD20 TIX RTD15,4,1 READING IN F2108460
Reference
07134 1 77777 1 07137 862 TXI RTD20,1,−1 TDO, AFTER WHICH F2108430

␣RTD23 = 3680

Definition
07140 1 00003 4 07141 866 RTD23 TXI RTD25,4,3 THE NEXT ENTRY. F2108470

␣RTD25 = 3681

Definition
07141 0 60100 1 02537 867 RTD25 STO DOTAGZ,1 STORE ZERO F2108480
Reference
07140 1 00003 4 07141 866 RTD23 TXI RTD25,4,3 THE NEXT ENTRY. F2108470

␣RTD30 = 3683

Definition
07143 0 60100 1 02537 869 RTD30 STO DOTAGZ,1 AND REPEAT. F2108500
Reference
07142 1 77777 1 07143 868 TXI RTD30,1,−1 INDEX F2108490

␣RTD35 = 3685

Definition
07145 0 60100 1 02537 871 RTD35 STO DOTAGZ,1 ENTRY IS F2108520
Reference
07144 1 77777 1 07145 870 TXI RTD35,1,−1 WHEN DOTAG F2108510

␣RTD40 = 3687

Definition
07147 0 60100 1 02537 873 RTD40 STO DOTAGZ,1 TRA F2108540
Reference
07146 1 77777 1 07147 872 TXI RTD40,1,−1 COMPLETE, F2108530

␣RTDO0 = 3673

Definition
07131 −0 75400 0 00000 859 RTDO0 PXD 0,0 THIS ROUTINE F2108400
Reference
07100 −3 00001 2 07131 834 TXL RTDO0,2,1 F2108150

␣SFEND = 3381

Definition
06465 −0 53400 4 06361 560 SFEND LXD SF15,4 GO BACK FOR NEXT F2105440

References (5)

06412	0 10000 0 06465	517	TZE	SFEND	F2105010
06430	0 02000 0 06465	531	TRA	SFEND	F2105150
06445	0 02000 0 06465	544	TRA	SFEND EXIT UNLESS	F2105280
06446	0 02000 0 06465	545	TRA	SFEND NEW LEV.	F2105290
06461	0 02000 0 06465	556	TRA	SFEND	F2105400

␣SFES1 = 3383

Definition
A 06467 0 00000 0 00000 562 SFES1 HTR ES, F2105460

References (9)

06352	0 60100 0 06467	485		STO	SFES1 IN FULL WORD.	F2104690
06355	0 34000 0 06467	488		CAS	SFES1 WITH INDEX OF SYMBOL DO.	F2104720
06363	−0 53400 1 06467	494		LXD	SFES1,1 SYM. IND. IN XRA.	F2104780
06367	0 60100 0 06467	498		STO	SFES1 CONTAINS GREATER. PUT IN ES.	F2104820
06403	0 34000 0 06467	510		CAS	SFES1 WHICH IS THE DO OF XRC OR	F2104940
06440	0 60100 0 06467	539		STO	SFES1 OF SFESI.	F2105230
06444	0 34000 0 06467	543		CAS	SFES1 WITH NEW,	F2105270
06447	0 50000 0 06467	546		CLA	SFES1 IS LARGGER, IN WHICH CASE	F2105300
06462	0 50000 0 06467	557	SF99	CLA	SFES1 REPLACE	F2105410

␣TAP00 = 2898

Definition
65 BEGIN BLO CK ONE. F2100490

05522 0 77200 0 00224 66 TAP00 REW 148 F2100500

␣TAP10 = 2904

Definition
05530 0 76400 0 00222 72 TAP10 BST TTAPE TABLES F2100560
Reference
05531 2 00001 1 05530 73 TIX TAP10,1,1 F2100570

␣TIFAD = 3691

Definition
07153 0 01130 0 03670 877 TIFAD HTR TIFZ,0,600 TABLE PLUS ONE. F2108580
Reference
05535 0 50000 0 07153 77 CLA TIFAD IN F2100610

␣TIFGO = 1376

Definition
02540 20 TIFGO BSS 1 F2100040

References (2)

	05537	−0 63400 1 02537	79		SXD	TIFGO−1,1 SAVE NEXT UNUSED INDEX	F2100630
	05662	−0 53400 4 02537	164	FLOW	LXD	TIFGO−1,4 TEST FOR EMPTY TIFGO	F2101480

␣TLT00 = 3243

Definition
419 TRALEV LISTING F2104030

06253 −0 53400 1 06274 420 TLT00 LXD TLT50,1 OBTAIN CURRENT TRALEV F2104040

References (2)

	05755	0 07400 4 06253	223		TSX	TLT00,4 IN TRALEV BUFFER.	F2102070
	06056	0 07400 4 06253	290		TSX	TLT00,4 TLT. CONTINUE WITH RS00	F2102740

␣TLT10 = 3246

Definition
06256 −0 63400 1 06274 423 TLT10 SXD TLT50,1 TAPE WRITING ROUTINE. F2104070
Reference
06255 1 77777 1 06256 422 TXI TLT10,1,−1 IF TABLE NOW FULL, GO TO F2104060

␣TLT20 = 3249

Definition
06261 0 76600 0 00224 426 TLT20 WRS TLTAPE SELECT TAPE TO WRITE AWAY F2104100

References (2)

	05777	0 07400 4 06261	241		TSX	TLT20,4 IF SO, GO TO WRITE ROUTINE	F2102250
	06257	−3 00000 1 06261	424		TXL	TLT20,1,0 OTHERWISE, SAVE NEW INDEX	F2104080

␣TLT30 = 3256

Definition
06270 0 70000 1 05414 433 TLT30 CPY TLTZ,1 COPY BUFFER. F2104170
Reference
D 06272 3 00000 1 06270 435 TLT40 TXH TLT30,1 F2104190

␣TLT40 = 3258

Definition
D 06272 3 00000 1 06270 435 TLT40 TXH TLT30,1 F2104190

References (2)

	06263	−0 63400 1 06272	428		SXD	TLT40,1 AND TEST INSTR.	F2104120
	06271	1 77777 1 06272	434		TXI	TLT40,1,−1	F2104180

␣TLT50 = 3260

Definition
06274 0 00000 0 01130 437 TLT50 HTR 600 BUFFER SIZE F2104210

References (8)

05672	0 53400 1 06274	172		LXA	TLT50,1 INITIALIZE TRALEV	F2101560
05673	−0 63400 1 06274	173		SXD	TLT50,1 INDEX VALUE	F2101570
05775	−0 53400 1 06274	239	FLOEND	LXD	TLT50,1 TEST IF ANY TRALEV ENTRIES	F2102230
06253	−0 53400 1 06274	420	TLT00	LXD	TLT50,1 OBTAIN CURRENT TRALEV	F2104040
06256	−0 63400 1 06274	423	TLT10	SXD	TLT50,1 TAPE WRITING ROUTINE.	F2104070
06262	−0 53400 1 06274	427		LXD	TLT50,1 BUFFER. INITIALIZE XRA	F2104110
06266	0 53400 1 06274	431		LXA	TLT50,1 RE-INITIALIZE INDEX QUANTITIES	F2104150
06267	−0 63400 1 06274	432		SXD	TLT50,1	F2104160

␣TRA00 = 3384

Definition
563 GREATEST TRANSFER LEVEL OUT OF DO FORMULA F2105470

06470 0 50000 1 02544 564 TRA00 CLA DOTAGZ+5,1 OBTAIL LEVEL OF DO F2105480
Reference
06411 0 07400 4 06470 516 TSX TRA00,4 USES TRA00 F2105000

␣TRA10 = 3386

Definition
06472 −3 00024 2 06474 566 TRA10 TXL TRA20,2,20 F2105500
Reference
06473 −0 53400 2 06472 567 LXD TRA10,2 F2105510

␣TRA20 = 3388

Definition
06474 −0 63400 2 06513 568 TRA20 SXD TRA50,2 INITIALIZE TEST INSTR. F2105520
Reference
06472 −3 00024 2 06474 566 TRA10 TXL TRA20,2,20 F2105500

␣TRA30 = 3397

Definition
06505 −0 50000 1 02546 577 TRA30 CAL DOTAGZ+7,1 OR INTO TRAN5 ALL THE F2105610
Reference
D 06513 3 00000 2 06505 583 TRA50 TXH TRA30,2 F2105670

␣TRA40 = 3400

Definition
D 06510 −3 00000 1 06514 580 TRA40 TXL TRA60,1 BY THIS DO. F2105640

References (2)

	06312	−0 63400 1 06510	453		SXD	TRA40,1	F2104370
	06507	1 77767 1 06510	579		TXI	TRA40,1,−9 AND ALL DOS CONTAINED	F2105630

␣TRA50 = 3403

Definition
D 06513 3 00000 2 06505 583 TRA50 TXH TRA30,2 F2105670
Reference
06474 −0 63400 2 06513 568 TRA20 SXD TRA50,2 INITIALIZE TEST INSTR. F2105520

␣TRA60 = 3404

Definition
06514 0 56000 0 06541 584 TRA60 LDQ TRAN4 PUT MASK IN QUOTIENT F2105680
Reference
D 06510 −3 00000 1 06514 580 TRA40 TXL TRA60,1 BY THIS DO. F2105640

␣TRA70 = 3405

Definition
A 06515 0 76300 0 00000 585 TRA70 LLS REGISTER, SHIFT COMPUTED F2105690
Reference
06500 0 62100 0 06515 572 STA TRA70 ONE) AND F2105560

␣TRA80 = 3406

Definition
A 06516 0 76700 0 00000 586 TRA80 ALS AMOUNTS TO CONSTRUCT F2105700
Reference
06502 0 62100 0 06516 574 STA TRA80 SHIFT INSTR. F2105580

␣TRA85 = 3415

Definition
06527 0 34000 1 06567 595 TRA85 CAS TRATAB+19,1 SEARCH TABLE F2105790
Reference
06533 −3 00023 1 06527 599 TRA87 TXL TRA85,1,19 F2105830

␣TRA86 = 3418

Definition
06532 1 00001 1 06533 598 TRA86 TXI TRA87,1,1 F2105820
Reference
06530 0 02000 0 06532 596 TRA TRA86 TO OBTAIN F2105800

␣TRA87 = 3419

Definition
06533 −3 00023 1 06527 599 TRA87 TXL TRA85,1,19 F2105830
Reference
06532 1 00001 1 06533 598 TRA86 TXI TRA87,1,1 F2105820

␣TRA90 = 3421

Definition
06535 −0 75400 1 00000 601 TRA90 PXD 0,1 PUT LEVEL IN ACC DECREMENT F2105850
Reference
06531 0 02000 0 06535 597 TRA TRA90 LEVEL INTEGER F2105810

␣TRA95 = 3422

Definition
06536 0 02000 4 00001 602 TRA95 TRA 1,4 EXIT. F2105860
Reference
06520 0 10000 0 06536 588 TZE TRA95 UNION OF T2 WORDS. EXIT IF ZERO. F2105720

␣TRADZ = 2227

Definition
04263 25 TRADZ BSS 1 F2100090

References (2)

	06023	0 50000 4 04263	262	GTV10	CLA	TRADZ,4 TO GET ADDRESSES	F2102460
	07154	0 00372 0 04263	878	TRADAD	HTR	TRADZ,0,250 DEC CONTAINS MAX NR OF	F2108590

␣TRAN1 = 3423

Definition
06537 0 00000 0 00001 603 TRAN1 HTR 1 F2105870

References (2)

	06477	0 40200 0 06537	571		SUB	TRAN1 COMPUTE 35 MINUS (L M1NUS	F2105530
	06522	0 40200 0 06537	590		SUB	TRAN1 IN ACC.	F2105740

␣TRAN2 = 3424

Definition
06540 0 00000 0 00043 604 TRAN2 HTR 35 F2105880
Reference
06501 0 40200 0 06540 573 SUB TRAN2 INITIALIZE F2105570

␣TRAN4 = 3425

Definition
06541 +377777777777 605 TRAN4 OCT 377777777777 F2105890
Reference
06514 0 56000 0 06541 584 TRA60 LDQ TRAN4 PUT MASK IN QUOTIENT F2105680

␣TRAN5 = 3426

Definition
A 06542 0 00000 0 00000 606 TRAN5 HTR F2105900

References (5)

06504	0 60100 0 06542	576	STO	TRAN5 ES LOCATION TO ZERO	F2105600
06506	−0 60200 0 06542	578	ORS	TRAN5 T2 WORDS OF THIS DO	F2105620
06517	−0 32000 0 06542	587	ANA	TRAN5 MASK IN ACC. AND IN	F2105710
06521	0 60100 0 06542	589	STO	TRAN5 OBTAIN LOW ORDER BIT	F2105730
06524	−0 50100 0 06542	592	ORA	TRAN5	F2105760

␣TRAN6 = 3427

Definition
A 06543 0 00000 0 00000 607 TRAN6 HTR F2105910

References (2)

	06523	0 60100 0 06543	591		STO	TRAN6	F2105750
	06525	0 40200 0 06543	593		SUB	TRAN6	F2105770

␣TSV10 = 3453

Definition
06575 −0 63400 1 06652 634 TSV10 SXD TS40,1 INITIALIZE TEST INSTRS. F2106180
Reference
06572 −3 01747 1 06575 631 TXL TSV10,1,999 F2106150

␣TSV20 = 3459

Definition
06603 −0 53400 1 00030 640 TSV20 LXD DOTAG−1,1 DOTAG TEST INITIALIZING F2106240
Reference
06600 0 02000 0 06603 637 TRA TSV20 OFF, NOT EMPTY F2106210

␣TTAPE = 146

Definition
00222 985 TTAPE EQU 146 F2109722

References (5)

05526	0 76400 0 00222	70		BST	TTAPE POSITION TAPE TWO	F2100540
05530	0 76400 0 00222	72	TAP10	BST	TTAPE TABLES	F2100560
07070	0 76200 0 00222	826	RT10	RDS	TTAPE SELECT TAPE	F2108070
07116	0 76400 0 00222	848		BST	TTAPE ERROR, BACKSPACE TAPE	F2108290
07244	0 76200 0 00222	936	EB70	RDS	TTAPE MOVE TTAPE PAST	F2109170

4TAGAD = 3694

Definition
07156 0 02734 0 03670 880 4TAGAD HTR FORTZ,0,1500 F2108610
Reference
07235 0 50000 0 07156 929 CLA 4TAGAD IN F2109100

4VALAD = 3690

Definition
07152 0 01750 0 04510 876 4VALAD HTR 4VALZ,0,1000 ADDRESS OF LAST WORD IN F2108570
Reference
06567 0 50000 0 07152 628 TS4VAL CLA 4VALAD READ IN F2106120

4VARAD = 3693

Definition
07155 0 02734 0 05474 879 4VARAD HTR 4VARZ,0,1500 WRDS. F2108600
Reference
06761 0 50000 0 07155 754 CLA 4VARAD FORVAR F2107350

ADDMSK = 2894

Definition
05516 +000000077777 61 ADDMSK OCT 77777 F2100450

References (7)

05632	−0 32000 0 05516	139		ANA	ADDMSK OBTAIN BETA	F2101230
05635	−0 32000 0 05516	142		ANA	ADDMSK AND SUBTRCT NEW BETA..	F2101260
06001	−0 32000 0 05516	244	3ADIF	ANA	ADDMSK THE FOLLOWING ROUTINES	F2102280
06012	−0 32000 0 05516	253		ANA	ADDMSK TIFGO ENTRY.	F2102370
06170	−0 32000 0 05516	367		ANA	ADDMSK OF THIS DO	F2103510
06443	−0 32000 0 05516	542		ANA	ADDMSK AND COMPARE	F2105260
06716	−0 32000 0 05516	715		ANA	ADDMSK OBTAINING NEW SUBNEST DO.	F2106990

BITONE = 2889

Definition
05511 +200000000000 56 BITONE OCT 200000000000 F2100400

References (4)

05746	0 50000 0 05511	216	CLA	BITONE PUT BIT IN DOTAG FOR TRA	F2102000
06433	0 50000 0 05511	534	CLA	BITONE	F2105180
07037	0 50000 0 05511	800	CLA	BITONE	F2107810
07167	−0 32000 0 05511	890	ANA	BITONE TEST FOR TRA IN IMMED. RANGE.	F2108710

BITTWO = 2890

Definition
05512 +100000000000 57 BITTWO OCT 100000000000 F2100410
Reference
05573 0 50000 0 05512 108 CLA BITTWO IN L WORD FOR X NOT F2100920

DECADD = 2891

Definition
05513 +077777077777 58 DECADD OCT 77777077777 F2100420
Reference
05615 −0 32000 0 05513 126 ANA DECADD BACK SUBNEST DO, REMOVE F2101100

DECMSK = 2892

Definition
05514 +077777000000 59 DECMSK OCT 77777000000 F2100430

References (15)

05642	−0 32000 0 05514	147	ANA	DECMSK OBTAIN LEVEL OF XRC DO,	F2101310
05646	−0 32000 0 05514	151	ANA	DECMSK	F2101350
05710	−0 32000 0 05514	186	ANA	DECMSK AND	F2101700
05716	−0 32000 0 05514	192	ANA	DECMSK ENTRY IN NEST.	F2101760
06006	−0 32000 0 05514	249	ANA	DECMSK WHEN ALL ADDRESSES	F2102330
06115	−0 32000 0 05514	323	ANA	DECMSK	F2103070
06175	−0 32000 0 05514	372	ANA	DECMSK THIS DO IS OF SAME	F2103560
06201	−0 32000 0 05514	376	ANA	DECMSK TRANSFER LEVEL OF THIS	F2103600
06224	−0 32000 0 05514	396	ANA	DECMSK GET ALPHA ALONE.	F2103800
06416	−0 32000 0 05514	521	ANA	DECMSK DO SYM NOT IN THE	F2105050
06425	−0 32000 0 05514	528	ANA	DECMSK	F2111120
06436	−0 32000 0 05514	537	ANA	DECMSK AND STORE	F2105210
06625	−0 32000 0 05514	658	ANA	DECMSK NEST ADDRESS BNA, AND	F2106420
06712	−0 32000 0 05514	711	ANA	DECMSK TEST TO SEE IF FORTAG	F2106950
07003	−0 32000 0 05514	772	ANA	DECMSK STORE IN RFIRST AND RLAST	F2107530

DOTAGZ = 1375

Definition
02537 19 DOTAGZ BSS 1 F2100030

References (90)

05560	0 60100 1 02544	97		STO	DOTAGZ+5,1 STORE LEVEL IN L WORD	F2100810
05561	0 50000 1 02537	98		CLA	DOTAGZ,1 INSPECT TAG OF FIRST WORD)	F2100820
05574	−0 60200 1 02544	109		ORS	DOTAGZ+5,1 COMPUTABLE AND GO TO	F2100930
05576	0 50000 1 02542	111	MR20	CLA	DOTAGZ+3,1 COMPUTE X AND STORE IN	F2100950
05577	0 40200 1 02541	112		SUB	DOTAGZ+2,1 L WORD	F2100960
05600	0 40000 1 02543	113		ADD	DOTAGZ+4,1	F2100970
05602	0 22000 1 02543	115		DVH	DOTAGZ+4,1	F2100990
05603	0 20000 1 02543	116		MPY	DOTAGZ+4,1	F2101000
05605	0 62100 1 02544	118		STA	DOTAGZ+5,1	F2101020
05607	0 50000 4 02537	120		CLA	DOTAGZ,4 OBTAIN NEXT BACK.SUBNEST	F2101040
05614	0 50000 4 02537	125	MR30	CLA	DOTAGZ,4 OBTAIN FIRST WORD OF NEXT	F2101090
05617	0 40200 1 02537	128		SUB	DOTAGZ,1 SUB FIRST WORD CURRENT DO.	F2101120
05624	−0 60200 1 02544	133	MR50	ORS	DOTAGZ+5,1 L WORD OF CURRENT DA.	F2101170
05631	0 50000 1 02537	138		CLA	DOTAGZ,1 OBTAIN FIRST WORD NEW DO.	F2101220
05634	0 50000 4 02537	141	MR75	CLA	DOTAGZ,4 OBTAIN BETA OF XRC DO,	F2101250
05641	0 50000 4 02544	146		CLA	DOTAGZ+5,4 XRC DO CONTAINS NEW DO,	F2101300
05645	0 50000 1 02537	150	MR80	CLA	DOTAGZ,1	F2101340
05654	0 50000 4 02544	157	MR85	CLA	DOTAGZ+5,4	F2101410
05677	0 50000 1 02544	177	FLO15	CLA	DOTAGZ+5,1 OBTAIN LEVEL OF DO	F2101610
05706	0 50000 1 02537	184		CLA	DOTAGZ,1 INITIALIZE	F2101680
05747	−0 60200 1 02545	217		ORS	DOTAGZ+6,1 IN IMMEDIATE RANGE.	F2102010
06052	−0 60200 1 02546	286		ORS	DOTAGZ+7,1	F2102700
06067	−0 60200 1 02544	300		ORS	DOTAGZ+5,1	F2102840
06072	0 50000 1 02544	303	RS40	CLA	DOTAGZ+5,1 AND RETURN	F2102870
06114	0 50000 1 02544	322		CLA	DOTAGZ+5,1	F2103060
06123	0 50000 1 02537	329	INC50	CLA	DOTAGZ,1 OBTAIN BETA OF	F2103130
06136	0 32000 1 02544	340		ANS	DOTAGZ+5,1	F2103240
06156	0 50000 1 02544	357		CLA	DOTAGZ+5,1	F2103410
06167	0 50000 1 02537	366		CLA	DOTAGZ,1 IF BETA	F2103500
06174	0 50000 1 02544	371		CLA	DOTAGZ+5,1 TO SEE IF	F2103550
06200	0 50000 1 02545	375		CLA	DOTAGZ+6,1 IF SO, MAKE NO CARRY	F2103590
06205	0 62200 1 02545	380		STD	DOTAGZ+6,1	F2103640
06222	0 50000 1 02537	394	ADL10	CLA	DOTAGZ,1 OBTAIN FIRST WORD.	F2103780
06241	0 50000 1 02544	409		CLA	DOTAGZ+5,1 PUT LEVEL IN XRC.	F2103930
06246	0 50000 1 02544	414		CLA	DOTAGZ+5,1 IF NOT ZERO, GET LDA IN	F2103980
06316	0 50000 1 02537	457	SV20	CLA	DOTAGZ,1 OBTAIN FIRST WORD CURRENT	F2104410
06322	0 50000 4 02540	461	SV30	CLA	DOTAGZ+1,4 OBTAIN SYM OF XRC,	F2104450
06324	0 34000 1 02543	463	SV40	CAS	DOTAGZ+4,1 AND TEST FOR SYM EQUALS VAR.N.	F2104470
06334	0 50000 4 02544	471		CLA	DOTAGZ+5,4 OTHERWISE TEST FOR,NEW NEST,	F2104550
06342	0 50000 1 02544	477		CLA	DOTAGZ+5,1	F2104610
06370	0 50000 1 02544	499	SF35	CLA	DOTAGZ+5,1 PUT LEVEL OF D(XRA) IN	F2104830
06377	0 50000 1 02544	506	SF60	CLA	DOTAGZ+5,1 THIS ROUTINE, BY RAISING	F2104900
06415	0 50000 1 02544	520		CLA	DOTAGZ+5,1 DEFINITION FROM A	F2105040
06424	0 50000 1 02544	527	SF79	CLA	DOTAGZ+5,1	F2105110
06434	−0 60200 1 02544	535		ORS	DOTAGZ+5,1	F2105190
06435	0 50000 1 02544	536		CLA	DOTAGZ+5,1 OBTAIN LEVEL OF DEFINITION	F2105200
06442	0 50000 1 02547	541		CLA	DOTAGZ+8,1 OBTAIN PREVIOUS LEV. DEF.	F2105250
06450	0 62100 1 02547	547		STA	DOTAGZ+8,1 REPLACE OLD WITH NEW	F2105310
06452	0 50000 1 02543	549	SF92	CLA	DOTAGZ+4,1 OBTAIN VAR. N IN ACC.	F2105330
06454	0 34000 1 02543	551	SF94	CAS	DOTAGZ+4,1 COMPARE, TO FIND DUPLICATE	F2105350
06463	0 62100 1 02547	558		STA	DOTAGZ+8,1 OLD LEVEL	F2105420
06470	0 50000 1 02544	564	TRA00	CLA	DOTAGZ+5,1 OBTAIL LEVEL OF DO	F2105480
06505	−0 50000 1 02546	577	TRA30	CAL	DOTAGZ+7,1 OR INTO TRAN5 ALL THE	F2105610
06511	0 50000 1 02544	581		CLA	DOTAGZ+5,1	F2105650
06612	0 50000 1 02544	647	TS10	CLA	DOTAGZ+5,1 OBTAIN LEVEL OF CURRENT	F2106310
06623	0 50000 1 02537	656		CLA	DOTAGZ,1 L IS ONE, DO NEST PR0CEDURE.	F2106400
06644	0 50000 1 02537	673	TS30	CLA	DOTAGZ,1 INNER DO PROCEDURE.	F2106570
06665	0 34000 1 02543	690	TS60	CAS	DOTAGZ+4,1 SYMBOL, COMPARE WITH VAR	F2106740
06703	0 50000 1 02544	704	TS85	CLA	DOTAGZ+5,1 OBTAIN NEXT BACK DO IN	F2106880
06711	0 50000 1 02537	710	T100	CLA	DOTAGZ,1 NEXT BACK DO FOUND.	F2106940
06715	0 50000 1 02537	714		CLA	DOTAGZ,1 TO ADJUST LEVEL FOR	F2106980
06725	0 50000 1 02547	724		CLA	DOTAGZ+8,1 XRA, AND OBTAIN LEV. DEF,	F2107060
06734	0 62100 1 02547	731		STA	DOTAGZ+8,1 IF CHANGE MADE, SAVE	F2107130
06737	0 50000 1 02543	734		CLA	DOTAGZ+4,1 SYMBOL	F2107160
06741	0 34000 1 02543	736	T140	CAS	DOTAGZ+4,1 IN DO VAR.N S.	F2107180
06750	0 62100 1 02547	744		STA	DOTAGZ+8,1	F2107230
06751	0 50000 1 02543	745		CLA	DOTAGZ+4,1	F2107260
07001	0 50000 1 02537	770	RH10	CLA	DOTAGZ,1 OBTAIN FIRST DOTAG WORD.	F2107510
07007	0 50000 1 02544	776		CLA	DOTAGZ+5,1 OBTAIN LEVEL IN XRB.	F2107570
07034	0 50000 1 02540	797	RH70	CLA	DOTAGZ+1,1 IN RANGE, COMPARE SYMB0LS	F2107780
07040	−0 60200 1 02544	801		ORS	DOTAGZ+5,1	F2107820
07133	0 70000 1 02537	861	RTD15	CPY	DOTAGZ,1 ENTRY FROM	F2108420
07141	0 60100 1 02537	867	RTD25	STO	DOTAGZ,1 STORE ZERO	F2108480
07143	0 60100 1 02537	869	RTD30	STO	DOTAGZ,1 AND REPEAT.	F2108500
07145	0 60100 1 02537	871	RTD35	STO	DOTAGZ,1 ENTRY IS	F2108520
07147	0 60100 1 02537	873	RTD40	STO	DOTAGZ,1 TRA	F2108540
07151	0 02506 0 02537	875	DOAD	HTR	DOTAGZ,0,1350 ADDRESS PART CONTAINS	F2108560
07165	0 50000 1 02545	888	LB10	CLA	DOTAGZ+6,1 OBTAIN T1 WORD.	F2108690
07172	0 50000 1 02544	893		CLA	DOTAGZ+5,1 PUT LEVEL	F2108740
07175	−0 60200 1 02545	896		ORS	DOTAGZ+6,1 MSK	F2108770
07200	0 50000 1 02544	899	LB30	CLA	DOTAGZ+5,1 SUBNEST DO,	F2108800
07204	0 50000 1 02545	903		CLA	DOTAGZ+6,1 TEST SIGN OF WORD T1.	F2108840
07222	0 50000 1 02544	918		CLA	DOTAGZ+5,1 DOTAG	F2108990
07226	0 70000 1 02537	922	EB30	CPY	DOTAGZ,1 NEST	F2109030
07265	0 50000 4 02537	953		CLA	DOTAGZ,4 SAVE ALPHA DO BETA	F2109331
07267	0 50000 4 02540	955		CLA	DOTAGZ+1,4 AND SYMBOL	F2109351
07271	0 50000 1 02537	957		CLA	DOTAGZ,1 SAVE OTHER ALPHA DO BETA	F2109371
07273	0 50000 1 02540	959		CLA	DOTAGZ+1,1 AND SYMBOL	F2109391
07306	0 50000 1 02537	970		CLA	DOTAGZ,1 ITS BETA	F2109501
07310	0 50000 1 02540	972		CLA	DOTAGZ+1,1	F2109521

ERBETA = 3779

Definition
07303 −0 63400 2 07301 967 ERBETA SXD ERIR2,2 SAVE ALPHA DO BETA F2109471
Reference
05566 0 02000 0 07303 103 TRA ERBETA BETA LESS THAN OR EQUAL TO ALPHA F2100871

ERLIST = 3763

Definition
07263 −0 63400 2 07301 951 ERLIST SXD ERIR2,2 SAVE X R B F2109311

References (2)

	05652	0 02000 0 07263	155		TRA	ERLIST EQUALITY	F2101391
	05653	0 02000 0 07263	156		TRA	ERLIST LESS THAN	F2101401

FLOEND = 3069

Definition
05775 −0 53400 1 06274 239 FLOEND LXD TLT50,1 TEST IF ANY TRALEV ENTRIES F2102230

References (2)

	05704	0 02000 0 05775	182		TRA	FLOEND	F2101660
	05724	0 02000 0 05775	198		TRA	FLOEND IF ANY. IF NONE, EXIT	F2101820

FORTAG = 476

Definition
00734 38 FORTAG BSS 1 F2100211
Reference
07237 −0 63400 1 00733 931 SXD FORTAG−1,1 SET SENSE LIGHT 97 F2109120

FORVAL = 1376

Definition
02540 30 FORVAL BSS 1 F2100140

FORVAR = 1376

Definition
02540 34 FORVAR BSS 1 F2100180

GOTOVN = 3086

Definition
06016 0 50000 4 03671 257 GOTOVN CLA TIFZ+1,4 FOR GOTOV TRANSFERS, F2102410

References (2)

	05770	0 02000 0 06016	234		TRA	GOTOVN 2 VECTOR TYPE TRA	F2102180
	05771	0 02000 0 06016	235		TRA	GOTOVN 1 GO TO N (ASSIGN)	F2102190

L(1000 = 2885

Definition
05505 0 01750 0 00000 52 L(1000 0,0,1000 F2100360
Reference
06606 −0 53400 4 05505 643 LXD L(1000,4 AND F2106270

L(1350 = 2886

Definition
05506 0 02506 0 00000 53 L(1350 0,0,1350 F2100370

References (6)

05555	−0 53400 1 05506	94	LXD	L(1350,1 INITIALIZE XRA TO MAX DOTAG.	F2100780
05676	−0 53400 1 05506	176	LXD	L(1350,1 INITIALIZE XRA, DOTAG INDEX	F2101600
06313	−0 53400 1 05506	454	LXD	L(1350,1 INITIALIZE XRA	F2104380
06605	−0 53400 1 05506	642	LXD	L(1350,1 INITIALIZE XRA	F2106260
07000	−0 53400 1 05506	769	LXD	L(1350,1 PUT MAX WDS IN DOTAG IN XRA.	F2107500
07220	−0 53400 1 05506	916	LXD	L(1350,1 XRA	F2108970

L(1500 = 2887

Definition
05507 0 02734 0 00000 54 L(1500 0,0,1500 F2100380
Reference
06774 −0 53400 1 05507 765 LXD L(1500,1 MAX WORDS IN FORVAL F2107460

L(600) = 2884

Definition
05504 0 01130 0 00000 51 L(600) 0,0,600 F2100350
Reference
05674 −0 53400 4 05504 174 FLO10 LXD L(600),4 INIT1ALIZE F2101580

ONETCS = 4

Definition
00004 982 ONETCS EQU 4 F2109710
Reference
07262 0 02000 0 00004 950 TRA ONETCS GO TO ONE TO CS ( MONITOR). F2109296

RFIRST = 3630

Definition
A 07056 0 00000 0 00000 815 RFIRST HTR ALPHA ADDRESS F2107960

References (2)

	07004	0 60100 0 07056	773		STO	RFIRST	F2107540
	07020	0 50000 0 07056	785		CLA	RFIRST BEGIN SEARCH FOR FIRSTL.	F2107660

TAGMSK = 2893

Definition
05515 +000000700000 60 TAGMSK OCT 700000 F2100440

References (3)

05571	−0 32000 0 05515	106	ANA	TAGMSK IF ZERO( TRA TO MR20)	F2100900
06317	−0 32000 0 05515	458	ANA	TAGMSK DO AND INSPECT TAG	F2104420
06645	−0 32000 0 05515	674	ANA	TAGMSK TEST FOR NON ZERO TAG,	F2106580

TLTAPE = 148

Definition
00224 986 TLTAPE EQU 148 F2109732

References (3)

06261	0 76600 0 00224	426	TLT20	WRS	TLTAPE SELECT TAPE TO WRITE AWAY	F2104100
07254	0 76600 0 00224	944		WRS	TLTAPE ON, EMPTY.	F2109250
07260	0 77000 0 00224	948	EB95	WEF	TLTAPE TRALEV TAPE	F2109290

TRADAD = 3692

Definition
07154 0 00372 0 04263 878 TRADAD HTR TRADZ,0,250 DEC CONTAINS MAX NR OF F2108590
Reference
05541 0 50000 0 07154 81 CLA TRADAD IN F2100650

TRALEV = 2228

Definition
04264 26 TRALEV BSS 1 F2100100

TRATAB = 3428

Definition
06544 +000000200000 608 TRATAB OCT 200000 F2105920
Reference
06527 0 34000 1 06567 595 TRA85 CAS TRATAB+19,1 SEARCH TABLE F2105790

TS4VAL = 3447

Definition
627 FORVAL TABLE SEARCH FOR VARIABLE RANGES AND INCREMENTS F2106110

06567 0 50000 0 07152 628 TS4VAL CLA 4VALAD READ IN F2106120

References (2)

	05552	0 02000 0 06567	90		TRA	TS4VAL	F2100740
D	06340	−3 00000 1 06567	475	SV95	TXL	TS4VAL,1 POSSIBLE. OTHERWISE, EXIT	F2104590

			438			ES FORFLOW	F2104220
		06275	439	BNX	BSS	1 BEGINNING OF NEST INDEX	F2104230

			908			END OF BLOCK ROUTINE	F2108890
	07211	0 77200 0 00223	909	EB00	REW	147 REWIND DOTAG TAPE	F2108900

			163			FLOW, TRANSFER ANALYS1S,	F2101470
	05662	−0 53400 4 02537	164	FLOW	LXD	TIFGO−1,4 TEST FOR EMPTY TIFGO	F2101480

			881			TRANSFER IN EXTENDED RANGE BIT.	F2108620
	07157	−0 76000 0 00143	882	LB00	MSE	99 TEST FOR EMPTY DOTAG	F2108630

			91			MR00 COMPUTES LEVEL, X, CARRY BITS.	F2100750
	05553	−0 53400 1 00030	92	MR00	LXD	DOTAG−1,1 INITIALIZE TEST	F2100760

			752			USE OF SYMBOL WITHIN RANGE AS FXD POINT VAR. FORVAR SEARCH.	F2107330
	06760	−0 53400 2 05501	753	RH00	LXD	L(5),2 READ IN	F2107340

			291			TRANSFER BIT INSERTION IN DO FORMULA	F2102750
	06057	−0 53400 1 06301	292	RS00	LXD	XDG,1 XRA CONTAINS XDG	F2102760

			449			DO SYMBOL DEFINITION OF VARIABLE RANGES AND INCREMENTS	F2104330
	06307	−0 53400 1 00030	450	SV00	LXD	DOTAG−1,1	F2104340

			739			MATCHES VARIABLE N3,N2,N1)	F2107201
	06744	1 00001 1 06745	740	T150	TXI	T160,1,1 NEW LEVEL.	F2107210

			243			CONTROL ROUTINES	F2102270
	06001	−0 32000 0 05516	244	3ADIF	ANA	ADDMSK THE FOLLOWING ROUTINES	F2102280

			389			INDEX AND LEVEL OF ADDRESS	F2103730
	06216	−0 63400 4 06226	390	ADLOC	SXD	ADL20,4 SAVE TSX SET	F2103740

			270			ANALYSIS OF ADDRESS	F2102540
	06033	−0 63400 4 06076	271	FA000	SXD	RS60,4 SAVE TSX SET	F2102550

			308			INDEXING NO CARRY CONDITION	F2102920
	06077	0 50000 0 06305	309	INC00	CLA	LDA EXIT IF	F2102930

			344			RESET NO CARRY CONDITION. NO CARRY TRANSFER LEVEL	F2103280
	06142	0 50000 0 06305	345	RNC00	CLA	LDA EXIT IF LDA IS ZERO	F2103290

			817			TAPE READING ROUTINE	F2107980
	07060	0 62100 0 07101	818	RTAPE	STA	RT40 INITIALIZE TABLE ADDRESS	F2107990

			65			BEGIN BLO CK ONE.	F2100490
	05522	0 77200 0 00224	66	TAP00	REW	148	F2100500

			419			TRALEV LISTING	F2104030
	06253	−0 53400 1 06274	420	TLT00	LXD	TLT50,1 OBTAIN CURRENT TRALEV	F2104040

			563			GREATEST TRANSFER LEVEL OUT OF DO FORMULA	F2105470
	06470	0 50000 1 02544	564	TRA00	CLA	DOTAGZ+5,1 OBTAIL LEVEL OF DO	F2105480

			627			FORVAL TABLE SEARCH FOR VARIABLE RANGES AND INCREMENTS	F2106110
	06567	0 50000 0 07152	628	TS4VAL	CLA	4VALAD READ IN	F2106120