Symbols

␣␣␣␣␣A = 1

Definition
00001 5942 A EQU 1 4F15878

References (301)

04100	0 53400 1 01406	3807	LA0000	LXA	L(0),A	4F13749
04110	0 34000 1 00471	3815		CAS	FORSUB,A SEARCH FN NAME IN FORSUB	4F13757
04111	1 77776 1 04114	3816		TXI	LA0000+12,A,−2	4F13758
04113	1 77776 1 04114	3818		TXI	LA0000+12,A,−2	4F13760
04114	3 00000 1 04110	3819		TXH	LA0000+8,A,0	4F13761
04117	−0 50000 1 00472	3822		CAL	FORSUB+1,A FN NAME IN FORSUB	4F13764
04131	−0 53400 1 01117	3832		LXD	3LBAR,A LOAD LA COUNTERS	4F13774
04134	−3 00000 1 04160	3835		TXL	LA0003,A,0	4F13777
04135	3 75520 1 04137	3836		TXH	LA0001,A,−1200	4F13778
04147	0 34000 1 05215	3846		CAS	ARGREG,A SEARCH FREE VARIABLE TABLE	4F13788
04150	1 77777 1 04153	3847		TXI	LA0000+43,A,−1	4F13789
04152	1 77777 1 04153	3849		TXI	LA0000+43,A,−1	4F13791
04153	3 00000 1 04147	3850		TXH	LA0000+39,A,0	4F13792
04155	−0 75400 1 00000	3852	MS1018	PXD	0,A PRESENT - STORE TYPE IN FSBITS	4F13794
04164	−0 60000 1 05533	3859		STQ	LAMBDA+11,A	4F13601
04165	−0 60000 1 05530	3860		STQ	LAMBDA+8,A	4F13802
04166	−0 60000 1 05525	3861		STQ	LAMBDA+5,A	4F13803
04202	0 60100 1 05531	3873		STO	LAMBDA+9,A	4F13815
04203	0 60100 1 05526	3874		STO	LAMBDA+6,A	4F13816
04204	0 60100 1 05523	3875		STO	LAMBDA+3,A	4F13817
04206	0 60200 1 05535	3877		SLW	LAMBDA+13,A	4F13819
04207	0 60200 1 05532	3878		SLW	LAMBDA+10,A	4F13820
04210	0 60200 1 05527	3879		SLW	LAMBDA+7,A	4F13821
04213	−0 60000 1 05521	3882		STQ	LAMBDA+1,A	4F13824
04225	0 60100 1 05536	3892		STO	LAMBDA+14,A STO (N+3) IN LAMBDA+3 (L+4)+2	4F13834
04232	0 60100 1 05534	3897		STO	LAMBDA+12,A STO -(N+2) IN LAMBDA+3 (L+4)	4F13839
04247	0 60100 1 05533	3910		STO	LAMBDA+11,A STO S(N+3) IN LAMBDA +3(L+3)+2	4F13852
04274	0 60100 1 05531	3931		STO	LAMBDA+9,A STO -0 IN LAMBDA +3(L+3)	4F13873
04306	0 60100 1 05525	3941		STO	LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2	4F13883
04313	0 60100 1 05530	3946		STO	LAMBDA+8,A STO S(N+1) IN LAMBDA+3(L+2)+2	4F13888
04317	0 60100 1 05526	3950	L23090	STO	LAMBDA+6,A STO -N IN LAMBDA+3(L+2)	4F13892
04322	0 60100 1 05523	3953		STO	LAMBDA+3,A STO -0 IN LAMBDA+3(L+11	4F13895
04325	0 60100 1 05520	3956		STO	LAMBDA,A STO C(ALPHA+A-1) IN LAMBDA+3L	4F13898
04327	1 00006 1 04355	3958		TXI	LA4180,A,6	4F13900
04332	0 60100 1 05531	3961		STO	LAMBDA+9,A STO -0 IN LAMBDA+3(L+3)	4F13903
04335	0 60100 1 05520	3964	LA4010	STO	LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L	4F13906
04341	0 60200 1 05522	3968		SLW	LAMBDA+2,A STO S(N) IN LAMBDA+3L+2	4F13910
04342	0 60100 1 05523	3969		STO	LAMBDA+3,A STO -N IN LAMBOA+3(L+1)	4F13911
04345	0 60100 1 05525	3972		STO	LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2	4F13914
04350	0 60100 1 05526	3975		STO	LAMBDA+6,A STO -(N+1) IN LAMBDA+3(L+2)	4F13917
04353	0 60200 1 05524	3978		SLW	LAMBDA+4,A STO * IN LAMBDA+3(L+1)+1	4F13920
04356	0 60100 1 05530	3981		STO	LAMBDA+8,A STOS(N+2) IN LAMBDA+3(L+2)+2	4F13923
04357	−0 60200 1 05531	3982		ORS	LAMBDA+9,A STO -(N+2) IN LAMBDA+3(L+3)	4F13924
04361	0 60200 1 05527	3984		SLW	LAMBDA+7,A STO SPOP IN LAMBDA+3(L+2)+1	4F13926
04365	0 60200 1 05532	3988		SLW	LAMBDA+10,A STO SPOP IN LAMBDA+3(L+3)+1	4F13930
04366	1 77767 1 00000	3989	LA4320	TXI	**,A,−9	4F13931
04371	0 60100 1 05530	3992		STO	LAMBDA+8,A STO 5(N+2) IN LAMBDA+3(L+2)+2	4F13934
04376	0 60100 1 05533	3997		STO	LAMBDA+11,A STO S(N+2) IN LAMBDA+3(L+3)+2	4F13939
04402	0 60100 1 05531	4001	L33090	STO	LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3)	4F13943
04405	0 60100 1 05526	4004		STO	LAMBDA+6,A	4F13946
04410	0 60100 1 05520	4007		STO	LAMBDA,A STO C(ALPHA+A-2) IN LAMBDA+3L	4F13949
04414	0 60200 1 05522	4011		SLW	LAMBDA+2,A STO S(N) IN LAMBDA+3L+2	4F13953
04415	0 60100 1 05523	4012		STO	LAMBDA+3,A STO -N IN LAMBDA+3(L+1)	4F13954
04416	1 00003 1 04354	4013		TXI	LA4170,A,3	4F13955
04417	1 77775 1 04420	4014	CM4100	TXI	CM4101,A,−3 LA COUNTER MODIFICATION ROUTINES	4F13956
04420	−0 63400 1 01117	4015	CM4101	SXD	3LBAR,A	4F13957
04427	1 77775 1 04430	4022	CM4200	TXI	CM4201,A,−3	4F13964
04430	−0 63400 1 01117	4023	CM4201	SXD	3LBAR,A	4F13965
04432	1 77772 1 04433	4025	CM4300	TXI	CM4301,A,−6	4F13967
04433	−0 63400 1 01117	4026	CM4301	SXD	3LBAR,A	4F13968
03441	−0 53400 1 01360	4270		LXD	NBAR,A LDXA WITH -N	4F14208
03442	−0 63400 1 03451	4271		SXD	R00700,A	4F14209
03443	−0 63400 1 03527	4272		SXD	R05200,A	4F14210
03444	−0 63400 1 04101	4273		SXD	AS0800,A	4F14211
03445	−0 63400 1 04126	4274		SXD	AS2900,A	4F14212
03455	0 50000 1 05520	4282	R01000	CLA	LAMBDA,A ADD INTO GAMMA COUNTERS	4F14220
03463	1 77775 1 03464	4288		TXI	R01700,A,−3	4F14226
03464	3 00000 1 03455	4289	R01700	TXH	R01000,A,0 -3L IN XA AT END	4F14227
03465	3 77772 1 03516	4290	R01800	TXH	R04200,A,−6 EXIT FROM SINGLE ELEMENT REDUCTION	4F14228
03466	0 50000 1 05515	4291		CLA	LAMBDA−3,A	4F14229
03473	1 00003 1 03465	4296		TXI	R01800,A,3	4F14234
03474	0 56000 1 05516	4297	R02600	LDQ	LAMBDA−2,A SINGLE ELEMENT	4F14235
03500	1 00003 1 03465	4301		TXI	R01800,A,3	4F14239
03502	0 32000 1 05515	4303		ANS	LAMBDA−3,A EXTRACT TAGS AND STORE BACK	4F14241
03503	0 50000 1 05512	4304		CLA	LAMBDA−6,A	4F14242
03504	−0 50100 1 05515	4305		ORA	LAMBDA−3,A	4F14243
03505	0 60200 1 05512	4306		SLW	LAMBDA−6,A	4F14244
03506	−0 50000 1 05516	4307		CAL	LAMBDA−2,A EXTRACT FS BITS AND STORE BACK	4F14245
03510	−0 60200 1 05513	4309		ORS	LAMBDA−5,A	4F14247
03511	−0 50000 1 05517	4310		CAL	LAMBDA−1,A STORE BACK SYMBOL	4F14248
03512	0 60200 1 05514	4311		SLW	LAMBDA−4,A	4F14249
03514	0 60000 1 05515	4313		STZ	LAMBDA−3,A CLEAR TAG WORD	4F14251
03515	1 00003 1 03465	4314		TXI	R01800,A,3 RESUME SCAN-BACK	4F14252
03530	−0 50000 1 05520	4325	R05300	CAL	LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE	4F14263
03533	0 50000 1 05521	4328		CLA	LAMBDA+1,A	4F14266
03535	0 50000 1 05522	4330		CLA	LAMBDA+2,A	4F14268
03540	1 77775 1 03541	4333	R06100	TXI	R06200,A,−3	4F14271
03541	3 00000 1 03530	4334	R06200	TXH	R05300,A,0	4F14272
03544	0 53400 1 01406	4337		LXA	L(0),A	4F14275
03545	0 50000 1 05520	4338	R06400	CLA	LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE	4F14276
03551	0 50000 1 05520	4342		CLA	LAMBDA,A	4F14260
03553	0 50000 1 05521	4344		CLA	LAMBDA+1,A	4F14282
03555	0 50000 1 05522	4346		CLA	LAMBDA+2,A	4F14284
03562	1 77775 1 03563	4351		TXI	R07800,A,−3	4F14289
03563	3 00000 1 03545	4352	R07800	TXH	R06400,A,0 -3P IN XA AT END	4F14290
03565	−0 50000 1 06645	4354	CS0010	CAL	SCRIPL−3,A	4F14292
03575	1 00003 1 03565	4362	CS0080	TXI	CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT	4F14300
03576	−0 63400 1 03651	4363	CS0090	SXD	CS0470,A SAVE XA	4F14301
03601	1 00003 1 03602	4366		TXI	CS0120,A,3	4F14304
03603	−0 50000 1 06645	4368	CS0130	CAL	SCRIPL−3,A	4F14306
03605	1 00003 1 03603	4370		TXI	CS0130,A,3 ERASED SEGMENT	4F14308
03617	−0 63400 1 03667	4380		SXD	CS0600,A	4F14318
03622	0 40200 1 06647	4383		SUB	SCRIPL−1,A	4F14321
03627	−0 50000 1 06645	4388		CAL	SCRIPL−3,A	4F14326
03640	0 40200 1 06646	4397		SUB	SCRIPL−2,A	4F14335
03642	1 00003 1 03643	4399		TXI	CS0360,A,3 OPS MATCH	4F14337
03645	−0 50000 1 06650	4402	CS0430	CAL	SCRIPL,A MATCHING SEGMENTS	4F14340
03647	0 34000 1 06647	4404	CS0450	CAS	SCRIPL−1,A	4F14342
03650	1 00003 1 03647	4405		TXI	CS0450,A,3	4F14343
03652	1 00003 1 03647	4407		TXI	CS0450,A,3	4F14345
03654	0 62100 1 06647	4409		STA	SCRIPL−1,A	4F14347
03656	−0 53400 1 03667	4411		LXD	CS0600,A	4F14349
03660	−0 60000 1 06645	4413		STQ	SCRIPL−3,A	4F14351
03661	1 00003 1 03662	4414		TXI	CS0560,A,3	4F14352
03670	−0 53400 1 03651	4421	CS0610	LXD	CS0470,A	4F14359
03673	1 00003 1 03674	4424		TXI	CS0650,A,3	4F14362
03676	−0 50000 1 06650	4427	CS0670	CAL	SCRIPL,A	4F14365
03701	0 50000 1 06651	4430		CLA	SCRIPL+1,A	4F14368
03703	0 50000 1 06652	4432		CLA	SCRIPL+2,A	4F14370
03706	1 77775 1 03707	4435	CS0750	TXI	CS0760,A,−3	4F14373
03707	3 00000 1 03676	4436	CS0760	TXH	CS0670,A,0	4F14374
03714	0 53400 1 01406	4441		LXA	L(0),A PERMUTE * AND /	4F14379
03715	0 50000 1 06650	4442	PM0010	CLA	SCRIPL,A	4F14380
03723	1 00000 1 03724	4448	PM0070	TXI	PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO *	4F14386
03724	−3 00000 1 04071	4449	PM0080	TXL	AS0000,A,0 EXIT FROM PERMUTATION ROUTINE	4F14387
03726	0 56000 1 06651	4451	PM0100	LDQ	SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3	4F14389
03741	1 77775 1 03742	4462		TXI	PM0240,A,−3	4F14400
03751	0 56000 1 06651	4470		LDQ	SCRIPL+1,A	4F14408
03757	1 77775 1 03742	4476		TXI	PM0240,A,−3 NO	4F14414
03771	0 50000 1 06650	4486	PM0480	CLA	SCRIPL,A PERMUTE TAG WORDS	4F14424
03773	−0 60000 1 06650	4488		STQ	SCRIPL,A	4F14426
03775	0 50000 1 06651	4490		CLA	SCRIPL+1,A PERMUTE OP WORDS	4F14428
03777	−0 60000 1 06651	4492		STQ	SCRIPL+1,A	4F14430
04001	0 50000 1 06652	4494		CLA	SCRIPL+2,A PERMUTE SYMBOL WORDS	4F14432
04003	−0 60000 1 06652	4496		STQ	SCRIPL+2,A	4F14434
04006	1 77775 1 03743	4499		TXI	PM0250,A,−3 RESUME SEGMENT SCAN	4F14437
04011	1 77775 1 03743	4502		TXI	PM0250,A,−3	4F14440
04023	−0 53400 1 04024	4512	PM0770	LXD	PM0780,A	4F14450
04026	0 56000 1 06646	4515		LDQ	SCRIPL−2,A	4F14453
04033	0 56000 1 06643	4520		LDQ	SCRIPL−5,A	4F14458
04037	0 50000 1 06645	4524		CLA	SCRIPL−3,A ... **	4F14462
04041	0 50000 1 06646	4526		CLA	SCRIPL−2,A	4F14464
04043	0 50000 1 06647	4528		CLA	SCRIPL−1,A	4F14466
04045	1 00003 1 04046	4530		TXI	PM0980,A,3	4F14468
04050	0 50000 1 06645	4533		CLA	SCRIPL−3,A	4F14471
04051	0 60100 1 06650	4534		STO	SCRIPL,A	4F14472
04052	0 50000 1 06646	4535		CLA	SCRIPL−2,A	4F14473
04053	0 60100 1 06651	4536		STO	SCRIPL+1,A	4F14474
04054	0 50000 1 06647	4537		CLA	SCRIPL−1,A	4F14475
04055	0 60100 1 06652	4538		STO	SCRIPL+2,A	4F14476
04056	1 00003 1 04046	4539		TXI	PM0980,A,3	4F14477
04060	0 60100 1 06650	4541		STO	SCRIPL,A	4F14479
04062	0 60100 1 06651	4543		STO	SCRIPL+1,A	4F14481
04064	0 60100 1 06652	4545		STO	SCRIPL+2,A	4F14483
04065	−0 50000 1 06654	4546		CAL	SCRIPL+4,A PRESERVE CS BIT	4F14484
04067	−0 60200 1 06651	4548		ORS	SCRIPL+1,A	4F14486
04102	0 50000 1 06650	4559	AS0900	CLA	SCRIPL,A	4F14497
04105	0 62100 1 06650	4562		STA	SCRIPL,A	4F14500
04106	0 56000 1 06652	4563		LDQ	SCRIPL+2,A	4F14501
04112	1 77775 1 04113	4567		TXI	AS1800,A,−3	4F14505
04113	3 00000 1 04102	4568	AS1800	TXH	AS0900,A,0	4F14506
04120	0 62100 1 06652	4573		STA	SCRIPL+2,A	4F14511
04121	1 77775 1 04113	4574		TXI	AS1800,A,−3	4F14512
04127	0 50000 1 06650	4580	AS3000	CLA	SCRIPL,A ADD INTO GAMMA COUNTERS	4F14518
04135	1 77775 1 04136	4586		TXI	AS3600,A,−3	4F14524
04136	3 00000 1 04127	4587	AS3600	TXH	AS3000,A,0 -30 IN XA AT END	4F14525
04137	−0 63400 1 01117	4588		SXD	3QBAR,A -30 TO 3QBAR = 3LBAR	4F14526
04140	−0 50000 1 06645	4589	CCS000	CAL	SCRIPL−3,A ELIMINATE COMMON SUBEXPRESSIONS	4F14527
04145	1 00000 1 04146	4594	CCS060	TXI	CCS070,A,0 BEGINNING OF CURRENT SEGMENT	4F14532
04146	−0 50000 1 06651	4595	CCS070	CAL	SCRIPL+1,A OBTAIN OP1 (S(I))	4F14533
04165	0 32000 1 06651	4610		ANS	SCRIPL+1,A OP1(S(I))3O TO O, AND	4F14548
04167	−0 53400 1 04136	4612	CCS240	LXD	AS3600,A -3Q TO XA	4F14550
04170	−3 00000 1 04423	4613	PL0000	TXL	LK0000,A,0 GO TO LINKAGE	4F14551
04171	0 50000 1 06645	4614		CLA	SCRIPL−3,A	4F14552
04176	1 00000 1 04177	4619	PL0060	TXI	PL0070,A,0 SET XA TO BEGINNING OF S(I)	4F14557
04200	0 56000 1 06651	4621		LDQ	SCRIPL+1,A OBTAIN	4F14559
04206	0 56000 1 06652	4627		LDQ	SCRIPL+2,A OBTAIN	4F14565
04221	−0 60200 1 06651	4638	PL0250	ORS	SCRIPL+1,A	4F14576
04232	0 40200 1 06652	4647		SUB	SCRIPL+2,A	4F14585
04244	0 56000 1 06652	4657	PL0461	LDQ	SCRIPL+2,A FS NAME -	4F14595
04254	0 56000 1 06652	4665		LDQ	SCRIPL+2,A	4F14603
04260	0 50000 1 06652	4669	PL0470	CLA	SCRIPL+2,A NOT AN FS NAME	4F14607
04270	−0 63400 1 04222	4677		SXD	PL0260,A	4F14615
04271	0 07400 1 03321	4678		TSX	TET00,A	4F14616
04273	−0 53400 1 04222	4680		LXD	PL0260,A	4F14618
04276	−0 60200 1 06651	4683		ORS	SCRIPL+1,A	4F14621
04302	0 56000 1 06652	4687		LDQ	SCRIPL+2,A OBTAIN AND	4F14625
04315	−0 60200 1 06651	4698	PL0820	ORS	SCRIPL+1,A	4F14636
04317	0 56000 1 06655	4700		LDQ	SCRIPL+5,A OBTAIN	4F14638
04354	0 60100 1 06655	4729		STO	SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP	4F14667
04356	−0 60200 1 06651	4731		ORS	SCRIPL+1,A OP1 (S(I)) 33 = 1	4F14669
04361	−0 60200 1 06654	4734		ORS	SCRIPL+4,A SET OP2 (S(I)) 32 = 1	4F14672
04372	0 40200 1 06652	4743		SUB	SCRIPL+2,A	4F14681
04412	0 40200 1 06655	4759		SUB	SCRIPL+5,A	4F14697
04421	−0 60200 1 06654	4766		ORS	SCRIPL+4,A	4F14704
04423	−0 53400 1 04136	4768	LK0000	LXD	AS3600,A -3Q TO XA	4F14706
04424	−0 50000 1 06645	4769	LK0030	CAL	SCRIPL−3,A	4F14707
04427	0 56000 1 06646	4772		LDQ	SCRIPL−2,A PLACE LAST OP OP S(I) IN MQ	4F14710
04432	1 00000 1 04433	4775	LK0110	TXI	LK0120,A,0 MOVE XA TO BEGINNING OF S(I)	4F14713
04435	−0 63400 1 04136	4778	LK0140	SXD	AS3600,A	4F14716
04446	−0 60200 1 06651	4787		ORS	SCRIPL+1,A SET OP1 (S(I)) 31 = 1	4F14725
04460	−0 50000 1 06650	4797		CAL	SCRIPL,A	4F14735
04470	−0 60200 1 06651	4805		ORS	SCRIPL+1,A	4F14743
04506	−0 50000 1 06650	4819	LK0630	CAL	SCRIPL,A	4F14757
04511	0 34000 1 06647	4822		CAS	SCRIPL−1,A	4F14760
04512	1 00003 1 04515	4823		TXI	LK0700,A,3	4F14761
04514	1 00003 1 04515	4825		TXI	LK0700,A,3 NOT FOUND - CONTINUE SEARCH	4F14763
04516	0 56000 1 06646	4827	LK0710	LDQ	SCRIPL−2,A S(I) IS SYMJ (S(I-1))	4F14765
04521	1 00003 1 04515	4830		TXI	LK0700,A,3 NO... CONTINUE SEARCH	4F14768
04523	0 56000 1 06645	4832		LDQ	SCRIPL−3,A EXCHANGE	4F14770
04524	0 60100 1 06645	4833		STO	SCRIPL−3,A TAG	4F14771
04527	0 56000 1 06646	4836		LDQ	SCRIPL−2,A PLACE OPJ (S(I-1)) IN MQ	4F14774
04530	0 60200 1 06646	4837		SLW	SCRIPL−2,A EXCHANGE	4F14775
04535	0 56000 1 06647	4842		LDQ	SCRIPL−1,A EXCHANGE	4F14780
04536	0 60100 1 06647	4843		STO	SCRIPL−1,A SYMBOL	4F14781
04540	−0 53400 1 04136	4845		LXD	AS3600,A RESTORE XA	4F14783
04544	−0 50000 1 06650	4849		CAL	SCRIPL,A	4F14787
04574	−0 50000 1 06650	4873		CAL	SCRIPL,A S(I) TYPE AC OP1 (S(I-1)) = + OR -	4F14811
04577	0 34000 1 06647	4876		CAS	SCRIPL−1,A	4F14814
04600	1 00003 1 04603	4877		TXI	LK1330,A,3	4F14815
04602	1 00003 1 04603	4879		TXI	LK1330,A,3 NOT FOUND... CONTINUE SEARCH	4F14817
04605	−0 50000 1 06650	4882		CAL	SCRIPL,A S(I) TYPE AC OP1 (S(I-1)) = **	4F14820
04623	−0 50000 1 06650	4896		CAL	SCRIPL,A	4F14834
04635	0 56000 1 06646	4906		LDQ	SCRIPL−2,A	4F14844
04707	−0 50000 1 06645	4948	PC0040	CAL	SCRIPL−3,A	4F14886
04714	1 00000 1 04715	4953	PC0100	TXI	PC0110,A,0	4F14891
04715	0 56000 1 06651	4954	PC0110	LDQ	SCRIPL+1,A PLACE OP1 (S(1)) IN MQ	4F14892
03440	−0 53400 1 01117	5006	MC0000	LXD	3QBAR,A MODE CHECKING ROUTINE	4F14940
03441	−0 63400 1 03512	5007		SXD	MC0420,A	4F14941
03442	0 53400 1 01406	5008		LXA	L(0),A	4F14942
03443	−0 63400 1 03461	5009	MC0030	SXD	XASAVE,A	4F14943
03444	−0 50000 1 06650	5010		CAL	SCRIPL,A	4F14944
03455	0 56000 1 06651	5019		LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F14953
03466	0 56000 1 06652	5028		LDQ	SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = I,...	4F14962
03507	1 77775 1 03465	5045		TXI	MC0210,A,−3 CONTINUE SCANNING S(I). J TO J+1	4F14979
03510	−0 53400 1 03461	5046	MC0400	LXD	XASAVE,A GO TO S(I+1)	4F14980
03511	1 00000 1 03512	5047	MC0410	TXI	MC0420,A,0	4F14981
03512	3 00000 1 03443	5048	MC0420	TXH	MC0030,A,0	4F14982
03521	0 34000 1 06652	5055		CAS	SCRIPL+2,A AND COMPARE WITH SYMJ (S(I))	4F14989
03553	−0 53400 1 01117	5082		LXD	3QBAR,A -30 TO XA	4F15016
03554	0 50000 1 06645	5083	CP0130	CLA	SCRIPL−3,A EXTRACT CURRENT S(I)	4F15017
03567	1 00000 1 03570	5094	CP0240	TXI	CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I)	4F15028
03570	−0 63400 1 01117	5095	CP0250	SXD	3QBAR,A	4F15029
03571	0 56000 1 06651	5096		LDQ	SCRIPL+1,A EXAMINE OP1 (S(I)) 29,30,31,32	4F15030
03613	0 56000 1 06651	5114		LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F15048
03617	1 77775 1 04026	5118		TXI	CP2040,A,−3	4F15052
03630	1 77775 1 03631	5127		TXI	CP0590,A,−3	4F15061
03632	0 56000 1 06651	5129		LDQ	SCRIPL+1,A PLACE OPJ (S(I)) IN MQ	4F15063
04041	0 50000 1 06651	5264		CLA	SCRIPL+1,A	4F15198
04051	1 77775 1 04057	5272		TXI	CP2200,A,−3 GO ON TO OP3(S(I))	4F15206
04064	0 50000 1 06651	5283		CLA	SCRIPL+1,A	4F15217
04074	1 77775 1 04102	5291		TXI	CP2350,A,−3 GO ON TO SYM4(S(I))	4F15225
04124	1 77775 1 04104	5315		TXI	CP2370,A,−3	4F15249
04125	−0 53400 1 01117	5316	CP2500	LXD	3QBAR,A FINISHED WITH S(I)	4F15250
04137	−0 50000 1 06652	5326		CAL	SCRIPL+2,A	4F15260
04154	0 50000 1 06647	5340		CLA	SCRIPL−1,A	4F15274
04164	0 50000 1 06651	5348		CLA	SCRIPL+1,A	4F15282
04211	1 77775 1 04203	5369		TXI	CP2930,A,−3	4F15303
04220	0 50000 1 06651	5376		CLA	SCRIPL+1,A CLOSED UNIVARIATE FUNCTION	4F15310
04234	0 50000 1 06647	5388		CLA	SCRIPL−1,A	4F15322
04247	0 50000 1 06651	5399		CLA	SCRIPL+1,A CLOSED BIVARIATE FUNCTION	4F15338
04254	1 77775 1 04255	5404		TXI	CP3420,A,−3	4F15343
04257	1 00003 1 04223	5407		TXI	CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE	4F15346
04260	0 50000 1 06654	5408	CP3450	CLA	SCRIPL+4,A	4F15347
04272	0 50000 1 06651	5418	CP3560	CLA	SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION	4F15357
04274	1 77772 1 04324	5420		TXI	CP3820,A,−6 0... ARG1 STORED	4F15359
04275	1 77772 1 04276	5421		TXI	CP3600,A,−6 1... ARG1 IN ACC	4F15360
04320	−0 53400 1 01117	5440		LXD	3QBAR,A FINISHED WITH ARG VECTOR	4F15379
04321	1 77775 1 04252	5441		TXI	CP3390,A,−3	4F15380
04323	1 77775 1 04300	5443		TXI	CP3620,A,−3 GO PICK UP NEXT ARG.	4F15382
04324	0 50000 1 06646	5444	CP3820	CLA	SCRIPL−2,A	4F15383
04326	1 00006 1 04355	5446		TXI	CP4070,A,6 0... ARG2 STORED	4F15385
04351	−0 53400 1 01117	5465		LXD	3QBAR,A FINISHED WITH ARG VECTOR	4F15404
04352	1 77775 1 04240	5466		TXI	CP3280,A,−3	4F15405
04354	1 77775 1 04331	5468		TXI	CP3870,A,−3 GO PICK UP NEXT ARG	4F15407
04362	1 77772 1 04276	5474		TXI	CP3600,A,−6	4F15413
04410	0 50000 1 06655	5496		CLA	SCRIPL+5,A	4F15435
04422	1 77775 1 04423	5506		TXI	CP4470,A,−3	4F15445
04436	0 50000 1 06651	5518		CLA	SCRIPL+1,A	4F15457
04441	1 00003 1 04447	5521		TXI	CP4660,A,3 O...	4F15460
04443	0 56000 1 06646	5523		LDQ	SCRIPL−2,A EXAMINE OPI(S(I)I32 TO CHECK	4F15462
04447	0 56000 1 06651	5527	CP4660	LDQ	SCRIPL+1,A	4F15466
04457	0 07400 1 03321	5535		TSX	TET00,A	4F15474
04467	0 50000 1 06654	5543		CLA	SCRIPL+4,A	4F15487
04472	1 77775 1 04425	5546		TXI	CP4490,A,−3 1... EXP IN MQ	4F15490
04501	0 50000 1 06650	5554	CP5050	CLA	SCRIPL,A EXAMIN TAGJ(S(I)), J=2,...	4F15498
04513	−0 60200 1 06651	5564		ORS	SCRIPL+1,A	4F15508
04521	1 77775 1 04501	5570	CP5210	TXI	CP5050,A,−3 GO ON TO NEXT ARGUMENT	4F15514
04552	−0 53400 1 01117	5595	CP5460	LXD	3QBAR,A	4F15539
04567	−0 50000 1 06652	5608		CAL	SCRIPL+2,A	4F15552
04573	1 77775 1 04574	5612		TXI	CP5680,A,−3 POSITION XA TO SYM2(S(I))	4F15556
04574	0 50000 1 06650	5613	CP5680	CLA	SCRIPL,A	4F15557
04600	0 56000 1 06651	5617	CP5700	LDQ	SCRIPL+1,A SUBSCRIPTED	4F15561
04605	−0 50000 1 06652	5622		CAL	SCRIPL+2,A	4F15566
04614	1 77775 1 04574	5629		TXI	CP5680,A,−3	4F15573
04622	−0 53400 1 01117	5635	ES0000	LXD	3QBAR,A -3Q TO XA	4F15579
04625	−0 50000 1 06650	5638		CAL	SCRIPL,A	4F15582
05073	0 07400 1 03321	5804		TSX	TET00,A	4F15748
05112	0 50000 1 06650	5821	AC0000	CLA	SCRIPL,A	4F15765
05114	0 50000 1 06651	5823		CLA	SCRIPL+1,A	4F15767
05116	0 50000 1 06652	5825		CLA	SCRIPL+2,A	4F15769

␣␣␣␣␣B = 2

Definition
00002 5951 B EQU 2 4F15887

References (250)

04132	−0 53400 2 01360	3833		LXD	NBAR,B	4F13775
04137	3 77323 2 04141	3838	LA0001	TXH	LA0002,B,−301	4F13780
04222	1 77775 2 04223	3889		TXI	MS1033,B,−3 -N TO -(N+3)	4F13831
04223	−0 75400 2 00000	3890	MS1033	PXD	,B	4F13832
04226	1 00001 2 04227	3893		TXI	FINI03,B,1 -(N+3) TO - (N+2)	4F13835
04227	−0 75400 2 04432	3894	FINI03	PXD	CM4300,B	4F13836
04234	1 00001 2 04330	3899		TXI	L43130,B,1 UNARY... -(N+2) TO -(N+1)	4F13841
04235	1 00001 2 04272	3900		TXI	L13130,B,1 BINARY... -(N+2) TO - (N+1)	4F13842
04241	1 77775 2 04245	3904		TXI	LA0058,B,−3 -N TO -(N+3)	4F13846
04243	1 77777 2 04334	3906		TXI	LA4000,B,−1 UNARY... -NTO -(N+1)	4F13848
04244	1 77777 2 04276	3907		TXI	LA1000,B,−1 BINARY... -N TO -(N+1)	4F13849
04245	−0 75400 2 00000	3908	LA0058	PXD	,B	4F13850
04255	1 77777 2 04311	3916		TXI	L23000,B,−1 -N TO -(N+1)	4F13858
04261	1 77777 2 04304	3920		TXI	L22000,B,−1 -N TO -(N+1)	4F13862
04264	1 77776 2 04374	3923		TXI	L33000,B,−2 -N TO -(N+2)	4F13865
04267	1 77777 2 04407	3926		TXI	LA3000,B,−1	4F13868
04270	1 77776 2 04367	3927		TXI	L32000,B,−2 -N TO -N(+2)	4F13869
04271	1 77777 2 04407	3928		TXI	LA3000,B,−1	4F13870
04304	−0 75400 2 00000	3939	L22000	PXD	,B	4F13881
04310	1 00001 2 04320	3943		TXI	L23130,B,1 -(N+1) TO -N	4F13885
04311	−0 75400 2 00000	3944	L23000	PXD	,B	4F13886
04316	1 00001 2 04317	3949		TXI	L23090,B,1 -(N+1) TO -N	4F13891
04343	−0 75400 2 00000	3970		PXD	,B	4F13912
04351	1 77777 2 04352	3976		TXI	LA4150,B,−1 -(N+1) TO -(N+2)	4F13918
04354	−0 75400 2 00000	3979	LA4170	PXD	,B	4F13921
04367	−0 75400 2 00000	3990	L32000	PXD	,B	4F13932
04373	1 00001 2 04403	3994		TXI	L33130,B,1 -(N+2) TO -(N+1)	4F13936
04374	−0 75400 2 00000	3995	L33000	PXD	,B	4F13937
04401	1 00001 2 04402	4000		TXI	L33090,B,1 -(N+2) TO -(N+1)	4F13942
04421	−0 63400 2 05277	4016	CM4102	SXD	CBAR,B	4F13958
04422	1 77777 2 04423	4017		TXI	CM4104,B,−1	4F13959
04423	−0 63400 2 01360	4018	CM4104	SXD	NBAR,B	4F13960
04436	1 77777 2 04421	4029		TXI	CM4102,B,−1	4F13971
03447	−0 60000 2 05044	4276	R00500	STQ	BETA,B	4F14214
03450	1 77777 2 03451	4277		TXI	R00700,B,−1	4F14215
03451	3 00000 2 03447	4278	R00700	TXH	R00500,B,0	4F14216
03456	0 73400 2 00000	4283		PAX	0,B	4F14221
03457	0 50000 2 05044	4284		CLA	BETA,B	4F14222
03461	0 62200 2 05044	4286		STD	BETA,B	4F14224
03462	0 62100 2 05044	4287		STA	BETA,B	4F14225
03467	0 73400 2 00000	4292		PAX	0,B	4F14230
03470	0 50000 2 05044	4293		CLA	BETA,B	4F14231
03520	0 50000 2 05044	4317	R04500	CLA	BETA,B SET ORIGINS OF SCRIPL TABLE	4F14255
03523	−0 62000 2 05044	4320		SLQ	BETA,B	4F14258
03526	1 77777 2 03527	4323	R05100	TXI	R05200,B,−1	4F14261
03527	3 00000 2 03520	4324	R05200	TXH	R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END	4F14262
03546	0 73400 2 00000	4339		PAX	0,B IN SCRIPL TABLE	4F14277
03547	0 50000 2 05044	4340		CLA	BETA,B	4F14278
03561	0 62200 2 05044	4350		STD	BETA,B	4F14288
03567	0 73400 2 00000	4356	CS0030	PAX	0,B	4F14294
03570	−3 00000 2 03675	4357		TXL	CS0660,B,0 EXIT FROM CS ROUTINE	4F14295
03572	0 50000 2 05044	4359		CLA	BETA,B	4F14297
03606	0 73400 2 00000	4371	CS0151	PAX	0,B	4F14309
03607	−3 00000 2 03670	4372		TXL	CS0610,B,0 GO ON TO NEXT SEGMENT	4F14310
03611	0 50000 2 05044	4374		CLA	BETA,B	4F14312
03616	−0 53400 2 03651	4379		LXD	CS0470,B SAME LENGTH SEGMENT	4F14317
03621	0 50000 2 06647	4382		CLA	SCRIPL−1,B	4F14320
03624	−0 50000 2 06645	4385		CAL	SCRIPL−3,B SYMBOLS MATCH	4F14323
03635	0 50000 2 06646	4394		CLA	SCRIPL−2,B TAGS MATCH	4F14332
03643	1 00003 2 03644	4400	CS0360	TXI	CS0370,B,3	4F14338
03666	−0 60200 2 06651	4419		ORS	SCRIPL+1,B	4F14357
03716	0 73400 2 00000	4443		PAX	0,B	4F14381
03717	0 50000 2 05044	4444		CLA	BETA,B	4F14382
03746	−0 53400 2 03747	4467		LXD	PM0290,B	4F14405
03760	1 77775 2 03761	4477		TXI	PM0390,B,−3 YES - SEARCH FOR / SIGN	4F14415
03764	0 56000 2 06651	4481		LDQ	SCRIPL+1,B	4F14419
03770	1 77775 2 03761	4485		TXI	PM0390,B,−3	4F14423
03772	0 56000 2 06650	4487		LDQ	SCRIPL,B	4F14425
03774	0 60100 2 06650	4489		STO	SCRIPL,B	4F14427
03776	0 56000 2 06651	4491		LDQ	SCRIPL+1,B	4F14429
04000	0 60100 2 06651	4493		STO	SCRIPL+1,B	4F14431
04002	0 56000 2 06652	4495		LDQ	SCRIPL+2,B	4F14433
04004	0 60100 2 06652	4497		STO	SCRIPL+2,B	4F14435
04010	1 77775 2 04012	4501	PM0650	TXI	PM0670,B,−3 NO	4F14439
04015	0 56000 2 06651	4506		LDQ	SCRIPL+1,B	4F14444
04072	0 50000 2 05044	4551	AS0100	CLA	BETA,B	4F14489
04076	0 62100 2 05044	4555		STA	BETA,B	4F14493
04100	1 77777 2 04101	4557	AS0700	TXI	AS0800,B,−1	4F14495
04101	3 00000 2 04072	4558	AS0800	TXH	AS0100,B,0	4F14496
04103	0 73400 2 00000	4560		PAX	0,B	4F14498
04104	0 50000 2 05044	4561		CLA	BETA,B	4F14499
04116	0 73400 2 00000	4571		PAX	0,B	4F14509
04117	0 50000 2 05044	4572		CLA	BETA,B	4F14510
04124	0 60100 2 05044	4577	AS2700	STO	BETA,B RECLEAR BETA TABLE	4F14515
04125	1 77777 2 04126	4578		TXI	AS2900,B,−1	4F14516
04126	3 00000 2 04124	4579	AS2900	TXH	AS2700,B,0	4F14517
04130	0 73400 2 00000	4581		PAX	0,B	4F14519
04131	0 50000 2 05044	4582		CLA	BETA,B	4F14520
04133	0 62200 2 05044	4584		STD	BETA,B	4F14522
04134	0 62100 2 05044	4585		STA	BETA,B	4F14523
04141	0 73400 2 00000	4590		PAX	0,B LOAD XB WITH S(1)	4F14528
04142	−3 00000 2 04167	4591		TXL	CCS240,B,0 EXIT AT S(O)	4F14529
04143	−0 50000 2 05044	4592		CAL	BETA,B OBTAIN LENGTH OF S(I)	4F14530
04151	−0 75400 2 00000	4598		PXD	0,B	4F14536
04154	−0 53400 2 04155	4601		LXD	CCS140,B AND KEEP COUNT OF SAME	4F14539
04156	−3 00000 2 04163	4603	CCS150	TXL	CCS200,B,0 SEARCH-UP FINISHED, EXAMINE COUNT	4F14541
04157	0 34000 2 06647	4604		CAS	SCRIPL−1,B	4F14542
04160	1 00003 2 04156	4605		TXI	CCS150,B,3 CONTINUE SEARCH	4F14543
04162	1 00003 2 04156	4607	CCS190	TXI	CCS150,B,3 CONTINUE SEARCH	4F14545
04172	0 73400 2 00000	4615		PAX	0,B	4F14553
04173	−0 50000 2 05044	4616		CAL	BETA,B	4F14554
04223	−0 53400 2 04224	4640	PL0300	LXD	PL0310,B SYM1 (S(I)) = SOME S(J)	4F14578
04226	1 00000 2 04227	4643	PL0330	TXI	PL0340,B,0	4F14581
04227	−0 50000 2 06650	4644	PL0340	CAL	SCRIPL,B	4F14582
04237	−0 50000 2 06651	4652	PL0420	CAL	SCRIPL+1,B SYM1(S(I)) = S(J)	4F14590
04261	0 53400 2 01406	4670		LXA	L(0),B	4F14608
04262	0 34000 2 04732	4671	PL0480	CAS	OPSUB,B	4F14609
04263	1 77777 2 04266	4672		TXI	PL0520,B,−1	4F14610
04265	1 77777 2 04266	4674		TXI	PL0520,B,−1	4F14612
04266	3 77754 2 04262	4675	PL0520	TXH	PL0480,B,−20	4F14613
04363	−0 53400 2 04364	4736	PL1000	LXD	PL1010,B SYM1 (S(I)) IS SOME S(J)	4F14674
04366	1 00000 2 04367	4739	PL1030	TXI	PL1040,B,0	4F14677
04367	−0 50000 2 06650	4740	PL1040	CAL	SCRIPL,B	4F14678
04377	−0 50000 2 06651	4748	PL1130	CAL	SCRIPL+1,B	4F14686
04402	−0 53400 2 04403	4751	PL1200	LXD	PL1210,B SYM2 (S(I)) = SOME S(K)	4F14689
04406	1 00000 2 04407	4755	PL1240	TXI	PL1250,B,0	4F14693
04407	−0 50000 2 06650	4756	PL1250	CAL	SCRIPL,B	4F14694
04417	−0 50000 2 06651	4764	PL1340	CAL	SCRIPL+1,B SET OP2(S(I)) 32 = 0P1 (S(K)) 32	4F14702
04425	0 73400 2 00000	4770		PAX	0,B S(I) TO XB	4F14708
04430	0 50000 2 05044	4773		CLA	BETA,B	4F14711
04436	0 50000 2 05043	4779		CLA	BETA−1,B	4F14717
04437	−0 73400 2 00000	4780		PDX	0,B LENGTH OF S(I-1) TO XB	4F14718
04440	−0 63400 2 04441	4781		SXD	LK0180,B	4F14719
04510	−3 00000 2 04423	4821	LK0650	TXL	LK0000,B,0 NOT FOUND AT ALL	4F14759
04515	1 77775 2 04510	4826	LK0700	TXI	LK0650,B,−3	4F14764
04547	3 00006 2 04424	4852		TXH	LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0	4F14790
04560	−3 00006 2 04424	4861	LK1100	TXL	LK0030,B,6 CLOSED UNIV. SBRTN	4F14799
04576	−3 00000 2 04423	4875	LK1280	TXL	LK0000,B,0 NOT FOUND AT ALL	4F14813
04603	1 77775 2 04576	4880	LK1330	TXI	LK1280,B,−3	4F14818
04626	3 00006 2 04424	4899		TXH	LK0030,B,6 OPEN MULTIV.	4F14837
04633	−0 53400 2 05044	4904	LK1610	LXD	BETA,B IS S(0) A SINGLE ELEMENT	4F14842
04636	3 00003 2 04655	4907		TXH	LK1780,B,3 NO	4F14645
04665	0 50000 2 05044	4930		CLA	BETA,B	4F14868
04710	0 73400 2 00000	4949		PAX	0,B	4F14887
04711	−3 00000 2 04725	4950		TXL	PC0190,B,0 EXIT AT S(0)	4F14888
04712	0 50000 2 05044	4951		CLA	BETA,B	4F14889
04723	0 62200 2 05044	4960		STD	BETA,B STORE ERAS. REL, ADD. COUNT IN BETA,	4F14898
04725	−0 53400 2 04720	4962	PC0190	LXD	PC0140,B	4F14900
04726	0 50000 2 05520	4963	PC0200	CLA	BETA+300,B	4F14901
04727	0 60100 2 06650	4964		STO	CPBETA+300,B	4F14902
04730	2 00001 2 04726	4965		TIX	PC0200,B,1	4F14903
03446	0 50000 2 06174	5012		CLA	CPBETA,B	4F14946
03447	0 73400 2 00454	5013	MC0070	PAX	TAU2,B	4F14947
03450	−0 63400 2 03511	5014		SXD	MC0410,B	4F14948
03451	−0 63400 2 03516	5015		SXD	MC0460,B	4F14949
03452	3 77772 2 03511	5016		TXH	MC0410,B,−6 SINGLE ELEMENT - GO ONTO S(I+1)	4F14950
03500	1 00003 2 03506	5038		TXI	MC0380,B,3 OK	4F14972
03505	1 00003 2 03506	5043		TXI	MC0380,B,3	4F14977
03506	−3 00000 2 03510	5044	MC0380	TXL	MC0400,B,0 FINISHED WITH S(I)	4F14978
03514	−0 63400 2 03475	5050	MC0440	SXD	XBSAVE,B SYMJ (S(ITT = SAME S(K)	4F14984
03524	0 73400 2 01226	5058	MC0520	PAX	SIGMA1,B S(K) TO XB	4F14992
03525	0 50000 2 06174	5059		CLA	CPBETA,B	4F14993
03526	0 73400 2 00000	5060	MC0540	PAX	TAU1,B	4F14994
03527	−0 63400 2 03530	5061		SXD	MC0560,B	4F14995
03531	−0 53400 2 03475	5063	MC0570	LXD	XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K	4F14997
03556	0 50000 2 06174	5085		CLA	CPBETA,B	4F15019
03561	0 73400 2 01356	5088	CP0180	PAX	TAU3,B	4F15022
03562	−0 63400 2 03607	5089		SXD	CP0400,B	4F15023
03624	−0 53400 2 03607	5123	CP0540	LXD	CP0400,B OP1 (S(I)) 35 = 1	4F15057
03625	1 00003 2 03626	5124		TXI	CP0560,B,3	4F15058
03626	−3 00000 2 04622	5125	CP0560	TXL	ES0000,B,0 GO TO END-OF-SEGMENT SBRTN	4F15059
03627	−0 63400 2 03607	5126		SXD	CP0400,B	4F15060
03656	0 07400 2 05104	5149		TSX	COMP,B	4F15083
03713	0 07400 2 05104	5178		TSX	COMP,B	4F15112
03737	0 07400 2 05104	5198		TSX	COMP,B COMPILE DVP SYMJ (S(I))	4F15132
03760	0 07400 2 05104	5215		TSX	COMP,B COMPILE STO 700000	4F15149
03763	0 07400 2 05104	5218		TSX	COMP,B COMPILE CLA 700000	4F15152
03767	0 07400 2 05104	5222		TSX	COMP,B	4F15156
04000	0 07400 2 05104	5231		TSX	COMP,B COMPILE STO 700000	4F15165
04003	0 07400 2 05104	5234		TSX	COMP,B COMPILE LDQ 700000	4F15168
04013	0 07400 2 05104	5242		TSX	COMP,B COMPILE MPY SYMJ(S(I))	4F15176
04024	0 07400 2 05104	5251		TSX	COMP,B COMPILE FMP SYMJ(S(I))	4F15185
04055	0 07400 2 05104	5276		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15210
04060	−0 53400 2 03607	5279		LXD	CP0400,B	4F15213
04061	1 00003 2 04062	5280		TXI	CP2230,B,3	4F15214
04062	3 77772 2 04125	5281	CP2230	TXH	CP2500,B,−6 FINISHED WITH S(I)	4F15215
04063	−0 63400 2 03607	5282		SXD	CP0400,B	4F15216
04100	0 07400 2 05104	5295		TSX	COMP,B COMPILE LDQ SYM3(S(I))	4F15229
04104	−0 53400 2 03607	5299	CP2370	LXD	CP0400,B	4F15233
04105	1 00003 2 04106	5300		TXI	CP2390,B,3	4F15234
04106	3 77772 2 04125	5301	CP2390	TXH	CP2500,B,−6 FINISHED WITH S(I)	4F15235
04107	−0 63400 2 03607	5302		SXD	CP0400,B	4F15236
04113	0 07400 2 05104	5306		TSX	COMP,B COMPILE CLA SYMJ(S(I)), J=4,...	4F15240
04134	0 07400 2 05104	5323		TSX	COMP,B COMPILE SXD 7...TYPE NO. , 4	4F15257
04141	0 07400 2 05104	5328		TSX	COMP,B COMPILE TSX SYMI(S(I)),4	4F15262
04156	0 07400 2 05104	5342		TSX	COMP,B COMPILE FUNCTION NAME	4F15276
04160	−0 53400 2 03607	5344		LXD	CP0400,B	4F15278
04161	−3 77767 2 04203	5345		TXL	CP2930,B,−9	4F15279
04176	0 07400 2 05104	5358	CP2880	TSX	COMP,B COMPILE ACC OR MQ INDICATOR	4F15292
04204	−0 53400 2 03607	5364		LXD	CP0400,B	4F15298
04205	1 00003 2 04206	5365		TXI	CP2960,B,3	4F15299
04206	3 77772 2 04212	5366	CP2960	TXH	CP3000,B,−6	4F15300
04207	−0 63400 2 03607	5367		SXD	CP0400,B	4F15301
04210	0 07400 2 05104	5368		TSX	COMP,B COMPILE SYMJ(S(I))	4F15302
04214	0 07400 2 05104	5372		TSX	COMP,B COMPILE LAST ARGUMENT NAME	4F15306
04217	−3 77767 2 04246	5375	CP3060	TXL	CP3350,B,−9	4F15309
04231	0 07400 2 05104	5385		TSX	COMP,B COMPILE SXD7...0,4	4F15319
04236	0 07400 2 05104	5390		TSX	COMP,B COMPILE TSX SYMI(S(I)),4	4F15324
04243	0 07400 2 05104	5395		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15334
04246	−3 77764 2 04272	5398	CP3350	TXL	CP3560,B,−12	4F15337
04256	0 07400 2 05104	5406		TSX	COMP,B COMPILE LDQ SYM3(S(I))	4F15345
04267	0 07400 2 05104	5415		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15354
04303	0 07400 2 05104	5427		TSX	COMP,B COMPILE LDQ SYMJ(S(I))	4F15366
04314	0 07400 2 05104	5436		TSX	COMP,B COMPILE STQ 4...0-(J-2)	4F15375
04315	−0 53400 2 03607	5437		LXD	CP0400,B	4F15376
04316	1 00003 2 04317	5438		TXI	CP3770,B,3	4F15377
04317	−3 77764 2 04322	5439	CP3770	TXL	CP3800,B,−12	4F15378
04322	−0 63400 2 03607	5442	CP3800	SXD	CP0400,B	4F15381
04334	0 07400 2 05104	5452		TSX	COMP,B COMPILE CLA SYMJ(S(I))	4F15391
04345	0 07400 2 05104	5461		TSX	COMP,B COMPILE STO 4...0-(J-2)	4F15400
04346	−0 53400 2 03607	5462		LXD	CP0400,B	4F15401
04347	1 00003 2 04350	5463		TXI	CP4020,B,3	4F15402
04350	−3 77764 2 04353	5464	CP4020	TXL	CP4050,B,−12	4F15403
04353	−0 63400 2 03607	5467	CP4050	SXD	CP0400,B	4F15406
04360	0 07400 2 05104	5472		TSX	COMP,B COMPILE CLASYM2(S(I))	4F15411
04406	0 07400 2 05104	5494		TSX	COMP,B COMPILE BASE	4F15433
04412	0 07400 2 05104	5498		TSX	COMP,B COMPILE FIX PT CONSTANT EXPONENT	4F15437
04424	0 07400 2 05104	5508		TSX	COMP,B COMPILE LDQ SYM2 (S(I))	4F15447
04433	0 07400 2 05104	5515		TSX	COMP,B COMPILE SXD 7...0.4	4F15454
04456	0 07400 2 05104	5534		TSX	COMP,B COMPILE TSX FXFX/FLEX/FLFL,4	4F15473
04465	0 07400 2 05104	5541		TSX	COMP,B COMPILE CLA SYMI(S(I))	4F15485
04503	−0 63400 2 04147	5556		SXD	CP5830,B SUBSCRIPTED-IS THERE A GENERAL TAG	4F15500
04515	−0 53400 2 04147	5566		LXD	CP5830,B	4F15510
04516	1 00003 2 04517	5567	CP5180	TXI	CP5190,B,3	4F15511
04517	3 77772 2 04552	5568	CP5190	TXH	CP5460,B,−6 FINISHED WITH PRELUDE,IF ANY	4F15512
04524	0 07400 2 05104	5573		TSX	COMP,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I))	4F15517
04550	0 07400 2 05104	5593		TSX	COMP,B COMPILE STA IFN+STAIX	4F15537
04561	0 07400 2 05104	5602		TSX	COMP,B COMPILE SXD 7,4	4F15546
04571	0 07400 2 05104	5610		TSX	COMP,B COMPILE TSX SYMI(S(I)),4	4F15554
04607	0 07400 2 05104	5624	CP5720	TSX	COMP,B COMPILE TSX SYMJ(S(I)) , J=2,,.,	4F15568
04610	−0 53400 2 03607	5625		LXD	CP0400,B	4F15569
04611	1 00003 2 04612	5626		TXI	CP5750,B,3	4F15570
04612	3 77772 2 04615	5627	CP5750	TXH	CP5780,B,−6 FINISHED SCANNING	4F15571
04613	−0 63400 2 03607	5628		SXD	CP0400,B	4F15572
04640	0 07400 2 05104	5649		TSX	COMP,B COMPILE STO/STQ 1... TYPE NO + PHI(I)	4F15593
04701	0 07400 2 05104	5682		TSX	COMP,B COMPILE STO/STQ LEFT+2	4F15626
04712	0 07400 2 05104	5691		TSX	COMP,B COMPILE STQ 700000	4F15635
04715	0 07400 2 05104	5694		TSX	COMP,B COMPILE CLA 700000	4F15638
04761	0 07400 2 05104	5730		TSX	COMP,B COMPILE STQ 700000	4F15674
04764	0 07400 2 05104	5733		TSX	COMP,B COMPILE CLA 700000	4F15677
05014	0 07400 2 05104	5757		TSX	COMP,B COMPILE TRA 1,4	4F15701
05034	0 07400 2 05104	5773		TSX	COMP,B COMPILE STQ 700000	4F15717
05037	0 07400 2 05104	5776		TSX	COMP,B COMPILE CLA 700000	4F15720
05100	−0 53400 2 00637	5809	ES1710	LXD	BBOX,B	4F15753
05102	0 60100 2 00635	5811		STO	CIB−3,B	4F15755
05111	0 02000 2 00001	5819		TRA	1,B	4F15763
05150	0 73400 2 00000	5851		PAX	0,B	4F15795
05153	−0 53400 2 00470	5854		LXD	BK,B	4F15798
05154	−0 50000 2 00470	5855		CAL	FORSUB−1,B	4F15799
05176	0 73400 2 00000	5873	TDRADD	PAX	0,B	4F15817

␣␣␣␣␣C = 4

Definition
00004 5952 C EQU 4 4F15888

References (194)

04105	−0 53400 4 00470	3812		LXD	BK,C IS FORSUB EMPTY	4F13754
04106	−3 00000 4 04115	3813		TXL	LA0000+13,C,0 YES. GO SET FS BITS TO 0	4F13755
04107	−0 63400 4 04114	3814		SXD	LA0000+12,C	4F13756
04121	−0 53400 4 01122	3824		LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F13766
04122	−3 00000 4 04126	3825		TXL	LA0000+22,C,0 NO	4F13767
04133	−0 53400 4 05300	3834		LXD	ABAR,C	4F13776
04141	−3 00000 4 04160	3840	LA0002	TXL	LA0003,C,0	4F13782
04142	3 77565 4 04160	3841		TXH	LA0003,C,−139	4F13783
04144	−0 53400 4 01122	3843		LXD	ARGCTR,C VARIABLE OR (	4F13785
04145	−3 00000 4 04115	3844		TXL	LA0000+13,C,0 NOT AN FS - GO SET FS BITS TO 0	4F13786
04146	−0 63400 4 04153	3845		SXD	LA0000+43,C FUNCTION STATEMENT	4F13787
04272	0 60200 4 05310	3929	L13130	SLW	ALPHA+3,C STO -(N+2) IN ALPHA+A+3	4F13871
04300	0 60200 4 05305	3935		SLW	ALPHA,C STO -C IN ALPHA+A	4F13877
04301	1 77775 4 04302	3936		TXI	LA1040,C,−3 -A TO - (A+3)	4F13878
04302	−0 63400 4 05300	3937	LA1040	SXD	ABAR,C	4F13879
04320	0 60200 4 05305	3951	L23130	SLW	ALPHA,C STO -N IN ALPHA +A	4F13893
04324	0 50200 4 05304	3955	LA2000	CLS	ALPHA−1,C	4F13897
04330	0 60200 4 05305	3959	L43130	SLW	ALPHA,C STO -(N+2) IN ALPHA+A	4F13901
04334	0 50200 4 05302	3963	LA4000	CLS	ALPHA−3,C	4F13905
04340	0 60200 4 05303	3967		SLW	ALPHA−2,C STO-N IN ALPHA+A-2	4F13909
04346	0 60100 4 05304	3973		STO	ALPHA−1,C STO-(N+1) IN ALPHA+A-1	4F13915
04403	0 60200 4 05305	4002	L33130	SLW	ALPHA,C STO -(N+1) IN ALPHA+A	4F13944
04407	0 50200 4 05303	4006	LA3000	CLS	ALPHA−2,C	4F13948
04413	0 60200 4 05304	4010		SLW	ALPHA−1,C STO -N IN ALPHA+A-1	4F13952
04431	1 77777 4 04435	4024		TXI	CM4303,C,−1	4F13966
04434	1 77777 4 04435	4027		TXI	CM4303,C,−1	4F13969
04435	−0 63400 4 05300	4028	CM4303	SXD	ABAR,C	4F13970
03532	0 60200 4 05520	4327		SLW	LAMBDA,C	4F14265
03534	0 60100 4 05521	4329		STO	LAMBDA+1,C	4F14267
03536	0 60100 4 05522	4331		STO	LAMBDA+2,C	4F14269
03537	1 77775 4 03540	4332		TXI	R06100,C,−3	4F14270
03542	−0 63400 4 03563	4335		SXD	R07800,C -3P IN XC AT END	4F14273
03543	−0 63400 4 03707	4336		SXD	CS0760,C	4F14274
03550	−0 73400 4 00000	4341		PDX	0,C	4F14279
03552	0 60100 4 06650	4343		STO	SCRIPL,C	4F14281
03554	0 60100 4 06651	4345		STO	SCRIPL+1,C	4F14283
03556	0 60100 4 06652	4347		STO	SCRIPL+2,C	4F14265
03557	1 77775 4 03560	4348		TXI	R07500,C,−3	4F14286
03560	−0 75400 4 00000	4349	R07500	PXD	0,C	4F14287
03573	0 73400 4 00000	4360	CS0060	PAX	0,C	4F14298
03574	−3 77772 4 03576	4361		TXL	CS0090,C,−6 AT LEAST TWO ELEMENTS	4F14299
03577	−0 63400 4 01357	4364		SXD	LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT	4F14302
03600	−3 00000 4 03603	4365	CS0100	TXL	CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT	4F14303
03602	1 00003 4 03600	4367	CS0120	TXI	CS0100,C,3	4F14305
03612	0 73400 4 00000	4375		PAX	0,C	4F14313
03613	−0 75400 4 00000	4376		PXD	0,C	4F14314
03620	−3 00000 4 03645	4381	CS0250	TXL	CS0430,C,0 MATCHING SEGMENTS	4F14319
03644	1 00003 4 03620	4401	CS0370	TXI	CS0250,C,3	4F14339
03655	−0 53400 4 01357	4410		LXD	LENGTH,C	4F14348
03657	−3 00000 4 03663	4412	CS0530	TXL	CS0570,C,0 ERASE DUPLICATE SEGMENT	4F14350
03662	1 00003 4 03657	4415	CS0560	TXI	CS0530,C,3	4F14353
03663	0 53400 4 03573	4416	CS0570	LXA	CS0060,C	4F14354
03664	−0 60000 4 05044	4417		STQ	BETA,C	4F14355
03671	−0 53400 4 01357	4422		LXD	LENGTH,C	4F14360
03672	−3 00000 4 03565	4423	CS0630	TXL	CS0010,C,0	4F14361
03674	1 00003 4 03672	4425	CS0650	TXI	CS0630,C,3	4F14363
03700	0 60200 4 06650	4429		SLW	SCRIPL,C	4F14367
03702	0 60100 4 06651	4431		STO	SCRIPL+1,C	4F14369
03704	0 60100 4 06652	4433		STO	SCRIPL+2,C	4F14371
03705	1 77775 4 03706	4434		TXI	CS0750,C,−3	4F14372
03710	−0 63400 4 03724	4437		SXD	PM0080,C -3Q IN XC AT END	4F14375
03711	−0 63400 4 04113	4438		SXD	AS1800,C	4F14376
03712	−0 63400 4 04136	4439		SXD	AS3600,C	4F14377
03720	0 73400 4 00000	4445		PAX	0,C LDXC WITH SEGMENT LENGTH	4F14383
03721	−0 63400 4 03723	4446		SXD	PM0070,C	4F14384
03722	−3 77767 4 03726	4447		TXL	PM0100,C,−9	4F14385
03735	−0 63400 4 03744	4458	PM0170	SXD	PM0260,C	4F14396
03736	−0 63400 4 03762	4459		SXD	PM0400,C	4F14397
03737	−0 63400 4 04013	4460		SXD	PM0680,C	4F14398
03740	0 53400 4 01406	4461		LXA	L(0),C LDXC WITH 0	4F14399
03743	1 77775 4 03744	4464	PM0250	TXI	PM0260,C,−3	4F14402
03744	−3 00000 4 04025	4465	PM0260	TXL	PM0790,C,0 EXIT	4F14403
03745	−0 63400 4 03755	4466		SXD	PM0340,C	4F14404
03761	1 77775 4 03762	4478	PM0390	TXI	PM0400,C,−3	4F14416
03762	−3 00000 4 04023	4479	PM0400	TXL	PM0770,C,0 EXIT	4F14417
04005	−0 53400 4 03755	4498		LXD	PM0340,C	4F14436
04012	1 77775 4 04013	4503	PM0670	TXI	PM0680,C,−3	4F14441
04013	−3 00000 4 04023	4504	PM0680	TXL	PM0770,C,0	4F14442
04046	1 00003 4 04047	4531	PM0980	TXI	PM0990,C,3	4F14469
04047	−3 00000 4 04057	4532	PM0990	TXL	PM1070,C,0 FINIS	4F14470
04074	−0 75400 4 00000	4553		PXD	0,C	4F14491
04077	1 77777 4 04100	4556		TXI	AS0700,C,−1	4F14494
04153	0 53400 4 01406	4600		LXA	L(0),C TO S(I)	4F14538
04161	1 00001 4 04162	4606		TXI	CCS190,C,1 RAISE REF COUNTER AND	4F14544
04163	3 00001 4 04140	4608	CCS200	TXH	CCS000,C,1 MULTIPLE REFERENCE	4F14546
04174	0 73400 4 00000	4617		PAX	0,C	4F14555
04225	−0 63400 4 04226	4642	PL0320	SXD	PL0330,C	4F14580
04230	0 73400 4 00000	4645		PAX	0,C	4F14583
04234	0 50000 4 05044	4649		CLA	BETA,C	4F14587
04235	0 73400 4 00000	4650		PAX	0,C	4F14588
04365	−0 63400 4 04366	4738	PL1020	SXD	PL1030,C	4F14676
04370	0 73400 4 00000	4741		PAX	0,C	4F14679
04374	0 50000 4 05044	4745		CLA	BETA,C	4F14683
04375	0 73400 4 00000	4746		PAX	0,C	4F14684
04404	−0 53400 4 04416	4753	PL1220	LXD	PL1330,C LKXC WITH -6	4F14691
04405	−0 63400 4 04406	4754	PL1230	SXD	PL1240,C	4F14692
04410	0 73400 4 00000	4757		PAX	0,C	4F14695
04414	0 50000 4 05044	4761		CLA	BETA,C	4F14699
04415	0 73400 4 00000	4762		PAX	0,C	4F14700
04433	−0 53400 4 04434	4776	LK0120	LXD	LK0130,C	4F14714
04441	1 00000 4 04442	4782	LK0180	TXI	LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1)	4F14720
04450	0 56000 4 06651	4789		LDQ	SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ	4F14727
04463	0 40200 4 06652	4800		SUB	SCRIPL+2,C OP1 (S(I-1)) 33 = 1, OPEN ** SUBROUTINE.	4F14738
04466	−0 60200 4 06651	4803	LK0430	ORS	SCRIPL+1,C	4F14741
04472	0 40200 4 06655	4807	LK0480	SUB	SCRIPL+5,C	4F14745
04475	−0 60200 4 06654	4810		ORS	SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1	4F14748
04500	0 56000 4 06654	4813		LDQ	SCRIPL+4,C PLACE PO2 (S(I-1)) IN MQ	4F14751
04505	−0 60200 4 06651	4818		ORS	SCRIPL+1,C SET OP1(S(I-1))34=1	4F14756
04522	0 50000 4 06650	4831	LK0750	CLA	SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJ(S(I-1))	4F14769
04525	−0 60000 4 06650	4834		STQ	SCRIPL,C WORDS	4F14772
04526	−0 50000 4 06651	4835		CAL	SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC	4F14773
04531	−0 60000 4 06651	4838		STQ	SCRIPL+1,C OP	4F14776
04533	−0 60200 4 06651	4840		ORS	SCRIPL+1,C SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33	4F14778
04534	0 50000 4 06652	4841		CLA	SCRIPL+2,C THEN	4F14779
04537	−0 60000 4 06652	4844		STQ	SCRIPL+2,C WORDS	4F14762
04550	0 40200 4 06655	4853		SUB	SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1))	4F14791
04553	−0 60200 4 06654	4856		ORS	SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1	4F14794
04561	0 40200 4 06660	4862		SUB	SCRIPL+8,C CLOSED MULTIV. SBRTN	4F14800
04564	−0 60200 4 06657	4865		ORS	SCRIPL+7,C SET OP3 (S(1-1)135 = 1	4F14803
04567	0 56000 4 06651	4868		LDQ	SCRIPL+1,C PLACE OP1 (S(I-1)) IN MO	4F14806
04607	0 40200 4 06652	4884		SUB	SCRIPL+2,C IS S(I) = SYM1 (S(I-1))	4F14822
04613	0 56000 4 06654	4888		LDQ	SCRIPL+4,C	4F14826
04620	−0 60200 4 06651	4893		ORS	SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1	4F14831
04663	−0 50000 4 06645	4928		CAL	SCRIPL−3,C	4F14866
04667	1 00000 4 04670	4932	LKK050	TXI	LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT	4F14870
04671	0 56000 4 06651	4934		LDQ	SCRIPL+1,C PLACE OP1 OF LAST SEGMENT IN MQ	4F14872
04677	0 56000 4 06654	4940	LKK130	LDQ	SCRIPL+4,C OP1 OF LAST SEGMENT IS *	4F14878
04702	−0 60200 4 06651	4943		ORS	SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1	4F14881
04703	−0 53400 4 01122	4944	PC0000	LXD	ARGCTR,C IS THIS AN FS	4F14882
04704	3 00000 4 04706	4945		TXH	PC0030,C,0	4F14883
04705	1 00001 4 04707	4946		TXI	PC0040,C,1 NO	4F14884
04706	0 53400 4 01406	4947	PC0030	LXA	L(0),C YES	4F14885
04722	−0 75400 4 00000	4959	PC0160	PXD	0,C OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1	4F14897
04724	1 00001 4 04707	4961		TXI	PC0040,C,1 AND UPDATE FOR NEXT SEGMENT	4F14899
03515	−0 53400 4 03461	5051		LXD	XASAVE,C	4F14985
03516	1 00000 4 03517	5052	MC0460	TXI	MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1)	4F14986
03517	−0 50000 4 06650	5053	MC0470	CAL	SCRIPL,C	4F14987
03530	1 00000 4 03517	5062	MC0560	TXI	MC0470,C,0	4F14996
03532	−0 50000 4 06651	5064		CAL	SCRIPL+1,C PLACE OP1 (S(K)) IN ACC	4F14998
03541	−0 53400 4 01122	5072		LXD	ARGCTR,C IS THIS AN FS STATEMENT	4F15006
03542	−3 00000 4 03550	5073		TXL	CP0090,C,0 NO	4F15007
03543	0 07400 4 01731	5074		TSX	CIT00,C YES - COMPILE FOUR 36 - BIT	4F15008
03712	0 07400 4 05112	5177	CP1150	TSX	AC0000,C ADDRESS COMPILE SYM1 (S(I))	4F15111
03723	0 07400 4 01731	5186		TSX	CIT00,C COMPILE LRS 35	4F15120
03736	0 07400 4 05112	5197		TSX	AC0000,C ADDRESS COMPILE SYMJ (S(I))	4F15131
03740	0 07400 4 01731	5199		TSX	CIT00,C COMPILE CLM	4F15133
03745	0 07400 4 01731	5204		TSX	CIT00,C COMPILE LLS 18	4F15138
03766	0 07400 4 05112	5221	CP1690	TSX	AC0000,C ADDRESS COMPILE SYMJ (S(I))	4F15155
04005	0 07400 4 05112	5236		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I))	4F15170
04014	0 07400 4 01731	5243		TSX	CIT00,C COMPILE ALS 17	4F15177
04044	0 07400 4 01731	5267	CP2100	TSX	CIT00,C 1ST ARG IN ACC	4F15201
04054	0 07400 4 05112	5275		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15209
04067	0 07400 4 01731	5286	CP2250	TSX	CIT00,C 2ND ARG IN MQ	4F15220
04077	0 07400 4 05112	5294		TSX	AC0000,C ADDRESS COMPILE SYM3(S(I))	4F15228
04112	0 07400 4 05112	5305		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)), J=4,...	4F15239
04114	0 07400 4 01731	5307		TSX	CIT00,C COMPILE STO 4...TYPE NO, + J-2, J=4,...	4F15241
04201	0 07400 4 05112	5361	CP2900	TSX	AC0000,C ADDRESS COMPILE SYM2(S(II)	4F15295
04203	0 07400 4 05112	5363	CP2930	TSX	AC0000,C OPEN MULTIVARIATE FUNCTION	4F15297
04242	0 07400 4 05112	5394		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15333
04255	0 07400 4 05112	5405	CP3420	TSX	AC0000,C ADDRESS COMPILE SYM3(S(I))	4F15344
04266	0 07400 4 05112	5414		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15353
04302	0 07400 4 05112	5426		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...	4F15365
04333	0 07400 4 05112	5451		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...	4F15390
04357	0 07400 4 05112	5471		TSX	AC0000,C ADDRESS COMPILE SYM2(S(II)	4F15410
04403	0 07400 4 05112	5491	CP4310	TSX	AC0000,C ADDRESS COMPILE SYMI(S(I))	4F15430
04423	0 07400 4 05112	5507	CP4470	TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15446
04464	0 07400 4 05112	5540		TSX	AC0000,C ADDRESS COMPILE SYM1(S(I))	4F15484
04500	0 53400 4 01407	5553		LXA	L(1),C INITIALIZE 5TAIX TO 1	4F15497
04504	−0 63400 4 04577	5557		SXD	STACTR,C	4F15501
04505	0 07400 4 05112	5558		TSX	AC0000,C	4F15502
04514	−0 53400 4 04577	5565	CP5160	LXD	STACTR,C	4F15509
04520	1 00001 4 04521	5569		TXI	CP5210,C,1 NOT FINISHED-STAIX=STAIX+1	4F15513
04526	0 07400 4 01731	5575		TSX	CIT00,C COMPILE ARS 18	4F15519
04533	0 07400 4 01731	5580		TSX	CIT00,C COMPILE ADD *-2	4F15524
04545	−0 53400 4 04577	5590		LXD	STACTR,C	4F15534
04546	−0 75400 4 00000	5591		PXD	0,C	4F15535
04576	0 07400 4 05112	5615		TSX	AC0000,C NONSUBSCRIPTED	4F15559
04656	−0 53400 4 01122	5663		LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F15607
04657	3 00000 4 05016	5664		TXH	ES1300,C,0 YES	4F15608
04700	0 07400 4 05120	5681		TSX	AC0060,C ADDRESS COMPILE VARIABLE ON LEFT	4F15625
04716	0 07400 4 01731	5695	ES0990	TSX	CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN	4F15639
04723	0 07400 4 01731	5700		TSX	CIT00,C	4F15644
04730	0 07400 4 01731	5705		TSX	CIT00,C	4F15649
04735	0 07400 4 01731	5710		TSX	CIT00,C	4F15654
04742	0 07400 4 01731	5715		TSX	CIT00,C	4F15659
04765	0 07400 4 01731	5734	ES0440	TSX	CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN	4F15678
04772	0 07400 4 01731	5739		TSX	CIT00,C	4F15683
04777	0 07400 4 01731	5744		TSX	CIT00,C	4F15688
05004	−0 53400 4 01122	5749	ES0610	LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F15693
05005	−3 00000 4 04670	5750		TXL	ES0730,C,0 NO	4F15694
05052	0 07400 4 01731	5787		TSX	CIT00,C COMPILE LLS 37	4F15731
05104	0 07400 4 01731	5814	COMP	TSX	CIT00,C	4F15758
05160	0 02000 4 00001	5859		TRA	1,C RETURN	4F15803
05174	0 02000 4 00001	5871		TRA	1,C RETURN	4F15815

␣␣␣␣␣E = 598

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

References (110)

00425	0 00002 0 01133	212		PZE	E+3+2,,2 TAU1 ) ARG1+L,,L	4F10204
00432	0 00004 0 01135	218		PZE	E+3+4,,4 TAU2 ) ARG1+L,,L	4F10210
00437	0 00006 0 01137	224		PZE	E+3+6,,6 TAU3 ) ARG1+L,,L	4F10216
00444	0 00001 0 01142	230		PZE	E+11+1,,1 SIGMA1) ARG1+L,,L	4F10222
02024	0 50000 0 01130	664		CLA	E+2 GET NAME OF VARIABLE.	4F10654
02442	0 73400 4 01132	924	ED2	PAX	E+4,4 DIMENSION COUNT, AND	4F10914
02461	0 56000 0 01141	939		LDQ	E+11 PICKUP ADDENDS 1 AND 2,	4F10929
02462	0 60000 0 01141	940		STZ	E+11 CLEAR E+11, AND	4F10930
02463	−0 62000 0 01141	941		SLQ	E+11 RESTORE ADDEND 1 TO E+11.	4F10931
02466	0 56000 0 01134	944		LDQ	E+6 AND, IF 2 DIMENSION	4F10934
02471	0 40200 0 01142	947		SUB	E+12 IF 3 DIMENSION, SET GTAG	4F10937
02473	0 56000 0 01136	949		LDQ	E+8 PICKUP DIMESNIONS 1 AND 2.	4F10939
02474	0 60000 0 01136	950		STZ	E+8 CLEAR E+8, AND	4F10940
02475	−0 62000 0 01136	951		SLQ	E+8 RESTORE DIMENSION 1 TO E+8.	4F10941
02502	0 56000 0 01136	956		LDQ	E+8 TO THE PRODUCT, AND	4F10946
02511	0 40200 0 01141	963	1D1	SUB	E+11 SUBTRACT ADDEND 1,	4F10953
02513	−0 50000 0 01126	965		CAL	E IN THE DECREMENT OF GTAG,	4F10955
02677	0 60200 4 01137	1097		SLW	E+9,4 AND STORE MULTIPLIER.	4F11087
02700	0 60000 4 01145	1098		STZ	E+15,4 SET ADDEND = 0.	4F11088
02736	0 60100 4 01145	1130		STO	E+15,4 STORE SIGN OF ADDEND.	4F11120
02751	0 60100 4 01137	1141		STO	E+9,4 SET MULTIPLIER	4F11131
02762	0 60200 4 01140	1150	SBP41	SLW	E+10,4 PLACE IN E-REGION.	4F11140
03001	0 60100 4 01137	1165		STO	E+9,4 MULTIPLIER = 1.	4F11155
03002	0 60000 4 01145	1166		STZ	E+15,4 SET ADDEND = 0.	4F11156
03006	0 60000 4 01140	1170		STZ	E+10,4 SET VARIABLE = 0.	4F11160
03011	−0 60200 4 01145	1173		ORS	E+15,4 TO LOW ORDER POSITION.	4F11163
03033	0 60100 0 01126	1192		STO	E STORE I TAG.	4F11182
03034	0 50000 0 01141	1193		CLA	E+11 MOVE SUBSCRIPT ADDENDS	4F11183
03035	0 60100 0 01142	1194		STO	E+12 INTO POSITION	4F11184
03036	0 50000 0 01137	1195		CLA	E+9 FOR FOLLOWING	4F11185
03037	0 60100 0 01141	1196		STO	E+11 PROGRAM.	4F11186
03045	0 56000 4 01137	1202	3D0001	LDQ	E+9,4 CONVERT THEM FROM BCD TO BINARY	4F11192
03047	0 60100 4 01137	1204		STO	E+9,4 STORE BACK IN E+3,5,7,	4F11194
03052	0 50000 4 01144	1207	3D0002	CLA	E+14,4 CONVERT ADDENS (BCD TO BINARY)=	4F11197
03056	0 56000 4 01144	1211		LDQ	E+14,4 PUT SIGN IN S-BIT OF MQ, AND	4F11201
03061	0 60100 4 01144	1214	3D0040	STO	E+14,4 AND STORE BACK INTO E+11,12,13,	4F11204
03065	0 50000 0 01131	1218	3D0060	CLA	E+3 REFORMATIZE E-STRING =	4F11208
03067	0 40000 0 01133	1220		ADD	E+5 AND STORE THEM	4F11210
03070	0 60100 0 01131	1221		STO	E+3 IN E+3.	4F11211
03071	0 50000 0 01132	1222		CLA	E+4 MOVE SUBSCRIPT 1	4F11212
03072	0 60100 0 01133	1223		STO	E+5 TO E+5.	4F11213
03073	0 50000 0 01135	1224		CLA	E+7 AND MOVE	4F11214
03075	0 60100 0 01132	1226		STO	E+4 INTO E+4.	4F11216
03076	0 50000 0 01136	1227		CLA	E+8 MOVE SUBSCRIPT 3 INTO E+7,	4F11217
03077	0 60100 0 01135	1228		STO	E+7 NEXT SUBSCRIPT 2 IN E+6.	4F11218
03101	0 60100 0 01136	1230		STO	E+8 INTO E+8.	4F11220
03102	−0 50000 0 01141	1231		CAL	E+11 PACK TOGETHER	4F11221
03104	−0 50100 0 01142	1233		ORA	E+12 AND	4F11223
03105	0 60200 0 01141	1234		SLW	E+11 STORE THEM IN E+11.	4F11224
03106	−0 50000 0 01143	1235		CAL	E+13 MOVE	4F11225
03110	0 60200 0 01142	1237		SLW	E+12 INTO E+12.	4F11227
03113	−0 60200 0 01126	1240		ORS	E PLACE TAU3 TAG IN TAG WORD.	4F11230
03114	−0 50000 0 01135	1241		CAL	E+7 COMBINE	4F11231
03115	−0 50100 0 01134	1242		ORA	E+6 SUBSCRIPTS 3,2, AND 1,	4F11232
03116	−0 50100 0 01133	1243	3D0340	ORA	E+5 AND IF THEY ARE ALL ZERO,	4F11233
03123	−0 50000 0 01126	1248		CAL	E BRING UP TAUTAG FOR I,	4F11238
03132	0 56000 4 01135	1255	2D0001	LDQ	E+7,4 CONVERT COEFFICIENTS	4F11245
03134	0 60100 4 01135	1257		STO	E+7,4 AND STORE BACK IN E+3 AND E+5,	4F11247
03137	0 50000 4 01143	1260	2D0002	CLA	E+13,4 PICKUP THE TWO ADDENDS.	4F11250
03143	0 56000 4 01143	1264		LDQ	E+13,4 PUT SIGN IN S-BIT OF MQ, AND	4F11254
03146	0 60100 4 01143	1267	2D0040	STO	E+13,4 AND STORE BACK IN E+11 AND E+12.	4F11257
03152	0 50000 0 01131	1271	2D0060	CLA	E+3 REFORMATIZE E-STRING =	4F11261
03154	0 40000 0 01133	1273		ADD	E+5 COEFFICENTS 1 AND 2,	4F11263
03155	0 60100 0 01131	1274		STO	E+3 AND STORE THEM IN E+3,	4F11264
03156	0 50000 0 01134	1275		CLA	E+6 MOVE SUBSCRIPT 2 INTO E+5	4F11265
03157	0 60100 0 01133	1276		STO	E+5 (NEXT TO SUBSCRIPT 1 IN E+4),	4F11266
03162	0 60100 0 01134	1279		STO	E+6 INTO E+6.	4F11269
03163	−0 50000 0 01141	1280		CAL	E+11 PACK TOGETHER	4F11270
03165	−0 50100 0 01142	1282		ORA	E+12 AND STORE THEM	4F11272
03166	0 60200 0 01141	1283		SLW	E+11 IN E+11.	4F11273
03171	−0 60200 0 01126	1286		ORS	E PLACE TAU2 TAG IN TAG WORD.	4F11276
03172	−0 50000 0 01132	1287		CAL	E+4 COMBINE SUBSCRIPTS 1 AND 2, AND	4F11277
03174	0 56000 0 01131	1289	1D0000	LDQ	E+3 PICKUP AND CONVERT COEFFICIENTS	4F11279
03177	0 60100 0 01131	1292		STO	E+3 AND STORE THEM BACK IN E+3.	4F11282
03200	0 50000 0 01141	1293		CLA	E+11 PICKUP ADDEND,	4F11283
03204	0 56000 0 01141	1297		LDQ	E+11 PUT SIGN IN S-BIT OF MQ,	4F11287
03210	0 60200 0 01141	1301		SLW	E+11 BACK INTO E+11.	4F11291
03213	−0 60200 0 01126	1304		ORS	E PLACE TAU1 TAG IN TAG WORD.	4F11294
03214	−0 50000 0 01132	1305		CAL	E+4 TAKE SUBSCRIPT, AND	4F11295
03217	−0 60200 0 01126	1308		ORS	E PLACE SIGMA1 TAG IN TAGE WORD.	4F11298
04012	0 60100 0 01131	1955		STO	E+3 COMBINATION AS	4F11907
04015	0 60100 0 01132	1958		STO	E+4 E+4 = 1ST SUBSCRIPT VARIABLE,	4F11910
04016	0 60000 0 01137	1959		STZ	E+9 E+9 = ADDEND OF SUBSCRIPT,	4F11911
04020	0 50000 0 01126	1961		CLA	E OUTPUT FROM CSA IS FOUND IN	4F11913
04273	0 60100 0 01130	2190		STO	E+2 ALSO IN E+2. THEN	4F12144
05213	0 60200 0 01130	2795		SLW	E+2 INTO E+2, AND	4F12745
05437	0 60200 0 01130	2972		SLW	E+2 DOES NOT HAVE A SUBSCRIPT, THEN	4F12922
03464	0 60200 0 01127	3536	MS030	SLW	E+1 X	4F13479
03471	0 60100 0 01126	3541		STO	E X	4F13484
03552	−0 60000 0 01130	3590		STQ	E+2 X	4F13533
03562	0 60200 0 01130	3598		SLW	E+2 MOVE FUNCTION NAME TO E+2.	4F13541
03677	0 60200 0 01127	3676		SLW	E+1 X	4F13619
03710	0 60200 0 01127	3685	MS251	SLW	E+1 PUT CURRENT OP IN E+1.	4F13628
03713	0 60200 0 01130	3688		SLW	E+2 X	4F13631
03756	0 56000 4 01131	3724	MS323	LDQ	E+3,4 X	4F13667
04023	−0 60200 0 01130	3761		ORS	E+2 X	4F13703
04032	0 60200 0 01130	3768		SLW	E+2	4F13710
04101	0 50000 0 01130	3808		CLA	E+2	4F13750
04163	0 56000 0 01130	3858		LDQ	E+2	4F13800
04201	0 50000 0 01126	3872	LA003	CLA	E	4F13814
04212	0 56000 0 01127	3881		LDQ	E+1	4F13823
04455	0 60200 0 01141	4051		SLW	E+11	4F13993
04460	−0 60200 0 01126	4054		ORS	E ADD SIGMA TAG TO I-TAU TAGS IN E.	4F13996
04636	0 60200 0 01130	4172	EXITR	SLW	E+2 SAVE VARIABLE IN E+2,	4F14114
04040	0 60100 0 01126	4525		STO	E	4F14463
04042	0 60100 0 01127	4527		STO	E+1	4F14465
04044	0 60100 0 01130	4529		STO	E+2	4F14467
04057	0 50000 0 01126	4540	PM1070	CLA	E	4F14478
04061	0 50000 0 01127	4542		CLA	E+1	4F14480
04063	0 50000 0 01130	4544		CLA	E+2	4F14482

␣␣␣␣␣F = 618

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

References (5)

01670	1 76626 0 01655	538	DCF	TXI	C0180,0,−F REPEAT PROCESS FOR NEXT CHARACTER.	4F10528
03447	0 60200 0 01151	1698		SLW	F−1 AND RETAIN IN F-01.	4F11650
03472	−0 50000 0 01151	1717		CAL	F−1 PICK UP EXTERNAL FORMULA NUMBER AND	4F11669
05571	0 50000 0 01151	3069		CLA	F−1 TEST FOR AN EXTERNAL	4F13019
05066	0 50000 0 01151	5799		CLA	F−1	4F15743

␣␣␣␣␣G = 743

Definition
01347 295 G BSS 2 4F10286

References (57)

00337	0 00001 0 01347	127		PZE	G,,1 A,,E.	4F10119
00342	0 00002 0 01347	131		PZE	G,,2 A,,E.	4F10123
00345	0 00002 0 01347	135		PZE	G,,2 A,,E.	4F10127
00356	0 00001 0 01347	147		PZE	G,,1 A,,E.	4F10139
00361	0 00002 0 01347	151		PZE	G,,2 A,,E.	4F10143
00413	0 00001 0 01350	200		PZE	G+1,,1 FIXCON) ARG1+L,,L	4F10192
00420	0 00001 0 01350	206		PZE	G+1,,1 FLOCON) ARG1+L,,L	4F10198
02164	0 36100 0 01347	771		ACL	G ADD NEW FLOCON TO	4F10761
02172	0 70000 0 01347	777		CPY	G WRITE NEW FLOCON ON DRUM.	4F10767
03053	0 60200 0 01347	1208		SLW	G STRIP OFF	4F11198
03054	0 56000 0 01347	1209		LDQ	G SIGN.	4F11199
03122	0 60200 0 01347	1247		SLW	G AND STORE IN G.	4F11237
03125	−0 60200 0 01347	1250		ORS	G PLACE IN G WITH ALPHA. THEN	4F11240
03140	0 60200 0 01347	1261		SLW	G STRIP OFF	4F11251
03141	0 56000 0 01347	1262		LDQ	G THEIR SIGNS,	4F11252
03201	0 60200 0 01347	1294		SLW	G STRIP OFF SIGN,	4F11284
03202	0 56000 0 01347	1295		LDQ	G CONVERT ADDEND	4F11285
04464	0 60100 0 01347	2336		STO	G IN G.	4F12296
04474	0 60100 0 01350	2344		STO	G+1 INTO G+1.	4F12304
04524	0 60100 0 01347	2373		STO	G IS A COMMON	4F123294
04526	0 60200 0 01350	2375		SLW	G+1 APPEARS IN A SUBPROGRAM	4F123297
04634	0 60100 0 01347	2455		STO	G MOVE IT INTO G, AND	4F12404
05116	0 60200 0 01347	2712		SLW	G INTO G.	4F12662
05127	0 60200 0 01350	2721	NFW	SLW	G+1 MOVE FORMAT WORDS INTO G+1.	4F12671
05132	−0 50000 0 01350	2724		CAL	G+1 WHEN THE	4F12674
05136	0 60000 0 01347	2728		STZ	G PRECEED ALL BUT 1ST ENTRY WITH 0.	4F12678
05472	0 60100 0 01347	2999		STO	G DECREMENT OF G, AND	4F12949
05774	0 60000 0 01347	3247		STZ	G G TO	4F13195
05775	0 62200 0 01347	3248		STD	G (0(IFN)000),	4F13196
05777	0 60200 0 01350	3250		SLW	G+1 INTO G+1.	4F13198
06026	0 60200 0 01347	3284		SLW	G INTO G, AND	4F13232
06057	0 60100 0 01347	3316		STO	G THEN	4F13264
03467	0 60000 0 01347	3539		STZ	G CLEAR RECEIVING CELL.	4F13482
03512	−0 60200 0 01347	3558		ORS	G ADD CHAR TO THOSE IN G.	4F13501
03537	−0 60200 0 01347	3579		ORS	G X	4F13522
03550	−0 60200 0 01347	3588		ORS	G X	4F13531
03551	0 56000 0 01347	3589		LDQ	G MOVE G TO E+2 AND TO G+1,	4F13532
03553	−0 60000 0 01350	3591		STQ	G+1 X	4F13534
03560	−0 50100 0 01347	3596		ORA	G X	4F13539
03561	0 60200 0 01347	3597		SLW	G X	4F13540
03734	0 60200 0 01347	3706		SLW	G X	4F13649
03777	0 60200 0 01347	3741		SLW	G X	4F13683
04022	−0 60200 0 01347	3760		ORS	G X	4F13702
04532	0 60100 0 01347	4104		STO	G DECREMENT OF G, AND	4F14046
04633	0 60100 0 01347	4169	MS9500	STO	G STORE IN G, AND	4F14111
03516	0 60000 0 01347	4315	R04200	STZ	G	4F14253
03522	0 56000 0 01347	4319		LDQ	G	4F14257
03524	0 40000 0 01347	4321		ADD	G	4F14259
03525	0 62200 0 01347	4322		STD	G	4F14260
03626	0 60200 0 01347	4387		SLW	G	4F14325
03632	0 36100 0 01347	4391		ACL	G	4F14329
04267	0 60100 0 01347	4676		STO	G	4F14614
04341	0 70000 0 01347	4718		CPY	G	4F14656
04342	0 70000 0 01350	4719		CPY	G+1	4F14657
04343	0 50000 0 01347	4720		CLA	G	4F14658
04344	0 34000 0 01350	4721		CAS	G+1	4F14659
04455	0 60100 0 01347	5533		STO	G	4F15472

␣␣␣␣␣H = 578

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

References (4)

04507	0 60100 0 01102	4085	STO	H CHARACTER IS NUMERIC SO HOLD IT.	4F14027
04514	0 40000 0 01102	4090	ADD	H THE CURRENT DIGIT.	4F14032
04573	0 60100 0 01102	4137	STO	H CHARACTER IS NUMERIC, SO HOLD IT.	4F14079
04600	0 36100 0 01102	4142	ACL	H THE CURRENT DIGIT.	4F14084

␣␣␣␣␣I = 747

Definition
01353 298 I BSS 1 4F10289

References (4)

01620	0 60100 0 01353	481	C0152	STO	I SET I = +0, OR -0.	4F10472
03671	−0 50000 0 01353	1868		CAL	I OBTAIN I IN LOGICAL ACC AND	4F11820
03703	−0 50000 0 01353	1878		CAL	I OBTAIN I IN LOG ACC AND	4F11830
03712	−0 50000 0 01353	1885		CAL	I OBTAIN I IN LOG ACC AND	4F11837

␣␣␣␣␣N = 579

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

References (13)

04033	0 53400 2 01103	3769		LXA	N,2 GET NUMBER OF CHARACTERS IN THIS ARG	4F13711
04463	0 60100 0 01103	4064	ROYCNV	STO	N SAVE DECIMAL DIGIT IN N.	4F14006
04470	0 60000 0 01103	4070	DECPNT	STZ	N CLEAR N (NO INTEGER).	4F14012
04510	0 50000 0 01103	4086		CLA	N MULTIPLY THE PREVIOUS	4F14028
04512	0 40000 0 01103	4088		ADD	N BY 10,	4F14030
04517	0 60100 0 01103	4093		STO	N IF NONE, SAVE NEW PARTIAL RESULT.	4F14035
04530	0 50000 0 01103	4102		CLA	N PICK UP CONVERTED CONSTANT, AND	4F14044
04537	0 60100 0 01103	4109		STO	N SAVE PARTIAL RESULT, AND	4F14051
04605	0 50000 0 01103	4147	FN4	CLA	N IF N CONTAINS ZERO, TAKE	4F14089
04626	−0 60000 0 01103	4164		STQ	N SUITABLE CONSTANT	4F14106
04627	0 50000 0 01103	4165		CLA	N TO ADJUST RESULT	4F14107
04641	0 60100 0 01103	4175	FN3	STO	N IF INTEGER WAS SITUATED	4F14117
04642	0 56000 0 01103	4176		LDQ	N TO THE LEFT OF THE DECIMAL POINT,	4F14118

␣␣␣␣␣T = 3238

Definition

			3434			END OF DICTIONARY.	4F13382
			3435			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13383
			3436				4F13384
			3437			T/ TRANSFER TABLE IUSED BY CC000),	4F13385
D	06246	1 00000 0 03653	3438	T	TXI	C0100,0 DO,	4F13386

References (3)

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

␣␣␣␣.. = 0

Definition
00000 6025 .. EQU 0 4F15965

␣␣␣␣1C = 581

Definition
01105 273 1C BSS 5 COMMON WORKING STORAGE. 4F10264

References (81)

00326	0 00005 0 01105	115		PZE	1C,,5 A,,E.	4F10107
00331	0 00002 0 01105	119		PZE	1C,,2 A,,E.	4F10111
00353	0 00002 0 01105	143		PZE	1C,,2 A,,E.	4F10135
00451	0 00002 0 01107	236		PZE	1C+2,,2 DIM1 ) ARG1+L,,L	4F10228
00456	0 00002 0 01107	242		PZE	1C+2,,2 DIM2 ) ARG1+L,,L	4F10234
00463	0 00003 0 01110	248		PZE	1C+3,,3 DIM3 ) ARG1+L,,L	4F10240
02370	0 60100 0 01105	861		STO	1C OF THE AC, AND IN 1C. THEN	4F10851
03410	0 60000 0 01107	1475		STZ	1C+2	4F114578
03415	0 60000 0 01107	1480		STZ	1C+2 SET ADDRESS TO 0	4F11457D
03416	0 60000 0 01110	1481		STZ	1C+3	4F11457E
03421	0 60100 0 01107	1484		STO	1C+2	4F11457H
03423	0 60100 0 01110	1486	FLTR03	STO	1C+3 SET RELATIVE ADDRESS WORD OF CIT.	4F11457J
03434	0 00000 0 01107	1495		PZE	1C+2 SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER	4F11457S
03435	0 00000 0 01110	1496		PZE	1C+3 MAIN OR SUBPROGRAM.	4F11457T
03632	0 60100 0 01105	1828	CC004	STO	1C OTHERWISE, SAVE CHARACTER	4F11780
03633	−0 60000 0 01106	1829		STQ	1C+1 AND REMAINDER OF DICTIOANRY WORD.	4F11781
03635	0 56000 0 01106	1831		LDQ	1C+1 AND RESTORE DICTIONARY WORD.	4F11783
03636	0 40200 0 01105	1832		SUB	1C IF CHARCATERS ARE EQUAL,	4F11784
03646	−0 63400 1 01107	1840		SXD	1C+2,1 THEN	4F11792
03651	−0 53400 1 01107	1843		LXD	1C+2,1 AND THEN	4F11795
03661	0 62100 0 01105	1860		STA	1C AND STORE IN ADDR OF 1C.	4F11812
03665	0 60100 0 01106	1864		STO	1C+1 IN 1C+1.	4F11816
03670	0 60100 0 01107	1867		STO	1C+2 IN 1C+2.	4F11819
03673	−0 60200 0 01105	1870		ORS	1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC.	4F11822
03702	0 60100 0 01110	1877		STO	1C+3 IN 1C+3.	4F11829
03705	−0 60200 0 01105	1880		ORS	1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC.	4F11832
03711	0 60100 0 01111	1884		STO	1C+4 IN 1C+4.	4F11836
03714	−0 60200 0 01105	1887		ORS	1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC.	4F11839
03721	0 60100 0 01107	1898		STO	1C+2 AND IN 1C+2.	4F11850
03731	0 60100 0 01106	1906		STO	1C+1 THE 2ND WORD OF TIFGO TABLE ENTRY.	4F11858
03741	0 60100 0 01110	1914		STO	1C+3 FOR COMPILED INSTRUCTION.	4F11866
03747	0 62100 0 01105	1920	C0213	STA	1C STORE 1 OR 2 IN ADDR OF 1C.	4F11872
03752	0 60100 0 01106	1923		STO	1C+1 AND STORE IN 1C+1.	4F11875
03770	0 62100 0 01106	1937		STA	1C+1 IN ADDR OF 1C+1.	4F11889
03771	0 50000 0 01105	1938		CLA	1C OBTAIN 1C IN ACC	4F11890
03777	0 00000 0 01107	1944		PZE	1C+2 WORD 1--DECR= INTFORMNN (LOCATION)	4F11896
04001	0 00000 0 01110	1946		PZE	1C+3 WORD 3--VARIABLE N (ADDRESS)	4F11898
04024	0 00000 0 01107	1965		PZE	1C+2 WORD 1--DECR-INTFORMNO(LOCATION)	4F11917
04036	0 60100 0 01105	1982		STO	1C FOR FUTURE TIFGO ENTRY.	4F11934
04071	0 62100 0 01105	2009		STA	1C TO ADDRESS OF 1C.	4F11961
04077	0 60100 0 01106	2015		STO	1C+1 OF 1C+1.	4F11967
04104	0 62100 0 01106	2020		STA	1C+1 TO ADDRESS OF 1C+1.	4F11972
04116	0 60100 0 01105	2036		STO	1C IN ADDRESS OF 1C.	4F11988
04122	0 60100 0 01110	2041	C0402	STO	1C+3 SET 1C+3 FOR CIT ENTRY.	4F11993
04125	0 62200 0 01105	2044		STD	1C 1C FOR FUTURE TIFGO ENTRY, AND	4F11996
04126	0 60100 0 01107	2045		STO	1C+2 1C+2 FOR FUTURE CIT ENTRY.	4F11997
04134	0 60100 0 01106	2051		STO	1C+1 STORE BETA1 IN DECR OF 1C+1.	4F12003
04141	0 62100 0 01106	2056		STA	1C+1 STORE BETA2 IN ADDR OF 1C+1.	4F12008
04143	0 00000 0 01107	2058		PZE	1C+2 WORD1--DECR = INTFORMNO (LOCATION)	4F12010
04146	0 00000 0 01110	2061		PZE	1C+3 WORD4--DECR=SS OR SL NO., OR 000000	4F12013
04157	0 60100 0 01105	2081	C0601	STO	1C SET 1C FOR FUTURE TIFGO ENTRY.	4F12033
04204	0 60100 0 01105	2119		STO	1C OF 1C FOR FUTURE CIT ENTRY.	4F12071
04207	0 60100 0 01106	2122		STO	1C+1 OF 1C+1,WITH ZEROS ELSEWHERE.	4F12074
04211	0 00000 0 01106	2124		PZE	1C+1 WORD1--DECR = INTFORMNO (LOCATION)	4F12076
04214	0 00000 0 01105	2127		PZE	1C WORD4--DECR = ALPHA, REST ZEROS.	4F12079
04217	0 60100 0 01107	2136		STO	1C+2 AND 1C+2,WITH ZEROS ELSEWHERE.	4F12088
04221	0 62100 0 01105	2138		STA	1C ADDRESS OF 1C.	4F12090
04232	0 60100 0 01106	2147		STO	1C+1 IN ADDRESS OF 1C+1.	4F12100
04237	0 00000 0 01107	2152		PZE	1C+2 WORD1--DECR = INTFORMNO (LOCATION)	4F12105
04261	0 00000 0 01105	2175		PZE	1C WORD1--DECR = INTFORMNO (LOCATION)	4F12129
04272	0 60100 0 01105	2189		STO	1C IN 1C.	4F12143
04312	0 60100 0 01106	2205		STO	1C+1 OF 1C+1.	4F12159
04317	0 62100 0 01106	2210		STA	1C+1 IN ADDRESS OF 1C+1.	4F12166
04325	0 60100 0 01107	2216		STO	1C+2 IN 1C+2, AND	4F12173
04331	0 60100 0 01106	2220		STO	1C+1 IN 1C+1, AND	4F12177
04335	0 62100 0 01106	2224		STA	1C+1 ADDRESS PART OF 1C+1. AND	4F12181
04351	0 00000 0 01106	2241		PZE	1C+1 WORD3--DECR = INTFORMNO (SYMBOL)	4F12198
04363	0 60100 0 01105	2256		STO	1C SAVE CHAR IN ACC.	4F12215
04366	0 50000 0 01105	2259		CLA	1C RESTORE CHAR IN ACC, AND	4F12218
04400	0 60100 0 01106	2274		STO	1C+1 TO 1.	4F12233
04404	−0 60000 0 01105	2278		STQ	1C INTO 1C.	4F12237
04414	0 60100 0 01106	2286		STO	1C+1 IN 1C+1.	4F12246
04423	0 50200 0 01106	2293	C1504	CLS	1C+1 MAKE SIGN OF N MINUS SINCE	4F12253
04424	0 60100 0 01106	2294		STO	1C+1 THIS IS LAST ITEM.	4F12254
04550	0 00000 0 01105	2398		PZE	1C WORD1--0(IFN)000	4F12347
04554	0 60000 0 01105	2402		STZ	1C CLEAR 1C.	4F12351
04556	0 00000 0 01105	2404		PZE	1C WORD1--0(IFN)000	4F12353
04641	0 00000 0 01105	2460		PZE	1C WORD1--0(IFN)000	4F12409
05365	0 60100 4 01112	2916		STO	1C+5,4 INTO 1C...1C+4,	4F12866
05370	0 53400 4 01105	2919	SPC8	LXA	1C,4 TEST TO SKIP	4F12869
04477	0 62200 0 01105	5552		STD	1C KEEP 1C UPDATED FOR PENDING TIFGO ENTRY,	4F15496

␣␣␣␣1E = 576

Definition

	5930			END OF ARITHMETIC / STATE D.	4F15866
	5931			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F15867
	5932				4F15868
	5933			SYNONYMS USED BY SECTION ONE.	4F15869
01100	5934	1E	SYN	ERASE COMMON WORKING STORAGE.	4F15870

␣␣␣␣1G = 586

Definition
01112 274 1G BSS 1 COMMON WORKING STORAGE. 4F10265

References (58)

00334	0 00001 0 01112	123		PZE	1G,,1 A,,E.	4F10115
00350	0 00001 0 01112	139		PZE	1G,,1 A,,E.	4F10131
00364	0 00001 0 01112	155		PZE	1G,,1 A,,E.	4F10147
00367	0 00001 0 01112	159		PZE	1G,,1 A,,E.	4F10151
00372	0 00001 0 01112	163		PZE	1G,,1 A,,E.	4F10155
01626	0 60000 0 01112	496		STZ	1G CLEAR WORKING STORAGE.	4F10487
01637	−0 60200 0 01112	505		ORS	1G SYMBOL IN WORKING STORAGE.	4F10496
01650	−0 60200 0 01112	514		ORS	1G THEN 6 CHARACTERS IN LENGTH.	4F10505
01655	0 60100 0 01112	527	C0180	STO	1G PLACE 1ST NUMERIC IN 1G.	4F10517
01663	0 50000 0 01112	533		CLA	1G MULTIPLY	4F10523
01665	0 40000 0 01112	535		ADD	1G BY	4F10525
03225	0 56000 0 01112	1319		LDQ	1G PICKUP SUBROUTINE NAME.	4F11309
03237	−0 60200 0 01112	1329		ORS	1G AND FILL OUT NAME WITH BLANKS.	4F11319
03660	0 50000 0 01112	1859		CLA	1G TAKE CONVERTED RESULT FOR BETA	4F11811
03664	0 50000 0 01112	1863		CLA	1G STORE SUBSCRIPT	4F11815
03667	0 50000 0 01112	1866		CLA	1G STORE N1	4F11818
03701	0 50000 0 01112	1876	C0113	CLA	1G STORE N2	4F11828
03710	0 50000 0 01112	1883		CLA	1G STORE N3	4F11835
03730	0 50000 0 01112	1905		CLA	1G STORE BETA IN 1C+1 TO CONSTRUCT	4F11857
03740	0 50000 0 01112	1913		CLA	1G SAVE THE SYMBOL N IN 1C+3	4F11865
04014	0 50000 0 01112	1957		CLA	1G E+3 = 1ST COEFFICIENT.	4F11909
04070	0 50000 0 01112	2008		CLA	1G MOVE BETA1	4F11960
04075	0 50000 0 01112	2013		CLA	1G MOVE BETA2	4F11965
04103	0 50000 0 01112	2019		CLA	1G MOVE BETA3	4F11971
04117	0 50000 0 01112	2037		CLA	1G ADD THE PROPER INCREMENT TO THE	4F11989
04132	0 50000 0 01112	2049		CLA	1G BRING UP,	4F12001
04140	0 50000 0 01112	2055		CLA	1G BRING UP AND	4F12007
04171	0 60000 0 01112	2108	C0901	STZ	1G CLEAR 1G.	4F12060
04176	0 40000 0 01112	2113		ADD	1G ADD 1G TO DIGIT,	4F12065
04200	0 60100 0 01112	2115		STO	1G AND STORE BACK IN 1G.	4F12067
04202	0 50000 0 01112	2117	C0903	CLA	1G THEN PLACE OCTAL ALPHA	4F12069
04231	0 50000 0 01112	2146		CLA	1G PUT BIN EQUIV OF ALPHA	4F12099
04246	0 00000 0 01112	2159		PZE	1G WORD3--SYMBOL N (ADDRESS)	4F12112
04253	0 50000 0 01112	2169		CLA	1G STORE SENSE LIGHT NUMBER	4F12123
04256	0 60100 0 01112	2172		STO	1G OF 1G.	4F12126
04264	0 00000 0 01112	2178		PZE	1G WORD4--DECR = 96+ALPHA,REST ZEROS.	4F12132
04271	0 50000 0 01112	2188		CLA	1G PUT VARIABLE SYMBOL	4F12142
04310	0 50000 0 01112	2203		CLA	1G PUT D1	4F12157
04316	0 50000 0 01112	2209		CLA	1G PUT D2	4F12165
04324	0 50000 0 01112	2215		CLA	1G IF 3 DIMENSION, PUT D3	4F12172
04330	0 50000 0 01112	2219	C1210	CLA	1G IF 1 DIMENSION, PUT D1	4F12176
04334	0 50000 0 01112	2223	C1220	CLA	1G IF 2 DIMENSIONS, PUT D2 IN	4F12180
04356	0 50200 0 01112	2251		CLS	1G CHANGE SIGN OF SYMBOL	4F12209
04357	0 60100 0 01112	2252		STO	1G TO MINUS.	4F12210
04403	0 56000 0 01112	2277		LDQ	1G MOVE V	4F12236
04413	0 50000 0 01112	2285		CLA	1G PUT BIN EQUIV OF N	4F12245
04455	0 50000 0 01112	2329		CLA	1G	4F12289
04473	0 50000 0 01112	2343		CLA	1G MOVE ARGUMENT	4F12303
04525	−0 50000 0 01112	2374		CAL	1G STATEMENT WHICH	4F123296
04633	0 50000 0 01112	2454		CLA	1G AFTER COMPLETING NAME WITH BLANKS,	4F12403
04650	0 00000 0 01112	2467		PZE	1G WORD3--(NAME)	4F12416
05703	−0 63400 2 01112	3174		SXD	1G,2 TAPE READING ERRORS.	4F13122
05713	−0 53400 2 01112	3183	CA130	LXD	1G,2 TEST TAPE ERROR COUNTER	4F13131
05716	−0 63400 2 01112	3186	CA131	SXD	1G,2 SAVE REDUCED VALUE IN COUNTER,	4F13134
03606	0 56000 0 01112	3618		LDQ	1G ENTER ARGUMENT NAME IN ARGREG TABLE.	4F13561
04042	0 60200 0 01112	3776		SLW	1G STORE WORD	4F13718
04047	−0 50000 0 01112	3781	C3353	CAL	1G RETREIVE WORD	4F13723
04440	0 60200 0 01112	4034		SLW	1G MOVE WORD TO BE ENTERED TO 1G	4F13976

␣␣␣␣1H = 589

Definition
01115 277 1H BSS 1 4F10268

References (5)

01645	0 60100 0 01115	511	STO	1H SAVE, AND	4F10502
01651	0 50000 0 01115	515	CLA	1H PICKUP PUNCTUATION MARK,	4F10506
04107	0 60100 0 01115	2028	STO	1H SET 1H TO 112, AND PREPARE TO	4F11980
04120	0 40000 0 01115	2038	ADD	1H NUMBER OF SENSE SWITCH OR LIGHT,	4F11990
04151	0 60100 0 01115	2069	STO	1H 1H AND	4F12021

␣␣␣␣2E = 577

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

␣␣␣␣2G = 587

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

References (14)

01612	0 60100 0 01113	475		STO	2G SAVE NEXT NON-NUERIC CHARACTER.	4F10466
01616	0 60100 0 01113	479		STO	2G SAVE PUNCTUATION MARK, AND	4F10470
01621	0 50000 0 01113	482		CLA	2G PICKUP NEXT CHARACTER,	4F10473
01662	0 60100 0 01113	532		STO	2G SAVE DIGIT IN 2G.	4F10522
01667	0 40000 0 01113	537		ADD	2G AND ADD CURRENT DIGIT.	4F10527
03616	0 60000 0 01113	1816	CC000	STZ	2G SET DICTIONARY WORD TAG, AND	4F11768
03657	0 60100 0 01113	1858		STO	2G SAVE THE 1ST CHAR OF SUBSCRIPT.	4F11810
03662	0 50000 0 01113	1861		CLA	2G 1C IS NOW COMPETE EXCEPT FOR TAG.	4F11813
03755	0 60100 0 01113	1926		STO	2G SAVE CHAR IN ACC.	4F11878
03763	0 50000 0 01113	1932		CLA	2G RESTORE CHAR TO ACC.	4F11884
04022	0 60100 0 01113	1963		STO	2G ADJUST AND SAVE FOR COMP. INSTR.	4F11915
04027	0 00000 0 01113	1968		PZE	2G WORD 4--ADDR = TAUTAG FOR I	4F11920
05745	−0 53400 2 01113	3214		LXD	2G,2 REMAIN IN THE MO, THEN	4F13162
05750	−0 63400 2 01113	3217	CC501	SXD	2G,2 DICTIONARY WORD TAG, AND	4F13165

␣␣␣␣2H = 590

Definition
01116 278 2H BSS 1 4F10269

References (4)

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

␣␣␣␣2P = 833

Definition
01501 5937 2P SYN I( 4F15873

References (2)

	05502	0 00000 0 01501	3007		PZE	2P WORD3--200000	4F12957
	06066	0 00000 0 01501	3323		PZE	2P WORD3-200000	4F13271

␣␣␣␣3E = 578

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

␣␣␣␣3G = 588

Definition
01114 276 3G BSS 1 4F10267

␣␣␣␣4E = 579

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

␣␣␣␣A( = 834

Definition
01502 030000000000 390 A( BCD 1300000 -ARITHMETIC. 4F10381
Reference
05170 0 50000 0 01502 5867 AC0410 CLA A( FLO PT INTERNAL VARIABLE 4F15811

␣␣␣␣BK = 312

Definition

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

References (5)

03564	−0 53400 4 00470	3600		LXD	BK,4 THIS IS ARITH FUNCTION STATEMENT.	4F13543
03572	−0 63400 4 00470	3606	FS010	SXD	BK,4 X	4F13549
03661	−0 53400 1 00470	3661		LXD	BK,1 TYPE NUMBER.	4F13604
04105	−0 53400 4 00470	3812		LXD	BK,C IS FORSUB EMPTY	4F13754
05153	−0 53400 2 00470	5854		LXD	BK,B	4F15798

␣␣␣␣BS = 413

Definition

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

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

␣␣␣␣CW = 3188

Definition
06164 5923 CW BSS 4 4F15859

References (130)

03552	0 60200 0 06164	5081		SLW	CW STO INT. FORM. NO. IN DEC FIELD OF CW.	4F15015
03646	0 60200 0 06165	5141	CP0740	SLW	CW+1	4F15075
03653	0 60200 0 06165	5146		SLW	CW+1 COMPILE CHS FOR 1ST ELEMENT	4F15080
03654	0 60000 0 06166	5147		STZ	CW+2	4F15081
03655	0 60000 0 06167	5148		STZ	CW+3	4F15082
03661	0 60200 0 06165	5152		SLW	CW+1 COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT	4F15086
03670	0 60200 0 06165	5159	CP0940	SLW	CW+1	4F15093
03711	0 60200 0 06165	5176	CP1140	SLW	CW+1	4F15110
03714	0 60000 0 06164	5179		STZ	CW RESET CW	4F15113
03735	0 60100 0 06165	5196		STO	CW+1	4F15130
03754	0 60100 0 06165	5211		STO	CW+1 AND SEGMENT IS FLO PT	4F15145
03756	0 60100 0 06166	5213		STO	CW+2	4F15147
03757	0 60000 0 06167	5214		STZ	CW+3	4F15148
03762	0 60100 0 06165	5217		STO	CW+1	4F15151
03765	0 60100 0 06165	5220		STO	CW+1 COMPILE FOP SYMJ (S(I))	4F15154
03774	0 60100 0 06165	5227		STO	CW+1	4F15161
03776	0 60100 0 06166	5229		STO	CW+2	4F15163
03777	0 60000 0 06167	5230		STZ	CW+3	4F15164
04002	0 60100 0 06165	5233		STO	CW+1	4F15167
04012	0 60100 0 06165	5241		STO	CW+1	4F15175
04023	0 60100 0 06165	5250		STO	CW+1	4F15184
04053	0 60200 0 06165	5274		SLW	CW+1	4F15208
04057	0 60000 0 06164	5278	CP2200	STZ	CW RESET CW	4F15212
04076	0 60200 0 06165	5293		SLW	CW+1	4F15227
04111	0 60200 0 06165	5304		SLW	CW+1	4F15236
04127	0 60200 0 06165	5318		SLW	CW+1	4F15252
04131	0 60200 0 06166	5320		SLW	CW+2	4F15254
04133	0 60200 0 06167	5322		SLW	CW+3	4F15256
04136	0 60200 0 06165	5325		SLW	CW+1	4F15259
04140	0 60200 0 06166	5327		SLW	CW+2	4F15261
04143	0 60200 0 06165	5330		SLW	CW+1	4F15264
04145	0 60200 0 06166	5332		SLW	CW+2	4F15266
04152	0 50200 0 06164	5338		CLS	CW 1... OPEN SBRTN	4F15272
04153	0 60100 0 06164	5339		STO	CW CW TO -CW	4F15273
04155	0 60100 0 06166	5341		STO	CW+2	4F15275
04157	0 60000 0 06164	5343		STZ	CW RESET CW	4F15277
04163	0 60200 0 06164	5347		SLW	CW	4F15281
04174	−0 60000 0 06166	5356	CP2860	STQ	CW+2	4F15290
04175	0 60000 0 06167	5357		STZ	CW+3	4F15291
04177	0 60000 0 06164	5359		STZ	CW RESET CW	4F15293
04213	0 60200 0 06164	5371		SLW	CW	4F15305
04215	0 60000 0 06164	5373		STZ	CW RESET CW	4F15307
04224	0 60100 0 06165	5380		STO	CW+1	4F15314
04226	0 60100 0 06166	5382		STO	CW+2	4F15316
04230	0 60100 0 06167	5384		STO	CW+3	4F15318
04233	0 60100 0 06165	5387		STO	CW+1	4F15321
04235	0 60100 0 06166	5389		STO	CW+2	4F15323
04241	0 60100 0 06165	5393		STO	CW+1	4F15332
04244	0 60000 0 06164	5396		STZ	CW RESET CW	4F15335
04253	0 60100 0 06165	5403		STO	CW+1	4F15342
04265	0 60100 0 06165	5413		STO	CW+1	4F15352
04270	0 60000 0 06164	5416		STZ	CW REST CW	4F15355
04301	0 60100 0 06165	5425		STO	CW+1	4F15364
04305	0 60100 0 06165	5429		STO	CW+1	4F15368
04307	0 60100 0 06166	5431		STO	CW+2	4F15370
04311	0 60100 0 06167	5433		STO	CW+3	4F15372
04332	0 60100 0 06165	5450		STO	CW+1	4F15389
04336	0 60100 0 06165	5454		STO	CW+1	4F15393
04340	0 60100 0 06166	5456		STO	CW+2	4F15395
04342	0 60100 0 06167	5458		STO	CW+3	4F15397
04356	0 60100 0 06165	5470		STO	CW+1	4F15409
04361	0 60000 0 06164	5473		STZ	CW RESET CW	4F15412
04372	0 60100 0 06165	5482	CP4210	STO	CW+1	4F15421
04400	−0 60000 0 06166	5488		STQ	CW+2 1...BASE IN MQ	4F15427
04401	0 60000 0 06167	5489		STZ	CW+3	4F15428
04404	0 50200 0 06164	5492	CP4320	CLS	CW	4F15431
04405	0 60100 0 06164	5493		STO	CW CW TO -CW	4F15432
04407	0 60000 0 06164	5495		STZ	CW RESET CW	4F15434
04411	0 60100 0 06166	5497		STO	CW+2	4F15436
04413	0 60000 0 06165	5499		STZ	CW+1 RESET CW+1	4F15438
04421	0 60100 0 06165	5505		STO	CW+1	4F15444
04426	0 60100 0 06165	5510		STO	CW+1	4F15449
04430	0 60100 0 06166	5512		STO	CW+2	4F15451
04432	0 60100 0 06167	5514		STO	CW+3	4F15453
04435	0 60100 0 06165	5517		STO	CW+1	4F15456
04454	0 60100 0 06166	5532	CP4730	STO	CW+2	4F15471
04463	0 60100 0 06165	5539		STO	CW+1	4F15483
04466	0 60000 0 06164	5542		STZ	CW	4F15486
04510	−0 50000 0 06167	5561		CAL	CW+3 NO GENERAL TAG PRESENT,SO PLACE	4F15505
04523	0 60200 0 06165	5572		SLW	CW+1	4F15516
04525	0 60000 0 06164	5574		STZ	CW RESET CW	4F15518
04541	0 60200 0 06165	5586		SLW	CW+1	4F15530
04544	0 60200 0 06166	5589		SLW	CW+2	4F15533
04547	0 60200 0 06167	5592		SLW	CW+3	4F15536
04554	0 60200 0 06165	5597		SLW	CW+1	4F15541
04556	0 60200 0 06166	5599		SLW	CW+2	4F15543
04560	0 60200 0 06167	5601		SLW	CW+3	4F15545
04564	0 60200 0 06164	5605		SLW	CW	4F15549
04566	0 60200 0 06165	5607		SLW	CW+1	4F15551
04570	0 60200 0 06166	5609		SLW	CW+2	4F15553
04572	0 60000 0 06164	5611		STZ	CW RESET CW	4F15555
04604	−0 60000 0 06167	5621		STQ	CW+3 NO GENERAL TAG PRESENT	4F15565
04606	0 60200 0 06166	5623		SLW	CW+2	4F15567
04631	0 60100 0 06166	5642		STO	CW+2	4F15586
04633	0 60100 0 06167	5644		STO	CW+3	4F15588
04637	0 60100 0 06165	5648		STO	CW+1	4F15592
04671	0 60100 0 06165	5674		STO	CW+1	4F15618
04706	0 60100 0 06165	5687		STO	CW+1	4F15631
04710	0 60100 0 06166	5689		STO	CW+2	4F15633
04711	0 60000 0 06167	5690		STZ	CW+3	4F15634
04714	0 60100 0 06165	5693		STO	CW+1	4F15637
04755	0 60100 0 06165	5726		STO	CW+1	4F15670
04757	0 60100 0 06166	5728		STO	CW+2	4F15672
04760	0 60000 0 06167	5729		STZ	CW+3	4F15673
04763	0 60100 0 06165	5732		STO	CW+1	4F15676
05007	0 60100 0 06165	5752		STO	CW+1	4F15696
05010	0 60000 0 06166	5753		STZ	CW+2	4F15697
05013	0 60200 0 06167	5756		SLW	CW+3	4F15700
05030	0 60100 0 06165	5769		STO	CW+1	4F15713
05032	0 60100 0 06166	5771		STO	CW+2	4F15715
05033	0 60000 0 06167	5772		STZ	CW+3	4F15716
05036	0 60100 0 06165	5775		STO	CW+1	4F15719
05105	0 00000 0 06164	5815		HTR	CW	4F15759
05106	0 00000 0 06165	5816		HTR	CW+1	4F15760
05107	0 00000 0 06166	5817		HTR	CW+2	4F15761
05110	0 00000 0 06167	5818		HTR	CW+3	4F15762
05152	0 60200 0 06167	5853		SLW	CW+3 STORE ARGUMENT BUFFER RELATIVE ADDRESS	4F15797
05157	0 60200 0 06166	5858	AC0320	SLW	CW+2	4F15802
05161	0 60000 0 06167	5860	AC0340	STZ	CW+3 NON-SUBSCRIPTED, REAL VARIABLE	4F15804
05171	0 60100 0 06166	5868	AC0420	STO	CW+2	4F15812
05173	−0 60000 0 06167	5870		STQ	CW+3	4F15814
05201	0 60200 0 06167	5876		SLW	CW+3	4F15820
05210	0 60200 0 06167	5883		SLW	CW+3 STORE FOR NEXT CIT ENTRY.	4F15827
05212	0 60000 0 06167	5885		STZ	CW+3	4F15829
05235	−0 60200 0 06167	5904		ORS	CW+3 ADD RELATIVE ADDRESS TO I-TAU TAG.	4F15848
05237	0 60100 0 06166	5906		STO	CW+2	4F15850
05242	0 00000 0 06164	5910			CW	4F158513
05243	0 00000 0 06165	5911			CW+1	4F158514
05244	0 00000 0 06166	5912			CW+2	4F158515
05245	0 00000 0 06167	5913			CW+3	4F158516

␣␣␣␣D1 = 812

Definition
01454 5960 D1 SYN 2E18 4F15896

References (5)

02373	0 40000 0 01454	870	ADD	D1 INTERNAL FORMULA NUMBER	4F10860
02450	0 56000 0 01454	930	LDQ	D1 SUBSCRIPT	4F10920
02456	0 50000 0 01454	936	CLA	D1 IF 1 DIMENSION, PICKUP DECREMENT1,	4F10926
04504	0 40000 0 01454	2352	ADD	D1 ARGUMENT COUNT	4F12312
04730	0 00000 0 01454	2531	PZE	D1 WORD4--001000	4F12480

␣␣␣␣D2 = 815

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

References (3)

03422	0 50000 0 01457	1485	CLA	D2	4F11457I
03430	0 00000 0 01457	1491	PZE	D2	4F11457O
05010	0 00000 0 01457	2606	PZE	D2 WORD4-002000	4F12555

␣␣␣␣D3 = 578

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

References (6)

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

␣␣␣␣D6 = 819

Definition
01463 0 00006 0 00000 375 D6 PZE ,,6 CONSTATN USED BY IOT. 4F10366

␣␣␣␣DI = 1268

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

References (2)

	02150	−0 53400 1 02364	759		LXD	DI,1	4F10749
	02521	−0 53400 2 02364	976	REP	LXD	DI,2 SET XR2 * (5-DRUM NUMBER).	4F10966

␣␣␣␣E( = 832

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

References (2)

	03454	−0 50000 0 01500	3528		CAL	E( SET ARERAS - E(	4F13471
		01500	5973	DMP	SYN	E(	4F15909

␣␣␣␣EC = 414

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

References (2)

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

␣␣␣␣FT = 731

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

References (7)

03445	−0 50000 0 01333	1696		CAL	FT OBTAIN HOLLERITH CODED 5-DIGIT	4F11648
03452	0 56000 2 01347	1701	CA019	LDQ	FT+12,2 MOVE WORD FROM REGION FT	4F11653
03457	−0 50000 0 01333	1706		CAL	FT TEST RIGHTMOST CHARACTER OF	4F11658
05710	0 70000 2 01347	3180	CA102	CPY	FT+12,2 COPY INTO FT REGION	4F13128
05727	0 40200 2 01347	3195		SUB	FT+12,2 FOR	4F13143
05733	−0 50000 0 01333	3199	CA113	CAL	FT IF NOT BLANK,	4F13147
05740	0 60000 0 01333	3204	CA120	STZ	FT INDICATE THAT FINAL	4F13152

␣␣␣␣H( = 850

Definition
01522 5991 H( SYN ADSPOP 4F15927
Reference
05164 −0 50000 0 01522 5863 AC0350 CAL H( 4F15807

␣␣␣␣I( = 833

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

References (2)

	05166	0 50000 0 01501	5865	AC0390	CLA	I( FIX PT INTERNAL VARIABLE	4F15809
		01501	5937	2P	SYN	I(	4F15873

␣␣␣␣K1 = 2474

Definition
4184 4F14126

04652 +233000000000 4185 K1 OCT 233000000000 CONSTANT USED BY ROYCNV. 4F14127

References (2)

	04607	0 62100 0 04652	4149		STA	K1 PUT INTEGER INTO FLO PT WORD,	4F14091
	04613	0 30000 0 04652	4153	FN1	FAD	K1 THEN FLOATING ADD THE RESULT	4F14095

␣␣␣␣K2 = 2475

Definition
04653 +252000000000 4186 K2 OCT 252000000000 CONSTANT USED BY ROYCNV. 4F14128
Reference
04612 −0 50100 0 04653 4152 ORA K2 AFFIX CORRECT EXPONENT. 4F14094

␣␣␣␣K3 = 2476

Definition
04654 +000400000000 4187 K3 OCT 400000000 CONSTANT USED BY ROYCNV. 4F14129
Reference
04616 −0 50100 0 04654 4156 ORA K3 NORMALIZED RESULT. 4F14098

␣␣␣␣K4 = 2477

Definition
04655 +335000000000 4188 K4 OCT 335000000000 CONSTANT USED BY ROYCNV. 4F14130
Reference
04630 0 36100 0 04655 4166 ACL K4 AND TEST FOR OUT OF RANGE. 4F14108

␣␣␣␣K5 = 2478

Definition
04656 +043000000000 4189 K5 OCT 43000000000 CONSTANT USED BY ROYCNV. 4F14131
Reference
04644 0 36100 0 04656 4178 ACL K5 CONSTANT TO ADJUST AND TEST RANGE. 4F14120

␣␣␣␣MQ = 1263

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

References (2)

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

␣␣␣␣MZ = 827

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

␣␣␣␣N2 = 753

Definition
01361 302 N2 BSS 1 4F10293

References (8)

02465	−0 60000 0 01361	943		STQ	N2 ADDEND 2 IN N2.	4F10933
02503	0 40200 0 01361	957	2D1	SUB	N2 SUBTRACT ADDEND 2.	4F10947
05447	0 60000 0 01361	2980		STZ	N2 DIMENSION 1 AND	4F12930
05450	−0 62000 0 01361	2981		SLQ	N2 DIMENSION 2	4F12931
05452	0 20000 0 01361	2983		MPY	N2 THEM TOGETHER.	4F12933
05460	0 60000 0 01361	2989		STZ	N2 DIMENSION 1,	4F12939
05461	−0 62000 0 01361	2990		SLQ	N2 DIMENSION 2,	4F12940
05463	0 20000 0 01361	2992		MPY	N2 MULTIPLY	4F12942

␣␣␣␣NC = 1171

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

References (5)

02140	−0 63400 2 02223	751		SXD	NC,2	4F10741
02216	−0 53400 4 02223	797	NXBLK	LXD	NC,4	4F10787
02223	1 00000 0 02225	802	NC	TXI	NC+2,0,** NOT FOUND.	4F10792
02226	−0 63400 1 02227	805		SXD	NC+4,1	4F10795
02230	−0 63400 4 02223	807		SXD	NC,4 SAVE CURRENT VALUE OF N,	4F10797

␣␣␣␣O( = 836

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

References (5)

04721	0 00000 0 01504	5698		HTR	O(	4F15642
04733	0 00000 0 01504	5708		HTR	O(	4F15652
04775	0 00000 0 01504	5742		HTR	O(	4F15686
05002	0 00000 0 01504	5747		HTR	O(	4F15691
	01504	6024	ZER	SYN	O(	4F15964

␣␣␣␣OP = 3841

Definition
07401 3483 OP BSS 1 VARIABLE USED BY IOT. 4F13429

References (11)

04712	0 60200 0 07401	2517		SLW	OP INTO OP.	4F12466
05000	0 60200 0 07401	2598		SLW	OP INTO OP.	4F12547
05013	0 60200 0 07401	2614		SLW	OP INT OP.	4F12563
05046	0 60200 0 07401	2647	XDR	SLW	OP SET OP.	4F12596
05052	0 60200 0 07401	2651		SLW	OP INTO OP.	4F12600
05067	0 60200 0 07401	2675	TPO	SLW	OP SET OP.	4F12624
05103	0 00000 0 07401	2687		PZE	OP WORD2--(WEF,REW,OR BSP)000	4F12636
05510	0 00000 0 07401	3013		PZE	OP WORD2--(OPERATION CODE)	4F12963
05541	0 00000 0 07401	3038		PZE	OP WORD2--NTR000 OR CPY000	4F12988
05657	0 00000 0 07401	3144		PZE	OP WORD2--(WTB,RBT,WRD,RDD)000	4F13092
05663	0 60200 0 07401	3148		SLW	OP INTO OP.	4F13096

␣␣␣␣P( = 835

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

References (4)

04034	−0 50100 0 01503	5259	ORA	P( FORM 4...TYPE NO.	4F15193
04306	0 50000 0 01503	5430	CLA	P(	4F15369
04337	0 50000 0 01503	5455	CLA	P(	4F15394
05156	−0 50100 0 01503	5857	ORA	P(	4F15801

␣␣␣␣PM = 797

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

␣␣␣␣PZ = 823

Definition
01467 +000032000000 379 PZ OCT 32000000 PLUS ZERO -CD000. 4F10370

␣␣␣␣RA = 3842

Definition
07402 3484 RA BSS 1 VARIABLE USED BY IOT. 4F13430

References (9)

05100	0 60100 0 07402	2684	STO	RA PLACE IN THE DECREMENT OF RA.	4F12633
05105	0 00000 0 07402	2689	PZE	RA WORD4--0(CON)000 OR 000000	4F12638
05430	0 60100 0 07402	2965	STO	RA (RELATIVE ADDRESS)	4F12915
05434	0 62100 0 07402	2969	STA	RA THEN CLEAR THE ADDRESS OF RA.	4F12919
05543	0 00000 0 07402	3040	PZE	RA WORD4--(RELATIVE ADDRESS)	4F12990
05654	0 60100 0 07402	3141	STO	RA NUMBER, AND SET RA.	4F13089
05661	0 00000 0 07402	3146	PZE	RA WORD4--000000 OR 0(UNIT)000	4F13094
06062	0 60100 0 07402	3319	STO	RA SET RA.	4F13267
06067	0 00000 0 07402	3324	PZE	RA WORD4-(FIXCON TAG)	4F13272

␣␣␣␣SA = 3843

Definition
07403 3485 SA BSS 1 VARIABLE USED BY IOT. 4F13431

References (5)

05214	0 60200 0 07403	2796		SLW	SA COMPILE SYMBOLIC ADDRESS,	4F12746
05420	0 60200 0 07403	2956	CMA4	SLW	SA INTO SA. AND	4F12906
05436	−0 50000 0 07403	2971	DIMSR	CAL	SA IF THIS VARIABLE	4F12921
05511	0 00000 0 07403	3014		PZE	SA WORD3--(SYMBOLIC ADDRESS)	4F12964
05542	0 00000 0 07403	3039		PZE	SA WORD3--(SYMBOL)	4F12989

␣␣␣␣SL = 759

Definition
01367 308 SL BSS 1 4F10299

References (20)

02377	0 60200 0 01367	875	L(SL)	SLW	SL PLACE IFN IN THE DECREMENTS	4F10865
04575	0 00000 0 01367	2419		PZE	SL WORD1--0(IFN+1)000	4F12368
04604	0 00000 0 01367	2426		PZE	SL WORD3--0(IFN+1)000	4F12375
05102	0 00000 0 01367	2686	TPOA	PZE	SL WORD1--0(IFN)000 OR 0(IFN)0(248)	4F12635
05236	−0 50000 0 01367	2814	LPRE	CAL	SL IF C(SL) DO NOT = 0,	4F12764
05500	0 00000 0 01367	3005		PZE	SL WORD1--0(IFN)000	4F12955
05507	0 00000 0 01367	3012		PZE	SL WORD1--0(IFN)000 OR 000000	4F12962
05513	0 60000 0 01367	3016		STZ	SL CLEAR SL, AND	4F12966
05521	0 00000 0 01367	3022		PZE	SL WORD3--0(IFN)000	4F12972
05523	0 60000 0 01367	3024		STZ	SL CLEAR SL, AND	4F12974
05540	0 00000 0 01367	3037		PZE	SL WORD1--0(IFN)000 OR 000000	4F12987
05544	0 60000 0 01367	3041		STZ	SL CLEAR SL, AND	4F12991
05556	0 00000 0 01367	3057		PZE	SL WORD1--0(IFN)000	4F13007
05671	0 60000 0 01367	3154		STZ	SL CLEAR SL,	4F13102
05675	0 00000 0 01367	3163		PZE	SL WORD1--0(IFN)000	4F13111
05764	0 00000 0 01367	3235		PZE	SL WORD1--0(IFN)000	4F13183
05770	0 60000 0 01367	3239		STZ	SL CLEAR SL,	4F13187
06010	0 00000 0 01367	3266		PZE	SL WORD1--0(IFN)000	4F13214
06021	0 60000 0 01367	3275		STZ	SL CLEAR SL, AND	4F13223
06046	0 00000 0 01367	3307		PZE	SL WORD1-0(IFN)000	4F13255

␣␣␣␣ST = 782

Definition
01416 6010 ST SYN L(8) 4F15950

References (3)

05512	0 00000 0 01416	3015	PZE	ST WORD4--000008	4F12965
05522	0 00000 0 01416	3023	PZE	ST WORD4--000008	4F12973
05531	0 00000 0 01416	3030	PZE	ST WORD4--000008	4F12980

␣␣␣␣SW = 1130

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

␣␣␣␣TL = 761

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

References (7)

02400	0 62200 0 01371	876	L(TL)	STD	TL OF SL AND TL.	4F10866
04737	0 00000 0 01371	2538		PZE	TL WORD1--0(IFN)0(248)	4F12487
05041	0 00000 0 01371	2636		PZE	TL WORD3-0(IFN)0(248)	4F12585
05060	0 00000 0 01371	2657		PZE	TL WORD3--0(IFN)0(248)	4F12606
05253	0 50200 0 01371	2827		CLS	TL MOVE -(0(IFN)0(248)) INTO THE	4F12777
05656	0 00000 0 01371	3143		PZE	TL WORD1--0(IFN)0(248)	4F13091
06103	0 00000 0 01371	3336		PZE	TL WORD3-0(IFN)000	4F13264

␣␣␣␣X( = 837

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

References (14)

04643	0 00000 0 01505	2462	PZE	X( WORD3--700000	4F12411
04655	0 00000 0 01505	2472	PZE	X( WORD3--700000	4F12421
03755	0 50000 0 01505	5212	CLA	X(	4F15146
03775	0 50000 0 01505	5228	CLA	X(	4F15162
04037	−0 50100 0 01505	5262	ORA	X( FORM 7...TYPE NO.	4F15196
04225	0 50000 0 01505	5381	CLA	X(	4F15315
04427	0 50000 0 01505	5511	CLA	X(	4F15450
04555	−0 50000 0 01505	5598	CAL	X(	4F15542
04620	0 00000 0 01505	5633	HTR	X(	4F15577
04707	0 50000 0 01505	5688	CLA	X(	4F15632
04756	0 50000 0 01505	5727	CLA	X(	4F15671
05031	0 50000 0 01505	5770	CLA	X(	4F15714
05055	0 00000 0 01505	5790		X(	4F15734
05062	0 00000 0 01505	5795		X(	4F15739

␣␣␣11Z = 769

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

References (8)

04551	0 34000 0 01401	4119	CAS	11Z COMPARE CHARACTER WITH A DASH.	4F14061
03476	0 40200 0 01401	4299	SUB	11Z	4F14237
03665	−0 50000 0 01401	4418	CAL	11Z STORE CS BIT	4F14356
04066	−0 32000 0 01401	4547	ANA	11Z	4F14485
04147	−0 32000 0 01401	4596	ANA	11Z EXTRACT CS-BIT	4F14534
04640	0 40200 0 01401	4909	SUB	11Z IS OP (S(0)) = + OR -	4F14847
03620	0 40200 0 01401	5119	SUB	11Z	4F15053
03637	0 40200 0 01401	5134	SUB	11Z	4F15068

␣␣␣12Z = 772

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

References (5)

04554	0 34000 0 01404	4122		CAS	12Z IF LESS THAN 32, COMPARE WITH PLUS.	4F14064
04445	−0 50000 0 01404	4786		CAL	12Z S(I) RESULTS IN MQ (TYPE MQ)	4F14724
04646	−0 32000 0 01404	4915		ANA	12Z	4F14853
04660	−0 50000 0 01404	4925		CAL	12Z S(0) TYPE MQ, SO	4F14863
	01404	6005	PLUS	SYN	12Z	4F15945

␣␣␣15P = 840

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

References (4)

03427	0 00000 0 01510	1490	PZE	15P	4F11457N
05027	0 00000 0 01510	2626	PZE	15P WORD3-*00000	4F12575
05560	0 00000 0 01510	3059	PZE	15P WORD3--*00000	4F13009
06012	0 00000 0 01510	3268	PZE	15P WORD3--*00000	4F13216

␣␣␣1D1 = 1353

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

␣␣␣1E9 = 803

Definition
01443 +000000001000 359 1E9 OCT 1000 ADDRESS=8 4F10350

␣␣␣2D1 = 1347

Definition
02503 0 40200 0 01361 957 2D1 SUB N2 SUBTRACT ADDEND 2. 4F10947
Reference
02470 −3 00002 4 02503 946 TXL 2D1,4,2 AND GO SUBTRACT ADDEND 2. 4F10936

␣␣␣A81 = 799

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

␣␣␣ABS = 2972

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

␣␣␣ADD = 858

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

␣␣␣ALT = 1083

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

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

References (6)

00417	1 00003 0 02073	204	FXCNIX	TXI	ALT,,5−2 TXI ALT,,I	4F10196
00424	1 00003 0 02073	210	FLCNIX	TXI	ALT,,5−2 TXI ALT,,I	4F10202
00431	1 00001 0 02073	216	TAU1IX	TXI	ALT,,5−4 TXI ALT,,I	4F10208
00436	1 00001 0 02073	222	TAU2IX	TXI	ALT,,5−4 TXI ALT,,I	4F10214
00443	1 00001 0 02073	228	TAU3IX	TXI	ALT,,5−4 TXI ALT,,I	4F10220
00450	1 00003 0 02073	234	SIG1IX	TXI	ALT,,5−2 TXI ALT,,I	4F10226

␣␣␣ARS = 861

Definition
01535 5950 ARS SYN L(ARS) 4F15886
Reference
06072 0 00000 0 01535 3327 PZE ARS WORD2-ARSOOO 4F13275

␣␣␣BCD = 3144

Definition

		3341			END OF PROGRAM VRA(VRD),	4F13289
		3342			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13290
		3343				4F13291
		3344			STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A=	4F13292
		3345				4F13293
06110	222324000000	3346	BCD	BCD	1BCD000 CONSTANT USED BY IOT.	4F13294

␣␣␣BDA = 830

Definition
01476 0 00300 0 00000 386 BDA PZE 0,0,192 CONSTANT USED BY IOT. 4F10377
Reference
05047 −0 50000 0 01476 2648 CAL BDA PICKUP BINARY DRUM ADDRESS, AND 4F12597

␣␣␣BDC = 3158

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

␣␣␣BEG = 2947

Definition

		3079			END OF PROGRAM EMK.	4F13029
		3080			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13030
		3081				4F13031
		3082			STATEA/ 4-SUBROUTINES USED BY STATE A=	4F13032
		3083
		3084			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
		3085				4F13033
		3086			BEG(TYP),4/ CALLS=DIAG. USES RSC.	4F13034
		3087			BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT,	4F13035
05603	−0 63400 4 05605	3088	BEG	SXD	BEX,4 SAVE C(XR4) FOR RETURN,	4F13036

References (5)

04704	0 07400 4 05603	2511	TSX	BEG,4 * CONVERT CONSTANT FORMULA NUMBER.	4F12460
04746	0 07400 4 05603	2551	TSX	BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL.	4F12500
04765	0 07400 4 05603	2577	TSX	BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL.	4F12526
05075	0 07400 4 05603	2681	TSX	BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL.	4F12630
05651	0 07400 4 05603	3138	TSX	BEG,4 * GO SCAN AND TEST TYPE OF SYMBOL.	4F13086

␣␣␣BEX = 2949

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

References (2)

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

␣␣␣BIN = 3783

Definition
07307 3479 BIN BSS 1 VARIABLE USED BY IOT. 4F13425

References (2)

	05636	0 60100 0 07307	3123		STO	BIN CONVERT	4F13071
	05641	0 40000 0 07307	3126		ADD	BIN TO THEIR	4F13074

␣␣␣BRW = 2982

Definition

		3131			END OF PROGRAM BEG(TYP),	4F13079
		3132			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13080
		3133				4F13081
		3134			BRW,4/ CALLS=JIF,BEG,VRA,CIT, CALLERS=WBT,RBT,WRD,	4F13082
05646	−0 63400 4 06054	3135	BRW	SXD	XRW,4 SAVE THE C(XR4), AND	4F13083

References (4)

05003	0 07400 4 05646	2601	TSX	BRW,4 * COMPILE INSTRS TO SET UNIT DESIG.	4F12550
05016	0 07400 4 05646	2617	TSX	BRW,4 * COMPILE INSTRS TO SET UNIT DESIG.	4F12566
05050	0 07400 4 05646	2649	TSX	BRW,4 * COMPILE INSTRS TO SET UNIT DESIG.	4F12598
05054	0 07400 4 05646	2653	TSX	BRW,4 * COMPILE INSTRS TO SET DRUM LOC.	4F12602

␣␣␣BSP = 2633

Definition

		2698			END OF PROGRAM RWN.	4F12647
		2699			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12648
		2700				4F12649
		2701			BSP/ USES=EFT,	4F12650
		2702			BSP PROCESSES BACKSPACE TAPE STATEMENTS.	4F12651
05111	−0 50000 0 06111	2703	BSP	CAL	BST PICKUP BST000 TO SET OP, AND	4F12652

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

␣␣␣BSS = 3004

Definition

		3157			END OF PROGRAM BRW.	4F13105
		3158			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13106
		3159				4F13107
		3160			BSS,2/ CALLS=CIT00, CALLERS=LPR,C1600,	4F13108
		3161			BSS COMPILES= IFN BSS 0.	4F13109
05674	0 07400 4 01731	3162	BSS	TSX	CIT00,4 * GO MAKE FOLLOWING CIT ENTRY=	4F13110

References (2)

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

␣␣␣BST = 3145

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

␣␣␣BTA = 829

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

References (3)

05002	−0 50000 0 01475	2600	CAL	BTA PICKUP BINARY TAPE ADDRESS, AND	4F12549
05015	−0 50000 0 01475	2616	CAL	BTA PICKUP BINARY TAPE ADDRESS, AND	4F12565
05070	−0 50000 0 01475	2676	CAL	BTA MOVE BINARY TAPE ADDRESS	4F12625

␣␣␣BXT = 2532

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

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

References (5)

D	05011	1 00000 0 04744	2607	TXI	BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE,	4F12556
D	05043	1 00000 0 04744	2638	TXI	BXT,0 * EXIT TO SCAN LIST, IF THERE IS 0N	4F12587
D	05062	1 00000 0 04744	2659	TXI	BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE.	4F12608
	05570	0 62100 0 04744	3068	STA	BXT TO RSC.	4F13018
	05622	0 62100 0 04744	3109	STA	BXT SET BXT SWITCH TO LAST.	4F13057

␣␣␣CAL = 863

Definition
01537 5953 CAL SYN L(CAL) 4F15889

References (5)

04721	0 00000 0 01537	2524	PZE	CAL WORD2--CAL000	4F12473
04733	0 00000 0 01537	2534	PZE	CAL WORD2--CAL000	4F12483
05557	0 00000 0 01537	3058	PZE	CAL WORD2--CAL000	4F13008
06011	0 00000 0 01537	3267	PZE	CAL WORD2--CAL000	4F13215
06047	0 00000 0 01537	3308	PZE	CAL WORD2-CAL000	4F13256

␣␣␣CER = 2471

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

References (2)

D	04622	1 00000 0 04647	4160		TXI	CER,0 ERROR. -GO TO DIAGNOSTIC	4F14102
D	04632	1 00000 0 04647	4168		TXI	CER,0 ERROR. --GO TO DIAGNOSTIC	4F14110

␣␣␣CHR = 3790

Definition
07316 3480 CHR BES 6 VARIABLE USED BY IOT. 4F13426

References (5)

05161	0 60100 4 07316	2760		STO	CHR,4 SYMBOL	4F12710
05624	0 50000 0 07310	3113	TYP	CLA	CHR−6 TEST FIRST CHARACTER	4F13061
05635	0 50000 2 07315	3122		CLA	CHR−1,2 THEN	4F13070
05643	0 40000 2 07316	3128		ADD	CHR,2 EQUIVALENT,	4F13076
06000	−0 50000 0 07310	3251		CAL	CHR−6 PICKUP 1ST CHARACTER OF SYMBOL, AND	4F13199

␣␣␣CIB = 416

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

References (3)

01742	0 70000 1 00640	605	CIT01	CPY	CIB,1 COPY SUCCESSIVE	4F10595
01754	0 60100 2 00640	615		STO	CIB,2 INTO CIB BUFFER,	4F10605
05102	0 60100 2 00635	5811		STO	CIB−3,B	4F15755

␣␣␣CIT = 985

Definition
01731 5954 CIT SYN CIT00 4F15890

References (23)

	04724	0 07400 4 01731	2527		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12476
	04736	0 07400 4 01731	2537		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12486
	05004	0 07400 4 01731	2602		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12551
	05017	0 07400 4 01731	2618		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12567
	05024	0 07400 4 01731	2623		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12572
	05031	0 07400 4 01731	2628		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12577
	05036	0 07400 4 01731	2633		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12582
	05055	0 07400 4 01731	2654		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12603
	05101	0 07400 4 01731	2685		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12634
	05477	0 07400 4 01731	3004		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12954
	05506	0 07400 4 01731	3011		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12961
	05516	0 07400 4 01731	3019		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12969
	05525	0 07400 4 01731	3026		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12976
	05537	0 07400 4 01731	3036	CMA5	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12986
	05555	0 07400 4 01731	3056	LAST	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13006
	05655	0 07400 4 01731	3142		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13090
	05763	0 07400 4 01731	3234		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13182
	06007	0 07400 4 01731	3265		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13213
D	06031	1 00000 0 01731	3287		TXI	CIT,0 * MAKE CIT ENTRY, AND EXIT TO CALLER.	4F13235
	06045	0 07400 4 01731	3306		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13254
	06063	0 07400 4 01731	3320		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY.	4F13268
	06070	0 07400 4 01731	3325	SDA	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13273
	06100	0 07400 4 01731	3333		TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13281

␣␣␣CM1 = 2373

Definition
D 04505 −3 00000 0 04521 4083 CM1 TXL NC2,0 CHAR EXCEEDS IO, SO IS NON-NUMERIC. 4F14025

References (2)

	04466	0 50000 0 04505	4067		CLA	CM1 PICK UP SWITCH CONTROL.	4F14009
	04473	−0 50000 0 04505	4073	NC7	CAL	CM1 PICK UP SWITCH CONTROL.	4F14015

␣␣␣CM2 = 2381

Definition
D 04515 3 00000 0 04536 4091 CM2 TXH NC3,0 SWITCH (NO TRANSFER IF INTEGER). 4F14033
Reference
04474 0 63000 0 04515 4074 IN2 STP CM2 SET SWITCHES CM2, AND 4F14016

␣␣␣CM3 = 2391

Definition
D 04527 3 00000 0 04605 4101 CM3 TXH FN4,0 SWITCH (NO TRANSFER IF INTEGER). 4F14043

References (3)

	04475	0 63000 0 04527	4075	STP	CM3 CM3.	4F14017
D	04522	1 00000 0 04527	4096	TXI	CM3,0 IF GREATER THAN 27, GO OUT.	4F14038
D	04525	1 00000 0 04527	4099	TXI	CM3,0 IF GREATER THAN 21, GO OUT.	4F14041

␣␣␣CMA = 2827

Definition

		2944			END OF PROGRAM RPR.	4F12894
		2945			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12895
		2946				4F12896
		2947			CMA/ CALLS=TYP,DIAG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT,	4F12897
		2948			LTMSW. USES=RSC	4F12898
		2949			CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN.	4F12899
05413	−3 00006 2 05152	2950	CMA	TXL	NXC,2,6 * IF NOTHING COLLECTED, RETURN -SCAN.	4F12900

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

␣␣␣CMB = 2963

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

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

␣␣␣CON = 3168

Definition
3370 4F13318

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

References (3)

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

␣␣␣CPY = 868

Definition
01544 5959 CPY SYN L(CPY) 4F15895

References (3)

05006	0 00000 0 01544	2604	PZE	CPY WORD2-CPY000	4F12553
05021	0 00000 0 01544	2620	PZE	CPY WORD2-CPY000	4F12569
05662	−0 50000 0 01544	3147	CAL	CPY MOVE CPY000	4F13095

␣␣␣CS1 = 2850

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

␣␣␣CS2 = 2854

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

␣␣␣CS3 = 2863

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

␣␣␣CSH = 3159

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

␣␣␣CSJ = 2975

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

References (4)

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

␣␣␣CSZ = 2676

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

␣␣␣CXS = 2662

Definition
2746 CXS = ENTRY POINT FROM EOS, BEG. 4F12696

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

References (2)

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

␣␣␣D12 = 577

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

References (9)

02030	0 70000 0 01101	668		CPY	D12 IF NOT LESS, COPY N1 AND N2.	4F10658
02040	0 70000 0 01101	676		CPY	D12 UNTIL	4F10666
02043	0 70000 0 01101	679	DMSR06	CPY	D12 PASS OVER ENTRY	4F10669
02052	0 36100 0 01101	686		ACL	D12 NEW	4F10676
03100	0 50000 0 01101	1229		CLA	D12 MOVE DIMESIONS 1 AND 2	4F11219
03160	0 50000 0 01101	1277		CLA	D12 OBTAIN	4F11267
05442	0 50000 0 01101	2975	CS1	CLA	D12 PICKUP DIMENSION 1	4F12925
05446	0 56000 0 01101	2979	CS2	LDQ	D12 PICKUP	4F12929
05457	0 56000 0 01101	2988	CS3	LDQ	D12 PICKUP	4F12938

␣␣␣D18 = 822

Definition
01466 5962 D18 SYN DEC18 4F15898
Reference
06074 0 00000 0 01466 3329 PZE D18 WORD4-0(18)000 4F13277

␣␣␣DBC = 3160

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

␣␣␣DBL = 1267

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

References (2)

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

␣␣␣DCF = 952

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

References (2)

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

␣␣␣DED = 870

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

␣␣␣DIC = 3173

Definition

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

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

␣␣␣DMP = 832

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

␣␣␣DOE = 576

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

References (8)

04465	0 60000 0 01100	4066		STZ	DOE CLEAR DOE (IMPLICIT EXPONENT).	4F14008
04472	0 60000 0 01100	4072		STZ	DOE CLEAR DOE (IMPLICIT EXPONENT).	4F14014
04541	0 40000 0 01100	4111	NC9	ADD	DOE TO ADJUST EXPONENT	4F14053
04542	0 60100 0 01100	4112		STO	DOE IN FINAL RESULT.	4F14054
04603	0 40000 0 01100	4145		ADD	DOE WITH IMPLICIT EXPONENT,	4F14087
04604	0 60100 0 01100	4146		STO	DOE AND SAVE IN DOE.	4F14088
04617	0 53400 1 01100	4157		LXA	DOE,1 EXAMINE THE C(DOE), AND	4F14099
04623	0 56000 0 01100	4161	FN2	LDQ	DOE DETERMINE WHETHER INTEGER WAS	4F14103

␣␣␣DVS = 2871

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

References (2)

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

␣␣␣E1C = 616

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

␣␣␣E2C = 577

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

␣␣␣E3C = 578

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

␣␣␣EC1 = 2406

Definition
04546 0 07400 4 01707 4116 EC1 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14058
Reference
D 04526 1 00000 0 04546 4100 TXI EC1,0 IF E, GO TO EXPONENT ROUTINE. 4F14042

␣␣␣EC3 = 2417

Definition
04561 0 50200 0 01101 4127 EC3 CLS EKE IF MINUS, SET EKE TO -0. 4F14069
Reference
D 04553 1 00000 0 04561 4121 TXI EC3,0 IF A DASH, SET EKE MINUS. 4F14063

␣␣␣EC4 = 2420

Definition
04564 −0 75400 0 00000 4130 EC4 PXD ,0 CLEAR ACC, 4F14072

␣␣␣EC5 = 2421

Definition
04565 0 60100 0 01101 4131 EC5 STO EKE SAVE PARTIAL RESULT(OR 0)IN EKE. 4F14073
Reference
D 04601 1 00000 0 04565 4143 TXI EC5,0 CONTINUE UNTIL NON-NUMERIC IS MET. 4F14085

␣␣␣EC6 = 2422

Definition
04566 0 07400 4 01707 4132 EC6 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14074
Reference
D 04556 1 00000 0 04566 4124 TXI EC6,0 IF PLUS, GO EXAMINE NEXT CHAR. 4F14066

␣␣␣ED1 = 1317

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

␣␣␣ED2 = 1314

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

␣␣␣ED3 = 1319

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

References (2)

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

␣␣␣ED4 = 1324

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

␣␣␣EFN = 617

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

␣␣␣EFT = 2614

Definition

		2668			END OF PROGRAM RDD.	4F12617
		2669			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12618
		2670				4F12619
		2671			EFT/ CALLS=GIF,BEG,VRAX,CIT,	4F12620
		2672			EFT PROCESSES WRITE END OF FILE STATEMENTS.	4F12621
05066	−0 50000 0 06123	2673	EFT	CAL	WEF PICKUP WEF000, AND	4F12622

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

␣␣␣EKE = 577

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

References (6)

04550	0 60000 0 01101	4118		STZ	EKE CLEAR EKE (EXPLICIT EXPONENT).	4F14060
04561	0 50200 0 01101	4127	EC3	CLS	EKE IF MINUS, SET EKE TO -0.	4F14069
04565	0 60100 0 01101	4131	EC5	STO	EKE SAVE PARTIAL RESULT(OR 0)IN EKE.	4F14073
04574	0 50000 0 01101	4138		CLA	EKE MULTIPLY THE PREVIOUS	4F14080
04576	0 40000 0 01101	4140		ADD	EKE BY 10,	4F14082
04602	0 50000 0 01101	4144	FN5	CLA	EKE COMBINE EXPLICIT EXPONENT	4F14086

␣␣␣EMK = 2919

Definition

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

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

␣␣␣END = 3169

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

References (4)

04701	0 60200 0 06141	2507	SLW	END INTO END.	4F12456
04761	0 60200 0 06141	2568	SLW	END INTO END.	4F12517
05565	0 00000 0 06141	3064	PZE	END WORD3--(RTN) OR (FIL)	4F13014
05670	0 60200 0 06141	3153	SLW	END INTO END.	4F13101

␣␣␣ENT = 1079

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

References (8)

03403	0 62100 0 02067	1470	STA	ENT PLACE LAST EFN IN DEC OF NTR INSTRUCTION.	4F114573
03426	0 00000 0 02067	1489	PZE	ENT	4F11457M
04674	0 62100 0 02067	2501	STA	ENT ENT (NTR000) TO 81.	4F12450
04740	0 00000 0 02067	2539	PZE	ENT WORD2--NTR0(81, OR UNIT, OR 00)	4F12488
04750	0 62100 0 02067	2553	STA	ENT IF CONSTANT, SET ENT= NTRO(UNIT).	4F12502
04754	0 62100 0 02067	2562	STA	ENT TO NTR000.	4F12511
04767	0 62100 0 02067	2579	STA	ENT IF CONSTANT, SET ENT= NTRO(UNIT).	4F12528
04773	0 62100 0 02067	2588	STA	ENT TO NTR000.	4F12537

␣␣␣EPS = 615

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

References (8)

02440	0 60000 0 01147	922		STZ	EPS CLEAR EPSILON (WORKING STORAGE).	4F10912
02452	−0 60000 0 01147	932		STQ	EPS ACCORDINGLY SET	4F10922
02454	−0 60000 4 01147	934	ED4	STQ	EPS,4 EPSILON SUB I	4F10924
02467	0 50000 0 01146	945		CLA	EPS−1 PICKUP EPSILON SUB 1,	4F10935
02501	0 40000 0 01145	955		ADD	EPS−2 EPSILON SUB 2	4F10945
02507	0 40000 4 01147	961		ADD	EPS,4 DIMENSION 1, AND ADD IN EPSILON	4F10951
02510	0 40000 0 01147	962		ADD	EPS SUB I AND EPSILON.	4F10952
05432	0 50000 0 01147	2967		CLA	EPS AND IF SUBSCRIPT	4F12917

␣␣␣EQS = 2737

Definition

		2833			END OF PROGRAM LPR.	4F12783
		2834			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12784
		2835				4F12785
		2836			EQS/ CALLS=DIAG, USES=RSC	4F12786
		2837			EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN,	4F12787
05261	−0 53400 4 07400	2838	EQS	LXD	DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN,	4F12788

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

␣␣␣ERR = 1396

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

References (6)

02537	−2 00001 2 02564	990	TNX	ERR,2,1 FOR ALL	4F10980
02541	−2 00001 2 02564	992	TNX	ERR,2,1 TABLES	4F10982
02543	−2 00001 2 02564	994	TNX	ERR,2,1 FLOCON*	4F10984
02545	−2 00001 2 02564	996	TNX	ERR,2,1 X	4F10986
02547	−2 00001 2 02564	998	TNX	ERR,2,1 X	4F10988
02551	−2 00001 2 02564	1000	TNX	ERR,2,1 X	4F10990

␣␣␣ETM = 3146

Definition
06112 256344000000 3348 ETM BCD 1ETM000 CONSTANT USED BY IOT, 4F13296
Reference
05755 −0 50000 0 06112 3227 CAL ETM PICKUP ETM00, AND 4F13175

␣␣␣FDA = 1266

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

References (11)

02123	−0 50000 0 02362	738		CAL	FDA X	4F10728
02144	−0 53400 2 02362	755	BUFFM1	LXD	FDA,2	4F10745
02160	0 62100 0 02362	767		STA	FDA	4F10757
02166	0 46000 0 02362	773		LDA	FDA	4F10763
02217	−0 53400 2 02362	798		LXD	FDA,2 L(K*L),K=K.	4F10788
02232	0 40100 0 02362	809		ADM	FDA	4F10799
02233	0 62100 0 02362	810		STA	FDA	4F10800
02236	−0 63400 2 02362	813		SXD	FDA,2 KL = (NL)MOD KL IF NL IS	4F10803
02525	−0 53400 2 02362	980		LXD	FDA,2 SET XR2 = NO. OF WORDS TO COPY.	4F10970
02527	0 46000 0 02362	982		LDA	FDA DRUM ORIGIN OF CURRENT BLOCK.	4F10972
02556	−0 53400 2 02362	1005	RDRXCR	LXD	FDA,2 COMPUTE	4F10995

␣␣␣FIL = 3161

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

␣␣␣FIN = 2923

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

␣␣␣FN1 = 2443

Definition
04613 0 30000 0 04652 4153 FN1 FAD K1 THEN FLOATING ADD THE RESULT 4F14095
Reference
04611 0 10000 0 04613 4151 TZE FN1 IF MORE THAN 15 BITS IN LENGTH 4F14093

␣␣␣FN2 = 2451

Definition
04623 0 56000 0 01100 4161 FN2 LDQ DOE DETERMINE WHETHER INTEGER WAS 4F14103
Reference
04621 −3 00062 1 04623 4159 TXL FN2,1,50 IF GREATER THAN 50, THEN 4F14101

␣␣␣FN3 = 2465

Definition
04641 0 60100 0 01103 4175 FN3 STO N IF INTEGER WAS SITUATED 4F14117
Reference
04624 0 16200 0 04641 4162 TQP FN3 TO THE RIGHT OR TO THE LEFT OF DP, 4F14104

␣␣␣FN4 = 2437

Definition
04605 0 50000 0 01103 4147 FN4 CLA N IF N CONTAINS ZERO, TAKE 4F14089
Reference
D 04527 3 00000 0 04605 4101 CM3 TXH FN4,0 SWITCH (NO TRANSFER IF INTEGER). 4F14043

␣␣␣FN5 = 2434

Definition
04602 0 50000 0 01101 4144 FN5 CLA EKE COMBINE EXPLICIT EXPONENT 4F14086

References (5)

D	04552	1 00000 0 04602	4120	TXI	FN5,0 IF GREATER THAN 32, GO OUT.	4F14062
D	04555	1 00000 0 04602	4123	TXI	FN5,0 IF GREATER THAN 16, GO OUT.	4F14065
D	04560	1 00000 0 04602	4126	TXI	FN5,0 IF GREATER THAN 12, GO OUT.	4F14068
D	04563	1 00000 0 04602	4129	TXI	FN5,0 IF NON-NUMERIC, GO EXAMINE NEXT CH.	4F14071
D	04571	1 00000 0 04602	4135	TXI	FN5,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC.	4F14077

␣␣␣FOR = 2635

Definition

		2705			END OF PROGRAM BSP.	4F12654
		2706			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12655
		2707			FOR/ CALLS=TET00,	4F12657
		2708			FOR PROCESSES FORMAT STATEMENTS.	4F12658
05113	−0 50000 0 00030	2709	FOR	CAL	EIFNO MOVE EXTERNAL FORMULA NUMBER	4F12659

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

␣␣␣FWA = 908

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

References (7)

01672	0 62200 0 01614	545		STD	FWA ADDRESS = -(F-REGION ADDRESS),	4F10535
01676	−0 53400 2 01614	555		LXD	FWA,2 THE PROPER CHARACTER	4F10545
01713	−0 53400 1 01614	574		LXD	FWA,1 PICK UP NEXT FORMULA	4F10564
01716	−0 63400 1 01614	577	C0192	SXD	FWA,1 FORMULA WORD ADDRESS BY 1.	4F10567
05120	−0 53400 2 01614	2714		LXD	FWA,2 SET XR2 = -(CURRENT F-WORD ADDR),	4F12664
04053	−0 53400 4 01614	3785	C3354	LXD	FWA,4 LOAD MQ WITH NEXT F REGION WORD	4F13727
04056	−0 63400 4 01614	3788	C3355	SXD	FWA,4	4F13730

␣␣␣GIF = 1277

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

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

References (4)

04435	0 07400 4 02375	2308	TSX	GIF,4 * GET INTERNAL FORMULA NUMBER, AND	4F12268
05072	0 07400 4 02375	2678	TSX	GIF,4 * GET IFN INTO SL AND TL,	4F12627
05515	0 07400 4 02375	3018	TSX	GIF,4 * GET IFN IN SL AND TL.	4F12968
06006	0 07400 4 02375	3264	TSX	GIF,4 * SET SL = IFN,000.	4F13212

␣␣␣HPR = 876

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

␣␣␣IBC = 2951

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

References (7)

D	05611	1 00000 0 05607	3097	TXI	IBC,0 ) (ILLEGAL CHARACTER IN I/O SETUP).	4F13045
D	05612	1 00000 0 05607	3098	TXI	IBC,0 = (ILLEGAL CHARACTER IN I/O SETUP).	4F13046
D	05613	1 00000 0 05607	3099	TXI	IBC,0 - (ILLEGAL CHARACTER IN I/O SETUP).	4F13047
D	05614	1 00000 0 05607	3100	TXI	IBC,0 / (ILLEGAL CHARACTER IN I/O SETUP).	4F13048
D	05615	1 00000 0 05607	3101	TXI	IBC,0 . (ILLEGAL CHARACTER IN I/O SETUP).	4F13049
D	05616	1 00000 0 05607	3102	TXI	IBC,0 + (ILLEGAL CHARACTER IN I/O SETUP).	4F13050
D	05617	1 00000 0 05607	3103	TXI	IBC,0 * (ILLEGAL CHARACTER IN I/O SETUP).	4F13051

␣␣␣ICC = 2758

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

References (6)

D	05311	1 00000 0 05306	2866	TXI	ICC,0 = (ILLEGAL IN CONTROL FOR LIST DO).	4F12816
D	05312	1 00000 0 05306	2867	TXI	ICC,0 - (ILLEGAL IN CONTROL FOR LIST DO).	4F12817
D	05313	1 00000 0 05306	2868	TXI	ICC,0 / (ILLEGAL IN CONTROL FOR LIST DO).	4F12818
D	05314	1 00000 0 05306	2869	TXI	ICC,0 . (ILLEGAL IN CONTROL FOR LIST DO).	4F12819
D	05315	1 00000 0 05306	2870	TXI	ICC,0 + (ILLEGAL IN CONTROL FOR LIST DO).	4F12820
D	05316	1 00000 0 05306	2871	TXI	ICC,0 * (ILLEGAL IN CONTROL FOR LIST DO).	4F12821

␣␣␣ILC = 2688

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

References (4)

D	05177	1 00000 0 05200	2778	TXI	ILC,0 - (ILLEGAL CHARACTER IN I/O LIST).	4F12728
D	05201	1 00000 0 05200	2780	TXI	ILC,0 . (ILLEGAL CHARACTER IN I/O LIST).	4F12730
D	05202	1 00000 0 05200	2781	TXI	ILC,0 + (ILLEGAL CHARACTER IN I/O LIST).	4F12731
D	05203	1 00000 0 05200	2782	TXI	ILC,0 * (ILLEGAL CHARACTER IN I/O LIST).	4F12732

␣␣␣IN2 = 2364

Definition
04474 0 63000 0 04515 4074 IN2 STP CM2 SET SWITCHES CM2, AND 4F14016
Reference
04467 1 00000 0 04474 4068 EXIT TXI IN2,0,** AND GO SET SWITCH. 4F14010

␣␣␣INT = 2981

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

␣␣␣ISC = 1490

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

References (4)

D	02721	1 00000 0 02722	1116		TXI	ISC,0 ENK (ILLEGAL IN LIST SUBSCRIPT).	4F11106
D	02725	1 00000 0 02722	1120		TXI	ISC,0 = (ILLEGAL IN LIST SUBSCRIPT).	4F11110
D	02727	1 00000 0 02722	1122		TXI	ISC,0 / (ILLEGAL IN LIST SUBSCRIPT).	4F11112
	02730	1 00000 0 02722	1123	SXR1	TXI	ISC,0,** . (ILLEGAL IN LIST SUBSCRIPT).	4F11113

␣␣␣JIF = 1274

Definition

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

References (11)

04541	0 07400 4 02372	2391		TSX	JIF,4 * SET SL TO ALPHA+1.	4F12340
04743	0 07400 4 02372	2542		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12491
05241	0 07400 4 02372	2817	LPR4	TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12767
05255	0 07400 4 02372	2829		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12779
05351	0 07400 4 02372	2904		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12654
05375	0 07400 4 02372	2924		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12874
05476	0 07400 4 02372	3003		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12953
05504	0 07400 4 02372	3009		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F12959
05554	0 07400 4 02372	3054		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F13004
05650	0 07400 4 02372	3137		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL.	4F13085
06077	0 07400 4 02372	3332		TSX	JIF,4 * GO JUMP IFN, AND SET SL AND TL,	4F13280

␣␣␣LCS = 2681

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

␣␣␣LCT = 2679

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

␣␣␣LDA = 877

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

␣␣␣LEV = 3162

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

␣␣␣LIB = 3091

Definition

		3277			END OF PROGRAM INPUT(OUTPUT),	4F13225
		3278			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13226
		3279				4F13227
		3280			LIB,1/ CALLS=TET00,CIT, CALLERS=RDC,EMK,INPUT(OUTPUT),	4F13228
06023	−0 50000 4 00003	3281	LIB	CAL	3,4 MOVE NAME OF SUBROUTINE,	4F13229

References (4)

04717	0 07400 4 06023	2522	TSX	LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE=	4F12471
04731	0 07400 4 06023	2532	TSX	LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE=	4F12481
05562	0 07400 4 06023	3061	TSX	LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE=	4F13011
06014	0 07400 4 06023	3270	TSX	LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE=	4F13218

␣␣␣LIC = 3093

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

␣␣␣LPR = 2693

Definition

		2784			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12734
		2785				4F12735
		2786			LPR/ CALLS=TYP,SS000,RA000,C0190,TEST,.,LTMSW,CIT,JIF,DIAG,	4F12736
		2787			BSS. USES=CMA,RSC,	4F12737
		2788			LPR * ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN.	4F12738
05205	−0 50000 0 07404	2789	LPR	CAL	SYM TEST FOR SUBSCRIPT OR DO NEST.	4F12739

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

␣␣␣LSC = 2661

Definition
2744 LSC = ENTRY POINT FROM SPC. 4F12694

05145 −0 50000 0 05204 2745 LSC CAL LISTR SET CONTROL TRANSFER 4F12695
Reference
05356 3 00000 4 05145 2909 TXH LSC,4,0 * RETURN TO SCAN NEXT LEVEL. 4F12659

␣␣␣LTM = 3147

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

␣␣␣LXD = 881

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

␣␣␣MSK = 810

Definition
01452 6001 MSK SYN MASK2 4F15937

␣␣␣NAR = 1264

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

References (5)

02112	0 50200 0 02360	729		CLS	NAR INITIALIZE	4F10719
02137	−0 53400 1 02360	750		LXD	NAR,1	4F10740
02175	−0 53400 2 02360	780		LXD	NAR,2 (L)	4F10770
02205	−0 50000 0 02360	788	NOWIN	CAL	NAR UPDATE PERMANENT	4F10778
02220	−0 53400 1 02360	799	NEW	LXD	NAR,1 L(L)	4F10789

␣␣␣NC1 = 2372

Definition
04504 0 34000 0 01373 4082 NC1 CAS TEN AND COMPARE WITH TEN. 4F14024
Reference
D 04502 1 00000 0 04504 4080 TXI NC1,0 IF H, GO TO HEXIT, 4F14022

␣␣␣NC2 = 2385

Definition
04521 0 34000 0 01403 4095 NC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. 4F14037
Reference
D 04505 −3 00000 0 04521 4083 CM1 TXL NC2,0 CHAR EXCEEDS IO, SO IS NON-NUMERIC. 4F14025

␣␣␣NC3 = 2398

Definition
04536 0 14000 0 04543 4108 NC3 TOV NC8 IF THERE WAS NO OVERFLOW, 4F14050
Reference
D 04515 3 00000 0 04536 4091 CM2 TXH NC3,0 SWITCH (NO TRANSFER IF INTEGER). 4F14033

␣␣␣NC4 = 2404

Definition
04544 0 50000 0 01407 4114 NC4 CLA L(1) ADD 1 TO DOE , 4F14056
Reference
04516 0 14000 0 04544 4092 TOV NC4 TEST OVERFLOW, AND 4F14034

␣␣␣NC5 = 2367

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

References (3)

	04476	0 14000 0 04477	4076		TOV	NC5 TURN OFF OV TRIGGER.	4F14018
D	04520	1 00000 0 04477	4094		TXI	NC5,0 THEN GO PICK UP NEXT CHARACTER.	4F14036
D	04543	1 00000 0 04477	4113	NC8	TXI	NC5,0 THEN GO PICK UP NEXT CHARACTER.	4F14055

␣␣␣NC7 = 2363

Definition
04473 −0 50000 0 04505 4073 NC7 CAL CM1 PICK UP SWITCH CONTROL. 4F14015
Reference
D 04523 1 00000 0 04473 4097 TXI NC7,0 IF POINT, GO BACK AND SET SWITCH. 4F14039

␣␣␣NC8 = 2403

Definition
D 04543 1 00000 0 04477 4113 NC8 TXI NC5,0 THEN GO PICK UP NEXT CHARACTER. 4F14055
Reference
04536 0 14000 0 04543 4108 NC3 TOV NC8 IF THERE WAS NO OVERFLOW, 4F14050

␣␣␣NC9 = 2401

Definition
04541 0 40000 0 01100 4111 NC9 ADD DOE TO ADJUST EXPONENT 4F14053
Reference
D 04545 1 00000 0 04541 4115 TXI NC9,0 IF THERE WAS INTEGER OVERFLOW. 4F14057

␣␣␣NEW = 1168

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

␣␣␣NFC = 2645

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

␣␣␣NFW = 2647

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

␣␣␣NLA = 3141

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

␣␣␣NLS = 2961

Definition

		3105			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13053
		3106				4F13054
		3107			NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN.	4F13055
05621	0 50000 0 06105	3108	NLS	CLA	NLA IF ENDMARK IS MET,	4F13056

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

␣␣␣NOP = 1408

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

␣␣␣NSJ = 2756

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

References (4)

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

␣␣␣NTL = 1185

Definition
02241 1 00000 0 02216 816 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	811		LXD	NTL,2	4F10801
	02237	−0 63400 2 02241	814		SXD	NTL,2 LESS THAN KL, OTHERWISE KL = K*L,	4F10804

␣␣␣NTR = 3148

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

␣␣␣NXC = 2666

Definition
2752 NXC = ENTRY POINT FROM CMA. 4F12702

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

References (2)

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

␣␣␣NXS = 2663

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

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

References (3)

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

␣␣␣NZE = 1080

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

References (2)

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

␣␣␣OUT = 1191

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

References (2)

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

␣␣␣PDC = 2554

Definition

		2582			END OF PROGRAM WOT.	4F12531
		2583			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12532
		2584				4F12533
		2585			PDC/ CALLS=OUTPUT. USES=RDP.	4F12534
		2586			PROCESSES PUNCH STATEMENTS.	4F12535
04772	−0 75400 0 00000	2587	PDC	PXD	,0 RESET ENT	4F12536

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

␣␣␣PXD = 886

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

␣␣␣RAT = 756

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

References (2)

	05475	0 62200 0 01364	3002		STD	RAT DECREMENT OF RAT. THEN	4F12952
	05503	0 00000 0 01364	3008		PZE	RAT WORD4--0(FIXCON TAG)008	4F12958

␣␣␣RBT = 2570

Definition

		2608			END OF PROGRAM WBT,	4F12557
		2609			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12558
		2610				4F12559
		2611			RBT/ CALLS=INPUT,BRW,CIT,	4F12560
		2612			RBT PROCESSES READ TAPE STATEMENTS.	4F12561
05012	−0 50000 0 06117	2613	RBT	CAL	RTB MOVE RTB000	4F12562

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

␣␣␣RD1 = 2848

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

␣␣␣RD2 = 2852

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

␣␣␣RD3 = 2861

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

␣␣␣RDC = 2491

Definition

		2491			END OF PROGRAM C3400.	4F12440
		2492			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12441
		2493				4F12442
		2494			STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS=	4F12443
		2495				4F12444
		2496			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12445
		2497				4F12446
		2498			RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF.	4F12447
		2499			RDC PROCESSES READ STATEMENTS.	4F12448
04673	0 50000 0 01437	2500	RDC	CLA	A81 SET THE ADDRESS FIELD OF	4F12449

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

␣␣␣RDD = 2611

Definition

		2660			END OF PROGRAM WRD.	4F12609
		2661			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12610
		2662				4F12611
		2663			RDD/ CALLS=INPUT. USES=WRD,	4F12612
		2664			RDD PROCESSES READ DRUM STATEMENTS.	4F12613
05063	0 07400 2 06002	2665	RDD	TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV),	4F12614

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

␣␣␣RDP = 2539

Definition

		2556			END OF PROGRAM RIT.	4F12505
		2557			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12506
		2558				4F12507
		2559			RDP/ CALLS=OUTPUT. USES=RDC.	4F12508
		2560			RDP PROCESSES PRINT STATEMENTS.	4F12509
04753	−0 75400 0 00000	2561	RDP	PXD	,0 RESET ENT	4F12510

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

␣␣␣RDR = 3149

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

␣␣␣REP = 1361

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

␣␣␣REW = 3150

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

␣␣␣RIT = 2533

Definition

		2545			END OF PROGRAM RDC.	4F12494
		2546			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12495
		2547				4F12496
		2548			RIT/ CALLS=INPUT,BEG,VRD. USES=RDC.	4F12497
		2549			RIT PROCESSES READ INPUT TAPE STATEMENTS.	4F12498
04745	0 07400 2 06002	2550	RIT	TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12499

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

␣␣␣RPA = 2825

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

␣␣␣RPR = 2815

Definition

		2926			END OF PROGRAM SPC,	4F12876
		2927			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12877
		2928				4F12878
		2929			RPR/ CALLS=DIAG,USES=CMA,SPC	4F12879
		2930			RPR = ENTRY POINT WHEN RPAREN IS MET IN LIST SCAN.	4F12880
05377	−0 53400 4 07400	2931	RPR	LXD	DOLEV,4 TEST LEGALITY OF ),	4F12881

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

␣␣␣RPS = 2818

Definition
05402 −0 50000 4 07400 2934 RPS CAL DOLEV,4 NULLIFY DO AT CURRENT LEVEL. 4F12884
Reference
05400 3 00000 4 05402 2932 TXH RPS,4,0 IF THERE ARE TOO MANY I IN LIST, 4F12882

␣␣␣RPT = 2823

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

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

␣␣␣RSC = 2657

Definition

		2731			END OF PROGRAM FOR.	4F12681
		2732			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12682
		2733				4F12683
		2734			RSC/ CALLS=C0190,DIAG,	4F12684
		2735			RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS	4F12685
		2736			FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN	4F12686
		2737			COMMON. THEN A TAGGED EXIT IS MADE THROUGH THE BLOCK OF	4F12687
		2738			CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT.	4F12688
		2739			RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC.	4F12689
05141	−0 50000 0 05361	2740	RSC	CAL	FLINE RESET TEMPORARY	4F12690

References (2)

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

␣␣␣RTB = 3151

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

␣␣␣RTN = 3163

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

References (2)

	04700	−0 50000 0 06133	2506		CAL	RTN MOVE (RTN)	4F12455
	05667	−0 50000 0 06133	3152		CAL	RTN MOVE (RTN)	4F13100

␣␣␣RVX = 3134

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

␣␣␣RWN = 2631

Definition

		2691			END OF PROGRAM EFT.	4F12640
		2692			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12641
		2693				4F12642
		2694			RWN/ USES=EFT,	4F12643
		2695			RWN PROCESSES REWIND TAPE STATEMENTS.	4F12644
05107	−0 50000 0 06116	2696	RWN	CAL	REW PICKUP REW000 TO SET OP, AND	4F12645

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

␣␣␣RX4 = 1160

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

References (2)

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

␣␣␣SBC = 1530

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

␣␣␣SBM = 1499

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

␣␣␣SBP = 1500

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

␣␣␣SBR = 1528

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

␣␣␣SBX = 1460

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

␣␣␣SCH = 3164

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

␣␣␣SDA = 3128

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

␣␣␣SET = 758

Definition
01366 1 00000 0 00000 307 SET PON ** 4F10298

References (5)

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

␣␣␣SLW = 3152

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

␣␣␣SMB = 2971

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

␣␣␣SPC = 2770

Definition
2879 SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATION SCAN. 4F12829

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

␣␣␣SPH = 3165

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

␣␣␣STA = 889

Definition
01571 6011 STA SYN L(STA) 4F15951
Reference
06075 −0 50000 0 01571 3330 CAL STA PICKUP STAOOO, AND 4F13278

␣␣␣STD = 3153

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

␣␣␣STH = 3166

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

␣␣␣SYM = 3844

Definition
07404 3486 SYM BSS 1 VARIABLE USED BY IOT. 4F13432

References (11)

05151	0 60000 0 07404	2751		STZ	SYM CLEAR SYMBOL WORKING STORAGE.	4F12701
05165	−0 60200 0 07404	2764		ORS	SYM ALSO, SAVE EACH	4F12714
05205	−0 50000 0 07404	2789	LPR	CAL	SYM TEST FOR SUBSCRIPT OR DO NEST.	4F12739
05212	−0 50000 0 07404	2794		CAL	SYM MOVE SYMBOL	4F12744
05275	−0 50000 0 07404	2850		CAL	SYM OBTAIN SUBSCRIPT	4F12800
05301	−0 50100 0 07404	2854		ORA	SYM LIST DO TABLE.	4F12804
05332	−0 50000 0 07404	2888		CAL	SYM PICKUP VARIABLE SYMBOL AND	4F12838
05417	−0 50000 0 07404	2955		CAL	SYM MOVE VARIABLE SYMBOL	4F12905
05632	−0 60200 0 07404	3119		ORS	SYM LESS THAN 6 CHARACTERS, AND	4F13067
05776	−0 50000 0 07404	3249		CAL	SYM MOVE SYMBOL	4F13197
06050	0 00000 0 07404	3309		PZE	SYM WORD3-(FXD-PT SYMBOL)	4F13257

␣␣␣TAB = 2528

Definition
04740 +136400000000 4240 TAB OCT 136400000000 00-TABLE USED BY ROYCNV. 4F14182

References (2)

	04625	0 24100 1 04740	4163		FDP	TAB,1 IF TO THE RIGHT, DIVIDE BY A	4F14105
	04643	0 26000 1 04740	4177		FMP	TAB,1 MULTIPLY BY A SUITABLE	4F14119

␣␣␣TDA = 1265

Definition
02361 848 TDA BSS 1 WORKING STORAGE USED BY DRTABS. 4F10838

References (9)

02132	0 50000 0 02361	745	CLA	TDA X	4F10735
02133	−0 53400 2 02361	746	LXD	TDA,2 X	4F10736
02157	0 50000 0 02361	766	CLA	TDA CHANGE CHECKSUM ADDRESS.	4F10756
02162	0 62100 0 02361	769	STA	TDA	4F10759
02171	0 46000 0 02361	776	LDA	TDA	4F10766
02176	0 46000 0 02361	781	LDA	TDA NEXT DRUM ENTRY ADDRESS.	4F10771
02212	0 40100 0 02361	793	ADM	TDA N=N+1,TDA=TDA+(L+1) OR (L).	4F10783
02214	−0 53400 2 02361	795	LXD	TDA,2 L(N)	4F10785
02243	−0 53400 2 02361	818	LXD	TDA,2 (N)	4F10808

␣␣␣TDO = 40

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

␣␣␣TEN = 763

Definition

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

References (5)

03557	0 40200 0 01373	1775		SUB	TEN CHECK FOR TEN	4F11727
04504	0 34000 0 01373	4082	NC1	CAS	TEN AND COMPARE WITH TEN.	4F14024
04562	0 34000 0 01373	4128		CAS	TEN COMPARE WITH TEN.	4F14070
04570	0 34000 0 01373	4134		CAS	TEN AND COMPARE WITH TEN.	4F14076
	01373	5995	L(10)	SYN	TEN	4F15931

␣␣␣TIX = 894

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

␣␣␣TOP = 3170

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

References (4)

05761	0 60200 0 06142	3232	SETOP	SLW	TOP SET TOP.	4F13160
05765	0 00000 0 06142	3236		PZE	TOP WORD2--ETM000 OR LTM000	4F13184
06076	0 60200 0 06142	3331	RVX	SLW	TOP SET TOP TO STA OR STD.	4F13279
06102	0 00000 0 06142	3335		PZE	TOP WORD2-STA000 OR STD000	4F13283

␣␣␣TPO = 2615

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

05067 0 60200 0 07401 2675 TPO SLW OP SET OP. 4F12624

References (2)

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

␣␣␣TRA = 1419

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

␣␣␣TRY = 1169

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

References (2)

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

␣␣␣TSA = 3171

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

References (3)

04677	0 60100 0 06143	2505	TSC	STO	TSA SET TSA.	4F12454
04734	0 00000 0 06143	2535		PZE	TSA WORD3--(CSH) OR (TSH)	4F12484
04757	0 60100 0 06143	2566	TSD	STO	TSA SET TSA.	4F12515

␣␣␣TSC = 2495

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

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

␣␣␣TSD = 2543

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

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

References (2)

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

␣␣␣TSH = 3167

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

␣␣␣TTA = 3172

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

References (2)

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

␣␣␣TTC = 2499

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

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

␣␣␣TYP = 2964

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

05624 0 50000 0 07310 3113 TYP CLA CHR−6 TEST FIRST CHARACTER 4F13061

References (3)

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

␣␣␣VDA = 3117

Definition
06055 0 50000 0 06140 3314 VDA CLA CON IF CON 4F13262
Reference
06052 3 00000 0 06055 3311 VRX TXH VDA,0,** SWITCH ITXL=TRA, TXH=NOP), 4F13259

␣␣␣VRA = 3098

Definition

		3288			END OF PROGRAM LIB.	4F13236
		3289			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13237
		3290				4F13238
		3291			VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF,	4F13239
		3292			CALLERS =RIT,WOT,EFT,	4F13240
		3293			VRA = ENTRY POINT USED BY EFT.	4F13241
06032	0 50000 0 02400	3294	VRA	CLA	L(TL) RESET TPOA ADDRESS	4F13242

References (2)

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

␣␣␣VRD = 3102

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

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

References (2)

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

␣␣␣VRX = 3114

Definition
06052 3 00000 0 06055 3311 VRX TXH VDA,0,** SWITCH ITXL=TRA, TXH=NOP), 4F13259

References (3)

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

␣␣␣WBT = 2559

Definition

		2592			END OF PROGRAM PDC.	4F12541
		2593			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12542
		2594				4F12543
		2595			WBT/ CALLS=OUTPUT,BRW,CIT,	4F12544
		2596			WBT PROCESSES WRITE TAPE STATEMENTS,	4F12545
04777	−0 50000 0 06124	2597	WBT	CAL	WTB MOVE WTB000	4F12546

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

␣␣␣WDR = 3154

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

␣␣␣WEF = 3155

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

␣␣␣WOT = 2548

Definition

		2571			END OF PROGRAM RDP,	4F12520
		2572			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12521
		2573				4F12522
		2574			WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP.	4F12523
		2575			PROCESSES WRITE OUTPUT TAPE STATEMENTS.	4F12524
04764	0 07400 2 06004	2576	WOT	TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12525

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

␣␣␣WRD = 2596

Definition

		2639			END OF PROGRAM RBT.	4F12588
		2640			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12589
		2641				4F12590
		2642			WRD/ CALLS=OUTPUT,BRW,CIT,	4F12591
		2643			WRD PROCESSES WRITE DRUM STATEMENTS.	4F12592
05044	0 07400 2 06004	2644	WRD	TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV),	4F12593

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

␣␣␣WTB = 3156

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

␣␣␣XDR = 2598

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

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

␣␣␣XIT = 3157

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

References (4)

05026	0 00000 0 06125	2625	PZE	XIT WORD2-XIT000	4F12574
05040	0 00000 0 06125	2635	PZE	XIT WORD2-XIT000	4F12584
05564	0 00000 0 06125	3063	PZE	XIT WORD2--XIT000	4F13013
06016	0 00000 0 06125	3272	PZE	XIT WORD2--XIT000	4F13220

␣␣␣XR1 = 1373

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

References (2)

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

␣␣␣XR2 = 1147

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

References (2)

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

␣␣␣XR4 = 1165

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

References (3)

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

␣␣␣XRW = 3116

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

References (2)

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

␣␣␣YEA = 1186

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

References (2)

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

␣␣␣ZER = 836

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

␣␣1BAR = 839

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

References (2)

	02376	−0 32000 0 01507	874		ANA	1BAR CLEAR SL, AND	4F10864
	03452	−0 53400 4 01507	3526		LXD	1BAR,4 SET NBAR=-1	4F13469

␣␣2E17 = 811

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

References (4)

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

␣␣2E18 = 812

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

References (14)

01762	0 40000 0 01454	621		ADD	2E18 OF WORDS ENTERED	4F10611
02271	0 40000 0 01454	840		ADD	2E18 OF NUMBER,	4F10830
03411	0 50200 0 01454	1476		CLS	2E18 SET ADDRESS TO -1	4F114579
04523	0 50000 0 01454	2372		CLA	2E18 MAIN PROGRAM. SINCE THIS	4F123293
04073	0 00000 0 01454	5290		HTR	2E18	4F15224
04122	0 40000 0 01454	5313		ADD	2E18	4F15247
04312	0 40200 0 01454	5434		SUB	2E18	4F15373
04343	0 40200 0 01454	5459		SUB	2E18	4F15398
04474	0 40000 0 01454	5549		ADD	2E18 UPDATE EIFNO	4F15493
04734	0 00000 0 01454	5709		HTR	2E18	4F15653
05011	−0 50000 0 01454	5754		CAL	2E18	4F15698
05213	−0 50000 0 01454	5886		CAL	2E18 REPLACE NULL TAG,	4F15830
	01454	5960	D1	SYN	2E18	4F15896
	01454	5998	L(1D)	SYN	2E18	4F15934

␣␣ABAR = 2752

Definition
05300 4250 ABAR BSS 1 4F14191

References (9)

03450	0 60000 0 05300	3524		STZ	ABAR X	4F13467
03621	−0 53400 4 05300	3629		LXD	ABAR,4	4F13572
03640	−0 63400 4 05300	3644	MS213	SXD	ABAR,4	4F13587
03642	−0 53400 4 05300	3646	MS220	LXD	ABAR,4 PERFORM LEVEL ANALYSIS FOR )	4F13589
03647	−0 63400 4 05300	3651	MS221	SXD	ABAR,4	4F13594
03651	−0 53400 4 05300	3653	MS230	LXD	ABAR,4 PERFORM LEVEL ANALYSIS FOE ENDMK,	4F13596
04133	−0 53400 4 05300	3834		LXD	ABAR,C	4F13776
04302	−0 63400 4 05300	3937	LA1040	SXD	ABAR,C	4F13879
04435	−0 63400 4 05300	4028	CM4303	SXD	ABAR,C	4F13970

␣␣ALL1 = 857

Definition
01531 −377777777777 413 ALL1 OCT −377777777777 END OF STATMENT WORD. 4F10404

References (8)

04072	−0 50000 0 01531	3800		CAL	ALL1 GET WORD OF ONES	4F13742
03544	0 00000 0 01531	5075		HTR	ALL1 STRINGS IN 1 AS A PRELUDE TO	4F15009
03545	0 00000 0 01531	5076		HTR	ALL1 FS STATEMENT COMPILATION	4F15010
03546	0 00000 0 01531	5077		HTR	ALL1	4F15011
03547	0 00000 0 01531	5078		HTR	ALL1	4F15012
04162	−0 50000 0 01531	5346		CAL	ALL1 OPEN UNIVARIATE FUNCTION	4F15280
04212	−0 50000 0 01531	5370	CP3000	CAL	ALL1	4F15304
	01531	5938	36ONES	SYN	ALL1	4F15874

␣␣BBOX = 415

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

References (3)

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

␣␣BETA = 2596

Definition
05044 4995 BETA BSS 300 4F14932

References (34)

03447	−0 60000 2 05044	4276	R00500	STQ	BETA,B	4F14214
03457	0 50000 2 05044	4284		CLA	BETA,B	4F14222
03461	0 62200 2 05044	4286		STD	BETA,B	4F14224
03462	0 62100 2 05044	4287		STA	BETA,B	4F14225
03470	0 50000 2 05044	4293		CLA	BETA,B	4F14231
03513	0 60000 3 05044	4312		STZ	BETA,3 REDUCE GAMMA COUNT TO 0	4F14250
03520	0 50000 2 05044	4317	R04500	CLA	BETA,B SET ORIGINS OF SCRIPL TABLE	4F14255
03523	−0 62000 2 05044	4320		SLQ	BETA,B	4F14258
03547	0 50000 2 05044	4340		CLA	BETA,B	4F14278
03561	0 62200 2 05044	4350		STD	BETA,B	4F14288
03572	0 50000 2 05044	4359		CLA	BETA,B	4F14297
03611	0 50000 2 05044	4374		CLA	BETA,B	4F14312
03664	−0 60000 4 05044	4417		STQ	BETA,C	4F14355
03717	0 50000 2 05044	4444		CLA	BETA,B	4F14382
04072	0 50000 2 05044	4551	AS0100	CLA	BETA,B	4F14489
04076	0 62100 2 05044	4555		STA	BETA,B	4F14493
04104	0 50000 2 05044	4561		CLA	BETA,B	4F14499
04117	0 50000 2 05044	4572		CLA	BETA,B	4F14510
04124	0 60100 2 05044	4577	AS2700	STO	BETA,B RECLEAR BETA TABLE	4F14515
04131	0 50000 2 05044	4582		CLA	BETA,B	4F14520
04133	0 62200 2 05044	4584		STD	BETA,B	4F14522
04134	0 62100 2 05044	4585		STA	BETA,B	4F14523
04143	−0 50000 2 05044	4592		CAL	BETA,B OBTAIN LENGTH OF S(I)	4F14530
04173	−0 50000 2 05044	4616		CAL	BETA,B	4F14554
04234	0 50000 4 05044	4649		CLA	BETA,C	4F14587
04374	0 50000 4 05044	4745		CLA	BETA,C	4F14683
04414	0 50000 4 05044	4761		CLA	BETA,C	4F14699
04430	0 50000 2 05044	4773		CLA	BETA,B	4F14711
04436	0 50000 2 05043	4779		CLA	BETA−1,B	4F14717
04633	−0 53400 2 05044	4904	LK1610	LXD	BETA,B IS S(0) A SINGLE ELEMENT	4F14842
04665	0 50000 2 05044	4930		CLA	BETA,B	4F14868
04712	0 50000 2 05044	4951		CLA	BETA,B	4F14889
04723	0 62200 2 05044	4960		STD	BETA,B STORE ERAS. REL, ADD. COUNT IN BETA,	4F14898
04726	0 50000 2 05520	4963	PC0200	CLA	BETA+300,B	4F14901

␣␣BIAS = 1366

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

References (2)

	02120	0 40100 0 02526	735		ADM	BIAS X	4F10725
	02522	3 00000 2 02524	977		TXH	BIAS−2,2,0 IF NOT GREATER THEN ZERO.	4F10967

␣␣BUFF = 1125

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

References (3)

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

␣␣BUFL = 1170

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

␣␣BUFR = 1263

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

References (9)

02533	−0 70000 2 02357	986	LBUF	CAD	BUFR,2 AND COMPUTE	4F10976
02536	0 70000 2 02357	989		CPY	BUFR,2 COPY LOOP	4F10979
02540	0 70000 2 02357	991		CPY	BUFR,2 COPY LOOP	4F10981
02542	0 70000 2 02357	993		CPY	BUFR,2 EXCEPT	4F10983
02544	0 70000 2 02357	995		CPY	BUFR,2 X	4F10985
02546	0 70000 2 02357	997		CPY	BUFR,2 X	4F10987
02550	0 70000 2 02357	999		CPY	BUFR,2 X	4F10989
02552	0 70000 2 02357	1001		CPY	BUFR,2 X	4F10991
02560	0 36100 2 02357	1007		ACL	BUFR,2 LOGICAL	4F10997

␣␣CBAR = 2751

Definition
05277 4249 CBAR BSS 1 4F14190

References (5)

03447	0 60000 0 05277	3523		STZ	CBAR X	4F13466
03634	−0 63400 1 05277	3640		SXD	CBAR,1	4F13583
03645	−0 63400 1 05277	3649		SXD	CBAR,1	4F13592
04276	0 50200 0 05277	3933	LA1000	CLS	CBAR	4F13875
04421	−0 63400 2 05277	4016	CM4102	SXD	CBAR,B	4F13958

␣␣CLOS = 767

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

References (7)

03260	0 40200 0 01377	1359	TESTB1	SUB	CLOS	4F11349
03301	0 34000 0 01377	1380	TESTF0	CAS	CLOS	4F11370
04306	0 40200 0 01377	2201		SUB	CLOS IF NOT 1 DIMENSION,	4F12155
04314	0 40200 0 01377	2207		SUB	CLOS IF NOT 2 DIMENSION,	4F12163
04321	0 40200 0 01377	2212		SUB	CLOS IF MORE THAN 3 DIMENSIONS,	4F12169
05220	0 34000 0 01377	2800		CAS	CLOS	4F12750
	01377	5949	ARPAR	SYN	CLOS	4F15885

␣␣CMA1 = 2828

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

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

References (2)

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

␣␣CMA3 = 2918

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

References (2)

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

␣␣CMA4 = 2832

Definition
05420 0 60200 0 07403 2956 CMA4 SLW SA INTO SA. AND 4F12906

␣␣CMA5 = 2911

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

References (4)

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

␣␣CMA6 = 2836

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

␣␣CMA7 = 2833

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

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

␣␣COMP = 2628

Definition
5813 4F15757

05104 0 07400 4 01731 5814 COMP TSX CIT00,C 4F15758

References (49)

03656	0 07400 2 05104	5149		TSX	COMP,B	4F15083
03713	0 07400 2 05104	5178		TSX	COMP,B	4F15112
03737	0 07400 2 05104	5198		TSX	COMP,B COMPILE DVP SYMJ (S(I))	4F15132
03760	0 07400 2 05104	5215		TSX	COMP,B COMPILE STO 700000	4F15149
03763	0 07400 2 05104	5218		TSX	COMP,B COMPILE CLA 700000	4F15152
03767	0 07400 2 05104	5222		TSX	COMP,B	4F15156
04000	0 07400 2 05104	5231		TSX	COMP,B COMPILE STO 700000	4F15165
04003	0 07400 2 05104	5234		TSX	COMP,B COMPILE LDQ 700000	4F15168
04013	0 07400 2 05104	5242		TSX	COMP,B COMPILE MPY SYMJ(S(I))	4F15176
04024	0 07400 2 05104	5251		TSX	COMP,B COMPILE FMP SYMJ(S(I))	4F15185
04055	0 07400 2 05104	5276		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15210
04100	0 07400 2 05104	5295		TSX	COMP,B COMPILE LDQ SYM3(S(I))	4F15229
04113	0 07400 2 05104	5306		TSX	COMP,B COMPILE CLA SYMJ(S(I)), J=4,...	4F15240
04134	0 07400 2 05104	5323		TSX	COMP,B COMPILE SXD 7...TYPE NO. , 4	4F15257
04141	0 07400 2 05104	5328		TSX	COMP,B COMPILE TSX SYMI(S(I)),4	4F15262
04156	0 07400 2 05104	5342		TSX	COMP,B COMPILE FUNCTION NAME	4F15276
04176	0 07400 2 05104	5358	CP2880	TSX	COMP,B COMPILE ACC OR MQ INDICATOR	4F15292
04210	0 07400 2 05104	5368		TSX	COMP,B COMPILE SYMJ(S(I))	4F15302
04214	0 07400 2 05104	5372		TSX	COMP,B COMPILE LAST ARGUMENT NAME	4F15306
04231	0 07400 2 05104	5385		TSX	COMP,B COMPILE SXD7...0,4	4F15319
04236	0 07400 2 05104	5390		TSX	COMP,B COMPILE TSX SYMI(S(I)),4	4F15324
04243	0 07400 2 05104	5395		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15334
04256	0 07400 2 05104	5406		TSX	COMP,B COMPILE LDQ SYM3(S(I))	4F15345
04267	0 07400 2 05104	5415		TSX	COMP,B COMPILE CLA SYM2(S(I))	4F15354
04303	0 07400 2 05104	5427		TSX	COMP,B COMPILE LDQ SYMJ(S(I))	4F15366
04314	0 07400 2 05104	5436		TSX	COMP,B COMPILE STQ 4...0-(J-2)	4F15375
04334	0 07400 2 05104	5452		TSX	COMP,B COMPILE CLA SYMJ(S(I))	4F15391
04345	0 07400 2 05104	5461		TSX	COMP,B COMPILE STO 4...0-(J-2)	4F15400
04360	0 07400 2 05104	5472		TSX	COMP,B COMPILE CLASYM2(S(I))	4F15411
04406	0 07400 2 05104	5494		TSX	COMP,B COMPILE BASE	4F15433
04412	0 07400 2 05104	5498		TSX	COMP,B COMPILE FIX PT CONSTANT EXPONENT	4F15437
04424	0 07400 2 05104	5508		TSX	COMP,B COMPILE LDQ SYM2 (S(I))	4F15447
04433	0 07400 2 05104	5515		TSX	COMP,B COMPILE SXD 7...0.4	4F15454
04456	0 07400 2 05104	5534		TSX	COMP,B COMPILE TSX FXFX/FLEX/FLFL,4	4F15473
04465	0 07400 2 05104	5541		TSX	COMP,B COMPILE CLA SYMI(S(I))	4F15485
04524	0 07400 2 05104	5573		TSX	COMP,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I))	4F15517
04550	0 07400 2 05104	5593		TSX	COMP,B COMPILE STA IFN+STAIX	4F15537
04561	0 07400 2 05104	5602		TSX	COMP,B COMPILE SXD 7,4	4F15546
04571	0 07400 2 05104	5610		TSX	COMP,B COMPILE TSX SYMI(S(I)),4	4F15554
04607	0 07400 2 05104	5624	CP5720	TSX	COMP,B COMPILE TSX SYMJ(S(I)) , J=2,,.,	4F15568
04640	0 07400 2 05104	5649		TSX	COMP,B COMPILE STO/STQ 1... TYPE NO + PHI(I)	4F15593
04701	0 07400 2 05104	5682		TSX	COMP,B COMPILE STO/STQ LEFT+2	4F15626
04712	0 07400 2 05104	5691		TSX	COMP,B COMPILE STQ 700000	4F15635
04715	0 07400 2 05104	5694		TSX	COMP,B COMPILE CLA 700000	4F15638
04761	0 07400 2 05104	5730		TSX	COMP,B COMPILE STQ 700000	4F15674
04764	0 07400 2 05104	5733		TSX	COMP,B COMPILE CLA 700000	4F15677
05014	0 07400 2 05104	5757		TSX	COMP,B COMPILE TRA 1,4	4F15701
05034	0 07400 2 05104	5773		TSX	COMP,B COMPILE STQ 700000	4F15717
05037	0 07400 2 05104	5776		TSX	COMP,B COMPILE CLA 700000	4F15720

␣␣CONX = 1212

Definition
843 4F10833

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

␣␣D3CN = 817

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

␣␣DIAG = 1792

Definition

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

References (83)

	01635	0 07400 4 03400	503		TSX	DIAG,4 * GO TO THE DIAGNOSTIC.	4F10494
	01643	0 07400 4 03400	509	C0166	TSX	DIAG,4 * OR ILLEGAL, GO TO THE DIAGNOSTIC.	4F10500
	02034	0 07400 4 03400	672		TSX	DIAG,4 * GO TO DIGNOSTIC - MACHINE ERROR.	4F10662
	02062	0 07400 4 03400	694		TSX	DIAG,4 * FAILED 5 TIMES IN READING DRUM.	4F10684
	02266	0 07400 4 03400	837		TSX	DIAG,4 * GOT TO DIAGNOSTIC.	4F10827
D	02273	1 00000 0 03400	842		TXI	DIAG,0 * GO TO DIAGNOSTIC.	4F10832
	02432	1 75346 4 03400	910	MTRERR	TXI	DIAG,4,−MTRERR * GO TO DIAGNOSTIC AFTER 5 FAILURES.	4F10900
	02523	0 07400 4 03400	978		TSX	DIAG,4 * GO TO DIAGNOSTIC.	4F10968
	02565	0 07400 4 03400	1012		TSX	DIAG,4 * FAILED 5 TIMES IN READING DRUM.	4F11002
	02577	0 07400 4 03400	1027		TSX	DIAG,4 * IF NON-NUMERIC - GO TO DIAGNOSTIC.	4F11017
	02656	0 07400 4 03400	1080		TSX	DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.	4F11070
	02666	0 07400 4 03400	1088		TSX	DIAG,4 * DOUBLE MULTIPLIER FOR SUBSCRIPT.	4F11078
	02673	0 07400 4 03400	1093		TSX	DIAG,4 * SUBS-MULTIPLER NOT A CONSTANT.	4F11083
	02720	0 07400 4 03400	1114	STOP49	TSX	DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER.	4F11104
	02722	0 07400 4 03400	1117	ISC	TSX	DIAG,4 * ( (ILLEGAL IN LIST SUBSCRIPT).	4F11107
	02741	0 07400 4 03400	1133		TSX	DIAG,4 * DOUBLE ADDEND FOR SUBSCRIPT,	4F11123
	02744	0 07400 4 03400	1136		TSX	DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.	4F11126
	02764	0 07400 4 03400	1152		TSX	DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.	4F11142
	03023	0 07400 4 03400	1183		TSX	DIAG,4 * SUBSCRIPT ADDEND NOT A CONSTANT.	4F11173
	03026	0 07400 4 03400	1186		TSX	DIAG,4 * GO TO DIAG - NO ) AFTER 3RD SUBS.	4F11176
	03064	0 07400 4 03400	1217		TSX	DIAG,4 * --ERROR...NOT ON DRUM,	4F11207
	03151	0 07400 4 03400	1270		TSX	DIAG,4 * --ERROR...NOT ON DRUM.	4F11260
	03254	0 07400 4 03400	1354		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11344
	03262	0 07400 4 03400	1361		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11351
	03270	0 07400 4 03400	1368		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11358
	03272	0 07400 4 03400	1371	ERR77P	TSX	DIAG,4 * MACHINE ERROR, GO TO DIAGNOSTIC.	4F11361
	03274	0 07400 4 03400	1373		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11363
	03300	0 07400 4 03400	1378	TESTE1	TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11368
	03304	0 07400 4 03400	1383	TESTF1	TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11373
	03310	0 07400 4 03400	1388	TESTG1	TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11378
	03314	0 07400 4 03400	1393		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11383
	03316	0 07400 4 03400	1396		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11386
	00553	0 07400 4 03400	1571		TSX	DIAG,4 * STATE A CANNOT BE WRITTEN ON DRUM1.	4F11526
	00560	0 07400 4 03400	1576		TSX	DIAG,4 * STATE D CANNOT BE WRITTEN ON DRUM2.	4F11531
	00563	0 07400 4 03400	1579		TSX	DIAG,4 * STATE B CANNOT BE WRITTEN ON DRUM3.	4F11534
	00566	0 07400 4 03400	1582		TSX	DIAG,4 * STATE C CANNOT BE WRITTEN ON DRUM4.	4F11537
	00570	0 02000 0 03400	1584		TRA	DIAG * PRINT END LINE AND STOP	4F11539
	03441	−3 00000 4 03400	1692		TXL	DIAG,4,0 * PROCESSED, THE GO CALL DIAGNOSTIC.	4F11644
	03542	0 07400 4 03400	1762		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11714
	03545	0 07400 4 03400	1765		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11717
	03550	0 07400 4 03400	1768		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11720
	03553	0 07400 4 03400	1771		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11723
	03556	0 07400 4 03400	1774		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11726
	03561	0 07400 4 03400	1777		TSX	DIAG,4 * ERROR -- GO TO DIAGNOSTIC.	4F11729
	03615	0 07400 4 03400	1810		TSX	DIAG,4 * ERROR-GO TO DIAGNOSTIC ROUTINE.	4F11762
	03624	0 07400 4 03400	1822		TSX	DIAG,4 * ERROR = NOT FOUND IN DICTIONARY.	4F11774
	04055	0 07400 4 03400	1997		TSX	DIAG,4 * PROGRAM ERROR, GO TO DIAGNOSTIC.	4F11949
	04225	0 07400 4 03400	2142		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12095
	04304	0 07400 4 03400	2199	C1299	TSX	DIAG,4 * VARIABLE PREVIOUSLY APPEARED.	4F12153
	04323	0 07400 4 03400	2214		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12171
	04444	0 07400 4 03400	2320		TSX	DIAG,4 * ERROR - GO TO DIAGNOSTIC.	4F12280
	04544	0 07400 4 03400	2394		TSX	DIAG,4 * ERROR - GO TO THE DIAGNOSTIC.	4F12343
	04663	0 07400 4 03400	2483		TSX	DIAG,4 * OTHERWISE, GO TO THE DIAGNOSTIC.	4F12432
	04705	0 07400 4 03400	2512		TSX	DIAG,4 * ATTEMPT TO USE VARIABLE FORMAT NO.	4F12461
	04707	0 07400 4 03400	2514		TSX	DIAG,4 * NO FORMAT NUMBER GIVEN.	4F12463
	05170	0 07400 4 03400	2767		TSX	DIAG,4 * MORE THAN 6 CHARACTERS IN SYMBOL,	4F12717
	05200	0 07400 4 03400	2779	ILC	TSX	DIAG,4 * / (ILLEGAL CHARACTER IN I/O LIST).	4F12729
	05260	0 07400 4 03400	2832		TSX	DIAG,4 * OTHERWISE, GO TO DIAGNOSTIC	4F12782
	05263	0 07400 4 03400	2840		TSX	DIAG,4 * SPECIFY SUBSCRIPT RANGE WITHOUT (.	4F12790
	05305	0 07400 4 03400	2862		TSX	DIAG,4 * E (ILLEGAL IN CONTROL FOR LIST DO).	4F12812
	05306	0 07400 4 03400	2863	ICC	TSX	DIAG,4 * ( (ILLEGAL IN CONTROL FOR LIST DO).	4F12813
	05401	0 07400 4 03400	2933		TSX	DIAG,4 * GO TO THE DIAGNOSTIC	4F12883
	05416	0 07400 4 03400	2954	ERRC	TSX	DIAG,4 * GO TO THE DIAGNOSTIC	4F12904
	05552	0 07400 4 03400	3052		TSX	DIAG,4 * GO TO THE DIAGNOSTIC OTHERWISE,	4F13002
	05607	0 07400 4 03400	3095	IBC	TSX	DIAG,4 * ( (ILLEGAL CHARACTER IN I/O SETUP).	4F13043
	05715	0 07400 4 03400	3185		TSX	DIAG,4 * FAILED 5 TIMES IN READING TAPE 2.	4F13133
	06042	0 07400 4 03400	3303		TSX	DIAG,4 * ILLEGAL USE OF FLOATING VARIABLE.	4F13251
	03527	0 07400 4 03400	3571	MS074	TSX	DIAG,4 BUILD G, 7TH CHAR IS ERROR.	4F13514
	03602	0 07400 4 03400	3614		TSX	DIAG,4 BEGINS NUMERIC, ERROR,	4F13557
	03613	0 07400 4 03400	3623		TSX	DIAG,4 YES, ERROR.	4F13566
	03615	0 07400 4 03400	3625		TSX	DIAG,4 HOLLERITH RETURN, ERROR.	4F13568
	03654	0 07400 4 03400	3656		TSX	DIAG,4 NO, ERROR.	4F13599
	03671	0 07400 4 03400	3669	MSERR=	TSX	DIAG,4 =	4F13612
	03724	0 07400 4 03400	3697		TSX	DIAG,4 .	4F13640
	04046	0 07400 4 03400	3780		TSX	DIAG,4 YES, ERROR, GO TO DIAGNOSTIC.	4F13722
	04136	0 07400 4 03400	3837		TSX	DIAG,4 ERROR..LAMBDA TABLE EXCEEDED.	4F13779
	04140	0 07400 4 03400	3839		TSX	DIAG,4 ERROR.,BETA TABLE EXCEEDED	4F13781
	04143	0 07400 4 03400	3842		TSX	DIAG,4 ERROR..ALPHA TABLE EXCEEDED	4F13784
	04647	0 07400 4 03400	4181	CER	TSX	DIAG,4 * CONVERSION ERROR, GO TO DIAGNOSTIC.	4F14123
	04347	0 07400 4 03400	4724		TSX	DIAG,4 * GO TO THE DIAGNOSTIC	4F14662
	03501	0 07400 4 03400	5039		TSX	DIAG,4 ERROR.. FLO PT LITE ON	4F14973
	03503	0 07400 4 03400	5041		TSX	DIAG,4 ERROR.. FLO PT LITE OFF	4F14975
	05233	0 07400 4 03400	5902		TSX	DIAG,4 ERROR SIGMA1 CKSUM FAILS	4F15846

␣␣DIM1 = 200

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

References (2)

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

␣␣DIM2 = 500

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

References (2)

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

␣␣DIM3 = 800

Definition
01440 5971 DIM3 SYN 0800 DRUM TABLE ORIGIN -DRTABS,DIM,SR. 4F15907

References (2)

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

␣␣DUMP = 1269

Definition
02365 853 DUMP BSS 1 WORKING STORAGE USED BY DRTABS. 4F10843

References (11)

02156	0 60000 0 02365	765	ADD04	STZ	DUMP START NEW BLOCK CHECKSUM.	4F10755
02163	−0 50000 0 02365	770	ADD05	CAL	DUMP	4F10760
02165	0 60200 0 02365	772		SLW	DUMP CHECKSUM FOR THIS BLOCK.	4F10762
02167	0 70000 0 02365	774		CPY	DUMP WRITE BLOCK CHECKSUM ON DRUM.	4F10764
02203	0 60200 0 02365	786		SLW	DUMP COMPUTE AND	4F10776
02204	0 70000 0 02365	787		CPY	DUMP WRITE CHECKSUM FOR NEW ENTRY.	4F10777
02531	−0 70000 0 02365	984		CAD	DUMP READ	4F10974
02554	−0 70000 0 02365	1003	ETSUM	CAD	DUMP SUM CHECKSUMS.	4F10993
05226	−0 70000 0 02365	5897		CAD	DUMP	4F15841
05230	−0 70000 0 02365	5899		CAD	DUMP	4F15843
05234	−0 50000 0 02365	5903		CAL	DUMP	4F15847

␣␣EBLK = 1148

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

␣␣ENDA = 3783

Definition

	3476			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13422
	3477				4F13423
07307	3478	ENDA	ORG	3783	4F13424

Reference
00001 0 00000 0 07306 1605 PZE ENDA−1 4F115573

␣␣ENDB = 2701

Definition
4246 4F14187

05215 4247 ENDB ORG 2701 4F14188
Reference
00001 0 00000 0 05214 3499 PZE ENDB−1 4F134423

␣␣ENDC = 2596

Definition
4993 4F14930

05044 4994 ENDC ORG 2596 4F14931
Reference
00001 0 00000 0 05043 4264 PZE ENDC−1 4F142023

␣␣ENDD = 3184

Definition
5917 4F15853

06160 5918 ENDD ORG 3184 4F15854
Reference
00001 0 00000 0 06157 5003 PZE ENDD−1 4F149373

␣␣EQS1 = 2754

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

References (2)

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

␣␣EQS2 = 2740

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

␣␣ERRC = 2830

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

␣␣EXIT = 2359

Definition
04467 1 00000 0 04474 4068 EXIT TXI IN2,0,** AND GO SET SWITCH. 4F14010

References (4)

04464	−0 63400 4 04467	4065		SXD	EXIT,4 SAVE C(XR4) FOR RETURN.	4F14007
04471	−0 63400 4 04467	4071		SXD	EXIT,4 SAVE C(XR4) FOR RETURN.	4F14013
04637	−0 53400 4 04467	4173		LXD	EXIT,4 RESTORE THE C(XR4), AND	4F14115
04650	−0 53400 4 04467	4182	HEXIT	LXD	EXIT,4 RESTORE THE C(XR4), AND	4F14124

␣␣FEOD = 580

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

␣␣FINI = 2935

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

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

␣␣FLFL = 846

Definition
01516 256747740360 402 FLFL BCD 1EXP(3␣ 4F10393
Reference
04442 0 50000 0 01516 5522 CLA FLFL 1... FLO**FLO 4F15461

␣␣FLFX = 845

Definition
01515 256747740260 401 FLFX BCD 1EXP(2␣ 4F10392
Reference
04453 0 50000 0 01515 5531 CLA FLFX 1... FL**FX 4F15470

␣␣FNSW = 3184

Definition
06160 5919 FNSW BSS 1 4F15855

References (3)

03540	0 60000 0 06160	5071		STZ	FNSW	4F15005
04476	0 60100 0 06160	5551		STO	FNSW SET FN SWITCH	4F15495
05064	0 50000 0 06160	5797	ES1590	CLA	FNSW	4F15741

␣␣FRET = 100

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

␣␣FXFX = 844

Definition
01514 256747740160 400 FXFX BCD 1EXP(1␣ 4F10391
Reference
04451 0 50000 0 01514 5529 CLA FXFX 4F15468

␣␣GTAG = 745

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

References (10)

02472	0 60100 0 01351	948	STO	GTAG TO EPSILON SUB 1 - ADDEND 3.	4F10938
02477	0 20000 0 01351	953	MPY	GTAG DIMENSION 2 TIMES GTAG.	4F10943
02504	0 60100 0 01351	958	STO	GTAG MULTIPLY	4F10948
02505	0 20000 0 01351	959	MPY	GTAG THE RESULT	4F10949
02512	0 60100 0 01351	964	STO	GTAG AND PLACE THE RESULT	4F10954
02515	0 62100 0 01351	967	STA	GTAG IN THE ADDRESS.	4F10957
05144	0 60000 0 01351	2743	STZ	GTAG CLEAR GENERALIZED TAG.	4F12693
05427	0 50000 0 01351	2964	CLA	GTAG SET GENERALIZED TAG*	4F12914
05545	0 60000 0 01351	3042	STZ	GTAG CLEAR GTAG. THEN TAKE EXIT	4F12992
04453	−0 50000 0 01351	4049	CAL	GTAG	4F13991

␣␣HOLL = 2072

Definition
04030 0 60000 0 01124 3766 HOLL STZ CHSAVE CLEAR CHSAVE 4F13708
Reference
03502 0 02000 0 04030 3550 TRA HOLL RETURN 1, THIS WAS HOLLERITH. 4F13493

␣␣L(0) = 774

Definition
329 4F10320

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

References (128)

01613	0 50000 0 01406	476		CLA	L(0) PREPARE TO SET I TO +0.	4F10467
01617	0 50200 0 01406	480		CLS	L(0) PREPARE TO SET I TO -0.	4F10471
01625	0 53400 2 01406	495		LXA	L(0),2 SET XR2 TO CONTROL SHIFTING.	4F10486
02246	0 53400 2 01406	821		LXA	L(0),2	4F10811
02453	0 56000 0 01406	933		LDQ	L(0) EPSILON AND	4F10923
03367	−0 53400 2 01406	1444		LXD	L(0),2 SET XR2 = 0. THEN	4F11434
03425	0 00000 0 01406	1488		PZE	L(0) COMPILE NTR *+2,0,EFN	4F11457L
03432	0 00000 0 01406	1493		PZE	L(0) COMPILE PZE ALPHA,0,IFN	4F11457Q
00567	0 53400 4 01406	1583	DMWR88	LXA	L(0),4 SET IR4 TO 0 TO CAUSE DIAGNOSTIC TO	4F11538
03617	0 53400 3 01406	1817		LXA	L(0),3 CHARACTER COUNT AND ENTRY COUNT.	4F11769
04002	0 00000 0 01406	1947		PZE	L(0) WORD 4--00000 (REL ADDR AND TAG).	4F11899
04026	0 00000 0 01406	1967		PZE	L(0) WORD 3--000000(ADDRESS)	4F11919
04145	0 00000 0 01406	2060		PZE	L(0) WORD3--000000 (ADDRESS)	4F12012
04213	0 00000 0 01406	2126		PZE	L(0) WORD3--000000 (ADDRESS)	4F12078
04241	0 00000 0 01406	2154		PZE	L(0) WORD3--000000 (ADDRESS)	4F12107
04242	0 00000 0 01406	2155		PZE	L(0) WORD4--000000 (RELADDR AND TAG).	4F12108
04244	0 00000 0 01406	2157		PZE	L(0) WORD1--000000 (ALL ZEROS)	4F12110
04247	0 00000 0 01406	2160		PZE	L(0) WORD4--000000 (REL ADDR AND TAG).	4F12113
04263	0 00000 0 01406	2177		PZE	L(0) WORD3--000000 (ADDRESS PART)	4F12131
04347	0 00000 0 01406	2239		PZE	L(0) WORD1--ALL ZEROS	4F12196
04352	0 00000 0 01406	2242		PZE	L(0) WORD4--ZEROS (REL ADDR AND TAG)	4F12199
04553	0 00000 0 01406	2401		PZE	L(0) WORD4--000000	4F12350
04563	0 00000 0 01406	2409		PZE	L(0) WORD1--000000	4F12358
04570	0 00000 0 01406	2414		PZE	L(0) WORD1--000000	4F12363
04577	0 00000 0 01406	2421		PZE	L(0) WORD3--000000	4F12370
04602	0 00000 0 01406	2424		PZE	L(0) WORD1--000000	4F12373
04605	0 00000 0 01406	2427		PZE	L(0) WORD4--000000	4F12376
04646	0 00000 0 01406	2465		PZE	L(0) WORD1--000000	4F12414
04653	0 00000 0 01406	2470		PZE	L(0) WORD1--000000	4F12419
04720	0 00000 0 01406	2523		PZE	L(0) WORD1--000000	4F12472
04723	0 00000 0 01406	2526		PZE	L(0) WORD4--000000	4F12475
04725	0 00000 0 01406	2528		PZE	L(0) WORD1--000000	4F12477
04727	0 00000 0 01406	2530		PZE	L(0) WORD3--000000	4F12479
04732	0 00000 0 01406	2533		PZE	L(0) WORD1--000000	4F12482
04735	0 00000 0 01406	2536		PZE	L(0) WORD4--000000	4F12485
04742	0 00000 0 01406	2541		PZE	L(0) WORD4--000000	4F12490
05005	0 00000 0 01406	2603		PZE	L(0) WORD1-000000	4F12552
05020	0 00000 0 01406	2619		PZE	L(0) WORD1-000000	4F12568
05023	0 00000 0 01406	2622		PZE	L(0) WORD4-000000	4F12571
05025	0 00000 0 01406	2624		PZE	L(0) WORD1-000000	4F12573
05032	0 00000 0 01406	2629		PZE	L(0) WORD1-000000	4F12578
05034	0 00000 0 01406	2631		PZE	L(0) WORD3-000000	4F12580
05035	0 00000 0 01406	2632		PZE	L(0) WORD4-000000	4F12581
05037	0 00000 0 01406	2634		PZE	L(0) WORD1-000000	4F12583
05042	0 00000 0 01406	2637		PZE	L(0) WORD4-000000	4F12586
05056	0 00000 0 01406	2655		PZE	L(0) WORD1--000000	4F12604
05061	0 00000 0 01406	2658		PZE	L(0) WORD4--000000	4F12607
05104	0 00000 0 01406	2688		PZE	L(0) WORD3--000000	4F12637
05517	0 00000 0 01406	3020		PZE	L(0) WORD1--000000	4F12970
05526	0 00000 0 01406	3027		PZE	L(0) WORD1--000000	4F12977
05530	0 00000 0 01406	3029		PZE	L(0) WORD3--000000	4F12979
05561	0 00000 0 01406	3060		PZE	L(0) WORD4--000000	4F13010
05563	0 00000 0 01406	3062		PZE	L(0) WORD1--000000	4F13012
05566	0 00000 0 01406	3065		PZE	L(0) WORD4--000000	4F13015
05660	0 00000 0 01406	3145		PZE	L(0) WORD3--000000	4F13093
05677	0 00000 0 01406	3165		PZE	L(0) WORD3--000000	4F13113
05700	0 00000 0 01406	3166		PZE	L(0) WORD4--000000	4F13114
05766	0 00000 0 01406	3237		PZE	L(0) WORD3--000000	4F13165
05767	0 00000 0 01406	3238		PZE	L(0) WORD4--000000	4F13186
06013	0 00000 0 01406	3269		PZE	L(0) WORD4--000000	4F13217
06015	0 00000 0 01406	3271		PZE	L(0) WORD1--000000	4F13219
06020	0 00000 0 01406	3274		PZE	L(0) WORD4--000000	4F13222
06051	0 00000 0 01406	3310		PZE	L(0) WORD4-000000	4F13258
06064	0 00000 0 01406	3321		PZE	L(0) WORD1-000000	4F13269
06071	0 00000 0 01406	3326		PZE	L(0) WORD1-000000	4F13274
06073	0 00000 0 01406	3328		PZE	L(0) WORD3-000000	4F13276
06101	0 00000 0 01406	3334		PZE	L(0) WORD1- 00600	4F13282
06104	0 00000 0 01406	3337		PZE	L(0) WORD4-000000	4F13285
03470	0 50200 0 01406	3540		CLS	L(0) SET E = -0	4F13483
04100	0 53400 1 01406	3807	LA0000	LXA	L(0),A	4F13749
04273	0 50200 0 01406	3930		CLS	L(0)	4F13872
04321	0 50200 0 01406	3952		CLS	L(0)	4F13894
04331	0 50200 0 01406	3960		CLS	L(0)	4F13902
04404	0 50200 0 01406	4003		CLS	L(0)	4F13945
03440	0 56000 0 01406	4269	R00000	LDQ	L(0) CLEAR MQ	4F14207
03446	0 53400 7 01406	4275		LXA	L(0),7 CLEAR XA,XB,XC,	4F14213
03517	0 53400 7 01406	4316		LXA	L(0),7 CLEAR XA,XB,XC	4F14254
03544	0 53400 1 01406	4337		LXA	L(0),A	4F14275
03564	0 56000 0 01406	4353	CS0000	LDQ	L(0) ELIMINATE COMMON SEGMENTS	4F14291
03675	0 53400 5 01406	4426	CS0660	LXA	L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE	4F14364
03714	0 53400 1 01406	4441		LXA	L(0),A PERMUTE * AND /	4F14379
03740	0 53400 4 01406	4461		LXA	L(0),C LDXC WITH 0	4F14399
04071	0 53400 7 01406	4550	AS0000	LXA	L(0),7 RENUMBER SEGMENT OF SCRIPL	4F14488
04122	0 53400 3 01406	4575	AS2500	LXA	L(0),3 LDXA,XB WITH 0	4F14513
04123	0 56000 0 01406	4576		LDQ	L(0) CLEAR MQ	4F14514
04153	0 53400 4 01406	4600		LXA	L(0),C TO S(I)	4F14538
04261	0 53400 2 01406	4670		LXA	L(0),B	4F14608
04706	0 53400 4 01406	4947	PC0030	LXA	L(0),C YES	4F14885
03442	0 53400 1 01406	5008		LXA	L(0),A	4F14942
03724	0 00000 0 01406	5187		HTR	L(0)	4F15121
03726	0 00000 0 01406	5189		HTR	L(0)	4F15123
03741	0 00000 0 01406	5200		HTR	L(0)	4F15134
03743	0 00000 0 01406	5202		HTR	L(0)	4F15136
03744	0 00000 0 01406	5203		HTR	L(0)	4F15137
03746	0 00000 0 01406	5205		HTR	L(0)	4F15139
03750	0 00000 0 01406	5207		HTR	L(0)	4F15141
04015	0 00000 0 01406	5244		HTR	L(0)	4F15178
04017	0 00000 0 01406	5246		HTR	L(0)	4F15180
04045	0 00000 0 01406	5268		HTR	L(0) COMPILE STO 4...TYPE NO. + 0	4F15202
04050	0 00000 0 01406	5271		HTR	L(0)	4F15205
04070	0 00000 0 01406	5287		HTR	L(0) COMPILE STO 4...TYPE NO, + 1	4F15221
04115	0 00000 0 01406	5308		HTR	L(0)	4F15242
04527	0 00000 0 01406	5576		HTR	L(0)	4F15520
04531	0 00000 0 01406	5578		HTR	L(0)	4F15522
04534	0 00000 0 01406	5581		HTR	L(0)	4F15525
04603	0 56000 0 01406	5620		LDQ	L(0) GENERAL TAG PRESENT	4F15564
04616	0 00000 0 01406	5631		HTR	L(0)	4F15575
04717	0 00000 0 01406	5696		HTR	L(0) RESULT ON RIGHT IS IN ACC.	4F15640
04722	0 00000 0 01406	5699		HTR	L(0)	4F15643
04724	0 00000 0 01406	5701		HTR	L(0)	4F15645
04726	0 00000 0 01406	5703		HTR	L(0)	4F15647
04727	0 00000 0 01406	5704		HTR	L(0)	4F15648
04731	0 00000 0 01406	5706		HTR	L(0)	4F15650
04736	0 00000 0 01406	5711		HTR	L(0)	4F15655
04740	0 00000 0 01406	5713		HTR	L(0)	4F15657
04741	0 00000 0 01406	5714		HTR	L(0)	4F15658
04743	0 00000 0 01406	5716		HTR	L(0)	4F15660
04745	0 00000 0 01406	5718		HTR	L(0)	4F15662
04766	0 00000 0 01406	5735		HTR	L(0) RESULT ON RIGHT IS IN ACC	4F15679
04770	0 00000 0 01406	5737		HTR	L(0)	4F15681
04773	0 00000 0 01406	5740		HTR	L(0)	4F15684
04776	0 00000 0 01406	5743		HTR	L(0)	4F15687
05000	0 00000 0 01406	5745		HTR	L(0)	4F15689
05003	0 00000 0 01406	5748		HTR	L(0)	4F15692
05053	0 00000 0 01406	5788			L(0)	4F15732
05056	0 00000 0 01406	5791			L(0)	4F15735
05060	0 00000 0 01406	5793			L(0)	4F15737
05063	0 00000 0 01406	5796			L(0)	4F15740

␣␣L(1) = 775

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

References (37)

02102	0 40000 0 01407	721		ADD	L(1) PREPARE TO MOVE PARAMETERRS	4F10711
02114	0 40000 0 01407	731		ADD	L(1) GENERAL	4F10721
02161	0 40000 0 01407	768		ADD	L(1) SET ENTRY ADDR = CHECKSUM ADD +1.	4F10758
02211	0 40200 0 01407	792		SUB	L(1) READJUST.	4F10782
02406	0 53400 4 01407	889	STATEC	LXA	L(1),4 SET C(XR4) = 1, THEN	4F10879
02444	0 40000 0 01407	926		ADD	L(1) INCREASE IT 1.	4F10916
02750	0 50000 0 01407	1140		CLA	L(1) IF NONE,	4F11130
02773	0 40000 0 01407	1159		ADD	L(1) DIMENSION COUNTER	4F11149
03000	0 50000 0 01407	1164		CLA	L(1) SET	4F11154
03330	0 40000 0 01407	1413		ADD	L(1) OF THIS	4F11403
03354	0 40000 0 01407	1433		ADD	L(1) BY 1 FOR	4F11423
00504	0 53400 4 01407	1532	DMWR03	LXA	L(1),4 PREPARE TO WRITE STATE C ON DRUM 4.	4F11487
03562	0 53400 1 01407	1783	CB000	LXA	L(1),1 SET XR TO COUNT PARENTHESES.	4F11735
03744	0 50000 0 01407	1917		CLA	L(1) PREPARE TO SET ADDRESS PART OF 1C	4F11869
04011	0 50000 0 01407	1954		CLA	L(1) PREPARE PROPER FORM OF SUBSCRIPT	4F11906
04050	0 53400 2 01407	1992		LXA	L(1),2 SET XR2 FOR COUNTING PARENTHESES.	4F11944
04377	0 50000 0 01407	2273	C1501	CLA	L(1) INITIALIZE 1C	4F12232
04561	0 00000 0 01407	2407		PZE	L(1) WORD4--000001	4F12356
05267	0 40000 0 01407	2844		ADD	L(1) PREPARE TO ENTER FORMULA NUMBERS	4F12794
05337	−0 50000 0 01407	2893		CAL	L(1) SET N SUB 3 = 1 IF NOT	4F12843
05425	0 40000 0 01407	2962		ADD	L(1) UPDATE DOLEV ADDRESS	4F12912
05467	0 40200 0 01407	2996	DVS	SUB	L(1) PRODUCT IS	4F12946
03660	0 40000 0 01407	3660		ADD	L(1) COMPLETE FORSUB ENTRY BY ASSIGNING	4F13603
04250	0 40000 0 01407	3911		ADD	L(1) FORM -(N+2) IN ADD (ACC)	4F13853
04307	0 40000 0 01407	3942		ADD	L(1)	4F13884
04314	0 40000 0 01407	3947		ADD	L(1)	4F13889
04372	0 40000 0 01407	3993		ADD	L(1)	4F13935
04377	0 40000 0 01407	3998		ADD	L(1)	4F13940
04444	0 40000 0 01407	4038		ADD	L(1) UPDATE HOLCNT	4F13980
04540	0 50200 0 01407	4110		CLS	L(1) SUBTRACT 1 FROM DOE	4F14052
04544	0 50000 0 01407	4114	NC4	CLA	L(1) ADD 1 TO DOE ,	4F14056
04474	−0 50000 0 01407	4809		CAL	L(1) S(I) = SYM2 (S(I-1)), SO	4F14747
04541	−0 50000 0 01407	4846	LK0900	CAL	L(1) AND	4F14784
04563	−0 50000 0 01407	4864		CAL	L(1) S(I) = SYM3 (S(I-1)), SO	4F14802
03564	0 40000 0 01407	5091		ADD	L(1)	4F15025
04500	0 53400 4 01407	5553		LXA	L(1),C INITIALIZE 5TAIX TO 1	4F15497
05147	0 40200 0 01407	5850		SUB	L(1)	4F15794

␣␣L(2) = 776

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

References (8)

02404	0 53400 4 01410	886	STATEB	LXA	L(2),4 SET C(XR4) = 2, THEN	4F10876
03040	0 50000 0 01410	1197		CLA	L(2) EXAMINE DIMCTR	4F11187
03136	0 53400 4 01410	1259		LXA	L(2),4 PREPARE TO	4F11249
00506	0 53400 4 01410	1534	DMWR06	LXA	L(2),4 PREPARE TO WRITE STATE B ON DRUM 3.	4F11489
03746	0 50000 0 01410	1919	C0212	CLA	L(2) PREPARE TO SET ADDR OF 1C TO 2.	4F11871
04662	0 34000 0 01410	2482		CAS	L(2) WHICH SHOULD BE 0,1, OR 2.	4F12431
04504	−0 50000 0 01410	4817		CAL	L(2) YES	4F14755
04617	−0 50000 0 01410	4892		CAL	L(2) NO	4F14830

␣␣L(3) = 777

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

References (8)

02410	0 53400 4 01411	892	STATED	LXA	L(3),4 SET C(XR4) = 3, THEN	4F10882
03051	0 53400 4 01411	1206		LXA	L(3),4 TO PICK UP 3 ADDENDS.	4F11196
00502	0 53400 4 01411	1530	DMWR01	LXA	L(3),4 PREPARE TO WRITE STATE D ON DRUM 2.	4F11485
04115	0 50000 0 01411	2035		CLA	L(3) STORE 3	4F11987
05273	0 53400 4 01411	2848		LXA	L(3),4 PREPARE TO COUNT THE	4F12798
03755	0 53400 4 01411	3723	MS322	LXA	L(3),4 MOVE CONTENTS OF E WORDS TO LEFT WORDS.	4F13666
04465	−0 50000 0 01411	4802		CAL	L(3) S(I) = SYM1 (S(I-1)), SO	4F14740
04552	−0 50000 0 01411	4855		CAL	L(3) AND	4F14793

␣␣L(4) = 778

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

References (18)

01747	0 53400 1 01412	610	CIT04	LXA	L(4),1 SET XR1 = ENTRY SIZE.	4F10600
02104	0 40200 0 01412	723		SUB	L(4) PREPARE TO UPDATE	4F10713
02402	0 53400 4 01412	883	STATEA	LXA	L(4),4 SET C(XR4) = 4, THEN	4F10873
03131	0 53400 4 01412	1254	2D0000	LXA	L(4),4 THEN PICKUP AND	4F11244
00510	0 53400 4 01412	1536	DMWR09	LXA	L(4),4 PREPARE TO WRITE STATE A ON DRUM 1.	4F11491
04156	0 50000 0 01412	2079		CLA	L(4) AND PICK UP 4 TO SET 1C.	4F12031
04644	0 00000 0 01412	2463		PZE	L(4) WORD4--000004	4F12412
04651	0 00000 0 01412	2468		PZE	L(4) WORD4--000004	4F12417
04656	0 00000 0 01412	2473		PZE	L(4) WORD4--000004	4F12422
05271	0 40000 0 01412	2846		ADD	L(4) SYMBOL WORD, AND SUBSCRIPT SPECS	4F12796
04275	−0 50000 0 01412	4682	PL0650	CAL	L(4) SET OP1 (S(I)) 33 =I	4F14620
04355	−0 50000 0 01412	4730		CAL	L(4) AS SYM2 (S(I)) AND SET	4F14668
04132	−0 50000 0 01412	5321		CAL	L(4)	4F15255
04227	0 50000 0 01412	5383		CLA	L(4)	4F15317
04431	0 50000 0 01412	5513		CLA	L(4)	4F15452
04557	−0 50000 0 01412	5600		CAL	L(4)	4F15544
04621	0 00000 0 01412	5634		HTR	L(4)	4F15578
05012	−0 50100 0 01412	5755		ORA	L(4)	4F15699

␣␣L(5) = 779

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

References (11)

02020	0 53400 4 01413	660	DMSR14	LXA	L(5),4 SET ERROR COUNTER FOR 5 ATTEMPTS.	4F10650
02106	0 53400 1 01413	725		LXA	L(5),1 MOVE 5 WORDS	4F10715
02263	0 40200 0 01413	834	COMPUT	SUB	L(5) COMPUTE WHICH	4F10824
04164	0 50000 0 01413	2092		CLA	L(5) PICKUP 5 TO SET 1C, AND	4F12044
04660	0 53400 2 01413	2480	C3400	LXA	L(5),2 PREPARE TO SET 5 SS SIMULATORS.	4F12429
05251	0 40000 0 01413	2825		ADD	L(5) OF THIS DO FORMULA	4F12775
05363	0 53400 4 01413	2914	SPC9	LXA	L(5),4 (MOVE EACH	4F12864
05634	0 53400 2 01413	3121	ABS	LXA	L(5),2 IF CONSTANT*	4F13069
06004	0 50000 0 01413	3262	OUTPUT	CLA	L(5) PICKUP 5 TO	4F13210
	01413	5977	DRMERC	SYN	L(5) NUMBER OF DRUM READING ATTEMPTS.	4F15913
	01413	6018	TERC	SYN	L(5) TAPE ERROR COUNTER.	4F15958

␣␣L(6) = 780

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

References (14)

01717	0 53400 1 01414	578		LXA	L(6),1 RESET XR1 FOR 6 NEW CHARACTERS.	4F10568
02567	0 53400 2 01414	1019		LXA	L(6),2 SET TO COUNT 6 CHARACTERS.	4F11009
02620	0 53400 4 01414	1050		LXA	L(6),4 INITIALIZE	4F11040
02627	0 53400 3 01414	1057	SS001	LXA	L(6),3 SET FOR 6 CHARACTERS OF MULTIPLIER.	4F11047
02701	0 53400 3 01414	1099	SS003	LXA	L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND.	4F11089
03044	0 53400 4 01414	1201	3D0000	LXA	L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS.	4F11191
03224	0 53400 3 01414	1318	SUBX00	LXA	L(6),3 PREPARE TO COUNT CHARS AND SHIFTS.	4F11308
04220	0 50000 0 01414	2137		CLA	L(6) STORE 6 IN	4F12089
05147	0 53400 2 01414	2749	NXS	LXA	L(6),2 RESET SYMBOL CHARACTER COUNT	4F12699
05751	0 53400 2 01414	3218		LXA	L(6),2 SET THE CHARACTER COUNT = 6.	4F13166
06002	0 50000 0 01414	3259	INPUT	CLA	L(6) PICKUP 6 TO	4F13207
03472	0 53400 2 01414	3542		LXA	L(6),2 SET IR2 FOR SIX CHARS.	4F13485
04036	0 53400 1 01414	3772	C3351	LXA	L(6),1 SET TO COLLECT SIX CHARS	4F13714
04057	0 53400 4 01414	3789		LXA	L(6),4 RESET MQ CHAR COUNT TO SIX	4F13731

␣␣L(7) = 781

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

␣␣L(8) = 782

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

References (7)

04220	−0 50000 0 01416	4637	PL0240	CAL	L(8) SET OP1 (S(I)) 32 = 1	4F14575
04240	−0 32000 0 01416	4653		ANA	L(8) EXTRACT OP1 (S(J)) 32 AND GO	4F14591
04314	−0 50000 0 01416	4697	PL0800	CAL	L(8) FLO PT... SET OP1 (S(I)) 32 = 1	4F14635
04360	−0 50000 0 01416	4733	PL0940	CAL	L(8) SYM2 (S(I)) IS FLO PT	4F14671
04400	−0 32000 0 01416	4749		ANA	L(8)	4F14687
04420	−0 32000 0 01416	4765		ANA	L(8)	4F14703
	01416	6010	ST	SYN	L(8)	4F15950

␣␣L(9) = 783

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

References (12)

01606	0 34000 0 01417	471		CAS	L(9) FOR NUMERIC OR NON-NUMERIC.	4F10462
01657	0 34000 0 01417	529		CAS	L(9) AND IF NON-NUMERIC, THEN	4F10519
02262	0 53400 4 01417	833		LXA	L(9),4 SET XR4 FOR 9 TABLES.	4F10823
02576	0 34000 0 01417	1026	SR6DC3	CAS	L(9) TEST FOR NUMERIC.	4F11016
02632	0 34000 0 01417	1060		CAS	L(9) COMPARE IT WITH 9.	4F11050
02650	0 34000 0 01417	1074		CAS	L(9) TEST FOR NUMERIC	4F11064
03311	0 34000 0 01417	1390	TESTH0	CAS	L(9)	4F11380
03315	0 34000 0 01417	1395	TESTI0	CAS	L(9)	4F11385
03516	0 34000 0 01417	1742		CAS	L(9) CONTINUE SCAN.	4F11694
03723	0 34000 0 01417	1900		CAS	L(9) AND COMPARE IT WITH 9.	4F11852
03476	0 34000 0 01417	3546	MS041	CAS	L(9) IS CHAR. NUMERIC	4F13489
03577	0 34000 0 01417	3611	FS030	CAS	L(9) TEST FOR ILLEGAL ARGUMENT,	4F13554

␣␣L(C) = 785

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

␣␣L(E) = 2479

Definition
04657 000000000025 4190 L(E) BCD 100000E CONSTANT USED BY ROYCNV. 4F14132
Reference
04524 0 34000 0 04657 4098 CAS L(E) IF LESS THAN 27, COMPARE WITH E. 4F14040

␣␣L(F) = 786

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

References (2)

	03523	0 34000 0 01422	3567		CAS	L(F) IS THIS AN F ENDING FUNCTION NAME.	4F13510
	03535	−0 50000 0 01422	3577		CAL	L(F) ADD F TO CONTENTS OF G,	4F13520

␣␣L(H) = 787

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

References (8)

03242	0 34000 0 01423	1337		CAS	L(H) WITH H.	4F11327
03522	0 34000 0 01423	1746	CD005	CAS	L(H) FIXED	4F11698
04501	0 34000 0 01423	4079		CAS	L(H) COMPARE IT WITH H.	4F14021
04213	0 34000 0 01423	4632	PL0135	CAS	L(H) IS SYM1 (S(I)) FIX OR FLO PT	4F14570
04307	0 34000 0 01423	4692		CAS	L(H) IS OT FIX OR FLO PT	4F14630
04324	0 34000 0 01423	4705		CAS	L(H)	4F14643
03473	0 34000 0 01423	5033		CAS	L(H)	4F14967
04660	0 34000 0 01423	5665		CAS	L(H) NOT A FUNCTION STATEMENT	4F15609

␣␣L(O) = 789

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

References (7)

03243	0 34000 0 01425	1338	CAS	L(O) IF GREATER THEN H, COMPARE WITH O.	4F11328
04227	0 40200 0 01425	2144	SUB	L(O) AND IF IT IS NOT 0, THEN	4F12097
04214	0 34000 0 01425	4633	CAS	L(O)	4F14571
04310	0 34000 0 01425	4693	CAS	L(O)	4F14631
04325	0 34000 0 01425	4706	CAS	L(O)	4F14644
03474	0 34000 0 01425	5034	CAS	L(O)	4F14968
04661	0 34000 0 01425	5666	CAS	L(O)	4F15610

␣␣L(S) = 793

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

␣␣L(T) = 794

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

␣␣L(X) = 795

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

References (3)

04041	0 56000 0 01433	1985		LDQ	L(X) REPLACW THE CHARACTER I	4F11937
04247	0 40200 0 01433	4660		SUB	L(X)	4F14598
05016	0 40200 0 01433	5759	ES1300	SUB	L(X)	4F15703

␣␣L(Z) = 796

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

␣␣LAST = 2925

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

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

␣␣LBUF = 1371

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

References (2)

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

␣␣LEFT = 748

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

References (6)

03740	0 56000 0 01356	3710		LDQ	LEFT+2	4F13653
03757	−0 60000 4 01357	3725		STQ	LEFT+3,4 X	4F13668
04642	0 56000 0 01356	5651	ES0160	LDQ	LEFT+2 S(I)=S(O)	4F15595
04672	0 50000 0 01354	5675		CLA	LEFT	4F15619
04674	0 50000 0 01355	5677		CLA	LEFT+1	4F15621
04676	0 50000 0 01356	5679		CLA	LEFT+2	4F15623

␣␣LPR1 = 2724

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

␣␣LPR2 = 2732

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

␣␣LPR3 = 2722

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

␣␣LPR4 = 2721

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

␣␣LPRD = 2712

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

␣␣LPRE = 2718

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

␣␣MOVE = 1095

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

References (2)

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

␣␣MTR1 = 1289

Definition
02411 0 50000 4 02437 893 MTR1 CLA ZETA+4,4 OBTAIN THE NUMBER OF WORDS IN THE 4F10883

References (3)

D	02403	1 00000 0 02411	884		TXI	MTR1,0 GO GET PARAMETERS.	4F10874
D	02405	1 00000 0 02411	887		TXI	MTR1,0 GO GET PARAMETERS.	4F10877
	02407	1 00000 0 02411	890	MTRCSL	TXI	MTR1,0,** GO GET PARAMETERS.	4F10880

␣␣MTR2 = 1301

Definition
02425 −0 70000 2 00000 905 MTR2 CAD **,2 WHILE COMPUTING 4F10895

References (2)

	02415	0 62100 0 02425	897		STA	MTR2 TO SET ADDRESS OF COPY LOOP.	4F10887
	02426	2 00001 2 02425	906		TIX	MTR2,2,1 LOGICAL CHECKSUM.	4F10896

␣␣MTR3 = 1304

Definition
02430 0 10000 0 03440 908 MTR3 TZE MEMORG * THEN ENTER CURRENT STATE. 4F10898

References (3)

02414	0 40000 0 02430	896		ADD	MTR3 CURRENT STATE TO THE MEMORY ORIGIN	4F10886
00517	0 40000 0 02430	1543		ADD	MTR3 SUM AND COPY LOOPS.	4F11498
	02430	6003	MTR300	SYN	MTR3	4F15942

␣␣NBAR = 752

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

References (11)

03446	0 60000 0 01360	3522		STZ	NBAR X	4F13465
03453	−0 63400 4 01360	3527		SXD	NBAR,4 X	4F13470
03626	0 50000 0 01360	3634		CLA	NBAR	4F13577
03633	−0 53400 1 01360	3639		LXD	NBAR,1	4F13582
03636	−0 63400 1 01360	3642	MS212	SXD	NBAR,1	4F13585
04132	−0 53400 2 01360	3833		LXD	NBAR,B	4F13775
04326	0 50000 0 01360	3957		CLA	NBAR	4F13899
04336	0 50200 0 01360	3965		CLS	NBAR	4F13907
04411	0 50200 0 01360	4008		CLS	NBAR	4F13950
04423	−0 63400 2 01360	4018	CM4104	SXD	NBAR,B	4F13960
03441	−0 53400 1 01360	4270		LXD	NBAR,A LDXA WITH -N	4F14208

␣␣NFFW = 2655

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

␣␣OPEN = 765

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

References (10)

03263	0 34000 0 01375	1363	TESTC0	CAS	OPEN	4F11353
03275	0 34000 0 01375	1375	TESTE0	CAS	OPEN	4F11365
03510	0 40200 0 01375	1736	CD002	SUB	OPEN SPECIFICATION	4F11688
03531	0 34000 0 01375	3573		CAS	OPEN TEST FOR (.	4F13516
04171	0 40200 0 01375	3864		SUB	OPEN	4F13606
04237	0 34000 0 01375	3902		CAS	OPEN EXAMINE SYMBOL	4F13844
04257	0 40200 0 01375	3918		SUB	OPEN	4F13860
04266	0 34000 0 01375	3925		CAS	OPEN	4F13867
04332	0 40200 0 01375	4711		SUB	OPEN	4F14649
	01375	5947	ALPAR	SYN	OPEN	4F15883

␣␣ORGA = 1824

Definition

	1606				4F11558
	1607			NAME FUNCTION	4F11559
	1608			PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS=	4F11560
	1609			CA000 ASSEMBLE STATEMENT.	4F11561
	1610			CD000 SCAN FOR HOLLERITH AND ILLEGAL CHS.	4F11562
	1611			CB000 CLASSIFY=ARITHMETIC/NON-ARITHMETIC.	4F11563
	1612			CC000 CLASSIFY=WHICH NON-ARITHMETIC.	4F11564
	1613			PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS.	4F11565
	1614			C0100 DO.	4F11566
	1615			C0200 GO TO.	4F11567
	1616			C0300 IF.	4F11568
	1617			C0400 IF (SENSE SWITCH.	4F11569
	1618			C0500 IF (SENSE LIGHT.	4F11570
	1619			C0600 IF DIVIDE CHECK.	4F11571
	1620			C0700 IF AC OVERFLOW.	4F11572
	1621			C0800 IF MQ OVERFLOW.	4F11573
	1622			C0900 PAUSE.	4F11574
	1623			C1000 ASSIGN.	4F11575
	1624			C1100 SENSE LIGHT.	4F11576
	1625			C1200 DIMENSION.	4F11577
	1626			C1300 STOP.	4F11578
	1627			C1400 FREQUENCY.	4F11579
	1628			C1500 EQUIVALENCE.	4F11580
	1629			C1600 CONTINUE.	4F11581
	1630			C3000(C3500) SUBROUTINE / FUNCTION.	4F11582
	1631			C3100 COMMON.	4F11583
	1632			C3200 RETURN.	4F11584
	1633			C3300 CALL.	4F11585
	1634			C3400 END.	4F11586
	1635			PART 3 / PROCESS INPUT-OUTPUT STATEMENTS=	4F11587
	1636			RDC READ CARD	4F11588
	1637			RIT READ INPUT TAPE.	4F11589
	1638			RDP PRINT.	4F11590
	1639			WOT WRITE OUTPUT TAPE.	4F11591
	1640			PDC PUNCH.	4F11592
	1641			WBT WRITE TAPE.	4F11593
	1642			RBT READ TAPE.	4F11594
	1643			WRD WRITE DRUM.	4F11595
	1644			RDD READ DRUM.	4F11596
	1645			EFT END FILE.	4F11597
	1646			RWN REWIND.	4F11598
	1647			BSP BACKSPACE.	4F11599
	1648			FOR FORMAT.	4F11600
	1649			RSC RESET AND SCAN.	4F11601
	1650			LISTR CONTROL FOR LIST SCAN.	4F11602
	1651			LPR LEFT PARENTHESES IN LIST SCAN.	4F11603
	1652			EOS EQUAL SIGN IN LIST SCAN.	4F11604
	1653			SPCTR CONTROL FOR SPECIFICATION SCAN.	4F11605
	1654			SPC SUBSCRIPT SPECIFICATIONS.	4F11606
	1655			RPR RIGHT PARENTHESIS IN LIST SCAN.	4F11607
	1656			CMA COMMA IN LIST SCAN.	4F11608
	1657			EMK ENDMARK IN LIST SCAN.	4F11609
	1658			PART 4 / SUBROUTINES USED BY STATE A=	4F11610
	1659			BEG(TYP),4 BEGIN SCAN AND TYPE TEST.	4F11611
	1660			BEGTR CONTROL FOR BEGINNING SCAN.	4F11612
	1661			BRW,4 BINARY READ OR WRITE COMPILER.	4F11613
	1662			BSS,2 COMPILES= IFN BSS 0.	4F11614
	1663			CA100,4 READ SOURCE PROGRAM TAPE.	4F11615
	1664			CC500,4 SCAN DICTIONARY.	4F11616
	1665			ETM(LTM)SW,4 IF SW=NOP, COMPILES ETM(LTM). SL=0.	4F11617
	1666			IFFIX,1 SETS UP FORVAR OR FORVAL ENTRY.	4F11618
	1667			IN(OUT)PUT,2 COMPILES CAL *, AND XIT (LEV).	4F11619
	1668			LIB,1 MAKES CLOSUB ENTRY, COMPILES CIT.	4F11620
	1669			VRA(VRD),4 MAKES FORVAR, FIXCON, CIT ENTRIES.	4F11621
	1670			PART 5 / CONSTANTS AND VARIABLES USED BY STATE A.	4F11622
	1671			DIC DICTIONARY.	4F11623
	1672			T TRANSFER TABLE.	4F11624
	1673				4F11625
	1674			THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=	4F11626
	1675				4F11627
	1676			** IN ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION	4F11628
	1677			INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.	4F11629
	1678			* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF	4F11630
	1679			THIS LOGICAL BLOCK OR SUBROUTINE.	4F11631
	1680			C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.	4F11632
	1681			P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).	4F11633
	1682				4F11634
	1683			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11635
	1684				4F11636
	1685			STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS=	4F11637
03440	1686	ORGA	ORG	1824	4F11638

References (3)

00001	0 00000 0 03437	20		PZE	ORGA−1	4F100123
02433	0 02663 0 00000	912	ZETA	PZE	DEL(A),,ENDADR−ORGA	4F10902
00000	0 00510 0 03440	1604		PZE	ORGA,,DMWR09	4F115572

␣␣ORGB = 1824

Definition
3500 4F13443

03440 3501 ORGB ORG 1824 4F13444

References (2)

	02435	0 01302 0 02210	914		PZE	DEL(B),,ENDBDR−ORGB	4F10904
	00000	0 00506 0 03440	3498		PZE	ORGB,,DMWR06	4F134422

␣␣ORGC = 1824

Definition

	4265				4F14203
	4266			STATE C. PERFORMS OPTIMIZATION ON LAMBDA TABLE,	4F14204
	4267				4F14205
03440	4268	ORGC	ORG	1824	4F14206

References (2)

	02436	0 01330 0 02373	915		PZE	DEL(C),,ENDCDR−ORGC	4F10905
	00000	0 00504 0 03440	4263		PZE	ORGC,,DMWR03	4F142022

␣␣ORGD = 1824

Definition
5004 4F14938

03440 5005 ORGD ORG 1824 4F14939

References (2)

	02434	0 01607 0 01322	913		PZE	DEL(D),,ENDDDR−ORGD	4F10903
	00000	0 00471 0 03440	5002		PZE	ORGD,,CLDR00	4F149372

␣␣PLUS = 772

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

␣␣RDRX = 1360

Definition

		970			END OF PROGRAM RAD00.	4F10960
		971			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10961
		972				4F10962
		973			RDRX,4 CALLS=DIAG. CALLER=DRTABS.	4F10963
		974			RDRX READS A BLOCK OF DRUM ENTRIES INTO 50 WORD BUFR.	4F10964
02520	0 53400 1 01413	975	RDRX	LXA	DRMERC,1 SET FOR 5 ATTEMPTS TO READ DRUM.	4F10965

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

␣␣SBC1 = 1515

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

␣␣SBC2 = 1550

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

␣␣SBC3 = 1556

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

␣␣SBC4 = 1548

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

References (4)

02626	0 63000 0 03014	1056		STP	SBC4 SET OP SWITCH.	4F11046
02770	0 50200 0 03014	1156	SBR	CLS	SBC4 SET SWITCH	4F11146
02771	0 60100 0 03014	1157		STO	SBC4 FOR CLOSING PARENTHESIS.	4F11147
03024	0 50200 0 03014	1184	SBC3	CLS	SBC4 AFTER SCANNING 3 SUBSCRIPTS.	4F11174

␣␣SBC6 = 1534

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

References (6)

02623	0 63000 0 02776	1053		STP	SBC6 SET OP	4F11043
02664	0 50200 0 02776	1086	SBX	CLS	SBC6 TEST FOR	4F11076
02667	0 60100 0 02776	1089	SBX1	STO	SBC6 RESET MULTIPLIER SWITCH.	4F11079
02746	0 50200 0 02776	1138		CLS	SBC6 TEST SWITCH	4F11128
02753	0 50200 0 02776	1143	SBC1	CLS	SBC6 RESET MULTIPLIER	4F11133
02754	0 60100 0 02776	1144	SBP2	STO	SBC6 OP SWITCH.	4F11134

␣␣SBC7 = 1546

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

␣␣SBC8 = 1535

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

References (6)

02624	0 63000 0 02777	1054		STP	SBC8 SWITCHES.	4F11044
02737	0 50200 0 02777	1131		CLS	SBC8 TEST SWITCH	4F11121
02742	0 60100 0 02777	1134	SBP1	STO	SBC8 RESET ADDEND SWITCH.	4F11124
02765	0 50000 0 02777	1153		CLA	SBC8 IF THERE IS AN ADDEND,	4F11143
03016	0 50200 0 02777	1178	SBC2	CLS	SBC8 RESET ADDEND	4F11168
03017	0 60100 0 02777	1179		STO	SBC8 OP SWITCH.	4F11169

␣␣SBC9 = 1543

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

␣␣SBP1 = 1506

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

␣␣SBP2 = 1516

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

␣␣SBP4 = 1517

Definition
02755 −0 50000 0 01370 1145 SBP4 CAL SYMBOL IF VARIABLE SUBSCRIPT. 4F11135

References (2)

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

␣␣SBS2 = 1494

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

References (6)

02621	−0 63400 4 02726	1051	SXD	SBS2,4 FOR EACH SUBSCRIPT MEMBER.	4F11041
02676	−0 53400 4 02726	1096	LXD	SBS2,4 GET STORING TAG,	4F11086
02735	−0 53400 4 02726	1129	LXD	SBS2,4 GET STORING TAG, AND	4F11119
02745	−0 53400 4 02726	1137	LXD	SBS2,4 GET STORING TAG, AND	4F11127
02775	−0 53400 4 02726	1161	LXD	SBS2,4 GET STORING TAG.	4F11151
03013	−0 63400 4 02726	1175	SXD	SBS2,4 BY -2, AND SAVE.	4F11165

␣␣SBX1 = 1463

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

␣␣SBX2 = 1468

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

␣␣SPC1 = 2782

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

References (5)

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

␣␣SPC2 = 2777

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

␣␣SPC3 = 2779

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

References (3)

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

␣␣SPC4 = 2785

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

␣␣SPC5 = 2789

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

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

References (3)

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

␣␣SPC6 = 2796

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

␣␣SPC7 = 2804

Definition
05364 0 50000 2 00000 2915 SPC7 CLA **,2 TEMPDO TABLE ENTRY 4F12865

References (2)

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

␣␣SPC8 = 2808

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

␣␣SPC9 = 2803

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

␣␣SPCR = 2794

Definition
05352 −0 53400 4 07400 2905 SPCR LXD DOLEV,4 DECREASE DOLEV D 4F12855
Reference
05347 −3 00000 4 05352 2902 TXL SPCR,4,0 TEST NEED FOR LTM, JLF AFTER ). 4F12352

␣␣SPCS = 2774

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

␣␣SPCT = 2812

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

␣␣SPCX = 2768

Definition

		2873			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12823
		2874				4F12824
		2875			SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=R5C	4F12825
		2876			SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN.	4F12826
05320	−0 50000 0 05336	2877	SPCX	CAL	SPC1 PREPARE FOR END OF SPECIFICATION.	4F12827

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

␣␣STAR = 773

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

References (6)

03701	0 34000 0 01405	3678	CAS	STAR IS IT *	4F13621
04215	0 34000 0 01405	3884	CAS	STAR	4F13826
03731	0 40200 0 01405	4454	SUB	STAR	4F14392
04502	0 40200 0 01405	4815	SUB	STAR	4F14753
04673	0 40200 0 01405	4936	SUB	STAR	4F14874
03634	0 34000 0 01405	5131	CAS	STAR	4F15065

␣␣SXR1 = 1496

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

References (2)

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

␣␣SXR2 = 1497

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

References (2)

	02614	−0 63400 2 02731	1046	SS000	SXD	SXR2,2 SAVE C(XR2),	4F11036
	03221	−0 53400 2 02731	1310		LXD	SXR2,2 RESTORE THE C(XR2)	4F11200

␣␣SXR4 = 1498

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

References (3)

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

␣␣TAG4 = 811

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

␣␣TAU1 = 0

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

References (3)

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

␣␣TAU2 = 300

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

References (3)

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

␣␣TAU3 = 750

Definition
01356 6017 TAU3 SYN 0750 DRUM TABLE ORIGIN -DRTA8S. 4F15957

References (3)

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

␣␣TEMP = 1269

Definition
02365 852 TEMP BSS 0 INDEXING ADDRES FOR ABOVE -DRTABS. 4F10842
Reference
02110 0 60200 1 02365 727 SLW TEMP,1 OF PARAMETERS 4F10717

␣␣TERC = 779

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

␣␣TPOA = 2626

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

References (2)

	05074	0 62100 0 05102	2680		STA	TPOA TO SL.	4F12629
	06033	0 62100 0 05102	3295		STA	TPOA TO TL.	4F13243

␣␣TRAD = 60

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

␣␣VRD1 = 3103

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

␣␣XR4X = 3054

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

References (2)

	05762	−0 63400 4 05756	3233		SXD	XR4X,4 SAVE THE C(XR4), AND	4F13161
	05771	−0 53400 4 05756	3240		LXD	XR4X,4 RESTORE THE C(XR4), AND	4F13188

␣␣ZETA = 1307

Definition
911 4F10901

02433 0 02663 0 00000 912 ZETA PZE DEL(A),,ENDADR−ORGA 4F10902

References (5)

02411	0 50000 4 02437	893	MTR1	CLA	ZETA+4,4 OBTAIN THE NUMBER OF WORDS IN THE	4F10883
02421	0 46000 4 02437	901		LDA	ZETA+4,4 THEN COPY	4F10891
00513	0 50000 4 02437	1539	DMWR11	CLA	ZETA+4,4 GET LENGTH OF CURRENT STATE.	4F11494
00531	0 46000 4 02437	1553		LDA	ZETA+4,4 X	4F11508
00537	0 46000 4 02437	1559		LDA	ZETA+4,4 X	4F11514

␣1TOCS = 4

Definition
00004 5935 1TOCS SYN 4 ENTRY TO SYSTEM TAPE MONITOR. 4F15871

References (3)

00000	0 00004 0 00030	19		PZE	ORGCOM,,1TOCS	4F100122
00000	0 00004 0 00471	1508		PZE	FORSUB,,1TOCS	4F114642
00546	0 10000 0 00004	1566	DMWR40	TZE	1TOCS * CK SUM AGREE, GO GET NEXT STATE.	4F11521

␣3LBAR = 591

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

References (9)

03445	0 60000 0 01117	3521		STZ	3LBAR X	4F13464
03620	−0 53400 1 01117	3628		LXD	3LBAR,1 PERFORM LEVEL ANALYSIS FOR ,	4F13571
03632	−0 63400 1 01117	3638	MS211	SXD	3LBAR,1	4F13581
04131	−0 53400 1 01117	3832		LXD	3LBAR,A LOAD LA COUNTERS	4F13774
04420	−0 63400 1 01117	4015	CM4101	SXD	3LBAR,A	4F13957
04430	−0 63400 1 01117	4023	CM4201	SXD	3LBAR,A	4F13965
04433	−0 63400 1 01117	4026	CM4301	SXD	3LBAR,A	4F13968
03452	0 50000 0 01117	4279		CLA	3LBAR	4F14217
	01117	5940	3QBAR	SYN	3LBAR	4F15876

␣3QBAR = 591

Definition
01117 5940 3QBAR SYN 3LBAR 4F15876

References (10)

04137	−0 63400 1 01117	4588		SXD	3QBAR,A -30 TO 3QBAR = 3LBAR	4F14526
04662	−0 53400 5 01117	4927	LKK000	LXD	3QBAR,5 -3Q TO XA,XC	4F14865
03440	−0 53400 1 01117	5006	MC0000	LXD	3QBAR,A MODE CHECKING ROUTINE	4F14940
03553	−0 53400 1 01117	5082		LXD	3QBAR,A -30 TO XA	4F15016
03570	−0 63400 1 01117	5095	CP0250	SXD	3QBAR,A	4F15029
04125	−0 53400 1 01117	5316	CP2500	LXD	3QBAR,A FINISHED WITH S(I)	4F15250
04320	−0 53400 1 01117	5440		LXD	3QBAR,A FINISHED WITH ARG VECTOR	4F15379
04351	−0 53400 1 01117	5465		LXD	3QBAR,A FINISHED WITH ARG VECTOR	4F15404
04552	−0 53400 1 01117	5595	CP5460	LXD	3QBAR,A	4F15539
04622	−0 53400 1 01117	5635	ES0000	LXD	3QBAR,A -3Q TO XA	4F15579

␣ADD01 = 1123

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

␣ADD02 = 1122

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

␣ADD03 = 1133

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

␣ADD04 = 1134

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

␣ADD05 = 1139

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

␣ALPAR = 765

Definition
01375 5947 ALPAR SYN OPEN 4F15883

References (5)

03570	0 34000 0 01375	1789	CB005	CAS	ALPAR IF A LEFT PARENTHESIS,	4F11741
03603	0 34000 0 01375	1800		CAS	ALPAR IF LEFT PARENTHESIS,	4F11752
03733	0 34000 0 01375	1908	C0205	CAS	ALPAR TEST CHARACTER FOR ALPHABETIC.	4F11860
04056	0 34000 0 01375	1998		CAS	ALPAR IF IT IS A LPAREN,	4F11950
04405	0 34000 0 01375	2279		CAS	ALPAR EXAMINE CHARACTER LEFT IN THE AC,	4F12238

␣ALPHA = 2757

Definition
05305 4255 ALPHA BSS 139 4F14196

References (13)

03622	0 50200 4 05301	3630		CLS	ALPHA−4,4	4F13573
03643	0 50000 4 05301	3647		CLA	ALPHA−4,4	4F13590
04272	0 60200 4 05310	3929	L13130	SLW	ALPHA+3,C STO -(N+2) IN ALPHA+A+3	4F13871
04300	0 60200 4 05305	3935		SLW	ALPHA,C STO -C IN ALPHA+A	4F13877
04320	0 60200 4 05305	3951	L23130	SLW	ALPHA,C STO -N IN ALPHA +A	4F13893
04324	0 50200 4 05304	3955	LA2000	CLS	ALPHA−1,C	4F13897
04330	0 60200 4 05305	3959	L43130	SLW	ALPHA,C STO -(N+2) IN ALPHA+A	4F13901
04334	0 50200 4 05302	3963	LA4000	CLS	ALPHA−3,C	4F13905
04340	0 60200 4 05303	3967		SLW	ALPHA−2,C STO-N IN ALPHA+A-2	4F13909
04346	0 60100 4 05304	3973		STO	ALPHA−1,C STO-(N+1) IN ALPHA+A-1	4F13915
04403	0 60200 4 05305	4002	L33130	SLW	ALPHA,C STO -(N+1) IN ALPHA+A	4F13944
04407	0 50200 4 05303	4006	LA3000	CLS	ALPHA−2,C	4F13948
04413	0 60200 4 05304	4010		SLW	ALPHA−1,C STO -N IN ALPHA+A-1	4F13952

␣ARITH = 1284

Definition
02404 5948 ARITH SYN STATEB 4F15884

References (4)

D	03605	1 00000 0 02404	1802	TXI	ARITH,0 * THIS IS AN ARITHMETIC FORMULA.	4F11754
D	03613	1 00000 0 02404	1808	TXI	ARITH,0 * THIS IS AN ARITHMETIC FORMULA.	4F11760
D	04105	1 00000 0 02404	2021	TXI	ARITH,0 * EXIT TO ARITH FOR FINAL PROCESSING.	4F11973
D	04631	1 00000 0 02404	2452	TXI	ARITH,0 * THEN EXIT TO ARITH TO PROCESS.	4F12401

␣ARPAR = 767

Definition
01377 5949 ARPAR SYN CLOS 4F15885

References (2)

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

␣BEGTR = 2960

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

References (2)

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

␣BIT29 = 798

Definition
01436 +000000000100 354 BIT29 OCT 100 4F10345
Reference
04467 −0 50000 0 01436 4804 LK0440 CAL BIT29 4F14742

␣BLANK = 792

Definition
01430 +000000000060 348 BLANK OCT 60 0000000000060 4F10339

References (9)

01646	0 50000 0 01430	512		CLA	BLANK ADD A BLANK	4F10503
01722	0 34000 0 01430	581		CAS	BLANK AND COMPARE WITH A BLANK.	4F10571
02757	−0 50000 0 01430	1147		CAL	BLANK IF LESS	4F11137
03230	0 40200 0 01430	1322		SUB	BLANK CHARACTER IN THIS NAME.	4F11312
04624	0 56000 0 01430	2447		LDQ	BLANK AND	4F12396
05277	−0 50000 0 01430	2852		CAL	BLANK STORE IN PROPER	4F12802
05630	−0 50000 0 01430	3117		CAL	BLANK ADD A BLANK	4F13065
03546	−0 50000 0 01430	3586		CAL	BLANK ADD BLANK TO CHARS IN G.	4F13529
	01430	5943	ABLANK	SYN	BLANK	4F15879

␣BUILD = 2672

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

␣C0100 = 1963

Definition

		1845			END OF PROGRAM CC000.	4F11797
		1846			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11798
		1847				4F11799
		1848			STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS=	4F11800
		1849				4F11801
		1850			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11802
		1851				4F11803
		1852			C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00.	4F11804
		1853			C0100 PROCESSES DO STATEMENTS.	4F11805
03653	0 07400 4 02366	1854	C0100	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F11806

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

␣C0113 = 1985

Definition
03701 0 50000 0 01112 1876 C0113 CLA 1G STORE N2 4F11828
Reference
03676 −0 10000 0 03701 1873 TNZ C0113 IF ENDMARK, THEN 4F11825

␣C0150 = 900

Definition

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

References (3)

03666	0 07400 2 01604	1865	TSX	C0150,2 * OBTIAN IN 1G THE PROPER N1.	4F11817
03674	0 07400 2 01604	1871	TSX	C0150,2 * OBTAIN IN 1G THE PROPER N2.	4F11823
03706	0 07400 2 01604	1881	TSX	C0150,2 * OBTAIN IN 1G THE PROPER N3.	4F11833

␣C0151 = 909

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

␣C0152 = 912

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

␣C015X = 903

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

References (2)

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

␣C0160 = 916

Definition

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

References (12)

01615	0 07400 2 01624	478	C0151	TSX	C0160,2 * ASSEMBLE NON-NUMERICS IN 1G.	4F10469
03663	0 07400 2 01624	1862		TSX	C0160,2 * OBTAIN IN 1G THE SUBSCRIPT.	4F11814
03736	0 07400 2 01624	1911	C0210	TSX	C0160,2 * TYPE= GO TO N,(),SO OBTAIN IN 1G N	4F11863
04007	0 07400 2 01624	1952		TSX	C0160,2 * OBTAIN IN 1G THE FXF-PT. VARIABLE.	4F11904
04234	0 07400 2 01624	2149		TSX	C0160,2 * THE SYMBOL N.	4F12102
04267	0 07400 2 01624	2186		TSX	C0160,2 * THE VARIABLE SYMBOL.	4F12140
04402	0 07400 2 01624	2276		TSX	C0160,2 * OBTAIN IN 1G THE SYMBOL V.	4F12235
04452	0 07400 2 01624	2326		TSX	C0160,2 * ASSEMBLE NAME IN 1G.	4F12286
04471	0 07400 2 01624	2341		TSX	C0160,2 * ASSEMBLE ARGUMENT IN 1G.	4F12301
04514	0 07400 2 01624	2365		TSX	C0160,2 * ASSEMBLE SYMBOL IN 1G, AND TEST	4F12325
04611	0 07400 2 01624	2436		TSX	C0160,2 * COLLECT THE REST OF THE NAME, WHICH	4F12385
03603	0 07400 2 01624	3615	FS040	TSX	C0160,2 COLLECT ARGUMENT NAME IN 1G,	4F13558

␣C0161 = 919

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

␣C0162 = 920

Definition
01630 0 34000 4 01406 498 C0162 CAS CTEST,4 CHARACTER 4F10489
Reference
01633 2 00001 4 01630 501 C0163 TIX C0162,4,1 ALL PUNCTUATIONS. 4F10492

␣C0163 = 923

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

␣C0164 = 926

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

␣C0165 = 930

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

␣C0166 = 931

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

␣C0167 = 932

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

␣C016X = 921

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

References (2)

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

␣C0180 = 941

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

References (11)

01611	0 07400 2 01655	474		TSX	C0180,2 * GO CONVERT TO BINARY.	4F10465
01670	1 76626 0 01655	538	DCF	TXI	C0180,0,−F REPEAT PROCESS FOR NEXT CHARACTER.	4F10528
03656	0 07400 2 01655	1857		TSX	C0180,2 * OBTAIN IN 1G THE BIN EQUIV OF BETA.	4F11809
03726	0 07400 2 01655	1903		TSX	C0180,2 * OBTAIN IN 1G THE BINARY EQUV BETA.	4F11855
03754	0 07400 2 01655	1925		TSX	C0180,2 * OBTAIN IN 1G THE BIN EQU OF BETA.	4F11877
04066	0 07400 2 01655	2006		TSX	C0180,2 * BINARY EQUIVALENT OF BETA 1.	4F11958
04073	0 07400 2 01655	2011		TSX	C0180,2 * THE BINARY EQUIVALENT OF BETA 2.	4F11963
04101	0 07400 2 01655	2017		TSX	C0180,2 * THE BINARY EQUIVALENT OF BETA 3.	4F11969
04113	0 07400 2 01655	2033		TSX	C0180,2 * EQUIVALENT OF SW OR SL NUMBER.	4F11985
04130	0 07400 2 01655	2047		TSX	C0180,2 * EQUIVALENT OF BETA 1,	4F11999
04136	0 07400 2 01655	2053		TSX	C0180,2 * EQUIVALENT OF BETA 2,	4F12005

␣C0190 = 967

Definition

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

References (58)

01605	0 07400 4 01707	470		TSX	C0190,4 * TEST 1ST NON-BLANK CHARACTER	4F10461
01640	0 07400 4 01707	506		TSX	C0190,4 * GET NEXT NB CHARACTER IN THE AC.	4F10497
01654	0 07400 4 01707	526	C0180X	TSX	C0190,4 * OBTAIN 1ST NUMERIC IN THE AC.	4F105165
01656	0 07400 4 01707	528		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F10518
02631	0 07400 4 01707	1059		TSX	C0190,4 * GET FIRST NON BLANK CHAR IN THE AC.	4F11049
02642	0 07400 4 01707	1068	SS0014	TSX	C0190,4 * GET NEXT NB CHARACTER IN THE AC.	4F11058
02703	0 07400 4 01707	1101	SS004	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F11091
03526	0 07400 4 01707	1750	CD700	TSX	C0190,4 * GO GET NEXT NONBLANK CHARACTER,	4F11702
03534	0 07400 4 01707	1756	CD900	TSX	C0190,4 * OBTAIN NEXT NONBLANK CHARACTER,	4F11708
03564	0 07400 4 01707	1785	CB001	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER.	4F11737
03602	0 07400 4 01707	1799	CB201	TSX	C0190,4 * THEN EXAMINE NEXT CHARACTER.	4F11751
03634	0 07400 4 01707	1830		TSX	C0190,4 * GO GET NEXT FORMULA CHARACTER,	4F11782
03654	0 07400 4 01707	1855		TSX	C0190,4 * OBTAIN 1ST NON-BLANK CHARACTER	4F11807
03722	0 07400 4 01707	1899		TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER	4F11851
03742	0 07400 4 01707	1915		TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER,	4F11867
03753	0 07400 4 01707	1924	C0215	TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHAR.	4F11876
03774	0 07400 4 01707	1941		TSX	C0190,4 * OBTAIN NEXT NB CHAR AND	4F11893
04004	0 07400 4 01707	1949	C0220	TSX	C0190,4 * EXAMINE NEXT NB CHARACTER,	4F11901
04006	0 07400 4 01707	1951		TSX	C0190,4 * OBTAIN IN ACC NEXT NB CHAR, AND	4F11903
04040	0 07400 4 01707	1984		TSX	C0190,4 * OBTAIN IN AC THE 1ST NB CHAR (I).	4F11936
04052	0 07400 4 01707	1994	C0302	TSX	C0190,4 * MAKE SURE THAT NEXT NB CHARACTER	4F11946
04072	0 07400 4 01707	2010		TSX	C0190,4 * AND PROCEED TO FORM	4F11962
04100	0 07400 4 01707	2016		TSX	C0190,4 * AND PROCEED TO FORM	4F11968
04112	0 07400 4 01707	2032		TSX	C0190,4 * PROCEED TO FORM THE BINARY	4F11984
04127	0 07400 4 01707	2046		TSX	C0190,4 * PROCEED TO FORM THE BINARY	4F11998
04135	0 07400 4 01707	2052		TSX	C0190,4 * PROCEED TO FORM THE BINARY	4F12004
04172	0 07400 4 01707	2109	C0902	TSX	C0190,4 * TEST NEXT NON-BLANK CHARACTER	4F12061
04226	0 07400 4 01707	2143		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER	4F12096
04233	0 07400 4 01707	2148		TSX	C0190,4 * PROCEED TO ASSEMBLE IN 1G	4F12101
04266	0 07400 4 01707	2185	C1200	TSX	C0190,4 * PROCEED TO ASSEMBLE IN 1G	4F12139
04337	0 07400 4 01707	2226	C1201	TSX	C0190,4 * OBTAIN NB CHAR FOLLOWING RPAREN.	4F12183
04371	0 07400 4 01707	2262		TSX	C0190,4 * OBTAIN IN ACC NEXT NBCHAR, AND	4F12221
04375	0 07400 4 01707	2271	C1500	TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC.	4F12230
04401	0 07400 4 01707	2275		TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC AND	4F12234
04415	0 07400 4 01707	2287		TSX	C0190,4 * OBTAIN NEXT NBCHAR IN AC, AND	4F12247
04427	0 07400 4 01707	2297		TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC, AND	4F12257
04433	0 07400 4 01707	2306	C1600	TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC.	4F12266
04450	0 07400 4 01707	2324		TSX	C0190,4 * IF 1ST CHARACTER OF NAME IS	4F12284
04506	0 07400 4 01707	2354	C3002	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER.	4F12314
04512	0 07400 4 01707	2363	C3100	TSX	C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL	4F12323
04536	0 07400 4 01707	2388	C3200	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F12337
04607	0 07400 4 01707	2434	C3300	TSX	C0190,4 * IF 1ST CHARACTER OF NAME IS	4F12383
04615	0 07400 4 01707	2440		TSX	C0190,4 * PICKUP THE CHARACTER C,	4F12389
04661	0 07400 4 01707	2481	C3405	TSX	C0190,4 * PICKUP CONSTANT,	4F12430
04666	0 07400 4 01707	2486	C3410	TSX	C0190,4 * SKIP NEXT NON-BLANK CHARACTER, AND	4F12435
04670	0 07400 4 01707	2488		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F12437
05152	0 07400 4 01707	2753	NXC	TSX	C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC.	4F12703
05217	0 07400 4 01707	2799		TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER	4F12749
05225	0 07400 4 01707	2805		TSX	C0190,4	4F12755
03475	0 07400 4 01707	3545		TSX	C0190,4 CHSAVE EMPTY, GET NEXT CHAR.	4F13488
03514	0 07400 4 01707	3560	MS061	TSX	C0190,4 GET NEXT CHAR.	4F13503
03530	0 07400 4 01707	3572	MS080	TSX	C0190,4 GET NEXT CHAR.	4F13515
03573	0 07400 4 01707	3607	FS020	TSX	C0190,4 GET FIRST CHAR OF ARGUMENT.	4F13550
03700	0 07400 4 01707	3677		TSX	C0190,4 GET NEXT CHAR.	4F13620
03752	0 07400 4 01707	3720		TSX	C0190,4 GET NEXT CHAR.	4F13663
04477	0 07400 4 01707	4077	NC5	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F14019
04546	0 07400 4 01707	4116	EC1	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F14058
04566	0 07400 4 01707	4132	EC6	TSX	C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.	4F14074

␣C0191 = 970

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

␣C0192 = 974

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

␣C0193 = 976

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

␣C0194 = 979

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

References (2)

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

␣C0195 = 981

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

␣C0200 = 2000

Definition

		1891			END OF PROGRAM C0100.	4F11843
		1892			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11844
		1893				4F11845
		1894			C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160,	4F11846
		1895			CIT00,SS000(CSA000).	4F11847
		1896			C0200 PROCESSES GO TO STATEMENTS.	4F11848
03720	0 07400 4 02366	1897	C0200	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C	4F11849

Reference
D 06247 1 00000 0 03720 3439 TXI C0200,0 GO TO. 4F13387

␣C0202 = 2072

Definition
1969 C0200= ENTRY POINT USED BY C0400,C1000. 4F11921

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

References (4)

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

␣C0205 = 2011

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

␣C0210 = 2014

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

␣C0212 = 2022

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

␣C0213 = 2023

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

␣C0215 = 2027

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

␣C0216 = 2034

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

␣C0220 = 2052

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

␣C0300 = 2075

Definition

		1973			END OF PROGRAM C0200.	4F11925
		1974			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11926
		1975				4F11927
		1976			C0300/ CALLS=-C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00,	4F11928
		1977			STATEB.	4F11929
		1978			C0300 PROCESSES IF STATEMENTS.	4F11930
04033	−0 53400 4 00030	1979	C0300	LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F11931

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

␣C0302 = 2090

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

References (3)

04060	1 00001 2 04052	2000	TXI	C0302,2,1 GO EXAMINE NEXT CHARACTER.	4F11952
04062	−0 10000 0 04052	2002	TNZ	C0302 THE TEST PAREN COUNT, AND IF IT	4F11954
04063	2 00001 2 04052	2003	TIX	C0302,2,1 CAN NOT BE REDUCED,MATE IS FOUND.	4F11955

␣C0303 = 2097

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

␣C0390 = 957

Definition

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

References (8)

04042	0 07400 4 01675	1986	TSX	C0390,4 * WITH THE CHARACTER X.	4F11938
04044	0 07400 4 01675	1988	TSX	C0390,4 * WITH THE CHARACTER 001010.	4F11940
04047	0 07400 4 01675	1991	TSX	C0390,4 * WITH THE CHARACTER EQUAL.	4F11943
04065	0 07400 4 01675	2005	TSX	C0390,4 * WITH THE CHARACTER ENDMK.	4F11957
04617	0 07400 4 01675	2442	TSX	C0390,4 * REPLACE C WITH Z.	4F12391
04621	0 07400 4 01675	2444	TSX	C0390,4 * REPLACE A WITH TEN.	4F12393
04623	0 07400 4 01675	2446	TSX	C0390,4 * REPLACE FIRST L WITH =.	4F12395
04625	0 07400 4 01675	2448	TSX	C0390,4 * REPLACE SECOND L WITH BLANK.	4F12397

␣C0392 = 961

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

␣C0393 = 963

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

␣C0400 = 2118

Definition

		2022			END OF PROGRAM C0300.	4F11974
		2023			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11975
		2024				4F11976
		2025			C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200.	4F11977
		2026			C0400 PROCESSES IF (SENSE SWITCH STATEMENTS.	4F11978
04106	0 50000 0 01441	2027	C0400	CLA	L(112) FOR SENSE SWITCH	4F11979

Reference
D 06250 1 00000 0 04106 3440 TXI C0400,0 IF ISENSE SWITCH. 4F13388

␣C0401 = 2121

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

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

␣C0402 = 2130

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

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

␣C0500 = 2152

Definition

		2063			END OF PROGRAM C0400.	4F12015
		2064			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12016
		2065				4F12017
		2066			C0500/ USES=C0400.	4F12018
		2067			C0500 PROCESSES IF (SENSE LIGHT STATMENTS.	4F12019
04150	0 50000 0 01440	2068	C0500	CLA	L(96) STORE 96 IN	4F12020

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

␣C0600 = 2156

Definition

		2072			END OF PROGRAM C0500.	4F12024
		2073			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12025
		2074				4F12026
		2075			C0600/ USES=C0400.	4F12027
		2076			C0600 PROCESSES IF DIVIDE CHECK STATEMENTS.	4F12028
04154	0 50000 0 01545	2077	C0600	CLA	L(DCT) STORE (DCT000)	4F12029

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

␣C0601 = 2159

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

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

␣C0700 = 2162

Definition

		2084			END OF PROGRAM C0600.	4F12036
		2085			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12037
		2086				4F12038
		2087			C0700/ USES C0600.	4F12039
		2088			C0700 PROCESSES IF AC OVERFLOW STATEMENTS.	4F12040
04162	0 50000 0 01577	2089	C0700	CLA	L(TOV) PICKUP TOV000 TO SET 2H.	4F12041

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

␣C0701 = 2163

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

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

␣C0800 = 2166

Definition

		2094			END OF PROGRAM C0700.	4F12046
		2095			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12047
		2096				4F12048
		2097			C0800/ USES=C0700.	4F12049
		2098			C0800 PROCESSES IF MQ OVERFLOW STATEMENTS.	4F12050
04166	0 50000 0 01600	2099	C0800	CLA	L(TQO) PICKUP TQO000 TO SET 2H,	4F12051

Reference
D 06254 1 00000 0 04166 3444 TXI C0800,0 IF MO OVERFLOW. 4F13392

␣C0900 = 2168

Definition

		2101			END OF PROGRAM C0800.	4F12053
		2102			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12054
		2103				4F12055
		2104			C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300.	4F12056
		2105			C0900 PROCESSES PAUSE STATEMENTS.	4F12057
04170	−0 53400 2 04175	2106	C0900	LXD	C090X,2 SET XR2 FOR EXIT TO CA000.	4F12058

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

␣C0901 = 2169

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

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

␣C0902 = 2170

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

␣C0903 = 2178

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

␣C090X = 2173

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

␣C1000 = 2190

Definition

		2129			END OF PROGRAM C0900.	4F12081
		2130			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12082
		2131				4F12083
		2132			C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0190,TEST..	4F12084
		2133			CIT00.	4F12085
		2134			C1000 PROCESSES ASSIGN STATEMENTS.	4F12086
04216	0 07400 4 02366	2135	C1000	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C	4F12087

Reference
D 06256 1 00000 0 04216 3446 TXI C1000,0 A5SIGN. 4F13394

␣C1100 = 2217

Definition

		2162			END OF PROGRAM C1000.	4F12115
		2163			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12116
		2164				4F12117
		2165			C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00.	4F12118
		2166			C1100 PROCESSES SENSE LIGHT STATMENTS.	4F12119
04251	0 07400 2 01654	2167	C1100	TSX	C0180X,2 * GO FORM BINARY EQUIV OF SL NUMBER.	4F12120

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

␣C1200 = 2230

Definition

		2180			END OF PROGRAM C1100.	4F12134
		2181			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12135
		2182				4F12136
		2183			C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS.	4F12137
		2184			C1200 PROCESSES DIMENSION STATEMENTS.	4F12138
04266	0 07400 4 01707	2185	C1200	TSX	C0190,4 * PROCEED TO ASSEMBLE IN 1G	4F12139

References (2)

	04341	−0 10000 0 04266	2228		TNZ	C1200 IF CHARACTER IS ENDMAKR, THEN	4F12185
D	06262	−3 00000 0 04266	3450		TXL	C1200,0 DIMENSION*	4F13398

␣C1201 = 2271

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

References (2)

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

␣C1210 = 2264

Definition
04330 0 50000 0 01112 2219 C1210 CLA 1G IF 1 DIMENSION, PUT D1 4F12176
Reference
04307 0 10000 0 04330 2202 TZE C1210 THEN 4F12156

␣C1220 = 2268

Definition
04334 0 50000 0 01112 2223 C1220 CLA 1G IF 2 DIMENSIONS, PUT D2 IN 4F12180
Reference
04315 0 10000 0 04334 2208 TZE C1220 THEN 4F12164

␣C1280 = 2239

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

␣C1281 = 2242

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

␣C1282 = 2245

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

␣C1299 = 2244

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

References (2)

	04276	0 02000 0 04304	2193		TRA	C1299 FOUND,	4F12147
	04301	0 02000 0 04304	2196		TRA	C1299 FOUND,	4F12150

␣C1300 = 2275

Definition

		2230			END OF PROGRAM C1200.	4F12187
		2231			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12188
		2232				4F12189
		2233			C1300/ CALLS=C0901,TET00,CIT00.	4F12190
		2234			C1300 PROCESSES STOP STATEMENTS.	4F12191
04343	0 07400 1 03321	2235	C1300	TSX	TET00,1 * GO MAKE EIFNO ENTRY	4F12192

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

␣C1400 = 2284

Definition

		2244			END OF PROGRAM C1300.	4F12201
		2245			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12202
		2246				4F12203
		2247			C1400/ CALLS=C0190,C0180,TEST..,TET00.	4F12204
		2248			C1400 PROCESS FREQUENCY STATEMENTS.	4F12205
04354	0 07400 2 01654	2249	C1400	TSX	C0180X,2 * GO FORM BINARY EQUIV OF EFN.	4F12206

References (2)

	04373	−0 10000 0 04354	2264		TNZ	C1400 IF ENDMAKE, THIS STATEMENT IS DONE.	4F12223
D	06264	−3 00000 0 04354	3452		TXL	C1400,0 FREOUENCY,	4F13400

␣C1401 = 2290

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

␣C1500 = 2301

Definition

		2266			END OF PROGRAM C1400.	4F12225
		2267			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12226
		2268				4F12227
		2269			C1500/ CALLS=C0190,TEST..,C0160,C0180,TET00.	4F12228
		2270			C1500 PROCESSES EQUIVALENCE STATEMENTS.	4F12229
04375	0 07400 4 01707	2271	C1500	TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC.	4F12230

References (2)

	04431	−0 10000 0 04375	2299		TNZ	C1500 IF ENDMARK, THEN	4F12259
D	06263	−3 00000 0 04375	3451		TXL	C1500,0 EOUIVALENCE.	4F13399

␣C1501 = 2303

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

␣C1502 = 2313

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

␣C1503 = 2318

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

References (2)

D	04406	1 00000 0 04416	2280		TXI	C1503,0 AND IF	4F12239
D	04410	2 00000 0 04416	2282		TIX	C1503,0 THEN	4F12241

␣C1504 = 2323

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

␣C1600 = 2331

Definition

		2301			END OF PROGRAM C1500.	4F12261
		2302			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12262
		2303				4F12263
		2304			C1600/ CALLS=C0190,TEST..,GIF,BSS.	4F12264
		2305			C1600 PROCESSES CONTINUE STATEMENTS.	4F12265
04433	0 07400 4 01707	2306	C1600	TSX	C0190,4 * OBTAIN NEXT NBCHAR IN ACC.	4F12266

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

␣C3000 = 2338

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

␣C3001 = 2358

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

␣C3002 = 2374

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

␣C3003 = 2348

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

␣C3004 = 2369

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

␣C3100 = 2378

Definition

		2358			END OF PROGRAM C3000.	4F12318
		2359			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12319
		2360				4F12320
		2361			C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00.	4F12321
		2362			C3100 PROCESSES COMMON STATEMENTS.	4F12322
04512	0 07400 4 01707	2363	C3100	TSX	C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL	4F12323

References (2)

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

␣C3101 = 2396

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

References (2)

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

␣C3200 = 2398

Definition

		2383			END OF PROGRAM C3100.	4F12332
		2384			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12333
		2385				4F12334
		2386			C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF).	4F12335
		2387			C3200 PROCESSES RETURN STATEMENTS.	4F12336
04536	0 07400 4 01707	2388	C3200	TSX	C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER,	4F12337

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

␣C3300 = 2439

Definition

		2429			END OF PROGRAM C3200.	4F12378
		2430			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12379
		2431				4F12380
		2432			C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00.	4F12381
		2433			C3300 PROCESSES CALL STATEMENTS.	4F12382
04607	0 07400 4 01707	2434	C3300	TSX	C0190,4 * IF 1ST CHARACTER OF NAME IS	4F12383

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

␣C3301 = 2458

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

␣C3351 = 2078

Definition
04036 0 53400 1 01414 3772 C3351 LXA L(6),1 SET TO COLLECT SIX CHARS 4F13714
Reference
04062 1 00000 0 04036 3792 C3357 TXI C3351,0,** RETURN TO CONTINUE COLLECTING 4F13734

␣C3352 = 2080

Definition
04040 −2 00001 4 04053 3774 C3352 TNX C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU 4F13716
Reference
04052 0 02000 0 04040 3784 TRA C3352 NOT SIX CHARS YET, CONTINUE C0LLECTING 4F13726

␣C3353 = 2087

Definition
04047 −0 50000 0 01112 3781 C3353 CAL 1G RETREIVE WORD 4F13723
Reference
04045 −0 10000 0 04047 3779 TNZ C3353 4F13721

␣C3354 = 2091

Definition
04053 −0 53400 4 01614 3785 C3354 LXD FWA,4 LOAD MQ WITH NEXT F REGION WORD 4F13727
Reference
04040 −2 00001 4 04053 3774 C3352 TNX C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU 4F13716

␣C3355 = 2094

Definition
04056 −0 63400 4 01614 3788 C3355 SXD FWA,4 4F13730
Reference
04055 1 77777 4 04056 3787 TXI C3355,4,−1 UPDATE FWA 4F13729

␣C3356 = 2097

Definition
04061 0 07400 1 04437 3791 C3356 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13733
Reference
04051 −2 00001 1 04061 3783 TNX C3356,1,1 TEST FOR SIX CHARS COLLECTED 4F13725

␣C3357 = 2098

Definition
04062 1 00000 0 04036 3792 C3357 TXI C3351,0,** RETURN TO CONTINUE COLLECTING 4F13734

References (2)

	04437	−0 63400 1 04062	4033	C3390	SXD	C3357,1 SAVE CALLING IR	4F13975
	04446	−0 53400 1 04062	4040		LXD	C3357,1 RELOAD CALLING IR	4F13982

␣C3358 = 2099

Definition
04063 −0 60000 0 01365 3793 C3358 STQ RESIDU UPDATE RESIDU 4F13735
Reference
04050 −2 00001 2 04063 3782 TNX C3358,2,1 TEST FOR ALL CHARS COLLECTED 4F13724

␣C3359 = 2103

Definition
04067 −0 76300 0 00006 3797 C3359 LGL 6 ADD BLANKS 4F13739
Reference
04070 2 00001 1 04067 3798 TIX C3359,1,1 4F13740

␣C3360 = 2105

Definition
04071 0 07400 1 04437 3799 C3360 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13741
Reference
04065 −2 00001 1 04071 3795 TNX C3360,1,1 TEST FOR SIX CHARS IN AC DEC IR1 4F13737

␣C3390 = 2335

Definition

		4030			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13972
		4031				4F13973
		4032			CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE	4F13974
04437	−0 63400 1 04062	4033	C3390	SXD	C3357,1 SAVE CALLING IR	4F13975

References (3)

04061	0 07400 1 04437	3791	C3356	TSX	C3390,1 GO TO ENTER WORD IN HOLARG TABLE	4F13733
04071	0 07400 1 04437	3799	C3360	TSX	C3390,1 GO TO ENTER WORD IN HOLARG TABLE	4F13741
04073	0 07400 1 04437	3801		TSX	C3390,1 GO TO ENTER WORD IN HOLARG TABLE	4F13743

␣C3400 = 2480

Definition

		2475			END OF PROGRAM C3300.	4F12424
		2476			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12425
		2477				4F12426
		2478			C3400/ CALLS=C0190,DIAG,TEST...	4F12427
		2479			C3400 PROCESSES END STATEMENTS.	4F12428
04660	0 53400 2 01413	2480	C3400	LXA	L(5),2 PREPARE TO SET 5 SS SIMULATORS.	4F12429

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

␣C3405 = 2481

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

␣C3410 = 2486

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

␣C3500 = 2336

Definition

		2311			END OF PROGRAM C1500.	4F12271
		2312			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F12272
		2313				4F12273
		2314			C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX.	4F12274
		2315			C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS.	4F12275
04440	−0 50000 0 00422	2316	C3500	CAL	TXHOP	4F12276

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

␣CA010 = 1824

Definition

		1687			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11639
		1688				4F11640
		1689			CA000/ CALLS=CA100,SR6DC1,TET00,DIAG.	4F11641
		1690			CA000 ASSEMBLES STATEMENT IN THE F-REGION AND ASSIGNS AN IFN.	4F11642
03440	−0 53400 4 02575	1691	CA010	LXD	ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN	4F11643

References (18)

	00572	0 02000 0 03440	1586		TRA	CA010 * GO BEGIN STATE A OF SECTION ONE.	4F11541
D	03717	1 00000 0 03440	1890		TXI	CA010,0 * EXTI TO PROCESS NEXT STATEMENT.	4F11842
	04032	1 00372 0 03440	1972	CTRAD	TXI	CA010,0,250 * EXIT TO PROCESS NEXT STATEMENT.	4F11924
	04175	1 74341 0 04202	2112	C090X	TXI	C0903,0,−CA010+1 IF NOT END OF STATEMENT, THEN	4F12064
D	04265	1 00000 0 03440	2179		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12133
D	04342	1 00000 0 03440	2229		TXI	CA010,0 * EXIT TO PROCESS NEXT STATMENT.	4F12186
D	04353	1 00000 0 03440	2243		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12200
D	04374	1 00000 0 03440	2265		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12224
D	04432	1 00000 0 03440	2300		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12260
D	04437	1 00000 0 03440	2310		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12270
D	04511	1 00000 0 03440	2357		TXI	CA010,0 * OTHERWISE, EXIT TO CA000.	4F12317
D	04535	1 00000 0 03440	2382		TXI	CA010,0 * IF ENDMK, EXIT TO CA000.	4F12331
D	04606	1 00000 0 03440	2428		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12377
D	04657	1 00000 0 03440	2474		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12423
D	04672	1 00000 0 03440	2490		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F12439
	05135	0 10000 0 03440	2727		TZE	CA010 * EXIT TO PROCESS NEXT STATEMENT.	4F12677
	05573	0 10000 0 03440	3071		TZE	CA010 * EXIT TO PROCESS NEXT STATEMENT.	4F13021
D	05602	1 00000 0 03440	3078		TXI	CA010,0 * EXIT TO PROCESS NEXT STATEMENT.	4F13028

␣CA013 = 1828

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

␣CA015 = 1854

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

␣CA018 = 1833

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

␣CA019 = 1834

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

␣CA020 = 1837

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

␣CA021 = 1844

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

␣CA022 = 1845

Definition
03465 0 34000 1 77777 1712 CA022 CAS −1,1 TO FIND FIRST NON BLANK WORD. 4F11664
Reference
03467 1 00001 1 03465 1714 TXI CA022,1,1 BLANK, SO CONTINUE SCAN. 4F11666

␣CA023 = 1848

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

␣CA100 = 3010

Definition

		3168			END OF PROGRAM BSS,	4F13116
		3169			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13117
		3170				4F13118
		3171			CA100,4 / CALLS=DIAG, CALLER=CA000,	4F13119
		3172			CA100 READS NEXT SOURCE PROGRAM CARD (1 TAPE RECORD),	4F13120
05702	0 53400 2 01413	3173	CA100	LXA	TERC,2 PREPARE TO COUNT	4F13121

References (4)

00571	0 07400 4 05702	1585	DMWR99	TSX	CA100,4 * GO TO SUBROUTINE TO LOAD FT REGION.	4F11540
03456	0 07400 4 05702	1705		TSX	CA100,4 * GO READ NEXT NON-BLANK CARD.	4F11657
05732	0 02000 0 05702	3198		TRA	CA100 IF BLANK, GO TO READ NEXT CARD.	4F13146
05736	0 10000 0 05702	3202		TZE	CA100 TEST FOR COMMENT CARD.	4F13150

␣CA101 = 3014

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

␣CA102 = 3016

Definition
3179 COPY LOOP. 4F13127

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

␣CA103 = 3025

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

␣CA112 = 3030

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

␣CA113 = 3035

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

␣CA120 = 3040

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

␣CA130 = 3019

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

␣CA131 = 3022

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

␣CB000 = 1906

Definition

		1778			END OF PROGRAM CD000.	4F11730
		1779			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11731
		1780				4F11732
		1781			CB000/ CALLS=C0190X,C0190,DIAG.	4F11733
		1782			CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC.	4F11734
03562	0 53400 1 01407	1783	CB000	LXA	L(1),1 SET XR TO COUNT PARENTHESES.	4F11735

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

␣CB001 = 1908

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

References (3)

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

␣CB005 = 1912

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

␣CB006 = 1915

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

␣CB007 = 1918

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

␣CB200 = 1921

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

␣CB201 = 1922

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

␣CB205 = 1926

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

␣CB206 = 1929

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

␣CB500 = 1932

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

␣CC000 = 1934

Definition

		1811			END OF PROGRAM CB000.	4F11763
		1812			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11764
		1813				4F11765
		1814			CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00.	4F11766
		1815			CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITHMETIC.	4F11767
03616	0 60000 0 01113	1816	CC000	STZ	2G SET DICTIONARY WORD TAG, AND	4F11768

References (4)

D	03531	1 00000 0 03616	1753		TXI	CC000,0 * TO NON-ARITHMETIC CLASSIFICATION.	4F11705
D	03600	1 00000 0 03616	1797		TXI	CC000,0 * OTHERWISE, GO TO DIC LOOK-UP.	4F11749
	03601	2 00001 1 03616	1798	CB200	TIX	CC000,1,1 * IF EQUAL WAS NOT WITHIN PARENS,	4F11750
D	03610	1 00000 0 03616	1805		TXI	CC000,0 * GO TO NON-ARITHMETIC DIC LOOK-UP.	4F11757

␣CC001 = 1936

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

␣CC002 = 1942

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

␣CC004 = 1946

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

␣CC005 = 1952

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

␣CC007 = 1956

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

␣CC008 = 1962

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

␣CC500 = 3043

Definition

		3207			END OF PROGRAM CA100.	4F13155
		3208			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13156
		3209				4F13157
		3210			CC500,4/ CALLER=CC000,	4F13156
		3211			CC500 BRINGS NEXT CHARACTER OF DICTIONARY INTO AC(30-35),	4F13159
05743	−0 75400 0 00000	3212	CC500	PXD	,0 CLEAR THE AC	4F13160

References (3)

03621	0 07400 4 05743	1819		TSX	CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER.	4F11771
03626	0 07400 4 05743	1824	CC002	TSX	CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER.	4F11776
03640	0 07400 4 05743	1834	CC005	TSX	CC500,4 * OTHERWISE, EXAMINE NEXT DIC CHAR.	4F11786

␣CC501 = 3048

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

␣CC502 = 3050

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

␣CCOMP = 2668

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

␣CD000 = 1859

Definition

		1726			END OF PROGRAM CA000.	4F11678
		1727			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11679
		1728				4F11680
		1729			CD000/ CALLS=C0190X,C0190,DIAG.	4F11681
		1730			CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS.	4F11682
03503	0 07400 4 01671	1731	CD000	TSX	C0190X,4 * SET SCAN TO PICK UP 1ST CHARACTER.	4F11683

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

␣CD001 = 1860

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

References (4)

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

␣CD002 = 1864

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

␣CD003 = 1866

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

␣CD004 = 1869

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

References (2)

D	03520	1 00000 0 03515	1744		TXI	CD004,0 IS	4F11696
D	03521	1 00000 0 03515	1745		TXI	CD004,0 A	4F11697

␣CD005 = 1874

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

␣CD600 = 1891

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

␣CD601 = 1894

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

␣CD700 = 1878

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

References (2)

D	03524	1 00000 0 03526	1748		TXI	CD700,0 INTEGER.	4F11700
D	03533	1 00000 0 03526	1755		TXI	CD700,0 THEN $ IS LEGAL IN FORMAT TEST.	4F11707

␣CD701 = 1882

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

␣CD800 = 1888

Definition
03540 0 34000 0 01427 1760 CD800 CAS SPECOP CHECK FOR $ 4F11712
Reference
D 03536 1 00000 0 03540 1758 TXI CD800,0 ENDMARK, THEN SKIP 4F11710

␣CD900 = 1884

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

References (3)

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

␣CEXIT = 2670

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

␣CHAR2 = 788

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

␣CHAR3 = 790

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

␣CHCTR = 980

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

References (9)

01673	−0 63400 0 01724	546		SXD	CHCTR,0 SET CHARACTER COUNT = 0,	4F10536
01677	−0 53400 1 01724	556		LXD	CHCTR,1 IN THE F-REGION.	4F10546
01710	−0 53400 1 01724	571		LXD	CHCTR,1 SET XR1 = CHARACTER COUNT.	4F10561
01725	−0 63400 1 01724	584	C0195	SXD	CHCTR,1 IF NOT BLANK, RESET CHAR COUNT,	4F10574
02661	−0 53400 4 01724	1083		LXD	CHCTR,4 RESET CHARACTER COUNTER	4F11073
02663	−0 63400 4 01724	1085	SS0018	SXD	CHCTR,4 SUBSCRIPT MULTIPLIER.	4F11075
05117	−0 53400 1 01724	2713		LXD	CHCTR,1 SET XR1 = CHARACTER COUNT.	4F12663
04034	−0 53400 4 01724	3770		LXD	CHCTR,4 GET CURRENT RESIDUE CHAR COUNT	4F13712
04064	−0 63400 4 01724	3794		SXD	CHCTR,4 UPDATE CHCTR	4F13736

␣CHECK = 380

Definition
00574 0 00000 0 00000 1592 CHECK PZE ,,** SAVING CELL FOR LENGTH OF STATE. 4F11547

References (3)

00515	−0 63400 2 00574	1541	SXD	CHECK,2 SAVE LENGTH.	4F11496
00530	−0 53400 2 00574	1552	LXD	CHECK,2 X	4F11507
00536	−0 53400 2 00574	1558	LXD	CHECK,2 X	4F11513

␣CIT00 = 985

Definition

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

References (42)

03424	0 07400 4 01731	1487	FLTR04	TSX	CIT00,4	4F11457K
03431	0 07400 4 01731	1492		TSX	CIT00,4	4F11457P
03437	1 00000 0 01731	1498	FLTR05	TXI	CIT00,0,** GO COMPILE LXD M(,4 OR 7(TYPE=,4	4F11457V
03776	0 07400 4 01731	1943		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F11895
04023	0 07400 4 01731	1964		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F11916
04142	0 07400 4 01731	2057		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12009
04210	0 07400 4 01731	2123		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12075
04236	0 07400 4 01731	2151		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12104
04243	0 07400 4 01731	2156		TSX	CIT00,4 * STORE SECOND COMPILED INSTRUCTION=	4F12109
04260	0 07400 4 01731	2174		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY.	4F12128
04346	0 07400 4 01731	2238		TSX	CIT00,4 * GO MAKE FOLLOWING CIT ENTRY=	4F12195
04547	0 07400 4 01731	2397		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12346
04555	0 07400 4 01731	2403		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12352
04562	0 07400 4 01731	2408		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12357
04567	0 07400 4 01731	2413		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12362
04574	0 07400 4 01731	2418		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12367
04601	0 07400 4 01731	2423		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12372
04640	0 07400 4 01731	2459		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12408
04645	0 07400 4 01731	2464		TSX	CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F12413
05674	0 07400 4 01731	3162	BSS	TSX	CIT00,4 * GO MAKE FOLLOWING CIT ENTRY=	4F13110
03543	0 07400 4 01731	5074		TSX	CIT00,C YES - COMPILE FOUR 36 - BIT	4F15008
03723	0 07400 4 01731	5186		TSX	CIT00,C COMPILE LRS 35	4F15120
03740	0 07400 4 01731	5199		TSX	CIT00,C COMPILE CLM	4F15133
03745	0 07400 4 01731	5204		TSX	CIT00,C COMPILE LLS 18	4F15138
04014	0 07400 4 01731	5243		TSX	CIT00,C COMPILE ALS 17	4F15177
04044	0 07400 4 01731	5267	CP2100	TSX	CIT00,C 1ST ARG IN ACC	4F15201
04067	0 07400 4 01731	5286	CP2250	TSX	CIT00,C 2ND ARG IN MQ	4F15220
04114	0 07400 4 01731	5307		TSX	CIT00,C COMPILE STO 4...TYPE NO, + J-2, J=4,...	4F15241
04526	0 07400 4 01731	5575		TSX	CIT00,C COMPILE ARS 18	4F15519
04533	0 07400 4 01731	5580		TSX	CIT00,C COMPILE ADD *-2	4F15524
04716	0 07400 4 01731	5695	ES0990	TSX	CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN	4F15639
04723	0 07400 4 01731	5700		TSX	CIT00,C	4F15644
04730	0 07400 4 01731	5705		TSX	CIT00,C	4F15649
04735	0 07400 4 01731	5710		TSX	CIT00,C	4F15654
04742	0 07400 4 01731	5715		TSX	CIT00,C	4F15659
04765	0 07400 4 01731	5734	ES0440	TSX	CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN	4F15678
04772	0 07400 4 01731	5739		TSX	CIT00,C	4F15683
04777	0 07400 4 01731	5744		TSX	CIT00,C	4F15688
05052	0 07400 4 01731	5787		TSX	CIT00,C COMPILE LLS 37	4F15731
05057	0 07400 4 01731	5792		TSX	CIT00,4	4F15736
05104	0 07400 4 01731	5814	COMP	TSX	CIT00,C	4F15758
	01731	5954	CIT	SYN	CIT00	4F15890

␣CIT01 = 994

Definition
01742 0 70000 1 00640 605 CIT01 CPY CIB,1 COPY SUCCESSIVE 4F10595
Reference
01745 3 00001 2 01742 608 CIT03 TXH CIT01,2,1 UNTIL XR2 = 0. 4F10598

␣CIT02 = 996

Definition
01744 1 00001 2 01745 607 CIT02 TXI CIT03,2,1 AND CONTINUE 4F10597
Reference
01743 1 77777 1 01744 606 TXI CIT02,1,−1 WORDS OF BLOCK 4F10596

␣CIT03 = 997

Definition
01745 3 00001 2 01742 608 CIT03 TXH CIT01,2,1 UNTIL XR2 = 0. 4F10598
Reference
01744 1 00001 2 01745 607 CIT02 TXI CIT03,2,1 AND CONTINUE 4F10597

␣CIT04 = 999

Definition
01747 0 53400 1 01412 610 CIT04 LXA L(4),1 SET XR1 = ENTRY SIZE. 4F10600
Reference
01737 −0 10000 0 01747 602 TNZ CIT04 IF BLOCK IS NOT FULL,GO MAKE ENTRY. 4F10592

␣CIT05 = 1000

Definition
01750 1 77777 4 01751 611 CIT05 TXI CIT05+1,4,−1 SET XR4 = -(ADDR OF NEXT ENTRY WRD) 4F10601

References (2)

	01750	1 77777 4 01751	611	CIT05	TXI	CIT05+1,4,−1 SET XR4 = -(ADDR OF NEXT ENTRY WRD)	4F10601
	01756	2 00001 1 01750	617	CIT07	TIX	CIT05,1,1 WHEN DOEN,	4F10607

␣CIT06 = 1003

Definition
01753 0 50000 0 00000 614 CIT06 CLA ** MOVE ENTRY 4F10604
Reference
01752 0 62100 0 01753 613 STA CIT06 TO SET NEXT ADDRESS. 4F10603

␣CIT07 = 1006

Definition
01756 2 00001 1 01750 617 CIT07 TIX CIT05,1,1 WHEN DOEN, 4F10607
Reference
01755 1 77777 2 01756 616 TXI CIT07,2,−1 AND COUNT 1 FOR EACH WORD ENTERED. 4F10606

␣CLOAD = 2667

Definition
05153 0 53400 4 02652 2754 CLOAD LXA CTESTX,4 SET XR4 TO PICK CONTROL CHARACTERS. 4F12704

␣COMMA = 766

Definition
01376 +000000000073 320 COMMA OCT 73 , - CTEST-8 4F10311

References (5)

03247	0 34000 0 01376	1349	TESTA0	CAS	COMMA	4F11339
03255	0 34000 0 01376	1356	TESTB0	CAS	COMMA	4F11346
03305	0 34000 0 01376	1385	TESTG0	CAS	COMMA	4F11375
03505	0 34000 0 01376	1733		CAS	COMMA SCAN	4F11685
	01376	5944	ACOMMA	SYN	COMMA	4F15880

␣COMPR = 1181

Definition
02235 2 00000 2 02237 812 COMPR TIX COMPR+2,2,** (K*L) 4F10802

References (3)

02124	0 62200 0 02235	739		STD	COMPR X	4F10729
02142	−2 00001 1 02235	753	ADD02	TNX	COMPR,1,1 COMPUTES (N*L).	4F10743
02235	2 00000 2 02237	812	COMPR	TIX	COMPR+2,2,** (K*L)	4F10802

␣CTEST = 774

Definition
01406 328 CTEST BSS 0 ADDRESS USED FOR INDEXING ABOVE. 4F10319

References (7)

01630	0 34000 4 01406	498	C0162	CAS	CTEST,4 CHARACTER	4F10489
02644	0 34000 4 01406	1070	SS0015	CAS	CTEST,4 TEST THIS CHARACTER AGAINTT	4F11060
02652	0 76100 0 00012	1076	CTESTX	NOP	CTEST−ENDMK FOUND TO BE NUMERIC	4F11066
02705	0 34000 4 01406	1103	SS005	CAS	CTEST,4 TO ALL	4F11093
05154	0 34000 4 01406	2755	CCOMP	CAS	CTEST,4 COMPARE CHARACTER WITH CONSTANTS.	4F12705
03505	0 34000 4 01406	3553	MS051	CAS	CTEST,4	4F13496
03516	0 34000 4 01406	3562	MS071	CAS	CTEST,4 X	4F13505

␣CTRAD = 2074

Definition
04032 1 00372 0 03440 1972 CTRAD TXI CA010,0,250 * EXIT TO PROCESS NEXT STATEMENT. 4F11924

References (4)

03750	−0 53400 2 04032	1921		LXD	CTRAD,2 OBTAIN 250-(NO. TRAD ENTRIES), AND	4F11873
03760	−0 53400 2 04032	1929		LXD	CTRAD,2 REDUCE COUNTER	4F11881
03762	−0 63400 2 04032	1931	C0216	SXD	CTRAD,2 BY 1.	4F11883
03766	0 50000 0 04032	1935		CLA	CTRAD OBTAIN IN ADDR OF ACC 250-NO. OF	4F11887

␣DEC17 = 821

Definition
01465 0 00021 0 00000 377 DEC17 PZE ,,17 4F10368
Reference
04020 0 00000 0 01465 5247 HTR DEC17 4F15181

␣DEC18 = 822

Definition
01466 0 00022 0 00000 378 DEC18 PZE ,,18 4F10369

References (5)

03751	0 00000 0 01466	5208		HTR	DEC18	4F15142
04532	0 00000 0 01466	5579		HTR	DEC18	4F15523
04746	0 00000 0 01466	5719		HTR	DEC18	4F15663
04771	0 00000 0 01466	5738		HTR	DEC18	4F15682
	01466	5962	D18	SYN	DEC18	4F15898

␣DEC35 = 826

Definition
01472 0 00043 0 00000 382 DEC35 PZE ,,35 4F10373
Reference
03727 0 00000 0 01472 5190 HTR DEC35 4F15124

␣DECR1 = 813

Definition
01455 0 00001 0 00001 369 DECR1 PZE 1,,1 CONSTANT USED BY DRTABS. 4F10360
Reference
02207 0 40000 0 01455 790 ADD DECR1 JUST ADD TO TABLE. 4F10780

␣DIMSR = 2846

Definition
05436 −0 50000 0 07403 2971 DIMSR CAL SA IF THIS VARIABLE 4F12921
Reference
05431 0 10000 0 05436 2966 TZE DIMSR IF THIS VARIABLE HAS A SUBSCRIPT, 4F12916

␣DIMSW = 1117

Definition
D 02135 −3 00000 0 02145 748 DIMSW TXL BUFF,0 IF DIM TABLE, SKIP SEARCH. 4F10738
Reference
02074 0 63000 0 02135 715 DRTABS STP DIMSW SET SWITCH. 4F10705

␣DMCN3 = 1078

Definition
02066 0 70000 0 01102 699 DMCN3 CPY D3 CONSTANT USED BY DIM.SR. 4F10689
Reference
02013 −0 50000 0 02066 655 CAL DMCN3 (CPY D3) 4F10645

␣DOLEV = 3840

Definition
07400 3482 DOLEV BSS 1 PARAMETERS FOR TLDOS TABLE -IOT. 4F13428

References (19)

05143	0 60000 0 07400	2742		STZ	DOLEV CLEAR DO LEVEL COUNTER.	4F12692
05224	0 60000 0 07400	2804		STZ	DOLEV	4F12754
05230	−0 50000 0 07400	2808	LPRD	CAL	DOLEV IF THE BEGINNING OF A DO NEST,	4F12758
05232	0 53400 4 07400	2810		LXA	DOLEV,4 TEST FOR NULL FORMULA.	4F12760
05242	−0 53400 4 07400	2818	LPR3	LXD	DOLEV,4 INCREASE THE C(DOLEV D)	4F12768
05245	0 60200 0 07400	2821		SLW	DOLEV TO ZERO,	4F12771
05250	0 60100 4 07400	2824		STO	DOLEV,4 THE LOCATION IN TLDO	4F12774
05256	−0 53400 4 07400	2830		LXD	DOLEV,4 IF 3 OR FEWER LEVELS IN LIST DO,	4F12780
05261	−0 53400 4 07400	2838	EQS	LXD	DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN,	4F12788
05264	−0 50000 4 07400	2841	EQS2	CAL	DOLEV,4 INITIALIZE SPECIFICATION	4F12791
05346	0 53400 4 07400	2901		LXA	DOLEV,4 EXAMINE DOLEV ADDRESS FOR ZERO TO	4F12851
05352	−0 53400 4 07400	2905	SPCR	LXD	DOLEV,4 DECREASE DOLEV D	4F12855
05355	0 60200 0 07400	2908		SLW	DOLEV THEN ALL LEVELS ARE NOT TREATED.	4F12858
05377	−0 53400 4 07400	2931	RPR	LXD	DOLEV,4 TEST LEGALITY OF ),	4F12881
05402	−0 50000 4 07400	2934	RPS	CAL	DOLEV,4 NULLIFY DO AT CURRENT LEVEL.	4F12884
05421	0 53400 4 07400	2958	CMA7	LXA	DOLEV,4 IF DOLEV ADDRESS = 0, AND IF	4F12908
05424	−0 50000 0 07400	2961	CMA6	CAL	DOLEV IN ANY CASE,	4F12911
05426	0 60100 0 07400	2963		STO	DOLEV BY 1, AND THEN	4F12913
05550	−0 53400 4 07400	3050		LXD	DOLEV,4 CHECK THE NUMBER OF PARENTHESES.	4F13000

␣DRSYM = 576

Definition
01100 5978 DRSYM SYN ERASE COMMON WORKING STORAGE. 4F15914

References (4)

02026	0 70000 0 01100	666	DMSR04	CPY	DRSYM COPY DRUM SYMBOL.	4F10656
02033	0 34000 0 01100	671		CAS	DRSYM COMPARE DRUM SYMBOL WITH ANEM OF V.	4F10661
02036	0 70000 0 01100	674		CPY	DRSYM CONTINUE	4F10664
02051	−0 50000 0 01100	685	DMSR09	CAL	DRSYM COMPUTE A	4F10675

␣E1TDR = 576

Definition
01100 5979 E1TDR SYN ERASE COMMON WORKING STORAGE. 4F15915

␣E2TDR = 577

Definition
01101 5981 E2TDR SYN ERASE+1 COMMON WORKING STORAGE. 4F15917

␣E3TDR = 578

Definition
01102 5983 E3TDR SYN ERASE+2 COMMON WORKING STORAGE. 4F15919

␣EIFNO = 24

Definition

		69			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10061
		70				4F10062
		71			EIFNO AND SENSE SWITCH SIMULATORS.	4F10063
00030	0 00000 0 00000	72	EIFNO	PZE	,, EXTERNAL,,INTERAL FORMULA NUMBER.	4F10064

References (37)

00323	0 00001 0 00030	111		PZE	EIFNO,,1 A,,E.	4F10103
00375	0 00001 0 00030	167		PZE	EIFNO,,1 A,,E.	4F10159
00400	0 00001 0 00030	171		PZE	EIFNO,,1 A,,E.	4F10163
02366	−0 53400 1 00030	859	GETIFN	LXD	EIFNO,1 PLACE THE INTERNAL FORMULA	4F10849
02372	−0 50000 0 00030	869	JIF	CAL	EIFNO INCREASE THE	4F10859
02374	0 62200 0 00030	871		STD	EIFNO BY 1.	4F10861
02375	−0 50000 0 00030	873	GIF	CAL	EIFNO PICKUP IFN,	4F10863
03120	−0 50000 0 00030	1245	FTG000	CAL	EIFNO ENTER FORTAG=	4F11235
03402	0 50000 0 00030	1469		CLA	EIFNO GET LAST INTERNAL AND EXTERNAL FORMULA NOS.	4F114572
03442	−0 53400 1 00030	1693		LXD	EIFNO,1 KEEP INTERAL FORMULA NUMBER	4F11645
03444	−0 63400 1 00030	1695	CA013	SXD	EIFNO,1 UP TO DATE BY ADDING 1.	4F11647
03500	0 62100 0 00030	1723		STA	EIFNO STORE RESULT IN ADDRESS OF EIFNO.	4F11675
04033	−0 53400 4 00030	1979	C0300	LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F11931
04123	−0 53400 4 00030	2042		LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F11994
04205	−0 53400 4 00030	2120		LXD	EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA	4F12072
04442	−0 53400 4 00030	2318	C3000	LXD	EIFNO,4 EXAMINE INTERNAL FORMULA NO., AND	4F12278
04462	−0 53400 4 00030	2334		LXD	EIFNO,4 PLACE	4F12294
04626	0 50000 0 00030	2449		CLA	EIFNO PUT 1ST IFN OF THIS CAL IN CALLNM	4F12398
05113	−0 50000 0 00030	2709	FOR	CAL	EIFNO MOVE EXTERNAL FORMULA NUMBER	4F12659
05343	−0 50000 0 00030	2897		CAL	EIFNO ALSO RESTORE INTERNAL FORMULA NO.	4F12847
05575	−0 60200 0 00030	3073		ORS	EIFNO OF EIFNO TO MINUS, AND	4F13023
05600	−0 50000 0 00030	3076		CAL	EIFNO THEN RESTORE	4F13026
05601	0 60100 0 00030	3077		STO	EIFNO EIFNO, AND	4F13027
05773	−0 50000 0 00030	3246	IFFIX	CAL	EIFNO SET	4F13194
03566	−0 50000 0 00030	3602		CAL	EIFNO ENTER INTERNAL FORMULA NO IN FORSUB.	4F13545
03732	−0 50000 0 00030	3704		CAL	EIFNO FIXED, PREPARE FORVAR ENTRY.	4F13647
03775	−0 50000 0 00030	3739		CAL	EIFNO FIXED, PREPARE FORVAL ENTRY.	4F13681
03550	−0 50000 0 00030	5079	CP0090	CAL	EIFNO	4F15013
04473	0 50000 0 00030	5548	CP5000	CLA	EIFNO FN FUNCTION	4F15492
04475	0 60100 0 00030	5550		STO	EIFNO AND	4F15494
04542	−0 50000 0 00030	5587		CAL	EIFNO	4F15531
04562	−0 50000 0 00030	5603		CAL	EIFNO	4F15547
05044	−0 53400 4 00030	5781	ES1520	LXD	EIFNO,4	4F15725
05071	0 50200 0 00030	5802		CLS	EIFNO	4F15746
05072	0 60100 0 00030	5803		STO	EIFNO	4F15747
05075	0 50200 0 00030	5806		CLS	EIFNO	4F15750
05076	0 60100 0 00030	5807		STO	EIFNO	4F15751

␣ENDI1 = 25

Definition
00031 0 00000 0 00002 73 ENDI1 PZE 2 SIMULATOR FOR SENSE SWITCH 1. 4F10065
Reference
04665 0 60100 2 00036 2485 STO ENDI1+5,2 IF 0 OR 1, SET PROPER SIMULATOR. 4F12434

␣ENDI2 = 26

Definition
00032 0 00000 0 00002 74 ENDI2 PZE 2 SIMULATOR FOR SENSE SWITCH 2. 4F10066

␣ENDI3 = 27

Definition
00033 0 00000 0 00002 75 ENDI3 PZE 2 SIMULATOR FOR SENSE SWITCH 3. 4F10067

␣ENDI4 = 28

Definition
00034 0 00000 0 00002 76 ENDI4 PZE 2 SIMULATOR FOR SENSE SWITCH 4. 4F10068

␣ENDI5 = 29

Definition
00035 0 00000 0 00002 77 ENDI5 PZE 2 SIMULATOR FOR SENSE SWITCH 5. 4F10069

␣ENDMK = 764

Definition
01374 +000000000077 318 ENDMK OCT 77 111111 - CTEST-10 4F10309

References (22)

01675	0 50000 0 01374	554	C0390	CLA	ENDMK PREPARE TO CHANGE	4F10544
02652	0 76100 0 00012	1076	CTESTX	NOP	CTEST−ENDMK FOUND TO BE NUMERIC	4F11066
03252	0 40200 0 01374	1352	TESTA1	SUB	ENDMK	4F11342
03266	0 40200 0 01374	1366	TESTC1	SUB	ENDMK	4F11356
03271	0 34000 0 01374	1370	TESTD0	CAS	ENDMK	4F11360
03527	0 34000 0 01374	1751		CAS	ENDMK AND IF ENDMARK,	4F11703
03535	0 34000 0 01374	1757		CAS	ENDMK AND IF NOT	4F11709
03576	0 40200 0 01374	1795	CB007	SUB	ENDMK IF NOT ENDMARK, THEN	4F11747
03611	0 40200 0 01374	1806	CB206	SUB	ENDMK IF NOT ENDMARK, THEN	4F11758
03622	0 34000 0 01374	1820		CAS	ENDMK TEST FOR CONSECUTIVE ENDMARKS.	4F11772
03627	0 34000 0 01374	1825		CAS	ENDMK TEST FOR END OF DIC ENTRY.	4F11777
03641	0 40200 0 01374	1835		SUB	ENDMK CONTINUE UNTIL AN ENDMARK IS	4F11787
04053	0 34000 0 01374	1995		CAS	ENDMK IS NOT AN ENDMARK.	4F11947
04064	0 56000 0 01374	2004		LDQ	ENDMK SO REPLACE THE CHARACTER RPAREN	4F11956
04173	0 34000 0 01374	2110		CAS	ENDMK FOR END OF STATEMENT MARK.	4F12062
04466	0 40000 0 01374	2338	C3001	ADD	ENDMK IF NOT ENDMARK, RESTOERE CHARACTER	4F12298
04507	0 40200 0 01374	2355		SUB	ENDMK IF NOT ENDMARK, THEN	4F12315
05133	−0 32000 0 01374	2725		ANA	ENDMK END OF STATEMENT MARK	4F12675
05134	0 40200 0 01374	2726		SUB	ENDMK HAS BEEN ENTERED.	4F12676
04043	−0 32000 0 01374	3777		ANA	ENDMK BLANK ALL EXCEPT CURRENT CHAR	4F13719
04044	0 40200 0 01374	3778		SUB	ENDMK TEST FOR INTERNAL ENDMK	4F13720
	01374	5999	L(63)	SYN	ENDMK	4F15935

␣ENOND = 579

Definition
01103 5985 ENOND SYN ERASE+3 COMMON WORKING STORAGE. 4F15921

␣EPSM3 = 612

Definition
01144 287 EPSM3 BSS 3 4F10278

␣EQUAL = 768

Definition
01400 +000000000013 322 EQUAL OCT 13 = - CTEST-6 4F10313

References (5)

04622	0 56000 0 01400	2445		LDQ	EQUAL AND	4F12394
03574	0 34000 0 01400	3608		CAS	EQUAL TEST FOR EQUAL,	4F13551
03753	0 40200 0 01400	3721		SUB	EQUAL TEST FOR EQUAL SIGN.	4F13664
	01400	5946	AEQUAL	SYN	EQUAL	4F15882
	01400	5996	L(11)	SYN	EQUAL	4F15932

␣EQUIT = 110

Definition
00156 89 EQUIT BSS 10 EQUIVALENCE STATEMENTS. 4F10081
Reference
00352 0 00012 0 00156 142 PZE EQUIT,,10 08) 0,,B. 4F10134

␣ERASE = 576

Definition
01100 272 ERASE BSS 5 COMMON WORKING STORAGE. 4F10263

References (30)

01100	5934	1E	SYN	ERASE COMMON WORKING STORAGE.	4F15870
01101	5936	2E	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15872
01102	5939	3E	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15875
01103	5941	4E	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15877
01101	5957	CITXR1	SYN	ERASE+1 ERASABLE STORAGE.	4F15893
01102	5958	CITXR2	SYN	ERASE+2 ERASABLE STORAGE.	4F15894
01101	5961	D12	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15897
01102	5963	D3	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15899
01100	5972	DIMCTR	SYN	ERASE COMMON WORKING STORAGE.	4F15908
01100	5974	DOE	SYN	ERASE COMMON WORKING STORAGE.	4F15910
01103	5975	DRCKSM	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15911
01104	5976	DRMADR	SYN	ERASE+4 ERASABLE STORAGE.	4F15912
01100	5978	DRSYM	SYN	ERASE COMMON WORKING STORAGE.	4F15914
01100	5979	E1TDR	SYN	ERASE COMMON WORKING STORAGE.	4F15915
01101	5980	E2C	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15916
01101	5981	E2TDR	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15917
01102	5982	E3C	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15918
01102	5983	E3TDR	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15919
01101	5984	EKE	SYN	ERASE+1 COMMON WORKING STORAGE.	4F15920
01103	5985	ENOND	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15921
01104	5986	FEOD	SYN	ERASE+4 COMMON WORKING STORAGE.	4F15922
01102	5990	H	SYN	ERASE+2 COMMON WORKING STORAGE.	4F15926
01103	6004	N	SYN	ERASE+3 COMMON WORKING STORAGE.	4F15943
01100	6007	RAXR4	SYN	ERASE COMMON WORKING STORAGE.	4F15947
01101	6009	SR6WRK	SYN	ERASE+1 ERASABLE STORAGE.	4F15949
01104	6012	STCKSM	SYN	ERASE+4 COMMON WORKING STORAGE,	4F15952
01103	6019	TETMQR	SYN	ERASE+3 ERASABLE STORAGE,	4F15959
01102	6020	TETWRK	SYN	ERASE+2 ERASABLE STORAGE.	4F15960
01100	6021	TETXR2	SYN	ERASE ERASABLE STORAGE.	4F15961
01101	6022	TETXR4	SYN	ERASE+1 ERASABLE STORAGE.	4F15962

␣ESUM1 = 1152

Definition
02200 −0 70000 2 00000 783 ESUM1 CAD **,2 (ARG1+L-1) WRITE NEW 4F10773

References (2)

	02115	0 62100 0 02200	732		STA	ESUM1 INSTRUCTIONS=	4F10722
	02201	2 00001 2 02200	784		TIX	ESUM1,2,1 ENTRY ON DRUM.	4F10774

␣ESUM2 = 1154

Definition
02202 −0 70000 0 00000 785 ESUM2 CAD ** (ARG1+L-1) 4F10775

References (2)

	02116	0 62100 0 02202	733		STA	ESUM2 X	4F10723
	02177	−2 00001 2 02202	782		TNX	ESUM2,2,1 IF L = 1,	4F10772

␣ETMSW = 3052

Definition

			3221			END OF PROGRAM CC500.	4F13169
			3222			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13170
			3223				4F13171
			3224			ETMSW(LTMSW)*4/ CALLS=CIT, CALLERS=RDC,LPR,SPC,CMA,EMK,	4F13172
			3225			ETMSW = ENTRY POINT USED BY RDC,CMA.	4F13173
D	05754	−3 00000 0 05772	3226	ETMSW	TXL	NOTTM,0 SWITCH (TXL=TRA, TXH=NOP),	4F13174

References (6)

04714	0 63000 0 05754	2519	STP	ETMSW ETMSW AND LTMSW,	4F12468
04716	0 07400 4 05754	2521	TSX	ETMSW,4 * GO COMPILE ETM.	4F12470
05423	0 07400 4 05754	2960	TSX	ETMSW,4 * GO COMPILE ETM, AND CLEAR SL.	4F12910
05505	0 07400 4 05754	3010	TSX	ETMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0.	4F12960
05524	0 07400 4 05754	3025	TSX	ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0.	4F12975
05665	0 63000 0 05754	3150	STP	ETMSW ETMSW AND LTMSW,	4F13098

␣ETSUM = 1388

Definition
02554 −0 70000 0 02365 1003 ETSUM CAD DUMP SUM CHECKSUMS. 4F10993
Reference
02526 −0 75400 0 02554 981 BIAS PXD ETSUM,0 CLEAR THE AC. 4F10971

␣EXITR = 2462

Definition
04636 0 60200 0 01130 4172 EXITR SLW E+2 SAVE VARIABLE IN E+2, 4F14114
Reference
D 04535 1 00000 0 04636 4107 TXI EXITR,0 GO TAKE EXITR. 4F14049

␣FEXUB = 2028

Definition
03754 0 00007 0 00000 4473 FEXUB HTR 0,0,7 4F14411
Reference
04351 0 34000 0 03754 4726 CAS FEXUB 4F14664

␣FLINE = 2801

Definition
05361 0 73400 2 07405 2912 FLINE PAX TLDOS,2 DO FORMULAS IN TDO BY 4F12862
Reference
05141 −0 50000 0 05361 2740 RSC CAL FLINE RESET TEMPORARY 4F12690

␣FNCTR = 2756

Definition
05304 4254 FNCTR BSS 1 4F14195
Reference
03466 0 60000 0 05304 3538 STZ FNCTR CLEAR FUNCTION ARG COUNTER. 4F13481

␣FNIND = 825

Definition
01471 0 00040 0 00000 381 FNIND PZE ,,32 4F10372

References (2)

	03216	−0 50000 0 01471	1307	NOTAG	CAL	FNIND POSITION SIGMA1 TAG, AND	4F11297
	04015	−0 50000 0 01471	3755	MS334	CAL	FNIND NOT FOUND, TREAT AS FUNCTION NAME.	4F13697

␣FS010 = 1914

Definition
03572 −0 63400 4 00470 3606 FS010 SXD BK,4 X 4F13549
Reference
03571 1 77776 4 03572 3605 TXI FS010,4,−2 UPDATE COUNT OF ENTRIES IN FORSUB. 4F13548

␣FS020 = 1915

Definition
03573 0 07400 4 01707 3607 FS020 TSX C0190,4 GET FIRST CHAR OF ARGUMENT. 4F13550
Reference
03612 3 77716 2 03573 3622 TXH FS020,2,−50 TEST FOR ARGREG TABLE OVERFLOW, 4F13565

␣FS030 = 1919

Definition
03577 0 34000 0 01417 3611 FS030 CAS L(9) TEST FOR ILLEGAL ARGUMENT, 4F13554
Reference
03575 0 02000 0 03577 3609 TRA FS030 X 4F13552

␣FS040 = 1923

Definition
03603 0 07400 2 01624 3615 FS040 TSX C0160,2 COLLECT ARGUMENT NAME IN 1G, 4F13558
Reference
03600 0 02000 0 03603 3612 TRA FS040 LEGAL, CONTINUE 4F13555

␣FS050 = 1929

Definition
03611 −0 63400 2 01122 3621 FS050 SXD ARGCTR,2 4F13464
Reference
03610 1 77777 2 03611 3620 TXI FS050,2,−1 UPDATE COUNT OF ARGUMENTS. 4F13563

␣FSIND = 820

Definition
01464 0 00020 0 00000 376 FSIND PZE ,,16 4F10367
Reference
04127 −0 50100 0 01464 3830 ORA FSIND 4F13772

␣HEXIT = 2472

Definition
04650 −0 53400 4 04467 4182 HEXIT LXD EXIT,4 RESTORE THE C(XR4), AND 4F14124
Reference
D 04503 1 00000 0 04650 4081 SSIR4 TXI HEXIT,0 IF NOT H, CONTINUE 4F14023

␣IFFIX = 3067

Definition

		3242			END OF PROGRAM ETMSW(LTMSW).	4F13190
		3243			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13191
		3244				4F13192
		3245			IFFIX,1/ USES=TESTFX, CALLERS=CMA,VRA(VRD),	4F13193
05773	−0 50000 0 00030	3246	IFFIX	CAL	EIFNO SET	4F13194

References (2)

	05533	0 07400 1 05773	3032	NODIM	TSX	IFFIX,1 * LESS THAN 2, TEST TYPE OF VARIABLE,	4F12982
	06041	0 07400 1 05773	3302		TSX	IFFIX,1 * SET UP IFN AND SYMBOL FOR FORVAR.	4F13250

␣IFSYM = 808

Definition
01450 +000000006712 364 IFSYM OCT 6712 4F10355
Reference
04644 0 34000 0 01450 5653 CAS IFSYM IS THIS AN IF STATEMENT 4F15597

␣INOUT = 2910

Definition
05536 0 00000 0 00000 3035 INOUT PZE ** EITHER FORVAL OR FORVAR TABLE. 4F12985
Reference
06005 0 60100 0 05536 3263 STO INOUT SET INOUT FOR FORVAR ENTRY. 4F13211

␣INPUT = 3074

Definition

		3253			END OF PROGRAM IFFIX.	4F13201
		3254			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13202
		3255				4F13203
		3256			INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB,	4F13204
		3257			CALLERS =RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD.	4F13205
		3258			INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD,	4F13206
06002	0 50000 0 01414	3259	INPUT	CLA	L(6) PICKUP 6 TO	4F13207

References (4)

04675	0 07400 2 06002	2502		TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12451
04745	0 07400 2 06002	2550	RIT	TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12499
05014	0 07400 2 06002	2615		TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV),	4F12564
05063	0 07400 2 06002	2665	RDD	TSX	INPUT,2 * GO COMPILE CAL *, AND XIT (LEV),	4F12614

␣INTET = 210

Definition

		99			END OF THE TAPE TABLE BUFFERS.	4F10091
		100			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10092
		101				4F10093
		102			INTET/ TABLE PARAMETERS USED BY TET00, WHERE	4F10094
		103			O = ORIGIN OF TABLE BUFFER,	4F10095
		104			B = BUFFER CAPACITY,	4F10096
		105			A = ADDRESS OF TABLE ENTRY,	4F10097
		106			E = ENTRY LENGTH IN WORDS,	4F10098
		107			C = COUNT OF BLOCKS PUT ON TAPE,	4F10099
		108			P = PORTION OF BUFFER THAT IS FULL,	4F10100
		109				4F10101
00322	0 00012 0 00036	110	INTET	PZE	TEIFNO,,10 00) 0,,B.	4F10102

References (11)

03332	0 50000 2 00322	1415		CLA	INTET,2 OBTAIN THE CURRENT	4F11405
03335	0 50000 2 00324	1418		CLA	INTET+2,2 GET P (PORTION OF BUFFER FULL),	4F11408
03341	0 62200 2 00324	1422		STD	INTET+2,2 SET P = 0, AND	4F11412
03345	0 40000 2 00322	1426		ADD	INTET,2 ORGIN OF CURRENT BLOCK (O).	4F11416
03353	0 50000 2 00324	1432		CLA	INTET+2,2 INCREASE C (BLOCK COUNT)	4F11422
03355	0 62100 2 00324	1434		STA	INTET+2,2 BLOCK JUST WRITTEN ON TABLE TAPE.	4F11424
03356	0 50000 2 00324	1435	TET03	CLA	INTET+2,2 ADD P (PORTION OF BUFFER FULL)	4F11425
03360	0 40000 2 00322	1437		ADD	INTET,2 BUFFER) TO SET	4F11427
03362	0 50000 2 00323	1439		CLA	INTET+1,2 OBTAIN CURRENT A (ENTRY ADDRESS),	4F11429
03365	0 40000 2 00324	1442		ADD	INTET+2,2 INCREASE P BY E TO ACCOUNT	4F11432
03366	0 62200 2 00324	1443		STD	INTET+2,2 FOR FOLLOWING ENTRY.	4F11433

␣JUMP1 = 1368

Definition
TD 02530 −3 00000 0 00000 983 JUMP1 TXL ** (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK. 4F10973

References (2)

	02121	0 62100 0 02530	736		STA	JUMP1 X	4F10726
	02125	0 63000 0 02530	740		STP	JUMP1 X	4F10730

␣JUMP2 = 1389

Definition
02555 2 00001 2 00000 1004 JUMP2 TIX **,2,1 (ETSUM-2*L) TEST END OF BLOCK. 4F10994
Reference
02122 0 62100 0 02555 737 STA JUMP2 X 4F10727

␣L(10) = 763

Definition
01373 5995 L(10) SYN TEN 4F15931

References (8)

02671	0 40200 0 01373	1091		SUB	L(10) MULTIPLIER	4F11081
03004	0 40200 0 01373	1168		SUB	L(10) CONSTANT OR VARIABLE.	4F11158
03020	0 50200 0 01373	1180		CLS	L(10) TEST	4F11170
03513	0 40200 0 01373	1739		SUB	L(10) , N H	4F11691
04043	0 56000 0 01373	1987		LDQ	L(10) REPALCE THE CHARACTER F	4F11939
04620	0 56000 0 01373	2443		LDQ	L(10) AND	4F12392
03504	0 53400 4 01373	3552	MS050	LXA	L(10),4 PREPARE TO TEST FOR PUNCTUATION.	4F13495
03515	0 53400 4 01373	3561	MS070	LXA	L(10),4 PREPARE TO TEST FOR PUNCTUATION.	4F13504

␣L(11) = 768

Definition
01400 5996 L(11) SYN EQUAL 4F15932
Reference
03451 0 53400 2 01400 1700 CA018 LXA L(11),2 SET UP LOOP FOR 11 CYCLES. 4F11652

␣L(12) = 784

Definition
01420 5997 L(12) SYN MINUS 4F15933

References (2)

	05707	0 53400 2 01420	3178		LXA	L(12),2 INITIALIZE INDEX B FOR 12 CYCLES OF	4F13126
	05725	0 53400 2 01420	3193		LXA	L(12),2 PREPARE TO SCAN 12 WORDS OF CARD.	4F13141

␣L(1D) = 812

Definition
01454 5998 L(1D) SYN 2E18 4F15934

␣L(63) = 764

Definition
01374 5999 L(63) SYN ENDMK 4F15935
Reference
03460 −0 32000 0 01374 1707 ANA L(63) FIRST WORD FOR CONTINUATION MARK, 4F11659

␣L(96) = 800

Definition
01440 +000000000140 356 L(96) OCT 140 USED BY C0500. 4F10347

References (2)

	04150	0 50000 0 01440	2068	C0500	CLA	L(96) STORE 96 IN	4F12020
	04254	0 40000 0 01440	2170		ADD	L(96) PLUS 96	4F12124

␣L(A() = 804

Definition
01444 000000002174 360 L(A() BCD 10000A( INTERNAL FLO-PT VARIABLE PREFIX. 4F10351

References (2)

	05132	0 40200 0 01444	5837		SUB	L(A() IS THIS A FLO PT CONSTANT	4F15781
	05134	0 40000 0 01444	5839		ADD	L(A() NO	4F15783

␣L(H() = 805

Definition
01445 000000003074 361 L(H() BCD 10000H( 4F10352
Reference
05140 0 40200 0 01445 5843 SUB L(H() IS THIS A HOLLERITH FIELD 4F15787

␣L(I() = 806

Definition
01446 000000003174 362 L(I() BCD 10000I( INTERNAL FXD-PT VARIABLE PREFIX. 4F10353

References (2)

	05135	0 40200 0 01446	5840		SUB	L(I() IS THIS A FIX PT CONSTANT	4F15784
	05137	0 40000 0 01446	5842		ADD	L(I() NO	4F15786

␣L(SL) = 1279

Definition
02377 0 60200 0 01367 875 L(SL) SLW SL PLACE IFN IN THE DECREMENTS 4F10865
Reference
05073 0 50000 0 02377 2679 CLA L(SL) RESET TPOA ADDRESS 4F12628

␣L(TL) = 1280

Definition
02400 0 62200 0 01371 876 L(TL) STD TL OF SL AND TL. 4F10866
Reference
06032 0 50000 0 02400 3294 VRA CLA L(TL) RESET TPOA ADDRESS 4F13242

␣LA002 = 2176

Definition
04200 0 62100 0 04366 3871 LA002 STA LA4320 4F13813
Reference
04175 0 02000 0 04200 3868 TRA LA002 4F13810

␣LA003 = 2177

Definition
04201 0 50000 0 01126 3872 LA003 CLA E 4F13814
Reference
04172 0 10000 0 04201 3865 TZE LA003 4F13807

␣LATXH = 2110

Definition
04076 −0 50000 0 00422 3805 LATXH CAL TXHOP 4F13747

References (3)

03503	0 02000 0 04076	3551	TRA	LATXH THIS WAS FIXED OR FLOATING CONSTANT.	4F13494
03616	0 02000 0 04076	3626	TRA	LATXH FLOATING POINT CONSTANT RETURN.	4F13569
04014	0 02000 0 04076	3754	TRA	LATXH GO PERFORM LEVEL ANALYSIS.	4F13696

␣LATXL = 2108

Definition
3802 LEVEL ANALYSIS 4F13744

04074 −0 50000 0 00415 3803 LATXL CAL TXLOP 4F13745

References (6)

03714	0 02000 0 04074	3689	TRA	LATXL GO PERFORM LEVEL ANALYSIS FOR (	4F13632
03731	0 02000 0 04074	3703	TRA	LATXL FLOATING, GO PERFORM LEVEL ANALYSIS.	4F13646
03743	−0 10000 0 04074	3713	TNZ	LATXL	4F13656
03746	0 02000 0 04074	3716	TRA	LATXL GO PERFORM LEVEL ANALYSIS.	4F13659
04027	0 02000 0 04074	3765	TRA	LATXL GO PERFORM LEVEL ANALYSIS.	4F13707
04075	0 02000 0 04077	3804	TRA	LATXL+3	4F13746

␣LISTR = 2692

Definition
05204 0 00000 0 05204 2783 LISTR PZE LISTR INDEXING ADDRESS FOR ABOVE LIST. 4F12733

References (2)

	05145	−0 50000 0 05204	2745	LSC	CAL	LISTR SET CONTROL TRANSFER	4F12695
	05204	0 00000 0 05204	2783	LISTR	PZE	LISTR INDEXING ADDRESS FOR ABOVE LIST.	4F12733

␣LTMSW = 3055

Definition
3229 LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK, 4F13177

D 05757 −3 00000 0 05772 3230 LTMSW TXL NOTTM,0 SWITCH (TXL=TRA, TXH=NOP), 4F13178

References (6)

04715	0 63000 0 05757	2520		STP	LTMSW TO NO TRANSFER CASE.	4F12469
05234	0 07400 4 05757	2812		TSX	LTMSW,4 * OTHERWISE, COMPILE LTM, AND	4F12762
05350	0 07400 4 05757	2903		TSX	LTMSW,4 * GO COMPILE LTM.	4F12853
05514	0 07400 4 05757	3017		TSX	LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0.	4F12967
05553	0 07400 4 05757	3053	FIN	TSX	LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0.	4F13003
05666	0 63000 0 05757	3151		STP	LTMSW TO THE TRA CASE.	4F13099

␣MASK1 = 855

Definition
01527 −377777700000 411 MASK1 OCT −377777700000 -(2**20-U.***15 -ARITHMETIC. 4F10402

References (15)

03121	−0 32000 0 01527	1246		ANA	MASK1 BRING UP ALPHA (INTFORMNO)	4F11236
03161	−0 32000 0 01527	1278		ANA	MASK1 DIMENSION 1, AND MOVE IT	4F11268
03567	−0 32000 0 01527	3603		ANA	MASK1 X	4F13546
03733	−0 32000 0 01527	3705		ANA	MASK1 X	4F13648
03776	−0 32000 0 01527	3740		ANA	MASK1 X	4F13682
04454	−0 32000 0 01527	4050		ANA	MASK1	4F13992
03501	−0 50000 0 01527	4302	R03200	CAL	MASK1 SINGLE ELEMENT, NON-UNARY OP	4F14240
03625	−0 32000 0 01527	4386		ANA	MASK1	4F14324
03630	−0 32000 0 01527	4389		ANA	MASK1	4F14327
04643	−0 32000 0 01527	4912		ANA	MASK1 DOES SYM (S(0)) = S(1)	4F14850
03551	−0 32000 0 01527	5080		ANA	MASK1	4F15014
04543	−0 32000 0 01527	5588		ANA	MASK1	4F15532
04563	−0 32000 0 01527	5604		ANA	MASK1	4F15548
05121	−0 32000 0 01527	5828		ANA	MASK1 EXTRACT TAGS IN ACC.	4F15772
05200	−0 32000 0 01527	5875		ANA	MASK1 EXTRACT PHI(K)	4F15819

␣MASK2 = 810

Definition
01452 +000000077777 366 MASK2 OCT 77777 2**15-1 -ARITHMETIC. 4F10357

References (19)

02260	−0 32000 0 01452	831		ANA	MASK2 BLANK ALL BUT ...NIX.	4F10821
04120	−0 32000 0 01452	3823		ANA	MASK2 EXTRACT TYPE NUMBER	4F13765
03646	−0 32000 0 01452	4403		ANA	MASK2 SEARCH FOR REFERENCES	4F14341
04231	−0 32000 0 01452	4646		ANA	MASK2	4F14584
04371	−0 32000 0 01452	4742		ANA	MASK2	4F14680
04411	−0 32000 0 01452	4758		ANA	MASK2	4F14696
04461	−0 32000 0 01452	4798		ANA	MASK2 EXTRACT S(I) IN ACC	4F14736
04507	−0 32000 0 01452	4820		ANA	MASK2 SEARCH FOR S(I) IN S(I-1)	4F14758
04532	−0 32000 0 01452	4839		ANA	MASK2 WORDS AND	4F14777
04545	−0 32000 0 01452	4850		ANA	MASK2 EXTRACT S(I) IN ACC	4F14788
04575	−0 32000 0 01452	4874		ANA	MASK2 SEARCH FOR S(I) IN S(I-1)	4F14812
04606	−0 32000 0 01452	4883		ANA	MASK2	4F14821
04624	−0 32000 0 01452	4897		ANA	MASK2 EXTRACT S(I) IN ACC	4F14835
03520	−0 32000 0 01452	5054		ANA	MASK2 EXTRACT S(K) IN ACC	4F14988
03560	−0 32000 0 01452	5087		ANA	MASK2	4F15021
04036	−0 32000 0 01452	5261		ANA	MASK2	4F15195
04626	−0 32000 0 01452	5639		ANA	MASK2	4F15583
05155	−0 32000 0 01452	5856		ANA	MASK2 EXTRACT FUNCTION STATEMENT TYPE	4F15600
	01452	6001	MSK	SYN	MASK2	4F15937

␣MASK3 = 802

Definition
01442 +000000000777 358 MASK3 OCT 777 -ARITHMETIC. 4F10349

␣MASK4 = 856

Definition
01530 −377777777737 412 MASK4 OCT −377777777737 -ARITHMETIC 4F10403
Reference
04164 −0 50000 0 01530 4609 CAL MASK4 SINGLE REFERENCE - SO SET 4F14547

␣MASK5 = 824

Definition
01470 +000037777600 380 MASK5 OCT 37777600 -ARITHMETIC. 4F10371
Reference
03507 −0 32000 0 01470 4308 ANA MASK5 4F14246

␣MINUS = 784

Definition
01420 +000000000014 340 MINUS OCT 14 - 4F10331

References (3)

03554	0 34000 0 01420	1772		CAS	MINUS CHECK FOR MINUS SIGN	4F11724
04557	0 34000 0 01420	4125		CAS	MINUS IF LESS THAN 16,COMPARE WITH MINUS.	4F14067
	01420	5997	L(12)	SYN	MINUS	4F15933

␣MS010 = 1843

Definition
03463 −0 50000 0 01512 3535 MS010 CAL ADPLUS SET OP TO ADDITION 4F13478

References (3)

	03641	0 02000 0 03463	3645		TRA	MS010	4F13588
	03766	0 02000 0 03463	3732		TRA	MS010 GO SCAN NEXT ELEMENT.	4F13675
U	04424	00000 0 03463	4019	CM4105	***	MS010,0	4F13961

␣MS020 = 2325

Definition
04425 −0 50000 0 01524 4020 MS020 CAL ADSTAR 4F13962
Reference
03650 0 02000 0 04425 3652 TRA MS020 4F13595

␣MS030 = 1844

Definition
03464 0 60200 0 01127 3536 MS030 SLW E+1 X 4F13479
Reference
04426 0 02000 0 03464 4021 TRA MS030 4F13963

␣MS040 = 1851

Definition
03473 −0 50000 0 01124 3543 MS040 CAL CHSAVE CHAR IN CHSAVE, IF ANY, TO AC. 4F13486
Reference
03711 0 02000 0 03473 3686 TRA MS040 NOW GO COLLECT SYMBOL, 4F13629

␣MS041 = 1854

Definition
03476 0 34000 0 01417 3546 MS041 CAS L(9) IS CHAR. NUMERIC 4F13489

References (3)

03474	−0 10000 0 03476	3544	TNZ	MS041 X	4F13467
03702	0 02000 0 03476	3679	TRA	MS041 X	4F13622
03704	0 02000 0 03476	3681	TRA	MS041 NO, GO COMPARE TO OTHER PUNCTUATION.	4F13624

␣MS050 = 1860

Definition
03504 0 53400 4 01373 3552 MS050 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13495
Reference
03477 0 02000 0 03504 3547 TRA MS050 N/, TAKE TRA 4F13490

␣MS051 = 1861

Definition
03505 0 34000 4 01406 3553 MS051 CAS CTEST,4 4F13496
Reference
03510 2 00001 4 03505 3556 MS052 TIX MS051,4,1 X 4F13499

␣MS052 = 1864

Definition
03510 2 00001 4 03505 3556 MS052 TIX MS051,4,1 X 4F13499
Reference
03506 0 02000 0 03510 3554 TRA MS052 X 4F13497

␣MS060 = 1865

Definition
03511 0 76700 2 00044 3557 MS060 ALS 36,2 POSITION CHAR FOR BUILDING SYMBOL. 4F13500

References (2)

	03522	−3 00022 2 03511	3566		TXL	MS060,2,18 IF THIS IS CHAR I, 2 /R 3 GO BUILD G.	4F13509
	03526	−3 00044 2 03511	3570	MS073	TXL	MS060,2,36 TEST FOR UNDER 7 CHARS.	4F13513

␣MS061 = 1868

Definition
03514 0 07400 4 01707 3560 MS061 TSX C0190,4 GET NEXT CHAR. 4F13503
Reference
03513 1 00006 2 03514 3559 TXI MS061,2,6 UPDATE POSITIONING TAG. 4F13502

␣MS070 = 1869

Definition
03515 0 53400 4 01373 3561 MS070 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13504
Reference
03542 1 00006 2 03515 3582 TXI MS070,2,6 UPDATE POSITIONING TAG, 4F13525

␣MS071 = 1870

Definition
03516 0 34000 4 01406 3562 MS071 CAS CTEST,4 X 4F13505
Reference
03521 2 00001 4 03516 3565 MS072 TIX MS071,4,1 X 4F13508

␣MS072 = 1873

Definition
03521 2 00001 4 03516 3565 MS072 TIX MS071,4,1 X 4F13508
Reference
03517 0 02000 0 03521 3563 TRA MS072 X 4F13506

␣MS073 = 1878

Definition
03526 −3 00044 2 03511 3570 MS073 TXL MS060,2,36 TEST FOR UNDER 7 CHARS. 4F13513
Reference
03524 0 02000 0 03526 3568 TRA MS073 X 4F13511

␣MS074 = 1879

Definition
03527 0 07400 4 03400 3571 MS074 TSX DIAG,4 BUILD G, 7TH CHAR IS ERROR. 4F13514
Reference
03540 3 00044 2 03527 3580 TXH MS074,2,36 TEST FOR 7TH CHAR, YES IS ERROR, 4F13523

␣MS080 = 1880

Definition
03530 0 07400 4 01707 3572 MS080 TSX C0190,4 GET NEXT CHAR. 4F13515
Reference
03525 0 02000 0 03530 3569 TRA MS080 MAYBE, GO LOOK AT NEXT CHAR. 4F13512

␣MS081 = 1884

Definition
03534 0 60100 0 01331 3576 MS081 STO FIRSTC NO, SAVE CURRENT CHAR. 4F13519
Reference
03532 0 02000 0 03534 3574 TRA MS081 X 4F13517

␣MS090 = 1891

Definition
03543 0 60000 0 01124 3583 MS090 STZ CHSAVE CLEAR 4F13526
Reference
03507 0 02000 0 03543 3555 TRA MS090 CHAR IS SOME PUNCTUATION. 4F13498

␣MS091 = 1893

Definition
03545 0 60200 0 01124 3585 MS091 SLW CHSAVE OP IS IN NEXT ELEMENT, SAVE, 4F13528
Reference
03520 0 02000 0 03545 3564 TRA MS091 CHAR IS SOME PUNCTUATION. 4F13507

␣MS092 = 1901

Definition
03555 −0 75400 0 00000 3593 MS092 PXD ,0 CLEAR 4F13536
Reference
03533 0 02000 0 03555 3575 TRA MS092 YES, THIS IS A FUNCTION NAME. 4F13518

␣MS093 = 1907

Definition
U 03563 00000 0 04026 3599 MS093 *** MS335,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. 4F13542

References (2)

	03460	0 63000 0 03563	3532		STP	MS093 X	4F13475
	03762	0 63000 0 03563	3728		STP	MS093 X	4F13671

␣MS200 = 1932

Definition
03614 0 07400 4 04470 3624 MS200 TSX DECPNT,4 CONVERT BCD NUMBER TO BINARY 4F13567
Reference
03674 0 02000 0 03614 3672 TRA MS200 , 4F13615

␣MS210 = 1935

Definition
03617 0 76000 0 00141 3627 MS210 SLN 1 TURN , LITE 0N. 4F13570
Reference
03667 0 02000 0 03617 3667 TRA MS210 , 4F13610

␣MS211 = 1946

Definition
03632 −0 63400 1 01117 3638 MS211 SXD 3LBAR,1 4F13581
Reference
03631 1 77775 1 03632 3637 TXI MS211,1,−3 4F13580

␣MS212 = 1950

Definition
03636 −0 63400 1 01360 3642 MS212 SXD NBAR,1 4F13585
Reference
03635 1 77777 1 03636 3641 TXI MS212,1,−1 4F13584

␣MS213 = 1952

Definition
03640 −0 63400 4 05300 3644 MS213 SXD ABAR,4 4F13587
Reference
03637 1 00003 4 03640 3643 TXI MS213,4,3 4F13586

␣MS220 = 1954

Definition
03642 −0 53400 4 05300 3646 MS220 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOR ) 4F13589
Reference
03670 0 02000 0 03642 3668 TRA MS220 ) 4F13611

␣MS221 = 1959

Definition
03647 −0 63400 4 05300 3651 MS221 SXD ABAR,4 4F13594
Reference
03646 1 00004 4 03647 3650 TXI MS221,4,4 4F13593

␣MS230 = 1961

Definition
03651 −0 53400 4 05300 3653 MS230 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOE ENDMK, 4F13596
Reference
03665 0 02000 0 03651 3665 TRA MS230 ENDMK 4F13608

␣MS231 = 1963

Definition
03653 −3 00000 4 03655 3655 MS231 TXL MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO, 4F13598
Reference
03652 1 00003 4 03653 3654 TXI MS231,4,3 4F13597

␣MS232 = 1965

Definition
03655 −0 53400 4 01122 3657 MS232 LXD ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT 4F13600
Reference
03653 −3 00000 4 03655 3655 MS231 TXL MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO, 4F13598

␣MS240 = 1982

Definition
03676 0 76700 0 00036 3674 MS240 ALS 30 * SAVE * 4F13617

␣MS241 = 1989

Definition
03705 −0 50000 0 01525 3682 MS241 CAL STRSTR REPLACE * WITH ** 4F13625
Reference
03703 0 02000 0 03705 3680 TRA MS241 YES, THIS WAS ** 4F13623

␣MS250 = 1991

Definition
03707 0 76700 0 00036 3684 MS250 ALS 30 POSITION CHAR WHICH IS + OR - OR / 4F13627

References (3)

03672	0 02000 0 03707	3670	TRA	MS250 -	4F13613
03673	0 02000 0 03707	3671	TRA	MS250 /	4F13614
03675	0 02000 0 03707	3673	TRA	MS250 +	4F13616

␣MS251 = 1992

Definition
03710 0 60200 0 01127 3685 MS251 SLW E+1 PUT CURRENT OP IN E+1. 4F13628
Reference
03706 0 02000 0 03710 3683 TRA MS251 X 4F13626

␣MS260 = 1994

Definition
03712 0 76700 0 00036 3687 MS260 ALS 30 ( TO SYMBOL WORD 4F13630
Reference
03666 0 02000 0 03712 3666 TRA MS260 ( 4F13609

␣MS300 = 2006

Definition
03726 −0 75400 0 00000 3699 MS300 PXD ,0 * CLEAR 4F13642

References (6)

03715	0 02000 0 03726	3690	TRA	MS300 ENDMK	4F13633
03717	0 02000 0 03726	3692	TRA	MS300 ,	4F13635
03720	0 02000 0 03726	3693	TRA	MS300 )	4F13636
03722	0 02000 0 03726	3695	TRA	MS300 -	4F13638
03723	0 02000 0 03726	3696	TRA	MS300 /	4F13639
03725	0 02000 0 03726	3698	TRA	MS300 +	4F13641

␣MS310 = 2039

Definition
U 03767 00000 0 03671 3733 MS310 *** MSERR=,0 TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676

References (3)

03461	0 63000 0 03767	3533	STP	MS310 X	4F13476
03721	0 02000 0 03767	3694	TRA	MS310 =	4F13637
03763	0 63000 0 03767	3729	STP	MS310 X	4F13672

␣MS311 = 2033

Definition
03761 −0 50000 0 00415 3727 MS311 CAL TXLOP SET SWITCHES FOR RIGHT SIDE SCAN. 4F13670

␣MS320 = 2023

Definition
03747 0 60000 0 01124 3717 MS320 STZ CHSAVE CLEAR CELL FOR 0P. 4F13660
Reference
03716 0 02000 0 03747 3691 TRA MS320 ( 4F13634

␣MS321 = 2024

Definition
U 03750 00000 0 04003 3718 MS321 *** MS330,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. 4F13661

References (2)

	03462	0 63000 0 03750	3534		STP	MS321 X	4F13477
	03764	0 63000 0 03750	3730		STP	MS321 X	4F13673

␣MS322 = 2029

Definition
03755 0 53400 4 01411 3723 MS322 LXA L(3),4 MOVE CONTENTS OF E WORDS TO LEFT WORDS. 4F13666

References (3)

03576	0 02000 0 03755	3610	TRA	MS322 GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+2	4F13553
03774	0 02000 0 03755	3738	TRA	MS322 FLOATING,	4F13680
04002	0 02000 0 03755	3744	TRA	MS322	4F13686

␣MS323 = 2030

Definition
03756 0 56000 4 01131 3724 MS323 LDQ E+3,4 X 4F13667
Reference
03760 2 00001 4 03756 3726 TIX MS323,4,1 X 4F13669

␣MS330 = 2051

Definition
04003 0 07400 4 01771 3745 MS330 TSX DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2, 4F13687
Reference
U 03750 00000 0 04003 3718 MS321 *** MS330,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. 4F13661

␣MS331 = 2054

Definition
04006 0 07400 4 01775 3748 MS331 TSX DIM2SR,4 OF THAT NUMBER OF DIMENSIONS, IF IT IS NOT 4F13690
Reference
04004 0 02000 0 04006 3746 TRA MS331 AND DIM3 TABLES. IF IT IS FOUND IN ONE OF 4F13688

␣MS332 = 2057

Definition
04011 0 07400 4 02005 3751 MS332 TSX DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY. 4F13693
Reference
04007 0 02000 0 04011 3749 TRA MS332 FOUND IN ANY DIMENSION TABLE THEN IT IS 4F13691

␣MS333 = 2059

Definition
04013 0 07400 4 04450 3753 MS333 TSX SS000X,4 GO PROCESS SUBSCRIPT COMBINATIONS 4F13695

References (2)

	04005	0 02000 0 04013	3747		TRA	MS333 THESE TABLES IT IS A SUBSCRIPTED VARIABLE	4F13689
	04010	0 02000 0 04013	3750		TRA	MS333 ASSUMED TO BE THE NAME OF A FORTRAN II	4F13692

␣MS334 = 2061

Definition
04015 −0 50000 0 01471 3755 MS334 CAL FNIND NOT FOUND, TREAT AS FUNCTION NAME. 4F13697
Reference
04012 0 02000 0 04015 3752 TRA MS334 X 4F13694

␣MS335 = 2070

Definition
04026 0 76000 0 00142 3764 MS335 SLN 2 TURN FUNCTION LITE 0N. 4F13706
Reference
U 03563 00000 0 04026 3599 MS093 *** MS335,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. 4F13542

␣MTR15 = 1295

Definition
02417 0 76200 4 00305 899 MTR15 RDR 5,4 READ SELECT CURRENT LOGICAL DRUM. 4F10889
Reference
02431 2 00001 1 02417 909 TIX MTR15,1,1 CHECKSUM FAILED, TRY UP TO 5 TIMES. 4F10899

␣NODIM = 2907

Definition
05533 0 07400 1 05773 3032 NODIM TSX IFFIX,1 * LESS THAN 2, TEST TYPE OF VARIABLE, 4F12982

References (2)

D	05456	1 00000 0 05533	2987		TXI	NODIM,0 AND IF FOUND,	4F12937
	05470	0 10000 0 05533	2997		TZE	NODIM GREATER THAN 1, THEN	4F12947

␣NOTAG = 1678

Definition
03216 −0 50000 0 01471 1307 NOTAG CAL FNIND POSITION SIGMA1 TAG, AND 4F11297
Reference
03117 0 10000 0 03216 1244 3D0350 TZE NOTAG --DON,T ENTER FORTAG. 4F11234

␣NOTTM = 3066

Definition
05772 0 02000 4 00001 3241 NOTTM TRA 1,4 * EXIT TO CALLER. 4F13189

References (2)

D	05754	−3 00000 0 05772	3226	ETMSW	TXL	NOTTM,0 SWITCH (TXL=TRA, TXH=NOP),	4F13174
D	05757	−3 00000 0 05772	3230	LTMSW	TXL	NOTTM,0 SWITCH (TXL=TRA, TXH=NOP),	4F13178

␣NOWIN = 1157

Definition
02205 −0 50000 0 02360 788 NOWIN CAL NAR UPDATE PERMANENT 4F10778
Reference
02173 1 00000 0 02205 778 XR2 TXI NOWIN,0,** GO UPDATE FLOCON PARAMETER. 4F10768

␣NXBLK = 1166

Definition
02216 −0 53400 4 02223 797 NXBLK LXD NC,4 4F10787
Reference
02241 1 00000 0 02216 816 NTL TXI NXBLK,0,** (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806

␣OPSUB = 2522

Definition

		4967			***** ********************* *	4F14905
		4968				4F14906
		4969			DICTIONARY OF OPEN SUBROUTINES FOLLOWS	4F14907
04732	−272122626060	4970	OPSUB	OCT	672122626060 XABS	4F14908

Reference
04262 0 34000 2 04732 4671 PL0480 CAS OPSUB,B 4F14609

␣POINT = 771

Definition
01403 +000000000033 325 POINT OCT 33 . - CTEST-3 4F10316
Reference
04521 0 34000 0 01403 4095 NC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. 4F14037

␣PROVE = 1394

Definition
02562 0 76000 0 00006 1009 PROVE COM IF CHECKSUMS COMPARE 4F10999
Reference
02535 1 00000 0 02562 988 XR1 TXI PROVE,0,** GO TEST CHECKSUM. 4F10978

␣RA000 = 1311

Definition

		916			END OF PROGRAM MTR000.	4F10906
		917			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10907
		918				4F10908
		919			RA000,4/ CALLERS=LPR,ARITH.	4F10909
		920			RA000 COMPUTES RELATIVE ADDRESS.	4F10910
02437	−0 63400 4 01100	921	RA000	SXD	RAXR4,4 SAVE THE C(XR4) FOR RETURN.	4F10911

References (2)

	05216	0 07400 4 02437	2798		TSX	RA000,4 * THEN GO COMPUTE RELATIVE ADDRESS.	4F12748
	04452	0 07400 4 02437	4048		TSX	RA000,4 GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.	4F13990

␣RAXR4 = 576

Definition
01100 6007 RAXR4 SYN ERASE COMMON WORKING STORAGE. 4F15947

References (2)

	02437	−0 63400 4 01100	921	RA000	SXD	RAXR4,4 SAVE THE C(XR4) FOR RETURN.	4F10911
	02516	−0 53400 4 01100	968		LXD	RAXR4,4 RESTORE THE C(XR4), AND	4F10958

␣RESET = 2814

Definition
D 05376 1 00000 0 05141 2925 RESET TXI RSC,0 * THEN EXIT TO CONTINUE LIST SCAN. 4F12875
Reference
05567 0 50000 0 05376 3067 FINI CLA RESET RESET BXT SWITCH 4F13017

␣SA000 = 1560

Definition
03030 0 50000 0 01100 1189 SA000 CLA DIMCTR SAVE 4F11179

References (2)

D	03015	1 00000 0 03030	1177		TXI	SA000,0 GO MAKE TABLE ENTRIES AND GET TAG.	4F11167
	03025	−0 12000 0 03030	1185		TMI	SA000 GO MAKE TABLE ENTRIES AND GET TAG.	4F11175

␣SBP41 = 1522

Definition
02762 0 60200 4 01140 1150 SBP41 SLW E+10,4 PLACE IN E-REGION. 4F11140
Reference
02756 3 00044 2 02762 1146 TXH SBP41,2,36 ADD A BLANK 4F11136

␣SETOP = 3057

Definition
05761 0 60200 0 06142 3232 SETOP SLW TOP SET TOP. 4F13160
Reference
05756 1 00000 0 05761 3228 XR4X TXI SETOP,0,** GO SET OP. 4F13176

␣SLASH = 770

Definition
01402 +000000000061 324 SLASH OCT 61 / - CTEST-4 4F10315

References (6)

03753	0 34000 0 01402	4472	CAS	SLASH	4F14410
03766	0 40200 0 01402	4483	SUB	SLASH	4F14421
04017	0 40200 0 01402	4508	SUB	SLASH	4F14446
04030	0 40200 0 01402	4517	SUB	SLASH	4F14455
04035	0 40200 0 01402	4522	SUB	SLASH	4F14460
04615	0 40200 0 01402	4890	SUB	SLASH	4F14828

␣SPCTR = 2767

Definition
05317 0 00000 0 05317 2872 SPCTR PZE SPCTR INDEXING ADDRESS FOR ABOVE LIST. 4F12822

References (2)

	05303	−0 50000 0 05317	2856		CAL	SPCTR SET CONTROL LOOP FOR	4F12806
	05317	0 00000 0 05317	2872	SPCTR	PZE	SPCTR INDEXING ADDRESS FOR ABOVE LIST.	4F12822

␣SS000 = 1420

Definition

		1040			END OF PROGRAM SR6DC1.	4F11030
		1041			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11031
		1042				4F11032
		1043			SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM,SR,DRTABS,TET00,TESTFX.	4F11033
		1044			CALLERS=ARITH,LPR,C0200.	4F11034
		1045			SS000 SCANS SUBSCRIPT COMBINATIONS AND MAKES TABLE ENTRIES.	4F11035
02614	−0 63400 2 02731	1046	SS000	SXD	SXR2,2 SAVE C(XR2),	4F11036

References (2)

	05215	0 07400 4 02614	2797		TSX	SS000,4 * GO SCAN AND PROCESS SUBSCRIPT.	4F12747
	04451	0 07400 4 02614	4047		TSX	SS000,4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE.	4F13989

␣SS001 = 1431

Definition
02627 0 53400 3 01414 1057 SS001 LXA L(6),3 SET FOR 6 CHARACTERS OF MULTIPLIER. 4F11047
Reference
D 03014 −3 00000 0 02627 1176 SBC4 TXL SS001,0 SWITCH-REPEAT FOR NEXT SUB-COMB. 4F11166

␣SS003 = 1473

Definition
02701 0 53400 3 01414 1099 SS003 LXA L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND. 4F11089
Reference
02766 −0 12000 0 02701 1154 TMI SS003 GO COLLECT, OTHERWISE 4F11144

␣SS004 = 1475

Definition
02703 0 07400 4 01707 1101 SS004 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F11091
Reference
02717 1 77777 1 02703 1113 SS007 TXI SS004,1,−1 UPDAT FOR ANOTHER CHAR COLLECTED. 4F11103

␣SS005 = 1477

Definition
02705 0 34000 4 01406 1103 SS005 CAS CTEST,4 TO ALL 4F11093
Reference
02710 2 00001 4 02705 1106 SS006 TIX SS005,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11096

␣SS006 = 1480

Definition
02710 2 00001 4 02705 1106 SS006 TIX SS005,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11096
Reference
D 02706 1 00000 0 02710 1104 TXI SS006,0 PUNCTUATION. 4F11094

␣SS007 = 1487

Definition
02717 1 77777 1 02703 1113 SS007 TXI SS004,1,−1 UPDAT FOR ANOTHER CHAR COLLECTED. 4F11103
Reference
02716 1 00006 2 02717 1112 TXI SS007,2,6 UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102

␣SS008 = 1483

Definition
02713 0 76700 2 00044 1109 SS008 ALS 36,2 POSITION EACH CHARACTER. BUT 4F11099
Reference
02711 −3 00005 1 02713 1107 TXL SS008,1,5 IF 1ST CHARACTER OF VARIABLE OR 4F11097

␣SS009 = 1484

Definition
02714 −3 00000 1 02720 1110 SS009 TXL STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP. 4F11100

␣SSIR4 = 2371

Definition
D 04503 1 00000 0 04650 4081 SSIR4 TXI HEXIT,0 IF NOT H, CONTINUE 4F14023

References (2)

	04450	−0 63400 4 04503	4046	SS000X	SXD	SSIR4,4 SAVE CALLING TAG.	4F13988
	04461	−0 53400 4 04503	4055		LXD	SSIR4,4 RELOAD CALLING TAG.	4F13997

␣SUBTR = 1499

Definition
02733 1126 SUBTR BSS 0 INDEXING ADDRESS FOR ABOVE LIST. 4F11116

References (2)

	02646	0 02000 4 02733	1072		TRA	SUBTR,4 IF EQUALITY IS FOUND, TRANSFER.	4F11062
	02707	0 02000 4 02733	1105		TRA	SUBTR,4 IF EQUALITY IS FOUND, TRANSFER.	4F11095

␣TET00 = 1745

Definition

		1399			END OF PROGRAM TEST...	4F11389
		1400			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11390
		1401				4F11391
		1402			TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400,	4F11392
		1403			C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD).	4F11393
		1404			TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS	4F11394
		1405			FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4.	4F11395
03321	−0 63400 2 01100	1406	TET00	SXD	TETXR2,2 SAVE THE C(XR2),	4F11396

References (33)

03126	0 07400 1 03321	1251		TSX	TET00,1 * ENTER INTO FORTAG TABLE	4F11241
03501	0 07400 1 03321	1724		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER EIFNO	4F11676
03647	0 07400 1 03321	1841		TSX	TET00,1 * GO ENTER EIFNO IN THE	4F11793
03715	0 07400 1 03321	1888		TSX	TET00,1 * GO TO TET PROGRAM TO ENTER	4F11840
03756	0 07400 1 03321	1927		TSX	TET00,1 * GO TO ENTER 1G	4F11879
04030	0 07400 1 03321	1970	C0202	TSX	TET00,1 * GO TO TET TO ENTER 1C AND 1C+1	4F11922
04343	0 07400 1 03321	2235	C1300	TSX	TET00,1 * GO MAKE EIFNO ENTRY	4F12192
04360	0 07400 1 03321	2253		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER	4F12211
04364	0 07400 1 03321	2257		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER M(1)	4F12216
04420	0 07400 1 03321	2290		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL	4F12250
04425	0 07400 1 03321	2295		TSX	TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL	4F12255
04460	0 07400 1 03321	2332		TSX	TET00,1 * GO ENTER NAME	4F12292
04477	0 07400 1 03321	2347		TSX	TET00,1 * IF FIXED POINT, GO MAKE ENTRY	4F12307
04501	0 07400 1 03321	2349	C3004	TSX	TET00,1 * IN BOTH CASES, MAKE ENTRIES IN	4F12309
04517	0 07400 1 03321	2368		TSX	TET00,1 * GO ENTER THIS SYMBOL	4F12328
04532	0 07400 1 03321	2379		TSX	TET00,1 * IN	4F123301
04635	0 07400 1 03321	2456		TSX	TET00,1 * GO ENTER NAME	4F12405
05130	0 07400 1 03321	2722		TSX	TET00,1 * GO ENTER THEN IN	4F12672
05372	0 07400 1 03321	2921		TSX	TET00,1 * GO MAKE AN ENTRY	4F12871
05535	0 07400 1 03321	3034		TSX	TET00,1 * GO ENTER VARIABLE IN	4F12984
05576	0 07400 1 03321	3074		TSX	TET00,1 * GO ENTER -(EIFNO)	4F13024
06027	0 07400 1 03321	3285		TSX	TET00,1 * GO ENTER IN THE	4F13233
06043	0 07400 1 03321	3304		TSX	TET00,1 * IF SYMBOL IS FXD-PT, GO MAKE	4F13252
03735	0 07400 1 03321	3707		TSX	TET00,1 MAKE FORVAR ENTRY.	4F13650
03744	0 07400 1 03321	3714		TSX	TET00,1	4F13657
04000	0 07400 1 03321	3742		TSX	TET00,1 MAKE FORVAL ENTRY.	4F13684
04024	0 07400 1 03321	3762		TSX	TET00,1 ENTER NAME IN CLOSUB TABLE.	4F13704
04441	0 07400 1 03321	4035		TSX	TET00,1 GO TO ENTER WORD IN HOLARG TABLE	4F13977
04271	0 07400 1 03321	4678		TSX	TET00,A	4F14616
04457	0 07400 1 03321	5535		TSX	TET00,A	4F15474
05041	0 07400 1 03321	5778	ES1500	TSX	TET00,1 * GO TO PROGRAM TET TO ENTER 1C,1C+1	4F15722
05046	0 07400 1 03321	5783		TSX	TET00,1 LAST IFN NUMBERS,	4F15727
05073	0 07400 1 03321	5804		TSX	TET00,A	4F15748

␣TET01 = 1762

Definition
03342 0 76600 0 00224 1423 TET01 WRS TABTAP PREPARE TO WRITE BLOCK ON TABTAP. 4F11413

␣TET02 = 1768

Definition
03350 0 70000 4 00000 1429 TET02 CPY **,4 WRITE BLOCK ONTO 4F11419

References (2)

	03346	0 62100 0 03350	1427		STA	TET02 AND SET ADDRESS OF COPY LOOP (O+B).	4F11417
	03351	2 00001 4 03350	1430		TIX	TET02,4,1 TABLE TAPE, AND	4F11420

␣TET03 = 1774

Definition
03356 0 50000 2 00324 1435 TET03 CLA INTET+2,2 ADD P (PORTION OF BUFFER FULL) 4F11425
Reference
03340 −0 10000 0 03356 1421 TNZ TET03 IF BUFFER IS FULL, 4F11411

␣TET04 = 1784

Definition
03370 0 50000 2 00000 1445 TET04 CLA **,2 MOVE THE CURRENT ENTRY 4F11435

References (2)

	03363	0 62100 0 03370	1440		STA	TET04 AND SET ADDRESS OF ENTRY LOOP.	4F11430
	03373	2 00001 4 03370	1448	TET06	TIX	TET04,4,1 DONE,	4F11438

␣TET05 = 1785

Definition
03371 0 60100 2 00000 1446 TET05 STO **,2 INTO THE CURRENT TABLE BUFFER, AND 4F11436
Reference
03361 0 62100 0 03371 1438 STA TET05 ADDRESS OF ENTRY LOOP (P+O). 4F11428

␣TET06 = 1787

Definition
03373 2 00001 4 03370 1448 TET06 TIX TET04,4,1 DONE, 4F11438
Reference
03372 1 77777 2 03373 1447 TXI TET06,2,−1 WHEN 4F11437

␣TIFGO = 50

Definition
00062 83 TIFGO BSS 10 IF AND GO TO STATEMENTS. 4F10075
Reference
00330 0 00012 0 00062 118 PZE TIFGO,,10 02) 0,,B. 4F10110

␣TLDOS = 3845

Definition
07405 3487 TLDOS BSS 250 DO TABLE USED BY IOT. 4F13433

References (2)

	05361	0 73400 2 07405	2912	FLINE	PAX	TLDOS,2 DO FORMULAS IN TDO BY	4F12862
	05362	1 70373 2 05363	2913		TXI	*+1,2,−TLDOS SUBROUTINE TET.	4F12663

␣TLINE = 762

Definition
01372 0 00000 0 00000 311 TLINE PZE ** VARIABLE USED BY IOT. 4F10302

References (4)

05142	0 62100 0 01372	2741	STA	TLINE TABLE LINE COUNTER.	4F12691
05246	−0 50000 0 01372	2822	CAL	TLINE NOTE AT	4F12772
05252	0 62100 0 01372	2826	STA	TLINE AND INCREASE LINE IN TLINE.	4F12776
05357	0 50000 0 01372	2910	CLA	TLINE IF LEVEL IS ZERO	4F12860

␣TXHOP = 274

Definition
00422 3 00062 0 00312 208 TXHOP TXH FLOCON,,50*1 *** FDA,,K*L 4F10200

References (5)

02073	0 50000 0 00422	714	ALT	CLA	TXHOP PICK UP SWITCH CONTROL,	4F10704
02622	−0 50000 0 00422	1052		CAL	TXHOP PICK UP TXH OP, AND	4F11042
04440	−0 50000 0 00422	2316	C3500	CAL	TXHOP	4F12276
03457	−0 50000 0 00422	3531		CAL	TXHOP SET SWITCHES FOR LEFT SCAN.	4F13474
04076	−0 50000 0 00422	3805	LATXH	CAL	TXHOP	4F13747

␣TXLOP = 269

Definition
00415 −3 00062 0 00002 202 TXLOP TXL FIXCON,,50*1 *** FDA,,K*L 4F10194

References (8)

02071	−0 50000 0 00415	711	DIMALT	CAL	TXLOP PICK UP SWITCH CONTROL,	4F10701
02625	−0 50000 0 00415	1055		CAL	TXLOP PICK UP TXL OP, AND	4F11045
04713	−0 50000 0 00415	2518		CAL	TXLOP SET OP-SWITCHES.	4F12467
05664	−0 50000 0 00415	3149		CAL	TXLOP SET OP-SWITCHES,	4F13097
06034	−0 50000 0 00415	3296		CAL	TXLOP PREPARE TO SET OP-SWITCH TO TRA.	4F13244
06036	0 50000 0 00415	3299	VRD	CLA	TXLOP PREPARE TO SET OP-SWITCH TO NOP.	4F13247
03761	−0 50000 0 00415	3727	MS311	CAL	TXLOP SET SWITCHES FOR RIGHT SIDE SCAN.	4F13670
04074	−0 50000 0 00415	3803	LATXL	CAL	TXLOP	4F13745

␣WHICH = 1198

Definition
02256 −0 53400 4 02215 829 WHICH LXD XR4,4 GET ALPHA BAR, AND 4F10819
Reference
D 02147 1 00000 0 02256 758 XERR01 TXI WHICH,0 GO FIND OUT WHICH TABLE OVERFLOWED. 4F10748

1D0000 = 1660

Definition
03174 0 56000 0 01131 1289 1D0000 LDQ E+3 PICKUP AND CONVERT COEFFICIENTS 4F11279
Reference
D 03042 1 00000 0 03174 1199 TXI 1D0000,0 WHETHER DIMESNION OF 4F11189

1D0001 = 1671

Definition
03207 0 76700 0 00022 1300 1D0001 ALS 18 THEN ADJUST AND STORE 4F11290
Reference
03205 0 16200 0 03207 1298 TQP 1D0001 IF PLUS--SKIP NEXT, 4F11288

2D0000 = 1625

Definition
03131 0 53400 4 01412 1254 2D0000 LXA L(4),4 THEN PICKUP AND 4F11244
Reference
D 03043 1 00000 0 03131 1200 TXI 2D0000,0 VARIABLE IS 1, 2, OR 3. 4F11190

2D0001 = 1626

Definition
03132 0 56000 4 01135 1255 2D0001 LDQ E+7,4 CONVERT COEFFICIENTS 4F11245
Reference
03135 2 00002 4 03132 1258 TIX 2D0001,4,2 WHEN DONE, 4F11248

2D0002 = 1631

Definition
03137 0 50000 4 01143 1260 2D0002 CLA E+13,4 PICKUP THE TWO ADDENDS. 4F11250
Reference
03147 2 00001 4 03137 1268 TIX 2D0002,4,1 WHEN DONE, 4F11258

2D0040 = 1638

Definition
03146 0 60100 4 01143 1267 2D0040 STO E+13,4 AND STORE BACK IN E+11 AND E+12. 4F11257
Reference
03144 0 16200 0 03146 1265 TQP 2D0040 IF PLUS--SKIP NEXT, 4F11255

2D0060 = 1642

Definition
03152 0 50000 0 01131 1271 2D0060 CLA E+3 REFORMATIZE E-STRING = 4F11261

36ONES = 857

Definition
01531 5938 36ONES SYN ALL1 4F15874
Reference
03470 0 56000 0 01531 1715 CA023 LDQ 36ONES PLACE BINARY ONES IN FIRST WORD 4F11667

3D0000 = 1572

Definition
03044 0 53400 4 01414 1201 3D0000 LXA L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS. 4F11191

3D0001 = 1573

Definition
03045 0 56000 4 01137 1202 3D0001 LDQ E+9,4 CONVERT THEM FROM BCD TO BINARY 4F11192
Reference
03050 2 00002 4 03045 1205 TIX 3D0001,4,2 WHEN DONE, PREPARE 4F11195

3D0002 = 1578

Definition
03052 0 50000 4 01144 1207 3D0002 CLA E+14,4 CONVERT ADDENS (BCD TO BINARY)= 4F11197
Reference
03062 2 00001 4 03052 1215 TIX 3D0002,4,1 WHEN DONE, 4F11205

3D0040 = 1585

Definition
03061 0 60100 4 01144 1214 3D0040 STO E+14,4 AND STORE BACK INTO E+11,12,13, 4F11204
Reference
03057 0 16200 0 03061 1212 TQP 3D0040 IF PLUS--SKIP NEXT, 4F11202

3D0060 = 1589

Definition
03065 0 50000 0 01131 1218 3D0060 CLA E+3 REFORMATIZE E-STRING = 4F11208

3D0340 = 1614

Definition
03116 −0 50100 0 01133 1243 3D0340 ORA E+5 AND IF THEY ARE ALL ZERO, 4F11233
Reference
D 03173 1 00000 0 03116 1288 TXI 3D0340,0 GO TO FORTAG SECTION. 4F11278

3D0350 = 1615

Definition
03117 0 10000 0 03216 1244 3D0350 TZE NOTAG --DON,T ENTER FORTAG. 4F11234
Reference
D 03215 1 00000 0 03117 1306 TXI 3D0350,0 GO TO FORTAG SECTION. 4F11296

5BLANS = 831

Definition
01477 006060606060 387 5BLANS BCD 10␣␣␣␣␣ 006060606060 4F10378

References (3)

03473	0 34000 0 01477	1718	CAS	5BLANS COMPARE WITH /0 /.	4F11670
05572	0 40200 0 01477	3070	SUB	5BLANS STATEMENT NUMBER, AND IF NONE,	4F13020
05067	0 40200 0 01477	5800	SUB	5BLANS	4F15744

ABLANK = 792

Definition
01430 5943 ABLANK SYN BLANK 4F15879

References (2)

	02573	0 34000 0 01430	1023		CAS	ABLANK TEST FOR BLANK.	4F11013
	03462	0 40200 0 01430	1709		SUB	ABLANK DISCONTINUE READING,	4F11661

ABTAG2 = 814

Definition
01456 +000001000002 370 ABTAG2 OCT 1000002 CONSTANT USED BY C3200. 4F10361
Reference
04566 0 00000 0 01456 2412 PZE ABTAG2 WORD4--001002 4F12361

ABTAG3 = 816

Definition
01460 +000002000004 372 ABTAG3 OCT 2000004 CONSTANT USED BY C3200. 4F10363
Reference
04573 0 00000 0 01460 2417 PZE ABTAG3 WORD4--002000 4F12366

AC0000 = 2634

Definition
5820 4F15764

05112 0 50000 1 06650 5821 AC0000 CLA SCRIPL,A 4F15765

References (20)

03712	0 07400 4 05112	5177	CP1150	TSX	AC0000,C ADDRESS COMPILE SYM1 (S(I))	4F15111
03736	0 07400 4 05112	5197		TSX	AC0000,C ADDRESS COMPILE SYMJ (S(I))	4F15131
03766	0 07400 4 05112	5221	CP1690	TSX	AC0000,C ADDRESS COMPILE SYMJ (S(I))	4F15155
04005	0 07400 4 05112	5236		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I))	4F15170
04054	0 07400 4 05112	5275		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15209
04077	0 07400 4 05112	5294		TSX	AC0000,C ADDRESS COMPILE SYM3(S(I))	4F15228
04112	0 07400 4 05112	5305		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)), J=4,...	4F15239
04201	0 07400 4 05112	5361	CP2900	TSX	AC0000,C ADDRESS COMPILE SYM2(S(II)	4F15295
04203	0 07400 4 05112	5363	CP2930	TSX	AC0000,C OPEN MULTIVARIATE FUNCTION	4F15297
04242	0 07400 4 05112	5394		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15333
04255	0 07400 4 05112	5405	CP3420	TSX	AC0000,C ADDRESS COMPILE SYM3(S(I))	4F15344
04266	0 07400 4 05112	5414		TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15353
04302	0 07400 4 05112	5426		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...	4F15365
04333	0 07400 4 05112	5451		TSX	AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...	4F15390
04357	0 07400 4 05112	5471		TSX	AC0000,C ADDRESS COMPILE SYM2(S(II)	4F15410
04403	0 07400 4 05112	5491	CP4310	TSX	AC0000,C ADDRESS COMPILE SYMI(S(I))	4F15430
04423	0 07400 4 05112	5507	CP4470	TSX	AC0000,C ADDRESS COMPILE SYM2(S(I))	4F15446
04464	0 07400 4 05112	5540		TSX	AC0000,C ADDRESS COMPILE SYM1(S(I))	4F15484
04505	0 07400 4 05112	5558		TSX	AC0000,C	4F15502
04576	0 07400 4 05112	5615		TSX	AC0000,C NONSUBSCRIPTED	4F15559

AC0060 = 2640

Definition
05120 −0 50000 0 06170 5827 AC0060 CAL TAGWRD 4F15771
Reference
04700 0 07400 4 05120 5681 TSX AC0060,C ADDRESS COMPILE VARIABLE ON LEFT 4F15625

AC0320 = 2671

Definition
05157 0 60200 0 06166 5858 AC0320 SLW CW+2 4F15802

References (2)

	05163	0 02000 0 05157	5862		TRA	AC0320	4F15806
	05203	0 02000 0 05157	5878		TRA	AC0320	4F15822

AC0340 = 2673

Definition
05161 0 60000 0 06167 5860 AC0340 STZ CW+3 NON-SUBSCRIPTED, REAL VARIABLE 4F15804
Reference
05144 0 16200 0 05161 5847 TQP AC0340 NO 4F15791

AC0350 = 2676

Definition
05164 −0 50000 0 01522 5863 AC0350 CAL H( 4F15807
Reference
05141 0 10000 0 05164 5844 TZE AC0350 YES 4F15788

AC0390 = 2678

Definition
05166 0 50000 0 01501 5865 AC0390 CLA I( FIX PT INTERNAL VARIABLE 4F15809
Reference
05136 0 10000 0 05166 5841 TZE AC0390 YES 4F15785

AC0410 = 2680

Definition
05170 0 50000 0 01502 5867 AC0410 CLA A( FLO PT INTERNAL VARIABLE 4F15811
Reference
05133 0 10000 0 05170 5838 TZE AC0410 YES 4F15782

AC0420 = 2681

Definition
05171 0 60100 0 06166 5868 AC0420 STO CW+2 4F15812

References (2)

	05165	0 02000 0 05171	5864		TRA	AC0420	4F15808
	05167	0 02000 0 05171	5866		TRA	AC0420	4F15810

AC0460 = 2685

Definition
05175 −0 76300 0 00043 5872 AC0460 LGL 35 SYMBOL IS SOME S(K) 4F15616
Reference
05130 0 16200 0 05175 5835 TQP AC0460 SYMBOL IS SOME S(K) 4F15779

AC0540 = 2692

Definition
05204 0 60200 0 06170 5879 AC0540 SLW TAGWRD SUBSCRIPTED VARIABLE 4F15823
Reference
05123 0 02000 0 05204 5830 TRA AC0540 4F15774

ACOMMA = 766

Definition
01376 5944 ACOMMA SYN COMMA 4F15880
Reference
03606 0 34000 0 01376 1803 CB205 CAS ACOMMA IF A COMMA, 4F11755

ADPLUS = 842

Definition
01512 +200000000000 398 ADPLUS OCT 200000000000 ADDITION SIGN -ARITHMETIC. 4F10389

References (3)

03463	−0 50000 0 01512	3535	MS010	CAL	ADPLUS SET OP TO ADDITION	4F13478
04170	0 56000 0 01512	5352		LDQ	ADPLUS	4F15286
04377	0 56000 0 01512	5487		LDQ	ADPLUS 0... BASE IN ACC	4F15426

ADSPOP = 850

Definition
01522 −130000000000 406 ADSPOP OCT 530000000000 $00000 4F10397

References (4)

03624	−0 50000 0 01522	3632		CAL	ADSPOP	4F13575
04205	−0 50000 0 01522	3876		CAL	ADSPOP	4F13818
04362	−0 50000 0 01522	3985		CAL	ADSPOP	4F13927
	01522	5991	H(	SYN	ADSPOP	4F15927

ADSTAR = 852

Definition
01524 −140000000000 408 ADSTAR OCT −140000000000 MULTIPLUCATION SIGN -ARITHMETIC. 4F10399

References (5)

04352	−0 50000 0 01524	3977	LA4150	CAL	ADSTAR	4F13919
04425	−0 50000 0 01524	4020	MS020	CAL	ADSTAR	4F13962
04173	0 56000 0 01524	5355		LDQ	ADSTAR	4F15289
04371	0 50000 0 01524	5481	CP4200	CLA	ADSTAR	4F15420
04375	0 56000 0 01524	5485		LDQ	ADSTAR 1... BASE NOT STORED	4F15424

AEQUAL = 768

Definition
01400 5946 AEQUAL SYN EQUAL 4F15882

References (2)

	03565	0 34000 0 01400	1786		CAS	AEQUAL IF AN EQUAL SIGN,	4F11738
	04046	0 56000 0 01400	1990		LDQ	AEQUAL REPLACE THE CHARACTER LPARAN	4F11942

ARERAS = 592

Definition
01120 280 ARERAS BSS 1 STORAGE USED BY ARITHMETIC. 4F10271

References (4)

03455	0 60200 0 01120	3529	SLW	ARERAS X	4F13472
03663	−0 60200 0 01120	3663	ORS	ARERAS ALSO SAVE FOR LATER REFERENCE.	4F13606
04630	0 50000 0 01120	5641	CLA	ARERAS S(I) NOT = S(O)	4F15585
05202	−0 50000 0 01120	5877	CAL	ARERAS	4F15621

ARGCNT = 593

Definition
01121 −0 00001 0 00004 281 ARGCNT MZE 4,,1 ARGUMENT COUNTER USED BY C30,C32. 4F10272

References (6)

04445	0 50000 0 01121	2321	CLA	ARGCNT SET ARGCNT TO INDICATE TO LATER	4F12281
04447	0 60100 0 01121	2323	STO	ARGCNT SUBROUTINE OR FUNCTION STATEMENT.	4F12283
04503	0 50000 0 01121	2351	CLA	ARGCNT UPDATE	4F12311
04505	0 60100 0 01121	2353	STO	ARGCNT BY 1. AND	4F12313
04542	0 50000 0 01121	2392	CLA	ARGCNT TEST ARGCNT FOR PRECEEDING	4F12341
04600	0 00000 0 01121	2422	PZE	ARGCNT WORD4--0(N+1)004	4F12371

ARGCTR = 594

Definition
01122 282 ARGCTR BSS 1 STORAGE USED BY ARITHMETIC. 4F10273

References (11)

03406	−0 53400 4 01122	1473		LXD	ARGCTR,4	4F114576
03443	0 60000 0 01122	3519		STZ	ARGCTR CLEAR	4F13462
03605	−0 53400 2 01122	3617		LXD	ARGCTR,2 GET COUNT OF ARGUMENTS	4F13560
03611	−0 63400 2 01122	3621	FS050	SXD	ARGCTR,2	4F13464
03655	−0 53400 4 01122	3657	MS232	LXD	ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT	4F13600
04121	−0 53400 4 01122	3824		LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F13766
04144	−0 53400 4 01122	3843		LXD	ARGCTR,C VARIABLE OR (	4F13785
04703	−0 53400 4 01122	4944	PC0000	LXD	ARGCTR,C IS THIS AN FS	4F14882
03541	−0 53400 4 01122	5072		LXD	ARGCTR,C IS THIS AN FS STATEMENT	4F15006
04656	−0 53400 4 01122	5663		LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F15607
05004	−0 53400 4 01122	5749	ES0610	LXD	ARGCTR,C IS THIS A FUNCTION STATEMENT	4F15693

ARGORG = 3186

Definition
06162 5921 ARGORG BSS 1 4F15857

References (4)

04035	0 60200 0 06162	5260	SLW	ARGORG AND STO IN ARGORG	4F15194
04047	0 00000 0 06162	5270	HTR	ARGORG	4F15204
04072	0 00000 0 06162	5289	HTR	ARGORG	4F15223
04117	0 00000 0 06162	5310	HTR	ARGORG	4F15244

ARGREG = 2701

Definition
05215 4248 ARGREG BSS 50 4F14189

References (2)

	03607	−0 60000 2 05215	3619		STQ	ARGREG,2 X	4F13562
	04147	0 34000 1 05215	3846		CAS	ARGREG,A SEARCH FREE VARIABLE TABLE	4F13788

AS0000 = 2105

Definition
04071 0 53400 7 01406 4550 AS0000 LXA L(0),7 RENUMBER SEGMENT OF SCRIPL 4F14488
Reference
03724 −3 00000 1 04071 4449 PM0080 TXL AS0000,A,0 EXIT FROM PERMUTATION ROUTINE 4F14387

AS0100 = 2106

Definition
04072 0 50000 2 05044 4551 AS0100 CLA BETA,B 4F14489
Reference
04101 3 00000 2 04072 4558 AS0800 TXH AS0100,B,0 4F14496

AS0700 = 2112

Definition
04100 1 77777 2 04101 4557 AS0700 TXI AS0800,B,−1 4F14495

References (2)

	04073	0 10000 0 04100	4552		TZE	AS0700	4F14490
	04077	1 77777 4 04100	4556		TXI	AS0700,C,−1	4F14494

AS0800 = 2113

Definition
04101 3 00000 2 04072 4558 AS0800 TXH AS0100,B,0 4F14496

References (2)

	03444	−0 63400 1 04101	4273		SXD	AS0800,A	4F14211
	04100	1 77777 2 04101	4557	AS0700	TXI	AS0800,B,−1	4F14495

AS0900 = 2114

Definition
04102 0 50000 1 06650 4559 AS0900 CLA SCRIPL,A 4F14497
Reference
04113 3 00000 1 04102 4568 AS1800 TXH AS0900,A,0 4F14506

AS1800 = 2123

Definition
04113 3 00000 1 04102 4568 AS1800 TXH AS0900,A,0 4F14506

References (3)

03711	−0 63400 4 04113	4438	SXD	AS1800,C	4F14376
04112	1 77775 1 04113	4567	TXI	AS1800,A,−3	4F14505
04121	1 77775 1 04113	4574	TXI	AS1800,A,−3	4F14512

AS2000 = 2125

Definition
04115 −0 76300 0 00043 4570 AS2000 LGL 35 4F14508
Reference
04111 0 16200 0 04115 4566 TQP AS2000 4F14504

AS2500 = 2130

Definition
04122 0 53400 3 01406 4575 AS2500 LXA L(0),3 LDXA,XB WITH 0 4F14513
Reference
04114 0 02000 0 04122 4569 TRA AS2500 4F14507

AS2700 = 2132

Definition
04124 0 60100 2 05044 4577 AS2700 STO BETA,B RECLEAR BETA TABLE 4F14515
Reference
04126 3 00000 2 04124 4579 AS2900 TXH AS2700,B,0 4F14517

AS2900 = 2134

Definition
04126 3 00000 2 04124 4579 AS2900 TXH AS2700,B,0 4F14517

References (2)

	03445	−0 63400 1 04126	4274		SXD	AS2900,A	4F14212
	04125	1 77777 2 04126	4578		TXI	AS2900,B,−1	4F14516

AS3000 = 2135

Definition
04127 0 50000 1 06650 4580 AS3000 CLA SCRIPL,A ADD INTO GAMMA COUNTERS 4F14518
Reference
04136 3 00000 1 04127 4587 AS3600 TXH AS3000,A,0 -30 IN XA AT END 4F14525

AS3600 = 2142

Definition
04136 3 00000 1 04127 4587 AS3600 TXH AS3000,A,0 -30 IN XA AT END 4F14525

References (6)

03712	−0 63400 4 04136	4439		SXD	AS3600,C	4F14377
04135	1 77775 1 04136	4586		TXI	AS3600,A,−3	4F14524
04167	−0 53400 1 04136	4612	CCS240	LXD	AS3600,A -3Q TO XA	4F14550
04423	−0 53400 1 04136	4768	LK0000	LXD	AS3600,A -3Q TO XA	4F14706
04435	−0 63400 1 04136	4778	LK0140	SXD	AS3600,A	4F14716
04540	−0 53400 1 04136	4845		LXD	AS3600,A RESTORE XA	4F14783

BETAD1 = 838

Definition
01506 +077775077775 394 BETAD1 OCT 77775077775 (-3(*2**18+(-3) -ARITHMETIC. 4F10385

References (2)

	03460	0 40000 0 01506	4285		ADD	BETAD1 (-3)2*18+(-3)	4F14223
	03471	0 40200 0 01506	4294		SUB	BETAD1	4F14232

BETAD2 = 818

Definition
01462 +000003077775 374 BETAD2 OCT 3077775 3*2**18+(-3) -ARITHMETIC. 4F10365
Reference
04132 0 40000 0 01462 4583 ADD BETAD2 3*2**18+(-3) 4F14521

BLANKS = 854

Definition
01526 606060606060 410 BLANKS BCD 1␣␣␣␣␣␣ 606060606060 4F10401

References (7)

03235	0 56000 0 01526	1327	SUBX03	LDQ	BLANKS IF LESS THEN 6 CHARACTERRS IN NAME,	4F11317
03464	0 50000 0 01526	1711	CA021	CLA	BLANKS BEGIN SCANNING REGION F BACKWARDS	4F11663
05124	−0 50000 0 01526	2718		CAL	BLANKS PRECEED WITH BLANKS ANY	4F12668
05726	0 50000 0 01526	3194	CA112	CLA	BLANKS TEST	4F13142
03556	0 56000 0 01526	3594		LDQ	BLANKS ADD BLANKS TO SUBROUTINE NAME IN G.	4F13537
04020	0 56000 0 01526	3758		LDQ	BLANKS COMPLETE NAME WITH BLANKS.	4F13700
04066	0 56000 0 01526	3796		LDQ	BLANKS NOT SIX CHARS, PREPARE TO ADD BLANKS	4F13738

BUFFM1 = 1124

Definition
02144 −0 53400 2 02362 755 BUFFM1 LXD FDA,2 4F10745
Reference
02225 −2 00001 4 02144 804 TNX BUFFM1,4,1 N = N-1 OR ITEM NOT IN TABLE. 4F10794

C0180X = 940

Definition

		518			END OF PROGRAM C0160.	4F10509
		519			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10510
		520				4F10511
		521			C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400,	4F10512
		522			C1000,C1100,C1200,C1400,C1500,C0150.	4F10513
		523			C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ TO	4F10514
		524			BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN	4F10515
		525			THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC.	4F10516
01654	0 07400 4 01707	526	C0180X	TSX	C0190,4 * OBTAIN 1ST NUMERIC IN THE AC.	4F105165

References (8)

04222	0 07400 2 01654	2139		TSX	C0180X,2 * GO FORM BINARY EQUIV OF ALPHA.	4F12091
04251	0 07400 2 01654	2167	C1100	TSX	C0180X,2 * GO FORM BINARY EQUIV OF SL NUMBER.	4F12120
04305	0 07400 2 01654	2200	C1282	TSX	C0180X,2 * GO FORM BINARY EQUIV OF D1.	4F12154
04313	0 07400 2 01654	2206		TSX	C0180X,2 * GO FORM BINARY EQUIV OF D2.	4F12160
04320	0 07400 2 01654	2211		TSX	C0180X,2 * GO FORM BINARY EQUIV OF D3.	4F12168
04354	0 07400 2 01654	2249	C1400	TSX	C0180X,2 * GO FORM BINARY EQUIV OF EFN.	4F12206
04362	0 07400 2 01654	2255	C1401	TSX	C0180X,2 * GO FORM BINARY EQUIV OF M(1).	4F12213
04411	0 07400 2 01654	2283	C1502	TSX	C0180X,2 * GO FORM BINARY EQUIV OF N.	4F12242

C0190X = 953

Definition

		539			END OF PROGRAM C0180.	4F10529
		540			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10530
		541				4F10531
		542			C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300.	4F10532
		543			C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMUAL IN F.	4F10533
01671	0 50000 0 01670	544	C0190X	CLA	DCF SET FORMULA WORD	4F10534

References (6)

03503	0 07400 4 01671	1731	CD000	TSX	C0190X,4 * SET SCAN TO PICK UP 1ST CHARACTER.	4F11683
03563	0 07400 4 01671	1784		TSX	C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN.	4F11736
03620	0 07400 4 01671	1818	CC001	TSX	C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN.	4F11770
04037	0 07400 4 01671	1983		TSX	C0190X,4 * SET CHCTR AND FWA TO BEGIN SCAN.	4F11935
04614	0 07400 4 01671	2439		TSX	C0190X,4 * PSEUDO-ARITHMETIC FORMULA (Z10=).	4F12388
03456	0 07400 4 01671	3530		TSX	C0190X,4 SET FWA --F AND CHCTR - 0	4F13473

C33525 = 2081

Definition
04041 −0 76300 0 00006 3775 C33525 LGL 6 GET NEXT CHAR 4F13717
Reference
04060 0 02000 0 04041 3790 TRA C33525 CONTINUE COLLECTING 4F13732

CALLER = 809

Definition
01451 +000000007112 365 CALLER OCT 7112 4F10356

References (2)

	03742	0 40200 0 01451	3712		SUB	CALLER	4F13655
	04647	0 34000 0 01451	5656	ES0200	CAS	CALLER IS THIS A CALL STATEMENT	4F15600

CALLFN = 190

Definition
00276 97 CALLFN BSS 10 1ST / LAST IFN FOR CALL STATEMENTS. 4F10089
Reference
00402 0 00012 0 00276 174 PZE CALLFN,,10 16) 0,,B. 4F10166

CALLNM = 595

Definition
01123 0 00000 0 00000 283 CALLNM PZE **,,** 4F10274

References (3)

00403	0 00001 0 01123	175	PZE	CALLNM,,1 A,,E.	4F10167
04630	0 62100 0 01123	2451	STA	CALLNM FIRST / LAST NUMBERS OF CALLS.	4F12400
05045	−0 63400 4 01123	5782	SXD	CALLNM,4 PREPARE ENTRY FOR TABLE OF CALL FIRST AND	4F15726

CCS000 = 2144

Definition
04140 −0 50000 1 06645 4589 CCS000 CAL SCRIPL−3,A ELIMINATE COMMON SUBEXPRESSIONS 4F14527

References (3)

04150	0 10000 0 04140	4597		TZE	CCS000 CONTINUE TO S(I-1)	4F14535
04163	3 00001 4 04140	4608	CCS200	TXH	CCS000,C,1 MULTIPLE REFERENCE	4F14546
04166	0 02000 0 04140	4611		TRA	CCS000 CONTINUE FOR S(I-1)	4F14549

CCS060 = 2149

Definition
04145 1 00000 1 04146 4594 CCS060 TXI CCS070,A,0 BEGINNING OF CURRENT SEGMENT 4F14532
Reference
04144 0 62200 0 04145 4593 STD CCS060 AND BACK UP TO 4F14531

CCS070 = 2150

Definition
04146 −0 50000 1 06651 4595 CCS070 CAL SCRIPL+1,A OBTAIN OP1 (S(I)) 4F14533
Reference
04145 1 00000 1 04146 4594 CCS060 TXI CCS070,A,0 BEGINNING OF CURRENT SEGMENT 4F14532

CCS140 = 2157

Definition
04155 1 00000 3 04156 4602 CCS140 TXI CCS150,3,0 XA TO XA,XB 4F14540
Reference
04154 −0 53400 2 04155 4601 LXD CCS140,B AND KEEP COUNT OF SAME 4F14539

CCS150 = 2158

Definition
04156 −3 00000 2 04163 4603 CCS150 TXL CCS200,B,0 SEARCH-UP FINISHED, EXAMINE COUNT 4F14541

References (3)

04155	1 00000 3 04156	4602	CCS140	TXI	CCS150,3,0 XA TO XA,XB	4F14540
04160	1 00003 2 04156	4605		TXI	CCS150,B,3 CONTINUE SEARCH	4F14543
04162	1 00003 2 04156	4607	CCS190	TXI	CCS150,B,3 CONTINUE SEARCH	4F14545

CCS190 = 2162

Definition
04162 1 00003 2 04156 4607 CCS190 TXI CCS150,B,3 CONTINUE SEARCH 4F14545
Reference
04161 1 00001 4 04162 4606 TXI CCS190,C,1 RAISE REF COUNTER AND 4F14544

CCS200 = 2163

Definition
04163 3 00001 4 04140 4608 CCS200 TXH CCS000,C,1 MULTIPLE REFERENCE 4F14546
Reference
04156 −3 00000 2 04163 4603 CCS150 TXL CCS200,B,0 SEARCH-UP FINISHED, EXAMINE COUNT 4F14541

CCS240 = 2167

Definition
04167 −0 53400 1 04136 4612 CCS240 LXD AS3600,A -3Q TO XA 4F14550
Reference
04142 −3 00000 2 04167 4591 TXL CCS240,B,0 EXIT AT S(O) 4F14529

CHSAVE = 596

Definition
01124 284 CHSAVE BSS 1 WORKING STORAGE USED BY ROYCNV. 4F10275

References (10)

03444	0 60000 0 01124	3520		STZ	CHSAVE X	4F13463
03473	−0 50000 0 01124	3543	MS040	CAL	CHSAVE CHAR IN CHSAVE, IF ANY, TO AC.	4F13486
03543	0 60000 0 01124	3583	MS090	STZ	CHSAVE CLEAR	4F13526
03545	0 60200 0 01124	3585	MS091	SLW	CHSAVE OP IS IN NEXT ELEMENT, SAVE,	4F13528
03747	0 60000 0 01124	3717	MS320	STZ	CHSAVE CLEAR CELL FOR 0P.	4F13660
03770	0 60000 0 01124	3734		STZ	CHSAVE CLEAR	4F13677
04030	0 60000 0 01124	3766	HOLL	STZ	CHSAVE CLEAR CHSAVE	4F13708
04500	0 60200 0 01124	4078		SLW	CHSAVE SAVE IT FOR STATE B, AND THEN	4F14020
04547	0 60200 0 01124	4117		SLW	CHSAVE SAVE IT FOR STATE B, AND	4F14059
04567	0 60200 0 01124	4133		SLW	CHSAVE SAVE IT FOR STATE B,	4F14075

CITMQR = 616

Definition
01150 5955 CITMQR SYN E1C ERASABLE STORAGE. 4F15891

References (2)

	01733	−0 60000 0 01150	598		STQ	CITMQR SAVE THE C(MQR).	4F10588
	01765	0 56000 0 01150	624		LDQ	CITMQR RESTORE THE C(MQR),	4F10614

CITTAP = 147

Definition
00223 5956 CITTAP SYN 147 COMPILED INSTRUCTION TAPE, 4F15892
Reference
01740 0 76600 0 00223 603 WRS CITTAP PREPARE TO WRITE BLOCK ON CIT TAPE. 4F10593

CITXR1 = 577

Definition
01101 5957 CITXR1 SYN ERASE+1 ERASABLE STORAGE. 4F15893

References (2)

	01732	−0 63400 1 01101	597		SXD	CITXR1,1 SAVE THE C(XR1).	4F10587
	01766	−0 53400 1 01101	625		LXD	CITXR1,1 RESTORE THE C(XR1),	4F10615

CITXR2 = 578

Definition
01102 5958 CITXR2 SYN ERASE+2 ERASABLE STORAGE. 4F15894

References (2)

	01731	−0 63400 2 01102	596	CIT00	SXD	CITXR2,2 SAVE THE C(XR2).	4F10586
	01767	−0 53400 2 01102	626		LXD	CITXR2,2 RESTORE THE C(XR2), AND	4F10616

CLDR00 = 313

Definition

		1511			INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER	4F11466
		1512			BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE	4F11467
		1513			PROGRAM.	4F11468
		1514			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11469
		1515				4F11470
		1516			PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 =	4F11471
00471	0 53400 1 00575	1517	CLDR00	LXA	CLDR07,1 CLEAR DRUMS 1,2,3,4 TO +0.	4F11472

Reference
00000 0 00471 0 03440 5002 PZE ORGD,,CLDR00 4F149372

CLDR01 = 314

Definition
00472 0 76600 1 00305 1518 CLDR01 WRS 197,1 X 4F11473
Reference
00476 2 00001 1 00472 1522 TIX CLDR01,1,1 X 4F11477

CLDR03 = 316

Definition
00474 0 70000 0 00576 1520 CLDR03 CPY CLDR08 X 4F11475
Reference
00475 2 00001 2 00474 1521 TIX CLDR03,2,1 X 4F11476

CLDR07 = 381

Definition
00575 0 04000 0 00004 1593 CLDR07 PZE 4,,2048 CONSTANT FOR CLEARING DRUMS. 4F11548

References (2)

	00471	0 53400 1 00575	1517	CLDR00	LXA	CLDR07,1 CLEAR DRUMS 1,2,3,4 TO +0.	4F11472
	00473	−0 53400 2 00575	1519		LXD	CLDR07,2 X	4F11474

CLDR08 = 382

Definition
00576 0 00000 0 00000 1594 CLDR08 PZE 0 CONSTANT FOR CLEARING DRUMS. 4F11549
Reference
00474 0 70000 0 00576 1520 CLDR03 CPY CLDR08 X 4F11475

CLOSUB = 120

Definition
00170 90 CLOSUB BSS 10 NAMES OF SUBROUTINES. 4F10082
Reference
00355 0 00012 0 00170 146 PZE CLOSUB,,10 09) 0,,B. 4F10138

CM4100 = 2319

Definition
04417 1 77775 1 04420 4014 CM4100 TXI CM4101,A,−3 LA COUNTER MODIFICATION ROUTINES 4F13956
Reference
D 03500 3 00000 0 04417 3548 MS4007 TXH CM4100,0 4F13491

CM4101 = 2320

Definition
04420 −0 63400 1 01117 4015 CM4101 SXD 3LBAR,A 4F13957
Reference
04417 1 77775 1 04420 4014 CM4100 TXI CM4101,A,−3 LA COUNTER MODIFICATION ROUTINES 4F13956

CM4102 = 2321

Definition
04421 −0 63400 2 05277 4016 CM4102 SXD CBAR,B 4F13958
Reference
04436 1 77777 2 04421 4029 TXI CM4102,B,−1 4F13971

CM4104 = 2323

Definition
04423 −0 63400 2 01360 4018 CM4104 SXD NBAR,B 4F13960
Reference
04422 1 77777 2 04423 4017 TXI CM4104,B,−1 4F13959

CM4105 = 2324

Definition
U 04424 00000 0 03463 4019 CM4105 *** MS010,0 4F13961
Reference
04077 0 63000 0 04424 3806 STP CM4105 4F13748

CM4200 = 2327

Definition
04427 1 77775 1 04430 4022 CM4200 TXI CM4201,A,−3 4F13964
Reference
D 03601 3 00000 0 04427 3613 MS9002 TXH CM4200,0 4F13556

CM4201 = 2328

Definition
04430 −0 63400 1 01117 4023 CM4201 SXD 3LBAR,A 4F13965
Reference
04427 1 77775 1 04430 4022 CM4200 TXI CM4201,A,−3 4F13964

CM4300 = 2330

Definition
04432 1 77772 1 04433 4025 CM4300 TXI CM4301,A,−6 4F13967
Reference
04227 −0 75400 2 04432 3894 FINI03 PXD CM4300,B 4F13836

CM4301 = 2331

Definition
04433 −0 63400 1 01117 4026 CM4301 SXD 3LBAR,A 4F13968
Reference
04432 1 77772 1 04433 4025 CM4300 TXI CM4301,A,−6 4F13967

CM4303 = 2333

Definition
04435 −0 63400 4 05300 4028 CM4303 SXD ABAR,C 4F13970

References (2)

	04431	1 77777 4 04435	4024		TXI	CM4303,C,−1	4F13966
	04434	1 77777 4 04435	4027		TXI	CM4303,C,−1	4F13969

COMMON = 150

Definition
00226 93 COMMON BSS 10 UPPER MEMORY STORAGE STATEMENTS. 4F10085
Reference
00366 0 00012 0 00226 158 PZE COMMON,,10 12) 0,,B. 4F10150

COMPUT = 1203

Definition
02263 0 40200 0 01413 834 COMPUT SUB L(5) COMPUTE WHICH 4F10824
Reference
02265 2 00001 4 02263 836 TIX COMPUT,4,1 IF TABLE IS NOT FOUND. 4F10826

CP0000 = 1887

Definition
5069 4F15003

03537 0 76000 0 00140 5070 CP0000 SLF TURN OFF ALL SENSE LITES 4F15004
Reference
03513 0 02000 0 03537 5049 TRA CP0000 EXIT TO COMPILER 4F14983

CP0090 = 1896

Definition
03550 −0 50000 0 00030 5079 CP0090 CAL EIFNO 4F15013
Reference
03542 −3 00000 4 03550 5073 TXL CP0090,C,0 NO 4F15007

CP0130 = 1900

Definition
03554 0 50000 1 06645 5083 CP0130 CLA SCRIPL−3,A EXTRACT CURRENT S(I) 4F15017

References (2)

	04624	0 02000 0 03554	5637		TRA	CP0130 GO TO NEXT SEGMENT	4F15581
	04641	0 02000 0 03554	5650		TRA	CP0130 GO TO NEXT SEGMENT	4F15594

CP0140 = 1901

Definition
03555 0 73400 2 00000 5084 CP0140 PAX ,2 4F15018

CP0180 = 1905

Definition
03561 0 73400 2 01356 5088 CP0180 PAX TAU3,B 4F15022

CP0240 = 1911

Definition
03567 1 00000 1 03570 5094 CP0240 TXI CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I) 4F15028
Reference
03566 0 62200 0 03567 5093 STD CP0240 4F15027

CP0250 = 1912

Definition
03570 −0 63400 1 01117 5095 CP0250 SXD 3QBAR,A 4F15029
Reference
03567 1 00000 1 03570 5094 CP0240 TXI CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I) 4F15028

CP0310 = 1918

Definition
03576 0 76000 0 00141 5101 CP0310 SLN 1 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO 4F15035
Reference
03574 0 02000 0 03576 5099 TRA CP0310 OP1 (S(I)) 29 = 0 4F15033

CP0350 = 1922

Definition
03602 −0 77300 0 00001 5105 CP0350 RQL 1 4F15039
Reference
03600 0 16200 0 03602 5103 TQP CP0350 OP1 (S(I)) 31 = 0, SO SET STO LITE 4F15037

CP0370 = 1924

Definition
03604 −0 77300 0 00002 5107 CP0370 RQL 2 4F15041
Reference
03575 0 16200 0 03604 5100 TQP CP0370 OP1 (S(I)) 30 = 0 4F15034

CP0380 = 1925

Definition
03605 0 16200 0 03611 5108 CP0380 TQP CP0420 TEST OP1 (S(I)) 32 4F15042
Reference
03603 0 02000 0 03605 5106 TRA CP0380 4F15040

CP0400 = 1927

Definition
03607 3 00000 0 00000 5110 CP0400 TXH 0,0,0 4F15044

References (16)

03562	−0 63400 2 03607	5089		SXD	CP0400,B	4F15023
03624	−0 53400 2 03607	5123	CP0540	LXD	CP0400,B OP1 (S(I)) 35 = 1	4F15057
03627	−0 63400 2 03607	5126		SXD	CP0400,B	4F15060
04060	−0 53400 2 03607	5279		LXD	CP0400,B	4F15213
04063	−0 63400 2 03607	5282		SXD	CP0400,B	4F15216
04104	−0 53400 2 03607	5299	CP2370	LXD	CP0400,B	4F15233
04107	−0 63400 2 03607	5302		SXD	CP0400,B	4F15236
04160	−0 53400 2 03607	5344		LXD	CP0400,B	4F15278
04204	−0 53400 2 03607	5364		LXD	CP0400,B	4F15298
04207	−0 63400 2 03607	5367		SXD	CP0400,B	4F15301
04315	−0 53400 2 03607	5437		LXD	CP0400,B	4F15376
04322	−0 63400 2 03607	5442	CP3800	SXD	CP0400,B	4F15381
04346	−0 53400 2 03607	5462		LXD	CP0400,B	4F15401
04353	−0 63400 2 03607	5467	CP4050	SXD	CP0400,B	4F15406
04610	−0 53400 2 03607	5625		LXD	CP0400,B	4F15569
04613	−0 63400 2 03607	5628		SXD	CP0400,B	4F15572

CP0420 = 1929

Definition
03611 0 76000 0 00144 5112 CP0420 SLN 4 OP1 (S(I)) 32 = 0, SO SET FXPTSW 4F15046
Reference
03605 0 16200 0 03611 5108 CP0380 TQP CP0420 TEST OP1 (S(I)) 32 4F15042

CP0430 = 1930

Definition
03612 −0 75400 0 00000 5113 CP0430 PXD 0,0 4F15047
Reference
03610 0 02000 0 03612 5111 TRA CP0430 4F15045

CP0540 = 1940

Definition
03624 −0 53400 2 03607 5123 CP0540 LXD CP0400,B OP1 (S(I)) 35 = 1 4F15057

References (7)

03657	0 02000 0 03624	5150	TRA	CP0540	4F15064
03703	0 02000 0 03624	5170	TRA	CP0540 0P1 (S(I)) 35 = 1, SO GO MODIFY J	4F15104
03715	0 02000 0 03624	5180	TRA	CP0540 GO MODIFY J	4F15114
03752	0 02000 0 03624	5209	TRA	CP0540 GO MODIFY J	4F15143
03770	0 02000 0 03624	5223	TRA	CP0540 GO MODIFY J	4F15157
04021	0 02000 0 03624	5248	TRA	CP0540 GO MODIFY J	4F15182
04025	0 02000 0 03624	5252	TRA	CP0540 GO MODIFY J.	4F15186

CP0560 = 1942

Definition
03626 −3 00000 2 04622 5125 CP0560 TXL ES0000,B,0 GO TO END-OF-SEGMENT SBRTN 4F15059
Reference
03625 1 00003 2 03626 5124 TXI CP0560,B,3 4F15058

CP0590 = 1945

Definition
03631 −0 75400 0 00000 5128 CP0590 PXD 0,0 4F15062
Reference
03630 1 77775 1 03631 5127 TXI CP0590,A,−3 4F15061

CP0740 = 1958

Definition
03646 0 60200 0 06165 5141 CP0740 SLW CW+1 4F15075
Reference
03643 0 02000 0 03646 5138 TRA CP0740 4F15072

CP0760 = 1960

Definition
03650 −0 76300 0 00035 5143 CP0760 LGL 29 0P1 (S(I)) = - 4F15077
Reference
03621 0 10000 0 03650 5120 TZE CP0760 4F15054

CP0850 = 1968

Definition
03660 −0 50000 0 01543 5151 CP0850 CAL L(CLS) 0P1 (S(I)) 35 = O, SO 4F15085
Reference
03651 0 16200 0 03660 5144 TQP CP0850 4F15078

CP0880 = 1971

Definition
03663 −0 50000 0 01553 5154 CP0880 CAL L(FSB) OPJ (S(I)) = - 4F15088
Reference
03640 0 10000 0 03663 5135 TZE CP0880 OPJ (S(I)) = - 4F15069

CP0940 = 1976

Definition
03670 0 60200 0 06165 5159 CP0940 SLW CW+1 4F15093
Reference
03665 0 02000 0 03670 5156 TRA CP0940 4F15090

CP0960 = 1978

Definition
03672 0 16200 0 03674 5161 CP0960 TQP CP0980 4F15095
Reference
03616 1 00000 0 03672 5117 TXI CP0960,0,0 4F15051

CP0980 = 1980

Definition
03674 −0 76300 0 00035 5163 CP0980 LGL 29 0P1 (S(I)) = * 4F15097
Reference
03672 0 16200 0 03674 5161 CP0960 TQP CP0980 4F15095

CP1050 = 1986

Definition
03702 0 16200 0 03704 5169 CP1050 TQP CP1070 4F15103
Reference
03677 0 02000 0 03702 5166 TRA CP1050 0P1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON 4F15100

CP1070 = 1988

Definition
03704 −0 50000 0 01556 5171 CP1070 CAL L(LDQ) 0P1 (S(I)) 35 = 0 4F15105
Reference
03702 0 16200 0 03704 5169 CP1050 TQP CP1070 4F15103

CP1130 = 1992

Definition
03710 −0 50000 0 01541 5175 CP1130 CAL L(CLA) 4F15109
Reference
03623 0 16200 0 03710 5122 TQP CP1130 OP1 (S(I)) 35 = 0 4F15056

CP1140 = 1993

Definition
03711 0 60200 0 06165 5176 CP1140 SLW CW+1 4F15110
Reference
03706 0 02000 0 03711 5173 TRA CP1140 ELI (S(II) TO MQ 4F15107

CP1150 = 1994

Definition
03712 0 07400 4 05112 5177 CP1150 TSX AC0000,C ADDRESS COMPILE SYM1 (S(I)) 4F15111
Reference
03662 0 02000 0 03712 5153 TRA CP1150 4F15087

CP1200 = 1998

Definition
03716 −0 76000 0 00143 5181 CP1200 SLT 3 OPJ (S(I)) = / 4F15115
Reference
03635 0 02000 0 03716 5132 TRA CP1200 OPJ (S(I)) = / 4F15066

CP1330 = 2009

Definition
03731 −0 76000 0 00144 5192 CP1330 SLT 4 PREDECESSOR IN MQ 4F15126
Reference
03717 0 02000 0 03731 5182 TRA CP1330 4F15116

CP1450 = 2012

Definition
03734 0 50000 0 01547 5195 CP1450 CLA L(DVP) 4F15129
Reference
03730 0 02000 0 03734 5191 TRA CP1450 4F15125

CP1570 = 2027

Definition
03753 0 50000 0 01573 5210 CP1570 CLA L(STQ) PREDECESSOR IN MQ 4F15144
Reference
03732 0 02000 0 03753 5193 TRA CP1570 AND SEGMENT IS 4F15127

CP1670 = 2036

Definition
03764 0 50000 0 01551 5219 CP1670 CLA L(FDP) 4F15153
Reference
03721 0 02000 0 03764 5184 TRA CP1670 FLO PT. 4F15118

CP1690 = 2038

Definition
03766 0 07400 4 05112 5221 CP1690 TSX AC0000,C ADDRESS COMPILE SYMJ (S(I)) 4F15155

References (2)

	03647	0 02000 0 03766	5142		TRA	CP1690	4F15076
	03671	0 02000 0 03766	5160		TRA	CP1690	4F15094

CP1720 = 2041

Definition
03771 −0 76000 0 00143 5224 CP1720 SLT 3 OPJ(S(I))=* 4F15158
Reference
03636 0 02000 0 03771 5133 TRA CP1720 OPJ (S(I)) = * 4F15067

CP1840 = 2052

Definition
04004 0 76000 0 00143 5235 CP1840 SLN 3 TURN LATE 3 ON 4F15169
Reference
03772 0 02000 0 04004 5225 TRA CP1840 4F15159

CP2000 = 2066

Definition
04022 0 50000 0 01552 5249 CP2000 CLA L(FMP) FLO PT. 4F15183
Reference
04007 0 02000 0 04022 5238 TRA CP2000 4F15172

CP2040 = 2070

Definition
04026 −0 76300 0 00007 5253 CP2040 LGL 7 OPI(S(I))=SPOP 4F15187
Reference
03617 1 77775 1 04026 5118 TXI CP2040,A,−3 4F15052

CP2100 = 2084

Definition
04044 0 07400 4 01731 5267 CP2100 TSX CIT00,C 1ST ARG IN ACC 4F15201
Reference
04056 0 02000 0 04044 5277 TRA CP2100 4F15211

CP2150 = 2090

Definition
04052 −0 50000 0 01541 5273 CP2150 CAL L(CLA) 4F15207
Reference
04043 0 02000 0 04052 5266 TRA CP2150 1ST ARG STORED 4F15200

CP2200 = 2095

Definition
04057 0 60000 0 06164 5278 CP2200 STZ CW RESET CW 4F15212
Reference
04051 1 77775 1 04057 5272 TXI CP2200,A,−3 GO ON TO OP3(S(I)) 4F15206

CP2230 = 2098

Definition
04062 3 77772 2 04125 5281 CP2230 TXH CP2500,B,−6 FINISHED WITH S(I) 4F15215
Reference
04061 1 00003 2 04062 5280 TXI CP2230,B,3 4F15214

CP2250 = 2103

Definition
04067 0 07400 4 01731 5286 CP2250 TSX CIT00,C 2ND ARG IN MQ 4F15220
Reference
04101 0 02000 0 04067 5296 TRA CP2250 4F15230

CP2300 = 2109

Definition
04075 −0 50000 0 01556 5292 CP2300 CAL L(LDQ) 4F15226
Reference
04066 0 02000 0 04075 5285 TRA CP2300 2ND ARG STORED 4F15219

CP2350 = 2114

Definition
04102 0 50000 0 01521 5297 CP2350 CLA DECMI2 INITIALIZE DEC(P(CNTR) TO 2 4F15231
Reference
04074 1 77775 1 04102 5291 TXI CP2350,A,−3 GO ON TO SYM4(S(I)) 4F15225

CP2370 = 2116

Definition
04104 −0 53400 2 03607 5299 CP2370 LXD CP0400,B 4F15233
Reference
04124 1 77775 1 04104 5315 TXI CP2370,A,−3 4F15249

CP2390 = 2118

Definition
04106 3 77772 2 04125 5301 CP2390 TXH CP2500,B,−6 FINISHED WITH S(I) 4F15235
Reference
04105 1 00003 2 04106 5300 TXI CP2390,B,3 4F15234

CP2500 = 2133

Definition
04125 −0 53400 1 01117 5316 CP2500 LXD 3QBAR,A FINISHED WITH S(I) 4F15250

References (2)

	04062	3 77772 2 04125	5281	CP2230	TXH	CP2500,B,−6 FINISHED WITH S(I)	4F15215
	04106	3 77772 2 04125	5301	CP2390	TXH	CP2500,B,−6 FINISHED WITH S(I)	4F15235

CP2650 = 2152

Definition
5335 4F15269

04150 −0 76300 0 00024 5336 CP2650 LGL 20 TEST OPI(S(I))33 4F15270
Reference
04030 0 16200 0 04150 5255 TQP CP2650 LIB OR OPEN FUNCTION 4F15189

CP2860 = 2172

Definition
04174 −0 60000 0 06166 5356 CP2860 STQ CW+2 4F15290
Reference
04172 0 02000 0 04174 5354 TRA CP2860 4F15286

CP2880 = 2174

Definition
04176 0 07400 2 05104 5358 CP2880 TSX COMP,B COMPILE ACC OR MQ INDICATOR 4F15292
Reference
04202 0 02000 0 04176 5362 TRA CP2880 GO COMPILE SYM2(S(I)) 4F15296

CP2900 = 2177

Definition
04201 0 07400 4 05112 5361 CP2900 TSX AC0000,C ADDRESS COMPILE SYM2(S(II) 4F15295
Reference
04166 0 02000 0 04201 5350 TRA CP2900 0... ARG STORED 4F15284

CP2930 = 2179

Definition
04203 0 07400 4 05112 5363 CP2930 TSX AC0000,C OPEN MULTIVARIATE FUNCTION 4F15297

References (2)

	04161	−3 77767 2 04203	5345		TXL	CP2930,B,−9	4F15279
	04211	1 77775 1 04203	5369		TXI	CP2930,A,−3	4F15303

CP2960 = 2182

Definition
04206 3 77772 2 04212 5366 CP2960 TXH CP3000,B,−6 4F15300
Reference
04205 1 00003 2 04206 5365 TXI CP2960,B,3 4F15299

CP3000 = 2186

Definition
04212 −0 50000 0 01531 5370 CP3000 CAL ALL1 4F15304
Reference
04206 3 77772 2 04212 5366 CP2960 TXH CP3000,B,−6 4F15300

CP3060 = 2191

Definition
04217 −3 77767 2 04246 5375 CP3060 TXL CP3350,B,−9 4F15309
Reference
04151 0 16200 0 04217 5337 TQP CP3060 0... LIB. SBRTN 4F15271

CP3100 = 2195

Definition
04223 0 50000 0 01575 5379 CP3100 CLA L(SXD) 1... ARG IN ACC 4F15313

References (2)

	04245	0 02000 0 04223	5397		TRA	CP3100 GO COMPILE SXD,TSX,LXD SEQUENCE	4F15336
	04257	1 00003 1 04223	5407		TXI	CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE	4F15346

CP3280 = 2208

Definition
04240 0 50000 0 01541 5392 CP3280 CLA L(CLA) 4F15331

References (3)

04222	0 02000 0 04240	5378	TRA	CP3280 0... ARG STORED	4F15312
04263	0 02000 0 04240	5411	TRA	CP3280 1... ARG2 IN MO	4F15350
04352	1 77775 1 04240	5466	TXI	CP3280,A,−3	4F15405

CP3350 = 2214

Definition
04246 −3 77764 2 04272 5398 CP3350 TXL CP3560,B,−12 4F15337
Reference
04217 −3 77767 2 04246 5375 CP3060 TXL CP3350,B,−9 4F15309

CP3390 = 2218

Definition
04252 0 50000 0 01556 5402 CP3390 CLA L(LDQ) 1... ARG1 IN ACC 4F15341

References (2)

	04271	0 02000 0 04252	5417		TRA	CP3390 GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE	4F15356
	04321	1 77775 1 04252	5441		TXI	CP3390,A,−3	4F15380

CP3420 = 2221

Definition
04255 0 07400 4 05112 5405 CP3420 TSX AC0000,C ADDRESS COMPILE SYM3(S(I)) 4F15344
Reference
04254 1 77775 1 04255 5404 TXI CP3420,A,−3 4F15343

CP3450 = 2224

Definition
04260 0 50000 1 06654 5408 CP3450 CLA SCRIPL+4,A 4F15347
Reference
04251 0 02000 0 04260 5401 TRA CP3450 0... ARG1 STORED 4F15340

CP3490 = 2228

Definition
04264 0 50000 0 01541 5412 CP3490 CLA L(CLA) 4F15351
Reference
04262 0 02000 0 04264 5410 TRA CP3490 0... ARG2 STORED 4F15349

CP3560 = 2234

Definition
04272 0 50000 1 06651 5418 CP3560 CLA SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION 4F15357
Reference
04246 −3 77764 2 04272 5398 CP3350 TXL CP3560,B,−12 4F15337

CP3600 = 2238

Definition
04276 0 50000 0 01521 5422 CP3600 CLA DECMI2 4F15361

References (2)

	04275	1 77772 1 04276	5421		TXI	CP3600,A,−6 1... ARG1 IN ACC	4F15360
	04362	1 77772 1 04276	5474		TXI	CP3600,A,−6	4F15413

CP3620 = 2240

Definition
04300 0 50000 0 01556 5424 CP3620 CLA L(LDQ) 4F15363
Reference
04323 1 77775 1 04300 5443 TXI CP3620,A,−3 GO PICK UP NEXT ARG. 4F15382

CP3770 = 2255

Definition
04317 −3 77764 2 04322 5439 CP3770 TXL CP3800,B,−12 4F15378
Reference
04316 1 00003 2 04317 5438 TXI CP3770,B,3 4F15377

CP3800 = 2258

Definition
04322 −0 63400 2 03607 5442 CP3800 SXD CP0400,B 4F15381
Reference
04317 −3 77764 2 04322 5439 CP3770 TXL CP3800,B,−12 4F15378

CP3820 = 2260

Definition
04324 0 50000 1 06646 5444 CP3820 CLA SCRIPL−2,A 4F15383
Reference
04274 1 77772 1 04324 5420 TXI CP3820,A,−6 0... ARG1 STORED 4F15359

CP3870 = 2265

Definition
04331 0 50000 0 01541 5449 CP3870 CLA L(CLA) 4F15388
Reference
04354 1 77775 1 04331 5468 TXI CP3870,A,−3 GO PICK UP NEXT ARG 4F15407

CP4020 = 2280

Definition
04350 −3 77764 2 04353 5464 CP4020 TXL CP4050,B,−12 4F15403
Reference
04347 1 00003 2 04350 5463 TXI CP4020,B,3 4F15402

CP4050 = 2283

Definition
04353 −0 63400 2 03607 5467 CP4050 SXD CP0400,B 4F15406
Reference
04350 −3 77764 2 04353 5464 CP4020 TXL CP4050,B,−12 4F15403

CP4070 = 2285

Definition
04355 0 50000 0 01541 5469 CP4070 CLA L(CLA) 4F15408
Reference
04326 1 00006 1 04355 5446 TXI CP4070,A,6 0... ARG2 STORED 4F15385

CP4140 = 2291

Definition
04363 −0 76300 0 00033 5475 CP4140 LGL 27 OP1(S(I))=** 4F15414
Reference
03673 0 02000 0 04363 5162 TRA CP4140 4F15096

CP4200 = 2297

Definition
04371 0 50000 0 01524 5481 CP4200 CLA ADSTAR 4F15420
Reference
04366 0 02000 0 04371 5478 TRA CP4200 BASE FIX PT SINCE OP1(S(1))32=0 4F15417

CP4210 = 2298

Definition
04372 0 60100 0 06165 5482 CP4210 STO CW+1 4F15421
Reference
04370 0 02000 0 04372 5480 TRA CP4210 4F15419

CP4310 = 2307

Definition
04403 0 07400 4 05112 5491 CP4310 TSX AC0000,C ADDRESS COMPILE SYMI(S(I)) 4F15430
Reference
04374 0 16200 0 04403 5484 TQP CP4310 0... BASE STORED 4F15423

CP4320 = 2308

Definition
04404 0 50200 0 06164 5492 CP4320 CLS CW 4F15431
Reference
04402 0 02000 0 04404 5490 TRA CP4320 4F15429

CP4410 = 2317

Definition
04415 −0 76300 0 00003 5501 CP4410 LGL 3 CLOSED EXP. SBRTN 4F15440
Reference
04364 0 16200 0 04415 5476 TQP CP4410 CLOSED SBRTN SINCE OP1(S(I))33=0 4F15415

CP4440 = 2320

Definition
04420 0 50000 0 01556 5504 CP4440 CLA L(LDQ) 1... BASE IN ACC. 4F15443
Reference
04471 1 00000 0 04420 5545 TXI CP4440,0,0 0...EXP STORED 4F15489

CP4470 = 2323

Definition
04423 0 07400 4 05112 5507 CP4470 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15446
Reference
04422 1 77775 1 04423 5506 TXI CP4470,A,−3 4F15445

CP4490 = 2325

Definition
04425 0 50000 0 01575 5509 CP4490 CLA L(SXD) 4F15448
Reference
04472 1 77775 1 04425 5546 TXI CP4490,A,−3 1... EXP IN MQ 4F15490

CP4660 = 2343

Definition
04447 0 56000 1 06651 5527 CP4660 LDQ SCRIPL+1,A 4F15466
Reference
04441 1 00003 1 04447 5521 TXI CP4660,A,3 O... 4F15460

CP4730 = 2348

Definition
04454 0 60100 0 06166 5532 CP4730 STO CW+2 4F15471

References (2)

	04446	0 02000 0 04454	5526		TRA	CP4730	4F15465
	04452	0 16200 0 04454	5530		TQP	CP4730 0...FX**FX	4F15469

CP4860 = 2354

Definition
04462 0 50000 0 01541 5538 CP4860 CLA L(CLA) 4F15462
Reference
04417 0 02000 0 04462 5503 TRA CP4860 0... BASE STORED 4F15442

CP5000 = 2363

Definition
5547 4F15491

04473 0 50000 0 00030 5548 CP5000 CLA EIFNO FN FUNCTION 4F15492
Reference
04031 0 16200 0 04473 5256 TQP CP5000 FN-FUNCTION 4F15190

CP5050 = 2369

Definition
04501 0 50000 1 06650 5554 CP5050 CLA SCRIPL,A EXAMIN TAGJ(S(I)), J=2,... 4F15498
Reference
04521 1 77775 1 04501 5570 CP5210 TXI CP5050,A,−3 GO ON TO NEXT ARGUMENT 4F15514

CP5160 = 2380

Definition
04514 −0 53400 4 04577 5565 CP5160 LXD STACTR,C 4F15509
Reference
04551 1 00000 0 04514 5594 TXI CP5160,0,0 GO ON TO NEXT ARGUMENT,IF ANY 4F15538

CP5180 = 2382

Definition
04516 1 00003 2 04517 5567 CP5180 TXI CP5190,B,3 4F15511
Reference
04502 −0 12000 0 04516 5555 TMI CP5180 NONSUBSCRIPTED 4F15499

CP5190 = 2383

Definition
04517 3 77772 2 04552 5568 CP5190 TXH CP5460,B,−6 FINISHED WITH PRELUDE,IF ANY 4F15512
Reference
04516 1 00003 2 04517 5567 CP5180 TXI CP5190,B,3 4F15511

CP5210 = 2385

Definition
04521 1 77775 1 04501 5570 CP5210 TXI CP5050,A,−3 GO ON TO NEXT ARGUMENT 4F15514
Reference
04520 1 00001 4 04521 5569 TXI CP5210,C,1 NOT FINISHED-STAIX=STAIX+1 4F15513

CP5220 = 2386

Definition
04522 −0 50000 0 01566 5571 CP5220 CAL L(PXD) 4F15515
Reference
04507 −0 10000 0 04522 5560 TNZ CP5220 GENERAL TAG PRESENT 4F15504

CP5460 = 2410

Definition
04552 −0 53400 1 01117 5595 CP5460 LXD 3QBAR,A 4F15539
Reference
04517 3 77772 2 04552 5568 CP5190 TXH CP5460,B,−6 FINISHED WITH PRELUDE,IF ANY 4F15512

CP5680 = 2428

Definition
04574 0 50000 1 06650 5613 CP5680 CLA SCRIPL,A 4F15557

References (2)

	04573	1 77775 1 04574	5612		TXI	CP5680,A,−3 POSITION XA TO SYM2(S(I))	4F15556
	04614	1 77775 1 04574	5629		TXI	CP5680,A,−3	4F15573

CP5700 = 2432

Definition
04600 0 56000 1 06651 5617 CP5700 LDQ SCRIPL+1,A SUBSCRIPTED 4F15561
Reference
04575 0 12000 0 04600 5614 TPL CP5700 4F15558

CP5720 = 2439

Definition
04607 0 07400 2 05104 5624 CP5720 TSX COMP,B COMPILE TSX SYMJ(S(I)) , J=2,,., 4F15568
Reference
04577 1 00000 0 04607 5616 STACTR TXI CP5720,0,0 4F15560

CP5750 = 2442

Definition
04612 3 77772 2 04615 5627 CP5750 TXH CP5780,B,−6 FINISHED SCANNING 4F15571
Reference
04611 1 00003 2 04612 5626 TXI CP5750,B,3 4F15570

CP5780 = 2445

Definition
04615 0 07400 4 03401 5630 CP5780 TSX FLTR00,4 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15574

References (3)

04237	0 02000 0 04615	5391		TRA	CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4	4F15325
04461	0 02000 0 04615	5537		TRA	CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4	4F15476
04612	3 77772 2 04615	5627	CP5750	TXH	CP5780,B,−6 FINISHED SCANNING	4F15571

CP5830 = 2151

Definition
04147 1 00000 0 04622 5334 CP5830 TXI ES0000,0,0 4F15268

References (2)

	04503	−0 63400 2 04147	5556		SXD	CP5830,B SUBSCRIPTED-IS THERE A GENERAL TAG	4F15500
	04515	−0 53400 2 04147	5566		LXD	CP5830,B	4F15510

CP6000 = 2721

Definition
5908 4F158511

05241 0 07400 4 03401 5909 CP6000 TSX FLTR00,4 COMPILE FLOW TRACE INFORMATION AND THEN 4F158512
Reference
04146 0 02000 0 05241 5333 TRA CP6000 4F15267

CPBETA = 3196

Definition
06174 5928 CPBETA BSS 300 4F15864

References (5)

04727	0 60100 2 06650	4964	STO	CPBETA+300,B	4F14902
03446	0 50000 2 06174	5012	CLA	CPBETA,B	4F14946
03525	0 50000 2 06174	5059	CLA	CPBETA,B	4F14993
03556	0 50000 2 06174	5085	CLA	CPBETA,B	4F15019
05177	−0 50000 6 06174	5874	CAL	CPBETA,6	4F15618

CS0000 = 1908

Definition
03564 0 56000 0 01406 4353 CS0000 LDQ L(0) ELIMINATE COMMON SEGMENTS 4F14291

CS0010 = 1909

Definition
03565 −0 50000 1 06645 4354 CS0010 CAL SCRIPL−3,A 4F14292

References (2)

	03575	1 00003 1 03565	4362	CS0080	TXI	CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT	4F14300
	03672	−3 00000 4 03565	4423	CS0630	TXL	CS0010,C,0	4F14361

CS0030 = 1911

Definition
03567 0 73400 2 00000 4356 CS0030 PAX 0,B 4F14294

References (2)

	03571	0 62100 0 03567	4358		STA	CS0030	4F14296
	03653	0 50000 0 03567	4408	CS0490	CLA	CS0030 CHANGE REFERENCE	4F14346

CS0060 = 1915

Definition
03573 0 73400 4 00000 4360 CS0060 PAX 0,C 4F14298

References (2)

	03610	0 62100 0 03573	4373		STA	CS0060	4F14311
	03663	0 53400 4 03573	4416	CS0570	LXA	CS0060,C	4F14354

CS0080 = 1917

Definition
03575 1 00003 1 03565 4362 CS0080 TXI CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT 4F14300
Reference
03566 0 10000 0 03575 4355 TZE CS0080 ERASED SEGMENT - CONTINUE BACK-SCAN 4F14293

CS0090 = 1918

Definition
03576 −0 63400 1 03651 4363 CS0090 SXD CS0470,A SAVE XA 4F14301
Reference
03574 −3 77772 4 03576 4361 TXL CS0090,C,−6 AT LEAST TWO ELEMENTS 4F14299

CS0100 = 1920

Definition
03600 −3 00000 4 03603 4365 CS0100 TXL CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT 4F14303

References (5)

03602	1 00003 4 03600	4367	CS0120	TXI	CS0100,C,3	4F14305
03615	−0 10000 0 03600	4378		TNZ	CS0100 NOT SAME LENGTH SEGMENT-CONTINUE SEARCH	4F14316
03623	−0 10000 0 03600	4384		TNZ	CS0100	4F14322
03634	−0 10000 0 03600	4393		TNZ	CS0100	4F14331
03641	−0 10000 0 03600	4398		TNZ	CS0100	4F14336

CS0120 = 1922

Definition
03602 1 00003 4 03600 4367 CS0120 TXI CS0100,C,3 4F14305
Reference
03601 1 00003 1 03602 4366 TXI CS0120,A,3 4F14304

CS0130 = 1923

Definition
03603 −0 50000 1 06645 4368 CS0130 CAL SCRIPL−3,A 4F14306

References (3)

03600	−3 00000 4 03603	4365	CS0100	TXL	CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT	4F14303
03605	1 00003 1 03603	4370		TXI	CS0130,A,3 ERASED SEGMENT	4F14308
03667	1 00000 0 03603	4420	CS0600	TXI	CS0130,0,0	4F14358

CS0151 = 1926

Definition
03606 0 73400 2 00000 4371 CS0151 PAX 0,B 4F14309
Reference
03604 −0 10000 0 03606 4369 TNZ CS0151 4F14307

CS0250 = 1936

Definition
03620 −3 00000 4 03645 4381 CS0250 TXL CS0430,C,0 MATCHING SEGMENTS 4F14319
Reference
03644 1 00003 4 03620 4401 CS0370 TXI CS0250,C,3 4F14339

CS0360 = 1955

Definition
03643 1 00003 2 03644 4400 CS0360 TXI CS0370,B,3 4F14338
Reference
03642 1 00003 1 03643 4399 TXI CS0360,A,3 OPS MATCH 4F14337

CS0370 = 1956

Definition
03644 1 00003 4 03620 4401 CS0370 TXI CS0250,C,3 4F14339
Reference
03643 1 00003 2 03644 4400 CS0360 TXI CS0370,B,3 4F14338

CS0430 = 1957

Definition
03645 −0 50000 1 06650 4402 CS0430 CAL SCRIPL,A MATCHING SEGMENTS 4F14340
Reference
03620 −3 00000 4 03645 4381 CS0250 TXL CS0430,C,0 MATCHING SEGMENTS 4F14319

CS0450 = 1959

Definition
03647 0 34000 1 06647 4404 CS0450 CAS SCRIPL−1,A 4F14342

References (2)

	03650	1 00003 1 03647	4405		TXI	CS0450,A,3	4F14343
	03652	1 00003 1 03647	4407		TXI	CS0450,A,3	4F14345

CS0470 = 1961

Definition
03651 1 00000 0 03653 4406 CS0470 TXI CS0490,0,0 4F14344

References (3)

03576	−0 63400 1 03651	4363	CS0090	SXD	CS0470,A SAVE XA	4F14301
03616	−0 53400 2 03651	4379		LXD	CS0470,B SAME LENGTH SEGMENT	4F14317
03670	−0 53400 1 03651	4421	CS0610	LXD	CS0470,A	4F14359

CS0490 = 1963

Definition
03653 0 50000 0 03567 4408 CS0490 CLA CS0030 CHANGE REFERENCE 4F14346
Reference
03651 1 00000 0 03653 4406 CS0470 TXI CS0490,0,0 4F14344

CS0530 = 1967

Definition
03657 −3 00000 4 03663 4412 CS0530 TXL CS0570,C,0 ERASE DUPLICATE SEGMENT 4F14350
Reference
03662 1 00003 4 03657 4415 CS0560 TXI CS0530,C,3 4F14353

CS0560 = 1970

Definition
03662 1 00003 4 03657 4415 CS0560 TXI CS0530,C,3 4F14353
Reference
03661 1 00003 1 03662 4414 TXI CS0560,A,3 4F14352

CS0570 = 1971

Definition
03663 0 53400 4 03573 4416 CS0570 LXA CS0060,C 4F14354
Reference
03657 −3 00000 4 03663 4412 CS0530 TXL CS0570,C,0 ERASE DUPLICATE SEGMENT 4F14350

CS0600 = 1975

Definition
03667 1 00000 0 03603 4420 CS0600 TXI CS0130,0,0 4F14358

References (2)

	03617	−0 63400 1 03667	4380		SXD	CS0600,A	4F14318
	03656	−0 53400 1 03667	4411		LXD	CS0600,A	4F14349

CS0610 = 1976

Definition
03670 −0 53400 1 03651 4421 CS0610 LXD CS0470,A 4F14359
Reference
03607 −3 00000 2 03670 4372 TXL CS0610,B,0 GO ON TO NEXT SEGMENT 4F14310

CS0630 = 1978

Definition
03672 −3 00000 4 03565 4423 CS0630 TXL CS0010,C,0 4F14361
Reference
03674 1 00003 4 03672 4425 CS0650 TXI CS0630,C,3 4F14363

CS0650 = 1980

Definition
03674 1 00003 4 03672 4425 CS0650 TXI CS0630,C,3 4F14363
Reference
03673 1 00003 1 03674 4424 TXI CS0650,A,3 4F14362

CS0660 = 1981

Definition
03675 0 53400 5 01406 4426 CS0660 LXA L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE 4F14364
Reference
03570 −3 00000 2 03675 4357 TXL CS0660,B,0 EXIT FROM CS ROUTINE 4F14295

CS0670 = 1982

Definition
03676 −0 50000 1 06650 4427 CS0670 CAL SCRIPL,A 4F14365
Reference
03707 3 00000 1 03676 4436 CS0760 TXH CS0670,A,0 4F14374

CS0750 = 1990

Definition
03706 1 77775 1 03707 4435 CS0750 TXI CS0760,A,−3 4F14373

References (2)

	03677	0 10000 0 03706	4428		TZE	CS0750	4F14366
	03705	1 77775 4 03706	4434		TXI	CS0750,C,−3	4F14372

CS0760 = 1991

Definition
03707 3 00000 1 03676 4436 CS0760 TXH CS0670,A,0 4F14374

References (2)

	03543	−0 63400 4 03707	4336		SXD	CS0760,C	4F14274
	03706	1 77775 1 03707	4435	CS0750	TXI	CS0760,A,−3	4F14373

CSA000 = 1559

Definition
1187 CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE). 4F11177

03027 −0 63400 4 02732 1188 CSA000 SXD SXR4,4 SAVE C(XR4) FOR RETURN TO C0200. 4F11178
Reference
04017 0 07400 4 03027 1960 TSX CSA000,4 * DIMCTR = DIMENSION OF VARIABLE. 4F11912

CTESTX = 1450

Definition
02652 0 76100 0 00012 1076 CTESTX NOP CTEST−ENDMK FOUND TO BE NUMERIC 4F11066

References (4)

01627	0 53400 4 02652	497	C0161	LXA	CTESTX,4 TEST	4F10488
02643	0 53400 4 02652	1069		LXA	CTESTX,4 SET XR4 = NO. OF PUNCTUATION MARKS.	4F11059
02704	0 53400 4 02652	1102	SS0045	LXA	CTESTX,4 COMPARE CHARACTER	4F11092
05153	0 53400 4 02652	2754	CLOAD	LXA	CTESTX,4 SET XR4 TO PICK CONTROL CHARACTERS.	4F12704

DECMI2 = 849

Definition
01521 −0 00002 0 00000 405 DECMI2 MZE ,,2 4F10396

References (4)

04102	0 50000 0 01521	5297	CP2350	CLA	DECMI2 INITIALIZE DEC(P(CNTR) TO 2	4F15231
04276	0 50000 0 01521	5422	CP3600	CLA	DECMI2	4F15361
04327	0 50000 0 01521	5447		CLA	DECMI2 1... ARG2 IN MQ	4F15386
04537	0 00000 0 01521	5584		HTR	DECMI2	4F15528

DECPNT = 2360

Definition
4069 DECPNT=ENTRY POINT FOR FLOATING POINT FRACTIONS. 4F14011

04470 0 60000 0 01103 4070 DECPNT STZ N CLEAR N (NO INTEGER). 4F14012
Reference
03614 0 07400 4 04470 3624 MS200 TSX DECPNT,4 CONVERT BCD NUMBER TO BINARY 4F13567

DEL(A) = 0

Definition
00000 5965 DEL(A) SYN 0 DRUM ORIGIN FOR STATE A, 4F15901
Reference
02433 0 02663 0 00000 912 ZETA PZE DEL(A),,ENDADR−ORGA 4F10902

DEL(B) = 1160

Definition
02210 5966 DEL(B) SYN 1160 DRUM ORIGIN FOR STATE B. 4F15902
Reference
02435 0 01302 0 02210 914 PZE DEL(B),,ENDBDR−ORGB 4F10904

DEL(C) = 1275

Definition
02373 5967 DEL(C) SYN 1275 DRUM ORIGIN FOR STATE C. 4F15903
Reference
02436 0 01330 0 02373 915 PZE DEL(C),,ENDCDR−ORGC 4F10905

DEL(D) = 722

Definition
01322 5968 DEL(D) SYN 722 DRUM ORIGIN FOR STATE D. 4F15904
Reference
02434 0 01607 0 01322 913 PZE DEL(D),,ENDDDR−ORGD 4F10903

DIM1IX = 301

Definition
00455 1 00002 0 02071 240 DIM1IX TXI DIMALT,,5−3 TXI ALT,,I 4F10232

References (2)

	01772	−0 53400 4 00452	636		LXD	DIM1IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM1	4F10626
	04332	0 07400 4 00455	2221		TSX	DIM1IX,4 * GO MAKE DIM1 ENTRY. THEN	4F12178

DIM1SR = 1017

Definition

		628			END OF PROGRAM CIT00.	4F10618
		629			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10619
		630				4F10620
		631			DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA.	4F10621
		632			DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR,	4F10622
		633			DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION.	4F10623
		634			DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE.	4F10624
01771	−0 63400 4 01774	635	DIM1SR	SXD	DMSR00,4 SAVE THE C(XR4) FOR RETURN,	4F10625

References (3)

04274	0 07400 4 01771	2191		TSX	DIM1SR,4 * GO SEARCH DIM1 TABLE.	4F12145
05440	0 07400 4 01771	2973	RD1	TSX	DIM1SR,4 * GO SEARCH DIM1 TABLE,	4F12923
04003	0 07400 4 01771	3745	MS330	TSX	DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2,	4F13687

DIM2IX = 306

Definition
00462 1 00002 0 02071 246 DIM2IX TXI DIMALT,,5−3 TXI ALT,,I 4F10238

References (2)

	01776	−0 53400 4 00457	641		LXD	DIM2IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM2	4F10631
	04336	0 07400 4 00462	2225		TSX	DIM2IX,4 * GO MAKE DIM2 ENTRY. THEN	4F12182

DIM2SR = 1021

Definition
639 DIM2SR = ENTRY POINT FOR 2 DIMENSION TABLE. 4F10629

01775 −0 63400 4 01774 640 DIM2SR SXD DMSR00,4 SAVE THE C(XR) FRO RETURN. 4F10630

References (4)

03150	0 07400 4 01775	1269		TSX	DIM2SR,4 * GO SEARCH DIM2 TABLE.	4F11259
04277	0 07400 4 01775	2194	C1280	TSX	DIM2SR,4 * GO SEARCH DIM2 TABLE.	4F12148
05444	0 07400 4 01775	2977	RD2	TSX	DIM2SR,4 * GO SEARCH DIM2 TABLE.	4F12927
04006	0 07400 4 01775	3748	MS331	TSX	DIM2SR,4 OF THAT NUMBER OF DIMENSIONS, IF IT IS NOT	4F13690

DIM3IX = 311

Definition
00467 1 00002 0 02071 252 DIM3IX TXI DIMALT,,5−3 TXI ALT,,I 4F10244

References (2)

	02006	−0 53400 4 00464	650		LXD	DIM3IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM3	4F10640
	04326	0 07400 4 00467	2217		TSX	DIM3IX,4 * GO MAKE DIM3 ENTRY.	4F12174

DIM3SR = 1029

Definition
648 DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE. 4F10638

02005 −0 63400 4 01774 649 DIM3SR SXD DMSR00,4 SAVE THE C(XR4) FRO RETURN, 4F10639

References (4)

03063	0 07400 4 02005	1216		TSX	DIM3SR,4 * GO SEARCH DIM3 TABLE,	4F11206
04302	0 07400 4 02005	2197	C1281	TSX	DIM3SR,4 * GO SEARCH DIM3 TABLE.	4F12151
05455	0 07400 4 02005	2986	RD3	TSX	DIM3SR,4 * GO SEARCH DIM3 TABLE.	4F12936
04011	0 07400 4 02005	3751	MS332	TSX	DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY.	4F13693

DIMALT = 1081

Definition

		702			END OF PROGRAM DIM.SR.	4F10692
		703			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10693
		704				4F10694
		705			DRTABS(,4)/ CALLS RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA,	4F10695
		706			VRA(VRD).	4F10696
		707			DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF	4F10697
		708			THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM	4F10698
		709			TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFOMATION.	4F10699
		710			DIMALT= ENTRY POINT FOR DIMENSION TABLES.	4F10700
02071	−0 50000 0 00415	711	DIMALT	CAL	TXLOP PICK UP SWITCH CONTROL,	4F10701

References (3)

00455	1 00002 0 02071	240	DIM1IX	TXI	DIMALT,,5−3 TXI ALT,,I	4F10232
00462	1 00002 0 02071	246	DIM2IX	TXI	DIMALT,,5−3 TXI ALT,,I	4F10238
00467	1 00002 0 02071	252	DIM3IX	TXI	DIMALT,,5−3 TXI ALT,,I	4F10244

DIMCTR = 576

Definition
01100 5972 DIMCTR SYN ERASE COMMON WORKING STORAGE. 4F15908

References (6)

02617	0 60000 0 01100	1049		STZ	DIMCTR SET DIMCTR = 0.	4F11039
02772	−0 50000 0 01100	1158	SBC	CAL	DIMCTR UPDATE	4F11148
02774	0 62100 0 01100	1160		STA	DIMCTR BY 1.	4F11150
03030	0 50000 0 01100	1189	SA000	CLA	DIMCTR SAVE	4F11179
03041	0 34000 0 01100	1198		CAS	DIMCTR TO DETERMINE	4F11188
04013	0 60100 0 01100	1956		STO	DIMCTR INPUT TO SUBSCRIPT ANALYSIS=	4F11908

DIMSAV = 597

Definition
01125 285 DIMSAV BSS 1 WORKING STORAGE USED BY SS000. 4F10276

References (3)

02441	0 50000 0 01125	923	CLA	DIMSAV EXAMINE THE	4F10913
02457	0 53400 4 01125	937	LXA	DIMSAV,4 AND GO SUBTRACT ADDEND 1.	4F10927
03031	0 60100 0 01125	1190	STO	DIMSAV THE CONTENTS OF DIMCTR	4F11180

DMCN12 = 1077

Definition
697 4F10687

02065 0 60000 0 01102 698 DMCN12 STZ D3 CONSTANT USED BY DIM.SR. 4F10688
Reference
02003 −0 50000 0 02065 646 CAL DMCN12 (STZ D3) 4F10636

DMSR00 = 1020

Definition
01774 1 00000 0 02000 638 DMSR00 TXI DMSR01,0,** GO SET DRUM ADDRESS. 4F10628

References (5)

01771	−0 63400 4 01774	635	DIM1SR	SXD	DMSR00,4 SAVE THE C(XR4) FOR RETURN,	4F10625
01775	−0 63400 4 01774	640	DIM2SR	SXD	DMSR00,4 SAVE THE C(XR) FRO RETURN.	4F10630
02005	−0 63400 4 01774	649	DIM3SR	SXD	DMSR00,4 SAVE THE C(XR4) FRO RETURN,	4F10639
02047	−0 53400 4 01774	683	DMSR08	LXD	DMSR00,4 RESTORE THE C(XR4), AND	4F10673
02063	−0 53400 4 01774	695	DMSR10	LXD	DMSR00,4 RESTORE THE C(XR4), AND	4F10685

DMSR01 = 1024

Definition
02000 0 62100 0 01104 643 DMSR01 STA DRMADR SET DRUM ADDRESS. 4F10633
Reference
01774 1 00000 0 02000 638 DMSR00 TXI DMSR01,0,** GO SET DRUM ADDRESS. 4F10628

DMSR02 = 1036

Definition
02014 0 60200 0 02031 656 DMSR02 SLW DMSR05 SET OP CODES ACCORDING 4F10646
Reference
02004 1 00000 0 02014 647 DMSR11 TXI DMSR02,0,** GO SET OP FRO DIM1 AND DIM2. 4F10637

DMSR04 = 1046

Definition
02026 0 70000 0 01100 666 DMSR04 CPY DRSYM COPY DRUM SYMBOL. 4F10656
Reference
02046 2 00001 4 02026 682 TIX DMSR04,4,1 REPEAT LOOP. 4F10672

DMSR05 = 1049

Definition
02031 0 00000 0 01102 669 DMSR05 PZE D3 (DIM1 AND DIM2 = STZ , DIM3 = CPY). 4F10659

References (3)

01760	−0 75400 2 02032	619	DMSR99	PXD	DMSR05+1,2 COMPUTE THE	4F10609
01763	−0 73400 2 02031	622	DMSR98	PDX	DMSR05,2 IN CIB BUFFER, AND	4F10612
02014	0 60200 0 02031	656	DMSR02	SLW	DMSR05 SET OP CODES ACCORDING	4F10646

DMSR06 = 1059

Definition
02043 0 70000 0 01101 679 DMSR06 CPY D12 PASS OVER ENTRY 4F10669

References (2)

	02027	0 04000 0 02043	667		TLQ	DMSR06 COMPARE WITH NAME OF VARIABLE, AND	4F10657
	02037	0 04000 0 02043	675		TLQ	DMSR06 PROCESS	4F10665

DMSR07 = 1060

Definition
02044 0 00000 0 01102 680 DMSR07 PZE D3 (DIM1 AND DIM2 = STZ, DIM3 = CPY) 4F10670
Reference
02015 0 60200 0 02044 657 SLW DMSR07 TO DIMENSION. 4F10647

DMSR08 = 1063

Definition
02047 −0 53400 4 01774 683 DMSR08 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10673

References (2)

	02016	−3 00000 4 02047	658		TXL	DMSR08,4,0 IF TABLE IS EMPTY, GO OUT.	4F10648
D	02042	1 00000 0 02047	678		TXI	DMSR08,0 IS EXHAUSTED.	4F10668

DMSR09 = 1065

Definition
02051 −0 50000 0 01100 685 DMSR09 CAL DRSYM COMPUTE A 4F10675
Reference
02035 1 00000 0 02051 673 DMSR12 TXI DMSR09,0,** IF NOT EQUAL, THEN 4F10663

DMSR10 = 1075

Definition
02063 −0 53400 4 01774 695 DMSR10 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10685
Reference
02057 0 10000 0 02063 691 TZE DMSR10 IF NOT EQUAL, THEN 4F10681

DMSR11 = 1028

Definition
02004 1 00000 0 02014 647 DMSR11 TXI DMSR02,0,** GO SET OP FRO DIM1 AND DIM2. 4F10637

References (2)

	02017	−0 63400 4 02004	659		SXD	DMSR11,4 SAVE ENTRY COUNT IN CASE OF ERROR.	4F10649
	02022	−0 53400 4 02004	662		LXD	DMSR11,4 RESET ENTRY COUNT.	4F10652

DMSR12 = 1053

Definition
02035 1 00000 0 02051 673 DMSR12 TXI DMSR09,0,** IF NOT EQUAL, THEN 4F10663

References (2)

	02021	−0 63400 4 02035	661	DMSR13	SXD	DMSR12,4 SAVE ERROR COUNTER, AND	4F10651
	02060	−0 53400 4 02035	692		LXD	DMSR12,4 REPEAT ATTEMPT,	4F10682

DMSR13 = 1041

Definition
02021 −0 63400 4 02035 661 DMSR13 SXD DMSR12,4 SAVE ERROR COUNTER, AND 4F10651
Reference
02061 2 00001 4 02021 693 TIX DMSR13,4,1 UNLESS PROCESS 4F10683

DMSR14 = 1040

Definition
02020 0 53400 4 01413 660 DMSR14 LXA L(5),4 SET ERROR COUNTER FOR 5 ATTEMPTS. 4F10650

DMSR15 = 1057

Definition
02041 2 00001 4 00000 677 DMSR15 TIX **,4,1 TABLE 4F10667

References (2)

	02002	0 62100 0 02041	645		STA	DMSR15 DMSR05+1 FOR DIM1 AND DIM2.	4F10635
	02012	0 62100 0 02041	654		STA	DMSR15 DMSR05 FOR DIM3.	4F10644

DMSR98 = 1011

Definition
01763 −0 73400 2 02031 622 DMSR98 PDX DMSR05,2 IN CIB BUFFER, AND 4F10612
Reference
02011 0 50000 0 01763 653 CLA DMSR98 SET LOOP ADDRESS TO 4F10643

DMSR99 = 1008

Definition
01760 −0 75400 2 02032 619 DMSR99 PXD DMSR05+1,2 COMPUTE THE 4F10609
Reference
02001 0 50000 0 01760 644 CLA DMSR99 SET LOOP ADDRESS TO 4F10634

DMWR01 = 322

Definition

		1526			END OF INITIALIZATION / PART 1.	4F11481
		1527			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11482
		1528				4F11483
		1529			PART 2 / WRITE STATES A,B,C,D ON DRUMS1,3,4,2=	4F11484
00502	0 53400 4 01411	1530	DMWR01	LXA	L(3),4 PREPARE TO WRITE STATE D ON DRUM 2.	4F11485

DMWR03 = 324

Definition
00504 0 53400 4 01407 1532 DMWR03 LXA L(1),4 PREPARE TO WRITE STATE C ON DRUM 4. 4F11487
Reference
00000 0 00504 0 03440 4263 PZE ORGC,,DMWR03 4F142022

DMWR06 = 326

Definition
00506 0 53400 4 01410 1534 DMWR06 LXA L(2),4 PREPARE TO WRITE STATE B ON DRUM 3. 4F11489
Reference
00000 0 00506 0 03440 3498 PZE ORGB,,DMWR06 4F134422

DMWR09 = 328

Definition
00510 0 53400 4 01412 1536 DMWR09 LXA L(4),4 PREPARE TO WRITE STATE A ON DRUM 1. 4F11491
Reference
00000 0 00510 0 03440 1604 PZE ORGA,,DMWR09 4F115572

DMWR11 = 331

Definition
00513 0 50000 4 02437 1539 DMWR11 CLA ZETA+4,4 GET LENGTH OF CURRENT STATE. 4F11494

References (3)

00503	0 02000 0 00513	1531	TRA	DMWR11 X	4F11486
00505	0 02000 0 00513	1533	TRA	DMWR11 X	4F11488
00507	0 02000 0 00513	1535	TRA	DMWR11 X	4F11490

DMWR20 = 339

Definition
00523 0 36100 2 00000 1547 DMWR20 ACL **,2 X 4F11502

References (2)

	00520	0 62100 0 00523	1544		STA	DMWR20 X	4F11499
	00524	2 00001 2 00523	1548		TIX	DMWR20,2,1 X	4F11503

DMWR23 = 343

Definition
00527 0 76600 4 00305 1551 DMWR23 WDR 5,4 PREPARE TO WRITE DRUM. 4F11506
Reference
00547 2 00001 1 00527 1567 TIX DMWR23,1,1 CK SUM FAILED, TRY UP TO 5 TIMES. 4F11522

DMWR26 = 347

Definition
00533 0 70000 2 00000 1555 DMWR26 CPY **,2 WRITE STATE ON DRUM. 4F11510

References (2)

	00521	0 62100 0 00533	1545		STA	DMWR26 X	4F11500
	00534	2 00001 2 00533	1556		TIX	DMWR26,2,1 X	4F11511

DMWR32 = 355

Definition
00543 −0 70000 0 00573 1563 DMWR32 CAD GARBGE RECOMPUTE CK SUM. 4F11518
Reference
00544 2 00001 2 00543 1564 TIX DMWR32,2,1 X 4F11519

DMWR40 = 358

Definition
00546 0 10000 0 00004 1566 DMWR40 TZE 1TOCS * CK SUM AGREE, GO GET NEXT STATE. 4F11521
Reference
00512 0 62100 0 00546 1538 STA DMWR40 CHANGE ADDRESS TO GET OUT OF LOOP. 4F11493

DMWR80 = 364

Definition
00554 −3 00002 4 00561 1572 DMWR80 TXL DMWR82,4,2 TEST FOR STATE D IN PROGRESS. 4F11527
Reference
00552 −3 00003 4 00554 1570 TXL DMWR80,4,3 TEST FOR STATE A IN PROGRESS. 4F11525

DMWR82 = 369

Definition
00561 −3 00001 4 00564 1577 DMWR82 TXL DMWR84,4,1 TEST FOR SET B IN PROGRESS. 4F11532
Reference
00554 −3 00002 4 00561 1572 DMWR80 TXL DMWR82,4,2 TEST FOR STATE D IN PROGRESS. 4F11527

DMWR84 = 372

Definition
00564 0 76200 0 00221 1580 DMWR84 RTB 1 SPACE OVER STATE B RECORD. 4F11535
Reference
00561 −3 00001 4 00564 1577 DMWR82 TXL DMWR84,4,1 TEST FOR SET B IN PROGRESS. 4F11532

DMWR88 = 375

Definition
00567 0 53400 4 01406 1583 DMWR88 LXA L(0),4 SET IR4 TO 0 TO CAUSE DIAGNOSTIC TO 4F11538
Reference
00577 0 02000 0 00567 1595 DMWR89 TRA DMWR88 CONSTANT FOR ERROR ROUTINE. 4F11550

DMWR89 = 383

Definition
00577 0 02000 0 00567 1595 DMWR89 TRA DMWR88 CONSTANT FOR ERROR ROUTINE. 4F11550
Reference
00550 0 50000 0 00577 1568 CLA DMWR89 SET MONITOR TO RETURN TO THIS 4F11523

DMWR98 = 384

Definition
00600 0 00000 0 00571 1596 DMWR98 PZE DMWR99 CONSTANT FOR ADDRESS MODIFICATION. 4F11551

References (2)

	00001	0 00000 0 00600	1509		PZE	DMWR98	4F114643
	00511	0 50000 0 00600	1537		CLA	DMWR98 THIS IS FINAL STATE TO BE WRITTEN,	4F11492

DMWR99 = 377

Definition
00571 0 07400 4 05702 1585 DMWR99 TSX CA100,4 * GO TO SUBROUTINE TO LOAD FT REGION. 4F11540
Reference
00600 0 00000 0 00571 1596 DMWR98 PZE DMWR99 CONSTANT FOR ADDRESS MODIFICATION. 4F11551

DOLSGN = 851

Definition
01523 −136000000000 407 DOLSGN OCT 536000000000 CONSTANT USED BY C32000 4F10398

References (4)

03420	0 50000 0 01523	1483	FLTR02	CLA	DOLSGN SET ADDRESS TO $+2	4F11457G
04560	0 00000 0 01523	2406		PZE	DOLSGN WORD3--$	4F12355
04565	0 00000 0 01523	2411		PZE	DOLSGN WORD3--$	4F12360
04572	0 00000 0 01523	2416		PZE	DOLSGN WORD3--$	4F12365

DRCKSM = 579

Definition
01103 5975 DRCKSM SYN ERASE+3 COMMON WORKING STORAGE. 4F15911

References (6)

02032	0 70000 0 01103	670	CPY	DRCKSM COPY CHECKSUM.	4F10660
02045	0 70000 0 01103	681	CPY	DRCKSM AND CHECKSUM, AND	4F10671
02055	0 36100 0 01103	689	ACL	DRCKSM COMPARE WITH	4F10679
02423	−0 70000 0 01103	903	CAD	DRCKSM FROM DRUM	4F10893
00525	0 60200 0 01103	1549	SLW	DRCKSM X	4F11504
00532	0 70000 0 01103	1554	CPY	DRCKSM WRITE CK SUM ON DRUM.	4F11509

DRMADR = 580

Definition
01104 5976 DRMADR SYN ERASE+4 ERASABLE STORAGE. 4F15912

References (3)

02000	0 62100 0 01104	643	DMSR01	STA	DRMADR SET DRUM ADDRESS.	4F10633
02010	0 62100 0 01104	652		STA	DRMADR SET DRUM ADDRESS.	4F10642
02025	0 46000 0 01104	665		LDA	DRMADR LOAD CURRENT DRUM ADDRESS, AND	4F10655

DRMERC = 779

Definition
01413 5977 DRMERC SYN L(5) NUMBER OF DRUM READING ATTEMPTS. 4F15913

References (3)

02416	0 53400 1 01413	898		LXA	DRMERC,1 SET FOR FIVE ATTEMPTS.	4F10888
02520	0 53400 1 01413	975	RDRX	LXA	DRMERC,1 SET FOR 5 ATTEMPTS TO READ DRUM.	4F10965
00526	0 53400 1 01413	1550		LXA	DRMERC,1 SET FOR FIVE ATTEMPTS.	4F11505

DRTABS = 1084

Definition
02074 0 63000 0 02135 715 DRTABS STP DIMSW SET SWITCH. 4F10705
Reference
D 02072 1 00000 0 02074 712 TXI DRTABS,0 AND GO SET SWITCH FOR DIM TABLES. 4F10702

ENDADR = 3283

Definition
3474 END OF TRANSFER TABLE. 4F13421

06323 3475 ENDADR BSS 0 4F134215
Reference
02433 0 02663 0 00000 912 ZETA PZE DEL(A),,ENDADR−ORGA 4F10902

ENDBDR = 2530

Definition
04742 4245 ENDBDR BSS 0 4F141865
Reference
02435 0 01302 0 02210 914 PZE DEL(B),,ENDBDR−ORGB 4F10904

ENDCDR = 2552

Definition
4991 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 4F14929

04770 4992 ENDCDR BSS 0 4F149295
Reference
02436 0 01330 0 02373 915 PZE DEL(C),,ENDCDR−ORGC 4F10905

ENDDDR = 2727

Definition
5915 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 4F15852

05247 5916 ENDDDR BSS 0 4F158525
Reference
02434 0 01607 0 01322 913 PZE DEL(D),,ENDDDR−ORGD 4F10903

ENDWRD = 1405

Definition
02575 1 77777 0 02610 1025 ENDWRD TXI SR6DC4,0,−1 (DECR= END OF PROBLEM INDICATOR) 4F11015

References (2)

	03440	−0 53400 4 02575	1691	CA010	LXD	ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN	4F11643
	05741	−0 63400 0 02575	3205		SXD	ENDWRD,0 STATEMENT HAS BEEN READ IN.	4F13153

ERR77P = 1722

Definition
03272 0 07400 4 03400 1371 ERR77P TSX DIAG,4 * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11361

References (4)

	03623	0 02000 0 03272	1821	TRA	ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC.	4F11773
D	03630	1 00000 0 03272	1826	TXI	ERR77P,0 * MACHINE ERROR, GO TO DIAGNOSTIC.	4F11778
	04054	0 02000 0 03272	1996	TRA	ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC.	4F11948
	04174	0 02000 0 03272	2111	TRA	ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC.	4F12063

ES0000 = 2450

Definition
04622 −0 53400 1 01117 5635 ES0000 LXD 3QBAR,A -3Q TO XA 4F15579

References (6)

03626	−3 00000 2 04622	5125	CP0560	TXL	ES0000,B,0 GO TO END-OF-SEGMENT SBRTN	4F15059
04147	1 00000 0 04622	5334	CP5830	TXI	ES0000,0,0	4F15268
04200	0 02000 0 04622	5360		TRA	ES0000	4F15294
04216	0 02000 0 04622	5374		TRA	ES0000 GO TO END-OF-SEGMENT SBRTN	4F15308
04414	0 02000 0 04622	5500		TRA	ES0000	4F15439
05246	0 02000 0 04622	5914		TRA	ES0000	4F158517

ES0160 = 2466

Definition
04642 0 56000 0 01356 5651 ES0160 LDQ LEFT+2 S(I)=S(O) 4F15595
Reference
04627 0 10000 0 04642 5640 TZE ES0160 4F15584

ES0200 = 2471

Definition
04647 0 34000 0 01451 5656 ES0200 CAS CALLER IS THIS A CALL STATEMENT 4F15600
Reference
04645 0 02000 0 04647 5654 TRA ES0200 4F15598

ES0210 = 2474

Definition
04652 0 34000 0 01447 5659 ES0210 CAS SAPSYM 4F15603
Reference
04650 0 02000 0 04652 5657 TRA ES0210 4F15601

ES0220 = 2477

Definition
04655 0 77100 0 00006 5662 ES0220 ARS 6 4F15606
Reference
04653 0 02000 0 04655 5660 TRA ES0220 4F15604

ES0300 = 2536

Definition
04750 −0 76000 0 00144 5721 ES0300 SLT 4 4F15665

References (2)

	04662	0 02000 0 04750	5667		TRA	ES0300	4F15611
	04663	0 02000 0 04750	5668		TRA	ES0300	4F15612

ES0320 = 2538

Definition
04752 −0 76000 0 00142 5723 ES0320 SLT 2 FLO PT ON LEFT, FX PT ON RIGHT 4F15667
Reference
05022 0 02000 0 04752 5763 TRA ES0320 4F15707

ES0440 = 2549

Definition
04765 0 07400 4 01731 5734 ES0440 TSX CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN 4F15678
Reference
04753 0 02000 0 04765 5724 TRA ES0440 4F15668

ES0610 = 2564

Definition
05004 −0 53400 4 01122 5749 ES0610 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F15693
Reference
04747 0 02000 0 05004 5720 TRA ES0610 4F15664

ES0630 = 2566

Definition
05006 0 50000 0 01601 5751 ES0630 CLA L(TRA) YES 4F15695

References (2)

	05026	0 02000 0 05006	5767		TRA	ES0630	4F15711
	05040	0 02000 0 05006	5777		TRA	ES0630	4F15721

ES0710 = 2486

Definition
04666 0 50000 0 01573 5671 ES0710 CLA L(STQ) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT 4F15615
Reference
04751 0 02000 0 04666 5722 TRA ES0710 4F15666

ES0730 = 2488

Definition
04670 0 50000 0 01572 5673 ES0730 CLA L(STO) 4F15617
Reference
05005 −3 00000 4 04670 5750 TXL ES0730,C,0 NO 4F15694

ES0870 = 2499

Definition
04703 −0 76000 0 00142 5684 ES0870 SLT 2 FX PT ON LEFT, FLO PT ON RIGHT 4F15628

References (2)

	04665	0 02000 0 04703	5670		TRA	ES0870	4F15614
	05024	0 02000 0 04703	5765		TRA	ES0870	4F15709

ES0990 = 2510

Definition
04716 0 07400 4 01731 5695 ES0990 TSX CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN 4F15639
Reference
04704 0 02000 0 04716 5685 TRA ES0990 4F15629

ES1300 = 2574

Definition
05016 0 40200 0 01433 5759 ES1300 SUB L(X) 4F15703
Reference
04657 3 00000 4 05016 5664 TXH ES1300,C,0 YES 4F15608

ES1360 = 2579

Definition
05023 −0 76000 0 00144 5764 ES1360 SLT 4 4F15708
Reference
05017 0 10000 0 05023 5760 TZE ES1360 4F15704

ES1380 = 2581

Definition
05025 −0 76000 0 00142 5766 ES1380 SLT 2 4F15710
Reference
05021 0 02000 0 05025 5762 TRA ES1380 4F15706

ES1500 = 2593

Definition
05041 0 07400 1 03321 5778 ES1500 TSX TET00,1 * GO TO PROGRAM TET TO ENTER 1C,1C+1 4F15722
Reference
04646 0 02000 0 05041 5655 TRA ES1500 4F15599

ES1520 = 2596

Definition
05044 −0 53400 4 00030 5781 ES1520 LXD EIFNO,4 4F15725
Reference
04651 0 02000 0 05044 5658 TRA ES1520 4F15602

ES1530 = 2600

Definition
05050 −0 76000 0 00142 5785 ES1530 SLT 2 4F15729
Reference
05043 0 02000 0 05050 5780 TRA ES1530 4F15724

ES1590 = 2612

Definition
05064 0 50000 0 06160 5797 ES1590 CLA FNSW 4F15741

References (3)

04702	0 02000 0 05064	5683	TRA	ES1590 EXIT TO FETCH STATE A	4F15627
05015	0 02000 0 05064	5758	TRA	ES1590 EXIT TO FETCH STATE A	4F15702
05051	0 02000 0 05064	5786	TRA	ES1590 EXIT TO FETCH STATE A	4F15730

ES1710 = 2624

Definition
05100 −0 53400 2 00637 5809 ES1710 LXD BBOX,B 4F15753
Reference
04654 0 02000 0 05100 5661 TRA ES1710 4F15605

FINI03 = 2199

Definition
04227 −0 75400 2 04432 3894 FINI03 PXD CM4300,B 4F13836

References (2)

	04177	0 50000 0 04227	3870		CLA	FINI03	4F13812
	04226	1 00001 2 04227	3893		TXI	FINI03,B,1 -(N+3) TO - (N+2)	4F13835

FIRSTC = 729

Definition
01331 292 FIRSTC BSS 1 USED BY SS000,TESTFX,C3000. 4F10283

References (13)

02635	0 60100 0 01331	1063		STO	FIRSTC SAVE RIGHT-ADJUSTED DIGIT, AND	4F11053
02670	0 50000 0 01331	1090		CLA	FIRSTC TEST	4F11080
02712	0 60100 0 01331	1108		STO	FIRSTC ADDEND, SAVE FOR LATER TEST.	4F11098
03003	0 50000 0 01331	1167		CLA	FIRSTC TEST FOR	4F11157
03021	0 40000 0 01331	1181		ADD	FIRSTC ADDEND	4F11171
03241	−0 50000 0 01331	1336	TESTFX	CAL	FIRSTC COMPARE FIRST CHARACTER	4F11326
04470	0 60100 0 01331	2340		STO	FIRSTC 1ST CHARACTER OF ARGUMENT.	4F12300
03534	0 60100 0 01331	3576	MS081	STO	FIRSTC NO, SAVE CURRENT CHAR.	4F13519
03541	0 50000 0 01331	3581		CLA	FIRSTC RESTORE CURRENT CHAR.	4F13524
04170	0 60100 0 01331	3863		STO	FIRSTC	4F13805
04236	0 50000 0 01331	3901	LA0044	CLA	FIRSTC	4F13843
04256	0 50000 0 01331	3917	LA0072	CLA	FIRSTC	4F13859
04265	0 50000 0 01331	3924	LA0021	CLA	FIRSTC	4F13866

FIXCON = 2

Definition
00002 5987 FIXCON SYN 0002 DRUM TABLE ORIGIN -DRTABS, 4F15923

References (3)

00414	0 00000 0 00002	201		PZE	FIXCON,,** TDA,,N	4F10193
00415	−3 00062 0 00002	202	TXLOP	TXL	FIXCON,,501 ** FDA,,K*L	4F10194
04352	3 00000 0 00002	4727	PL0880	TXH	FIXCON,0,0 EXP NOT LESS THAN 7, SO	4F14665

FIXVAR = 847

Definition
01517 317400000000 403 FIXVAR BCD 1I(0000 I( INTERNAL FIXED PT. VARIABLE. 4F10394
Reference
04534 −0 50100 0 01517 4106 ORA FIXVAR CREATE INTERNAL FXD-PT VARIABLE,AND 4F14048

FLCNIX = 276

Definition
00424 1 00003 0 02073 210 FLCNIX TXI ALT,,5−2 TXI ALT,,I 4F10202
Reference
04634 0 07400 4 00424 4170 TSX FLCNIX,4 * GO MAKE FLOCON ENTRY. 4F14112

FLOCON = 202

Definition
00312 5988 FLOCON SYN 202 DRUM TABLE ORIGIN -DRTABS. 4F15924

References (2)

	00421	0 00000 0 00312	207		PZE	FLOCON,,** TDA,,N	4F10199
	00422	3 00062 0 00312	208	TXHOP	TXH	FLOCON,,501 ** FDA,,K*L	4F10200

FLOVAR = 843

Definition
01513 217400000000 399 FLOVAR BCD 1A(0000 A( INTERNAL FLOATING PT. 4F10390
Reference
04635 −0 50100 0 01513 4171 ORA FLOVAR CREATE INTERNAL FLO-PT VARIABLE, 4F14113

FLTR00 = 1793

Definition

		1464			END OF PROGRAM DIAG.	4F11454
		1465			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11455
		1466				4F11456
		1467			ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS.	4F11457
03401	−0 63400 4 03437	1468	FLTR00	SXD	FLTR05,4 SAVE CALLING TAG.	4F114571

References (3)

04652	0 07400 4 03401	2469		TSX	FLTR00,4 * GO MAKE FLOW TRACING INSTRUCTIONS.	4F12418
04615	0 07400 4 03401	5630	CP5780	TSX	FLTR00,4 COMPILE FLOW TRACE INFO AND LXD 7(,4	4F15574
05241	0 07400 4 03401	5909	CP6000	TSX	FLTR00,4 COMPILE FLOW TRACE INFORMATION AND THEN	4F158512

FLTR01 = 1803

Definition
03413 0 50000 0 00365 1478 FLTR01 CLA SBDFCN IS THIS A MAIN PROGRAM OR SUBPROGRAM. 4F11457B
Reference
03407 −3 00000 4 03413 1474 TXL FLTR01,4,0 IS THIS AN FN FUNCTION, NO SKIP. 4F114577

FLTR02 = 1808

Definition
03420 0 50000 0 01523 1483 FLTR02 CLA DOLSGN SET ADDRESS TO $+2 4F11457G
Reference
03414 −0 10000 0 03420 1479 TNZ FLTR02 SKIP ON SUBPROGRAM 4F11457C

FLTR03 = 1811

Definition
03423 0 60100 0 01110 1486 FLTR03 STO 1C+3 SET RELATIVE ADDRESS WORD OF CIT. 4F11457J
Reference
03412 0 02000 0 03423 1477 TRA FLTR03 4F11457A

FLTR04 = 1812

Definition
03424 0 07400 4 01731 1487 FLTR04 TSX CIT00,4 4F11457K
Reference
03417 0 02000 0 03424 1482 TRA FLTR04 4F11457F

FLTR05 = 1823

Definition
03437 1 00000 0 01731 1498 FLTR05 TXI CIT00,0,** GO COMPILE LXD M(,4 OR 7(TYPE=,4 4F11457V

References (2)

	03401	−0 63400 4 03437	1468	FLTR00	SXD	FLTR05,4 SAVE CALLING TAG.	4F114571
	03436	−0 53400 4 03437	1497		LXD	FLTR05,4	4F11457U

FMTEFN = 200

Definition
00310 98 FMTEFN BSS 10 TABLE OF FORMAT EXTERNAL FORMNOS. 4F10090
Reference
00405 0 00012 0 00310 178 PZE FMTEFN,,10 17) 0,,B. 4F10170

FNBITS = 2755

Definition
05303 4253 FNBITS BSS 1 4F14194

References (3)

03465	0 60000 0 05303	3537	STZ	FNBITS CLEAR FUNCTION NAME INDICATOR	4F13480
04016	0 60200 0 05303	3756	SLW	FNBITS X	4F13698
04364	−0 50100 0 05303	3987	ORA	FNBITS	4F13929

FORMAT = 130

Definition
00202 91 FORMAT BSS 10 FORMAT STATEMENTS. 4F10083
Reference
00360 0 00012 0 00202 150 PZE FORMAT,,10 10) 0,,B. 4F10142

FORSUB = 313

Definition
00471 258 FORSUB BSS 100 NAMES AND DEGREES OF FUNCTIONS. 4F10250

References (8)

00000	0 00004 0 00471	1508	PZE	FORSUB,,1TOCS	4F114642
	00471	1510	ORG	FORSUB	4F11465
03565	0 60200 4 00471	3601	SLW	FORSUB,4 ENTER FUNCTION NAME IN FORSUB TABLE.	4F13544
03570	0 60100 4 00472	3604	STO	FORSUB+1,4 X	4F13547
03662	0 62100 1 00470	3662	STA	FORSUB−1,1 X	4F13605
04110	0 34000 1 00471	3815	CAS	FORSUB,A SEARCH FN NAME IN FORSUB	4F13757
04117	−0 50000 1 00472	3822	CAL	FORSUB+1,A FN NAME IN FORSUB	4F13764
05154	−0 50000 2 00470	5855	CAL	FORSUB−1,B	4F15799

FORTAG = 70

Definition
00106 85 FORTAG BSS 10 INDEXES TO TAU AND SIGMA TABLES. 4F10077
Reference
00336 0 00012 0 00106 126 PZE FORTAG,,10 04) 0,,B. 4F10118

FORVAL = 90

Definition
00132 87 FORVAL BSS 10 LEFT - NON-SUB. FX. PT. VARIABLES. 4F10079
Reference
00344 0 00012 0 00132 134 PZE FORVAL,,10 06) 0,,B. 4F10126

FORVAR = 80

Definition
00120 86 FORVAR BSS 10 RIGHT - NON-SUB. FX. PT. VARIABLES. 4F10078
Reference
00341 0 00012 0 00120 130 PZE FORVAR,,10 05) 0,,B. 4F10122

FSBITS = 2754

Definition
05302 4252 FSBITS BSS 1 4F14193

References (3)

04115	0 60000 0 05302	3820	STZ	FSBITS SET FSBITS TO 0	4F13762
04130	0 60200 0 05302	3831	SLW	FSBITS	4F13773
04363	−0 50100 0 05302	3986	ORA	FSBITS	4F13928

FSNAME = 730

Definition
01332 293 FSNAME BSS 1 NAME OF FUNCTION. 4F10284

References (3)

04456	0 60100 0 01332	2330	STO	FSNAME	4F12290
04545	0 50000 0 01332	2395	CLA	FSNAME	4F12344
04552	0 00000 0 01332	2400	PZE	FSNAME WORD3--NAME OF FUNCTION	4F12349

FSTYPE = 2753

Definition
05301 4251 FSTYPE BSS 1 4F14192

References (4)

03451	0 60000 0 05301	3525	STZ	FSTYPE X	4F13468
03657	−0 50000 0 05301	3659	CAL	FSTYPE YES, UPDATE FUNCTION TYPE AND	4F13602
04123	0 34000 0 05301	3826	CAS	FSTYPE YES - UPDATE FS TYPE	4F13768
04124	0 62100 0 05301	3827	STA	FSTYPE	4F13769

FTG000 = 1616

Definition
03120 −0 50000 0 00030 1245 FTG000 CAL EIFNO ENTER FORTAG= 4F11235

FXCNIX = 271

Definition
00417 1 00003 0 02073 204 FXCNIX TXI ALT,,5−2 TXI ALT,,I 4F10196

References (4)

02274	0 00000 0 00412	844	CONX	PZE	FXCNIX−5 CONSTANT USED BY DRTABS.	4F10834
05473	0 07400 4 00417	3000		TSX	FXCNIX,4 * GO ENTER IN FIXCON, AND GET TAG.	4F12950
06060	0 07400 4 00417	3317		TSX	FXCNIX,4 * ENTER CON IN FIXCON,AND GET TAG,	4F13265
04533	0 07400 4 00417	4105		TSX	FXCNIX,4 * GO MAKE FIXCON ENTRY.	4F14047

FXCODR = 2

Definition
00002 5989 FXCODR SYN 2 4F15925
Reference
04337 0 76200 0 00302 4716 RDR FXCODR 4F14654

GARBGE = 379

Definition

	1587			END OF INITIALIZATION / PART 2.	4F11542
	1588			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11543
	1589				4F11544
	1590			PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION=	4F11545
00573	1591	GARBGE	BSS	1 ERASEABLE STORAGE.	4F11546

References (2)

	00541	−0 70000 0 00573	1561		CAD	GARBGE STATE.	4F11516
	00543	−0 70000 0 00573	1563	DMWR32	CAD	GARBGE RECOMPUTE CK SUM.	4F11518

GETIFN = 1270

Definition

		854			END OF PROGRAM DRTABS.	4F10844
		855			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10845
		856				4F10846
		857			GETIFN,4/ CALLERS=C0100,C0200,C1000,C1100,C1600,C3200.	4F10847
		858			GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C.	4F10848
02366	−0 53400 1 00030	859	GETIFN	LXD	EIFNO,1 PLACE THE INTERNAL FORMULA	4F10849

References (6)

03653	0 07400 4 02366	1854	C0100	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F11806
03720	0 07400 4 02366	1897	C0200	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C	4F11849
04216	0 07400 4 02366	2135	C1000	TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C	4F12087
04257	0 07400 4 02366	2173		TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F12127
04540	0 07400 4 02366	2390		TSX	GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C.	4F12339
04637	0 07400 4 02366	2458		TSX	GETIFN,4 * PUT INTERNAL FORMULA NUMBER IN 1C.	4F12407

HOLARG = 160

Definition
00240 94 HOLARG BSS 10 HOLLERITH ARGUMENTS FOR SUBROUTINE. 4F10086
Reference
00371 0 00012 0 00240 162 PZE HOLARG,,10 13) 0,,B. 4F10154

HOLCNT = 746

Definition
01352 307400000000 297 HOLCNT BCD 1H(0000 WORKING STORAGE USED BY C3300. 4F10288

References (3)

04031	−0 50000 0 01352	3767	CAL	HOLCNT GET CURRENT H(+I WORD	4F13709
04443	0 50000 0 01352	4037	CLA	HOLCNT	4F13979
04445	0 60100 0 01352	4039	STO	HOLCNT	4F13981

L(112) = 801

Definition
01441 +000000000160 357 L(112) OCT 160 USED BY C0400. 4F10348
Reference
04106 0 50000 0 01441 2027 C0400 CLA L(112) FOR SENSE SWITCH 4F11979

L(ADD) = 858

Definition
414 4F10405

01532 212424000000 415 L(ADD) BCD 1ADD000 SYMBOLIC OPERATION CODE. 4F10406

References (3)

03645	−0 50000 0 01532	5140		CAL	L(ADD)	4F15074
04535	0 00000 0 01532	5582		HTR	L(ADD)	4F15526
	01532	5945	ADD	SYN	L(ADD)	4F15881

L(ALS) = 859

Definition
01533 214362000000 416 L(ALS) BCD 1ALS000 SYMBOLIC OPERATION CODE. 4F10407

References (2)

	04016	0 00000 0 01533	5245		HTR	L(ALS)	4F15179
	04744	0 00000 0 01533	5717		HTR	L(ALS)	4F15661

L(ANA) = 860

Definition
01534 214521000000 417 L(ANA) BCD 1ANA000 SYMBOLIC OPERATION CODE. 4F10408
Reference
04732 0 00000 0 01534 5707 HTR L(ANA) 4F15651

L(ARS) = 861

Definition
01535 215162000000 418 L(ARS) BCD 1ARS000 SYMBOLIC OPERATION CODE. 4F10409

References (2)

	04530	0 00000 0 01535	5577		HTR	L(ARS)	4F15521
		01535	5950	ARS	SYN	L(ARS)	4F15886

L(BSS) = 862

Definition
01536 226262000000 419 L(BSS) BCD 1BSS000 SYMBOLIC OPERATION CODE. 4F10410
Reference
05676 0 00000 0 01536 3164 PZE L(BSS) WORD2--BSS000 4F13112

L(CAL) = 863

Definition
01537 232143000000 420 L(CAL) BCD 1CAL000 4F10411
Reference
01537 5953 CAL SYN L(CAL) 4F15889

L(CHS) = 864

Definition
01540 233062000000 421 L(CHS) BCD 1CHS000 SYMBOLIC OPERATION CODE. 4F10412
Reference
03652 −0 50000 0 01540 5145 CAL L(CHS) 0P1 (S(I)) 35 = 1, SO 4F15079

L(CLA) = 865

Definition
01541 234321000000 422 L(CLA) BCD 1CLA000 SYMBOLIC OPERATION CODE. 4F10413

References (15)

04240	0 00000 0 01541	2153		PZE	L(CLA) WORD2--CLA000 (OP AND DECR)	4F12106
04551	0 00000 0 01541	2399		PZE	L(CLA) WORD2--CLA000	4F12348
03710	−0 50000 0 01541	5175	CP1130	CAL	L(CLA)	4F15109
03761	0 50000 0 01541	5216		CLA	L(CLA)	4F15150
04052	−0 50000 0 01541	5273	CP2150	CAL	L(CLA)	4F15207
04110	−0 50000 0 01541	5303		CAL	L(CLA)	4F15237
04240	0 50000 0 01541	5392	CP3280	CLA	L(CLA)	4F15331
04264	0 50000 0 01541	5412	CP3490	CLA	L(CLA)	4F15351
04331	0 50000 0 01541	5449	CP3870	CLA	L(CLA)	4F15388
04355	0 50000 0 01541	5469	CP4070	CLA	L(CLA)	4F15408
04462	0 50000 0 01541	5538	CP4860	CLA	L(CLA)	4F15462
04713	0 50000 0 01541	5692		CLA	L(CLA)	4F15636
04762	0 50000 0 01541	5731		CLA	L(CLA)	4F15675
05035	0 50000 0 01541	5774		CLA	L(CLA)	4F15718
05061	0 00000 0 01541	5794			L(CLA)	4F15738

L(CLM) = 866

Definition
01542 234344000000 423 L(CLM) BCD 1CLM000 SYMBOLIC OPERATION CODE. 4F10414
Reference
03742 0 00000 0 01542 5201 HTR L(CLM) 4F15135

L(CLS) = 867

Definition
01543 234362000000 424 L(CLS) BCD 1CLS000 SYMBOLIC OPERATION CODE. 4F10415
Reference
03660 −0 50000 0 01543 5151 CP0850 CAL L(CLS) 0P1 (S(I)) 35 = O, SO 4F15085

L(CPY) = 868

Definition
01544 234770000000 425 L(CPY) BCD 1CPY000 4F10416
Reference
01544 5959 CPY SYN L(CPY) 4F15895

L(DCT) = 869

Definition
01545 242363000000 426 L(DCT) BCD 1DCT000 SYMBOLIC OPERATION CODE. 4F10417
Reference
04154 0 50000 0 01545 2077 C0600 CLA L(DCT) STORE (DCT000) 4F12029

L(DED) = 870

Definition
01546 242524000000 427 L(DED) BCD 1DED000 4F10418
Reference
01546 5964 DED SYN L(DED) 4F15900

L(DVP) = 871

Definition
01547 246547000000 428 L(DVP) BCD 1DVP000 SYMBOLIC OPERATION CODE. 4F10419
Reference
03734 0 50000 0 01547 5195 CP1450 CLA L(DVP) 4F15129

L(FAD) = 872

Definition
01550 262124000000 429 L(FAD) BCD 1FAD000 SYMBOLIC OPERATION CODE. 4F10420

References (2)

	03641	−0 50000 0 01550	5136		CAL	L(FAD) OPJ (S(I)) = +	4F15070
	05001	0 00000 0 01550	5746		HTR	L(FAD)	4F15690

L(FDP) = 873

Definition
01551 262447000000 430 L(FDP) BCD 1FDP000 SYMBOLIC OPERATION CODE. 4F10421
Reference
03764 0 50000 0 01551 5219 CP1670 CLA L(FDP) 4F15153

L(FMP) = 874

Definition
01552 264447000000 431 L(FMP) BCD 1FMP000 SYMBOLIC OPERATION CODE. 4F10422
Reference
04022 0 50000 0 01552 5249 CP2000 CLA L(FMP) FLO PT. 4F15183

L(FSB) = 875

Definition
01553 266222000000 432 L(FSB) BCD 1FSB000 SYMBOLIC OPERATION CODE. 4F10423
Reference
03663 −0 50000 0 01553 5154 CP0880 CAL L(FSB) OPJ (S(I)) = - 4F15088

L(HPR) = 876

Definition
01554 304751000000 433 L(HPR) BCD 1HPR000 SYMBOLIC OPERATION CODE. 4F10424

References (2)

	04212	0 00000 0 01554	2125		PZE	L(HPR) WORD2--HPR000 (OP AND DECR)	4F12077
		01554	5992	HPR	SYN	L(HPR)	4F15928

L(LDA) = 877

Definition
01555 432421000000 434 L(LDA) BCD 1LDA000 4F10425
Reference
01555 5993 LDA SYN L(LDA) 4F15929

L(LDQ) = 878

Definition
01556 432450000000 435 L(LDQ) BCD 1LDQ000 SYMBOLIC OPERATION CODE. 4F10426

References (6)

03704	−0 50000 0 01556	5171	CP1070	CAL	L(LDQ) 0P1 (S(I)) 35 = 0	4F15105
04001	0 50000 0 01556	5232		CLA	L(LDQ)	4F15166
04075	−0 50000 0 01556	5292	CP2300	CAL	L(LDQ)	4F15226
04252	0 50000 0 01556	5402	CP3390	CLA	L(LDQ) 1... ARG1 IN ACC	4F15341
04300	0 50000 0 01556	5424	CP3620	CLA	L(LDQ)	4F15363
04420	0 50000 0 01556	5504	CP4440	CLA	L(LDQ) 1... BASE IN ACC.	4F15443

L(LLS) = 879

Definition
01557 434362000000 436 L(LLS) BCD 1LLS000 SYMBOLIC OPERATION CODE. 4F10427

References (2)

	03747	0 00000 0 01557	5206		HTR	L(LLS)	4F15140
	04737	0 00000 0 01557	5712		HTR	L(LLS)	4F15656

L(LRS) = 880

Definition
01560 435162000000 437 L(LRS) BCD 1LRS000 SYMBOLIC OPERATION CODE. 4F10428

References (3)

03725	0 00000 0 01560	5188	HTR	L(LRS)	4F15122
04725	0 00000 0 01560	5702	HTR	L(LRS)	4F15646
04767	0 00000 0 01560	5736	HTR	L(LRS)	4F15680

L(LXD) = 881

Definition
01561 436724000000 438 L(LXD) BCD 1LXD000 SYMBOLIC OPERATION CODE. 4F10429

References (6)

04557	0 00000 0 01561	2405		PZE	L(LXD) WORD2--LXD000	4F12354
04564	0 00000 0 01561	2410		PZE	L(LXD) WORD2--LXD000	4F12359
04654	0 00000 0 01561	2471		PZE	L(LXD) WORD2--LXD000	4F12420
04142	−0 50000 0 01561	5329		CAL	L(LXD)	4F15263
04617	0 00000 0 01561	5632		HTR	L(LXD)	4F15576
	01561	5994	LXD	SYN	L(LXD)	4F15930

L(MPY) = 882

Definition
01562 444770000000 439 L(MPY) BCD 1MPY000 SYMBOLIC OPERATION CODE. 4F10430
Reference
04011 0 50000 0 01562 5240 CLA L(MPY) 4F15174

L(MSE) = 883

Definition
01563 446225000000 440 L(MSE) BCD 1MSE000 SYMBOLIC OPERATION CODE. 4F10431
Reference
04152 0 50000 0 01563 2070 CLA L(MSE) OBTAIN (MSE000) IN ACC. 4F12022

L(ORA) = 884

Definition
01564 465121000000 441 L(ORA) BCD 1ORA000 SYMBOLIC OPERATION CODE. 4F10432
Reference
04774 0 00000 0 01564 5741 HTR L(ORA) 4F15685

L(PSE) = 885

Definition
01565 476225000000 442 L(PSE) BCD 1PSE000 SYMBOLIC OPERATION CODE. 4F10433

References (2)

	04110	0 50000 0 01565	2029		CLA	L(PSE) SET 2H TO PSE.	4F11981
	04262	0 00000 0 01565	2176		PZE	L(PSE) WORD2--PSE000 (OP AND DECREMENT)	4F12130

L(PXD) = 886

Definition
01566 476724000000 443 L(PXD) BCD 1PXD000 SYMBOLIC OPERATION CODE. 4F10434

References (2)

	04522	−0 50000 0 01566	5571	CP5220	CAL	L(PXD)	4F15515
		01566	6006	PXD	SYN	L(PXD)	4F15946

L(QPR) = 887

Definition
01567 504751000000 444 L(QPR) BCD 1QPR000 CONSTANT USED BY C3200. 4F10435
Reference
04576 0 00000 0 01567 2420 PZE L(QPR) WORD2--QPR000 4F12369

L(QXD) = 888

Definition
01570 506724000000 445 L(QXD) BCD 1QXD000 CONSTANT USED BY C3200. 4F10436
Reference
04571 0 00000 0 01570 2415 PZE L(QXD) WORD2--QXD000 4F12364

L(STA) = 889

Definition
01571 626321000000 446 L(STA) BCD 1STA000 SYMBOLIC OPERATION CODE. 4F10437

References (2)

	04540	−0 50000 0 01571	5585		CAL	L(STA)	4F15529
		01571	6011	STA	SYN	L(STA)	4F15951

L(STO) = 890

Definition
01572 626346000000 447 L(STO) BCD 1STO000 SYMBOLIC OPERATION CODE. 4F10438

References (7)

04245	0 00000 0 01572	2158		PZE	L(STO) WORD2--STO000 (OP AND DECR)	4F12111
03773	0 50000 0 01572	5226		CLA	L(STO) PREDECESSOR IN ACC	4F15160
04046	0 00000 0 01572	5269		HTR	L(STO)	4F15203
04116	0 00000 0 01572	5309		HTR	L(STO)	4F15243
04335	0 50000 0 01572	5453		CLA	L(STO)	4F15392
04636	0 50000 0 01572	5647		CLA	L(STO)	4F15591
04670	0 50000 0 01572	5673	ES0730	CLA	L(STO)	4F15617

L(STQ) = 891

Definition
01573 626350000000 448 L(STQ) BCD 1STQ000 SYMBOLIC OPERATION CODE. 4F10439

References (9)

03753	0 50000 0 01573	5210	CP1570	CLA	L(STQ) PREDECESSOR IN MQ	4F15144
04071	0 00000 0 01573	5288		HTR	L(STQ)	4F15222
04304	0 50000 0 01573	5428		CLA	L(STQ)	4F15367
04634	0 50000 0 01573	5645		CLA	L(STQ)	4F15589
04666	0 50000 0 01573	5671	ES0710	CLA	L(STQ) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT	4F15615
04705	0 50000 0 01573	5686		CLA	L(STQ) RESULT ON RIGHT APPEARS IN MQ	4F15630
04754	0 50000 0 01573	5725		CLA	L(STQ) RESULT ON RIGHT APPEARS IN MO	4F15669
05027	0 50000 0 01573	5768		CLA	L(STQ)	4F15712
05054	0 00000 0 01573	5789			L(STQ)	4F15733

L(SUB) = 892

Definition
01574 626422000000 449 L(SUB) BCD 1SUB000 SYMBOLIC OPERATION CODE. 4F10440
Reference
03667 −0 50000 0 01574 5158 CAL L(SUB) 4F15092

L(SXD) = 893

Definition
01575 626724000000 450 L(SXD) BCD 1SXD000 SYMBOLIC OPERATION CODE. 4F10441

References (5)

04642	0 00000 0 01575	2461		PZE	L(SXD) WORD2--SXD000	4F12410
04126	−0 50000 0 01575	5317		CAL	L(SXD)	4F15251
04223	0 50000 0 01575	5379	CP3100	CLA	L(SXD) 1... ARG IN ACC	4F15313
04425	0 50000 0 01575	5509	CP4490	CLA	L(SXD)	4F15448
04553	−0 50000 0 01575	5596		CAL	L(SXD)	4F15540

L(TIX) = 894

Definition
01576 633167000001 451 L(TIX) BCD 1TIX001 4F10442
Reference
01576 6023 TIX SYN L(TIX) 4F15963

L(TOV) = 895

Definition
01577 634665000000 452 L(TOV) BCD 1TOV000 SYMBOLIC OPERATION CODE. 4F10443
Reference
04162 0 50000 0 01577 2089 C0700 CLA L(TOV) PICKUP TOV000 TO SET 2H. 4F12041

L(TQO) = 896

Definition
01600 635046000000 453 L(TQO) BCD 1TQO000 SYMBOLIC OPERATION CODE. 4F10444
Reference
04166 0 50000 0 01600 2099 C0800 CLA L(TQO) PICKUP TQO000 TO SET 2H, 4F12051

L(TRA) = 897

Definition
01601 635121000000 454 L(TRA) BCD 1TRA000 SYMBOLIC OPERATION CODE. 4F10445

References (5)

04000	0 00000 0 01601	1945		PZE	L(TRA) WORD 2--TRA00P (OP AND DECR)	4F11897
04025	0 00000 0 01601	1966		PZE	L(TRA) WORD 2--TRA000(OP AND DECR)	4F11918
04350	0 00000 0 01601	2240		PZE	L(TRA) WORD2--TRA000 (OP+DECR)	4F12197
04603	0 00000 0 01601	2425		PZE	L(TRA) WORD2--TRA000	4F12374
05006	0 50000 0 01601	5751	ES0630	CLA	L(TRA) YES	4F15695

L(TSX) = 898

Definition
01602 636267000000 455 L(TSX) BCD 1TSX000 SYMBOLIC OPERATION CODE. 4F10446

References (5)

04647	0 00000 0 01602	2466	PZE	L(TSX) WORD2--TSX000	4F12415
04135	−0 50000 0 01602	5324	CAL	L(TSX)	4F15258
04232	0 50000 0 01602	5386	CLA	L(TSX)	4F15320
04434	0 50000 0 01602	5516	CLA	L(TSX)	4F15455
04565	−0 50000 0 01602	5606	CAL	L(TSX)	4F15550

L(UFA) = 899

Definition
01603 642621000000 456 L(UFA) BCD 1UFA000 SYMBOLIC OPERATION CODE. 4F10447
Reference
04720 0 00000 0 01603 5697 HTR L(UFA) 4F15641

L13130 = 2234

Definition
04272 0 60200 4 05310 3929 L13130 SLW ALPHA+3,C STO -(N+2) IN ALPHA+A+3 4F13871
Reference
04235 1 00001 2 04272 3900 TXI L13130,B,1 BINARY... -(N+2) TO - (N+1) 4F13842

L22000 = 2244

Definition
04304 −0 75400 2 00000 3939 L22000 PXD ,B 4F13881
Reference
04261 1 77777 2 04304 3920 TXI L22000,B,−1 -N TO -(N+1) 4F13862

L23000 = 2249

Definition
04311 −0 75400 2 00000 3944 L23000 PXD ,B 4F13886
Reference
04255 1 77777 2 04311 3916 TXI L23000,B,−1 -N TO -(N+1) 4F13858

L23090 = 2255

Definition
04317 0 60100 1 05526 3950 L23090 STO LAMBDA+6,A STO -N IN LAMBDA+3(L+2) 4F13892
Reference
04316 1 00001 2 04317 3949 TXI L23090,B,1 -(N+1) TO -N 4F13891

L23130 = 2256

Definition
04320 0 60200 4 05305 3951 L23130 SLW ALPHA,C STO -N IN ALPHA +A 4F13893
Reference
04310 1 00001 2 04320 3943 TXI L23130,B,1 -(N+1) TO -N 4F13885

L32000 = 2295

Definition
04367 −0 75400 2 00000 3990 L32000 PXD ,B 4F13932
Reference
04270 1 77776 2 04367 3927 TXI L32000,B,−2 -N TO -N(+2) 4F13869

L33000 = 2300

Definition
04374 −0 75400 2 00000 3995 L33000 PXD ,B 4F13937
Reference
04264 1 77776 2 04374 3923 TXI L33000,B,−2 -N TO -(N+2) 4F13865

L33090 = 2306

Definition
04402 0 60100 1 05531 4001 L33090 STO LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3) 4F13943
Reference
04401 1 00001 2 04402 4000 TXI L33090,B,1 -(N+2) TO -(N+1) 4F13942

L33130 = 2307

Definition
04403 0 60200 4 05305 4002 L33130 SLW ALPHA,C STO -(N+1) IN ALPHA+A 4F13944
Reference
04373 1 00001 2 04403 3994 TXI L33130,B,1 -(N+2) TO -(N+1) 4F13936

L43130 = 2264

Definition
04330 0 60200 4 05305 3959 L43130 SLW ALPHA,C STO -(N+2) IN ALPHA+A 4F13901
Reference
04234 1 00001 2 04330 3899 TXI L43130,B,1 UNARY... -(N+2) TO -(N+1) 4F13841

LA0000 = 2112

Definition
04100 0 53400 1 01406 3807 LA0000 LXA L(0),A 4F13749

References (16)

04103	0 02000 0 04144	3810	TRA	LA0000+36 NO	4F13752
04106	−3 00000 4 04115	3813	TXL	LA0000+13,C,0 YES. GO SET FS BITS TO 0	4F13755
04107	−0 63400 4 04114	3814	SXD	LA0000+12,C	4F13756
04111	1 77776 1 04114	3816	TXI	LA0000+12,A,−2	4F13758
04112	0 02000 0 04117	3817	TRA	LA0000+15	4F13759
04113	1 77776 1 04114	3818	TXI	LA0000+12,A,−2	4F13760
04114	3 00000 1 04110	3819	TXH	LA0000+8,A,0	4F13761
04116	0 02000 0 04131	3821	TRA	LA0000+25	4F13763
04122	−3 00000 4 04126	3825	TXL	LA0000+22,C,0 NO	4F13767
04145	−3 00000 4 04115	3844	TXL	LA0000+13,C,0 NOT AN FS - GO SET FS BITS TO 0	4F13786
04146	−0 63400 4 04153	3845	SXD	LA0000+43,C FUNCTION STATEMENT	4F13787
04150	1 77777 1 04153	3847	TXI	LA0000+43,A,−1	4F13789
04152	1 77777 1 04153	3849	TXI	LA0000+43,A,−1	4F13791
04153	3 00000 1 04147	3850	TXH	LA0000+39,A,0	4F13792
04154	0 02000 0 04115	3851	TRA	LA0000+13 NOT PRESENT - GO SET FSBITS TO 0	4F13793
04157	0 02000 0 04127	3854	TRA	LA0000+23	4F13796

LA0001 = 2143

Definition
04137 3 77323 2 04141 3838 LA0001 TXH LA0002,B,−301 4F13780
Reference
04135 3 75520 1 04137 3836 TXH LA0001,A,−1200 4F13778

LA0002 = 2145

Definition
04141 −3 00000 4 04160 3840 LA0002 TXL LA0003,C,0 4F13782
Reference
04137 3 77323 2 04141 3838 LA0001 TXH LA0002,B,−301 4F13780

LA0003 = 2160

Definition
04160 0 50000 0 03601 3855 LA0003 CLA MS9002 4F13797

References (3)

04134	−3 00000 1 04160	3835		TXL	LA0003,A,0	4F13777
04141	−3 00000 4 04160	3840	LA0002	TXL	LA0003,C,0	4F13782
04142	3 77565 4 04160	3841		TXH	LA0003,C,−139	4F13783

LA0010 = 2218

Definition
04252 0 16200 0 04262 3913 LA0010 TQP LA0015 GO TO * ROUTINE 4F13855
Reference
04217 0 02000 0 04252 3886 TRA LA0010 , OR ,, SIGN 4F13828

LA0015 = 2226

Definition
04262 −0 76000 0 00142 3921 LA0015 SLT 2 * OR / 4F13863

References (2)

	04216	0 02000 0 04262	3885		TRA	LA0015 / SIGN	4F13827
	04252	0 16200 0 04262	3913	LA0010	TQP	LA0015 GO TO * ROUTINE	4F13855

LA0021 = 2229

Definition
04265 0 50000 0 01331 3924 LA0021 CLA FIRSTC 4F13866
Reference
04263 0 02000 0 04265 3922 TRA LA0021 4F13864

LA0041 = 2203

Definition
04233 −0 76000 0 00141 3898 LA0041 SLT 1 4F13840
Reference
04251 1 00001 2 04233 3912 TXI LA0041,2,1 4F13854

LA0044 = 2206

Definition
04236 0 50000 0 01331 3901 LA0044 CLA FIRSTC 4F13843
Reference
04221 0 02000 0 04236 3888 TRA LA0044 4F13830

LA0050 = 2210

Definition
04242 −0 76000 0 00141 3905 LA0050 SLT 1 4F13847
Reference
04240 0 02000 0 04242 3903 TRA LA0050 4F13845

LA0058 = 2213

Definition
04245 −0 75400 2 00000 3908 LA0058 PXD ,B 4F13850
Reference
04241 1 77775 2 04245 3904 TXI LA0058,B,−3 -N TO -(N+3) 4F13846

LA0072 = 2222

Definition
04256 0 50000 0 01331 3917 LA0072 CLA FIRSTC 4F13859
Reference
04254 0 02000 0 04256 3915 TRA LA0072 4F13857

LA1000 = 2238

Definition
04276 0 50200 0 05277 3933 LA1000 CLS CBAR 4F13875
Reference
04244 1 77777 2 04276 3907 TXI LA1000,B,−1 BINARY... -N TO -(N+1) 4F13849

LA1040 = 2242

Definition
04302 −0 63400 4 05300 3937 LA1040 SXD ABAR,C 4F13879
Reference
04301 1 77775 4 04302 3936 TXI LA1040,C,−3 -A TO - (A+3) 4F13878

LA2000 = 2260

Definition
04324 0 50200 4 05304 3955 LA2000 CLS ALPHA−1,C 4F13897
Reference
04260 −0 10000 0 04324 3919 TNZ LA2000 4F13861

LA3000 = 2311

Definition
04407 0 50200 4 05303 4006 LA3000 CLS ALPHA−2,C 4F13948

References (2)

	04267	1 77777 2 04407	3926		TXI	LA3000,B,−1	4F13868
	04271	1 77777 2 04407	3928		TXI	LA3000,B,−1	4F13870

LA4000 = 2268

Definition
04334 0 50200 4 05302 3963 LA4000 CLS ALPHA−3,C 4F13905
Reference
04243 1 77777 2 04334 3906 TXI LA4000,B,−1 UNARY... -NTO -(N+1) 4F13848

LA4010 = 2269

Definition
04335 0 60100 1 05520 3964 LA4010 STO LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L 4F13906
Reference
04303 0 02000 0 04335 3938 TRA LA4010 4F13880

LA4150 = 2282

Definition
04352 −0 50000 0 01524 3977 LA4150 CAL ADSTAR 4F13919
Reference
04351 1 77777 2 04352 3976 TXI LA4150,B,−1 -(N+1) TO -(N+2) 4F13918

LA4170 = 2284

Definition
04354 −0 75400 2 00000 3979 LA4170 PXD ,B 4F13921
Reference
04416 1 00003 1 04354 4013 TXI LA4170,A,3 4F13955

LA4180 = 2285

Definition
04355 0 77100 0 00022 3980 LA4180 ARS 18 ' 4F13922
Reference
04327 1 00006 1 04355 3958 TXI LA4180,A,6 4F13900

LA4320 = 2294

Definition
04366 1 77767 1 00000 3989 LA4320 TXI **,A,−9 4F13931

References (2)

	04161	0 62100 0 04366	3856		STA	LA4320	4F13798
	04200	0 62100 0 04366	3871	LA002	STA	LA4320	4F13813

LAMBDA = 2896

Definition
05520 4256 LAMBDA BSS 1200 4F14197

References (62)

03623	0 60100 1 05520	3631		STO	LAMBDA,1	4F13574
03625	0 60200 1 05521	3633		SLW	LAMBDA+1,1	4F13576
03630	0 60100 1 05522	3636		STO	LAMBDA+2,1	4F13579
04164	−0 60000 1 05533	3859		STQ	LAMBDA+11,A	4F13601
04165	−0 60000 1 05530	3860		STQ	LAMBDA+8,A	4F13802
04166	−0 60000 1 05525	3861		STQ	LAMBDA+5,A	4F13803
04202	0 60100 1 05531	3873		STO	LAMBDA+9,A	4F13815
04203	0 60100 1 05526	3874		STO	LAMBDA+6,A	4F13816
04204	0 60100 1 05523	3875		STO	LAMBDA+3,A	4F13817
04206	0 60200 1 05535	3877		SLW	LAMBDA+13,A	4F13819
04207	0 60200 1 05532	3878		SLW	LAMBDA+10,A	4F13820
04210	0 60200 1 05527	3879		SLW	LAMBDA+7,A	4F13821
04213	−0 60000 1 05521	3882		STQ	LAMBDA+1,A	4F13824
04225	0 60100 1 05536	3892		STO	LAMBDA+14,A STO (N+3) IN LAMBDA+3 (L+4)+2	4F13834
04232	0 60100 1 05534	3897		STO	LAMBDA+12,A STO -(N+2) IN LAMBDA+3 (L+4)	4F13839
04247	0 60100 1 05533	3910		STO	LAMBDA+11,A STO S(N+3) IN LAMBDA +3(L+3)+2	4F13852
04274	0 60100 1 05531	3931		STO	LAMBDA+9,A STO -0 IN LAMBDA +3(L+3)	4F13873
04306	0 60100 1 05525	3941		STO	LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2	4F13883
04313	0 60100 1 05530	3946		STO	LAMBDA+8,A STO S(N+1) IN LAMBDA+3(L+2)+2	4F13888
04317	0 60100 1 05526	3950	L23090	STO	LAMBDA+6,A STO -N IN LAMBDA+3(L+2)	4F13892
04322	0 60100 1 05523	3953		STO	LAMBDA+3,A STO -0 IN LAMBDA+3(L+11	4F13895
04325	0 60100 1 05520	3956		STO	LAMBDA,A STO C(ALPHA+A-1) IN LAMBDA+3L	4F13898
04332	0 60100 1 05531	3961		STO	LAMBDA+9,A STO -0 IN LAMBDA+3(L+3)	4F13903
04335	0 60100 1 05520	3964	LA4010	STO	LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L	4F13906
04341	0 60200 1 05522	3968		SLW	LAMBDA+2,A STO S(N) IN LAMBDA+3L+2	4F13910
04342	0 60100 1 05523	3969		STO	LAMBDA+3,A STO -N IN LAMBOA+3(L+1)	4F13911
04345	0 60100 1 05525	3972		STO	LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2	4F13914
04350	0 60100 1 05526	3975		STO	LAMBDA+6,A STO -(N+1) IN LAMBDA+3(L+2)	4F13917
04353	0 60200 1 05524	3978		SLW	LAMBDA+4,A STO * IN LAMBDA+3(L+1)+1	4F13920
04356	0 60100 1 05530	3981		STO	LAMBDA+8,A STOS(N+2) IN LAMBDA+3(L+2)+2	4F13923
04357	−0 60200 1 05531	3982		ORS	LAMBDA+9,A STO -(N+2) IN LAMBDA+3(L+3)	4F13924
04361	0 60200 1 05527	3984		SLW	LAMBDA+7,A STO SPOP IN LAMBDA+3(L+2)+1	4F13926
04365	0 60200 1 05532	3988		SLW	LAMBDA+10,A STO SPOP IN LAMBDA+3(L+3)+1	4F13930
04371	0 60100 1 05530	3992		STO	LAMBDA+8,A STO 5(N+2) IN LAMBDA+3(L+2)+2	4F13934
04376	0 60100 1 05533	3997		STO	LAMBDA+11,A STO S(N+2) IN LAMBDA+3(L+3)+2	4F13939
04402	0 60100 1 05531	4001	L33090	STO	LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3)	4F13943
04405	0 60100 1 05526	4004		STO	LAMBDA+6,A	4F13946
04410	0 60100 1 05520	4007		STO	LAMBDA,A STO C(ALPHA+A-2) IN LAMBDA+3L	4F13949
04414	0 60200 1 05522	4011		SLW	LAMBDA+2,A STO S(N) IN LAMBDA+3L+2	4F13953
04415	0 60100 1 05523	4012		STO	LAMBDA+3,A STO -N IN LAMBDA+3(L+1)	4F13954
03455	0 50000 1 05520	4282	R01000	CLA	LAMBDA,A ADD INTO GAMMA COUNTERS	4F14220
03466	0 50000 1 05515	4291		CLA	LAMBDA−3,A	4F14229
03474	0 56000 1 05516	4297	R02600	LDQ	LAMBDA−2,A SINGLE ELEMENT	4F14235
03502	0 32000 1 05515	4303		ANS	LAMBDA−3,A EXTRACT TAGS AND STORE BACK	4F14241
03503	0 50000 1 05512	4304		CLA	LAMBDA−6,A	4F14242
03504	−0 50100 1 05515	4305		ORA	LAMBDA−3,A	4F14243
03505	0 60200 1 05512	4306		SLW	LAMBDA−6,A	4F14244
03506	−0 50000 1 05516	4307		CAL	LAMBDA−2,A EXTRACT FS BITS AND STORE BACK	4F14245
03510	−0 60200 1 05513	4309		ORS	LAMBDA−5,A	4F14247
03511	−0 50000 1 05517	4310		CAL	LAMBDA−1,A STORE BACK SYMBOL	4F14248
03512	0 60200 1 05514	4311		SLW	LAMBDA−4,A	4F14249
03514	0 60000 1 05515	4313		STZ	LAMBDA−3,A CLEAR TAG WORD	4F14251
03530	−0 50000 1 05520	4325	R05300	CAL	LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE	4F14263
03532	0 60200 4 05520	4327		SLW	LAMBDA,C	4F14265
03533	0 50000 1 05521	4328		CLA	LAMBDA+1,A	4F14266
03534	0 60100 4 05521	4329		STO	LAMBDA+1,C	4F14267
03535	0 50000 1 05522	4330		CLA	LAMBDA+2,A	4F14268
03536	0 60100 4 05522	4331		STO	LAMBDA+2,C	4F14269
03545	0 50000 1 05520	4338	R06400	CLA	LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE	4F14276
03551	0 50000 1 05520	4342		CLA	LAMBDA,A	4F14260
03553	0 50000 1 05521	4344		CLA	LAMBDA+1,A	4F14282
03555	0 50000 1 05522	4346		CLA	LAMBDA+2,A	4F14284

LENGTH = 751

Definition
01357 0 00000 0 00000 300 LENGTH PZE **,,** 4F10291

References (4)

03577	−0 63400 4 01357	4364	SXD	LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT	4F14302
03614	0 40200 0 01357	4377	SUB	LENGTH	4F14315
03655	−0 53400 4 01357	4410	LXD	LENGTH,C	4F14348
03671	−0 53400 4 01357	4422	LXD	LENGTH,C	4F14360

LK0000 = 2323

Definition
04423 −0 53400 1 04136 4768 LK0000 LXD AS3600,A -3Q TO XA 4F14706

References (4)

04170	−3 00000 1 04423	4613	PL0000	TXL	LK0000,A,0 GO TO LINKAGE	4F14551
04510	−3 00000 2 04423	4821	LK0650	TXL	LK0000,B,0 NOT FOUND AT ALL	4F14759
04576	−3 00000 2 04423	4875	LK1280	TXL	LK0000,B,0 NOT FOUND AT ALL	4F14813
04621	0 02000 0 04423	4894		TRA	LK0000	4F14832

LK0030 = 2324

Definition
04424 −0 50000 1 06645 4769 LK0030 CAL SCRIPL−3,A 4F14707

References (13)

04455	0 02000 0 04424	4794		TRA	LK0030 S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0	4F14732
04464	−0 10000 0 04424	4801		TNZ	LK0030 SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0	4F14739
04471	0 02000 0 04424	4806		TRA	LK0030 OP1 (S(I-1)) = 0, CLOSED ** SUBROUTINES	4F14744
04473	−0 10000 0 04424	4808		TNZ	LK0030 SET OPKS(I))29=OPKS(I-1))35=0	4F14746
04503	−0 10000 0 04424	4816		TNZ	LK0030 NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =0	4F14754
04547	3 00006 2 04424	4852		TXH	LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0	4F14790
04551	−0 10000 0 04424	4854		TNZ	LK0030 N0... SET 0P1 (S(I))29 = OP2 (S(I-1))35 =0	4F14792
04557	0 02000 0 04424	4860		TRA	LK0030 FN-NAME	4F14798
04560	−3 00006 2 04424	4861	LK1100	TXL	LK0030,B,6 CLOSED UNIV. SBRTN	4F14799
04562	−0 10000 0 04424	4863		TNZ	LK0030 S(I) NOT = SYM3 (S (I-1))	4F14801
04610	−0 10000 0 04424	4885		TNZ	LK0030 NO	4F14823
04626	3 00006 2 04424	4899		TXH	LK0030,B,6 OPEN MULTIV.	4F14837
04632	0 02000 0 04424	4903		TRA	LK0030 FN-NAME	4F14841

LK0110 = 2330

Definition
04432 1 00000 1 04433 4775 LK0110 TXI LK0120,A,0 MOVE XA TO BEGINNING OF S(I) 4F14713
Reference
04431 0 62200 0 04432 4774 STD LK0110 4F14712

LK0120 = 2331

Definition
04433 −0 53400 4 04434 4776 LK0120 LXD LK0130,C 4F14714
Reference
04432 1 00000 1 04433 4775 LK0110 TXI LK0120,A,0 MOVE XA TO BEGINNING OF S(I) 4F14713

LK0130 = 2332

Definition
04434 1 00000 5 04435 4777 LK0130 TXI LK0140,5,0 XA TO XA,XC 4F14715
Reference
04433 −0 53400 4 04434 4776 LK0120 LXD LK0130,C 4F14714

LK0140 = 2333

Definition
04435 −0 63400 1 04136 4778 LK0140 SXD AS3600,A 4F14716
Reference
04434 1 00000 5 04435 4777 LK0130 TXI LK0140,5,0 XA TO XA,XC 4F14715

LK0180 = 2337

Definition
04441 1 00000 4 04442 4782 LK0180 TXI LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1) 4F14720
Reference
04440 −0 63400 2 04441 4781 SXD LK0180,B 4F14719

LK0190 = 2338

Definition
04442 0 16200 0 04566 4783 LK0190 TQP LK1200 S(I) TYPE AC 4F14721
Reference
04441 1 00000 4 04442 4782 LK0180 TXI LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1) 4F14720

LK0320 = 2350

Definition
04456 0 16200 0 04477 4795 LK0320 TQP LK0570 4F14733
Reference
04453 0 02000 0 04456 4792 TRA LK0320 4F14730

LK0430 = 2358

Definition
04466 −0 60200 4 06651 4803 LK0430 ORS SCRIPL+1,C 4F14741
Reference
04542 0 02000 0 04466 4847 TRA LK0430 4F14785

LK0440 = 2359

Definition
04467 −0 50000 0 01436 4804 LK0440 CAL BIT29 4F14742

References (3)

04476	0 02000 0 04467	4811	TRA	LK0440	4F14749
04554	0 02000 0 04467	4857	TRA	LK0440	4F14795
04565	0 02000 0 04467	4866	TRA	LK0440	4F14804

LK0480 = 2362

Definition
04472 0 40200 4 06655 4807 LK0480 SUB SCRIPL+5,C 4F14745

References (3)

04462	0 16200 0 04472	4799		TQP	LK0480 OP1 (S(I-1)) 33 = 0	4F14737
04627	0 02000 0 04472	4900	LK1520	TRA	LK0480	4F14838
04631	0 16200 0 04472	4902		TQP	LK0480	4F14840

LK0570 = 2367

Definition
04477 −0 75400 0 00000 4812 LK0570 PXD 0,0 S(I) TYPE MO, OP1 (S(I-1)) = * 4F14750
Reference
04456 0 16200 0 04477 4795 LK0320 TQP LK0570 4F14733

LK0630 = 2374

Definition
04506 −0 50000 1 06650 4819 LK0630 CAL SCRIPL,A 4F14757
Reference
04616 0 10000 0 04506 4891 TZE LK0630 YES 4F14829

LK0650 = 2376

Definition
04510 −3 00000 2 04423 4821 LK0650 TXL LK0000,B,0 NOT FOUND AT ALL 4F14759
Reference
04515 1 77775 2 04510 4826 LK0700 TXI LK0650,B,−3 4F14764

LK0700 = 2381

Definition
04515 1 77775 2 04510 4826 LK0700 TXI LK0650,B,−3 4F14764

References (3)

04512	1 00003 1 04515	4823	TXI	LK0700,A,3	4F14761
04514	1 00003 1 04515	4825	TXI	LK0700,A,3 NOT FOUND - CONTINUE SEARCH	4F14763
04521	1 00003 1 04515	4830	TXI	LK0700,A,3 NO... CONTINUE SEARCH	4F14768

LK0710 = 2382

Definition
04516 0 56000 1 06646 4827 LK0710 LDQ SCRIPL−2,A S(I) IS SYMJ (S(I-1)) 4F14765
Reference
04513 0 02000 0 04516 4824 TRA LK0710 4F14762

LK0750 = 2386

Definition
04522 0 50000 4 06650 4831 LK0750 CLA SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJ(S(I-1)) 4F14769

References (2)

	04520	0 16200 0 04522	4829		TQP	LK0750	4F14767
	04601	0 02000 0 04522	4878		TRA	LK0750 S(I) = SOME SYMJ (S(I-1))... GO PERMUTE	4F14816

LK0900 = 2401

Definition
04541 −0 50000 0 01407 4846 LK0900 CAL L(1) AND 4F14784
Reference
04611 0 02000 0 04541 4886 TRA LK0900 YES 4F14824

LK0950 = 2403

Definition
04543 −0 77300 0 00033 4848 LK0950 RQL 27 S(I) TYPE MQ, OP1 (S(I-1)) = SPOP 4F14786
Reference
04454 0 02000 0 04543 4793 TRA LK0950 4F14731

LK1050 = 2413

Definition
04555 −0 77300 0 00017 4858 LK1050 RQL 15 4F14796
Reference
04546 0 16200 0 04555 4851 TQP LK1050 OP1 (S(I-1)) 33 = 0 (CLOSED 5UBROUTINE) 4F14789

LK1100 = 2416

Definition
04560 −3 00006 2 04424 4861 LK1100 TXL LK0030,B,6 CLOSED UNIV. SBRTN 4F14799
Reference
04556 0 16200 0 04560 4859 TQP LK1100 TEST OP1(S(I-1))12 4F14797

LK1200 = 2422

Definition
04566 −0 75400 0 00000 4867 LK1200 PXD 0,0 S(I) TYPE AC 4F14805

References (2)

	04442	0 16200 0 04566	4783	LK0190	TQP	LK1200 S(I) TYPE AC	4F14721
	04444	0 16200 0 04566	4785		TQP	LK1200 S(I) TYPE AC	4F14723

LK1280 = 2430

Definition
04576 −3 00000 2 04423 4875 LK1280 TXL LK0000,B,0 NOT FOUND AT ALL 4F14813
Reference
04603 1 77775 2 04576 4880 LK1330 TXI LK1280,B,−3 4F14818

LK1330 = 2435

Definition
04603 1 77775 2 04576 4880 LK1330 TXI LK1280,B,−3 4F14818

References (2)

	04600	1 00003 1 04603	4877		TXI	LK1330,A,3	4F14815
	04602	1 00003 1 04603	4879		TXI	LK1330,A,3 NOT FOUND... CONTINUE SEARCH	4F14817

LK1340 = 2436

Definition
04604 0 16200 0 04612 4881 LK1340 TQP LK1410 4F14819
Reference
04572 0 02000 0 04604 4871 TRA LK1340 4F14809

LK1410 = 2442

Definition
04612 −0 75400 0 00000 4887 LK1410 PXD 0,0 S(I) TYPE AC OP1 (S(I-1)) = * 4F14825
Reference
04604 0 16200 0 04612 4881 LK1340 TQP LK1410 4F14819

LK1470 = 2450

Definition
04622 −0 77300 0 00033 4895 LK1470 RQL 27 S(I) TYPE AC OP1 (S(I-1)) = SPOP 4F14833
Reference
04573 0 02000 0 04622 4872 TRA LK1470 4F14810

LK1520 = 2455

Definition
04627 0 02000 0 04472 4900 LK1520 TRA LK0480 4F14838

LK1530 = 2456

Definition
04630 −0 77300 0 00017 4901 LK1530 RQL 15 4F14839
Reference
04625 0 16200 0 04630 4898 TQP LK1530 4F14836

LK1610 = 2459

Definition
04633 −0 53400 2 05044 4904 LK1610 LXD BETA,B IS S(0) A SINGLE ELEMENT 4F14842
Reference
04426 −3 00000 0 04633 4771 TXL LK1610,8,0 EXIT UPON ENCOUNTERING S(0) 4F14709

LK1780 = 2477

Definition
04655 0 16200 0 04662 4922 LK1780 TQP LKK000 S(0) TYPE AC 4F14860
Reference
04636 3 00003 2 04655 4907 TXH LK1780,B,3 NO 4F14645

LK1820 = 2481

Definition
04661 −0 60200 0 06651 4926 LK1820 ORS SCRIPL+1 4F14864
Reference
04654 0 02000 0 04661 4921 TRA LK1820 4F14859

LKK000 = 2482

Definition
04662 −0 53400 5 01117 4927 LKK000 LXD 3QBAR,5 -3Q TO XA,XC 4F14865

References (5)

04641	0 10000 0 04662	4910		TZE	LKK000 OP (S(0)) = -	4F14648
04644	−0 10000 0 04662	4913		TNZ	LKK000 NO	4F14851
04647	0 10000 0 04662	4916		TZE	LKK000 OP1 (S(1)) 31 = 0	4F14854
04655	0 16200 0 04662	4922	LK1780	TQP	LKK000 S(0) TYPE AC	4F14860
04657	0 16200 0 04662	4924		TQP	LKK000 S(0) TYPE AC	4F14862

LKK050 = 2487

Definition
04667 1 00000 4 04670 4932 LKK050 TXI LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT 4F14870
Reference
04666 0 62200 0 04667 4931 STD LKK050 4F14869

LKK060 = 2488

Definition
04670 −0 75400 0 00000 4933 LKK060 PXD 0,0 4F14871
Reference
04667 1 00000 4 04670 4932 LKK050 TXI LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT 4F14870

LKK130 = 2495

Definition
04677 0 56000 4 06654 4940 LKK130 LDQ SCRIPL+4,C OP1 OF LAST SEGMENT IS * 4F14878
Reference
04675 0 16200 0 04677 4938 TQP LKK130 4F14876

MC0000 = 1824

Definition
03440 −0 53400 1 01117 5006 MC0000 LXD 3QBAR,A MODE CHECKING ROUTINE 4F14940

MC0030 = 1827

Definition
03443 −0 63400 1 03461 5009 MC0030 SXD XASAVE,A 4F14943
Reference
03512 3 00000 1 03443 5048 MC0420 TXH MC0030,A,0 4F14982

MC0050 = 1829

Definition
03445 0 73400 2 00000 5011 MC0050 PAX ,2 S(1) TO XB 4F14945

MC0070 = 1831

Definition
03447 0 73400 2 00454 5013 MC0070 PAX TAU2,B 4F14947

MC0180 = 1842

Definition
03462 −0 76300 0 00032 5024 MC0180 LGL 26 OP1 (S(I)) = +, - OR * 4F14958
Reference
03460 0 16200 0 03462 5022 TQP MC0180 4F14956

MC0210 = 1845

Definition
03465 −0 75400 0 00000 5027 MC0210 PXD 0,0 4F14961

References (2)

	03463	0 16200 0 03465	5025		TQP	MC0210 FIX PT	4F14959
	03507	1 77775 1 03465	5045		TXI	MC0210,A,−3 CONTINUE SCANNING S(I). J TO J+1	4F14979

MC0310 = 1855

Definition
03477 −0 76000 0 00141 5037 MC0310 SLT 1 SYMJ (S(I)) IS A FIX PT VARIABLE 4F14971

References (2)

	03535	0 02000 0 03477	5067		TRA	MC0310 S(K) IS FIX PT	4F15001
	04445	0 16200 0 03501	5525		TQP	MC0310+2 ERROR FIX PT BASE, FLOAT EXP.	4F15464

MC0340 = 1858

Definition
03502 −0 76000 0 00141 5040 MC0340 SLT 1 SYMJ(S(I)) IS A FLO PT VARIABLE 4F14974

References (3)

03475	1 00000 0 03502	5035	XBSAVE	TXI	MC0340,0,0 FLO PT	4F14969
03476	0 02000 0 03502	5036		TRA	MC0340 FLO PT	4F14970
03536	0 02000 0 03502	5068		TRA	MC0340 S(K) IS FLO PT	4F15002

MC0380 = 1862

Definition
03506 −3 00000 2 03510 5044 MC0380 TXL MC0400,B,0 FINISHED WITH S(I) 4F14978

References (2)

	03500	1 00003 2 03506	5038		TXI	MC0380,B,3 OK	4F14972
	03505	1 00003 2 03506	5043		TXI	MC0380,B,3	4F14977

MC0400 = 1864

Definition
03510 −0 53400 1 03461 5046 MC0400 LXD XASAVE,A GO TO S(I+1) 4F14980
Reference
03506 −3 00000 2 03510 5044 MC0380 TXL MC0400,B,0 FINISHED WITH S(I) 4F14978

MC0410 = 1865

Definition
03511 1 00000 1 03512 5047 MC0410 TXI MC0420,A,0 4F14981

References (3)

03450	−0 63400 2 03511	5014		SXD	MC0410,B	4F14948
03452	3 77772 2 03511	5016		TXH	MC0410,B,−6 SINGLE ELEMENT - GO ONTO S(I+1)	4F14950
03461	1 00000 0 03511	5023	XASAVE	TXI	MC0410,0,0	4F14957

MC0420 = 1866

Definition
03512 3 00000 1 03443 5048 MC0420 TXH MC0030,A,0 4F14982

References (2)

	03441	−0 63400 1 03512	5007		SXD	MC0420,A	4F14941
	03511	1 00000 1 03512	5047	MC0410	TXI	MC0420,A,0	4F14981

MC0440 = 1868

Definition
03514 −0 63400 2 03475 5050 MC0440 SXD XBSAVE,B SYMJ (S(ITT = SAME S(K) 4F14984
Reference
03471 0 16200 0 03514 5031 TQP MC0440 4F14965

MC0460 = 1870

Definition
03516 1 00000 4 03517 5052 MC0460 TXI MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1) 4F14986
Reference
03451 −0 63400 2 03516 5015 SXD MC0460,B 4F14949

MC0470 = 1871

Definition
03517 −0 50000 4 06650 5053 MC0470 CAL SCRIPL,C 4F14987

References (2)

	03516	1 00000 4 03517	5052	MC0460	TXI	MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1)	4F14986
	03530	1 00000 4 03517	5062	MC0560	TXI	MC0470,C,0	4F14996

MC0520 = 1876

Definition
03524 0 73400 2 01226 5058 MC0520 PAX SIGMA1,B S(K) TO XB 4F14992
Reference
03522 0 02000 0 03524 5056 TRA MC0520 4F14990

MC0540 = 1878

Definition
03526 0 73400 2 00000 5060 MC0540 PAX TAU1,B 4F14994

MC0560 = 1880

Definition
03530 1 00000 4 03517 5062 MC0560 TXI MC0470,C,0 4F14996
Reference
03527 −0 63400 2 03530 5061 SXD MC0560,B 4F14995

MC0570 = 1881

Definition
03531 −0 53400 2 03475 5063 MC0570 LXD XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K 4F14997
Reference
03523 0 02000 0 03531 5057 TRA MC0570 4F14991

MEMORG = 1824

Definition
03440 6000 MEMORG SYN 1824 MEMORY ORIGIN FOR ALL STATES. 4F15936
Reference
02430 0 10000 0 03440 908 MTR3 TZE MEMORG * THEN ENTER CURRENT STATE. 4F10898

MINUS0 = 848

Definition
01520 −0 00000 0 00000 404 MINUS0 MZE 0 4F10395
Reference
05574 −0 50000 0 01520 3072 CAL MINUS0 OTHERWISE, SET THE SIGN 4F13022

MS1018 = 2157

Definition
04155 −0 75400 1 00000 3852 MS1018 PXD 0,A PRESENT - STORE TYPE IN FSBITS 4F13794
Reference
04151 0 02000 0 04155 3848 TRA MS1018 4F13790

MS1033 = 2195

Definition
04223 −0 75400 2 00000 3890 MS1033 PXD ,B 4F13832
Reference
04222 1 77775 2 04223 3889 TXI MS1033,B,−3 -N TO -(N+3) 4F13831

MS4007 = 1856

Definition
D 03500 3 00000 0 04417 3548 MS4007 TXH CM4100,0 4F13491
Reference
04173 0 50000 0 03500 3866 CLA MS4007 4F13808

MS9002 = 1921

Definition
D 03601 3 00000 0 04427 3613 MS9002 TXH CM4200,0 4F13556
Reference
04160 0 50000 0 03601 3855 LA0003 CLA MS9002 4F13797

MS9500 = 2459

Definition
04633 0 60100 0 01347 4169 MS9500 STO G STORE IN G, AND 4F14111

References (3)

	04606	0 10000 0 04633	4148	TZE	MS9500 FLO PT CONSTANT RETURN.	4F14090
	04620	−3 00000 1 04633	4158	TXL	MS9500,1,0 IF ZERO, TAKE FLO PT RETURN.	4F14100
D	04646	1 00000 0 04633	4180	TXI	MS9500,0 RETURN TO ARITHMETIC ROUTINE,	4F14122

MS9506 = 2393

Definition
04531 0 76700 0 00022 4103 MS9506 ALS 18 STORE IN THE 4F14045

MSERR= = 1977

Definition
03671 0 07400 4 03400 3669 MSERR= TSX DIAG,4 = 4F13612

References (2)

	03754	−0 10000 0 03671	3722		TNZ	MSERR= NO, ERROR.	4F13665
U	03767	00000 0 03671	3733	MS310	***	MSERR=,0 TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN.	4F13676

MTR000 = 1282

Definition
02402 6002 MTR000 SYN STATEA 4F15938

References (4)

05065	0 10000 0 02402	5798	TZE	MTR000	4F15742
05070	0 10000 0 02402	5801	TZE	MTR000	4F15745
05077	0 02000 0 02402	5808	TRA	MTR000	4F15752
05103	0 02000 0 02402	5812	TRA	MTR000	4F15756

MTR300 = 1304

Definition
02430 6003 MTR300 SYN MTR3 4F15942

MTRCSL = 1287

Definition
02407 1 00000 0 02411 890 MTRCSL TXI MTR1,0,** GO GET PARAMETERS. 4F10880

References (2)

	02412	0 62200 0 02407	894		STD	MTRCSL CURRENT STATE, AND SAVE.	4F10884
	02420	−0 53400 2 02407	900		LXD	MTRCSL,2 LENGTH OF CURRENT STATE TO XR2.	4F10890

MTRERR = 1306

Definition
02432 1 75346 4 03400 910 MTRERR TXI DIAG,4,−MTRERR * GO TO DIAGNOSTIC AFTER 5 FAILURES. 4F10900
Reference
02432 1 75346 4 03400 910 MTRERR TXI DIAG,4,−MTRERR * GO TO DIAGNOSTIC AFTER 5 FAILURES. 4F10900

NGTBIT = 828

Definition
01474 +000200000000 384 NGTBIT OCT 000200000000 4F10375
Reference
04512 −0 50100 0 01474 5563 ORA NGTBIT SET OPJ(S(I))10=I FROM NGTBIT 4F15507

NONEXC = 170

Definition
00252 95 NONEXC BSS 10 NON-EXECUTED STATEMENTS. 4F10087
Reference
00374 0 00012 0 00252 166 PZE NONEXC,,10 14) 0,,B. 4F10158

OPNWRD = 754

Definition
01362 303 OPNWRD BSS 1 ERASEABLE USED BY STATE D. 4F10294
Reference
05101 0 50000 0 01362 5810 CLA OPNWRD 4F15754

OPWORD = 3193

Definition
06171 5925 OPWORD BSS 1 4F15861

References (3)

04675	0 60100 0 06171	5678	STO	OPWORD	4F15622
05115	0 60100 0 06171	5824	STO	OPWORD	4F15768
05142	0 56000 0 06171	5845	LDQ	OPWORD NON-SUBSCRIPTED EXTERNAL VARIABLE	4F15789

ORGCOM = 24

Definition

	21				4F10013
	22			PART 1 / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=	4F10014
	23			EIFNO AND SENSE SWITCH SIMULATORS.	4F10015
	24			TAPE TABLE BUFFERS.	4F10016
	25			TAPE TABLE PARAMETERS - INTET.	4F10017
	26			DRUM TABLE PARAMETERS.	4F10018
	27			FORSUB COUNT AND BUFFER.	4F10019
	28			CIB BUFFER AND PARAMETERS.	4F10020
	29			REMAINING WORKING STORAGE.	4F10021
	30			PART 2 / CONSTANTS USED BY SECTION ONE.	4F10022
	31			PART 3 / SUBROUTINES USED BY SECTION ONE=	4F10023
	32			NAME FUNCTION	4F10024
	33			C0150,2 SCAN, AND CONVERT NUMERICS.	4F10025
	34			C0160,2 SCAN CHARACTERS.	4F10026
	35			C0180,2 CONVERT NUMERICS.	4F10027
	36			C0190X,4 INITIALIZE C0190 TO 1ST WORD OF F.	4F10028
	37			C0390,4 INSERT CHARACTER.	4F10029
	38			C0190,4 OBTAIN NEXT NON-BLANK CHAR IN AC.	4F10030
	39			CIT00,4 COMPILED INSTRUCTION TABLE ENTRIES.	4F10031
	40			DIM.SR,4 DIMENSION TABLE SEARCH.	4F10032
	41			DRTABS(,4) DRUM TABLE ENTRIES.	4F10033
	42			GETIFN,4 GET INTERNAL FORMULA NUMBER.	4F10034
	43			JIF(GIF),4 JUMPS (GETS) IFN IN SL AND TL.	4F10035
	44			MTR000 MONITOR STATES FROM DRUM.	4F10036
	45			RA000,4 COMPUTER RELATIVE ADDRESS.	4F10037
	46			RDRX,4 READ DRUM INTO BUFR.	4F10038
	47			SR6DC1,1 CONVERT 6 BCD DIGITS TO 1 BINARY.	4F10039
	48			SS000,4 SCAN AND PROCESS SUBSCRIPTS.	4F10040
	49			SUBX00,4 ADD BLANKS TO SUBROUTINE NAMES.	4F10041
	50			TESTFX,1 TEST FOR FIXED OR FLOATING POINT.	4F10042
	51			TEST..,4 TEST CHARACTER IN AC.	4F10043
	52			TET00,1 TAPE TABLE ENTRIES.	4F10044
	53				4F10045
	54			DIAG DIAGNOSTIC CALLERS.	4F10046
	55				4F10047
	56			THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=	4F10048
	57				4F10049
	58			** IN THE ADDRES, TAG, OR DECREMENT OF AN INSTRUCTION	4F10050
	59			INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.	4F10051
	60			* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF	4F10052
	61			THIS LOGICAL BLOCK OR SUBROUTINE.	4F10053
	62			C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.	4F10054
	63			P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).	4F10055
	64				4F10056
	65			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10057
	66				4F10058
	67			COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=	4F10059
00030	68	ORGCOM	ORG	24	4F10060

Reference
00000 0 00004 0 00030 19 PZE ORGCOM,,1TOCS 4F100122

ORGDM1 = 299

Definition
00453 −3 00000 0 00310 238 ORGDM1 TXL DIM1,,0 *** FDA,,K*L 4F10230
Reference
01773 0 50000 0 00453 637 CLA ORGDM1 AND PICK UP 1ST ADDRESS OF DIM1 TO 4F10627

ORGDM2 = 304

Definition
00460 −3 00000 0 00764 244 ORGDM2 TXL DIM2,,0 *** FDA,,K*L 4F10236
Reference
01777 0 50000 0 00460 642 CLA ORGDM2 AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632

ORGDM3 = 309

Definition
00465 −3 00000 0 01440 250 ORGDM3 TXL DIM3,,0 *** FDA,,K*L 4F10242
Reference
02007 0 50000 0 00465 651 CLA ORGDM3 AND PICK UP 1ST ADDRESS OF DIM3 TO 4F10641

OUTPUT = 3076

Definition
3261 OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD. 4F13209

06004 0 50000 0 01413 3262 OUTPUT CLA L(5) PICKUP 5 TO 4F13210

References (6)

	04755	0 07400 2 06004	2563		TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12512
	04764	0 07400 2 06004	2576	WOT	TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12525
	04774	0 07400 2 06004	2589		TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV).	4F12538
	05001	0 07400 2 06004	2599		TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV),	4F12548
	05044	0 07400 2 06004	2644	WRD	TSX	OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV),	4F12593
TD	06003	1 00000 0 06005	3260		TXI	OUTPUT+1 GO SET INOUT FOR FORVAL ENTRY.	4F13208

P(CNTR = 3185

Definition
06161 5920 P(CNTR BSS 1 4F15856

References (10)

04103	0 60200 0 06161	5298	SLW	P(CNTR	4F15232
04120	0 00000 0 06161	5311	HTR	P(CNTR	4F15245
04121	0 50000 0 06161	5312	CLA	P(CNTR UPDATE P(CNTR	4F15246
04123	0 60100 0 06161	5314	STO	P(CNTR	4F15248
04277	0 60100 0 06161	5423	STO	P(CNTR INITIALIZE P(CNTR TO -2	4F15362
04310	0 50000 0 06161	5432	CLA	P(CNTR	4F15371
04313	0 60100 0 06161	5435	STO	P(CNTR	4F15374
04330	0 60100 0 06161	5448	STO	P(CNTR	4F15387
04341	0 50000 0 06161	5457	CLA	P(CNTR	4F15396
04344	0 60100 0 06161	5460	STO	P(CNTR	4F15399

PC0000 = 2499

Definition
04703 −0 53400 4 01122 4944 PC0000 LXD ARGCTR,C IS THIS AN FS 4F14882

References (2)

	04674	−0 10000 0 04703	4937		TNZ	PC0000	4F14875
	04676	0 02000 0 04703	4939		TRA	PC0000	4F14877

PC0030 = 2502

Definition
04706 0 53400 4 01406 4947 PC0030 LXA L(0),C YES 4F14885
Reference
04704 3 00000 4 04706 4945 TXH PC0030,C,0 4F14883

PC0040 = 2503

Definition
04707 −0 50000 1 06645 4948 PC0040 CAL SCRIPL−3,A 4F14886

References (3)

04705	1 00001 4 04707	4946	TXI	PC0040,C,1 NO	4F14884
04721	0 16200 0 04707	4958	TQP	PC0040 OP1 (S(1)) 29= 1 AND OP1 (S(1)) 30 = 0	4F14896
04724	1 00001 4 04707	4961	TXI	PC0040,C,1 AND UPDATE FOR NEXT SEGMENT	4F14899

PC0100 = 2508

Definition
04714 1 00000 1 04715 4953 PC0100 TXI PC0110,A,0 4F14891
Reference
04713 0 62200 0 04714 4952 STD PC0100 4F14890

PC0110 = 2509

Definition
04715 0 56000 1 06651 4954 PC0110 LDQ SCRIPL+1,A PLACE OP1 (S(1)) IN MQ 4F14892
Reference
04714 1 00000 1 04715 4953 PC0100 TXI PC0110,A,0 4F14891

PC0140 = 2512

Definition
04720 1 00454 0 04722 4957 PC0140 TXI PC0160,0,300 4F14895
Reference
04725 −0 53400 2 04720 4962 PC0190 LXD PC0140,B 4F14900

PC0160 = 2514

Definition
04722 −0 75400 4 00000 4959 PC0160 PXD 0,C OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1 4F14897
Reference
04720 1 00454 0 04722 4957 PC0140 TXI PC0160,0,300 4F14895

PC0190 = 2517

Definition
04725 −0 53400 2 04720 4962 PC0190 LXD PC0140,B 4F14900
Reference
04711 −3 00000 2 04725 4950 TXL PC0190,B,0 EXIT AT S(0) 4F14888

PC0200 = 2518

Definition
04726 0 50000 2 05520 4963 PC0200 CLA BETA+300,B 4F14901
Reference
04730 2 00001 2 04726 4965 TIX PC0200,B,1 4F14903

PHI(I) = 755

Definition
01363 0 00000 0 00000 304 PHI(I) PZE **,,** 4F10295

References (2)

	03557	0 62200 0 01363	5086		STD	PHI(I) STO ERAS. REL. ADD. IN PHI (I)	4F15020
	04632	0 50000 0 01363	5643		CLA	PHI(I)	4F15587

PL0000 = 2168

Definition
04170 −3 00000 1 04423 4613 PL0000 TXL LK0000,A,0 GO TO LINKAGE 4F14551

References (9)

04217	0 02000 0 04170	4636		TRA	PL0000 FIX PT... OP1 (S(I)) 32 = 0	4F14574
04222	1 00000 0 04170	4639	PL0260	TXI	PL0000,0,0 CONTINUE SCAN	4F14577
04251	0 02000 0 04170	4662		TRA	PL0000 FIX PT ... OP1 (S(I)) 32 = 0	4F14600
04333	−0 10000 0 04170	4712		TNZ	PL0000 SYM2 (S(I)) IS EXTERNAL	4F14650
04350	0 10000 0 04170	4725	PL1570	TZE	PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0	4F14663
04353	0 02000 0 04170	4728		TRA	PL0000 OP1 (S(I)) 33 = 0	4F14666
04357	0 02000 0 04170	4732		TRA	PL0000	4F14670
04362	0 02000 0 04170	4735		TRA	PL0000	4F14673
04422	0 02000 0 04170	4767		TRA	PL0000 RESUME SCAN	4F14705

PL0060 = 2174

Definition
04176 1 00000 1 04177 4619 PL0060 TXI PL0070,A,0 SET XA TO BEGINNING OF S(I) 4F14557
Reference
04175 0 62200 0 04176 4618 STD PL0060 4F14556

PL0070 = 2175

Definition
04177 −0 75400 0 00000 4620 PL0070 PXD 0,0 4F14558
Reference
04176 1 00000 1 04177 4619 PL0060 TXI PL0070,A,0 SET XA TO BEGINNING OF S(I) 4F14557

PL0130 = 2181

Definition
04205 −0 75400 0 00000 4626 PL0130 PXD 0,0 0P1 (S(I)) IS +, - OR * 4F14564
Reference
04300 0 16200 0 04205 4685 PL0680 TQP PL0130 4F14623

PL0135 = 2187

Definition
04213 0 34000 0 01423 4632 PL0135 CAS L(H) IS SYM1 (S(I)) FIX OR FLO PT 4F14570
Reference
04257 0 02000 0 04213 4668 TRA PL0135 4F14606

PL0240 = 2192

Definition
04220 −0 50000 0 01416 4637 PL0240 CAL L(8) SET OP1 (S(I)) 32 = 1 4F14575

References (3)

04215	0 02000 0 04220	4634	TRA	PL0240 FLO PT... SET 0P1 (S(I)) 32 = 1	4F14572
04216	0 02000 0 04220	4635	TRA	PL0240 FLO PT... DITTO	4F14573
04250	−0 10000 0 04220	4661	TNZ	PL0240 FLO PT... GO SET OP1 (S(I)) 32 = 1	4F14599

PL0250 = 2193

Definition
04221 −0 60200 1 06651 4638 PL0250 ORS SCRIPL+1,A 4F14576
Reference
04241 0 02000 0 04221 4654 TRA PL0250 SET OP1 (S(I)) 32 = OP1 (S(J)) 32 4F14592

PL0260 = 2194

Definition
04222 1 00000 0 04170 4639 PL0260 TXI PL0000,0,0 CONTINUE SCAN 4F14577

References (2)

	04270	−0 63400 1 04222	4677		SXD	PL0260,A	4F14615
	04273	−0 53400 1 04222	4680		LXD	PL0260,A	4F14618

PL0300 = 2195

Definition
04223 −0 53400 2 04224 4640 PL0300 LXD PL0310,B SYM1 (S(I)) = SOME S(J) 4F14578
Reference
04211 0 16200 0 04223 4630 TQP PL0300 4F14568

PL0310 = 2196

Definition
04224 1 00000 3 04225 4641 PL0310 TXI PL0320,3,0 XA TO XA,XB 4F14579
Reference
04223 −0 53400 2 04224 4640 PL0300 LXD PL0310,B SYM1 (S(I)) = SOME S(J) 4F14578

PL0320 = 2197

Definition
04225 −0 63400 4 04226 4642 PL0320 SXD PL0330,C 4F14580

References (2)

	04224	1 00000 3 04225	4641	PL0310	TXI	PL0320,3,0 XA TO XA,XB	4F14579
	04236	0 02000 0 04225	4651		TRA	PL0320	4F14589

PL0330 = 2198

Definition
04226 1 00000 2 04227 4643 PL0330 TXI PL0340,B,0 4F14581
Reference
04225 −0 63400 4 04226 4642 PL0320 SXD PL0330,C 4F14580

PL0340 = 2199

Definition
04227 −0 50000 2 06650 4644 PL0340 CAL SCRIPL,B 4F14582
Reference
04226 1 00000 2 04227 4643 PL0330 TXI PL0340,B,0 4F14581

PL0420 = 2207

Definition
04237 −0 50000 2 06651 4652 PL0420 CAL SCRIPL+1,B SYM1(S(I)) = S(J) 4F14590
Reference
04233 0 10000 0 04237 4648 TZE PL0420 4F14586

PL0460 = 2210

Definition
04242 −0 76300 0 00007 4655 PL0460 LGL 7 OP1 (S(I)) IS SPOP 4F14593
Reference
04204 0 02000 0 04242 4625 TRA PL0460 4F14563

PL0461 = 2212

Definition
04244 0 56000 1 06652 4657 PL0461 LDQ SCRIPL+2,A FS NAME - 4F14595

References (2)

	04274	0 02000 0 04244	4681		TRA	PL0461	4F14619
	04277	0 02000 0 04244	4684		TRA	PL0461	4F14622

PL0465 = 2218

Definition
04252 0 76000 0 00001 4663 PL0465 LBT 4F14601
Reference
04243 0 16200 0 04252 4656 TQP PL0465 4F14594

PL0470 = 2224

Definition
04260 0 50000 1 06652 4669 PL0470 CLA SCRIPL+2,A NOT AN FS NAME 4F14607
Reference
04253 0 02000 0 04260 4664 TRA PL0470 4F14602

PL0480 = 2226

Definition
04262 0 34000 2 04732 4671 PL0480 CAS OPSUB,B 4F14609
Reference
04266 3 77754 2 04262 4675 PL0520 TXH PL0480,B,−20 4F14613

PL0520 = 2230

Definition
04266 3 77754 2 04262 4675 PL0520 TXH PL0480,B,−20 4F14613

References (2)

	04263	1 77777 2 04266	4672		TXI	PL0520,B,−1	4F14610
	04265	1 77777 2 04266	4674		TXI	PL0520,B,−1	4F14612

PL0650 = 2237

Definition
04275 −0 50000 0 01412 4682 PL0650 CAL L(4) SET OP1 (S(I)) 33 =I 4F14620
Reference
04264 0 02000 0 04275 4673 TRA PL0650 4F14611

PL0680 = 2240

Definition
04300 0 16200 0 04205 4685 PL0680 TQP PL0130 4F14623
Reference
04203 0 02000 0 04300 4624 TRA PL0680 4F14562

PL0800 = 2252

Definition
04314 −0 50000 0 01416 4697 PL0800 CAL L(8) FLO PT... SET OP1 (S(I)) 32 = 1 4F14635

References (2)

	04311	0 02000 0 04314	4694		TRA	PL0800	4F14632
	04312	0 02000 0 04314	4695		TRA	PL0800	4F14633

PL0820 = 2253

Definition
04315 −0 60200 1 06651 4698 PL0820 ORS SCRIPL+1,A 4F14636
Reference
04401 0 02000 0 04315 4750 TRA PL0820 4F14688

PL0830 = 2254

Definition
04316 −0 75400 0 00000 4699 PL0830 PXD 0,0 4F14637
Reference
04313 0 02000 0 04316 4696 TRA PL0830 FIX PT 4F14634

PL0850 = 2264

Definition
04330 −0 75400 0 00000 4709 PL0850 PXD 0,0 SYM2(S(I)) IS FIX PT 4F14647

References (2)

	04336	0 62100 0 04330	4715		STA	PL0850	4F14653
	04340	0 46000 0 04330	4717		LDA	PL0850	4F14655

PL0880 = 2282

Definition
04352 3 00000 0 00002 4727 PL0880 TXH FIXCON,0,0 EXP NOT LESS THAN 7, SO 4F14665
Reference
04335 0 40000 0 04352 4714 ADD PL0880 4F14652

PL0940 = 2288

Definition
04360 −0 50000 0 01416 4733 PL0940 CAL L(8) SYM2 (S(I)) IS FLO PT 4F14671

References (2)

	04326	0 02000 0 04360	4707		TRA	PL0940 SYM2 (S(I)) IS FLO PT, SO GO	4F14645
	04327	0 02000 0 04360	4708		TRA	PL0940 SET OP2 (S(I)) 32 = 1	4F14646

PL1000 = 2291

Definition
04363 −0 53400 2 04364 4736 PL1000 LXD PL1010,B SYM1 (S(I)) IS SOME S(J) 4F14674
Reference
04305 0 16200 0 04363 4690 TQP PL1000 4F14628

PL1010 = 2292

Definition
04364 1 00000 3 04365 4737 PL1010 TXI PL1020,3,0 XA TO XA,XB 4F14675
Reference
04363 −0 53400 2 04364 4736 PL1000 LXD PL1010,B SYM1 (S(I)) IS SOME S(J) 4F14674

PL1020 = 2293

Definition
04365 −0 63400 4 04366 4738 PL1020 SXD PL1030,C 4F14676

References (2)

	04364	1 00000 3 04365	4737	PL1010	TXI	PL1020,3,0 XA TO XA,XB	4F14675
	04376	0 02000 0 04365	4747		TRA	PL1020	4F14685

PL1030 = 2294

Definition
04366 1 00000 2 04367 4739 PL1030 TXI PL1040,B,0 4F14677
Reference
04365 −0 63400 4 04366 4738 PL1020 SXD PL1030,C 4F14676

PL1040 = 2295

Definition
04367 −0 50000 2 06650 4740 PL1040 CAL SCRIPL,B 4F14678
Reference
04366 1 00000 2 04367 4739 PL1030 TXI PL1040,B,0 4F14677

PL1130 = 2303

Definition
04377 −0 50000 2 06651 4748 PL1130 CAL SCRIPL+1,B 4F14686
Reference
04373 0 10000 0 04377 4744 TZE PL1130 4F14682

PL1200 = 2306

Definition
04402 −0 53400 2 04403 4751 PL1200 LXD PL1210,B SYM2 (S(I)) = SOME S(K) 4F14689
Reference
04322 0 16200 0 04402 4703 TQP PL1200 SYM2 (S(I)) 4F14641

PL1210 = 2307

Definition
04403 1 00000 3 04404 4752 PL1210 TXI PL1220,3,0 XA TO XA,XB 4F14690
Reference
04402 −0 53400 2 04403 4751 PL1200 LXD PL1210,B SYM2 (S(I)) = SOME S(K) 4F14689

PL1220 = 2308

Definition
04404 −0 53400 4 04416 4753 PL1220 LXD PL1330,C LKXC WITH -6 4F14691
Reference
04403 1 00000 3 04404 4752 PL1210 TXI PL1220,3,0 XA TO XA,XB 4F14690

PL1230 = 2309

Definition
04405 −0 63400 4 04406 4754 PL1230 SXD PL1240,C 4F14692
Reference
04416 1 77772 0 04405 4763 PL1330 TXI PL1230,0,−6 4F14701

PL1240 = 2310

Definition
04406 1 00000 2 04407 4755 PL1240 TXI PL1250,B,0 4F14693
Reference
04405 −0 63400 4 04406 4754 PL1230 SXD PL1240,C 4F14692

PL1250 = 2311

Definition
04407 −0 50000 2 06650 4756 PL1250 CAL SCRIPL,B 4F14694
Reference
04406 1 00000 2 04407 4755 PL1240 TXI PL1250,B,0 4F14693

PL1330 = 2318

Definition
04416 1 77772 0 04405 4763 PL1330 TXI PL1230,0,−6 4F14701
Reference
04404 −0 53400 4 04416 4753 PL1220 LXD PL1330,C LKXC WITH -6 4F14691

PL1340 = 2319

Definition
04417 −0 50000 2 06651 4764 PL1340 CAL SCRIPL+1,B SET OP2(S(I)) 32 = 0P1 (S(K)) 32 4F14702
Reference
04413 0 10000 0 04417 4760 TZE PL1340 SYM2(S(I)) = S(K) 4F14698

PL1570 = 2280

Definition
04350 0 10000 0 04170 4725 PL1570 TZE PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0 4F14663
Reference
04346 0 02000 0 04350 4723 TRA PL1570 4F14661

PM0000 = 1995

Definition
03713 0 76000 0 00140 4440 PM0000 SLF TURN OFF ALL SENSE LITES 4F14378

PM0010 = 1997

Definition
03715 0 50000 1 06650 4442 PM0010 CLA SCRIPL,A 4F14380
Reference
03725 0 02000 0 03715 4450 TRA PM0010 4F14388

PM0070 = 2003

Definition
03723 1 00000 1 03724 4448 PM0070 TXI PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO * 4F14386

References (4)

03721	−0 63400 4 03723	4446	SXD	PM0070,C	4F14384
03732	−0 10000 0 03723	4455	TNZ	PM0070	4F14393
03734	0 02000 0 03723	4457	TRA	PM0070	4F14395
04070	0 02000 0 03723	4549	TRA	PM0070	4F14487

PM0080 = 2004

Definition
03724 −3 00000 1 04071 4449 PM0080 TXL AS0000,A,0 EXIT FROM PERMUTATION ROUTINE 4F14387

References (4)

03710	−0 63400 4 03724	4437		SXD	PM0080,C -3Q IN XC AT END	4F14375
03723	1 00000 1 03724	4448	PM0070	TXI	PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO *	4F14386
04031	0 10000 0 03724	4518		TZE	PM0080 ... / - EXIT FROM SEGMENT SCAN	4F14456
04036	0 10000 0 03724	4523		TZE	PM0080 ... / * - EXIT FROM SEGMENT SCAN	4F14461

PM0100 = 2006

Definition
03726 0 56000 1 06651 4451 PM0100 LDQ SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3 4F14389
Reference
03722 −3 77767 4 03726 4447 TXL PM0100,C,−9 4F14385

PM0170 = 2013

Definition
03735 −0 63400 4 03744 4458 PM0170 SXD PM0260,C 4F14396
Reference
03733 0 16200 0 03735 4456 TQP PM0170 4F14394

PM0240 = 2018

Definition
03742 0 76000 0 00143 4463 PM0240 SLN 3 TURN * LITE ON 4F14401

References (2)

	03741	1 77775 1 03742	4462		TXI	PM0240,A,−3	4F14400
	03757	1 77775 1 03742	4476		TXI	PM0240,A,−3 NO	4F14414

PM0250 = 2019

Definition
03743 1 77775 4 03744 4464 PM0250 TXI PM0260,C,−3 4F14402

References (2)

	04006	1 77775 1 03743	4499		TXI	PM0250,A,−3 RESUME SEGMENT SCAN	4F14437
	04011	1 77775 1 03743	4502		TXI	PM0250,A,−3	4F14440

PM0260 = 2020

Definition
03744 −3 00000 4 04025 4465 PM0260 TXL PM0790,C,0 EXIT 4F14403

References (2)

	03735	−0 63400 4 03744	4458	PM0170	SXD	PM0260,C	4F14396
	03743	1 77775 4 03744	4464	PM0250	TXI	PM0260,C,−3	4F14402

PM0290 = 2023

Definition
03747 1 00000 3 03750 4468 PM0290 TXI PM0300,3,0 XA TO XA AND XB 4F14406
Reference
03746 −0 53400 2 03747 4467 LXD PM0290,B 4F14405

PM0300 = 2024

Definition
03750 −0 75400 0 00000 4469 PM0300 PXD 0,0 4F14407
Reference
03747 1 00000 3 03750 4468 PM0290 TXI PM0300,3,0 XA TO XA AND XB 4F14406

PM0340 = 2029

Definition
03755 −3 00000 0 04007 4474 PM0340 TXL PM0640,0,0 / SIGN 4F14412

References (2)

	03745	−0 63400 4 03755	4466		SXD	PM0340,C	4F14404
	04005	−0 53400 4 03755	4498		LXD	PM0340,C	4F14436

PM0390 = 2033

Definition
03761 1 77775 4 03762 4478 PM0390 TXI PM0400,C,−3 4F14416

References (2)

	03760	1 77775 2 03761	4477		TXI	PM0390,B,−3 YES - SEARCH FOR / SIGN	4F14415
	03770	1 77775 2 03761	4485		TXI	PM0390,B,−3	4F14423

PM0400 = 2034

Definition
03762 −3 00000 4 04023 4479 PM0400 TXL PM0770,C,0 EXIT 4F14417

References (2)

	03736	−0 63400 4 03762	4459		SXD	PM0400,C	4F14397
	03761	1 77775 4 03762	4478	PM0390	TXI	PM0400,C,−3	4F14416

PM0480 = 2041

Definition
03771 0 50000 1 06650 4486 PM0480 CLA SCRIPL,A PERMUTE TAG WORDS 4F14424

References (2)

	03767	0 10000 0 03771	4484		TZE	PM0480	4F14422
	04022	0 02000 0 03771	4511		TRA	PM0480	4F14449

PM0640 = 2055

Definition
04007 −0 76000 0 00143 4500 PM0640 SLT 3 / SIGN... IS * LITE ON 4F14438
Reference
03755 −3 00000 0 04007 4474 PM0340 TXL PM0640,0,0 / SIGN 4F14412

PM0650 = 2056

Definition
04010 1 77775 2 04012 4501 PM0650 TXI PM0670,B,−3 NO 4F14439
Reference
04020 0 10000 0 04010 4509 TZE PM0650 4F14447

PM0670 = 2058

Definition
04012 1 77775 4 04013 4503 PM0670 TXI PM0680,C,−3 4F14441
Reference
04010 1 77775 2 04012 4501 PM0650 TXI PM0670,B,−3 NO 4F14439

PM0680 = 2059

Definition
04013 −3 00000 4 04023 4504 PM0680 TXL PM0770,C,0 4F14442

References (2)

	03737	−0 63400 4 04013	4460		SXD	PM0680,C	4F14398
	04012	1 77775 4 04013	4503	PM0670	TXI	PM0680,C,−3	4F14441

PM0770 = 2067

Definition
04023 −0 53400 1 04024 4512 PM0770 LXD PM0780,A 4F14450

References (2)

	03762	−3 00000 4 04023	4479	PM0400	TXL	PM0770,C,0 EXIT	4F14417
	04013	−3 00000 4 04023	4504	PM0680	TXL	PM0770,C,0	4F14442

PM0780 = 2068

Definition
04024 1 00000 3 04025 4513 PM0780 TXI PM0790,3,0 XB TO XA,XB 4F14451
Reference
04023 −0 53400 1 04024 4512 PM0770 LXD PM0780,A 4F14450

PM0790 = 2069

Definition
04025 −0 75400 0 00000 4514 PM0790 PXD 0,0 4F14452

References (2)

	03744	−3 00000 4 04025	4465	PM0260	TXL	PM0790,C,0 EXIT	4F14403
	04024	1 00000 3 04025	4513	PM0780	TXI	PM0790,3,0 XB TO XA,XB	4F14451

PM0980 = 2086

Definition
04046 1 00003 4 04047 4531 PM0980 TXI PM0990,C,3 4F14469

References (2)

	04045	1 00003 1 04046	4530		TXI	PM0980,A,3	4F14468
	04056	1 00003 1 04046	4539		TXI	PM0980,A,3	4F14477

PM0990 = 2087

Definition
04047 −3 00000 4 04057 4532 PM0990 TXL PM1070,C,0 FINIS 4F14470
Reference
04046 1 00003 4 04047 4531 PM0980 TXI PM0990,C,3 4F14469

PM1070 = 2095

Definition
04057 0 50000 0 01126 4540 PM1070 CLA E 4F14478
Reference
04047 −3 00000 4 04057 4532 PM0990 TXL PM1070,C,0 FINIS 4F14470

PROCTR = 841

Definition
01511 +176060606060 397 PROCTR OCT 176060606060 4F10388
Reference
04536 0 00000 0 01511 5583 HTR PROCTR 4F15527

R00000 = 1824

Definition
03440 0 56000 0 01406 4269 R00000 LDQ L(0) CLEAR MQ 4F14207

R00500 = 1831

Definition
03447 −0 60000 2 05044 4276 R00500 STQ BETA,B 4F14214
Reference
03451 3 00000 2 03447 4278 R00700 TXH R00500,B,0 4F14216

R00700 = 1833

Definition
03451 3 00000 2 03447 4278 R00700 TXH R00500,B,0 4F14216

References (2)

	03442	−0 63400 1 03451	4271		SXD	R00700,A	4F14209
	03450	1 77777 2 03451	4277		TXI	R00700,B,−1	4F14215

R01000 = 1837

Definition
03455 0 50000 1 05520 4282 R01000 CLA LAMBDA,A ADD INTO GAMMA COUNTERS 4F14220
Reference
03464 3 00000 1 03455 4289 R01700 TXH R01000,A,0 -3L IN XA AT END 4F14227

R01700 = 1844

Definition
03464 3 00000 1 03455 4289 R01700 TXH R01000,A,0 -3L IN XA AT END 4F14227

References (2)

	03453	0 62200 0 03464	4280		STD	R01700	4F14218
	03463	1 77775 1 03464	4288		TXI	R01700,A,−3	4F14226

R01800 = 1845

Definition
03465 3 77772 1 03516 4290 R01800 TXH R04200,A,−6 EXIT FROM SINGLE ELEMENT REDUCTION 4F14228

References (3)

03473	1 00003 1 03465	4296	TXI	R01800,A,3	4F14234
03500	1 00003 1 03465	4301	TXI	R01800,A,3	4F14239
03515	1 00003 1 03465	4314	TXI	R01800,A,3 RESUME SCAN-BACK	4F14252

R02600 = 1852

Definition
03474 0 56000 1 05516 4297 R02600 LDQ LAMBDA−2,A SINGLE ELEMENT 4F14235
Reference
03472 0 10000 0 03474 4295 TZE R02600 4F14233

R03200 = 1857

Definition
03501 −0 50000 0 01527 4302 R03200 CAL MASK1 SINGLE ELEMENT, NON-UNARY OP 4F14240
Reference
03477 −0 10000 0 03501 4300 TNZ R03200 4F14238

R04200 = 1870

Definition
03516 0 60000 0 01347 4315 R04200 STZ G 4F14253
Reference
03465 3 77772 1 03516 4290 R01800 TXH R04200,A,−6 EXIT FROM SINGLE ELEMENT REDUCTION 4F14228

R04500 = 1872

Definition
03520 0 50000 2 05044 4317 R04500 CLA BETA,B SET ORIGINS OF SCRIPL TABLE 4F14255
Reference
03527 3 00000 2 03520 4324 R05200 TXH R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END 4F14262

R05100 = 1878

Definition
03526 1 77777 2 03527 4323 R05100 TXI R05200,B,−1 4F14261
Reference
03521 0 10000 0 03526 4318 TZE R05100 4F14256

R05200 = 1879

Definition
03527 3 00000 2 03520 4324 R05200 TXH R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END 4F14262

References (2)

	03443	−0 63400 1 03527	4272		SXD	R05200,A	4F14210
	03526	1 77777 2 03527	4323	R05100	TXI	R05200,B,−1	4F14261

R05300 = 1880

Definition
03530 −0 50000 1 05520 4325 R05300 CAL LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE 4F14263
Reference
03541 3 00000 1 03530 4334 R06200 TXH R05300,A,0 4F14272

R06100 = 1888

Definition
03540 1 77775 1 03541 4333 R06100 TXI R06200,A,−3 4F14271

References (2)

	03531	0 10000 0 03540	4326		TZE	R06100	4F14264
	03537	1 77775 4 03540	4332		TXI	R06100,C,−3	4F14270

R06200 = 1889

Definition
03541 3 00000 1 03530 4334 R06200 TXH R05300,A,0 4F14272

References (2)

	03454	0 62200 0 03541	4281		STD	R06200	4F14219
	03540	1 77775 1 03541	4333	R06100	TXI	R06200,A,−3	4F14271

R06400 = 1893

Definition
03545 0 50000 1 05520 4338 R06400 CLA LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE 4F14276
Reference
03563 3 00000 1 03545 4352 R07800 TXH R06400,A,0 -3P IN XA AT END 4F14290

R07500 = 1904

Definition
03560 −0 75400 4 00000 4349 R07500 PXD 0,C 4F14287
Reference
03557 1 77775 4 03560 4348 TXI R07500,C,−3 4F14286

R07800 = 1907

Definition
03563 3 00000 1 03545 4352 R07800 TXH R06400,A,0 -3P IN XA AT END 4F14290

References (2)

	03542	−0 63400 4 03563	4335		SXD	R07800,C -3P IN XC AT END	4F14273
	03562	1 77775 1 03563	4351		TXI	R07800,A,−3	4F14289

RDRXCR = 1390

Definition
02556 −0 53400 2 02362 1005 RDRXCR LXD FDA,2 COMPUTE 4F10995
Reference
02561 2 00001 2 02560 1008 TIX RDRXCR+2,2,1 CHECKSUM, AND 4F10998

RESIDU = 757

Definition
01365 306 RESIDU BSS 1 REMAINDER OF F-REGION WORD.(C0190) 4F10297

References (7)

01711	0 56000 0 01365	572		LDQ	RESIDU PICK UP ANY REMAINING CHARACTERS.	4F10562
01726	−0 60000 0 01365	585		STQ	RESIDU SAVE ANY REMAINING CHARACTERS,	4F10575
02660	0 60200 0 01365	1082		SLW	RESIDU TO RESUDU, AND	4F11072
03700	−0 60000 0 01365	1875		STQ	RESIDU AND PLACE IN RESIDU.	4F11827
05123	0 56000 0 01365	2717		LDQ	RESIDU THEN PICKUP AND	4F12667
04035	0 56000 0 01365	3771		LDQ	RESIDU GET CURRENT RESIDU WORD	4F13713
04063	−0 60000 0 01365	3793	C3358	STQ	RESIDU UPDATE RESIDU	4F13735

ROYCNV = 2355

Definition

		4057				4F13999
		4058			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F14000
		4059				4F14001
		4060			ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG.	4F14002
		4061			ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION	4F14003
		4062			ARITHMETIC.	4F14004
		4063			ROYCNV=ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS,	4F14005
04463	0 60100 0 01103	4064	ROYCNV	STO	N SAVE DECIMAL DIGIT IN N.	4F14006

Reference
03501 0 07400 4 04463 3549 TSX ROYCNV,4 X 4F13492

SAEXIT = 1680

Definition
03220 −0 53400 1 02730 1309 SAEXIT LXD SXR1,1 RESTORE THE C(XR1) 4F11299
Reference
D 03130 1 00000 0 03220 1253 TXI SAEXIT,0 GO TO EXIT. 4F11243

SAPSYM = 807

Definition
01447 +000000006212 363 SAPSYM OCT 6212 4F10354
Reference
04652 0 34000 0 01447 5659 ES0210 CAS SAPSYM 4F15603

SBDFCN = 245

Definition
00365 0 00000 0 00000 156 SBDFCN PZE **,,** C,,P. 4F10148

References (2)

	03413	0 50000 0 00365	1478	FLTR01	CLA	SBDFCN IS THIS A MAIN PROGRAM OR SUBPROGRAM.	4F11457B
	04521	0 50000 0 00365	2370		CLA	SBDFCN ANY ENTRIES IN SUBDEF	4F123291

SCRIPL = 3496

Definition
06650 5929 SCRIPL BSS 600 4F15865

References (177)

03552	0 60100 4 06650	4343		STO	SCRIPL,C	4F14281
03554	0 60100 4 06651	4345		STO	SCRIPL+1,C	4F14283
03556	0 60100 4 06652	4347		STO	SCRIPL+2,C	4F14265
03565	−0 50000 1 06645	4354	CS0010	CAL	SCRIPL−3,A	4F14292
03603	−0 50000 1 06645	4368	CS0130	CAL	SCRIPL−3,A	4F14306
03621	0 50000 2 06647	4382		CLA	SCRIPL−1,B	4F14320
03622	0 40200 1 06647	4383		SUB	SCRIPL−1,A	4F14321
03624	−0 50000 2 06645	4385		CAL	SCRIPL−3,B SYMBOLS MATCH	4F14323
03627	−0 50000 1 06645	4388		CAL	SCRIPL−3,A	4F14326
03635	0 50000 2 06646	4394		CLA	SCRIPL−2,B TAGS MATCH	4F14332
03640	0 40200 1 06646	4397		SUB	SCRIPL−2,A	4F14335
03645	−0 50000 1 06650	4402	CS0430	CAL	SCRIPL,A MATCHING SEGMENTS	4F14340
03647	0 34000 1 06647	4404	CS0450	CAS	SCRIPL−1,A	4F14342
03654	0 62100 1 06647	4409		STA	SCRIPL−1,A	4F14347
03660	−0 60000 1 06645	4413		STQ	SCRIPL−3,A	4F14351
03666	−0 60200 2 06651	4419		ORS	SCRIPL+1,B	4F14357
03676	−0 50000 1 06650	4427	CS0670	CAL	SCRIPL,A	4F14365
03700	0 60200 4 06650	4429		SLW	SCRIPL,C	4F14367
03701	0 50000 1 06651	4430		CLA	SCRIPL+1,A	4F14368
03702	0 60100 4 06651	4431		STO	SCRIPL+1,C	4F14369
03703	0 50000 1 06652	4432		CLA	SCRIPL+2,A	4F14370
03704	0 60100 4 06652	4433		STO	SCRIPL+2,C	4F14371
03715	0 50000 1 06650	4442	PM0010	CLA	SCRIPL,A	4F14380
03726	0 56000 1 06651	4451	PM0100	LDQ	SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3	4F14389
03751	0 56000 1 06651	4470		LDQ	SCRIPL+1,A	4F14408
03764	0 56000 2 06651	4481		LDQ	SCRIPL+1,B	4F14419
03771	0 50000 1 06650	4486	PM0480	CLA	SCRIPL,A PERMUTE TAG WORDS	4F14424
03772	0 56000 2 06650	4487		LDQ	SCRIPL,B	4F14425
03773	−0 60000 1 06650	4488		STQ	SCRIPL,A	4F14426
03774	0 60100 2 06650	4489		STO	SCRIPL,B	4F14427
03775	0 50000 1 06651	4490		CLA	SCRIPL+1,A PERMUTE OP WORDS	4F14428
03776	0 56000 2 06651	4491		LDQ	SCRIPL+1,B	4F14429
03777	−0 60000 1 06651	4492		STQ	SCRIPL+1,A	4F14430
04000	0 60100 2 06651	4493		STO	SCRIPL+1,B	4F14431
04001	0 50000 1 06652	4494		CLA	SCRIPL+2,A PERMUTE SYMBOL WORDS	4F14432
04002	0 56000 2 06652	4495		LDQ	SCRIPL+2,B	4F14433
04003	−0 60000 1 06652	4496		STQ	SCRIPL+2,A	4F14434
04004	0 60100 2 06652	4497		STO	SCRIPL+2,B	4F14435
04015	0 56000 2 06651	4506		LDQ	SCRIPL+1,B	4F14444
04026	0 56000 1 06646	4515		LDQ	SCRIPL−2,A	4F14453
04033	0 56000 1 06643	4520		LDQ	SCRIPL−5,A	4F14458
04037	0 50000 1 06645	4524		CLA	SCRIPL−3,A ... **	4F14462
04041	0 50000 1 06646	4526		CLA	SCRIPL−2,A	4F14464
04043	0 50000 1 06647	4528		CLA	SCRIPL−1,A	4F14466
04050	0 50000 1 06645	4533		CLA	SCRIPL−3,A	4F14471
04051	0 60100 1 06650	4534		STO	SCRIPL,A	4F14472
04052	0 50000 1 06646	4535		CLA	SCRIPL−2,A	4F14473
04053	0 60100 1 06651	4536		STO	SCRIPL+1,A	4F14474
04054	0 50000 1 06647	4537		CLA	SCRIPL−1,A	4F14475
04055	0 60100 1 06652	4538		STO	SCRIPL+2,A	4F14476
04060	0 60100 1 06650	4541		STO	SCRIPL,A	4F14479
04062	0 60100 1 06651	4543		STO	SCRIPL+1,A	4F14481
04064	0 60100 1 06652	4545		STO	SCRIPL+2,A	4F14483
04065	−0 50000 1 06654	4546		CAL	SCRIPL+4,A PRESERVE CS BIT	4F14484
04067	−0 60200 1 06651	4548		ORS	SCRIPL+1,A	4F14486
04102	0 50000 1 06650	4559	AS0900	CLA	SCRIPL,A	4F14497
04105	0 62100 1 06650	4562		STA	SCRIPL,A	4F14500
04106	0 56000 1 06652	4563		LDQ	SCRIPL+2,A	4F14501
04120	0 62100 1 06652	4573		STA	SCRIPL+2,A	4F14511
04127	0 50000 1 06650	4580	AS3000	CLA	SCRIPL,A ADD INTO GAMMA COUNTERS	4F14518
04140	−0 50000 1 06645	4589	CCS000	CAL	SCRIPL−3,A ELIMINATE COMMON SUBEXPRESSIONS	4F14527
04146	−0 50000 1 06651	4595	CCS070	CAL	SCRIPL+1,A OBTAIN OP1 (S(I))	4F14533
04157	0 34000 2 06647	4604		CAS	SCRIPL−1,B	4F14542
04165	0 32000 1 06651	4610		ANS	SCRIPL+1,A OP1(S(I))3O TO O, AND	4F14548
04171	0 50000 1 06645	4614		CLA	SCRIPL−3,A	4F14552
04200	0 56000 1 06651	4621		LDQ	SCRIPL+1,A OBTAIN	4F14559
04206	0 56000 1 06652	4627		LDQ	SCRIPL+2,A OBTAIN	4F14565
04221	−0 60200 1 06651	4638	PL0250	ORS	SCRIPL+1,A	4F14576
04227	−0 50000 2 06650	4644	PL0340	CAL	SCRIPL,B	4F14582
04232	0 40200 1 06652	4647		SUB	SCRIPL+2,A	4F14585
04237	−0 50000 2 06651	4652	PL0420	CAL	SCRIPL+1,B SYM1(S(I)) = S(J)	4F14590
04244	0 56000 1 06652	4657	PL0461	LDQ	SCRIPL+2,A FS NAME -	4F14595
04254	0 56000 1 06652	4665		LDQ	SCRIPL+2,A	4F14603
04260	0 50000 1 06652	4669	PL0470	CLA	SCRIPL+2,A NOT AN FS NAME	4F14607
04276	−0 60200 1 06651	4683		ORS	SCRIPL+1,A	4F14621
04302	0 56000 1 06652	4687		LDQ	SCRIPL+2,A OBTAIN AND	4F14625
04315	−0 60200 1 06651	4698	PL0820	ORS	SCRIPL+1,A	4F14636
04317	0 56000 1 06655	4700		LDQ	SCRIPL+5,A OBTAIN	4F14638
04354	0 60100 1 06655	4729		STO	SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP	4F14667
04356	−0 60200 1 06651	4731		ORS	SCRIPL+1,A OP1 (S(I)) 33 = 1	4F14669
04361	−0 60200 1 06654	4734		ORS	SCRIPL+4,A SET OP2 (S(I)) 32 = 1	4F14672
04367	−0 50000 2 06650	4740	PL1040	CAL	SCRIPL,B	4F14678
04372	0 40200 1 06652	4743		SUB	SCRIPL+2,A	4F14681
04377	−0 50000 2 06651	4748	PL1130	CAL	SCRIPL+1,B	4F14686
04407	−0 50000 2 06650	4756	PL1250	CAL	SCRIPL,B	4F14694
04412	0 40200 1 06655	4759		SUB	SCRIPL+5,A	4F14697
04417	−0 50000 2 06651	4764	PL1340	CAL	SCRIPL+1,B SET OP2(S(I)) 32 = 0P1 (S(K)) 32	4F14702
04421	−0 60200 1 06654	4766		ORS	SCRIPL+4,A	4F14704
04424	−0 50000 1 06645	4769	LK0030	CAL	SCRIPL−3,A	4F14707
04427	0 56000 1 06646	4772		LDQ	SCRIPL−2,A PLACE LAST OP OP S(I) IN MQ	4F14710
04446	−0 60200 1 06651	4787		ORS	SCRIPL+1,A SET OP1 (S(I)) 31 = 1	4F14725
04450	0 56000 4 06651	4789		LDQ	SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ	4F14727
04460	−0 50000 1 06650	4797		CAL	SCRIPL,A	4F14735
04463	0 40200 4 06652	4800		SUB	SCRIPL+2,C OP1 (S(I-1)) 33 = 1, OPEN ** SUBROUTINE.	4F14738
04466	−0 60200 4 06651	4803	LK0430	ORS	SCRIPL+1,C	4F14741
04470	−0 60200 1 06651	4805		ORS	SCRIPL+1,A	4F14743
04472	0 40200 4 06655	4807	LK0480	SUB	SCRIPL+5,C	4F14745
04475	−0 60200 4 06654	4810		ORS	SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1	4F14748
04500	0 56000 4 06654	4813		LDQ	SCRIPL+4,C PLACE PO2 (S(I-1)) IN MQ	4F14751
04505	−0 60200 4 06651	4818		ORS	SCRIPL+1,C SET OP1(S(I-1))34=1	4F14756
04506	−0 50000 1 06650	4819	LK0630	CAL	SCRIPL,A	4F14757
04511	0 34000 1 06647	4822		CAS	SCRIPL−1,A	4F14760
04516	0 56000 1 06646	4827	LK0710	LDQ	SCRIPL−2,A S(I) IS SYMJ (S(I-1))	4F14765
04522	0 50000 4 06650	4831	LK0750	CLA	SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJ(S(I-1))	4F14769
04523	0 56000 1 06645	4832		LDQ	SCRIPL−3,A EXCHANGE	4F14770
04524	0 60100 1 06645	4833		STO	SCRIPL−3,A TAG	4F14771
04525	−0 60000 4 06650	4834		STQ	SCRIPL,C WORDS	4F14772
04526	−0 50000 4 06651	4835		CAL	SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC	4F14773
04527	0 56000 1 06646	4836		LDQ	SCRIPL−2,A PLACE OPJ (S(I-1)) IN MQ	4F14774
04530	0 60200 1 06646	4837		SLW	SCRIPL−2,A EXCHANGE	4F14775
04531	−0 60000 4 06651	4838		STQ	SCRIPL+1,C OP	4F14776
04533	−0 60200 4 06651	4840		ORS	SCRIPL+1,C SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33	4F14778
04534	0 50000 4 06652	4841		CLA	SCRIPL+2,C THEN	4F14779
04535	0 56000 1 06647	4842		LDQ	SCRIPL−1,A EXCHANGE	4F14780
04536	0 60100 1 06647	4843		STO	SCRIPL−1,A SYMBOL	4F14781
04537	−0 60000 4 06652	4844		STQ	SCRIPL+2,C WORDS	4F14762
04544	−0 50000 1 06650	4849		CAL	SCRIPL,A	4F14787
04550	0 40200 4 06655	4853		SUB	SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1))	4F14791
04553	−0 60200 4 06654	4856		ORS	SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1	4F14794
04561	0 40200 4 06660	4862		SUB	SCRIPL+8,C CLOSED MULTIV. SBRTN	4F14800
04564	−0 60200 4 06657	4865		ORS	SCRIPL+7,C SET OP3 (S(1-1)135 = 1	4F14803
04567	0 56000 4 06651	4868		LDQ	SCRIPL+1,C PLACE OP1 (S(I-1)) IN MO	4F14806
04574	−0 50000 1 06650	4873		CAL	SCRIPL,A S(I) TYPE AC OP1 (S(I-1)) = + OR -	4F14811
04577	0 34000 1 06647	4876		CAS	SCRIPL−1,A	4F14814
04605	−0 50000 1 06650	4882		CAL	SCRIPL,A S(I) TYPE AC OP1 (S(I-1)) = **	4F14820
04607	0 40200 4 06652	4884		SUB	SCRIPL+2,C IS S(I) = SYM1 (S(I-1))	4F14822
04613	0 56000 4 06654	4888		LDQ	SCRIPL+4,C	4F14826
04620	−0 60200 4 06651	4893		ORS	SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1	4F14831
04623	−0 50000 1 06650	4896		CAL	SCRIPL,A	4F14834
04635	0 56000 1 06646	4906		LDQ	SCRIPL−2,A	4F14844
04642	−0 50000 0 06652	4911		CAL	SCRIPL+2 OP (S(0)) = +	4F14849
04645	−0 50000 0 06654	4914		CAL	SCRIPL+4 YES - PLACE OP1 (S(I)) IN ACC	4F14852
04650	−0 60200 0 06651	4917		ORS	SCRIPL+1 SET OP (S(0)) 31 = 1	4F14855
04652	−0 60200 0 06654	4919		ORS	SCRIPL+4 SET OP1 (S(1)) 29 = 1	4F14857
04661	−0 60200 0 06651	4926	LK1820	ORS	SCRIPL+1	4F14864
04663	−0 50000 4 06645	4928		CAL	SCRIPL−3,C	4F14866
04671	0 56000 4 06651	4934		LDQ	SCRIPL+1,C PLACE OP1 OF LAST SEGMENT IN MQ	4F14872
04677	0 56000 4 06654	4940	LKK130	LDQ	SCRIPL+4,C OP1 OF LAST SEGMENT IS *	4F14878
04702	−0 60200 4 06651	4943		ORS	SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1	4F14881
04707	−0 50000 1 06645	4948	PC0040	CAL	SCRIPL−3,A	4F14886
04715	0 56000 1 06651	4954	PC0110	LDQ	SCRIPL+1,A PLACE OP1 (S(1)) IN MQ	4F14892
03444	−0 50000 1 06650	5010		CAL	SCRIPL,A	4F14944
03455	0 56000 1 06651	5019		LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F14953
03466	0 56000 1 06652	5028		LDQ	SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = I,...	4F14962
03517	−0 50000 4 06650	5053	MC0470	CAL	SCRIPL,C	4F14987
03521	0 34000 1 06652	5055		CAS	SCRIPL+2,A AND COMPARE WITH SYMJ (S(I))	4F14989
03532	−0 50000 4 06651	5064		CAL	SCRIPL+1,C PLACE OP1 (S(K)) IN ACC	4F14998
03554	0 50000 1 06645	5083	CP0130	CLA	SCRIPL−3,A EXTRACT CURRENT S(I)	4F15017
03571	0 56000 1 06651	5096		LDQ	SCRIPL+1,A EXAMINE OP1 (S(I)) 29,30,31,32	4F15030
03613	0 56000 1 06651	5114		LDQ	SCRIPL+1,A PLACE OP1 (S(I)) IN MQ	4F15048
03632	0 56000 1 06651	5129		LDQ	SCRIPL+1,A PLACE OPJ (S(I)) IN MQ	4F15063
04041	0 50000 1 06651	5264		CLA	SCRIPL+1,A	4F15198
04064	0 50000 1 06651	5283		CLA	SCRIPL+1,A	4F15217
04137	−0 50000 1 06652	5326		CAL	SCRIPL+2,A	4F15260
04154	0 50000 1 06647	5340		CLA	SCRIPL−1,A	4F15274
04164	0 50000 1 06651	5348		CLA	SCRIPL+1,A	4F15282
04220	0 50000 1 06651	5376		CLA	SCRIPL+1,A CLOSED UNIVARIATE FUNCTION	4F15310
04234	0 50000 1 06647	5388		CLA	SCRIPL−1,A	4F15322
04247	0 50000 1 06651	5399		CLA	SCRIPL+1,A CLOSED BIVARIATE FUNCTION	4F15338
04260	0 50000 1 06654	5408	CP3450	CLA	SCRIPL+4,A	4F15347
04272	0 50000 1 06651	5418	CP3560	CLA	SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION	4F15357
04324	0 50000 1 06646	5444	CP3820	CLA	SCRIPL−2,A	4F15383
04410	0 50000 1 06655	5496		CLA	SCRIPL+5,A	4F15435
04436	0 50000 1 06651	5518		CLA	SCRIPL+1,A	4F15457
04443	0 56000 1 06646	5523		LDQ	SCRIPL−2,A EXAMINE OPI(S(I)I32 TO CHECK	4F15462
04447	0 56000 1 06651	5527	CP4660	LDQ	SCRIPL+1,A	4F15466
04467	0 50000 1 06654	5543		CLA	SCRIPL+4,A	4F15487
04501	0 50000 1 06650	5554	CP5050	CLA	SCRIPL,A EXAMIN TAGJ(S(I)), J=2,...	4F15498
04513	−0 60200 1 06651	5564		ORS	SCRIPL+1,A	4F15508
04567	−0 50000 1 06652	5608		CAL	SCRIPL+2,A	4F15552
04574	0 50000 1 06650	5613	CP5680	CLA	SCRIPL,A	4F15557
04600	0 56000 1 06651	5617	CP5700	LDQ	SCRIPL+1,A SUBSCRIPTED	4F15561
04605	−0 50000 1 06652	5622		CAL	SCRIPL+2,A	4F15566
04625	−0 50000 1 06650	5638		CAL	SCRIPL,A	4F15582
05112	0 50000 1 06650	5821	AC0000	CLA	SCRIPL,A	4F15765
05114	0 50000 1 06651	5823		CLA	SCRIPL+1,A	4F15767
05116	0 50000 1 06652	5825		CLA	SCRIPL+2,A	4F15769

SDRADD = 2707

Definition
05223 −0 75400 0 00000 5894 SDRADD PXD **,0 4F15838

References (2)

	05222	0 62100 0 05223	5893		STA	SDRADD	4F15837
	05225	0 46000 0 05223	5896		LDA	SDRADD	4F15840

SIG1IX = 296

Definition
00450 1 00003 0 02073 234 SIG1IX TXI ALT,,5−2 TXI ALT,,I 4F10226

References (3)

03442	0 60100 0 00445	3518	STO	SIG1IX−3	4F13461
04456	0 07400 4 00450	4052	TSX	SIG1IX,4 GO ENTER THIS RELATIVE ADDRESS IN SIGMA1.	4F13994
05221	0 40100 0 00446	5892	ADM	SIG1IX−2 FORM BASE OF TABLE + SIGMA TAG.	4F15836

SIG1ST = 2529

Definition

		4241			END OF PROGRAM ROYCNV.	4F14183
		4242			****************************** *	4F14184
		4243				4F14185
04741	0 00001 0 01230	4244	SIG1ST	PZE	SIGMA1+2,,1	4F14186

Reference
03441 0 50000 0 04741 3517 CLA SIG1ST 4F13460

SIGMA1 = 662

Definition
01226 6008 SIGMA1 SYN 0662 DRUM TABLE ORIGIN -DRTABS. 4F15948

References (4)

00445	0 00001 0 01230	231		PZE	SIGMA1+2,,1 TDA,,N	4F10223
00446	−3 00036 0 01226	232		TXL	SIGMA1,,30,* *** FDA,,K*L	4F10224
04741	0 00001 0 01230	4244	SIG1ST	PZE	SIGMA1+2,,1	4F14186
03524	0 73400 2 01226	5058	MC0520	PAX	SIGMA1,B S(K) TO XB	4F14992

SPECOP = 791

Definition
01427 +000000000053 347 SPECOP OCT 53 00000$ 4F10338

References (6)

03540	0 34000 0 01427	1760	CD800	CAS	SPECOP CHECK FOR $	4F11712
04202	0 34000 0 01427	4623		CAS	SPECOP EXAMINE OP1 (S(I))	4F14561
04452	0 34000 0 01427	4791		CAS	SPECOP	4F14729
04571	0 34000 0 01427	4870		CAS	SPECOP	4F14808
03457	0 34000 0 01427	5021		CAS	SPECOP	4F14955
03615	0 34000 0 01427	5116		CAS	SPECOP	4F15050

SR6DC1 = 1398

Definition

		1013			END OF PROGRAM RDRX.	4F11003
		1014			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11004
		1015				4F11005
		1016			SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000.	4F11006
		1017			SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV.	4F11007
02566	−0 63400 2 02574	1018	SR6DC1	SXD	SR6XR2,2 SAVE THE C(XR2), AND	4F11008

References (7)

03046	0 07400 1 02566	1203	TSX	SR6DC1,1 * IN E+3,5,7, AND	4F11193
03055	0 07400 1 02566	1210	TSX	SR6DC1,1 * CONVERT ADDENDS IN E+11,12,13,	4F11200
03133	0 07400 1 02566	1256	TSX	SR6DC1,1 * (BCD TO BINARY),	4F11246
03142	0 07400 1 02566	1263	TSX	SR6DC1,1 * CONVERT THEM FROM BCD TO BINARY,	4F11253
03175	0 07400 1 02566	1290	TSX	SR6DC1,1 * (BCD TO BINARY), AND	4F11280
03203	0 07400 1 02566	1296	TSX	SR6DC1,1 * (BCD TO BINARY), AND THEN	4F11286
03477	0 07400 1 02566	1722	TSX	SR6DC1,1 * RETURN HERE WITH RESULT IN ACC.	4F11674

SR6DC2 = 1401

Definition
02571 −0 75400 0 00000 1021 SR6DC2 PXD ,0 OBTAIN NEXT CHARACTER 4F11011
Reference
02610 2 00001 2 02571 1036 SR6DC4 TIX SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED, 4F11026

SR6DC3 = 1406

Definition
02576 0 34000 0 01417 1026 SR6DC3 CAS L(9) TEST FOR NUMERIC. 4F11016
Reference
02574 1 00000 0 02576 1024 SR6XR2 TXI SR6DC3,0,** IF NOT BLANK, 4F11014

SR6DC4 = 1416

Definition
02610 2 00001 2 02571 1036 SR6DC4 TIX SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED, 4F11026
Reference
02575 1 77777 0 02610 1025 ENDWRD TXI SR6DC4,0,−1 (DECR= END OF PROBLEM INDICATOR) 4F11015

SR6WRK = 577

Definition
01101 6009 SR6WRK SYN ERASE+1 ERASABLE STORAGE. 4F15949

References (7)

02570	0 60000 0 01101	1020	STZ	SR6WRK INITIALIZE OUTPUT CELL TO 0.	4F11010
02601	0 60100 0 01102	1029	STO	SR6WRK+1 SAVE DIGIT, AND	4F11019
02602	0 50000 0 01101	1030	CLA	SR6WRK MULTIPLY PREVIOUS PARTIAL	4F11020
02604	0 40000 0 01101	1032	ADD	SR6WRK AND ADD IN	4F11022
02606	0 40000 0 01102	1034	ADD	SR6WRK+1 NEW PARTIAL RESULT.	4F11024
02607	0 60100 0 01101	1035	STO	SR6WRK THEN ADJUST COUNT, AND	4F11025
02611	0 50000 0 01101	1037	CLA	SR6WRK LEAVE OUTPUT IN AC,	4F11027

SR6XR2 = 1404

Definition
02574 1 00000 0 02576 1024 SR6XR2 TXI SR6DC3,0,** IF NOT BLANK, 4F11014

References (2)

	02566	−0 63400 2 02574	1018	SR6DC1	SXD	SR6XR2,2 SAVE THE C(XR2), AND	4F11008
	02612	−0 53400 2 02574	1038		LXD	SR6XR2,2 RESTORE THE C(XR2), AND	4F11028

SS000X = 2344

Definition

		4042			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F13984
		4043				4F13985
		4044			PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN	4F13986
		4045			SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B.	4F13987
04450	−0 63400 4 04503	4046	SS000X	SXD	SSIR4,4 SAVE CALLING TAG.	4F13988

References (2)

	03751	0 07400 4 04450	3719		TSX	SS000X,4 GO PROCESS SUBSCRIPT COMBINATION	4F13662
	04013	0 07400 4 04450	3753	MS333	TSX	SS000X,4 GO PROCESS SUBSCRIPT COMBINATIONS	4F13695

SS0012 = 1438

Definition
02636 0 76700 2 00044 1064 SS0012 ALS 36,2 LEFT-ADJUST DIGIT TO 4F11054
Reference
02653 3 00000 1 02636 1077 TXH SS0012,1,0 CONTINUE BUILDING SYMBOL. BUT IF 4F11067

SS0013 = 1441

Definition
02641 1 77777 1 02642 1067 SS0013 TXI SS0014,1,−1 UPDATE COUNT OF CHARS COLLECTED. 4F11057
Reference
02640 1 00006 2 02641 1066 TXI SS0013,2,6 UPDATE SHIFT DECREMENT, AND 4F11056

SS0014 = 1442

Definition
02642 0 07400 4 01707 1068 SS0014 TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. 4F11058
Reference
02641 1 77777 1 02642 1067 SS0013 TXI SS0014,1,−1 UPDATE COUNT OF CHARS COLLECTED. 4F11057

SS0015 = 1444

Definition
02644 0 34000 4 01406 1070 SS0015 CAS CTEST,4 TEST THIS CHARACTER AGAINTT 4F11060
Reference
02647 2 00001 4 02644 1073 SS0016 TIX SS0015,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11063

SS0016 = 1447

Definition
02647 2 00001 4 02644 1073 SS0016 TIX SS0015,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11063
Reference
D 02645 1 00000 0 02647 1071 TXI SS0016,0 ALL PUNCTUATION. 4F11061

SS0017 = 1453

Definition
02655 0 07400 1 03242 1079 SS0017 TSX TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE. 4F11069
Reference
D 02651 1 00000 0 02655 1075 TXI SS0017,0 AND IF 4F11065

SS0018 = 1459

Definition
02663 −0 63400 4 01724 1085 SS0018 SXD CHCTR,4 SUBSCRIPT MULTIPLIER. 4F11075
Reference
02662 1 00001 4 02663 1084 TXI SS0018,4,1 TO BEGIN PROCESSING 4F11074

SS0045 = 1476

Definition
02704 0 53400 4 02652 1102 SS0045 LXA CTESTX,4 COMPARE CHARACTER 4F11092
Reference
D 02633 1 00000 0 02704 1061 TXI SS0045,0 RETURN TO EXPLICIT CODING. 4F11051

STACTR = 2431

Definition
04577 1 00000 0 04607 5616 STACTR TXI CP5720,0,0 4F15560

References (3)

04504	−0 63400 4 04577	5557		SXD	STACTR,C	4F15501
04514	−0 53400 4 04577	5565	CP5160	LXD	STACTR,C	4F15509
04545	−0 53400 4 04577	5590		LXD	STACTR,C	4F15534

STATEA = 1282

Definition

		878			END OF PROGRAM JIF(GIF).	4F10868
		879			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10869
		880				4F10870
		881			MTR000/ MONITOR ROUTINE FOR CALLING STATES FROM DRUM.	4F10871
		882			STATEA= ENTRY POINT FOR STATE A.	4F10872
02402	0 53400 4 01412	883	STATEA	LXA	L(4),4 SET C(XR4) = 4, THEN	4F10873

References (2)

	00551	0 60100 0 02402	1569		STO	STATEA PROGRAM INSTEAD OF TO STATE A.	4F11524
		02402	6002	MTR000	SYN	STATEA	4F15938

STATEB = 1284

Definition
885 STATEB= ENTRY POINT FOR STATE B. 4F10875

02404 0 53400 4 01410 886 STATEB LXA L(2),4 SET C(XR4) = 2, THEN 4F10876
Reference
02404 5948 ARITH SYN STATEB 4F15884

STATEC = 1286

Definition
888 STATEC= ENTRY POINT FOR STATE C. 4F10878

02406 0 53400 4 01407 889 STATEC LXA L(1),4 SET C(XR4) = 1, THEN 4F10879

References (2)

	03656	−3 00000 4 02406	3658		TXL	STATEC,4,0	4F13601
	03664	0 02000 0 02406	3664		TRA	STATEC	4F13607

STATED = 1288

Definition
891 STATED= ENTRY POINT FOR STATE D. 4F10881

02410 0 53400 4 01411 892 STATED LXA L(3),4 SET C(XR4) = 3, THEN 4F10882
Reference
04731 0 02000 0 02410 4966 TRA STATED GO FETCH STATE D 4F14904

STCKSM = 580

Definition
01104 6012 STCKSM SYN ERASE+4 COMMON WORKING STORAGE, 4F15952

STOP49 = 1488

Definition
02720 0 07400 4 03400 1114 STOP49 TSX DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104

References (2)

D	02654	1 00000 0 02720	1078		TXI	STOP49,0 SEVENTH CHAR, GO TO DIAGNOSTIC.	4F11068
	02714	−3 00000 1 02720	1110	SS009	TXL	STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP.	4F11100

STRSTR = 853

Definition
01525 −145400000000 409 STRSTR OCT −145400000000 EXPONENTIATION SIGN -ARITHMETIC. 4F10400

References (3)

03705	−0 50000 0 01525	3682	MS241	CAL	STRSTR REPLACE * WITH **	4F13625
04360	−0 50000 0 01525	3983		CAL	STRSTR	4F13925
04367	0 50000 0 01525	5479		CLA	STRSTR BASE FLO PT SINCE OP1(S(1))32=1	4F15418

SUBDEF = 140

Definition
00214 92 SUBDEF BSS 10 SUBROUTINE DEFINITION STATEMENTS. 4F10084
Reference
00363 0 00012 0 00214 154 PZE SUBDEF,,10 11) 0,,B. 4F10146

SUBX00 = 1684

Definition

		1313			END OF PROGRAM SS000.	4F11303
		1314			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11304
		1315				4F11305
		1316			SUBX00,4/ CALLERS=C3000,C3300.	4F11306
		1317			SUBX00 ADDS BLANKS TO THE NAMES OF SUBROUTINES.	4F11307
03224	0 53400 3 01414	1318	SUBX00	LXA	L(6),3 PREPARE TO COUNT CHARS AND SHIFTS.	4F11308

References (2)

	04457	0 07400 4 03224	2331		TSX	SUBX00,4 * FILL OUT NAME WITH BLANKS.	4F12291
	04632	0 07400 4 03224	2453	C3301	TSX	SUBX00,4 * IF THERE ARE NO ARGUMENTS, THEN	4F12402

SUBX01 = 1686

Definition
03226 −0 75400 0 00000 1320 SUBX01 PXD ,0 CLEAR THE AC, AND 4F11310
Reference
03233 2 00001 2 03226 1325 SUBX02 TIX SUBX01,2,1 CONTINUE UNTIL 6 CHARS ARE COUNTED. 4F11315

SUBX02 = 1691

Definition
03233 2 00001 2 03226 1325 SUBX02 TIX SUBX01,2,1 CONTINUE UNTIL 6 CHARS ARE COUNTED. 4F11315
Reference
03232 1 00006 1 03233 1324 TXI SUBX02,1,6 UPDATE SHIFT COUNT, AND 4F11314

SUBX03 = 1693

Definition
03235 0 56000 0 01526 1327 SUBX03 LDQ BLANKS IF LESS THEN 6 CHARACTERRS IN NAME, 4F11317
Reference
03231 0 10000 0 03235 1323 TZE SUBX03 IF NOT BLANK, THEN 4F11313

SYMBOL = 760

Definition
01370 309 SYMBOL BSS 1 WORKING STORAGE USED BY SS000. 4F10300

References (8)

02630	0 60000 0 01370	1058		STZ	SYMBOL CLEAR WORKING STORAGE.	4F11048
02637	−0 60200 0 01370	1065		ORS	SYMBOL BUILD SYMBOL.	4F11055
02674	−0 50000 0 01370	1094	SBX2	CAL	SYMBOL ADJUST MULTIPLIER	4F11084
02702	0 60000 0 01370	1100		STZ	SYMBOL CLEAR WORKING STORAGE.	4F11090
02715	−0 60200 0 01370	1111		ORS	SYMBOL BUILD SYMBOL.	4F11101
02755	−0 50000 0 01370	1145	SBP4	CAL	SYMBOL IF VARIABLE SUBSCRIPT.	4F11135
02761	−0 50100 0 01370	1149		ORA	SYMBOL CHARACTERS, AND	4F11139
03007	−0 50000 0 01370	1171	SBC9	CAL	SYMBOL ADJUST	4F11161

SYMWRD = 3194

Definition
06172 5926 SYMWRD BSS 1 4F15862

References (5)

04677	0 60100 0 06172	5680	STO	SYMWRD	4F15624
05117	0 60100 0 06172	5826	STO	SYMWRD	4F15770
05125	0 56000 0 06172	5832	LDQ	SYMWRD	4F15776
05162	−0 50000 0 06172	5861	CAL	SYMWRD	4F15805
05236	0 50000 0 06172	5905	CLA	SYMWRD MOVE VARIABLE NAME FOR NEXT CIT ENTRY.	4F15849

TABTAP = 148

Definition
00224 6013 TABTAP SYN 148 TABLE TAPE. 4F15953
Reference
03342 0 76600 0 00224 1423 TET01 WRS TABTAP PREPARE TO WRITE BLOCK ON TABTAP. 4F11413

TAGPRT = 3195

Definition
06173 5927 TAGPRT BSS 1 4F15863

References (2)

	04506	−0 50000 0 06173	5559		CAL	TAGPRT	4F15503
	05214	0 60200 0 06173	5887		SLW	TAGPRT SAVE FOR LATER USE.	4F15831

TAGWRD = 3192

Definition
06170 5924 TAGWRD BSS 1 4F15860

References (5)

04673	0 60100 0 06170	5676		STO	TAGWRD	4F15620
05113	0 60100 0 06170	5822		STO	TAGWRD	4F15766
05120	−0 50000 0 06170	5827	AC0060	CAL	TAGWRD	4F15771
05204	0 60200 0 06170	5879	AC0540	SLW	TAGWRD SUBSCRIPTED VARIABLE	4F15823
05205	0 56000 0 06170	5880		LDQ	TAGWRD	4F15824

TAU1IX = 281

Definition
00431 1 00001 0 02073 216 TAU1IX TXI ALT,,5−4 TXI ALT,,I 4F10208
Reference
03211 0 07400 4 00431 1302 TSX TAU1IX,4 * GO SEARCH TAU1 TABLE. 4F11292

TAU2IX = 286

Definition
00436 1 00001 0 02073 222 TAU2IX TXI ALT,,5−4 TXI ALT,,I 4F10214
Reference
03167 0 07400 4 00436 1284 TSX TAU2IX,4 * GO SEATCH TAU2 TABLE. 4F11274

TAU3IX = 291

Definition
00443 1 00001 0 02073 228 TAU3IX TXI ALT,,5−4 TXI ALT,,I 4F10220
Reference
03111 0 07400 4 00443 1238 TSX TAU3IX,4 * GO SEARCH TAU3 TABLE. 4F11228

TDRADD = 2686

Definition
05176 0 73400 2 00000 5873 TDRADD PAX 0,B 4F15817

TEIFNO = 30

Definition

	78			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F10070
	79				4F10071
	80			BUFFERS USED BY TET00 FOR THE TAPE TABLES.	4F10072
00036	81	TEIFNO	BSS	10 EXTERNAL,,INTERNAL FORMULA NUMBERS.	4F10073

Reference
00322 0 00012 0 00036 110 INTET PZE TEIFNO,,10 00) 0,,B. 4F10102

TESTA0 = 1703

Definition

		1342			END OF PROGRAM TESTFX.	4F11332
		1343			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11333
		1344				4F11334
		1345			TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000,	4F11335
		1346			C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR.	4F11336
		1347			TEST.. TESTS THE CHARACTER IN THE AC(30-35).	4F11337
		1348			TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK.	4F11338
03247	0 34000 0 01376	1349	TESTA0	CAS	COMMA	4F11339

References (6)

03675	0 07400 4 03247	1872	TSX	TESTA0,4 * TEST THE AC FOR COMMA OR ENDMARK.	4F11824
04340	0 07400 4 03247	2227	TSX	TESTA0,4 * TEST FOR COMMA OR ENDMARK.	4F12184
04372	0 07400 4 03247	2263	TSX	TESTA0,4 * TEST FOR COMMA OR ENDMARK.	4F12222
04430	0 07400 4 03247	2298	TSX	TESTA0,4 * TEST FOR COMMA OR ENDMARK.	4F12258
04515	0 07400 4 03247	2366	TSX	TESTA0,4 * NEXT CHARACTER FOR COMMA OR ENDMK.	4F12326
05226	0 07400 4 03247	2806	TSX	TESTA0,4 * FOR EITHER COMMA OR ENDMARK.	4F12756

TESTA1 = 1706

Definition
03252 0 40200 0 01374 1352 TESTA1 SUB ENDMK 4F11342
Reference
03250 0 02000 0 03252 1350 TRA TESTA1 4F11340

TESTB0 = 1709

Definition
1355 TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS. 4F11345

03255 0 34000 0 01376 1356 TESTB0 CAS COMMA 4F11346

References (5)

03764	0 07400 4 03255	1933		TSX	TESTB0,4 * TEST FOR COMMA OR RPAREN.	4F11885
04367	0 07400 4 03255	2260		TSX	TESTB0,4 * TEST FOR , OR ).	4F12219
04416	0 07400 4 03255	2288	C1503	TSX	TESTB0,4 * TEST FOR COMMA OR RPAREN.	4F12248
04472	0 07400 4 03255	2342		TSX	TESTB0,4 * NEXT CHAR SHD BE COMMA OR RPARAN.	4F12302
03604	0 07400 4 03255	3616		TSX	TESTB0,4 TEST CHAR FOLLOWING ARG FOR , OR)	4F13559

TESTB1 = 1712

Definition
03260 0 40200 0 01377 1359 TESTB1 SUB CLOS 4F11349
Reference
03256 0 02000 0 03260 1357 TRA TESTB1 4F11347

TESTC0 = 1715

Definition
1362 TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK. 4F11352

03263 0 34000 0 01375 1363 TESTC0 CAS OPEN 4F11353

References (2)

	04453	0 07400 4 03263	2327		TSX	TESTC0,4 * NEXT CHAR SHD BE LPAREN OR ENDMARK.	4F12287
	04612	0 07400 4 03263	2437		TSX	TESTC0,4 * SHD BE FOLLOWED BY LPAREN OR ENDMK.	4F12386

TESTC1 = 1718

Definition
03266 0 40200 0 01374 1366 TESTC1 SUB ENDMK 4F11356
Reference
03264 0 02000 0 03266 1364 TRA TESTC1 4F11354

TESTD0 = 1721

Definition
1369 TEST CHARACTER IN THE AC FOR ENDMARK. 4F11359

03271 0 34000 0 01374 1370 TESTD0 CAS ENDMK 4F11360

References (11)

03707	0 07400 4 03271	1882	TSX	TESTD0,4 * THE AC SHOULD CONTIAN AN ENDMARK.	4F11834
03727	0 07400 4 03271	1904	TSX	TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK.	4F11856
03775	0 07400 4 03271	1942	TSX	TESTD0,4 * TEST FOR ENDMK.	4F11894
04010	0 07400 4 03271	1953	TSX	TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK.	4F11905
04102	0 07400 4 03271	2018	TSX	TESTD0,4 * THIS SHOULD BE FOLLOWED BY ENDMARK.	4F11970
04137	0 07400 4 03271	2054	TSX	TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK.	4F12006
04235	0 07400 4 03271	2150	TSX	TESTD0,4 * THE NEXT NB CHAR SHOULD BE ENDMK.	4F12103
04252	0 07400 4 03271	2168	TSX	TESTD0,4 * THE NEXT NB CHARACTER SHD BE ENDMK.	4F12122
04434	0 07400 4 03271	2307	TSX	TESTD0,4 * CHARACTER SHOULD BE AN ENDMARK.	4F12267
04537	0 07400 4 03271	2389	TSX	TESTD0,4 * WHICH SHOULD BE AN ENDMARK.	4F12338
04671	0 07400 4 03271	2489	TSX	TESTD0,4 * WHICH SHOULD BE AN ENDMK.	4F12438

TESTE0 = 1725

Definition
1374 TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS. 4F11364

03275 0 34000 0 01375 1375 TESTE0 CAS OPEN 4F11365

References (5)

03743	0 07400 4 03275	1916	TSX	TESTE0,4 * WHICH SHOULD BE A LPARAN.	4F11868
04045	0 07400 4 03275	1989	TSX	TESTE0,4 * IF NOT LPAREN -- THEN ERROR.	4F11941
04270	0 07400 4 03275	2187	TSX	TESTE0,4 * NEXT NB CHARACTER SHOULD BE LPAREN.	4F12141
04355	0 07400 4 03275	2250	TSX	TESTE0,4 * CHARACTER SHOULD BE A LPAREN.	4F12208
04376	0 07400 4 03275	2272	TSX	TESTE0,4 * CHARACTER SHOULD BE A LPARAN.	4F12231

TESTE1 = 1728

Definition
03300 0 07400 4 03400 1378 TESTE1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11368
Reference
03276 0 02000 0 03300 1376 TRA TESTE1 4F11366

TESTF0 = 1729

Definition
1379 TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS. 4F11369

03301 0 34000 0 01377 1380 TESTF0 CAS CLOS 4F11370

References (2)

	04114	0 07400 4 03301	2034		TSX	TESTF0,4 * THIS SHOULD BE FOLLOWED BY RPAREN.	4F11986
	04412	0 07400 4 03301	2284		TSX	TESTF0,4 * 1ST NON-NUMERIC SHOULD BE A RPAREN.	4F12244

TESTF1 = 1732

Definition
03304 0 07400 4 03400 1383 TESTF1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11373
Reference
03302 0 02000 0 03304 1381 TRA TESTF1 4F11371

TESTFX = 1697

Definition

		1331			END OF PROGRAM SUBX00.	4F11321
		1332			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	4F11322
		1333				4F11323
		1334			TESTFX,1/ CALLERS=SS000,C3000,IFFIX.	4F11324
		1335			TESTFX TEST FOR FIXED OR FLOATING POINT VARIABLES.	4F11325
03241	−0 50000 0 01331	1336	TESTFX	CAL	FIRSTC COMPARE FIRST CHARACTER	4F11326

References (8)

	02655	0 07400 1 03242	1079	SS0017	TSX	TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE.	4F11069
	02743	0 07400 1 03241	1135		TSX	TESTFX,1 * GO TO TEST FOR FIXED POINT.	4F11125
	02763	0 07400 1 03241	1151		TSX	TESTFX,1 * GO TO TEST FOR FIXED POINT.	4F11141
	04475	0 07400 1 03241	2345		TSX	TESTFX,1 * GO TEST FOR FIXED OR FLOATING PT.	4F12305
	04530	0 07400 1 03242	2377		TSX	TESTFX+1,1 * FIXED POINT	4F123299
D	06001	1 00000 0 03242	3252		TXI	TESTFX+1,0 * GO TEST FOR FIXED OR FLOATING PT.	4F13200
	03730	0 07400 1 03242	3702		TSX	TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT.	4F13645
	03773	0 07400 1 03242	3737		TSX	TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT	4F13679

TESTG0 = 1733

Definition
1384 TEST CHARACTER IN THE AC FOR COMMA. 4F11374

03305 0 34000 0 01376 1385 TESTG0 CAS COMMA 4F11375

References (5)

03737	0 07400 4 03305	1912	TSX	TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA.	4F11864
04005	0 07400 4 03305	1950	TSX	TESTG0,4 * WHICH SHOULD BE A COMMA.	4F11902
04067	0 07400 4 03305	2007	TSX	TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.	4F11959
04074	0 07400 4 03305	2012	TSX	TESTG0,4 * THIS SHOULD BE FOLLWED BY A COMMA.	4F11964
04131	0 07400 4 03305	2048	TSX	TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA.	4F12000

TESTG1 = 1736

Definition
03310 0 07400 4 03400 1388 TESTG1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11378
Reference
03306 0 02000 0 03310 1386 TRA TESTG1 4F11376

TESTH0 = 1737

Definition
1389 TEST CHARACTER IN THE AC FOR NON-NUMERIC. 4F11379

03311 0 34000 0 01417 1390 TESTH0 CAS L(9) 4F11380

References (4)

04451	0 07400 4 03311	2325	TSX	TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.	4F12285
04467	0 07400 4 03311	2339	TSX	TESTH0,4 * WHICH SHOULD BE NON-NUMERIC	4F12299
04513	0 07400 4 03311	2364	TSX	TESTH0,4 * WHICH SHOULD BE NON-NUMERIC.	4F12324
04610	0 07400 4 03311	2435	TSX	TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.	4F12384

TESTI0 = 1741

Definition
1394 TEST CHARACTER IN THE AC FOR NUMERIC. 4F11384

03315 0 34000 0 01417 1395 TESTI0 CAS L(9) 4F11385
Reference
03655 0 07400 4 03315 1856 TSX TESTI0,4 * WHICH SHOULD BE NUMERIC. 4F11808

TETMQR = 579

Definition
01103 6019 TETMQR SYN ERASE+3 ERASABLE STORAGE, 4F15959

References (2)

	03323	−0 60000 0 01103	1408		STQ	TETMQR SAVE THE C(MQR).	4F11398
	03374	0 56000 0 01103	1449		LDQ	TETMQR RESTORE ORIGINAL C(MQR),	4F11439

TETWRK = 578

Definition
01102 6020 TETWRK SYN ERASE+2 ERASABLE STORAGE. 4F15960

References (4)

03334	0 60100 0 01102	1417	STO	TETWRK AND SAVE IT. THEN	4F11407
03337	0 40200 0 01102	1420	SUB	TETWRK COMPARE TO B.	4F11410
03343	0 53400 4 01102	1424	LXA	TETWRK,4 SET XR4 = BLOCK SIZE (B).	4F11414
03344	0 50000 0 01102	1425	CLA	TETWRK ADD BLOCK SIZE TO	4F11415

TETXR2 = 576

Definition
01100 6021 TETXR2 SYN ERASE ERASABLE STORAGE. 4F15961

References (2)

	03321	−0 63400 2 01100	1406	TET00	SXD	TETXR2,2 SAVE THE C(XR2),	4F11396
	03375	−0 53400 2 01100	1450		LXD	TETXR2,2 RESTORE ORIGINAL C(XR2),	4F11440

TETXR4 = 577

Definition
01101 6022 TETXR4 SYN ERASE+1 ERASABLE STORAGE. 4F15962

References (2)

	03322	−0 63400 4 01101	1407		SXD	TETXR4,4 SAVE THE C(XR4), AND	4F11397
	03376	−0 53400 4 01101	1451		LXD	TETXR4,4 RESTORE ORIGINAL C(XR4), AND	4F11441

TRBLKA = 1983

Definition
03677 3675 TRBLKA BSS 0 4F13618
Reference
03544 0 02000 4 03677 3584 TRA TRBLKA,4 4F13527

TRBLKB = 2007

Definition
03727 3700 TRBLKB BSS 0 BASE ADDRESS FOR TAGGED TRANSFER. 4F13643
Reference
03554 0 02000 4 03727 3592 TRA TRBLKB,4 NOW BRANCH TO INDIVIDUAL ROUTINE 4F13535

TSTOPS = 180

Definition
00264 96 TSTOPS BSS 10 STOP STATEMENTS. 4F10088
Reference
00377 0 00012 0 00264 170 PZE TSTOPS,,10 15) 0,,B. 4F10162

UPDATE = 1163

Definition
02213 0 60100 0 00000 794 UPDATE STO ** (....IX-3) 4F10784
Reference
02105 0 62100 0 02213 724 STA UPDATE PERMANENT PARAMETER. 4F10714

WHICHX = 1207

Definition
02267 −0 75400 4 00000 838 WHICHX PXD ,4 OTHERWISE, 4F10828
Reference
02264 0 10000 0 02267 835 TZE WHICHX TABLE OVERFLOWED. 4F10825

XASAVE = 1841

Definition
03461 1 00000 0 03511 5023 XASAVE TXI MC0410,0,0 4F14957

References (3)

03443	−0 63400 1 03461	5009	MC0030	SXD	XASAVE,A	4F14943
03510	−0 53400 1 03461	5046	MC0400	LXD	XASAVE,A GO TO S(I+1)	4F14980
03515	−0 53400 4 03461	5051		LXD	XASAVE,C	4F14985

XBSAVE = 1853

Definition
03475 1 00000 0 03502 5035 XBSAVE TXI MC0340,0,0 FLO PT 4F14969

References (2)

	03514	−0 63400 2 03475	5050	MC0440	SXD	XBSAVE,B SYMJ (S(ITT = SAME S(K)	4F14984
	03531	−0 53400 2 03475	5063	MC0570	LXD	XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K	4F14997

XERR01 = 1127

Definition
D 02147 1 00000 0 02256 758 XERR01 TXI WHICH,0 GO FIND OUT WHICH TABLE OVERFLOWED. 4F10748
Reference
02136 −3 00000 2 02150 749 TXL XERR01+1,2,0 SKIP IF TABLE IS EMPTY. 4F10739

XRSAVE = 3187

Definition
06163 5922 XRSAVE BSS 1 4F15858

References (3)

04040	0 60200 0 06163	5263	SLW	XRSAVE AND STO IN XRSAVE	4F15197
04130	−0 50000 0 06163	5319	CAL	XRSAVE	4F15253
04144	−0 50000 0 06163	5331	CAL	XRSAVE	4F15265

			4184				4F14126
	04652	+233000000000	4185	K1	OCT	233000000000 CONSTANT USED BY ROYCNV.	4F14127

			713			ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES.	4F10703
	02073	0 50000 0 00422	714	ALT	CLA	TXHOP PICK UP SWITCH CONTROL,	4F10704

			2543			BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD.	4F12492
D	04744	1 00000 0 05141	2544	BXT	TXI	RSC,0 * EXIT TO SCAN LIST, IF THERE IS ONE.	4F12493

			3110			CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN.	4F13058
	05623	−0 53400 4 05605	3111	CMB	LXD	BEX,4 RESTORE THE C(XR4), AND	4F13059

			2746			CXS = ENTRY POINT FROM EOS, BEG.	4F12696
	05146	0 62100 0 05156	2747	CXS	STA	CEXIT FOR LIST SCAN.	4F12697

			872			GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT).	4F10862
	02375	−0 50000 0 00030	873	GIF	CAL	EIFNO PICKUP IFN,	4F10863

			2744			LSC = ENTRY POINT FROM SPC.	4F12694
	05145	−0 50000 0 05204	2745	LSC	CAL	LISTR SET CONTROL TRANSFER	4F12695

			2752			NXC = ENTRY POINT FROM CMA.	4F12702
	05152	0 07400 4 01707	2753	NXC	TSX	C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC.	4F12703

			2748			NXS = ENTRY POINT FROM LPR, SPC, CMA.	4F12698
	05147	0 53400 2 01414	2749	NXS	LXA	L(6),2 RESET SYMBOL CHARACTER COUNT	4F12699

			2939			RPT = REENTRY POINT USED BY CMA.	4F12889
	05407	0 50000 0 05336	2940	RPT	CLA	SPC1 RESET CMA3 SWITCH	4F12890

			2879			SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATION SCAN.	4F12829
	05322	0 07400 4 05624	2880	SPC	TSX	TYP,4 * GO TEST TYPE OF SUBSCRIPT SPEC.	4F12830

			2674			TPO= ENTRY POINT USED BY RWN, BSP,	4F12623
	05067	0 60200 0 07401	2675	TPO	SLW	OP SET OP.	4F12624

			2504			TSC= ENTRY POINT USED BY RIT.	4F12453
	04677	0 60100 0 06143	2505	TSC	STO	TSA SET TSA.	4F12454

			2565			TSD = ENTRY POINT USED BY WOT, PDC.	4F12514
	04757	0 60100 0 06143	2566	TSD	STO	TSA SET TSA.	4F12515

			2509			TTC= ENTRY POINT USED BY RDP.	4F12458
	04703	0 60100 0 06144	2510	TTC	STO	TTA SET TTA.	4F12459

			3112			TYP = ENTRY POINT USED BY LPR,SPC,CMA,	4F13060
	05624	0 50000 0 07310	3113	TYP	CLA	CHR−6 TEST FIRST CHARACTER	4F13061

			3298			VRD = ENTRY POINT USED BY RIT,WOT,	4F13246
	06036	0 50000 0 00415	3299	VRD	CLA	TXLOP PREPARE TO SET OP-SWITCH TO NOP.	4F13247

			2646			XDR= ENTRY POINT USED BY RDD.	4F12595
	05046	0 60200 0 07401	2647	XDR	SLW	OP SET OP.	4F12596

			2951			CMA1 = ENTRY POINT USED BY EMK.	4F12901
	05414	0 07400 4 05624	2952	CMA1	TSX	TYP,4 * TYPE TEST FOR NON-SUBSCR. VAR.	4F12902

			2957			CMA7 = ENTRY POINT USED BY LPR.	4F12907
	05421	0 53400 4 07400	2958	CMA7	LXA	DOLEV,4 IF DOLEV ADDRESS = 0, AND IF	4F12908

			843				4F10833
	02274	0 00000 0 00412	844	CONX	PZE	FXCNIX−5 CONSTANT USED BY DRTABS.	4F10834

			3066			FINI = ENTRY POINT USED BY EFT.	4F13016
	05567	0 50000 0 05376	3067	FINI	CLA	RESET RESET BXT SWITCH	4F13017

			3055			LAST = ENTRY POINT SET BY BXT SWITCH.	4F13005
	05555	0 07400 4 01731	3056	LAST	TSX	CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY=	4F13006

			2899			SPC5 = ENTRY POINT USED BY RPR.	4F12849
	05345	0 62100 0 00000	2900	SPC5	STA	** SET BETA EQUAL TO IFNO.	4F12850

			911				4F10901
	02433	0 02663 0 00000	912	ZETA	PZE	DEL(A),,ENDADR−ORGA	4F10902

			1969			C0200= ENTRY POINT USED BY C0400,C1000.	4F11921
	04030	0 07400 1 03321	1970	C0202	TSX	TET00,1 * GO TO TET TO ENTER 1C AND 1C+1	4F11922

			2030			C0401= ENTRY POINT USED BY C0500.	4F11982
	04111	0 60100 0 01116	2031	C0401	STO	2H SET 2H FOR SENSE SWITCH OR LIGHT.	4F11983

			2040			C0402= ENTRY POINT USED BY C0600.	4F11992
	04122	0 60100 0 01110	2041	C0402	STO	1C+3 SET 1C+3 FOR CIT ENTRY.	4F11993

			2080			C0601= ENTRY POINT USED BY C0700.	4F12032
	04157	0 60100 0 01105	2081	C0601	STO	1C SET 1C FOR FUTURE TIFGO ENTRY.	4F12033

			2090			C0701= ENTRY POINT USED BY C0800.	4F12042
	04163	0 60100 0 01116	2091	C0701	STO	2H SET 2H FOR FUTURE CIT ENTRY.	4F12043