Symbols

␣␣␣␣␣A = 1

Definition
00001 5826 A EQU 1 4F15878

References (301)

06763	0 53400 1 01406	3701	LA0000	LXA	L(0),A	4F13749
06773	0 34000 1 00471	3709		CAS	FORSUB,A SEARCH FN NAME IN FORSUB	4F13757
06774	1 77776 1 06777	3710		TXI	LA0000+12,A,−2	4F13758
06776	1 77776 1 06777	3712		TXI	LA0000+12,A,−2	4F13760
06777	3 00000 1 06773	3713		TXH	LA0000+8,A,0	4F13761
07002	−0 50000 1 00472	3716		CAL	FORSUB+1,A FN NAME IN FORSUB	4F13764
07014	−0 53400 1 01117	3726		LXD	3LBAR,A LOAD LA COUNTERS	4F13774
07017	−3 00000 1 07043	3729		TXL	LA0003,A,0	4F13777
07020	3 75520 1 07022	3730		TXH	LA0001,A,−1200	4F13778
07032	0 34000 1 15215	3740		CAS	ARGREG,A SEARCH FREE VARIABLE TABLE	4F13788
07033	1 77777 1 07036	3741		TXI	LA0000+43,A,−1	4F13789
07035	1 77777 1 07036	3743		TXI	LA0000+43,A,−1	4F13791
07036	3 00000 1 07032	3744		TXH	LA0000+39,A,0	4F13792
07040	−0 75400 1 00000	3746	MS1018	PXD	0,A PRESENT - STORE TYPE IN FSBITS	4F13794
07047	−0 60000 1 15533	3753		STQ	LAMBDA+11,A	4F13801
07050	−0 60000 1 15530	3754		STQ	LAMBDA+8,A	4F13802
07051	−0 60000 1 15525	3755		STQ	LAMBDA+5,A	4F13803
07065	0 60100 1 15531	3767		STO	LAMBDA+9,A	4F13815
07066	0 60100 1 15526	3768		STO	LAMBDA+6,A	4F13816
07067	0 60100 1 15523	3769		STO	LAMBDA+3,A	4F13817
07071	0 60200 1 15535	3771		SLW	LAMBDA+13,A	4F13819
07072	0 60200 1 15532	3772		SLW	LAMBDA+10,A	4F13820
07073	0 60200 1 15527	3773		SLW	LAMBDA+7,A	4F13821
07076	−0 60000 1 15521	3776		STQ	LAMBDA+1,A	4F13824
07110	0 60100 1 15536	3786		STO	LAMBDA+14,A STO (N+3) IN LAMBDA+3 (L+4)+2	4F13834
07115	0 60100 1 15534	3791		STO	LAMBDA+12,A STO -(N+2) IN LAMBDA+3 (L+4)	4F13839
07132	0 60100 1 15533	3804		STO	LAMBDA+11,A STO S(N+3) IN LAMBDA +3(L+3)+2	4F13852
07157	0 60100 1 15531	3825		STO	LAMBDA+9,A STO -0 IN LAMBDA +3(L+3)	4F13873
07171	0 60100 1 15525	3835		STO	LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2	4F13883
07176	0 60100 1 15530	3840		STO	LAMBDA+8,A STO S(N+1) IN LAMBDA+3(L+2)+2	4F13888
07202	0 60100 1 15526	3844	L23090	STO	LAMBDA+6,A STO -N IN LAMBDA+3(L+2)	4F13892
07205	0 60100 1 15523	3847		STO	LAMBDA+3,A STO -0 IN LAMBDA+3(L+1)	4F13895
07210	0 60100 1 15520	3850		STO	LAMBDA,A STO C(ALPHA+A-1) IN LAMBDA+3L	4F13898
07212	1 00006 1 07240	3852		TXI	LA4180,A,6	4F13900
07215	0 60100 1 15531	3855		STO	LAMBDA+9,A STO -0 IN LAMBDA+3(L+3)	4F13903
07220	0 60100 1 15520	3858	LA4010	STO	LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L	4F13906
07224	0 60200 1 15522	3862		SLW	LAMBDA+2,A STO S(N) IN LAMBDA+3L+2	4F13910
07225	0 60100 1 15523	3863		STO	LAMBDA+3,A STO -N IN LAMBDA+3(L+1)	4F13911
07230	0 60100 1 15525	3866		STO	LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2	4F13914
07233	0 60100 1 15526	3869		STO	LAMBDA+6,A STO -(N+1) IN LAMBDA+3IL+2)	4F13917
07236	0 60200 1 15524	3872		SLW	LAMBDA+4,A STO * IN LAMBDA+3(L+1)+1	4F13920
07241	0 60100 1 15530	3875		STO	LAMBDA+8,A STOS(N+2) IN LAMBDA+3(L+2)+2	4F13923
07242	−0 60200 1 15531	3876		ORS	LAMBDA+9,A STO -(N+2) IN LAMBDA+3(L+3)	4F13924
07244	0 60200 1 15527	3878		SLW	LAMBDA+7,A STO SPOP IN LAMBDA+3(L+2)+1	4F13926
07250	0 60200 1 15532	3882		SLW	LAMBDA+10,A STO SPOP IN LAMBDA+3(L+3)+1	4F13930
07251	1 77767 1 00000	3883	LA4320	TXI	**,A,−9	4F13931
07254	0 60100 1 15530	3886		STO	LAMBDA+8,A STO 5(N+2) IN LAMBDA+3(L+2)+2	4F13934
07261	0 60100 1 15533	3891		STO	LAMBDA+11,A STO S(N+2) IN LAMBDA+3(L+3)+2	4F13939
07265	0 60100 1 15531	3895	L33090	STO	LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3)	4F13943
07270	0 60100 1 15526	3898		STO	LAMBDA+6,A	4F13946
07273	0 60100 1 15520	3901		STO	LAMBDA,A STO C(ALPHA+A-2) IN LAMBDA+3L	4F13949
07277	0 60200 1 15522	3905		SLW	LAMBDA+2,A STO S(N) IN LAMBDA+3L+2	4F13953
07300	0 60100 1 15523	3906		STO	LAMBDA+3,A STO -N IN LAMBDA+3(L+1)	4F13954
07301	1 00003 1 07237	3907		TXI	LA4170,A,3	4F13955
07302	1 77775 1 07303	3908	CM4100	TXI	CM4101,A,−3 LA COUNTER MODIFICATION ROUTINES	4F13956
07303	−0 63400 1 01117	3909	CM4101	SXD	3LBAR,A	4F13957
07312	1 77775 1 07313	3916	CM4200	TXI	CM4201,A,−3	4F13964
07313	−0 63400 1 01117	3917	CM4201	SXD	3LBAR,A	4F13965
07315	1 77772 1 07316	3919	CM4300	TXI	CM4301,A,−6	4F13967
07316	−0 63400 1 01117	3920	CM4301	SXD	3LBAR,A	4F13968
07626	−0 53400 1 01360	4159		LXD	NBAR,A LDXA WITH -N	4F14208
07627	−0 63400 1 07636	4160		SXD	R00700,A	4F14209
07630	−0 63400 1 07714	4161		SXD	R05200,A	4F14210
07631	−0 63400 1 10266	4162		SXD	AS0800,A	4F14211
07632	−0 63400 1 10313	4163		SXD	AS2900,A	4F14212
07642	0 50000 1 15520	4171	R01000	CLA	LAMBDA,A ADD INTO GAMMA COUNTERS	4F14220
07650	1 77775 1 07651	4177		TXI	R01700,A,−3	4F14226
07651	3 00000 1 07642	4178	R01700	TXH	R01000,A,0 -3L IN XA AT END	4F14227
07652	3 77772 1 07703	4179	R01800	TXH	R04200,A,−6 EXIT FROM SINGLE ELEMENT REDUCTION	4F14228
07653	0 50000 1 15515	4180		CLA	LAMBDA−3,A	4F14229
07660	1 00003 1 07652	4185		TXI	R01800,A,3	4F14234
07661	0 56000 1 15516	4186	R02600	LDQ	LAMBDA−2,A SINGLE ELEMENT	4F14235
07665	1 00003 1 07652	4190		TXI	R01800,A,3	4F14239
07667	0 32000 1 15515	4192		ANS	LAMBDA−3,A EXTRACT TAGS AND STORE BACK	4F14241
07670	0 50000 1 15512	4193		CLA	LAMBDA−6,A	4F14242
07671	−0 50100 1 15515	4194		ORA	LAMBDA−3,A	4F14243
07672	0 60200 1 15512	4195		SLW	LAMBDA−6,A	4F14244
07673	−0 50000 1 15516	4196		CAL	LAMBDA−2,A EXTRACT FS BITS AND STORE BACK	4F14245
07675	−0 60200 1 15513	4198		ORS	LAMBDA−5,A	4F14247
07676	−0 50000 1 15517	4199		CAL	LAMBDA−1,A STORE BACK SYMBOL	4F14248
07677	0 60200 1 15514	4200		SLW	LAMBDA−4,A	4F14249
07701	0 60000 1 15515	4202		STZ	LAMBDA−3,A CLEAR TAG WORD	4F14251
07702	1 00003 1 07652	4203		TXI	R01800,A,3 RESUME SCAN-BACK	4F14252
07715	−0 50000 1 15520	4214	R05300	CAL	LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE	4F14263
07720	0 50000 1 15521	4217		CLA	LAMBDA+1,A	4F14266
07722	0 50000 1 15522	4219		CLA	LAMBDA+2,A	4F14268
07725	1 77775 1 07726	4222	R06100	TXI	R06200,A,−3	4F14271
07726	3 00000 1 07715	4223	R06200	TXH	R05300,A,0	4F14272
07731	0 53400 1 01406	4226		LXA	L(0),A	4F14275
07732	0 50000 1 15520	4227	R06400	CLA	LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE	4F14276
07736	0 50000 1 15520	4231		CLA	LAMBDA,A	4F14280
07740	0 50000 1 15521	4233		CLA	LAMBDA+1,A	4F14282
07742	0 50000 1 15522	4235		CLA	LAMBDA+2,A	4F14284
07747	1 77775 1 07750	4240		TXI	R07800,A,−3	4F14289
07750	3 00000 1 07732	4241	R07800	TXH	R06400,A,0 -3P IN XA AT END	4F14290
07752	−0 50000 1 16645	4243	CS0010	CAL	SCRIPL−3,A	4F14292
07762	1 00003 1 07752	4251	CS0080	TXI	CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT	4F14300
07763	−0 63400 1 10036	4252	CS0090	SXD	CS0470,A SAVE XA	4F14301
07766	1 00003 1 07767	4255		TXI	CS0120,A,3	4F14304
07770	−0 50000 1 16645	4257	CS0130	CAL	SCRIPL−3,A	4F14306
07772	1 00003 1 07770	4259		TXI	CS0130,A,3 ERASED SEGMENT	4F14308
10004	−0 63400 1 10054	4269		SXD	CS0600,A	4F14318
10007	0 40200 1 16647	4272		SUB	SCRIPL−1,A	4F14321
10014	−0 50000 1 16645	4277		CAL	SCRIPL−3,A	4F14326
10025	0 40200 1 16646	4286		SUB	SCRIPL−2,A	4F14335
10027	1 00003 1 10030	4288		TXI	CS0360,A,3 OPS MATCH	4F14337
10032	−0 50000 1 16650	4291	CS0430	CAL	SCRIPL,A MATCHING SEGMENTS	4F14340
10034	0 34000 1 16647	4293	CS0450	CAS	SCRIPL−1,A	4F14342
10035	1 00003 1 10034	4294		TXI	CS0450,A,3	4F14343
10037	1 00003 1 10034	4296		TXI	CS0450,A,3	4F14345
10041	0 62100 1 16647	4298		STA	SCRIPL−1,A	4F14347
10043	−0 53400 1 10054	4300		LXD	CS0600,A	4F14349
10045	−0 60000 1 16645	4302		STQ	SCRIPL−3,A	4F14351
10046	1 00003 1 10047	4303		TXI	CS0560,A,3	4F14352
10055	−0 53400 1 10036	4310	CS0610	LXD	CS0470,A	4F14359
10060	1 00003 1 10061	4313		TXI	CS0650,A,3	4F14362
10063	−0 50000 1 16650	4316	CS0670	CAL	SCRIPL,A	4F14365
10066	0 50000 1 16651	4319		CLA	SCRIPL+1,A	4F14368
10070	0 50000 1 16652	4321		CLA	SCRIPL+2,A	4F14370
10073	1 77775 1 10074	4324	CS0750	TXI	CS0760,A,−3	4F14373
10074	3 00000 1 10063	4325	CS0760	TXH	CS0670,A,0	4F14374
10101	0 53400 1 01406	4330		LXA	L(0),A PERMUTE * AND /	4F14379
10102	0 50000 1 16650	4331	PM0010	CLA	SCRIPL,A	4F14380
10110	1 00000 1 10111	4337	PM0070	TXI	PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO *	4F14386
10111	−3 00000 1 10256	4338	PM0080	TXL	AS0000,A,0 EXIT FROM PERMUTATION ROUTINE	4F14387
10113	0 56000 1 16651	4340	PM0100	LDQ	SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3	4F14389
10126	1 77775 1 10127	4351		TXI	PM0240,A,−3	4F14400
10136	0 56000 1 16651	4359		LDQ	SCRIPL+1,A	4F14408
10144	1 77775 1 10127	4365		TXI	PM0240,A,−3 NO	4F14414
10156	0 50000 1 16650	4375	PM0480	CLA	SCRIPL,A PERMUTE TAG WORDS	4F14424
10160	−0 60000 1 16650	4377		STQ	SCRIPL,A	4F14426
10162	0 50000 1 16651	4379		CLA	SCRIPL+1,A PERMUTE OP WORDS	4F14428
10164	−0 60000 1 16651	4381		STQ	SCRIPL+1,A	4F14430
10166	0 50000 1 16652	4383		CLA	SCRIPL+2,A PERMUTE SYMBOL WORDS	4F14432
10170	−0 60000 1 16652	4385		STQ	SCRIPL+2,A	4F14434
10173	1 77775 1 10130	4388		TXI	PM0250,A,−3 RESUME SEGMENT SCAN	4F14437
10176	1 77775 1 10130	4391		TXI	PM0250,A,−3	4F14440
10210	−0 53400 1 10211	4401	PM0770	LXD	PM0780,A	4F14450
10213	0 56000 1 16646	4404		LDQ	SCRIPL−2,A	4F14453
10220	0 56000 1 16643	4409		LDQ	SCRIPL−5,A	4F14458
10224	0 50000 1 16645	4413		CLA	SCRIPL−3,A ... **	4F14462
10226	0 50000 1 16646	4415		CLA	SCRIPL−2,A	4F14464
10230	0 50000 1 16647	4417		CLA	SCRIPL−1,A	4F14466
10232	1 00003 1 10233	4419		TXI	PM0980,A,3	4F14468
10235	0 50000 1 16645	4422		CLA	SCRIPL−3,A	4F14471
10236	0 60100 1 16650	4423		STO	SCRIPL,A	4F14472
10237	0 50000 1 16646	4424		CLA	SCRIPL−2,A	4F14473
10240	0 60100 1 16651	4425		STO	SCRIPL+1,A	4F14474
10241	0 50000 1 16647	4426		CLA	SCRIPL−1,A	4F14475
10242	0 60100 1 16652	4427		STO	SCRIPL+2,A	4F14476
10243	1 00003 1 10233	4428		TXI	PM0980,A,3	4F14477
10245	0 60100 1 16650	4430		STO	SCRIPL,A	4F14479
10247	0 60100 1 16651	4432		STO	SCRIPL+1,A	4F14481
10251	0 60100 1 16652	4434		STO	SCRIPL+2,A	4F14483
10252	−0 50000 1 16654	4435		CAL	SCRIPL+4,A PRESERVE CS BIT	4F14464
10254	−0 60200 1 16651	4437		ORS	SCRIPL+1,A	4F14486
10267	0 50000 1 16650	4448	AS0900	CLA	SCRIPL,A	4F14497
10272	0 62100 1 16650	4451		STA	SCRIPL,A	4F14500
10273	0 56000 1 16652	4452		LDQ	SCRIPL+2,A	4F14501
10277	1 77775 1 10300	4456		TXI	AS1800,A,−3	4F14505
10300	3 00000 1 10267	4457	AS1800	TXH	AS0900,A,0	4F14506
10305	0 62100 1 16652	4462		STA	SCRIPL+2,A	4F14511
10306	1 77775 1 10300	4463		TXI	AS1800,A,−3	4F14512
10314	0 50000 1 16650	4469	AS3000	CLA	SCRIPL,A ADD INTO GAMMA COUNTERS	4F14518
10322	1 77775 1 10323	4475		TXI	AS3600,A,−3	4F14524
10323	3 00000 1 10314	4476	AS3600	TXH	AS3000,A,0 -3Q IN XA AT END	4F14525
10324	−0 63400 1 01117	4477		SXD	3QBAR,A -3Q TO 3QBAR = 3LBAR	4F14526
10325	−0 50000 1 16645	4478	CCS000	CAL	SCRIPL−3,A ELIMINATE COMMON SUBEXPRESSIONS	4F14527
10332	1 00000 1 10333	4483	CCS060	TXI	CCS070,A,0 BEGINNING OF CURRENT SEGMENT	4F14532
10333	−0 50000 1 16651	4484	CCS070	CAL	SCRIPL+1,A OBTAIN OP1 (S(I))	4F14533
10352	0 32000 1 16651	4499		ANS	SCRIPL+1,A OP1(S(I))30 TO 0, AND	4F14548
10354	−0 53400 1 10323	4501	CCS240	LXD	AS3600,A -3Q TO XA	4F14550
10355	−3 00000 1 10610	4502	PL0000	TXL	LK0000,A,0 GO TO LINKAGE	4F14551
10356	0 50000 1 16645	4503		CLA	SCRIPL−3,A	4F14552
10363	1 00000 1 10364	4508	PL0060	TXI	PL0070,A,0 SET XA TO BEGINNING OF S(I)	4F14557
10365	0 56000 1 16651	4510		LDQ	SCRIPL+1,A OBTAIN	4F14559
10373	0 56000 1 16652	4516		LDQ	SCRIPL+2,A OBTAIN	4F14565
10406	−0 60200 1 16651	4527	PL0250	ORS	SCRIPL+1,A	4F14576
10417	0 40200 1 16652	4536		SUB	SCRIPL+2,A	4F14585
10431	0 56000 1 16652	4546	PL0461	LDQ	SCRIPL+2,A FS NAME -	4F14595
10441	0 56000 1 16652	4554		LDQ	SCRIPL+2,A	4F14603
10445	0 50000 1 16652	4558	PL0470	CLA	SCRIPL+2,A NOT AN FS NAME	4F14607
10455	−0 63400 1 10407	4566		SXD	PL0260,A	4F14615
10456	0 07400 1 03321	4567		TSX	TET00,A	4F14616
10460	−0 53400 1 10407	4569		LXD	PL0260,A	4F14618
10463	−0 60200 1 16651	4572		ORS	SCRIPL+1,A	4F14621
10467	0 56000 1 16652	4576		LDQ	SCRIPL+2,A OBTAIN AND	4F14625
10502	−0 60200 1 16651	4587	PL0820	ORS	SCRIPL+1,A	4F14636
10504	0 56000 1 16655	4589		LDQ	SCRIPL+5,A OBTAIN	4F14638
10541	0 60100 1 16655	4618		STO	SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP	4F14667
10543	−0 60200 1 16651	4620		ORS	SCRIPL+1,A OP1 (S(I)) 33 = 1	4F14669
10546	−0 60200 1 16654	4623		ORS	SCRIPL+4,A SET OP2 (S(I)) 32 = 1	4F14672
10557	0 40200 1 16652	4632		SUB	SCRIPL+2,A	4F14681
10577	0 40200 1 16655	4648		SUB	SCRIPL+5,A	4F14697
10606	−0 60200 1 16654	4655		ORS	SCRIPL+4,A	4F14704
10610	−0 53400 1 10323	4657	LK0000	LXD	AS3600,A -3Q TO XA	4F14706
10611	−0 50000 1 16645	4658	LK0030	CAL	SCRIPL−3,A	4F14707
10614	0 56000 1 16646	4661		LDQ	SCRIPL−2,A PLACE LAST OP OP S(I) IN MQ	4F14710
10617	1 00000 1 10620	4664	LK0110	TXI	LK0120,A,0 MOVE XA TO BEGINNING OF S(I)	4F14713
10622	−0 63400 1 10323	4667	LK0140	SXD	AS3600,A	4F14716
10633	−0 60200 1 16651	4676		ORS	SCRIPL+1,A SET OP1 (S(I)) 31 = 1	4F14725
10645	−0 50000 1 16650	4686		CAL	SCRIPL,A	4F14735
10655	−0 60200 1 16651	4694		ORS	SCRIPL+1,A	4F14743
10673	−0 50000 1 16650	4708	LK0630	CAL	SCRIPL,A	4F14757
10676	0 34000 1 16647	4711		CAS	SCRIPL−1,A	4F14760
10677	1 00003 1 10702	4712		TXI	LK0700,A,3	4F14761
10701	1 00003 1 10702	4714		TXI	LK0700,A,3 NOT FOUND - CONTINUE SEARCH	4F14763
10703	0 56000 1 16646	4716	LK0710	LDQ	SCRIPL−2,A S(I) IS SYMJ (S(I-1))	4F14765
10706	1 00003 1 10702	4719		TXI	LK0700,A,3 NO... CONTINUE SEARCH	4F14768
10710	0 56000 1 16645	4721		LDQ	SCRIPL−3,A EXCHANGE	4F14770
10711	0 60100 1 16645	4722		STO	SCRIPL−3,A TAG	4F14771
10714	0 56000 1 16646	4725		LDQ	SCRIPL−2,A PLACE OPJ (S(I-1)) IN MQ	4F14774
10715	0 60200 1 16646	4726		SLW	SCRIPL−2,A EXCHANGE	4F14775
10722	0 56000 1 16647	4731		LDQ	SCRIPL−1,A EXCHANGE	4F14780
10723	0 60100 1 16647	4732		STO	SCRIPL−1,A SYMBOL	4F14781
10725	−0 53400 1 10323	4734		LXD	AS3600,A RESTORE XA	4F14783
10731	−0 50000 1 16650	4738		CAL	SCRIPL,A	4F14787
10761	−0 50000 1 16650	4762		CAL	SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = + OR -	4F14811
10764	0 34000 1 16647	4765		CAS	SCRIPL−1,A	4F14814
10765	1 00003 1 10770	4766		TXI	LK1330,A,3	4F14815
10767	1 00003 1 10770	4768		TXI	LK1330,A,3 NOT FOUND... CONTINUE SEARCH	4F14817
10772	−0 50000 1 16650	4771		CAL	SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = **	4F14820
11010	−0 50000 1 16650	4785		CAL	SCRIPL,A	4F14834
11022	0 56000 1 16646	4795		LDQ	SCRIPL−2,A	4F14844
11074	−0 50000 1 16645	4837	PC0040	CAL	SCRIPL−3,A	4F14886
11101	1 00000 1 11102	4842	PC0100	TXI	PC0110,A,0	4F14891
11102	0 56000 1 16651	4843	PC0110	LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F14892
11155	−0 53400 1 01117	4890	MC00OO	LXD	3QBAR,A MODE CHECKING ROUTINE	4F14940
11156	−0 63400 1 11227	4891		SXD	MC0420,A	4F14941
11157	0 53400 1 01406	4892		LXA	L(0),A	4F14942
11160	−0 63400 1 11176	4893	MC0030	SXD	XASAVE,A	4F14943
11161	−0 50000 1 16650	4894		CAL	SCRIPL,A	4F14944
11172	0 56000 1 16651	4903		LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F14953
11203	0 56000 1 16652	4912		LDQ	SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = 1....	4F14962
11224	1 77775 1 11202	4929		TXI	MC0210,A,−3 CONTINUE SCANNING S(I). J TO J+1	4F14979
11225	−0 53400 1 11176	4930	MC0400	LXD	XASAVE,A GO T0 S(I+1)	4F14980
11226	1 00000 1 11227	4931	MC0410	TXI	MC0420,A,0	4F14981
11227	3 00000 1 11160	4932	MC0420	TXH	MC0030,A,0	4F14982
11236	0 34000 1 16652	4939		CAS	SCRIPL+2,A AND COMPARE WITH SYMJ (S(I))	4F14989
11270	−0 53400 1 01117	4966		LXD	3QBAR,A -3Q TO XA	4F15016
11271	0 50000 1 16645	4967	CP0130	CLA	SCRIPL−3,A EXTRACT CURRENT S(II	4F15017
11304	1 00000 1 11305	4978	CP0240	TXI	CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I)	4F15028
11305	−0 63400 1 01117	4979	CP0250	SXD	3QBAR,A	4F15029
11306	0 56000 1 16651	4980		LDQ	SCRIPL+1,A EXAMINE OP1 (S(I)I 29,30,31,32	4F15030
11330	0 56000 1 16651	4998		LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F15048
11334	1 77775 1 11543	5002		TXI	CP2040,A,−3	4F15052
11345	1 77775 1 11346	5011		TXI	CP0590,A,−3	4F15061
11347	0 56000 1 16651	5013		LDQ	SCRIPL+1,A PLACE OPJ (S(I)) IN MQ	4F15063
11556	0 50000 1 16651	5148		CLA	SCRIPL+1,A	4F15198
11566	1 77775 1 11574	5156		TXI	CP2200,A,−3 GO ON TO OP3(S(I))	4F15206
11601	0 50000 1 16651	5167		CLA	SCRIPL+1,A	4F15217
11611	1 77775 1 11617	5175		TXI	CP2350,A,−3 GO ON TO SYM4(S(I))	4F15225
11641	1 77775 1 11621	5199		TXI	CP2370,A,−3	4F15249
11642	−0 53400 1 01117	5200	CP2500	LXD	3QBAR,A FINISHED WITH S(I)	4F15250
11654	−0 50000 1 16652	5210		CAL	SCRIPL+2,A	4F15260
11671	0 50000 1 16647	5224		CLA	SCRIPL−1,A	4F15274
11701	0 50000 1 16651	5232		CLA	SCRIPL+1,A	4F15282
11726	1 77775 1 11720	5253		TXI	CP2930,A,−3	4F15303
11735	0 50000 1 16651	5260		CLA	SCRIPL+1,A CLOSED UNIVARIATE FUNCTION	4F15310
11751	0 50000 1 16647	5272		CLA	SCRIPL−1,A	4F15322
11764	0 50000 1 16651	5283		CLA	SCRIPL+1,A CLOSED BIVARIATE FUNCTION	4F15338
11771	1 77775 1 11772	5288		TXI	CP3420,A,−3	4F15343
11774	1 00003 1 11740	5291		TXI	CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE	4F15346
11775	0 50000 1 16654	5292	CP3450	CLA	SCRIPL+4,A	4F15347
12007	0 50000 1 16651	5302	CP3560	CLA	SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION	4F15357
12011	1 77772 1 12041	5304		TXI	CP3820,A,−6 0... ARG1 STORED	4F15359
12012	1 77772 1 12013	5305		TXI	CP3600,A,−6 1... ARG1 IN ACC	4F15360
12035	−0 53400 1 01117	5324		LXD	3QBAR,A FINISHED WITH ARG VECTOR	4F15379
12036	1 77775 1 11767	5325		TXI	CP3390,A,−3	4F15380
12040	1 77775 1 12015	5327		TXI	CP3620,A,−3 GO PICK UP NEXT ARG.	4F15382
12041	0 50000 1 16646	5328	CP3820	CLA	SCRIPL−2,A	4F15383
12043	1 00006 1 12072	5330		TXI	CP4070,A,6 0... ARG2 STORED	4F15385
12066	−0 53400 1 01117	5349		LXD	3QBAR,A FINISHED WITH ARG VECTOR	4F15404
12067	1 77775 1 11755	5350		TXI	CP3280,A,−3	4F15405
12071	1 77775 1 12046	5352		TXI	CP3870,A,−3 GO PICK UP NEXT ARG	4F15407
12077	1 77772 1 12013	5358		TXI	CP3600,A,−6	4F15413
12125	0 50000 1 16655	5380		CLA	SCRIPL+5,A	4F15435
12137	1 77775 1 12140	5390		TXI	CP4470,A,−3	4F15445
12153	0 50000 1 16651	5402		CLA	SCRIPL+1,A	4F15457
12156	1 00003 1 12164	5405		TXI	CP4660,A,3 0...	4F15460
12160	0 56000 1 16646	5407		LDQ	SCRIPL−2,A EXAMINE OP1(S(I))32 TO CHECK	4F15462
12164	0 56000 1 16651	5411	CP4660	LDQ	SCRIPL+1,A	4F15466
12174	0 07400 1 03321	5419		TSX	TET00,A	4F15474
12204	0 50000 1 16654	5427		CLA	SCRIPL+4,A	4F15487
12207	1 77775 1 12142	5430		TXI	CP4490,A,−3 1... EXP IN MQ	4F15490
12216	0 50000 1 16650	5438	CP5050	CLA	SCRIPL,A EXAMINE TAGJ(S(I)), J=2,...	4F15498
12230	−0 60200 1 16651	5448		ORS	SCRIPL+1,A	4F15508
12236	1 77775 1 12216	5454	CP5210	TXI	CP5050,A,−3 GO ON TO NEXT ARGUMENT	4F15513
12267	−0 53400 1 01117	5479	CP5460	LXD	3QBAR,A	4F15539
12304	−0 50000 1 16652	5492		CAL	SCRIPL+2,A	4F15552
12310	1 77775 1 12311	5496		TXI	CP5680,A,−3 POSITION XA TO SYM2(S(I))	4F15556
12311	0 50000 1 16650	5497	CP5680	CLA	SCRIPL,A	4F15557
12315	0 56000 1 16651	5501	CP5700	LDQ	SCRIPL+1,A SUBSCRIPTED	4F15561
12322	−0 50000 1 16652	5506		CAL	SCRIPL+2,A	4F15566
12331	1 77775 1 12311	5513		TXI	CP5680,A,−3	4F15573
12337	−0 53400 1 01117	5519	ES0000	LXD	3QBAR,A -3Q TO XA	4F15579
12342	−0 50000 1 16650	5522		CAL	SCRIPL,A	4F15582
12610	0 07400 1 03321	5688		TSX	TET00,A	4F15748
12627	0 50000 1 16650	5705	AC0000	CLA	SCRIPL,A	4F15765
12631	0 50000 1 16651	5707		CLA	SCRIPL+1,A	4F15767
12633	0 50000 1 16652	5709		CLA	SCRIPL+2,A	4F15769

␣␣␣␣␣B = 2

Definition
00002 5835 B EQU 2 4F15887

References (255)

07015	−0 53400 2 01360	3727		LXD	NBAR,B	4F13775
07022	3 77323 2 07024	3732	LA0001	TXH	LA0002,B,−301	4F13780
07105	1 77775 2 07106	3783		TXI	MS1033,B,−3 -N TO -(N+3)	4F13831
07106	−0 75400 2 00000	3784	MS1033	PXD	,B	4F13832
07111	1 00001 2 07112	3787		TXI	FINI03,B,1 -(N+3) TO - (N+2)	4F13835
07112	−0 75400 2 07315	3788	FINI03	PXD	CM4300,B	4F13836
07117	1 00001 2 07213	3793		TXI	L43130,B,1 UNARY... -(N+2) TO -(N+1)	4F13841
07120	1 00001 2 07155	3794		TXI	L13130,B,1 BINARY... -(N+2) TO - (N+1)	4F13842
07124	1 77775 2 07130	3798		TXI	LA0058,B,−3 -N TO -(N+3)	4F13846
07126	1 77777 2 07217	3800		TXI	LA4000,B,−1 UNARY... -NTO -(N+1)	4F13848
07127	1 77777 2 07161	3801		TXI	LA1000,B,−1 BINARY... -N TO -(N+I)	4F13849
07130	−0 75400 2 00000	3802	LA0058	PXD	,B	4F13850
07140	1 77777 2 07174	3810		TXI	L23000,B,−1 -N TO -(N+1)	4F13858
07144	1 77777 2 07167	3814		TXI	L22000,B,−1 -N TO -(N+1)	4F13862
07147	1 77776 2 07257	3817		TXI	L33000,B,−2 -N TO -(N+2)	4F13865
07152	1 77777 2 07272	3820		TXI	LA3000,B,−1	4F13868
07153	1 77776 2 07252	3821		TXI	L32000,B,−2 -N TO -N(+2)	4F13869
07154	1 77777 2 07272	3822		TXI	LA3000,B,−1	4F13870
07167	−0 75400 2 00000	3833	L22000	PXD	,B	4F13881
07173	1 00001 2 07203	3837		TXI	L23130,B,1 -(N+1) TO -N	4F13885
07174	−0 75400 2 00000	3838	L23000	PXD	,B	4F13886
07201	1 00001 2 07202	3843		TXI	L23090,B,1 -(N+1) TO -N	4F13891
07226	−0 75400 2 00000	3864		PXD	,B	4F13912
07234	1 77777 2 07235	3870		TXI	LA4150,B,−1 -(N+1) TO -(N+2)	4F13916
07237	−0 75400 2 00000	3873	LA4170	PXD	,B	4F13921
07252	−0 75400 2 00000	3884	L32000	PXD	,B	4F13932
07256	1 00001 2 07266	3888		TXI	L33130,B,1 -(N+2) TO -(N+1)	4F13936
07257	−0 75400 2 00000	3889	L33000	PXD	,B	4F13937
07264	1 00001 2 07265	3894		TXI	L33090,B,1 -(N+2) TO -(N+1)	4F13942
07304	−0 63400 2 15277	3910	CM4102	SXD	CBAR,B	4F13958
07305	1 77777 2 07306	3911		TXI	CM4104,B,−1	4F13959
07306	−0 63400 2 01360	3912	CM4104	SXD	NBAR,B	4F13960
07321	1 77777 2 07304	3923		TXI	CM4102,B,−1	4F13971
07634	−0 60000 2 15044	4165	R00500	STQ	BETA,B	4F14214
07635	1 77777 2 07636	4166		TXI	R00700,B,−1	4F14215
07636	3 00000 2 07634	4167	R00700	TXH	R00500,B,0	4F14216
07643	0 73400 2 00000	4172		PAX	0,B	4F14221
07644	0 50000 2 15044	4173		CLA	BETA,B	4F14222
07646	0 62200 2 15044	4175		STD	BETA,B	4F14224
07647	0 62100 2 15044	4176		STA	BETA,B	4F14225
07654	0 73400 2 00000	4181		PAX	0,B	4F14230
07655	0 50000 2 15044	4182		CLA	BETA,B	4F14231
07700	0 60000 2 15044	4201		STZ	BETA,B REDUCE GAMMA COUNT TO 0	4F14250
07705	0 50000 2 15044	4206	R04500	CLA	BETA,B SET ORIGINS OF SCRIPL TABLE	4F14255
07710	−0 62000 2 15044	4209		SLQ	BETA,B	4F14258
07713	1 77777 2 07714	4212	R05100	TXI	R05200,B,−1	4F14261
07714	3 00000 2 07705	4213	R05200	TXH	R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END	4F14262
07733	0 73400 2 00000	4228		PAX	0,B IN SCRIPL TABLE	4F14277
07734	0 50000 2 15044	4229		CLA	BETA,B	4F14278
07746	0 62200 2 15044	4239		STD	BETA,B	4F14288
07754	0 73400 2 00000	4245	CS0030	PAX	0,B	4F14294
07755	−3 00000 2 10062	4246		TXL	CS0660,B,0 EXIT FROM CS ROUTINE	4F14295
07757	0 50000 2 15044	4248		CLA	BETA,B	4F14297
07773	0 73400 2 00000	4260	CS0151	PAX	0,B	4F14309
07774	−3 00000 2 10055	4261		TXL	CS0610,B,0 G0 ON TO NEXT SEGMENT	4F14310
07776	0 50000 2 15044	4263		CLA	BETA,B	4F14312
10003	−0 53400 2 10036	4268		LXD	CS0470,B SAME LENGTH SEGMENT	4F14317
10006	0 50000 2 16647	4271		CLA	SCRIPL−1,B	4F14320
10011	−0 50000 2 16645	4274		CAL	SCRIPL−3,B SYMBOLS MATCH	4F14323
10022	0 50000 2 16646	4283		CLA	SCRIPL−2,B TAGS MATCH	4F14332
10030	1 00003 2 10031	4289	CS0360	TXI	CS0370,B,3	4F14338
10053	−0 60200 2 16651	4308		ORS	SCRIPL+1,B	4F14357
10103	0 73400 2 00000	4332		PAX	0,B	4F14381
10104	0 50000 2 15044	4333		CLA	BETA,B	4F14382
10133	−0 53400 2 10134	4356		LXD	PM0290,B	4F14405
10145	1 77775 2 10146	4366		TXI	PM0390,B,−3 YES - SEARCH FOR / SIGN	4F14415
10151	0 56000 2 16651	4370		LDQ	SCRIPL+1,B	4F14419
10155	1 77775 2 10146	4374		TXI	PM0390,B,−3	4F14423
10157	0 56000 2 16650	4376		LDQ	SCRIPL,B	4F14425
10161	0 60100 2 16650	4378		STO	SCRIPL,B	4F14427
10163	0 56000 2 16651	4380		LDQ	SCRIPL+1,B	4F14429
10165	0 60100 2 16651	4382		STO	SCRIPL+1,B	4F14431
10167	0 56000 2 16652	4384		LDQ	SCRIPL+2,B	4F14433
10171	0 60100 2 16652	4386		STO	SCRIPL+2,B	4F14435
10175	1 77775 2 10177	4390	PM0650	TXI	PM0670,B,−3 NO	4F14439
10202	0 56000 2 16651	4395		LDQ	SCRIPL+1,B	4F14444
10257	0 50000 2 15044	4440	AS0100	CLA	BETA,B	4F14489
10263	0 62100 2 15044	4444		STA	BETA,B	4F14493
10265	1 77777 2 10266	4446	AS0700	TXI	AS0800,B,−1	4F14495
10266	3 00000 2 10257	4447	AS0800	TXH	AS0100,B,0	4F14496
10270	0 73400 2 00000	4449		PAX	0,B	4F14498
10271	0 50000 2 15044	4450		CLA	BETA,B	4F14499
10303	0 73400 2 00000	4460		PAX	0,B	4F14509
10304	0 50000 2 15044	4461		CLA	BETA,B	4F14510
10311	−0 60000 2 15044	4466	AS2700	STQ	BETA,B RECLEAR BETA TABLE	4F14515
10312	1 77777 2 10313	4467		TXI	AS2900,B,−1	4F14516
10313	3 00000 2 10311	4468	AS2900	TXH	AS2700,B,0	4F14517
10315	0 73400 2 00000	4470		PAX	0,B	4F14519
10316	0 50000 2 15044	4471		CLA	BETA,B	4F14520
10320	0 62200 2 15044	4473		STD	BETA,B	4F14522
10321	0 62100 2 15044	4474		STA	BETA,B	4F14523
10326	0 73400 2 00000	4479		PAX	0,B LOAD XB WITH S(I)	4F14528
10327	−3 00000 2 10354	4480		TXL	CCS240,B,0 EXIT AT S(0)	4F14529
10330	−0 50000 2 15044	4481		CAL	BETA,B OBTAIN LENGTH OF S(I)	4F14530
10336	−0 75400 2 00000	4487		PXD	0,B	4F14536
10341	−0 53400 2 10342	4490		LXD	CCS140,B AND KEEP COUNT OF SAME	4F14539
10343	−3 00000 2 10350	4492	CCS150	TXL	CCS200,B,0 SEARCH-UP FINISHED. EXAMINE COUNT	4F14541
10344	0 34000 2 16647	4493		CAS	SCRIPL−1,B	4F14542
10345	1 00003 2 10343	4494		TXI	CCS150,B,3 CONTINUE SEARCH	4F14543
10347	1 00003 2 10343	4496	CCS190	TXI	CCS150,B,3 CONTINUE SEARCH	4F14545
10357	0 73400 2 00000	4504		PAX	0,B	4F14553
10360	−0 50000 2 15044	4505		CAL	BETA,B	4F14554
10410	−0 53400 2 10411	4529	PL0300	LXD	PL0310,B SYM1 (S(I)) = SOME S(J)	4F14578
10413	1 00000 2 10414	4532	PL0330	TXI	PL0340,B,0	4F14581
10414	−0 50000 2 16650	4533	PL0340	CAL	SCRIPL,B	4F14582
10424	−0 50000 2 16651	4541	PL0420	CAL	SCRIPL+1,B SYM1(S(I)) = S(J)	4F14590
10446	0 53400 2 01406	4559		LXA	L(0),B	4F14608
10447	0 34000 2 11117	4560	PL0480	CAS	OPSUB,B	4F14609
10450	1 77777 2 10453	4561		TXI	PL0520,B,−1	4F14610
10452	1 77777 2 10453	4563		TXI	PL0520,B,−1	4F14612
10453	3 77754 2 10447	4564	PL0520	TXH	PL0480,B,−20	4F14613
10550	−0 53400 2 10551	4625	PL1000	LXD	PL1010,B SYM1 (S(I)) IS SOME S(J)	4F14674
10553	1 00000 2 10554	4628	PL1030	TXI	PL1040,B,0	4F14677
10554	−0 50000 2 16650	4629	PL1040	CAL	SCRIPL,B	4F14678
10564	−0 50000 2 16651	4637	PL1130	CAL	SCRIPL+1,B	4F14686
10567	−0 53400 2 10570	4640	PL1200	LXD	PL1210,B SYM2 (S(I)) = SOME S(K)	4F14689
10573	1 00000 2 10574	4644	PL1240	TXI	PL1250,B,0	4F14693
10574	−0 50000 2 16650	4645	PL1250	CAL	SCRIPL,B	4F14694
10604	−0 50000 2 16651	4653	PL1340	CAL	SCRIPL+1,B SET OP2(S(I)) 32 = OP1 (S(K)) 32	4F14702
10612	0 73400 2 00000	4659		PAX	0,B S(I) TO XB	4F14708
10613	−3 00000 2 11020	4660		TXL	LK1610,B,0 EXIT UPON ENCOUNTERING S(0)	4F14709
10615	0 50000 2 15044	4662		CLA	BETA,B	4F14711
10623	0 50000 2 15043	4668		CLA	BETA−1,B	4F14717
10624	−0 73400 2 00000	4669		PDX	0,B LENGTH OF S(I-1) TO XB	4F14718
10625	−0 63400 2 10626	4670		SXD	LK0180,B	4F14719
10675	−3 00000 2 10610	4710	LK0650	TXL	LK0000,B,0 NOT FOUND AT ALL	4F14759
10702	1 77775 2 10675	4715	LK0700	TXI	LK0650,B,−3	4F14764
10734	3 00006 2 10611	4741		TXH	LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0	4F14790
10745	−3 00006 2 10611	4750	LK1100	TXL	LK0030,B,6 CLOSED UNIV. SBRTN	4F14799
10763	−3 00000 2 10610	4764	LK1280	TXL	LK0000,B,0 NOT FOUND AT ALL	4F14813
10770	1 77775 2 10763	4769	LK1330	TXI	LK1280,B,−3	4F14818
11013	3 00006 2 10611	4788		TXH	LK0030,B,6 OPEN MULTIV.	4F14837
11020	−0 53400 2 15044	4793	LK1610	LXD	BETA,B IS S(0) A SINGLE ELEMENT	4F14842
11023	3 00003 2 11042	4796		TXH	LK1780,B,3 NO	4F14845
11051	0 73400 2 00000	4818		PAX	0,B	4F14867
11052	0 50000 2 15044	4819		CLA	BETA,B	4F14868
11075	0 73400 2 00000	4838		PAX	0,B	4F14887
11076	−3 00000 2 11112	4839		TXL	PC0190,B,0 EXIT AT S(0)	4F14888
11077	0 50000 2 15044	4840		CLA	BETA,B	4F14889
11110	0 62200 2 15044	4849		STD	BETA,B STORE ERAS. REL. ADD. COUNT IN BETA,	4F14898
11112	−0 53400 2 11105	4851	PC0190	LXD	PC0140,B	4F14900
11113	0 50000 2 15520	4852	PC0200	CLA	BETA+300,B	4F14901
11114	0 60100 2 16650	4853		STO	CPBETA+300,B	4F14902
11115	2 00001 2 11113	4854		TIX	PC0200,B,1	4F14903
11163	0 50000 2 16174	4896		CLA	CPBETA,B	4F14946
11164	0 73400 2 00454	4897	MC0070	PAX	TAU2,B	4F14947
11165	−0 63400 2 11226	4898		SXD	MC0410,B	4F14946
11166	−0 63400 2 11233	4899		SXD	MC0460,B	4F14949
11167	3 77772 2 11226	4900		TXH	MC0410,B,−6 SINGLE ELEMENT - GO ONTO S(I+1)	4F14950
11215	1 00003 2 11223	4922		TXI	MC0380,B,3 OK	4F14972
11222	1 00003 2 11223	4927		TXI	MC0380,B,3	4F14977
11223	−3 00000 2 11225	4928	MC0380	TXL	MC0400,B,0 FINISHED WITH S(I)	4F14978
11231	−0 63400 2 11212	4934	MC0440	SXD	XBSAVE,B SYMJ (S(ITT = SAME S(K)	4F14984
11241	0 73400 2 01226	4942	MC0520	PAX	SIGMA1,B S(K) TO XB	4F14992
11242	0 50000 2 16174	4943		CLA	CPBETA,B	4F14993
11243	0 73400 2 00000	4944	MC0540	PAX	TAU1,B	4F14994
11244	−0 63400 2 11245	4945		SXD	MC0560,B	4F14995
11246	−0 53400 2 11212	4947	MC0570	LXD	XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K	4F14997
11273	0 50000 2 16174	4969		CLA	CPBETA,B	4F15019
11276	0 73400 2 01356	4972	CP0180	PAX	TAU3,B	4F15022
11277	−0 63400 2 11324	4973		SXD	CP0400,B	4F15023
11341	−0 53400 2 11324	5007	CP0540	LXD	CP0400,B OP1 (S(I)) 35 = 1	4F15057
11342	1 00003 2 11343	5008		TXI	CP0560,B,3	4F15058
11343	−3 00000 2 12337	5009	CP0560	TXL	ES0000,B,0 GO TO END-OF-SEGMENT SBRTN	4F15059
11344	−0 63400 2 11324	5010		SXD	CP0400,B	4F15060
11373	0 07400 2 12621	5033		TSX	COMP,B	4F15083
11430	0 07400 2 12621	5062		TSX	COMP,B	4F15112
11454	0 07400 2 12621	5082		TSX	COMP,B COMPILE DVP SYMJ (S(I))	4F15132
11475	0 07400 2 12621	5099		TSX	COMP,B COMPILE STQ 700000	4F15149
11500	0 07400 2 12621	5102		TSX	COMP,B COMPILE CLA 700000	4F15152
11504	0 07400 2 12621	5106		TSX	COMP,B	4F15156
11515	0 07400 2 12621	5115		TSX	COMP,B COMPILE STO 700000	4F15165
11520	0 07400 2 12621	5118		TSX	COMP,B COMPILE LDQ 700000	4F15168
11530	0 07400 2 12621	5126		TSX	COMP,B COMPILE MPY SYMJ(S(I))	4F15176
11541	0 07400 2 12621	5135		TSX	COMP,B COMPILE FMP SYMJ(S(I))	4F15185
11572	0 07400 2 12621	5160		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15210
11575	−0 53400 2 11324	5163		LXD	CP0400,B	4F15213
11576	1 00003 2 11577	5164		TXI	CP2230,B,3	4F15214
11577	3 77772 2 11642	5165	CP2230	TXH	CP2500,B,−6 FINISHED WITH S(I)	4F15215
11600	−0 63400 2 11324	5166		SXD	CP0400,B	4F15216
11615	0 07400 2 12621	5179		TSX	COMP,B COMPILE LDQ SYM3(S(I))	4F15229
11621	−0 53400 2 11324	5183	CP2370	LXD	CP0400,B	4F15233
11622	1 00003 2 11623	5184		TXI	CP2390,B,3	4F15234
11623	3 77772 2 11642	5185	CP2390	TXH	CP2500,B,−6 FINISHED WITH S(I)	4F15235
11624	−0 63400 2 11324	5186		SXD	CP0400,B	4F15236
11630	0 07400 2 12621	5190		TSX	COMP,B COMPILE CLA SYMJ(S(I)), J=4,...	4F15240
11651	0 07400 2 12621	5207		TSX	COMP,B COMPILE SXD 7...TYPE NO. , 4	4F15257
11656	0 07400 2 12621	5212		TSX	COMP,B COMPILE TSX SYM1(S(I)),4	4F15262
11673	0 07400 2 12621	5226		TSX	COMP,B COMPILE FUNCTION NAME	4F15276
11675	−0 53400 2 11324	5228		LXD	CP0400,B	4F15278
11676	−3 77767 2 11720	5229		TXL	CP2930,B,−9	4F15279
11713	0 07400 2 12621	5242	CP2880	TSX	COMP,B COMPILE ACC OR MQ INDICATOR	4F15292
11721	−0 53400 2 11324	5248		LXD	CP0400,B	4F15298
11722	1 00003 2 11723	5249		TXI	CP2960,B,3	4F15299
11723	3 77772 2 11727	5250	CP2960	TXH	CP3000,B,−6	4F15300
11724	−0 63400 2 11324	5251		SXD	CP0400,B	4F15301
11725	0 07400 2 12621	5252		TSX	COMP,B COMPILE SYMJ(S(I))	4F15302
11731	0 07400 2 12621	5256		TSX	COMP,B COMPILE LAST ARGUMENT NAME	4F15306
11734	−3 77767 2 11763	5259	CP3060	TXL	CP3350,B,−9	4F15309
11746	0 07400 2 12621	5269		TSX	COMP,B COMPILE SXD7...0,4	4F15319
11753	0 07400 2 12621	5274		TSX	COMP,B COMPILE TSX SYM1(S(I)),4	4F15324
11760	0 07400 2 12621	5279		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15334
11763	−3 77764 2 12007	5282	CP3350	TXL	CP3560,B,−12	4F15337
11773	0 07400 2 12621	5290		TSX	COMP,B COMPILE LDQ SYM3(S(I))	4F15345
12004	0 07400 2 12621	5299		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15354
12020	0 07400 2 12621	5311		TSX	COMP,B COMPILE LDQ SYMJ(S(I))	4F15366
12031	0 07400 2 12621	5320		TSX	COMP,B COMPILE STQ 4...0-(J-2)	4F15375
12032	−0 53400 2 11324	5321		LXD	CP0400,B	4F15376
12033	1 00003 2 12034	5322		TXI	CP3770,B,3	4F15377
12034	−3 77764 2 12037	5323	CP3770	TXL	CP3800,B,−12	4F15378
12037	−0 63400 2 11324	5326	CP3800	SXD	CP0400,B	4F15381
12051	0 07400 2 12621	5336		TSX	COMP,B COMPILE CLA SYMJ(S(I))	4F15391
12062	0 07400 2 12621	5345		TSX	COMP,B COMPILE STO 4...0-(J-2)	4F15400
12063	−0 53400 2 11324	5346		LXD	CP0400,B	4F15401
12064	1 00003 2 12065	5347		TXI	CP4020,B,3	4F15402
12065	−3 77764 2 12070	5348	CP4020	TXL	CP4050,B,−12	4F15403
12070	−0 63400 2 11324	5351	CP4050	SXD	CP0400,B	4F15406
12075	0 07400 2 12621	5356		TSX	COMP,B COMPILE CLASYM2(S(I))	4F15411
12123	0 07400 2 12621	5378		TSX	COMP,B COMPILE BASE	4F15433
12127	0 07400 2 12621	5382		TSX	COMP,B COMPILE FIX PT CONSTANT EXPONENT	4F15437
12141	0 07400 2 12621	5392		TSX	COMP,B COMPILE LDQ SYM2 (S(I))	4F15447
12150	0 07400 2 12621	5399		TSX	COMP,B COMPILE SXD 7...0,4	4F15454
12173	0 07400 2 12621	5418		TSX	COMP,B COMPILE TSX FXFX/FLEX/FLFL,4	4F15473
12202	0 07400 2 12621	5425		TSX	COMP,B COMPILE CLA SYM1(S(I))	4F15485
12220	−0 63400 2 11664	5440		SXD	CP5830,B SOBSCRIPTED-IS THERE A GENERAL TAG	4F15500
12232	−0 53400 2 11664	5450		LXD	CP5830,B	4F15510
12233	1 00003 2 12234	5451	CP5180	TXI	CP5190,B,3	4F15511
12234	3 77772 2 12267	5452	CP5190	TXH	CP5460,B,−6 FINISHED WITH PRELUDE,IF ANY	4F15512
12241	0 07400 2 12621	5457		TSX	COMP,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I))	4F15517
12265	0 07400 2 12621	5477		TSX	COMP,B COMPILE STA IFN+STAIX	4F15537
12276	0 07400 2 12621	5486		TSX	COMP,B COMPILE SXD 7,4	4F15546
12306	0 07400 2 12621	5494		TSX	COMP,B COMPILE TSX SYM1(S(I)),4	4F15554
12324	0 07400 2 12621	5508	CP5720	TSX	COMP,B COMPILE TSX SYMJ(S(I)) , J=2,...	4F15568
12325	−0 53400 2 11324	5509		LXD	CP0400,B	4F15569
12326	1 00003 2 12327	5510		TXI	CP5750,B,3	4F15570
12327	3 77772 2 12332	5511	CP5750	TXH	CP5780,B,−6 FINISHED SCANNING	4F15571
12330	−0 63400 2 11324	5512		SXD	CP0400,B	4F15572
12355	0 07400 2 12621	5533		TSX	COMP,B COMPILE STO/STQ 1... TYPE NO + PHI(I)	4F15593
12416	0 07400 2 12621	5566		TSX	COMP,B COMPILE STO/STQ LEFT+2	4F15626
12427	0 07400 2 12621	5575		TSX	COMP,B COMPILE STQ 700000	4F15635
12432	0 07400 2 12621	5578		TSX	COMP,B COMPILE CLA 700000	4F15638
12476	0 07400 2 12621	5614		TSX	COMP,B COMPILE STQ 700000	4F15674
12501	0 07400 2 12621	5617		TSX	COMP,B COMPILE CLA 700000	4F15677
12531	0 07400 2 12621	5641		TSX	COMP,B COMPILE TRA 1,4	4F15701
12551	0 07400 2 12621	5657		TSX	COMP,B COMPILE STQ 700000	4F15717
12554	0 07400 2 12621	5660		TSX	COMP,B COMPILE CLA 700000	4F15720
12615	−0 53400 2 00637	5693	ES1710	LXD	BBOX,B	4F15753
12617	0 60100 2 00635	5695		STO	CIB−3,B	4F15755
12626	0 02000 2 00001	5703		TRA	1,B	4F15763
12665	0 73400 2 00000	5735		PAX	0,B	4F15795
12666	−0 75400 2 00000	5736		PXD	0,B	4F15796
12670	−0 53400 2 00470	5738		LXD	BK,B	4F15798
12671	−0 50000 2 00470	5739		CAL	FORSUB−1,B	4F15799
12713	0 73400 2 00000	5757	TDRADD	PAX	0,B	4F15817
12714	−0 50000 2 16174	5758		CAL	CPBETA,B	4F15818

␣␣␣␣␣C = 4

Definition
00004 5836 C EQU 4 4F15888

References (194)

06770	−0 53400 4 00470	3706		LXD	BK,C IS FORSUB EMPTY	4F13754
06771	−3 00000 4 07000	3707		TXL	LA0000+13,C,0 YES. GO SET FS BITS TO 0	4F13755
06772	−0 63400 4 06777	3708		SXD	LA0000+12,C	4F13756
07004	−0 53400 4 01122	3718		LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F13766
07005	−3 00000 4 07011	3719		TXL	LA0000+22,C,0 NO	4F13767
07016	−0 53400 4 15300	3728		LXD	ABAR,C	4F13776
07024	−3 00000 4 07043	3734	LA0002	TXL	LA0003,C,0	4F13782
07025	3 77565 4 07043	3735		TXH	LA0003,C,−139	4F13783
07027	−0 53400 4 01122	3737		LXD	ARGCTR,C VARIABLE OR (	4F13785
07030	−3 00000 4 07000	3738		TXL	LA0000+13,C,0 NOT AN FS - GO SET FS BITS TO 0	4F13786
07031	−0 63400 4 07036	3739		SXD	LA0000+43,C FUNCTION STATEMENT	4F13787
07155	0 60200 4 15310	3823	L13130	SLW	ALPHA+3,C STO -(N+2) IN ALPHA+A+3	4F13871
07163	0 60200 4 15305	3829		SLW	ALPHA,C STO -C IN ALPHA+A	4F13877
07164	1 77775 4 07165	3830		TXI	LA1040,C,−3 -A TO - (A+3)	4F13878
07165	−0 63400 4 15300	3831	LA1040	SXD	ABAR,C	4F13879
07203	0 60200 4 15305	3845	L23130	SLW	ALPHA,C STO -N IN ALPHA +A	4F13893
07207	0 50200 4 15304	3849	LA2000	CLS	ALPHA−1,C	4F13897
07213	0 60200 4 15305	3853	L43130	SLW	ALPHA,C STO -(N+2) IN ALPHA+A	4F13901
07217	0 50200 4 15302	3857	LA4000	CLS	ALPHA−3,C	4F13905
07223	0 60200 4 15303	3861		SLW	ALPHA−2,C STO-N IN ALPHA+A-2	4F13909
07231	0 60100 4 15304	3867		STO	ALPHA−1,C STO-(N,1) IN ALPHA+A-1	4F13915
07266	0 60200 4 15305	3896	L33130	SLW	ALPHA,C STO -(N+1) IN ALPHA+A	4F13944
07272	0 50200 4 15303	3900	LA3000	CLS	ALPHA−2,C	4F13948
07276	0 60200 4 15304	3904		SLW	ALPHA−1,C STO -N IN ALPHA+A-1	4F13952
07314	1 77777 4 07320	3918		TXI	CM4303,C,−1	4F13966
07317	1 77777 4 07320	3921		TXI	CM4303,C,−1	4F13969
07320	−0 63400 4 15300	3922	CM4303	SXD	ABAR,C	4F13970
07717	0 60200 4 15520	4216		SLW	LAMBDA,C	4F14265
07721	0 60100 4 15521	4218		STO	LAMBDA+1,C	4F14267
07723	0 60100 4 15522	4220		STO	LAMBDA+2,C	4F14269
07724	1 77775 4 07725	4221		TXI	R06100,C,−3	4F14270
07727	−0 63400 4 07750	4224		SXD	R07800,C -3P IN XC AT END	4F14273
07730	−0 63400 4 10074	4225		SXD	CS0760,C	4F14274
07735	−0 73400 4 00000	4230		PDX	0,C	4F14279
07737	0 60100 4 16650	4232		STO	SCRIPL,C	4F14281
07741	0 60100 4 16651	4234		STO	SCRIPL+1,C	4F14283
07743	0 60100 4 16652	4236		STO	SCRIPL+2,C	4F14285
07744	1 77775 4 07745	4237		TXI	R07500,C,−3	4F14286
07745	−0 75400 4 00000	4238	R07500	PXD	0,C	4F14287
07760	0 73400 4 00000	4249	CS0060	PAX	0,C	4F14298
07761	−3 77772 4 07763	4250		TXL	CS0090,C,−6 AT LEAST TWO ELEMENTS	4F14299
07764	−0 63400 4 01357	4253		SXD	LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT	4F14302
07765	−3 00000 4 07770	4254	CS0100	TXL	CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT	4F14303
07767	1 00003 4 07765	4256	CS0120	TXI	CS0100,C,3	4F14305
07777	0 73400 4 00000	4264		PAX	0,C	4F14313
10000	−0 75400 4 00000	4265		PXD	0,C	4F14314
10005	−3 00000 4 10032	4270	CS0250	TXL	CS0430,C,0 MATCHING SEGMENTS	4F14319
10031	1 00003 4 10005	4290	CS0370	TXI	CS0250,C,3	4F14339
10042	−0 53400 4 01357	4299		LXD	LENGTH,C	4F14348
10044	−3 00000 4 10050	4301	CS0530	TXL	CS0570,C,0 ERASE DUPLICATE SEGMENT	4F14350
10047	1 00003 4 10044	4304	CS0560	TXI	CS0530,C,3	4F14353
10050	0 53400 4 07760	4305	CS0570	LXA	CS0060,C	4F14354
10051	−0 60000 4 15044	4306		STQ	BETA,C	4F14355
10056	−0 53400 4 01357	4311		LXD	LENGTH,C	4F14360
10057	−3 00000 4 07752	4312	CS0630	TXL	CS0010,C,0	4F14361
10061	1 00003 4 10057	4314	CS0650	TXI	CS0630,C,3	4F14363
10065	0 60200 4 16650	4318		SLW	SCRIPL,C	4F14367
10067	0 60100 4 16651	4320		STO	SCRIPL+1,C	4F14369
10071	0 60100 4 16652	4322		STO	SCRIPL+2,C	4F14371
10072	1 77775 4 10073	4323		TXI	CS0750,C,−3	4F14372
10075	−0 63400 4 10111	4326		SXD	PM0080,C -3Q IN XC AT END	4F14375
10076	−0 63400 4 10300	4327		SXD	AS1800,C	4F14376
10077	−0 63400 4 10323	4328		SXD	AS3600,C	4F14377
10105	0 73400 4 00000	4334		PAX	0,C LDXC WITH SEGMENT LENGTH	4F14383
10106	−0 63400 4 10110	4335		SXD	PM0070,C	4F14384
10107	−3 77767 4 10113	4336		TXL	PM0100,C,−9	4F14385
10122	−0 63400 4 10131	4347	PM0170	SXD	PM0260,C	4F14396
10123	−0 63400 4 10147	4348		SXD	PM0400,C	4F14397
10124	−0 63400 4 10200	4349		SXD	PM0680,C	4F14398
10125	0 53400 4 01406	4350		LXA	L(0),C LDXC WITH 0	4F14399
10130	1 77775 4 10131	4353	PM0250	TXI	PM0260,C,−3	4F14402
10131	−3 00000 4 10212	4354	PM0260	TXL	PM0790,C,0 EXIT	4F14403
10132	−0 63400 4 10142	4355		SXD	PM0340,C	4F14404
10146	1 77775 4 10147	4367	PM0390	TXI	PM0400,C,−3	4F14416
10147	−3 00000 4 10210	4368	PM0400	TXL	PM0770,C,0 EXIT	4F14417
10172	−0 53400 4 10142	4387		LXD	PM0340,C	4F14436
10177	1 77775 4 10200	4392	PM0670	TXI	PM0680,C,−3	4F14441
10200	−3 00000 4 10210	4393	PM0680	TXL	PM0770,C,0	4F14442
10233	1 00003 4 10234	4420	PM0980	TXI	PM0990,C,3	4F14469
10234	−3 00000 4 10244	4421	PM0990	TXL	PM1070,C,0 FINIS	4F14470
10261	−0 75400 4 00000	4442		PXD	0,C	4F14491
10264	1 77777 4 10265	4445		TXI	AS0700,C,−1	4F14494
10340	0 53400 4 01406	4489		LXA	L(0),C TO S(I)	4F14538
10346	1 00001 4 10347	4495		TXI	CCS190,C,1 RAISE REF COUNTER AND	4F14544
10350	3 00001 4 10325	4497	CCS200	TXH	CCS000,C,1 MULTIPLE REFERENCE	4F14546
10361	0 73400 4 00000	4506		PAX	0,C	4F14555
10412	−0 63400 4 10413	4531	PL0320	SXD	PL0330,C	4F14580
10415	0 73400 4 00000	4534		PAX	0,C	4F14583
10421	0 50000 4 15044	4538		CLA	BETA,C	4F14587
10422	0 73400 4 00000	4539		PAX	0,C	4F14588
10552	−0 63400 4 10553	4627	PL1020	SXD	PL1030,C	4F14676
10555	0 73400 4 00000	4630		PAX	0,C	4F14679
10561	0 50000 4 15044	4634		CLA	BETA,C	4F14683
10562	0 73400 4 00000	4635		PAX	0,C	4F14684
10571	−0 53400 4 10603	4642	PL1220	LXD	PL1330,C LKXC WITH -6	4F14691
10572	−0 63400 4 10573	4643	PL1230	SXD	PL1240,C	4F14692
10575	0 73400 4 00000	4646		PAX	0,C	4F14695
10601	0 50000 4 15044	4650		CLA	BETA,C	4F14699
10602	0 73400 4 00000	4651		PAX	0,C	4F14700
10620	−0 53400 4 10621	4665	LK0120	LXD	LK0130,C	4F14714
10626	1 00000 4 10627	4671	LK0180	TXI	LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1)	4F14720
10635	0 56000 4 16651	4678		LDQ	SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ	4F14727
10650	0 40200 4 16652	4689		SUB	SCRIPL+2,C OP1 (S(I-1)) 33 = 1. OPEN ** SUBROUTINE.	4F14738
10653	−0 60200 4 16651	4692	LK0430	ORS	SCRIPL+1,C	4F14741
10657	0 40200 4 16655	4696	LK0480	SUB	SCRIPL+5,C	4F14745
10662	−0 60200 4 16654	4699		ORS	SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1	4F14748
10665	0 56000 4 16654	4702		LDQ	SCRIPL+4,C F1ACE PO2 (S(I-1)) IN MQ	4F14751
10672	−0 60200 4 16651	4707		ORS	SCRIPL+1,C SET OP1(S(I-1))34=1	4F14756
10707	0 50000 4 16650	4720	LK0750	CLA	SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJIS(I-1))	4F14769
10712	−0 60000 4 16650	4723		STQ	SCRIPL,C WORDS	4F14772
10713	−0 50000 4 16651	4724		CAL	SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC	4F14773
10716	−0 60000 4 16651	4727		STQ	SCRIPL+1,C OP	4F14776
10720	−0 60200 4 16651	4729		ORS	SCRIPL+1,C SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33	4F14778
10721	0 50000 4 16652	4730		CLA	SCRIPL+2,C THEN	4F14779
10724	−0 60000 4 16652	4733		STQ	SCRIPL+2,C WORDS	4F14782
10735	0 40200 4 16655	4742		SUB	SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1))	4F14791
10740	−0 60200 4 16654	4745		ORS	SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1	4F14794
10746	0 40200 4 16660	4751		SUB	SCRIPL+8,C CLOSED MULTIV. SBRTN	4F14800
10751	−0 60200 4 16657	4754		ORS	SCRIPL+7,C SET OP3 (S(I-1))35 = 1	4F14803
10754	0 56000 4 16651	4757		LDQ	SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ	4F14806
10774	0 40200 4 16652	4773		SUB	SCRIPL+2,C IS S(I) = SYM1 (S(I-1))	4F14822
11000	0 56000 4 16654	4777		LDQ	SCRIPL+4,C	4F14826
11005	−0 60200 4 16651	4782		ORS	SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1	4F14831
11050	−0 50000 4 16645	4817		CAL	SCRIPL−3,C	4F14866
11054	1 00000 4 11055	4821	LKK050	TXI	LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT	4F14870
11056	0 56000 4 16651	4823		LDQ	SCRIPL+1,C PLACE OP1 OF LAST SEGMENT 1N MQ	4F14872
11064	0 56000 4 16654	4829	LKK130	LDQ	SCRIPL+4,C OP1 OF LAST SEGMENT IS *	4F14878
11067	−0 60200 4 16651	4832		ORS	SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1	4F14881
11070	−0 53400 4 01122	4833	PC0000	LXD	ARGCTR,C IS THIS AN FS	4F14882
11071	3 00000 4 11073	4834		TXH	PC0030,C,0	4F14883
11072	1 00001 4 11074	4835		TXI	PC0040,C,1 NO	4F14884
11073	0 53400 4 01406	4836	PC0030	LXA	L(0),C YES	4F14885
11107	−0 75400 4 00000	4848	PC0160	PXD	0,C OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1	4F14897
11111	1 00001 4 11074	4850		TXI	PC0040,C,1 AND UPDATE FOR NEXT SEGMENT	4F14899
11232	−0 53400 4 11176	4935		LXD	XASAVE,C	4F14985
11233	1 00000 4 11234	4936	MC0460	TXI	MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1)	4F14986
11234	−0 50000 4 16650	4937	MC0470	CAL	SCRIPL,C	4F14987
11245	1 00000 4 11234	4946	MC0560	TXI	MC0470,C,0	4F14996
11247	−0 50000 4 16651	4948		CAL	SCRIPL+1,C PLACE OP1 (S(K)) IN ACC	4F14998
11256	−0 53400 4 01122	4956		LXD	ARGCTR,C IS THIS AN FS STATEMENT	4F15006
11257	−3 00000 4 11265	4957		TXL	CP0090,C,0 NO	4F15007
11260	0 07400 4 01731	4958		TSX	CIT00,C YES - COMPILE FOUR 36 - BIT	4F15008
11427	0 07400 4 12627	5061	CP1150	TSX	AC0000,C ADDRESS COMPILE SYM1 (S(I))	4F15111
11440	0 07400 4 01731	5070		TSX	CIT00,C COMPILE LRS 35	4F15120
11453	0 07400 4 12627	5081		TSX	AC0000,C ADDRESS COMPILE SYMJ (S(I))	4F15131
11455	0 07400 4 01731	5083		TSX	CIT00,C COMPILE CLM	4F15133
11462	0 07400 4 01731	5088		TSX	CIT00,C COMPILE LLS 18	4F15138
11503	0 07400 4 12627	5105	CP1690	TSX	AC0000,C ADDRESS COMPILE SYMJ (S(I))	4F15155
11522	0 07400 4 12627	5120		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I))	4F15170
11531	0 07400 4 01731	5127		TSX	CIT00,C COMPILE ALS 17	4F15177
11561	0 07400 4 01731	5151	CP2100	TSX	CIT00,C 1ST ARG IN ACC	4F15201
11571	0 07400 4 12627	5159		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15209
11604	0 07400 4 01731	5170	CP2250	TSX	CIT00,C 2ND ARG IN MQ	4F15220
11614	0 07400 4 12627	5178		TSX	AC0000,C ADDRESS COMPILE SYM3(S(I))	4F15228
11627	0 07400 4 12627	5189		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)), J=4,...	4F15239
11631	0 07400 4 01731	5191		TSX	CIT00,C COMPILE STO 4...TYPE NO. + J-2, J=4,...	4F15241
11716	0 07400 4 12627	5245	CP2900	TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15295
11720	0 07400 4 12627	5247	CP2930	TSX	AC0000,C OPEN MULTIVARIATE FUNCTION	4F15297
11757	0 07400 4 12627	5278		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15333
11772	0 07400 4 12627	5289	CP3420	TSX	AC0000,C ADDRESS COMPILE SYM3(S(I))	4F15344
12003	0 07400 4 12627	5298		TSX	AC0000,C ADDRESS COMPILE SYM2(SI)))	4F15353
12017	0 07400 4 12627	5310		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...	4F15365
12050	0 07400 4 12627	5335		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...	4F15390
12074	0 07400 4 12627	5355		TSX	AC0000,C ASDRESS COMPILE SYM2(S(I))	4F15410
12120	0 07400 4 12627	5375	CP4310	TSX	AC0000,C ADDRESS COMPILE SYM1(S(I))	4F15430
12140	0 07400 4 12627	5391	CP4470	TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15446
12201	0 07400 4 12627	5424		TSX	AC0000,C ADDRESS COMPILE SYM1(S(I))	4F15484
12215	0 53400 4 01407	5437		LXA	L(1),C INITIALIZE STAIX T0 1	4F15497
12221	−0 63400 4 12314	5441		SXD	STACTR,C	4F15501
12222	0 07400 4 12627	5442		TSX	AC0000,C	4F15502
12231	−0 53400 4 12314	5449	CP5160	LXD	STACTR,C	4F15509
12235	1 00001 4 12236	5453		TXI	CP5210,C,1 NOT FINISHED-STAIX=STAIX+1	4F15513
12243	0 07400 4 01731	5459		TSX	CIT00,C COMPILE ARS 18	4F15519
12250	0 07400 4 01731	5464		TSX	CIT00,C COMPILE ADD *-2	4F15524
12262	−0 53400 4 12314	5474		LXD	STACTR,C	4F15534
12263	−0 75400 4 00000	5475		PXD	0,C	4F15535
12313	0 07400 4 12627	5499		TSX	AC0000,C NONSUBSCRIPTED	4F15559
12373	−0 53400 4 01122	5547		LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F15607
12374	3 00000 4 12533	5548		TXH	ES1300,C,0 YES	4F15608
12415	0 07400 4 12635	5565		TSX	AC0060,C ADDRESS COMPILE VAR1ABLE ON LEFT	4F15625
12433	0 07400 4 01731	5579	ES0990	TSX	CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN	4F15639
12440	0 07400 4 01731	5584		TSX	CIT00,C	4F15644
12445	0 07400 4 01731	5589		TSX	CIT00,C	4F15649
12452	0 07400 4 01731	5594		TSX	CIT00,C	4F15654
12457	0 07400 4 01731	5599		TSX	CIT00,C	4F15659
12502	0 07400 4 01731	5618	ES0440	TSX	CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN	4F15678
12507	0 07400 4 01731	5623		TSX	CIT00,C	4F15683
12514	0 07400 4 01731	5628		TSX	CIT00,C	4F15688
12521	−0 53400 4 01122	5633	ES0610	LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F15693
12522	−3 00000 4 12405	5634		TXL	ES0730,C,0 NO	4F15694
12567	0 07400 4 01731	5671		TSX	CIT00,C COMPILE LLS 37	4F15731
12621	0 07400 4 01731	5698	COMP	TSX	CIT00,C	4F15758
12675	0 02000 4 00001	5743		TRA	1,C RETURN	4F15803
12711	0 02000 4 00001	5755		TRA	1,C RETURN	4F15815

␣␣␣␣␣E = 598

Definition
01126 287 E BSS 14 WORKING STORAGE USED BY SS000. 4F10277

References (110)

00425	0 00002 0 01133	213		PZE	E+3+2,,2 TAU1 ) ARG1+L,,L	4F10204
00432	0 00004 0 01135	219		PZE	E+3+4,,4 TAU2 ) ARG1+L,,L	4F10210
00437	0 00006 0 01137	225		PZE	E+3+6,,6 TAU3 ) ARG1+L,,L	4F10216
00444	0 00001 0 01142	231		PZE	E+11+1,,1 SIGMA1) ARG1+L,,L	4F10222
02024	0 50000 0 01130	665		CLA	E+2 GET NAME OF VARIABLE.	4F10654
02442	0 73400 4 01132	891	ED2	PAX	E+4,4 DIMENSION COUNT, AND	4F10914
02461	0 56000 0 01141	906		LDQ	E+11 PICKUP ADDENDS 1 AND 2,	4F10929
02462	0 60000 0 01141	907		STZ	E+11 CLEAR E+11, AND	4F10930
02463	−0 62000 0 01141	908		SLQ	E+11 RESTORE ADDEND 1 TO E+11.	4F10931
02466	0 56000 0 01134	911		LDQ	E+6 AND, IF 2 DIMENSION	4F10934
02471	0 40200 0 01142	914		SUB	E+12 IF 3 DIMENSION, SET GTAG	4F10937
02473	0 56000 0 01136	916		LDQ	E+8 PICKUP DIMENSIONS 1 AND 2,	4F10939
02474	0 60000 0 01136	917		STZ	E+8 CLEAR E+8, AND	4F10940
02475	−0 62000 0 01136	918		SLQ	E+8 RESTORE DIMENSION 1 TQ E+8.	4F10941
02502	0 56000 0 01136	923		LDQ	E+8 TO THE PRODUCT, AND	4F10946
02511	0 40200 0 01141	930	1D1	SUB	E+11 SUBTRACT ADDEND 1,	4F10953
02513	−0 50000 0 01126	932		CAL	E IN TNE DECREMENT OF GTAG,	4F10955
02677	0 60200 4 01137	1064		SLW	E+9,4 AND STORE MULTIPLIER.	4F11087
02700	0 60000 4 01145	1065		STZ	E+15,4 SET ADDEND = 0.	4F11088
02736	0 60100 4 01145	1097		STO	E+15,4 STORE SIGN OF ADDEND.	4F11120
02751	0 60100 4 01137	1108		STO	E+9,4 SET MULTIPLIER	4F11131
02762	0 60200 4 01140	1117	SBP41	SLW	E+10,4 PLACE IN E-REGION.	4F11140
03001	0 60100 4 01137	1132		STO	E+9,4 MULTIPLIER = 1.	4F11155
03002	0 60000 4 01145	1133		STZ	E+15,4 SET ADDEND = 0.	4F11156
03006	0 60000 4 01140	1137		STZ	E+10,4 SET VARIABLE = 0.	4F11160
03011	−0 60200 4 01145	1140		ORS	E+15,4 TO LOW ORDER POSITION.	4F11163
03033	0 60100 0 01126	1159		STO	E STORE I TAG.	4F11182
03034	0 50000 0 01141	1160		CLA	E+11 MOVE SUBSCRIPT ADDENDS	4F11183
03035	0 60100 0 01142	1161		STO	E+12 INTO POSITION	4F11184
03036	0 50000 0 01137	1162		CLA	E+9 FOR FOLLOWING	4F11185
03037	0 60100 0 01141	1163		STO	E+11 PROGRAM.	4F11186
03045	0 56000 4 01137	1169	3D0001	LDQ	E+9,4 CONVERT THEM FROM BCD TO BINARY	4F11192
03047	0 60100 4 01137	1171		STO	E+9,4 STORE BACK IN E+3,5,7.	4F11194
03052	0 50000 4 01144	1174	3D0002	CLA	E+14,4 CONVERT ADDENDS (BCD TO BINARY)=	4F11197
03056	0 56000 4 01144	1178		LDQ	E+14,4 PUT SIGN IN S-BIT 0F MQ, AND	4F11201
03061	0 60100 4 01144	1181	3D0040	STO	E+14,4 AND STORE BACK INT0 E+11,12,13.	4F11204
03065	0 50000 0 01131	1185	3D0060	CLA	E+3 REFORMATIZE E-STRING =	4F11208
03067	0 40000 0 01133	1187		ADD	E+5 AND STORE THEM	4F11210
03070	0 60100 0 01131	1188		STO	E+3 IN E+3.	4F11211
03071	0 50000 0 01132	1189		CLA	E+4 MOVE SUBSCRIPT 1	4F11212
03072	0 60100 0 01133	1190		STO	E+5 TO E+5.	4F11213
03073	0 50000 0 01135	1191		CLA	E+7 AND MOVE	4F11214
03075	0 60100 0 01132	1193		STO	E+4 INTO E+4.	4F11216
03076	0 50000 0 01136	1194		CLA	E+8 MOVE SUBSCRIPT 3 INTO E+7,	4F11217
03077	0 60100 0 01135	1195		STO	E+7 NEXT TO SUBSCRIPT 2 IN E+6.	4F11218
03101	0 60100 0 01136	1197		STO	E+8 INTO E+8.	4F11220
03102	−0 50000 0 01141	1198		CAL	E+11 PACK TOGETHER	4F11221
03104	−0 50100 0 01142	1200		ORA	E+12 AND	4F11223
03105	0 60200 0 01141	1201		SLW	E+11 STORE THEM IN E+11.	4F11224
03106	−0 50000 0 01143	1202		CAL	E+13 MOVE	4F11225
03110	0 60200 0 01142	1204		SLW	E+12 INTO E+12.	4F11227
03113	−0 60200 0 01126	1207		ORS	E PLACE TAU3 TAG IN TAG WORD.	4F11230
03114	−0 50000 0 01135	1208		CAL	E+7 COMBINE	4F11231
03115	−0 50100 0 01134	1209		ORA	E+6 SUBSCRIPTS 3,2, AND 1,	4F11232
03116	−0 50100 0 01133	1210	3D0340	ORA	E+5 AND IF THEY ARE ALL ZERO,	4F11233
03123	−0 50000 0 01126	1215		CAL	E BRING UP TAUTAG FOR I,	4F11238
03132	0 56000 4 01135	1222	2D0001	LDQ	E+7,4 CONVERT COEFFICIENTS	4F11245
03134	0 60100 4 01135	1224		STO	E+7,4 AND STORE BACK IN E+3 AND E+5.	4F11247
03137	0 50000 4 01143	1227	2D0002	CLA	E+13,4 PICKUP THE TWO ADDENDS.	4F11250
03143	0 56000 4 01143	1231		LDQ	E+13,4 PUT SIGN IN S-BIT OF MQ, AND	4F11254
03146	0 60100 4 01143	1234	2D0040	STO	E+13,4 AND STORE BACK IN E+11 AND E+12.	4F11257
03152	0 50000 0 01131	1238	2D0060	CLA	E+3 REFORMATIZE E-STRING =	4F11261
03154	0 40000 0 01133	1240		ADD	E+5 COEFFICIENTS 1 AND 2,	4F11263
03155	0 60100 0 01131	1241		STO	E+3 AND STORE THEM IN E+3.	4F11264
03156	0 50000 0 01134	1242		CLA	E+6 MOVE SUBSCRIPT 2 INTO E+5	4F11265
03157	0 60100 0 01133	1243		STO	E+5 (NEXT TO SUBSCRIPT 1 IN E+4).	4F11266
03162	0 60100 0 01134	1246		STO	E+6 INTO E+6.	4F11269
03163	−0 50000 0 01141	1247		CAL	E+11 PACK TOGETHER	4F11270
03165	−0 50100 0 01142	1249		ORA	E+12 AND STORE THEM	4F11272
03166	0 60200 0 01141	1250		SLW	E+11 IN E+11.	4F11273
03171	−0 60200 0 01126	1253		ORS	E PLACE TAU2 TAG IN TAG WORD.	4F11276
03172	−0 50000 0 01132	1254		CAL	E+4 COMBINE SUBSCRIPTS 1 AND 2, AND	4F11277
03174	0 56000 0 01131	1256	1D0000	LDQ	E+3 PICKUP AND CONVERT COEFFICIENTS	4F11279
03177	0 60100 0 01131	1259		STO	E+3 AND STORE THEM BACK IN E+3.	4F11282
03200	0 50000 0 01141	1260		CLA	E+11 PICKUP ADDEND,	4F11283
03204	0 56000 0 01141	1264		LDQ	E+11 PUT SIGN IN S-BIT OF MQ, AND	4F11287
03210	0 60200 0 01141	1268		SLW	E+11 BACK INTO E+11.	4F11291
03213	−0 60200 0 01126	1271		ORS	E PLACE TAU1 TAG IN TAG WORD.	4F11294
03214	−0 50000 0 01132	1272		CAL	E+4 TAKE SUBSCRIPT, AND	4F11295
03217	−0 60200 0 01126	1275		ORS	E PLACE SIGMA1 TAG IN TAG WORD.	4F11298
04012	0 60100 0 01131	1850		STO	E+3 COMBINATION AS	4F11907
04015	0 60100 0 01132	1853		STO	E+4 E+6 = 1ST SUBSCRIPT VARIABLE,	4F11910
04016	0 60000 0 01137	1854		STZ	E+9 E+9 = ADDEND OF SUBSCRIPT,	4F11911
04020	0 50000 0 01126	1856		CLA	E OUTPUT FROM CSA IS FOUND IN	4F11913
04273	0 60100 0 01130	2085		STO	E+2 ALS0 IN E+2. THEN	4F12144
05213	0 60200 0 01130	2691		SLW	E+2 INTO E+2, AND	4F12745
05437	0 60200 0 01130	2868		SLW	E+2 DOES NOT HAVE A SUBSCRIPT, THEN	4F12922
06347	0 60200 0 01127	3430	MS030	SLW	E+1 X	4F13479
06354	0 60100 0 01126	3435		STO	E X	4F13484
06435	−0 60000 0 01130	3484		STQ	E+2 X	4F13533
06445	0 60200 0 01130	3492		SLW	E+2 MOVE FUNCTION NAME TO E+2.	4F13541
06562	0 60200 0 01127	3570		SLW	E+1 X	4F13619
06573	0 60200 0 01127	3579	MS251	SLW	E+1 PUT CURRENT OP IN E+1.	4F13628
06576	0 60200 0 01130	3582		SLW	E+2 X	4F13631
06641	0 56000 4 01131	3618	MS323	LDQ	E+3,4 X	4F13667
06706	−0 60200 0 01130	3655		ORS	E+2 X	4F13703
06715	0 60200 0 01130	3662		SLW	E+2	4F13710
06764	0 50000 0 01130	3702		CLA	E+2	4F13750
07046	0 56000 0 01130	3752		LDQ	E+2	4F13800
07064	0 50000 0 01126	3766	LA003	CLA	E	4F13814
07075	0 56000 0 01127	3775		LDQ	E+1	4F13823
07340	0 60200 0 01141	3945		SLW	E+11	4F13993
07343	−0 60200 0 01126	3948		ORS	E ADD SIGMA TAG TO I-TAU TAGS IN E.	4F13996
07521	0 60200 0 01130	4066	EXITR	SLW	E+2 SAVE VARIABLE IN E+2,	4F14114
10225	0 60100 0 01126	4414		STO	E	4F14463
10227	0 60100 0 01127	4416		STO	E+1	4F14465
10231	0 60100 0 01130	4418		STO	E+2	4F14467
10244	0 50000 0 01126	4429	PM1070	CLA	E	4F14478
10246	0 50000 0 01127	4431		CLA	E+1	4F14480
10250	0 50000 0 01130	4433		CLA	E+2	4F14482

␣␣␣␣␣F = 618

Definition
01152 292 F BSS 111 ASSEMBLED STATEMENT REGION. 4F10282

References (5)

01670	1 76626 0 01655	539	DCF	TXI	C0180,0,−F REPEAT PR0CESS FOR NEXT CHARACTER.	4F10528
03447	0 60200 0 01151	1593		SLW	F−1 AND RETAIN IN F-01.	4F11650
03472	−0 50000 0 01151	1612		CAL	F−1 PICK UP EXTERNAL FORMULA NUMBER AND	4F11669
05571	0 50000 0 01151	2965		CLA	F−1 TEST FOR AN EXTERNAL	4F13019
12603	0 50000 0 01151	5683		CLA	F−1	4F15743

␣␣␣␣␣G = 743

Definition
01347 296 G BSS 2 4F10286

References (57)

00337	0 00001 0 01347	128		PZE	G,,1 A,,E.	4F10119
00342	0 00002 0 01347	132		PZE	G,,2 A,,E.	4F10123
00345	0 00002 0 01347	136		PZE	G,,2 A,,E.	4F10127
00356	0 00001 0 01347	148		PZE	G,,1 A,,E.	4F10139
00361	0 00002 0 01347	152		PZE	G,,2 A,,E.	4F10143
00413	0 00001 0 01350	201		PZE	G+1,,1 FIXCON) ARG1+L,,L	4F10192
00420	0 00001 0 01350	207		PZE	G+1,,1 FLOCON) ARG1+L,,L	4F10198
02164	0 36100 0 01347	772		ACL	G ADD NEW FLOCON TO	4F10761
02172	0 70000 0 01347	778		CPY	G WRITE NEW FLOCON ON DRUM.	4F10767
03053	0 60200 0 01347	1175		SLW	G STRIP OFF	4F11198
03054	0 56000 0 01347	1176		LDQ	G SIGN,	4F11199
03122	0 60200 0 01347	1214		SLW	G AND STORE IN G.	4P11237
03125	−0 60200 0 01347	1217		ORS	G PLACE IN G WITH ALPHA. THEN	4F11240
03140	0 60200 0 01347	1228		SLW	G STRIP OFF	4F11251
03141	0 56000 0 01347	1229		LDQ	G THEIR SIGNS,	4F11252
03201	0 60200 0 01347	1261		SLW	G STRIP OFF SIGN,	4F11284
03202	0 56000 0 01347	1262		LDQ	G CONVERT ADDEND	4F11285
04464	0 60100 0 01347	2231		STO	G IN G.	4F12296
04474	0 60100 0 01350	2239		STO	G+1 INTO G+1.	4F12304
04524	0 60100 0 01347	2268		STO	G IS A COMMON	4F123294
04526	0 60200 0 01350	2270		SLW	G+1 APPEARS IN A SUBPROGRAM	4F123297
04634	0 60100 0 01347	2350		STO	G MOVE IT INTO G, AND	4F12404
05116	0 60200 0 01347	2608		SLW	G INTO G.	4F12662
05127	0 60200 0 01350	2617	NFW	SLW	G+1 MOVE FORMAT WORDS INTO G+1.	4F12671
05132	−0 50000 0 01350	2620		CAL	G+1 WHEN THE	4F12674
05136	0 60000 0 01347	2624		STZ	G PRECEED ALL BUT 1ST ENTRY WITH 0.	4F12678
05472	0 60100 0 01347	2895		STO	G DECREMENT OF G, AND	4F12949
05774	0 60000 0 01347	3143		STZ	G G TO	4F13195
05775	0 62200 0 01347	3144		STD	G (0(IFN)000).	4F13196
05777	0 60200 0 01350	3146		SLW	G+1 INTO G+1.	4F13198
06026	0 60200 0 01347	3180		SLW	G INTO G, AND	4F13232
06057	0 60100 0 01347	3212		STO	G THEN	4F13264
06352	0 60000 0 01347	3433		STZ	G CLEAR RECEIVING CELL.	4F13482
06375	−0 60200 0 01347	3452		ORS	G ADD CHAR TO THOSE IN G.	4F13501
06422	−0 60200 0 01347	3473		ORS	G X	4F13522
06433	−0 60200 0 01347	3482		ORS	G X	4F13531
06434	0 56000 0 01347	3483		LDQ	G MOVE G TO E+2 AND TO G+1.	4F13532
06436	−0 60000 0 01350	3485		STQ	G+1 X	4F13534
06443	−0 50100 0 01347	3490		ORA	G X	4F13539
06444	0 60200 0 01347	3491		SLW	G X	4F13540
06617	0 60200 0 01347	3600		SLW	G X	4F13649
06662	0 60200 0 01347	3635		SLW	G X	4F13683
06705	−0 60200 0 01347	3654		ORS	G X	4F13702
07415	0 60100 0 01347	3998		STO	G DECREMENT OF G, AND	4F14046
07516	0 60100 0 01347	4063	MS9500	STO	G STORE IN G, AND	4F14111
07703	0 60000 0 01347	4204	R04200	STZ	G	4F14253
07707	0 56000 0 01347	4208		LDQ	G	4F14257
07711	0 40000 0 01347	4210		ADD	G	4F14259
07712	0 62200 0 01347	4211		STD	G	4F14260
10013	0 60200 0 01347	4276		SLW	G	4F14325
10017	0 36100 0 01347	4280		ACL	G	4F14329
10454	0 60100 0 01347	4565		STO	G	4F14614
10526	0 70000 0 01347	4607		CPY	G	4F14656
10527	0 70000 0 01350	4608		CPY	G+1	4F14657
10530	0 50000 0 01347	4609		CLA	G	4F14658
10531	0 34000 0 01350	4610		CAS	G+1	4F14659
12172	0 60100 0 01347	5417		STO	G	4F15472

␣␣␣␣␣H = 578

Definition
01102 5870 H SYN ERASE+2 COMMON WORKING STORAGE. 4F15926

References (4)

07372	0 60100 0 01102	3979	STO	H CHARACTER IS NUMERIC, SO HOLD IT.	4F14027
07377	0 40000 0 01102	3984	ADD	H THE CURRENT DIGIT.	4F14032
07456	0 60100 0 01102	4031	STO	H CHARACTER IS NUMERIC, SO HOLD IT.	4F14079
07463	0 36100 0 01102	4036	ACL	H THE CURRENT DIGIT.	4F14084

␣␣␣␣␣I = 747

Definition
01353 299 I BSS 1 4F10289

Local references (4)

01620	0 60100 0 01353	482	C0152	STO	I SET I = +0, OR -0.	4F10472
03671	−0 50000 0 01353	1763		CAL	I OBTAIN I IN LOGICAL ACC AND	4F11820
03703	−0 50000 0 01353	1773		CAL	I OBTAIN I IN LOG ACC AND	4F11830
03712	−0 50000 0 01353	1780		CAL	I OBTAIN I IN LOG ACC AND	4F11837

External references (6)

00250	−0 70000 1 75531	45	ECI	CAD	I,1 COPY ELEMENT NUMBER INTO I-1 ETC	F6C00370
00270	0 50200 1 75531	63		CLS	I,1 SELECT MAX1MUM I+/LAST I/INTO AC	F6C00540
00272	0 56000 1 75531	65	MIT	LDQ	I,1 NEXT I	F6C00560
00274	0 50000 1 75531	67		CLA	I,1	F6C00580
00314	−0 40000 1 75531	89	LIT	SBM	I,1 COMPUTE AND STORE D=L-I FOR I CORRESPONDING TO	F6C00740
00331	0 40100 1 75531	103		ADM	I,1 AND SAVE IT IN EA	F6C00870

␣␣␣␣␣N = 579

Definition
01103 5883 N SYN ERASE+3 COMMON WORKING STORAGE. 4F15943

References (13)

06716	0 53400 2 01103	3663		LXA	N,2 GET NUMBER OF CHARACTERS IN THIS ARG	4F13711
07346	0 60100 0 01103	3958	ROYCNV	STO	N SAVE DECIMAL DIGIT IN N.	4F14006
07353	0 60000 0 01103	3964	DECPNT	STZ	N CLEAR N (NO INTEGER).	4F14012
07373	0 50000 0 01103	3980		CLA	N MULTIPLY THE PREVIOUS	4F14028
07375	0 40000 0 01103	3982		ADD	N BY 10,	4F14030
07402	0 60100 0 01103	3987		STO	N IF NONE, SAVE NEW PARTIAL RESULT.	4F14035
07413	0 50000 0 01103	3996		CLA	N PICK UP CONVERTED CONSTANT, AND	4F14044
07422	0 60100 0 01103	4003		STO	N SAVE PARTIAL RESULT, AND	4F14051
07470	0 50000 0 01103	4041	FN4	CLA	N IF N CONTAINS ZERO, TAKE	4F14089
07511	−0 60000 0 01103	4058		STQ	N SUITABLE CONSTANT	4F14106
07512	0 50000 0 01103	4059		CLA	N TO ADJUST RESULT	4F14107
07524	0 60100 0 01103	4069	FN3	STO	N IF INTEGER WAS SITUATED	4F14117
07525	0 56000 0 01103	4070		LDQ	N TO THE LEFT OF THE DECIMAL POINT,	4F14118

␣␣␣␣␣T = 3238

Definition

			3330			END OF DICTIONARY.	4F13382
			3331			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13383
			3332				4F13384
			3333			T/ TRANSFER TABLE (USED BY CC000).	4F13385
D	06246	1 00000 0 03653	3334	T	TXI	C0100,0 DO.	4F13386

References (3)

03644	0 50000 1 06246	1733	CC007	CLA	T,1 IF THE CURRENT STATEMENT IS	4F11790
03645	0 12000 1 06246	1734		TPL	T,1 OF THE NON-EXECUTABLE TYPE,	4F11791
03652	0 02000 1 06246	1739	CC008	TRA	T,1 * TAKE INDICATED TRANSFER.	4F11796

␣␣␣␣.. = 0

Definition
00000 5904 .. EQU 0 4F15965
Local reference
01366 1 00000 0 00000 308 SET PON .. 4F10298

External references (2)

U	00531	0 50000 2	552	CLMD01	CLA	..,2 GET NEXT ENTRY IN CALL TABLE.	F1P05520
U	00120	3 4 00122	88	FINI	TXH	FINI+2,4,..	F2SIN089

␣␣␣␣1C = 581

Definition
01105 274 1C BSS 5 C0MMON NORKING STORAGE. 4F10264

References (81)

00326	0 00005 0 01105	116		PZE	1C,,5 A,,E.	4F10107
00331	0 00002 0 01105	120		PZE	1C,,2 A,,E.	4F10111
00353	0 00002 0 01105	144		PZE	1C,,2 A,,E.	4F10135
00451	0 00002 0 01107	237		PZE	1C+2,,2 DIM1 ) ARG1+L,,L	4F10228
00456	0 00002 0 01107	243		PZE	1C+2,,2 DIM2 ) ARG1+L,,L	4F10234
00463	0 00003 0 01110	249		PZE	1C+3,,3 DIM3 ) ARG1+L,,L	4F10240
02370	0 60100 0 01105	862		STO	1C OF THE AC, AND IN IC. THEN	4F10851
03410	0 60000 0 01107	1441		STZ	1C+2	4F114578
03415	0 60000 0 01107	1446		STZ	1C+2 SET ADDRESS TO 0	4F11457D
03416	0 60000 0 01110	1447		STZ	1C+3	4F11457E
03421	0 60100 0 01107	1450		STO	1C+2	4F11457H
03423	0 60100 0 01110	1452	FLTR03	STO	1C+3 SET RELATIVE ADDRESS WORD OF CIT.	4F11457J
03434	0 00000 0 01107	1461		PZE	1C+2 SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER	4F11457S
03435	0 00000 0 01110	1462		PZE	1C+3 MAIN OR SUBPROGRAM.	4F11457T
03632	0 60100 0 01105	1723	CC004	STO	1C OTHERWISE, SAVE CHARACTER	4F11780
03633	−0 60000 0 01106	1724		STQ	1C+1 AND REMAINDER OF DICTIONARY WORD.	4F11781
03635	0 56000 0 01106	1726		LDQ	1C+1 AND RESTORE DICTIONARY WORD.	4F11783
03636	0 40200 0 01105	1727		SUB	1C IF CHARACTERS ARE EQUAL,	4F11784
03646	−0 63400 1 01107	1735		SXD	1C+2,1 THEN	4F11792
03651	−0 53400 1 01107	1738		LXD	1C+2,1 AND THEN	4F11795
03661	0 62100 0 01105	1755		STA	1C AND STORE IN ADDR OF 1C.	4F11812
03665	0 60100 0 01106	1759		STO	1C+1 IN 1C+1.	4F11816
03670	0 60100 0 01107	1762		STO	1C+2 IN 1C+2.	4F1.819
03673	−0 60200 0 01105	1765		ORS	1C 0 IF NUMERIC, OR 1 IF NO,-NUMERIC.	4F11822
03702	0 60100 0 01110	1772		STO	1C+3 IN 1C+3.	4F11829
03705	−0 60200 0 01105	1775		ORS	1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC.	4F11832
03711	0 60100 0 01111	1779		STO	1C+4 IN 1C+4.	4F11836
03714	−0 60200 0 01105	1782		ORS	1C O IF NUMERIC, OR 1 IF NON-NUMERIC.	4F11839
03721	0 60100 0 01107	1793		STO	1C+2 AND IN 1C+2.	4F11850
03731	0 60100 0 01106	1801		STO	1C+1 THE 2ND WORD OF TIFGO TABLE ENTRY.	4F11858
03741	0 60100 0 01110	1809		STO	1C+3 FOR COMPILED INSTRUCTION.	4F11866
03747	0 62100 0 01105	1815	C0213	STA	1C STORE 1 OR 2 IN ADDR OF 1C.	4F11872
03752	0 60100 0 01106	1818		STO	1C+1 AND STORE IN 1C+1.	4F11875
03770	0 62100 0 01106	1832		STA	1C+1 IN ADDR OF 1C+1.	4F11889
03771	0 50000 0 01105	1833		CLA	1C OBTAIN 1C IN ACC	4F11890
03777	0 00000 0 01107	1839		PZE	1C+2 WORD 1--DECR= INTFORMNO (LOCATION)	4F11896
04001	0 00000 0 01110	1841		PZE	1C+3 WORD 3--VARIABLE N IADDRESS)	4F11898
04024	0 00000 0 01107	1860		PZE	1C+2 WORD 1--DECR-INTFORMNO(LOCAT1ON)	4F11917
04036	0 60100 0 01105	1877		STO	1C FOR FUTURE TIFGO ENTRY.	4F11934
04071	0 62100 0 01105	1904		STA	1C TO ADDRESS OF 1C.	4F11961
04077	0 60100 0 01106	1910		STO	1C+1 OF 1C+1.	4F11967
04104	0 62100 0 01106	1915		STA	1C+1 TO ADDRESS OF 1C+1.	4F11972
04116	0 60100 0 01105	1931		STO	1C IN ADDRESS 0F 1C.	4F11988
04122	0 60100 0 01110	1936	C0402	STO	1C+3 SET 1C+3 FOR CIT ENTRY.	4F11993
04125	0 62200 0 01105	1939		STD	1C 1C FOR FUTURE TIFGO ENTRY, AND	4F11996
04126	0 60100 0 01107	1940		STO	1C+2 1C+2 FOR FUTURE CIT ENTRY.	4F11997
04134	0 60100 0 01106	1946		STO	1C+1 STORE BETA1 IN DECR OF 1C+1.	4F12003
04141	0 62100 0 01106	1951		STA	1C+1 STORE BETA2 IN ADDR OF 1C+1.	4F12008
04143	0 00000 0 01107	1953		PZE	1C+2 WORD1--DECR = INTFORMNO (LOCATION)	4F12010
04146	0 00000 0 01110	1956		PZE	1C+3 WORD4--DECR=SS OR SL NO., OR 000000	4F12013
04157	0 60100 0 01105	1976	C0601	STO	1C SET 1C FOR FUTURE TIFGO ENTRY.	4F12033
04204	0 60100 0 01105	2014		STO	1C OF 1C FOR FUTURE CIT ENTRY.	4F12071
04207	0 60100 0 01106	2017		STO	1C+1 OF 1C+1,WITH ZEROS ELSEWHERE.	4F12074
04211	0 00000 0 01106	2019		PZE	1C+1 WORD1--DECR = INTFORMNO (LOCATION)	4F12076
04214	0 00000 0 01105	2022		PZE	1C WORD4--DECR = ALPHA, REST ZEROS.	4F12079
04217	0 60100 0 01107	2031		STO	1C+2 AND 1C+2,WITH ZEROS ELSEWHERE.	4F12088
04221	0 62100 0 01105	2033		STA	1C ADDRE=S OF 1C.	4F12090
04232	0 60100 0 01106	2042		STO	1C+1 IN ADDRESS OF 1C+1.	4F12100
04237	0 00000 0 01107	2047		PZE	1C+2 WORD1--DECR = INTFORMNO (LOCATION)	4F12105
04261	0 00000 0 01105	2070		PZE	1C WORD1--DECR = INTFORMNO (LOCATION)	4F12129
04272	0 60100 0 01105	2084		STO	1C IN 1C.	4F12143
04312	0 60100 0 01106	2100		STO	1C+1 OF 1C+1.	4F12160
04317	0 62100 0 01106	2105		STA	1C+1 IN ADDRESS OF 1C+1.	4F12166
04325	0 60100 0 01107	2111		STO	1C+2 IN 1C+2, AND	4F12173
04331	0 60100 0 01106	2115		STO	1C+1 IN 1C+1, AND	4F12177
04335	0 62100 0 01106	2119		STA	1C+1 ADDRESS PART OF 1C+1. AND	4F12181
04351	0 00000 0 01106	2136		PZE	1C+1 WORD3--DECR = INTFORMNO (SYMBOL)	4F12198
04363	0 60100 0 01105	2151		STO	1C SAVE CHAR IN ACC.	4F12215
04366	0 50000 0 01105	2154		CLA	1C RESTORE CHAR IN ACC, AND	4F12218
04400	0 60100 0 01106	2169		STO	1C+1 TO 1.	4F12233
04404	−0 60000 0 01105	2173		STQ	1C INTO 1C.	4F12237
04414	0 60100 0 01106	2181		STO	1C+1 IN 1C+1.	4F12246
04423	0 50200 0 01106	2188	C1504	CLS	1C+1 MAKE SIGN OF N MINUS SINCE	4F12253
04424	0 60100 0 01106	2189		STO	1C+1 TNIS IS LAST ITEM.	4F12254
04550	0 00000 0 01105	2293		PZE	1C WORD1--O(IFN)000	4F12347
04554	0 60000 0 01105	2297		STZ	1C CLEAR 1C.	4F12351
04556	0 00000 0 01105	2299		PZE	1C WORD1--O(IFN)000	4F12353
04641	0 00000 0 01105	2355		PZE	1C WORD1--0(IFN)000	4F12409
05365	0 60100 4 01112	2812		STO	1C+5,4 INTO 1C...1C+4,	4F12866
05370	0 53400 4 01105	2815	SPC8	LXA	1C,4 TEST TO SKIP	4F12869
12214	0 62200 0 01105	5436		STD	1C KEEP 1C UPDATED FOR PENDING TIFGO ENTRY.	4F15496

␣␣␣␣1E = 576

Definition

	5814			END OF ARITHMETIC / STATE D.	4F15866
	5815			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F15867
	5816				4F15868
	5817			SYNONYMS USED BY SECTION ONE.	4F15869
01100	5818	1E	SYN	ERASE COMMON WORKING STORAGE.	4F15870

␣␣␣␣1G = 586

Definition
01112 275 1G BSS 1 COMMON NORKING STORAGE. 4F10265

References (58)

00334	0 00001 0 01112	124		PZE	1G,,1 A,,E.	4F10115
00350	0 00001 0 01112	140		PZE	1G,,1 A,,E.	4F10131
00364	0 00001 0 01112	156		PZE	1G,,1 A,,E.	4F10147
00367	0 00001 0 01112	160		PZE	1G,,1 A,,E.	4F10151
00372	0 00001 0 01112	164		PZE	1G,,1 A,,E.	4F10155
01626	0 60000 0 01112	497		STZ	1G CLEAR WORKING STORAGE.	4F10487
01637	−0 60200 0 01112	506		ORS	1G SYMBOL IN WORKING STORAGE.	4F10496
01650	−0 60200 0 01112	515		ORS	1G THAN 6 CHARACTERS IN LENGTH.	4F10505
01655	0 60100 0 01112	528	C0180	STO	1G PLACE 1ST NUMERIC IN 1G.	4F10517
01663	0 50000 0 01112	534		CLA	1G MULTIPLY	4F10523
01665	0 40000 0 01112	536		ADD	1G BY	4F10525
03225	0 56000 0 01112	1286		LDQ	1G PICKUP SUBROUTINE NAME.	4F11309
03237	−0 60200 0 01112	1296		ORS	1G AND FILL OUT NAME WITH BLANKS.	4F11319
03660	0 50000 0 01112	1754		CLA	1G TAKE CONVERTED RESULT FOR BETA	4F11811
03664	0 50000 0 01112	1758		CLA	1G STORE SUBSCRIPT	4F11815
03667	0 50000 0 01112	1761		CLA	1G STORE N1	4F11818
03701	0 50000 0 01112	1771	C0113	CLA	1G STORE N2	4F11820
03710	0 50000 0 01112	1778		CLA	1G STORE N3	4F11835
03730	0 50000 0 01112	1800		CLA	1G STORE BETA IN 1C+1 TO CONSTRUCT	4F11857
03740	0 50000 0 01112	1808		CLA	1G SAVE THE SYMBOL N IN 1C+3	4F11865
04014	0 50000 0 01112	1852		CLA	1G E+3 = 1ST COEFFICIENT,	4F11909
04070	0 50000 0 01112	1903		CLA	1G MOVE BETA1	4F11960
04075	0 50000 0 01112	1908		CLA	1G MOVE BETA2	4F11965
04103	0 50000 0 01112	1914		CLA	1G MOVE BETA3	4F11971
04117	0 50000 0 01112	1932		CLA	1G ADD THE PROPER INCREMENT TO THE	4F11989
04132	0 50000 0 01112	1944		CLA	1G BRING UP,	4F12001
04140	0 50000 0 01112	1950		CLA	1G BRING UP AND	4F12007
04171	0 60000 0 01112	2003	C0901	STZ	1G CLEAR 1G.	4F12060
04176	0 40000 0 01112	2008		ADD	1G ADD 1G TO DIGIT,	4F12065
04200	0 60100 0 01112	2010		STO	1G AND STORE BACK IN 1G.	4F12067
04202	0 50000 0 01112	2012	C0903	CLA	1G THEN PLACE 0CTAL ALPHA	4F12069
04231	0 50000 0 01112	2041		CLA	1G PUT BIN EQUIV OF ALPHA	4F12099
04246	0 00000 0 01112	2054		PZE	1G WORD3--SYMBOL N IADDRESS)	4F12112
04253	0 50000 0 01112	2064		CLA	1G STORE SENSE LIGHT NUMBER	4F12123
04256	0 60100 0 01112	2067		STO	1G OF 1G.	4F12126
04264	0 00000 0 01112	2073		PZE	1G WORD4--DECR = 96+ALPHA,REST ZEROS.	4F12132
04271	0 50000 0 01112	2083		CLA	1G PUT VARIABLE SYMBOL	4F12142
04310	0 50000 0 01112	2098		CLA	1G PUT D1	4F12158
04316	0 50000 0 01112	2104		CLA	1G PUT D2	4F12165
04324	0 50000 0 01112	2110		CLA	1G IF 3 DIMENSION, PUT D3	4F12172
04330	0 50000 0 01112	2114	C1210	CLA	1G IF 1 DIMENSION, PUT D1	4F12176
04334	0 50000 0 01112	2118	C1220	CLA	1G IF 2 DIMENSION, PUT D2 IN	4F12180
04356	0 50200 0 01112	2146		CLS	1G CHANGE SIGN OF SYMBOL	4F12209
04357	0 60100 0 01112	2147		STO	1G TO MINUS.	4F12210
04403	0 56000 0 01112	2172		LDQ	1G MOVE V	4F12236
04413	0 50000 0 01112	2180		CLA	1G PUT BIN EQUIV OF N	4F12245
04455	0 50000 0 01112	2224		CLA	1G	4F12289
04473	0 50000 0 01112	2238		CLA	1G MOVE ARGUMENT	4F12303
04525	−0 50000 0 01112	2269		CAL	1G STATEMENT WHICH	4F123296
04633	0 50000 0 01112	2349		CLA	1G AFTER COMPLETING NAME W1TH BLANKS,	4F12403
04650	0 00000 0 01112	2362		PZE	1G WORD3--(NAME)	4F12416
05703	−0 63400 2 01112	3070		SXD	1G,2 TAPE READING ERRORS.	4F13122
05713	−0 53400 2 01112	3079	CA130	LXD	1G,2 TEST TAPE ERROR COUNTER	4F13131
05716	−0 63400 2 01112	3082	CA131	SXD	1G,2 SAVE REDUCED VALUE IN COUNTER.	4F13134
06471	0 56000 0 01112	3512		LDQ	1G ENTER ARGUMENT NAME IN ARGREG TABLE.	4F13561
06725	0 60200 0 01112	3670		SLW	1G STORE WORD	4F13718
06732	−0 50000 0 01112	3675	C3353	CAL	1G RETREIVE WORD	4F13723
07323	0 60200 0 01112	3928		SLW	1G MOVE WORD TO BE ENTERED TO 1G	4F13976

␣␣␣␣1H = 589

Definition
01115 278 1H BSS 1 4F10268

References (5)

01645	0 60100 0 01115	512	STO	1H 4 SAVE, AND	4F10502
01651	0 50000 0 01115	516	CLA	1H PICKUP PUNCTUATION MARK,	4F10506
04107	0 60100 0 01115	1923	STO	1H SET 1H TO 112, AND PREPARE TO	4F11980
04120	0 40000 0 01115	1933	ADD	1H NUMBER OF SENSE SWITCH OR LIGHT,	4F11990
04151	0 60100 0 01115	1964	STO	1H 1H AND	4F12021

␣␣␣␣2E = 577

Definition
01101 5820 2E SYN ERASE+1 COMMON WORKING STORAGE. 4F15872

␣␣␣␣2G = 587

Definition
01113 276 2G BSS 1 COMMON WORKING STORAGE FOR STATE A. 4F10266

References (14)

01612	0 60100 0 01113	476		STO	2G SAVE NEXT NON-NUMERIC CHARACTER.	4F10466
01616	0 60100 0 01113	480		STO	2G SAVE PUNCTUATION MARK, AND	4F10470
01621	0 50000 0 01113	483		CLA	2G PICKUP NEXT CHARACTER,	4F10473
01662	0 60100 0 01113	533		STO	2G SAVE DIGIT IN 2G.	4F10522
01667	0 40000 0 01113	538		ADD	2G AND ADD CURRENT DIGIT.	4F10527
03616	0 60000 0 01113	1711	CC000	STZ	2G SET DICTIONARY WORD TAG, AND	4F11768
03657	0 60100 0 01113	1753		STO	2G SAVE THE 1ST CHAR OF SUBSCRIPT.	4F11810
03662	0 50000 0 01113	1756		CLA	2G 1C IS NOW COMPLETE EXCEPT FOR TAG.	4F11813
03755	0 60100 0 01113	1821		STO	2G SAVE CHAR IN ACC.	4F11878
03763	0 50000 0 01113	1827		CLA	2G RESTORE CHAR TO ACC.	4F11884
04022	0 60100 0 01113	1858		STO	2G ADJUST AND SAVE FOR COMP. 1NSTR.	4F11915
04027	0 00000 0 01113	1863		PZE	2G WORD 4--ADDR = TAUTAG FOR I	4F11920
05745	−0 53400 2 01113	3110		LXD	2G,2 REMAIN IN THE MO, THEN	4F13162
05750	−0 63400 2 01113	3113	CC501	SXD	2G,2 DICTIONARY WORD TAG, AND	4F13165

␣␣␣␣2H = 590

Definition
01116 279 2H BSS 1 4F10269

References (4)

04111	0 60100 0 01116	1926	C0401	STO	2H SET 2H FOR SENSE SWITCH OR LIGHT.	4F11983
04144	0 00000 0 01116	1954		PZE	2H WORD2--PSE,MSE,DCT,TOV,OR TQO.	4F12011
04155	0 60100 0 01116	1973		STO	2H IN 2H	4F12030
04163	0 60100 0 01116	1986	C0701	STO	2H SET 2H FOR FUTURE CIT ENTRY.	4F12043

␣␣␣␣2P = 833

Definition
01501 5821 2P SYN I( 4F15873

References (2)

	05502	0 00000 0 01501	2903		PZE	2P WORO3--200000	4F12957
	06066	0 00000 0 01501	3219		PZE	2P WORD3--200000	4F13271

␣␣␣␣3E = 578

Definition
01102 5823 3E SYN ERASE+2 COMMON WORKING STORAGE. 4F15875

␣␣␣␣3G = 588

Definition
01114 277 3G BSS 1 4F10267

␣␣␣␣4E = 579

Definition
01103 5825 4E SYN ERASE+3 COMMON WORKING STORAGE. 4F15877

␣␣␣␣A( = 834

Definition
01502 030000000000 391 A( BCD 1300000 -ARITHMETIC. 4F10381
Reference
12705 0 50000 0 01502 5751 AC0410 CLA A( FLO PT INTERNAL VARIABLE 4F15811

␣␣␣␣BK = 312

Definition

	254			END OF DRUM TABLE PARAMETERS.	4F10245
	255			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10246
	256				4F10247
	257			COUNT AND,BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES.	4F10248
00470	258	BK	BSS	1 FORSUB COUNTER.	4F10249

References (5)

06447	−0 53400 4 00470	3494		LXD	BK,4 THIS IS ARITH FUNCTION STATEMENT.	4F13543
06455	−0 63400 4 00470	3500	FS010	SXD	BK,4 X	4F13549
06544	−0 53400 1 00470	3555		LXD	BK,1 TYPE NUMBER.	4F13604
06770	−0 53400 4 00470	3706		LXD	BK,C IS FORSUB EMPTY	4F13754
12670	−0 53400 2 00470	5738		LXD	BK,B	4F15798

␣␣␣␣BS = 413

Definition

		260			END OF FUNCTION COUNT AND BUFFER.	4F10251
		261			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10252
		262				4F10253
		263			PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE.	4F10254
00635	0 00144 0 00000	264	BS	PZE	,,100 CIB CAPACITY (4 * 25).	4F10255

Reference
01735 0 50000 0 00635 601 CLA BS COMPARE BLOCK SIZE 4F10590

␣␣␣␣CW = 7284

Definition
16164 5807 CW BSS 4 4F15859

References (130)

11267	0 60200 0 16164	4965		SLW	CW STO INT. FORM. NO. IN DEC. FIELD 0F CW.	4F15015
11363	0 60200 0 16165	5025	CP0740	SLW	CW+1	4F15075
11370	0 60200 0 16165	5030		SLW	CW+1 COMPILE CHS FOR 1ST ELEMENT	4F15080
11371	0 60000 0 16166	5031		STZ	CW+2	4F15081
11372	0 60000 0 16167	5032		STZ	CW+3	4F15082
11376	0 60200 0 16165	5036		SLW	CW+1 COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT	4F15086
11405	0 60200 0 16165	5043	CP0940	SLW	CW+1	4F15093
11426	0 60200 0 16165	5060	CP1140	SLW	CW+1	4F15110
11431	0 60000 0 16164	5063		STZ	CW RESET CW	4F15113
11452	0 60100 0 16165	5080		STO	CW+1	4F15130
11471	0 60100 0 16165	5095		STO	CW+1 AND SEGMENT IS FLO PT	4F15145
11473	0 60100 0 16166	5097		STO	CW+2	4F15147
11474	0 60000 0 16167	5098		STZ	CW+3	4F15148
11477	0 60100 0 16165	5101		STO	CW+1	4F15151
11502	0 60100 0 16165	5104		STO	CW+1 COMPILE FDP SYMJ (S(I))	4F15154
11511	0 60100 0 16165	5111		STO	CW+1	4F15161
11513	0 60100 0 16166	5113		STO	CW+2	4F15163
11514	0 60000 0 16167	5114		STZ	CW+3	4F15164
11517	0 60100 0 16165	5117		STO	CW+1	4F15167
11527	0 60100 0 16165	5125		STO	CW+1	4F15175
11540	0 60100 0 16165	5134		STO	CW+1	4F15184
11570	0 60200 0 16165	5158		SLW	CW+1	4F15208
11574	0 60000 0 16164	5162	CP2200	STZ	CW RESET CW	4F15212
11613	0 60200 0 16165	5177		SLW	CW+1	4F15227
11626	0 60200 0 16165	5188		SLW	CW+1	4F15238
11644	0 60200 0 16165	5202		SLW	CW+1	4F15252
11646	0 60200 0 16166	5204		SLW	CW+2	4F15254
11650	0 60200 0 16167	5206		SLW	CW+3	4F15256
11653	0 60200 0 16165	5209		SLW	CW+1	4F15259
11655	0 60200 0 16166	5211		SLW	CW+2	4F15261
11660	0 60200 0 16165	5214		SLW	CW+1	4F15264
11662	0 60200 0 16166	5216		SLW	CW+2	4F15266
11667	0 50200 0 16164	5222		CLS	CW 1... OPEN SBRTN	4F15272
11670	0 60100 0 16164	5223		STO	CW CW TO -CW	4F15273
11672	0 60100 0 16166	5225		STO	CW+2	4F15275
11674	0 60000 0 16164	5227		STZ	CW RESET CW	4F15277
11700	0 60200 0 16164	5231		SLW	CW	4F15281
11711	−0 60000 0 16166	5240	CP2860	STQ	CW+2	4F15290
11712	0 60000 0 16167	5241		STZ	CW+3	4F15291
11714	0 60000 0 16164	5243		STZ	CW RESET CW	4F15293
11730	0 60200 0 16164	5255		SLW	CW	4F15305
11732	0 60000 0 16164	5257		STZ	CW RESET CW	4F15307
11741	0 60100 0 16165	5264		STO	CW+1	4F15314
11743	0 60100 0 16166	5266		STO	CW+2	4F15316
11745	0 60100 0 16167	5268		STO	CW+3	4F15318
11750	0 60100 0 16165	5271		STO	CW+1	4F15321
11752	0 60100 0 16166	5273		STO	CW+2	4F15323
11756	0 60100 0 16165	5277		STO	CW+1	4F15332
11761	0 60000 0 16164	5280		STZ	CW RESET CW	4F15335
11770	0 60100 0 16165	5287		STO	CW+1	4F15342
12002	0 60100 0 16165	5297		STO	CW+1	4F15352
12005	0 60000 0 16164	5300		STZ	CW REST CW	4F15355
12016	0 60100 0 16165	5309		STO	CW+1	4F15364
12022	0 60100 0 16165	5313		STO	CW+1	4F15368
12024	0 60100 0 16166	5315		STO	CW+2	4F15370
12026	0 60100 0 16167	5317		STO	CW+3	4F15372
12047	0 60100 0 16165	5334		STO	CW+1	4F15389
12053	0 60100 0 16165	5338		STO	CW+1	4F15393
12055	0 60100 0 16166	5340		STO	CW+2	4F15395
12057	0 60100 0 16167	5342		STO	CW+3	4F15397
12073	0 60100 0 16165	5354		STO	CW+1	4F15409
12076	0 60000 0 16164	5357		STZ	CW RESET CW	4F15412
12107	0 60100 0 16165	5366	CP4210	STO	CW+1	4F15421
12115	−0 60000 0 16166	5372		STQ	CW+2 1...BASE IN MQ	4F15427
12116	0 60000 0 16167	5373		STZ	CW+3	4F15428
12121	0 50200 0 16164	5376	CP4320	CLS	CW	4F15431
12122	0 60100 0 16164	5377		STO	CW CW TO -CW	4F15432
12124	0 60000 0 16164	5379		STZ	CW RESET CW	4F15434
12126	0 60100 0 16166	5381		STO	CW+2	4F15436
12130	0 60000 0 16165	5383		STZ	CW+1 RESET CW+1	4F15438
12136	0 60100 0 16165	5389		STO	CW+1	4F15444
12143	0 60100 0 16165	5394		STO	CW+1	4F15449
12145	0 60100 0 16166	5396		STO	CW+2	4F15451
12147	0 60100 0 16167	5398		STO	CW+3	4F15453
12152	0 60100 0 16165	5401		STO	CW+1	4F15456
12171	0 60100 0 16166	5416	CP4730	STO	CW+2	4F15471
12200	0 60100 0 16165	5423		STO	CW+1	4F15483
12203	0 60000 0 16164	5426		STZ	CW	4F15486
12225	−0 50000 0 16167	5445		CAL	CW+3 NO GENERAL TAG PRESENT,SO PLACE	4F15505
12240	0 60200 0 16165	5456		SLW	CW+1	4F15516
12242	0 60000 0 16164	5458		STZ	CW RESET CW	4F15518
12256	0 60200 0 16165	5470		SLW	CW+1	4F15530
12261	0 60200 0 16166	5473		SLW	CW+2	4F15533
12264	0 60200 0 16167	5476		SLW	CW+3	4F15536
12271	0 60200 0 16165	5481		SLW	CW+1	4F15541
12273	0 60200 0 16166	5483		SLW	CW+2	4F15543
12275	0 60200 0 16167	5485		SLW	CW+3	4F15545
12301	0 60200 0 16164	5489		SLW	CW	4F15549
12303	0 60200 0 16165	5491		SLW	CW+1	4F15551
12305	0 60200 0 16166	5493		SLW	CW+2	4F15553
12307	0 60000 0 16164	5495		STZ	CW RESET CW	4F15555
12321	−0 60000 0 16167	5505		STQ	CW+3 NO GENERAL TAG PRESENT	4F15565
12323	0 60200 0 16166	5507		SLW	CW+2	4F15567
12346	0 60100 0 16166	5526		STO	CW+2	4F15586
12350	0 60100 0 16167	5528		STO	CW+3	4F15588
12354	0 60100 0 16165	5532		STO	CW+1	4F15592
12406	0 60100 0 16165	5558		STO	CW+1	4F15618
12423	0 60100 0 16165	5571		STO	CW+1	4F15631
12425	0 60100 0 16166	5573		STO	CW+2	4F15633
12426	0 60000 0 16167	5574		STZ	CW+3	4F15634
12431	0 60100 0 16165	5577		STO	CW+1	4F15637
12472	0 60100 0 16165	5610		STO	CW+1	4F15670
12474	0 60100 0 16166	5612		STO	CW+2	4F15672
12475	0 60000 0 16167	5613		STZ	CW+3	4F15673
12500	0 60100 0 16165	5616		STO	CW+1	4F15676
12524	0 60100 0 16165	5636		STO	CW+1	4F15696
12525	0 60000 0 16166	5637		STZ	CW+2	4F15697
12530	0 60200 0 16167	5640		SLW	CW+3	4F15700
12545	0 60100 0 16165	5653		STO	CW+1	4F15713
12547	0 60100 0 16166	5655		STO	CW+2	4F15715
12550	0 60000 0 16167	5656		STZ	CW+3	4F15716
12553	0 60100 0 16165	5659		STO	CW+1	4F15719
12622	0 00000 0 16164	5699		HTR	CW	4F15759
12623	0 00000 0 16165	5700		HTR	CW+1	4F15760
12624	0 00000 0 16166	5701		HTR	CW+2	4F15761
12625	0 00000 0 16167	5702		HTR	CW+3	4F15762
12667	0 60200 0 16167	5737		SLW	CW+3 STORE ARGUMENT BUFFER RELATIVE ADDRESS	4F15797
12674	0 60200 0 16166	5742	AC0320	SLW	CW+2	4F15802
12676	0 60000 0 16167	5744	AC0340	STZ	CW+3 NON-SUBSCRIPTED, REAL VARIABLE	4F15804
12706	0 60100 0 16166	5752	AC0420	STO	CW+2	4F15812
12710	−0 60000 0 16167	5754		STQ	CW+3	4F15814
12716	0 60200 0 16167	5760		SLW	CW+3	4F15820
12725	0 60200 0 16167	5767		SLW	CW+3 STORE FOR NEXT CIT ENTRY.	4F15827
12727	0 60000 0 16167	5769		STZ	CW+3	4F15829
12752	−0 60200 0 16167	5788		ORS	CW+3 ADD RELATIVE ADDRESS TO I-TAU TAG.	4F15848
12754	0 60100 0 16166	5790		STO	CW+2	4F15850
12757	0 00000 0 16164	5794			CW	4F158513
12760	0 00000 0 16165	5795			CW+1	4F158514
12761	0 00000 0 16166	5796			CW+2	4F158515
12762	0 00000 0 16167	5797			CW+3	4F158516

␣␣␣␣D1 = 812

Definition
01454 5844 D1 SYN 2E18 4F15896

References (5)

02373	0 40000 0 01454	871	ADD	D1 INTERNAL FORMULA NUMBER	4F10860
02450	0 56000 0 01454	897	LDQ	D1 SUBSCRIPT	4F10920
02456	0 50000 0 01454	903	CLA	D1 IF 1 DIMENSION, PICKUP DECREMENT 1,	4F10926
04504	0 40000 0 01454	2247	ADD	D1 ARGUMENT COUNT	4F12312
04730	0 00000 0 01454	2426	PZE	D1 WORD4--001000	4F12480

␣␣␣␣D2 = 815

Definition
01457 0 00002 0 00000 372 D2 PZE ,,2 CONSTANT USED BY IOT. 4F10362

References (3)

03422	0 50000 0 01457	1451	CLA	D2	4F11457I
03430	0 00000 0 01457	1457	PZE	D2	4F11457O
05010	0 00000 0 01457	2501	PZE	D2 WORD4--002000	4F12555

␣␣␣␣D3 = 578

Definition
01102 5847 D3 SYN ERASE+2 COMMON WORKING STORAGE. 4F15899

References (6)

02031	0 00000 0 01102	670	DMSR05	PZE	D3 (DIM1 AND DIM2 = STZ , DIM3 = CPY).	4F10659
02044	0 00000 0 01102	681	DMSR07	PZE	D3 (DIM1 AND DIM2 = STZ, DIM3 = CPY).	4F10670
02053	0 36100 0 01102	688		ACL	D3 LOGICAL CHECKSUM	4F10677
02065	0 60000 0 01102	699	DMCN12	STZ	D3 CONSTANT USED BY DIM.SR.	4F10688
02066	0 70000 0 01102	700	DMCN3	CPY	D3 CONSTANT USED BY DIM.SR.	4F10689
05465	0 20000 0 01102	2890		MPY	D3 AND IF	4F12944

␣␣␣␣D6 = 819

Definition
01463 0 00006 0 00000 376 D6 PZE ,,6 CONSTANT USED BY IOT. 4F10366

␣␣␣␣DI = 1268

Definition
02364 852 DI BSS 1 WORKING STORAGE USED BY DRTABS. 4F10841

References (2)

	02150	−0 53400 1 02364	760		LXD	DI,1	4F10749
	02521	−0 53400 2 02364	943	REP	LXD	DI,2 SET XRZ = (5-DRUM NUMBER).	4F10966

␣␣␣␣E( = 832

Definition
01500 010000000000 389 E( BCD 1100000 -ARITHMETIC. 4F10379

References (2)

	06337	−0 50000 0 01500	3422		CAL	E( SET ARERAS - E(	4F13471
		01500	5853	DMP	SYN	E(	4F15909

␣␣␣␣EC = 414

Definition
00636 0 00000 0 00000 265 EC PZE ,,** ENTRY COUNT = NO. WORDS IN CIB. 4F10256

References (2)

	01736	0 40200 0 00636	602		SUB	EC WITH ENTRY COUNT.	4F10591
	01764	−0 63400 2 00636	624		SXD	EC,2 SAVE IN EC.	4F10613

␣␣␣␣FT = 731

Definition
01333 295 FT BSS 12 SOURCE PROGRAM INPUT BUFFER. 4F10285

References (7)

03445	−0 50000 0 01333	1591		CAL	FT OBTAIN HOLLERITH CODED 5-DIGIT	4F11648
03452	0 56000 2 01347	1596	CA019	LDQ	FT+12,2 MOVE WORD FROM REG1ON FT	4F11653
03457	−0 50000 0 01333	1601		CAL	FT TEST RIGHTMOST CHARACTER OF	4F11658
05710	0 70000 2 01347	3076	CA102	CPY	FT+12,2 C0PY INTO FT REGION	4F13128
05727	0 40200 2 01347	3091		SUB	FT+12,2 FOR	4F13143
05733	−0 50000 0 01333	3095	CA113	CAL	FT IF NOT BLANK,	4F13147
05740	0 60000 0 01333	3100	CA120	STZ	FT INDICATE THAT FINAL	4F13152

␣␣␣␣H( = 850

Definition
01522 5871 H( SYN ADSPOP 4F15927
Reference
12701 −0 50000 0 01522 5747 AC0350 CAL H( 4F15807

␣␣␣␣I( = 833

Definition
01501 020000000000 390 I( BCD 1200000 -ARITHMETIC. 4F10380

References (2)

	12703	0 50000 0 01501	5749	AC0390	CLA	I( FIX PT INTERNAL VARIABLE	4F15809
		01501	5821	2P	SYN	I(	4F15873

␣␣␣␣K1 = 3933

Definition
4078 4F14126

07535 +233000000000 4079 K1 OCT 233000000000 CONSTANT USED BY ROYCNV. 4F14127

References (2)

	07472	0 62100 0 07535	4043		STA	K1 PUT INTEGER INTO FLO PT WORD,	4F14091
	07476	0 30000 0 07535	4047	FN1	FAD	K1 THEN FLOATING ADD THE RESULT	4F14095

␣␣␣␣K2 = 3934

Definition
07536 +252000000000 4080 K2 OCT 252000000000 CONSTANT USED BY ROYCNV. 4F14128
Reference
07475 −0 50100 0 07536 4046 ORA K2 AFFIX CORRECT EXPONENT. 4F14094

␣␣␣␣K3 = 3935

Definition
07537 +000400000000 4081 K3 OCT 400000000 CONSTANT USED BY ROYCNV. 4F14129
Reference
07501 −0 50100 0 07537 4050 ORA K3 NORMALIZED RESULT. 4F14098

␣␣␣␣K4 = 3936

Definition
07540 +335000000000 4082 K4 OCT 335000000000 CONSTANT USED BY ROYCNV. 4F14130
Reference
07513 0 36100 0 07540 4060 ACL K4 AND TEST FOR OUT OF RANGE. 4F14108

␣␣␣␣K5 = 3937

Definition
07541 +043000000000 4083 K5 OCT 43000000000 CONSTANT USED BY ROYCNV. 4F14131
Reference
07527 0 36100 0 07541 4072 ACL K5 CONSTANT TO ADJUST AND TEST RANGE. 4F14120

␣␣␣␣MQ = 1263

Definition
02357 847 MQ BSS 1 WORKING STORAGE USED BY DRTABS. 4F10836

References (2)

	02101	−0 60000 0 02357	721		STQ	MQ SAVE THE C(MQR).	4F10710
	02254	0 56000 0 02357	828		LDQ	MQ RESTORE THE C(MQR), AND	4F10817

␣␣␣␣MZ = 827

Definition
01473 +000052000000 384 MZ OCT 52000000 MINUS ZERO -CD000. 4F10374

␣␣␣␣N2 = 753

Definition
01361 303 N2 BSS 1 4F10293

References (8)

02465	−0 60000 0 01361	910		STQ	N2 ADDEND 2 IN N2.	4F10933
02503	0 40200 0 01361	924	2D1	SUB	N2 SUBTRACT ADDEND 2.	4F10047
05447	0 60000 0 01361	2876		STZ	N2 DIMENSION 1 AND	4F12930
05450	−0 62000 0 01361	2877		SLQ	N2 DIMENSION 2	4F12931
05452	0 20000 0 01361	2879		MPY	N2 THEM TOGETHER.	4F12933
05460	0 60000 0 01361	2885		STZ	N2 DIMENSION 1,	4F12939
05461	−0 62000 0 01361	2886		SLQ	N2 DIMENSION 2,	4F12940
05463	0 20000 0 01361	2888		MPY	N2 MULTIPLY	4F12942

␣␣␣␣NC = 1171

Definition
02223 1 00000 0 02225 803 NC TXI NC+2,0,** NOT FOUND. 4F10792

References (5)

02140	−0 63400 2 02223	752		SXD	NC,2	4F10741
02216	−0 53400 4 02223	798	NXBLK	LXD	NC,4	4F10787
02223	1 00000 0 02225	803	NC	TXI	NC+2,0,** NOT FOUND.	4F10792
02226	−0 63400 1 02227	806		SXD	NC+4,1	4F10795
02230	−0 63400 4 02223	808		SXD	NC,4 SAVE CURRENT VALUE OF N,	4F10797

␣␣␣␣O( = 836

Definition
01504 060000000000 393 O( BCD 1600000 -ARITHMETIC. 4F10383

References (5)

12436	0 00000 0 01504	5582		HTR	O(	4F15642
12450	0 00000 0 01504	5592		HTR	O(	4F15652
12512	0 00000 0 01504	5626		HTR	O(	4F15686
12517	0 00000 0 01504	5631		HTR	O(	4F15691
	01504	5903	ZER	SYN	O(	4F15964

␣␣␣␣OP = 7937

Definition
17401 3379 OP BSS 1 VARIABLE USED BY IOT. 4F13429

References (11)

04712	0 60200 0 17401	2412		SLW	OP INTO OP.	4F12466
05000	0 60200 0 17401	2493		SLW	OP INTO OP.	4F12547
05013	0 60200 0 17401	2509		SLW	OP INTO OP.	4F12563
05046	0 60200 0 17401	2542	XDR	SLW	OP SET OP.	4F12596
05052	0 60200 0 17401	2546		SLW	OP INTO OP.	4F12600
05067	0 60200 0 17401	2570	TPO	SLW	OP SET OP.	4F12624
05103	0 00000 0 17401	2582		PZE	OP NORD2--(WEF,REW,OR BSP)000	4F12636
05510	0 00000 0 17401	2909		PZE	OP WORD2--(OPERATION CODE)	4F12963
05541	0 00000 0 17401	2934		PZE	OP WORD2--NTR000 OR CPY000	4F12988
05657	0 00000 0 17401	3040		PZE	OP WORD2--(WTB,RBT,WRD,RDD)000	4F13092
05663	0 60200 0 17401	3044		SLW	OP INTO OP.	4F13096

␣␣␣␣P( = 835

Definition
01503 040000000000 392 P( BCD 1400000 -ARITHMETIC. 4F10382

References (4)

11551	−0 50100 0 01503	5143	ORA	P( FORM 4...TYPE NO.	4F15193
12023	0 50000 0 01503	5314	CLA	P(	4F15369
12054	0 50000 0 01503	5339	CLA	P(	4F15394
12673	−0 50100 0 01503	5741	ORA	P(	4F15801

␣␣␣␣PM = 797

Definition
01435 +000000000072 354 PM OCT 72 RECORD MARK (ILLEGAL) -CD000 4F10344
Reference
03543 0 34000 0 01435 1658 CD600 CAS PM CMECK FOR RECORD MARK 4F11715

␣␣␣␣PZ = 823

Definition
01467 +000032000000 380 PZ OCT 32000000 PLUS ZERO -ED000. 4F10370

␣␣␣␣RA = 7938

Definition
17402 3380 RA BSS 1 VARIABLE USED BY IOT. 4F13430

References (9)

05100	0 60100 0 17402	2579	STO	RA PLACE IN THE DECREMENT OF RA.	4F)2633
05105	0 00000 0 17402	2584	PZE	RA WORD4--0(CON)000 OR 000000	4F12638
05430	0 60100 0 17402	2861	STO	RA (RELATIVE ADDRESS)	4F12915
05434	0 62100 0 17402	2865	STA	RA TMEN CLEAR THE ADDRESS OF RA.	4F12919
05543	0 00000 0 17402	2936	PZE	RA WORD4--(RELATIVE ADDRESS)	4F12990
05654	0 60100 0 17402	3037	STO	RA NUMBER, AND SET RA.	4F13089
05661	0 00000 0 17402	3042	PZE	RA WORD4--000000 OR 0(UNIT)000	4F13094
06062	0 60100 0 17402	3215	STO	RA SET RA.	4F13267
06067	0 00000 0 17402	3220	PZE	RA WORD4--(FIXCON TAG)	4F13272

␣␣␣␣SA = 7939

Definition
17403 3381 SA BSS 1 VARIABLE USED BY IOT. 4F13431

References (5)

05214	0 60200 0 17403	2692		SLW	SA COMPILE SYMBOLIC ADDRESS.	4F12746
05420	0 60200 0 17403	2852	CMA4	SLW	SA INTO SA. AND	4F12906
05436	−0 50000 0 17403	2867	DIMSR	CAL	SA IF THIS VARIABLE	4F12921
05511	0 00000 0 17403	2910		PZE	SA WORD3--(SYMBOLIC ADDRESS)	4F12964
05542	0 00000 0 17403	2935		PZE	SA WORD3--(SYMBOL)	4F12989

␣␣␣␣SL = 759

Definition
01367 309 SL BSS 1 4F10299

References (20)

02377	0 60200 0 01367	876	L(SL)	SLW	SL PLACE IFN IN THE DECREMENTS	4F10865
04575	0 00000 0 01367	2314		PZE	SL WORD1--O(IFN+1)000	4F12368
04604	0 00000 0 01367	2321		PZE	SL WORD3--O(IFN+1)000	4F12375
05102	0 00000 0 01367	2581	TPOA	PZE	SL WORD1--0(IFN)O0O OR 0(IFN)0(248)	4F12635
05236	−0 50000 0 01367	2710	LPRE	CAL	SL IF C(SL) 0O NOT = 0,	4F12764
05500	0 00000 0 01367	2901		PZE	SL WORD1--0(IFN)000	4F12955
05507	0 00000 0 01367	2908		PZE	SL WORD1--0(IFN)000 OR 000000	4F12962
05513	0 60000 0 01367	2912		STZ	SL CLEAR SL, AND	4F12966
05521	0 00000 0 01367	2918		PZE	SL WORD3--0(IFN)0004	4F12972
05523	0 60000 0 01367	2920		STZ	SL CLEAR SL, AND	4F12974
05540	0 00000 0 01367	2933		PZE	SL WORD1--0(IFN)000 OR 000000	4F12987
05544	0 60000 0 01367	2937		STZ	SL CLEAR SL, AND	4F12991
05556	0 00000 0 01367	2953		PZE	SL WORD1--0(IFN)000	4F13007
05671	0 60000 0 01367	3050		STZ	SL CLEAR SL,	4F13102
05675	0 00000 0 01367	3059		PZE	SL WORD1--0(IFN)000	4F13111
05764	0 00000 0 01367	3131		PZE	SL WORD1--0(IFN)000	4F13183
05770	0 60000 0 01367	3135		STZ	SL CLEAR,SL,	4F13187
06010	0 00000 0 01367	3162		PZE	SL WORD1--0(IFN)000	4F13214
06021	0 60000 0 01367	3171		STZ	SL CLEAR SL, AND	4F13223
06046	0 00000 0 01367	3203		PZE	SL WORD1--0(IFN)000	4F13255

␣␣␣␣ST = 782

Definition
01416 5889 ST SYN L(8) 4F15950

References (3)

05512	0 00000 0 01416	2911	PZE	ST WORD4--000008	4F12965
05522	0 00000 0 01416	2919	PZE	ST WORD4--000008	4F12973
05531	0 00000 0 01416	2926	PZE	ST WORD4--000008	4F12980

␣␣␣␣SW = 1130

Definition
D 02152 −3 00000 0 02174 762 SW TXL EBLK,0 ENTRY SUM=TXL, BLOCK SUM=TXH. 4F10751
Reference
02126 0 63000 0 02152 742 STP SW X 4F10731

␣␣␣␣TL = 761

Definition
01371 0 00000 0 00370 311 TL PZE 31*8,,** 4F10301

References (7)

02400	0 62200 0 01371	877	L(TL)	STD	TL OF SL AND TL.	4F10866
04737	0 00000 0 01371	2433		PZE	TL NORD1--0(IFN)0(248)	4F12487
05041	0 00000 0 01371	2531		PZE	TL WORD3--0(IFN)0(248)	4F12585
05060	0 00000 0 01371	2552		PZE	TL WORD3--0(IFN)0(248)	4F12606
05253	0 50200 0 01371	2723		CLS	TL MOVE -(0(IFN)0(248)) INTO THE	4F12777
05656	0 00000 0 01371	3039		PZE	TL WORD1--0(IFN)0(248)	4F13091
06103	0 00000 0 01371	3232		PZE	TL WORD3--0(IFN)000	4F13284

␣␣␣␣X( = 837

Definition
01505 070000000000 394 X( BCD 1700000 -ARITHMETIC. 4F10384

References (14)

04643	0 00000 0 01505	2357	PZE	X( WORD3--700000	4F12411
04655	0 00000 0 01505	2367	PZE	X( WORD3--700000	4F12421
11472	0 50000 0 01505	5096	CLA	X(	4F15146
11512	0 50000 0 01505	5112	CLA	X(	4F15162
11554	−0 50100 0 01505	5146	ORA	X( FORM 7...TYPE NO.	4F15196
11742	0 50000 0 01505	5265	CLA	X(	4F15315
12144	0 50000 0 01505	5395	CLA	X(	4F15450
12272	−0 50000 0 01505	5482	CAL	X(	4F15542
12335	0 00000 0 01505	5517	HTR	X(	4F15577
12424	0 50000 0 01505	5572	CLA	X(	4F15632
12473	0 50000 0 01505	5611	CLA	X(	4F15671
12546	0 50000 0 01505	5654	CLA	X(	4F15714
12572	0 00000 0 01505	5674		X(	4F15734
12577	0 00000 0 01505	5679		X(	4F15739

␣␣␣11Z = 769

Definition
01401 +000000000040 324 11Z OCT 40 - - CTEST-5 4F10314

References (8)

07434	0 34000 0 01401	4013	CAS	11Z COMPARE CHARACTER WITH A DASH.	4F14061
07663	0 40200 0 01401	4188	SUB	11Z	4F14237
10052	−0 50000 0 01401	4307	CAL	11Z STORE CS BIT	4F14356
10253	−0 32000 0 01401	4436	ANA	11Z	4F14485
10334	−0 32000 0 01401	4485	ANA	11Z EXTRACT CS-BIT	4F14534
11025	0 40200 0 01401	4798	SUB	11Z IS OP (S(0)) = + OR -	4F14847
11335	0 40200 0 01401	5003	SUB	11Z	4F15053
11354	0 40200 0 01401	5018	SUB	11Z	4F15068

␣␣␣12Z = 772

Definition
01404 +000000000020 327 12Z OCT 20 + - CTEST-2 4F10317

References (5)

07437	0 34000 0 01404	4016		CAS	12Z IF LESS THAN 32, COMPARE WITH PLUS.	4F14064
10632	−0 50000 0 01404	4675		CAL	12Z S(I) RESULTS IN MQ (TYPE MQ)	4F14724
11033	−0 32000 0 01404	4804		ANA	12Z	4F14853
11045	−0 50000 0 01404	4814		CAL	12Z S(0) TYPE MQ, SO	4F14863
	01404	5884	PLUS	SYN	12Z	4F15945

␣␣␣15P = 840

Definition
01510 +170000000000 397 15P DEC 15B5 CONSTANT USED BY IOT. 4F10387

References (4)

03427	0 00000 0 01510	1456	PZE	15P	4F11457N
05027	0 00000 0 01510	2521	PZE	15P WORD3--*00000	4F12575
05560	0 00000 0 01510	2955	PZE	15P WORD3--*00000	4F13009
06012	0 00000 0 01510	3164	PZE	15P WORD3--*00000	4F13216

␣␣␣1D1 = 1353

Definition
02511 0 40200 0 01141 930 1D1 SUB E+11 SUBTRACT ADDEND 1, 4F10953
Reference
02460 −3 00001 4 02511 905 TXL 1D1,4,1 IF 2 OR 3 DIMENSION, THEN 4F10928

␣␣␣1E9 = 803

Definition
01443 +000000001000 360 1E9 OCT 1000 A0DRESS=8 4F10350

␣␣␣2D1 = 1347

Definition
02503 0 40200 0 01361 924 2D1 SUB N2 SUBTRACT ADDEND 2. 4F10047
Reference
02470 −3 00002 4 02503 913 TXL 2D1,4,2 AND GO SUBTRACT ADDEND 2. 4F10936

␣␣␣A81 = 799

Definition
01437 +000000000121 356 A81 DEC 81 CONSTANT USED BY IOT. 4F10346
Reference
04673 0 50000 0 01437 2395 RDC CLA A81 SET THE ADDRESS FIELD OF 4F12449

␣␣␣ABS = 2972

Definition
05634 0 53400 2 01413 3017 ABS LXA L(5),2 IF CONSTANT, 4F13069
Reference
05626 −0 12000 0 05634 3011 TMI ABS OR CONSTANT. 4F13063

␣␣␣ADD = 858

Definition
01532 5829 ADD SYN L(ADD) 4F15881
Reference
06065 0 00000 0 01532 3218 PZE ADD WORD2--ADD000 4F13270

␣␣␣ALT = 1083

Definition
714 ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES. 4F10703

02073 0 50000 0 00422 715 ALT CLA TXHOP PICK UP SWITCH CONTROL, 4F10704

References (6)

00417	1 00003 0 02073	205	FXCNIX	TXI	ALT,,5−2 TXI ALT,,I	4F10196
00424	1 00003 0 02073	211	FLCNIX	TXI	ALT,,5−2 TXI ALT,,I	4F10202
00431	1 00001 0 02073	217	TAU1IX	TXI	ALT,,5−4 TAI ALT,,I	4F10208
00436	1 00001 0 02073	223	TAU2IX	TXI	ALT,,5−4 TXI ALT,,I	4F10214
00443	1 00001 0 02073	229	TAU3IX	TXI	ALT,,5−4 TXI ALT,,I	4F10220
00450	1 00003 0 02073	235	SIG1IX	TXI	ALT,,5−2 TXI ALT,,I	4F10226

␣␣␣ARS = 861

Definition
01535 5834 ARS SYN L(ARS) 4F15886
Reference
06072 0 00000 0 01535 3223 PZE ARS WORD2--ARS000 4F13275

␣␣␣BCD = 3144

Definition

		3237			END OF PROGRAM VRA(VRD).	4F13289
		3238			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13290
		3239			,	4F13291
		3240			STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A=	4F13292
		3241				4F13293
06110	222324000000	3242	BCD	BCD	1BCD000 CONSTANT USED BY IOT.	4F13294

␣␣␣BDA = 830

Definition
01476 0 00300 0 00000 387 BDA PZE 0,0,192 CONSTANT USED BY I0T. 4F10377
Reference
05047 −0 50000 0 01476 2543 CAL BDA PICKUP 0INARY DRUM ADDRESS, AND 4F12597

␣␣␣BDC = 3158

Definition
06126 742224233460 3256 BDC BCD 1(BDC)␣ CONSTANT USED BY IOT. 4F13308
Reference
04762 0 50000 0 06126 2464 CLA BDC PICKUP (BDC) TO SET TTA, AND 4F12518

␣␣␣BEG = 2947

Definition

		2975			END OF PROGRAM EMK.	4F13029
		2976			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13030
		2977				4F13031
		2978			STATEA/4-SUBROUTINES USED BY STATE A=	4F13032
		2979
		2980			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
		2981				4F13033
		2982			BEG(TYP),4/ CALLS=DIAG. USES RSC.	4F13034
		2983			BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT.	4F13035
05603	−0 63400 4 05605	2984	BEG	SXD	BEX,4 SAVE C(XR4) FOR RETURN,	4F13036

References (5)

04704	0 07400 4 05603	2406	TSX	BEG,4 * CONVERT CONSTANT FORMAT NUMBER.	4F12460
04746	0 07400 4 05603	2446	TSX	BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL.	4F12500
04765	0 07400 4 05603	2472	TSX	BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL.	4F12526
05075	0 07400 4 05603	2576	TSX	BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL.	4F12630
05651	0 07400 4 05603	3034	TSX	BEG,4 * GO SCAN AND TEST TYPE OF SYMBOL.	4F13086

␣␣␣BEX = 2949

Definition
05605 1 00000 0 05146 2986 BEX TXI CXS,0,** * AND GO EXECUTE BEGINNING SCAN. 4F13038

References (2)

	05603	−0 63400 4 05605	2984	BEG	SXD	BEX,4 SAVE C(XR4) FOR RETURN,	4F13036
	05623	−0 53400 4 05605	3007	CMB	LXD	BEX,4 RESTORE THE C(XR4), AND	4F13059

␣␣␣BIN = 7879

Definition
17307 3375 BIN BSS 1 VARIABLE USED BY IOT. 4F13425

References (2)

	05636	0 60100 0 17307	3019		STO	BIN CONVERT	4F13071
	05641	0 40000 0 17307	3022		ADD	BIN TO THEIR	4F13074

␣␣␣BRW = 2982

Definition

		3027			END 0F PROGRAM BEG(TYP).	4F13079
		3028			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13080
		3029				4F13081
		3030			BRW,4/ CALLS=JIF,BEG,VRA,CIT. CALLERS=WBT,RBT,WRD.	4F13082
05646	−0 63400 4 06054	3031	BRW	SXD	XRW,4 SAVE THE C(XR4), AND	4F13083

References (4)

05003	0 07400 4 05646	2496	TSX	BRW,4 * COMPILE INSTRS TO SET UNIT DESIG.	4F12550
05016	0 07400 4 05646	2512	TSX	BRW,4 * COMPILE INSTRS TO SET UNIT DESIG.	4F12566
05050	0 07400 4 05646	2544	TSX	BRW,4 * COMPILE INSTRS TO SET UNIT DESIG.	4F12598
05054	0 07400 4 05646	2548	TSX	BRW,4 * COMPILE INSTRS TO SET DRUM LOC.	4F12602

␣␣␣BSP = 2633

Definition

		2593			END OF PROGRAM RWN.	4F12647
		2594			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12648
		2595				4F12649
		2596			BSP/ USES=EFT.	4F12650
		2597			BSP PR0CESSES BACKSPACE TAPE STATEMENTS.	4F12651
05111	−0 50000 0 06111	2598	BSP	CAL	BST PICKUP BST000 TO SET OP, AND	4F12652

Reference
D 06300 1 00000 0 05111 3360 TXI BSP,0 BACKSPACE. 4F13412

␣␣␣BSS = 3004

Definition

		3053			END OF PROGRAM BRW.	4F13105
		3054			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13106
		3055				4F13107
		3056			BSS,2/ CALLS=CIT00. CALLERS=LPR,C1600.	4F13108
		3057			BSS COMPILES= IFN BSS 0.	4F13109
05674	0 07400 4 01731	3058	BSS	TSX	CIT00,4 * GO MAKE FOLLOWING CIT ENTRY=	4F13110

References (2)

	04436	0 07400 2 05674	2204		TSX	BSS,2 * GO COMPILE= IFN BSS 0.	4F12269
	05240	0 07400 2 05674	2712		TSX	BSS,2 * GO COMPILE= IFN BSS 0.	4F12766

␣␣␣BST = 3145

Definition
06111 226263000000 3243 BST BCD 1BST000 CONSTANT USED BY IOT. 4F13295
Reference
05111 −0 50000 0 06111 2598 BSP CAL BST PICKUP BST000 TO SET OP, AND 4F12652

␣␣␣BTA = 829

Definition
01475 0 00220 0 00000 386 BTA PZE ,,144 CONSTANT USED BY IOT. 4F10376

References (3)

05002	−0 50000 0 01475	2495	CAL	BTA PICKUP BINARY TAPE ADDRESS, AND	4F12549
05015	−0 50000 0 01475	2511	CAL	BTA PICKUP BINARY TAPE ADDRESS, AND	4F12565
05070	−0 50000 0 01475	2571	CAL	BTA MOVE BINARY TAPE ADDRESS	4F12625

␣␣␣BXT = 2532

Definition
2438 BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD. 4F12492

D 04744 1 00000 0 05141 2439 BXT TXI RSC,0 * EXIT TO SCAN LIST, IF THERE IS ONE. 4F12493

References (5)

D	05011	1 00000 0 04744	2502	TXI	BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE.	4F12556
D	05043	1 00000 0 04744	2533	TXI	BXT,0 * EXIT TO SCAN LIST, IF THEPE IS ONE.	4F12587
D	05062	1 00000 0 04744	2554	TXI	BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE.	4F12608
	05570	0 62100 0 04744	2964	STA	BXT TO RSC.	4F13018
	05622	0 62100 0 04744	3005	STA	BXT SET BXT SWITCH TO LAST.	4F13057

␣␣␣CAL = 863

Definition
01537 5837 CAL SYN L(CAL) 4F15889

References (5)

04721	0 00000 0 01537	2419	PZE	CAL WORD2--CAL000	4F12473
04733	0 00000 0 01537	2429	PZE	CAL WORD2--CAL000	4F12483
05557	0 00000 0 01537	2954	PZE	CAL WORD2--CAL000	4F13008
06011	0 00000 0 01537	3163	PZE	CAL WORD2--CAL000	4F13215
06047	0 00000 0 01537	3204	PZE	CAL WORD2--CAL000	4F13256

␣␣␣CER = 3930

Definition
07532 0 07400 4 03400 4075 CER TSX DIAG,4 * CONVERSION ERROR, GO TO DIAGNOSTIC. 4F14123

References (2)

D	07505	1 00000 0 07532	4054		TXI	CER,0 ERROR. --GO TO DIAGNOSTIC.	4F14102
D	07515	1 00000 0 07532	4062		TXI	CER,0 ERROR. --GO TO DIAGNOSTIC.	4F14110

␣␣␣CHR = 7886

Definition
17316 3376 CHR BES 6 VARIABLE USED BY IOT. 4 4F13426

References (5)

05161	0 60100 4 17316	2656		STO	CHR,4 SYMBOL	4F12710
05624	0 50000 0 17310	3009	TYP	CLA	CHR−6 TEST FIRST CHARACTER	4F13061
05635	0 50000 2 17315	3018		CLA	CHR−1,2 TNEN	4F13070
05643	0 40000 2 17316	3024		ADD	CHR,2 EOUIVALENT,	4F13076
06000	−0 50000 0 17310	3147		CAL	CHR−6 PICKUP 1ST CHARACTER OF SYMBOL, AND	4F13199

␣␣␣CIB = 416

Definition
00640 267 CIB BSS 100 COMPILED INSTRUCTION BUFFER. 4F10258

References (3)

01742	0 70000 1 00640	606	CIT01	CPY	CIB,1 COPY SUCCESSIVE	4F10595
01754	0 60100 2 00640	616		STO	CIB,2 INTO CIB BUFFER,	4F10605
12617	0 60100 2 00635	5695		STO	CIB−3,B	4F15755

␣␣␣CIT = 985

Definition
01731 5838 CIT SYN CIT00 4F15890

References (23)

	04724	0 07400 4 01731	2422		TSX	CIT,4 * GO MAKE THE FOLIOWING CIT ENTRY=	4F12476
	04736	0 07400 4 01731	2432		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12486
	05004	0 07400 4 01731	2497		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12551
	05017	0 07400 4 01731	2513		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12567
	05024	0 07400 4 01731	2518		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12572
	05031	0 07400 4 01731	2523		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12577
	05036	0 07400 4 01731	2528		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12582
	05055	0 07400 4 01731	2549		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12603
	05101	0 07400 4 01731	2580		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12634
	05477	0 07400 4 01731	2900		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12954
	05506	0 07400 4 01731	2907		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12961
	05516	0 07400 4 01731	2915		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12969
	05525	0 07400 4 01731	2922		TSX	CIT,4 * G0 MAKE THE FOLLOWING CIT ENTRY=	4F12976
	05537	0 07400 4 01731	2932	CMA5	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12986
	05555	0 07400 4 01731	2952	LAST	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13006
	05655	0 07400 4 01731	3038		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13090
	05763	0 07400 4 01731	3130		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13182
	06007	0 07400 4 01731	3161		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13213
D	06031	1 00000 0 01731	3183		TXI	CIT,0 * MAKE CIT ENTRY, AND EXIT TO CALLER.	4F13235
	06045	0 07400 4 01731	3202		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13254
	06063	0 07400 4 01731	3216		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY.	4F13268
	06070	0 07400 4 01731	3221	SDA	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13273
	06100	0 07400 4 01731	3229		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13281

␣␣␣CM1 = 3832

Definition
D 07370 −3 00000 0 07404 3977 CM1 TXL NC2,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC. 4F14025

References (2)

	07351	0 50000 0 07370	3961		CLA	CM1 PICK UP SWITCH CONTROL,	4F14009
	07356	−0 50000 0 07370	3967	NC7	CAL	CM1 PICK UP SWITCH CONTROL.	4F14015

␣␣␣CM2 = 3840

Definition
D 07400 3 00000 0 07421 3985 CM2 TXH NC3,0 SWITCH (NO TRANSFER IF INTEGER). 4F14033
Reference
07357 0 63000 0 07400 3968 IN2 STP CM2 SET SWITCHES CM2, AND 4F14016

␣␣␣CM3 = 3850

Definition
D 07412 3 00000 0 07470 3995 CM3 TXH FN4,0 SWITCH (NO TRANSFER IF INTEGER). 4F14043

References (3)

	07360	0 63000 0 07412	3969	STP	CM3 CM3.	4F14017
D	07405	1 00000 0 07412	3990	TXI	CM3,0 IF GREATER THAN 27, GO OUT.	4F14038
D	07410	1 00000 0 07412	3993	TXI	CM3,0 IF GREATER THAN 21, GO OUT.	4F14041

␣␣␣CMA = 2827

Definition

		2840			END OF PROGRAM RPR.	4F12894
		2841			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12895
		2842				4F12896
		2843			CMA/ CALLS=TYP,D1AG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT,	4F12897
		2844			LTMSW. USES=RSC.	4F12898
		2845			CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN.	4F12899
05413	−3 00006 2 05152	2846	CMA	TXL	NXC,2,6 * IF NOTHING COLLECTED, RETURN -SCAN.	4F12900

Reference
D 05174 1 00000 0 05413 2671 TXI CMA,0 * , 4F12725

␣␣␣CMB = 2963

Definition
3006 CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN. 4F13058

05623 −0 53400 4 05605 3007 CMB LXD BEX,4 RESTORE THE C(XR4), AND 4F13059
Reference
D 05610 1 00000 0 05623 2992 TXI CMB,0 * , 4F13044

␣␣␣CON = 3168

Definition
3266 4F13318

06140 3267 CON BSS 1 VARIABLE USED BY IOT. 4F13319

References (3)

05071	0 60200 0 06140	2572		SLW	CON INTO CON.	4F12626
05647	0 60200 0 06140	3032		SLW	CON SET CON = 0 OR ,,144 OR ,,192.	4F13084
06055	0 50000 0 06140	3210	VDA	CLA	CON IF CON	4F13262

␣␣␣CPY = 868

Definition
01544 5843 CPY SYN L(CPY) 4F15895

References (3)

05006	0 00000 0 01544	2499	PZE	CPY WORD2--CPY000	4F12553
05021	0 00000 0 01544	2515	PZE	CPY WORD2--CPY000	4F12569
05662	−0 50000 0 01544	3043	CAL	CPY MOVE CPY000	4F13095

␣␣␣CS1 = 2850

Definition
05442 0 50000 0 01101 2871 CS1 CLA D12 PICKUP DIMENSION 1 4F12925

␣␣␣CS2 = 2854

Definition
05446 0 56000 0 01101 2875 CS2 LDQ D12 PICKUP 4F12929

␣␣␣CS3 = 2863

Definition
05457 0 56000 0 01101 2884 CS3 LDQ D12 PICKUP 4F12938

␣␣␣CSH = 3159

Definition
06127 742362303460 3257 CSH BCD 1(CSH)␣ CONSTANT USED BY IOT. 4F13309
Reference
04676 0 50000 0 06127 2398 CLA CSH PICKUP (CSH) TO 4F12452

␣␣␣CSJ = 2975

Definition
05637 −3 00000 2 05645 3020 CSJ TXL INT,2,** BCD 4F13072

References (4)

05150	−0 63400 2 05637	2646		SXD	CSJ,2 AND SHIFT COUNT.	4F12700
05160	−0 53400 4 05637	2655	BUILD	LXD	CSJ,4 BUILD A	4F12709
05164	−0 63400 4 05637	2659	CSZ	SXD	CSJ,4 SAVE SYMBOL CHARACTER COUNT.	4F12713
05644	1 77777 2 05636	3025		TXI	CSJ−1,2,−1 AND WHEN DONE,	4F13077

␣␣␣CSZ = 2676

Definition
05164 −0 63400 4 05637 2659 CSZ SXD CSJ,4 SAVE SYMBOL CHARACTER COUNT. 4F12713
Reference
05171 1 77777 4 05164 2664 LCS TXI CSZ,4,−1 ADJUST C0UNT, AND CONTINUE SCAN. 4F12718

␣␣␣CXS = 2662

Definition
2642 CXS = ENTRY POINT FROM EQS, BEG. 4F12696

05146 0 62100 0 05156 2643 CXS STA CEXIT FOR LIST SCAN. 4F12697

References (2)

	05304	1 00000 0 05146	2753	NSJ	TXI	CXS,0,** * EXIT TO SPECIFICATION.	4F12807
	05605	1 00000 0 05146	2986	BEX	TXI	CXS,0,** * AND GO EXECUTE BEGINNING SCAN.	4F13038

␣␣␣D12 = 577

Definition
01101 5845 D12 SYN ERASE+1 COMMON WORKING STORAGE. 4F15897

References (9)

02030	0 70000 0 01101	669		CPY	D12 IF NOT LESS, COPY N1 AND N2.	4F10658
02040	0 70000 0 01101	677		CPY	D12 UNTIL	4F10666
02043	0 70000 0 01101	680	DMSR06	CPY	D12 PASS OVER ENTRY	4F10669
02052	0 36100 0 01101	687		ACL	D12 NEW	4F10676
03100	0 50000 0 01101	1196		CLA	D12 MOVE DIMENSIONS 1 AND 2	4F11219
03160	0 50000 0 01101	1244		CLA	D12 OBTAIN	4F11267
05442	0 50000 0 01101	2871	CS1	CLA	D12 PICKUP DIMENSION 1	4F12925
05446	0 56000 0 01101	2875	CS2	LDQ	D12 PICKUP	4F12929
05457	0 56000 0 01101	2884	CS3	LDQ	D12 PICKUP	4F12938

␣␣␣D18 = 822

Definition
01466 5846 D18 SYN DEC18 4F15898
Reference
06074 0 00000 0 01466 3225 PZE D18 NORD4--0(18)000 4F13277

␣␣␣DBC = 3160

Definition
06130 742422233460 3258 DBC BCD 1(DBC)␣ CONSTANT USED BY IOT. 4F13310
Reference
04702 0 50000 0 06130 2403 CLA DBC PICKUP (DBC) TO 4F12457

␣␣␣DBL = 1267

Definition
02363 851 DBL BSS 1 WORKING STORAGE USED BY DRTABS. 4F10840

References (2)

	02145	−0 53400 1 02363	757	BUFF	LXD	DBL,1 L(J)	4F10746
	02231	−0 50000 0 02363	809		CAL	DBL AND GET NEW BLOCK.	4F10798

␣␣␣DCF = 952

Definition
01670 1 76626 0 01655 539 DCF TXI C0180,0,−F REPEAT PR0CESS FOR NEXT CHARACTER. 4F10528

References (2)

	01671	0 50000 0 01670	545	C0190X	CLA	DCF SET FORMULA WORD	4F10534
	03450	−0 53400 1 01670	1594		LXD	DCF,1 INITIALIZE INDEX A TO COMPL OF F.	4F11651

␣␣␣DED = 870

Definition
01546 5848 DED SYN L(DED) 4F15900
Reference
05527 0 00000 0 01546 2924 PZE DED WORD2--DED000 4F12978

␣␣␣DIC = 3173

Definition

		3272				4F13325
		3273			DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500).	4F13326
06145	+244677274663	3274	DIC	OCT	244677274663 DO-GOT	4F13327

Reference
05746 0 56000 2 06145 3111 LDQ DIC,2 REFILL WITH NEXT DICTIONARY WORD. 4F13163

␣␣␣DMP = 832

Definition
01500 5853 DMP SYN E( 4F15909
Reference
05022 0 00000 0 01500 2516 PZE DMP WORD3--100000 4F12570

␣␣␣DOE = 576

Definition
01100 5854 DOE SYN ERASE COMMON WORKING STORAGE. 4F15910

References (8)

07350	0 60000 0 01100	3960		STZ	DOE CLEAR DOE (IMPLICIT EXPONENT).	4F14008
07355	0 60000 0 01100	3966		STZ	DOE CLEAR DOE (IMPLICIT EXPONENT).	4F14014
07424	0 40000 0 01100	4005	NC9	ADD	DOE TO ADJUST EXPONENT	4F14053
07425	0 60100 0 01100	4006		STO	DOE IN FINAL RESULT.	4F14054
07466	0 40000 0 01100	4039		ADD	DOE WITH IMPLICIT EXPONENT,	4F14087
07467	0 60100 0 01100	4040		STO	DOE AND SAVE IN DOE.	4F14088
07502	0 53400 1 01100	4051		LXA	DOE,1 EXAMINE THE C(DOE), AN0	4F14099
07506	0 56000 0 01100	4055	FN2	LDQ	DOE DETERMINE WHETHER INTEGER WAS	4F14103

␣␣␣DVS = 2871

Definition
05467 0 40200 0 01407 2892 DVS SUB L(1) PRODUCT IS 4F12946

References (2)

D	05443	1 00000 0 05467	2872		TXI	DVS,0 AND GO TEST SIZE. OTHERWISE,	4F12926
D	05454	1 00000 0 05467	2881		TXI	DVS,0 GO TEST THE PRODUCT. OTHERWISE,	4F12935

␣␣␣E1C = 616

Definition
01150 290 E1C BSS 1 COMMON WORKING STORAGE. 4F10280
Reference
01150 5839 CITMQR SYN E1C ERASABLE STORAGE. 4F15891

␣␣␣E2C = 577

Definition
01101 5860 E2C SYN ERASE+1 COMMON WORKING STORAGE. 4F15916

␣␣␣E3C = 578

Definition
01102 5862 E3C SYN ERASE+2 COMMON WORKING STORAGE. 4F15918

␣␣␣EC1 = 3865

Definition
07431 0 07400 4 01707 4010 EC1 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14058
Reference
D 07411 1 00000 0 07431 3994 TXI EC1,0 IF E, GO TO EXPONENT ROUTINE. 4F14042

␣␣␣EC3 = 3876

Definition
07444 0 50200 0 01101 4021 EC3 CLS EKE IF MINUS, SET EKE TO -0. 4F14069
Reference
D 07436 1 00000 0 07444 4015 TXI EC3,0 IF A DASH, SET EKE MINUS. 4F14063

␣␣␣EC4 = 3879

Definition
07447 −0 75400 0 00000 4024 EC4 PXD ,0 CLEAR ACC, 4F14072

␣␣␣EC5 = 3880

Definition
07450 0 60100 0 01101 4025 EC5 STO EKE SAVE PARTIAL RESULT(OR 0) IN EKE. 4F14073
Reference
D 07464 1 00000 0 07450 4037 TXI EC5,0 CONTINUE UNTIL NON-NUMERIC IS MET. 4F14085

␣␣␣EC6 = 3881

Definition
07451 0 07400 4 01707 4026 EC6 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14074
Reference
D 07441 1 00000 0 07451 4018 TXI EC6,0 IF PLUS, GO EXAMINE NEXT CHAR. 4F14066

␣␣␣ED1 = 1317

Definition
02445 0 40100 0 02442 894 ED1 ADM ED2 THEN SET 4F10917
Reference
02443 −3 00002 4 02445 892 TXL ED1,4,2 IF 3 DIMENSION, 4F10915

␣␣␣ED2 = 1314

Definition
02442 0 73400 4 01132 891 ED2 PAX E+4,4 DIMENSION COUNT, AND 4F10914
Reference
02445 0 40100 0 02442 894 ED1 ADM ED2 THEN SET 4F10917

␣␣␣ED3 = 1319

Definition
02447 0 50000 4 00000 896 ED3 CLA **,4 EXAMINE SUCCESSIVE 4F10919

References (2)

	02446	0 62100 0 02447	895		STA	ED3 ED3 ADDRESS TO	4F10918
	02455	2 00001 4 02447	902		TIX	ED3,4,1 TO 1 OR TO 0. WHEN DONE,	4F10925

␣␣␣ED4 = 1324

Definition
02454 −0 60000 4 01147 901 ED4 STQ EPS,4 EPSILON SUB I 4F10924
Reference
02451 0 10000 0 02454 898 TZE ED4 VARIABLES, AND 4F10921

␣␣␣EFN = 617

Definition
01151 291 EFN BSS 1 EXTERNAL FORMULA NUMBER (F-1). 4F10281

␣␣␣EFT = 2614

Definition

		2563			END OF PROGRAM RDD.	4F12617
		2564			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12618
		2565				4F12619
		2566			EFT/ CALLS=GIF,BEG,VRAX,CIT.	4F12620
		2567			EFT PROCESSES WRITE END OF FILE STATEMENTS.	4F12621
05066	−0 50000 0 06123	2568	EFT	CAL	WEF PICKUP WEF000, AND	4F12622

Reference
D 06301 1 00000 0 05066 3361 TXI EFT,0 END FILE. 4F13413

␣␣␣EKE = 577

Definition
01101 5864 EKE SYN ERASE+1 COMMON WORKING STORAGE. 4F15920

References (6)

07433	0 60000 0 01101	4012		STZ	EKE CLEAR EKE (EXPLICIT EXPONENT).	4F14060
07444	0 50200 0 01101	4021	EC3	CLS	EKE IF MINUS, SET EKE TO -0.	4F14069
07450	0 60100 0 01101	4025	EC5	STO	EKE SAVE PARTIAL RESULT(OR 0) IN EKE.	4F14073
07457	0 50000 0 01101	4032		CLA	EKE MULTIPLY THE PREVIOUS	4F14080
07461	0 40000 0 01101	4034		ADD	EKE BY 10,	4F14082
07465	0 50000 0 01101	4038	FN5	CLA	EKE COMBINE EXPLICIT EXPONENT	4F14086

␣␣␣EMK = 2919

Definition

		2940			END OF PROGRAM CMA.	4F12994
		2941			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12995
		2942				4F12996
		2943			EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00. USES=CMA.	4F12997
		2944			EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN.	4F12998
05547	3 00006 2 05414	2945	EMK	TXH	CMA1,2,6 * IF NO CHARACTERS REMAIN, THEN	4F12999

Reference
D 05172 1 00000 0 05547 2669 TXI EMK,0 * ENDMARK 4F12723

␣␣␣END = 3169

Definition
06141 0 00000 0 00000 3268 END PZE ** VARIABLE USED BY IOT. 4F13320

References (4)

04701	0 60200 0 06141	2402	SLW	END INTO END.	4F12456
04761	0 60200 0 06141	2463	SLW	END INTO END.	4F12517
05565	0 00000 0 06141	2960	PZE	END WORD3--(RTN) OR (FIL)	4F13014
05670	0 60200 0 06141	3049	SLW	END INTO END.	4F13101

␣␣␣ENT = 1079

Definition
02067 456351000000 701 ENT BCD 1NTR000 VARIABLE USED BY IO AND FL. 4F10690

References (8)

03403	0 62100 0 02067	1436	STA	ENT PLACE LAST EFN IN DEC OF NTR INSTRUCTION.	4F114573
03426	0 00000 0 02067	1455	PZE	ENT	4F11457M
04674	0 62100 0 02067	2396	STA	ENT ENT (NTR000) TO 81.	4F12450
04740	0 00000 0 02067	2434	PZE	ENT WORD2--NTR0(81, OR UNIT, OR 00)	4F12486
04750	0 62100 0 02067	2448	STA	ENT IF CONSTANT, SET ENT= NTR0(UNIT).	4F12502
04754	0 62100 0 02067	2457	STA	ENT TO NTR000.	4F12511
04767	0 62100 0 02067	2474	STA	ENT IF CONSTANT, SET ENT= NTR0(UNIT).	4F12528
04773	0 62100 0 02067	2483	STA	ENT TO NTR000.	4F12537

␣␣␣EPS = 615

Definition
01147 289 EPS BSS 1 EPSILON - VARIABLE USED BY RA000. 4F10279

References (8)

02440	0 60000 0 01147	889		STZ	EPS CLEAR EPSILON (WORKING STORAGE).	4F10912
02452	−0 60000 0 01147	899		STQ	EPS ACCORDINGLY SET	4F10922
02454	−0 60000 4 01147	901	ED4	STQ	EPS,4 EPSILON SUB I	4F10924
02467	0 50000 0 01146	912		CLA	EPS−1 PICKUP EPSILON SUB 1,	4F10935
02501	0 40000 0 01145	922		ADD	EPS−2 EPSILON SUB 2	4F10045
02507	0 40000 4 01147	928		ADD	EPS,4 DIMENSION 1, AND,ADD,IN EPSILON	4F10951
02510	0 40000 0 01147	929		ADD	EPS SUB 1 AND EPSILON.	4F10952
05432	0 50000 0 01147	2863		CLA	EPS AND IF SUBSCRIPT	4F12917

␣␣␣EQS = 2737

Definition

		2729			END OF PROGRAM LPR.	4F12783
		2730			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12784
		2731				4F12785
		2732			EQS/ CALLS=DIAG. USES=RSC.	4F12786
		2733			EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN.	4F12787
05261	−0 53400 4 17400	2734	EQS	LXD	DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN,	4F12788

Reference
D 05176 1 00000 0 05261 2673 TXI EQS,0 * = 4F12727

␣␣␣ERR = 1396

Definition
02564 2 00001 1 02521 978 ERR TIX REP,1,1 OTHERWISE, REPEAT UP TO 5 TIMES. 4F11001

References (6)

02537	−2 00001 2 02564	957	TNX	ERR,2,1 FOR ALL	4F10980
02541	−2 00001 2 02564	959	TNX	ERR,2,1 EXCEPT	4F10902
02543	−2 00001 2 02564	961	TNX	ERR,2,1 X	4F10904
02545	−2 00001 2 02564	963	TNX	ERR,2,1 X	4F10906
02547	−2 00001 2 02564	965	TNX	ERR,2,1 X	4F10906
02551	−2 00001 2 02564	967	TNX	ERR,2,1 X	4F10990

␣␣␣ETM = 3146

Definition
06112 256344000000 3244 ETM BCD 1ETM000 CONSTANT USED BY IOT. 4F13296
Reference
05755 −0 50000 0 06112 3123 CAL ETM PICKUP ETM000, AND 4F13175

␣␣␣FDA = 1266

Definition
02362 850 FDA BSS 1 WORKING STORAGE USED BY DRTABS. 4F10839

References (11)

02123	−0 50000 0 02362	739		CAL	FDA X	4F10728
02144	−0 53400 2 02362	756	BUFFM1	LXD	FDA,2	4F10745
02160	0 62100 0 02362	768		STA	FDA	4F10757
02166	0 46000 0 02362	774		LDA	FDA	4F10763
02217	−0 53400 2 02362	799		LXD	FDA,2 L(K*L),K=K.	4F10788
02232	0 40100 0 02362	810		ADM	FDA	4F10799
02233	0 62100 0 02362	811		STA	FDA	4F10800
02236	−0 63400 2 02362	814		SXD	FDA,2 KL = (NL)MOD KL IF NL IS	4F10803
02525	−0 53400 2 02362	947		LXD	FDA,2 SET XR2 = NO. OF WORDS TO COPY.	4F10970
02527	0 46000 0 02362	949		LDA	FDA DRUM ORIGIN OF CURRENT BLOCK.	4F10972
02556	−0 53400 2 02362	972	RDRXCR	LXD	FDA,2 COMPUTE	4F10995

␣␣␣FIL = 3161

Definition
06131 742631433460 3259 FIL BCD 1(FIL)␣ CONSTANT USED BY IOT. 4F13311
Reference
04760 −0 50000 0 06131 2462 CAL FIL MOVE (FIL) 4F12516

␣␣␣FIN = 2923

Definition
05553 0 07400 4 05757 2949 FIN TSX LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F13003
Reference
05551 −3 00000 4 05553 2947 TXL FIN,4,0 IF THERE ARE TOO MANY LPARENS, 4F13001

␣␣␣FN1 = 3902

Definition
07476 0 30000 0 07535 4047 FN1 FAD K1 THEN FLOATING ADD THE RESULT 4F14095
Reference
07474 0 10000 0 07476 4045 TZE FN1 IF MORE THAN 15 BITS IN LENGTH 4F14093

␣␣␣FN2 = 3910

Definition
07506 0 56000 0 01100 4055 FN2 LDQ DOE DETERMINE WHETHER INTEGER WAS 4F14103
Reference
07504 −3 00062 1 07506 4053 TXL FN2,1,50 IF GREATER THAN 50, THEN 4F14101

␣␣␣FN3 = 3924

Definition
07524 0 60100 0 01103 4069 FN3 STO N IF INTEGER WAS SITUATED 4F14117
Reference
07507 0 16200 0 07524 4056 TQP FN3 TO THE RIGHT OR TO THE LEFT OF DP. 4F14104

␣␣␣FN4 = 3896

Definition
07470 0 50000 0 01103 4041 FN4 CLA N IF N CONTAINS ZERO, TAKE 4F14089
Reference
D 07412 3 00000 0 07470 3995 CM3 TXH FN4,0 SWITCH (NO TRANSFER IF INTEGER). 4F14043

␣␣␣FN5 = 3893

Definition
07465 0 50000 0 01101 4038 FN5 CLA EKE COMBINE EXPLICIT EXPONENT 4F14086

References (5)

D	07435	1 00000 0 07465	4014	TXI	FN5,0 IF GREATER THAN 32, GO OUT.	4F14062
D	07440	1 00000 0 07465	4017	TXI	FN5,0 IF GREATER THAN 16, GO OUT.	4F14065
D	07443	1 00000 0 07465	4020	TXI	FN5,0 IF GREATER THAN 12, GO OUT.	4F14068
D	07446	1 00000 0 07465	4023	TXI	FN5,0 IF NON-NUMERIC, GO EXAMINE NEXT CH.	4F14071
D	07454	1 00000 0 07465	4029	TXI	FN5,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC.	4F14077

␣␣␣FOR = 2635

Definition

		2600			END OF PROGRAM BSP.	4F12654
		2601			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12655
		2602				4F12656
		2603			FOR/ CALLS=TET00.	4F12657
		2604			FOR PROCESSES FORMAT STATEMENTS.	4F12658
05113	−0 50000 0 00030	2605	FOR	CAL	EIFNO MOVE EXTERNAL FORMULA NUMBER	4F12659

Reference
D 06302 −3 00000 0 05113 3362 TXL FOR,0 FORMAT. 4F13414

␣␣␣FWA = 908

Definition
01614 1 00000 0 01620 478 FWA TXI C0152,0,** GO SET I FOR NUMERIC. 4F10468

References (7)

01672	0 62200 0 01614	546		STD	FWA ADDRESS = -(F-REGION ADDRESS),	4F10535
01676	−0 53400 2 01614	556		LXD	FWA,2 THE PROPER CHARACTER	4F10545
01713	−0 53400 1 01614	575		LXD	FWA,1 PICK UP NEXT FORMULA	4F10564
01716	−0 63400 1 01614	578	C0192	SXD	FWA,1 FORMULA WORD ADDRESS BY 1.	4F10567
05120	−0 53400 2 01614	2610		LXD	FWA,2 SET XR2 = -(CURRENT F-WORD ADDR).	4F12664
06736	−0 53400 4 01614	3679	C3354	LXD	FWA,4 L0AD MQ WITH NEXT F REGION WORD	4F13727
06741	−0 63400 4 01614	3682	C3355	SXD	FWA,4	4F13730

␣␣␣GIF = 1277

Definition
873 GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT). 4F10862

02375 −0 50000 0 00030 874 GIF CAL EIFNO PICKUP IFN, 4F10863

References (4)

04435	0 07400 4 02375	2203	TSX	GIF,4 * GET INTERNAL FORMULA NUMBER, AND	4F12268
05072	0 07400 4 02375	2573	TSX	GIF,4 * GET IFN INTO SL AND TL.	4F12627
05515	0 07400 4 02375	2914	TSX	GIF,4 * GET IFN IN SL AND TL.	4F12968
06006	0 07400 4 02375	3160	TSX	GIF,4 * SET SL = IFN,000.	4F13212

␣␣␣HPR = 876

Definition
01554 5872 HPR SYN L(HPR) 4F15928
Reference
05033 0 00000 0 01554 2525 PZE HPR WORD2--HPR000 4F12579

␣␣␣IBC = 2951

Definition
05607 0 07400 4 03400 2991 IBC TSX DIAG,4 * ( (ILLEGAL CHARACTER IN I/O SETUP). 4F13043

References (7)

D	05611	1 00000 0 05607	2993	TXI	IBC,0 ) (ILLEGAL CHARACTER IN I/O SETUP).	4F13045
D	05612	1 00000 0 05607	2994	TXI	IBC,0 = (ILLEGAL CHARACTER IN I/O SETUPI.	4F13046
D	05613	1 00000 0 05607	2995	TXI	IBC,0 - (ILLEGAL CHARACTER IN I/O SETUP).	4F13047
D	05614	1 00000 0 05607	2996	TXI	IBC,0 / (ILLEGAL CHARACTER IN I/O SETUP).	4F13048
D	05615	1 00000 0 05607	2997	TXI	IBC,0 . (ILLEGAL CHARACTER IN I/O SETUP).	4F13049
D	05616	1 00000 0 05607	2998	TXI	IBC,0 + (ILLEGAL CHARACTER IN I/O SETUP).	4F13050
D	05617	1 00000 0 05607	2999	TXI	IBC,0 * (ILLEGAL CHARACTER IN I/O SETUP).	4F13051

␣␣␣ICC = 2758

Definition
05306 0 07400 4 03400 2759 ICC TSX DIAG,4 * ( (ILLEGAL IN CONTROL FOR LIST DO). 4F12813

References (6)

D	05311	1 00000 0 05306	2762	TXI	ICC,0 = (ILLEGAL IN CONTROL FOR LIST DO).	4F12816
D	05312	1 00000 0 05306	2763	TXI	ICC,0 - (ILLEGAL IN CONTROL FOR LIST DO).	4F12817
D	05313	1 00000 0 05306	2764	TXI	ICC,0 / (ILLEGAL IN CONTR0L FOR LIST DO).	4F12818
D	05314	1 00000 0 05306	2765	TXI	ICC,0 . (ILLEGAL IN CONTROL FOR LIST DO).	4F12819
D	05315	1 00000 0 05306	2766	TXI	ICC,0 + (ILLEGAL IN CONTR0L FOR LIST DO).	4F12820
D	05316	1 00000 0 05306	2767	TXI	ICC,0 * (ILLEGAL IN CONTR0L FOR LIST DO).	4F12821

␣␣␣ILC = 2688

Definition
05200 0 07400 4 03400 2675 ILC TSX DIAG,4 * / (ILLEGAL CHARACTER IN I/O LIST). 4F12729

References (4)

D	05177	1 00000 0 05200	2674	TXI	ILC,0 - (ILLEGAL CHARACTER IN I/O LIST).	4F12728
D	05201	1 00000 0 05200	2676	TXI	ILC,0 . (ILLEGAL CHARACTER IN I/O LISTI.	4F12730
D	05202	1 00000 0 05200	2677	TXI	ILC,0 + (ILLEGAL CHARACTER IN I/O LIST).	4F12731
D	05203	1 00000 0 05200	2678	TXI	ILC,0 * (ILLEGAL CHARACTER 1N I/O LIST).	4F12732

␣␣␣IN2 = 3823

Definition
07357 0 63000 0 07400 3968 IN2 STP CM2 SET SWITCHES CM2, AND 4F14016
Reference
07352 1 00000 0 07357 3962 EXIT TXI IN2,0,** AND G0 SET SWITCH. 4F14010

␣␣␣INT = 2981

Definition
05645 0 02000 4 00002 3026 INT TRA 2,4 * TAKE CONSTANT EXIT TO CALLER. 4F13078
Reference
05637 −3 00000 2 05645 3020 CSJ TXL INT,2,** BCD 4F13072

␣␣␣ISC = 1490

Definition
02722 0 07400 4 03400 1084 ISC TSX DIAG,4 * ( (ILLEGAL IN LIST SUBSCRIPT). 4F11107

References (4)

D	02721	1 00000 0 02722	1083		TXI	ISC,0 EMK (ILLEGAL IN LIST SUBSCRIPT).	4F11106
D	02725	1 00000 0 02722	1087		TXI	ISC,0 = (ILLEGAL IN LIST SUBSCRIPT).	4F11110
D	02727	1 00000 0 02722	1089		TXI	ISC,0 / (ILLEGAL IN LIST SUBSCRIPT).	4F11112
	02730	1 00000 0 02722	1090	SXR1	TXI	ISC,0,** . (ILLEGAL IN LIST SUBSCRIPT).	4F11113

␣␣␣JIF = 1274

Definition

		864			END OF PROGRAM GETIFN.	4F10853
		865			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10854
		866				4F10855
		867			JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT),	4F10856
		868			VRA(VRD),C3200.	4F10857
		869			JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200.	4F10858
02372	−0 50000 0 00030	870	JIF	CAL	EIFNO INCREASE THE	4F10859

References (11)

04541	0 07400 4 02372	2286		TSX	JIF,4 * SET SL TO ALPHA+1.	4F12340
04743	0 07400 4 02372	2437		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12491
05241	0 07400 4 02372	2713	LPR4	TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12767
05255	0 07400 4 02372	2725		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12779
05351	0 07400 4 02372	2800		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12854
05375	0 07400 4 02372	2820		TSX	JIF,4 * GO JUMP IFN, AND SET SL AN0 TL.	4F12874
05476	0 07400 4 02372	2899		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12953
05504	0 07400 4 02372	2905		TSX	JIF,4 * GO JONP IFN, AND SET SL AND TL.	4F12959
05554	0 07400 4 02372	2950		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F13004
05650	0 07400 4 02372	3033		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F13085
06077	0 07400 4 02372	3228		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F13280

␣␣␣LCS = 2681

Definition
05171 1 77777 4 05164 2664 LCS TXI CSZ,4,−1 ADJUST C0UNT, AND CONTINUE SCAN. 4F12718
Reference
05167 −3 00044 2 05171 2662 LCT TXL LCS,2,36 GO TO DIAGNOSTIC IF 4F12716

␣␣␣LCT = 2679

Definition
05167 −3 00044 2 05171 2662 LCT TXL LCS,2,36 GO TO DIAGNOSTIC IF 4F12716
Reference
05162 −2 00001 4 05167 2657 TNX LCT,4,1 COMPOSED OF 4F12711

␣␣␣LDA = 877

Definition
01555 5873 LDA SYN L(LDA) 4F15929
Reference
05057 0 00000 0 01555 2551 PZE LDA WORD2--LDA000 4F12605

␣␣␣LEV = 3162

Definition
06132 744325653460 3260 LEV BCD 1(LEV)␣ CONSTANT USED BY IOT. 4F13312
Reference
06017 0 00000 0 06132 3169 PZE LEV WORD3--(LEV) 4F13221

␣␣␣LIB = 3091

Definition

		3173			END OF PROGRAM INPUT(OUTPUT).	4F13225
		3174			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13226
		3175				4F13227
		3176			LIB,1/ CALLS=TET00,CIT. CA=LERS=RDC,EMK,INPUT(OUTPUT).	4F13228
06023	−0 50000 4 00003	3177	LIB	CAL	3,4 MOVE NAME OF SUBROUTINE,	4F13229

References (4)

04717	0 07400 4 06023	2417	TSX	LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE=	4F12471
04731	0 07400 4 06023	2427	TSX	LIB,4 * MAKE CL0SUB ENTRY, AND COMPILE=	4F12481
05562	0 07400 4 06023	2957	TSX	LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE=	4F13011
06014	0 07400 4 06023	3166	TSX	LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE=	4F13218

␣␣␣LIC = 3093

Definition
06025 −0 50000 0 00000 3179 LIC CAL ** IS IN WORD3 OF CALLING SEQ, 4F13231
Reference
06024 0 62100 0 06025 3178 STA LIC ADDRESS OF WHICH 4F13230

␣␣␣LPR = 2693

Definition

		2680			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12734
		2681				4F12735
		2682			LPR/ CALLS=TYP,SS000,RA000,C0190,TEST..,LTMSW,CIT,JIF,DIAG,	4F12736
		2683			BSS. USES=CMA,RSC.	4F12737
		2684			EPR = ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN.	4F12738
05205	−0 50000 0 17404	2685	LPR	CAL	SYM TEST FOR SUBSCRIPT OR DO NEST.	4F12739

Reference
D 05173 1 00000 0 05205 2670 TXI LPR,0 * ( 4F12724

␣␣␣LSC = 2661

Definition
2640 LSC = ENTRY POINT FROM SPC. 4F12694

05145 −0 50000 0 05204 2641 LSC CAL LISTR SET CONTROL TRANSFER 4F12695
Reference
05356 3 00000 4 05145 2805 TXH LSC,4,0 * RETURN T0 SCAN NEXT LEVEL. 4F12859

␣␣␣LTM = 3147

Definition
06113 436344000000 3245 LTM BCD 1LTM000 CONSTANT USED BY IOT. 4F13297
Reference
05760 −0 50000 0 06113 3127 CAL LTM PICKUP LTM000, AND 4F13179

␣␣␣LXD = 881

Definition
01561 5874 LXD SYN L(LXD) 4F15930
Reference
05501 0 00000 0 01561 2902 PZE LXD WORD2--LXD000 4F12956

␣␣␣MSK = 810

Definition
01452 5881 MSK SYN MASK2 4F15937

␣␣␣NAR = 1264

Definition
02360 848 NAR BSS 1 WORKING STORAGE USED BY DRTABS. 4F10837

References (5)

02112	0 50200 0 02360	730		CLS	NAR INITIALIZE	4F10719
02137	−0 53400 1 02360	751		LXD	NAR,1	4F10740
02175	−0 53400 2 02360	781		LXD	NAR,2 (L)	4F10770
02205	−0 50000 0 02360	789	NOWIN	CAL	NAR UPDATE PERMANENT	4F10778
02220	−0 53400 1 02360	800	NEW	LXD	NAR,1 L(L)	4F10789

␣␣␣NC1 = 3831

Definition
07367 0 34000 0 01373 3976 NC1 CAS TEN AND COMPARE WITH TEN. 4F14024
Reference
D 07365 1 00000 0 07367 3974 TXI NC1,0 IF H, GO TO HEXIT. 4F14022

␣␣␣NC2 = 3844

Definition
07404 0 34000 0 01403 3989 NC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. 4F14037
Reference
D 07370 −3 00000 0 07404 3977 CM1 TXL NC2,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC. 4F14025

␣␣␣NC3 = 3857

Definition
07421 0 14000 0 07426 4002 NC3 TOV NC8 IF THERE WAS NO OVERFLOW, 4F14050
Reference
D 07400 3 00000 0 07421 3985 CM2 TXH NC3,0 SWITCH (NO TRANSFER IF INTEGER). 4F14033

␣␣␣NC4 = 3863

Definition
07427 0 50000 0 01407 4008 NC4 CLA L(1) ADD 1 TO DOE , 4F14056
Reference
07401 0 14000 0 07427 3986 TOV NC4 TEST OVERFLOW, AND 4F14034

␣␣␣NC5 = 3826

Definition
07362 0 07400 4 01707 3971 NC5 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14019

References (3)

	07361	0 14000 0 07362	3970		TOV	NC5 TURN OFF OV TRIGGER.	4F14018
D	07403	1 00000 0 07362	3988		TXI	NC5,0 THEN GO PICK UP NEXT CHARACTER.	4F14036
D	07426	1 00000 0 07362	4007	NC8	TXI	NC5,0 THEN GO PICK UP NEXT CHARACTER.	4F14055

␣␣␣NC7 = 3822

Definition
07356 −0 50000 0 07370 3967 NC7 CAL CM1 PICK UP SWITCH CONTROL. 4F14015
Reference
D 07406 1 00000 0 07356 3991 TXI NC7,0 IF POINT, GO BACK AND SET SWITCH. 4F14039

␣␣␣NC8 = 3862

Definition
D 07426 1 00000 0 07362 4007 NC8 TXI NC5,0 THEN GO PICK UP NEXT CHARACTER. 4F14055
Reference
07421 0 14000 0 07426 4002 NC3 TOV NC8 IF THERE WAS NO OVERFLOW, 4F14050

␣␣␣NC9 = 3860

Definition
07424 0 40000 0 01100 4005 NC9 ADD DOE TO ADJUST EXPONENT 4F14053
Reference
D 07430 1 00000 0 07424 4009 TXI NC9,0 IF THERE WAS INTEGER OVERFLOW. 4F14057

␣␣␣NEW = 1168

Definition
02220 −0 53400 1 02360 800 NEW LXD NAR,1 L(L) 4F10789
Reference
02227 2 00000 2 02220 807 TIX NEW,2,** K = K-1. 4F10796

␣␣␣NFC = 2645

Definition
05125 −0 76300 0 00006 2615 NFC LGL 6 CHARACTERS 4F12669
Reference
05126 2 00001 1 05125 2616 TIX NFC,1,1 REMAINING IN THE MQ, AND 4F12670

␣␣␣NFW = 2647

Definition
05127 0 60200 0 01350 2617 NFW SLW G+1 MOVE FORMAT WORDS INTO G+1. 4F12671
Reference
05140 1 77777 2 05127 2626 TXI NFW,2,−1 UPDATE SCAN INDEX, AND CONTINUE. 4F12680

␣␣␣NLA = 3141

Definition
06105 −0 75400 0 05555 3234 NLA PXD LAST,0 CLEAR THE AC, 4F13286
Reference
05621 0 50000 0 06105 3004 NLS CLA NLA IF ENDMARK IS MET, 4F13056

␣␣␣NLS = 2961

Definition

		3001			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13053
		3002				4F13054
		3003			NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN.	4F13055
05621	0 50000 0 06105	3004	NLS	CLA	NLA IF ENDMARK IS MET,	4F13056

Reference
D 05606 1 00000 0 05621 2990 TXI NLS,0 * ENDMARK (NO LIST SCAN) 4F13042

␣␣␣NOP = 1408

Definition
02600 0 76100 0 00000 995 NOP NOP IF NUMERIC, 4F11018

␣␣␣NSJ = 2756

Definition
05304 1 00000 0 05146 2753 NSJ TXI CXS,0,** * EXIT TO SPECIFICATION. 4F12807

References (4)

05274	−0 63400 4 05304	2745		SXD	NSJ,4 NUMBER OF SPECIFICATIONS.	4F12799
05324	−0 53400 4 05304	2778		LXD	NSJ,4 SET C(XR4) = SPECIFICATION COUNT,	4F12832
05326	−0 53400 4 05304	2780	SPCS	LXD	NSJ,4 OTHERWISE, SET SPEC COUNT AND	4F12834
05335	−0 63400 4 05304	2787		SXD	NSJ,4 SAVE SPEC COUNT, AND	4F12841

␣␣␣NTL = 1185

Definition
02241 1 00000 0 02216 817 NTL TXI NXBLK,0,** (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806

References (2)

	02234	−0 53400 2 02241	812		LXD	NTL,2	4F10801
	02237	−0 63400 2 02241	815		SXD	NTL,2 LESS TNAN KL, OTHERWISE KL = K*L.	4F10804

␣␣␣NTR = 3148

Definition
06114 456351000000 3246 NTR BCD 1NTR000 CONSTANT USED BY IOT. 4F13298
Reference
04711 −0 50000 0 06114 2411 CAL NTR MOVE NTR000 4F12465

␣␣␣NXC = 2666

Definition
2648 NXC = ENTRY POINT FROM CMA. 4F12702

05152 0 07400 4 01707 2649 NXC TSX C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC. 4F12703

References (2)

	05166	1 00006 2 05152	2661		TXI	NXC,2,6 CHARACTER SEPARATELY.	4F12715
	05413	−3 00006 2 05152	2846	CMA	TXL	NXC,2,6 * IF NOTHING COLLECTED, RETURN -SCAN.	4F12900

␣␣␣NXS = 2663

Definition
2644 NXS = ENTRY POINT FROM LPR, SPC, CMA. 4F12698

05147 0 53400 2 01414 2645 NXS LXA L(6),2 RESET SYMBOL CHARACTER COUNT 4F12699

References (3)

	05257	−3 00003 4 05147	2727		TXL	NXS,4,3 * RETURN TO LIST SCAN.	4F12781
D	05336	−3 00000 0 05147	2788	SPC1	TXL	NXS,0 * EXIT TO SCAN, IF SWITCH IS TXL.	4F12842
D	05546	1 00000 0 05147	2939	CMA3	TXI	NXS,0 * SWITCH TO RPT OR NXS.	4F12993

␣␣␣NZE = 1080

Definition
02070 477125000000 702 NZE BCD 1PZE000 VARIABLE USED BY FL. 4F10691

References (2)

	03405	0 62100 0 02070	1438		STA	NZE PLACE LAST IFN IN DEC OF PZE	4F114575
	03433	0 00000 0 02070	1460		PZE	NZE WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR	4F11457R

␣␣␣OUT = 1191

Definition
02247 −0 75400 2 00000 823 OUT PXD ,2 EXIT WITH TAG IN THE AC. 4F10812

References (2)

	02215	1 00000 0 02247	797	XR4	TXI	OUT,0,** GET TAG AND EXIT.	4F10786
	02245	2 00000 2 02247	821		TIX	OUT,2,** COMPUTE TAG.	4F10810

␣␣␣PDC = 2554

Definition

		2477			END OF PROGRAM WOT.	4F12531
		2478			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12532
		2479				4F12533
		2480			PDC/ CALLS=OUTPUT. USES=RDP.	4F12534
		2481			PDC PROCESSES PUNCH STATEMENTS.	4F12535
04772	−0 75400 0 00000	2482	PDC	PXD	,0 RESET ENT	4F12536

Reference
D 06276 1 00000 0 04772 3358 TXI PDC,0 PUNCH. 4F13410

␣␣␣PXD = 886

Definition
01566 5885 PXD SYN L(PXD) 4F15946
Reference
05051 −0 50000 0 01566 2545 CAL PXD MOVE PXD000 4F12599

␣␣␣RAT = 756

Definition
01364 0 00000 0 00010 306 RAT PZE 8,,** VARIABLE USED BY IOT. 4F10296

References (2)

	05475	0 62200 0 01364	2898		STD	RAT IMCREMENT OF RAT. THEN	4F12952
	05503	0 00000 0 01364	2904		PZE	RAT WORD4--0(FIXCON TAG)008	4F12958

␣␣␣RBT = 2570

Definition

		2503			END OF PROGRAM WBT.	4F12557
		2504			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12558
		2505				4F12559
		2506			RBT/ CALLS=INPUT,BRW,CIT.	4F12560
		2507			RBT PROCESSES READ TAPE STATEMENTS.	4F12561
05012	−0 50000 0 06117	2508	RBT	CAL	RTB MOVE RTB000	4F12562

Reference
D 06266 1 00000 0 05012 3350 TXI RBT,0 READ TAPE. 4F13402

␣␣␣RD1 = 2848

Definition
05440 0 07400 4 01771 2869 RD1 TSX DIM1SR,4 * GO SEARCH DIM1 TABLE. 4F12923

␣␣␣RD2 = 2852

Definition
05444 0 07400 4 01775 2873 RD2 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F12927
Reference
D 05441 1 00000 0 05444 2870 TXI RD2,0 IF FOUND, THEN 4F12924

␣␣␣RD3 = 2861

Definition
05455 0 07400 4 02005 2882 RD3 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F12936
Reference
D 05445 1 00000 0 05455 2874 TXI RD3,0 AND IF FOUND, 4F12928

␣␣␣RDC = 2491

Definition

		2386			END OF PROGRAM C3400.	4F12440
		2387			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12441
		2388				4F12442
		2389			STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS=	4F12443
		2390				4F12444
		2391			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12445
		2392				4F12446
		2393			RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF.	4F12447
		2394			RDC PROCESSES READ STATEMENTS.	4F12448
04673	0 50000 0 01437	2395	RDC	CLA	A81 SET THE ADDRESS FIELD OF	4F12449

Reference
D 06271 1 00000 0 04673 3353 TXI RDC,0 READ CARD. 4F13405

␣␣␣RDD = 2611

Definition

		2555			END OF PROGRAM WRD.	4F12609
		2556			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12610
		2557				4F12611
		2558			RDD/ CALLS=INPUT. USES=WRD.	4F12612
		2559			RDD PROCESSES READ DRUM STATEMENTS.	4F12613
05063	0 07400 2 06002	2560	RDD	TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12614

Reference
D 06270 1 00000 0 05063 3352 TXI RDD,0 READ DRUM. 4F13404

␣␣␣RDP = 2539

Definition

		2451			END OF PROGRAM RIT.	4F12505
		2452			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12506
		2453				4F12507
		2454			RDP/ CALLS=OUTPUT. USES=RDC.	4F12508
		2455			RDP PROCESSES PRINT STATEMENTS.	4F12509
04753	−0 75400 0 00000	2456	RDP	PXD	,0 RESET ENT	4F12510

Reference
D 06275 1 00000 0 04753 3357 TXI RDP,0 PRINT. 4F13409

␣␣␣RDR = 3149

Definition
06115 512451000000 3247 RDR BCD 1RDR000 CONSTANT USED BY IOT. 4F13299
Reference
05064 −0 50000 0 06115 2561 CAL RDR PICKUP RDR000 TO SET OP, AND 4F12615

␣␣␣REP = 1361

Definition
02521 −0 53400 2 02364 943 REP LXD DI,2 SET XRZ = (5-DRUM NUMBER). 4F10966
Reference
02564 2 00001 1 02521 978 ERR TIX REP,1,1 OTHERWISE, REPEAT UP TO 5 TIMES. 4F11001

␣␣␣REW = 3150

Definition
06116 512566000000 3248 REW BCD 1REW000 CONSTANT USED BY IOT. 4F13300
Reference
05107 −0 50000 0 06116 2591 RWN CAL REW PICKUP REW000 TO SET OP, AND 4F12645

␣␣␣RIT = 2533

Definition

		2440			END OF PROGRAM RDC.	4F12494
		2441			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12495
		2442				4F12496
		2443			RIT/ CALLS=INPUT,BEG,VRD. USES=RDC.	4F12497
		2444			RIT PROCESSES READ INPUT TAPE STATEMENTS.	4F12498
04745	0 07400 2 06002	2445	RIT	TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12499

Reference
D 06267 1 00000 0 04745 3351 TXI RIT,0 READ INPUT TAPE. 4F13403

␣␣␣RPA = 2825

Definition
05411 −0 75400 0 05407 2838 RPA PXD RPT,0 CLEAR THE AC, AND 4F12892
Reference
05404 0 50000 0 05411 2832 CLA RPA SET CMA3 SWITCH TO RETURN TO 4F12886

␣␣␣RPR = 2815

Definition

		2822			END OF PROGRAM SPC.	4F12876
		2823			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12877
		2824				4F12878
		2825			RPR/ CALLS=DIAG. USES=CMA,SPC.	4F12879
		2826			RPR = ENTRY POINT WHEN RPAREN IS MET 1N LIST SCAN.	4F12880
05377	−0 53400 4 17400	2827	RPR	LXD	DOLEV,4 TEST LEGALITY OF 1.	4F12881

Reference
D 05175 1 00000 0 05377 2672 TXI RPR,0 * ) 4F12726

␣␣␣RPS = 2818

Definition
05402 −0 50000 4 17400 2830 RPS CAL DOLEV,4 NULLIFY DO AT CURRENT LEVEL. 4F12884
Reference
05400 3 00000 4 05402 2828 TXH RPS,4,0 IF THERE ARE TOO MANY ) IN LIST, 4F12882

␣␣␣RPT = 2823

Definition
2835 RPT = REENTRY POINT USED BY CMA. 4F12889

05407 0 50000 0 05336 2836 RPT CLA SPC1 RESET CMA3 SWITCH 4F12890
Reference
05411 −0 75400 0 05407 2838 RPA PXD RPT,0 CLEAR THE AC, AND 4F12892

␣␣␣RSC = 2657

Definition

		2627			END OF PROGRAM FOR.	4F12681
		2628			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12682
		2629				4F12683
		2630			RSC/ CALLS=C0190,DIAG.	4F12684
		2631			RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS	4F12685
		2632			FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN	4F12686
		2633			COMMON. THEN A TAGGED EXIT IS MADE THR0UGH THE BLOCK OF	4F12687
		2634			CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT.	4F12688
		2635			RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC.	4F12689
05141	−0 50000 0 05361	2636	RSC	CAL	FLINE RESET TEMPORARY	4F12690

References (2)

D	04744	1 00000 0 05141	2439	BXT	TXI	RSC,0 * EXIT TO SCAN LIST, IF THERE IS ONE.	4F12493
D	05376	1 00000 0 05141	2821	RESET	TXI	RSC,0 * THEN EXIT TO CONTINUE LIST SCAN.	4F12875

␣␣␣RTB = 3151

Definition
06117 516322000000 3249 RTB BCD 1RTB000 CONSTANT USED BY IOT. 4F13301
Reference
05012 −0 50000 0 06117 2508 RBT CAL RTB MOVE RTB000 4F12562

␣␣␣RTN = 3163

Definition
06133 745163453460 3261 RTN BCD 1(RTN)␣ CONSTANT USED BY IOT. 4F13313

References (2)

	04700	−0 50000 0 06133	2401		CAL	RTN MOVE (RTN)	4F12455
	05667	−0 50000 0 06133	3048		CAL	RTN MOVE (RTN)	4F13100

␣␣␣RVX = 3134

Definition
06076 0 60200 0 06142 3227 RVX SLW TOP SET TOP TO STA OR STD. 4F13279
Reference
06054 1 00000 0 06076 3209 XRW TXI RVX,0,** GO SET TOP. 4F13261

␣␣␣RWN = 2631

Definition

		2586			END OF PROGRAM EFT.	4F12640
		2587			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12641
		2588				4F12642
		2589			RWN/ USES=EFT.	4F12643
		2590			RWN PROCESSES REWIND TAPE STATEMENTS.	4F12644
05107	−0 50000 0 06116	2591	RWN	CAL	REW PICKUP REW000 TO SET OP, AND	4F12645

Reference
D 06277 1 00000 0 05107 3359 TXI RWN,0 REWIND. 4F13411

␣␣␣RX4 = 1160

Definition
02210 −3 00000 0 02212 792 RX4 TXL RX4+2,0,** IF TABLE WAS FLOCON, 4F10781

References (2)

	02127	0 63000 0 02210	743		STP	RX4 X	4F10732
	02210	−3 00000 0 02212	792	RX4	TXL	RX4+2,0,** IF TABLE WAS FLOCON,	4F10781

␣␣␣SBC = 1530

Definition
02772 −0 50000 0 01100 1125 SBC CAL DIMCTR UPDATE 4F11148
Reference
D 02723 1 00000 0 02772 1085 TXI SBC,0 , 4F11108

␣␣␣SBM = 1499

Definition
02733 −0 76000 0 00003 1094 SBM SSM MINUS ADDEND. 4F11117
Reference
02726 1 00000 0 02733 1088 SBS2 TXI SBM,0,** - ,,SUBSCRIPT ELEMENT COUNTER. 4F11111

␣␣␣SBP = 1500

Definition
02734 0 76000 0 00000 1095 SBP CLM PLUS ADDEND. 4F11118
Reference
02731 1 00000 0 02734 1091 SXR2 TXI SBP,0,** + 4F11114

␣␣␣SBR = 1528

Definition
02770 0 50200 0 03014 1123 SBR CLS SBC4 SET SWITCH 4F11146
Reference
D 02724 1 00000 0 02770 1086 TXI SBR,0 ) 4F11109

␣␣␣SBX = 1460

Definition
02664 0 50200 0 02776 1053 SBX CLS SBC6 TEST FOR 4F11076
Reference
02732 1 00000 0 02664 1092 SXR4 TXI SBX,0,** * 4F11115

␣␣␣SCH = 3164

Definition
06134 746223303460 3262 SCH BCD 1(SCH)␣ CONSTANT USED BY IOT. 4F13314
Reference
04775 0 50000 0 06134 2485 CLA SCH PICKUP (SCH) TO SET TSA, AND 4F12539

␣␣␣SDA = 3128

Definition
06070 0 07400 4 01731 3221 SDA TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13273
Reference
06056 0 10000 0 06070 3211 TZE SDA IS NOT ZERO, 4F13263

␣␣␣SET = 758

Definition
01366 1 00000 0 00000 308 SET PON .. 4F10298

References (5)

00406	0 00001 0 01366	180	PZE	SET,,1 A,,E.	4F10171
04710	0 62100 0 01366	2410	STA	SET MOVE BINARY FORMAT NUMBER INTO SET.	4F12464
04741	0 00000 0 01366	2435	PZE	SET WORD3--800(FORMAT NUMBER)	4F12489
05114	0 62100 0 01366	2606	STA	SET INTO THE ADDRESS OF SET,	4F12660
05115	−0 50000 0 01366	2607	CAL	SET AND MOVE SET (8000(EFN))	4F12661

␣␣␣SLW = 3152

Definition
06120 624366000000 3250 SLW BCD 1SLW000 CONSTANT USED BY IOT. 4F13302
Reference
04726 0 00000 0 06120 2424 PZE SLW WORD2--SLW000 4F12478

␣␣␣SMB = 2971

Definition
05633 0 02000 4 00001 3016 SMB TRA 1,4 * TAKE VARIABLE EXIT TO CALLER. 4F13068
Reference
05627 3 00044 2 05633 3012 TXH SMB,2,36 IF VARIABLE, 4F13064

␣␣␣SPC = 2770

Definition
2775 SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATI0N SCAN. 4F12829

05322 0 07400 4 05624 2776 SPC TSX TYP,4 * G0 TEST TYPE OF SUBSCRIPT SPEC. 4F12830
Reference
D 05307 1 00000 0 05322 2760 TXI SPC,0 * , 4F12814

␣␣␣SPH = 3165

Definition
06135 746247303460 3263 SPH BCD 1(SPH)␣ CONSTANT USED BY IOT. 4F13315
Reference
04756 0 50000 0 06135 2459 CLA SPH PICKUP (SPH), AND 4F12513

␣␣␣STA = 889

Definition
01571 5890 STA SYN L(STA) 4F15951
Reference
06075 −0 50000 0 01571 3226 CAL STA PICKUP STA000, AND 4F13278

␣␣␣STD = 3153

Definition
06121 626324000000 3251 STD BCD 1STD000 CONSTANT USED BY IOT. 4F13303
Reference
06053 −0 50000 0 06121 3208 CAL STD PICKUP STD000, AND 4F13260

␣␣␣STH = 3166

Definition
06136 746263303460 3264 STH BCD 1(STH)␣ CONSTANT USED BY IOT. 4F13316
Reference
04770 0 50000 0 06136 2475 CLA STH PICKUP (STH) TO SET TSA, AND 4F12529

␣␣␣SYM = 7940

Definition
17404 3382 SYM BSS 1 VARIABLE USED BY IOT. 4F13432

References (11)

05151	0 60000 0 17404	2647		STZ	SYM CLEAR SYMBOL WORKING STORAGE.	4F12701
05165	−0 60200 0 17404	2660		ORS	SYM ALSO, SAVE EACH	4F12714
05205	−0 50000 0 17404	2685	LPR	CAL	SYM TEST FOR SUBSCRIPT OR DO NEST.	4F12739
05212	−0 50000 0 17404	2690		CAL	SYM MOVE SYMBOL	4F12744
05275	−0 50000 0 17404	2746		CAL	SYM OBTAIN SUBSCRIPT	4F12800
05301	−0 50100 0 17404	2750		ORA	SYM LIST DO TABLE.	4F12804
05332	−0 50000 0 17404	2784		CAL	SYM PICKUP VARIABLE SYMBOL AND	4F12838
05417	−0 50000 0 17404	2851		CAL	SYM INVE VARIABLE SYMBOL	4F12905
05632	−0 60200 0 17404	3015		ORS	SYM LESS THAN 6 CHARACTERS, AND	4F13067
05776	−0 50000 0 17404	3145		CAL	SYM MOVE SYMBOL	4F13197
06050	0 00000 0 17404	3205		PZE	SYM WORD3--(FXD-PT SYMBOL)	4F13257

␣␣␣TAB = 3987

Definition
07623 +136400000000 4134 TAB OCT 136400000000 00-TABLE USED BY ROYCNV. 4F14182

References (2)

	07510	0 24100 1 07623	4057		FDP	TAB,1 IF TO THE RIGHT, DIVIDE BY A	4F14105
	07526	0 26000 1 07623	4071		FMP	TAB,1 MULTIPLY BY A SUITABLE	4F14119

␣␣␣TDA = 1265

Definition
02361 849 TDA BSS 1 NORKING STORAGE USED BY DRTABS. 4F10838

References (9)

02132	0 50000 0 02361	746	CLA	TDA X	4F10735
02133	−0 53400 2 02361	747	LXD	TDA,2 X	4F10736
02157	0 50000 0 02361	767	CLA	TDA CHANGE CHECKSUM ADDRESS.	4F10756
02162	0 62100 0 02361	770	STA	TDA	4F10759
02171	0 46000 0 02361	777	LDA	TDA	4F10766
02176	0 46000 0 02361	782	LDA	TDA NEXT DRUM ENTRY ADDRESS.	4F10771
02212	0 40100 0 02361	794	ADM	TDA N=N+1,TDA=TDA+(L+1) OR (L).	4F10783
02214	−0 53400 2 02361	796	LXD	TDA,2 L(N)	4F10785
02243	−0 53400 2 02361	819	LXD	TDA,2 (N)	4F10808

␣␣␣TDO = 40

Definition
00050 83 TDO BSS 10 DO STATEMENTS. 4F10074
Reference
00325 0 00012 0 00050 115 PZE TDO,,10 01) O,,B. 4F10106

␣␣␣TEN = 763

Definition

		313			END OF COMMON WORKING STORAGE, BUFFERS, AND PARAMETERS.	4F10303
		314			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10304
		315				4F10305
		316			C0MMON/2-CONSTANTS USED BY SECTION ONE=	4F10306
		317				4F10307
01373	+000000000012	318	TEN	OCT	12 (1010) - CTEST-1I	4F10308

References (5)

03557	0 40200 0 01373	1670		SUB	TEN CHECK FOR TEN	4F11727
07367	0 34000 0 01373	3976	NC1	CAS	TEN AND COMPARE WITH TEN.	4F14024
07445	0 34000 0 01373	4022		CAS	TEN COMPARE WITH TEN.	4F14070
07453	0 34000 0 01373	4028		CAS	TEN AND COMPARE WITH TEN.	4F14076
	01373	5875	L(10)	SYN	TEN	4F15931

␣␣␣TIX = 894

Definition
01576 5902 TIX SYN L(TIX) 4F15963
Reference
05520 0 00000 0 01576 2917 PZE TIX WORD2--TIX001 4F12971

␣␣␣TOP = 3170

Definition
06142 3269 TOP BSS 1 VARIABLE USED BY IOT. 4F13322

References (4)

05761	0 60200 0 06142	3128	SETOP	SLW	TOP SET TOP.	4F13180
05765	0 00000 0 06142	3132		PZE	TOP WORD2--ETM000 OR LTM000	4F13184
06076	0 60200 0 06142	3227	RVX	SLW	TOP SET TOP TO STA OR STD.	4F13279
06102	0 00000 0 06142	3231		PZE	TOP WORD2--STA000 OR STD000	4F13283

␣␣␣TPO = 2615

Definition
2569 TPO= ENTRY POINT USED BY RWN, BSP. 4F12623

05067 0 60200 0 17401 2570 TPO SLW OP SET OP. 4F12624

References (2)

D	05110	1 00000 0 05067	2592		TXI	TPO,0 * CONTINUE BY USING PROGRAM EFT.	4F12646
D	05112	1 00000 0 05067	2599		TXI	TPO,0 * CONTINUE BY USING PROGRAM EFT.	4F12653

␣␣␣TRA = 1419

Definition
02613 0 02000 1 00001 1006 TRA TRA 1,1 * EXIT TO MAIN ROUTINE. 4F11029

␣␣␣TRY = 1169

Definition
02221 0 50000 1 00000 801 TRY CLA **,1 (ARG1+L) 4F10790

References (2)

	02113	0 62100 0 02221	731		STA	TRY ALL	4F10720
	02242	2 00001 1 02221	818	YEA	TIX	TRY,1,1 K*L). TEST NEXT WORD OF ARG. L=L-1.	4F10807

␣␣␣TSA = 3171

Definition
06143 0 00000 0 00000 3270 TSA PZE ** VARIABLE USED BY IOT. 4F13323

References (3)

04677	0 60100 0 06143	2400	TSC	STO	TSA SET TSA.	4F12454
04734	0 00000 0 06143	2430		PZE	TSA WORD3--(CSH) OR (TSH)	4F12404
04757	0 60100 0 06143	2461	TSD	STO	TSA SET TSA.	4F12515

␣␣␣TSC = 2495

Definition
2399 TSC= ENTRY POINT USED BY RIT. 4F12453

04677 0 60100 0 06143 2400 TSC STO TSA SET TSA. 4F12454
Reference
D 04752 1 00000 0 04677 2450 TXI TSC,0 * CONTINUE BY USING PROGRAM RDC. 4F12504

␣␣␣TSD = 2543

Definition
2460 TSD= ENTRY POINT USED BY WOT, PDC. 4F12514

04757 0 60100 0 06143 2461 TSD STO TSA SET TSA. 4F12515

References (2)

D	04771	1 00000 0 04757	2476		TXI	TSD,0 * CONTINUE BY USING PROGRAM RDP.	4F12530
D	04776	1 00000 0 04757	2486		TXI	TSD,0 * CONTINUE BY USING PROGRAM RDP.	4F12540

␣␣␣TSH = 3167

Definition
06137 746362303460 3265 TSH BCD 1(TSH)␣ CONSTANT USED BY IOT. 4F13317
Reference
04751 0 50000 0 06137 2449 CLA TSH PICKUP (TSH) TO SET TSA, AND 4F12503

␣␣␣TTA = 3172

Definition
06144 0 00000 0 00000 3271 TTA PZE ** VARIABLE USED BY IOT. 4F13324

References (2)

	04703	0 60100 0 06144	2405	TTC	STO	TTA SET TTA.	4F12459
	04722	0 00000 0 06144	2420		PZE	TTA WORD3--(DBC) OR (BDC)	4F12474

␣␣␣TTC = 2499

Definition
2404 TTC= ENTRY POINT USED BY RDP. 4F12458

04703 0 60100 0 06144 2405 TTC STO TTA SET TTA. 4F12459
Reference
D 04763 1 00000 0 04703 2465 TXI TTC,0 * CONTINUE BY USING PROGRAM RDC. 4F12519

␣␣␣TYP = 2964

Definition
3008 TYP = ENTRY POINT USED BY LPR,SPC,CMA. 4F13060

05624 0 50000 0 17310 3009 TYP CLA CHR−6 TEST FIRST CHARACTER 4F13061

References (3)

05207	0 07400 4 05624	2687		TSX	TYP,4 * IF VARIABLE SYMBOL CONTAINS LESS	4F12741
05322	0 07400 4 05624	2776	SPC	TSX	TYP,4 * G0 TEST TYPE OF SUBSCRIPT SPEC.	4F12830
05414	0 07400 4 05624	2848	CMA1	TSX	TYP,4 * TYPE TEST FOR NON-SUBSCR. VAR.	4F12902

␣␣␣VDA = 3117

Definition
06055 0 50000 0 06140 3210 VDA CLA CON IF CON 4F13262
Reference
06052 3 00000 0 06055 3207 VRX TXH VDA,0,** SWITCH (TXL=TRA, TXH=NOP). 4F13259

␣␣␣VRA = 3098

Definition

		3184			END OF PROGRAM LIB.	4F13236
		3185			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13237
		3186				4F13236
		3187			VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF.	4F13239
		3188			CALLERS=RIT,WOT,EFT.	4F13240
		3189			VRA = ENTRY POINT USED BY EFT.	4F13241
06032	0 50000 0 02400	3190	VRA	CLA	L(TL) RESET TPOA ADDRESS	4F13242

References (2)

	05076	0 07400 4 06032	2577		TSX	VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS.	4F12631
	05652	0 07400 4 06032	3035		TSX	VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS.	4F13087

␣␣␣VRD = 3102

Definition
3194 VRD = ENTRY POINT USED BY RIT,WOT. 4F13246

06036 0 50000 0 00415 3195 VRD CLA TXLOP PREPARE TO SET OP-SWITCH TO NOP. 4F13247

References (2)

	04747	0 07400 4 06036	2447		TSX	VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.	4F12501
	04766	0 07400 4 06036	2473		TSX	VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.	4F12527

␣␣␣VRX = 3114

Definition
06052 3 00000 0 06055 3207 VRX TXH VDA,0,** SWITCH (TXL=TRA, TXH=NOP). 4F13259

References (3)

06037	0 63000 0 06052	3196	VRD1	STP	VRX SET VRX OP-SWITCH.	4F13248
06040	−0 63400 4 06052	3197		SXD	VRX,4 SAVE THE C(XR4) FOR RETURN.	4F13249
06106	−0 53400 4 06052	3235		LXD	VRX,4 RESTORE THE C(XR4), AND	4F13287

␣␣␣WBT = 2559

Definition

		2487			END 0F PROGRAM PDC.	4F12541
		2488			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12542
		2489				4F12543
		2490			WBT/ CALLS=OUTPUT,BRW,CIT.	4F12544
		2491			WBT PROCESSES WRITE TAPE STATEMENTS.	4F12545
04777	−0 50000 0 06124	2492	WBT	CAL	WTB MOVE WTB0004	4F12546

Reference
D 06272 1 00000 0 04777 3354 TXI WBT,0 WRITE TAPE. 4F13406

␣␣␣WDR = 3154

Definition
06122 662451000000 3252 WDR BCD 1WDR000 CONSTANT USED BY IOT. 4F13304
Reference
05045 −0 50000 0 06122 2540 CAL WDR PICKUP WDR000, AND 4F12594

␣␣␣WEF = 3155

Definition
06123 662526000000 3253 WEF BCD 1WEF000 CONSTANT USED BY IOT. 4F13305
Reference
05066 −0 50000 0 06123 2568 EFT CAL WEF PICKUP WEF000, AND 4F12622

␣␣␣WOT = 2548

Definition

		2466			END OF PROGRAM RDP.	4F12520
		2467			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12521
		2468				4F12522
		2469			WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP.	4F12523
		2470			WOT PROCESSES WRITE OUTPUT TAPE STATEMENTS.	4F12524
04764	0 07400 2 06004	2471	WOT	TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12525

Reference
D 06273 1 00000 0 04764 3355 TXI WOT,0 WRITE OUTPUT TAPE. 4F13407

␣␣␣WRD = 2596

Definition

		2534			END OF PROGRAM RBT.	4F12588
		2535			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12589
		2536				4F12590
		2537			WRD/ CALLS=OUTPUT,BRW,CIT.	4F12591
		2538			WRD PROCESSES WRITE DRUM STATEMENTS.	4F12592
05044	0 07400 2 06004	2539	WRD	TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12593

Reference
D 06274 1 00000 0 05044 3356 TXI WRD,0 WRITE DRUM. 4F13408

␣␣␣WTB = 3156

Definition
06124 666322000000 3254 WTB BCD 1WTB000 CONSTANT USED BY IOT. 4F13306
Reference
04777 −0 50000 0 06124 2492 WBT CAL WTB MOVE WTB0004 4F12546

␣␣␣XDR = 2598

Definition
2541 XDR= ENTRY POINT USED BY RDD. 4F12595

05046 0 60200 0 17401 2542 XDR SLW OP SET OP. 4F12596
Reference
D 05065 1 00000 0 05046 2562 TXI XDR,0 * CONTINUE BY USING PROGRAM WRD. 4F12616

␣␣␣XIT = 3157

Definition
06125 673163000000 3255 XIT BCD 1XIT000 CONSTANT USED BY IOT. 4F13307

References (4)

05026	0 00000 0 06125	2520	PZE	XIT WORD2--XIT000	4F12574
05040	0 00000 0 06125	2530	PZE	XIT WORD2--XIT000	4F12584
05564	0 00000 0 06125	2959	PZE	XIT WORD2--XITO00	4F13013
06016	0 00000 0 06125	3168	PZE	XIT WORD2--XIT000	4F13220

␣␣␣XR1 = 1373

Definition
02535 1 00000 0 02562 955 XR1 TXI PROVE,0,** GO TEST CHECKSUM. 4F10978

References (2)

	02076	−0 63400 1 02535	718		SXD	XR1,1 SAVE THE C(XR1),	4F10707
	02253	−0 53400 1 02535	827		LXD	XR1,1 RESTORE THE C(XR1,XR2,XR4),	4F10816

␣␣␣XR2 = 1147

Definition
02173 1 00000 0 02205 779 XR2 TXI NOWIN,0,** GO UPDATE FLOCON PARAMETER. 4F10768

References (2)

	02077	−0 63400 2 02173	719		SXD	XR2,2 SAVE THE C(XR2),	4F10708
	02251	−0 53400 2 02173	825		LXD	XR2,2 WHICH PRECEED THE ENTRY	4F10814

␣␣␣XR4 = 1165

Definition
02215 1 00000 0 02247 797 XR4 TXI OUT,0,** GET TAG AND EXIT. 4F10786

References (3)

02100	−0 63400 4 02215	720		SXD	XR4,4 SAVE THE C(XR4), AND	4F10709
02252	−0 53400 4 02215	826		LXD	XR4,4 WHICH EQUALS THE ARGUMENT.	4F10815
02256	−0 53400 4 02215	830	WHICH	LXD	XR4,4 GET ALPHA BAR, AND	4F10819

␣␣␣XRW = 3116

Definition
06054 1 00000 0 06076 3209 XRW TXI RVX,0,** GO SET TOP. 4F13261

References (2)

	05646	−0 63400 4 06054	3031	BRW	SXD	XRW,4 SAVE THE C(XR4), AND	4F13083
	05672	−0 53400 4 06054	3051		LXD	XRW,4 RESTORE THE C(XR4), AND	4F13103

␣␣␣YEA = 1186

Definition
02242 2 00001 1 02221 818 YEA TIX TRY,1,1 K*L). TEST NEXT WORD OF ARG. L=L-1. 4F10807

References (2)

	02224	1 77777 2 02242	804		TXI	YEA,2,−1 KL = KL-1.	4F10793
	02244	−0 63400 4 02245	820		SXD	YEA+3,4	4F10809

␣␣␣ZER = 836

Definition
01504 5903 ZER SYN O( 4F15964
Reference
05007 0 00000 0 01504 2500 PZE ZER WORD3--600000 4F12554

␣␣1BAR = 839

Definition
01507 +077777000000 396 1BAR OCT 77777000000 (2**15-1)*2**18DECREMENT MASK. 4F10386

References (2)

	02376	−0 32000 0 01507	875		ANA	1BAR CLEAR SL, AND	4F10864
	06335	−0 53400 4 01507	3420		LXD	1BAR,4 SET NBAR=-1	4F13469

␣␣2E17 = 811

Definition
01453 +000000400000 368 2E17 OCT 400000 TAG=4 4F10358

References (4)

03060	−0 50100 0 01453	1180		ORA	2E17 IF MINUS--OR SIGN INTO BIT 18,	4F11203
03145	−0 50100 0 01453	1233		ORA	2E17 IF MINUS--OR SIGN INTO BIT 18,	4F11256
03206	−0 50100 0 01453	1266		ORA	2E17 IF MINUS--OR SIGN INTO BIT 18.	4F11289
	01453	5893	TAG4	SYN	2E17	4F15954

␣␣2E18 = 812

Definition
01454 +000001000000 369 2E18 OCT 1000000 DECREMENT=1 4F10359

References (14)

01762	0 40000 0 01454	622		ADD	2E18 OF WORDS ENTERED	4F10611
02271	0 40000 0 01454	841		ADD	2E18 OF NUMBER,	4F10630
03411	0 50200 0 01454	1442		CLS	2E18 SET ADDRESS TO -1	4F114579
04523	0 50000 0 01454	2267		CLA	2E18 MAIN PROGRAM. SINCE THIS	4F123293
11610	0 00000 0 01454	5174		HTR	2E18	4F15224
11637	0 40000 0 01454	5197		ADD	2E18	4F15247
12027	0 40200 0 01454	5318		SUB	2E18	4F15373
12060	0 40200 0 01454	5343		SUB	2E18	4F15398
12211	0 40000 0 01454	5433		ADD	2E18 UPDATE EIFNO	4F15493
12451	0 00000 0 01454	5593		HTR	2E18	4F15653
12526	−0 50000 0 01454	5638		CAL	2E18	4F15698
12730	−0 50000 0 01454	5770		CAL	2E18 REPLACE NULL TAG.	4F15830
	01454	5844	D1	SYN	2E18	4F15896
	01454	5878	L(1DI	SYN	2E18	4F15934

␣␣ABAR = 6848

Definition
15300 4144 ABAR BSS 1 4F14191

References (9)

06333	0 60000 0 15300	3418		STZ	ABAR X	4F13467
06504	−0 53400 4 15300	3523		LXD	ABAR,4	4F13572
06523	−0 63400 4 15300	3538	MS213	SXD	ABAR,4	4F13587
06525	−0 53400 4 15300	3540	MS220	LXD	ABAR,4 PERFORM LEVEL ANALYSIS FOR )	4F13589
06532	−0 63400 4 15300	3545	MS221	SXD	ABAR,4	4F13594
06534	−0 53400 4 15300	3547	MS230	LXD	ABAR,4 PERFORM LEVEL ANALYSIS FOE ENDMK.	4F13596
07016	−0 53400 4 15300	3728		LXD	ABAR,C	4F13776
07165	−0 63400 4 15300	3831	LA1040	SXD	ABAR,C	4F13879
07320	−0 63400 4 15300	3922	CM4303	SXD	ABAR,C	4F13970

␣␣ALL1 = 857

Definition
01531 −377777777777 414 ALL1 OCT −377777777777 END OF STATEMENT WORD. 4F10404

References (8)

06755	−0 50000 0 01531	3694		CAL	ALL1 GET WORD OF ONES	4F13742
11261	0 00000 0 01531	4959		HTR	ALL1 STRINGS IN 1 AS A PRELUDE TO	4F15009
11262	0 00000 0 01531	4960		HTR	ALL1 FS STATEMENT COMPILATION	4F15010
11263	0 00000 0 01531	4961		HTR	ALL1	4F15011
11264	0 00000 0 01531	4962		HTR	ALL1	4F15012
11677	−0 50000 0 01531	5230		CAL	ALL1 OPEN UNIVARIATE FUNCTION	4F15280
11727	−0 50000 0 01531	5254	CP3000	CAL	ALL1	4F15304
	01531	5822	36ONES	SYN	ALL1	4F15874

␣␣BBOX = 415

Definition
00637 0 00000 0 00000 266 BBOX PZE ,,** 2S COMPLEMENT OF THE ENTRY COUNT. 4F10257

References (3)

01734	−0 53400 2 00637	600		LXD	BBOX,2 SET XR2 = 2S COMPL OF NO-WRDS-ENTD.	4F10589
01757	−0 63400 2 00637	619		SXD	BBOX,2 SAVE THE C(XR2), AND	4F10608
12615	−0 53400 2 00637	5693	ES1710	LXD	BBOX,B	4F15753

␣␣BETA = 6692

Definition
15044 4884 BETA BSS 300 4F14932

References (34)

07634	−0 60000 2 15044	4165	R00500	STQ	BETA,B	4F14214
07644	0 50000 2 15044	4173		CLA	BETA,B	4F14222
07646	0 62200 2 15044	4175		STD	BETA,B	4F14224
07647	0 62100 2 15044	4176		STA	BETA,B	4F14225
07655	0 50000 2 15044	4182		CLA	BETA,B	4F14231
07700	0 60000 2 15044	4201		STZ	BETA,B REDUCE GAMMA COUNT TO 0	4F14250
07705	0 50000 2 15044	4206	R04500	CLA	BETA,B SET ORIGINS OF SCRIPL TABLE	4F14255
07710	−0 62000 2 15044	4209		SLQ	BETA,B	4F14258
07734	0 50000 2 15044	4229		CLA	BETA,B	4F14278
07746	0 62200 2 15044	4239		STD	BETA,B	4F14288
07757	0 50000 2 15044	4248		CLA	BETA,B	4F14297
07776	0 50000 2 15044	4263		CLA	BETA,B	4F14312
10051	−0 60000 4 15044	4306		STQ	BETA,C	4F14355
10104	0 50000 2 15044	4333		CLA	BETA,B	4F14382
10257	0 50000 2 15044	4440	AS0100	CLA	BETA,B	4F14489
10263	0 62100 2 15044	4444		STA	BETA,B	4F14493
10271	0 50000 2 15044	4450		CLA	BETA,B	4F14499
10304	0 50000 2 15044	4461		CLA	BETA,B	4F14510
10311	−0 60000 2 15044	4466	AS2700	STQ	BETA,B RECLEAR BETA TABLE	4F14515
10316	0 50000 2 15044	4471		CLA	BETA,B	4F14520
10320	0 62200 2 15044	4473		STD	BETA,B	4F14522
10321	0 62100 2 15044	4474		STA	BETA,B	4F14523
10330	−0 50000 2 15044	4481		CAL	BETA,B OBTAIN LENGTH OF S(I)	4F14530
10360	−0 50000 2 15044	4505		CAL	BETA,B	4F14554
10421	0 50000 4 15044	4538		CLA	BETA,C	4F14587
10561	0 50000 4 15044	4634		CLA	BETA,C	4F14683
10601	0 50000 4 15044	4650		CLA	BETA,C	4F14699
10615	0 50000 2 15044	4662		CLA	BETA,B	4F14711
10623	0 50000 2 15043	4668		CLA	BETA−1,B	4F14717
11020	−0 53400 2 15044	4793	LK1610	LXD	BETA,B IS S(0) A SINGLE ELEMENT	4F14842
11052	0 50000 2 15044	4819		CLA	BETA,B	4F14868
11077	0 50000 2 15044	4840		CLA	BETA,B	4F14889
11110	0 62200 2 15044	4849		STD	BETA,B STORE ERAS. REL. ADD. COUNT IN BETA,	4F14898
11113	0 50000 2 15520	4852	PC0200	CLA	BETA+300,B	4F14901

␣␣BIAS = 1366

Definition
02526 −0 75400 0 02554 948 BIAS PXD ETSUM,0 CLEAR THE AC. 4F10971

References (2)

	02120	0 40100 0 02526	736		ADM	BIAS X	4F10725
	02522	3 00000 2 02524	944		TXH	BIAS−2,2,0 IF NOT GREATER THAN ZERO,	4F10967

␣␣BUFF = 1125

Definition
02145 −0 53400 1 02363 757 BUFF LXD DBL,1 L(J) 4F10746

References (3)

	02134	−0 63400 2 02146	748		SXD	BUFF+1,2 X	4F10737
D	02135	−3 00000 0 02145	749	DIMSW	TXL	BUFF,0 IF DIM TABLE, SKIP SEARCH.	4F10738
	02146	2 00000 1 02150	758		TIX	BUFF+3,1,** (N) TEST FOR TABLE OVERFLOW.	4F10747

␣␣BUFL = 1170

Definition
02222 0 34000 2 00000 802 BUFL CAS **,2 (BUFR OR CTABL) 4F10791
Reference
02131 0 62100 0 02222 745 STA BUFL X 4F10734

␣␣BUFR = 1263

Definition
02357 846 BUFR BES 50 DRUM TABLE BUFFER. 4F10835

References (9)

02533	−0 70000 2 02357	953	LBUF	CAD	BUFR,2 AND COMPUTE	4F10976
02536	0 70000 2 02357	956		CPY	BUFR,2 COPY LOOP,	4F10979
02540	0 70000 2 02357	958		CPY	BUFR,2 TABLES	4F10901
02542	0 70000 2 02357	960		CPY	BUFR,2 FLOCON=	4F10903
02544	0 70000 2 02357	962		CPY	BUFR,2 X	4F10905
02546	0 70000 2 02357	964		CPY	BUFR,2 X	4F10907
02550	0 70000 2 02357	966		CPY	BUFR,2 X	4F10909
02552	0 70000 2 02357	968		CPY	BUFR,2 X	4F10901
02560	0 36100 2 02357	974		ACL	BUFR,2 LOGICAL	4F10997

␣␣CBAR = 6847

Definition
15277 4143 CBAR BSS 1 4F14190

References (5)

06332	0 60000 0 15277	3417		STZ	CBAR X	4F13466
06517	−0 63400 1 15277	3534		SXD	CBAR,1	4F13583
06530	−0 63400 1 15277	3543		SXD	CBAR,1	4F13592
07161	0 50200 0 15277	3827	LA1000	CLS	CBAR	4F13875
07304	−0 63400 2 15277	3910	CM4102	SXD	CBAR,B	4F13958

␣␣CLOS = 767

Definition
01377 +000000000034 322 CLOS OCT 34 ) - CTEST-7 4F10312

References (7)

03260	0 40200 0 01377	1326	TESTB1	SUB	CLOS	4F11349
03301	0 34000 0 01377	1347	TESTF0	CAS	CLOS	4F11370
04306	0 40200 0 01377	2096		SUB	CLOS IF NOT 1 DIMENSION,	4F12156
04314	0 40200 0 01377	2102		SUB	CLOS IF NOT 2 DIMENSION,	4F12163
04321	0 40200 0 01377	2107		SUB	CLOS IF MORE THAN 3 DIMENSION,	4F12169
05220	0 34000 0 01377	2696		CAS	CLOS	4F12750
	01377	5833	ARPAR	SYN	CLOS	4F15885

␣␣CMA1 = 2828

Definition
2847 CMA1 = ENTRY POINT USED BY EMK. 4F12901

05414 0 07400 4 05624 2848 CMA1 TSX TYP,4 * TYPE TEST FOR NON-SUBSCR. VAR. 4F12902

References (2)

	05406	3 00006 2 05414	2834		TXH	CMA1,2,6 * WERE COLLECTED, EXIT,TO CMA.	4F12888
	05547	3 00006 2 05414	2945	EMK	TXH	CMA1,2,6 * IF NO CHARACTERS REMAIN, THEN	4F12999

␣␣CMA3 = 2918

Definition
D 05546 1 00000 0 05147 2939 CMA3 TXI NXS,0 * SWITCH TO RPT OR NXS. 4F12993

References (2)

	05405	0 62100 0 05546	2833		STA	CMA3 RPT, AND IF ANY CHARACTERS	4F12887
	05410	0 62100 0 05546	2837		STA	CMA3 TO NXS,	4F12891

␣␣CMA4 = 2832

Definition
05420 0 60200 0 17403 2852 CMA4 SLW SA INTO SA. AND 4F12906

␣␣CMA5 = 2911

Definition
05537 0 07400 4 01731 2932 CMA5 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12986

References (4)

	05433	−0 10000 0 05537	2864	TNZ	CMA5 IS A CONSTANT,	4F12918
D	05435	1 00000 0 05537	2866	TXI	CMA5,0 THEN GO MAKE CIT ENTRY.	4F12920
D	05532	1 00000 0 05537	2927	TXI	CMA5,0 IF THE PRODUCT OF DIMENSIONS IS	4F12981
D	05534	1 00000 0 05537	2929	TXI	CMA5,0 AND IF FIXED POINT,	4F12983

␣␣CMA6 = 2836

Definition
05424 −0 50000 0 17400 2857 CMA6 CAL DOLEV IN ANY CASE, 4F12911
Reference
05422 3 00000 4 05424 2855 TXH CMA6,4,0 ETMSW IS SET TO TXH (NOP CASE), 4F12909

␣␣CMA7 = 2833

Definition
2853 CMA7 = ENTRY POINT USED BY LPR. 4F12907

05421 0 53400 4 17400 2854 CMA7 LXA DOLEV,4 IF DOLEV ADDRESS = 0, AND IF 4F12908
Reference
D 05227 1 00000 0 05421 2703 TXI CMA7,0 * AND CONTINUE BY USING PROGRAM CMA. 4F12757

␣␣COMP = 5521

Definition
5697 4F15757

12621 0 07400 4 01731 5698 COMP TSX CIT00,C 4F15758

References (49)

11373	0 07400 2 12621	5033		TSX	COMP,B	4F15083
11430	0 07400 2 12621	5062		TSX	COMP,B	4F15112
11454	0 07400 2 12621	5082		TSX	COMP,B COMPILE DVP SYMJ (S(I))	4F15132
11475	0 07400 2 12621	5099		TSX	COMP,B COMPILE STQ 700000	4F15149
11500	0 07400 2 12621	5102		TSX	COMP,B COMPILE CLA 700000	4F15152
11504	0 07400 2 12621	5106		TSX	COMP,B	4F15156
11515	0 07400 2 12621	5115		TSX	COMP,B COMPILE STO 700000	4F15165
11520	0 07400 2 12621	5118		TSX	COMP,B COMPILE LDQ 700000	4F15168
11530	0 07400 2 12621	5126		TSX	COMP,B COMPILE MPY SYMJ(S(I))	4F15176
11541	0 07400 2 12621	5135		TSX	COMP,B COMPILE FMP SYMJ(S(I))	4F15185
11572	0 07400 2 12621	5160		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15210
11615	0 07400 2 12621	5179		TSX	COMP,B COMPILE LDQ SYM3(S(I))	4F15229
11630	0 07400 2 12621	5190		TSX	COMP,B COMPILE CLA SYMJ(S(I)), J=4,...	4F15240
11651	0 07400 2 12621	5207		TSX	COMP,B COMPILE SXD 7...TYPE NO. , 4	4F15257
11656	0 07400 2 12621	5212		TSX	COMP,B COMPILE TSX SYM1(S(I)),4	4F15262
11673	0 07400 2 12621	5226		TSX	COMP,B COMPILE FUNCTION NAME	4F15276
11713	0 07400 2 12621	5242	CP2880	TSX	COMP,B COMPILE ACC OR MQ INDICATOR	4F15292
11725	0 07400 2 12621	5252		TSX	COMP,B COMPILE SYMJ(S(I))	4F15302
11731	0 07400 2 12621	5256		TSX	COMP,B COMPILE LAST ARGUMENT NAME	4F15306
11746	0 07400 2 12621	5269		TSX	COMP,B COMPILE SXD7...0,4	4F15319
11753	0 07400 2 12621	5274		TSX	COMP,B COMPILE TSX SYM1(S(I)),4	4F15324
11760	0 07400 2 12621	5279		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15334
11773	0 07400 2 12621	5290		TSX	COMP,B COMPILE LDQ SYM3(S(I))	4F15345
12004	0 07400 2 12621	5299		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15354
12020	0 07400 2 12621	5311		TSX	COMP,B COMPILE LDQ SYMJ(S(I))	4F15366
12031	0 07400 2 12621	5320		TSX	COMP,B COMPILE STQ 4...0-(J-2)	4F15375
12051	0 07400 2 12621	5336		TSX	COMP,B COMPILE CLA SYMJ(S(I))	4F15391
12062	0 07400 2 12621	5345		TSX	COMP,B COMPILE STO 4...0-(J-2)	4F15400
12075	0 07400 2 12621	5356		TSX	COMP,B COMPILE CLASYM2(S(I))	4F15411
12123	0 07400 2 12621	5378		TSX	COMP,B COMPILE BASE	4F15433
12127	0 07400 2 12621	5382		TSX	COMP,B COMPILE FIX PT CONSTANT EXPONENT	4F15437
12141	0 07400 2 12621	5392		TSX	COMP,B COMPILE LDQ SYM2 (S(I))	4F15447
12150	0 07400 2 12621	5399		TSX	COMP,B COMPILE SXD 7...0,4	4F15454
12173	0 07400 2 12621	5418		TSX	COMP,B COMPILE TSX FXFX/FLEX/FLFL,4	4F15473
12202	0 07400 2 12621	5425		TSX	COMP,B COMPILE CLA SYM1(S(I))	4F15485
12241	0 07400 2 12621	5457		TSX	COMP,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I))	4F15517
12265	0 07400 2 12621	5477		TSX	COMP,B COMPILE STA IFN+STAIX	4F15537
12276	0 07400 2 12621	5486		TSX	COMP,B COMPILE SXD 7,4	4F15546
12306	0 07400 2 12621	5494		TSX	COMP,B COMPILE TSX SYM1(S(I)),4	4F15554
12324	0 07400 2 12621	5508	CP5720	TSX	COMP,B COMPILE TSX SYMJ(S(I)) , J=2,...	4F15568
12355	0 07400 2 12621	5533		TSX	COMP,B COMPILE STO/STQ 1... TYPE NO + PHI(I)	4F15593
12416	0 07400 2 12621	5566		TSX	COMP,B COMPILE STO/STQ LEFT+2	4F15626
12427	0 07400 2 12621	5575		TSX	COMP,B COMPILE STQ 700000	4F15635
12432	0 07400 2 12621	5578		TSX	COMP,B COMPILE CLA 700000	4F15638
12476	0 07400 2 12621	5614		TSX	COMP,B COMPILE STQ 700000	4F15674
12501	0 07400 2 12621	5617		TSX	COMP,B COMPILE CLA 700000	4F15677
12531	0 07400 2 12621	5641		TSX	COMP,B COMPILE TRA 1,4	4F15701
12551	0 07400 2 12621	5657		TSX	COMP,B COMPILE STQ 700000	4F15717
12554	0 07400 2 12621	5660		TSX	COMP,B COMPILE CLA 700000	4F15720

␣␣CONX = 1212

Definition
844 4F10833

02274 0 00000 0 00412 845 CONX PZE FXCNIX−5 CONSTANT USED BY DRTABS. 4F10834
Reference
02261 0 40200 0 02274 833 SUB CONX (...NIX) - (ADDR OF FXCNIX-5). 4F10822

␣␣D3CN = 817

Definition
01461 0 00003 0 00000 374 D3CN PZE ,,3 CONSTANT USED BY IOT. 4F10364
Reference
05030 0 00000 0 01461 2522 PZE D3CN WORD4--003000 4F12576

␣␣DIAG = 1792

Definition

			1420			END OF PROGRAM TET00.	4F11443
			1421			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11444
			1422			DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090,	4F11445
			1423			C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,	4F11446
			1424			SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR,	4F11447
			1425			CMA,EMK,BEG(TYP),VRA(VRD).	4F11448
			1426			(CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE	4F11449
			1427			BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO	4F11450
			1428			THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.)	4F11451
D	03400	1 00000 0 00004	1429	DIAG	TXI	4,0 * GO GET THE DIAGNOSTIC.	4F11452

References (77)

	01635	0 07400 4 03400	504		TSX	DIAG,4 * GO TO THE DIAGNOSTIC.	4F10494
	01643	0 07400 4 03400	510	C0166	TSX	DIAG,4 * OR ILLEGAL, GO TO THE DIAGNOSTIC.	4F10500
	02034	0 07400 4 03400	673		TSX	DIAG,4 * GO TO DIAGNOSTIC - MACHINE ERROR.	4F10662
	02062	0 07400 4 03400	695		TSX	DIAG,4 * FAILED 5 TIMES IN READING DRUM.	4F10684
	02266	0 07400 4 03400	838		TSX	DIAG,4 * GO TO DIAGNOSTIC.	4F10827
D	02273	1 00000 0 03400	843		TXI	DIAG,0 * GO TO DIAGNOSTIC.	4F11832
	02523	0 07400 4 03400	945		TSX	DIAG,4 * GO TO DIAGNOSTIC.	4F10968
	02565	0 07400 4 03400	979		TSX	DIAG,4 * FAILED 5 TIMES IN READING DRUM.	4F11002
	02577	0 07400 4 03400	994		TSX	DIAG,4 * IF NON-NUMERIC - GO TO DIAGNOSTIC.	4F11017
	02656	0 07400 4 03400	1047		TSX	DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.	4F11070
	02666	0 07400 4 03400	1055		TSX	DIAG,4 * DOUBLE MULTIPLIER FOR SUBSCRIPT.	4F11078
	02673	0 07400 4 03400	1060		TSX	DIAG,4 * SUBS-MULTIPLIER NOT A CONSTANT.	4F11083
	02720	0 07400 4 03400	1081	STOP49	TSX	DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER.	4F11104
	02722	0 07400 4 03400	1084	ISC	TSX	DIAG,4 * ( (ILLEGAL IN LIST SUBSCRIPT).	4F11107
	02741	0 07400 4 03400	1100		TSX	DIAG,4 * DOUBLE ADDEND FOR SUBSCRIPT.	4F11123
	02744	0 07400 4 03400	1103		TSX	DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.	4F11126
	02764	0 07400 4 03400	1119		TSX	DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.	4F11142
	03023	0 07400 4 03400	1150		TSX	DIAG,4 * SUBSCRIPT ADDEND NOT A CONSTANT.	4F11173
	03026	0 07400 4 03400	1153		TSX	DIAG,4 * GO TO DIAG - NO ) AFTER 3RD SUBS.	4F11176
	03064	0 07400 4 03400	1184		TSX	DIAG,4 * --ERROR...NOT ON DRUM.	4F11207
	03151	0 07400 4 03400	1237		TSX	DIAG,4 * --ERROR...NOT ON DRUM.	4F11260
	03254	0 07400 4 03400	1321		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11344
	03262	0 07400 4 03400	1328		TSX	DIAG,4 * ERROR -- GO T0 DIAGNOSTIC.	4F11351
	03270	0 07400 4 03400	1335		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11358
	03272	0 07400 4 03400	1338	ERR77P	TSX	DIAG,4 * MACHINE ERROR, GO TO DIAGNOSTIC.	4F11361
	03274	0 07400 4 03400	1340		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11363
	03300	0 07400 4 03400	1345	TESTE1	TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11368
	03304	0 07400 4 03400	1350	TESTF1	TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11373
	03310	0 07400 4 03400	1355	TESTG1	TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11378
	03314	0 07400 4 03400	1360		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11383
	03316	0 07400 4 03400	1363		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11386
	03441	−3 00000 4 03400	1587		TXL	DIAG,4,0 * PROCESSED, THEN GO CALL DIAGNOSTIC.	4F11644
	03542	0 07400 4 03400	1657		TSX	DIAG,4 * ERROR -- G0 T0 DIAGNOSTIC.	4F11714
	03545	0 07400 4 03400	1660		TSX	DIAG,4 * ERROR -- GO,TO DIAGNOSTIC.	4F11717
	03550	0 07400 4 03400	1663		TSX	DIAG,4 * ERROR --,GO TO DIAGNOSTIC.	4F11720
	03553	0 07400 4 03400	1666		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11723
	03556	0 07400 4 03400	1669		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11726
	03561	0 07400 4 03400	1672		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11729
	03615	0 07400 4 03400	1705		TSX	DIAG,4 * ERROR-GO TO DIAGNOSTIC ROUTINE.	4F11762
	03624	0 07400 4 03400	1717		TSX	DIAG,4 * ERROR = NOT FOUND IN DICTIONARY.	4F11774
	04055	0 07400 4 03400	1892		TSX	DIAG,4 * PROGRAM ERROR, GO TO DIAGNOSTIC.	4F11949
	04225	0 07400 4 03400	2037		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12095
	04304	0 07400 4 03400	2094	C1299	TSX	DIAG,4 * VARIABLE PREVIOUSLY APPEARED.	4F12153
	04323	0 07400 4 03400	2109		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12171
	04444	0 07400 4 03400	2215		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12280
	04544	0 07400 4 03400	2289		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12343
	04663	0 07400 4 03400	2378		TSX	DIAG,4 * OTHERWISE, GO TO THE DIAGNOSTIC.	4F12432
	04705	0 07400 4 03400	2407		TSX	DIAG,4 * ATTEMPT TO USE VARIABLE FORMAT NO.	4F12461
	04707	0 07400 4 03400	2409		TSX	DIAG,4 * NO FORMAT NUMBER GIVEN.	4F12463
	05170	0 07400 4 03400	2663		TSX	DIAG,4 * MORE THAN 6 CHARACTERS IN SYMBOL.	4F12717
	05200	0 07400 4 03400	2675	ILC	TSX	DIAG,4 * / (ILLEGAL CHARACTER IN I/O LIST).	4F12729
	05260	0 07400 4 03400	2728		TSX	DIAG,4 * OTHERWISE, GO TO DIAGNOSTIC.	4F12782
	05263	0 07400 4 03400	2736		TSX	DIAG,4 * SPECIFY SUBSCRIPT RANGE WITHOUT (.	4F12790
	05305	0 07400 4 03400	2758		TSX	DIAG,4 * E (ILLEGAL IN CONTROL FOR LIST DO).	4F12812
	05306	0 07400 4 03400	2759	ICC	TSX	DIAG,4 * ( (ILLEGAL IN CONTROL FOR LIST DO).	4F12813
	05401	0 07400 4 03400	2829		TSX	DIAG,4 * GO TO THE DIAGNOST1C.	4F12883
	05416	0 07400 4 03400	2850	ERRC	TSX	DIAG,4 * GO TO THE DIAGNOSTIC.	4F12904
	05552	0 07400 4 03400	2948		TSX	DIAG,4 * GO TO THE DIAGNOSTIC. OTHERWISE,	4F13002
	05607	0 07400 4 03400	2991	IBC	TSX	DIAG,4 * ( (ILLEGAL CHARACTER IN I/O SETUP).	4F13043
	05715	0 07400 4 03400	3081		TSX	DIAG,4 * FAILED 5 TIMES IN READING TAPE 2.	4F13133
	06042	0 07400 4 03400	3199		TSX	DIAG,4 * ILLEGAL USE OF FLOATING VARIABLE.	4F13251
	06412	0 07400 4 03400	3465	MS074	TSX	DIAG,4 BUILD G, 7TH CHAR IS ERROR.	4F13514
	06465	0 07400 4 03400	3508		TSX	DIAG,4 BEGINS NUMERIC, ERROR.	4F13557
	06476	0 07400 4 03400	3517		TSX	DIAG,4 YES, ERROR.	4F13566
	06500	0 07400 4 03400	3519		TSX	DIAG,4 HOLLERITH RETURN, ERROR.	4F13568
	06537	0 07400 4 03400	3550		TSX	DIAG,4 NO, ERROR.	4F13599
	06554	0 07400 4 03400	3563	MSERR=	TSX	DIAG,4 =	4F13612
	06607	0 07400 4 03400	3591		TSX	DIAG,4 .	4F13640
	06731	0 07400 4 03400	3674		TSX	DIAG,4 YES, ERROR, GO TO DIAGNOSTIC.	4F13722
	07021	0 07400 4 03400	3731		TSX	DIAG,4 ERROR..LAMBDA TABLE EXCEEDED.	4F13779
	07023	0 07400 4 03400	3733		TSX	DIAG,4 ERROR..BETA TABLE EXCEEDED	4F13781
	07026	0 07400 4 03400	3736		TSX	DIAG,4 ERROR..ALPHA TABLE EXCEEDED	4F13784
	07532	0 07400 4 03400	4075	CER	TSX	DIAG,4 * CONVERSION ERROR, GO TO DIAGNOSTIC.	4F14123
	10534	0 07400 4 03400	4613		TSX	DIAG,4 * GO TO THE DIAGNOSTIC.	4F14662
	11216	0 07400 4 03400	4923		TSX	DIAG,4 ERROR.. FLO PT LITE ON	4F14973
	11220	0 07400 4 03400	4925		TSX	DIAG,4 ERROR.. FLO PT LITE OFF	4F14975
	12750	0 07400 4 03400	5786		TSX	DIAG,4 ERROR SIGMA1 CKSUM FAILS	4F15846

␣␣DIM1 = 200

Definition
00310 5849 DIM1 SYN 0200 DRUM TABLE ORIGIN -DRTABS,DIM.SR. 4F15905

References (2)

	00452	0 00000 0 00310	238		PZE	DIM1,,** TDA,,N	4F10229
	00453	−3 00000 0 00310	239	ORGDM1	TXL	DIM1,,0 *** FDA,,K*L	4F10230

␣␣DIM2 = 500

Definition
00764 5850 DIM2 SYN 0500 DRUM TABLE ORIGIN -DRTABS,DIM.SR. 4F15906

References (2)

	00457	0 00000 0 00764	244		PZE	DIM2,,** T0A,,N 4	4F10235
	00460	−3 00000 0 00764	245	ORGDM2	TXL	DIM2,,0 *** FDA,,K*L	4F10236

␣␣DIM3 = 800

Definition
01440 5851 DIM3 SYN 0800 DRUM TABLE ORIGIN -DRTABS,DIM.9R. 4F15907

References (2)

	00464	0 00000 0 01440	250		PZE	DIM3,,** TDA,,N	4F10241
	00465	−3 00000 0 01440	251	ORGDM3	TXL	DIM3,,0 *** FDA,,K*L	4F10242

␣␣DUMP = 1269

Definition
02365 854 DUMP BSS 1 WORKING STORAGE USED BY DRTABS. 4F10643

References (11)

02156	0 60000 0 02365	766	ADD04	STZ	DUMP START NEW BLOCK CHECKSUM.	4F10755
02163	−0 50000 0 02365	771	ADD05	CAL	DUMP	4F10760
02165	0 60200 0 02365	773		SLW	DUMP CHECKSUM FOR THIS BLOCK.	4F10762
02167	0 70000 0 02365	775		CPY	DUMP WRITE BLOCK CHECKSUM ON DRUM.	4F10764
02203	0 60200 0 02365	787		SLW	DUMP COMPUTE AND	4F10776
02204	0 70000 0 02365	788		CPY	DUMP WRITE CHECKSUM FOR NEW ENTRY.	4F10777
02531	−0 70000 0 02365	951		CAD	DUMP READ	4F10974
02554	−0 70000 0 02365	970	ETSUM	CAD	DUMP SUM CHECKSUMS.	4F10993
12743	−0 70000 0 02365	5781		CAD	DUMP	4F15841
12745	−0 70000 0 02365	5783		CAD	DUMP	4F15843
12751	−0 50000 0 02365	5787		CAL	DUMP	4F15847

␣␣EBLK = 1148

Definition
02174 −0 75400 0 00000 780 EBLK PXD ,0 FOR ALL TABLES EXCEPT FLOCON= 4F10769
Reference
D 02152 −3 00000 0 02174 762 SW TXL EBLK,0 ENTRY SUM=TXL, BLOCK SUM=TXH. 4F10751

␣␣ENDD = 5620

Definition
5799 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 4F15852

12764 5800 ENDD BSS 0 4F158525
Reference
00001 0 00000 0 12764 3394 PZE ENDD 4F13444

␣␣EQS1 = 2754

Definition
05302 0 60200 0 00000 2751 EQS1 SLW ** (SUBSCRIPT SYMBOL WORD) 4F12805

References (2)

	05270	0 62100 0 05302	2741		STA	EQS1 IN LOCATION WORD,SUBSCRIPT IN	4F12795
	05276	3 00044 2 05302	2747		TXH	EQS1,2,36 FOR THIS DO, AND	4F12801

␣␣EQS2 = 2740

Definition
05264 −0 50000 4 17400 2737 EQS2 CAL DOLEV,4 INITIALIZE SPECIFICATION 4F12791
Reference
05262 3 00000 4 05264 2735 TXH EQS2,4,0 AND GO TO DIAG ON THE ATTEMPT TO 4F12789

␣␣ERRC = 2830

Definition
05416 0 07400 4 03400 2850 ERRC TSX DIAG,4 * GO TO THE DIAGNOSTIC. 4F12904
Reference
D 05211 1 00000 0 05416 2689 TXI ERRC,0 * ON CONSTANT RETURN, GO TO DIAG. 4F12743

␣␣EXIT = 3818

Definition
07352 1 00000 0 07357 3962 EXIT TXI IN2,0,** AND G0 SET SWITCH. 4F14010

References (4)

07347	−0 63400 4 07352	3959		SXD	EXIT,4 SAVE C(XR4) FOR RETURN.	4F14007
07354	−0 63400 4 07352	3965		SXD	EXIT,4 SAVE C(XR4) FOR RETURN.	4F14013
07522	−0 53400 4 07352	4067		LXD	EXIT,4 RESTORE THE C(XR4), AND	4F14115
07533	−0 53400 4 07352	4076	HEXIT	LXD	EXIT,4 RESTORE THE C(XR4), AND	4F14124

␣␣FEOD = 580

Definition
01104 5866 FEOD SYN ERASE+4 COMMON WORKING STORAGE. 4F15922

␣␣FINI = 2935

Definition
2962 FINI = ENTRY POINT USED BY EFT. 4F13016

05567 0 50000 0 05376 2963 FINI CLA RESET RESET BXT SWITCH 4F13017
Reference
D 05106 1 00000 0 05567 2585 TXI FINI,0 * GO RESET BXT, AND TEST FOR EFN. 4F12639

␣␣FLFL = 846

Definition
01516 256747740360 403 FLFL BCD 1EXP(3␣ 4F10393
Reference
12157 0 50000 0 01516 5406 CLA FLFL 1... FLO**FLO 4F15461

␣␣FLFX = 845

Definition
01515 256747740260 402 FLFX BCD 1EXP(2␣ 4F10392
Reference
12170 0 50000 0 01515 5415 CLA FLFX 1... FL**FX 4F15470

␣␣FNSW = 7280

Definition
16160 5803 FNSW BSS 1 4F15855

References (3)

11255	0 60000 0 16160	4955		STZ	FNSW	4F15005
12213	0 60100 0 16160	5435		STO	FNSW SET FN SWITCH	4F15495
12601	0 50000 0 16160	5681	ES1590	CLA	FNSW	4F15741

␣␣FRET = 100

Definition
00144 89 FRET BSS 10 FREQUENCY STATEMENTS. 4F10080
Reference
00347 0 00012 0 00144 139 PZE FRET,,10 07) O,,B. 4F10130

␣␣FXFX = 844

Definition
01514 256747740160 401 FXFX BCD 1EXP(1␣ 4F10391
Reference
12166 0 50000 0 01514 5413 CLA FXFX 4F15468

␣␣GTAG = 745

Definition
01351 297 GTAG BSS 1 VARIABLE USED BY IOT, RA. 4F10287

References (10)

02472	0 60100 0 01351	915	STO	GTAG TO EPSILON SUB 1 - ADDEND 3.	4F10938
02477	0 20000 0 01351	920	MPY	GTAG DIMENSION 2 TIMES GTAG.	4F10943
02504	0 60100 0 01351	925	STO	GTAG MULTIPLY	4F10040
02505	0 20000 0 01351	926	MPY	GTAG THE RESULT	4F10049
02512	0 60100 0 01351	931	STO	GTAG AND PLACE THE RESULT	4F10954
02515	0 62100 0 01351	934	STA	GTAG IN THE ADDRESS.	4F10957
05144	0 60000 0 01351	2639	STZ	GTAG CLEAR GENERALIZED TAG.	4F12693
05427	0 50000 0 01351	2860	CLA	GTAG SET GENERALIZED TAG.	4F12914
05545	0 60000 0 01351	2938	STZ	GTAG CLEAR GTAG. THEN TAKE EXIT	4F12992
07336	−0 50000 0 01351	3943	CAL	GTAG	4F13991

␣␣HOLL = 3531

Definition
06713 0 60000 0 01124 3660 HOLL STZ CHSAVE CLEAR CHSAVE 4F13708
Reference
06365 0 02000 0 06713 3444 TRA HOLL RETURN 1, THIS WAS HOLLERITH. 4F13493

␣␣L(0) = 774

Definition
330 4F10320

01406 000000000000 331 L(0) BCD 1000000 0 4F10321

References (127)

01613	0 50000 0 01406	477		CLA	L(0) PREPARE TO SET I T0 +0.	4F10467
01617	0 50200 0 01406	481		CLS	L(0) PREPARE TO SET I TO -0.	4F10471
01625	0 53400 2 01406	496		LXA	L(0),2 SET XR2 TO CONTROL SHIFTING.	4F10486
02246	0 53400 2 01406	822		LXA	L(0),2	4F10811
02453	0 56000 0 01406	900		LDQ	L(0) EPSILON AND	4F10923
03367	−0 53400 2 01406	1411		LXD	L(0),2 SET XR2 = 0. THEN	4F11434
03425	0 00000 0 01406	1454		PZE	L(0) COMPILE NTR *+2,0,EFN	4F11457L
03432	0 00000 0 01406	1459		PZE	L(0) COMPILE PZE ALPHA,0,IFN	4F11457Q
03617	0 53400 3 01406	1712		LXA	L(0),3 CHARACTER COUNT AND ENTRY COUNT.	4F11769
04002	0 00000 0 01406	1842		PZE	L(0) WORD 4--000000 IREL ADDR AND TAG).	4F11899
04026	0 00000 0 01406	1862		PZE	L(0) WORD 3--000000(ADDRESS)	4F11919
04145	0 00000 0 01406	1955		PZE	L(0) WORD3--000000 (ADDRESSI	4F12012
04213	0 00000 0 01406	2021		PZE	L(0) WORD3--000000 (ADDRESS)	4F12078
04241	0 00000 0 01406	2049		PZE	L(0) WORD3--000000 (ADDRESS)	4F12107
04242	0 00000 0 01406	2050		PZE	L(0) WORD4--000000 (RELADDR AN0 TAG).	4F12108
04244	0 00000 0 01406	2052		PZE	L(0) WORD1--0OOOO0 (ALL ZEROS)	4F12110
04247	0 00000 0 01406	2055		PZE	L(0) WORD4--000000 (REL ADDR AND TAG).	4F12113
04263	0 00000 0 01406	2072		PZE	L(0) WORD3--000000 (ADDRESS PART)	4F12131
04347	0 00000 0 01406	2134		PZE	L(0) WORD1--ALL ZEROS	4F12196
04352	0 00000 0 01406	2137		PZE	L(0) WORD4--ZEROS (REL ADDR AND TAG)	4F12199
04553	0 00000 0 01406	2296		PZE	L(0) WORD4--000000	4F12350
04563	0 00000 0 01406	2304		PZE	L(0) WORD1--000000	4F12358
04570	0 00000 0 01406	2309		PZE	L(0) WORD1--000000	4F12363
04577	0 00000 0 01406	2316		PZE	L(0) WORD3--000000	4F12370
04602	0 00000 0 01406	2319		PZE	L(0) WORD1--000000	4F12373
04605	0 00000 0 01406	2322		PZE	L(0) WORD4--000000	4F12376
04646	0 00000 0 01406	2360		PZE	L(0) WORD1--000000	4F12414
04653	0 00000 0 01406	2365		PZE	L(0) WORD1--000000	4F12419
04720	0 00000 0 01406	2418		PZE	L(0) WORD1--000000	4F12472
04723	0 00000 0 01406	2421		PZE	L(0) WORD4--000000	4F12475
04725	0 00000 0 01406	2423		PZE	L(0) WORD1--000000	4F12477
04727	0 00000 0 01406	2425		PZE	L(0) WORD3--000000	4F12479
04732	0 00000 0 01406	2428		PZE	L(0) WORD1--000000	4F12482
04735	0 00000 0 01406	2431		PZE	L(0) WORD4--000000	4F12405
04742	0 00000 0 01406	2436		PZE	L(0) WORD4--000000	4F12490
05005	0 00000 0 01406	2498		PZE	L(0) WORD1--000000	4F12552
05020	0 00000 0 01406	2514		PZE	L(0) WORD1--000000	4F12568
05023	0 00000 0 01406	2517		PZE	L(0) WORD4--000000	4F12571
05025	0 00000 0 01406	2519		PZE	L(0) WORD1--000000	4F12573
05032	0 00000 0 01406	2524		PZE	L(0) WORD1--000000	4F12578
05034	0 00000 0 01406	2526		PZE	L(0) WORD3--000000	4F12560
05035	0 00000 0 01406	2527		PZE	L(0) WORD4--000000	4F12581
05037	0 00000 0 01406	2529		PZE	L(0) WORD1--000000	4F12583
05042	0 00000 0 01406	2532		PZE	L(0) WORD4--000000	4F12586
05056	0 00000 0 01406	2550		PZE	L(0) WORD1--000000	4F12604
05061	0 00000 0 01406	2553		PZE	L(0) WORD4--000000	4F12607
05104	0 00000 0 01406	2583		PZE	L(0) WORD3--000000	4F12637
05517	0 00000 0 01406	2916		PZE	L(0) WORD1--000000	4F12970
05526	0 00000 0 01406	2923		PZE	L(0) WORD1--000000	4F12977
05530	0 00000 0 01406	2925		PZE	L(0) WORD3--000000	4F12979
05561	0 00000 0 01406	2956		PZE	L(0) WORD4--000000	4F13010
05563	0 00000 0 01406	2958		PZE	L(0) WORD1--000000	4F13012
05566	0 00000 0 01406	2961		PZE	L(0) WORD4--000000	4F13015
05660	0 00000 0 01406	3041		PZE	L(0) WORD3--000000	4F13093
05677	0 00000 0 01406	3061		PZE	L(0) WORD3--000000	4F13113
05700	0 00000 0 01406	3062		PZE	L(0) NORD4--000000	4F13114
05766	0 00000 0 01406	3133		PZE	L(0) WORD3--000000	4F13185
05767	0 00000 0 01406	3134		PZE	L(0) WORD4--000000	4F13186
06013	0 00000 0 01406	3165		PZE	L(0) WORD4--000000	4F13217
06015	0 00000 0 01406	3167		PZE	L(0) WORD1--000000	4F13219
06020	0 00000 0 01406	3170		PZE	L(0) WORD4--000000	4F13222
06051	0 00000 0 01406	3206		PZE	L(0) WORD4--000000	4F13258
06064	0 00000 0 01406	3217		PZE	L(0) WORD1--000000	4F13269
06071	0 00000 0 01406	3222		PZE	L(0) WORD1--000000	4F13274
06073	0 00000 0 01406	3224		PZE	L(0) WORD3--000000	4F13276
06101	0 00000 0 01406	3230		PZE	L(0) WORD1--000000	4F13282
06104	0 00000 0 01406	3233		PZE	L(0) WORD4--000000	4F13285
06353	0 50200 0 01406	3434		CLS	L(0) SET E = -0	4F13483
06763	0 53400 1 01406	3701	LA0000	LXA	L(0),A	4F13749
07156	0 50200 0 01406	3824		CLS	L(0)	4F13872
07204	0 50200 0 01406	3846		CLS	L(0)	4F13894
07214	0 50200 0 01406	3854		CLS	L(0)	4F13902
07267	0 50200 0 01406	3897		CLS	L(0)	4F13945
07625	0 56000 0 01406	4158	R00000	LDQ	L(0) CLEAR MQ	4F14207
07633	0 53400 7 01406	4164		LXA	L(0),7 CLEAR XA,XB,XC,	4F14213
07704	0 53400 7 01406	4205		LXA	L(0),7 CLEAR XA,XB,XC	4F14254
07731	0 53400 1 01406	4226		LXA	L(0),A	4F14275
07751	0 56000 0 01406	4242	CS0000	LDQ	L(0) ELIMINATE COMMON,SEGMENTS	4F14291
10062	0 53400 5 01406	4315	CS0660	LXA	L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE	4F14364
10101	0 53400 1 01406	4330		LXA	L(0),A PERMUTE * AND /	4F14379
10125	0 53400 4 01406	4350		LXA	L(0),C LDXC WITH 0	4F14399
10256	0 53400 7 01406	4439	AS0000	LXA	L(0),7 RENUMBER SEGMENT OF SCRIPL	4F14488
10307	0 53400 3 01406	4464	AS2500	LXA	L(0),3 LDXA,XB WITH 0	4F14513
10310	0 56000 0 01406	4465		LDQ	L(0) CLEAR MQ	4F14514
10340	0 53400 4 01406	4489		LXA	L(0),C TO S(I)	4F14538
10446	0 53400 2 01406	4559		LXA	L(0),B	4F14608
11073	0 53400 4 01406	4836	PC0030	LXA	L(0),C YES	4F14885
11157	0 53400 1 01406	4892		LXA	L(0),A	4F14942
11441	0 00000 0 01406	5071		HTR	L(0)	4F15121
11443	0 00000 0 01406	5073		HTR	L(0)	4F15123
11456	0 00000 0 01406	5084		HTR	L(0)	4F15134
11460	0 00000 0 01406	5086		HTR	L(0)	4F15136
11461	0 00000 0 01406	5087		HTR	L(0)	4F15137
11463	0 00000 0 01406	5089		HTR	L(0)	4F15139
11465	0 00000 0 01406	5091		HTR	L(0)	4F15141
11532	0 00000 0 01406	5128		HTR	L(0)	4F15178
11534	0 00000 0 01406	5130		HTR	L(0)	4F15180
11562	0 00000 0 01406	5152		HTR	L(0) COMPILE STO 4...TYPE NO. + 0	4F15202
11565	0 00000 0 01406	5155		HTR	L(0)	4F15205
11605	0 00000 0 01406	5171		HTR	L(0) COMPILE STQ 4...TYPE NO. + 1	4F15221
11632	0 00000 0 01406	5192		HTR	L(0)	4F15242
12244	0 00000 0 01406	5460		HTR	L(0)	4F15520
12246	0 00000 0 01406	5462		HTR	L(0)	4F15522
12251	0 00000 0 01406	5465		HTR	L(0)	4F15525
12320	0 56000 0 01406	5504		LDQ	L(0) GENERAL TAG PRESENT	4F15564
12333	0 00000 0 01406	5515		HTR	L(0)	4F15575
12434	0 00000 0 01406	5580		HTR	L(0) RESULT ON RIGHT IS IN ACC.	4F15640
12437	0 00000 0 01406	5583		HTR	L(0)	4F15643
12441	0 00000 0 01406	5585		HTR	L(0)	4F15645
12443	0 00000 0 01406	5587		HTR	L(0)	4F15647
12444	0 00000 0 01406	5588		HTR	L(0)	4F15648
12446	0 00000 0 01406	5590		HTR	L(0)	4F15650
12453	0 00000 0 01406	5595		HTR	L(0)	4F15655
12455	0 00000 0 01406	5597		HTR	L(0)	4F15657
12456	0 00000 0 01406	5598		HTR	L(0)	4F15658
12460	0 00000 0 01406	5600		HTR	L(0)	4F15660
12462	0 00000 0 01406	5602		HTR	L(0)	4F15662
12503	0 00000 0 01406	5619		HTR	L(0) RESULT ON RIGHT IS IN ACC	4F15679
12505	0 00000 0 01406	5621		HTR	L(0)	4F15681
12510	0 00000 0 01406	5624		HTR	L(0)	4F15684
12513	0 00000 0 01406	5627		HTR	L(0)	4F15687
12515	0 00000 0 01406	5629		HTR	L(0)	4F15689
12520	0 00000 0 01406	5632		HTR	L(0)	4F15692
12570	0 00000 0 01406	5672			L(0)	4F15732
12573	0 00000 0 01406	5675			L(0)	4F15735
12575	0 00000 0 01406	5677			L(0)	4F15737
12600	0 00000 0 01406	5680			L(0)	4F15740

␣␣L(1) = 775

Definition
01407 000000000001 332 L(1) BCD 1000001 1 4F10322

References (35)

02102	0 40000 0 01407	722		ADD	L(1) PREPARE TO MOVE PARAMETERS	4F10711
02114	0 40000 0 01407	732		ADD	L(1) GENERAL	4F10721
02161	0 40000 0 01407	769		ADD	L(1) SET ENTRY ADDR = CHECKSUM ADDR +1.	4F10758
02211	0 40200 0 01407	793		SUB	L(1) READJUST.	4F10782
02444	0 40000 0 01407	893		ADD	L(1) INCREASE IT 1.	4F10916
02750	0 50000 0 01407	1107		CLA	L(1) IF NONE,	4F11130
02773	0 40000 0 01407	1126		ADD	L(1) DIMENSION COUNTER	4F11149
03000	0 50000 0 01407	1131		CLA	L(1) SET	4F11154
03330	0 40000 0 01407	1380		ADD	L(1) OF THIS	4F11403
03354	0 40000 0 01407	1400		ADD	L(1) BY 1 FOR	4F11423
03562	0 53400 1 01407	1678	CB000	LXA	L(1),1 SET XR1 TO COUNT PARENTHESES.	4F11735
03744	0 50000 0 01407	1812		CLA	L(1) PREPARE TO SET ADDRESS PART OF 1C	4F11869
04011	0 50000 0 01407	1849		CLA	L(1) PREPARE PROPER FORM OF SUBSCRIPT	4F11906
04050	0 53400 2 01407	1887		LXA	L(1),2 SET XR2 FOR COUNTING PARENTHESES.	4F11944
04377	0 50000 0 01407	2168	C1501	CLA	L(1) INITIALIZE 1C	4F12232
04561	0 00000 0 01407	2302		PZE	L(1) WORD4--000001	4F12356
05267	0 40000 0 01407	2740		ADD	L(1) PREPARE TO ENTER FORMULA NUMBERS	4F12794
05337	−0 50000 0 01407	2789		CAL	L(1) SET N SUB 3 = 1 IF NOT	4F12843
05425	0 40000 0 01407	2858		ADD	L(1) UPDATE DOLEV ADDRESS	4F12912
05467	0 40200 0 01407	2892	DVS	SUB	L(1) PRODUCT IS	4F12946
06543	0 40000 0 01407	3554		ADD	L(1) COMPLETE FORSUB ENTRY BY ASSIGNING	4F13603
07133	0 40000 0 01407	3805		ADD	L(1) FORM -(N+2) IN ADD (ACC)	4F13853
07172	0 40000 0 01407	3836		ADD	L(1)	4F13884
07177	0 40000 0 01407	3841		ADD	L(1)	4F13889
07255	0 40000 0 01407	3887		ADD	L(1)	4F13935
07262	0 40000 0 01407	3892		ADD	L(1)	4F13940
07327	0 40000 0 01407	3932		ADD	L(1) UPDATE HOLCNT	4F13980
07423	0 50200 0 01407	4004		CLS	L(1) SUBTRACT 1 FROM DOE	4F14052
07427	0 50000 0 01407	4008	NC4	CLA	L(1) ADD 1 TO DOE ,	4F14056
10661	−0 50000 0 01407	4698		CAL	L(1) S(I) = SYM2 (S(I-1)), S0	4F14747
10726	−0 50000 0 01407	4735	LK0900	CAL	L(1) AND	4F14784
10750	−0 50000 0 01407	4753		CAL	L(1) S(I) = SYM3 (S(I-1)), S0	4F14802
11301	0 40000 0 01407	4975		ADD	L(1)	4F15025
12215	0 53400 4 01407	5437		LXA	L(1),C INITIALIZE STAIX T0 1	4F15497
12664	0 40200 0 01407	5734		SUB	L(1)	4F15794

␣␣L(2) = 776

Definition
01410 000000000002 333 L(2) BCD 1000002 2 4F10323

References (6)

03040	0 50000 0 01410	1164		CLA	L(2) EXAMINE DIMCTR	4F11187
03136	0 53400 4 01410	1226		LXA	L(2),4 PREPARE TO	4F11249
03746	0 50000 0 01410	1814	C0212	CLA	L(2) PREPARE TO SET ADDR OF 1C TO 2.	4F11871
04662	0 34000 0 01410	2377		CAS	L(2) WHICH SH0ULD BE 0,1, OR 2.	4F12431
10671	−0 50000 0 01410	4706		CAL	L(2) YES	4F14755
11004	−0 50000 0 01410	4781		CAL	L(2) NO	4F14830

␣␣L(3) = 777

Definition
01411 000000000003 334 L(3) BCD 1000003 3 4F10324

References (6)

03051	0 53400 4 01411	1173		LXA	L(3),4 TO PICK UP 3 ADDENDS.	4F11196
04115	0 50000 0 01411	1930		CLA	L(3) STORE 3	4F11987
05273	0 53400 4 01411	2744		LXA	L(3),4 PREPARE TO COUNT THE	4F12798
06640	0 53400 4 01411	3617	MS322	LXA	L(3),4 MOVE CONTENT4 OF E WORDS TO LEFT WORDS.	4F13666
10652	−0 50000 0 01411	4691		CAL	L(3) S(I) = SYM1 (S(I-1)), SO	4F14740
10737	−0 50000 0 01411	4744		CAL	L(3) AND	4F14793

␣␣L(4) = 778

Definition
01412 000000000004 335 L(4) BCD 1000004 4 4F10325

References (16)

01747	0 53400 1 01412	611	CIT04	LXA	L(4),1 SET XR1 = ENTRY SIZE.	4F10600
02104	0 40200 0 01412	724		SUB	L(4) PREPARE TO UPDATE	4F10713
03131	0 53400 4 01412	1221	2D0000	LXA	L(4),4 THEN PICKUP AND	4F11244
04156	0 50000 0 01412	1974		CLA	L(4) AND PICK UP 4 TO SET 1C.	4F12031
04644	0 00000 0 01412	2358		PZE	L(4) WORD4--000004	4F12412
04651	0 00000 0 01412	2363		PZE	L(4) WORD4--000004	4F12417
04656	0 00000 0 01412	2368		PZE	L(4) WORD4--000004	4F12422
05271	0 40000 0 01412	2742		ADD	L(4) SYMBOL WORD, AND SUBSCRIPT SPECS	4F12796
10462	−0 50000 0 01412	4571	PL0650	CAL	L(4) SET OP1 (S(I)) 33 =1	4F14620
10542	−0 50000 0 01412	4619		CAL	L(4) AS SYM2 (S(I)) AND SET	4F14668
11647	−0 50000 0 01412	5205		CAL	L(4)	4F15255
11744	0 50000 0 01412	5267		CLA	L(4)	4F15317
12146	0 50000 0 01412	5397		CLA	L(4)	4F15452
12274	−0 50000 0 01412	5484		CAL	L(4)	4F15544
12336	0 00000 0 01412	5518		HTR	L(4)	4F15578
12527	−0 50100 0 01412	5639		ORA	L(4)	4F15699

␣␣L(5) = 779

Definition
01413 000000000005 336 L(5) BCD 1000005 5 4F10326

References (11)

02020	0 53400 4 01413	661	DMSR14	LXA	L(5),4 SET ERROR COUNTER FOR 5 ATTEMPTS.	4F10650
02106	0 53400 1 01413	726		LXA	L(5),1 MOVE 5 WORDS	4F10715
02263	0 40200 0 01413	835	COMPUT	SUB	L(5) COMPUTE WHICH	4F10824
04164	0 50000 0 01413	1987		CLA	L(5) PICKUP 5 TO SET 1C, AND	4F12044
04660	0 53400 2 01413	2375	C3400	LXA	L(5),2 PREPARE TO SET 5 SS S1MULATORS.	4F12429
05251	0 40000 0 01413	2721		ADD	L(5) OF THIS DO FORMULA	4F12775
05363	0 53400 4 01413	2810	SPC9	LXA	L(5),4 (MOVE EACH	4F12864
05634	0 53400 2 01413	3017	ABS	LXA	L(5),2 IF CONSTANT,	4F13069
06004	0 50000 0 01413	3158	OUTPUT	CLA	L(5) PICKUP 5 TO	4F13210
	01413	5857	DRMERC	SYN	L(5) NUMBER OF DRUM READING ATTEMPTS.	4F15913
	01413	5897	TERC	SYN	L(5) TAPE ERROR COUNTER.	4F15958

␣␣L(6) = 780

Definition
01414 000000000006 337 L(6) BCD 1000006 6 4F10327

References (14)

01717	0 53400 1 01414	579		LXA	L(6),1 RESET XR1 FOR 6 NEW CHARACTERS.	4F10568
02567	0 53400 2 01414	986		LXA	L(6),2 SET TO COUNT 6 CHARACTERS.	4F11009
02620	0 53400 4 01414	1017		LXA	L(6),4 INITIALIZE	4F11040
02627	0 53400 3 01414	1024	SS001	LXA	L(6),3 SET FOR 6 CHARACTERS OF MULTIPLIER.	4F11047
02701	0 53400 3 01414	1066	SS003	LXA	L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND.	4F11089
03044	0 53400 4 01414	1168	3D0000	LXA	L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS.	4F11191
03224	0 53400 3 01414	1285	SUBX00	LXA	L(6),3 PREPARE TO COUNT CHARS AND SHIFTS.	4F11308
04220	0 50000 0 01414	2032		CLA	L(6) STORE 6 IN	4F12089
05147	0 53400 2 01414	2645	NXS	LXA	L(6),2 RESET SYMBOL CHARACTER COUNT	4F12699
05751	0 53400 2 01414	3114		LXA	L(6),2 SET THE CHARACTER COUNT = 6.	4F13166
06002	0 50000 0 01414	3155	INPUT	CLA	L(6) PICKUP 6 TO	4F13207
06355	0 53400 2 01414	3436		LXA	L(6),2 SET IR2 FOR SIX CHARS.	4F13485
06721	0 53400 1 01414	3666	C3351	LXA	L(6),1 SET TO COLLECT SIX CHARS	4F13714
06742	0 53400 4 01414	3683		LXA	L(6),4 RESET MQ CHAR CQUNT T0 SIX	4F13731

␣␣L(7) = 781

Definition
01415 000000000007 338 L(7) BCD 1000007 7 4F10328

␣␣L(8) = 782

Definition
01416 000000000010 339 L(8) BCD 1000008 8 4F10329

References (7)

10405	−0 50000 0 01416	4526	PL0240	CAL	L(8) SET OP1 (S(I)) 32 = 1	4F14575
10425	−0 32000 0 01416	4542		ANA	L(8) EXTRACT OP1 (S(J)) 32 AND GO	4F14591
10501	−0 50000 0 01416	4586	PL0800	CAL	L(8) FLO PT... SET OP1 (S(I)) 32 = 1	4F14635
10545	−0 50000 0 01416	4622	PL0940	CAL	L(8) SYM2 (S(I)) IS FLO PT	4F14671
10565	−0 32000 0 01416	4638		ANA	L(8)	4F14687
10605	−0 32000 0 01416	4654		ANA	L(8)	4F14703
	01416	5889	ST	SYN	L(8)	4F15950

␣␣L(9) = 783

Definition
01417 000000000011 340 L(9) BCD 1000009 9 4F10330

References (12)

01606	0 34000 0 01417	472		CAS	L(9) FOR NUMERIC OR NON-NUMERIC.	4F10462
01657	0 34000 0 01417	530		CAS	L(9) AND IF NON-NUMERIC, THEN	4F10519
02262	0 53400 4 01417	834		LXA	L(9),4 SET XR4 FOR 9 TABLES.	4F10823
02576	0 34000 0 01417	993	SR6DC3	CAS	L(9) TEST FOR NUMERIC.	4F11016
02632	0 34000 0 01417	1027		CAS	L(9) COMPARE IT UITH 9.	4F11050
02650	0 34000 0 01417	1041		CAS	L(9) TEST FOR NUMERIC.	4F11064
03311	0 34000 0 01417	1357	TESTH0	CAS	L(9)	4F11380
03315	0 34000 0 01417	1362	TESTI0	CAS	L(9)	4F11385
03516	0 34000 0 01417	1637		CAS	L(9) CONTINUE SCAN.	4F11694
03723	0 34000 0 01417	1795		CAS	L(9) AND COMPARE IT WITH 9.	4F11852
06361	0 34000 0 01417	3440	MS041	CAS	L(9) IS CHAR. NUMERIC.	4F13489
06462	0 34000 0 01417	3505	FS030	CAS	L(9) TEST FOR ILLEGAL ARGUMENT.	4F13554

␣␣L(C) = 785

Definition
01421 000000000023 342 L(C) BCD 100000C C 4F10332
Reference
05735 0 40200 0 01421 3097 SUB L(C) CHARACTER TO 4F13149

␣␣L(E) = 3938

Definition
07542 000000000025 4084 L(E) BCD 100000E CONSTANT USED BY ROYCNV. 4F14132
Reference
07407 0 34000 0 07542 3992 CAS L(E) IF LESS THAN 27, COMPARE WITH E. 4F14040

␣␣L(F) = 786

Definition
01422 000000000026 343 L(F) BCD 100000F F 4F10333

References (2)

	06406	0 34000 0 01422	3461		CAS	L(F) IS THIS AN F ENDING FUNCTION NAME.	4F13510
	06420	−0 50000 0 01422	3471		CAL	L(F) ADD F TO CONTENTS OF G.	4F13520

␣␣L(H) = 787

Definition
01423 000000000030 344 L(H) BCD 100000H H 4F10334

References (8)

03242	0 34000 0 01423	1304		CAS	L(H) WITH H.	4F11327
03522	0 34000 0 01423	1641	CD005	CAS	L(H) FIXED	4F11698
07364	0 34000 0 01423	3973		CAS	L(H) COMPARE IT WITH H.	4F14021
10400	0 34000 0 01423	4521	PL0135	CAS	L(H) IS SYM1 (S(I)) FIX OR FLO PT	4F14570
10474	0 34000 0 01423	4581		CAS	L(H) IS OT FIX OR FLO PT	4F14630
10511	0 34000 0 01423	4594		CAS	L(H)	4F14643
11210	0 34000 0 01423	4917		CAS	L(H)	4F14967
12375	0 34000 0 01423	5549		CAS	L(H) NOT A FUNCTION STATEMENT	4F15609

␣␣L(O) = 789

Definition
01425 000000000046 346 L(O) BCD 100000O O (ALPHABETIC) 4F10336

References (7)

03243	0 34000 0 01425	1305	CAS	L(O) IF GREATER THAN H, COMPARE WITH O.	4F11328
04227	0 40200 0 01425	2039	SUB	L(O) AND IF IT IS NOT O, THEN	4F12097
10401	0 34000 0 01425	4522	CAS	L(O)	4F14571
10475	0 34000 0 01425	4582	CAS	L(O)	4F14631
10512	0 34000 0 01425	4595	CAS	L(O)	4F14644
11211	0 34000 0 01425	4918	CAS	L(O)	4F14968
12376	0 34000 0 01425	5550	CAS	L(O)	4F15610

␣␣L(S) = 793

Definition
01431 000000000062 350 L(S) BCD 100000S S 4F10340

␣␣L(T) = 794

Definition
01432 000000000063 351 L(T) BCD 100000T T 4F10341
Reference
04223 0 40200 0 01432 2035 SUB L(T) IF NEXT CHARACTER IS NOT T, THEN 4F12093

␣␣L(X) = 795

Definition
01433 000000000067 352 L(X) BCD 100000X X 4F10342

References (3)

04041	0 56000 0 01433	1880		LDQ	L(X) REPLACE THE CHARACTER I	4F11937
10434	0 40200 0 01433	4549		SUB	L(X)	4F14598
12533	0 40200 0 01433	5643	ES1300	SUB	L(X)	4F15703

␣␣L(Z) = 796

Definition
01434 000000000071 353 L(Z) BCD 100000Z Z 4F10343
Reference
04616 0 56000 0 01434 2336 LDQ L(Z) AND 4F12390

␣␣LAST = 2925

Definition
2951 LAST = ENTRY POINT SET BY BXT SWITCH. 4F13005

05555 0 07400 4 01731 2952 LAST TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13006
Reference
06105 −0 75400 0 05555 3234 NLA PXD LAST,0 CLEAR THE AC, 4F13286

␣␣LBUF = 1371

Definition
02533 −0 70000 2 02357 953 LBUF CAD BUFR,2 AND COMPUTE 4F10976

References (2)

	02130	0 50000 0 02533	744		CLA	LBUF X	4F10733
	02534	2 00001 2 02533	954		TIX	LBUF,2,1 LOGICAL CHECKSUM.	4F10977

␣␣LEFT = 748

Definition
01354 300 LEFT BSS 3 STORAGE USED BY ARITHMETIC. 4F10290

References (6)

06623	0 56000 0 01356	3604		LDQ	LEFT+2	4F13653
06642	−0 60000 4 01357	3619		STQ	LEFT+3,4 X	4F13668
12357	0 56000 0 01356	5535	ES0160	LDQ	LEFT+2 S(I)=S(0)	4F15595
12407	0 50000 0 01354	5559		CLA	LEFT	4F15619
12411	0 50000 0 01355	5561		CLA	LEFT+1	4F15621
12413	0 50000 0 01356	5563		CLA	LEFT+2	4F15623

␣␣LPR1 = 2724

Definition
05244 −0 75400 4 00000 2716 LPR1 PXD ,4 SET THE C(DOLEV A) 4F12770
Reference
05243 1 00001 4 05244 2715 TXI LPR1,4,1 BY 1, AND 4F12769

␣␣LPR2 = 2732

Definition
05254 0 60100 0 00000 2724 LPR2 STO ** LOCATION WORD OF CURRENT TEMP DO. 4F12778
Reference
05247 0 62100 0 05254 2719 STA LPR2 THIS LEVEL 4F12773

␣␣LPR3 = 2722

Definition
05242 −0 53400 4 17400 2714 LPR3 LXD DOLEV,4 INCREASE THE C(DOLEV D) 4F12768
Reference
05231 0 10000 0 05242 2705 TZE LPR3 AND DOLEV IS NOT ZERO, THEN 4F12759

␣␣LPR4 = 2721

Definition
05241 0 07400 4 02372 2713 LPR4 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12767
Reference
D 05235 1 00000 0 05241 2709 TXI LPR4,0 AND GO JUMP IFN. 4F12763

␣␣LPRD = 2712

Definition
05230 −0 50000 0 17400 2704 LPRD CAL DOLEV IF THE BEGINNING OF A DO NEST, 4F12758
Reference
05206 0 10000 0 05230 2686 TZE LPRD IF SUBSCRIPT, THEN 4F12740

␣␣LPRE = 2718

Definition
05236 −0 50000 0 01367 2710 LPRE CAL SL IF C(SL) 0O NOT = 0, 4F12764
Reference
05233 −3 00000 4 05236 2707 TXL LPRE,4,0 IF NULL, GO ESTABLISH POSITION. 4F12761

␣␣MOVE = 1095

Definition
02107 −0 50000 1 00000 727 MOVE CAL **,1 (....IX+1) 4F10716

References (2)

	02103	0 62100 0 02107	723		STA	MOVE INTO WORKING STORAGE.	4F10712
	02111	2 00001 1 02107	729		TIX	MOVE,1,1 INTO WORKING STORAGE.	4F10718

␣␣NBAR = 752

Definition
01360 302 NBAR BSS 1 STORAGE USED BY ARITHMETIC. 4F10292

References (11)

06331	0 60000 0 01360	3416		STZ	NBAR X	4F13465
06336	−0 63400 4 01360	3421		SXD	NBAR,4 X	4F13470
06511	0 50000 0 01360	3528		CLA	NBAR	4F13577
06516	−0 53400 1 01360	3533		LXD	NBAR,1	4F13582
06521	−0 63400 1 01360	3536	MS212	SXD	NBAR,1	4F13585
07015	−0 53400 2 01360	3727		LXD	NBAR,B	4F13775
07211	0 50000 0 01360	3851		CLA	NBAR	4F13899
07221	0 50200 0 01360	3859		CLS	NBAR	4F13907
07274	0 50200 0 01360	3902		CLS	NBAR	4F13950
07306	−0 63400 2 01360	3912	CM4104	SXD	NBAR,B	4F13960
07626	−0 53400 1 01360	4159		LXD	NBAR,A LDXA WITH -N	4F14208

␣␣NFFW = 2655

Definition
05137 −0 50000 2 00000 2625 NFFW CAL 0,2 PICKUP NEXT FORMAT WORD, 4F12679
Reference
05121 −3 00001 1 05137 2611 TXL NFFW,1,1 UNLESS POSITIONED AT THE 4F12665

␣␣OPEN = 765

Definition
01375 +000000000074 320 OPEN OCT 74 ( - CTEST-9 4F10310

References (10)

03263	0 34000 0 01375	1330	TESTC0	CAS	OPEN	4F11353
03275	0 34000 0 01375	1342	TESTE0	CAS	OPEN	4F11365
03510	0 40200 0 01375	1631	CD002	SUB	OPEN SPECIFICATION	4F11688
06414	0 34000 0 01375	3467		CAS	OPEN TEST FOR (.	4F13516
07054	0 40200 0 01375	3758		SUB	OPEN	4F13806
07122	0 34000 0 01375	3796		CAS	OPEN EXAMINE SYMBOL	4F13844
07142	0 40200 0 01375	3812		SUB	OPEN	4F13860
07151	0 34000 0 01375	3819		CAS	OPEN	4F13867
10517	0 40200 0 01375	4600		SUB	OPEN	4F14649
	01375	5831	ALPAR	SYN	OPEN	4F15883

␣␣ORGA = 1824

Definition

	1496			END OF INITIALIZATION / PART 3.	4F11552
	1497			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11553
	1498				4F11554
	1499				4F11555
	1500			SECTION 1 / STATEA =	4F11556
	1501				4F11558
	1502			NAME FUNCTION	4F11559
	1503			PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS=	4F11560
	1504			CA000 ASSEMBLE STATEMENT.	4F11561
	1505			CD000 SCAN FOR HOLLERITH AND ILLEGAL CHS.	4F11562
	1506			CB000 CLASSIFY=ARITHMETIC/NON-ARITHMETIC.	4F11563
	1507			CC000 CLASSIFY=WHICH NON-ARITHMETIC.	4F11564
	1508			PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS.	4F11565
	1509			C0100 DO.	4F11566
	1510			C0200 GO TO.	4F11567
	1511			C0300 IF.	4F11568
	1512			C0400 IF (SENSE SWITCH.	4F11569
	1513			C0500 IF (SENSE LIGHT.	4F11570
	1514			C0600 IF DIVIDE CHECK.	4F11571
	1515			C0700 IF AC OVERFLOW.	4F11572
	1516			C0800 IF MQ OVERFLOW.	4F11573
	1517			C0900 PAUSE.	4F11574
	1518			C1000 ASSIGN.	4F11575
	1519			C1100 SENSE LIGHT.	4F11576
	1520			C1200 DIMENSION.	4F11577
	1521			C1300 STOP.	4F11578
	1522			C1400 FREQUENCY.	4F11579
	1523			C1500 EQUIVALENCE.	4F11580
	1524			C1600 CONTINUE.	4F11581
	1525			C3000(C3500) SUBROUTINE / FUNCTION.	4F11582
	1526			C3100 COMMON.	4F11583
	1527			C3200 RETURN.	4F11584
	1528			C3300 CALL.	4F11585
	1529			C3400 END.	4F11586
	1530			PART 3 / PROCESS INPUT-OUTPUT STATEMENTS=	4F11587
	1531			RDC READ CARD	4F11588
	1532			RIT READ INPUT TAPE.	4F11589
	1533			RDP PRINT.	4F11590
	1534			WOT WRITE OUTPUT TAPE.	4F11591
	1535			PDC PUNCH.	4F11592
	1536			WBT WRITE TAPE.	4F11593
	1537			RBT READ TAPE.	4F11594
	1538			WRD WRITE DRUM.	4F11595
	1539			RDD READ DRUM.	4F11596
	1540			EFT END FILE.	4F11597
	1541			RWN REWIND.	4F11598
	1542			BSP BACKSPACE.	4F11599
	1543			FOR FORMAT.	4F11600
	1544			RSC RESET AND SCAN.	4F11601
	1545			LISTR CONTROL FOR LIST SCAN.	4F11602
	1546			LPR LEFT PARENTHESES IN LIST SCAN.	4F11603
	1547			EOS EQUAL SIGN IN LIST SCAN.	4F11604
	1548			SPCTR CONTROL FOR SPECIFICATION SCAN.	4F11605
	1549			SPC SUBSCRIPT SPECIFICATIONS.	4F11606
	1550			RPR RIGHT PARENTHESIS IN LIST SCAN.	4F11607
	1551			CMA COMMA IN LIST SCAN.	4F11608
	1552			EMK ENDMARK IN LIST SCAN.	4F11609
	1553			PART 4 / SUBROUTINES USED BY STATE A=	4F11610
	1554			BEG(TYP),4 BEGIN SCAN AND TYPE TEST.	4F11611
	1555			BEGTR CONTROL FOR BEGINNING SCAN.	4F11612
	1556			BRW,4 BINARY READ OR WRITE COMPILER.	4F11613
	1557			BSS,2 COMPILES= IFN BSS 0.	4F11614
	1558			CA100,4 READ SOURCE PROGRAM TAPE.	4F11615
	1559			CC500,4 SCAN DICTIONARY.	4F11616
	1560			ETM(LTM)SW,4 IF SW=NOP, COMPILES ETM(LTM). SL=0.	4F11617
	1561			IFFIX,1 SETS UP FORVAR OR FORVAL ENTRY.	4F11618
	1562			IN(OUT)PUT,2 COMPILES CAL *, AND XIT (LEV).	4F11619
	1563			LIB,1 MAKES CLOSUB ENTRY, COMPILES CIT.	4F11620
	1564			VRA(VRD),4 MAKES FORVAR, FIXCON, CIT ENTRIES.	4F11621
	1565			PART 5 / CONSTANTS AND VARIABLES USED BY STATE A.	4F11622
	1566			DIC DICTIONARY.	4F11623
	1567			T TRANSFER TABLE.	4F11624
	1568				4F11625
	1569			THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=	4F11626
	1570				4F11627
	1571			** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION	4F11628
	1572			INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.	4F11629
	1573			* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF	4F11630
	1574			THIS LOGICAL BLOCK OR SUBROUTINE.	4F11631
	1575			C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.	4F11632
	1576			P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).	4F11633
	1577				4F11634
	1578			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11635
	1579				4F11636
	1580			STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS=	4F11637
03440	1581	ORGA	ORG	1824	4F11638

␣␣PLUS = 772

Definition
01404 5884 PLUS SYN 12Z 4F15945
Reference
05625 0 40200 0 01404 3010 SUB PLUS FOR VARIABLE 4F13062

␣␣RDRX = 1360

Definition

		937			END OF PROGRAM RA000.	4F10960
		938			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10961
		939				4F10962
		940			RDRX*4/ CALLS=DIAG. CALLER=DRTABS.	4F10963
		941			RDRX READS A BLOCK OF DRUM ENTRIES INTO 50 WORD BUFR.	4F10964
02520	0 53400 1 01413	942	RDRX	LXA	DRMERC,1 SET FOR 5 ATTEMPTS TO READ,DRUM.	4F10965

Reference
02240 0 07400 4 02520 816 TSX RDRX,4 * GO READ NEXT BLOCK INTO BUFFER. 4F10805

␣␣SBC1 = 1515

Definition
02753 0 50200 0 02776 1110 SBC1 CLS SBC6 RESET MULTIPLIER 4F11133
Reference
D 02776 3 00000 0 02753 1129 SBC6 TXH SBC1,0 SWITCH-IF NO MULTIPLIER, AND 4F11152

␣␣SBC2 = 1550

Definition
03016 0 50200 0 02777 1145 SBC2 CLS SBC8 RESET ADDEND 4F11168
Reference
D 02777 3 00000 0 03016 1130 SBC8 TXH SBC2,0 SWITCH-IF NO ADDEND, THEN 4F11153

␣␣SBC3 = 1556

Definition
03024 0 50200 0 03014 1151 SBC3 CLS SBC4 AFTER SCANNING 3 SUBSCRIPTS, 4F11174
Reference
03012 −2 00002 4 03024 1141 SBC7 TNX SBC3,4,2 UPDATE STORING TAG 4F11164

␣␣SBC4 = 1548

Definition
D 03014 −3 00000 0 02627 1143 SBC4 TXL SS001,0 SWITCH-REPEAT FOR NEXT SUB-COMB. 4F11166

References (4)

02626	0 63000 0 03014	1023		STP	SBC4 SET OP SWITCH.	4F11046
02770	0 50200 0 03014	1123	SBR	CLS	SBC4 SET SWITCH	4F11146
02771	0 60100 0 03014	1124		STO	SBC4 FOR CLOSING PARENTHESIS.	4F11147
03024	0 50200 0 03014	1151	SBC3	CLS	SBC4 AFTER SCANNING 3 SUBSCRIPTS,	4F11174

␣␣SBC6 = 1534

Definition
D 02776 3 00000 0 02753 1129 SBC6 TXH SBC1,0 SWITCH-IF NO MULTIPLIER, AND 4F11152

References (6)

02623	0 63000 0 02776	1020		STP	SBC6 SET OP	4F11043
02664	0 50200 0 02776	1053	SBX	CLS	SBC6 TEST FOR	4F11076
02667	0 60100 0 02776	1056	SBX1	STO	SBC6 RESET MULTIPLIER SWITCH.	4F11079
02746	0 50200 0 02776	1105		CLS	SBC6 TEST SWITCH	4F11128
02753	0 50200 0 02776	1110	SBC1	CLS	SBC6 RESET MULTIPLIER	4F11133
02754	0 60100 0 02776	1111	SBP2	STO	SBC6 OP SWITCH.	4F11134

␣␣SBC7 = 1546

Definition
03012 −2 00002 4 03024 1141 SBC7 TNX SBC3,4,2 UPDATE STORING TAG 4F11164
Reference
D 02767 1 00000 0 03012 1122 TXI SBC7,0 GO UPDATE STORING TAG. 4F11145

␣␣SBC8 = 1535

Definition
D 02777 3 00000 0 03016 1130 SBC8 TXH SBC2,0 SWITCH-IF NO ADDEND, THEN 4F11153

References (6)

02624	0 63000 0 02777	1021		STP	SBC8 SWITCHES.	4F11044
02737	0 50200 0 02777	1098		CLS	SBC8 TEST SWITCH	4F11121
02742	0 60100 0 02777	1101	SBP1	STO	SBC8 RESET ADDEND SWITCH.	4F11124
02765	0 50000 0 02777	1120		CLA	SBC8 IF THERE IS AN ADDEND,	4F11143
03016	0 50200 0 02777	1145	SBC2	CLS	SBC8 RESET ADDEND	4F11168
03017	0 60100 0 02777	1146		STO	SBC8 OP SWITCH.	4F11169

␣␣SBC9 = 1543

Definition
03007 −0 50000 0 01370 1138 SBC9 CAL SYMBOL ADJUST 4F11161
Reference
03022 −0 12000 0 03007 1149 TMI SBC9 FOR CONSTANT. 4F11172

␣␣SBP1 = 1506

Definition
02742 0 60100 0 02777 1101 SBP1 STO SBC8 RESET ADDEND SWITCH. 4F11124
Reference
02740 −0 12000 0 02742 1099 TMI SBP1 FOR PREVIOUS ADDEND. 4F11122

␣␣SBP2 = 1516

Definition
02754 0 60100 0 02776 1111 SBP2 STO SBC6 OP SWITCH. 4F11134
Reference
02747 0 12000 0 02754 1106 TPL SBP2 FOR PREVIOUS MULTIPLIER. 4F11129

␣␣SBP4 = 1517

Definition
02755 −0 50000 0 01370 1112 SBP4 CAL SYMBOL IF VARIABLE SUBSCRIPT, 4F11135

References (2)

D	02752	1 00000 0 02755	1109		TXI	SBP4,0 TO 1, AND CONTINUE.	4F11132
	03005	0 12000 0 02755	1136		TPL	SBP4 IF CONSTANT, THEN	4F11159

␣␣SBS2 = 1494

Definition
02726 1 00000 0 02733 1088 SBS2 TXI SBM,0,** - ,,SUBSCRIPT ELEMENT COUNTER. 4F11111

References (6)

02621	−0 63400 4 02726	1018	SXD	SBS2,4 FOR EACH SUBSCRIPT MEMBER.	4F11041
02676	−0 53400 4 02726	1063	LXD	SBS2,4 GET STORING TAG,	4F11086
02735	−0 53400 4 02726	1096	LXD	SBS2,4 GET STORING TAG, AND	4F11119
02745	−0 53400 4 02726	1104	LXD	SBS2,4 GET STORING TAG, AND	4F11127
02775	−0 53400 4 02726	1128	LXD	SBS2,4 GET STORING TAG.	4F11151
03013	−0 63400 4 02726	1142	SXD	SBS2,4 BY -2, AND SAVE.	4F11165

␣␣SBX1 = 1463

Definition
02667 0 60100 0 02776 1056 SBX1 STO SBC6 RESET MULTIPLIER SWITCH. 4F11079
Reference
02665 −0 12000 0 02667 1054 TMI SBX1 PREVIOUS MULTIPLIER. 4F11077

␣␣SBX2 = 1468

Definition
02674 −0 50000 0 01370 1061 SBX2 CAL SYMBOL ADJUST MULTIPLIER 4F11084
Reference
02672 −0 12000 0 02674 1059 TMI SBX2 FOR CONSTANT. 4F11082

␣␣SPC1 = 2782

Definition
D 05336 −3 00000 0 05147 2788 SPC1 TXL NXS,0 * EXIT TO SCAN, IF SWITCH IS TXL. 4F12842

References (5)

05320	−0 50000 0 05336	2773	SPCX	CAL	SPC1 PREPARE FOR END OF SPECIFICATION.	4F12827
05321	0 60100 0 05336	2774		STO	SPC1 SET SPC1 OP-SWITCH TO NOP CASE.	4F12828
05341	0 50200 0 05336	2791	SPC4	CLS	SPC1 RESTORE SPC1 EXIT.	4F12845
05342	0 60100 0 05336	2792		STO	SPC1 (3 SPECS HAVE BEEN TREATED)	4F12846
05407	0 50000 0 05336	2836	RPT	CLA	SPC1 RESET CMA3 SWITCH	4F12890

␣␣SPC2 = 2777

Definition
05331 −0 60200 0 00000 2783 SPC2 ORS ** OF TABLE ENTRY. 4F12837
Reference
05265 0 62100 0 05331 2738 STA SPC2 OF GENERATED DO FORMULA 4F12792

␣␣SPC3 = 2779

Definition
05333 0 60200 4 00000 2785 SPC3 SLW **,4 ENTER N SUB J IN TABLE. 4F12839

References (3)

	05272	0 62100 0 05333	2743	STA	SPC3 IN TEMPDO ENTRY.	4F12797
D	05325	1 00000 0 05333	2779	TXI	SPC3,0 AND GO ENTER CONSTANT IN TABLE.	4F12833
D	05340	1 00000 0 05333	2790	TXI	SPC3,0 OTHERWISE SPECIFIED.	4F12844

␣␣SPC4 = 2785

Definition
05341 0 50200 0 05336 2791 SPC4 CLS SPC1 RESTORE SPC1 EXIT. 4F12845
Reference
05334 −2 00001 4 05341 2786 TNX SPC4,4,1 REDUCE J. 4F12840

␣␣SPC5 = 2789

Definition
2795 SPC5 = ENTRY POINT USED BY RPR. 4F12849

05345 0 62100 0 00000 2796 SPC5 STA ** SET BETA EQUAL TO IFNO. 4F12850

References (3)

	05266	0 62100 0 05345	2739	STA	SPC5 AT CURRENT LEVEL.	4F12793
	05403	0 62100 0 05345	2831	STA	SPC5 SET SPC5 ADDRESS,	4F12885
D	05412	1 00000 0 05345	2839	TXI	SPC5,0 * CONTINUE BY USING PROGRAM SPC.	4F12893

␣␣SPC6 = 2796

Definition
05354 −0 75400 4 00000 2803 SPC6 PXD ,4 IF NOT ZERO, 4F12857
Reference
05353 1 77777 4 05354 2802 TXI SPC6,4,−1 BY 1, AND INDICATE A TREATED LEVEL. 4F12856

␣␣SPC7 = 2804

Definition
05364 0 50000 2 00000 2811 SPC7 CLA **,2 TEMPD0 TABLE ENTRY 4F12865

References (2)

	05360	0 62100 0 05364	2807		STA	SPC7 ENTER GENERATED	4F12861
	05367	2 00001 4 05364	2814		TIX	SPC7,4,1 WHEN DONE,	4F12868

␣␣SPC8 = 2808

Definition
05370 0 53400 4 01105 2815 SPC8 LXA 1C,4 TEST TO SKIP 4F12869
Reference
05366 −2 00001 2 05370 2813 TNX SPC8,2,1 AND THEN 4F12867

␣␣SPC9 = 2803

Definition
05363 0 53400 4 01413 2810 SPC9 LXA L(5),4 (MOVE EACH 4F12864
Reference
05374 3 00001 2 05363 2819 SPCT TXH SPC9,2,1 DO NEST HAS BEEN ENTERED, 4F12873

␣␣SPCR = 2794

Definition
05352 −0 53400 4 17400 2801 SPCR LXD DOLEV,4 DECREASE DOLEV D 4F12855
Reference
05347 −3 00000 4 05352 2798 TXL SPCR,4,0 TEST NEED FOR LTM, JIF AFTER ). 4F12852

␣␣SPCS = 2774

Definition
05326 −0 53400 4 05304 2780 SPCS LXD NSJ,4 OTHERWISE, SET SPEC COUNT AND 4F12834
Reference
D 05323 1 00000 0 05326 2777 TXI SPCS,0 IF FIXED POINT CONSTANT, 4F12831

␣␣SPCT = 2812

Definition
05374 3 00001 2 05363 2819 SPCT TXH SPC9,2,1 DO NEST HAS BEEN ENTERED, 4F12873
Reference
05371 −3 00000 4 05374 2816 TXL SPCT,4,0 NULL DO. 4F12870

␣␣SPCX = 2768

Definition

		2769			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12823
		2770				4F12824
		2771			SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=RSC.	4F12825
		2772			SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN.	4F12826
05320	−0 50000 0 05336	2773	SPCX	CAL	SPC1 PREPARE FOR END OF SPECIFICATION.	4F12827

Reference
D 05310 1 00000 0 05320 2761 TXI SPCX,0 * ) 4F12815

␣␣STAR = 773

Definition
01405 +000000000054 328 STAR OCT 54 * - CTEST-1 4F10318

References (6)

06564	0 34000 0 01405	3572	CAS	STAR IS IT *	4F13621
07100	0 34000 0 01405	3778	CAS	STAR	4F13826
10116	0 40200 0 01405	4343	SUB	STAR	4F14392
10667	0 40200 0 01405	4704	SUB	STAR	4F14753
11060	0 40200 0 01405	4825	SUB	STAR	4F14874
11351	0 34000 0 01405	5015	CAS	STAR	4F15065

␣␣SXR1 = 1496

Definition
02730 1 00000 0 02722 1090 SXR1 TXI ISC,0,** . (ILLEGAL IN LIST SUBSCRIPT). 4F11113

References (2)

	02615	−0 63400 1 02730	1014		SXD	SXR1,1 SAVE C(XR1),	4F11037
	03220	−0 53400 1 02730	1276	SAEXIT	LXD	SXR1,1 RESTORE THE C(XR1),	4F11299

␣␣SXR2 = 1497

Definition
02731 1 00000 0 02734 1091 SXR2 TXI SBP,0,** + 4F11114

References (2)

	02614	−0 63400 2 02731	1013	SS000	SXD	SXR2,2 SAVE C(XR2),	4F11036
	03221	−0 53400 2 02731	1277		LXD	SXR2,2 RESTORE THE C(XR2),	4F11300

␣␣SXR4 = 1498

Definition
02732 1 00000 0 02664 1092 SXR4 TXI SBX,0,** * 4F11115

References (3)

02616	−0 63400 4 02732	1015		SXD	SXR4,4 SAVE C(XR4), AND	4F11038
03027	−0 63400 4 02732	1155	CSA000	SXD	SXR4,4 SAVE C(XR4) FOR RETURN TO C0200.	4F11178
03222	−0 53400 4 02732	1278		LXD	SXR4,4 RESTORE THE C(XR4), AND	4F11301

␣␣TAG4 = 811

Definition
01453 5893 TAG4 SYN 2E17 4F15954
Reference
05327 −0 50000 0 01453 2781 CAL TAG4 IF VARIABLE, NOTE BY 4F12835

␣␣TAU1 = 0

Definition
00000 5894 TAU1 SYN 0000 DRUM TABLE ORIGIN -DRTABS. 4F15955

References (3)

00426	0 00000 0 00000	214		PZE	TAU1,,** TDA,,N	4F10205
00427	−3 00062 0 00000	215		TXL	TAU1,,252 ** FDA,,K*L	4F10206
11243	0 73400 2 00000	4944	MC0540	PAX	TAU1,B	4F14994

␣␣TAU2 = 300

Definition
00454 5895 TAU2 SYN 0300 DRUM TABLE ORIGIN -DRTABS. 4F15956

References (3)

00433	0 00000 0 00454	220		PZE	TAU2,,** TDA,,N	4F10211
00434	−3 00060 0 00454	221		TXL	TAU2,,124 ** FDA,,K*L	4F10212
11164	0 73400 2 00454	4897	MC0070	PAX	TAU2,B	4F14947

␣␣TAU3 = 750

Definition
01356 5896 TAU3 SYN 0750 DRUM TABLE ORIGIN -DRTABS. 4F15957

References (3)

00440	0 00000 0 01356	226		PZE	TAU3,,** TDA,,N	4F10217
00441	−3 00060 0 01356	227		TXL	TAU3,,86 ** FDA,,K*L	4F10218
11276	0 73400 2 01356	4972	CP0180	PAX	TAU3,B	4F15022

␣␣TEMP = 1269

Definition
02365 853 TEMP BSS 0 INDEXING ADDRESS FOR ABOVE -DRTABS. 4F10842
Reference
02110 0 60200 1 02365 728 SLW TEMP,1 OF PARAMETERS 4F10717

␣␣TERC = 779

Definition
01413 5897 TERC SYN L(5) TAPE ERROR COUNTER. 4F15958
Reference
05702 0 53400 2 01413 3069 CA100 LXA TERC,2 PREPARE TO C0UNT 4F13121

␣␣TPOA = 2626

Definition
05102 0 00000 0 01367 2581 TPOA PZE SL WORD1--0(IFN)O0O OR 0(IFN)0(248) 4F12635

References (2)

	05074	0 62100 0 05102	2575		STA	TPOA TO SL.	4F12629
	06033	0 62100 0 05102	3191		STA	TPOA TO TL.	4F13243

␣␣TRAD = 60

Definition
00074 85 TRAD BSS 10 IF AND GO TO TRANSFER ADDRESSES. 4F10076
Reference
00333 0 00012 0 00074 123 PZE TRAD,,10 03) O,,B. 4F10114

␣␣VRD1 = 3103

Definition
06037 0 63000 0 06052 3196 VRD1 STP VRX SET VRX OP-SWITCH. 4F13248
Reference
06035 1 77777 4 06037 3193 TXI VRD1,4,−1 SET RETURN TO TSX+2, AND GO SET OP. 4F13245

␣␣XR4X = 3054

Definition
05756 1 00000 0 05761 3124 XR4X TXI SETOP,0,** GO SET OP. 4F13176

References (2)

	05762	−0 63400 4 05756	3129		SXD	XR4X,4 SAVE THE C(XR4), AND	4F13181
	05771	−0 53400 4 05756	3136		LXD	XR4X,4 RESTORE THE C(XR4), AND	4F13188

␣1TOCS = 4

Definition
00004 5819 1TOCS SYN 4 ENTRY TO SYSTEM TAPE MONITOR. 4F15871
Reference
00000 0 00004 0 00030 20 PZE ORGCOM,,1TOCS 4F100122

␣3LBAR = 591

Definition
01117 280 3LBAR BSS 1 STORAGE USED BY ARITHMETIC. 4F10270

References (9)

06330	0 60000 0 01117	3415		STZ	3LBAR X	4F13464
06503	−0 53400 1 01117	3522		LXD	3LBAR,1 PERFORM LEVEL ANALYSIS FOR ,	4F13571
06515	−0 63400 1 01117	3532	MS211	SXD	3LBAR,1	4F13581
07014	−0 53400 1 01117	3726		LXD	3LBAR,A LOAD LA COUNTERS	4F13774
07303	−0 63400 1 01117	3909	CM4101	SXD	3LBAR,A	4F13957
07313	−0 63400 1 01117	3917	CM4201	SXD	3LBAR,A	4F13965
07316	−0 63400 1 01117	3920	CM4301	SXD	3LBAR,A	4F13968
07637	0 50000 0 01117	4168		CLA	3LBAR	4F14217
	01117	5824	3QBAR	SYN	3LBAR	4F15876

␣3QBAR = 591

Definition
01117 5824 3QBAR SYN 3LBAR 4F15876

References (10)

10324	−0 63400 1 01117	4477		SXD	3QBAR,A -3Q TO 3QBAR = 3LBAR	4F14526
11047	−0 53400 5 01117	4816	LKK000	LXD	3QBAR,5 -3Q TO XA,XC	4F14865
11155	−0 53400 1 01117	4890	MC00OO	LXD	3QBAR,A MODE CHECKING ROUTINE	4F14940
11270	−0 53400 1 01117	4966		LXD	3QBAR,A -3Q TO XA	4F15016
11305	−0 63400 1 01117	4979	CP0250	SXD	3QBAR,A	4F15029
11642	−0 53400 1 01117	5200	CP2500	LXD	3QBAR,A FINISHED WITH S(I)	4F15250
12035	−0 53400 1 01117	5324		LXD	3QBAR,A FINISHED WITH ARG VECTOR	4F15379
12066	−0 53400 1 01117	5349		LXD	3QBAR,A FINISHED WITH ARG VECTOR	4F15404
12267	−0 53400 1 01117	5479	CP5460	LXD	3QBAR,A	4F15539
12337	−0 53400 1 01117	5519	ES0000	LXD	3QBAR,A -3Q TO XA	4F15579

␣ADD01 = 1123

Definition
02143 1 00000 2 02142 755 ADD01 TXI ADD02,2,** (N) 4F10744
Reference
02141 −0 63400 2 02143 753 SXD ADD01,2 4F10742

␣ADD02 = 1122

Definition
02142 −2 00001 1 02235 754 ADD02 TNX COMPR,1,1 COMPUTES (N*L). 4F10743
Reference
02143 1 00000 2 02142 755 ADD01 TXI ADD02,2,** (N) 4F10744

␣ADD03 = 1133

Definition
02155 −2 00062 2 02163 765 ADD03 TNX ADD05,2,50 SKIP IF BLOCK IS NOT YET FULL. 4F10754
Reference
02154 1 00001 2 02155 764 TXI ADD03,2,1 4F10753

␣ADD04 = 1134

Definition
02156 0 60000 0 02365 766 ADD04 STZ DUMP START NEW BLOCK CHECKSUM. 4F10755
Reference
02153 −3 00000 2 02156 763 TXL ADD04,2,0 SKIP IF TABLE IS EMPTY. 4F10752

␣ADD05 = 1139

Definition
02163 −0 50000 0 02365 771 ADD05 CAL DUMP 4F10760
Reference
02155 −2 00062 2 02163 765 ADD03 TNX ADD05,2,50 SKIP IF BLOCK IS NOT YET FULL. 4F10754

␣ALPAR = 765

Definition
01375 5831 ALPAR SYN OPEN 4F15883

References (5)

03570	0 34000 0 01375	1684	CB005	CAS	ALPAR IF A LEFT PARENTHESIS,	4F11741
03603	0 34000 0 01375	1695		CAS	ALPAR IF LEFT PAR6NTHESIS,	4F11752
03733	0 34000 0 01375	1803	C0205	CAS	ALPAR TEST CHARACTER FOR ALPHABETIC.	4F11860
04056	0 34000 0 01375	1893		CAS	ALPAR IF IT IS A LPAREN,	4F11950
04405	0 34000 0 01375	2174		CAS	ALPAR EXAMINE CHARACTER LEFT IN THE AC,	4F12238

␣ALPHA = 6853

Definition
15305 4149 ALPHA BSS 139 4F14196

References (13)

06505	0 50200 4 15301	3524		CLS	ALPHA−4,4	4F13573
06526	0 50000 4 15301	3541		CLA	ALPHA−4,4	4F13590
07155	0 60200 4 15310	3823	L13130	SLW	ALPHA+3,C STO -(N+2) IN ALPHA+A+3	4F13871
07163	0 60200 4 15305	3829		SLW	ALPHA,C STO -C IN ALPHA+A	4F13877
07203	0 60200 4 15305	3845	L23130	SLW	ALPHA,C STO -N IN ALPHA +A	4F13893
07207	0 50200 4 15304	3849	LA2000	CLS	ALPHA−1,C	4F13897
07213	0 60200 4 15305	3853	L43130	SLW	ALPHA,C STO -(N+2) IN ALPHA+A	4F13901
07217	0 50200 4 15302	3857	LA4000	CLS	ALPHA−3,C	4F13905
07223	0 60200 4 15303	3861		SLW	ALPHA−2,C STO-N IN ALPHA+A-2	4F13909
07231	0 60100 4 15304	3867		STO	ALPHA−1,C STO-(N,1) IN ALPHA+A-1	4F13915
07266	0 60200 4 15305	3896	L33130	SLW	ALPHA,C STO -(N+1) IN ALPHA+A	4F13944
07272	0 50200 4 15303	3900	LA3000	CLS	ALPHA−2,C	4F13948
07276	0 60200 4 15304	3904		SLW	ALPHA−1,C STO -N IN ALPHA+A-1	4F13952

␣ARITH = 3283

Definition
06323 5832 ARITH SYN STATEB 4F15884

References (4)

D	03605	1 00000 0 06323	1697	TXI	ARITH,0 * THIS IS AN ARITHMETIC FORMULA.	4F11754
D	03613	1 00000 0 06323	1703	TXI	ARITH,0 * THIS IS AN ARITHMETIC FORMULA.	4F11760
D	04105	1 00000 0 06323	1916	TXI	ARITH,0 * EXIT T0 ARITH FOR FINAL PROCESSING.	4F11973
D	04631	1 00000 0 06323	2347	TXI	ARITH,0 * THEN EXIT TO ARITH TO PROCESS.	4F12401

␣ARPAR = 767

Definition
01377 5833 ARPAR SYN CLOS 4F15885

References (2)

	03573	0 34000 0 01377	1687	CB006	CAS	ARPAR IF A RIGHT PARENTHESIS,	4F11744
	04061	0 40200 0 01377	1896	C0303	SUB	ARPAR IF IT IS A RPAREN,	4F11953

␣BEGTR = 2960

Definition
05620 0 00000 0 05620 3000 BEGTR PZE BEGTR INDEXING ADDRESS FOR ABOVE LIST. 4F13052

References (2)

	05604	−0 50000 0 05620	2985		CAL	BEGTR SET CONTROL TRANSFER	4F13037
	05620	0 00000 0 05620	3000	BEGTR	PZE	BEGTR INDEXING ADDRESS FOR ABOVE LIST.	4F13052

␣BIT29 = 798

Definition
01436 +000000000100 355 BIT29 OCT 100 4F10345
Reference
10654 −0 50000 0 01436 4693 LK0440 CAL BIT29 4F14742

␣BLANK = 792

Definition
01430 +000000000060 349 BLANK OCT 60 000000000060 4F10339

References (9)

01646	0 50000 0 01430	513		CLA	BLANK ADD A BLANK	4F10503
01722	0 34000 0 01430	582		CAS	BLANK AND COMPARE WITH A BLANK.	4F10571
02757	−0 50000 0 01430	1114		CAL	BLANK IF LESS	4F11137
03230	0 40200 0 01430	1289		SUB	BLANK CHARACTER IN THIS NAME.	4F11312
04624	0 56000 0 01430	2342		LDQ	BLANK AND	4F12396
05277	−0 50000 0 01430	2748		CAL	BLANK STORE IN PROPER	4F12802
05630	−0 50000 0 01430	3013		CAL	BLANK ADD A BLANK	4F13065
06431	−0 50000 0 01430	3480		CAL	BLANK ADD,BLANK TO CHARS IN G.	4F13529
	01430	5827	ABLANK	SYN	BLANK	4F15879

␣BUILD = 2672

Definition
05160 −0 53400 4 05637 2655 BUILD LXD CSJ,4 BUILD A 4F12709
Reference
D 05155 −3 00000 0 05160 2652 TXL BUILD,0 IF EQUALITY IS FOUND ON SOME 4F12706

␣C0100 = 1963

Definition

		1740			END 0F PROGRAM CC000.	4F11797
		1741			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11798
		1742				4F11799
		1743			STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS=	4F11800
		1744				4F11801
		1745			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11802
		1746				4F11803
		1747			C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00.	4F11804
		1748			C0100 PROCESSES DO STATEMENTS.	4F11805
03653	0 07400 4 02366	1749	C0100	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F11806

Reference
D 06246 1 00000 0 03653 3334 T TXI C0100,0 DO. 4F13386

␣C0113 = 1985

Definition
03701 0 50000 0 01112 1771 C0113 CLA 1G STORE N2 4F11820
Reference
03676 −0 10000 0 03701 1768 TNZ C0113 IF ENDMARK, THEN 4F11825

␣C0150 = 900

Definition

		458			END 0F COMMON CONSTANTS USED BY SECTION ONE.	4F10448
		459			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10449
		460				4F10450
		461			COMMON/3-SUBROUTINES USED BY SECTION ONE=	4F10451
		462				4F10452
		463			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10453
		464				4F10454
		465			C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100.	4F10455
		466			C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I	4F10456
		467			= 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON-	4F10457
		468			NUMERIC, SETS I = -0, AND PACKS INTO 1G SUCCESSIVE CHARACTERS	4F10458
		469			UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC.	4F10459
01604	−0 63400 2 01607	470	C0150	SXD	C015X,2 SAVE THE C(XR2).	4F10460

References (3)

03666	0 07400 2 01604	1760	TSX	C0150,2 * OBTAIN IN 1G THE PROPER N1.	4F11817
03674	0 07400 2 01604	1766	TSX	C0150,2 * OBTAIN IN 1G THE PROPER N2.	4F11823
03706	0 07400 2 01604	1776	TSX	C0150,2 * OBTAIN IN 1G THE PROPER N3.	4F11833

␣C0151 = 909

Definition
01615 0 07400 2 01624 479 C0151 TSX C0160,2 * ASSEMBLE NON-NUMERICS IN 1G. 4F10469
Reference
01607 1 00000 0 01615 473 C015X TXI C0151,0,** IF NON-NUMERIC, TRANSFER. 4F10463

␣C0152 = 912

Definition
01620 0 60100 0 01353 482 C0152 STO I SET I = +0, OR -0. 4F10472
Reference
01614 1 00000 0 01620 478 FWA TXI C0152,0,** GO SET I FOR NUMERIC. 4F10468

␣C015X = 903

Definition
01607 1 00000 0 01615 473 C015X TXI C0151,0,** IF NON-NUMERIC, TRANSFER. 4F10463

References (2)

	01604	−0 63400 2 01607	470	C0150	SXD	C015X,2 SAVE THE C(XR2).	4F10460
	01622	−0 53400 2 01607	484		LXD	C015X,2 RESTORE THE C(XR2), AND	4F10474

␣C0160 = 916

Definition

		486			END OF PROGRAM C0150.	4F10476
		487			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10477
		488				4F10478
		489			C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200,	4F10479
		490			C1500,C3000,C3100,C0150.	4F10480
		491			C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND	4F10481
		492			SUOCESS.VE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK	4F10482
		493			IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A	4F10483
		494			BLANK, IF LESS THAN 6 CHARACTERS.	4F10484
01624	−0 63400 2 01631	495	C0160	SXD	C016X,2 SAVE THE C(XR2), AND	4F10485

References (12)

01615	0 07400 2 01624	479	C0151	TSX	C0160,2 * ASSEMBLE NON-NUMERICS IN 1G.	4F10469
03663	0 07400 2 01624	1757		TSX	C0160,2 * OBTAIN IN 1G THE SUBSCRIPT.	4F11814
03736	0 07400 2 01624	1806	C0210	TSX	C0160,2 * TYPE= GO TO N,(),SO OBTAIN IN 1G N	4F11863
04007	0 07400 2 01624	1847		TSX	C0160,2 * OBTAIN IN 1G THE FXD-PT. VARIABLE,	4F11904
04234	0 07400 2 01624	2044		TSX	C0160,2 * THE SYMBOL N.	4F12102
04267	0 07400 2 01624	2081		TSX	C0160,2 * THE VARIABLE SYMBOL.	4F12140
04402	0 07400 2 01624	2171		TSX	C0160,2 * OBTAIN IN 1G THE SYMBOL V.	4F12235
04452	0 07400 2 01624	2221		TSX	C0160,2 * ASSEMBLE NAME IN 1G.	4F12286
04471	0 07400 2 01624	2236		TSX	C0160,2 * ASSEMBLE ARGUMENT IN 1G.	4F12301
04514	0 07400 2 01624	2260		TSX	C0160,2 * ASSEMBLE SYMBOL IN 1G, AND TEST	4F12325
04611	0 07400 2 01624	2331		TSX	C0160,2 * COLLECT THF REST OF THE NAME, WHICH	4F12385
06466	0 07400 2 01624	3509	FS040	TSX	C0160,2 COLLECT ARGUMENT NAME IN 1G.	4F13558

␣C0161 = 919

Definition
01627 0 53400 4 02652 498 C0161 LXA CTESTX,4 TEST 4F10488
Reference
01641 1 00006 2 01627 508 TXI C0161,2,6 UPDATE SHIFT COUNT, AND CONTINUE. 4F10498

␣C0162 = 920

Definition
01630 0 34000 4 01406 499 C0162 CAS CTEST,4 CHARACTER 4F10489
Reference
01633 2 00001 4 01630 502 C0163 TIX C0162,4,1 ALL PUNCTUATION. 4F10492

␣C0163 = 923

Definition
01633 2 00001 4 01630 502 C0163 TIX C0162,4,1 ALL PUNCTUATION. 4F10492
Reference
01631 1 00000 0 01633 500 C016X TXI C0163,0,** IN THE AC 4F10490

␣C0164 = 926

Definition
01636 0 76700 2 00036 505 C0164 ALS 30,2 BUILD LEFT-ADJUSTED 4F10495
Reference
01634 −3 00036 2 01636 503 TXL C0164,2,30 IF SYMBOL EXCEEDS 6 CHARACTERS, 4F10493

␣C0165 = 930

Definition
01642 3 00000 2 01644 509 C0165 TXH C0167,2,0 IF PUNCTUATION IS 1ST CHARACTER, 4F10499
Reference
D 01632 1 00000 0 01642 501 TXI C0165,0 AGAINST 4F10491

␣C0166 = 931

Definition
01643 0 07400 4 03400 510 C0166 TSX DIAG,4 * OR ILLEGAL, GO TO THE DIAGNOSTIC. 4F10500
Reference
01644 −3 00005 4 01643 511 C0167 TXL C0166,4,5 IF LEGAL PUNCTUATION, THEN 4F10501

␣C0167 = 932

Definition
01644 −3 00005 4 01643 511 C0167 TXL C0166,4,5 IF LEGAL PUNCTUATION, THEN 4F10501
Reference
01642 3 00000 2 01644 509 C0165 TXH C0167,2,0 IF PUNCTUATION IS 1ST CHARACTER, 4F10499

␣C016X = 921

Definition
01631 1 00000 0 01633 500 C016X TXI C0163,0,** IN THE AC 4F10490

References (2)

	01624	−0 63400 2 01631	495	C0160	SXD	C016X,2 SAVE THE C(XR2), AND	4F10485
	01652	−0 53400 2 01631	517		LXD	C016X,2 RESTORE THE C(XR2), AND	4F10507

␣C0180 = 941

Definition
01655 0 60100 0 01112 528 C0180 STO 1G PLACE 1ST NUMERIC IN 1G. 4F10517

References (11)

01611	0 07400 2 01655	475		TSX	C0180,2 * GO CONVERT TO BINARY.	4F10465
01670	1 76626 0 01655	539	DCF	TXI	C0180,0,−F REPEAT PR0CESS FOR NEXT CHARACTER.	4F10528
03656	0 07400 2 01655	1752		TSX	C0180,2 * OBTAIN IN 1G THE BIN EQUIV OF BETA.	4F11809
03726	0 07400 2 01655	1798		TSX	C0180,2 * OBTAIN IN 1G THE BINARY EQUV BETA.	4F11855
03754	0 07400 2 01655	1820		TSX	C0180,2 * OBTAIN IN 1G THE BIN EQU OF BETA.	4F11877
04066	0 07400 2 01655	1901		TSX	C0180,2 * BINARY EQUIVALENT OF BETA 1.	4F11958
04073	0 07400 2 01655	1906		TSX	C0180,2 * THE BINARY EQUIVALENT OF BETA 2.	4F11963
04101	0 07400 2 01655	1912		TSX	C0180,2 * THE BINARY EQUIVALENT OF BETA 3.	4F11969
04113	0 07400 2 01655	1928		TSX	C0180,2 * EQUIVALENT OF SW OR SL NUMBER.	4F11985
04130	0 07400 2 01655	1942		TSX	C0180,2 * EQUIVALENT OF BETA 1,	4F11999
04136	0 07400 2 01655	1948		TSX	C0180,2 * EQUIVALENT OF BETA 2,	4F12005

␣C0190 = 967

Definition

		565			C0390 CONTINUES BY USING C0190.	4F10554
		566				4F10555
		567			C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C0200,C0300,C0400,	4F10556
		568			C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,	4F10557
		569			C3300,C3400,C0150,C0160,C0180,SS000,ROYCNV,RSC,LPR.	4F10558
		570			C0190 OBTAINS IN AC TH NEXT NON-BLANK CHARACTER OF FORMULA.	4F10559
01707	−0 63400 1 01723	571	C0190	SXD	C0194,1 SAVE THE C(XR1), AND	4F10560

References (58)

01605	0 07400 4 01707	471		TSX	C0190,4 * TEST 1ST NON-BLANK CHARACTER	4F10461
01640	0 07400 4 01707	507		TSX	C0190,4 * GET NEXT NB CHARACTER IN THE AC.	4F10497
01654	0 07400 4 01707	527	C0180X	TSX	C0190,4 * OBTAIN 1ST NUMERIC IN THE AC.	4F105165
01656	0 07400 4 01707	529		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F10518
02631	0 07400 4 01707	1026		TSX	C0190,4 * GET FIRST PON BLANK CHAR IN THE AC.	4F11049
02642	0 07400 4 01707	1035	SS0014	TSX	C0190,4 * GET NEXT NB CHARACTER IN THE AC.	4F11058
02703	0 07400 4 01707	1068	SS004	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F11091
03526	0 07400 4 01707	1645	CD700	TSX	C0190,4 * G0 GET NEXT NONBLANK CHARACTER,	4F11702
03534	0 07400 4 01707	1651	CD900	TSX	C0190,4 * OBTAIN NEXT NONBLANK CHARACTER,	4F11708
03564	0 07400 4 01707	1680	CB001	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER.	4F11737
03602	0 07400 4 01707	1694	CB201	TSX	C0190,4 * THEN EXAMINE NEXT CHARACTER.	4F11751
03634	0 07400 4 01707	1725		TSX	C0190,4 * GO GET NEXT FORMULA CHARACTER,	4F11782
03654	0 07400 4 01707	1750		TSX	C0190,4 * OBTAIN 1ST NON-BLANK CHARACTER	4F11807
03722	0 07400 4 01707	1794		TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER	4F11851
03742	0 07400 4 01707	1810		TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER,	4F11867
03753	0 07400 4 01707	1819	C0215	TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHAR.	4F11876
03774	0 07400 4 01707	1836		TSX	C0190,4 * OBTAIN NEXT NB CHAR AND	4F11893
04004	0 07400 4 01707	1844	C0220	TSX	C0190,4 * EXAMINE NEXT NB CHARACTER,	4F11901
04006	0 07400 4 01707	1846		TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHAR, ANO	4F11903
04040	0 07400 4 01707	1879		TSX	C0190,4 * OBTAIN IN AC THE 1ST NB CHAR (I).	4F11936
04052	0 07400 4 01707	1889	C0302	TSX	C0190,4 * MAKE SURE THAT NEXT NB CHARACTER	4F11946
04072	0 07400 4 01707	1905		TSX	C0190,4 * AND PROCEED TO FORM	4F11962
04100	0 07400 4 01707	1911		TSX	C0190,4 * AND PROCEED TO FORM	4F11968
04112	0 07400 4 01707	1927		TSX	C0190,4 * PROCEED TO FORM THE BINARY	4F11984
04127	0 07400 4 01707	1941		TSX	C0190,4 * PROCEED TO FORM THE BINARY	4F11998
04135	0 07400 4 01707	1947		TSX	C0190,4 * PROCEED TO FORM THE BINARY	4F12004
04172	0 07400 4 01707	2004	C0902	TSX	C0190,4 * TEST NEXT NON-BLANK CHARACTER	4F12061
04226	0 07400 4 01707	2038		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER	4F12096
04233	0 07400 4 01707	2043		TSX	C0190,4 * PROCEED TO ASSEMBLE IN 1G	4F12101
04266	0 07400 4 01707	2080	C1200	TSX	C0190,4 * PROCEED TO ASSEMBLE IN 1G	4F12139
04337	0 07400 4 01707	2121	C1201	TSX	C0190,4 * OBTAIN NB CHAR FOLLOWING RPAREN.	4F12183
04371	0 07400 4 01707	2157		TSX	C0190,4 * OBTAIN IN ACC NEXT NBCHAR, AND	4F12221
04375	0 07400 4 01707	2166	C1500	TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC.	4F12230
04401	0 07400 4 01707	2170		TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC AND	4F12234
04415	0 07400 4 01707	2182		TSX	C0190,4 * OBTAIN NEXT NBCHAR IN AC, AND	4F12247
04427	0 07400 4 01707	2192		TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC, AND	4F12257
04433	0 07400 4 01707	2201	C1600	TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC.	4F12266
04450	0 07400 4 01707	2219		TSX	C0190,4 * IF 1ST CHARACTER OF NAME IS	4F12284
04506	0 07400 4 01707	2249	C3002	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER.	4F12314
04512	0 07400 4 01707	2258	C3100	TSX	C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL	4F12323
04536	0 07400 4 01707	2283	C3200	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F12337
04607	0 07400 4 01707	2329	C3300	TSX	C0190,4 * IF 1ST CHARACTER OF NAME IS	4F12383
04615	0 07400 4 01707	2335		TSX	C0190,4 * PICKUP THE CHARACTER C,	4F12389
04661	0 07400 4 01707	2376	C3405	TSX	C0190,4 * PICKUP CONSTANT,	4F12430
04666	0 07400 4 01707	2381	C3410	TSX	C0190,4 * SKIP NEXT NON-BLANK CHARACTER, AND	4F12435
04670	0 07400 4 01707	2383		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F12437
05152	0 07400 4 01707	2649	NXC	TSX	C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC.	4F12703
05217	0 07400 4 01707	2695		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER	4F12749
05225	0 07400 4 01707	2701		TSX	C0190,4	4F12755
06360	0 07400 4 01707	3439		TSX	C0190,4 CHSAVE EMPTY, GET NEXT CHAR.	4F13488
06377	0 07400 4 01707	3454	MS061	TSX	C0190,4 GET NEXT CHAR.	4F13503
06413	0 07400 4 01707	3466	MS080	TSX	C0190,4 GET NEXT CHAR.	4F13515
06456	0 07400 4 01707	3501	FS020	TSX	C0190,4 GET FIRST CHAR OF ARGUMENT.	4F13550
06563	0 07400 4 01707	3571		TSX	C0190,4 GET NEXT CHAR.	4F13620
06635	0 07400 4 01707	3614		TSX	C0190,4 GET NEXT CHAR.	4F13663
07362	0 07400 4 01707	3971	NC5	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F14019
07431	0 07400 4 01707	4010	EC1	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F14058
07451	0 07400 4 01707	4026	EC6	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F14074

␣C0191 = 970

Definition
01712 2 00001 1 01720 574 C0191 TIX C0193,1,1 IF NONE, 4F10563
Reference
01724 1 00000 0 01712 584 CHCTR TXI C0191,0,** GO EXAMINE NEXT CHARACTER. 4F10573

␣C0192 = 974

Definition
01716 −0 63400 1 01614 578 C0192 SXD FWA,1 FORMULA WORD ADDRESS BY 1. 4F10567
Reference
01715 1 77777 1 01716 577 TXI C0192,1,−1 AND INCREASE 4F10566

␣C0193 = 976

Definition
01720 −0 75400 0 00000 580 C0193 PXD ,0 EXAMINE 4F10569
Reference
01712 2 00001 1 01720 574 C0191 TIX C0193,1,1 IF NONE, 4F10563

␣C0194 = 979

Definition
01723 1 00000 0 01725 583 C0194 TXI C0195,0,** IF BLANK, 4F10572

References (2)

	01707	−0 63400 1 01723	571	C0190	SXD	C0194,1 SAVE THE C(XR1), AND	4F10560
	01727	−0 53400 1 01723	587		LXD	C0194,1 RESTORE THE C(XR1), AND	4F10576

␣C0195 = 981

Definition
01725 −0 63400 1 01724 585 C0195 SXD CHCTR,1 IF NOT BLANK, RESET CHAR COUNT, 4F10574
Reference
01723 1 00000 0 01725 583 C0194 TXI C0195,0,** IF BLANK, 4F10572

␣C0200 = 2000

Definition

		1786			END OF PROGRAM C0100.	4F11843
		1787			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11844
		1788				4F11845
		1789			C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160,	4F11846
		1790			CIT00,SS000(CSA000).	4F11847
		1791			C0200 PROCESSES GO TO STATEMENTS.	4F11848
03720	0 07400 4 02366	1792	C0200	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C	4F11849

Reference
D 06247 1 00000 0 03720 3335 TXI C0200,0 G0 TO. 4F13387

␣C0202 = 2072

Definition
1864 C0200= ENTPY POINT USED BY C0400,C1000. 4F11921

04030 0 07400 1 03321 1865 C0202 TSX TET00,1 * GO TO TET TO ENTER 1C AND 1C+1 4F11922

References (4)

D	03732	1 00000 0 04030	1802	TXI	C0202,0 GO TO ENTER 1C,1C+1 INTO TIFGO.	4F11859
	04003	0 02000 0 04030	1843	TRA	C0202 GO TO ENTER 1C,1C+1 INTO TIFGO.	4F11900
D	04147	1 00000 0 04030	1957	TXI	C0202,0 * MAKE TIFGO ENTRY, AND RETURN TO CA.	4F12014
	04250	0 02000 0 04030	2056	TRA	C0202 * CONTINUE BY USING PROGRAM C02.	4F12114

␣C0205 = 2011

Definition
03733 0 34000 0 01375 1803 C0205 CAS ALPAR TEST CHARACTER FOR ALPHABETIC. 4F11860
Reference
D 03724 1 00000 0 03733 1796 TXI C0205,0 IF NON-NUMERIC, GO COMPARE WITH (. 4F11853

␣C0210 = 2014

Definition
03736 0 07400 2 01624 1806 C0210 TSX C0160,2 * TYPE= GO TO N,(),SO OBTAIN IN 1G N 4F11863
Reference
D 03734 1 00000 0 03736 1804 TXI C0210,0 IF NOT ALPHABETIC, THEN 4F11861

␣C0212 = 2022

Definition
03746 0 50000 0 01410 1814 C0212 CLA L(2) PREPARE TO SET ADDR OF 1C TO 2. 4F11871
Reference
D 03735 1 00000 0 03746 1805 TXI C0212,0 THIS IS TYPE= GO TO ( ), I. 4F11862

␣C0213 = 2023

Definition
03747 0 62100 0 01105 1815 C0213 STA 1C STORE 1 OR 2 IN ADDR OF 1C. 4F11872
Reference
03745 0 02000 0 03747 1813 TRA C0213 TO 1 TO INDICATE CLASS OF TRANSFER. 4F11870

␣C0215 = 2027

Definition
03753 0 07400 4 01707 1819 C0215 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHAR. 4F11876
Reference
03765 −0 10000 0 03753 1829 TNZ C0215 IF RIGHT PARENTHESIS, THEN 4F11886

␣C0216 = 2034

Definition
03762 −0 63400 2 04032 1826 C0216 SXD CTRAD,2 BY 1. 4F11883
Reference
03761 2 00001 2 03762 1825 TIX C0216,2,1 CTRAD 4F11882

␣C0220 = 2052

Definition
04004 0 07400 4 01707 1844 C0220 TSX C0190,4 * EXAMINE NEXT NB CHARACTER, 4F11901
Reference
03773 0 02000 0 04004 1835 TRA C0220 THIS IS A TYPE GO TO (),I FORMULA. 4F11892

␣C0300 = 2075

Definition

		1868			END OF PROGRAM C0200.	4F11925
		1869			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11926
		1870				4F11927
		1871			C030O/ CALLS=C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00,	4F11928
		1872			=STATEB.	4F11929
		1873			C0300 PROCESSES IF STATEMENTS.	4F11930
04033	−0 53400 4 00030	1874	C0300	LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F11931

Reference
D 06255 1 00000 0 04033 3341 TXI C0300,0 IF. 4F13393

␣C0302 = 2090

Definition
04052 0 07400 4 01707 1889 C0302 TSX C0190,4 * MAKE SURE THAT NEXT NB CHARACTER 4F11946

References (3)

04060	1 00001 2 04052	1895	TXI	C0302,2,1 GO EXAMINE NEXT CHARACTER.	4F11952
04062	−0 10000 0 04052	1897	TNZ	C0302 THEN TEST PAREN COUNT, AND IF IT	4F11954
04063	2 00001 2 04052	1898	TIX	C0302,2,1 CAN NO, BE REDUCED,MATE IS FOUND.	4F11955

␣C0303 = 2097

Definition
04061 0 40200 0 01377 1896 C0303 SUB ARPAR IF IT IS A RPAREN, 4F11953
Reference
D 04057 1 00000 0 04061 1894 TXI C0303,0 THEN ADD 1 TO PAREN COUNT, AND 4F11951

␣C0390 = 957

Definition

		549			END OF PROGRAM C0190X.	4F10538
		550			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10539
		551				4F10540
		552			C0390,4/ CALLERS=C0300,C3300.	4F10541
		553			C0390 INSERTS THE CHARACTER IN THE AC INT0 THE 1ST POSITION	4F10542
		554			TO THE LEFT OF THAT DEFINED BY FWA AND XR1.	4F10543
01675	0 50000 0 01374	555	C0390	CLA	ENDMK PREPARE TO CHANGE	4F10544

References (8)

04042	0 07400 4 01675	1881	TSX	C0390,4 * WITH THE CHARACTER X.	4F11938
04044	0 07400 4 01675	1883	TSX	C0390,4 * WITH THE CHARACTER 001010.	4F11940
04047	0 07400 4 01675	1886	TSX	C0390,4 * WITH THE CHARACTER EQUAL.	4F11943
04065	0 07400 4 01675	1900	TSX	C0390,4 * WITH THE CHARACTER ENDMK.	4F11957
04617	0 07400 4 01675	2337	TSX	C0390,4 * REPLACE C WITH Z.	4F12391
04621	0 07400 4 01675	2339	TSX	C0390,4 * REPLACE A WITH TEN.	4F12393
04623	0 07400 4 01675	2341	TSX	C0390,4 * REPLACE FIRST L WITH =.	4F12395
04625	0 07400 4 01675	2343	TSX	C0390,4 * REPLACE SECOND L WITH BLANK.	4F12397

␣C0392 = 961

Definition
01701 −0 76300 0 00006 559 C0392 LGL 6 TO POSITION 4F10548
Reference
01702 2 00001 1 01701 560 TIX C0392,1,1 CHARACTER. 4F10549

␣C0393 = 963

Definition
01703 0 76000 0 00006 561 C0393 COM INVERT MASK, AND 4F10550
Reference
01700 −2 00001 1 01703 558 TNX C0393,1,1 ADJUST MASK 4F10547

␣C0400 = 2118

Definition

		1917			END OF PROGRAM C0300.	4F11974
		1918			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11975
		1919				4F11976
		1920			C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200.	4F11977
		1921			C0400 PROCESSES IF (SENSE SWITCH STATEMENTS.	4F11978
04106	0 50000 0 01441	1922	C0400	CLA	L(112) FOR SENSE SWITCH	4F11979

Reference
D 06250 1 00000 0 04106 3336 TXI C0400,0 IF (SENSE SWITCH. 4F13388

␣C0401 = 2121

Definition
1925 C0401= ENTRY POINT USED BY C0500. 4F11982

04111 0 60100 0 01116 1926 C0401 STO 2H SET 2H FOR SENSE SWITCH OR LIGHT. 4F11983
Reference
04153 0 02000 0 04111 1966 TRA C0401 * AND CONTINUE BY USING PROGRAM C04. 4F12023

␣C0402 = 2130

Definition
1935 C0402= ENTRY POINT USED BY C0600. 4F11992

04122 0 60100 0 01110 1936 C0402 STO 1C+3 SET 1C+3 FOR CIT ENTRY. 4F11993
Reference
04161 0 02000 0 04122 1978 TRA C0402 * AND CONTINUE BY USING PROGRAM C04. 4F12035

␣C0500 = 2152

Definition

		1958			END OF PROGRAM C0400.	4F12015
		1959			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12016
		1960				4F12017
		1961			C0500/ USES=C0400.	4F12018
		1962			C0500 PROCESSES IF (SENSE LIGHT STATEMENTS.	4F12019
04150	0 50000 0 01440	1963	C0500	CLA	L(96) STORE 96 IN	4F12020

Reference
D 06251 1 00000 0 04150 3337 TXI C0500,0 IF (SENSE LIGHT. 4F13389

␣C0600 = 2156

Definition

		1967			END OF PROGRAM C0500.	4F12024
		1968			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12025
		1969				4F12026
		1970			C0600/ USES=C0400.	4F12027
		1971			C0600 PROCESSES IF DIVIDE CHECK STATEMENTS.	4F12028
04154	0 50000 0 01545	1972	C0600	CLA	L(DCT) STORE (DCT000)	4F12029

Reference
D 06252 1 00000 0 04154 3338 TXI C0600,0 IF DIVIDE CHECK. 4F13390

␣C0601 = 2159

Definition
1975 C0601= ENTRY POINT USED BY C0700. 4F12032

04157 0 60100 0 01105 1976 C0601 STO 1C SET 1C FOR FUTURE TIFGO ENTRY. 4F12033
Reference
04165 0 02000 0 04157 1988 TRA C0601 * CONTINUE BY USING PROGRAM C06. 4F12045

␣C0700 = 2162

Definition

		1979			END OF PROGRAM C0600.	4F12036
		1980			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12037
		1981				4F12038
		1982			C0700/ USES C0600.	4F12039
		1983			C0700 PROCESSES IF AC OVERFLOW STATEMENTS.	4F12040
04162	0 50000 0 01577	1984	C0700	CLA	L(TOV) PICKUP TOV000 TO SET 2H.	4F12041

Reference
D 06253 1 00000 0 04162 3339 TXI C0700,0 IF AC OVERFLOW. 4F13391

␣C0701 = 2163

Definition
1985 C0701= ENTRY POINT USED BY C0800. 4F12042

04163 0 60100 0 01116 1986 C0701 STO 2H SET 2H FOR FUTURE CIT ENTRY. 4F12043
Reference
04167 0 02000 0 04163 1995 TRA C0701 * AND CONTINUE BY USING PROGRAM C07. 4F12052

␣C0800 = 2166

Definition

		1989			END OF PROGRAM C0700.	4F12046
		1990			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12047
		1991				4F12048
		1992			C0800/ USES=C0700.	4F12049
		1993			C0800 PROCESSES IF MQ OVERFLOW STATEMENTS.	4F12050
04166	0 50000 0 01600	1994	C0800	CLA	L(TQO) PICKUP TQO000 TO SET 2H,	4F12051

Reference
D 06254 1 00000 0 04166 3340 TXI C0800,0 IF MQ OVERFLOW. 4F13392

␣C0900 = 2168

Definition

		1996			END OF PROGRAM C0800.	4F12053
		1997			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12054
		1998				4F12055
		1999			C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300.	4F12056
		2000			C0900 PROCESSES PAUSE STATEMENTS.	4F12057
04170	−0 53400 2 04175	2001	C0900	LXD	C090X,2 SET XR2 FOR EXIT TO CA000.	4F12058

Reference
D 06260 1 00000 0 04170 3344 TXI C0900,0 PAUSE. 4F13396

␣C0901 = 2169

Definition
2002 C0901= ENTRY POINT USED BY C1300. 4F12059

04171 0 60000 0 01112 2003 C0901 STZ 1G CLEAR 1G. 4F12060
Reference
04345 0 07400 2 04171 2132 TSX C0901,2 * USE C0900 TO BEGIN PROCESSING. 4F12194

␣C0902 = 2170

Definition
04172 0 07400 4 01707 2004 C0902 TSX C0190,4 * TEST NEXT NON-BLANK CHARACTER 4F12061
Reference
D 04201 1 00000 0 04172 2011 TXI C0902,0 CONTINUE UNTIL END OF STATEMENT. 4F12068

␣C0903 = 2178

Definition
04202 0 50000 0 01112 2012 C0903 CLA 1G THEN PLACE 0CTAL ALPHA 4F12069
Reference
04175 1 74341 0 04202 2007 C090X TXI C0903,0,−CA010+1 IF NOT END OF STATEMENT, THEN 4F12064

␣C090X = 2173

Definition
04175 1 74341 0 04202 2007 C090X TXI C0903,0,−CA010+1 IF NOT END OF STATEMENT, THEN 4F12064
Reference
04170 −0 53400 2 04175 2001 C0900 LXD C090X,2 SET XR2 FOR EXIT TO CA000. 4F12058

␣C1000 = 2190

Definition

		2024			END OF PROGRAM C0900.	4F12081
		2025			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12082
		2026				4F12083
		2027			C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0160,TEST..	4F12084
		2028			CIT00.	4F12085
		2029			C1000 PROCESSES ASSIGN STATEMENTS.	4F12086
04216	0 07400 4 02366	2030	C1000	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C	4F12087

Reference
D 06256 1 00000 0 04216 3342 TXI C1000,0 ASSIGN. 4F13394

␣C1100 = 2217

Definition

		2057			END OF PROGRAM C1000.	4F12115
		2058			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12116
		2059				4F12117
		2060			C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00.	4F12118
		2061			C1100 PROCESSES SENSE LIGHT STATEMENTS.	4F12119
04251	0 07400 2 01654	2062	C1100	TSX	C0180X,2 * GO FORM BINARY EQUIV OF SL NUMBER.	4F12120

Reference
D 06261 1 00000 0 04251 3345 TXI C1100,0 SENSE LIGHT. 4F13397

␣C1200 = 2230

Definition

		2075			END OF PROGRAM C1100.	4F12134
		2076			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12135
		2077				4F12136
		2078			C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS.	4F12137
		2079			C1200 PR0CESSES DIMENSION STATEMENTS.	4F12138
04266	0 07400 4 01707	2080	C1200	TSX	C0190,4 * PROCEED TO ASSEMBLE IN 1G	4F12139

References (2)

	04341	−0 10000 0 04266	2123		TNZ	C1200 IF CHARACTER IS ENDMARK, THEN	4F12185
D	06262	−3 00000 0 04266	3346		TXL	C1200,0 DIMENSION.	4F13398

␣C1201 = 2271

Definition
04337 0 07400 4 01707 2121 C1201 TSX C0190,4 * OBTAIN NB CHAR FOLLOWING RPAREN. 4F12183

References (2)

D	04327	1 00000 0 04337	2113		TXI	C1201,0 GO TO TEST FOR END OF STATEMENT.	4F12175
D	04333	1 00000 0 04337	2117		TXI	C1201,0 GO TO TEST FOR END 0F STATEMENT.	4F12179

␣C1210 = 2264

Definition
04330 0 50000 0 01112 2114 C1210 CLA 1G IF 1 DIMENSION, PUT D1 4F12176
Reference
04307 0 10000 0 04330 2097 TZE C1210 THEN 4F12157

␣C1220 = 2268

Definition
04334 0 50000 0 01112 2118 C1220 CLA 1G IF 2 DIMENSION, PUT D2 IN 4F12180
Reference
04315 0 10000 0 04334 2103 TZE C1220 THEN 4F12164

␣C1280 = 2239

Definition
04277 0 07400 4 01775 2089 C1280 TSX DIM2SR,4 * GO SEAROH DIM2 TABLE. 4F12148
Reference
04275 0 02000 0 04277 2087 TRA C1280 THEN IF NOT 4F12146

␣C1281 = 2242

Definition
04302 0 07400 4 02005 2092 C1281 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F12151
Reference
04300 0 02000 0 04302 2090 TRA C1281 THEN IF NOT 4F12149

␣C1282 = 2245

Definition
04305 0 07400 2 01654 2095 C1282 TSX C0180X,2 * GO FORM BINARY EQUIV OF D1. 4F12154
Reference
04303 0 02000 0 04305 2093 TRA C1282 DO NOT CONTINUE IF 4F12152

␣C1299 = 2244

Definition
04304 0 07400 4 03400 2094 C1299 TSX DIAG,4 * VARIABLE PREVIOUSLY APPEARED. 4F12153

References (2)

	04276	0 02000 0 04304	2088		TRA	C1299 FOUND,	4F12147
	04301	0 02000 0 04304	2091		TRA	C1299 FOUND,	4F12150

␣C1300 = 2275

Definition

		2125			END OF PROGRAM C1200.	4F12187
		2126			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12188
		2127				4F12189
		2128			C1300/ CALLS=C0901,TET00,CIT00.	4F12190
		2129			C1300 PROCESSES STOP STATEMENTS.	4F12191
04343	0 07400 1 03321	2130	C1300	TSX	TET00,1 * GO MAKE EIFNO ENTRY	4F12192

Reference
D 06257 1 00000 0 04343 3343 TXI C1300,0 STOP. 4F13395

␣C1400 = 2284

Definition

		2139			END OF PROGRAM C1300.	4F12201
		2140			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12202
		2141				4F12203
		2142			C1400/ CALLS=C0190,C0180,TEST..,TET00.	4F12204
		2143			C1400 PROCESSES FREQUENCY STATEMENTS.	4F12205
04354	0 07400 2 01654	2144	C1400	TSX	C0180X,2 * GO FORM BINARY EQUIV OF EFN.	4F122006

References (2)

	04373	−0 10000 0 04354	2159		TNZ	C1400 IF ENDMARK, THIS STATEMENT IS DONE.	4F12223
D	06264	−3 00000 0 04354	3348		TXL	C1400,0 FREQUENCY.	4F13400

␣C1401 = 2290

Definition
04362 0 07400 2 01654 2150 C1401 TSX C0180X,2 * GO FORM BINARY EQUIV OF M(1). 4F12213
Reference
04370 −0 10000 0 04362 2156 TNZ C1401 IF RIGHT PARENTHESIS, THEN 4F12220

␣C1500 = 2301

Definition

		2161			END OF PROGRAM C1400.	4F12225
		2162			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12226
		2163				4F12227
		2164			C1500/ CALLS=C0190,TEST..,C0160,C01B0,TET00.	4F12228
		2165			C1500 PROCESSES EQUIVALENCE STATEMENTS.	4F12229
04375	0 07400 4 01707	2166	C1500	TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC.	4F12230

References (2)

	04431	−0 10000 0 04375	2194		TNZ	C1500 IF ENDMARK, THEN	4F12259
D	06263	−3 00000 0 04375	3347		TXL	C1500,0 EQUIVALENCE.	4F13399

␣C1501 = 2303

Definition
04377 0 50000 0 01407 2168 C1501 CLA L(1) INITIALIZE 1C 4F12232
Reference
D 04422 1 00000 0 04377 2187 TXI C1501,0 RETURN TO CONTINUE PROCESSING X. 4F12252

␣C1502 = 2313

Definition
04411 0 07400 2 01654 2178 C1502 TSX C0180X,2 * GO FORM BINARY EQUIV OF N. 4F12242
Reference
D 04407 1 00000 0 04411 2176 TXI C1502,0 CHARACTER IS A LEFT PARENTHESIS, 4F12240

␣C1503 = 2318

Definition
04416 0 07400 4 03255 2183 C1503 TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. 4F12248

References (2)

D	04406	1 00000 0 04416	2175		TXI	C1503,0 AND IF	4F12239
D	04410	1 00000 0 04416	2177		TXI	C1503,0 THEN	4F12241

␣C1504 = 2323

Definition
04423 0 50200 0 01106 2188 C1504 CLS 1C+1 MAKE SIGN OF N MINUS SINCE 4F12253
Reference
04417 0 10000 0 04423 2184 TZE C1504 IF COMMA, THEN 4F12249

␣C1600 = 2331

Definition

		2196			END OF PROGRAM C1500.	4F12261
		2197			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12262
		2198				4F12263
		2199			C1600/ CALLS=C0190,TEST..,GIF,BSS.	4F12264
		2200			C1600 PROCESSES CONTINUE STATEMENTS.	4F12265
04433	0 07400 4 01707	2201	C1600	TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC.	4F12266

Reference
D 06265 1 00000 0 04433 3349 TXI C1600,0 CONTINUE. 4F13401

␣C3000 = 2338

Definition
04442 −0 53400 4 00030 2213 C3000 LXD EIFNO,4 EXAMINE INTERNAL FORMULA NO., AND 4F12278
Reference
D 06303 −3 00000 0 04442 3363 TXL C3000,0 SUBROUTINE. 4F13415

␣C3001 = 2358

Definition
04466 0 40000 0 01374 2233 C3001 ADD ENDMK IF NOT ENDMARK, RESTORE CHARACTER 4F12298
Reference
04510 −0 10000 0 04466 2251 TNZ C3001 GO PROCESS NEXT ARGUMENT. 4F12316

␣C3002 = 2374

Definition
04506 0 07400 4 01707 2249 C3002 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. 4F12314
Reference
D 04465 1 00000 0 04506 2232 TXI C3002,0 GO TEST FOR END OF STATEMENT. 4F12297

␣C3003 = 2348

Definition
D 04454 −3 00000 0 04457 2223 C3003 TXL *+3,0 4F12288
Reference
04441 0 63000 0 04454 2212 STP C3003 4F12277

␣C3004 = 2369

Definition
04501 0 07400 1 03321 2244 C3004 TSX TET00,1 * IN BOTH CASES, MAKE ENTRIES IN 4F12309
Reference
D 04476 1 00000 0 04501 2241 TXI C3004,0 IF FLOATING PT., SKIP FORVAL ENTRY. 4F12306

␣C3100 = 2378

Definition

		2253			END OF PROGRAM C3000.	4F12318
		2254			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12319
		2255				4F12320
		2256			C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00.	4F12321
		2257			C3100 PROCESSES COMMON STATEMENTS.	4F12322
04512	0 07400 4 01707	2258	C3100	TSX	C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL	4F12323

References (2)

	04534	3 00000 4 04512	2276	C3101	TXH	C3100,4,0 IF CHARACTER WAS COMMA, REPEAT.	4F123303
D	06304	−3 00000 0 04512	3364		TXL	C3100,0 COMMON.	4F13416

␣C3101 = 2396

Definition
04534 3 00000 4 04512 2276 C3101 TXH C3100,4,0 IF CHARACTER WAS COMMA, REPEAT. 4F123303

References (2)

	04522	0 10000 0 04534	2266		TZE	C3101 INDICATE THIS IS NOT A	4F123292
	04531	0 02000 0 04534	2273		TRA	C3101 VARIABLES	4F12330

␣C3200 = 2398

Definition

		2278			END OF PROGRAM C3100.	4F12332
		2279			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12333
		2280				4F12334
		2281			C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF).	4F12335
		2282			C3200 PROCESSES RETURN STATEMENTS.	4F12336
04536	0 07400 4 01707	2283	C3200	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F12337

Reference
D 06305 1 00000 0 04536 3365 TXI C3200,0 RETURN. 4F13417

␣C3300 = 2439

Definition

		2324			END OF PROGRAM C3200.	4F12378
		2325			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12379
		2326				4F12380
		2327			C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00.	4F12381
		2328			C3300 PROCESSES CALL STATEMENTS.	4F12382
04607	0 07400 4 01707	2329	C3300	TSX	C0190,4 * IF 1ST CHARACTER OF NAME IS	4F12383

Reference
D 06306 1 00000 0 04607 3366 TXI C3300,0 CALL. 4F13418

␣C3301 = 2458

Definition
04632 0 07400 4 03224 2348 C3301 TSX SUBX00,4 * IF THERE ARE NO ARGUMENTS, THEN 4F12402
Reference
04613 0 10000 0 04632 2333 TZE C3301 IF LPAREN, THEN CHANGE CALL TO A 4F12387

␣C3351 = 3537

Definition
06721 0 53400 1 01414 3666 C3351 LXA L(6),1 SET TO COLLECT SIX CHARS 4F13714
Reference
06745 1 00000 0 06721 3686 C3357 TXI C3351,0,** RETURN TO CONTINUE COLLECTING 4F13734

␣C3352 = 3539

Definition
06723 −2 00001 4 06736 3668 C3352 TNX C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU 4F13716
Reference
06735 0 02000 0 06723 3678 TRA C3352 NOT SIX CHARS YET, CONTINUE COLLECTING 4F13726

␣C3353 = 3546

Definition
06732 −0 50000 0 01112 3675 C3353 CAL 1G RETREIVE WORD 4F13723
Reference
06730 −0 10000 0 06732 3673 TNZ C3353 4F13721

␣C3354 = 3550

Definition
06736 −0 53400 4 01614 3679 C3354 LXD FWA,4 L0AD MQ WITH NEXT F REGION WORD 4F13727
Reference
06723 −2 00001 4 06736 3668 C3352 TNX C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU 4F13716

␣C3355 = 3553

Definition
06741 −0 63400 4 01614 3682 C3355 SXD FWA,4 4F13730
Reference
06740 1 77777 4 06741 3681 TXI C3355,4,−1 UPDATE FWA 4F13729

␣C3356 = 3556

Definition
06744 0 07400 1 07322 3685 C3356 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13733
Reference
06734 −2 00001 1 06744 3677 TNX C3356,1,1 TEST FOR SIX CHARS COLLECTED 4F13725

␣C3357 = 3557

Definition
06745 1 00000 0 06721 3686 C3357 TXI C3351,0,** RETURN TO CONTINUE COLLECTING 4F13734

References (2)

	07322	−0 63400 1 06745	3927	C3390	SXD	C3357,1 SAVE CALLING IR	4F13975
	07331	−0 53400 1 06745	3934		LXD	C3357,1 RELOAD CALLING IR	4F13982

␣C3358 = 3558

Definition
06746 −0 60000 0 01365 3687 C3358 STQ RESIDU UPDATE RESIDU 4F13735
Reference
06733 −2 00001 2 06746 3676 TNX C3358,2,1 TEST FOR ALL CHARS COLLECTED 4F13724

␣C3359 = 3562

Definition
06752 −0 76300 0 00006 3691 C3359 LGL 6 ADD BLANKS 4F13739
Reference
06753 2 00001 1 06752 3692 TIX C3359,1,1 4F13740

␣C3360 = 3564

Definition
06754 0 07400 1 07322 3693 C3360 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13741
Reference
06750 −2 00001 1 06754 3689 TNX C3360,1,1 TEST FOR SIX CHARS IN AC, DEC IR1 4F13737

␣C3390 = 3794

Definition

		3924			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13972
		3925				4F13973
		3926			CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE	4F13974
07322	−0 63400 1 06745	3927	C3390	SXD	C3357,1 SAVE CALLING IR	4F13975

References (3)

06744	0 07400 1 07322	3685	C3356	TSX	C3390,1 GO TO ENTER WORD IN HOLARG TABLE	4F13733
06754	0 07400 1 07322	3693	C3360	TSX	C3390,1 GO TO ENTER WORD IN HOLARG TABLE	4F13741
06756	0 07400 1 07322	3695		TSX	C3390,1 GO TO ENTER WORD IN HOLARG TABLE	4F13743

␣C3400 = 2480

Definition

		2370			END OF PROGRAM C3300.	4F12424
		2371			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12425
		2372				4F12426
		2373			C3400/ CALLS=C0190,DIAG,TEST...	4F12427
		2374			C3400 PROCESSES END STATEMENTS.	4F12428
04660	0 53400 2 01413	2375	C3400	LXA	L(5),2 PREPARE TO SET 5 SS S1MULATORS.	4F12429

Reference
D 06307 −3 00000 0 04660 3367 TXL C3400,0 END. 4F13419

␣C3405 = 2481

Definition
04661 0 07400 4 01707 2376 C3405 TSX C0190,4 * PICKUP CONSTANT, 4F12430
Reference
04667 2 00001 2 04661 2382 TIX C3405,2,1 REPEAT PROCESS FOR 5 CONSTANTS. 4F12436

␣C3410 = 2486

Definition
04666 0 07400 4 01707 2381 C3410 TSX C0190,4 * SKIP NEXT NON-BLANK CHARACTER, AND 4F12435
Reference
D 04664 1 00000 0 04666 2379 TXI C3410,0 SIMULATOR IS PRESET TO 2. 4F12433

␣C3500 = 2336

Definition

		2206			END OF PROGRAM C1600.	4F12271
		2207			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12272
		2208				4F12273
		2209			C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX.	4F12274
		2210			C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS.	4F12275
04440	−0 50000 0 00422	2211	C3500	CAL	TXHOP	4F12276

Reference
D 06310 −3 00000 0 04440 3368 TXL C3500,0 FUNCTION. 4F13420

␣CA010 = 1824

Definition

		1584			CA000/ CALLS=CA100,SR6DC1,TET00,DIAG.	4F11641
		1585			CA000 ASSEMBLES STATEMENT IN THE F-REGION ANO ASSIGNS AN IFN.	4F11642
03440	−0 53400 4 02575	1586	CA010	LXD	ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN	4F11643

References (18)

	00503	0 02000 0 03440	1489		TRA	CA010 * GO BEGIN STATE A OF SECTION ONE.	4F11541
D	03717	1 00000 0 03440	1785		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F11842
	04032	1 00372 0 03440	1867	CTRAD	TXI	CA010,0,250 * EXIT TO PROCESS NEXT STATEMENT.	4F11924
	04175	1 74341 0 04202	2007	C090X	TXI	C0903,0,−CA010+1 IF NOT END OF STATEMENT, THEN	4F12064
D	04265	1 00000 0 03440	2074		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12133
D	04342	1 00000 0 03440	2124		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12186
D	04353	1 00000 0 03440	2138		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12200
D	04374	1 00000 0 03440	2160		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12224
D	04432	1 00000 0 03440	2195		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12260
D	04437	1 00000 0 03440	2205		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12270
D	04511	1 00000 0 03440	2252		TXI	CA010,0 * OTHERWISE, EXIT TO CA000.	4F12317
D	04535	1 00000 0 03440	2277		TXI	CA010,0 * IF ENDMK, EXIT TO CA000.	4F12331
D	04606	1 00000 0 03440	2323		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12377
D	04657	1 00000 0 03440	2369		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12423
D	04672	1 00000 0 03440	2385		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12439
	05135	0 10000 0 03440	2623		TZE	CA010 * EXIT TO PROCESS NEXT STATEMENT.	4F12677
	05573	0 10000 0 03440	2967		TZE	CA010 * EXIT TO PROCESS NEXT STATEMENT.	4F13021
D	05602	1 00000 0 03440	2974		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F13028

␣CA013 = 1828

Definition
03444 −0 63400 1 00030 1590 CA013 SXD EIFNO,1 UP TO DATE BY ADDING 1. 4F11647
Reference
03443 1 00001 1 03444 1589 TXI CA013,1,1 (DECR PART OF EIFNO) 4F11646

␣CA015 = 1854

Definition
03476 0 76500 0 00043 1616 CA015 LRS 35 GO TO CONVERSION SUBROUTINE AND 4F11673
Reference
03474 0 02000 0 03476 1614 TRA CA015 NOT COMPARE. 4F11671

␣CA018 = 1833

Definition
03451 0 53400 2 01400 1595 CA018 LXA L(11),2 SET UP LOOP FOR 11 CYCLES. 4F11652
Reference
03463 −0 10000 0 03451 1605 TNZ CA018 OTHERWISE CONTINUE. 4F11662

␣CA019 = 1834

Definition
03452 0 56000 2 01347 1596 CA019 LDQ FT+12,2 MOVE WORD FROM REG1ON FT 4F11653
Reference
03455 2 00001 2 03452 1599 CA020 TIX CA019,2,1 TEST END OF LOOP. 4F11656

␣CA020 = 1837

Definition
03455 2 00001 2 03452 1599 CA020 TIX CA019,2,1 TEST END OF LOOP. 4F11656
Reference
03454 2 00001 1 03455 1598 TIX CA020,1,1 KEEP F-REGION ADDRESS UP-TO-DATE. 4F11655

␣CA021 = 1844

Definition
03464 0 50000 0 01526 1606 CA021 CLA BLANKS BEGIN SCANNING REGION F BACKWARDS 4F11663
Reference
03461 0 10000 0 03464 1603 TZE CA021 IF ZERO OR BLANK, 4F11660

␣CA022 = 1845

Definition
03465 0 34000 1 77777 1607 CA022 CAS −1,1 T0 FIND FIRST NON BLANK WORD. 4F11664
Reference
03467 1 00001 1 03465 1609 TXI CA022,1,1 BLANK, SO CONTINUE SCAM. 4F11666

␣CA023 = 1848

Definition
03470 0 56000 0 01531 1610 CA023 LDQ 36ONES PLACE BINARY ONES IN FIRST WORD 4F11667
Reference
03466 0 02000 0 03470 1608 TRA CA023 NOT BLANK. 4F11665

␣CA100 = 3010

Definition

		3064			END OF PROGRAM BSS.	4F13116
		3065			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13117
		3066				4F13118
		3067			CA100,4/ CALLS=DIAG. CALLER=CA000.	4F13119
		3068			CA100 READS NEXT S0URCE PROGRAM CARD (1 TAPE RECORD).	4F13120
05702	0 53400 2 01413	3069	CA100	LXA	TERC,2 PREPARE TO C0UNT	4F13121

References (4)

00502	0 07400 4 05702	1488	DMWR99	TSX	CA100,4 * GO TO SUBROUTINE TO LOAD FT REGION.	4F11540
03456	0 07400 4 05702	1600		TSX	CA100,4 * GO READ NEXT NON-BLANK CARD.	4F11657
05732	0 02000 0 05702	3094		TRA	CA100 IF BLANK, GO TO READ NEXT CARD.	4F13146
05736	0 10000 0 05702	3098		TZE	CA100 TEST FOR COMMENT CARD.	4F13150

␣CA101 = 3014

Definition
05706 0 76200 0 00202 3073 CA101 RDS 130 SELECT SOURCE TAPE FOR READING. 4F13125
Reference
05720 0 02000 0 05706 3084 TRA CA101 AND GO BACK TO READ AGAIN. 4F13136

␣CA102 = 3016

Definition
3075 C0PY LOOP. 4F13127

05710 0 70000 2 01347 3076 CA102 CPY FT+12,2 C0PY INTO FT REGION 4F13128
Reference
05721 2 00001 2 05710 3085 CA103 TIX CA102,2,1 TEST EXIT FROM LOOP. 4F13137

␣CA103 = 3025

Definition
05721 2 00001 2 05710 3085 CA103 TIX CA102,2,1 TEST EXIT FROM LOOP. 4F13137
Reference
05711 0 02000 0 05721 3077 TRA CA103 NEXT SOURCE PROGRAM CARD. 4F13129

␣CA112 = 3030

Definition
05726 0 50000 0 01526 3090 CA112 CLA BLANKS TEST 4F13142
Reference
05731 2 00001 2 05726 3093 TIX CA112,2,1 CARD. 4F13145

␣CA113 = 3035

Definition
05733 −0 50000 0 01333 3095 CA113 CAL FT IF NOT BLANK, 4F13147
Reference
05730 −0 10000 0 05733 3092 TNZ CA113 BLANK 4F13144

␣CA120 = 3040

Definition
05740 0 60000 0 01333 3100 CA120 STZ FT INDICATE THAT FINAL 4F13152
Reference
05712 0 02000 0 05740 3078 TRA CA120 END OF FILE, GO FINISH LAST STATEM. 4F13130

␣CA130 = 3019

Definition
05713 −0 53400 2 01112 3079 CA130 LXD 1G,2 TEST TAPE ERROR COUNTER 4F13131
Reference
D 05724 1 00000 0 05713 3088 TXI CA130,0 IF INCORRECT, GO CHECK ERROR C0UNT. 4F13140

␣CA131 = 3022

Definition
05716 −0 63400 2 01112 3082 CA131 SXD 1G,2 SAVE REDUCED VALUE IN COUNTER. 4F13134
Reference
05714 2 00001 2 05716 3080 TIX CA131,2,1 BY TRYING TO REDUCE BY 1. 4F13132

␣CB000 = 1906

Definition

		1673			END OF PROGRAM CD000.	4F11730
		1674			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11731
		1675				4F11732
		1676			CB000/ CALLS=C0190X,C0190,DIAG.	4F11733
		1677			CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC.	4F11734
03562	0 53400 1 01407	1678	CB000	LXA	L(1),1 SET XR1 TO COUNT PARENTHESES.	4F11735

Reference
D 03537 1 00000 0 03562 1654 TXI CB000,0 * EXIT TO ARITH/NON-ARITH SCAN. 4F11711

␣CB001 = 1908

Definition
03564 0 07400 4 01707 1680 CB001 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. 4F11737

References (3)

03572	1 00001 1 03564	1686		TXI	CB001,1,1 UPDATE PAREN-COUNT BY 1.	4F11743
03577	−0 10000 0 03564	1691		TNZ	CB001 GO EXAMINE NEXT CHARACTER.	4F11748
03614	2 00001 1 03564	1704	CB500	TIX	CB001,1,1 IF PAREN-COUNT DOES NOT BALANCE,	4F11761

␣CB005 = 1912

Definition
03570 0 34000 0 01375 1684 CB005 CAS ALPAR IF A LEFT PARENTHESIS, 4F11741
Reference
D 03566 1 00000 0 03570 1682 TXI CB005,0 THEN 4F11739

␣CB006 = 1915

Definition
03573 0 34000 0 01377 1687 CB006 CAS ARPAR IF A RIGHT PARENTHESIS, 4F11744
Reference
D 03571 1 00000 0 03573 1685 TXI CB006,0 THEN 4F11742

␣CB007 = 1918

Definition
03576 0 40200 0 01374 1690 CB007 SUB ENDMK IF NOT ENDMARK, THEN 4F11747
Reference
D 03574 1 00000 0 03576 1688 TXI CB007,0 THEN 4F11745

␣CB200 = 1921

Definition
03601 2 00001 1 03616 1693 CB200 TIX CC000,1,1 * IF EQUAL WAS,NOT WITHIN PARENS, 4F11750
Reference
D 03567 1 00000 0 03601 1683 TXI CB200,0 GO TEST PAREN-COUNT. 4F11740

␣CB201 = 1922

Definition
03602 0 07400 4 01707 1694 CB201 TSX C0190,4 * THEN EXAMINE NEXT CHARACTER. 4F11751
Reference
03612 −0 10000 0 03602 1702 TNZ CB201 GO EXAMINE NEXT CHARACTER. 4F11759

␣CB205 = 1926

Definition
03606 0 34000 0 01376 1698 CB205 CAS ACOMMA IF A COMMA, 4F11755
Reference
D 03604 1 00000 0 03606 1696 TXI CB205,0 THEN 4F11753

␣CB206 = 1929

Definition
03611 0 40200 0 01374 1701 CB206 SUB ENDMK IF NOT ENDMARK, THEN 4F11758
Reference
D 03607 1 00000 0 03611 1699 TXI CB206,0 THEN 4F11756

␣CB500 = 1932

Definition
03614 2 00001 1 03564 1704 CB500 TIX CB001,1,1 IF PAREN-COUNT DOES NOT BALANCE, 4F11761
Reference
D 03575 1 00000 0 03614 1689 TXI CB500,0 GO TEST PAREN-COUNT. 4F11746

␣CC000 = 1934

Definition

		1706			END 0F PROGRAM CB000.	4F11763
		1707			* * * * * * * * * * * * * * * . * * * * * * * * * * * * * * *	4F11764
		1708				4F11765
		1709			CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00.	4F11766
		1710			CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITH.ETIC.	4F11767
03616	0 60000 0 01113	1711	CC000	STZ	2G SET DICTIONARY WORD TAG, AND	4F11768

References (4)

D	03531	1 00000 0 03616	1648		TXI	CC000,0 * TO NON-ARITHMETIC CLASSIFICATI0N.	4F11705
D	03600	1 00000 0 03616	1692		TXI	CC000,0 * OTHERWISE, GO TO DIC LOOK-UP.	4F11749
	03601	2 00001 1 03616	1693	CB200	TIX	CC000,1,1 * IF EQUAL WAS,NOT WITHIN PARENS,	4F11750
D	03610	1 00000 0 03616	1700		TXI	CC000,0 * GO TO NO,-ARITHMETIC DIC LOOK-UP.	4F11757

␣CC001 = 1936

Definition
03620 0 07400 4 01671 1713 CC001 TSX C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11770
Reference
03643 1 77777 1 03620 1732 TXI CC001,1,−1 COUNT ENTRY, AND BEGIN AGAIN. 4=11789

␣CC002 = 1942

Definition
03626 0 07400 4 05743 1719 CC002 TSX CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11776
Reference
03637 0 10000 0 03626 1728 TZE CC002 THEN GO COMPARE NEXT CHARACTERS. 4F11785

␣CC004 = 1946

Definition
03632 0 60100 0 01105 1723 CC004 STO 1C OTHERWISE, SAVE CHARACTER 4F11780
Reference
D 03625 1 00000 0 03632 1718 TXI CC004,0 GO BEGIN COMPARISON. 4F11775

␣CC005 = 1952

Definition
03640 0 07400 4 05743 1729 CC005 TSX CC500,4 * OTHERWISE, EXAMINE NEXT DIC CHAR. 4F11786
Reference
03642 −0 10000 0 03640 1731 TNZ CC005 FOUND, THEN 4F11788

␣CC007 = 1956

Definition
03644 0 50000 1 06246 1733 CC007 CLA T,1 IF THE CURRENT STATEMENT IS 4F11790
Reference
D 03631 1 00000 0 03644 1722 TXI CC007,0 IF END OF ENTRY, LOOK NO FURTHER. 4F11779

␣CC008 = 1962

Definition
03652 0 02000 1 06246 1739 CC008 TRA T,1 * TAKE INDICATED TRANSFER. 4F11796

␣CC500 = 3043

Definition

		3103			END OF PROGRAM CA100.	4F13155
		3104			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13156
		3105				4F13157
		3106			CC500,4/ CALLER=CC000.	4F13158
		3107			CC500 BRINGS NEXT CHARACTER OF DICTIONARY INTO AC(30-35).	4F13159
05743	−0 75400 0 00000	3108	CC500	PXD	,0 CLEAR THE AC.	4F13160

References (3)

03621	0 07400 4 05743	1714		TSX	CC500,4 * EXAMINE NEXT DICTI0NARY CHARACTER.	4F11771
03626	0 07400 4 05743	1719	CC002	TSX	CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER.	4F11776
03640	0 07400 4 05743	1729	CC005	TSX	CC500,4 * OTHERWISE, EXAMINE NEXT DIC CHAR.	4F11786

␣CC501 = 3048

Definition
05750 −0 63400 2 01113 3113 CC501 SXD 2G,2 DICTIONARY WORD TAG, AND 4F13165
Reference
05747 1 77777 2 05750 3112 TXI CC501,2,−1 RESET THE 4F13164

␣CC502 = 3050

Definition
05752 −0 76300 0 00006 3115 CC502 LGL 6 SMIFT CHAR INTO AC(30-35), 4F13167
Reference
05744 2 00001 2 05752 3109 TIX CC502,2,1 IF NO DICTIONARY CHARACTERS 4F13161

␣CCOMP = 2668

Definition
05154 0 34000 4 01406 2651 CCOMP CAS CTEST,4 COMPARE CHARACTER WITH CONSTANTS. 4F12705
Reference
05157 2 00001 4 05154 2654 TIX CCOMP,4,1 CONTINUE THROUGH PUNCTUATION. 4F12708

␣CD000 = 1859

Definition

		1621			END OF PROGRAM CA000.	4F11678
		1622			* * , * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11679
		1623				4F11680
		1624			CD000/ CALLS=C0190X,C0190,DIAG.	4F11681
		1625			CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS.	4F11682
03503	0 07400 4 01671	1626	CD000	TSX	C0190X,4 * SET SCAN TO PICK UP 1ST CHARACTER.	4F11683

Reference
03475 0 02000 0 03503 1615 TRA CD000 * TAKE EXTFORMNO, IF ANY, AND 4F11672

␣CD001 = 1860

Definition
03504 0 07400 1 03534 1627 CD001 TSX CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER 4F11684

References (4)

	03511	−0 10000 0 03504	1632	TNZ	CD001 WHICH	4F11689
	03514	0 12000 0 03504	1635	TPL	CD001 OR = ( N H.	4F11692
D	03523	1 00000 0 03505	1642	TXI	CD001+1,0 POINT	4F11699
D	03525	1 00000 0 03505	1644	TXI	CD001+1,0 X	4F11701

␣CD002 = 1864

Definition
03510 0 40200 0 01375 1631 CD002 SUB OPEN SPECIFICATION 4F11688
Reference
D 03506 1 00000 0 03510 1629 TXI CD002,0 FOR 4F11686

␣CD003 = 1866

Definition
03512 0 07400 1 03534 1633 CD003 TSX CD900,1 * CAN BE= 4F11690
Reference
D 03507 1 00000 0 03512 1630 TXI CD003,0 HOLLERITH 4F11687

␣CD004 = 1869

Definition
03515 0 07400 1 03534 1636 CD004 TSX CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER 4F11693

References (2)

D	03520	1 00000 0 03515	1639		TXI	CD004,0 IS	4F11696
D	03521	1 00000 0 03515	1640		TXI	CD004,0 A	4F11697

␣CD005 = 1874

Definition
03522 0 34000 0 01423 1641 CD005 CAS L(H) FIXED 4F11698
Reference
D 03517 1 00000 0 03522 1638 TXI CD005,0 N 4F11695

␣CD600 = 1891

Definition
03543 0 34000 0 01435 1658 CD600 CAS PM CMECK FOR RECORD MARK 4F11715
Reference
03532 0 07400 1 03543 1649 CD701 TSX CD600,1 * SINCE HOLLERITH HAS BEEN FOUND, 4F11706

␣CD601 = 1894

Definition
03546 0 34000 0 01426 1661 CD601 CAS CHAR3 CHECK FOR MINUS ZERO 4F11718
Reference
D 03541 1 00000 0 03546 1656 TXI CD601,0 WHICH, UNLESS HOLLERITH, IS AN 4F11713

␣CD700 = 1878

Definition
03526 0 07400 4 01707 1645 CD700 TSX C0190,4 * G0 GET NEXT NONBLANK CHARACTER, 4F11702

References (2)

D	03524	1 00000 0 03526	1643		TXI	CD700,0 INTEGER.	4F11700
D	03533	1 00000 0 03526	1650		TXI	CD700,0 THEN S IS LEGAL IN FORMAT TEXT.	4F11707

␣CD701 = 1882

Definition
03532 0 07400 1 03543 1649 CD701 TSX CD600,1 * SINCE HOLLERITH HAS BEEN FOUND, 4F11706
Reference
D 03530 1 00000 0 03532 1647 TXI CD701,0 THEN SKIP 4F11704

␣CD800 = 1888

Definition
03540 0 34000 0 01427 1655 CD800 CAS SPECOP CMECK FOR S 4F11712
Reference
D 03536 1 00000 0 03540 1653 TXI CD800,0 ENDMARK, THEN SKIP 4F11710

␣CD900 = 1884

Definition
03534 0 07400 4 01707 1651 CD900 TSX C0190,4 * OBTAIN NEXT NONBLANK CHARACTER, 4F11708

References (3)

03504	0 07400 1 03534	1627	CD001	TSX	CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER	4F11684
03512	0 07400 1 03534	1633	CD003	TSX	CD900,1 * CAN BE=	4F11690
03515	0 07400 1 03534	1636	CD004	TSX	CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER	4F11693

␣CEXIT = 2670

Definition
05156 0 02000 4 00000 2653 CEXIT TRA **,4 * CONTROL CHAR, EXIT TO TRA LIST. 4F12707
Reference
05146 0 62100 0 05156 2643 CXS STA CEXIT FOR LIST SCAN. 4F12697

␣CHAR2 = 788

Definition
01424 +000000000032 345 CHAR2 OCT 32 CONSTANT USED BY CD000. 4F10335
Reference
03551 0 34000 0 01424 1664 CAS CHAR2 CHECK FOR PLUS ZERO 4F11721

␣CHAR3 = 790

Definition
01426 +000000000052 347 CHAR3 OCT 52 CONSTANT USED BY CD000. 4F10337
Reference
03546 0 34000 0 01426 1661 CD601 CAS CHAR3 CHECK FOR MINUS ZERO 4F11718

␣CHCTR = 980

Definition
01724 1 00000 0 01712 584 CHCTR TXI C0191,0,** GO EXAMINE NEXT CHARACTER. 4F10573

References (9)

01673	−0 63400 0 01724	547		SXD	CHCTR,0 SET CHARACTER C0UNT = 0,	4F10536
01677	−0 53400 1 01724	557		LXD	CHCTR,1 IN THE F-REGION.	4F10546
01710	−0 53400 1 01724	572		LXD	CHCTR,1 SET XR1 = CHARACTER COUNT.	4F10561
01725	−0 63400 1 01724	585	C0195	SXD	CHCTR,1 IF NOT BLANK, RESET CHAR COUNT,	4F10574
02661	−0 53400 4 01724	1050		LXD	CHCTR,4 RESET CHARACTER COUNTER	4F11073
02663	−0 63400 4 01724	1052	SS0018	SXD	CHCTR,4 SUBSCRIPT MULTIPLIER.	4F11075
05117	−0 53400 1 01724	2609		LXD	CHCTR,1 SET XR1 = CHARACTER COUNT.	4F12663
06717	−0 53400 4 01724	3664		LXD	CHCTR,4 GET CURRENT RESIDUE CHAR COUNT	4F13712
06747	−0 63400 4 01724	3688		SXD	CHCTR,4 UPDATE CHCTR	4F13736

␣CIT00 = 985

Definition

		589			END OF PROGRAM C0190.	4F10578
		590			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10579
		591				4F10580
		592			CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600,	4F10581
		593			C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT),	4F10582
		594			ETMSW(LTMSWI,LIB,VRA(VRD).	4F10583
		595			CIT00 MAKES ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN	4F10584
		596			THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3.	4F10585
01731	−0 63400 2 01102	597	CIT00	SXD	CITXR2,2 SAVE THE C(XR2).	4F10586

References (42)

	03424	0 07400 4 01731	1453	FLTR04	TSX	CIT00,4	4F11457K
	03431	0 07400 4 01731	1458		TSX	CIT00,4	4F11457P
D	03437	1 00000 4 01731	1464	FLTR05	TXI	CIT00,4 GO COMPILE LXD M(,4 OR 7(TYPE=,4	4F11457V
	03776	0 07400 4 01731	1838		TSX	CIT00,4 * G0 MAKE THE FOLLOWING CIT ENTRY=	4F11895
	04023	0 07400 4 01731	1859		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F11916
	04142	0 07400 4 01731	1952		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12009
	04210	0 07400 4 01731	2018		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12075
	04236	0 07400 4 01731	2046		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12104
	04243	0 07400 4 01731	2051		TSX	CIT00,4 * STORE SECOND COMPILED INSTRUCTION=	4F12109
	04260	0 07400 4 01731	2069		TSX	CIT00,4 * G0 MAKE THE FOLLOWING CIT ENTRY=	4F12128
	04346	0 07400 4 01731	2133		TSX	CIT00,4 * GO MAKE FOLLOWING CIT ENTRY=	4F12195
	04547	0 07400 4 01731	2292		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12346
	04555	0 07400 4 01731	2298		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12352
	04562	0 07400 4 01731	2303		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12357
	04567	0 07400 4 01731	2308		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12362
	04574	0 07400 4 01731	2313		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12367
	04601	0 07400 4 01731	2318		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12372
	04640	0 07400 4 01731	2354		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12408
	04645	0 07400 4 01731	2359		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12413
	05674	0 07400 4 01731	3058	BSS	TSX	CIT00,4 * GO MAKE FOLLOWING CIT ENTRY=	4F13110
	11260	0 07400 4 01731	4958		TSX	CIT00,C YES - COMPILE FOUR 36 - BIT	4F15008
	11440	0 07400 4 01731	5070		TSX	CIT00,C COMPILE LRS 35	4F15120
	11455	0 07400 4 01731	5083		TSX	CIT00,C COMPILE CLM	4F15133
	11462	0 07400 4 01731	5088		TSX	CIT00,C COMPILE LLS 18	4F15138
	11531	0 07400 4 01731	5127		TSX	CIT00,C COMPILE ALS 17	4F15177
	11561	0 07400 4 01731	5151	CP2100	TSX	CIT00,C 1ST ARG IN ACC	4F15201
	11604	0 07400 4 01731	5170	CP2250	TSX	CIT00,C 2ND ARG IN MQ	4F15220
	11631	0 07400 4 01731	5191		TSX	CIT00,C COMPILE STO 4...TYPE NO. + J-2, J=4,...	4F15241
	12243	0 07400 4 01731	5459		TSX	CIT00,C COMPILE ARS 18	4F15519
	12250	0 07400 4 01731	5464		TSX	CIT00,C COMPILE ADD *-2	4F15524
	12433	0 07400 4 01731	5579	ES0990	TSX	CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN	4F15639
	12440	0 07400 4 01731	5584		TSX	CIT00,C	4F15644
	12445	0 07400 4 01731	5589		TSX	CIT00,C	4F15649
	12452	0 07400 4 01731	5594		TSX	CIT00,C	4F15654
	12457	0 07400 4 01731	5599		TSX	CIT00,C	4F15659
	12502	0 07400 4 01731	5618	ES0440	TSX	CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN	4F15678
	12507	0 07400 4 01731	5623		TSX	CIT00,C	4F15683
	12514	0 07400 4 01731	5628		TSX	CIT00,C	4F15688
	12567	0 07400 4 01731	5671		TSX	CIT00,C COMPILE LLS 37	4F15731
	12574	0 07400 4 01731	5676		TSX	CIT00,4	4F15736
	12621	0 07400 4 01731	5698	COMP	TSX	CIT00,C	4F15758
		01731	5838	CIT	SYN	CIT00	4F15890

␣CIT01 = 994

Definition
01742 0 70000 1 00640 606 CIT01 CPY CIB,1 COPY SUCCESSIVE 4F10595
Reference
01745 3 00001 2 01742 609 CIT03 TXH CIT01,2,1 UNTIL XR2 = 0. 4F10598

␣CIT02 = 996

Definition
01744 1 00001 2 01745 608 CIT02 TXI CIT03,2,1 AND CONTINUE 4F10597
Reference
01743 1 77777 1 01744 607 TXI CIT02,1,−1 WORDS OF BLOCK 4F10596

␣CIT03 = 997

Definition
01745 3 00001 2 01742 609 CIT03 TXH CIT01,2,1 UNTIL XR2 = 0. 4F10598
Reference
01744 1 00001 2 01745 608 CIT02 TXI CIT03,2,1 AND CONTINUE 4F10597

␣CIT04 = 999

Definition
01747 0 53400 1 01412 611 CIT04 LXA L(4),1 SET XR1 = ENTRY SIZE. 4F10600
Reference
01737 −0 10000 0 01747 603 TNZ CIT04 IF BLOCK IS NOT FULL,GO MAKE ENTRY. 4F10592

␣CIT05 = 1000

Definition
01750 1 77777 4 01751 612 CIT05 TXI CIT05+1,4,−1 SET XR4 = -(ADDR OF NEXT ENTRY WRD) 4F10601

References (2)

	01750	1 77777 4 01751	612	CIT05	TXI	CIT05+1,4,−1 SET XR4 = -(ADDR OF NEXT ENTRY WRD)	4F10601
	01756	2 00001 1 01750	618	CIT07	TIX	CIT05,1,1 WHEN DONE,	4F10607

␣CIT06 = 1003

Definition
01753 0 50000 0 00000 615 CIT06 CLA ** MOVE ENTRY 4F10604
Reference
01752 0 62100 0 01753 614 STA CIT06 TO SET NEXT ADDRESS. 4F10603

␣CIT07 = 1006

Definition
01756 2 00001 1 01750 618 CIT07 TIX CIT05,1,1 WHEN DONE, 4F10607
Reference
01755 1 77777 2 01756 617 TXI CIT07,2,−1 AND C0UNT -1 FOR EACH WORD ENTERED. 4F10606

␣CLOAD = 2667

Definition
05153 0 53400 4 02652 2650 CLOAD LXA CTESTX,4 SET XR4 TO PICK CONTROL CHARACTERS. 4F12704

␣COMMA = 766

Definition
01376 +000000000073 321 COMMA OCT 73 , - CTEST-8 4F10311

References (5)

03247	0 34000 0 01376	1316	TESTA0	CAS	COMMA	4F11339
03255	0 34000 0 01376	1323	TESTB0	CAS	COMMA	4F11346
03305	0 34000 0 01376	1352	TESTG0	CAS	COMMA	4F11375
03505	0 34000 0 01376	1628		CAS	COMMA SCAN	4F11685
	01376	5828	ACOMMA	SYN	COMMA	4F15880

␣COMPR = 1181

Definition
02235 2 00000 2 02237 813 COMPR TIX COMPR+2,2,** (K*L) 4F10802

References (3)

02124	0 62200 0 02235	740		STD	COMPR X	4F10729
02142	−2 00001 1 02235	754	ADD02	TNX	COMPR,1,1 COMPUTES (N*L).	4F10743
02235	2 00000 2 02237	813	COMPR	TIX	COMPR+2,2,** (K*L)	4F10802

␣CTEST = 774

Definition
01406 329 CTEST BSS 0 ADDRESS USED FOR INDEXING ABOVE. 4F10319

References (7)

01630	0 34000 4 01406	499	C0162	CAS	CTEST,4 CHARACTER	4F10489
02644	0 34000 4 01406	1037	SS0015	CAS	CTEST,4 TEST THIS CHARACTER AGAINST	4F11060
02652	0 76100 0 00012	1043	CTESTX	NOP	CTEST−ENDMK FOUND TO BE NUMERIC,	4F11066
02705	0 34000 4 01406	1070	SS005	CAS	CTEST,4 TO ALL	4F11093
05154	0 34000 4 01406	2651	CCOMP	CAS	CTEST,4 COMPARE CHARACTER WITH CONSTANTS.	4F12705
06370	0 34000 4 01406	3447	MS051	CAS	CTEST,4	4F13496
06401	0 34000 4 01406	3456	MS071	CAS	CTEST,4 X	4F13505

␣CTRAD = 2074

Definition
04032 1 00372 0 03440 1867 CTRAD TXI CA010,0,250 * EXIT TO PROCESS NEXT STATEMENT. 4F11924

References (4)

03750	−0 53400 2 04032	1816		LXD	CTRAD,2 OBTAIN 250-(NO. TRAD ENTRIES), AND	4F11873
03760	−0 53400 2 04032	1824		LXD	CTRAD,2 REDUCE COUNTER	4F11881
03762	−0 63400 2 04032	1826	C0216	SXD	CTRAD,2 BY 1.	4F11883
03766	0 50000 0 04032	1830		CLA	CTRAD OBTAIN IN ADDR OF ACC 250-NO. OF	4F11887

␣DEC17 = 821

Definition
01465 0 00021 0 00000 378 DEC17 PZE ,,17 4F10368
Reference
11535 0 00000 0 01465 5131 HTR DEC17 4F15181

␣DEC18 = 822

Definition
01466 0 00022 0 00000 379 DEC18 PZE ,,18 4F10369

References (5)

11466	0 00000 0 01466	5092		HTR	DEC18	4F15142
12247	0 00000 0 01466	5463		HTR	DEC18	4F15523
12463	0 00000 0 01466	5603		HTR	DEC18	4F15663
12506	0 00000 0 01466	5622		HTR	DEC18	4F15682
	01466	5846	D18	SYN	DEC18	4F15898

␣DEC35 = 826

Definition
01472 0 00043 0 00000 383 DEC35 PZE ,,35 4F10373
Reference
11444 0 00000 0 01472 5074 HTR DEC35 4F15124

␣DECR1 = 813

Definition
01455 0 00001 0 00001 370 DECR1 PZE 1,,1 CONSTANT USED BY DRTABS. 4F10360
Reference
02207 0 40000 0 01455 791 ADD DECR1 JUST ADDED TO TABLE. 4F10780

␣DIMSR = 2846

Definition
05436 −0 50000 0 17403 2867 DIMSR CAL SA IF THIS VARIABLE 4F12921
Reference
05431 0 10000 0 05436 2862 TZE DIMSR IF THIS VARIABLE HAS A SUBSCRIPT, 4F12916

␣DIMSW = 1117

Definition
D 02135 −3 00000 0 02145 749 DIMSW TXL BUFF,0 IF DIM TABLE, SKIP SEARCH. 4F10738
Reference
02074 0 63000 0 02135 716 DRTABS STP DIMSW SET SNITCH. 4F10705

␣DMCN3 = 1078

Definition
02066 0 70000 0 01102 700 DMCN3 CPY D3 CONSTANT USED BY DIM.SR. 4F10689
Reference
02013 −0 50000 0 02066 656 CAL DMCN3 (CPY D3) 4F10645

␣DOLEV = 7936

Definition
17400 3378 DOLEV BSS 1 PARAMETERS FOR TLDOS TABLE -IOT. 4F13428

References (19)

05143	0 60000 0 17400	2638		STZ	DOLEV CLEAR DO LEVEL COUNTER.	4F12692
05224	0 60000 0 17400	2700		STZ	DOLEV	4F12754
05230	−0 50000 0 17400	2704	LPRD	CAL	DOLEV IF THE BEGINNING OF A DO NEST,	4F12758
05232	0 53400 4 17400	2706		LXA	DOLEV,4 TEST FOR NULL FORMULA.	4F12760
05242	−0 53400 4 17400	2714	LPR3	LXD	DOLEV,4 INCREASE THE C(DOLEV D)	4F12768
05245	0 60200 0 17400	2717		SLW	DOLEV TO ZERO.	4F12771
05250	0 60100 4 17400	2720		STO	DOLEV,4 THE LOCATI0N IN TLDO	4F12774
05256	−0 53400 4 17400	2726		LXD	DOLEV,4 IF 3 OR FEWER LEVELS IN LIST DO,	4F12780
05261	−0 53400 4 17400	2734	EQS	LXD	DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN,	4F12788
05264	−0 50000 4 17400	2737	EQS2	CAL	DOLEV,4 INITIALIZE SPECIFICATION	4F12791
05346	0 53400 4 17400	2797		LXA	DOLEV,4 EXAMINE DOLEV ADDRESS FOR ZERO TO	4F12851
05352	−0 53400 4 17400	2801	SPCR	LXD	DOLEV,4 DECREASE DOLEV D	4F12855
05355	0 60200 0 17400	2804		SLW	DOLEV THEN ALL LEVELS ARE NOT TREATED.	4F12858
05377	−0 53400 4 17400	2827	RPR	LXD	DOLEV,4 TEST LEGALITY OF 1.	4F12881
05402	−0 50000 4 17400	2830	RPS	CAL	DOLEV,4 NULLIFY DO AT CURRENT LEVEL.	4F12884
05421	0 53400 4 17400	2854	CMA7	LXA	DOLEV,4 IF DOLEV ADDRESS = 0, AND IF	4F12908
05424	−0 50000 0 17400	2857	CMA6	CAL	DOLEV IN ANY CASE,	4F12911
05426	0 60100 0 17400	2859		STO	DOLEV BY 1, AND THEN	4F12913
05550	−0 53400 4 17400	2946		LXD	DOLEV,4 CHECK THE NUMBER OF PARENTHESES.	4F13000

␣DRSYM = 576

Definition
01100 5858 DRSYM SYN ERASE COMMON WORKING STORAGE. 4F15914

References (4)

02026	0 70000 0 01100	667	DMSR04	CPY	DRSYM COPY DRUM SYMBOL.	4F10656
02033	0 34000 0 01100	672		CAS	DRSYM COMPARE DRUM SYMBOL WITH NAME OF V.	4F10661
02036	0 70000 0 01100	675		CPY	DRSYM CONTINUE	4F10664
02051	−0 50000 0 01100	686	DMSR09	CAL	DRSYM COMPUTE A	4F10675

␣E1TDR = 576

Definition
01100 5859 E1TDR SYN ERASE COMMON WORKING STORAGE. 4F15915

␣E2TDR = 577

Definition
01101 5861 E2TDR SYN ERASE+1 COMMON WORKING STORAGE. 4F15917

␣E3TDR = 578

Definition
01102 5863 E3TDR SYN ERASE+2 COMMON WORKING STORAGE. 4F15919

␣EIFNO = 24

Definition

		70			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10061
		71				4F10062
		72			EIFNO AND SENSE SWITCH SIMULATORS.	4F10063
00030	0 00000 0 00000	73	EIFNO	PZE	,, EXTERNAL,,INTERNAL FORMULA NUMBER.	4F10064

References (37)

00323	0 00001 0 00030	112		PZE	EIFNO,,1 A,,E.	4F10103
00375	0 00001 0 00030	168		PZE	EIFNO,,1 A,,E.	4F10159
00400	0 00001 0 00030	172		PZE	EIFNO,,1 A,,E.	4F10163
02366	−0 53400 1 00030	860	GETIFN	LXD	EIFNO,1 PLACE THE INTERNAL FORMULA	4F10849
02372	−0 50000 0 00030	870	JIF	CAL	EIFNO INCREASE THE	4F10859
02374	0 62200 0 00030	872		STD	EIFNO BY 1.	4F10861
02375	−0 50000 0 00030	874	GIF	CAL	EIFNO PICKUP IFN,	4F10863
03120	−0 50000 0 00030	1212	FTG000	CAL	EIFNO ENTER FORTAG=	4F11235
03402	0 50000 0 00030	1435		CLA	EIFNO GET LAST INTERNAL AND EXTERNAL FORMULA NOS.	4F114572
03442	−0 53400 1 00030	1588		LXD	EIFNO,1 KEEP INTERNAL FORMULA NUMBER	4F11645
03444	−0 63400 1 00030	1590	CA013	SXD	EIFNO,1 UP TO DATE BY ADDING 1.	4F11647
03500	0 62100 0 00030	1618		STA	EIFNO STORE RESULT IN ADDRESS OF EIFNO.	4F11675
04033	−0 53400 4 00030	1874	C0300	LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F11931
04123	−0 53400 4 00030	1937		LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F11994
04205	−0 53400 4 00030	2015		LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F12072
04442	−0 53400 4 00030	2213	C3000	LXD	EIFNO,4 EXAMINE INTERNAL FORMULA NO., AND	4F12278
04462	−0 53400 4 00030	2229		LXD	EIFNO,4 PLACE	4F12294
04626	0 50000 0 00030	2344		CLA	EIFNO PUT 1ST IFN OF THIS CALL IN CALLNM	4F12398
05113	−0 50000 0 00030	2605	FOR	CAL	EIFNO MOVE EXTERNAL FORMULA NUMBER	4F12659
05343	−0 50000 0 00030	2793		CAL	EIFNO ALS0 RESTORE INTERNAL FORMULA N0.	4F12847
05575	−0 60200 0 00030	2969		ORS	EIFNO OF EIFNO TO MINUS, AND	4F13023
05600	−0 50000 0 00030	2972		CAL	EIFNO THEN RESTORE	4F13026
05601	0 60100 0 00030	2973		STO	EIFNO EIFNO, AND	4F13027
05773	−0 50000 0 00030	3142	IFFIX	CAL	EIFNO SET	4F13194
06451	−0 50000 0 00030	3496		CAL	EIFNO ENTER INTERNAL FORMULA NO IN FORSUB.	4F13545
06615	−0 50000 0 00030	3598		CAL	EIFNO FIXED, PREPARE FORVAR ENTRY.	4F13647
06660	−0 50000 0 00030	3633		CAL	EIFNO FIXED, PREPARE FORVAL ENTRY.	4F13681
11265	−0 50000 0 00030	4963	CP0090	CAL	EIFNO	4F15013
12210	0 50000 0 00030	5432	CP5000	CLA	EIFNO FN FUNCTI0N	4F15492
12212	0 60100 0 00030	5434		STO	EIFNO AND	4F15494
12257	−0 50000 0 00030	5471		CAL	EIFNO	4F15531
12277	−0 50000 0 00030	5487		CAL	EIFNO	4F15547
12561	−0 53400 4 00030	5665	ES1520	LXD	EIFNO,4	4F15725
12606	0 50200 0 00030	5686		CLS	EIFNO	4F15746
12607	0 60100 0 00030	5687		STO	EIFNO	4F15747
12612	0 50200 0 00030	5690		CLS	EIFNO	4F15750
12613	0 60100 0 00030	5691		STO	EIFNO	4F15751

␣ENDI1 = 25

Definition
00031 0 00000 0 00002 74 ENDI1 PZE 2 SIMULATOR FOR SENSE SWITCH 1. 4F10065
Reference
04665 0 60100 2 00036 2380 STO ENDI1+5,2 IF 0 OR 1, SET PROPER SIMULATOR. 4F12434

␣ENDI2 = 26

Definition
00032 0 00000 0 00002 75 ENDI2 PZE 2 SIMULATOR FOR SENSE SWITCH 2. 4F10066

␣ENDI3 = 27

Definition
00033 0 00000 0 00002 76 ENDI3 PZE 2 SIMULATOR FOR SENSE SWITCH 3. 4F10067

␣ENDI4 = 28

Definition
00034 0 00000 0 00002 77 ENDI4 PZE 2 SIMULATOR FOR SENSE SWITCH 4. 4F10068

␣ENDI5 = 29

Definition
00035 0 00000 0 00002 78 ENDI5 PZE 2 SIMULATOR FOR SENSE SWITCH 5. 4F10069

␣ENDMK = 764

Definition
01374 +000000000077 319 ENDMK OCT 77 111111 - CTEST-I0 4F10309

References (22)

01675	0 50000 0 01374	555	C0390	CLA	ENDMK PREPARE TO CHANGE	4F10544
02652	0 76100 0 00012	1043	CTESTX	NOP	CTEST−ENDMK FOUND TO BE NUMERIC,	4F11066
03252	0 40200 0 01374	1319	TESTA1	SUB	ENDMK	4F11342
03266	0 40200 0 01374	1333	TESTC1	SUB	ENDMK	4F11356
03271	0 34000 0 01374	1337	TESTD0	CAS	ENDMK	4F11360
03527	0 34000 0 01374	1646		CAS	ENDMK AND IF ENDMARK,	4F11703
03535	0 34000 0 01374	1652		CAS	ENDMK AND IF NOT	4F11709
03576	0 40200 0 01374	1690	CB007	SUB	ENDMK IF NOT ENDMARK, THEN	4F11747
03611	0 40200 0 01374	1701	CB206	SUB	ENDMK IF NOT ENDMARK, THEN	4F11758
03622	0 34000 0 01374	1715		CAS	ENDMK TEST FOR CONSECUTIVE ENDMARKS.	4F11772
03627	0 34000 0 01374	1720		CAS	ENDMK TEST FOR END OF DIC ENTRY.	4F11777
03641	0 40200 0 01374	1730		SUB	ENDMK CONTINUE JNTIL AN ENDMARK IS	4F11787
04053	0 34000 0 01374	1890		CAS	ENDMK IS NOT AN ENDMARK.	4F11947
04064	0 56000 0 01374	1899		LDQ	ENDMK SO REPLACE THE CHARACTER RPAREN	4F11956
04173	0 34000 0 01374	2005		CAS	ENDMK FOR END OF STATEMENT MARK.	4F12062
04466	0 40000 0 01374	2233	C3001	ADD	ENDMK IF NOT ENDMARK, RESTORE CHARACTER	4F12298
04507	0 40200 0 01374	2250		SUB	ENDMK IF NOT ENDMARK, THEN	4F12315
05133	−0 32000 0 01374	2621		ANA	ENDMK END OF STATEMENT MARK	4F12675
05134	0 40200 0 01374	2622		SUB	ENDMK HAS BEEN ENTERED,	4F12676
06726	−0 32000 0 01374	3671		ANA	ENDMK BLANK ALL EXCEPT CURRENT CHAR	4F13719
06727	0 40200 0 01374	3672		SUB	ENDMK TEST FOR INTERNAL ENDMK	4F13720
	01374	5879	L(63)	SYN	ENDMK	4F15935

␣ENONO = 579

Definition
01103 5865 ENONO SYN ERASE+3 COMMON WORKING STORAGE. 4F15921

␣EPSM3 = 612

Definition
01144 288 EPSM3 BSS 3 4F10278

␣EQUAL = 768

Definition
01400 +000000000013 323 EQUAL OCT 13 = - CTEST-6 4F10313

References (5)

04622	0 56000 0 01400	2340		LDQ	EQUAL AND	4F12394
06457	0 34000 0 01400	3502		CAS	EQUAL TEST FOR EQUAL.	4F13551
06636	0 40200 0 01400	3615		SUB	EQUAL TEST FOR EQUAL SIGN.	4F13664
	01400	5830	AEQUAL	SYN	EQUAL	4F15882
	01400	5876	L(11)	SYN	EQUAL	4F15932

␣EQUIT = 110

Definition
00156 90 EQUIT BSS 10 EQUIVALENCE STATEMENTS. 4F10081
Reference
00352 0 00012 0 00156 143 PZE EQUIT,,10 06) O,,B. 4F10134

␣ERASE = 576

Definition
01100 273 ERASE BSS 5 C0MMON WORKING STORAGE. 4F10263

References (30)

01100	5818	1E	SYN	ERASE COMMON WORKING STORAGE.	4F15870
01101	5820	2E	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15872
01102	5823	3E	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15875
01103	5825	4E	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15877
01101	5841	CITXR1	SYN	ERASE+1 ERASABLE STORAGE.	4F15893
01102	5842	CITXR2	SYN	ERASE+2 ERASABLE STORAGE.	4F15894
01101	5845	D12	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15897
01102	5847	D3	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15899
01100	5852	DIMCTR	SYN	ERASE COMMON WORKING STORAGE.	4F15908
01100	5854	DOE	SYN	ERASE COMMON WORKING STORAGE.	4F15910
01103	5855	DRCKSM	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15911
01104	5856	DRMADR	SYN	ERASE+4 ERASABLE STORAGE.	4F15912
01100	5858	DRSYM	SYN	ERASE COMMON WORKING STORAGE.	4F15914
01100	5859	E1TDR	SYN	ERASE COMMON WORKING STORAGE.	4F15915
01101	5860	E2C	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15916
01101	5861	E2TDR	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15917
01102	5862	E3C	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15918
01102	5863	E3TDR	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15919
01101	5864	EKE	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15920
01103	5865	ENONO	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15921
01104	5866	FEOD	SYN	ERASE+4 COMMON WORKING STORAGE.	4F15922
01102	5870	H	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15926
01103	5883	N	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15943
01100	5886	RAXR4	SYN	ERASE COMMON WORKING STORAGE.	4F15947
01101	5888	SR6WRK	SYN	ERASE+1 ERASABLE STORAGE.	4F15949
01104	5891	STCKSM	SYN	ERASE+4 COMMON WORKING STORAGE.	4F15952
01103	5898	TETMQR	SYN	ERASE+3 ERASABLE STORAGE.	4F15959
01102	5899	TETWRK	SYN	ERASE+2 ERASABLE STORAGE.	4F15960
01100	5900	TETXR2	SYN	ERASE ERASABLE STORAGE.	4F15961
01101	5901	TETXR4	SYN	ERASE+1 ERASABLE STORAGE.	4F15962

␣ESUM1 = 1152

Definition
02200 −0 70000 2 00000 784 ESUM1 CAD **,2 (ARG1+L-1) WRITE NEW 4F10773

References (2)

	02115	0 62100 0 02200	733		STA	ESUM1 INSTRUCTIONS=	4F10722
	02201	2 00001 2 02200	785		TIX	ESUM1,2,1 ENTRY ON DRUM.	4F10774

␣ESUM2 = 1154

Definition
02202 −0 70000 0 00000 786 ESUM2 CAD ** (ARG1+L-1) 4F10775

References (2)

	02116	0 62100 0 02202	734		STA	ESUM2 X	4F10723
	02177	−2 00001 2 02202	783		TNX	ESUM2,2,1 IF L = 1,	4F10772

␣ETMSW = 3052

Definition

			3117			END OF PROGRAM CC500.	4F13169
			3118			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13170
			3119				4F13171
			3120			ETMSW(LTMSW),4/ CALLS=CIT. CALLERS=RDC,LPR,SPC,CMA,EMK.	4F13172
			3121			ETMSW = ENTRY POINT USED BY RDC,CMA.	4F13173
D	05754	−3 00000 0 05772	3122	ETMSW	TXL	NOTTM,0 SWITCH (TXL=TRA, TXH=NOPI.	4F13174

References (6)

04714	0 63000 0 05754	2414	STP	ETMSW , ETMSW AND LTMSW,	4F12468
04716	0 07400 4 05754	2416	TSX	ETMSW,4 * O0 COMPILE ETM.	4F12470
05423	0 07400 4 05754	2856	TSX	ETMSW,4 * GO COMPILE ETM, AND CLEAR SL.	4F12910
05505	0 07400 4 05754	2906	TSX	ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0.	4F12960
05524	0 07400 4 05754	2921	TSX	ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0.	4F12975
05665	0 63000 0 05754	3046	STP	ETMSW ETMSW AND LTMSW,	4F13098

␣ETSUM = 1388

Definition
02554 −0 70000 0 02365 970 ETSUM CAD DUMP SUM CHECKSUMS. 4F10993
Reference
02526 −0 75400 0 02554 948 BIAS PXD ETSUM,0 CLEAR THE AC. 4F10971

␣EXITR = 3921

Definition
07521 0 60200 0 01130 4066 EXITR SLW E+2 SAVE VARIABLE IN E+2, 4F14114
Reference
D 07420 1 00000 0 07521 4001 TXI EXITR,0 GO TAKE EXITR. 4F14049

␣FEXUB = 4193

Definition
10141 0 00007 0 00000 4362 FEXUB HTR 0,0,7 4F14411
Reference
10536 0 34000 0 10141 4615 CAS FEXUB 4F14664

␣FLINE = 2801

Definition
05361 0 73400 2 17405 2808 FLINE PAX TLDOS,2 DO FORMULAS IN TDO BY 4F12862
Reference
05141 −0 50000 0 05361 2636 RSC CAL FLINE RESET TEMPORARY 4F12690

␣FNCTR = 6852

Definition
15304 4148 FNCTR BSS 1 4F14195
Reference
06351 0 60000 0 15304 3432 STZ FNCTR CLEAR FUNCTION ARG COUNTER. 4F13481

␣FNIND = 825

Definition
01471 0 00040 0 00000 382 FNIND PZE ,,32 4F10372

References (2)

	03216	−0 50000 0 01471	1274	NOTAG	CAL	FNIND POSITI0N SIGMA1 TAG, AND	4F11297
	06700	−0 50000 0 01471	3649	MS334	CAL	FNIND NOT FOUND, TREAT AS FUNCTION NAME.	4F13697

␣FS010 = 3373

Definition
06455 −0 63400 4 00470 3500 FS010 SXD BK,4 X 4F13549
Reference
06454 1 77776 4 06455 3499 TXI FS010,4,−2 UPDATE COUNT OF ENTRIES IN FORSUB. 4F13548

␣FS020 = 3374

Definition
06456 0 07400 4 01707 3501 FS020 TSX C0190,4 GET FIRST CHAR OF ARGUMENT. 4F13550
Reference
06475 3 77716 2 06456 3516 TXH FS020,2,−50 TEST FOR ARGREG TABLE OVERFLOW. 4F13565

␣FS030 = 3378

Definition
06462 0 34000 0 01417 3505 FS030 CAS L(9) TEST FOR ILLEGAL ARGUMENT. 4F13554
Reference
06460 0 02000 0 06462 3503 TRA FS030 X 4F13552

␣FS040 = 3382

Definition
06466 0 07400 2 01624 3509 FS040 TSX C0160,2 COLLECT ARGUMENT NAME IN 1G. 4F13558
Reference
06463 0 02000 0 06466 3506 TRA FS040 LEGAL, CONTINUE 4F13555

␣FS050 = 3388

Definition
06474 −0 63400 2 01122 3515 FS050 SXD ARGCTR,2 4F13564
Reference
06473 1 77777 2 06474 3514 TXI FS050,2,−1 UPDATE COUNT OF ARGUMENTS. 4F13563

␣FSIND = 820

Definition
01464 0 00020 0 00000 377 FSIND PZE ,,16 4F10367
Reference
07012 −0 50100 0 01464 3724 ORA FSIND 4F13772

␣HEXIT = 3931

Definition
07533 −0 53400 4 07352 4076 HEXIT LXD EXIT,4 RESTORE THE C(XR4), AND 4F14124
Reference
D 07366 1 00000 0 07533 3975 SSIR4 TXI HEXIT,0 IF NOT H, CONTINUE 4F14023

␣IFFIX = 3067

Definition

		3138			END OF PROGRAM ETMSW(LTMSW).	4F13190
		3139			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13191
		3140				4F13192
		3141			IFFIX,1/ USES=TESTFX. CALLERS=CMA,VRA(VRD).	4F13193
05773	−0 50000 0 00030	3142	IFFIX	CAL	EIFNO SET	4F13194

References (2)

	05533	0 07400 1 05773	2928	NODIM	TSX	IFFIX,1 * LESS THAN 2, TEST TYPE OF VARIABLE,	4F12982
	06041	0 07400 1 05773	3198		TSX	IFFIX,1 * SET UP IFN AND SYMBOL FOR FORVAR.	4F13250

␣IFSYM = 808

Definition
01450 +000000006712 365 IFSYM OCT 6712 4F10355
Reference
12361 0 34000 0 01450 5537 CAS IFSYM IS THIS AN IF STATEMENT 4F15597

␣INOUT = 2910

Definition
05536 0 00000 0 00000 2931 INOUT PZE ** EITHER FORVAL OR FORVAR TABLE. 4F12985
Reference
06005 0 60100 0 05536 3159 STO INOUT SET INOUT FOR FORVAR ENTRY. 4F13211

␣INPUT = 3074

Definition

		3149			END OF PROGRAM IFFIX.	4F13201
		3150			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13202
		3151				4F13203
		3152			INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB.	4F13204
		3153			CALLERS=RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD.	4F13205
		3154			INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD.	4F13206
06002	0 50000 0 01414	3155	INPUT	CLA	L(6) PICKUP 6 TO	4F13207

References (4)

04675	0 07400 2 06002	2397		TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12451
04745	0 07400 2 06002	2445	RIT	TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12499
05014	0 07400 2 06002	2510		TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12564
05063	0 07400 2 06002	2560	RDD	TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12614

␣INTET = 210

Definition

		100			FND OF THE TAPE TABLE BUFFERS.	4F10091
		101			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10092
		102				4F10093
		103			INTET/ TABLE PARAMETERS USED BY TET00, WHERE	4F10094
		104			O = ORIGIN OF TABLE BUFFER,	4F10095
		105			B = BUFFER CAPACITY,	4F10096
		106			A = ADDRESS OF TABLE ENTRY,	4F10097
		107			E = ENTRY LENGTH IN WORDS,	4F10098
		108			C = COUNT OF BLOCKS PUT ON TAPE,	4F10099
		109			P = PORTION OF BUFFER THAT IS FULL.	4F10100
		110				4F10101
00322	0 00012 0 00036	111	INTET	PZE	TEIFNO,,10 00) O,,B.	4F10102

References (11)

03332	0 50000 2 00322	1382		CLA	INTET,2 OBTAIN THE CURRENT	4F11405
03335	0 50000 2 00324	1385		CLA	INTET+2,2 GET P (PORTION OF BUFFER FULL),	4F11408
03341	0 62200 2 00324	1389		STD	INTET+2,2 SET P = O, AND	4F11412
03345	0 40000 2 00322	1393		ADD	INTET,2 ORIGIN OF CURRENT BLOCK (O),	4F11416
03353	0 50000 2 00324	1399		CLA	INTET+2,2 INCREASE C (BLOCK COUNT)	4F11422
03355	0 62100 2 00324	1401		STA	INTET+2,2 BLOCK JUST WRITTEN ON TABLE TAPE.	4F11424
03356	0 50000 2 00324	1402	TET03	CLA	INTET+2,2 ADD P (PORTION OF BUFFER FULL)	4F11425
03360	0 40000 2 00322	1404		ADD	INTET,2 BUFFER) TO SET	4F11427
03362	0 50000 2 00323	1406		CLA	INTET+1,2 OBTAIN CURRENT A (ENTRY ADDRESS),	4F11429
03365	0 40000 2 00324	1409		ADD	INTET+2,2 INCREASE P BY E TO ACCOUNT	4F11432
03366	0 62200 2 00324	1410		STD	INTET+2,2 FOR FOLLOWING ENTRY.	4F11433

␣JUMP1 = 1368

Definition
TD 02530 −3 00000 0 00000 950 JUMP1 TXL ** (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK. 4F10973

References (2)

	02121	0 62100 0 02530	737		STA	JUMP1 X	4F10726
	02125	0 63000 0 02530	741		STP	JUMP1 X	4F10730

␣JUMP2 = 1389

Definition
02555 2 00001 2 00000 971 JUMP2 TIX **,2,1 (ETSUM-2*L) TEST END OF BLOCK. 4F10994
Reference
02122 0 62100 0 02555 738 STA JUMP2 X 4F10727

␣L(10) = 763

Definition
01373 5875 L(10) SYN TEN 4F15931

References (8)

02671	0 40200 0 01373	1058		SUB	L(10) MULTIPLIER	4F11081
03004	0 40200 0 01373	1135		SUB	L(10) CONSTANT OR VARIABLE.	4F11158
03020	0 50200 0 01373	1147		CLS	L(10) TEST	4F11170
03513	0 40200 0 01373	1634		SUB	L(10) , N H	4F11691
04043	0 56000 0 01373	1882		LDQ	L(10) REPLACE THE CHARACTER F	4F11939
04620	0 56000 0 01373	2338		LDQ	L(10) AND	4F12392
06367	0 53400 4 01373	3446	MS050	LXA	L(10),4 PREPARE TO TEST FOR PUNCTUATION.	4F13495
06400	0 53400 4 01373	3455	MS070	LXA	L(10),4 PREPARE TO TEST FOR PUNCTUATION.	4F13504

␣L(11) = 768

Definition
01400 5876 L(11) SYN EQUAL 4F15932
Reference
03451 0 53400 2 01400 1595 CA018 LXA L(11),2 SET UP LOOP FOR 11 CYCLES. 4F11652

␣L(12) = 784

Definition
01420 5877 L(12) SYN MINUS 4F15933

References (2)

	05707	0 53400 2 01420	3074		LXA	L(12),2 INITIALIZE INDEX B FOR 12 CYCLES 0F	4F13126
	05725	0 53400 2 01420	3089		LXA	L(12),2 PREPARE TO SCAN 12 WORDS OF CARD.	4F13141

␣L(1DI = 812

Definition
01454 5878 L(1DI SYN 2E18 4F15934

␣L(63) = 764

Definition
01374 5879 L(63) SYN ENDMK 4F15935
Reference
03460 −0 32000 0 01374 1602 ANA L(63) FIRST WORD FOR CONTINUATION MARK, 4F11659

␣L(96) = 800

Definition
01440 +000000000140 357 L(96) OCT 140 USED BY C0500. 4F10347

References (2)

	04150	0 50000 0 01440	1963	C0500	CLA	L(96) STORE 96 IN	4F12020
	04254	0 40000 0 01440	2065		ADD	L(96) PLUS 96	4F12124

␣L(A() = 804

Definition
01444 000000002174 361 L(A() BCD 10000A( INTERNAL FLO-PT VARIABLE PREFIX. 4F10351

References (2)

	12647	0 40200 0 01444	5721		SUB	L(A() IS THIS A FLO PT CONSTANT	4F15781
	12651	0 40000 0 01444	5723		ADD	L(A() NO	4F15783

␣L(H() = 805

Definition
01445 000000003074 362 L(H() BCD 10000H( 4F10352
Reference
12655 0 40200 0 01445 5727 SUB L(H() IS THIS A HOLLERITH FIELD 4F15787

␣L(I() = 806

Definition
01446 000000003174 363 L(I() BCD 10000I( INTERNAL FXD-PT VARIABLE PREFIX. 4F10353

References (2)

	12652	0 40200 0 01446	5724		SUB	L(I() IS THIS A FIX PT CONSTANT	4F15784
	12654	0 40000 0 01446	5726		ADD	L(I() NO	4F15786

␣L(SL) = 1279

Definition
02377 0 60200 0 01367 876 L(SL) SLW SL PLACE IFN IN THE DECREMENTS 4F10865
Reference
05073 0 50000 0 02377 2574 CLA L(SL) RESET TP0A ADDRESS 4F12628

␣L(TL) = 1280

Definition
02400 0 62200 0 01371 877 L(TL) STD TL OF SL AND TL. 4F10866
Reference
06032 0 50000 0 02400 3190 VRA CLA L(TL) RESET TPOA ADDRESS 4F13242

␣LA002 = 3635

Definition
07063 0 62100 0 07251 3765 LA002 STA LA4320 4F13813
Reference
07060 0 02000 0 07063 3762 TRA LA002 4F13810

␣LA003 = 3636

Definition
07064 0 50000 0 01126 3766 LA003 CLA E 4F13814
Reference
07055 0 10000 0 07064 3759 TZE LA003 4F13807

␣LATXH = 3569

Definition
06761 −0 50000 0 00422 3699 LATXH CAL TXHOP 4F13747

References (3)

06366	0 02000 0 06761	3445	TRA	LATXH THIS WAS FIXED OR FLOATING CONSTANT.	4F13494
06501	0 02000 0 06761	3520	TRA	LATXH FLOATING POINT CONSTANT RETURN.	4F13569
06677	0 02000 0 06761	3648	TRA	LATXH GO PERFORM LEVEL ANALYSIS.	4F13696

␣LATXL = 3567

Definition
3696 LEVEL ANALYSIS 4F13744

06757 −0 50000 0 00415 3697 LATXL CAL TXLOP 4F13745

References (6)

06577	0 02000 0 06757	3583	TRA	LATXL GO PERFORM LEVEL ANALYSIS FOR (	4F13632
06614	0 02000 0 06757	3597	TRA	LATXL FLOATING, GO PERFORM LEVEL ANALYSIS.	4F13646
06626	−0 10000 0 06757	3607	TNZ	LATXL	4F13656
06631	0 02000 0 06757	3610	TRA	LATXL GO PERFORM LEVEL ANALYSIS.	4F13659
06712	0 02000 0 06757	3659	TRA	LATXL GO PERFORM LEVEL ANALYSIS.	4F13707
06760	0 02000 0 06762	3698	TRA	LATXL+3	4F13746

␣LISTR = 2692

Definition
05204 0 00000 0 05204 2679 LISTR PZE LISTR INDEXING ADDRESS FOR ABOVE LIST. 4F12733

References (2)

	05145	−0 50000 0 05204	2641	LSC	CAL	LISTR SET CONTROL TRANSFER	4F12695
	05204	0 00000 0 05204	2679	LISTR	PZE	LISTR INDEXING ADDRESS FOR ABOVE LIST.	4F12733

␣LTMSW = 3055

Definition
3125 LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK. 4F13177

D 05757 −3 00000 0 05772 3126 LTMSW TXL NOTTM,0 SWITCH (TXL=TRA, TXH=NOP). 4F13178

References (6)

04715	0 63000 0 05757	2415		STP	LTMSW TO NO TRANSFER CASE.	4F12469
05234	0 07400 4 05757	2708		TSX	LTMSW,4 * OTHERWISE, COMPILE LTM, AND	4F12762
05350	0 07400 4 05757	2799		TSX	LTMSW,4 * GO COMPILE LTM.	4F12853
05514	0 07400 4 05757	2913		TSX	LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0.	4F12967
05553	0 07400 4 05757	2949	FIN	TSX	LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0.	4F13003
05666	0 63000 0 05757	3047		STP	LTMSW TO THE TRA CASE.	4F13099

␣MASK1 = 855

Definition
01527 −377777700000 412 MASK1 OCT −377777700000 -(2**20-U.*2**15 -ARITHMETIC. 4F10402

References (15)

03121	−0 32000 0 01527	1213		ANA	MASK1 BRING UP ALPHA (INTFORMNO)	4F11236
03161	−0 32000 0 01527	1245		ANA	MASK1 DIMENSION 1, AND MOVE IT	4F11268
06452	−0 32000 0 01527	3497		ANA	MASK1 X	4F13546
06616	−0 32000 0 01527	3599		ANA	MASK1 X	4F13648
06661	−0 32000 0 01527	3634		ANA	MASK1 X	4F13682
07337	−0 32000 0 01527	3944		ANA	MASK1	4F13992
07666	−0 50000 0 01527	4191	R03200	CAL	MASK1 SINGLE ELEMENT, NON-UNARY OP	4F14240
10012	−0 32000 0 01527	4275		ANA	MASK1	4F14324
10015	−0 32000 0 01527	4278		ANA	MASK1	4F14327
11030	−0 32000 0 01527	4801		ANA	MASK1 DOES SYM (S(0)) = S(1)	4F14850
11266	−0 32000 0 01527	4964		ANA	MASK1	4F15014
12260	−0 32000 0 01527	5472		ANA	MASK1	4F15532
12300	−0 32000 0 01527	5488		ANA	MASK1	4F15548
12636	−0 32000 0 01527	5712		ANA	MASK1 EXTRACT TAGS IN ACC.	4F15772
12715	−0 32000 0 01527	5759		ANA	MASK1 EXTRACT PHI(K)	4F15819

␣MASK2 = 810

Definition
01452 +000000077777 367 MASK2 OCT 77777 2**15-I -ARITHMETIC. 4F10357

References (19)

02260	−0 32000 0 01452	832		ANA	MASK2 BLANK ALL BUT ...NIX.	4F10821
07003	−0 32000 0 01452	3717		ANA	MASK2 EXTRACT TYPE NUMBER	4F14765
10033	−0 32000 0 01452	4292		ANA	MASK2 SEARCH FOR REFERENCES	4F14341
10416	−0 32000 0 01452	4535		ANA	MASK2	4F14584
10556	−0 32000 0 01452	4631		ANA	MASK2	4F14680
10576	−0 32000 0 01452	4647		ANA	MASK2	4F14696
10646	−0 32000 0 01452	4687		ANA	MASK2 EXTRACT S(I) IN ACC	4F14736
10674	−0 32000 0 01452	4709		ANA	MASK2 SEARCH FOR S(I) IN S(I-1)	4F14758
10717	−0 32000 0 01452	4728		ANA	MASK2 WORDS AND	4F14777
10732	−0 32000 0 01452	4739		ANA	MASK2 EXTRACT S(I) IN ACC	4F14788
10762	−0 32000 0 01452	4763		ANA	MASK2 SEARCH FOR S(I) IN S(I-1)	4F14812
10773	−0 32000 0 01452	4772		ANA	MASK2	4F14821
11011	−0 32000 0 01452	4786		ANA	MASK2 EXTRACT S(I) IN ACC	4F14835
11235	−0 32000 0 01452	4938		ANA	MASK2 EXTRACT S(K) IN ACC	4F14988
11275	−0 32000 0 01452	4971		ANA	MASK2	4F15021
11553	−0 32000 0 01452	5145		ANA	MASK2	4F15195
12343	−0 32000 0 01452	5523		ANA	MASK2	4F15583
12672	−0 32000 0 01452	5740		ANA	MASK2 EXTRACT FUNCTION STATEMENT TYPE	4F15800
	01452	5881	MSK	SYN	MASK2	4F15937

␣MASK3 = 802

Definition
01442 +000000000777 359 MASK3 OCT 777 ,ARITHMETIC. 4F10349

␣MASK4 = 856

Definition
01530 −377777777737 413 MASK4 OCT −377777777737 -ARITHMETIC. 4F10403
Reference
10351 −0 50000 0 01530 4498 CAL MASK4 SINGLE REFERENCE - SO SET 4F14547

␣MASK5 = 824

Definition
01470 +000037777600 381 MASK5 OCT 37777600 -ARITHMETIC. 4F10371
Reference
07674 −0 32000 0 01470 4197 ANA MASK5 4F14246

␣MINUS = 784

Definition
01420 +000000000014 341 MINUS OCT 14 - 4F10331

References (3)

03554	0 34000 0 01420	1667		CAS	MINUS CHECK FOR MINUS SIGN	4F11724
07442	0 34000 0 01420	4019		CAS	MINUS IF LESS THAN 16,COMPARE WITH MINUS.	4F14067
	01420	5877	L(12)	SYN	MINUS	4F15933

␣MS010 = 3302

Definition
06346 −0 50000 0 01512 3429 MS010 CAL ADPLUS SET OP TO ADDITION 4F13478

References (3)

	06524	0 02000 0 06346	3539		TRA	MS010	4F13588
	06651	0 02000 0 06346	3626		TRA	MS010 GO SCAN NEXT ELEMENT.	4F13675
U	07307	00000 0 06346	3913	CM4105	***	MS010,0	4F13961

␣MS020 = 3784

Definition
07310 −0 50000 0 01524 3914 MS020 CAL ADSTAR 4F13962
Reference
06533 0 02000 0 07310 3546 TRA MS020 4F13595

␣MS030 = 3303

Definition
06347 0 60200 0 01127 3430 MS030 SLW E+1 X 4F13479
Reference
07311 0 02000 0 06347 3915 TRA MS030 4F13963

␣MS040 = 3310

Definition
06356 −0 50000 0 01124 3437 MS040 CAL CHSAVE CHAR IN CHSAVE, IF ANY, TO AC. 4F13486
Reference
06574 0 02000 0 06356 3580 TRA MS040 NOW GO COLLECT SYMBOL. 4F13629

␣MS041 = 3313

Definition
06361 0 34000 0 01417 3440 MS041 CAS L(9) IS CHAR. NUMERIC. 4F13489

References (3)

06357	−0 10000 0 06361	3438	TNZ	MS041 X	4F13487
06565	0 02000 0 06361	3573	TRA	MS041 X	4F13622
06567	0 02000 0 06361	3575	TRA	MS041 NO, GO COMPARE TO OTHER PUNCTUATION.	4F13624

␣MS050 = 3319

Definition
06367 0 53400 4 01373 3446 MS050 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13495
Reference
06362 0 02000 0 06367 3441 TRA MS050 N/, TAKE TRA 4F13490

␣MS051 = 3320

Definition
06370 0 34000 4 01406 3447 MS051 CAS CTEST,4 4F13496
Reference
06373 2 00001 4 06370 3450 MS052 TIX MS051,4,1 X 4F13499

␣MS052 = 3323

Definition
06373 2 00001 4 06370 3450 MS052 TIX MS051,4,1 X 4F13499
Reference
06371 0 02000 0 06373 3448 TRA MS052 X 4F13497

␣MS060 = 3324

Definition
06374 0 76700 2 00044 3451 MS060 ALS 36,2 POSITI0N CHAR FOR BUILDING SYMBOL. 4F13500

References (2)

	06405	−3 00022 2 06374	3460		TXL	MS060,2,18 IF THIS IS CHAR 1, 2 /R 3 GO BUILD G.	4F13509
	06411	−3 00044 2 06374	3464	MS073	TXL	MS060,2,36 TEST FOR UNDER 7 CHARS.	4F13513

␣MS061 = 3327

Definition
06377 0 07400 4 01707 3454 MS061 TSX C0190,4 GET NEXT CHAR. 4F13503
Reference
06376 1 00006 2 06377 3453 TXI MS061,2,6 UPDATE POSITIONING TAG. 4F13502

␣MS070 = 3328

Definition
06400 0 53400 4 01373 3455 MS070 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13504
Reference
06425 1 00006 2 06400 3476 TXI MS070,2,6 UPDATE POSITIONING TAG. 4F13525

␣MS071 = 3329

Definition
06401 0 34000 4 01406 3456 MS071 CAS CTEST,4 X 4F13505
Reference
06404 2 00001 4 06401 3459 MS072 TIX MS071,4,1 X 4F13508

␣MS072 = 3332

Definition
06404 2 00001 4 06401 3459 MS072 TIX MS071,4,1 X 4F13508
Reference
06402 0 02000 0 06404 3457 TRA MS072 X 4F13506

␣MS073 = 3337

Definition
06411 −3 00044 2 06374 3464 MS073 TXL MS060,2,36 TEST FOR UNDER 7 CHARS. 4F13513
Reference
06407 0 02000 0 06411 3462 TRA MS073 X 4F13511

␣MS074 = 3338

Definition
06412 0 07400 4 03400 3465 MS074 TSX DIAG,4 BUILD G, 7TH CHAR IS ERROR. 4F13514
Reference
06423 3 00044 2 06412 3474 TXH MS074,2,36 TEST FOR 7TH CHAR, YES IS ERROR. 4F13523

␣MS080 = 3339

Definition
06413 0 07400 4 01707 3466 MS080 TSX C0190,4 GET NEXT CHAR. 4F13515
Reference
06410 0 02000 0 06413 3463 TRA MS080 MAYBE, GO LOOK AT NEXT CHAR. 4F13512

␣MS081 = 3343

Definition
06417 0 60100 0 01331 3470 MS081 STO FIRSTC NO, SAVE CURRENT CHAR. 4F13519
Reference
06415 0 02000 0 06417 3468 TRA MS081 X 4F13517

␣MS090 = 3350

Definition
06426 0 60000 0 01124 3477 MS090 STZ CHSAVE CLEAR 4F13526
Reference
06372 0 02000 0 06426 3449 TRA MS090 CHAR IS SOME PUNCTUATION. 4F13498

␣MS091 = 3352

Definition
06430 0 60200 0 01124 3479 MS091 SLW CHSAVE OP IS IN NEXT ELEMENT, SAVE. 4F13528
Reference
06403 0 02000 0 06430 3458 TRA MS091 CHAR IS SOME PUNCTUATION. 4F13507

␣MS092 = 3360

Definition
06440 −0 75400 0 00000 3487 MS092 PXD ,0 CLEAR 4F13536
Reference
06416 0 02000 0 06440 3469 TRA MS092 YES, THIS IS A FUNCTION NAME. 4F13518

␣MS093 = 3366

Definition
U 06446 00000 0 06711 3493 MS093 *** MS335,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. 4F13542

References (2)

	06343	0 63000 0 06446	3426		STP	MS093 X	4F13475
	06645	0 63000 0 06446	3622		STP	MS093 X	4F13671

␣MS200 = 3391

Definition
06477 0 07400 4 07353 3518 MS200 TSX DECPNT,4 CONVERT BCD NUMBER T0 BINARY 4F13567
Reference
06557 0 02000 0 06477 3566 TRA MS200 . 4F13615

␣MS210 = 3394

Definition
06502 0 76000 0 00141 3521 MS210 SLN 1 TURN , LITE ON. 4F13570
Reference
06552 0 02000 0 06502 3561 TRA MS210 , 4F13610

␣MS211 = 3405

Definition
06515 −0 63400 1 01117 3532 MS211 SXD 3LBAR,1 4F13581
Reference
06514 1 77775 1 06515 3531 TXI MS211,1,−3 4F13580

␣MS212 = 3409

Definition
06521 −0 63400 1 01360 3536 MS212 SXD NBAR,1 4F13585
Reference
06520 1 77777 1 06521 3535 TXI MS212,1,−1 4F13584

␣MS213 = 3411

Definition
06523 −0 63400 4 15300 3538 MS213 SXD ABAR,4 4F13587
Reference
06522 1 00003 4 06523 3537 TXI MS213,4,3 4F13586

␣MS220 = 3413

Definition
06525 −0 53400 4 15300 3540 MS220 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOR ) 4F13589
Reference
06553 0 02000 0 06525 3562 TRA MS220 ) 4F13611

␣MS221 = 3418

Definition
06532 −0 63400 4 15300 3545 MS221 SXD ABAR,4 4F13594
Reference
06531 1 00004 4 06532 3544 TXI MS221,4,4 4F13593

␣MS230 = 3420

Definition
06534 −0 53400 4 15300 3547 MS230 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOE ENDMK. 4F13596
Reference
06550 0 02000 0 06534 3559 TRA MS230 ENDMK 4F13608

␣MS231 = 3422

Definition
06536 −3 00000 4 06540 3549 MS231 TXL MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO, 4F13598
Reference
06535 1 00003 4 06536 3548 TXI MS231,4,3 4F13597

␣MS232 = 3424

Definition
06540 −0 53400 4 01122 3551 MS232 LXD ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT 4F13600
Reference
06536 −3 00000 4 06540 3549 MS231 TXL MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO, 4F13598

␣MS240 = 3441

Definition
06561 0 76700 0 00036 3568 MS240 ALS 30 * SAVE * 4F13617

␣MS241 = 3448

Definition
06570 −0 50000 0 01525 3576 MS241 CAL STRSTR REPLACE * WITH ** 4F13625
Reference
06566 0 02000 0 06570 3574 TRA MS241 YES, THIS WAS ** 4F13623

␣MS250 = 3450

Definition
06572 0 76700 0 00036 3578 MS250 ALS 30 POSITI0N CHAR WHICH IS + OR - OR / 4F13627

References (3)

06555	0 02000 0 06572	3564	TRA	MS250 -	4F13613
06556	0 02000 0 06572	3565	TRA	MS250 /	4F13614
06560	0 02000 0 06572	3567	TRA	MS250 +	4F13616

␣MS251 = 3451

Definition
06573 0 60200 0 01127 3579 MS251 SLW E+1 PUT CURRENT OP IN E+1. 4F13628
Reference
06571 0 02000 0 06573 3577 TRA MS251 X 4F13626

␣MS260 = 3453

Definition
06575 0 76700 0 00036 3581 MS260 ALS 30 ( TO SYMBOL WORD 4F13630
Reference
06551 0 02000 0 06575 3560 TRA MS260 ( 4F13609

␣MS300 = 3465

Definition
06611 −0 75400 0 00000 3593 MS300 PXD ,0 * CLEAR 4F13642

References (6)

06600	0 02000 0 06611	3584	TRA	MS300 ENDMK	4F13633
06602	0 02000 0 06611	3586	TRA	MS300 ,	4F13635
06603	0 02000 0 06611	3587	TRA	MS300 )	4F13636
06605	0 02000 0 06611	3589	TRA	MS300 -	4F13638
06606	0 02000 0 06611	3590	TRA	MS300 /	4F13639
06610	0 02000 0 06611	3592	TRA	MS300 +	4F13641

␣MS310 = 3498

Definition
U 06652 00000 0 06554 3627 MS310 *** MSERR=,0 TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676

References (3)

06344	0 63000 0 06652	3427	STP	MS310 X	4F13476
06604	0 02000 0 06652	3588	TRA	MS310 =	4F13637
06646	0 63000 0 06652	3623	STP	MS310 X	4F13672

␣MS311 = 3492

Definition
06644 −0 50000 0 00415 3621 MS311 CAL TXLOP SET SWITCHES FOR RIGHT SIDE SCAN. 4F13670

␣MS320 = 3482

Definition
06632 0 60000 0 01124 3611 MS320 STZ CHSAVE CLEAR CELL FOR OP. 4F13660
Reference
06601 0 02000 0 06632 3585 TRA MS320 ( 4F13634

␣MS321 = 3483

Definition
U 06633 00000 0 06666 3612 MS321 *** MS330,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. 4F13661

References (2)

	06345	0 63000 0 06633	3428		STP	MS321 X	4F13477
	06647	0 63000 0 06633	3624		STP	MS321 X	4F13673

␣MS322 = 3488

Definition
06640 0 53400 4 01411 3617 MS322 LXA L(3),4 MOVE CONTENT4 OF E WORDS TO LEFT WORDS. 4F13666

References (3)

06461	0 02000 0 06640	3504	TRA	MS322 GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+2	4F13553
06657	0 02000 0 06640	3632	TRA	MS322 FLOATING,	4F13680
06665	0 02000 0 06640	3638	TRA	MS322	4F13686

␣MS323 = 3489

Definition
06641 0 56000 4 01131 3618 MS323 LDQ E+3,4 X 4F13667
Reference
06643 2 00001 4 06641 3620 TIX MS323,4,1 X 4F13669

␣MS330 = 3510

Definition
06666 0 07400 4 01771 3639 MS330 TSX DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2, 4F13687
Reference
U 06633 00000 0 06666 3612 MS321 *** MS330,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. 4F13661

␣MS331 = 3513

Definition
06671 0 07400 4 01775 3642 MS331 TSX DIM2SR,4 OF THAT NUMBER OF DIMENSIONS. IF IT IS NOT 4F13690
Reference
06667 0 02000 0 06671 3640 TRA MS331 AND DIM3 TABLES. IF IT IS FOUND IN ONE OF 4F13688

␣MS332 = 3516

Definition
06674 0 07400 4 02005 3645 MS332 TSX DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY. 4F13693
Reference
06672 0 02000 0 06674 3643 TRA MS332 FOUND IN ANY DIMENSION TABLE THEN IT IS 4F13691

␣MS333 = 3518

Definition
06676 0 07400 4 07333 3647 MS333 TSX SS000X,4 . GO PROCESS SUBSCRIPT COMBINATION. 4F13695

References (2)

	06670	0 02000 0 06676	3641		TRA	MS333 THESE TABLES IT IS A SUBSCRIPTED VARIABLE	4F13689
	06673	0 02000 0 06676	3644		TRA	MS333 ASSUMED TO BE THE NAME OF A FORTRAN II	4F13692

␣MS334 = 3520

Definition
06700 −0 50000 0 01471 3649 MS334 CAL FNIND NOT FOUND, TREAT AS FUNCTION NAME. 4F13697
Reference
06675 0 02000 0 06700 3646 TRA MS334 X 4F13694

␣MS335 = 3529

Definition
06711 0 76000 0 00142 3658 MS335 SLN 2 TURN FUNCTION LITE ON. 4F13706
Reference
U 06446 00000 0 06711 3493 MS093 *** MS335,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. 4F13542

␣NODIM = 2907

Definition
05533 0 07400 1 05773 2928 NODIM TSX IFFIX,1 * LESS THAN 2, TEST TYPE OF VARIABLE, 4F12982

References (2)

D	05456	1 00000 0 05533	2883		TXI	NODIM,0 AND IF FOUND,	4F12937
	05470	0 10000 0 05533	2893		TZE	NODIM GREATER THAN 1, THEN	4F12947

␣NOTAG = 1678

Definition
03216 −0 50000 0 01471 1274 NOTAG CAL FNIND POSITI0N SIGMA1 TAG, AND 4F11297
Reference
03117 0 10000 0 03216 1211 3D0350 TZE NOTAG --DON,T ENTER FORTAG. 4F11234

␣NOTTM = 3066

Definition
05772 0 02000 4 00001 3137 NOTTM TRA 1,4 * EXIT TO CALLER. 4F13189

References (2)

D	05754	−3 00000 0 05772	3122	ETMSW	TXL	NOTTM,0 SWITCH (TXL=TRA, TXH=NOPI.	4F13174
D	05757	−3 00000 0 05772	3126	LTMSW	TXL	NOTTM,0 SWITCH (TXL=TRA, TXH=NOP).	4F13178

␣NOWIN = 1157

Definition
02205 −0 50000 0 02360 789 NOWIN CAL NAR UPDATE PERMANENT 4F10778
Reference
02173 1 00000 0 02205 779 XR2 TXI NOWIN,0,** GO UPDATE FLOCON PARAMETER. 4F10768

␣NXBLK = 1166

Definition
02216 −0 53400 4 02223 798 NXBLK LXD NC,4 4F10787
Reference
02241 1 00000 0 02216 817 NTL TXI NXBLK,0,** (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806

␣OPSUB = 4687

Definition

		4856			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F14905
		4857				4F14906
		4858			DICTIONARY OF OPEN SUBROUTINES FOLLOWS	4F14907
11117	−272122626060	4859	OPSUB	OCT	672122626060 XABS	4F14908

Reference
10447 0 34000 2 11117 4560 PL0480 CAS OPSUB,B 4F14609

␣POINT = 771

Definition
01403 +000000000033 326 POINT OCT 33 . - CTEST-3 4F10316
Reference
07404 0 34000 0 01403 3989 NC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. 4F14037

␣PROVE = 1394

Definition
02562 0 76000 0 00006 976 PROVE COM IF CHECKSUMS COMPARE 4F10999
Reference
02535 1 00000 0 02562 955 XR1 TXI PROVE,0,** GO TEST CHECKSUM. 4F10978

␣RA000 = 1311

Definition

		884				4F10901
		885				4F10908
		886			RA000,4/ CALLERS=LPR,ARITH.	4F10909
		887			RA000 COMPUTES RELATIVE ADDRESS.	4F10910
02437	−0 63400 4 01100	888	RA000	SXD	RAXR4,4 SAVE THE C(XR4) FOR RETURN.	4F10911

References (2)

	05216	0 07400 4 02437	2694		TSX	RA000,4 * THEN GO =OMPUTE RELATIVE ADDRESS.	4F12748
	07335	0 07400 4 02437	3942		TSX	RA000,4 GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.	4F13990

␣RAXR4 = 576

Definition
01100 5886 RAXR4 SYN ERASE COMMON WORKING STORAGE. 4F15947

References (2)

	02437	−0 63400 4 01100	888	RA000	SXD	RAXR4,4 SAVE THE C(XR4) FOR RETURN.	4F10911
	02516	−0 53400 4 01100	935		LXD	RAXR4,4 RESTORE THE C(XR4), AND	4F10958

␣RESET = 2814

Definition
D 05376 1 00000 0 05141 2821 RESET TXI RSC,0 * THEN EXIT TO CONTINUE LIST SCAN. 4F12875
Reference
05567 0 50000 0 05376 2963 FINI CLA RESET RESET BXT SWITCH 4F13017

␣SA000 = 1560

Definition
03030 0 50000 0 01100 1156 SA000 CLA DIMCTR SAVE 4F11179

References (2)

D	03015	1 00000 0 03030	1144		TXI	SA000,0 GO MAKE TABLE ENTRIES AND GET TAG.	4F11167
	03025	−0 12000 0 03030	1152		TMI	SA000 GO MAKE TABLE ENTRIES AND GET TAG.	4F11175

␣SBP41 = 1522

Definition
02762 0 60200 4 01140 1117 SBP41 SLW E+10,4 PLACE IN E-REGION. 4F11140
Reference
02756 3 00044 2 02762 1113 TXH SBP41,2,36 ADD A BLANK 4F11136

␣SETOP = 3057

Definition
05761 0 60200 0 06142 3128 SETOP SLW TOP SET TOP. 4F13180
Reference
05756 1 00000 0 05761 3124 XR4X TXI SETOP,0,** GO SET OP. 4F13176

␣SLASH = 770

Definition
01402 +000000000061 325 SLASH OCT 61 / - CTEST-4 4F10315

References (6)

10140	0 34000 0 01402	4361	CAS	SLASH	4F14410
10153	0 40200 0 01402	4372	SUB	SLASH	4F14421
10204	0 40200 0 01402	4397	SUB	SLASH	4F14446
10215	0 40200 0 01402	4406	SUB	SLASH	4F14455
10222	0 40200 0 01402	4411	SUB	SLASH	4F14460
11002	0 40200 0 01402	4779	SUB	SLASH	4F14828

␣SPCTR = 2767

Definition
05317 0 00000 0 05317 2768 SPCTR PZE SPCTR INDEXING ADDRESS FOR ABOVE LIST. 4F12822

References (2)

	05303	−0 50000 0 05317	2752		CAL	SPCTR SET CONTROL LOOP FOR	4F12806
	05317	0 00000 0 05317	2768	SPCTR	PZE	SPCTR INDEXING ADDRESS FOR ABOVE LIST.	4F12822

␣SS000 = 1420

Definition

		1007			END OF PROGRAM SR6DC1.	4F11030
		1008			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11031
		1009				4F11032
		1010			SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM.SR,DRTABS,TET00,TESTFX.	4F11033
		1011			CALLERS=ARITH,LPR,C0200.	4F11034
		1012			SS000 SCANS SUBSCRIPT COMB1NATIONS AND MAKES TABLE ENTRIES.	4F11035
02614	−0 63400 2 02731	1013	SS000	SXD	SXR2,2 SAVE C(XR2),	4F11036

References (2)

	05215	0 07400 4 02614	2693		TSX	SS000,4 * GO SCAN AND PROCESS SUBSCRIPT.	4F12747
	07334	0 07400 4 02614	3941		TSX	SS000,4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE.	4F13989

␣SS001 = 1431

Definition
02627 0 53400 3 01414 1024 SS001 LXA L(6),3 SET FOR 6 CHARACTERS OF MULTIPLIER. 4F11047
Reference
D 03014 −3 00000 0 02627 1143 SBC4 TXL SS001,0 SWITCH-REPEAT FOR NEXT SUB-COMB. 4F11166

␣SS003 = 1473

Definition
02701 0 53400 3 01414 1066 SS003 LXA L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND. 4F11089
Reference
02766 −0 12000 0 02701 1121 TMI SS003 GO COLLECT, OTHERWISE 4F11144

␣SS004 = 1475

Definition
02703 0 07400 4 01707 1068 SS004 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F11091
Reference
02717 1 77777 1 02703 1080 SS007 TXI SS004,1,−1 UPDATE FOR ANOTHER CHAR COLLECTED. 4F11103

␣SS005 = 1477

Definition
02705 0 34000 4 01406 1070 SS005 CAS CTEST,4 TO ALL 4F11093
Reference
02710 2 00001 4 02705 1073 SS006 TIX SS005,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11096

␣SS006 = 1480

Definition
02710 2 00001 4 02705 1073 SS006 TIX SS005,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11096
Reference
D 02706 1 00000 0 02710 1071 TXI SS006,0 PUNCTUATION. 4F11094

␣SS007 = 1487

Definition
02717 1 77777 1 02703 1080 SS007 TXI SS004,1,−1 UPDATE FOR ANOTHER CHAR COLLECTED. 4F11103
Reference
02716 1 00006 2 02717 1079 TXI SS007,2,6 UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102

␣SS008 = 1483

Definition
02713 0 76700 2 00044 1076 SS008 ALS 36,2 POSITION EACH CHARACTER. BUT 4F11099
Reference
02711 −3 00005 1 02713 1074 TXL SS008,1,5 IF 1ST CHARACTER OF VARIABLE OR 4F11097

␣SS009 = 1484

Definition
02714 −3 00000 1 02720 1077 SS009 TXL STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP. 4F11100

␣SSIR4 = 3830

Definition
D 07366 1 00000 0 07533 3975 SSIR4 TXI HEXIT,0 IF NOT H, CONTINUE 4F14023

References (2)

	07333	−0 63400 4 07366	3940	SS000X	SXD	SSIR4,4 SAVE CALLING TAG.	4F13988
	07344	−0 53400 4 07366	3949		LXD	SSIR4,4 RELOAD CALLING TAG.	4F13997

␣SUBTR = 1499

Definition
02733 1093 SUBTR BSS 0 INDEXING ADDRESS FOR ABOVE LIST. 4F11116

References (2)

	02646	0 02000 4 02733	1039		TRA	SUBTR,4 IF EQUALITY IS FOUND, TRANSFER.	4F11062
	02707	0 02000 4 02733	1072		TRA	SUBTR,4 IF EQUALITY IS FOUND, TRANSFER.	4F11095

␣TET00 = 1745

Definition

		1366			END OF PROGRAM TEST...	4F11389
		1367			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11390
		1368				4F11391
		1369			TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400,	4F11392
		1370			C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD).	4F11393
		1371			TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS	4F11394
		1372			FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4.	4F11395
03321	−0 63400 2 01100	1373	TET00	SXD	TETXR2,2 SAVE THE C(XR2),	4F11396

References (33)

03126	0 07400 1 03321	1218		TSX	TET00,1 * ENTER INTO FORTAG TABLE	4F11241
03501	0 07400 1 03321	1619		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER EIFNO	4F11676
03647	0 07400 1 03321	1736		TSX	TET00,1 * GO ENTER EIFNO IN THE	4F11793
03715	0 07400 1 03321	1783		TSX	TET00,1 * GO TO TET PROGRAM TO ENTER	4F11840
03756	0 07400 1 03321	1822		TSX	TET00,1 * GO TO ENTER 1G	4F11879
04030	0 07400 1 03321	1865	C0202	TSX	TET00,1 * GO TO TET TO ENTER 1C AND 1C+1	4F11922
04343	0 07400 1 03321	2130	C1300	TSX	TET00,1 * GO MAKE EIFNO ENTRY	4F12192
04360	0 07400 1 03321	2148		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER	4F12211
04364	0 07400 1 03321	2152		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER M(1)	4F12216
04420	0 07400 1 03321	2185		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL	4F12250
04425	0 07400 1 03321	2190		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL	4F12255
04460	0 07400 1 03321	2227		TSX	TET00,1 * GO ENTER NAME	4F12292
04477	0 07400 1 03321	2242		TSX	TET00,1 * IF FIXED POINT, GO MAKE ENTRY	4F12307
04501	0 07400 1 03321	2244	C3004	TSX	TET00,1 * IN BOTH CASES, MAKE ENTRIES IN	4F12309
04517	0 07400 1 03321	2263		TSX	TET00,1 * GO ENTER THIS SYMBOL	4F12328
04532	0 07400 1 03321	2274		TSX	TET00,1 * IN	4F123301
04635	0 07400 1 03321	2351		TSX	TET00,1 * GO ENTER NAME	4F12405
05130	0 07400 1 03321	2618		TSX	TET00,1 * GO ENTER THEN IN	4F12672
05372	0 07400 1 03321	2817		TSX	TET00,1 * GO MAKE AN ENTRY	4F12871
05535	0 07400 1 03321	2930		TSX	TET00,1 * GO ENTER VARIABLE IN	4F12984
05576	0 07400 1 03321	2970		TSX	TET00,1 * GO ENTER -(EIFNO)	4F13024
06027	0 07400 1 03321	3181		TSX	TET00,1 * GO ENTER IN THE	4F13233
06043	0 07400 1 03321	3200		TSX	TET00,1 * IF SYMBOL IS FXD-PT, GO MAKE	4F13252
06620	0 07400 1 03321	3601		TSX	TET00,1 MAKE FORVAR ENTRY.	4F13650
06627	0 07400 1 03321	3608		TSX	TET00,1	4F13657
06663	0 07400 1 03321	3636		TSX	TET00,1 MAKE FORVAL ENTRY.	4F13684
06707	0 07400 1 03321	3656		TSX	TET00,1 ENTER NAME IN CLOSUB TABLE.	4F13704
07324	0 07400 1 03321	3929		TSX	TET00,1 GO TO ENTER WORD IN HOLARG TABLE	4F13977
10456	0 07400 1 03321	4567		TSX	TET00,A	4F14616
12174	0 07400 1 03321	5419		TSX	TET00,A	4F15474
12556	0 07400 1 03321	5662	ES1500	TSX	TET00,1 * GO TO PROGRAM TET TO ENTER 1C,1C+1	4F15722
12563	0 07400 1 03321	5667		TSX	TET00,1 LAST IFN NUMBERS.	4F15727
12610	0 07400 1 03321	5688		TSX	TET00,A	4F15748

␣TET01 = 1762

Definition
03342 0 76600 0 00224 1390 TET01 WRS TABTAP PREPARE TO WRITE BLOCK ON TABTAP. 4F11413

␣TET02 = 1768

Definition
03350 0 70000 4 00000 1396 TET02 CPY **,4 WRITE BLOCK ONTO 4F11419

References (2)

	03346	0 62100 0 03350	1394		STA	TET02 AND SET ADDRESS OF COPY LOOP (O+B).	4F11417
	03351	2 00001 4 03350	1397		TIX	TET02,4,1 TABLE TAPE, AND	4F11420

␣TET03 = 1774

Definition
03356 0 50000 2 00324 1402 TET03 CLA INTET+2,2 ADD P (PORTION OF BUFFER FULL) 4F11425
Reference
03340 −0 10000 0 03356 1388 TNZ TET03 IF BUFFER IS FULL, 4F11411

␣TET04 = 1784

Definition
03370 0 50000 2 00000 1412 TET04 CLA **,2 MOVE THE CURRENT ENTRY 4F11435

References (2)

	03363	0 62100 0 03370	1407		STA	TET04 AND SET ADDRESS OF ENTRY LOOP.	4F11430
	03373	2 00001 4 03370	1415	TET06	TIX	TET04,4,1 DONE,	4F11438

␣TET05 = 1785

Definition
03371 0 60100 2 00000 1413 TET05 STO **,2 INTO THE CURRENT TABLE BUFFER, AND 4F11436
Reference
03361 0 62100 0 03371 1405 STA TET05 ADDRESS OF ENTRY LOOP (P+O). 4F11428

␣TET06 = 1787

Definition
03373 2 00001 4 03370 1415 TET06 TIX TET04,4,1 DONE, 4F11438
Reference
03372 1 77777 2 03373 1414 TXI TET06,2,−1 WHEN 4F11437

␣TIFGO = 50

Definition
00062 84 TIFGO BSS 10 IF AND GO TO STATEMENTS. 4F10075
Reference
00330 0 00012 0 00062 119 PZE TIFGO,,10 02) O,,B. 4F10110

␣TLDOS = 7941

Definition
17405 3383 TLDOS BSS 250 DO TABLE USED BY IOT. 4F13433

References (2)

	05361	0 73400 2 17405	2808	FLINE	PAX	TLDOS,2 DO FORMULAS IN TDO BY	4F12862
	05362	1 60373 2 05363	2809		TXI	*+1,2,−TLDOS SUBROUTINE TET.	4F12863

␣TLINE = 762

Definition
01372 0 00000 0 00000 312 TLINE PZE ** VARIABLE USED BY IOT. 4F10302

References (4)

05142	0 62100 0 01372	2637	STA	TLINE TABLE LINE C0UNTER.	4F12691
05246	−0 50000 0 01372	2718	CAL	TLINE NOTE AT	4F12772
05252	0 62100 0 01372	2722	STA	TLINE AND INCREASE LINE IN TLINE.	4F12776
05357	0 50000 0 01372	2806	CLA	TLINE IF LEVEL IS ZERO	4F12860

␣TXHOP = 274

Definition
00422 3 00062 0 00312 209 TXHOP TXH FLOCON,,50*1 *** FDA,,K*L 4F10200

References (5)

02073	0 50000 0 00422	715	ALT	CLA	TXHOP PICK UP SWITCH CONTROL,	4F10704
02622	−0 50000 0 00422	1019		CAL	TXHOP PICK UP TXH OP, AND	4F11042
04440	−0 50000 0 00422	2211	C3500	CAL	TXHOP	4F12276
06342	−0 50000 0 00422	3425		CAL	TXHOP SET SWITCHES FOR LEFT SCAN.	4F13474
06761	−0 50000 0 00422	3699	LATXH	CAL	TXHOP	4F13747

␣TXLOP = 269

Definition
00415 −3 00062 0 00002 203 TXLOP TXL FIXCON,,50*1 *** FDA,,K*L 4F10194

References (8)

02071	−0 50000 0 00415	712	DIMALT	CAL	TXLOP PICK UP SNITCH CONTROL,	4F10701
02625	−0 50000 0 00415	1022		CAL	TXLOP PICK UP TXL OP, AND	4F11045
04713	0 50000 0 00415	2413		CLA	TXLOP SET OP-SWITCHES,	4F12467
05664	−0 50000 0 00415	3045		CAL	TXLOP SET OP-SWITCHES,	4F13097
06034	−0 50000 0 00415	3192		CAL	TXLOP PREPARE TO SET OP-SWITCH TO TRA.	4F13244
06036	0 50000 0 00415	3195	VRD	CLA	TXLOP PREPARE TO SET OP-SWITCH TO NOP.	4F13247
06644	−0 50000 0 00415	3621	MS311	CAL	TXLOP SET SWITCHES FOR RIGHT SIDE SCAN.	4F13670
06757	−0 50000 0 00415	3697	LATXL	CAL	TXLOP	4F13745

␣WHICH = 1198

Definition
02256 −0 53400 4 02215 830 WHICH LXD XR4,4 GET ALPHA BAR, AND 4F10819
Reference
D 02147 1 00000 0 02256 759 XERR01 TXI WHICH,0 GO FIND OUT WHICH TABLE OVERFLOWED. 4F10748

1D0000 = 1660

Definition
03174 0 56000 0 01131 1256 1D0000 LDQ E+3 PICKUP AND CONVERT COEFFICIENTS 4F11279
Reference
D 03042 1 00000 0 03174 1166 TXI 1D0000,0 WHETHER DIMENSION OF 4F11189

1D0001 = 1671

Definition
03207 0 76700 0 00022 1267 1D0001 ALS 18 THEN ADJUST AND STORE 4F11290
Reference
03205 0 16200 0 03207 1265 TQP 1D0001 IF PLUS--SKIP NEXT, 4F11288

2D0000 = 1625

Definition
03131 0 53400 4 01412 1221 2D0000 LXA L(4),4 THEN PICKUP AND 4F11244
Reference
D 03043 1 00000 0 03131 1167 TXI 2D0000,0 VARIABLE IS 1, 2, OR 3. 4F11190

2D0001 = 1626

Definition
03132 0 56000 4 01135 1222 2D0001 LDQ E+7,4 CONVERT COEFFICIENTS 4F11245
Reference
03135 2 00002 4 03132 1225 TIX 2D0001,4,2 WHEN DONE, 4F11248

2D0002 = 1631

Definition
03137 0 50000 4 01143 1227 2D0002 CLA E+13,4 PICKUP THE TWO ADDENDS. 4F11250
Reference
03147 2 00001 4 03137 1235 TIX 2D0002,4,1 WHEN DONE, 4F11258

2D0040 = 1638

Definition
03146 0 60100 4 01143 1234 2D0040 STO E+13,4 AND STORE BACK IN E+11 AND E+12. 4F11257
Reference
03144 0 16200 0 03146 1232 TQP 2D0040 IF PLUS--SKIP NEXT, 4F11255

2D0060 = 1642

Definition
03152 0 50000 0 01131 1238 2D0060 CLA E+3 REFORMATIZE E-STRING = 4F11261

36ONES = 857

Definition
01531 5822 36ONES SYN ALL1 4F15874
Reference
03470 0 56000 0 01531 1610 CA023 LDQ 36ONES PLACE BINARY ONES IN FIRST WORD 4F11667

3D0000 = 1572

Definition
03044 0 53400 4 01414 1168 3D0000 LXA L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS. 4F11191

3D0001 = 1573

Definition
03045 0 56000 4 01137 1169 3D0001 LDQ E+9,4 CONVERT THEM FROM BCD TO BINARY 4F11192
Reference
03050 2 00002 4 03045 1172 TIX 3D0001,4,2 WHEN DONE, PREPARE 4F11195

3D0002 = 1578

Definition
03052 0 50000 4 01144 1174 3D0002 CLA E+14,4 CONVERT ADDENDS (BCD TO BINARY)= 4F11197
Reference
03062 2 00001 4 03052 1182 TIX 3D0002,4,1 WHEN DONE, 4F11205

3D0040 = 1585

Definition
03061 0 60100 4 01144 1181 3D0040 STO E+14,4 AND STORE BACK INT0 E+11,12,13. 4F11204
Reference
03057 0 16200 0 03061 1179 TQP 3D0040 IF PLUS--SKIP NEXT, 4F11202

3D0060 = 1589

Definition
03065 0 50000 0 01131 1185 3D0060 CLA E+3 REFORMATIZE E-STRING = 4F11208

3D0340 = 1614

Definition
03116 −0 50100 0 01133 1210 3D0340 ORA E+5 AND IF THEY ARE ALL ZERO, 4F11233
Reference
D 03173 1 00000 0 03116 1255 TXI 3D0340,0 GO TO FORTAG SECTION. 4F11278

3D0350 = 1615

Definition
03117 0 10000 0 03216 1211 3D0350 TZE NOTAG --DON,T ENTER FORTAG. 4F11234
Reference
D 03215 1 00000 0 03117 1273 TXI 3D0350,0 GO TO FORTAG SECTION. 4F11296

5BLANS = 831

Definition
01477 006060606060 388 5BLANS BCD 10␣␣␣␣␣ 006060606060 4F10378

References (3)

03473	0 34000 0 01477	1613	CAS	5BLANS COMPARE WITH /0 /.	4F11670
05572	0 40200 0 01477	2966	SUB	5BLANS STATEMENT NUMBER, AND IF NONE,	4F13020
12604	0 40200 0 01477	5684	SUB	5BLANS	4F15744

ABLANK = 792

Definition
01430 5827 ABLANK SYN BLANK 4F15879

References (2)

	02573	0 34000 0 01430	990		CAS	ABLANK TEST FOR BLANK.	4F11013
	03462	0 40200 0 01430	1604		SUB	ABLANK DISCONTINUE READING,	4F11661

ABTAG2 = 814

Definition
01456 +000001000002 371 ABTAG2 OCT 1000002 CONSTANT USED BY C3200. 4F10361
Reference
04566 0 00000 0 01456 2307 PZE ABTAG2 WORD4--001002 4F12361

ABTAG3 = 816

Definition
01460 +000002000004 373 ABTAG3 OCT 2000004 CONSTANT USED BY C3200. 4F10363
Reference
04573 0 00000 0 01460 2312 PZE ABTAG3 WORD4--002000 4F12366

AC0000 = 5527

Definition
5704 4F15764

12627 0 50000 1 16650 5705 AC0000 CLA SCRIPL,A 4F15765

References (20)

11427	0 07400 4 12627	5061	CP1150	TSX	AC0000,C ADDRESS COMPILE SYM1 (S(I))	4F15111
11453	0 07400 4 12627	5081		TSX	AC0000,C ADDRESS COMPILE SYMJ (S(I))	4F15131
11503	0 07400 4 12627	5105	CP1690	TSX	AC0000,C ADDRESS COMPILE SYMJ (S(I))	4F15155
11522	0 07400 4 12627	5120		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I))	4F15170
11571	0 07400 4 12627	5159		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15209
11614	0 07400 4 12627	5178		TSX	AC0000,C ADDRESS COMPILE SYM3(S(I))	4F15228
11627	0 07400 4 12627	5189		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)), J=4,...	4F15239
11716	0 07400 4 12627	5245	CP2900	TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15295
11720	0 07400 4 12627	5247	CP2930	TSX	AC0000,C OPEN MULTIVARIATE FUNCTION	4F15297
11757	0 07400 4 12627	5278		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15333
11772	0 07400 4 12627	5289	CP3420	TSX	AC0000,C ADDRESS COMPILE SYM3(S(I))	4F15344
12003	0 07400 4 12627	5298		TSX	AC0000,C ADDRESS COMPILE SYM2(SI)))	4F15353
12017	0 07400 4 12627	5310		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...	4F15365
12050	0 07400 4 12627	5335		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...	4F15390
12074	0 07400 4 12627	5355		TSX	AC0000,C ASDRESS COMPILE SYM2(S(I))	4F15410
12120	0 07400 4 12627	5375	CP4310	TSX	AC0000,C ADDRESS COMPILE SYM1(S(I))	4F15430
12140	0 07400 4 12627	5391	CP4470	TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15446
12201	0 07400 4 12627	5424		TSX	AC0000,C ADDRESS COMPILE SYM1(S(I))	4F15484
12222	0 07400 4 12627	5442		TSX	AC0000,C	4F15502
12313	0 07400 4 12627	5499		TSX	AC0000,C NONSUBSCRIPTED	4F15559

AC0060 = 5533

Definition
12635 −0 50000 0 16170 5711 AC0060 CAL TAGWRD 4F15771
Reference
12415 0 07400 4 12635 5565 TSX AC0060,C ADDRESS COMPILE VAR1ABLE ON LEFT 4F15625

AC0320 = 5564

Definition
12674 0 60200 0 16166 5742 AC0320 SLW CW+2 4F15802

References (2)

	12700	0 02000 0 12674	5746		TRA	AC0320	4F15806
	12720	0 02000 0 12674	5762		TRA	AC0320	4F15822

AC0340 = 5566

Definition
12676 0 60000 0 16167 5744 AC0340 STZ CW+3 NON-SUBSCRIPTED, REAL VARIABLE 4F15804
Reference
12661 0 16200 0 12676 5731 TQP AC0340 NO 4F15791

AC0350 = 5569

Definition
12701 −0 50000 0 01522 5747 AC0350 CAL H( 4F15807
Reference
12656 0 10000 0 12701 5728 TZE AC0350 YES 4F15788

AC0390 = 5571

Definition
12703 0 50000 0 01501 5749 AC0390 CLA I( FIX PT INTERNAL VARIABLE 4F15809
Reference
12653 0 10000 0 12703 5725 TZE AC0390 YES 4F15785

AC0410 = 5573

Definition
12705 0 50000 0 01502 5751 AC0410 CLA A( FLO PT INTERNAL VARIABLE 4F15811
Reference
12650 0 10000 0 12705 5722 TZE AC0410 YES 4F15782

AC0420 = 5574

Definition
12706 0 60100 0 16166 5752 AC0420 STO CW+2 4F15812

References (2)

	12702	0 02000 0 12706	5748		TRA	AC0420	4F15808
	12704	0 02000 0 12706	5750		TRA	AC0420	4F15810

AC0460 = 5578

Definition
12712 −0 76300 0 00043 5756 AC0460 LGL 35 SYMBOL IS SOME S(K). 4F15816
Reference
12645 0 16200 0 12712 5719 TQP AC0460 SYMBOL IS SOME S(K) 4F15779

AC0540 = 5585

Definition
12721 0 60200 0 16170 5763 AC0540 SLW TAGWRD SUBSCRIPTED VARIABLE 4F15823
Reference
12640 0 02000 0 12721 5714 TRA AC0540 4F15774

ACOMMA = 766

Definition
01376 5828 ACOMMA SYN COMMA 4F15880
Reference
03606 0 34000 0 01376 1698 CB205 CAS ACOMMA IF A COMMA, 4F11755

ADPLUS = 842

Definition
01512 +200000000000 399 ADPLUS OCT 200000000000 ADDITION SIGN -ARITHMETIC. 4F10389

References (3)

06346	−0 50000 0 01512	3429	MS010	CAL	ADPLUS SET OP TO ADDITION	4F13478
11705	0 56000 0 01512	5236		LDQ	ADPLUS	4F15286
12114	0 56000 0 01512	5371		LDQ	ADPLUS 0... BASE IN ACC	4F15426

ADSPOP = 850

Definition
01522 −130000000000 407 ADSPOP OCT 530000000000 $00000 4F10397

References (4)

06507	−0 50000 0 01522	3526		CAL	ADSPOP	4F13575
07070	−0 50000 0 01522	3770		CAL	ADSPOP	4F13818
07245	−0 50000 0 01522	3879		CAL	ADSPOP	4F13927
	01522	5871	H(	SYN	ADSPOP	4F15927

ADSTAR = 852

Definition
01524 −140000000000 409 ADSTAR OCT −140000000000 MULTIPLICATION SIGN -ARITHMETIC. 4F10399

References (5)

07235	−0 50000 0 01524	3871	LA4150	CAL	ADSTAR	4F13919
07310	−0 50000 0 01524	3914	MS020	CAL	ADSTAR	4F13962
11710	0 56000 0 01524	5239		LDQ	ADSTAR	4F15289
12106	0 50000 0 01524	5365	CP4200	CLA	ADSTAR	4F15420
12112	0 56000 0 01524	5369		LDQ	ADSTAR 1... BASE NOT STORED	4F15424

AEQUAL = 768

Definition
01400 5830 AEQUAL SYN EQUAL 4F15882

References (2)

	03565	0 34000 0 01400	1681		CAS	AEQUAL IF AN EQUAL SIGN,	4F11738
	04046	0 56000 0 01400	1885		LDQ	AEQUAL REPLACE THE CHARACTER LPAREN	4F11942

ARERAS = 592

Definition
01120 281 ARERAS BSS 1 STORAGE USED BY ARITHMETIC. 4F10271

References (4)

06340	0 60200 0 01120	3423	SLW	ARERAS X	4F13472
06546	−0 60200 0 01120	3557	ORS	ARERAS ALSO SAVE FOR LATER REFERENCF.	4F13606
12345	0 50000 0 01120	5525	CLA	ARERAS S(I) NOT = S(0)	4F15585
12717	−0 50000 0 01120	5761	CAL	ARERAS	4F15821

ARGCNT = 593

Definition
01121 −0 00001 0 00004 282 ARGCNT MZE 4,,1 ARGUMENT COUNTER USED BY C30,C32. 4F10272

References (6)

04445	0 50000 0 01121	2216	CLA	ARGCNT SET ARGCNT TO INDICATE TO LATER	4F12281
04447	0 60100 0 01121	2218	STO	ARGCNT SUBROUTINE OR FUNCTION STATEMENT.	4F12283
04503	0 50000 0 01121	2246	CLA	ARGCNT UPDATE	4F12311
04505	0 60100 0 01121	2248	STO	ARGCNT BY 1. AND	4F12313
04542	0 50000 0 01121	2287	CLA	ARGCNT TEST ARGCNT FOR PRECEEDING	4F12341
04600	0 00000 0 01121	2317	PZE	ARGCNT WORD4--0(N+1)004	4F12371

ARGCTR = 594

Definition
01122 283 ARGCTR BSS 1 STORAGE USED BY ARITHMETIC. 4F10273

References (11)

03406	−0 53400 4 01122	1439		LXD	ARGCTR,4	4F114576
06326	0 60000 0 01122	3413		STZ	ARGCTR CLEAR	4F13462
06470	−0 53400 2 01122	3511		LXD	ARGCTR,2 GET COUNT OF ARGUMENTS	4F13560
06474	−0 63400 2 01122	3515	FS050	SXD	ARGCTR,2	4F13564
06540	−0 53400 4 01122	3551	MS232	LXD	ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT	4F13600
07004	−0 53400 4 01122	3718		LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F13766
07027	−0 53400 4 01122	3737		LXD	ARGCTR,C VARIABLE OR (	4F13785
11070	−0 53400 4 01122	4833	PC0000	LXD	ARGCTR,C IS THIS AN FS	4F14882
11256	−0 53400 4 01122	4956		LXD	ARGCTR,C IS THIS AN FS STATEMENT	4F15006
12373	−0 53400 4 01122	5547		LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F15607
12521	−0 53400 4 01122	5633	ES0610	LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F15693

ARGORG = 7282

Definition
16162 5805 ARGORG BSS 1 4F15857

References (4)

11552	0 60200 0 16162	5144	SLW	ARGORG AND STO IN ARGORG	4F15194
11564	0 00000 0 16162	5154	HTR	ARGORG	4F15204
11607	0 00000 0 16162	5173	HTR	ARGORG	4F15223
11634	0 00000 0 16162	5194	HTR	ARGORG	4F15244

ARGREG = 6797

Definition
15215 4142 ARGREG BSS 50 4F14189

References (2)

	06472	−0 60000 2 15215	3513		STQ	ARGREG,2 X	4F13562
	07032	0 34000 1 15215	3740		CAS	ARGREG,A SEARCH FREE VARIABLE TABLE	4F13788

AS0000 = 4270

Definition
10256 0 53400 7 01406 4439 AS0000 LXA L(0),7 RENUMBER SEGMENT OF SCRIPL 4F14488
Reference
10111 −3 00000 1 10256 4338 PM0080 TXL AS0000,A,0 EXIT FROM PERMUTATION ROUTINE 4F14387

AS0100 = 4271

Definition
10257 0 50000 2 15044 4440 AS0100 CLA BETA,B 4F14489
Reference
10266 3 00000 2 10257 4447 AS0800 TXH AS0100,B,0 4F14496

AS0700 = 4277

Definition
10265 1 77777 2 10266 4446 AS0700 TXI AS0800,B,−1 4F14495

References (2)

	10260	0 10000 0 10265	4441		TZE	AS0700	4F14490
	10264	1 77777 4 10265	4445		TXI	AS0700,C,−1	4F14494

AS0800 = 4278

Definition
10266 3 00000 2 10257 4447 AS0800 TXH AS0100,B,0 4F14496

References (2)

	07631	−0 63400 1 10266	4162		SXD	AS0800,A	4F14211
	10265	1 77777 2 10266	4446	AS0700	TXI	AS0800,B,−1	4F14495

AS0900 = 4279

Definition
10267 0 50000 1 16650 4448 AS0900 CLA SCRIPL,A 4F14497
Reference
10300 3 00000 1 10267 4457 AS1800 TXH AS0900,A,0 4F14506

AS1800 = 4288

Definition
10300 3 00000 1 10267 4457 AS1800 TXH AS0900,A,0 4F14506

References (3)

10076	−0 63400 4 10300	4327	SXD	AS1800,C	4F14376
10277	1 77775 1 10300	4456	TXI	AS1800,A,−3	4F14505
10306	1 77775 1 10300	4463	TXI	AS1800,A,−3	4F14512

AS2000 = 4290

Definition
10302 −0 76300 0 00043 4459 AS2000 LGL 35 4F14508
Reference
10276 0 16200 0 10302 4455 TQP AS2000 4F14504

AS2500 = 4295

Definition
10307 0 53400 3 01406 4464 AS2500 LXA L(0),3 LDXA,XB WITH 0 4F14513
Reference
10301 0 02000 0 10307 4458 TRA AS2500 4F14507

AS2700 = 4297

Definition
10311 −0 60000 2 15044 4466 AS2700 STQ BETA,B RECLEAR BETA TABLE 4F14515
Reference
10313 3 00000 2 10311 4468 AS2900 TXH AS2700,B,0 4F14517

AS2900 = 4299

Definition
10313 3 00000 2 10311 4468 AS2900 TXH AS2700,B,0 4F14517

References (2)

	07632	−0 63400 1 10313	4163		SXD	AS2900,A	4F14212
	10312	1 77777 2 10313	4467		TXI	AS2900,B,−1	4F14516

AS3000 = 4300

Definition
10314 0 50000 1 16650 4469 AS3000 CLA SCRIPL,A ADD INTO GAMMA COUNTERS 4F14518
Reference
10323 3 00000 1 10314 4476 AS3600 TXH AS3000,A,0 -3Q IN XA AT END 4F14525

AS3600 = 4307

Definition
10323 3 00000 1 10314 4476 AS3600 TXH AS3000,A,0 -3Q IN XA AT END 4F14525

References (6)

10077	−0 63400 4 10323	4328		SXD	AS3600,C	4F14377
10322	1 77775 1 10323	4475		TXI	AS3600,A,−3	4F14524
10354	−0 53400 1 10323	4501	CCS240	LXD	AS3600,A -3Q TO XA	4F14550
10610	−0 53400 1 10323	4657	LK0000	LXD	AS3600,A -3Q TO XA	4F14706
10622	−0 63400 1 10323	4667	LK0140	SXD	AS3600,A	4F14716
10725	−0 53400 1 10323	4734		LXD	AS3600,A RESTORE XA	4F14783

BETAD1 = 838

Definition
01506 +077775077775 395 BETAD1 OCT 77775077775 (-3(*2**18+(-3) -ARITHMETIC. 4F10365

References (2)

	07645	0 40000 0 01506	4174		ADD	BETAD1 (-3)2*18+(-3)	4F14223
	07656	0 40200 0 01506	4183		SUB	BETAD1	4F14232

BETAD2 = 818

Definition
01462 +000003077775 375 BETAD2 OCT 3077775 3*2**18+(-3) -ARITHMETIC. 4F10365
Reference
10317 0 40000 0 01462 4472 ADD BETAD2 3*2**18+(-3) 4F14521

BLANKS = 854

Definition
01526 606060606060 411 BLANKS BCD 1␣␣␣␣␣␣ 606O60606060 4F10401

References (7)

03235	0 56000 0 01526	1294	SUBX03	LDQ	BLANKS IF LESS THAN 6 CHARACTERS IN NAME,	4F11317
03464	0 50000 0 01526	1606	CA021	CLA	BLANKS BEGIN SCANNING REGION F BACKWARDS	4F11663
05124	−0 50000 0 01526	2614		CAL	BLANKS PRECEED WITH BLANKS ANY	4F12668
05726	0 50000 0 01526	3090	CA112	CLA	BLANKS TEST	4F13142
06441	0 56000 0 01526	3488		LDQ	BLANKS ADD BLANKS TO SUBROUTINE NAME IN G.	4F13537
06703	0 56000 0 01526	3652		LDQ	BLANKS COMPLETE NAME WITH BLANKS.	4F13700
06751	0 56000 0 01526	3690		LDQ	BLANKS NOT SIX CHARS, PREPARE TO ADD BLANKS	4F13738

BUFFM1 = 1124

Definition
02144 −0 53400 2 02362 756 BUFFM1 LXD FDA,2 4F10745
Reference
02225 −2 00001 4 02144 805 TNX BUFFM1,4,1 N = N-1 OR ITEM NOT IN TABLE. 4F10794

C0180X = 940

Definition

		519			END OF PROGRAM C0160.	4F10509
		520			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10510
		521				4F10511
		522			C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400,	4F10512
		523			C1000,C1100,C1200,C1400,C1500,C0150.	4F10513
		524			C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ T0	4F10514
		525			BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN	4F10515
		526			THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC.	4F10516
01654	0 07400 4 01707	527	C0180X	TSX	C0190,4 * OBTAIN 1ST NUMERIC IN THE AC.	4F105165

References (8)

04222	0 07400 2 01654	2034		TSX	C0180X,2 * GO FORM BINARY EQUIV OF ALPHA.	4F12091
04251	0 07400 2 01654	2062	C1100	TSX	C0180X,2 * GO FORM BINARY EQUIV OF SL NUMBER.	4F12120
04305	0 07400 2 01654	2095	C1282	TSX	C0180X,2 * GO FORM BINARY EQUIV OF D1.	4F12154
04313	0 07400 2 01654	2101		TSX	C0180X,2 * GO FORM BINARY EQUIV OF D2.	4F12161
04320	0 07400 2 01654	2106		TSX	C0180X,2 * GO FORM BINARY EQUIV 0F D3.	4F12168
04354	0 07400 2 01654	2144	C1400	TSX	C0180X,2 * GO FORM BINARY EQUIV OF EFN.	4F122006
04362	0 07400 2 01654	2150	C1401	TSX	C0180X,2 * GO FORM BINARY EQUIV OF M(1).	4F12213
04411	0 07400 2 01654	2178	C1502	TSX	C0180X,2 * GO FORM BINARY EQUIV OF N.	4F12242

C0190X = 953

Definition

		540			END OF PR0GRAM C01080	4F10529
		541			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10530
		542				4F10531
		543			C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300.	4F10532
		544			C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMULA IN F.	4F10533
01671	0 50000 0 01670	545	C0190X	CLA	DCF SET FORMULA WORD	4F10534

References (6)

03503	0 07400 4 01671	1626	CD000	TSX	C0190X,4 * SET SCAN TO PICK UP 1ST CHARACTER.	4F11683
03563	0 07400 4 01671	1679		TSX	C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN.	4F11736
03620	0 07400 4 01671	1713	CC001	TSX	C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN.	4F11770
04037	0 07400 4 01671	1878		TSX	C0190X,4 * SET CHCTR AND FWA TO BEGIN SCAN.	4F11935
04614	0 07400 4 01671	2334		TSX	C0190X,4 * PSEUDO-ARITHMETIC FORMULA (Z10=).	4F12388
06341	0 07400 4 01671	3424		TSX	C0190X,4 SET FWA - -F AND CHCTR - 0	4F13473

C33525 = 3540

Definition
06724 −0 76300 0 00006 3669 C33525 LGL 6 GET NEXT CHAR 4F13717
Reference
06743 0 02000 0 06724 3684 TRA C33525 CONTINUE COLLECTING 4F13732

CALLER = 809

Definition
01451 +000000007112 366 CALLER OCT 7112 4F10356

References (2)

	06625	0 40200 0 01451	3606		SUB	CALLER	4F13655
	12364	0 34000 0 01451	5540	ES0200	CAS	CALLER IS THIS A CALL STATEMENT	4F15600

CALLFN = 190

Definition
00276 98 CALLFN BSS 10 1ST / LAST IFN FOR CALL STATEMENTS. 4F10089
Reference
00402 0 00012 0 00276 175 PZE CALLFN,,10 16) 0,,B. 4F10166

CALLNM = 595

Definition
01123 0 00000 0 00000 284 CALLNM PZE **,,** 4F10274

References (3)

00403	0 00001 0 01123	176	PZE	CALLNM,,1 A,,E.	4F10167
04630	0 62100 0 01123	2346	STA	CALLNM FIRST / LAST NUMBERS OF CALLS.	4F12400
12562	−0 63400 4 01123	5666	SXD	CALLNM,4 PREPARE ENTRY FOR TABLE OF CALL FIRST AND	4F15726

CCS000 = 4309

Definition
10325 −0 50000 1 16645 4478 CCS000 CAL SCRIPL−3,A ELIMINATE COMMON SUBEXPRESSIONS 4F14527

References (3)

10335	0 10000 0 10325	4486		TZE	CCS000 CONTINUE TO S(I-1)	4F14535
10350	3 00001 4 10325	4497	CCS200	TXH	CCS000,C,1 MULTIPLE REFERENCE	4F14546
10353	0 02000 0 10325	4500		TRA	CCS000 CONTINUE FOR S(I-1)	4F14549

CCS060 = 4314

Definition
10332 1 00000 1 10333 4483 CCS060 TXI CCS070,A,0 BEGINNING OF CURRENT SEGMENT 4F14532
Reference
10331 0 62200 0 10332 4482 STD CCS060 AND BACK UP TO 4F14531

CCS070 = 4315

Definition
10333 −0 50000 1 16651 4484 CCS070 CAL SCRIPL+1,A OBTAIN OP1 (S(I)) 4F14533
Reference
10332 1 00000 1 10333 4483 CCS060 TXI CCS070,A,0 BEGINNING OF CURRENT SEGMENT 4F14532

CCS140 = 4322

Definition
10342 1 00000 3 10343 4491 CCS140 TXI CCS150,3,0 XA TO XA,XB 4F14540
Reference
10341 −0 53400 2 10342 4490 LXD CCS140,B AND KEEP COUNT OF SAME 4F14539

CCS150 = 4323

Definition
10343 −3 00000 2 10350 4492 CCS150 TXL CCS200,B,0 SEARCH-UP FINISHED. EXAMINE COUNT 4F14541

References (3)

10342	1 00000 3 10343	4491	CCS140	TXI	CCS150,3,0 XA TO XA,XB	4F14540
10345	1 00003 2 10343	4494		TXI	CCS150,B,3 CONTINUE SEARCH	4F14543
10347	1 00003 2 10343	4496	CCS190	TXI	CCS150,B,3 CONTINUE SEARCH	4F14545

CCS190 = 4327

Definition
10347 1 00003 2 10343 4496 CCS190 TXI CCS150,B,3 CONTINUE SEARCH 4F14545
Reference
10346 1 00001 4 10347 4495 TXI CCS190,C,1 RAISE REF COUNTER AND 4F14544

CCS200 = 4328

Definition
10350 3 00001 4 10325 4497 CCS200 TXH CCS000,C,1 MULTIPLE REFERENCE 4F14546
Reference
10343 −3 00000 2 10350 4492 CCS150 TXL CCS200,B,0 SEARCH-UP FINISHED. EXAMINE COUNT 4F14541

CCS240 = 4332

Definition
10354 −0 53400 1 10323 4501 CCS240 LXD AS3600,A -3Q TO XA 4F14550
Reference
10327 −3 00000 2 10354 4480 TXL CCS240,B,0 EXIT AT S(0) 4F14529

CHSAVE = 596

Definition
01124 285 CHSAVE BSS 1 WORKING STORAGE USED BY ROYCNV. 4F10275

References (10)

06327	0 60000 0 01124	3414		STZ	CHSAVE X	4F13463
06356	−0 50000 0 01124	3437	MS040	CAL	CHSAVE CHAR IN CHSAVE, IF ANY, TO AC.	4F13486
06426	0 60000 0 01124	3477	MS090	STZ	CHSAVE CLEAR	4F13526
06430	0 60200 0 01124	3479	MS091	SLW	CHSAVE OP IS IN NEXT ELEMENT, SAVE.	4F13528
06632	0 60000 0 01124	3611	MS320	STZ	CHSAVE CLEAR CELL FOR OP.	4F13660
06653	0 60000 0 01124	3628		STZ	CHSAVE CLEAR	4F13677
06713	0 60000 0 01124	3660	HOLL	STZ	CHSAVE CLEAR CHSAVE	4F13708
07363	0 60200 0 01124	3972		SLW	CHSAVE SAVE IT FOR STATE B, AND THEN	4F14020
07432	0 60200 0 01124	4011		SLW	CHSAVE SAVE IT FOR STATE B, AND	4F14059
07452	0 60200 0 01124	4027		SLW	CHSAVE SAVE IT FOR STATE B,	4F14075

CITMQR = 616

Definition
01150 5839 CITMQR SYN E1C ERASABLE STORAGE. 4F15891

References (2)

	01733	−0 60000 0 01150	599		STQ	CITMQR SAVE THE C(MQR).	4F10588
	01765	0 56000 0 01150	625		LDQ	CITMQR RESTORE THE C(MQR),	4F10614

CITTAP = 147

Definition
00223 5840 CITTAP SYN 147 COMPILED INSTRUCTION TAPE. 4F15892
Reference
01740 0 76600 0 00223 604 WRS CITTAP PREPARE TO WRITE BLOCK ON CIT TAPE. 4F10593

CITXR1 = 577

Definition
01101 5841 CITXR1 SYN ERASE+1 ERASABLE STORAGE. 4F15893

References (2)

	01732	−0 63400 1 01101	598		SXD	CITXR1,1 SAVE THE C(XR1).	4F10587
	01766	−0 53400 1 01101	626		LXD	CITXR1,1 RESTORE THE C(XR1),	4F10615

CITXR2 = 578

Definition
01102 5842 CITXR2 SYN ERASE+2 ERASABLE STORAGE. 4F15894

References (2)

	01731	−0 63400 2 01102	597	CIT00	SXD	CITXR2,2 SAVE THE C(XR2).	4F10586
	01767	−0 53400 2 01102	627		LXD	CITXR2,2 RESTORE THE C(XR2I, AND	4F10616

CLDR00 = 313

Definition

		1473			INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER	4F11466
		1474			BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE	4F11467
		1475			PROGRAM.	4F11468
		1476			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11469
		1477				4F11470
		1478			PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 =	4F11471
00471	0 53400 1 00504	1479	CLDR00	LXA	CLDR07,1 CLEAR DRUMS 1,2,3,4 TO +0.	4F11472

CLDR01 = 314

Definition
00472 0 76600 1 00305 1480 CLDR01 WRS 197,1 X 4F11473
Reference
00476 2 00001 1 00472 1484 TIX CLDR01,1,1 X 4F11477

CLDR03 = 316

Definition
00474 0 70000 0 00505 1482 CLDR03 CPY CLDR08 X 4F11475
Reference
00475 2 00001 2 00474 1483 TIX CLDR03,2,1 X 4F11476

CLDR07 = 324

Definition

		1490			END OF INITIALIZATION / PART 2.	4F11542
		1491			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11543
		1492				4F11544
		1493			PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION=	4F11545
00504	0 04000 0 00004	1494	CLDR07	PZE	4,,2048 CONSTANT FOR CLEARING DRUMS.	4F11548

References (2)

	00471	0 53400 1 00504	1479	CLDR00	LXA	CLDR07,1 CLEAR DRUMS 1,2,3,4 TO +0.	4F11472
	00473	−0 53400 2 00504	1481		LXD	CLDR07,2 X	4F11474

CLDR08 = 325

Definition
00505 0 00000 0 00000 1495 CLDR08 PZE 0 CONSTANT FOR CLEARING DRUMS. 4F11549
Reference
00474 0 70000 0 00505 1482 CLDR03 CPY CLDR08 X 4F11475

CLOSUB = 120

Definition
00170 91 CLOSUB BSS 10 NAMES OF SUBROUTINES. 4F10082
Reference
00355 0 00012 0 00170 147 PZE CLOSUB,,10 09) O,,B. 4F10138

CM4100 = 3778

Definition
07302 1 77775 1 07303 3908 CM4100 TXI CM4101,A,−3 LA COUNTER MODIFICATION ROUTINES 4F13956
Reference
D 06363 3 00000 0 07302 3442 MS4007 TXH CM4100,0 4F13491

CM4101 = 3779

Definition
07303 −0 63400 1 01117 3909 CM4101 SXD 3LBAR,A 4F13957
Reference
07302 1 77775 1 07303 3908 CM4100 TXI CM4101,A,−3 LA COUNTER MODIFICATION ROUTINES 4F13956

CM4102 = 3780

Definition
07304 −0 63400 2 15277 3910 CM4102 SXD CBAR,B 4F13958
Reference
07321 1 77777 2 07304 3923 TXI CM4102,B,−1 4F13971

CM4104 = 3782

Definition
07306 −0 63400 2 01360 3912 CM4104 SXD NBAR,B 4F13960
Reference
07305 1 77777 2 07306 3911 TXI CM4104,B,−1 4F13959

CM4105 = 3783

Definition
U 07307 00000 0 06346 3913 CM4105 *** MS010,0 4F13961
Reference
06762 0 63000 0 07307 3700 STP CM4105 4F13748

CM4200 = 3786

Definition
07312 1 77775 1 07313 3916 CM4200 TXI CM4201,A,−3 4F13964
Reference
D 06464 3 00000 0 07312 3507 MS9002 TXH CM4200,0 4F13556

CM4201 = 3787

Definition
07313 −0 63400 1 01117 3917 CM4201 SXD 3LBAR,A 4F13965
Reference
07312 1 77775 1 07313 3916 CM4200 TXI CM4201,A,−3 4F13964

CM4300 = 3789

Definition
07315 1 77772 1 07316 3919 CM4300 TXI CM4301,A,−6 4F13967
Reference
07112 −0 75400 2 07315 3788 FINI03 PXD CM4300,B 4F13836

CM4301 = 3790

Definition
07316 −0 63400 1 01117 3920 CM4301 SXD 3LBAR,A 4F13968
Reference
07315 1 77772 1 07316 3919 CM4300 TXI CM4301,A,−6 4F13967

CM4303 = 3792

Definition
07320 −0 63400 4 15300 3922 CM4303 SXD ABAR,C 4F13970

References (2)

	07314	1 77777 4 07320	3918		TXI	CM4303,C,−1	4F13966
	07317	1 77777 4 07320	3921		TXI	CM4303,C,−1	4F13969

COMMON = 150

Definition
00226 94 COMMON BSS 10 UPPER MEMORY STORAGE STATEMENTS. 4F10085
Reference
00366 0 00012 0 00226 159 PZE COMMON,,10 12I O,,B. 4F10150

COMPUT = 1203

Definition
02263 0 40200 0 01413 835 COMPUT SUB L(5) COMPUTE WHICH 4F10824
Reference
02265 2 00001 4 02263 837 TIX COMPUT,4,1 IF TABLE IS NOT FOUND, 4F10826

CP0000 = 4780

Definition
4953 4F15003

11254 0 76000 0 00140 4954 CP0000 SLF TURN OFF ALL SENSE LITES 4F15004
Reference
11230 0 02000 0 11254 4933 TRA CP0000 EXIT TO COMPILER 4F14983

CP0090 = 4789

Definition
11265 −0 50000 0 00030 4963 CP0090 CAL EIFNO 4F15013
Reference
11257 −3 00000 4 11265 4957 TXL CP0090,C,0 NO 4F15007

CP0130 = 4793

Definition
11271 0 50000 1 16645 4967 CP0130 CLA SCRIPL−3,A EXTRACT CURRENT S(II 4F15017

References (2)

	12341	0 02000 0 11271	5521		TRA	CP0130 GO TO NEXT SEGMENT	4F15581
	12356	0 02000 0 11271	5534		TRA	CP0130 GO TO NEXT SEGMENT	4F15594

CP0140 = 4794

Definition
11272 0 73400 2 00000 4968 CP0140 PAX ,2 4F15018

CP0180 = 4798

Definition
11276 0 73400 2 01356 4972 CP0180 PAX TAU3,B 4F15022

CP0240 = 4804

Definition
11304 1 00000 1 11305 4978 CP0240 TXI CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I) 4F15028
Reference
11303 0 62200 0 11304 4977 STD CP0240 4F15027

CP0250 = 4805

Definition
11305 −0 63400 1 01117 4979 CP0250 SXD 3QBAR,A 4F15029
Reference
11304 1 00000 1 11305 4978 CP0240 TXI CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I) 4F15028

CP0310 = 4811

Definition
11313 0 76000 0 00141 4985 CP0310 SLN 1 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO 4F15035
Reference
11311 0 02000 0 11313 4983 TRA CP0310 OP1 (S(I)) 29 = 0 4F15033

CP0350 = 4815

Definition
11317 −0 77300 0 00001 4989 CP0350 RQL 1 4F15039
Reference
11315 0 16200 0 11317 4987 TQP CP0350 OP1 (S(I)) 31 = 0, SO SET STO LITE 4F15037

CP0370 = 4817

Definition
11321 −0 77300 0 00002 4991 CP0370 RQL 2 4F15041
Reference
11312 0 16200 0 11321 4984 TQP CP0370 OP1 (S(I)) 30 = 0 4F15034

CP0380 = 4818

Definition
11322 0 16200 0 11326 4992 CP0380 TQP CP0420 TEST OP1 (S(I)) 32 4F15042
Reference
11320 0 02000 0 11322 4990 TRA CP0380 4F15040

CP0400 = 4820

Definition
11324 3 00000 0 00000 4994 CP0400 TXH 0,0,0 4F15044

References (16)

11277	−0 63400 2 11324	4973		SXD	CP0400,B	4F15023
11341	−0 53400 2 11324	5007	CP0540	LXD	CP0400,B OP1 (S(I)) 35 = 1	4F15057
11344	−0 63400 2 11324	5010		SXD	CP0400,B	4F15060
11575	−0 53400 2 11324	5163		LXD	CP0400,B	4F15213
11600	−0 63400 2 11324	5166		SXD	CP0400,B	4F15216
11621	−0 53400 2 11324	5183	CP2370	LXD	CP0400,B	4F15233
11624	−0 63400 2 11324	5186		SXD	CP0400,B	4F15236
11675	−0 53400 2 11324	5228		LXD	CP0400,B	4F15278
11721	−0 53400 2 11324	5248		LXD	CP0400,B	4F15298
11724	−0 63400 2 11324	5251		SXD	CP0400,B	4F15301
12032	−0 53400 2 11324	5321		LXD	CP0400,B	4F15376
12037	−0 63400 2 11324	5326	CP3800	SXD	CP0400,B	4F15381
12063	−0 53400 2 11324	5346		LXD	CP0400,B	4F15401
12070	−0 63400 2 11324	5351	CP4050	SXD	CP0400,B	4F15406
12325	−0 53400 2 11324	5509		LXD	CP0400,B	4F15569
12330	−0 63400 2 11324	5512		SXD	CP0400,B	4F15572

CP0420 = 4822

Definition
11326 0 76000 0 00144 4996 CP0420 SLN 4 OP1 (S(II) 32 = 0, SO SET FXPTSW 4F15046
Reference
11322 0 16200 0 11326 4992 CP0380 TQP CP0420 TEST OP1 (S(I)) 32 4F15042

CP0430 = 4823

Definition
11327 −0 75400 0 00000 4997 CP0430 PXD 0,0 4F15047
Reference
11325 0 02000 0 11327 4995 TRA CP0430 4F15045

CP0540 = 4833

Definition
11341 −0 53400 2 11324 5007 CP0540 LXD CP0400,B OP1 (S(I)) 35 = 1 4F15057

References (7)

11374	0 02000 0 11341	5034	TRA	CP0540	4F15084
11420	0 02000 0 11341	5054	TRA	CP0540 OP1 (S(I)) 35 = 1, SO GO MODIFY J	4F15104
11432	0 02000 0 11341	5064	TRA	CP0540 GO MODIFY J	4F15114
11467	0 02000 0 11341	5093	TRA	CP0540 GO MODIFY J	4F15143
11505	0 02000 0 11341	5107	TRA	CP0540 GO MODIFY J	4F15157
11536	0 02000 0 11341	5132	TRA	CP0540 GO MODIFY J	4F15182
11542	0 02000 0 11341	5136	TRA	CP0540 GO MODIFY J.	4F15186

CP0560 = 4835

Definition
11343 −3 00000 2 12337 5009 CP0560 TXL ES0000,B,0 GO TO END-OF-SEGMENT SBRTN 4F15059
Reference
11342 1 00003 2 11343 5008 TXI CP0560,B,3 4F15058

CP0590 = 4838

Definition
11346 −0 75400 0 00000 5012 CP0590 PXD 0,0 4F15062
Reference
11345 1 77775 1 11346 5011 TXI CP0590,A,−3 4F15061

CP0740 = 4851

Definition
11363 0 60200 0 16165 5025 CP0740 SLW CW+1 4F15075
Reference
11360 0 02000 0 11363 5022 TRA CP0740 4F15072

CP0760 = 4853

Definition
11365 −0 76300 0 00035 5027 CP0760 LGL 29 OP1 (S(I)) = - 4F15077
Reference
11336 0 10000 0 11365 5004 TZE CP0760 4F15054

CP0850 = 4861

Definition
11375 −0 50000 0 01543 5035 CP0850 CAL L(CLS) OP1 (S(I)) 35 = 0, S0 4F15085
Reference
11366 0 16200 0 11375 5028 TQP CP0850 4F15078

CP0880 = 4864

Definition
11400 −0 50000 0 01553 5038 CP0880 CAL L(FSB) OPJ (SII)I = - 4F15088
Reference
11355 0 10000 0 11400 5019 TZE CP0880 OPJ (S(I)) = - 4F15069

CP0940 = 4869

Definition
11405 0 60200 0 16165 5043 CP0940 SLW CW+1 4F15093
Reference
11402 0 02000 0 11405 5040 TRA CP0940 4F15090

CP0960 = 4871

Definition
11407 0 16200 0 11411 5045 CP0960 TQP CP0980 4F15095
Reference
11333 1 00000 0 11407 5001 TXI CP0960,0,0 4F15051

CP0980 = 4873

Definition
11411 −0 76300 0 00035 5047 CP0980 LGL 29 OP1 (S(I)) = * 4F15097
Reference
11407 0 16200 0 11411 5045 CP0960 TQP CP0980 4F15095

CP1050 = 4879

Definition
11417 0 16200 0 11421 5053 CP1050 TQP CP1070 4F15103
Reference
11414 0 02000 0 11417 5050 TRA CP1050 OP1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON 4F15100

CP1070 = 4881

Definition
11421 −0 50000 0 01556 5055 CP1070 CAL L(LDQ) OP1 (S(I)) 35 = 0 4F15105
Reference
11417 0 16200 0 11421 5053 CP1050 TQP CP1070 4F15103

CP1130 = 4885

Definition
11425 −0 50000 0 01541 5059 CP1130 CAL L(CLA) 4F15109
Reference
11340 0 16200 0 11425 5006 TQP CP1130 OP1 (S(I)) 35 = 0 4F15056

CP1140 = 4886

Definition
11426 0 60200 0 16165 5060 CP1140 SLW CW+1 4F15110
Reference
11423 0 02000 0 11426 5057 TRA CP1140 EL1 (S(I)) TO MQ 4F15107

CP1150 = 4887

Definition
11427 0 07400 4 12627 5061 CP1150 TSX AC0000,C ADDRESS COMPILE SYM1 (S(I)) 4F15111
Reference
11377 0 02000 0 11427 5037 TRA CP1150 4F15087

CP1200 = 4891

Definition
11433 −0 76000 0 00143 5065 CP1200 SLT 3 OPJ (S(I)) = / 4F15115
Reference
11352 0 02000 0 11433 5016 TRA CP1200 OPJ (S(I)) = / 4F15066

CP1330 = 4902

Definition
11446 −0 76000 0 00144 5076 CP1330 SLT 4 PREDECESSOR IN MQ 4F15126
Reference
11434 0 02000 0 11446 5066 TRA CP1330 4F15116

CP1450 = 4905

Definition
11451 0 50000 0 01547 5079 CP1450 CLA L(DVP) 4F15129
Reference
11445 0 02000 0 11451 5075 TRA CP1450 4F15125

CP1570 = 4920

Definition
11470 0 50000 0 01573 5094 CP1570 CLA L(STQ) PREDECESSOR IN MQ 4F15144
Reference
11447 0 02000 0 11470 5077 TRA CP1570 AND SEGMENT IS 4F15127

CP1670 = 4929

Definition
11501 0 50000 0 01551 5103 CP1670 CLA LIFDP) 4F15153
Reference
11436 0 02000 0 11501 5068 TRA CP1670 FLO PT. 4F15118

CP1690 = 4931

Definition
11503 0 07400 4 12627 5105 CP1690 TSX AC0000,C ADDRESS COMPILE SYMJ (S(I)) 4F15155

References (2)

	11364	0 02000 0 11503	5026		TRA	CP1690	4F15076
	11406	0 02000 0 11503	5044		TRA	CP1690	4F15094

CP1720 = 4934

Definition
11506 −0 76000 0 00143 5108 CP1720 SLT 3 OPJ(S(I))=* 4F15158
Reference
11353 0 02000 0 11506 5017 TRA CP1720 OPJ (S(I)) = * 4F15067

CP1840 = 4945

Definition
11521 0 76000 0 00143 5119 CP1840 SLN 3 TURN LATE 3 ON 4F15169
Reference
11507 0 02000 0 11521 5109 TRA CP1840 4F15159

CP2000 = 4959

Definition
11537 0 50000 0 01552 5133 CP2000 CLA L(FMP) FLO PT. 4F15183
Reference
11524 0 02000 0 11537 5122 TRA CP2000 4F15172

CP2040 = 4963

Definition
11543 −0 76300 0 00007 5137 CP2040 LGL 7 OP1(S(I))=SPOP 4F15187
Reference
11334 1 77775 1 11543 5002 TXI CP2040,A,−3 4F15052

CP2100 = 4977

Definition
11561 0 07400 4 01731 5151 CP2100 TSX CIT00,C 1ST ARG IN ACC 4F15201
Reference
11573 0 02000 0 11561 5161 TRA CP2100 4F15211

CP2150 = 4983

Definition
11567 −0 50000 0 01541 5157 CP2150 CAL L(CLA) 4F15207
Reference
11560 0 02000 0 11567 5150 TRA CP2150 1ST ARG STORED 4F15200

CP2200 = 4988

Definition
11574 0 60000 0 16164 5162 CP2200 STZ CW RESET CW 4F15212
Reference
11566 1 77775 1 11574 5156 TXI CP2200,A,−3 GO ON TO OP3(S(I)) 4F15206

CP2230 = 4991

Definition
11577 3 77772 2 11642 5165 CP2230 TXH CP2500,B,−6 FINISHED WITH S(I) 4F15215
Reference
11576 1 00003 2 11577 5164 TXI CP2230,B,3 4F15214

CP2250 = 4996

Definition
11604 0 07400 4 01731 5170 CP2250 TSX CIT00,C 2ND ARG IN MQ 4F15220
Reference
11616 0 02000 0 11604 5180 TRA CP2250 4F15230

CP2300 = 5002

Definition
11612 −0 50000 0 01556 5176 CP2300 CAL L(LDQ) 4F15226
Reference
11603 0 02000 0 11612 5169 TRA CP2300 2ND ARG STORED 4F15219

CP2350 = 5007

Definition
11617 0 50000 0 01521 5181 CP2350 CLA DECMI2 INITIALIZE DEC(P(CNTR) TO 2 4F15231
Reference
11611 1 77775 1 11617 5175 TXI CP2350,A,−3 GO ON TO SYM4(S(I)) 4F15225

CP2370 = 5009

Definition
11621 −0 53400 2 11324 5183 CP2370 LXD CP0400,B 4F15233
Reference
11641 1 77775 1 11621 5199 TXI CP2370,A,−3 4F15249

CP2390 = 5011

Definition
11623 3 77772 2 11642 5185 CP2390 TXH CP2500,B,−6 FINISHED WITH S(I) 4F15235
Reference
11622 1 00003 2 11623 5184 TXI CP2390,B,3 4F15234

CP2500 = 5026

Definition
11642 −0 53400 1 01117 5200 CP2500 LXD 3QBAR,A FINISHED WITH S(I) 4F15250

References (2)

	11577	3 77772 2 11642	5165	CP2230	TXH	CP2500,B,−6 FINISHED WITH S(I)	4F15215
	11623	3 77772 2 11642	5185	CP2390	TXH	CP2500,B,−6 FINISHED WITH S(I)	4F15235

CP2650 = 5045

Definition
5219 4F15269

11665 −0 76300 0 00024 5220 CP2650 LGL 20 TEST OPI(S(I))33 4F15270
Reference
11545 0 16200 0 11665 5139 TQP CP2650 LIB OR OPEN FUNCTION 4F15189

CP2860 = 5065

Definition
11711 −0 60000 0 16166 5240 CP2860 STQ CW+2 4F15290
Reference
11707 0 02000 0 11711 5238 TRA CP2860 4F15288

CP2880 = 5067

Definition
11713 0 07400 2 12621 5242 CP2880 TSX COMP,B COMPILE ACC OR MQ INDICATOR 4F15292
Reference
11717 0 02000 0 11713 5246 TRA CP2880 GO COMPILE SYM2(S(I)) 4F15296

CP2900 = 5070

Definition
11716 0 07400 4 12627 5245 CP2900 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15295
Reference
11703 0 02000 0 11716 5234 TRA CP2900 0... ARG STORED 4F15284

CP2930 = 5072

Definition
11720 0 07400 4 12627 5247 CP2930 TSX AC0000,C OPEN MULTIVARIATE FUNCTION 4F15297

References (2)

	11676	−3 77767 2 11720	5229		TXL	CP2930,B,−9	4F15279
	11726	1 77775 1 11720	5253		TXI	CP2930,A,−3	4F15303

CP2960 = 5075

Definition
11723 3 77772 2 11727 5250 CP2960 TXH CP3000,B,−6 4F15300
Reference
11722 1 00003 2 11723 5249 TXI CP2960,B,3 4F15299

CP3000 = 5079

Definition
11727 −0 50000 0 01531 5254 CP3000 CAL ALL1 4F15304
Reference
11723 3 77772 2 11727 5250 CP2960 TXH CP3000,B,−6 4F15300

CP3060 = 5084

Definition
11734 −3 77767 2 11763 5259 CP3060 TXL CP3350,B,−9 4F15309
Reference
11666 0 16200 0 11734 5221 TQP CP3060 0... LIB. SBRTN 4F15271

CP3100 = 5088

Definition
11740 0 50000 0 01575 5263 CP3100 CLA L(SXD) 1... ARG IN ACC 4F15313

References (2)

	11762	0 02000 0 11740	5281		TRA	CP3100 GO COMPILE SXD,TSX,LXD SEQUENCE	4F15336
	11774	1 00003 1 11740	5291		TXI	CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE	4F15346

CP3280 = 5101

Definition
11755 0 50000 0 01541 5276 CP3280 CLA L(CLA) 4F15331

References (3)

11737	0 02000 0 11755	5262	TRA	CP3280 0... ARG STORED	4F15312
12000	0 02000 0 11755	5295	TRA	CP3280 1... ARG2 IN MQ	4F15350
12067	1 77775 1 11755	5350	TXI	CP3280,A,−3	4F15405

CP3350 = 5107

Definition
11763 −3 77764 2 12007 5282 CP3350 TXL CP3560,B,−12 4F15337
Reference
11734 −3 77767 2 11763 5259 CP3060 TXL CP3350,B,−9 4F15309

CP3390 = 5111

Definition
11767 0 50000 0 01556 5286 CP3390 CLA L(LDQ) 1... ARG1 IN ACC 4F15341

References (2)

	12006	0 02000 0 11767	5301		TRA	CP3390 GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE	4F15356
	12036	1 77775 1 11767	5325		TXI	CP3390,A,−3	4F15380

CP3420 = 5114

Definition
11772 0 07400 4 12627 5289 CP3420 TSX AC0000,C ADDRESS COMPILE SYM3(S(I)) 4F15344
Reference
11771 1 77775 1 11772 5288 TXI CP3420,A,−3 4F15343

CP3450 = 5117

Definition
11775 0 50000 1 16654 5292 CP3450 CLA SCRIPL+4,A 4F15347
Reference
11766 0 02000 0 11775 5285 TRA CP3450 0... ARG1 STORED 4F15340

CP3490 = 5121

Definition
12001 0 50000 0 01541 5296 CP3490 CLA L(CLA) 4F15351
Reference
11777 0 02000 0 12001 5294 TRA CP3490 0... ARG2 STORED 4F15349

CP3560 = 5127

Definition
12007 0 50000 1 16651 5302 CP3560 CLA SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION 4F15357
Reference
11763 −3 77764 2 12007 5282 CP3350 TXL CP3560,B,−12 4F15337

CP3600 = 5131

Definition
12013 0 50000 0 01521 5306 CP3600 CLA DECMI2 4F15361

References (2)

	12012	1 77772 1 12013	5305		TXI	CP3600,A,−6 1... ARG1 IN ACC	4F15360
	12077	1 77772 1 12013	5358		TXI	CP3600,A,−6	4F15413

CP3620 = 5133

Definition
12015 0 50000 0 01556 5308 CP3620 CLA L(LDQ) 4F15363
Reference
12040 1 77775 1 12015 5327 TXI CP3620,A,−3 GO PICK UP NEXT ARG. 4F15382

CP3770 = 5148

Definition
12034 −3 77764 2 12037 5323 CP3770 TXL CP3800,B,−12 4F15378
Reference
12033 1 00003 2 12034 5322 TXI CP3770,B,3 4F15377

CP3800 = 5151

Definition
12037 −0 63400 2 11324 5326 CP3800 SXD CP0400,B 4F15381
Reference
12034 −3 77764 2 12037 5323 CP3770 TXL CP3800,B,−12 4F15378

CP3820 = 5153

Definition
12041 0 50000 1 16646 5328 CP3820 CLA SCRIPL−2,A 4F15383
Reference
12011 1 77772 1 12041 5304 TXI CP3820,A,−6 0... ARG1 STORED 4F15359

CP3870 = 5158

Definition
12046 0 50000 0 01541 5333 CP3870 CLA L(CLA) 4F15388
Reference
12071 1 77775 1 12046 5352 TXI CP3870,A,−3 GO PICK UP NEXT ARG 4F15407

CP4020 = 5173

Definition
12065 −3 77764 2 12070 5348 CP4020 TXL CP4050,B,−12 4F15403
Reference
12064 1 00003 2 12065 5347 TXI CP4020,B,3 4F15402

CP4050 = 5176

Definition
12070 −0 63400 2 11324 5351 CP4050 SXD CP0400,B 4F15406
Reference
12065 −3 77764 2 12070 5348 CP4020 TXL CP4050,B,−12 4F15403

CP4070 = 5178

Definition
12072 0 50000 0 01541 5353 CP4070 CLA L(CLA) 4F15408
Reference
12043 1 00006 1 12072 5330 TXI CP4070,A,6 0... ARG2 STORED 4F15385

CP4140 = 5184

Definition
12100 −0 76300 0 00033 5359 CP4140 LGL 27 OP1(S(I))=** 4F15414
Reference
11410 0 02000 0 12100 5046 TRA CP4140 4F15096

CP4200 = 5190

Definition
12106 0 50000 0 01524 5365 CP4200 CLA ADSTAR 4F15420
Reference
12103 0 02000 0 12106 5362 TRA CP4200 BASE FIX PT SINCE OP1(S(I))32=0 4F15417

CP4210 = 5191

Definition
12107 0 60100 0 16165 5366 CP4210 STO CW+1 4F15421
Reference
12105 0 02000 0 12107 5364 TRA CP4210 4F15419

CP4310 = 5200

Definition
12120 0 07400 4 12627 5375 CP4310 TSX AC0000,C ADDRESS COMPILE SYM1(S(I)) 4F15430
Reference
12111 0 16200 0 12120 5368 TQP CP4310 0... BASE STORED 4F15423

CP4320 = 5201

Definition
12121 0 50200 0 16164 5376 CP4320 CLS CW 4F15431
Reference
12117 0 02000 0 12121 5374 TRA CP4320 4F15429

CP4410 = 5210

Definition
12132 −0 76300 0 00003 5385 CP4410 LGL 3 CLOSED EXP. SBRTN 4F15440
Reference
12101 0 16200 0 12132 5360 TQP CP4410 CLOSED SBRTN SINCE OP1(S(I))33=0 4F15415

CP4440 = 5213

Definition
12135 0 50000 0 01556 5388 CP4440 CLA L(LDQ) 1... BASE IN ACC. 4F15443
Reference
12206 1 00000 0 12135 5429 TXI CP4440,0,0 0...EXP STORED 4F15489

CP4470 = 5216

Definition
12140 0 07400 4 12627 5391 CP4470 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15446
Reference
12137 1 77775 1 12140 5390 TXI CP4470,A,−3 4F15445

CP4490 = 5218

Definition
12142 0 50000 0 01575 5393 CP4490 CLA L(SXD) 4F15448
Reference
12207 1 77775 1 12142 5430 TXI CP4490,A,−3 1... EXP IN MQ 4F15490

CP4660 = 5236

Definition
12164 0 56000 1 16651 5411 CP4660 LDQ SCRIPL+1,A 4F15466
Reference
12156 1 00003 1 12164 5405 TXI CP4660,A,3 0... 4F15460

CP4730 = 5241

Definition
12171 0 60100 0 16166 5416 CP4730 STO CW+2 4F15471

References (2)

	12163	0 02000 0 12171	5410		TRA	CP4730	4F15465
	12167	0 16200 0 12171	5414		TQP	CP4730 0...FX**FX	4F15469

CP4860 = 5247

Definition
12177 0 50000 0 01541 5422 CP4860 CLA L(CLA) 4F15482
Reference
12134 0 02000 0 12177 5387 TRA CP4860 0... BASE STORED 4F15442

CP5000 = 5256

Definition
5431 4F15491

12210 0 50000 0 00030 5432 CP5000 CLA EIFNO FN FUNCTI0N 4F15492
Reference
11546 0 16200 0 12210 5140 TQP CP5000 FN-FUNCTION 4F15190

CP5050 = 5262

Definition
12216 0 50000 1 16650 5438 CP5050 CLA SCRIPL,A EXAMINE TAGJ(S(I)), J=2,... 4F15498
Reference
12236 1 77775 1 12216 5454 CP5210 TXI CP5050,A,−3 GO ON TO NEXT ARGUMENT 4F15513

CP5160 = 5273

Definition
12231 −0 53400 4 12314 5449 CP5160 LXD STACTR,C 4F15509
Reference
12266 1 00000 0 12231 5478 TXI CP5160,0,0 GO ON TO NEXT ARGUMENT,IF ANY 4F15538

CP5180 = 5275

Definition
12233 1 00003 2 12234 5451 CP5180 TXI CP5190,B,3 4F15511
Reference
12217 −0 12000 0 12233 5439 TMI CP5180 NONSUBSCRIPTED 4F15499

CP5190 = 5276

Definition
12234 3 77772 2 12267 5452 CP5190 TXH CP5460,B,−6 FINISHED WITH PRELUDE,IF ANY 4F15512
Reference
12233 1 00003 2 12234 5451 CP5180 TXI CP5190,B,3 4F15511

CP5210 = 5278

Definition
12236 1 77775 1 12216 5454 CP5210 TXI CP5050,A,−3 GO ON TO NEXT ARGUMENT 4F15513
Reference
12235 1 00001 4 12236 5453 TXI CP5210,C,1 NOT FINISHED-STAIX=STAIX+1 4F15513

CP5220 = 5279

Definition
12237 −0 50000 0 01566 5455 CP5220 CAL L(PXD) 4F15515
Reference
12224 −0 10000 0 12237 5444 TNZ CP5220 GENERAL TAG PRESENT 4F15504

CP5460 = 5303

Definition
12267 −0 53400 1 01117 5479 CP5460 LXD 3QBAR,A 4F15539
Reference
12234 3 77772 2 12267 5452 CP5190 TXH CP5460,B,−6 FINISHED WITH PRELUDE,IF ANY 4F15512

CP5680 = 5321

Definition
12311 0 50000 1 16650 5497 CP5680 CLA SCRIPL,A 4F15557

References (2)

	12310	1 77775 1 12311	5496		TXI	CP5680,A,−3 POSITION XA TO SYM2(S(I))	4F15556
	12331	1 77775 1 12311	5513		TXI	CP5680,A,−3	4F15573

CP5700 = 5325

Definition
12315 0 56000 1 16651 5501 CP5700 LDQ SCRIPL+1,A SUBSCRIPTED 4F15561
Reference
12312 0 12000 0 12315 5498 TPL CP5700 4F15558

CP5720 = 5332

Definition
12324 0 07400 2 12621 5508 CP5720 TSX COMP,B COMPILE TSX SYMJ(S(I)) , J=2,... 4F15568
Reference
12314 1 00000 0 12324 5500 STACTR TXI CP5720,0,0 4F15560

CP5750 = 5335

Definition
12327 3 77772 2 12332 5511 CP5750 TXH CP5780,B,−6 FINISHED SCANNING 4F15571
Reference
12326 1 00003 2 12327 5510 TXI CP5750,B,3 4F15570

CP5780 = 5338

Definition
12332 0 07400 4 03401 5514 CP5780 TSX FLTR00,4 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15574

References (3)

11754	0 02000 0 12332	5275		TRA	CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4	4F15325
12176	0 02000 0 12332	5421		TRA	CP5780 COMPILE FL0W TRACE INFO AND LXD 7(,4	4F15476
12327	3 77772 2 12332	5511	CP5750	TXH	CP5780,B,−6 FINISHED SCANNING	4F15571

CP5830 = 5044

Definition
11664 1 00000 0 12337 5218 CP5830 TXI ES0000,0,0 4F15268

References (2)

	12220	−0 63400 2 11664	5440		SXD	CP5830,B SOBSCRIPTED-IS THERE A GENERAL TAG	4F15500
	12232	−0 53400 2 11664	5450		LXD	CP5830,B	4F15510

CP6000 = 5614

Definition
5792 4F158511

12756 0 07400 4 03401 5793 CP6000 TSX FLTR00,4 COMPILE FLOW TRACE INFORMATI0N AND THEN 4F158512
Reference
11663 0 02000 0 12756 5217 TRA CP6000 4F15267

CPBETA = 7292

Definition
16174 5812 CPBETA BSS 300 4F15864

References (5)

11114	0 60100 2 16650	4853	STO	CPBETA+300,B	4F14902
11163	0 50000 2 16174	4896	CLA	CPBETA,B	4F14946
11242	0 50000 2 16174	4943	CLA	CPBETA,B	4F14993
11273	0 50000 2 16174	4969	CLA	CPBETA,B	4F15019
12714	−0 50000 2 16174	5758	CAL	CPBETA,B	4F15818

CS0000 = 4073

Definition
07751 0 56000 0 01406 4242 CS0000 LDQ L(0) ELIMINATE COMMON,SEGMENTS 4F14291

CS0010 = 4074

Definition
07752 −0 50000 1 16645 4243 CS0010 CAL SCRIPL−3,A 4F14292

References (2)

	07762	1 00003 1 07752	4251	CS0080	TXI	CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT	4F14300
	10057	−3 00000 4 07752	4312	CS0630	TXL	CS0010,C,0	4F14361

CS0030 = 4076

Definition
07754 0 73400 2 00000 4245 CS0030 PAX 0,B 4F14294

References (2)

	07756	0 62100 0 07754	4247		STA	CS0030	4F14296
	10040	0 50000 0 07754	4297	CS0490	CLA	CS0030 CHANGE REFERENCE	4F14346

CS0060 = 4080

Definition
07760 0 73400 4 00000 4249 CS0060 PAX 0,C 4F14298

References (2)

	07775	0 62100 0 07760	4262		STA	CS0060	4F14311
	10050	0 53400 4 07760	4305	CS0570	LXA	CS0060,C	4F14354

CS0080 = 4082

Definition
07762 1 00003 1 07752 4251 CS0080 TXI CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT 4F14300
Reference
07753 0 10000 0 07762 4244 TZE CS0080 ERASED SEGMENT - CONTINUE BACK-SCAN 4F14293

CS0090 = 4083

Definition
07763 −0 63400 1 10036 4252 CS0090 SXD CS0470,A SAVE XA 4F14301
Reference
07761 −3 77772 4 07763 4250 TXL CS0090,C,−6 AT LEAST TWO ELEMENTS 4F14299

CS0100 = 4085

Definition
07765 −3 00000 4 07770 4254 CS0100 TXL CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT 4F14303

References (5)

07767	1 00003 4 07765	4256	CS0120	TXI	CS0100,C,3	4F14305
10002	−0 10000 0 07765	4267		TNZ	CS0100 NOT SAME LENGTH SEGMENT-CONTINUE SEARCH	4F14316
10010	−0 10000 0 07765	4273		TNZ	CS0100	4F14322
10021	−0 10000 0 07765	4282		TNZ	CS0100	4F14331
10026	−0 10000 0 07765	4287		TNZ	CS0100	4F14336

CS0120 = 4087

Definition
07767 1 00003 4 07765 4256 CS0120 TXI CS0100,C,3 4F14305
Reference
07766 1 00003 1 07767 4255 TXI CS0120,A,3 4F14304

CS0130 = 4088

Definition
07770 −0 50000 1 16645 4257 CS0130 CAL SCRIPL−3,A 4F14306

References (3)

07765	−3 00000 4 07770	4254	CS0100	TXL	CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT	4F14303
07772	1 00003 1 07770	4259		TXI	CS0130,A,3 ERASED SEGMENT	4F14308
10054	1 00000 0 07770	4309	CS0600	TXI	CS0130,0,0	4F14358

CS0151 = 4091

Definition
07773 0 73400 2 00000 4260 CS0151 PAX 0,B 4F14309
Reference
07771 −0 10000 0 07773 4258 TNZ CS0151 4F14307

CS0250 = 4101

Definition
10005 −3 00000 4 10032 4270 CS0250 TXL CS0430,C,0 MATCHING SEGMENTS 4F14319
Reference
10031 1 00003 4 10005 4290 CS0370 TXI CS0250,C,3 4F14339

CS0360 = 4120

Definition
10030 1 00003 2 10031 4289 CS0360 TXI CS0370,B,3 4F14338
Reference
10027 1 00003 1 10030 4288 TXI CS0360,A,3 OPS MATCH 4F14337

CS0370 = 4121

Definition
10031 1 00003 4 10005 4290 CS0370 TXI CS0250,C,3 4F14339
Reference
10030 1 00003 2 10031 4289 CS0360 TXI CS0370,B,3 4F14338

CS0430 = 4122

Definition
10032 −0 50000 1 16650 4291 CS0430 CAL SCRIPL,A MATCHING SEGMENTS 4F14340
Reference
10005 −3 00000 4 10032 4270 CS0250 TXL CS0430,C,0 MATCHING SEGMENTS 4F14319

CS0450 = 4124

Definition
10034 0 34000 1 16647 4293 CS0450 CAS SCRIPL−1,A 4F14342

References (2)

	10035	1 00003 1 10034	4294		TXI	CS0450,A,3	4F14343
	10037	1 00003 1 10034	4296		TXI	CS0450,A,3	4F14345

CS0470 = 4126

Definition
10036 1 00000 0 10040 4295 CS0470 TXI CS0490,0,0 4F14344

References (3)

07763	−0 63400 1 10036	4252	CS0090	SXD	CS0470,A SAVE XA	4F14301
10003	−0 53400 2 10036	4268		LXD	CS0470,B SAME LENGTH SEGMENT	4F14317
10055	−0 53400 1 10036	4310	CS0610	LXD	CS0470,A	4F14359

CS0490 = 4128

Definition
10040 0 50000 0 07754 4297 CS0490 CLA CS0030 CHANGE REFERENCE 4F14346
Reference
10036 1 00000 0 10040 4295 CS0470 TXI CS0490,0,0 4F14344

CS0530 = 4132

Definition
10044 −3 00000 4 10050 4301 CS0530 TXL CS0570,C,0 ERASE DUPLICATE SEGMENT 4F14350
Reference
10047 1 00003 4 10044 4304 CS0560 TXI CS0530,C,3 4F14353

CS0560 = 4135

Definition
10047 1 00003 4 10044 4304 CS0560 TXI CS0530,C,3 4F14353
Reference
10046 1 00003 1 10047 4303 TXI CS0560,A,3 4F14352

CS0570 = 4136

Definition
10050 0 53400 4 07760 4305 CS0570 LXA CS0060,C 4F14354
Reference
10044 −3 00000 4 10050 4301 CS0530 TXL CS0570,C,0 ERASE DUPLICATE SEGMENT 4F14350

CS0600 = 4140

Definition
10054 1 00000 0 07770 4309 CS0600 TXI CS0130,0,0 4F14358

References (2)

	10004	−0 63400 1 10054	4269		SXD	CS0600,A	4F14318
	10043	−0 53400 1 10054	4300		LXD	CS0600,A	4F14349

CS0610 = 4141

Definition
10055 −0 53400 1 10036 4310 CS0610 LXD CS0470,A 4F14359
Reference
07774 −3 00000 2 10055 4261 TXL CS0610,B,0 G0 ON TO NEXT SEGMENT 4F14310

CS0630 = 4143

Definition
10057 −3 00000 4 07752 4312 CS0630 TXL CS0010,C,0 4F14361
Reference
10061 1 00003 4 10057 4314 CS0650 TXI CS0630,C,3 4F14363

CS0650 = 4145

Definition
10061 1 00003 4 10057 4314 CS0650 TXI CS0630,C,3 4F14363
Reference
10060 1 00003 1 10061 4313 TXI CS0650,A,3 4F14362

CS0660 = 4146

Definition
10062 0 53400 5 01406 4315 CS0660 LXA L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE 4F14364
Reference
07755 −3 00000 2 10062 4246 TXL CS0660,B,0 EXIT FROM CS ROUTINE 4F14295

CS0670 = 4147

Definition
10063 −0 50000 1 16650 4316 CS0670 CAL SCRIPL,A 4F14365
Reference
10074 3 00000 1 10063 4325 CS0760 TXH CS0670,A,0 4F14374

CS0750 = 4155

Definition
10073 1 77775 1 10074 4324 CS0750 TXI CS0760,A,−3 4F14373

References (2)

	10064	0 10000 0 10073	4317		TZE	CS0750	4F14366
	10072	1 77775 4 10073	4323		TXI	CS0750,C,−3	4F14372

CS0760 = 4156

Definition
10074 3 00000 1 10063 4325 CS0760 TXH CS0670,A,0 4F14374

References (2)

	07730	−0 63400 4 10074	4225		SXD	CS0760,C	4F14274
	10073	1 77775 1 10074	4324	CS0750	TXI	CS0760,A,−3	4F14373

CSA000 = 1559

Definition
1154 CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE). 4F11177

03027 −0 63400 4 02732 1155 CSA000 SXD SXR4,4 SAVE C(XR4) FOR RETURN TO C0200. 4F11178
Reference
04017 0 07400 4 03027 1855 TSX CSA000,4 * DIMCTR = DIMENSION OF VARIABLE. 4F11912

CTESTX = 1450

Definition
02652 0 76100 0 00012 1043 CTESTX NOP CTEST−ENDMK FOUND TO BE NUMERIC, 4F11066

References (4)

01627	0 53400 4 02652	498	C0161	LXA	CTESTX,4 TEST	4F10488
02643	0 53400 4 02652	1036		LXA	CTESTX,4 SST XR4 = NO. OF PUNCTUATION MARKS.	4F11059
02704	0 53400 4 02652	1069	SS0045	LXA	CTESTX,4 COMPARE CHARACTER	4F11092
05153	0 53400 4 02652	2650	CLOAD	LXA	CTESTX,4 SET XR4 TO PICK CONTROL CHARACTERS.	4F12704

DECMI2 = 849

Definition
01521 −0 00002 0 00000 406 DECMI2 MZE ,,2 4F10396

References (4)

11617	0 50000 0 01521	5181	CP2350	CLA	DECMI2 INITIALIZE DEC(P(CNTR) TO 2	4F15231
12013	0 50000 0 01521	5306	CP3600	CLA	DECMI2	4F15361
12044	0 50000 0 01521	5331		CLA	DECMI2 1... ARG2 IN MQ	4F15386
12254	0 00000 0 01521	5468		HTR	DECMI2	4F15528

DECPNT = 3819

Definition
3963 DECPNT= ENTRY POINT FOR FLOATING POINT FRACTIONS. 4F14011

07353 0 60000 0 01103 3964 DECPNT STZ N CLEAR N (NO INTEGER). 4F14012
Reference
06477 0 07400 4 07353 3518 MS200 TSX DECPNT,4 CONVERT BCD NUMBER T0 BINARY 4F13567

DIM1IX = 301

Definition
00455 1 00002 0 02071 241 DIM1IX TXI DIMALT,,5−3 TXI ALT,,I 4F10232

References (2)

	01772	−0 53400 4 00452	637		LXD	DIM1IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM1	4F10626
	04332	0 07400 4 00455	2116		TSX	DIM1IX,4 * GO MAKE DIM1 ENTRY. THEN	4F12178

DIM1SR = 1017

Definition

		629			END OF PROGRAM CIT00.	4F10618
		630			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10619
		631				4F10620
		632			DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA.	4F10621
		633			DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR,	4F10622
		634			DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION.	4F10623
		635			DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE.	4F10624
01771	−0 63400 4 01774	636	DIM1SR	SXD	DMSR00,4 SAVE THE C(XR4) FOR RETURN,	4F10625

References (3)

04274	0 07400 4 01771	2086		TSX	DIM1SR,4 * GO SEARCH DIM1 TABLE.	4F12145
05440	0 07400 4 01771	2869	RD1	TSX	DIM1SR,4 * GO SEARCH DIM1 TABLE.	4F12923
06666	0 07400 4 01771	3639	MS330	TSX	DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2,	4F13687

DIM2IX = 306

Definition
00462 1 00002 0 02071 247 DIM2IX TXI DIMALT,,5−3 TXI ALT,,I 4F10238

References (2)

	01776	−0 53400 4 00457	642		LXD	DIM2IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM2	4F10631
	04336	0 07400 4 00462	2120		TSX	DIM2IX,4 * GO MAKE DIM2 ENTRY. THEN	4F12182

DIM2SR = 1021

Definition
640 DIM2SR= ENTRY POINT FOR 2 DIMENSION TABLE. 4F10629

01775 −0 63400 4 01774 641 DIM2SR SXD DMSR00,4 SAVE THE C(XR4) FOR RETURN, 4F10630

References (4)

03150	0 07400 4 01775	1236		TSX	DIM2SR,4 * GO SEARCH DIM2 TABLE.	4F11259
04277	0 07400 4 01775	2089	C1280	TSX	DIM2SR,4 * GO SEAROH DIM2 TABLE.	4F12148
05444	0 07400 4 01775	2873	RD2	TSX	DIM2SR,4 * GO SEARCH DIM2 TABLE.	4F12927
06671	0 07400 4 01775	3642	MS331	TSX	DIM2SR,4 OF THAT NUMBER OF DIMENSIONS. IF IT IS NOT	4F13690

DIM3IX = 311

Definition
00467 1 00002 0 02071 253 DIM3IX TXI DIMALT,,5−3 TXI ALT,,I 4F10244

References (2)

	02006	−0 53400 4 00464	651		LXD	DIM3IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM3	4F10640
	04326	0 07400 4 00467	2112		TSX	DIM3IX,4 * GO MAKE DIM3 ENTRY.	4F12174

DIM3SR = 1029

Definition
649 DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE. 4F10638

02005 −0 63400 4 01774 650 DIM3SR SXD DMSR00,4 SAVE THE C(XR4) FOR RETURN, 4F10639

References (4)

03063	0 07400 4 02005	1183		TSX	DIM3SR,4 * GO SEARCH DIM3 TABLE.	4F11206
04302	0 07400 4 02005	2092	C1281	TSX	DIM3SR,4 * GO SEARCH DIM3 TABLE.	4F12151
05455	0 07400 4 02005	2882	RD3	TSX	DIM3SR,4 * GO SEARCH DIM3 TABLE.	4F12936
06674	0 07400 4 02005	3645	MS332	TSX	DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY.	4F13693

DIMALT = 1081

Definition

		703			END OF PROGRAM DIM.SR.	4F10692
		704			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10693
		705				4F10604
		706			DRTABS(,4)/ CALLS=RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA,	4F10695
		707			VRA(VRD).	4F10696
		708			DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF	4F10697
		709			THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM	4F10698
		710			TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFORMATION.	4F10699
		711			DIMALT= ENTRY POINT FOR DIMENSION TABLES.	4F10700
02071	−0 50000 0 00415	712	DIMALT	CAL	TXLOP PICK UP SNITCH CONTROL,	4F10701

References (3)

00455	1 00002 0 02071	241	DIM1IX	TXI	DIMALT,,5−3 TXI ALT,,I	4F10232
00462	1 00002 0 02071	247	DIM2IX	TXI	DIMALT,,5−3 TXI ALT,,I	4F10238
00467	1 00002 0 02071	253	DIM3IX	TXI	DIMALT,,5−3 TXI ALT,,I	4F10244

DIMCTR = 576

Definition
01100 5852 DIMCTR SYN ERASE COMMON WORKING STORAGE. 4F15908

References (6)

02617	0 60000 0 01100	1016		STZ	DIMCTR SET DIMCTR = 0.	4F11039
02772	−0 50000 0 01100	1125	SBC	CAL	DIMCTR UPDATE	4F11148
02774	0 62100 0 01100	1127		STA	DIMCTR BY 1.	4F11150
03030	0 50000 0 01100	1156	SA000	CLA	DIMCTR SAVE	4F11179
03041	0 34000 0 01100	1165		CAS	DIMCTR TO DETERMINE	4F11188
04013	0 60100 0 01100	1851		STO	DIMCTR INPUT T0 SUBSCRIPT ANALYSIS=	4F11908

DIMSAV = 597

Definition
01125 286 DIMSAV BSS 1 WORKING STORAGE USED BY SS000. 4F10276

References (3)

02441	0 50000 0 01125	890	CLA	DIMSAV EXAMINE THE	4F10913
02457	0 53400 4 01125	904	LXA	DIMSAV,4 AND GO SUBTRACT ADDEND 1.	4F10927
03031	0 60100 0 01125	1157	STO	DIMSAV THE CONTENTS OF DIMCTR.	4F11180

DMCN12 = 1077

Definition
698 4F10687

02065 0 60000 0 01102 699 DMCN12 STZ D3 CONSTANT USED BY DIM.SR. 4F10688
Reference
02003 −0 50000 0 02065 647 CAL DMCN12 (STZ D3) 4F10636

DMSR00 = 1020

Definition
01774 1 00000 0 02000 639 DMSR00 TXI DMSR01,0,** GO SET DRUM ADDRESS. 4F10628

References (5)

01771	−0 63400 4 01774	636	DIM1SR	SXD	DMSR00,4 SAVE THE C(XR4) FOR RETURN,	4F10625
01775	−0 63400 4 01774	641	DIM2SR	SXD	DMSR00,4 SAVE THE C(XR4) FOR RETURN,	4F10630
02005	−0 63400 4 01774	650	DIM3SR	SXD	DMSR00,4 SAVE THE C(XR4) FOR RETURN,	4F10639
02047	−0 53400 4 01774	684	DMSR08	LXD	DMSR00,4 RESTORE THE C(XR4), AND	4F10673
02063	−0 53400 4 01774	696	DMSR10	LXD	DMSR00,4 RESTORE THE C(XR4), AND	4F10685

DMSR01 = 1024

Definition
02000 0 62100 0 01104 644 DMSR01 STA DRMADR SET DRUM ADDRESS. 4F10633
Reference
01774 1 00000 0 02000 639 DMSR00 TXI DMSR01,0,** GO SET DRUM ADDRESS. 4F10628

DMSR02 = 1036

Definition
02014 0 60200 0 02031 657 DMSR02 SLW DMSR05 4 SET OP CODES ACCORDING 4F10646
Reference
02004 1 00000 0 02014 648 DMSR11 TXI DMSR02,0,** GO SET OP FOR DIM1 AND DIM2. 4F10637

DMSR04 = 1046

Definition
02026 0 70000 0 01100 667 DMSR04 CPY DRSYM COPY DRUM SYMBOL. 4F10656
Reference
02046 2 00001 4 02026 683 TIX DMSR04,4,1 REPEAT LOOP. 4F10672

DMSR05 = 1049

Definition
02031 0 00000 0 01102 670 DMSR05 PZE D3 (DIM1 AND DIM2 = STZ , DIM3 = CPY). 4F10659

References (3)

01760	−0 75400 2 02032	620	DMSR99	PXD	DMSR05+1,2 COMPUTE THE	4F10609
01763	−0 73400 2 02031	623	DMSR98	PDX	DMSR05,2 IN CIB BUFFER, AND	4F10612
02014	0 60200 0 02031	657	DMSR02	SLW	DMSR05 4 SET OP CODES ACCORDING	4F10646

DMSR06 = 1059

Definition
02043 0 70000 0 01101 680 DMSR06 CPY D12 PASS OVER ENTRY 4F10669

References (2)

	02027	0 04000 0 02043	668		TLQ	DMSR06 COMPARE WITH NAME OF VARIABLE, AND	4F10657
	02037	0 04000 0 02043	676		TLQ	DMSR06 PROCESS	4F10665

DMSR07 = 1060

Definition
02044 0 00000 0 01102 681 DMSR07 PZE D3 (DIM1 AND DIM2 = STZ, DIM3 = CPY). 4F10670
Reference
02015 0 60200 0 02044 658 SLW DMSR07 TO DIMENSION. 4F10647

DMSR08 = 1063

Definition
02047 −0 53400 4 01774 684 DMSR08 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10673

References (2)

	02016	−3 00000 4 02047	659		TXL	DMSR08,4,0 IF TABLE IS EMPTY, GO OUT.	4F10648
D	02042	1 00000 0 02047	679		TXI	DMSR08,0 IS EXHAUSTED.	4F10668

DMSR09 = 1065

Definition
02051 −0 50000 0 01100 686 DMSR09 CAL DRSYM COMPUTE A 4F10675
Reference
02035 1 00000 0 02051 674 DMSR12 TXI DMSR09,0,** IF NOT EQUAL, THEN 4F10663

DMSR10 = 1075

Definition
02063 −0 53400 4 01774 696 DMSR10 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10685
Reference
02057 0 10000 0 02063 692 TZE DMSR10 IF NOT EQUAL, THEN 4F10681

DMSR11 = 1028

Definition
02004 1 00000 0 02014 648 DMSR11 TXI DMSR02,0,** GO SET OP FOR DIM1 AND DIM2. 4F10637

References (2)

	02017	−0 63400 4 02004	660		SXD	DMSR11,4 SAVE ENTRY COUNT IN CASE OF ERROR.	4F10649
	02022	−0 53400 4 02004	663		LXD	DMSR11,4 RESET ENTRY COUNT.	4F10652

DMSR12 = 1053

Definition
02035 1 00000 0 02051 674 DMSR12 TXI DMSR09,0,** IF NOT EQUAL, THEN 4F10663

References (2)

	02021	−0 63400 4 02035	662	DMSR13	SXD	DMSR12,4 SAVE ERROR COUNTER, AND	4F10651
	02060	−0 53400 4 02035	693		LXD	DMSR12,4 REPEAT ATTEMPT,	4F10682

DMSR13 = 1041

Definition
02021 −0 63400 4 02035 662 DMSR13 SXD DMSR12,4 SAVE ERROR COUNTER, AND 4F10651
Reference
02061 2 00001 4 02021 694 TIX DMSR13,4,1 UNLESS PROCESS 4F10683

DMSR14 = 1040

Definition
02020 0 53400 4 01413 661 DMSR14 LXA L(5),4 SET ERROR COUNTER FOR 5 ATTEMPTS. 4F10650

DMSR15 = 1057

Definition
02041 2 00001 4 00000 678 DMSR15 TIX **,4,1 TABLE 4F10667

References (2)

	02002	0 62100 0 02041	646		STA	DMSR15 DMSRO5+1 FOR DIM1 AND DIM2.	4F10635
	02012	0 62100 0 02041	655		STA	DMSR15 DMSR05 FOR DIM3.	4F10644

DMSR98 = 1011

Definition
01763 −0 73400 2 02031 623 DMSR98 PDX DMSR05,2 IN CIB BUFFER, AND 4F10612
Reference
02011 0 50000 0 01763 654 CLA DMSR98 SET LOOP ADDRESS TO 4F10643

DMSR99 = 1008

Definition
01760 −0 75400 2 02032 620 DMSR99 PXD DMSR05+1,2 COMPUTE THE 4F10609
Reference
02001 0 50000 0 01760 645 CLA DMSR99 SET LOOP ADDRESS TO 4F10634

DMWR99 = 322

Definition
00502 0 07400 4 05702 1488 DMWR99 TSX CA100,4 * GO TO SUBROUTINE TO LOAD FT REGION. 4F11540

DOLSGN = 851

Definition
01523 −136000000000 408 DOLSGN OCT 536000000000 CONSTANT USED BY C32000 4F10398

References (4)

03420	0 50000 0 01523	1449	FLTR02	CLA	DOLSGN SET ADDRESS TO $+2	4F11457G
04560	0 00000 0 01523	2301		PZE	DOLSGN WORD3--$	4F12355
04565	0 00000 0 01523	2306		PZE	DOLSGN WORD3--$	4F12360
04572	0 00000 0 01523	2311		PZE	DOLSGN WORD3--$	4F12365

DRCKSM = 579

Definition
01103 5855 DRCKSM SYN ERASE+3 COMMON WORKING STORAGE. 4F15911

References (3)

02032	0 70000 0 01103	671	CPY	DRCKSM COPY CHECKSUM.	4F10660
02045	0 70000 0 01103	682	CPY	DRCKSM AND CHECKSUM, AND	4F10671
02055	0 36100 0 01103	690	ACL	DRCKSM COMPARE WITH	4F10679

DRMADR = 580

Definition
01104 5856 DRMADR SYN ERASE+4 ERASABLE STORAGE. 4F15912

References (3)

02000	0 62100 0 01104	644	DMSR01	STA	DRMADR SET DRUM ADDRESS.	4F10633
02010	0 62100 0 01104	653		STA	DRMADR SET DRUM ADDRESS.	4F10642
02025	0 46000 0 01104	666		LDA	DRMADR LOAD CURRENT DRUM ADDRESS, AND	4F10655

DRMERC = 779

Definition
01413 5857 DRMERC SYN L(5) NUMBER OF DRUM READING ATTEMPTS. 4F15913
Reference
02520 0 53400 1 01413 942 RDRX LXA DRMERC,1 SET FOR 5 ATTEMPTS TO READ,DRUM. 4F10965

DRTABS = 1084

Definition
02074 0 63000 0 02135 716 DRTABS STP DIMSW SET SNITCH. 4F10705
Reference
D 02072 1 00000 0 02074 713 TXI DRTABS,0 AND GO SET SNITCH FOR DIM TABLES. 4F10702

ENDWRD = 1405

Definition
02575 1 77777 0 02610 992 ENDWRD TXI SR6DC4,0,−1 (DECR= END OF PROBLEM INDICATOR) 4F11015

References (2)

	03440	−0 53400 4 02575	1586	CA010	LXD	ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN	4F11643
	05741	−0 63400 0 02575	3101		SXD	ENDWRD,0 STATEMENT HAS BEEN READ IN.	4F13153

ERR77P = 1722

Definition
03272 0 07400 4 03400 1338 ERR77P TSX DIAG,4 * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11361

References (4)

	03623	0 02000 0 03272	1716	TRA	ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC.	4F11773
D	03630	1 00000 0 03272	1721	TXI	ERR77P,0 * MACHINE ERROR, GO T0 DIAGNOSTIC.	4F11778
	04054	0 02000 0 03272	1891	TRA	ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC.	4F11948
	04174	0 02000 0 03272	2006	TRA	ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC.	4F12063

ES0000 = 5343

Definition
12337 −0 53400 1 01117 5519 ES0000 LXD 3QBAR,A -3Q TO XA 4F15579

References (6)

11343	−3 00000 2 12337	5009	CP0560	TXL	ES0000,B,0 GO TO END-OF-SEGMENT SBRTN	4F15059
11664	1 00000 0 12337	5218	CP5830	TXI	ES0000,0,0	4F15268
11715	0 02000 0 12337	5244		TRA	ES0000	4F15294
11733	0 02000 0 12337	5258		TRA	ES0000 GO TO END-OF-SEGMENT SBRTN	4F15308
12131	0 02000 0 12337	5384		TRA	ES0000	4F15439
12763	0 02000 0 12337	5798		TRA	ES0000	4F158517

ES0160 = 5359

Definition
12357 0 56000 0 01356 5535 ES0160 LDQ LEFT+2 S(I)=S(0) 4F15595
Reference
12344 0 10000 0 12357 5524 TZE ES0160 4F15584

ES0200 = 5364

Definition
12364 0 34000 0 01451 5540 ES0200 CAS CALLER IS THIS A CALL STATEMENT 4F15600
Reference
12362 0 02000 0 12364 5538 TRA ES0200 4F15598

ES0210 = 5367

Definition
12367 0 34000 0 01447 5543 ES0210 CAS SAPSYM 4F15603
Reference
12365 0 02000 0 12367 5541 TRA ES0210 4F15601

ES0220 = 5370

Definition
12372 0 77100 0 00006 5546 ES0220 ARS 6 4F15606
Reference
12370 0 02000 0 12372 5544 TRA ES0220 4F15604

ES0300 = 5429

Definition
12465 −0 76000 0 00144 5605 ES0300 SLT 4 4F15665

References (2)

	12377	0 02000 0 12465	5551		TRA	ES0300	4F15611
	12400	0 02000 0 12465	5552		TRA	ES0300	4F15612

ES0320 = 5431

Definition
12467 −0 76000 0 00142 5607 ES0320 SLT 2 FLO PT ON LEFT, FX PT ON RIGHT 4F15667
Reference
12537 0 02000 0 12467 5647 TRA ES0320 4F15707

ES0440 = 5442

Definition
12502 0 07400 4 01731 5618 ES0440 TSX CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN 4F15678
Reference
12470 0 02000 0 12502 5608 TRA ES0440 4F15668

ES0610 = 5457

Definition
12521 −0 53400 4 01122 5633 ES0610 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F15693
Reference
12464 0 02000 0 12521 5604 TRA ES0610 4F15664

ES0630 = 5459

Definition
12523 0 50000 0 01601 5635 ES0630 CLA L(TRA) YES 4F15695

References (2)

	12543	0 02000 0 12523	5651		TRA	ES0630	4F15711
	12555	0 02000 0 12523	5661		TRA	ES0630	4F15721

ES0710 = 5379

Definition
12403 0 50000 0 01573 5555 ES0710 CLA L(STQ) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT 4F15615
Reference
12466 0 02000 0 12403 5606 TRA ES0710 4F15666

ES0730 = 5381

Definition
12405 0 50000 0 01572 5557 ES0730 CLA L(STO) 4F15617
Reference
12522 −3 00000 4 12405 5634 TXL ES0730,C,0 NO 4F15694

ES0870 = 5392

Definition
12420 −0 76000 0 00142 5568 ES0870 SLT 2 FX PT ON LEFT, FLO PT ON RIGHT 4F15628

References (2)

	12402	0 02000 0 12420	5554		TRA	ES0870	4F15614
	12541	0 02000 0 12420	5649		TRA	ES0870	4F15709

ES0990 = 5403

Definition
12433 0 07400 4 01731 5579 ES0990 TSX CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN 4F15639
Reference
12421 0 02000 0 12433 5569 TRA ES0990 4F15629

ES1300 = 5467

Definition
12533 0 40200 0 01433 5643 ES1300 SUB L(X) 4F15703
Reference
12374 3 00000 4 12533 5548 TXH ES1300,C,0 YES 4F15608

ES1360 = 5472

Definition
12540 −0 76000 0 00144 5648 ES1360 SLT 4 4F15708
Reference
12534 0 10000 0 12540 5644 TZE ES1360 4F15704

ES1380 = 5474

Definition
12542 −0 76000 0 00142 5650 ES1380 SLT 2 4F15710
Reference
12536 0 02000 0 12542 5646 TRA ES1380 4F15706

ES1500 = 5486

Definition
12556 0 07400 1 03321 5662 ES1500 TSX TET00,1 * GO TO PROGRAM TET TO ENTER 1C,1C+1 4F15722
Reference
12363 0 02000 0 12556 5539 TRA ES1500 4F15599

ES1520 = 5489

Definition
12561 −0 53400 4 00030 5665 ES1520 LXD EIFNO,4 4F15725
Reference
12366 0 02000 0 12561 5542 TRA ES1520 4F15602

ES1530 = 5493

Definition
12565 −0 76000 0 00142 5669 ES1530 SLT 2 4F15729
Reference
12560 0 02000 0 12565 5664 TRA ES1530 4F15724

ES1590 = 5505

Definition
12601 0 50000 0 16160 5681 ES1590 CLA FNSW 4F15741

References (3)

12417	0 02000 0 12601	5567	TRA	ES1590 EXIT TO FETCH STATE A	4F15627
12532	0 02000 0 12601	5642	TRA	ES1590 EXIT TO FETCH STATE A	4F15702
12566	0 02000 0 12601	5670	TRA	ES1590 EXIT T0 FETCH STATE A	4F15730

ES1710 = 5517

Definition
12615 −0 53400 2 00637 5693 ES1710 LXD BBOX,B 4F15753
Reference
12371 0 02000 0 12615 5545 TRA ES1710 4F15605

FINI03 = 3658

Definition
07112 −0 75400 2 07315 3788 FINI03 PXD CM4300,B 4F13836

References (2)

	07062	0 50000 0 07112	3764		CLA	FINI03	4F13812
	07111	1 00001 2 07112	3787		TXI	FINI03,B,1 -(N+3) TO - (N+2)	4F13835

FIRSTC = 729

Definition
01331 293 FIRSTC BSS 1 USED BY SS000,TESTFX,C3000. 4F10283

References (13)

02635	0 60100 0 01331	1030		STO	FIRSTC SAVE RIGHT-ADJUSTED DIGIT, AND	4F11053
02670	0 50000 0 01331	1057		CLA	FIRSTC TEST	4F11080
02712	0 60100 0 01331	1075		STO	FIRSTC ADDEND, SAVE FOR LATER TESTS.	4F11098
03003	0 50000 0 01331	1134		CLA	FIRSTC TEST FOR	4F11157
03021	0 40000 0 01331	1148		ADD	FIRSTC ADDEND	4F11171
03241	−0 50000 0 01331	1303	TESTFX	CAL	FIRSTC COMPARE FIRST CHARACTER	4F11326
04470	0 60100 0 01331	2235		STO	FIRSTC 1ST CHARACTER OF ARGUMENT.	4F12300
06417	0 60100 0 01331	3470	MS081	STO	FIRSTC NO, SAVE CURRENT CHAR.	4F13519
06424	0 50000 0 01331	3475		CLA	FIRSTC RESTORE CURRENT CHAR.	4F13524
07053	0 60100 0 01331	3757		STO	FIRSTC	4F13805
07121	0 50000 0 01331	3795	LA0044	CLA	FIRSTC	4F13843
07141	0 50000 0 01331	3811	LA0072	CLA	FIRSTC	4F13859
07150	0 50000 0 01331	3818	LA0021	CLA	FIRSTC	4F13066

FIXCON = 2

Definition
00002 5867 FIXCON SYN 0002 DRUM TABLE ORIGIN -DRTABS. 4F15923

References (3)

00414	0 00000 0 00002	202		PZE	FIXCON,,** TDA,,N	4F10193
00415	−3 00062 0 00002	203	TXLOP	TXL	FIXCON,,501 ** FDA,,K*L	4F10194
10537	3 00000 0 00002	4616	PL0880	TXH	FIXCON,0,0 EXP NOT LESS THAN 7, SO	4F14665

FIXVAR = 847

Definition
01517 317400000000 404 FIXVAR BCD 1I(0000 I( INTERNAL FIXED PT. VARIABLE. 4F10394
Reference
07417 −0 50100 0 01517 4000 ORA FIXVAR CREATE INTERNAL FXD-P, VARIABLE,AND 4F14048

FLCNIX = 276

Definition
00424 1 00003 0 02073 211 FLCNIX TXI ALT,,5−2 TXI ALT,,I 4F10202
Reference
07517 0 07400 4 00424 4064 TSX FLCNIX,4 * GO MAKE FLOCON ENTRY. 4F14112

FLOCON = 202

Definition
00312 5868 FLOCON SYN 202 DRUM TABLE ORIGIN -DRTABS. 4F15924

References (2)

	00421	0 00000 0 00312	208		PZE	FLOCON,,** TDA,,N	4F10199
	00422	3 00062 0 00312	209	TXHOP	TXH	FLOCON,,501 ** FDA,,K*L	4F10200

FLOVAR = 843

Definition
01513 217400000000 400 FLOVAR BCD 1A(0000 A( INTERNAL FLOATING PT. VARIABLE. 4F10390
Reference
07520 −0 50100 0 01513 4065 ORA FLOVAR CREATE INTERNAL FLO-PT VARIABLE, 4F14113

FLTR00 = 1793

Definition

		1430			END OF PROGRAM DIAG.	4F11453
		1431			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11454
		1432				4F11455
		1433			ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS.	4F11456
03401	−0 63400 4 03437	1434	FLTR00	SXD	FLTR05,4 SAVE CALLING TAG.	4F114571

References (3)

04652	0 07400 4 03401	2364		TSX	FLTR00,4 * GO MAKE FLOW TRACING INSTRUCTIONS.	4F12418
12332	0 07400 4 03401	5514	CP5780	TSX	FLTR00,4 COMPILE FLOW TRACE INFO AND LXD 7(,4	4F15574
12756	0 07400 4 03401	5793	CP6000	TSX	FLTR00,4 COMPILE FLOW TRACE INFORMATI0N AND THEN	4F158512

FLTR01 = 1803

Definition
03413 0 50000 0 00365 1444 FLTR01 CLA SBDFCN IS THIS A MAIN PROGRAM OR SUBPROGRAM. 4F11457B
Reference
03407 −3 00000 4 03413 1440 TXL FLTR01,4,0 IS THIS AN FN FUNCTION, NO SKIP. 4F114577

FLTR02 = 1808

Definition
03420 0 50000 0 01523 1449 FLTR02 CLA DOLSGN SET ADDRESS TO $+2 4F11457G
Reference
03414 −0 10000 0 03420 1445 TNZ FLTR02 SKIP ON SUBPROGRAM 4F11457C

FLTR03 = 1811

Definition
03423 0 60100 0 01110 1452 FLTR03 STO 1C+3 SET RELATIVE ADDRESS WORD OF CIT. 4F11457J
Reference
03412 0 02000 0 03423 1443 TRA FLTR03 4F11457A

FLTR04 = 1812

Definition
03424 0 07400 4 01731 1453 FLTR04 TSX CIT00,4 4F11457K
Reference
03417 0 02000 0 03424 1448 TRA FLTR04 4F11457F

FLTR05 = 1823

Definition
D 03437 1 00000 4 01731 1464 FLTR05 TXI CIT00,4 GO COMPILE LXD M(,4 OR 7(TYPE=,4 4F11457V

References (2)

	03401	−0 63400 4 03437	1434	FLTR00	SXD	FLTR05,4 SAVE CALLING TAG.	4F114571
	03436	−0 53400 4 03437	1463		LXD	FLTR05,4	4F11457U

FMTEFN = 200

Definition
00310 99 FMTEFN BSS 10 TABLE OF FORMAT EXTERNAL FORMNOS. 4F10090
Reference
00405 0 00012 0 00310 179 PZE FMTEFN,,10 17) O,,B. 4F10170

FNBITS = 6851

Definition
15303 4147 FNBITS BSS 1 4F14194

References (3)

06350	0 60000 0 15303	3431	STZ	FNBITS CLEAR FUNCTION NAME INDICATOR	4F13480
06701	0 60200 0 15303	3650	SLW	FNBITS X	4F13698
07247	−0 50100 0 15303	3881	ORA	FNBITS	4F13929

FORMAT = 130

Definition
00202 92 FORMAT BSS 10 FORMAT STATEMENTS. 4F10083
Reference
00360 0 00012 0 00202 151 PZE FORMAT,,10 10) O,.B. 4F10142

FORSUB = 313

Definition
00471 259 FORSUB BSS 100 NAMES AND DEGREES OF FUNCTIONS. 4F10250

References (8)

	00471	1472	ORG	FORSUB	4F11465
00000	0 00471 0 06323	3393	PZE	STATEB,,FORSUB	4F13443
06450	0 60200 4 00471	3495	SLW	FORSUB,4 ENTER FUNCTION NAME IN FORSUB TABLE.	4F13544
06453	0 60100 4 00472	3498	STO	FORSUB+1,4 X	4F13547
06545	0 62100 1 00470	3556	STA	FORSUB−1,1 X	4F13605
06773	0 34000 1 00471	3709	CAS	FORSUB,A SEARCH FN NAME IN FORSUB	4F13757
07002	−0 50000 1 00472	3716	CAL	FORSUB+1,A FN NAME IN FORSUB	4F13764
12671	−0 50000 2 00470	5739	CAL	FORSUB−1,B	4F15799

FORTAG = 70

Definition
00106 86 FORTAG BSS 10 INDEXES TO TAU AND SIGMA TABLES. 4F10077
Reference
00336 0 00012 0 00106 127 PZE FORTAG,,10 04) 0,,B. 4F10118

FORVAL = 90

Definition
00132 88 FORVAL BSS 10 LEFT - NON-SUB. FX. PT. VARIABLES. 4F10079
Reference
00344 0 00012 0 00132 135 PZE FORVAL,,10 06) O,,B. 4F10126

FORVAR = 80

Definition
00120 87 FORVAR BSS 10 RIGHT - NON-SUB. FX. PT. VARIABLES. 4F10078
Reference
00341 0 00012 0 00120 131 PZE FORVAR,,10 05) O,,B. 4F10122

FSBITS = 6850

Definition
15302 4146 FSBITS BSS 1 4F14193

References (3)

07000	0 60000 0 15302	3714	STZ	FSBITS SET FSBITS TO 0	4F13762
07013	0 60200 0 15302	3725	SLW	FSBITS	4F137)3
07246	−0 50100 0 15302	3880	ORA	FSBITS	4F13928

FSNAME = 730

Definition
01332 294 FSNAME BSS 1 NAME OF FUNCTION. 4F10284

References (3)

04456	0 60100 0 01332	2225	STO	FSNAME	4F12290
04545	0 50000 0 01332	2290	CLA	FSNAME	4F12344
04552	0 00000 0 01332	2295	PZE	FSNAME WORD3--NAME OF FUNCTION	4F12349

FSTYPE = 6849

Definition
15301 4145 FSTYPE BSS 1 4F14192

References (4)

06334	0 60000 0 15301	3419	STZ	FSTYPE X	4F13468
06542	−0 50000 0 15301	3553	CAL	FSTYPE YES, UPDATE FUNCTION TYPE AND	4F13602
07006	0 34000 0 15301	3720	CAS	FSTYPE YES - UPDATE FS TYPE	4F13768
07007	0 62100 0 15301	3721	STA	FSTYPE	4F13769

FTG000 = 1616

Definition
03120 −0 50000 0 00030 1212 FTG000 CAL EIFNO ENTER FORTAG= 4F11235

FXCNIX = 271

Definition
00417 1 00003 0 02073 205 FXCNIX TXI ALT,,5−2 TXI ALT,,I 4F10196

References (4)

02274	0 00000 0 00412	845	CONX	PZE	FXCNIX−5 CONSTANT USED BY DRTABS.	4F10834
05473	0 07400 4 00417	2896		TSX	FXCNIX,4 * GO ENTER IN FIXCON, AND GET TAG.	4F12950
06060	0 07400 4 00417	3213		TSX	FXCNIX,4 * ENTER CON IN FIXCON,AND GET TAG.	4F13265
07416	0 07400 4 00417	3999		TSX	FXCNIX,4 * GO MAKE FIXCON ENTRY.	4F14047

FXCODR = 2

Definition
00002 5869 FXCODR SYN 2 4F15925
Reference
10524 0 76200 0 00302 4605 RDR FXCODR 4F14654

GETIFN = 1270

Definition

		855			END OF PROGRAM DRTABS.	4F10844
		856			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10845
		857				4F10646
		858			GETIFN,4/ OALLERS=COI00,CO200,C1000,C1100,C1600,C3200.	4F10847
		859			GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C.	4F10848
02366	−0 53400 1 00030	860	GETIFN	LXD	EIFNO,1 PLACE THE INTERNAL FORMULA	4F10849

References (6)

03653	0 07400 4 02366	1749	C0100	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F11806
03720	0 07400 4 02366	1792	C0200	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C	4F11849
04216	0 07400 4 02366	2030	C1000	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C	4F12087
04257	0 07400 4 02366	2068		TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F12127
04540	0 07400 4 02366	2285		TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F12339
04637	0 07400 4 02366	2353		TSX	GETIFN,4 * PUT INTERNAL FORMULA NUMBER IN 1C.	4F12407

HOLCNT = 746

Definition
01352 307400000000 298 HOLCNT BCD 1H(0000 WORKING STORAGE USED BY C3300. 4F10288

References (3)

06714	−0 50000 0 01352	3661	CAL	HOLCNT GET CURRENT H(+I WORD	4F13709
07326	0 50000 0 01352	3931	CLA	HOLCNT	4F13979
07330	0 60100 0 01352	3933	STO	HOLCNT	4F13981

L(112) = 801

Definition
01441 +000000000160 358 L(112) OCT 160 USED BY C0400. 4F10348
Reference
04106 0 50000 0 01441 1922 C0400 CLA L(112) FOR SENSE SWITCH 4F11979

L(ADD) = 858

Definition
415 4F10405

01532 212424000000 416 L(ADD) BCD 1ADD000 SYMBOLIC OPERATION CODE. 4F10406

References (3)

11362	−0 50000 0 01532	5024		CAL	L(ADD)	4F15074
12252	0 00000 0 01532	5466		HTR	L(ADD)	4F15526
	01532	5829	ADD	SYN	L(ADD)	4F15881

L(ALS) = 859

Definition
01533 214362000000 417 L(ALS) BCD 1ALS000 SYMBOLIC OPERATION CODE. 4F10407

References (2)

	11533	0 00000 0 01533	5129		HTR	L(ALS)	4F15179
	12461	0 00000 0 01533	5601		HTR	L(ALS)	4F15661

L(ANA) = 860

Definition
01534 214521000000 418 L(ANA) BCD 1ANA000 SYMBOLIC OPERATION CODE. 4F10408
Reference
12447 0 00000 0 01534 5591 HTR L(ANA) 4F15651

L(ARS) = 861

Definition
01535 215162000000 419 L(ARS) BCD 1ARS000 SYMBOLIC OPERATION CODE. 4F10409

References (2)

	12245	0 00000 0 01535	5461		HTR	L(ARS)	4F15521
		01535	5834	ARS	SYN	L(ARS)	4F15886

L(BSS) = 862

Definition
01536 226262000000 420 L(BSS) BCD 1BSS000 SYMBOLIC OPERATION CODE. 4F10410
Reference
05676 0 00000 0 01536 3060 PZE L(BSS) WORD2--BSS000 4F13112

L(CAL) = 863

Definition
01537 232143000000 421 L(CAL) BCD 1CAL000 4F10411
Reference
01537 5837 CAL SYN L(CAL) 4F15889

L(CHS) = 864

Definition
01540 233062000000 422 L(CHS) BCD 1CHS000 SYMBOLIC OPERATION CODE. 4F10412
Reference
11367 −0 50000 0 01540 5029 CAL L(CHS) C81 (SI))) 35 = 1, SO 4F15079

L(CLA) = 865

Definition
01541 234321000000 423 L(CLA) BCD 1CLA000 SYMBOLIC OPERATI0N CODE. 4F10413

References (15)

04240	0 00000 0 01541	2048		PZE	L(CLA) WORD2--CLA000 (OP AND DECR)	4F12106
04551	0 00000 0 01541	2294		PZE	L(CLA) WORD2--CLA000	4F12348
11425	−0 50000 0 01541	5059	CP1130	CAL	L(CLA)	4F15109
11476	0 50000 0 01541	5100		CLA	L(CLA)	4F15150
11567	−0 50000 0 01541	5157	CP2150	CAL	L(CLA)	4F15207
11625	−0 50000 0 01541	5187		CAL	L(CLA)	4F15237
11755	0 50000 0 01541	5276	CP3280	CLA	L(CLA)	4F15331
12001	0 50000 0 01541	5296	CP3490	CLA	L(CLA)	4F15351
12046	0 50000 0 01541	5333	CP3870	CLA	L(CLA)	4F15388
12072	0 50000 0 01541	5353	CP4070	CLA	L(CLA)	4F15408
12177	0 50000 0 01541	5422	CP4860	CLA	L(CLA)	4F15482
12430	0 50000 0 01541	5576		CLA	L(CLA)	4F15636
12477	0 50000 0 01541	5615		CLA	L(CLA)	4F15675
12552	0 50000 0 01541	5658		CLA	L(CLA)	4F15718
12576	0 00000 0 01541	5678			L(CLA)	4F15738

L(CLM) = 866

Definition
01542 234344000000 424 L(CLM) BCD 1CLM000 SYMBOLIC OPERATION CODE. 4F10414
Reference
11457 0 00000 0 01542 5085 HTR L(CLM) 4F15135

L(CLS) = 867

Definition
01543 234362000000 425 L(CLS) BCD 1CLS000 SYMBOLIC OPERATION CODE. 4F10415
Reference
11375 −0 50000 0 01543 5035 CP0850 CAL L(CLS) OP1 (S(I)) 35 = 0, S0 4F15085

L(CPY) = 868

Definition
01544 234770000000 426 L(CPY) BCD 1CPY000 4F10416
Reference
01544 5843 CPY SYN L(CPY) 4F15895

L(DCT) = 869

Definition
01545 242363000000 427 L(DCT) BCD 1DCT000 SYMBOLIC OPERATION CODE. 4F10417
Reference
04154 0 50000 0 01545 1972 C0600 CLA L(DCT) STORE (DCT000) 4F12029

L(DED) = 870

Definition
01546 242524000000 428 L(DED) BCD 1DED000 4F10418
Reference
01546 5848 DED SYN L(DED) 4F15900

L(DVP) = 871

Definition
01547 246547000000 429 L(DVP) BCD 1DVP000 SYMBOLIC OPERATION CODE. 4F10419
Reference
11451 0 50000 0 01547 5079 CP1450 CLA L(DVP) 4F15129

L(FAD) = 872

Definition
01550 262124000000 430 L(FAD) BCD 1FAD000 SYMBOLIC OPERATI0N CODE. 4F10420

References (2)

	11356	−0 50000 0 01550	5020		CAL	L(FAD) OPJ (S(I)) = +	4F15070
	12516	0 00000 0 01550	5630		HTR	L(FAD)	4F15690

L(FMP) = 874

Definition
01552 264447000000 432 L(FMP) BCD 1FMP000 SYMBOLIC OPERATION CODE. 4F10422
Reference
11537 0 50000 0 01552 5133 CP2000 CLA L(FMP) FLO PT. 4F15183

L(FSB) = 875

Definition
01553 266222000000 433 L(FSB) BCD 1FSB000 SYMBOLIC OPERATION C0DE. 4F10423
Reference
11400 −0 50000 0 01553 5038 CP0880 CAL L(FSB) OPJ (SII)I = - 4F15088

L(HPR) = 876

Definition
01554 304751000000 434 L(HPR) BCD 1HPR000 SYMBOLIC OPERATION CODE. 4F10424

References (2)

	04212	0 00000 0 01554	2020		PZE	L(HPR) WORD2--HPR000 (OP AND DECR)	4F12077
		01554	5872	HPR	SYN	L(HPR)	4F15928

L(LDA) = 877

Definition
01555 432421000000 435 L(LDA) BCD 1LDA000 4F10425
Reference
01555 5873 LDA SYN L(LDA) 4F15929

L(LDQ) = 878

Definition
01556 432450000000 436 L(LDQ) BCD 1LDQ000 SYMBOLIO OPERATION CODE. 4F10426

References (6)

11421	−0 50000 0 01556	5055	CP1070	CAL	L(LDQ) OP1 (S(I)) 35 = 0	4F15105
11516	0 50000 0 01556	5116		CLA	L(LDQ)	4F15166
11612	−0 50000 0 01556	5176	CP2300	CAL	L(LDQ)	4F15226
11767	0 50000 0 01556	5286	CP3390	CLA	L(LDQ) 1... ARG1 IN ACC	4F15341
12015	0 50000 0 01556	5308	CP3620	CLA	L(LDQ)	4F15363
12135	0 50000 0 01556	5388	CP4440	CLA	L(LDQ) 1... BASE IN ACC.	4F15443

L(LLS) = 879

Definition
01557 434362000000 437 L(LLS) BCD 1LLS000 SYMBOLIC OPERATION CODE. 4F10427

References (2)

	11464	0 00000 0 01557	5090		HTR	L(LLS)	4F15140
	12454	0 00000 0 01557	5596		HTR	L(LLS)	4F15656

L(LRS) = 880

Definition
01560 435162000000 438 L(LRS) BCD 1LRS000 SYMBOLIC OPERATION CODE. 4F10428

References (3)

11442	0 00000 0 01560	5072	HTR	L(LRS)	4F15122
12442	0 00000 0 01560	5586	HTR	L(LRS)	4F15646
12504	0 00000 0 01560	5620	HTR	L(LRS)	4F15680

L(LXD) = 881

Definition
01561 436724000000 439 L(LXD) BCD 1LXD000 SYMBOLIC OPERATION CODE. 4F10429

References (6)

04557	0 00000 0 01561	2300		PZE	L(LXD) WORD2--LXD000	4F12354
04564	0 00000 0 01561	2305		PZE	L(LXD) WORD2--LXD000	4F12359
04654	0 00000 0 01561	2366		PZE	L(LXD) WORD2--LXD000	4F12420
11657	−0 50000 0 01561	5213		CAL	L(LXD) ,	4F15263
12334	0 00000 0 01561	5516		HTR	L(LXD)	4F15576
	01561	5874	LXD	SYN	L(LXD)	4F15930

L(MPY) = 882

Definition
01562 444770000000 440 L(MPY) BCD 1MPY000 SYMBOLIC OPERATION CODE. 4F10430
Reference
11526 0 50000 0 01562 5124 CLA L(MPY) 4F15174

L(MSE) = 883

Definition
01563 446225000000 441 L(MSE) BCD 1MSE000 IDMBOLIC OPERATION CODE. 4F10431
Reference
04152 0 50000 0 01563 1965 CLA L(MSE) OBTAIN (MSE000) IN ACC. 4F12022

L(ORA) = 884

Definition
01564 465121000000 442 L(ORA) BCD 1ORA000 SYMBOLIC OPERATION CODE. 4F10432
Reference
12511 0 00000 0 01564 5625 HTR L(ORA) 4F15685

L(PSE) = 885

Definition
01565 476225000000 443 L(PSE) BCD 1PSE000 SYMBOLIC OPERATION CODE. 4F10433

References (2)

	04110	0 50000 0 01565	1924		CLA	L(PSE) SET 2H TO PSE.	4F11981
	04262	0 00000 0 01565	2071		PZE	L(PSE) WORD2--PSE000 (OP AND DECREMENT)	4F12130

L(PXD) = 886

Definition
01566 476724000000 444 L(PXD) BCD 1PXD000 SYMBOLIC OPERATION CODE. 4F10434

References (2)

	12237	−0 50000 0 01566	5455	CP5220	CAL	L(PXD)	4F15515
		01566	5885	PXD	SYN	L(PXD)	4F15946

L(QPR) = 887

Definition
01567 504751000000 445 L(QPR) BCD 1QPR000 CONSTANT USED BY C3200. 4F10435
Reference
04576 0 00000 0 01567 2315 PZE L(QPR) WORD2--OPR000 4F12369

L(QXD) = 888

Definition
01570 506724000000 446 L(QXD) BCD 1QXD000 CONSTANT USED BY C3200. 4F10436
Reference
04571 0 00000 0 01570 2310 PZE L(QXD) WORD2--QXD000 4F12364

L(STA) = 889

Definition
01571 626321000000 447 L(STA) BCD 1STA000 SYMBOLIC OPERATION CODE. 4F10437

References (2)

	12255	−0 50000 0 01571	5469		CAL	L(STA)	4F15529
		01571	5890	STA	SYN	L(STA)	4F15951

L(STO) = 890

Definition
01572 626346000000 448 L(STO) BCD 1STO000 SYMBOLIC OPERATION CODE. 4F10438

References (7)

04245	0 00000 0 01572	2053		PZE	L(STO) WORD2--STO000 (OP AND DECR)	4F12111
11510	0 50000 0 01572	5110		CLA	L(STO) PREDECESSOR IN ACC	4F15160
11563	0 00000 0 01572	5153		HTR	L(STO)	4F15203
11633	0 00000 0 01572	5193		HTR	L(STO)	4F15243
12052	0 50000 0 01572	5337		CLA	L(STO)	4F15392
12353	0 50000 0 01572	5531		CLA	L(STO)	4F15591
12405	0 50000 0 01572	5557	ES0730	CLA	L(STO)	4F15617

L(STQ) = 891

Definition
01573 626350000000 449 L(STQ) BCD 1STQ000 SYMBOLIC OPERATION CODE. 4F10439

References (9)

11470	0 50000 0 01573	5094	CP1570	CLA	L(STQ) PREDECESSOR IN MQ	4F15144
11606	0 00000 0 01573	5172		HTR	L(STQ)	4F15222
12021	0 50000 0 01573	5312		CLA	L(STQ)	4F15367
12351	0 50000 0 01573	5529		CLA	L(STQ)	4F15589
12403	0 50000 0 01573	5555	ES0710	CLA	L(STQ) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT	4F15615
12422	0 50000 0 01573	5570		CLA	L(STQ) RESULT ON RIGHT APPEARS IN MQ	4F15630
12471	0 50000 0 01573	5609		CLA	L(STQ) RESULT ON RIGHT APPEARS IN MQ	4F15669
12544	0 50000 0 01573	5652		CLA	L(STQ)	4F15712
12571	0 00000 0 01573	5673			L(STQ)	4F15733

L(SUB) = 892

Definition
01574 626422000000 450 L(SUB) BCD 1SUB000 SYMBOLIC OPERATION CODE. 4F10440
Reference
11404 −0 50000 0 01574 5042 CAL L(SUB) 4F15092

L(SXD) = 893

Definition
01575 626724000000 451 L(SXD) BCD 1SXD000 SYMBOLIC OPERATION C0DE. 4F10441

References (5)

04642	0 00000 0 01575	2356		PZE	L(SXD) WORD2--SXD000	4F12410
11643	−0 50000 0 01575	5201		CAL	L(SXD)	4F15251
11740	0 50000 0 01575	5263	CP3100	CLA	L(SXD) 1... ARG IN ACC	4F15313
12142	0 50000 0 01575	5393	CP4490	CLA	L(SXD)	4F15448
12270	−0 50000 0 01575	5480		CAL	L(SXD)	4F15540

L(TIX) = 894

Definition
01576 633167000001 452 L(TIX) BCD 1TIX001 4F10442
Reference
01576 5902 TIX SYN L(TIX) 4F15963

L(TOV) = 895

Definition
01577 634665000000 453 L(TOV) BCD 1TOV000 SYMBOLIC OPERATION CODE. 4F10443
Reference
04162 0 50000 0 01577 1984 C0700 CLA L(TOV) PICKUP TOV000 TO SET 2H. 4F12041

L(TQO) = 896

Definition
01600 635046000000 454 L(TQO) BCD 1TQO000 SYMBOLIC OPERATION CODE. 4F10444
Reference
04166 0 50000 0 01600 1994 C0800 CLA L(TQO) PICKUP TQO000 TO SET 2H, 4F12051

L(TRA) = 897

Definition
01601 635121000000 455 L(TRA) BCD 1TRA000 SYMBOLIC OPERATION C0DE. 4F10445

References (5)

04000	0 00000 0 01601	1840		PZE	L(TRA) WORD 2--TRA000 (OP AND DECR)	4F11897
04025	0 00000 0 01601	1861		PZE	L(TRA) WORD 2--TRA000(OP ANO 0ECR)	4F11918
04350	0 00000 0 01601	2135		PZE	L(TRA) WORD2--TRA000 (OP+DECR)	4F12197
04603	0 00000 0 01601	2320		PZE	L(TRA) WORD2--TRA000	4F12374
12523	0 50000 0 01601	5635	ES0630	CLA	L(TRA) YES	4F15695

L(TSX) = 898

Definition
01602 636267000000 456 L(TSX) BCD 1TSX000 SYMBOLIC OPERATION CODE. 4F10446

References (5)

04647	0 00000 0 01602	2361	PZE	L(TSX) WORD2--TSX000	4F12415
11652	−0 50000 0 01602	5208	CAL	L(TSX)	4F15258
11747	0 50000 0 01602	5270	CLA	L(TSX)	4F15320
12151	0 50000 0 01602	5400	CLA	L(TSX)	4F15455
12302	−0 50000 0 01602	5490	CAL	L(TSX)	4F15550

L(UFA) = 899

Definition
01603 642621000000 457 L(UFA) BCD 1UFA000 IYMBOLIC OPERATION CODE. 4F10447
Reference
12435 0 00000 0 01603 5581 HTR L(UFA) 4F15641

L13130 = 3693

Definition
07155 0 60200 4 15310 3823 L13130 SLW ALPHA+3,C STO -(N+2) IN ALPHA+A+3 4F13871
Reference
07120 1 00001 2 07155 3794 TXI L13130,B,1 BINARY... -(N+2) TO - (N+1) 4F13842

L22000 = 3703

Definition
07167 −0 75400 2 00000 3833 L22000 PXD ,B 4F13881
Reference
07144 1 77777 2 07167 3814 TXI L22000,B,−1 -N TO -(N+1) 4F13862

L23000 = 3708

Definition
07174 −0 75400 2 00000 3838 L23000 PXD ,B 4F13886
Reference
07140 1 77777 2 07174 3810 TXI L23000,B,−1 -N TO -(N+1) 4F13858

L23090 = 3714

Definition
07202 0 60100 1 15526 3844 L23090 STO LAMBDA+6,A STO -N IN LAMBDA+3(L+2) 4F13892
Reference
07201 1 00001 2 07202 3843 TXI L23090,B,1 -(N+1) TO -N 4F13891

L23130 = 3715

Definition
07203 0 60200 4 15305 3845 L23130 SLW ALPHA,C STO -N IN ALPHA +A 4F13893
Reference
07173 1 00001 2 07203 3837 TXI L23130,B,1 -(N+1) TO -N 4F13885

L32000 = 3754

Definition
07252 −0 75400 2 00000 3884 L32000 PXD ,B 4F13932
Reference
07153 1 77776 2 07252 3821 TXI L32000,B,−2 -N TO -N(+2) 4F13869

L33000 = 3759

Definition
07257 −0 75400 2 00000 3889 L33000 PXD ,B 4F13937
Reference
07147 1 77776 2 07257 3817 TXI L33000,B,−2 -N TO -(N+2) 4F13865

L33090 = 3765

Definition
07265 0 60100 1 15531 3895 L33090 STO LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3) 4F13943
Reference
07264 1 00001 2 07265 3894 TXI L33090,B,1 -(N+2) TO -(N+1) 4F13942

L33130 = 3766

Definition
07266 0 60200 4 15305 3896 L33130 SLW ALPHA,C STO -(N+1) IN ALPHA+A 4F13944
Reference
07256 1 00001 2 07266 3888 TXI L33130,B,1 -(N+2) TO -(N+1) 4F13936

L43130 = 3723

Definition
07213 0 60200 4 15305 3853 L43130 SLW ALPHA,C STO -(N+2) IN ALPHA+A 4F13901
Reference
07117 1 00001 2 07213 3793 TXI L43130,B,1 UNARY... -(N+2) TO -(N+1) 4F13841

LA0000 = 3571

Definition
06763 0 53400 1 01406 3701 LA0000 LXA L(0),A 4F13749

References (16)

06766	0 02000 0 07027	3704	TRA	LA0000+36 NO	4F13752
06771	−3 00000 4 07000	3707	TXL	LA0000+13,C,0 YES. GO SET FS BITS TO 0	4F13755
06772	−0 63400 4 06777	3708	SXD	LA0000+12,C	4F13756
06774	1 77776 1 06777	3710	TXI	LA0000+12,A,−2	4F13758
06775	0 02000 0 07002	3711	TRA	LA0000+15	4F13759
06776	1 77776 1 06777	3712	TXI	LA0000+12,A,−2	4F13760
06777	3 00000 1 06773	3713	TXH	LA0000+8,A,0	4F13761
07001	0 02000 0 07014	3715	TRA	LA0000+25	4F13763
07005	−3 00000 4 07011	3719	TXL	LA0000+22,C,0 NO	4F13767
07030	−3 00000 4 07000	3738	TXL	LA0000+13,C,0 NOT AN FS - GO SET FS BITS TO 0	4F13786
07031	−0 63400 4 07036	3739	SXD	LA0000+43,C FUNCTION STATEMENT	4F13787
07033	1 77777 1 07036	3741	TXI	LA0000+43,A,−1	4F13789
07035	1 77777 1 07036	3743	TXI	LA0000+43,A,−1	4F13791
07036	3 00000 1 07032	3744	TXH	LA0000+39,A,0	4F13792
07037	0 02000 0 07000	3745	TRA	LA0000+13 NOT PRESENT - GO SET FSBITS TO 0	4F13793
07042	0 02000 0 07012	3748	TRA	LA0000+23	4F13796

LA0001 = 3602

Definition
07022 3 77323 2 07024 3732 LA0001 TXH LA0002,B,−301 4F13780
Reference
07020 3 75520 1 07022 3730 TXH LA0001,A,−1200 4F13778

LA0002 = 3604

Definition
07024 −3 00000 4 07043 3734 LA0002 TXL LA0003,C,0 4F13782
Reference
07022 3 77323 2 07024 3732 LA0001 TXH LA0002,B,−301 4F13780

LA0003 = 3619

Definition
07043 0 50000 0 06464 3749 LA0003 CLA MS9002 4F13797

References (3)

07017	−3 00000 1 07043	3729		TXL	LA0003,A,0	4F13777
07024	−3 00000 4 07043	3734	LA0002	TXL	LA0003,C,0	4F13782
07025	3 77565 4 07043	3735		TXH	LA0003,C,−139	4F13783

LA0010 = 3677

Definition
07135 0 16200 0 07145 3807 LA0010 TQP LA0015 G0 TO * ROUTINE 4F13855
Reference
07102 0 02000 0 07135 3780 TRA LA0010 * OR ** SIGN 4F13828

LA0015 = 3685

Definition
07145 −0 76000 0 00142 3815 LA0015 SLT 2 * OR / 4F13863

References (2)

	07101	0 02000 0 07145	3779		TRA	LA0015 / SIGN	4F13827
	07135	0 16200 0 07145	3807	LA0010	TQP	LA0015 G0 TO * ROUTINE	4F13855

LA0021 = 3688

Definition
07150 0 50000 0 01331 3818 LA0021 CLA FIRSTC 4F13066
Reference
07146 0 02000 0 07150 3816 TRA LA0021 4F13864

LA0041 = 3662

Definition
07116 −0 76000 0 00141 3792 LA0041 SLT 1 4F13840
Reference
07134 1 00001 2 07116 3806 TXI LA0041,2,1 4F13854

LA0044 = 3665

Definition
07121 0 50000 0 01331 3795 LA0044 CLA FIRSTC 4F13843
Reference
07104 0 02000 0 07121 3782 TRA LA0044 4F13830

LA0050 = 3669

Definition
07125 −0 76000 0 00141 3799 LA0050 SLT 1 4F13847
Reference
07123 0 02000 0 07125 3797 TRA LA0050 4F13845

LA0058 = 3672

Definition
07130 −0 75400 2 00000 3802 LA0058 PXD ,B 4F13850
Reference
07124 1 77775 2 07130 3798 TXI LA0058,B,−3 -N TO -(N+3) 4F13846

LA0072 = 3681

Definition
07141 0 50000 0 01331 3811 LA0072 CLA FIRSTC 4F13859
Reference
07137 0 02000 0 07141 3809 TRA LA0072 4F13857

LA1000 = 3697

Definition
07161 0 50200 0 15277 3827 LA1000 CLS CBAR 4F13875
Reference
07127 1 77777 2 07161 3801 TXI LA1000,B,−1 BINARY... -N TO -(N+I) 4F13849

LA1040 = 3701

Definition
07165 −0 63400 4 15300 3831 LA1040 SXD ABAR,C 4F13879
Reference
07164 1 77775 4 07165 3830 TXI LA1040,C,−3 -A TO - (A+3) 4F13878

LA2000 = 3719

Definition
07207 0 50200 4 15304 3849 LA2000 CLS ALPHA−1,C 4F13897
Reference
07143 −0 10000 0 07207 3813 TNZ LA2000 4F13861

LA3000 = 3770

Definition
07272 0 50200 4 15303 3900 LA3000 CLS ALPHA−2,C 4F13948

References (2)

	07152	1 77777 2 07272	3820		TXI	LA3000,B,−1	4F13868
	07154	1 77777 2 07272	3822		TXI	LA3000,B,−1	4F13870

LA4000 = 3727

Definition
07217 0 50200 4 15302 3857 LA4000 CLS ALPHA−3,C 4F13905
Reference
07126 1 77777 2 07217 3800 TXI LA4000,B,−1 UNARY... -NTO -(N+1) 4F13848

LA4010 = 3728

Definition
07220 0 60100 1 15520 3858 LA4010 STO LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L 4F13906
Reference
07166 0 02000 0 07220 3832 TRA LA4010 4F13880

LA4150 = 3741

Definition
07235 −0 50000 0 01524 3871 LA4150 CAL ADSTAR 4F13919
Reference
07234 1 77777 2 07235 3870 TXI LA4150,B,−1 -(N+1) TO -(N+2) 4F13916

LA4170 = 3743

Definition
07237 −0 75400 2 00000 3873 LA4170 PXD ,B 4F13921
Reference
07301 1 00003 1 07237 3907 TXI LA4170,A,3 4F13955

LA4180 = 3744

Definition
07240 0 77100 0 00022 3874 LA4180 ARS 18 4F13922
Reference
07212 1 00006 1 07240 3852 TXI LA4180,A,6 4F13900

LA4320 = 3753

Definition
07251 1 77767 1 00000 3883 LA4320 TXI **,A,−9 4F13931

References (2)

	07044	0 62100 0 07251	3750		STA	LA4320	4F13798
	07063	0 62100 0 07251	3765	LA002	STA	LA4320	4F13813

LAMBDA = 6992

Definition
15520 4150 LAMBDA BSS 1200 4F14197

References (62)

06506	0 60100 1 15520	3525		STO	LAMBDA,1	4F13574
06510	0 60200 1 15521	3527		SLW	LAMBDA+1,1	4F13576
06513	0 60100 1 15522	3530		STO	LAMBDA+2,1	4F13579
07047	−0 60000 1 15533	3753		STQ	LAMBDA+11,A	4F13801
07050	−0 60000 1 15530	3754		STQ	LAMBDA+8,A	4F13802
07051	−0 60000 1 15525	3755		STQ	LAMBDA+5,A	4F13803
07065	0 60100 1 15531	3767		STO	LAMBDA+9,A	4F13815
07066	0 60100 1 15526	3768		STO	LAMBDA+6,A	4F13816
07067	0 60100 1 15523	3769		STO	LAMBDA+3,A	4F13817
07071	0 60200 1 15535	3771		SLW	LAMBDA+13,A	4F13819
07072	0 60200 1 15532	3772		SLW	LAMBDA+10,A	4F13820
07073	0 60200 1 15527	3773		SLW	LAMBDA+7,A	4F13821
07076	−0 60000 1 15521	3776		STQ	LAMBDA+1,A	4F13824
07110	0 60100 1 15536	3786		STO	LAMBDA+14,A STO (N+3) IN LAMBDA+3 (L+4)+2	4F13834
07115	0 60100 1 15534	3791		STO	LAMBDA+12,A STO -(N+2) IN LAMBDA+3 (L+4)	4F13839
07132	0 60100 1 15533	3804		STO	LAMBDA+11,A STO S(N+3) IN LAMBDA +3(L+3)+2	4F13852
07157	0 60100 1 15531	3825		STO	LAMBDA+9,A STO -0 IN LAMBDA +3(L+3)	4F13873
07171	0 60100 1 15525	3835		STO	LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2	4F13883
07176	0 60100 1 15530	3840		STO	LAMBDA+8,A STO S(N+1) IN LAMBDA+3(L+2)+2	4F13888
07202	0 60100 1 15526	3844	L23090	STO	LAMBDA+6,A STO -N IN LAMBDA+3(L+2)	4F13892
07205	0 60100 1 15523	3847		STO	LAMBDA+3,A STO -0 IN LAMBDA+3(L+1)	4F13895
07210	0 60100 1 15520	3850		STO	LAMBDA,A STO C(ALPHA+A-1) IN LAMBDA+3L	4F13898
07215	0 60100 1 15531	3855		STO	LAMBDA+9,A STO -0 IN LAMBDA+3(L+3)	4F13903
07220	0 60100 1 15520	3858	LA4010	STO	LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L	4F13906
07224	0 60200 1 15522	3862		SLW	LAMBDA+2,A STO S(N) IN LAMBDA+3L+2	4F13910
07225	0 60100 1 15523	3863		STO	LAMBDA+3,A STO -N IN LAMBDA+3(L+1)	4F13911
07230	0 60100 1 15525	3866		STO	LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2	4F13914
07233	0 60100 1 15526	3869		STO	LAMBDA+6,A STO -(N+1) IN LAMBDA+3IL+2)	4F13917
07236	0 60200 1 15524	3872		SLW	LAMBDA+4,A STO * IN LAMBDA+3(L+1)+1	4F13920
07241	0 60100 1 15530	3875		STO	LAMBDA+8,A STOS(N+2) IN LAMBDA+3(L+2)+2	4F13923
07242	−0 60200 1 15531	3876		ORS	LAMBDA+9,A STO -(N+2) IN LAMBDA+3(L+3)	4F13924
07244	0 60200 1 15527	3878		SLW	LAMBDA+7,A STO SPOP IN LAMBDA+3(L+2)+1	4F13926
07250	0 60200 1 15532	3882		SLW	LAMBDA+10,A STO SPOP IN LAMBDA+3(L+3)+1	4F13930
07254	0 60100 1 15530	3886		STO	LAMBDA+8,A STO 5(N+2) IN LAMBDA+3(L+2)+2	4F13934
07261	0 60100 1 15533	3891		STO	LAMBDA+11,A STO S(N+2) IN LAMBDA+3(L+3)+2	4F13939
07265	0 60100 1 15531	3895	L33090	STO	LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3)	4F13943
07270	0 60100 1 15526	3898		STO	LAMBDA+6,A	4F13946
07273	0 60100 1 15520	3901		STO	LAMBDA,A STO C(ALPHA+A-2) IN LAMBDA+3L	4F13949
07277	0 60200 1 15522	3905		SLW	LAMBDA+2,A STO S(N) IN LAMBDA+3L+2	4F13953
07300	0 60100 1 15523	3906		STO	LAMBDA+3,A STO -N IN LAMBDA+3(L+1)	4F13954
07642	0 50000 1 15520	4171	R01000	CLA	LAMBDA,A ADD INTO GAMMA COUNTERS	4F14220
07653	0 50000 1 15515	4180		CLA	LAMBDA−3,A	4F14229
07661	0 56000 1 15516	4186	R02600	LDQ	LAMBDA−2,A SINGLE ELEMENT	4F14235
07667	0 32000 1 15515	4192		ANS	LAMBDA−3,A EXTRACT TAGS AND STORE BACK	4F14241
07670	0 50000 1 15512	4193		CLA	LAMBDA−6,A	4F14242
07671	−0 50100 1 15515	4194		ORA	LAMBDA−3,A	4F14243
07672	0 60200 1 15512	4195		SLW	LAMBDA−6,A	4F14244
07673	−0 50000 1 15516	4196		CAL	LAMBDA−2,A EXTRACT FS BITS AND STORE BACK	4F14245
07675	−0 60200 1 15513	4198		ORS	LAMBDA−5,A	4F14247
07676	−0 50000 1 15517	4199		CAL	LAMBDA−1,A STORE BACK SYMBOL	4F14248
07677	0 60200 1 15514	4200		SLW	LAMBDA−4,A	4F14249
07701	0 60000 1 15515	4202		STZ	LAMBDA−3,A CLEAR TAG WORD	4F14251
07715	−0 50000 1 15520	4214	R05300	CAL	LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE	4F14263
07717	0 60200 4 15520	4216		SLW	LAMBDA,C	4F14265
07720	0 50000 1 15521	4217		CLA	LAMBDA+1,A	4F14266
07721	0 60100 4 15521	4218		STO	LAMBDA+1,C	4F14267
07722	0 50000 1 15522	4219		CLA	LAMBDA+2,A	4F14268
07723	0 60100 4 15522	4220		STO	LAMBDA+2,C	4F14269
07732	0 50000 1 15520	4227	R06400	CLA	LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE	4F14276
07736	0 50000 1 15520	4231		CLA	LAMBDA,A	4F14280
07740	0 50000 1 15521	4233		CLA	LAMBDA+1,A	4F14282
07742	0 50000 1 15522	4235		CLA	LAMBDA+2,A	4F14284

LENGTH = 751

Definition
01357 0 00000 0 00000 301 LENGTH PZE **,,** 4F10291

Local references (4)

07764	−0 63400 4 01357	4253	SXD	LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT	4F14302
10001	0 40200 0 01357	4266	SUB	LENGTH	4F14315
10042	−0 53400 4 01357	4299	LXD	LENGTH,C	4F14348
10056	−0 53400 4 01357	4311	LXD	LENGTH,C	4F14360

External reference
02326 0 00000 0 00000 1268 PZE LENGTH OF FORTAG TABLE F3B12090

LIFDP) = 873

Definition
01551 262447000000 431 LIFDP) BCD 1FDP000 SYMBOLIC OPERATION CODE. 4F10421
Reference
11501 0 50000 0 01551 5103 CP1670 CLA LIFDP) 4F15153

LK0000 = 4488

Definition
10610 −0 53400 1 10323 4657 LK0000 LXD AS3600,A -3Q TO XA 4F14706

References (4)

10355	−3 00000 1 10610	4502	PL0000	TXL	LK0000,A,0 GO TO LINKAGE	4F14551
10675	−3 00000 2 10610	4710	LK0650	TXL	LK0000,B,0 NOT FOUND AT ALL	4F14759
10763	−3 00000 2 10610	4764	LK1280	TXL	LK0000,B,0 NOT FOUND AT ALL	4F14813
11006	0 02000 0 10610	4783		TRA	LK0000	4F14832

LK0030 = 4489

Definition
10611 −0 50000 1 16645 4658 LK0030 CAL SCRIPL−3,A 4F14707

References (13)

10642	0 02000 0 10611	4683		TRA	LK0030 S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0	4F14732
10651	−0 10000 0 10611	4690		TNZ	LK0030 SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0	4F14739
10656	0 02000 0 10611	4695		TRA	LK0030 OP1 (S(I-1)) = 0. CLOSED ** SUBROUTINE.	4F14744
10660	−0 10000 0 10611	4697		TNZ	LK0030 SET OP1,S(I))29=OP1(S(I-1))35=0	4F14746
10670	−0 10000 0 10611	4705		TNZ	LK0030 NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =0	4F14754
10734	3 00006 2 10611	4741		TXH	LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0	4F14790
10736	−0 10000 0 10611	4743		TNZ	LK0030 NO... SET OP1 (S(I))29 = OP2 (S(I-1))35 = 0	4F14792
10744	0 02000 0 10611	4749		TRA	LK0030 FN-NAME	4F14798
10745	−3 00006 2 10611	4750	LK1100	TXL	LK0030,B,6 CLOSED UNIV. SBRTN	4F14799
10747	−0 10000 0 10611	4752		TNZ	LK0030 S(I) NOT = SYM3 (S (I-1))	4F14801
10775	−0 10000 0 10611	4774		TNZ	LK0030 NO	4F14823
11013	3 00006 2 10611	4788		TXH	LK0030,B,6 OPEN MULTIV.	4F14837
11017	0 02000 0 10611	4792		TRA	LK0030 FN-NAME	4F14841

LK0110 = 4495

Definition
10617 1 00000 1 10620 4664 LK0110 TXI LK0120,A,0 MOVE XA TO BEGINNING OF S(I) 4F14713
Reference
10616 0 62200 0 10617 4663 STD LK0110 4F14712

LK0120 = 4496

Definition
10620 −0 53400 4 10621 4665 LK0120 LXD LK0130,C 4F14714
Reference
10617 1 00000 1 10620 4664 LK0110 TXI LK0120,A,0 MOVE XA TO BEGINNING OF S(I) 4F14713

LK0130 = 4497

Definition
10621 1 00000 5 10622 4666 LK0130 TXI LK0140,5,0 XA TO XA,XC 4F14715
Reference
10620 −0 53400 4 10621 4665 LK0120 LXD LK0130,C 4F14714

LK0140 = 4498

Definition
10622 −0 63400 1 10323 4667 LK0140 SXD AS3600,A 4F14716
Reference
10621 1 00000 5 10622 4666 LK0130 TXI LK0140,5,0 XA TO XA,XC 4F14715

LK0180 = 4502

Definition
10626 1 00000 4 10627 4671 LK0180 TXI LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1) 4F14720
Reference
10625 −0 63400 2 10626 4670 SXD LK0180,B 4F14719

LK0190 = 4503

Definition
10627 0 16200 0 10753 4672 LK0190 TQP LK1200 S(I) TYPE AC 4F14721
Reference
10626 1 00000 4 10627 4671 LK0180 TXI LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1) 4F14720

LK0320 = 4515

Definition
10643 0 16200 0 10664 4684 LK0320 TQP LK0570 4F14733
Reference
10640 0 02000 0 10643 4681 TRA LK0320 4F14730

LK0430 = 4523

Definition
10653 −0 60200 4 16651 4692 LK0430 ORS SCRIPL+1,C 4F14741
Reference
10727 0 02000 0 10653 4736 TRA LK0430 4F14785

LK0440 = 4524

Definition
10654 −0 50000 0 01436 4693 LK0440 CAL BIT29 4F14742

References (3)

10663	0 02000 0 10654	4700	TRA	LK0440	4F14749
10741	0 02000 0 10654	4746	TRA	LK0440	4F14795
10752	0 02000 0 10654	4755	TRA	LK0440	4F14804

LK0480 = 4527

Definition
10657 0 40200 4 16655 4696 LK0480 SUB SCRIPL+5,C 4F14745

References (3)

10647	0 16200 0 10657	4688		TQP	LK0480 OP1 (S(I-1)) 33 = 0	4F14737
11014	0 02000 0 10657	4789	LK1520	TRA	LK0480	4F14838
11016	0 16200 0 10657	4791		TQP	LK0480	4F14840

LK0570 = 4532

Definition
10664 −0 75400 0 00000 4701 LK0570 PXD 0,0 S(I) TYPE MQ, OP1 (S(I-1)) = * 4F14750
Reference
10643 0 16200 0 10664 4684 LK0320 TQP LK0570 4F14733

LK0630 = 4539

Definition
10673 −0 50000 1 16650 4708 LK0630 CAL SCRIPL,A 4F14757
Reference
11003 0 10000 0 10673 4780 TZE LK0630 YES 4F14829

LK0650 = 4541

Definition
10675 −3 00000 2 10610 4710 LK0650 TXL LK0000,B,0 NOT FOUND AT ALL 4F14759
Reference
10702 1 77775 2 10675 4715 LK0700 TXI LK0650,B,−3 4F14764

LK0700 = 4546

Definition
10702 1 77775 2 10675 4715 LK0700 TXI LK0650,B,−3 4F14764

References (3)

10677	1 00003 1 10702	4712	TXI	LK0700,A,3	4F14761
10701	1 00003 1 10702	4714	TXI	LK0700,A,3 NOT FOUND - CONTINUE SEARCH	4F14763
10706	1 00003 1 10702	4719	TXI	LK0700,A,3 NO... CONTINUE SEARCH	4F14768

LK0710 = 4547

Definition
10703 0 56000 1 16646 4716 LK0710 LDQ SCRIPL−2,A S(I) IS SYMJ (S(I-1)) 4F14765
Reference
10700 0 02000 0 10703 4713 TRA LK0710 4F14762

LK0750 = 4551

Definition
10707 0 50000 4 16650 4720 LK0750 CLA SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJIS(I-1)) 4F14769

References (2)

	10705	0 16200 0 10707	4718		TQP	LK0750	4F14767
	10766	0 02000 0 10707	4767		TRA	LK0750 S(I) = SOME SYMJ (S(I-1))... GO PERMUTE	4F14816

LK0900 = 4566

Definition
10726 −0 50000 0 01407 4735 LK0900 CAL L(1) AND 4F14784
Reference
10776 0 02000 0 10726 4775 TRA LK0900 YES 4F14824

LK0950 = 4568

Definition
10730 −0 77300 0 00033 4737 LK0950 RQL 27 S(I) TYPE MQ, OP1 (S(I-1)) = SPOP 4F14786
Reference
10641 0 02000 0 10730 4682 TRA LK0950 4F14731

LK1050 = 4578

Definition
10742 −0 77300 0 00017 4747 LK1050 RQL 15 4F14796
Reference
10733 0 16200 0 10742 4740 TQP LK1050 0P1 (S(I-1)) 33 = 0 (CLOSED SUBROUTINE) 4F14789

LK1100 = 4581

Definition
10745 −3 00006 2 10611 4750 LK1100 TXL LK0030,B,6 CLOSED UNIV. SBRTN 4F14799
Reference
10743 0 16200 0 10745 4748 TQP LK1100 TEST OP1(S(I-1))12 4F14797

LK1200 = 4587

Definition
10753 −0 75400 0 00000 4756 LK1200 PXD 0,0 S(I) TYPE AC 4F14805

References (2)

	10627	0 16200 0 10753	4672	LK0190	TQP	LK1200 S(I) TYPE AC	4F14721
	10631	0 16200 0 10753	4674		TQP	LK1200 S(I) TYPE AC	4F14723

LK1280 = 4595

Definition
10763 −3 00000 2 10610 4764 LK1280 TXL LK0000,B,0 NOT FOUND AT ALL 4F14813
Reference
10770 1 77775 2 10763 4769 LK1330 TXI LK1280,B,−3 4F14818

LK1330 = 4600

Definition
10770 1 77775 2 10763 4769 LK1330 TXI LK1280,B,−3 4F14818

References (2)

	10765	1 00003 1 10770	4766		TXI	LK1330,A,3	4F14815
	10767	1 00003 1 10770	4768		TXI	LK1330,A,3 NOT FOUND... CONTINUE SEARCH	4F14817

LK1340 = 4601

Definition
10771 0 16200 0 10777 4770 LK1340 TQP LK1410 4F14819
Reference
10757 0 02000 0 10771 4760 TRA LK1340 4F14809

LK1410 = 4607

Definition
10777 −0 75400 0 00000 4776 LK1410 PXD 0,0 S(I) TYPE AC, OP1 (S(I-1)) = * 4F14825
Reference
10771 0 16200 0 10777 4770 LK1340 TQP LK1410 4F14819

LK1470 = 4615

Definition
11007 −0 77300 0 00033 4784 LK1470 RQL 27 S(I) TYPE AC, OP1 (S(I-1)) = SPOP 4F14833
Reference
10760 0 02000 0 11007 4761 TRA LK1470 4F14810

LK1520 = 4620

Definition
11014 0 02000 0 10657 4789 LK1520 TRA LK0480 4F14838

LK1530 = 4621

Definition
11015 −0 77300 0 00017 4790 LK1530 RQL 15 4F14839
Reference
11012 0 16200 0 11015 4787 TQP LK1530 4F14836

LK1610 = 4624

Definition
11020 −0 53400 2 15044 4793 LK1610 LXD BETA,B IS S(0) A SINGLE ELEMENT 4F14842
Reference
10613 −3 00000 2 11020 4660 TXL LK1610,B,0 EXIT UPON ENCOUNTERING S(0) 4F14709

LK1780 = 4642

Definition
11042 0 16200 0 11047 4811 LK1780 TQP LKK000 S(0) TYPT AC 4F14860
Reference
11023 3 00003 2 11042 4796 TXH LK1780,B,3 NO 4F14845

LK1820 = 4646

Definition
11046 −0 60200 0 16651 4815 LK1820 ORS SCRIPL+1 4F14864
Reference
11041 0 02000 0 11046 4810 TRA LK1820 4F14859

LKK000 = 4647

Definition
11047 −0 53400 5 01117 4816 LKK000 LXD 3QBAR,5 -3Q TO XA,XC 4F14865

References (5)

11026	0 10000 0 11047	4799		TZE	LKK000 OP (S(0)) = -	4F14848
11031	−0 10000 0 11047	4802		TNZ	LKK000 NO	4F14851
11034	0 10000 0 11047	4805		TZE	LKK000 OP1 (S(1)) 31 = 0	4F14854
11042	0 16200 0 11047	4811	LK1780	TQP	LKK000 S(0) TYPT AC	4F14860
11044	0 16200 0 11047	4813		TQP	LKK000 S(0) TYPE AC	4F14862

LKK050 = 4652

Definition
11054 1 00000 4 11055 4821 LKK050 TXI LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT 4F14870
Reference
11053 0 62200 0 11054 4820 STD LKK050 4F14869

LKK060 = 4653

Definition
11055 −0 75400 0 00000 4822 LKK060 PXD 0,0 4F14871
Reference
11054 1 00000 4 11055 4821 LKK050 TXI LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT 4F14870

LKK130 = 4660

Definition
11064 0 56000 4 16654 4829 LKK130 LDQ SCRIPL+4,C OP1 OF LAST SEGMENT IS * 4F14878
Reference
11062 0 16200 0 11064 4827 TQP LKK130 4F14876

MC0030 = 4720

Definition
11160 −0 63400 1 11176 4893 MC0030 SXD XASAVE,A 4F14943
Reference
11227 3 00000 1 11160 4932 MC0420 TXH MC0030,A,0 4F14982

MC0050 = 4722

Definition
11162 0 73400 2 00000 4895 MC0050 PAX ,2 S(I) TO XB 4F14945

MC0070 = 4724

Definition
11164 0 73400 2 00454 4897 MC0070 PAX TAU2,B 4F14947

MC00OO = 4717

Definition
11155 −0 53400 1 01117 4890 MC00OO LXD 3QBAR,A MODE CHECKING ROUTINE 4F14940

MC0180 = 4735

Definition
11177 −0 76300 0 00032 4908 MC0180 LGL 26 OP1 (S(I)) = +, - OR * 4F14958
Reference
11175 0 16200 0 11177 4906 TQP MC0180 4F14956

MC0210 = 4738

Definition
11202 −0 75400 0 00000 4911 MC0210 PXD 0,0 4F14961

References (2)

	11200	0 16200 0 11202	4909		TQP	MC0210 FIX PT	4F14959
	11224	1 77775 1 11202	4929		TXI	MC0210,A,−3 CONTINUE SCANNING S(I). J TO J+1	4F14979

MC0310 = 4748

Definition
11214 −0 76000 0 00141 4921 MC0310 SLT 1 SYMJ (S(I)) IS A FIX PT VARIABLE 4F14971

References (2)

	11252	0 02000 0 11214	4951		TRA	MC0310 S(K) IS FIX PT	4F15001
	12162	0 16200 0 11216	5409		TQP	MC0310+2 ERROR FIX PT BASE, FLOAT EXP.	4F15464

MC0340 = 4751

Definition
11217 −0 76000 0 00141 4924 MC0340 SLT 1 SYMJ(S(I)) IS A FLO PT VARIABLE 4F14974

References (3)

11212	1 00000 0 11217	4919	XBSAVE	TXI	MC0340,0,0 FLO PT	4F14969
11213	0 02000 0 11217	4920		TRA	MC0340 FLO PT	4F14970
11253	0 02000 0 11217	4952		TRA	MC0340 S(K) IS FL0 PT	4F15002

MC0380 = 4755

Definition
11223 −3 00000 2 11225 4928 MC0380 TXL MC0400,B,0 FINISHED WITH S(I) 4F14978

References (2)

	11215	1 00003 2 11223	4922		TXI	MC0380,B,3 OK	4F14972
	11222	1 00003 2 11223	4927		TXI	MC0380,B,3	4F14977

MC0400 = 4757

Definition
11225 −0 53400 1 11176 4930 MC0400 LXD XASAVE,A GO T0 S(I+1) 4F14980
Reference
11223 −3 00000 2 11225 4928 MC0380 TXL MC0400,B,0 FINISHED WITH S(I) 4F14978

MC0410 = 4758

Definition
11226 1 00000 1 11227 4931 MC0410 TXI MC0420,A,0 4F14981

References (3)

11165	−0 63400 2 11226	4898		SXD	MC0410,B	4F14946
11167	3 77772 2 11226	4900		TXH	MC0410,B,−6 SINGLE ELEMENT - GO ONTO S(I+1)	4F14950
11176	1 00000 0 11226	4907	XASAVE	TXI	MC0410,0,0	4F14957

MC0420 = 4759

Definition
11227 3 00000 1 11160 4932 MC0420 TXH MC0030,A,0 4F14982

References (2)

	11156	−0 63400 1 11227	4891		SXD	MC0420,A	4F14941
	11226	1 00000 1 11227	4931	MC0410	TXI	MC0420,A,0	4F14981

MC0440 = 4761

Definition
11231 −0 63400 2 11212 4934 MC0440 SXD XBSAVE,B SYMJ (S(ITT = SAME S(K) 4F14984
Reference
11206 0 16200 0 11231 4915 TQP MC0440 4F14965

MC0460 = 4763

Definition
11233 1 00000 4 11234 4936 MC0460 TXI MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1) 4F14986
Reference
11166 −0 63400 2 11233 4899 SXD MC0460,B 4F14949

MC0470 = 4764

Definition
11234 −0 50000 4 16650 4937 MC0470 CAL SCRIPL,C 4F14987

References (2)

	11233	1 00000 4 11234	4936	MC0460	TXI	MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1)	4F14986
	11245	1 00000 4 11234	4946	MC0560	TXI	MC0470,C,0	4F14996

MC0520 = 4769

Definition
11241 0 73400 2 01226 4942 MC0520 PAX SIGMA1,B S(K) TO XB 4F14992
Reference
11237 0 02000 0 11241 4940 TRA MC0520 4F14990

MC0540 = 4771

Definition
11243 0 73400 2 00000 4944 MC0540 PAX TAU1,B 4F14994

MC0560 = 4773

Definition
11245 1 00000 4 11234 4946 MC0560 TXI MC0470,C,0 4F14996
Reference
11244 −0 63400 2 11245 4945 SXD MC0560,B 4F14995

MC0570 = 4774

Definition
11246 −0 53400 2 11212 4947 MC0570 LXD XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K 4F14997
Reference
11240 0 02000 0 11246 4941 TRA MC0570 4F14991

MEMORG = 1824

Definition
03440 5880 MEMORG SYN 1824 MEMORY ORIGIN FOR ALL STATES. 4F15936

MINUS0 = 848

Definition
01520 −0 00000 0 00000 405 MINUS0 MZE 0 4F10395
Reference
05574 −0 50000 0 01520 2968 CAL MINUS0 OTHERWISE, SET THE SIGN 4F13022

MS1018 = 3616

Definition
07040 −0 75400 1 00000 3746 MS1018 PXD 0,A PRESENT - STORE TYPE IN FSBITS 4F13794
Reference
07034 0 02000 0 07040 3742 TRA MS1018 4F13790

MS1033 = 3654

Definition
07106 −0 75400 2 00000 3784 MS1033 PXD ,B 4F13832
Reference
07105 1 77775 2 07106 3783 TXI MS1033,B,−3 -N TO -(N+3) 4F13831

MS4007 = 3315

Definition
D 06363 3 00000 0 07302 3442 MS4007 TXH CM4100,0 4F13491
Reference
07056 0 50000 0 06363 3760 CLA MS4007 4F13808

MS9002 = 3380

Definition
D 06464 3 00000 0 07312 3507 MS9002 TXH CM4200,0 4F13556
Reference
07043 0 50000 0 06464 3749 LA0003 CLA MS9002 4F13797

MS9500 = 3918

Definition
07516 0 60100 0 01347 4063 MS9500 STO G STORE IN G, AND 4F14111

References (3)

	07471	0 10000 0 07516	4042	TZE	MS9500 FLO PT CONSTANT RETURN.	4F14090
	07503	−3 00000 1 07516	4052	TXL	MS9500,1,0 IF ZERO, TAKE FLO PT RETURN.	4F14100
D	07531	1 00000 0 07516	4074	TXI	MS9500,0 RETURN TO ARITHMETIC ROUTINE.	4F14122

MS9506 = 3852

Definition
07414 0 76700 0 00022 3997 MS9506 ALS 18 STORE IN THE 4F14045

MSERR= = 3436

Definition
06554 0 07400 4 03400 3563 MSERR= TSX DIAG,4 = 4F13612

References (2)

	06637	−0 10000 0 06554	3616		TNZ	MSERR= NO, ERROR.	4F13665
U	06652	00000 0 06554	3627	MS310	***	MSERR=,0 TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN.	4F13676

MTR000 = 1824

Definition
03440 5882 MTR000 SYN STATEA 4F15938

References (4)

12602	0 10000 0 03440	5682	TZE	MTR000	4F15742
12605	0 10000 0 03440	5685	TZE	MTR000	4F15745
12614	0 02000 0 03440	5692	TRA	MTR000	4F15752
12620	0 02000 0 03440	5696	TRA	MTR000	4F15756

NGTBIT = 828

Definition
01474 +000200000000 385 NGTBIT OCT 000200000000 4F10375
Reference
12227 −0 50100 0 01474 5447 ORA NGTBIT SET OPJ(S(I))10=1 FROM NGTBIT 4F15507

NOLARG = 160

Definition
00240 95 NOLARG BSS 10 HOLLERITH ARGUMENTS FOR SUBROUTINE. 4F10086
Reference
00371 0 00012 0 00240 163 PZE NOLARG,,10 I3) 0,,0. 4F10154

NONEXC = 170

Definition
00252 96 NONEXC BSS 10 NON-EXECUTED STATEMENTS. 4F10087
Reference
00374 0 00012 0 00252 167 PZE NONEXC,,10 14) O,,0. 4F10158

OPNWRD = 754

Definition
01362 304 OPNWRD BSS 1 ERASABLE USED BY STATE D. 4F10294
Reference
12616 0 50000 0 01362 5694 CLA OPNWRD 4F15754

OPWORD = 7289

Definition
16171 5809 OPWORD BSS 1 4F15861

References (3)

12412	0 60100 0 16171	5562	STO	OPWORD	4F15622
12632	0 60100 0 16171	5708	STO	OPWORD	4F15768
12657	0 56000 0 16171	5729	LDQ	OPWORD NON-SUBSCRIPTD0 EXTERNAL VARIABLE	4F15789

ORGCOM = 24

Definition

	22				4F10013
	23			PART I / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=	4F10014
	24			EIFNO AND SENSE SWITCH SIMULATORS.	4F10015
	25			TAPE TABLE BUFFERS.	4F10016
	26			TAPE TABLE PARAMETERS - INTET.	4F10017
	27			DRUM TABLE PARAMETERS.	4F10018
	28			FORSUB COUNT AND BUFFER.	4F10019
	29			CIB BUFFER AND PARAMETERS.	4F10020
	30			REMAINING WORKING STORAGE.	4F10021
	31			PART 2 / CONSTANTS USED BY SECTION ONE.	4F10022
	32			PART 3 / SUBROUTINES USED BY SECTION ONE=	4F10023
	33			NAME FUNCTION	4F10024
	34			C0I50,2 SCAN, AND CONVERT NUMERICS.	4F10025
	35			C0160,2 SCAN CHARACTERS.	4F10026
	36			C0180,Z CONVERT NUMERICS.	4F10027
	37			C0I90X,4 INITIALIZE C0190 TO 1ST WORD OF F.	4F10028
	38			C0390,4 INSERT CHARACTER.	4F10029
	39			C0190,4 OBTAIN NEXT NON-BLANK CHAR IN AC.	4F10030
	40			CIT00,4 COMPILED INSTRUCTION TABLE ENTRIES.	4F10031
	41			DIM.SR,4 DIMENSION TABLE SEARCH.	4F10032
	42			DRTABS(,4) DRUM TABLE ENTRIES.	4F10033
	43			0ETIFN,4 GET INTERNAL FORMULA NUMBER.	4F10034
	44			JIF(GIF),4 JUMPS (GETS) IFN IN SL AND TL.	4F10035
	45			MTR000 MONITOR STATES FROM DRUM.	4F10036
	46			RA000,4 COMPUTE RELATIVE ADDRESS.	4F10037
	47			RDRX,4 READ DRUM INTO BUFR.	4F10038
	48			SR6DCI,1 CONVERT 6 BCD DIGITS TO 1 BINARY.	4F10039
	49			SS000,4 SOAN AND PR0CESS SUBSCRIPTS.	4F10040
	50			SUBX00,4 ADD BLANKS TO SUBROUTINE NAMES.	4F10041
	51			TESTFX,1 TEST FOR FIXED OR FLOATING POINT.	4F10042
	52			TEST..,4 TEST CHARACTER IN THE AC.	4F10043
	53			TET00,1 TAPE TABLE ENTRIES.	4F10044
	54				4F10045
	55			DIAG DIAGNOSTIC OALLERS.	4F10046
	56				4F10047
	57			TNE FOLLOWING CONVENTIONS ARE USED IN TNIS LISTING=	4F10048
	58				4F10049
	59			** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION	4F10050
	60			INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.	4F10051
	61			* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT 0F	4F10052
	62			TNIS LOGICAL BLOCK OR SUBROUTINE.	4F10053
	63			C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.	4F10054
	64			P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).	4F10055
	65				4F10056
	66			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10057
	67				4F10058
	68			COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=	4F10059
00030	69	ORGCOM	ORG	24	4F10060

Reference
00000 0 00004 0 00030 20 PZE ORGCOM,,1TOCS 4F100122

ORGDM1 = 299

Definition
00453 −3 00000 0 00310 239 ORGDM1 TXL DIM1,,0 *** FDA,,K*L 4F10230
Reference
01773 0 50000 0 00453 638 CLA ORGDM1 AND PICK UP 1ST ADDRESS 0F DIM1 TO 4F10627

ORGDM2 = 304

Definition
00460 −3 00000 0 00764 245 ORGDM2 TXL DIM2,,0 *** FDA,,K*L 4F10236
Reference
01777 0 50000 0 00460 643 CLA ORGDM2 AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632

ORGDM3 = 309

Definition
00465 −3 00000 0 01440 251 ORGDM3 TXL DIM3,,0 *** FDA,,K*L 4F10242
Reference
02007 0 50000 0 00465 652 CLA ORGDM3 AND PICK UP 1ST ADDRESS 0F DIM3 TO 4F10641

OUTPUT = 3076

Definition
3157 OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD. 4F13209

06004 0 50000 0 01413 3158 OUTPUT CLA L(5) PICKUP 5 TO 4F13210

References (6)

	04755	0 07400 2 06004	2458		TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12512
	04764	0 07400 2 06004	2471	WOT	TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12525
	04774	0 07400 2 06004	2484		TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12538
	05001	0 07400 2 06004	2494		TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12548
	05044	0 07400 2 06004	2539	WRD	TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12593
TD	06003	1 00000 0 06005	3156		TXI	OUTPUT+1 GO SET INOUT FOR FORVAL ENTRY.	4F13208

P(CNTR = 7281

Definition
16161 5804 P(CNTR BSS 1 4F15856

References (10)

11620	0 60200 0 16161	5182	SLW	P(CNTR	4F15232
11635	0 00000 0 16161	5195	HTR	P(CNTR	4F15245
11636	0 50000 0 16161	5196	CLA	P(CNTR UPDATE P(CNTR	4F15246
11640	0 60100 0 16161	5198	STO	P(CNTR	4F15248
12014	0 60100 0 16161	5307	STO	P(CNTR INITIALIZE P(CNTR TO -2	4F15362
12025	0 50000 0 16161	5316	CLA	P(CNTR	4F15371
12030	0 60100 0 16161	5319	STO	P(CNTR	4F15374
12045	0 60100 0 16161	5332	STO	P(CNTR	4F15387
12056	0 50000 0 16161	5341	CLA	P(CNTR	4F15396
12061	0 60100 0 16161	5344	STO	P(CNTR	4F15399

PC0000 = 4664

Definition
11070 −0 53400 4 01122 4833 PC0000 LXD ARGCTR,C IS THIS AN FS 4F14882

References (2)

	11061	−0 10000 0 11070	4826		TNZ	PC0000	4F14875
	11063	0 02000 0 11070	4828		TRA	PC0000	4F14877

PC0030 = 4667

Definition
11073 0 53400 4 01406 4836 PC0030 LXA L(0),C YES 4F14885
Reference
11071 3 00000 4 11073 4834 TXH PC0030,C,0 4F14883

PC0040 = 4668

Definition
11074 −0 50000 1 16645 4837 PC0040 CAL SCRIPL−3,A 4F14886

References (3)

11072	1 00001 4 11074	4835	TXI	PC0040,C,1 NO	4F14884
11106	0 16200 0 11074	4847	TQP	PC0040 OP1 (S(I)) 29= 1 AND OP1 (S(I)) 30 = 0	4F14896
11111	1 00001 4 11074	4850	TXI	PC0040,C,1 AND UPDATE FOR NEXT SEGMENT	4F14899

PC0100 = 4673

Definition
11101 1 00000 1 11102 4842 PC0100 TXI PC0110,A,0 4F14891
Reference
11100 0 62200 0 11101 4841 STD PC0100 4F14890

PC0110 = 4674

Definition
11102 0 56000 1 16651 4843 PC0110 LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ 4F14892
Reference
11101 1 00000 1 11102 4842 PC0100 TXI PC0110,A,0 4F14891

PC0140 = 4677

Definition
11105 1 00454 0 11107 4846 PC0140 TXI PC0160,0,300 4F14895
Reference
11112 −0 53400 2 11105 4851 PC0190 LXD PC0140,B 4F14900

PC0160 = 4679

Definition
11107 −0 75400 4 00000 4848 PC0160 PXD 0,C OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1 4F14897
Reference
11105 1 00454 0 11107 4846 PC0140 TXI PC0160,0,300 4F14895

PC0190 = 4682

Definition
11112 −0 53400 2 11105 4851 PC0190 LXD PC0140,B 4F14900
Reference
11076 −3 00000 2 11112 4839 TXL PC0190,B,0 EXIT AT S(0) 4F14888

PC0200 = 4683

Definition
11113 0 50000 2 15520 4852 PC0200 CLA BETA+300,B 4F14901
Reference
11115 2 00001 2 11113 4854 TIX PC0200,B,1 4F14903

PHI(I) = 755

Definition
01363 0 00000 0 00000 305 PHI(I) PZE **,,** 4F10295

References (2)

	11274	0 62200 0 01363	4970		STD	PHI(I) STO ERAS. REL. ADD. IN PHI (I)	4F15020
	12347	0 50000 0 01363	5527		CLA	PHI(I)	4F15587

PL0000 = 4333

Definition
10355 −3 00000 1 10610 4502 PL0000 TXL LK0000,A,0 GO TO LINKAGE 4F14551

References (9)

10404	0 02000 0 10355	4525		TRA	PL0000 FIX PT... OP1 (S(I)) 32 = 0	4F14574
10407	1 00000 0 10355	4528	PL0260	TXI	PL0000,0,0 CONTINUE SCAN	4F14577
10436	0 02000 0 10355	4551		TRA	PL0000 FIX PT ... OP1 (S(I)) 32 = 0	4F14600
10520	−0 10000 0 10355	4601		TNZ	PL0000 SYM2 (S(I)) IS EXTERNAL	4F14650
10535	0 10000 0 10355	4614	PL1570	TZE	PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0	4F14663
10540	0 02000 0 10355	4617		TRA	PL0000 OP1 (S(I)) 33 = 0	4F14666
10544	0 02000 0 10355	4621		TRA	PL0000	4F14670
10547	0 02000 0 10355	4624		TRA	PL0000	4F14673
10607	0 02000 0 10355	4656		TRA	PL0000 RESUME SCAN	4F14705

PL0060 = 4339

Definition
10363 1 00000 1 10364 4508 PL0060 TXI PL0070,A,0 SET XA TO BEGINNING OF S(I) 4F14557
Reference
10362 0 62200 0 10363 4507 STD PL0060 4F14556

PL0070 = 4340

Definition
10364 −0 75400 0 00000 4509 PL0070 PXD 0,0 4F14558
Reference
10363 1 00000 1 10364 4508 PL0060 TXI PL0070,A,0 SET XA TO BEGINNING OF S(I) 4F14557

PL0130 = 4346

Definition
10372 −0 75400 0 00000 4515 PL0130 PXD 0,0 OP1 (S(I)) IS +, - OR * 4F14564
Reference
10465 0 16200 0 10372 4574 PL0680 TQP PL0130 4F14623

PL0135 = 4352

Definition
10400 0 34000 0 01423 4521 PL0135 CAS L(H) IS SYM1 (S(I)) FIX OR FLO PT 4F14570
Reference
10444 0 02000 0 10400 4557 TRA PL0135 4F14606

PL0240 = 4357

Definition
10405 −0 50000 0 01416 4526 PL0240 CAL L(8) SET OP1 (S(I)) 32 = 1 4F14575

References (3)

10402	0 02000 0 10405	4523	TRA	PL0240 FLO PT... SET OP1 (S(I)) 32 = 1	4F14572
10403	0 02000 0 10405	4524	TRA	PL0240 FLO PT... DITTO	4F14573
10435	−0 10000 0 10405	4550	TNZ	PL0240 FLO PT... GO SET OP1 (S(I)) 32 = 1	4F14599

PL0250 = 4358

Definition
10406 −0 60200 1 16651 4527 PL0250 ORS SCRIPL+1,A 4F14576
Reference
10426 0 02000 0 10406 4543 TRA PL0250 SET OP1 (S(I)) 32 = OP1 (S(J)) 32 4F14592

PL0260 = 4359

Definition
10407 1 00000 0 10355 4528 PL0260 TXI PL0000,0,0 CONTINUE SCAN 4F14577

References (2)

	10455	−0 63400 1 10407	4566		SXD	PL0260,A	4F14615
	10460	−0 53400 1 10407	4569		LXD	PL0260,A	4F14618

PL0300 = 4360

Definition
10410 −0 53400 2 10411 4529 PL0300 LXD PL0310,B SYM1 (S(I)) = SOME S(J) 4F14578
Reference
10376 0 16200 0 10410 4519 TQP PL0300 4F14568

PL0310 = 4361

Definition
10411 1 00000 3 10412 4530 PL0310 TXI PL0320,3,0 XA TO XA,XB 4F14579
Reference
10410 −0 53400 2 10411 4529 PL0300 LXD PL0310,B SYM1 (S(I)) = SOME S(J) 4F14578

PL0320 = 4362

Definition
10412 −0 63400 4 10413 4531 PL0320 SXD PL0330,C 4F14580

References (2)

	10411	1 00000 3 10412	4530	PL0310	TXI	PL0320,3,0 XA TO XA,XB	4F14579
	10423	0 02000 0 10412	4540		TRA	PL0320	4F14589

PL0330 = 4363

Definition
10413 1 00000 2 10414 4532 PL0330 TXI PL0340,B,0 4F14581
Reference
10412 −0 63400 4 10413 4531 PL0320 SXD PL0330,C 4F14580

PL0340 = 4364

Definition
10414 −0 50000 2 16650 4533 PL0340 CAL SCRIPL,B 4F14582
Reference
10413 1 00000 2 10414 4532 PL0330 TXI PL0340,B,0 4F14581

PL0420 = 4372

Definition
10424 −0 50000 2 16651 4541 PL0420 CAL SCRIPL+1,B SYM1(S(I)) = S(J) 4F14590
Reference
10420 0 10000 0 10424 4537 TZE PL0420 4F14586

PL0460 = 4375

Definition
10427 −0 76300 0 00007 4544 PL0460 LGL 7 OP1 (S(I)) IS SPOP 4F14593
Reference
10371 0 02000 0 10427 4514 TRA PL0460 4F14563

PL0461 = 4377

Definition
10431 0 56000 1 16652 4546 PL0461 LDQ SCRIPL+2,A FS NAME - 4F14595

References (2)

	10461	0 02000 0 10431	4570		TRA	PL0461	4F14619
	10464	0 02000 0 10431	4573		TRA	PL0461	4F14622

PL0465 = 4383

Definition
10437 0 76000 0 00001 4552 PL0465 LBT 4F14601
Reference
10430 0 16200 0 10437 4545 TQP PL0465 4F14594

PL0470 = 4389

Definition
10445 0 50000 1 16652 4558 PL0470 CLA SCRIPL+2,A NOT AN FS NAME 4F14607
Reference
10440 0 02000 0 10445 4553 TRA PL0470 4F14602

PL0480 = 4391

Definition
10447 0 34000 2 11117 4560 PL0480 CAS OPSUB,B 4F14609
Reference
10453 3 77754 2 10447 4564 PL0520 TXH PL0480,B,−20 4F14613

PL0520 = 4395

Definition
10453 3 77754 2 10447 4564 PL0520 TXH PL0480,B,−20 4F14613

References (2)

	10450	1 77777 2 10453	4561		TXI	PL0520,B,−1	4F14610
	10452	1 77777 2 10453	4563		TXI	PL0520,B,−1	4F14612

PL0650 = 4402

Definition
10462 −0 50000 0 01412 4571 PL0650 CAL L(4) SET OP1 (S(I)) 33 =1 4F14620
Reference
10451 0 02000 0 10462 4562 TRA PL0650 4F14611

PL0680 = 4405

Definition
10465 0 16200 0 10372 4574 PL0680 TQP PL0130 4F14623
Reference
10370 0 02000 0 10465 4513 TRA PL0680 4F14562

PL0800 = 4417

Definition
10501 −0 50000 0 01416 4586 PL0800 CAL L(8) FLO PT... SET OP1 (S(I)) 32 = 1 4F14635

References (2)

	10476	0 02000 0 10501	4583		TRA	PL0800	4F14632
	10477	0 02000 0 10501	4584		TRA	PL0800	4F14633

PL0820 = 4418

Definition
10502 −0 60200 1 16651 4587 PL0820 ORS SCRIPL+1,A 4F14636
Reference
10566 0 02000 0 10502 4639 TRA PL0820 4F14688

PL0830 = 4419

Definition
10503 −0 75400 0 00000 4588 PL0830 PXD 0,0 4F14637
Reference
10500 0 02000 0 10503 4585 TRA PL0830 FIX PT 4F14634

PL0850 = 4429

Definition
10515 −0 75400 0 00000 4598 PL0850 PXD 0,0 SYM2(S(I)) IS FIX PT 4F14647

References (2)

	10523	0 62100 0 10515	4604		STA	PL0850	4F14653
	10525	0 46000 0 10515	4606		LDA	PL0850	4F14655

PL0880 = 4447

Definition
10537 3 00000 0 00002 4616 PL0880 TXH FIXCON,0,0 EXP NOT LESS THAN 7, SO 4F14665
Reference
10522 0 40000 0 10537 4603 ADD PL0880 4F14652

PL0940 = 4453

Definition
10545 −0 50000 0 01416 4622 PL0940 CAL L(8) SYM2 (S(I)) IS FLO PT 4F14671

References (2)

	10513	0 02000 0 10545	4596		TRA	PL0940 SYM2 (S(I)) IS FLO PT, SO GO	4F14645
	10514	0 02000 0 10545	4597		TRA	PL0940 SET OP2 (S(I)) 32 = 1	4F14646

PL1000 = 4456

Definition
10550 −0 53400 2 10551 4625 PL1000 LXD PL1010,B SYM1 (S(I)) IS SOME S(J) 4F14674
Reference
10472 0 16200 0 10550 4579 TQP PL1000 4F14628

PL1010 = 4457

Definition
10551 1 00000 3 10552 4626 PL1010 TXI PL1020,3,0 XA TO XA,XB 4F14675
Reference
10550 −0 53400 2 10551 4625 PL1000 LXD PL1010,B SYM1 (S(I)) IS SOME S(J) 4F14674

PL1020 = 4458

Definition
10552 −0 63400 4 10553 4627 PL1020 SXD PL1030,C 4F14676

References (2)

	10551	1 00000 3 10552	4626	PL1010	TXI	PL1020,3,0 XA TO XA,XB	4F14675
	10563	0 02000 0 10552	4636		TRA	PL1020	4F14685

PL1030 = 4459

Definition
10553 1 00000 2 10554 4628 PL1030 TXI PL1040,B,0 4F14677
Reference
10552 −0 63400 4 10553 4627 PL1020 SXD PL1030,C 4F14676

PL1040 = 4460

Definition
10554 −0 50000 2 16650 4629 PL1040 CAL SCRIPL,B 4F14678
Reference
10553 1 00000 2 10554 4628 PL1030 TXI PL1040,B,0 4F14677

PL1130 = 4468

Definition
10564 −0 50000 2 16651 4637 PL1130 CAL SCRIPL+1,B 4F14686
Reference
10560 0 10000 0 10564 4633 TZE PL1130 4F14682

PL1200 = 4471

Definition
10567 −0 53400 2 10570 4640 PL1200 LXD PL1210,B SYM2 (S(I)) = SOME S(K) 4F14689
Reference
10507 0 16200 0 10567 4592 TQP PL1200 SYM2 (S(I)) 4F14641

PL1210 = 4472

Definition
10570 1 00000 3 10571 4641 PL1210 TXI PL1220,3,0 XA TO XA,XB 4F14690
Reference
10567 −0 53400 2 10570 4640 PL1200 LXD PL1210,B SYM2 (S(I)) = SOME S(K) 4F14689

PL1220 = 4473

Definition
10571 −0 53400 4 10603 4642 PL1220 LXD PL1330,C LKXC WITH -6 4F14691
Reference
10570 1 00000 3 10571 4641 PL1210 TXI PL1220,3,0 XA TO XA,XB 4F14690

PL1230 = 4474

Definition
10572 −0 63400 4 10573 4643 PL1230 SXD PL1240,C 4F14692
Reference
10603 1 77772 0 10572 4652 PL1330 TXI PL1230,0,−6 4F14701

PL1240 = 4475

Definition
10573 1 00000 2 10574 4644 PL1240 TXI PL1250,B,0 4F14693
Reference
10572 −0 63400 4 10573 4643 PL1230 SXD PL1240,C 4F14692

PL1250 = 4476

Definition
10574 −0 50000 2 16650 4645 PL1250 CAL SCRIPL,B 4F14694
Reference
10573 1 00000 2 10574 4644 PL1240 TXI PL1250,B,0 4F14693

PL1330 = 4483

Definition
10603 1 77772 0 10572 4652 PL1330 TXI PL1230,0,−6 4F14701
Reference
10571 −0 53400 4 10603 4642 PL1220 LXD PL1330,C LKXC WITH -6 4F14691

PL1340 = 4484

Definition
10604 −0 50000 2 16651 4653 PL1340 CAL SCRIPL+1,B SET OP2(S(I)) 32 = OP1 (S(K)) 32 4F14702
Reference
10600 0 10000 0 10604 4649 TZE PL1340 SYM2(S(I)) = S(K) 4F14698

PL1570 = 4445

Definition
10535 0 10000 0 10355 4614 PL1570 TZE PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0 4F14663
Reference
10533 0 02000 0 10535 4612 TRA PL1570 4F14661

PM0000 = 4160

Definition
10100 0 76000 0 00140 4329 PM0000 SLF TURN OFF ALL SENSE LITES 4F14378

PM0010 = 4162

Definition
10102 0 50000 1 16650 4331 PM0010 CLA SCRIPL,A 4F14380
Reference
10112 0 02000 0 10102 4339 TRA PM0010 4F14388

PM0070 = 4168

Definition
10110 1 00000 1 10111 4337 PM0070 TXI PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO * 4F14386

References (4)

10106	−0 63400 4 10110	4335	SXD	PM0070,C	4F14384
10117	−0 10000 0 10110	4344	TNZ	PM0070	4F14393
10121	0 02000 0 10110	4346	TRA	PM0070	4F14395
10255	0 02000 0 10110	4438	TRA	PM0070	4F14487

PM0080 = 4169

Definition
10111 −3 00000 1 10256 4338 PM0080 TXL AS0000,A,0 EXIT FROM PERMUTATION ROUTINE 4F14387

References (4)

10075	−0 63400 4 10111	4326		SXD	PM0080,C -3Q IN XC AT END	4F14375
10110	1 00000 1 10111	4337	PM0070	TXI	PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO *	4F14386
10216	0 10000 0 10111	4407		TZE	PM0080 ... / - EXIT FROM SEGMENT SCAN	4F14456
10223	0 10000 0 10111	4412		TZE	PM0080 ... / * - EXIT FROM SEGMENT SCAN	4F14461

PM0100 = 4171

Definition
10113 0 56000 1 16651 4340 PM0100 LDQ SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3 4F14389
Reference
10107 −3 77767 4 10113 4336 TXL PM0100,C,−9 4F14385

PM0170 = 4178

Definition
10122 −0 63400 4 10131 4347 PM0170 SXD PM0260,C 4F14396
Reference
10120 0 16200 0 10122 4345 TQP PM0170 4F14394

PM0240 = 4183

Definition
10127 0 76000 0 00143 4352 PM0240 SLN 3 TURN * LITE ON 4F14401

References (2)

	10126	1 77775 1 10127	4351		TXI	PM0240,A,−3	4F14400
	10144	1 77775 1 10127	4365		TXI	PM0240,A,−3 NO	4F14414

PM0250 = 4184

Definition
10130 1 77775 4 10131 4353 PM0250 TXI PM0260,C,−3 4F14402

References (2)

	10173	1 77775 1 10130	4388		TXI	PM0250,A,−3 RESUME SEGMENT SCAN	4F14437
	10176	1 77775 1 10130	4391		TXI	PM0250,A,−3	4F14440

PM0260 = 4185

Definition
10131 −3 00000 4 10212 4354 PM0260 TXL PM0790,C,0 EXIT 4F14403

References (2)

	10122	−0 63400 4 10131	4347	PM0170	SXD	PM0260,C	4F14396
	10130	1 77775 4 10131	4353	PM0250	TXI	PM0260,C,−3	4F14402

PM0290 = 4188

Definition
10134 1 00000 3 10135 4357 PM0290 TXI PM0300,3,0 XA TO XA AND XB 4F14406
Reference
10133 −0 53400 2 10134 4356 LXD PM0290,B 4F14405

PM0300 = 4189

Definition
10135 −0 75400 0 00000 4358 PM0300 PXD 0,0 4F14407
Reference
10134 1 00000 3 10135 4357 PM0290 TXI PM0300,3,0 XA TO XA AND XB 4F14406

PM0340 = 4194

Definition
10142 −3 00000 0 10174 4363 PM0340 TXL PM0640,0,0 / SIGN 4F14412

References (2)

	10132	−0 63400 4 10142	4355		SXD	PM0340,C	4F14404
	10172	−0 53400 4 10142	4387		LXD	PM0340,C	4F14436

PM0390 = 4198

Definition
10146 1 77775 4 10147 4367 PM0390 TXI PM0400,C,−3 4F14416

References (2)

	10145	1 77775 2 10146	4366		TXI	PM0390,B,−3 YES - SEARCH FOR / SIGN	4F14415
	10155	1 77775 2 10146	4374		TXI	PM0390,B,−3	4F14423

PM0400 = 4199

Definition
10147 −3 00000 4 10210 4368 PM0400 TXL PM0770,C,0 EXIT 4F14417

References (2)

	10123	−0 63400 4 10147	4348		SXD	PM0400,C	4F14397
	10146	1 77775 4 10147	4367	PM0390	TXI	PM0400,C,−3	4F14416

PM0480 = 4206

Definition
10156 0 50000 1 16650 4375 PM0480 CLA SCRIPL,A PERMUTE TAG WORDS 4F14424

References (2)

	10154	0 10000 0 10156	4373		TZE	PM0480	4F14422
	10207	0 02000 0 10156	4400		TRA	PM0480	4F14449

PM0640 = 4220

Definition
10174 −0 76000 0 00143 4389 PM0640 SLT 3 / SIGN... IS * LITE ON 4F14438
Reference
10142 −3 00000 0 10174 4363 PM0340 TXL PM0640,0,0 / SIGN 4F14412

PM0650 = 4221

Definition
10175 1 77775 2 10177 4390 PM0650 TXI PM0670,B,−3 NO 4F14439
Reference
10205 0 10000 0 10175 4398 TZE PM0650 4F14447

PM0670 = 4223

Definition
10177 1 77775 4 10200 4392 PM0670 TXI PM0680,C,−3 4F14441
Reference
10175 1 77775 2 10177 4390 PM0650 TXI PM0670,B,−3 NO 4F14439

PM0680 = 4224

Definition
10200 −3 00000 4 10210 4393 PM0680 TXL PM0770,C,0 4F14442

References (2)

	10124	−0 63400 4 10200	4349		SXD	PM0680,C	4F14398
	10177	1 77775 4 10200	4392	PM0670	TXI	PM0680,C,−3	4F14441

PM0770 = 4232

Definition
10210 −0 53400 1 10211 4401 PM0770 LXD PM0780,A 4F14450

References (2)

	10147	−3 00000 4 10210	4368	PM0400	TXL	PM0770,C,0 EXIT	4F14417
	10200	−3 00000 4 10210	4393	PM0680	TXL	PM0770,C,0	4F14442

PM0780 = 4233

Definition
10211 1 00000 3 10212 4402 PM0780 TXI PM0790,3,0 XB TO XA,XB 4F14451
Reference
10210 −0 53400 1 10211 4401 PM0770 LXD PM0780,A 4F14450

PM0790 = 4234

Definition
10212 −0 75400 0 00000 4403 PM0790 PXD 0,0 4F14452

References (2)

	10131	−3 00000 4 10212	4354	PM0260	TXL	PM0790,C,0 EXIT	4F14403
	10211	1 00000 3 10212	4402	PM0780	TXI	PM0790,3,0 XB TO XA,XB	4F14451

PM0980 = 4251

Definition
10233 1 00003 4 10234 4420 PM0980 TXI PM0990,C,3 4F14469

References (2)

	10232	1 00003 1 10233	4419		TXI	PM0980,A,3	4F14468
	10243	1 00003 1 10233	4428		TXI	PM0980,A,3	4F14477

PM0990 = 4252

Definition
10234 −3 00000 4 10244 4421 PM0990 TXL PM1070,C,0 FINIS 4F14470
Reference
10233 1 00003 4 10234 4420 PM0980 TXI PM0990,C,3 4F14469

PM1070 = 4260

Definition
10244 0 50000 0 01126 4429 PM1070 CLA E 4F14478
Reference
10234 −3 00000 4 10244 4421 PM0990 TXL PM1070,C,0 FINIS 4F14470

PROCTR = 841

Definition
01511 +176060606060 398 PROCTR OCT 176060606060 4F10388
Reference
12253 0 00000 0 01511 5467 HTR PROCTR 4F15527

R00000 = 3989

Definition
07625 0 56000 0 01406 4158 R00000 LDQ L(0) CLEAR MQ 4F14207

R00500 = 3996

Definition
07634 −0 60000 2 15044 4165 R00500 STQ BETA,B 4F14214
Reference
07636 3 00000 2 07634 4167 R00700 TXH R00500,B,0 4F14216

R00700 = 3998

Definition
07636 3 00000 2 07634 4167 R00700 TXH R00500,B,0 4F14216

References (2)

	07627	−0 63400 1 07636	4160		SXD	R00700,A	4F14209
	07635	1 77777 2 07636	4166		TXI	R00700,B,−1	4F14215

R01000 = 4002

Definition
07642 0 50000 1 15520 4171 R01000 CLA LAMBDA,A ADD INTO GAMMA COUNTERS 4F14220
Reference
07651 3 00000 1 07642 4178 R01700 TXH R01000,A,0 -3L IN XA AT END 4F14227

R01700 = 4009

Definition
07651 3 00000 1 07642 4178 R01700 TXH R01000,A,0 -3L IN XA AT END 4F14227

References (2)

	07640	0 62200 0 07651	4169		STD	R01700	4F14218
	07650	1 77775 1 07651	4177		TXI	R01700,A,−3	4F14226

R01800 = 4010

Definition
07652 3 77772 1 07703 4179 R01800 TXH R04200,A,−6 EXIT FROM SINGLE ELEMENT REDUCTION 4F14228

References (3)

07660	1 00003 1 07652	4185	TXI	R01800,A,3	4F14234
07665	1 00003 1 07652	4190	TXI	R01800,A,3	4F14239
07702	1 00003 1 07652	4203	TXI	R01800,A,3 RESUME SCAN-BACK	4F14252

R02600 = 4017

Definition
07661 0 56000 1 15516 4186 R02600 LDQ LAMBDA−2,A SINGLE ELEMENT 4F14235
Reference
07657 0 10000 0 07661 4184 TZE R02600 4F14233

R03200 = 4022

Definition
07666 −0 50000 0 01527 4191 R03200 CAL MASK1 SINGLE ELEMENT, NON-UNARY OP 4F14240
Reference
07664 −0 10000 0 07666 4189 TNZ R03200 4F14238

R04200 = 4035

Definition
07703 0 60000 0 01347 4204 R04200 STZ G 4F14253
Reference
07652 3 77772 1 07703 4179 R01800 TXH R04200,A,−6 EXIT FROM SINGLE ELEMENT REDUCTION 4F14228

R04500 = 4037

Definition
07705 0 50000 2 15044 4206 R04500 CLA BETA,B SET ORIGINS OF SCRIPL TABLE 4F14255
Reference
07714 3 00000 2 07705 4213 R05200 TXH R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END 4F14262

R05100 = 4043

Definition
07713 1 77777 2 07714 4212 R05100 TXI R05200,B,−1 4F14261
Reference
07706 0 10000 0 07713 4207 TZE R05100 4F14256

R05200 = 4044

Definition
07714 3 00000 2 07705 4213 R05200 TXH R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END 4F14262

References (2)

	07630	−0 63400 1 07714	4161		SXD	R05200,A	4F14210
	07713	1 77777 2 07714	4212	R05100	TXI	R05200,B,−1	4F14261

R05300 = 4045

Definition
07715 −0 50000 1 15520 4214 R05300 CAL LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE 4F14263
Reference
07726 3 00000 1 07715 4223 R06200 TXH R05300,A,0 4F14272

R06100 = 4053

Definition
07725 1 77775 1 07726 4222 R06100 TXI R06200,A,−3 4F14271

References (2)

	07716	0 10000 0 07725	4215		TZE	R06100	4F14264
	07724	1 77775 4 07725	4221		TXI	R06100,C,−3	4F14270

R06200 = 4054

Definition
07726 3 00000 1 07715 4223 R06200 TXH R05300,A,0 4F14272

References (2)

	07641	0 62200 0 07726	4170		STD	R06200	4F14219
	07725	1 77775 1 07726	4222	R06100	TXI	R06200,A,−3	4F14271

R06400 = 4058

Definition
07732 0 50000 1 15520 4227 R06400 CLA LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE 4F14276
Reference
07750 3 00000 1 07732 4241 R07800 TXH R06400,A,0 -3P IN XA AT END 4F14290

R07500 = 4069

Definition
07745 −0 75400 4 00000 4238 R07500 PXD 0,C 4F14287
Reference
07744 1 77775 4 07745 4237 TXI R07500,C,−3 4F14286

R07800 = 4072

Definition
07750 3 00000 1 07732 4241 R07800 TXH R06400,A,0 -3P IN XA AT END 4F14290

References (2)

	07727	−0 63400 4 07750	4224		SXD	R07800,C -3P IN XC AT END	4F14273
	07747	1 77775 1 07750	4240		TXI	R07800,A,−3	4F14289

RDRXCR = 1390

Definition
02556 −0 53400 2 02362 972 RDRXCR LXD FDA,2 COMPUTE 4F10995
Reference
02561 2 00001 2 02560 975 TIX RDRXCR+2,2,1 CHECKSUM, AND 4F10998

RESIDU = 757

Definition
01365 307 RESIDU BSS 1 REMAINDER OF F-REGION WORD.(C0190) 4F10297

References (7)

01711	0 56000 0 01365	573		LDQ	RESIDU PICK UP ANY REMAINING CHARACTERS.	4F10562
01726	−0 60000 0 01365	586		STQ	RESIDU SAVE ANY REMAINING CHARACTERS,	4F10575
02660	0 60200 0 01365	1049		SLW	RESIDU TO RESIDU, AND	4F11072
03700	−0 60000 0 01365	1770		STQ	RESIDU AND PLACE IN RESIDU.	4F11827
05123	0 56000 0 01365	2613		LDQ	RESIDU THEN PICKUP AND	4F12667
06720	0 56000 0 01365	3665		LDQ	RESIDU GET CURRENT RESIDU WORD	4F13713
06746	−0 60000 0 01365	3687	C3358	STQ	RESIDU UPDATE RESIDU	4F13735

ROYCNV = 3814

Definition

		3951				4F13999
		3952			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F14000
		3953				4F14001
		3954			ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG.	4F14002
		3955			ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION	4F14003
		3956			ARITHMETIC.	4F14004
		3957			ROYCNV= ENTRY POINT FOR FIXED OR FLQATING POINT INTEGERS.	4F14005
07346	0 60100 0 01103	3958	ROYCNV	STO	N SAVE DECIMAL DIGIT IN N.	4F14006

Reference
06364 0 07400 4 07346 3443 TSX ROYCNV,4 X 4F13492

SAEXIT = 1680

Definition
03220 −0 53400 1 02730 1276 SAEXIT LXD SXR1,1 RESTORE THE C(XR1), 4F11299
Reference
D 03130 1 00000 0 03220 1220 TXI SAEXIT,0 GO TO EXIT. 4F11243

SAPSYM = 807

Definition
01447 +000000006212 364 SAPSYM OCT 6212 4F10354
Reference
12367 0 34000 0 01447 5543 ES0210 CAS SAPSYM 4F15603

SBDFCN = 245

Definition
00365 0 00000 0 00000 157 SBDFCN PZE **,,** O,,P. 4F10148

References (2)

	03413	0 50000 0 00365	1444	FLTR01	CLA	SBDFCN IS THIS A MAIN PROGRAM OR SUBPROGRAM.	4F11457B
	04521	0 50000 0 00365	2265		CLA	SBDFCN ANY ENTRIES IN SUBDEF	4F123291

SCRIPL = 7592

Definition
16650 5813 SCRIPL BSS 600 4F15865

References (177)

07737	0 60100 4 16650	4232		STO	SCRIPL,C	4F14281
07741	0 60100 4 16651	4234		STO	SCRIPL+1,C	4F14283
07743	0 60100 4 16652	4236		STO	SCRIPL+2,C	4F14285
07752	−0 50000 1 16645	4243	CS0010	CAL	SCRIPL−3,A	4F14292
07770	−0 50000 1 16645	4257	CS0130	CAL	SCRIPL−3,A	4F14306
10006	0 50000 2 16647	4271		CLA	SCRIPL−1,B	4F14320
10007	0 40200 1 16647	4272		SUB	SCRIPL−1,A	4F14321
10011	−0 50000 2 16645	4274		CAL	SCRIPL−3,B SYMBOLS MATCH	4F14323
10014	−0 50000 1 16645	4277		CAL	SCRIPL−3,A	4F14326
10022	0 50000 2 16646	4283		CLA	SCRIPL−2,B TAGS MATCH	4F14332
10025	0 40200 1 16646	4286		SUB	SCRIPL−2,A	4F14335
10032	−0 50000 1 16650	4291	CS0430	CAL	SCRIPL,A MATCHING SEGMENTS	4F14340
10034	0 34000 1 16647	4293	CS0450	CAS	SCRIPL−1,A	4F14342
10041	0 62100 1 16647	4298		STA	SCRIPL−1,A	4F14347
10045	−0 60000 1 16645	4302		STQ	SCRIPL−3,A	4F14351
10053	−0 60200 2 16651	4308		ORS	SCRIPL+1,B	4F14357
10063	−0 50000 1 16650	4316	CS0670	CAL	SCRIPL,A	4F14365
10065	0 60200 4 16650	4318		SLW	SCRIPL,C	4F14367
10066	0 50000 1 16651	4319		CLA	SCRIPL+1,A	4F14368
10067	0 60100 4 16651	4320		STO	SCRIPL+1,C	4F14369
10070	0 50000 1 16652	4321		CLA	SCRIPL+2,A	4F14370
10071	0 60100 4 16652	4322		STO	SCRIPL+2,C	4F14371
10102	0 50000 1 16650	4331	PM0010	CLA	SCRIPL,A	4F14380
10113	0 56000 1 16651	4340	PM0100	LDQ	SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3	4F14389
10136	0 56000 1 16651	4359		LDQ	SCRIPL+1,A	4F14408
10151	0 56000 2 16651	4370		LDQ	SCRIPL+1,B	4F14419
10156	0 50000 1 16650	4375	PM0480	CLA	SCRIPL,A PERMUTE TAG WORDS	4F14424
10157	0 56000 2 16650	4376		LDQ	SCRIPL,B	4F14425
10160	−0 60000 1 16650	4377		STQ	SCRIPL,A	4F14426
10161	0 60100 2 16650	4378		STO	SCRIPL,B	4F14427
10162	0 50000 1 16651	4379		CLA	SCRIPL+1,A PERMUTE OP WORDS	4F14428
10163	0 56000 2 16651	4380		LDQ	SCRIPL+1,B	4F14429
10164	−0 60000 1 16651	4381		STQ	SCRIPL+1,A	4F14430
10165	0 60100 2 16651	4382		STO	SCRIPL+1,B	4F14431
10166	0 50000 1 16652	4383		CLA	SCRIPL+2,A PERMUTE SYMBOL WORDS	4F14432
10167	0 56000 2 16652	4384		LDQ	SCRIPL+2,B	4F14433
10170	−0 60000 1 16652	4385		STQ	SCRIPL+2,A	4F14434
10171	0 60100 2 16652	4386		STO	SCRIPL+2,B	4F14435
10202	0 56000 2 16651	4395		LDQ	SCRIPL+1,B	4F14444
10213	0 56000 1 16646	4404		LDQ	SCRIPL−2,A	4F14453
10220	0 56000 1 16643	4409		LDQ	SCRIPL−5,A	4F14458
10224	0 50000 1 16645	4413		CLA	SCRIPL−3,A ... **	4F14462
10226	0 50000 1 16646	4415		CLA	SCRIPL−2,A	4F14464
10230	0 50000 1 16647	4417		CLA	SCRIPL−1,A	4F14466
10235	0 50000 1 16645	4422		CLA	SCRIPL−3,A	4F14471
10236	0 60100 1 16650	4423		STO	SCRIPL,A	4F14472
10237	0 50000 1 16646	4424		CLA	SCRIPL−2,A	4F14473
10240	0 60100 1 16651	4425		STO	SCRIPL+1,A	4F14474
10241	0 50000 1 16647	4426		CLA	SCRIPL−1,A	4F14475
10242	0 60100 1 16652	4427		STO	SCRIPL+2,A	4F14476
10245	0 60100 1 16650	4430		STO	SCRIPL,A	4F14479
10247	0 60100 1 16651	4432		STO	SCRIPL+1,A	4F14481
10251	0 60100 1 16652	4434		STO	SCRIPL+2,A	4F14483
10252	−0 50000 1 16654	4435		CAL	SCRIPL+4,A PRESERVE CS BIT	4F14464
10254	−0 60200 1 16651	4437		ORS	SCRIPL+1,A	4F14486
10267	0 50000 1 16650	4448	AS0900	CLA	SCRIPL,A	4F14497
10272	0 62100 1 16650	4451		STA	SCRIPL,A	4F14500
10273	0 56000 1 16652	4452		LDQ	SCRIPL+2,A	4F14501
10305	0 62100 1 16652	4462		STA	SCRIPL+2,A	4F14511
10314	0 50000 1 16650	4469	AS3000	CLA	SCRIPL,A ADD INTO GAMMA COUNTERS	4F14518
10325	−0 50000 1 16645	4478	CCS000	CAL	SCRIPL−3,A ELIMINATE COMMON SUBEXPRESSIONS	4F14527
10333	−0 50000 1 16651	4484	CCS070	CAL	SCRIPL+1,A OBTAIN OP1 (S(I))	4F14533
10344	0 34000 2 16647	4493		CAS	SCRIPL−1,B	4F14542
10352	0 32000 1 16651	4499		ANS	SCRIPL+1,A OP1(S(I))30 TO 0, AND	4F14548
10356	0 50000 1 16645	4503		CLA	SCRIPL−3,A	4F14552
10365	0 56000 1 16651	4510		LDQ	SCRIPL+1,A OBTAIN	4F14559
10373	0 56000 1 16652	4516		LDQ	SCRIPL+2,A OBTAIN	4F14565
10406	−0 60200 1 16651	4527	PL0250	ORS	SCRIPL+1,A	4F14576
10414	−0 50000 2 16650	4533	PL0340	CAL	SCRIPL,B	4F14582
10417	0 40200 1 16652	4536		SUB	SCRIPL+2,A	4F14585
10424	−0 50000 2 16651	4541	PL0420	CAL	SCRIPL+1,B SYM1(S(I)) = S(J)	4F14590
10431	0 56000 1 16652	4546	PL0461	LDQ	SCRIPL+2,A FS NAME -	4F14595
10441	0 56000 1 16652	4554		LDQ	SCRIPL+2,A	4F14603
10445	0 50000 1 16652	4558	PL0470	CLA	SCRIPL+2,A NOT AN FS NAME	4F14607
10463	−0 60200 1 16651	4572		ORS	SCRIPL+1,A	4F14621
10467	0 56000 1 16652	4576		LDQ	SCRIPL+2,A OBTAIN AND	4F14625
10502	−0 60200 1 16651	4587	PL0820	ORS	SCRIPL+1,A	4F14636
10504	0 56000 1 16655	4589		LDQ	SCRIPL+5,A OBTAIN	4F14638
10541	0 60100 1 16655	4618		STO	SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP	4F14667
10543	−0 60200 1 16651	4620		ORS	SCRIPL+1,A OP1 (S(I)) 33 = 1	4F14669
10546	−0 60200 1 16654	4623		ORS	SCRIPL+4,A SET OP2 (S(I)) 32 = 1	4F14672
10554	−0 50000 2 16650	4629	PL1040	CAL	SCRIPL,B	4F14678
10557	0 40200 1 16652	4632		SUB	SCRIPL+2,A	4F14681
10564	−0 50000 2 16651	4637	PL1130	CAL	SCRIPL+1,B	4F14686
10574	−0 50000 2 16650	4645	PL1250	CAL	SCRIPL,B	4F14694
10577	0 40200 1 16655	4648		SUB	SCRIPL+5,A	4F14697
10604	−0 50000 2 16651	4653	PL1340	CAL	SCRIPL+1,B SET OP2(S(I)) 32 = OP1 (S(K)) 32	4F14702
10606	−0 60200 1 16654	4655		ORS	SCRIPL+4,A	4F14704
10611	−0 50000 1 16645	4658	LK0030	CAL	SCRIPL−3,A	4F14707
10614	0 56000 1 16646	4661		LDQ	SCRIPL−2,A PLACE LAST OP OP S(I) IN MQ	4F14710
10633	−0 60200 1 16651	4676		ORS	SCRIPL+1,A SET OP1 (S(I)) 31 = 1	4F14725
10635	0 56000 4 16651	4678		LDQ	SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ	4F14727
10645	−0 50000 1 16650	4686		CAL	SCRIPL,A	4F14735
10650	0 40200 4 16652	4689		SUB	SCRIPL+2,C OP1 (S(I-1)) 33 = 1. OPEN ** SUBROUTINE.	4F14738
10653	−0 60200 4 16651	4692	LK0430	ORS	SCRIPL+1,C	4F14741
10655	−0 60200 1 16651	4694		ORS	SCRIPL+1,A	4F14743
10657	0 40200 4 16655	4696	LK0480	SUB	SCRIPL+5,C	4F14745
10662	−0 60200 4 16654	4699		ORS	SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1	4F14748
10665	0 56000 4 16654	4702		LDQ	SCRIPL+4,C F1ACE PO2 (S(I-1)) IN MQ	4F14751
10672	−0 60200 4 16651	4707		ORS	SCRIPL+1,C SET OP1(S(I-1))34=1	4F14756
10673	−0 50000 1 16650	4708	LK0630	CAL	SCRIPL,A	4F14757
10676	0 34000 1 16647	4711		CAS	SCRIPL−1,A	4F14760
10703	0 56000 1 16646	4716	LK0710	LDQ	SCRIPL−2,A S(I) IS SYMJ (S(I-1))	4F14765
10707	0 50000 4 16650	4720	LK0750	CLA	SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJIS(I-1))	4F14769
10710	0 56000 1 16645	4721		LDQ	SCRIPL−3,A EXCHANGE	4F14770
10711	0 60100 1 16645	4722		STO	SCRIPL−3,A TAG	4F14771
10712	−0 60000 4 16650	4723		STQ	SCRIPL,C WORDS	4F14772
10713	−0 50000 4 16651	4724		CAL	SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC	4F14773
10714	0 56000 1 16646	4725		LDQ	SCRIPL−2,A PLACE OPJ (S(I-1)) IN MQ	4F14774
10715	0 60200 1 16646	4726		SLW	SCRIPL−2,A EXCHANGE	4F14775
10716	−0 60000 4 16651	4727		STQ	SCRIPL+1,C OP	4F14776
10720	−0 60200 4 16651	4729		ORS	SCRIPL+1,C SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33	4F14778
10721	0 50000 4 16652	4730		CLA	SCRIPL+2,C THEN	4F14779
10722	0 56000 1 16647	4731		LDQ	SCRIPL−1,A EXCHANGE	4F14780
10723	0 60100 1 16647	4732		STO	SCRIPL−1,A SYMBOL	4F14781
10724	−0 60000 4 16652	4733		STQ	SCRIPL+2,C WORDS	4F14782
10731	−0 50000 1 16650	4738		CAL	SCRIPL,A	4F14787
10735	0 40200 4 16655	4742		SUB	SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1))	4F14791
10740	−0 60200 4 16654	4745		ORS	SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1	4F14794
10746	0 40200 4 16660	4751		SUB	SCRIPL+8,C CLOSED MULTIV. SBRTN	4F14800
10751	−0 60200 4 16657	4754		ORS	SCRIPL+7,C SET OP3 (S(I-1))35 = 1	4F14803
10754	0 56000 4 16651	4757		LDQ	SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ	4F14806
10761	−0 50000 1 16650	4762		CAL	SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = + OR -	4F14811
10764	0 34000 1 16647	4765		CAS	SCRIPL−1,A	4F14814
10772	−0 50000 1 16650	4771		CAL	SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = **	4F14820
10774	0 40200 4 16652	4773		SUB	SCRIPL+2,C IS S(I) = SYM1 (S(I-1))	4F14822
11000	0 56000 4 16654	4777		LDQ	SCRIPL+4,C	4F14826
11005	−0 60200 4 16651	4782		ORS	SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1	4F14831
11010	−0 50000 1 16650	4785		CAL	SCRIPL,A	4F14834
11022	0 56000 1 16646	4795		LDQ	SCRIPL−2,A	4F14844
11027	−0 50000 0 16652	4800		CAL	SCRIPL+2 OP (S(0)) = +	4F14849
11032	−0 50000 0 16654	4803		CAL	SCRIPL+4 YES - PLACE OP1 (S(1)) IN ACC	4F14852
11035	−0 60200 0 16651	4806		ORS	SCRIPL+1 SET OP (S(0)) 31 = 1	4F14855
11037	−0 60200 0 16654	4808		ORS	SCRIPL+4 SET OP1 (S(1)) 29 = 1	4F14857
11046	−0 60200 0 16651	4815	LK1820	ORS	SCRIPL+1	4F14864
11050	−0 50000 4 16645	4817		CAL	SCRIPL−3,C	4F14866
11056	0 56000 4 16651	4823		LDQ	SCRIPL+1,C PLACE OP1 OF LAST SEGMENT 1N MQ	4F14872
11064	0 56000 4 16654	4829	LKK130	LDQ	SCRIPL+4,C OP1 OF LAST SEGMENT IS *	4F14878
11067	−0 60200 4 16651	4832		ORS	SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1	4F14881
11074	−0 50000 1 16645	4837	PC0040	CAL	SCRIPL−3,A	4F14886
11102	0 56000 1 16651	4843	PC0110	LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F14892
11161	−0 50000 1 16650	4894		CAL	SCRIPL,A	4F14944
11172	0 56000 1 16651	4903		LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F14953
11203	0 56000 1 16652	4912		LDQ	SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = 1....	4F14962
11234	−0 50000 4 16650	4937	MC0470	CAL	SCRIPL,C	4F14987
11236	0 34000 1 16652	4939		CAS	SCRIPL+2,A AND COMPARE WITH SYMJ (S(I))	4F14989
11247	−0 50000 4 16651	4948		CAL	SCRIPL+1,C PLACE OP1 (S(K)) IN ACC	4F14998
11271	0 50000 1 16645	4967	CP0130	CLA	SCRIPL−3,A EXTRACT CURRENT S(II	4F15017
11306	0 56000 1 16651	4980		LDQ	SCRIPL+1,A EXAMINE OP1 (S(I)I 29,30,31,32	4F15030
11330	0 56000 1 16651	4998		LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F15048
11347	0 56000 1 16651	5013		LDQ	SCRIPL+1,A PLACE OPJ (S(I)) IN MQ	4F15063
11556	0 50000 1 16651	5148		CLA	SCRIPL+1,A	4F15198
11601	0 50000 1 16651	5167		CLA	SCRIPL+1,A	4F15217
11654	−0 50000 1 16652	5210		CAL	SCRIPL+2,A	4F15260
11671	0 50000 1 16647	5224		CLA	SCRIPL−1,A	4F15274
11701	0 50000 1 16651	5232		CLA	SCRIPL+1,A	4F15282
11735	0 50000 1 16651	5260		CLA	SCRIPL+1,A CLOSED UNIVARIATE FUNCTION	4F15310
11751	0 50000 1 16647	5272		CLA	SCRIPL−1,A	4F15322
11764	0 50000 1 16651	5283		CLA	SCRIPL+1,A CLOSED BIVARIATE FUNCTION	4F15338
11775	0 50000 1 16654	5292	CP3450	CLA	SCRIPL+4,A	4F15347
12007	0 50000 1 16651	5302	CP3560	CLA	SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION	4F15357
12041	0 50000 1 16646	5328	CP3820	CLA	SCRIPL−2,A	4F15383
12125	0 50000 1 16655	5380		CLA	SCRIPL+5,A	4F15435
12153	0 50000 1 16651	5402		CLA	SCRIPL+1,A	4F15457
12160	0 56000 1 16646	5407		LDQ	SCRIPL−2,A EXAMINE OP1(S(I))32 TO CHECK	4F15462
12164	0 56000 1 16651	5411	CP4660	LDQ	SCRIPL+1,A	4F15466
12204	0 50000 1 16654	5427		CLA	SCRIPL+4,A	4F15487
12216	0 50000 1 16650	5438	CP5050	CLA	SCRIPL,A EXAMINE TAGJ(S(I)), J=2,...	4F15498
12230	−0 60200 1 16651	5448		ORS	SCRIPL+1,A	4F15508
12304	−0 50000 1 16652	5492		CAL	SCRIPL+2,A	4F15552
12311	0 50000 1 16650	5497	CP5680	CLA	SCRIPL,A	4F15557
12315	0 56000 1 16651	5501	CP5700	LDQ	SCRIPL+1,A SUBSCRIPTED	4F15561
12322	−0 50000 1 16652	5506		CAL	SCRIPL+2,A	4F15566
12342	−0 50000 1 16650	5522		CAL	SCRIPL,A	4F15582
12627	0 50000 1 16650	5705	AC0000	CLA	SCRIPL,A	4F15765
12631	0 50000 1 16651	5707		CLA	SCRIPL+1,A	4F15767
12633	0 50000 1 16652	5709		CLA	SCRIPL+2,A	4F15769

SDRADD = 5600

Definition
12740 −0 75400 0 00000 5778 SDRADD PXD **,0 4F15838

References (2)

	12737	0 62100 0 12740	5777		STA	SDRADD	4F15837
	12742	0 46000 0 12740	5780		LDA	SDRADD	4F15840

SIG1IX = 296

Definition
00450 1 00003 0 02073 235 SIG1IX TXI ALT,,5−2 TXI ALT,,I 4F10226

References (3)

06325	0 60100 0 00445	3412	STO	SIG1IX−3	4F13461
07341	0 07400 4 00450	3946	TSX	SIG1IX,4 GO ENTER THIS RELATIVE ADDRESS IN SIGMA1.	4F13994
12736	0 40100 0 00446	5776	ADM	SIG1IX−2 FORM BASE OF TABLE + SIGMA TAG.	4F15836

SIG1ST = 3988

Definition

		4135			END OF PROGRAM ROYCNV.	4F14183
		4136			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F14184
		4137				4F14185
07624	0 00001 0 01230	4138	SIG1ST	PZE	SIGMA1+2,,1	4F14186

Reference
06324 0 50000 0 07624 3411 CLA SIG1ST 4F13460

SIGMA1 = 662

Definition
01226 5887 SIGMA1 SYN 0662 DRUM TABLE ORIGIN -DRTABS. 4F15948

References (4)

00445	0 00001 0 01230	232		PZE	SIGMA1+2,,1 TDA,,N	4F10223
00446	−3 00036 0 01226	233		TXL	SIGMA1,,301 ** FDA,,K*L	4F10224
07624	0 00001 0 01230	4138	SIG1ST	PZE	SIGMA1+2,,1	4F14186
11241	0 73400 2 01226	4942	MC0520	PAX	SIGMA1,B S(K) TO XB	4F14992

SPECOP = 791

Definition
01427 +000000000053 348 SPECOP OCT 53 00000$ 4F10338

References (6)

03540	0 34000 0 01427	1655	CD800	CAS	SPECOP CMECK FOR S	4F11712
10367	0 34000 0 01427	4512		CAS	SPECOP EXAMINE OP1 (S(I))	4F14561
10637	0 34000 0 01427	4680		CAS	SPECOP	4F14729
10756	0 34000 0 01427	4759		CAS	SPECOP	4F14808
11174	0 34000 0 01427	4905		CAS	SPECOP	4F14955
11332	0 34000 0 01427	5000		CAS	SPECOP	4F15050

SR6DC1 = 1398

Definition

		980			END OF PROGRAM RDRX.	4F11003
		981			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11004
		982				4F11005
		983			SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000.	4F11006
		984			SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV.	4F11007
02566	−0 63400 2 02574	985	SR6DC1	SXD	SR6XR2,2 SAVE THE C(XR2), AND	4F11008

References (7)

03046	0 07400 1 02566	1170	TSX	SR6DC1,1 * IN E+3,5,7, AND	4F11193
03055	0 07400 1 02566	1177	TSX	SR6DC1,1 * CONVERT ADDENDS IN E+11,12,13,	4F11200
03133	0 07400 1 02566	1223	TSX	SR6DC1,1 * (BCD TO BINARY),	4F11246
03142	0 07400 1 02566	1230	TSX	SR6DC1,1 * CONVERT THEM FROM BCD TO BINARY,	4F11253
03175	0 07400 1 02566	1257	TSX	SR6DC1,1 * (BCD TO BINARY), AND	4F11280
03203	0 07400 1 02566	1263	TSX	SR6DC1,1 * (BCD TO BINARY), AND THEN	4F11286
03477	0 07400 1 02566	1617	TSX	SR6DC1,1 * RETURN HERE WITH RESULT IN ACC.	4F11674

SR6DC2 = 1401

Definition
02571 −0 75400 0 00000 988 SR6DC2 PXD ,0 OBTAIN NEXT CHARACTER 4F11011
Reference
02610 2 00001 2 02571 1003 SR6DC4 TIX SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED, 4F11026

SR6DC3 = 1406

Definition
02576 0 34000 0 01417 993 SR6DC3 CAS L(9) TEST FOR NUMERIC. 4F11016
Reference
02574 1 00000 0 02576 991 SR6XR2 TXI SR6DC3,0,** IF NOT BLANK, 4F11014

SR6DC4 = 1416

Definition
02610 2 00001 2 02571 1003 SR6DC4 TIX SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED, 4F11026
Reference
02575 1 77777 0 02610 992 ENDWRD TXI SR6DC4,0,−1 (DECR= END OF PROBLEM INDICATOR) 4F11015

SR6WRK = 577

Definition
01101 5888 SR6WRK SYN ERASE+1 ERASABLE STORAGE. 4F15949

References (7)

02570	0 60000 0 01101	987	STZ	SR6WRK INITIALIZE OUTPUT CELL TO 0.	4F11010
02601	0 60100 0 01102	996	STO	SR6WRK+1 SAVE DIGIT, AND	4F11019
02602	0 50000 0 01101	997	CLA	SR6WRK MULTIPLY PREVIOUS PARTIAL	4F11020
02604	0 40000 0 01101	999	ADD	SR6WRK AND ADD IN	4F11022
02606	0 40000 0 01102	1001	ADD	SR6WRK+1 NEW PARTIAL RESULT.	4F11024
02607	0 60100 0 01101	1002	STO	SR6WRK THEN ADJUST C0UNT, AND	4F11025
02611	0 50000 0 01101	1004	CLA	SR6WRK LEAVE OUTPUT IN AC,	4F11027

SR6XR2 = 1404

Definition
02574 1 00000 0 02576 991 SR6XR2 TXI SR6DC3,0,** IF NOT BLANK, 4F11014

References (2)

	02566	−0 63400 2 02574	985	SR6DC1	SXD	SR6XR2,2 SAVE THE C(XR2), AND	4F11008
	02612	−0 53400 2 02574	1005		LXD	SR6XR2,2 RESTORE THE C(XR2), AND	4F11028

SS000X = 3803

Definition

		3936			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13984
		3937				4F13985
		3938			PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN	4F13986
		3939			SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B.	4F13987
07333	−0 63400 4 07366	3940	SS000X	SXD	SSIR4,4 SAVE CALLING TAG.	4F13988

References (2)

	06634	0 07400 4 07333	3613		TSX	SS000X,4 G0 PROCESS SUBSCRIPT COMBINATION.	4F13662
	06676	0 07400 4 07333	3647	MS333	TSX	SS000X,4 . GO PROCESS SUBSCRIPT COMBINATION.	4F13695

SS0012 = 1438

Definition
02636 0 76700 2 00044 1031 SS0012 ALS 36,2 LEFT-ADJUST DIGIT TO 4F11054
Reference
02653 3 00000 1 02636 1044 TXH SS0012,1,0 CONTINUE BUILDING SYMBOL. BUT IF 4F11067

SS0013 = 1441

Definition
02641 1 77777 1 02642 1034 SS0013 TXI SS0014,1,−1 UPDATE COUNT OF CHARS COLLECTED. 4F11057
Reference
02640 1 00006 2 02641 1033 TXI SS0013,2,6 UPDATE SHIFT DECREMENT, AND 4F11056

SS0014 = 1442

Definition
02642 0 07400 4 01707 1035 SS0014 TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. 4F11058
Reference
02641 1 77777 1 02642 1034 SS0013 TXI SS0014,1,−1 UPDATE COUNT OF CHARS COLLECTED. 4F11057

SS0015 = 1444

Definition
02644 0 34000 4 01406 1037 SS0015 CAS CTEST,4 TEST THIS CHARACTER AGAINST 4F11060
Reference
02647 2 00001 4 02644 1040 SS0016 TIX SS0015,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11063

SS0016 = 1447

Definition
02647 2 00001 4 02644 1040 SS0016 TIX SS0015,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11063
Reference
D 02645 1 00000 0 02647 1038 TXI SS0016,0 ALL PUNCTUATION. 4F11061

SS0017 = 1453

Definition
02655 0 07400 1 03242 1046 SS0017 TSX TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE. 4F11069
Reference
D 02651 1 00000 0 02655 1042 TXI SS0017,0 AND IF 4F11065

SS0018 = 1459

Definition
02663 −0 63400 4 01724 1052 SS0018 SXD CHCTR,4 SUBSCRIPT MULTIPLIER. 4F11075
Reference
02662 1 00001 4 02663 1051 TXI SS0018,4,1 TO BEGIN PROCESSING 4F11074

SS0045 = 1476

Definition
02704 0 53400 4 02652 1069 SS0045 LXA CTESTX,4 COMPARE CHARACTER 4F11092
Reference
D 02633 1 00000 0 02704 1028 TXI SS0045,0 RETURN TO EXPLICIT CODING. 4F11051

STACTR = 5324

Definition
12314 1 00000 0 12324 5500 STACTR TXI CP5720,0,0 4F15560

References (3)

12221	−0 63400 4 12314	5441		SXD	STACTR,C	4F15501
12231	−0 53400 4 12314	5449	CP5160	LXD	STACTR,C	4F15509
12262	−0 53400 4 12314	5474		LXD	STACTR,C	4F15534

STATEA = 1824

Definition
1582 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 4F11639

03440 1583 STATEA BSS 0 4F11640

References (2)

	02402	0 02000 0 03440	882		TRA	STATEA RETURN FROM DIAGNOSTIC	4F10873
		03440	5882	MTR000	SYN	STATEA	4F15938

STATEB = 3283

Definition
3370 END OF TRANSFER TABLE. 4F13421

06323 3371 STATEB BSS 0 4F134215

References (4)

00001	0 00000 0 06322	21		PZE	STATEB−1	4F100123
00000	0 00471 0 06323	3393		PZE	STATEB,,FORSUB	4F13443
	06323	3395		ORG	STATEB	4F134441
	06323	5832	ARITH	SYN	STATEB	4F15884

STATEC = 3989

Definition
07625 4139 STATEC BSS 0 4F141865

References (3)

06541	−3 00000 4 07625	3552	TXL	STATEC,4,0	4F13601
06547	0 02000 0 07625	3558	TRA	STATEC	4F13607
	07625	4157	ORG	STATEC	4F14206

STATED = 4717

Definition
4880 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 4F14929

11155 4881 STATED BSS 0 4F149295
References (2)
11116 0 02000 0 11155 4855 TRA STATED GO FETCH STATE D 4F14904

11155 4889 ORG STATED 4F14939

STCKSM = 580

Definition
01104 5891 STCKSM SYN ERASE+4 COMMON WORKING STORAGE. 4F15952

STOP49 = 1488

Definition
02720 0 07400 4 03400 1081 STOP49 TSX DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104

References (2)

D	02654	1 00000 0 02720	1045		TXI	STOP49,0 SEVENTH CHAR, GO TO DIAGNOSTIC.	4F11066
	02714	−3 00000 1 02720	1077	SS009	TXL	STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP.	4F11100

STRSTR = 853

Definition
01525 −145400000000 410 STRSTR OCT −145400000000 EXPONENTIATION SIGN -ARITHMETIC. 4F10400

References (3)

06570	−0 50000 0 01525	3576	MS241	CAL	STRSTR REPLACE * WITH **	4F13625
07243	−0 50000 0 01525	3877		CAL	STRSTR	4F13925
12104	0 50000 0 01525	5363		CLA	STRSTR BASE FLO PT SINCE OP1(S(II)I32=1	4F15418

SUBDEF = 140

Definition
00214 93 SUBDEF BSS 10 SUBROUTINE DEFINITION STATEMENTS. 4F10084
Reference
00363 0 00012 0 00214 155 PZE SUBDEF,,10 11) O,,0. 4F10146

SUBX00 = 1684

Definition

		1280			END OF PROGRAM SS000.	4F11303
		1281			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11304
		1282				4F11305
		1283			SUBX00,4/ CALLERS=C3000,C3300.	4F11306
		1284			SUBX00 ADDS BLANKS TO THE NAMES 0F SUBROUTINES.	4F11307
03224	0 53400 3 01414	1285	SUBX00	LXA	L(6),3 PREPARE TO COUNT CHARS AND SHIFTS.	4F11308

References (2)

	04457	0 07400 4 03224	2226		TSX	SUBX00,4 * FILL OUT NAME WITH BLANKS.	4F12291
	04632	0 07400 4 03224	2348	C3301	TSX	SUBX00,4 * IF THERE ARE NO ARGUMENTS, THEN	4F12402

SUBX01 = 1686

Definition
03226 −0 75400 0 00000 1287 SUBX01 PXD ,0 CLEAR THE AC, AND 4F11310
Reference
03233 2 00001 2 03226 1292 SUBX02 TIX SUBX01,2,1 CONTINUE UNTIL 6 CHARS ARE COUNTED. 4F11315

SUBX02 = 1691

Definition
03233 2 00001 2 03226 1292 SUBX02 TIX SUBX01,2,1 CONTINUE UNTIL 6 CHARS ARE COUNTED. 4F11315
Reference
03232 1 00006 1 03233 1291 TXI SUBX02,1,6 UPDATE SHIFT COUNT, AND 4F11314

SUBX03 = 1693

Definition
03235 0 56000 0 01526 1294 SUBX03 LDQ BLANKS IF LESS THAN 6 CHARACTERS IN NAME, 4F11317
Reference
03231 0 10000 0 03235 1290 TZE SUBX03 IF NOT BLANK, THEN 4F11313

SYMBOL = 760

Definition
01370 310 SYMBOL BSS 1 WORKING STORAGE USED BY SS000. 4F10300

References (8)

02630	0 60000 0 01370	1025		STZ	SYMBOL CLEAR WORKING STORAGE.	4F11048
02637	−0 60200 0 01370	1032		ORS	SYMBOL BUILD SYMBOL.	4F11055
02674	−0 50000 0 01370	1061	SBX2	CAL	SYMBOL ADJUST MULTIPLIER	4F11084
02702	0 60000 0 01370	1067		STZ	SYMBOL CLEAR WORKING STORAGE.	4F11090
02715	−0 60200 0 01370	1078		ORS	SYMBOL BUILD SYMBOL.	4F11101
02755	−0 50000 0 01370	1112	SBP4	CAL	SYMBOL IF VARIABLE SUBSCRIPT,	4F11135
02761	−0 50100 0 01370	1116		ORA	SYMBOL CHARACTERS, AND	4F11139
03007	−0 50000 0 01370	1138	SBC9	CAL	SYMBOL ADJUST	4F11161

SYMWRD = 7290

Definition
16172 5810 SYMWRD BSS 1 4F15862

References (5)

12414	0 60100 0 16172	5564	STO	SYMWRD	4F15624
12634	0 60100 0 16172	5710	STO	SYMWRD	4F15770
12642	0 56000 0 16172	5716	LDQ	SYMWRD	4F15776
12677	−0 50000 0 16172	5745	CAL	SYMWRD	4F15805
12753	0 50000 0 16172	5789	CLA	SYMWRD MOVE VARIABLE NAME FOR NEXT CIT ENTRY.	4F15849

TABTAP = 148

Definition
00224 5892 TABTAP SYN 148 TABLE TAPE. 4F15953
Reference
03342 0 76600 0 00224 1390 TET01 WRS TABTAP PREPARE TO WRITE BLOCK ON TABTAP. 4F11413

TAGPRT = 7291

Definition
16173 5811 TAGPRT BSS 1 4F15863

References (2)

	12223	−0 50000 0 16173	5443		CAL	TAGPRT	4F15503
	12731	0 60200 0 16173	5771		SLW	TAGPRT SAVE FOR LATER USE.	4F15831

TAGWRD = 7288

Definition
16170 5808 TAGWRD BSS 1 4F15860

References (5)

12410	0 60100 0 16170	5560		STO	TAGWRD	4F15620
12630	0 60100 0 16170	5706		STO	TAGWRD	4F15766
12635	−0 50000 0 16170	5711	AC0060	CAL	TAGWRD	4F15771
12721	0 60200 0 16170	5763	AC0540	SLW	TAGWRD SUBSCRIPTED VARIABLE	4F15823
12722	0 56000 0 16170	5764		LDQ	TAGWRD	4F15824

TAU1IX = 281

Definition
00431 1 00001 0 02073 217 TAU1IX TXI ALT,,5−4 TAI ALT,,I 4F10208
Reference
03211 0 07400 4 00431 1269 TSX TAU1IX,4 * GO SEARCH TAU1 TABLE. 4F11292

TAU2IX = 286

Definition
00436 1 00001 0 02073 223 TAU2IX TXI ALT,,5−4 TXI ALT,,I 4F10214
Reference
03167 0 07400 4 00436 1251 TSX TAU2IX,4 * GO SEARCH TAU2 TABLE. 4F11274

TAU3IX = 291

Definition
00443 1 00001 0 02073 229 TAU3IX TXI ALT,,5−4 TXI ALT,,I 4F10220
Reference
03111 0 07400 4 00443 1205 TSX TAU3IX,4 * GO SEARCH TAU3 TABLE. 4F11228

TDRADD = 5579

Definition
12713 0 73400 2 00000 5757 TDRADD PAX 0,B 4F15817

TEIFNO = 30

Definition

	79			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10070
	80				4F10071
	81			BUFFERS USED BY TET00 FOR THE TAPE TABLES.	4F10072
00036	82	TEIFNO	BSS	10 EXTERNAL,,INTERNAL FORMULA NUMBERS.	4F10073

Reference
00322 0 00012 0 00036 111 INTET PZE TEIFNO,,10 00) O,,B. 4F10102

TESTA0 = 1703

Definition

		1309			END OF PROGRAM TESTFX.	4F11332
		1310			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11333
		1311				4F11334
		1312			TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000,	4F11335
		1313			C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR.	4F11336
		1314			TEST.. TESTS THE CHARACTER IN THE AC(30-35).	4F11337
		1315			TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK.	4F11338
03247	0 34000 0 01376	1316	TESTA0	CAS	COMMA	4F11339

References (6)

03675	0 07400 4 03247	1767	TSX	TESTA0,4 * TEST THE AC FOR COMMA OR ENDMARK.	4F11824
04340	0 07400 4 03247	2122	TSX	TESTA0,4 * TEST FOR COMMA OR ENDMARK.	4F12184
04372	0 07400 4 03247	2158	TSX	TESTA0,4 * TEST FOR COMMA OR ENDMARK.	4F12222
04430	0 07400 4 03247	2193	TSX	TESTA0,4 * TEST FOR COMMA OR ENDMARK.	4F12258
04515	0 07400 4 03247	2261	TSX	TESTA0,4 * NEXT CHARACTER FOR COMMA OR ENDMK.	4F12326
05226	0 07400 4 03247	2702	TSX	TESTA0,4 * FOR EITHER COMMA OR ENDMARK.	4F12756

TESTA1 = 1706

Definition
03252 0 40200 0 01374 1319 TESTA1 SUB ENDMK 4F11342
Reference
03250 0 02000 0 03252 1317 TRA TESTA1 4F11340

TESTB0 = 1709

Definition
1322 TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS. 4F11345

03255 0 34000 0 01376 1323 TESTB0 CAS COMMA 4F11346

References (5)

03764	0 07400 4 03255	1828		TSX	TESTB0,4 * TEST FOR COMMA OR RPAREN.	4F11885
04367	0 07400 4 03255	2155		TSX	TESTB0,4 * TEST FOR , OR ).	4F12219
04416	0 07400 4 03255	2183	C1503	TSX	TESTB0,4 * TEST FOR COMMA OR RPAREN.	4F12248
04472	0 07400 4 03255	2237		TSX	TESTB0,4 * NEXT CHAR SHD BE COMMA OR RPAREN.	4F12302
06467	0 07400 4 03255	3510		TSX	TESTB0,4 TEST CHAR FOLLOWING ARG FOR , OR)	4F13559

TESTB1 = 1712

Definition
03260 0 40200 0 01377 1326 TESTB1 SUB CLOS 4F11349
Reference
03256 0 02000 0 03260 1324 TRA TESTB1 4F11347

TESTC0 = 1715

Definition
1329 TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK. 4F11352

03263 0 34000 0 01375 1330 TESTC0 CAS OPEN 4F11353

References (2)

	04453	0 07400 4 03263	2222		TSX	TESTC0,4 * NEXT CHAR SHD BE LPAREN OR ENDMARK.	4F12287
	04612	0 07400 4 03263	2332		TSX	TESTC0,4 * SHD BE FOLLOWED BY LPAREN OR ENDMK.	4F12386

TESTC1 = 1718

Definition
03266 0 40200 0 01374 1333 TESTC1 SUB ENDMK 4F11356
Reference
03264 0 02000 0 03266 1331 TRA TESTC1 4F11354

TESTD0 = 1721

Definition
1336 TEST CHARACTER IN THE AC FOR ENDMARK. 4F11359

03271 0 34000 0 01374 1337 TESTD0 CAS ENDMK 4F11360

References (11)

03707	0 07400 4 03271	1777	TSX	TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK.	4F11834
03727	0 07400 4 03271	1799	TSX	TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK.	4F11856
03775	0 07400 4 03271	1837	TSX	TESTD0,4 * TEST FOR ENDMK.	4F11894
04010	0 07400 4 03271	1848	TSX	TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK.	4F11905
04102	0 07400 4 03271	1913	TSX	TESTD0,4 * THIS SHOULD BE FOLLOWED BY ENOMARK.	4F11970
04137	0 07400 4 03271	1949	TSX	TESTD0,4 * WHICH SHOULD BE FOLL0WED BY ENDMK.	4F12006
04235	0 07400 4 03271	2045	TSX	TESTD0,4 * THE NEXT NB CHAR SHOULD BE ENDMK.	4F12103
04252	0 07400 4 03271	2063	TSX	TESTD0,4 * THE NEXT NB CHARACTER SHD BE ENDMK.	4F12122
04434	0 07400 4 03271	2202	TSX	TESTD0,4 * CHARACTER SHOULD BE AN ENDMARK.	4F12267
04537	0 07400 4 03271	2284	TSX	TESTD0,4 * WHICH SHOULD BE AN ENDMARK.	4F12338
04671	0 07400 4 03271	2384	TSX	TESTD0,4 * WHICH SHOULD BE AN ENDMK.	4F12438

TESTE0 = 1725

Definition
1341 TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS. 4F11364

03275 0 34000 0 01375 1342 TESTE0 CAS OPEN 4F11365

References (5)

03743	0 07400 4 03275	1811	TSX	TESTE0,4 * WHICH SHOULD BE A LPAREN.	4F11868
04045	0 07400 4 03275	1884	TSX	TESTE0,4 * IF NOT LPAREN -- THEN ERROR.	4F11941
04270	0 07400 4 03275	2082	TSX	TESTE0,4 * NEXT NB CHARACTER SH0ULD BE LPAREN.	4F12141
04355	0 07400 4 03275	2145	TSX	TESTE0,4 * CHARACTER SHOULD BE A LPAREN.	4F12208
04376	0 07400 4 03275	2167	TSX	TESTE0,4 * CHARACTER SHOULD BE A LPAREN.	4F12231

TESTE1 = 1728

Definition
03300 0 07400 4 03400 1345 TESTE1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11368
Reference
03276 0 02000 0 03300 1343 TRA TESTE1 4F11366

TESTF0 = 1729

Definition
1346 TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS. 4F11369

03301 0 34000 0 01377 1347 TESTF0 CAS CLOS 4F11370

References (2)

	04114	0 07400 4 03301	1929		TSX	TESTF0,4 * THIS SHOULD BE FOLLOWED BY RPAREN.	4F11986
	04412	0 07400 4 03301	2179		TSX	TESTF0,4 * 1ST NON-NUMERIC SHOULD BE A RPAREN.	4F12244

TESTF1 = 1732

Definition
03304 0 07400 4 03400 1350 TESTF1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11373
Reference
03302 0 02000 0 03304 1348 TRA TESTF1 4F11371

TESTFX = 1697

Definition

		1298			END OF PROGRAM SUBX00.	4F11321
		1299			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11322
		1300				4F11323
		1301			TESTFX,1/ CALLERS=SS000,C3000,IFFIX.	4F11324
		1302			TESTFX TESTS FOR FIXED OR FLOATING POINT VARIABLES.	4F11325
03241	−0 50000 0 01331	1303	TESTFX	CAL	FIRSTC COMPARE FIRST CHARACTER	4F11326

References (8)

	02655	0 07400 1 03242	1046	SS0017	TSX	TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE.	4F11069
	02743	0 07400 1 03241	1102		TSX	TESTFX,1 * GO TO TEST FOR FIXED POINT.	4F11125
	02763	0 07400 1 03241	1118		TSX	TESTFX,1 * GO TO TEST FOR FIXED POINT.	4F11141
	04475	0 07400 1 03241	2240		TSX	TESTFX,1 * GO TEST FOR FIXED OR FLOATING PT.	4F12305
	04530	0 07400 1 03242	2272		TSX	TESTFX+1,1 * FIXED POINT	4F123299
D	06001	1 00000 0 03242	3148		TXI	TESTFX+1,0 * GO TEST FOR FIXED OR FLOATING PT.	4F13200
	06613	0 07400 1 03242	3596		TSX	TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT.	4F13645
	06656	0 07400 1 03242	3631		TSX	TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT	4F13679

TESTG0 = 1733

Definition
1351 TEST CHARACTER IN THE AC FOR COMMA. 4F11374

03305 0 34000 0 01376 1352 TESTG0 CAS COMMA 4F11375

References (5)

03737	0 07400 4 03305	1807	TSX	TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA.	4F11864
04005	0 07400 4 03305	1845	TSX	TESTG0,4 * WHICH SHOULD BE A COMMA.	4F11902
04067	0 07400 4 03305	1902	TSX	TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.	4F11959
04074	0 07400 4 03305	1907	TSX	TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.	4F11964
04131	0 07400 4 03305	1943	TSX	TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA.	4F12000

TESTG1 = 1736

Definition
03310 0 07400 4 03400 1355 TESTG1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11378
Reference
03306 0 02000 0 03310 1353 TRA TESTG1 4F11376

TESTH0 = 1737

Definition
1356 TEST CHARACTER IN THE AC FOR NON-NUMERIC. 4F11379

03311 0 34000 0 01417 1357 TESTH0 CAS L(9) 4F11380

References (4)

04451	0 07400 4 03311	2220	TSX	TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.	4F12285
04467	0 07400 4 03311	2234	TSX	TESTH0,4 * WHICH SHOULD BE NON-NUMERIC	4F12299
04513	0 07400 4 03311	2259	TSX	TESTH0,4 * WHICH SHOULD BE NON-NUMERIC.	4F12324
04610	0 07400 4 03311	2330	TSX	TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.	4F12384

TESTI0 = 1741

Definition
1361 TEST CHARACTER IN THE AC FOR NUMERIC. 4F11384

03315 0 34000 0 01417 1362 TESTI0 CAS L(9) 4F11385
Reference
03655 0 07400 4 03315 1751 TSX TESTI0,4 * WHICH SHOULD BE NUMERIC. 4F11808

TETMQR = 579

Definition
01103 5898 TETMQR SYN ERASE+3 ERASABLE STORAGE. 4F15959

References (2)

	03323	−0 60000 0 01103	1375		STQ	TETMQR SAVE THE C(MQR).	4F11398
	03374	0 56000 0 01103	1416		LDQ	TETMQR RESTORE ORIGINAL C(MQR),	4F11439

TETWRK = 578

Definition
01102 5899 TETWRK SYN ERASE+2 ERASABLE STORAGE. 4F15960

References (4)

03334	0 60100 0 01102	1384	STO	TETWRK AND SAVE IT. THEN	4F11407
03337	0 40200 0 01102	1387	SUB	TETWRK COMPARE TO B.	4F11410
03343	0 53400 4 01102	1391	LXA	TETWRK,4 SET XR4 = BLOCK SIZE (B).	4F11414
03344	0 50000 0 01102	1392	CLA	TETWRK ADD BLOCK SIZE TO	4F11415

TETXR2 = 576

Definition
01100 5900 TETXR2 SYN ERASE ERASABLE STORAGE. 4F15961

References (2)

	03321	−0 63400 2 01100	1373	TET00	SXD	TETXR2,2 SAVE THE C(XR2),	4F11396
	03375	−0 53400 2 01100	1417		LXD	TETXR2,2 RESTORE ORIGINAL C(XR2),	4F11440

TETXR4 = 577

Definition
01101 5901 TETXR4 SYN ERASE+1 ERASABLE STORAGE. 4F15962

References (2)

	03322	−0 63400 4 01101	1374		SXD	TETXR4,4 SAVE THE C(XR4), AND	4F11397
	03376	−0 53400 4 01101	1418		LXD	TETXR4,4 RESTORE ORIGINAL C(XR4), AND	4F11441

TRBLKA = 3442

Definition
06562 3569 TRBLKA BSS 0 4F13618
Reference
06427 0 02000 4 06562 3478 TRA TRBLKA,4 4F13527

TRBLKB = 3466

Definition
06612 3594 TRBLKB BSS 0 BASE ADDRESS FOR TAGGED TRANSFER. 4F13643
Reference
06437 0 02000 4 06612 3486 TRA TRBLKB,4 NOW BRANCH TO INDIVIDUAL ROUTINE 4F13535

TSTOPS = 180

Definition
00264 97 TSTOPS BSS 10 STOP STATEMENTS. 4F10088
Reference
00377 0 00012 0 00264 171 PZE TSTOPS,,10 15) O,,B. 4F10162

UPDATE = 1163

Definition
02213 0 60100 0 00000 795 UPDATE STO ** (....IX-3) 4F10784
Reference
02105 0 62100 0 02213 725 STA UPDATE PERMANENT PARAMETER. 4F10714

WHICHX = 1207

Definition
02267 −0 75400 4 00000 839 WHICHX PXD ,4 OTHERWISE, 4F10826
Reference
02264 0 10000 0 02267 836 TZE WHICHX TABLE OVERFLOWED. 4F10825

XASAVE = 4734

Definition
11176 1 00000 0 11226 4907 XASAVE TXI MC0410,0,0 4F14957

References (3)

11160	−0 63400 1 11176	4893	MC0030	SXD	XASAVE,A	4F14943
11225	−0 53400 1 11176	4930	MC0400	LXD	XASAVE,A GO T0 S(I+1)	4F14980
11232	−0 53400 4 11176	4935		LXD	XASAVE,C	4F14985

XBSAVE = 4746

Definition
11212 1 00000 0 11217 4919 XBSAVE TXI MC0340,0,0 FLO PT 4F14969

References (2)

	11231	−0 63400 2 11212	4934	MC0440	SXD	XBSAVE,B SYMJ (S(ITT = SAME S(K)	4F14984
	11246	−0 53400 2 11212	4947	MC0570	LXD	XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K	4F14997

XERR01 = 1127

Definition
D 02147 1 00000 0 02256 759 XERR01 TXI WHICH,0 GO FIND OUT WHICH TABLE OVERFLOWED. 4F10748
Reference
02136 −3 00000 2 02150 750 TXL XERR01+1,2,0 SKIP IF TABLE IS EMPTY. 4F10739

XRSAVE = 7283

Definition
16163 5806 XRSAVE BSS 1 4F15858

References (3)

11555	0 60200 0 16163	5147	SLW	XRSAVE AND STO IN XRSAVE	4F15197
11645	−0 50000 0 16163	5203	CAL	XRSAVE	4F15253
11661	−0 50000 0 16163	5215	CAL	XRSAVE	4F15265

			4078				4F14126
	07535	+233000000000	4079	K1	OCT	233000000000 CONSTANT USED BY ROYCNV.	4F14127

			714			ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES.	4F10703
	02073	0 50000 0 00422	715	ALT	CLA	TXHOP PICK UP SWITCH CONTROL,	4F10704

			2438			BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD.	4F12492
D	04744	1 00000 0 05141	2439	BXT	TXI	RSC,0 * EXIT TO SCAN LIST, IF THERE IS ONE.	4F12493

			3006			CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN.	4F13058
	05623	−0 53400 4 05605	3007	CMB	LXD	BEX,4 RESTORE THE C(XR4), AND	4F13059

			2642			CXS = ENTRY POINT FROM EQS, BEG.	4F12696
	05146	0 62100 0 05156	2643	CXS	STA	CEXIT FOR LIST SCAN.	4F12697

			873			GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT).	4F10862
	02375	−0 50000 0 00030	874	GIF	CAL	EIFNO PICKUP IFN,	4F10863

			2640			LSC = ENTRY POINT FROM SPC.	4F12694
	05145	−0 50000 0 05204	2641	LSC	CAL	LISTR SET CONTROL TRANSFER	4F12695

			2648			NXC = ENTRY POINT FROM CMA.	4F12702
	05152	0 07400 4 01707	2649	NXC	TSX	C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC.	4F12703

			2644			NXS = ENTRY POINT FROM LPR, SPC, CMA.	4F12698
	05147	0 53400 2 01414	2645	NXS	LXA	L(6),2 RESET SYMBOL CHARACTER COUNT	4F12699

			2835			RPT = REENTRY POINT USED BY CMA.	4F12889
	05407	0 50000 0 05336	2836	RPT	CLA	SPC1 RESET CMA3 SWITCH	4F12890

			2775			SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATI0N SCAN.	4F12829
	05322	0 07400 4 05624	2776	SPC	TSX	TYP,4 * G0 TEST TYPE OF SUBSCRIPT SPEC.	4F12830

			2569			TPO= ENTRY POINT USED BY RWN, BSP.	4F12623
	05067	0 60200 0 17401	2570	TPO	SLW	OP SET OP.	4F12624

			2399			TSC= ENTRY POINT USED BY RIT.	4F12453
	04677	0 60100 0 06143	2400	TSC	STO	TSA SET TSA.	4F12454

			2460			TSD= ENTRY POINT USED BY WOT, PDC.	4F12514
	04757	0 60100 0 06143	2461	TSD	STO	TSA SET TSA.	4F12515

			2404			TTC= ENTRY POINT USED BY RDP.	4F12458
	04703	0 60100 0 06144	2405	TTC	STO	TTA SET TTA.	4F12459

			3008			TYP = ENTRY POINT USED BY LPR,SPC,CMA.	4F13060
	05624	0 50000 0 17310	3009	TYP	CLA	CHR−6 TEST FIRST CHARACTER	4F13061

			3194			VRD = ENTRY POINT USED BY RIT,WOT.	4F13246
	06036	0 50000 0 00415	3195	VRD	CLA	TXLOP PREPARE TO SET OP-SWITCH TO NOP.	4F13247

			2541			XDR= ENTRY POINT USED BY RDD.	4F12595
	05046	0 60200 0 17401	2542	XDR	SLW	OP SET OP.	4F12596

			2847			CMA1 = ENTRY POINT USED BY EMK.	4F12901
	05414	0 07400 4 05624	2848	CMA1	TSX	TYP,4 * TYPE TEST FOR NON-SUBSCR. VAR.	4F12902

			2853			CMA7 = ENTRY POINT USED BY LPR.	4F12907
	05421	0 53400 4 17400	2854	CMA7	LXA	DOLEV,4 IF DOLEV ADDRESS = 0, AND IF	4F12908

			844				4F10833
	02274	0 00000 0 00412	845	CONX	PZE	FXCNIX−5 CONSTANT USED BY DRTABS.	4F10834

			5799			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F15852
		12764	5800	ENDD	BSS	0	4F158525

			2962			FINI = ENTRY POINT USED BY EFT.	4F13016
	05567	0 50000 0 05376	2963	FINI	CLA	RESET RESET BXT SWITCH	4F13017

			2951			LAST = ENTRY POINT SET BY BXT SWITCH.	4F13005
	05555	0 07400 4 01731	2952	LAST	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13006

			2795			SPC5 = ENTRY POINT USED BY RPR.	4F12849
	05345	0 62100 0 00000	2796	SPC5	STA	** SET BETA EQUAL TO IFNO.	4F12850

			1864			C0200= ENTPY POINT USED BY C0400,C1000.	4F11921
	04030	0 07400 1 03321	1865	C0202	TSX	TET00,1 * GO TO TET TO ENTER 1C AND 1C+1	4F11922

			1925			C0401= ENTRY POINT USED BY C0500.	4F11982
	04111	0 60100 0 01116	1926	C0401	STO	2H SET 2H FOR SENSE SWITCH OR LIGHT.	4F11983

			1935			C0402= ENTRY POINT USED BY C0600.	4F11992
	04122	0 60100 0 01110	1936	C0402	STO	1C+3 SET 1C+3 FOR CIT ENTRY.	4F11993

			1975			C0601= ENTRY POINT USED BY C0700.	4F12032
	04157	0 60100 0 01105	1976	C0601	STO	1C SET 1C FOR FUTURE TIFGO ENTRY.	4F12033

			1985			C0701= ENTRY POINT USED BY C0800.	4F12042
	04163	0 60100 0 01116	1986	C0701	STO	2H SET 2H FOR FUTURE CIT ENTRY.	4F12043