Symbols

␣␣␣␣BK = 312

Definition
00470 1365 BK SYN 312 F1P13650
Reference
01225 −0 53400 1 00470 60 LXD BK,1 F1P00600

␣␣␣␣E1 = 4071

Definition
07747 1323 E1 SYN E4 F1P13230

References (3)

02044	0 62100 0 07747	469	STA	E1 SAVE BETA	F1P04690
02052	0 40200 0 07747	475	SUB	E1 BETA COMPARED WITH TABLE ARGUMENT	F1P04750
02064	0 40200 0 07747	485	SUB	E1	F1P04650

␣␣␣␣E2 = 4070

Definition
07746 1324 E2 SYN E3 F1P13240

References (2)

	02060	0 62200 0 07746	481		STD	E2 SAVE DECR OF FIRST POSSIBILITY	F1P04810
	02066	0 50000 0 07746	487	MDO08	CLA	E2 THERE IS ONLY ONE ENTRY	F1P04870

␣␣␣␣E3 = 4070

Definition
07746 0 00000 0 00000 1313 E3 NON ERASABLE 0416 TO 0908 F1P13130

References (10)

01650	0 62100 0 07746	343		STA	E3 SAVE A1.	F1P03430
01654	0 40200 0 07746	347		SUB	E3 COMPARE TEIFNO ARGUMENT WITH A1.	F1P03470
01666	0 62100 0 07746	357		STA	E3 SAVE A3	F1P03570
01672	0 40200 0 07746	361		SUB	E3 COMPARE TEIFNO ARGUMENT WITH A3	F1P03610
01704	0 62100 0 07746	371		STA	E3 SAVE A2	F1P03710
01710	0 40200 0 07746	375		SUB	E3 COMPARE TEIFNO ARGUMENT WITH A2	F1P03750
01776	0 62200 0 07746	430		STD	E3 SAVE A SUB I PRIME	F1P04300
02005	0 50000 0 07746	437	MTR03	CLA	E3 A SUB I PRIME GOES TO AC DECR.	F1P04370
	07746	1324	E2	SYN	E3	F1P13240
	07746	1344	E12	SYN	E3	F1P13440

␣␣␣␣E4 = 4071

Definition
07747 0 00000 0 00000 1314 E4 F1P13140

References (2)

		07747	1323	E1	SYN	E4	F1P13230
		07747	1345	E1RF	SYN	E4	F1P13450

␣␣␣␣EQ = 2409

Definition
04551 1334 EQ SYN OTA F1P13340

References (3)

01121	0 00000 0 04551	807			EQ	F1P08070
01223	−0 53400 1 04550	877	C6CLQ	LXD	EQ−1,1 PREPARE TO SCAN EQ TABLE	F1P08770
01574	0 00000 0 04551	1118	L(EQ)		EQ	F1P11180

␣␣␣1TA = 1651

Definition
03163 512 1TA BSS 750 BLOCK FOR TABLE ASSEMBLING F1P05120

References (6)

02016	0 00000 0 03163	446	OATDO		1TA	F1P04460
02017	0 50000 0 03162	448	MDOTP	CLA	1TA−1 GET NUMBER OF WORDS IN ITA	F1P04480
02076	0 00000 0 03163	495	T0T1	HTR	1TA	F1P04950
	03163	1329	COMP	SYN	1TA	F1P13290
	03163	1330	2TA	SYN	1TA	F1P13300
	03163	1331	3TA	SYN	1TA	F1P13310

␣␣␣2TA = 1651

Definition
03163 1330 2TA SYN 1TA F1P13300

References (3)

01613	0 00000 0 03163	313	L(2TA)	HTR	2TA	F1P03130
01614	0 50000 0 03162	315	MFGTP	CLA	2TA−1 GET NUMBER OF WORDS IN 2TA.	F1P03150
01753	0 00000 0 03163	410		HTR	2TA	F1P04100

␣␣␣3TA = 1651

Definition
03163 1331 3TA SYN 1TA F1P13310

References (3)

01756	0 00000 0 03163	413	L(3TA)	HTR	3TA	F1P04130
01757	0 50000 0 03162	415	MTRTP	CLA	3TA−1 GET NUM OF WORDS IN 3TA	F1P04150
02013	0 00000 0 03163	443			3TA	F1P04430

␣␣␣4TA = 908

Definition
01614 1335 4TA SYN XTA F1P13350

References (2)

	00620	0 00000 0 01614	610		HTR	4TA	F1P06100
	00623	0 00000 0 01614	613		HTR	4TA	F1P06130

␣␣␣5TA = 908

Definition
01614 1336 5TA SYN XTA F1P13360

References (2)

	00612	0 00000 0 01614	604		HTR	5TA	F1P06040
	00615	0 00000 0 01614	607		HTR	5TA	F1P06070

␣␣␣6TA = 908

Definition
01614 1337 6TA SYN XTA F1P13370

References (9)

00512	0 00000 0 01614	526	TOT6	HTR	6TA	F1P05260
00513	−0 53400 4 01613	527		LXD	6TA−1,4 TEST FOR ENTRIES IN FORVAL, IF NONE WRITE	F1P05270
00524	−0 53400 4 01613	546		LXD	6TA−1,4 NO OF ENTRIES IN FORVAL.	F1P05460
00535	0 34000 1 01614	556	CLMD02	CAS	6TA,1 COMPARE CALL FIRST IN AC TO NEXT FORVAL.	F1P05560
00543	0 62200 1 01614	563		STD	6TA,1 FIRST RELATED TO CALL WITH LAST.	F1P05630
00550	0 00000 0 01614	570		HTR	6TA ON TAPE	F1P05700
00551	0 50000 0 01613	571		CLA	6TA−1 GET NUMBER OF WORDS IN FORVAL	F1P05710
00576	−0 53400 1 01613	592		LXD	6TA−1,1	F1P05920
	03564	1348	16TA	SYN	6TA+1000	F1P13480

␣␣␣7TA = 908

Definition
01614 1338 7TA SYN XTA F1P13380

References (7)

00626	0 00000 0 01614	617	TOT7	HTR	7TA ORIGIN OF ASSEMBLED FRET,	F1P06170
00627	0 50000 0 01613	618	MFRTP	CLA	7TA−1 GET NUM OF WORDS IN TABLE	F1P06180
00664	0 50000 0 01613	648	SFRTP	CLA	7TA−1 GET NUMBER OF WORDS IN FRET	F1P06480
00700	−0 53400 1 01613	660		LXD	7TA−1,1 SET INDEX A TO NUM OF WORDS IN 7TA	F1P06600
01032	0 50000 0 01613	752	RFT07	CLA	7TA−1 COMPUTE TABLE	F1P07520
01056	−0 53400 1 01613	772		LXD	7TA−1,1 SET INDEX A TO NUM OF WORDS IN FRET	F1P07720
01116	0 00000 0 01614	804		HTR	7TA ON TAPE	F1P08040

␣␣␣9TA = 908

Definition
01614 1339 9TA SYN XTA F1P13390

References (6)

01461	0 00000 0 01614	1041	TOT9		9TA	F1P10410
01462	0 50000 0 01613	1043	RDCTP	CLA	9TA−1 GET NUMBER OF WORDS IN 9TA	F1P10430
01474	0 34000 2 01614	1053	REC02	CAS	9TA,2 COMPARE WITH 9TA WORD	F1P10530
01504	0 60100 2 01614	1061		STO	9TA,2 ENTER UNEQUAL 9TA WORD IN TABLE	F1P10610
01513	−0 63400 4 01613	1068		SXD	9TA−1,4	F1P10680
01516	0 00000 0 01614	1071		HTR	9TA ON TAPE	F1P10710

␣␣␣CIB = 416

Definition
00640 1368 CIB SYN 416 F1P13680
Reference
01163 0 70000 1 00640 25 AA3PTS CPY CIB,1 CIT F1P00250

␣␣␣E10 = 900

Definition
1126 WORKING STORAGE FOR PROGRAM AMW F1P11260

01604 0 00000 0 00000 1127 E10 F1P11270

References (2)

	00647	0 62100 0 01604	634		STA	E10 SAVE ABSOLUTE PART OF WORD	F1P06340
	00653	0 40200 0 01604	638		SUB	E10	F1P06380

␣␣␣E11 = 901

Definition
01605 0 00000 0 00000 1128 E11 AMW2105 F1P11280

References (2)

	00704	0 62100 0 01605	664	SFR02	STA	E11 SAVE ALPHA ONE FOR COMPARISON	F1P06640
	00714	0 40200 0 01605	672		SUB	E11 MINUS ALPHA ONE	F1P06720

␣␣␣E12 = 4070

Definition
07746 1344 E12 SYN E3 F1P13440

References (3)

00677	0 60100 0 07746	659		STO	E12 TABLE IS IN ORDER.	F1P06590
00717	0 60100 0 07746	675		STO	E12 NOT IN ORDER ON THIS PASS.	F1P06750
00762	0 50000 0 07746	710	SFR21	CLA	E12 TEST IF TABLE IS IN ORDER	F1P07100

␣␣␣E1A = 4075

Definition
07753 1318 E1A BSS 1 F1P13180

References (2)

	07553	0 70000 0 07753	1188		CPY	E1A COPY IDENTIFICATION	F1P11880
	07556	0 50000 0 07753	1191	TAP025	CLA	E1A	F1P11910

␣␣␣E1W = 4054

Definition
1296 F1P12960

07726 0 00000 0 00000 1297 E1W F1P12970

References (2)

	07656	−0 63400 2 07726	1256	WAT00	SXD	E1W,2 START PROGRAM WAT	F1P12560
	07724	−0 53400 2 07726	1294	WAT06	LXD	E1W,2 RESTORE INDEX B	F1P12940

␣␣␣E2A = 4076

Definition
07754 1319 E2A BSS 1 F1P13190

References (3)

07506	−0 60000 0 07754	1151		STQ	E2A	F1P11510
07613	0 56000 0 07754	1220	TAP13	LDQ	E2A	F1P12200
07705	0 70000 0 07754	1279	WAT07	CPY	E2A	F1P12790

␣␣␣E2W = 4055

Definition
07727 0 00000 0 00000 1298 E2W F1P12980

References (3)

07660	0 60100 0 07727	1258		STO	E2W TWO TAPE TESTS	F1P12580
07714	0 50000 0 07727	1286	WAT10	CLA	E2W	F1P12860
07716	0 60100 0 07727	1288		STO	E2W	F1P12880

␣␣␣E3A = 4077

Definition
07755 1320 E3A BSS 1 F1P13200

References (2)

	07507	−0 63400 2 07755	1152		SXD	E3A,2	F1P11520
	07614	−0 53400 2 07755	1221		LXD	E3A,2	F1P12210

␣␣␣E4A = 4078

Definition
07756 1321 E4A BSS 1 F1P13210

References (2)

	07510	−0 63400 4 07756	1153		SXD	E4A,4	F1P11530
	07615	−0 53400 4 07756	1222		LXD	E4A,4	F1P12220

␣␣␣E5A = 4079

Definition
07757 1322 E5A BSS 1 F1P13220

References (3)

07551	0 60100 0 07757	1186	STO	E5A	F1P11860
07623	0 50000 0 07757	1228	CLA	E5A	F1P12280
07625	0 60100 0 07757	1230	STO	E5A	F1P12300

␣␣␣END = 752

Definition
01360 0 50000 0 01576 975 END CLA BOX2 COMPUTE F1P09750
Reference
01217 0 02000 0 01360 872 TRA END EXIT FOR COMPLETELY DELETED EO TABL F1P08720

␣␣␣IT1 = 904

Definition
01610 0 00000 0 00000 1131 IT1 AMW 2510 F1P11310

References (3)

00774	0 60100 0 01610	722		STO	IT1 TWO TAPE TESTS	F1P07220
01023	0 50000 0 01610	745	RFT06	CLA	IT1 COUNT	F1P07450
01025	0 60100 0 01610	747		STO	IT1 TAPE TESTS	F1P07470

␣␣␣MSK = 4066

Definition
07742 +000000077777 1309 MSK OCT 77777 AMWO5O3 F1P13090

References (12)

01242	−0 50000 0 07742	74		CAL	MSK	F1P00740
01653	−0 32000 0 07742	346		ANA	MSK ERASE AL PRIME IN AC.	F1P03460
01671	−0 32000 0 07742	360		ANA	MSK ERASE A3 PRIME IN AC	F1P03600
01707	−0 32000 0 07742	374		ANA	MSK ERASE A2 PRIME IN AC	F1P03740
01737	−0 32000 0 07742	398		ANA	MSK ERASE K PRIME	F1P03980
01777	−0 32000 0 07742	431		ANA	MSK ERASE SUB I PRIME	F1P04310
02043	−0 32000 0 07742	468	MDO01	ANA	MSK ERASE DECR IN AC	F1P04680
02051	−0 32000 0 07742	474		ANA	MSK ERASE BETA PRIME	F1P04740
02063	−0 32000 0 07742	484		ANA	MSK ERASE DECR IN AC	F1P04840
00533	−0 32000 0 07742	554		ANA	MSK	F1P05540
00652	−0 32000 0 07742	637		ANA	MSK COMPARE WITH 7TA WORD	F1P06370
01053	−0 32000 0 07742	769		ANA	MSK ERASE DECREMENT OF AC	F1P07690

␣␣␣MWN = 4003

Definition
07643 0 00000 0 75152 1243 MWN −1430 F1P12430
Reference
07524 0 50000 2 07655 1165 CLA MWN+10,2 F1P11650

␣␣␣OAD = 3992

Definition
07630 0 00000 0 00322 1233 OAD INTET F1P12330
Reference
07516 0 40000 0 07630 1159 ADD OAD F1P11590

␣␣␣OTA = 2409

Definition
04551 1148 OTA BSS 1500 BLOCK FOR ASSEMBLED TEIFNO F1P11480

References (65)

01254	0 70000 4 05453	84	FL03	CPY	OTA+450,4 COPY FLOCON FROM DRUM	F1P00840
01261	0 36100 4 05453	89	FL05	ACL	OTA+450,4 FOLLOWED BY THE FIFTY WORDS	F1P00890
01264	0 36100 4 05453	92	FL06	ACL	OTA+450,4	F1P00920
01303	0 70000 4 05453	107	FL11	CPY	OTA+450,4	F1P01070
01312	0 00000 0 04551	115			OTA	F1P01150
01315	0 00000 0 04551	118			OTA	F1P01180
01325	0 70000 1 04551	127	ADD03	CPY	OTA,1 COPY NAME	F1P01270
01326	0 70000 1 04552	128		CPY	OTA+1,1 COPY N1	F1P01280
01335	0 36100 1 04551	135	ADD05	ACL	OTA,1 SUM ENTRIES	F1P01350
01336	0 36100 1 04552	136		ACL	OTA+1,1	F1P01360
01357	0 70000 1 04551	154	ADD11	CPY	OTA,1 COPY NAME	F1P01540
01360	0 70000 1 04552	155		CPY	OTA+1,1 COPY N1 N2	F1P01550
01367	0 36100 1 04551	162	ADD13	ACL	OTA,1	F1P01620
01370	0 36100 1 04552	163		ACL	OTA+1,1	F1P01630
01403	0 50000 1 04552	174	ADD16	CLA	OTA+1,1	F1P01740
01407	−0 60000 1 04552	178		STQ	OTA+1,1	F1P01780
01422	0 70000 1 04551	190	ADD21	CPY	OTA,1	F1P01900
01423	0 70000 1 04552	191		CPY	OTA+1,1	F1P01910
01433	0 36100 1 04551	199	ADD23	ACL	OTA,1	F1P01990
01434	0 36100 1 04552	200		ACL	OTA+1,1	F1P02000
01447	0 50000 1 04552	211	ADD26	CLA	OTA+1,1	F1P02110
01455	−0 60000 1 04552	217		STQ	OTA+1,1	F1P02170
01475	0 36100 2 04551	234	ADD33	ACL	OTA,2 COMPUTE CK SUM FOR SIZ TABLE	F1P02340
01500	0 60200 2 04551	237		SLW	OTA,2	F1P02370
01510	0 70000 2 04551	245	ADD29	CPY	OTA,2	F1P02450
01522	0 00000 0 04551	255			OTA	F1P02550
01525	0 00000 0 04551	258			OTA	F1P02580
01530	0 00000 0 04551	261			OTA	F1P02610
01533	0 00000 0 04551	264			OTA	F1P02640
01536	0 00000 0 04551	267			OTA	F1P02670
01541	0 00000 0 04551	270			OTA	F1P02700
01544	0 00000 0 04551	273		HTR	OTA	F1P02730
01546	−0 53400 4 04550	275		LXD	OTA−1,4 LENGTH OF TEIFNO INTO I.R.4	F1P02750
01553	0 50000 1 04551	280	NEXT	CLA	OTA,1 PICK UP NEXT ENTRY IN TEIFNO	F1P02800
01555	0 60200 1 04551	282		SLW	OTA,1	F1P02820
01567	0 50000 2 04551	292	PAT16	CLA	OTA,2 PICK UP ENTRY TO BE COMPARED	F1P02920
01600	0 50000 2 04551	302	PAT9	CLA	OTA,2 FLAG DUPLICATE ENTRY NEGATIVE	F1P03020
01602	0 60100 2 04551	304		STO	OTA,2	F1P03040
01603	0 50200 1 04550	305		CLS	OTA−1,1	F1P03050
01604	0 60100 1 04550	306		STO	OTA−1,1	F1P03060
01610	0 00000 0 04551	310			OTA	F1P03100
01631	0 50000 0 04550	328		CLA	OTA−1 GET NUM WORDS IN OTA	F1P03280
01651	−0 53400 4 04550	344		LXD	OTA−1,4 SET INDEX C TO NUM WORDS IN OTA.(2)	F1P03440
01667	−0 53400 4 04550	358		LXD	OTA−1,4 (2)	F1P03580
01705	−0 53400 4 04550	372		LXD	OTA−1,4 (2)	F1P03720
01735	−0 53400 4 04550	396	MFG16	LXD	OTA−1,4 (2)	F1P03960
01766	0 50000 0 04550	422		CLA	OTA−1 GET NUMBER WORDS IN OTA.	F1P04220
01774	−0 53400 4 04550	428	MTR00	LXD	OTA−1,4 SET INDEX C TO NUM WORDS IN OTA	F1P04280
02027	0 50000 0 04550	456		CLA	OTA−1 GET NUMBER WORDS IN OTA	F1P04560
02045	−0 53400 4 04550	470		LXD	OTA−1,4 SET INDEX C TO NUM WORDS IN OTA	F1P04700
00636	0 50000 0 04550	625		CLA	OTA−1 GET NUMBER OF WORDS IN OTA	F1P06250
00650	−0 53400 1 04550	635		LXD	OTA−1,1 SET INDEX TO NUM WORDS IN OTA	F1P06350
00660	0 50000 1 04551	643	MFR02	CLA	OTA,1 TEIFNO WORD GOES TO AC	F1P06430
00722	0 60100 4 04551	678		STO	OTA,4 SAVE ALPHA TWO	F1P06780
00727	0 60100 4 04551	683	SFR09	STO	OTA,4 SAVE WORDS OF ALPHA TWO ENTRY	F1P06830
00735	0 60100 4 04551	689	SFR12	STO	OTA,4 SAVE ALPHA ONE	F1P06890
00746	0 60100 4 04551	698	SFR14	STO	OTA,4 SAVE WORDS OF ALPHA ONE ENTRY	F1P06980
00752	0 50000 2 04551	702	SFR16	CLA	OTA,2 ALPHA ONE ENTRY AND ALPHA TWO ENTRY	F1P07020
01002	0 70000 0 04550	728	RFT01	CPY	OTA−1 GET NUMBER OF WORDS	F1P07280
01003	0 50000 0 04550	729		CLA	OTA−1 IN TAPE RECORD	F1P07290
01011	0 70000 2 04551	735	RFT03	CPY	OTA,2	F1P07350
01040	0 50000 0 04550	758		CLA	OTA−1 GET NUMBER OF WORDS IN TI FGO	F1P07580
07750	0 00000 0 04551	1315	L(0TA)		OTA	F1P13150
	04550	1333	EQM1	SYN	OTA−1	F1P13330
	04551	1334	EQ	SYN	OTA	F1P13340

␣␣␣OUT = 812

Definition
01454 0 07400 1 07656 1036 OUT TSX WAT00,1 WRITE EQUIT ON TAPE. F1P10360

References (2)

	01162	−3 00000 1 01454	843		TXL	OUT,1,0 EXIT FOR EMPTY EQ TABLE	F1P08430
	01451	−3 00000 4 01454	1033		TXL	OUT,4,0	F1P10330

␣␣␣WEF = 668

Definition
01234 0 77000 0 00222 67 WEF WEF 146 F1P00670
Reference
01226 −3 00000 1 01234 61 TXL WEF,1,0 TEST FOR EMPTY TABLE F1P00610

␣␣␣XTA = 908

Definition
01614 1136 XTA BSS 1500 THIS IS TABLE ASSEMBLY BUFFER OF PART 2 F1P11360

References (13)

01536	0 00000 0 01614	1087			XTA	F1P10870
01541	0 00000 0 01614	1090			XTA	F1P10900
01544	0 00000 0 01614	1093			XTA	F1P10930
01547	0 00000 0 01614	1096			XTA	F1P10960
	01614	1335	4TA	SYN	XTA	F1P13350
	01614	1336	5TA	SYN	XTA	F1P13360
	01614	1337	6TA	SYN	XTA	F1P13370
	01614	1338	7TA	SYN	XTA	F1P13380
	01614	1339	9TA	SYN	XTA	F1P13390
	01613	1340	MEEQM1	SYN	XTA−1	F1P13400
	01614	1341	MEEQ	SYN	XTA	F1P13410
	03172	1342	FRTS	SYN	XTA+750	F1P13420
	03564	1343	FRCHS	SYN	XTA+1000	F1P13430

␣␣16TA = 1908

Definition
03564 1348 16TA SYN 6TA+1000 F1P13480

References (2)

	00517	0 00000 0 03564	532	L16TA		16TA	F1P05320
	00520	−0 53400 2 03563	534		LXD	16TA−1,2 TEST FOR ANY ENTRIES IN CALL NUMBER TABLE,	F1P05340

␣␣BBOX = 415

Definition
00637 1367 BBOX SYN 415 F1P13670
Reference
01156 −0 53400 2 00637 20 LXD BBOX,2 F1P00200

␣␣BOX1 = 893

Definition
01575 0 00000 0 00000 1119 BOX1 F1P11190

References (9)

01144	0 60200 0 01575	828		SLW	BOX1	F1P08280
01222	−0 53400 2 01575	876		LXD	BOX1,2 SET INDEX B TO GET 1ST SYMB OF MEEQ	F1P08760
01261	−0 63400 2 01575	908	F1CLQ	SXD	BOX1,2 NEXT SET IN TABLE MEEO AND	F1P09080
01350	−0 53400 2 01575	967	E0CLQ	LXD	BOX1,2	F1P09670
01371	−0 63400 2 01575	985		SXD	BOX1,2	F1P09850
01372	−0 53400 2 01575	986	M6CLQ	LXD	BOX1,2 OBTAIN	F1P09860
01412	−0 53400 2 01575	1002	M9CLQ	LXD	BOX1,2 PREPARE TO GET	F1P10020
01414	−0 63400 2 01575	1004	M5CLQ	SXD	BOX1,2 SYMBOL	F1P10040
01421	−0 63400 2 01575	1009	M8CLQ	SXD	BOX1,2	F1P10090

␣␣BOX2 = 894

Definition
01576 0 00000 0 00000 1120 BOX2 F1P11200

References (9)

01160	0 60100 0 01576	840		STO	BOX2	F1P08400
01163	−0 53400 2 01576	844		LXD	BOX2,2 PREPARE TO ENTER	F1P06440
01210	−0 63400 2 01576	865		SXD	BOX2,2 AND ITS MEEQ INDEX	F1P08650
01220	−0 53400 2 01576	874	C0CLQ	LXD	BOX2,2 INITIALIZE TEST	F1P06740
01254	−0 53400 2 01576	903	F2CLQ	LXD	BOX2,2 INDICATE	F1P09030
01273	−0 53400 2 01576	919		LXD	BOX2,2	F1P09190
01321	−0 63400 2 01576	941	A8CLQ	SXD	BOX2,2	F1P09410
01360	0 50000 0 01576	975	END	CLA	BOX2 COMPUTE	F1P09750
01366	−0 53400 2 01576	982		LXD	BOX2,2 INITIALIZATION	F1P09820

␣␣CLEQ = 594

Definition

		808			PROGRAM FOR CLASSES OF EQUIVALENCE	F1P08080
		809			INITIALIZATION OF ADDRESSES AND STORAGE	F1P08090
01122	0 50000 0 04550	810	CLEQ	CLA	EQM1 COMPUTE EO ORIGIN PLUS	F1P08100

␣␣COMP = 1651

Definition
03163 1329 COMP SYN 1TA F1P13290

References (2)

	01176	0 70000 4 03163	36	A6PTS	CPY	COMP,4 COPY A RECORD OF COMPILED	F1P00360
	01212	0 70000 2 03163	48	A9PTS	CPY	COMP,2 FROM STORAGE	F1P00480

␣␣DIAG = 4

Definition
00004 1328 DIAG SYN 4 F1P13280

References (15)

01160	0 07400 4 00004	22		TSX	DIAG,4 STOP FOR NO INSTRUCTIONS COMPILED	F1P00220
01221	0 07400 4 00004	55		TSX	DIAG,4 STOP FOR 5TH READ CHECK	F1P00550
01274	0 07400 4 00004	100		TSX	DIAG,4 CK SUM FAILED FIVE TIMES	F1P01000
01307	0 07400 4 00004	111	ERROR	TSX	DIAG,4 INDEX RAN OUT AT CK SUM	F1P01110
01345	0 07400 4 00004	143		TSX	DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM	F1P01430
01377	0 07400 4 00004	170		TSX	DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM	F1P01700
01444	0 07400 4 00004	208		TSX	DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM	F1P02080
01001	0 07400 4 00004	727		TSX	DIAG,4 STOP FOR TABLE NOT IN RIGHT RECORD	F1P07270
01031	0 07400 4 00004	751		TSX	DIAG,4 STOP FOR SECOND TAPE TEST	F1P07510
07555	0 07400 4 00004	1190		TSX	DIAG,4 EOF MACHINE ERROR	F1P11900
07563	0 07400 4 00004	1196		TSX	DIAG,4 EOF MACHINE ERROR	F1P11960
07620	0 07400 4 00004	1225	OVFLOW	TSX	DIAG,4 BUFFER AREA EXCEEDED	F1P12250
07627	0 07400 4 00004	1232		TSX	DIAG,4 THREE FAILURES IN READING A RECORD FROM T4	F1P12320
07720	0 07400 4 00004	1290		TSX	DIAG,4 STOP FOR THIRD TAPE CHECK	F1P12900
07751	0 07400 4 00004	1316	TEIFER	TSX	DIAG,4	F1P13160

␣␣E1RF = 4071

Definition
07747 1345 E1RF SYN E4 F1P13450

References (4)

00775	0 70000 0 07747	723	CPY	E1RF GET TABLE NUMBER	F1P07230
00776	0 50000 0 07747	724	CLA	E1RF AND COMPARE WITH	F1P07240
01026	0 70000 0 07747	748	CPY	E1RF GET TABLE NUMBER	F1P07480
01027	0 70000 0 07747	749	CPY	E1RF GET NUMBER OF WORDS IN TABLE	F1P07490

␣␣EQM1 = 2408

Definition
04550 1333 EQM1 SYN OTA−1 F1P13330

References (3)

01122	0 50000 0 04550	810	CLEQ	CLA	EQM1 COMPUTE EO ORIGIN PLUS	F1P08100
01153	−0 53400 4 04550	835		LXD	EQM1,4	F1P08350
01161	−0 53400 1 04550	842	BOCLQ	LXD	EQM1,1 SET INDEX A TO MUM OF WORDS IN EQ	F1P08420

␣␣FL00 = 669

Definition
68 PROGRAM FOR SAVING FLOCON TABLE F1P00680

01235 −0 53400 4 00421 69 FL00 LXD FLCNIX−3,4 (N) F1P00690

␣␣FL01 = 680

Definition
01250 0 53400 2 07735 80 FL01 LXA L(5),2 SET TO TRY FIVE TIMES IF CK SUM FAILS F1P00800

␣␣FL02 = 681

Definition
01251 0 53400 4 01256 81 FL02 LXA FL04,4 (L) F1P00810
Reference
01273 2 00001 2 01251 99 TIX FL02,2,1 CK SUM FAILED, TRY AGAIN F1P00990

␣␣FL03 = 684

Definition
01254 0 70000 4 05453 84 FL03 CPY OTA+450,4 COPY FLOCON FROM DRUM F1P00840
Reference
01255 2 00001 4 01254 85 TIX FL03,4,1 F1P00850

␣␣FL04 = 686

Definition
01256 −0 75400 0 00000 86 FL04 PXD **,0 F1P00860

References (4)

01247	0 62100 0 01256	79		STA	FL04 SAVE L	F1P00790
01251	0 53400 4 01256	81	FL02	LXA	FL04,4 (L)	F1P00810
01257	0 53400 4 01256	87		LXA	FL04,4 COMPUTE CK SUM OF ENTRIES VERSUS CK SUM OF CK	F1P00870
01275	0 53400 4 01256	101	FL08	LXA	FL04,4 (L)	F1P01010

␣␣FL05 = 689

Definition
01261 0 36100 4 05453 89 FL05 ACL OTA+450,4 FOLLOWED BY THE FIFTY WORDS F1P00890
Reference
01270 1 00061 1 01261 96 TXI FL05,1,49 F1P00960

␣␣FL06 = 692

Definition
01264 0 36100 4 05453 92 FL06 ACL OTA+450,4 F1P00920
Reference
01266 2 00001 1 01264 94 TIX FL06,1,1 F1P00940

␣␣FL07 = 697

Definition
01271 0 76000 0 00006 97 FL07 COM F1P00970
Reference
01265 −2 00001 4 01271 93 TNX FL07,4,1 FINAL ENRTY , GET OUT OF CK SUM LOOP F1P00930

␣␣FL08 = 701

Definition
01275 0 53400 4 01256 101 FL08 LXA FL04,4 (L) F1P01010
Reference
01272 0 10000 0 01275 98 TZE FL08 TEST CK SUM F1P00980

␣␣FL09 = 702

Definition
01276 0 76600 0 00222 102 FL09 WTB 2 F1P01020
Reference
01241 −3 00000 4 01276 73 TXL FL09,4,0 IS TABLE EMPTY F1P00730

␣␣FL10 = 706

Definition
01302 −2 00001 4 01307 106 FL10 TNX ERROR,4,1 F1P01060
Reference
01306 1 00061 1 01302 110 TXI FL10,1,49 F1P01100

␣␣FL11 = 707

Definition
01303 0 70000 4 05453 107 FL11 CPY OTA+450,4 F1P01070
Reference
01305 2 00001 1 01303 109 TIX FL11,1,1 F1P01090

␣␣FRTS = 1658

Definition
03172 1342 FRTS SYN XTA+750 F1P13420

References (2)

	01074	0 60100 2 03172	786		STO	FRTS,2 SAVE FREQUENCY	F1P07860
	01102	0 50000 2 03172	792	RFT17	CLA	FRTS,2 IN REVERSE ORDER	F1P07920

␣␣L(0) = 4056

Definition
07730 0 00000 0 00000 1299 L(0) 0 F1P12990

References (18)

01162	0 53400 1 07730	24		LXA	L(0),1 SAVE	F1P00240
01174	0 53400 4 07730	34		LXA	L(0),4	F1P00340
01211	0 53400 2 07730	47		LXA	L(0),2 TRANSFER RECORD	F1P00470
01227	0 53400 2 07730	62		LXA	L(0),2	F1P00620
01322	0 53400 1 07730	124		LXA	L(0),1	F1P01240
01334	0 53400 1 07730	134		LXA	L(0),1	F1P01340
01346	0 53400 1 07730	144	ADD07	LXA	L(0),1	F1P01440
01473	0 53400 2 07730	232		LXA	L(0),2	F1P02320
01507	0 53400 2 07730	244		LXA	L(0),2	F1P02440
00523	0 53400 1 07730	545		LXA	L(0),1 PREPARE FOR FORWARD SEARCH.	F1P05450
00656	0 50000 0 07730	641		CLA	L(0) NO ENTRY FOUND IN TEIFNO. IGNORE.	F1P06410
00720	0 53400 4 07730	676		LXA	L(0),4 SET INDEX C TO ZERO TO INDEX OTA	F1P06760
00751	0 53400 2 07730	701		LXA	L(0),2 SET INDEX B TO INDEX OTA	F1P07010
01010	0 53400 2 07730	734	RFT02	LXA	L(0),2 SET INDEX B TO ZERO	F1P07340
01071	0 53400 2 07730	783		LXA	L(0),2 SET INDEX B TO ZERO	F1P07830
01472	0 53400 2 07730	1051	REC00	LXA	L(0),2 SET INDEX B TO ZERO	F1P10510
07530	0 53400 2 07730	1169		LXA	L(0),2	F1P11690
07723	0 70000 0 07730	1293		CPY	L(0)	F1P12930

␣␣L(1) = 4057

Definition
07731 0 00000 0 00001 1300 L(1) 1 F1P13000

References (13)

01206	0 40000 0 07731	44	ADD	L(1) COMPAIL	F1P00440
01471	0 40000 0 07731	230	ADD	L(1)	F1P02300
00563	0 40200 0 07731	581	SUB	L(1) ADDRESSES	F1P05810
00716	0 50000 0 07731	674	CLA	L(1) C(E12) NOT ZERO INDICATES TABLE WAS	F1P06740
01024	0 40200 0 07731	746	SUB	L(1) TWO	F1P07460
01042	0 40200 0 07731	760	SUB	L(1) SUBTRACT ONE	F1P07600
01511	0 40000 0 07731	1066	ADD	L(1) STORE IN 9TA-1	F1P10660
01557	0 34000 0 07731	1104	CAS	L(1)	F1P11040
07535	0 40200 0 07731	1174	SUB	L(1)	F1P11740
07610	0 40000 0 07731	1217	ADD	L(1)	F1P12170
07624	0 40200 0 07731	1229	SUB	L(1)	F1P12290
07663	0 40200 0 07731	1261	SUB	L(1) IN TABLE AND INITIALIZE ADDRESSES	F1P12610
07715	0 40200 0 07731	1287	SUB	L(1)	F1P12870

␣␣L(2) = 4058

Definition
07732 0 00000 0 00002 1301 L(2) 2 F1P13010

References (3)

01210	0 53400 1 07732	46	LXA	L(2),1	F1P00460
01054	0 40200 0 07732	770	SUB	L(2) TEST FOR GO TO VECTOR ENTRY	F1P07700
07521	0 40000 0 07732	1162	ADD	L(2) FORM INTET + 3I +2	F1P11620

␣␣L(3) = 4059

Definition
07733 0 00000 0 00003 1302 L(3) 3 F1P13020

␣␣L(4) = 4060

Definition
07734 0 00000 0 00004 1303 L(4) 4 F1P13030

References (4)

01173	0 53400 1 07734	33	LXA	L(4),1	F1P00330
00773	0 50000 0 07734	721	CLA	L(4) PREPARE TO COUNT	F1P07210
07550	0 50000 0 07734	1185	CLA	L(4) OFF	F1P11850
07657	0 50000 0 07734	1257	CLA	L(4) PREPARE TO COUNT	F1P12570

␣␣L(5) = 4061

Definition
07735 0 00000 0 00005 1304 L(5) 5 F1P13040

References (5)

01250	0 53400 2 07735	80	FL01	LXA	L(5),2 SET TO TRY FIVE TIMES IF CK SUM FAILS	F1P00800
01320	0 53400 2 07735	122	ADD01	LXA	L(5),2	F1P01220
01352	0 53400 2 07735	149	ADD09	LXA	L(5),2	F1P01490
01415	0 53400 2 07735	185	ADD19	LXA	L(5),2	F1P01850
01515	0 53400 1 07735	250		LXA	L(5),1 CORD ONE, FILE FIVE, TAPE TWO	F1P02500

␣␣L(8) = 4062

Definition
07736 0 00000 0 00010 1305 L(8) 8 F1P13050

␣␣MASK = 881

Definition
01561 0 62100 0 02105 286 MASK STA PAT15 STORE COMPERAND F1P02860
Reference
01554 0 12000 0 01561 281 TPL MASK HAS THIS BEEN PROCESSED F1P02810

␣␣MEEQ = 908

Definition
01614 1341 MEEQ SYN XTA F1P13410

References (29)

01154	0 60200 2 01614	836	G2CLQ	SLW	MEEQ,2	F1P08360
01167	0 60100 2 01614	848		STO	MEEQ,2 SAVE EQ SET IN TABLE MEEQ	F1P08480
01176	0 60100 2 01614	855		STO	MEEQ,2 SAVE REST OF EQ SET	F1P08550
01202	0 60100 2 01614	859	B10CLQ	STO	MEEQ,2	F1P08590
01207	0 60100 2 01614	864		STO	MEEQ,2 SUBSCRIPT OF EQ SET	F1P08640
01242	0 40200 2 01614	892		SUB	MEEQ,2 COMPARE WITH MEEQ SYMBOL	F1P08920
01247	0 40200 2 01614	897		SUB	MEEQ,2	F1P08970
01255	0 50000 2 01614	904		CLA	MEEQ,2 END OF SET	F1P09040
01257	0 60100 2 01614	906		STO	MEEQ,2 MEEQ	F1P09060
01267	0 50000 2 01614	915	A2CLQ	CLA	MEEQ,2	F1P09150
01303	0 60100 2 01614	927		STO	MEEQ,2	F1P09270
01310	0 60100 2 01614	932		STO	MEEQ,2	F1P09320
01312	0 62100 2 01614	934	A5CLQ	STA	MEEQ,2 SAVE SBSCR OF LAST SYMBOL OF EQ SET	F1P09340
01317	0 60100 2 01614	939	A7CLQ	STO	MEEQ,2 EQ ABOVE MATCHED	F1P09390
01337	0 50000 2 01614	957	D1CLQ	CLA	MEEQ,2 NORMALIZE SUBSCRIPTS	F1P09570
01341	0 62100 2 01614	959		STA	MEEQ,2 IN MEEQ SET	F1P09590
01344	0 50000 2 01614	962	D3CLQ	CLA	MEEQ,2 NORMALIZE SUBSCRIPT	F1P09620
01346	0 62100 2 01614	964		STA	MEEQ,2 ENTERED IN MEEQ SET	F1P09640
01352	0 50000 2 01614	969	E2CLQ	CLA	MEEQ,2 NORMALIZE SUBSCRIPTS	F1P09690
01354	0 62100 2 01614	971		STA	MEEQ,2 IN MEEQ SET	F1P09710
01373	0 50000 2 01614	987		CLA	MEEQ,2 FIXED	F1P09870
01376	0 50000 2 01614	990	M10CLQ	CLA	MEEQ,2 ITS	F1P09900
01401	0 50000 2 01614	993	M1CLQ	CLA	MEEQ,2 GET CHANGING SYMBOL AND	F1P09930
01406	0 50000 2 01614	998	M3CLQ	CLA	MEEQ,2 BEEN REACHED, NO MATCH CASE	F1P09980
01424	0 50000 2 01614	1012	K2CLQ	CLA	MEEQ,2 OF CHANGING SYMBOL	F1P10120
01434	0 60100 0 01614	1020		STO	MEEQ	F1P10200
01436	0 60100 4 01615	1022		STO	MEEQ+1,4	F1P10220
01453	0 60100 4 01615	1035		STO	MEEQ+1,4	F1P10350
01456	0 00000 0 01614	1038			MEEQ	F1P10380

␣␣NEXT = 875

Definition
01553 0 50000 1 04551 280 NEXT CLA OTA,1 PICK UP NEXT ENTRY IN TEIFNO F1P02800
Reference
01557 2 00001 4 01553 284 ISTHRU TIX NEXT,4,1 HAVE ALL ENTRIES BEEN EXAMINED F1P02840

␣␣PAT8 = 894

Definition
299 FOR COMPARISON F1P02990

01576 2 00001 4 01567 300 PAT8 TIX PAT16,4,1 HAVE ALL ENTRIES BEEN COMPARED F1P03000
Reference
01575 1 77777 2 01576 298 NODUP TXI PAT8,2,−1 NO DUPLICATE, SET I.R. TO OBTAIN NEXT ENTRY F1P02980

␣␣PAT9 = 896

Definition
01600 0 50000 2 04551 302 PAT9 CLA OTA,2 FLAG DUPLICATE ENTRY NEGATIVE F1P03020
Reference
01574 0 02000 0 01600 297 TRA PAT9 DUPLICATE F1P02970

␣␣SMBL = 895

Definition
01577 1346 SMBL SYN E1CLEQ F1P13460

References (3)

01374	0 60100 0 01577	988		STO	SMBL SYMBOL	F1P09880
01402	0 34000 0 01577	994		CAS	SMBL COMPARE WITH FIXED SYMBOL	F1P09940
01435	0 50000 0 01577	1021	ERSTOR	CLA	SMBL	F1P10210

␣␣T0T1 = 1086

Definition
02076 0 00000 0 03163 495 T0T1 HTR 1TA F1P04950

␣␣TNT2 = 4069

Definition
07745 0 00000 0 00002 1312 TNT2 2 F1P13120
Reference
00777 0 40200 0 07745 725 SUB TNT2 TABLE CALLED FOR F1P07250

␣␣TNT5 = 393

Definition
00611 0 00000 0 00005 603 TNT5 HTR 5 F1P06030

␣␣TNT6 = 329

Definition
00511 0 00000 0 00006 525 TNT6 HTR 6 F1P05250

␣␣TOT6 = 330

Definition
00512 0 00000 0 01614 526 TOT6 HTR 6TA F1P05260
Reference
00560 0 40000 0 00512 578 ADD TOT6 F1P05780

␣␣TOT7 = 406

Definition
00626 0 00000 0 01614 617 TOT7 HTR 7TA ORIGIN OF ASSEMBLED FRET, F1P06170

References (3)

00633	0 40000 0 00626	622	ADD	TOT7 INITIALIZE ADDRESSES	F1P06220
00666	0 40000 0 00626	650	ADD	TOT7 COMPUTE NUMBER OF WORDS IN TABLE	F1P06500
01034	0 40000 0 00626	754	ADD	TOT7 NUMBER OF	F1P07540

␣␣TOT9 = 817

Definition
01461 0 00000 0 01614 1041 TOT9 9TA F1P10410
Reference
01466 0 40000 0 01461 1047 ADD TOT9 NUMBER OF WORDS IN TABLE F1P10470

␣␣TOTO = 4072

Definition
07750 1332 TOTO SYN L(OTA) F1P13320
Reference
01044 0 40000 0 07750 762 ADD TOTO ADD ORIGIN OF TIFGO ADD F1P07620

␣1TAM1 = 1650

Definition
03162 511 1TAM1 BSS 1 NO OF WORDS IN BLOCK F1P05110

␣1TOCS = 4

Definition
00004 1349 1TOCS SYN 4 F1P13490
Reference
00000 0 00004 0 04550 1141 PZE ORG1PC,,1TOCS F1P11410

␣A0CLQ = 691

Definition
910 MEEQ SYMBOL MATCHES EQ SYMBOL F1P09100

01263 1 00001 1 01264 911 A0CLQ TXI A14CLQ,1,1 F1P09110

References (2)

	01243	0 10000 0 01263	893		TZE	A0CLQ MATCH	F1P08930
	01250	0 10000 0 01263	898		TZE	A0CLQ	F1P08980

␣A1BOX = 902

Definition
01606 0 00000 0 00000 1129 A1BOX AMW 2106 F1P11290

References (4)

00705	−0 63400 1 01606	665		SXD	A1BOX,1 SAVE INDEX FOR RETURN TO ALPHA ONE	F1P06650
00732	−0 53400 1 01606	686	SFR10	LXD	A1BOX,1 SET INDEX A TO GET ADDR OF ALPHA 1	F1P06860
00737	0 50000 0 01606	691		CLA	A1BOX RETURNING TO ALPHA ONE	F1P06910
00750	−0 53400 1 01606	700	SFR15	LXD	A1BOX,1 SET INDEX A TO GET ADDR OF ALPHA 1	F1P07000

␣A1CLQ = 694

Definition
01266 1 77777 2 01267 914 A1CLQ TXI A2CLQ,2,−1 F1P09140
Reference
01265 2 00001 1 01266 913 TIX A1CLQ,1,1 F1P09130

␣A1PTS = 625

Definition
01161 0 76600 0 00223 23 A1PTS WRS 147 F1P00230
Reference
01157 3 00000 2 01161 21 TXH A1PTS,2,0 F1P00210

␣A2BOX = 903

Definition
01607 0 00000 0 00000 1130 A2BOX AMW 2305 F1P11300

References (4)

00736	−0 63400 4 01607	690		SXD	A2BOX,4 COMPUTE INDEX FOR	F1P06900
00740	0 40000 0 01607	692		ADD	A2BOX AFTER TRANSPOSING	F1P06920
00741	0 62200 0 01607	693		STD	A2BOX ALPHA ONE AND ALPHA TWO ENTRIES	F1P06930
00760	−0 53400 1 01607	708	SFR20	LXD	A2BOX,1 GET OLD ALPHA ONE AS NEW ALPHA ONE	F1P07080

␣A2CLQ = 695

Definition
01267 0 50000 2 01614 915 A2CLQ CLA MEEQ,2 F1P09150
Reference
01266 1 77777 2 01267 914 A1CLQ TXI A2CLQ,2,−1 F1P09140

␣A3CLQ = 705

Definition
01301 −2 00001 1 00000 925 A3CLQ TNX 0,1,1 TO MEEO SYMBOLS OF F1P09250
Reference
01300 1 77777 2 01301 924 A4CLQ TXI A3CLQ,2,−1 LOOP TO TRANSFER F1P09240

␣A4CLQ = 704

Definition
01300 1 77777 2 01301 924 A4CLQ TXI A3CLQ,2,−1 LOOP TO TRANSFER F1P09240
Reference
01311 0 02000 0 01300 933 TRA A4CLQ F1P09330

␣A4VAR = 392

Definition
00610 0 07400 1 07505 602 A4VAR TSX TAP00,1 ASSEMBLE FORVAR. F1P06020
Reference
00553 0 02000 0 00610 573 TRA A4VAR EXIT 10 ASSEMBLE NEXT TABLE F1P05730

␣A5CLQ = 714

Definition
01312 0 62100 2 01614 934 A5CLQ STA MEEQ,2 SAVE SBSCR OF LAST SYMBOL OF EQ SET F1P09340
Reference
01307 −0 12000 0 01312 931 TMI A5CLQ F1P09310

␣A5PTS = 633

Definition
01171 −0 76000 0 00012 31 A5PTS RTT TURN OFF TAPE CHECK F1P00310

␣A6CLQ = 716

Definition
01314 −3 00000 1 01321 936 A6CLQ TXL A8CLQ,1,** EXIT FOR MATCHED SYMBOL REACHED F1P09360

References (2)

	01264	−0 63400 1 01314	912	A14CLQ	SXD	A6CLQ,1 SAVE EO INDEX OF MATCHED SYMBOL	F1P09120
	01320	1 77777 1 01314	940		TXI	A6CLQ,1,−1 SYMBOL	F1P09400

␣A6PTS = 638

Definition
01176 0 70000 4 03163 36 A6PTS CPY COMP,4 COPY A RECORD OF COMPILED F1P00360
Reference
01177 1 77777 4 01176 37 TXI A6PTS,4,−1 INSTRUCTIONS INTO STORAGE F1P00370

␣A7CLQ = 719

Definition
01317 0 60100 2 01614 939 A7CLQ STO MEEQ,2 EQ ABOVE MATCHED F1P09390
Reference
01316 1 77777 2 01317 938 TXI A7CLQ,2,−1 TO MEEO SYMBOLS OF F1P09380

␣A7PTS = 652

Definition
01214 1 00001 4 01215 50 A7PTS TXI A8PTS,4,1 F1P00500
Reference
01213 1 77777 2 01214 49 TXI A7PTS,2,−1 TO TAPE 2 F1P00490

␣A8CLQ = 721

Definition
01321 −0 63400 2 01576 941 A8CLQ SXD BOX2,2 F1P09410
Reference
01314 −3 00000 1 01321 936 A6CLQ TXL A8CLQ,1,** EXIT FOR MATCHED SYMBOL REACHED F1P09360

␣A8PTS = 653

Definition
01215 3 00000 4 01212 51 A8PTS TXH A9PTS,4,0 F1P00510
Reference
01214 1 00001 4 01215 50 A7PTS TXI A8PTS,4,1 F1P00500

␣A9CLQ = 715

Definition
01313 −0 53400 1 01577 935 A9CLQ LXD E1CLEQ,1 F1P09350
Reference
01277 −0 12000 0 01313 923 A15CLQ TMI A9CLQ MATCHED SYMBOL IS END OF EQ SET F1P09230

␣A9PTS = 650

Definition
01212 0 70000 2 03163 48 A9PTS CPY COMP,2 FROM STORAGE F1P00480
Reference
01215 3 00000 4 01212 51 A8PTS TXH A9PTS,4,0 F1P00510

␣AD000 = 1036

Definition
02014 0 07400 1 07505 444 AD000 TSX TAP00,1 ASSEMBLE TDO F1P04440

␣ADD00 = 718

Definition
119 ROUTINE TO CONVERT DIM TABLES TO SIZ TABLE. F1P01190

01316 −0 53400 4 00452 120 ADD00 LXD DIM1IX−3,4 ENTRY COUNT F1P01200

␣ADD01 = 720

Definition
01320 0 53400 2 07735 122 ADD01 LXA L(5),2 F1P01220

␣ADD02 = 721

Definition
01321 0 76200 0 00303 123 ADD02 RDR 3 F1P01230
Reference
01344 2 00001 2 01321 142 TIX ADD02,2,1 F1P01420

␣ADD03 = 725

Definition
01325 0 70000 1 04551 127 ADD03 CPY OTA,1 COPY NAME F1P01270
Reference
01331 2 00001 4 01325 131 TIX ADD03,4,1 F1P01310

␣ADD04 = 728

Definition
01330 −0 70000 0 02106 130 ADD04 CAD GARBGE COPY AND SUM CK SUMS F1P01300
Reference
01327 1 77776 1 01330 129 TXI ADD04,1,−2 F1P01290

␣ADD05 = 733

Definition
01335 0 36100 1 04551 135 ADD05 ACL OTA,1 SUM ENTRIES F1P01350
Reference
01340 2 00001 4 01335 138 ADD06 TIX ADD05,4,1 F1P01380

␣ADD06 = 736

Definition
01340 2 00001 4 01335 138 ADD06 TIX ADD05,4,1 F1P01380
Reference
01337 1 77776 1 01340 137 TXI ADD06,1,−2 F1P01370

␣ADD07 = 742

Definition
01346 0 53400 1 07730 144 ADD07 LXA L(0),1 F1P01440
Reference
01317 −3 00000 4 01346 121 TXL ADD07,4,0 TABLE EMPTY F1P01210

␣ADD08 = 743

Definition
01347 −0 63400 1 02110 145 ADD08 SXD NEWBAS,1 F1P01450
Reference
01342 0 10000 0 01347 140 TZE ADD08 F1P01400

␣ADD09 = 746

Definition
01352 0 53400 2 07735 149 ADD09 LXA L(5),2 F1P01490

␣ADD10 = 747

Definition
01353 0 76200 0 00303 150 ADD10 RDR 3 F1P01500
Reference
01376 2 00001 2 01353 169 TIX ADD10,2,1 F1P01690

␣ADD11 = 751

Definition
01357 0 70000 1 04551 154 ADD11 CPY OTA,1 COPY NAME F1P01540
Reference
01363 2 00001 4 01357 158 TIX ADD11,4,1 F1P01580

␣ADD12 = 754

Definition
01362 −0 70000 0 02106 157 ADD12 CAD GARBGE COPY AND SUM CK SUMS F1P01570
Reference
01361 1 77776 1 01362 156 TXI ADD12,1,−2 F1P01560

␣ADD13 = 759

Definition
01367 0 36100 1 04551 162 ADD13 ACL OTA,1 F1P01620
Reference
01372 2 00001 4 01367 165 ADD14 TIX ADD13,4,1 F1P01650

␣ADD14 = 762

Definition
01372 2 00001 4 01367 165 ADD14 TIX ADD13,4,1 F1P01650
Reference
01371 1 77776 1 01372 164 TXI ADD14,1,−2 F1P01640

␣ADD15 = 768

Definition
01400 −0 53400 4 00457 171 ADD15 LXD DIM2IX−3,4 F1P01710
Reference
01374 0 10000 0 01400 167 TZE ADD15 F1P01670

␣ADD16 = 771

Definition
01403 0 50000 1 04552 174 ADD16 CLA OTA+1,1 F1P01740
Reference
01411 2 00001 4 01403 180 ADD17 TIX ADD16,4,1 F1P01600

␣ADD17 = 777

Definition
01411 2 00001 4 01403 180 ADD17 TIX ADD16,4,1 F1P01600
Reference
01410 1 77776 1 01411 179 TXI ADD17,1,−2 F1P01790

␣ADD18 = 779

Definition
182 NOW READ DIM3 TABLE. F1P01820

01413 −0 53400 4 00464 183 ADD18 LXD DIM3IX−3,4 F1P01830
Reference
01351 −3 00000 4 01413 148 TXL ADD18,4,0 TABLE EMPTY F1P01480

␣ADD19 = 781

Definition
01415 0 53400 2 07735 185 ADD19 LXA L(5),2 F1P01850

␣ADD20 = 782

Definition
01416 0 76200 0 00303 186 ADD20 RDR 3 F1P01860
Reference
01443 2 00001 2 01416 207 TIX ADD20,2,1 CK SUM FAILED TRY AGAIN F1P02070

␣ADD21 = 786

Definition
01422 0 70000 1 04551 190 ADD21 CPY OTA,1 F1P01900
Reference
01427 2 00001 4 01422 195 TIX ADD21,4,1 F1P01950

␣ADD22 = 790

Definition
01426 −0 70000 0 02106 194 ADD22 CAD GARBGE F1P01940
Reference
01425 1 77776 1 01426 193 TXI ADD22,1,−2 F1P01930

␣ADD23 = 795

Definition
01433 0 36100 1 04551 199 ADD23 ACL OTA,1 F1P01990
Reference
01437 2 00001 4 01433 203 ADD24 TIX ADD23,4,1 F1P02030

␣ADD24 = 799

Definition
01437 2 00001 4 01433 203 ADD24 TIX ADD23,4,1 F1P02030
Reference
01436 1 77776 1 01437 202 TXI ADD24,1,−2 F1P02020

␣ADD25 = 805

Definition
01445 −0 53400 4 00464 209 ADD25 LXD DIM3IX−3,4 F1P02090
Reference
01441 0 10000 0 01445 205 TZE ADD25 F1P02050

␣ADD26 = 807

Definition
01447 0 50000 1 04552 211 ADD26 CLA OTA+1,1 F1P02110
Reference
01457 2 00001 4 01447 219 ADD27 TIX ADD26,4,1 F1P02190

␣ADD27 = 815

Definition
01457 2 00001 4 01447 219 ADD27 TIX ADD26,4,1 F1P02190
Reference
01456 1 77776 1 01457 218 TXI ADD27,1,−2 F1P02160

␣ADD28 = 818

Definition
222 NOW WRITE SIZ TABLE ON TAPE 2. F1P02220

01462 −0 75400 1 00000 223 ADD28 PXD 0,1 F1P02230
Reference
01414 −3 00000 4 01462 184 TXL ADD28,4,0 DIM3 TABLE EMPTY F1P01840

␣ADD29 = 840

Definition
01510 0 70000 2 04551 245 ADD29 CPY OTA,2 F1P02450
Reference
01512 2 00001 1 01510 247 ADD30 TIX ADD29,1,1 F1P02470

␣ADD30 = 842

Definition
01512 2 00001 1 01510 247 ADD30 TIX ADD29,1,1 F1P02470
Reference
01511 1 77777 2 01512 246 TXI ADD30,2,−1 F1P02460

␣ADD31 = 843

Definition
01513 0 77000 0 00202 248 ADD31 WEF 2 F1P02480
Reference
01506 −3 00001 1 01513 243 TXL ADD31,1,1 F1P02430

␣ADD32 = 831

Definition
01477 2 00001 4 01475 236 ADD32 TIX ADD33,4,1 F1P02360
Reference
01476 1 77777 2 01477 235 TXI ADD32,2,−1 F1P02350

␣ADD33 = 829

Definition
01475 0 36100 2 04551 234 ADD33 ACL OTA,2 COMPUTE CK SUM FOR SIZ TABLE F1P02340
Reference
01477 2 00001 4 01475 236 ADD32 TIX ADD33,4,1 F1P02360

␣B1CLQ = 635

Definition
01173 −2 00001 1 00000 852 B1CLQ TNX 0,1,1 EXIT FOR END OF EQ TABLE F1P08520
Reference
01172 1 77777 2 01173 851 TXI B1CLQ,2,−1 EQ SET F1P08510

␣B2CLQ = 636

Definition
01174 0 50000 1 00000 853 B2CLQ CLA 0,1 OBTAIN EQ SUBSCRIPT F1P08530

References (2)

	01130	0 62100 0 01174	816		STA	B2CLQ	F1P08160
	01204	2 00001 1 01174	861	B3CLQ	TIX	B2CLQ,1,1	F1P08610

␣B3CLQ = 644

Definition
01204 2 00001 1 01174 861 B3CLQ TIX B2CLQ,1,1 F1P08610
Reference
01203 1 77777 2 01204 860 TXI B3CLQ,2,−1 IN TABLE MEEQ F1P08600

␣B4CLQ = 646

Definition
01206 0 76000 0 00003 863 B4CLQ SSP SAVE LAST F1P08630
Reference
01175 −0 12000 0 01206 854 TMI B4CLQ EXIT FOR END OF EQ SET F1P08540

␣B5CLQ = 650

Definition
01212 1 77777 1 01213 867 B5CLQ TXI B11CLQ,1,−1 F1P08670
Reference
01166 0 10000 0 01212 847 TZE B5CLQ EXIT FOR DELETED EQ SET F1P08470

␣B6CLQ = 654

Definition
01216 2 00002 1 01213 871 B6CLQ TIX B11CLQ,1,2 F1P08710
Reference
01214 0 12000 0 01216 869 TPL B6CLQ GO THROUGH F1P08690

␣B7CLQ = 629

Definition
01165 0 50000 1 00000 846 B7CLQ CLA 0,1 OBTAIN EQ WORD F1P06460

References (3)

01125	0 62100 0 01165	813	STA	B7CLQ	F1P08130
01164	1 77777 2 01165	845	TXI	B7CLQ,2,−1 A WORD IN MEEQ	F1P08450
01215	2 00001 1 01165	870	TIX	B7CLQ,1,1 DELETED SET	F1P08700

␣B8CLQ = 633

Definition
01171 0 60200 1 00000 850 B8CLQ SLW 0,1 DELETED F1P08500
Reference
01126 0 62100 0 01171 814 STA B8CLQ F1P08140

␣B9CLQ = 640

Definition
01200 0 50000 1 00000 857 B9CLQ CLA 0,1 OBTAIN EQ SYMBOL F1P08570

References (2)

	01127	0 62100 0 01200	815		STA	B9CLQ	F1P08150
	01177	1 77777 1 01200	856		TXI	B9CLQ,1,−1	F1P08560

␣BOCLQ = 625

Definition
841 INITIALIZATION OF AN EQUIVALENCE CLASS F1P08410

01161 −0 53400 1 04550 842 BOCLQ LXD EQM1,1 SET INDEX A TO MUM OF WORDS IN EQ F1P08420
Reference
01262 0 02000 0 01161 909 TRA BOCLQ INITIALIZE THE SET F1P09090

␣C0CLQ = 656

Definition
873 COMPARISON OF MEEQ SYMBOLS WITH EQ SYMBOLS F1P08730

01220 −0 53400 2 01576 874 C0CLQ LXD BOX2,2 INITIALIZE TEST F1P06740

References (4)

01211	0 02000 0 01220	866	TRA	C0CLQ GO TO COMPARISON ROUTINE	F1P08660
01331	0 10000 0 01220	950	TZE	C0CLQ SUBSCRIPTS MATCH	F1P09500
01347	0 02000 0 01220	965	TRA	C0CLQ GO TO COMPARISON ROUTINE	F1P09650
01357	0 02000 0 01220	974	TRA	C0CLQ GO TO COMPARISON ROUTINE	F1P09740

␣C1CLQ = 667

Definition
01233 2 00001 1 01224 885 C1CLQ TIX C7CLQ,1,1 EXAMINE NEXT EQ SET F1P08850
Reference
01231 −0 12000 0 01233 883 TMI C1CLQ DELETED SET F1P08830

␣C2CLQ = 661

Definition
01225 0 50000 1 00000 879 C2CLQ CLA 0,1 OBTAIN EQ WORD F1P08790

References (2)

	01132	0 62100 0 01225	818		STA	C2CLQ	F1P08180
	01251	2 00001 1 01225	899		TIX	C2CLQ,1,1	F1P08990

␣C3CLQ = 664

Definition
01230 0 50000 1 00000 882 C3CLQ CLA 0,1 LOOP TO GO THRU F1P08820

References (3)

01133	0 62100 0 01230	819	STA	C3CLQ	F1P08190
01227	1 77777 1 01230	881	TXI	C3CLQ,1,−1	F1P08810
01232	2 00002 1 01230	884	TIX	C3CLQ,1,2	F1P08840

␣C4CLQ = 669

Definition
01235 0 60100 0 01603 887 C4CLQ STO E5CLEQ SAVE EQ SYMBOL F1P08870
Reference
01226 −0 10000 0 01235 880 TNZ C4CLQ SET NOT DELETED F1P08800

␣C5CLQ = 683

Definition
01253 3 00000 2 01223 901 C5CLQ TXH C6CLQ,2,** TEST END OF TABLE MEEQ F1P09010

References (2)

	01221	−0 63400 2 01253	875		SXD	C5CLQ,2 FOR END OF MEEO TABLE	F1P08750
	01252	1 77776 2 01253	900	C9CLQ	TXI	C5CLQ,2,−2 GET NEXT MEEQ SYMBOL	F1P09000

␣C6CLQ = 659

Definition
01223 −0 53400 1 04550 877 C6CLQ LXD EQ−1,1 PREPARE TO SCAN EQ TABLE F1P08770
Reference
01253 3 00000 2 01223 901 C5CLQ TXH C6CLQ,2,** TEST END OF TABLE MEEQ F1P09010

␣C7CLQ = 660

Definition
01224 −0 63400 1 01577 878 C7CLQ SXD E1CLEQ,1 SAVE INDEX OF 1ST WORD OF EQ SET F1P08760

References (2)

	01233	2 00001 1 01224	885	C1CLQ	TIX	C7CLQ,1,1 EXAMINE NEXT EQ SET	F1P08850
	01244	2 00001 1 01224	894		TIX	C7CLQ,1,1 NO MATCH	F1P08940

␣C8CLQ = 678

Definition
01246 0 50000 0 01603 896 C8CLQ CLA E5CLEQ F1P08960
Reference
01240 0 12000 0 01246 890 TPL C8CLQ NOT END OF EQ SET F1P08900

␣C9CLQ = 682

Definition
01252 1 77776 2 01253 900 C9CLQ TXI C5CLQ,2,−2 GET NEXT MEEQ SYMBOL F1P09000

References (2)

	01234	0 02000 0 01252	886		TRA	C9CLQ EXIT FOR END OF EO TABLE	F1P08860
	01245	0 02000 0 01252	895		TRA	C9CLQ	F1P08950

␣D1CLQ = 735

Definition
01337 0 50000 2 01614 957 D1CLQ CLA MEEQ,2 NORMALIZE SUBSCRIPTS F1P09570
Reference
01343 3 00000 2 01337 961 D2CLQ TXH D1CLQ,2,** F1P09610

␣D2CLQ = 739

Definition
01343 3 00000 2 01337 961 D2CLQ TXH D1CLQ,2,** F1P09610

References (2)

	01322	−0 63400 2 01343	942		SXD	D2CLQ,2	F1P09420
	01342	1 77776 2 01343	960		TXI	D2CLQ,2,−2	F1P09600

␣D3CLQ = 740

Definition
01344 0 50000 2 01614 962 D3CLQ CLA MEEQ,2 NORMALIZE SUBSCRIPT F1P09620
Reference
01336 −3 00000 2 01344 956 D4CLQ TXL D3CLQ,2,** F1P09560

␣D4CLQ = 734

Definition
01336 −3 00000 2 01344 956 D4CLQ TXL D3CLQ,2,** F1P09560

References (2)

	01323	−0 63400 2 01336	943		SXD	D4CLQ,2	F1P09430
	01335	1 77777 2 01336	955		TXI	D4CLQ,2,−1	F1P09550

␣DECR1 = 4064

Definition
07740 0 00001 0 00000 1307 DECR1 0,0,1 F1P13070

References (3)

01464	0 40000 0 07740	225	ADD	DECR1	F1P02250
01157	0 50000 0 07740	839	CLA	DECR1	F1P08390
01551	0 40000 0 07740	1098	ADD	DECR1 SET EIFNO TO LAST ADD IN PROBLEM PLUS 1	F1P10980

␣DECR2 = 4065

Definition
07741 0 00002 0 00000 1308 DECR2 0,0,2 F1P13080

References (4)

01362	0 40000 0 07741	977	ADD	DECR2 OF WORDS	F1P09770
01553	−0 50000 0 07741	1100	CAL	DECR2	F1P11000
01561	0 50000 0 07741	1106	CLA	DECR2	F1P11060
01567	0 50000 0 07741	1112	CLA	DECR2	F1P11120

␣DMASK = 1089

Definition
02101 0 77777 0 00000 498 DMASK 0,0,32767 F1P04980
Reference
01501 0 50000 0 02101 238 CLA DMASK F1P02380

␣DRL02 = 4068

Definition
07744 0 00000 0 00312 1311 DRL02 202 F1P13110
Reference
00577 0 46000 0 07744 593 LDA DRL02 F1P05930

␣E0CLQ = 744

Definition
966 EQ SUBSCRIPT GREATER THAN MEEQ SUBSCRIPT F1P09660

01350 −0 53400 2 01575 967 E0CLQ LXD BOX1,2 F1P09670
Reference
01333 0 12000 0 01350 952 TPL E0CLQ F1P09520

␣E1CLQ = 750

Definition
01356 3 00000 2 01352 973 E1CLQ TXH E2CLQ,2,** F1P09730

References (3)

01275	−0 63400 2 01356	921	A16CLQ	SXD	E1CLQ,2	F1P09210
01334	−0 53400 2 01356	954		LXD	E1CLQ,2	F1P09540
01355	1 77776 2 01356	972		TXI	E1CLQ,2,−2	F1P09720

␣E1PTS = 1187

Definition
02243 507 E1PTS BSS 1 F1P05070

␣E1RFT = 905

Definition
01611 0 00000 0 00000 1132 E1RFT F1P11320

References (3)

01047	0 60200 0 01611	765	SLW	E1RFT	F1P07650
01051	0 62200 0 01611	767	STD	E1RFT SAVE FORMULA NUMBER	F1P07670
01063	0 40200 0 01611	777	SUB	E1RFT COMPARE FORMULA NUMBERS	F1P07770

␣E2CLQ = 746

Definition
01352 0 50000 2 01614 969 E2CLQ CLA MEEQ,2 NORMALIZE SUBSCRIPTS F1P09690

References (2)

	01351	1 77777 2 01352	968		TXI	E2CLQ,2,−1	F1P09680
	01356	3 00000 2 01352	973	E1CLQ	TXH	E2CLQ,2,**	F1P09730

␣E2RFT = 906

Definition
01612 0 00000 0 00000 1133 E2RFT F1P11330

References (2)

	01070	−0 63400 1 01612	782	RFT12	SXD	E2RFT,1 AND SAVE INDEX A FOR RETURN	F1P07820
	01100	−0 53400 1 01612	790		LXD	E2RFT,1 SET INDEX A TO GET 2ND ENTRY WORD	F1P07900

␣EIFNO = 24

Definition

	1350				F1P13500
	1351			THE FOLLOWING SYN CARDS ARE FOR PARAMETERS IN THE CARRY OVER	F1P13510
	1352			FROM SECTION ONE TO SECTION ONE PRIME.	F1P13520
00030	1353	EIFNO	SYN	24	F1P13530

References (4)

01502	0 32000 0 00030	239	ANS	EIFNO	F1P02390
01504	0 70000 0 00030	241	CPY	EIFNO	F1P02410
01550	0 50000 0 00030	1097	CLA	EIFNO	F1P10970
01552	0 60100 0 00030	1099	STO	EIFNO	F1P10990

␣ENDI1 = 25

Definition
00031 1354 ENDI1 SYN 25 F1P13540
Reference
01516 0 70000 1 00036 251 X0010 CPY ENDI1+5,1 F1P02510

␣ENDI4 = 28

Definition
00034 1355 ENDI4 SYN 28 F1P13550
Reference
01556 0 50000 0 00034 1103 CLA ENDI4 F1P11030

␣ERROR = 711

Definition
01307 0 07400 4 00004 111 ERROR TSX DIAG,4 INDEX RAN OUT AT CK SUM F1P01110

References (2)

	01263	−2 00001 4 01307	91		TNX	ERROR,4,1	F1P00910
	01302	−2 00001 4 01307	106	FL10	TNX	ERROR,4,1	F1P01060

␣F1CLQ = 689

Definition
01261 −0 63400 2 01575 908 F1CLQ SXD BOX1,2 NEXT SET IN TABLE MEEO AND F1P09080
Reference
01260 1 77777 2 01261 907 TXI F1CLQ,2,−1 INITIALIZE INDEX OF F1P09070

␣F2CLQ = 684

Definition
902 END OF TABLE MEEQ, NO MATCH IN TABLE EQ F1P09020

01254 −0 53400 2 01576 903 F2CLQ LXD BOX2,2 INDICATE F1P09030

␣FRCHS = 1908

Definition
03564 1343 FRCHS SYN XTA+1000 F1P13430

References (3)

00572	0 60200 2 03564	588		SLW	FRCHS,2 SEPARATE TABLE	F1P05880
00604	0 70000 2 03564	598		CPY	FRCHS,2 WRITE CHECK SUM	F1P05980
00606	0 70000 2 03564	600	WFD08	CPY	FRCHS,2 WRITE CHECK SUM FOR LAST ENTRY	F1P06000

␣FRCON = 4067

Definition
07743 +377777777777 1310 FRCON OCT 377777777777 35 ONES. AMW 1318 F1P13100

References (3)

00607	0 70000 0 07743	601	CPY	FRCON WRITE END OF TABLE SIGNAL	F1P06010
01433	0 50000 0 07743	1019	CLA	FRCON	F1P10190
01452	0 50000 0 07743	1034	CLA	FRCON	F1P10340

␣G1CLQ = 622

Definition
01156 2 00001 4 01154 838 G1CLQ TIX G2CLQ,4,1 F1P08380
Reference
01155 1 77777 2 01156 837 TXI G1CLQ,2,−1 F1P08370

␣G2CLQ = 620

Definition
01154 0 60200 2 01614 836 G2CLQ SLW MEEQ,2 F1P08360
Reference
01156 2 00001 4 01154 838 G1CLQ TIX G2CLQ,4,1 F1P08380

␣INTET = 210

Definition
00322 1356 INTET SYN 210 F1P13560
Reference
07630 0 00000 0 00322 1233 OAD INTET F1P12330

␣K1CLQ = 787

Definition
01423 1 77777 2 01424 1011 K1CLQ TXI K2CLQ,2,−1 GET SUBSCRIPT F1P10110
Reference
01404 0 02000 0 01423 996 TRA K1CLQ MATCH F1P09960

␣K2CLQ = 788

Definition
01424 0 50000 2 01614 1012 K2CLQ CLA MEEQ,2 OF CHANGING SYMBOL F1P10120
Reference
01423 1 77777 2 01424 1011 K1CLQ TXI K2CLQ,2,−1 GET SUBSCRIPT F1P10110

␣K3CLQ = 793

Definition
01431 −0 53400 4 01442 1017 K3CLQ LXD NEWTBL,4 F1P10170

References (3)

01427	0 02000 0 01431	1015	TRA	K3CLQ NO MATCH, INCONSISTENT CASE	F1P10150
01445	0 02000 0 01431	1029	TRA	K3CLQ	F1P10290
01447	0 02000 0 01431	1031	TRA	K3CLQ	F1P10310

␣K4CLQ = 803

Definition
01443 0 76000 0 00003 1027 K4CLQ SSP F1P10270
Reference
01425 −0 12000 0 01443 1013 TMI K4CLQ END OF SET REACHED F1P10130

␣L(50) = 4063

Definition
07737 0 00000 0 00062 1306 L(50) 50 F1P13060

References (2)

	01260	0 53400 1 07737	88		LXA	L(50),1 SUMS. TABLE IS OF FORM A CK SUM FOR FIFTY WORDS	F1P00880
	01301	0 53400 1 07737	105		LXA	L(50),1	F1P01050

␣L(EQ) = 892

Definition
1117 WORKING STORAGE FOR PROGRAM CLEQ F1P11170

01574 0 00000 0 04551 1118 L(EQ) EQ F1P11180
Reference
01124 0 40000 0 01574 812 ADD L(EQ) F1P08120

␣L16TA = 335

Definition
00517 0 00000 0 03564 532 L16TA 16TA F1P05320
Reference
00527 0 40000 0 00517 549 ADD L16TA F1P05490

␣M1CLQ = 769

Definition
01401 0 50000 2 01614 993 M1CLQ CLA MEEQ,2 GET CHANGING SYMBOL AND F1P09930

References (3)

01400	1 77777 2 01401	992	TXI	M1CLQ,2,−1	F1P09920
01410	1 77777 2 01401	1000	TXI	M1CLQ,2,−1 NO	F1P10000
01430	1 77777 2 01401	1016	TXI	M1CLQ,2,−1 MATCH, REDUNDANT CASE	F1P10160

␣M2CLQ = 773

Definition
01405 1 77777 2 01406 997 M2CLQ TXI M3CLQ,2,−1 HAS END OF CHANGING SYMBOLS F1P09970
Reference
01403 0 02000 0 01405 995 TRA M2CLQ NO MATCH F1P09950

␣M3CLQ = 774

Definition
01406 0 50000 2 01614 998 M3CLQ CLA MEEQ,2 BEEN REACHED, NO MATCH CASE F1P09980
Reference
01405 1 77777 2 01406 997 M2CLQ TXI M3CLQ,2,−1 HAS END OF CHANGING SYMBOLS F1P09970

␣M4CLQ = 777

Definition
01411 −0 63400 2 01416 1001 M4CLQ SXD M7CLQ,2 F1P10010
Reference
01407 −0 12000 0 01411 999 TMI M4CLQ YES F1P09990

␣M5CLQ = 780

Definition
01414 −0 63400 2 01575 1004 M5CLQ SXD BOX1,2 SYMBOL F1P10040
Reference
01413 1 77776 2 01414 1003 TXI M5CLQ,2,−2 NEXT FIXED F1P10030

␣M6CLQ = 762

Definition
01372 −0 53400 2 01575 986 M6CLQ LXD BOX1,2 OBTAIN F1P09860

References (2)

	01416	3 00000 2 01372	1006	M7CLQ	TXH	M6CLQ,2,** TEST END OF MEEQ SET	F1P10060
	01422	0 02000 0 01372	1010		TRA	M6CLQ	F1P10100

␣M7CLQ = 782

Definition
01416 3 00000 2 01372 1006 M7CLQ TXH M6CLQ,2,** TEST END OF MEEQ SET F1P10060

References (2)

	01411	−0 63400 2 01416	1001	M4CLQ	SXD	M7CLQ,2	F1P10010
	01415	1 77777 2 01416	1005		TXI	M7CLQ,2,−1	F1P10050

␣M8CLQ = 785

Definition
01421 −0 63400 2 01575 1009 M8CLQ SXD BOX1,2 F1P10090
Reference
01420 1 77777 2 01421 1008 TXI M8CLQ,2,−1 F1P10080

␣M9CLQ = 778

Definition
01412 −0 53400 2 01575 1002 M9CLQ LXD BOX1,2 PREPARE TO GET F1P10020

References (2)

	01441	0 02000 0 01412	1025		TRA	M9CLQ GET NEXT SYMBOL	F1P10250
	01446	0 02000 0 01412	1030		TRA	M9CLQ	F1P10300

␣MDO00 = 1054

Definition
02036 0 50000 2 00000 463 MDO00 CLA 0,2 ADDR IS ITA + NUMBER WORDS (1) F1P04630

References (2)

	02024	0 62100 0 02036	453		STA	MDO00 INITIALIZE ADDRESSES	F1P84530
	02073	2 00005 2 02036	492	MDO07	TIX	MDO00,2,5 TAKE NEXT ENTRY IN ITA	F1P04920

␣MDO01 = 1059

Definition
02043 −0 32000 0 07742 468 MDO01 ANA MSK ERASE DECR IN AC F1P04680
Reference
02037 0 12000 0 02043 464 TPL MDO01 SIGN OF WORD IS PLUS F1P04640

␣MDO02 = 1064

Definition
02050 0 50000 4 00000 473 MDO02 CLA 0,4 BETA PRIME AND BETA GO TO AC F1P04730

References (3)

02032	0 62100 0 02050	459	STA	MDO02 INITIALIZE ADDRESSES	F1P04590
02046	3 00000 4 02050	471	TXH	MDO02,4,0 TEST FOR TEIFNO	F1P04710
02054	2 00001 4 02050	477	TIX	MDO02,4,1 BETA NOT EQUAL TO ARGUMENT	F1P04770

␣MDO03 = 1071

Definition
02057 0 50000 4 00000 480 MDO03 CLA 0,4 BETA PRIME AND BETA GO TO AC F1P04800

References (2)

	02033	0 62100 0 02057	460		STA	MDO03	F1P04600
	02053	0 10000 0 02057	476		TZE	MDO03 BETA EQUALS ARGUMENT	F1P04760

␣MDO04 = 1074

Definition
02062 0 50000 4 00000 483 MDO04 CLA 0,4 ONE ARGUMENT F1P04830
Reference
02034 0 62100 0 02062 461 STA MDO04 F1P04610

␣MDO05 = 1081

Definition
02071 0 77100 0 00022 490 MDO05 ARS 18 F1P04900
Reference
02067 0 02000 0 02071 488 TRA MDO05 FOR THIS ARGUMENT F1P04860

␣MDO06 = 1082

Definition
02072 0 62100 2 00000 491 MDO06 STA 0,2 (I)* BETA PRIME REPLACES BETA F1P04910

References (2)

	02025	0 62100 0 02072	454		STA	MDO06	F1P04540
	02056	0 02000 0 02072	479		TRA	MDO06	F1P04790

␣MDO07 = 1083

Definition
02073 2 00005 2 02036 492 MDO07 TIX MDO00,2,5 TAKE NEXT ENTRY IN ITA F1P04920
Reference
02042 0 02000 0 02073 467 TRA MDO07 F1P04670

␣MDO08 = 1078

Definition
02066 0 50000 0 07746 487 MDO08 CLA E2 THERE IS ONLY ONE ENTRY F1P04870
Reference
02061 −2 00001 4 02066 482 TNX MDO08,4,1 SEE IF THERE ARE 2 ENTRIES FOR F1P04820

␣MDO30 = 1057

Definition
02041 0 60100 2 00000 466 MDO30 STO 0,2 F1P04660
Reference
02026 0 62100 0 02041 455 STA MDO30 F1P04550

␣MDOOK = 1048

Definition
02030 0 77100 0 00022 457 MDOOK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P04570

␣MDOTP = 1039

Definition
447 PROGRAM FOR MODIFICATION OF TDO WITH TEIFNO F1P04470

02017 0 50000 0 03162 448 MDOTP CLA 1TA−1 GET NUMBER OF WORDS IN ITA F1P04480

␣MFG00 = 934

Definition
01646 0 50000 2 00000 341 MFG00 CLA 0,2 ADDR IS 2TA + NUM WORDS IN 2TA. (1) F1P03410

References (3)

01621	0 62100 0 01646	320	STA	MFG00 PLUS	F1P03200
01717	2 00001 2 01646	382	TIX	MFG00,2,1 TAKE FIRST WORD OF NEXT 2TA ENTRY	F1P03820
01750	2 00001 2 01646	407	TIX	MFG00,2,1 TAKE FIRST WORD OF NEXT 2TA ENTRY	F1P04070

␣MFG01 = 938

Definition
01652 0 50000 4 00000 345 MFG01 CLA 0,4 AL PRIME AND AL GO TO AC. F1P03450

References (2)

	01636	0 62100 0 01652	333		STA	MFG01 INITIALIZE ADDRESSES WITH	F1P03330
	01656	2 00001 4 01652	349		TIX	MFG01,4,1 COMP AL VS NEXT TEIFNO ENTRY. (3A1)	F1P03490

␣MFG02 = 945

Definition
01661 0 50000 4 00000 352 MFG02 CLA 0,4 A1 PRIME AND A1L GO TO AC. F1P03520

References (2)

	01637	0 62100 0 01661	334		STA	MFG02 OTA + NUM WORDS	F1P03340
	01655	0 10000 0 01661	348		TZE	MFG02 AL EQUALS ARGUMENT.	F1P03480

␣MFG03 = 947

Definition
01663 0 62100 2 00000 354 MFG03 STA 0,2 (I) A1 PRIME REPLACES A1 F1P03540

References (2)

	01622	0 62100 0 01663	321		STA	MFG03 NUMBER	F1P03210
	01660	0 02000 0 01663	351		TRA	MFG03	F1P03510

␣MFG04 = 948

Definition
01664 1 77777 2 01665 355 MFG04 TXI MFG05,2,−1 TAKE WORD 2 OF TIFGO ENTRY F1P03550

References (3)

01726	0 02000 0 01664	389	TRA	MFG04 N EQUALS 5	F1P03890
01727	0 02000 0 01664	390	TRA	MFG04 N EQUALS 4	F1P03900
01730	0 02000 0 01664	391	TRA	MFG04 N EQUALS 3	F1P03910

␣MFG05 = 949

Definition
01665 0 50000 2 00000 356 MFG05 CLA 0,2 (1). AC DECK IS A2, ADDR IS A3 F1P03560

References (2)

	01623	0 62100 0 01665	322		STA	MFG05 OF	F1P03220
	01664	1 77777 2 01665	355	MFG04	TXI	MFG05,2,−1 TAKE WORD 2 OF TIFGO ENTRY	F1P03550

␣MFG06 = 952

Definition
01670 0 50000 4 00000 359 MFG06 CLA 0,4 A3 PRIME AND A3 GO TO AC F1P03590

References (2)

	01640	0 62100 0 01670	335		STA	MFG06	F1P03350
	01674	2 00001 4 01670	363		TIX	MFG06,4,1 (3A3)	F1P03630

␣MFG07 = 959

Definition
01677 0 50000 4 00000 366 MFG07 CLA 0,4 A3 PRIME AND A3 GO TO AC F1P03660

References (2)

	01641	0 62100 0 01677	336		STA	MFG07	F1P03360
	01673	0 10000 0 01677	362		TZE	MFG07 A3 EQUALS ARGUMENT	F1P03620

␣MFG08 = 961

Definition
01701 0 62100 2 00000 368 MFG08 STA 0,2 (1). A3 PRIME REPLACES A3 F1P03680

References (2)

	01624	0 62100 0 01701	323		STA	MFG08 WORDS	F1P03230
	01676	0 02000 0 01701	365		TRA	MFG08	F1P03650

␣MFG09 = 962

Definition
01702 0 50000 2 00000 369 MFG09 CLA 0,2 (1). A2 AND A3 PRIME GO TO AC F1P03690
Reference
01625 0 62100 0 01702 324 STA MFG09 IN F1P03240

␣MFG10 = 966

Definition
01706 0 50000 4 00000 373 MFG10 CLA 0,4 A2 PRIME AND A2 GO TO AC F1P03730

References (2)

	01642	0 62100 0 01706	337		STA	MFG10	F1P03370
	01712	2 00001 4 01706	377		TIX	MFG10,4,1 (3A2)	F1P03770

␣MFG11 = 973

Definition
01715 0 50000 4 00000 380 MFG11 CLA 0,4 A2 PRIME AND A2 GO TO AC F1P03800

References (2)

	01643	0 62100 0 01715	338		STA	MFG11	F1P03380
	01711	0 10000 0 01715	376		TZE	MFG11 A2 EQUALS ARGUMENT	F1P03760

␣MFG12 = 974

Definition
01716 0 62200 2 00000 381 MFG12 STD 0,2 (1) A2 PRIME REPLACES A2 F1P03810

References (2)

	01626	0 62100 0 01716	325		STA	MFG12 2TA	F1P03250
	01714	0 02000 0 01716	379		TRA	MFG12	F1P03790

␣MFG13 = 976

Definition
01720 2 00001 2 01717 383 MFG13 TIX MFG13−1,2,1 TAKE SECOND WORD OF 2TA ENTRY F1P03830

References (4)

01720	2 00001 2 01717	383	MFG13	TIX	MFG13−1,2,1 TAKE SECOND WORD OF 2TA ENTRY	F1P03830
01724	0 02000 0 01720	387		TRA	MFG13 N EQUALS 7 NO MODIFICATION	F1P03670
01731	0 02000 0 01720	392		TRA	MFG13 N EQUALS 2 NO MODIFICATION	F1P03920
01732	0 02000 0 01720	393		TRA	MFG13 N EQUALS 1 NO MODIFICATION	F1P03930

␣MFG14 = 978

Definition
01722 0 73400 4 00000 385 MFG14 PAX 0,4 INTEGER N GOES TO INDEX C F1P03850

References (2)

	01647	0 12000 0 01722	342		TPL	MFG14 SIGN IS PLUS.	F1P03420
	01723	0 02000 4 01733	386		TRA	MFG14+9,4	F1P03860

␣MFG15 = 988

Definition
01734 1 77777 2 01735 395 MFG15 TXI MFG16,2,−1 TAKE WORD 2 OF 2TA ENTRY F1P03950

References (2)

	01725	0 02000 0 01734	388		TRA	MFG15 N EQUALS 6	F1P03880
	01733	0 02000 0 01734	394		TRA	MFG15 N EQUALS 0	F1P03940

␣MFG16 = 989

Definition
01735 −0 53400 4 04550 396 MFG16 LXD OTA−1,4 (2) F1P03960
Reference
01734 1 77777 2 01735 395 MFG15 TXI MFG16,2,−1 TAKE WORD 2 OF 2TA ENTRY F1P03950

␣MFG17 = 990

Definition
01736 0 50000 4 00000 397 MFG17 CLA 0,4 K PRIME AND K GO TO AC F1P03970

References (2)

	01644	0 62100 0 01736	339		STA	MFG17	F1P03390
	01742	2 00001 4 01736	401		TIX	MFG17,4,1 (3K)	F1P04010

␣MFG18 = 992

Definition
01740 0 40200 2 00000 399 MFG18 SUB 0,2 (1). COMPARE K WITH TEIFNO ARGUMENT F1P03990
Reference
01627 0 62100 0 01740 326 STA MFG18 AND F1P03260

␣MFG19 = 997

Definition
01745 0 50000 4 00000 404 MFG19 CLA 0,4 K PRIME AND K GO TO AC F1P04040

References (2)

	01645	0 62100 0 01745	340		STA	MFG19	F1P03400
	01741	0 10000 0 01745	400		TZE	MFG19 K EQUALS ARGUMENT	F1P04000

␣MFG20 = 999

Definition
01747 0 62100 2 00000 406 MFG20 STA 0,2 (1). K PRIME REPLACES K F1P04060

References (2)

	01630	0 62100 0 01747	327		STA	MFG20 INITIALIZE ADDRESSES	F1P03270
	01744	0 02000 0 01747	403		TRA	MFG20	F1P04030

␣MFGOK = 924

Definition
01634 0 77100 0 00022 331 MFGOK ARS 18 NUMBER WORDS PUT IN AC ADDRESS F1P03310
Reference
01632 −0 10000 0 01634 329 TNZ MFGOK TABLE EXISTS F1P03290

␣MFGTP = 908

Definition
314 START PROGRAM FOR MODIFICATION OF TIFGO WITH TEIFNO F1P03140

01614 0 50000 0 03162 315 MFGTP CLA 2TA−1 GET NUMBER OF WORDS IN 2TA. F1P03150

␣MFR00 = 421

Definition
00645 0 50000 2 00000 632 MFR00 CLA 0,2 ADDR IS 7TA + NUMBER OF WORDS F1P06320

References (2)

	00634	0 62100 0 00645	623		STA	MFR00	F1P06230
	00663	2 00001 2 00645	646	MFR04	TIX	MFR00,2,1 EXAMINE NEXT WORD OF 7TA	F1P06460

␣MFR01 = 425

Definition
00651 0 50000 1 00000 636 MFR01 CLA 0,1 TEIFNO ARGUMENT IS IN AC. F1P06360

References (2)

	00643	0 62100 0 00651	630		STA	MFR01 INITIALIZE ADDRESSES	F1P06300
	00655	2 00001 1 00651	640		TIX	MFR01,1,1 GO TO NEXT TEIFNO WORD	F1P06400

␣MFR02 = 432

Definition
00660 0 50000 1 04551 643 MFR02 CLA OTA,1 TEIFNO WORD GOES TO AC F1P06430

References (2)

	00644	0 62100 0 00660	631		STA	MFR02	F1P06344
	00654	0 10000 0 00660	639		TZE	MFR02 MODIFY 7TA WORD	F1P06390

␣MFR03 = 434

Definition
00662 0 62100 2 00000 645 MFR03 STA 0,2 INTERNAL FORMULA NUM GOES TO 7TA F1P06450

References (2)

	00635	0 62100 0 00662	624		STA	MFR03	F1P06240
	00657	0 02000 0 00662	642		TRA	MFR03	F1P06420

␣MFR04 = 435

Definition
00663 2 00001 2 00645 646 MFR04 TIX MFR00,2,1 EXAMINE NEXT WORD OF 7TA F1P06460
Reference
00646 0 12000 0 00663 633 TPL MFR04 DO NOT MODIFY THIS WORD F1P06330

␣MFROK = 417

Definition
00641 0 77100 0 00022 628 MFROK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P06280
Reference
00637 −0 10000 0 00641 626 TNZ MFROK TABLE EXISTS F1P06260

␣MFRTP = 407

Definition
00627 0 50000 0 01613 618 MFRTP CLA 7TA−1 GET NUM OF WORDS IN TABLE F1P06180

␣MTR00 = 1020

Definition
01774 −0 53400 4 04550 428 MTR00 LXD OTA−1,4 SET INDEX C TO NUM WORDS IN OTA F1P04280
Reference
02010 2 00001 2 01774 440 TIX MTR00,2,1 TAKE NEXT WORD OF 3TA F1P04400

␣MTR01 = 1021

Definition
01775 0 50000 4 00000 429 MTR01 CLA 0,4 A SUB I PRIME AND A SUB I GO TO AC F1P04290

References (2)

	01773	0 62100 0 01775	427		STA	MTR01 INITIALIZE ADDRESS	F1P04270
	02002	2 00001 4 01775	434		TIX	MTR01,4,1 A SUB I NOT EQUAL TO ARGUMENT	F1P04340

␣MTR02 = 1024

Definition
02000 0 40200 2 00000 432 MTR02 SUB 0,2 ADDR IS 3TA + NUM WORDS IN 3TA (1) F1P04320
Reference
01764 0 62100 0 02000 420 STA MTR02 F1P04200

␣MTR03 = 1029

Definition
02005 0 50000 0 07746 437 MTR03 CLA E3 A SUB I PRIME GOES TO AC DECR. F1P04370
Reference
02001 0 10000 0 02005 433 TZE MTR03 A SUB I EQUALS ARGUMENT F1P04330

␣MTR04 = 1031

Definition
02007 0 62100 2 00000 439 MTR04 STA 0,2 (1). A SUB I PRIME REPLACES A SUB I F1P04390

References (2)

	01765	0 62100 0 02007	421		STA	MTR04	F1P04210
	02004	0 02000 0 02007	436		TRA	MTR04	F1P04360

␣MTROK = 1017

Definition
01771 0 77100 0 00022 425 MTROK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P04250
Reference
01767 −0 10000 0 01771 423 TNZ MTROK TABLE EXISTS F1P04230

␣MTRTP = 1007

Definition
414 PROGRAM FOR MODIFICATION OF TRAD WITH TEIFNO F1P04140

01757 0 50000 0 03162 415 MTRTP CLA 3TA−1 GET NUM OF WORDS IN 3TA F1P04150

␣NODUP = 893

Definition
01575 1 77777 2 01576 298 NODUP TXI PAT8,2,−1 NO DUPLICATE, SET I.R. TO OBTAIN NEXT ENTRY F1P02980

References (2)

	01570	−0 12000 0 01575	293		TMI	NODUP NO SEARCH NECESSARY IF NEGATIVE	F1P02930
	01573	0 02000 0 01575	296		TRA	NODUP NO DUPLICATE	F1P02960

␣OADDR = 610

Definition
01142 0 76000 0 00000 826 OADDR CLM F1P08260

References (2)

	01152	0 53400 2 01142	834		LXA	OADDR,2	F1P08340
	01370	0 53400 2 01142	984		LXA	OADDR,2 INDEXING	F1P09840

␣OATDO = 1038

Definition
02016 0 00000 0 03163 446 OATDO 1TA F1P04460
Reference
02023 0 40000 0 02016 452 ADD OATDO ADD ORIGIN OF ASSEMBLED TDO F1P04520

␣OTAM1 = 2408

Definition
04550 1147 OTAM1 BSS 1 LOCATION OF NUM OF WORDS IN TEIFNO F1P11470

␣PARTA = 615

Definition
01147 0 77000 0 00204 10 PARTA WEF 4 F1P00100

␣PAT11 = 1090

Definition
02102 +000000077777 499 PAT11 OCT 77777 F1P04990
Reference
01571 −0 32000 0 02102 294 ANA PAT11 ISOLATE EXTERNAL FORMULA NUMBER F1P02940

␣PAT13 = 1091

Definition
02103 0 00000 0 00000 500 PAT13 HTR 0 F1P05000

References (7)

01550	−0 53400 1 02103	277	LXD	PAT13,1 INITIALIZE I.R. TO STEP THROUGH TABLE	F1P02770
01657	0 50000 0 02103	350	CLA	PAT13	F1P03500
01675	0 50000 0 02103	364	CLA	PAT13	F1P03640
01713	0 50000 0 02103	378	CLA	PAT13	F1P03780
01743	0 50000 0 02103	402	CLA	PAT13	F1P04020
02003	0 50000 0 02103	435	CLA	PAT13	F1P04350
02055	0 50000 0 02103	478	CLA	PAT13	F1P04780

␣PAT14 = 1092

Definition
02104 0 00000 0 00000 501 PAT14 HTR 0 F1P05010

References (3)

01551	−0 63400 4 02104	278		SXD	PAT14,4 SAVE WORD COUNT	F1P02780
01552	−0 53400 4 02104	279	ISPLUS	LXD	PAT14,4 REINTIALIZE FOR FURTHER SEARCHING	F1P02790
01566	−0 63400 4 02104	291		SXD	PAT14,4 SAVE NUMBER OF ENTRIES YET TO BE TREATED	F1P02910

␣PAT15 = 1093

Definition
02105 0 00000 0 00000 502 PAT15 HTR 0 F1P05020

References (3)

01545	0 60000 0 02105	274		STZ	PAT15 INSURE DECREMENT IS CLEAR	F1P02740
01561	0 62100 0 02105	286	MASK	STA	PAT15 STORE COMPERAND	F1P02860
01572	0 34000 0 02105	295		CAS	PAT15 COMPARE TO REMAINING ENTRIES	F1P02950

␣PAT16 = 887

Definition
01567 0 50000 2 04551 292 PAT16 CLA OTA,2 PICK UP ENTRY TO BE COMPARED F1P02920
Reference
01576 2 00001 4 01567 300 PAT8 TIX PAT16,4,1 HAVE ALL ENTRIES BEEN COMPARED F1P03000

␣RDCTP = 818

Definition
1042 PROGRAM FOR REMOVING DUPLICATE ENTRIES FROM TABLE CLOSUB F1P10420

01462 0 50000 0 01613 1043 RDCTP CLA 9TA−1 GET NUMBER OF WORDS IN 9TA F1P10430

␣READ4 = 3946

Definition
07552 0 76200 0 00224 1187 READ4 RTB 4 F1P11870

References (2)

	07560	−0 10000 0 07552	1193		TNZ	READ4	F1P11930
	07626	−0 10000 0 07552	1231		TNZ	READ4	F1P12310

␣REC00 = 826

Definition
01472 0 53400 2 07730 1051 REC00 LXA L(0),2 SET INDEX B TO ZERO F1P10510
Reference
01505 2 00001 4 01472 1062 REC06 TIX REC00,4,1 TEST END OF OLD 9TA TABLE F1P10620

␣REC01 = 827

Definition
01473 0 50000 4 00000 1052 REC01 CLA 0,4 GET 9TA WORD AND F1P10520
Reference
01467 0 62100 0 01473 1048 STA REC01 AND INITIALIZE ADDRESS F1P10480

␣REC02 = 828

Definition
01474 0 34000 2 01614 1053 REC02 CAS 9TA,2 COMPARE WITH 9TA WORD F1P10530
Reference
01500 3 00000 2 01474 1057 REC04 TXH REC02,2,** TEST FOR END OF NEW 9TA TABLE F1P10570

␣REC03 = 831

Definition
01477 1 77777 2 01500 1056 REC03 TXI REC04,2,−1 TAKE NEXT 9TA WORD F1P10560

References (2)

	01470	−0 53400 2 01477	1049		LXD	REC03,2 SET INDEX B TO COMP 1 AND	F1P10490
	01475	0 02000 0 01477	1054		TRA	REC03 9TA WORDS NOT EQUAL	F1P10540

␣REC04 = 832

Definition
01500 3 00000 2 01474 1057 REC04 TXH REC02,2,** TEST FOR END OF NEW 9TA TABLE F1P10570

References (5)

01471	−0 63400 2 01500	1050		SXD	REC04,2 SAVE COMP 1 IN DECR OF REC04	F1P10500
01477	1 77777 2 01500	1056	REC03	TXI	REC04,2,−1 TAKE NEXT 9TA WORD	F1P10560
01501	−0 53400 1 01500	1058		LXD	REC04,1 ADD COMP 1 TO DECR OF	F1P10580
01503	−0 63400 1 01500	1060	REC05	SXD	REC04,1 FOLLOWING ENTRY	F1P10600
01506	−0 53400 4 01500	1063		LXD	REC04,4 GET TWOS COMP OF NUMBER	F1P10630

␣REC05 = 835

Definition
01503 −0 63400 1 01500 1060 REC05 SXD REC04,1 FOLLOWING ENTRY F1P10600
Reference
01502 1 77777 1 01503 1059 TXI REC05,1,−1 REC04 TO ACCOUNT FOR F1P10590

␣REC06 = 837

Definition
01505 2 00001 4 01472 1062 REC06 TIX REC00,4,1 TEST END OF OLD 9TA TABLE F1P10620
Reference
01476 0 02000 0 01505 1055 TRA REC06 9TA WORDS ARE EQUAL F1P10550

␣REC07 = 844

Definition
01514 0 07400 1 07656 1069 REC07 TSX WAT00,1 WRITE MODIFIED F1P10690
Reference
01463 0 10000 0 01514 1044 TZE REC07 EXIT FOR EMPTY TABLE F1P10440

␣RFT00 = 500

Definition

		712			PROGRAM TO REVERSE FREQUENCIES FOR GO TO VECTOR ENTRIES IN	F1P07120
		713			TIFGD	F1P07130
00764	0 76400 0 00222	714	RFT00	BST	146 MOVE TAPE	F1P07140

␣RFT01 = 514

Definition
01002 0 70000 0 04550 728 RFT01 CPY OTA−1 GET NUMBER OF WORDS F1P07280
Reference
01000 0 10000 0 01002 726 TZE RFT01 TABLE NUMBERS AGREE F1P07260

␣RFT02 = 520

Definition
01010 0 53400 2 07730 734 RFT02 LXA L(0),2 SET INDEX B TO ZERO F1P07340
Reference
01030 0 12000 0 01010 750 TPL RFT02 GO TO READ TAPE F1P07500

␣RFT03 = 521

Definition
01011 0 70000 2 04551 735 RFT03 CPY OTA,2 F1P07350
Reference
01012 1 77777 2 01011 736 TXI RFT03,2,−1 COPY LOOP F1P07360

␣RFT04 = 528

Definition
01020 0 76400 0 00224 742 RFT04 BST 148 REPEAT RECORD F1P07420
Reference
01016 0 02000 0 01020 740 TRA RFT04 TAPE TEST ON F1P07400

␣RFT05 = 530

Definition
01022 1 00000 2 01023 744 RFT05 TXI RFT06,2,** COMPENSATE FOR REREADING RECORD F1P07440
Reference
01005 0 62200 0 01022 731 STD RFT05 F1P07310

␣RFT06 = 531

Definition
01023 0 50000 0 01610 745 RFT06 CLA IT1 COUNT F1P07450
Reference
01022 1 00000 2 01023 744 RFT05 TXI RFT06,2,** COMPENSATE FOR REREADING RECORD F1P07440

␣RFT07 = 538

Definition
01032 0 50000 0 01613 752 RFT07 CLA 7TA−1 COMPUTE TABLE F1P07520
Reference
01017 0 02000 0 01032 741 TRA RFT07 TAPE TEST OFF F1P07410

␣RFT08 = 552

Definition
01050 0 50000 4 00000 766 RFT08 CLA 0,4 GET FIRST WORD OF TIFGO ENTRY F1P07660

References (2)

	01045	0 62100 0 01050	763		STA	RFT08 INITIALIZE ADDRESS	F1P07630
	01106	2 00002 4 01050	796	RFT20	TIX	RFT08,4,2 TEST END OF TIFGO	F1P07960

␣RFT09 = 559

Definition
01057 0 50000 1 00000 773 RFT09 CLA 0,1 GET WORD OF FRET ENTRY F1P07730

References (3)

01035	0 62100 0 01057	755		STA	RFT09 WORDS IN	F1P07540
01052	−0 12000 0 01056	768		TMI	RFT09−1 ENTRY IS AN IF(E)	F1P07680
01065	2 00001 1 01057	779	RFT10	TIX	RFT09,1,1 TEST END OF FRET	F1P07790

␣RFT10 = 565

Definition
01065 2 00001 1 01057 779 RFT10 TIX RFT09,1,1 TEST END OF FRET F1P07790
Reference
01060 0 12000 0 01065 774 TPL RFT10 TEST FOR FIRST WORD OF ENTRY F1P07740

␣RFT11 = 567

Definition
01067 −2 00001 1 01106 781 RFT11 TNX RFT20,1,1 PREPARE FOR SECOND WORD OF ENTRY F1P07810
Reference
01064 0 10000 0 01067 778 TZE RFT11 FORMULA NUMBERS MATCH F1P07780

␣RFT12 = 568

Definition
01070 −0 63400 1 01612 782 RFT12 SXD E2RFT,1 AND SAVE INDEX A FOR RETURN F1P07820

␣RFT13 = 570

Definition
01072 0 50000 1 00000 784 RFT13 CLA 0,1 GET FREQUENCY PART OF ENTRY F1P07840

References (2)

	01036	0 62100 0 01072	756		STA	RFT13 FRET AND	F1P07560
	01076	2 00001 1 01072	788	RFT14	TIX	RFT13,1,1 TAKE NEXT FRET WORD	F1P07880

␣RFT14 = 574

Definition
01076 2 00001 1 01072 788 RFT14 TIX RFT13,1,1 TAKE NEXT FRET WORD F1P07880
Reference
01075 1 77777 2 01076 787 TXI RFT14,2,−1 TAKE NEXT FRTS WORD F1P07870

␣RFT15 = 575

Definition
01077 −3 00000 2 01106 789 RFT15 TXL RFT20,2,0 EXIT FOR NO FREQUENCY IN ENTRY F1P07890
Reference
01073 −0 12000 0 01077 785 TMI RFT15 TEST END OF ENTRY F1P07850

␣RFT16 = 577

Definition
01101 1 00001 2 01102 791 RFT16 TXI RFT17,2,1 GET FREQUENCIES F1P07910
Reference
01105 3 00000 2 01101 795 RFT19 TXH RFT16,2,0 TEST END OF ENTRY F1P07950

␣RFT17 = 578

Definition
01102 0 50000 2 03172 792 RFT17 CLA FRTS,2 IN REVERSE ORDER F1P07920
Reference
01101 1 00001 2 01102 791 RFT16 TXI RFT17,2,1 GET FREQUENCIES F1P07910

␣RFT18 = 579

Definition
01103 0 60100 1 00000 793 RFT18 STO 0,1 AND REPLACE IN FRET ENTRY F1P07930
Reference
01037 0 62100 0 01103 757 STA RFT18 INITIALIZE ADDRESSES F1P07570

␣RFT19 = 581

Definition
01105 3 00000 2 01101 795 RFT19 TXH RFT16,2,0 TEST END OF ENTRY F1P07950
Reference
01104 1 77777 1 01105 794 TXI RFT19,1,−1 TAKE NEXT WORD OF FRET ENTRY F1P07940

␣RFT20 = 582

Definition
01106 2 00002 4 01050 796 RFT20 TIX RFT08,4,2 TEST END OF TIFGO F1P07960

References (4)

01055	−0 10000 0 01106	771		TNZ	RFT20 EXIT FOR ENTRY NOT A GO TO VECTOR	F1P07710
01066	0 02000 0 01106	780		TRA	RFT20 EXIT FOR END OF FRET	F1P07800
01067	−2 00001 1 01106	781	RFT11	TNX	RFT20,1,1 PREPARE FOR SECOND WORD OF ENTRY	F1P07810
01077	−3 00000 2 01106	789	RFT15	TXL	RFT20,2,0 EXIT FOR NO FREQUENCY IN ENTRY	F1P07890

␣SBSCR = 896

Definition
01600 1347 SBSCR SYN E2CLEQ F1P13470

References (3)

01377	0 60100 0 01600	991	STO	SBSCR SUBSCRIPT	F1P09910
01426	0 34000 0 01600	1014	CAS	SBSCR COMPARE SUBSCRIPTS OF MATCHED SYMBL	F1P10140
01444	0 34000 0 01600	1028	CAS	SBSCR	F1P10280

␣SFR00 = 446

Definition
00676 0 76000 0 00000 658 SFR00 CLM SET E12 TO ZERO TO INDICATE F1P06580

References (2)

	00755	−2 00001 1 00676	705	SFR18	TNX	SFR00,1,1 END OF TABLE EXIT	F1P07050
	00763	−0 10000 0 00676	711		TNZ	SFR00 EXAMINE TABLE AGAIN	F1P07110

␣SFR01 = 449

Definition
00701 0 50000 1 00000 661 SFR01 CLA 0,1 A WORD OF 7TA GOES TO AC. F1P06610

References (4)

00667	0 62100 0 00701	651	STA	SFR01 PLUS ORIGIN OF TABLE AND INITIALIZE	F1P06510
00703	1 77777 1 00701	663	TXI	SFR01,1,−1 EXAMINE NEXT WORD OF 7TA	F1P06630
00715	0 12000 0 00701	673	TPL	SFR01 ALPHA ONE IS SMALLER	F1P06730
00761	0 02000 0 00701	709	TRA	SFR01 START OVER WITH NEW ALPHA ONE	F1P07090

␣SFR02 = 452

Definition
00704 0 62100 0 01605 664 SFR02 STA E11 SAVE ALPHA ONE FOR COMPARISON F1P06640
Reference
00702 −0 12000 0 00704 662 TMI SFR02 COMPARE THIS WORD. IT IS ALPHA ONE F1P06620

␣SFR03 = 455

Definition
00707 0 50000 1 00000 667 SFR03 CLA 0,1 PUT NEXT WORD OF 7TA IN AC. F1P06670

References (2)

	00670	0 62100 0 00707	652		STA	SFR03 ADDRESSES	F1P06520
	00712	1 77777 1 00707	670		TXI	SFR03,1,−1 EXAMINE NEXT 7TA WORD	F1P06700

␣SFR05 = 459

Definition
00713 0 76000 0 00003 671 SFR05 SSP COMPUTE ALPHA TWO F1P06710
Reference
00710 −0 12000 0 00713 668 TMI SFR05 COMPARE THIS WORD. IT IS ALPHA TWO F1P06680

␣SFR06 = 465

Definition
00721 0 50000 1 00000 677 SFR06 CLA 0,1 ALPHA TWO GOES TO AC F1P06770
Reference
00671 0 62100 0 00721 653 STA SFR06 F1P06530

␣SFR07 = 468

Definition
00724 0 50000 1 00000 680 SFR07 CLA 0,1 PUT THIS WORD IN AC F1P06800

References (3)

00672	0 62100 0 00724	654	STA	SFR07	F1P06540
00723	1 77777 1 00724	679	TXI	SFR07,1,−1 GET NEXT WORD OF ALPHA TWO ENTRY	F1P06790
00731	1 77777 1 00724	685	TXI	SFR07,1,−1 EXAMINE NEXT WORD OF 7TA	F1P06850

␣SFR09 = 471

Definition
00727 0 60100 4 04551 683 SFR09 STO OTA,4 SAVE WORDS OF ALPHA TWO ENTRY F1P06830
Reference
00726 1 77777 4 00727 682 TXI SFR09,4,−1 GO TO NEXT WORD OF OTA F1P06820

␣SFR10 = 474

Definition
00732 −0 53400 1 01606 686 SFR10 LXD A1BOX,1 SET INDEX A TO GET ADDR OF ALPHA 1 F1P06860

References (2)

	00725	−0 12000 0 00732	681		TMI	SFR10 ALL WORDS OF ALPHA TWO ENTRY SAVED	F1P06810
	00730	−3 00001 1 00732	684		TXL	SFR10,1,1 ALPHA TWO ENTRY IS END OF TABLE	F1P06840

␣SFR11 = 475

Definition
00733 0 50000 1 00000 687 SFR11 CLA 0,1 ALPHA ONE GOES TO AC F1P06870
Reference
00673 0 62100 0 00733 655 STA SFR11 F1P06550

␣SFR12 = 477

Definition
00735 0 60100 4 04551 689 SFR12 STO OTA,4 SAVE ALPHA ONE F1P06890
Reference
00734 1 77777 4 00735 688 TXI SFR12,4,−1 GO TO NEXT WORD OF OTA F1P06880

␣SFR13 = 483

Definition
00743 0 50000 1 00000 695 SFR13 CLA 0,1 PUT NEXT WORD IN AC F1P06950

References (3)

00674	0 62100 0 00743	656	STA	SFR13	F1P06560
00742	1 77777 1 00743	694	TXI	SFR13,1,−1 EXAMINE NEXT WORD OF 7TA	F1P06940
00747	1 77777 1 00743	699	TXI	SFR13,1,−1 EXAMINE NEXT WORD OF 7TA	F1P06990

␣SFR14 = 486

Definition
00746 0 60100 4 04551 698 SFR14 STO OTA,4 SAVE WORDS OF ALPHA ONE ENTRY F1P06980
Reference
00745 1 77777 4 00746 697 TXI SFR14,4,−1 GO TO NEXT WORD OF OTA F1P06970

␣SFR15 = 488

Definition
00750 −0 53400 1 01606 700 SFR15 LXD A1BOX,1 SET INDEX A TO GET ADDR OF ALPHA 1 F1P07000
Reference
00744 −0 12000 0 00750 696 TMI SFR15 FINISHED SAVING ALPHA ONE ENTRY F1P06960

␣SFR16 = 490

Definition
00752 0 50000 2 04551 702 SFR16 CLA OTA,2 ALPHA ONE ENTRY AND ALPHA TWO ENTRY F1P07020
Reference
00757 1 00001 4 00752 707 TXI SFR16,4,1 COUNT WORDS TAKEN FROM OTA F1P07070

␣SFR17 = 491

Definition
00753 0 60100 1 00000 703 SFR17 STO 0,1 ARE INTERCHANGED F1P07030
Reference
00675 0 62100 0 00753 657 STA SFR17 F1P06570

␣SFR18 = 493

Definition
00755 −2 00001 1 00676 705 SFR18 TNX SFR00,1,1 END OF TABLE EXIT F1P07050
Reference
00754 1 77777 2 00755 704 TXI SFR18,2,−1 GO TO NEXT WORD OF OTA F1P07040

␣SFR20 = 496

Definition
00760 −0 53400 1 01607 708 SFR20 LXD A2BOX,1 GET OLD ALPHA ONE AS NEW ALPHA ONE F1P07080
Reference
00756 −3 00001 4 00760 706 TXL SFR20,4,1 TEST IF OTA IS EMPTIED F1P07060

␣SFR21 = 498

Definition
00762 0 50000 0 07746 710 SFR21 CLA E12 TEST IF TABLE IS IN ORDER F1P07100

References (2)

	00706	−2 00001 1 00762	666		TNX	SFR21,1,1 EXAMINE NEXT WORD OF 7TA	F1P06660
	00711	−3 00001 1 00762	669		TXL	SFR21,1,1 EXIT FOR END OF TABLE	F1P06690

␣SFRTP = 436

Definition
647 PROGRAM FOR SORTING FRET F1P06470

00664 0 50000 0 01613 648 SFRTP CLA 7TA−1 GET NUMBER OF WORDS IN FRET F1P06480

␣SPACE = 889

Definition
01571 0 76200 0 00221 1114 SPACE RTB 1 F1P11140

References (2)

	01563	0 02000 0 01571	1108		TRA	SPACE	F1P11080
	01566	0 02000 0 01571	1111		TRA	SPACE	F1P11110

␣TAP00 = 3909

Definition
1149 TABLE ASSEMBLY PROGRAM F1P11490

07505 0 77200 0 00204 1150 TAP00 REW 4 F1P11500

References (19)

01310	0 07400 1 07505	113	PROFOR	TSX	TAP00,1	F1P01130
01520	0 07400 1 07505	253		TSX	TAP00,1 ASSEMBLE AND WRITE SUBDEF TABLE	F1P02530
01526	0 07400 1 07505	259		TSX	TAP00,1 ASSEMBLE AND WRITE COMMON TABLE	F1P02590
01534	0 07400 1 07505	265		TSX	TAP00,1 ASSEMBLE AND WRITE TABLE OF HOLLERITH ARGS	F1P02650
01542	0 07400 1 07505	271		TSX	TAP00,1 ASSEMBLE TEIFNO FROM TAPE 4	F1P02710
01611	0 07400 1 07505	311		TSX	TAP00,1 ASSEMBLE TIFGO	F1P03110
01754	0 07400 1 07505	411		TSX	TAP00,1 ASSEMBLE TRAD	F1P04110
02014	0 07400 1 07505	444	AD000	TSX	TAP00,1 ASSEMBLE TDO	F1P04440
00510	0 07400 1 07505	524		TSX	TAP00,1 ASSEMBLE FORVAL	F1P05240
00515	0 07400 1 07505	530		TSX	TAP00,1 ASSEMBLE TABLE OF FIRST, LAST FORMULA	F1P05300
00610	0 07400 1 07505	602	A4VAR	TSX	TAP00,1 ASSEMBLE FORVAR.	F1P06020
00616	0 07400 1 07505	608		TSX	TAP00,1 ASSEMBLE FORTAG	F1P06080
00624	0 07400 1 07505	615		TSX	TAP00,1 ASSEMBLE FRET.	F1P06150
01117	0 07400 1 07505	805		TSX	TAP00,1 ASSEMBLE EQUIT.	F1P08050
01457	0 07400 1 07505	1039		TSX	TAP00,1 ASSEMBLE TABLE CLOSUB	F1P10390
01534	0 07400 1 07505	1085		TSX	TAP00,1 ASSEMBLE NONEXC TABLE	F1P10850
01542	0 07400 1 07505	1091		TSX	TAP00,1 ASSEMBLE TSTOPS TABLE	F1P10910
07512	0 62100 0 07513	1155		STA	TAP00+6	F1P11550
	07505	1325	TAPOO	SYN	TAP00	F1P13250

␣TAP01 = 3929

Definition
07531 0 53400 4 00000 1170 TAP01 LXA **,4 NO OF BLOCKS OF THIS TABLE ON TAPE 4 F1P11700
Reference
07522 0 62100 0 07531 1163 STA TAP01 F1P11630

␣TAP02 = 3941

Definition
07545 0 76600 0 00333 1182 TAP02 IOD F1P11820
Reference
07564 2 00001 4 07545 1197 TIX TAP02,4,1 F1P11970

␣TAP03 = 3953

Definition
07561 0 70000 2 00000 1194 TAP03 CPY **,2 F1P11940

References (2)

	07533	0 62100 0 07561	1172		STA	TAP03	F1P11720
	07617	3 00000 2 07561	1224	OVTEST	TXH	TAP03,2,**	F1P12240

␣TAP04 = 3957

Definition
07565 0 76600 0 00333 1198 TAP04 IOD F1P11980

␣TAP05 = 3960

Definition
07570 0 50000 0 00000 1201 TAP05 CLA ** F1P12010

References (2)

	07523	0 62100 0 07570	1164		STA	TAP05	F1P11640
	07540	−3 00000 4 07570	1177		TXL	TAP05,4,0 TEST FOR NO TAPE RECORDS	F1P11770

␣TAP06 = 3964

Definition
07574 0 40000 0 00000 1205 TAP06 ADD ** F1P12050
Reference
07517 0 62100 0 07574 1160 STA TAP06 F1P11600

␣TAP07 = 3966

Definition
07576 0 50000 4 00000 1207 TAP07 CLA **,4 F1P12070

References (2)

	07575	0 62100 0 07576	1206		STA	TAP07	F1P12060
	07602	2 00001 4 07576	1211	TAP09	TIX	TAP07,4,1	F1P12110

␣TAP08 = 3967

Definition
07577 0 60100 2 00000 1208 TAP08 STO **,2 F1P12080
Reference
07534 0 62100 0 07577 1173 STA TAP08 F1P11730

␣TAP09 = 3970

Definition
07602 2 00001 4 07576 1211 TAP09 TIX TAP07,4,1 F1P12110

␣TAP11 = 3971

Definition
07603 0 60000 0 00000 1212 TAP11 STZ ** F1P12120

References (2)

	07536	0 62100 0 07603	1175		STA	TAP11	F1P11750
	07572	0 10000 0 07603	1203		TZE	TAP11	F1P12030

␣TAP12 = 3978

Definition
07612 −0 63400 2 00000 1219 TAP12 SXD **,2 F1P12190
Reference
07537 0 62100 0 07612 1176 STA TAP12 F1P11760

␣TAP13 = 3979

Definition
07613 0 56000 0 07754 1220 TAP13 LDQ E2A F1P12200
Reference
07605 0 10000 0 07613 1214 TZE TAP13 F1P12140

␣TAP14 = 3985

Definition
07621 0 76400 0 00204 1226 TAP14 BST 4 F1P12260

References (4)

07542	0 62200 0 07622	1179	STD	TAP14+1	F1P11790
07547	1 00001 4 07621	1184	TXI	TAP14,4,1 ON	F1P11840
07567	0 02000 0 07621	1200	TRA	TAP14	F1P12000
07622	1 00000 2 07623	1227	TXI	TAP14+2,2,**	F1P12270

␣TAP20 = 3937

Definition
07541 0 50000 0 00000 1178 TAP20 CLA ** F1P11780
Reference
07520 0 62100 0 07541 1161 STA TAP20 F1P11610

␣TAPOO = 3909

Definition
07505 1325 TAPOO SYN TAP00 F1P13250

␣WAT00 = 4014

Definition

		1254				F1P12540
		1255			PROGRAM FOR WRITING AN ASSEMBLED TABLE ON TAPE	F1P12550
07656	−0 63400 2 07726	1256	WAT00	SXD	E1W,2 START PROGRAM WAT	F1P12560

References (17)

01313	0 07400 1 07656	116		TSX	WAT00,1	F1P01160
01523	0 07400 1 07656	256		TSX	WAT00,1	F1P02560
01531	0 07400 1 07656	262		TSX	WAT00,1	F1P02620
01537	0 07400 1 07656	268		TSX	WAT00,1	F1P02680
01606	0 07400 1 07656	308	WRITE	TSX	WAT00,1 WRITE TEIFNO ON TAPE	F1P03080
01751	0 07400 1 07656	408	WFG00	TSX	WAT00,1 WRITE 2TA ON TAPE	F1P04080
02011	0 07400 1 07656	441	WTR00	TSX	WAT00,1 ALL WORDS OF 3TA EXAMINED SO	F1P04410
02074	0 07400 1 07656	493	WDO00	TSX	WAT00,1 WRITE TDO ON TAPE	F1P04930
00546	0 07400 1 07656	568	CLMD09	TSX	WAT00,1	F1P05680
00613	0 07400 1 07656	605		TSX	WAT00,1 WRITE FORVAR ON TAPE	F1P06050
00621	0 07400 1 07656	611		TSX	WAT00,1 WRITE FORTAG ON TAPE	F1P06110
01114	0 07400 1 07656	802	WFR00	TSX	WAT00,1 WRITE	F1P08020
01454	0 07400 1 07656	1036	OUT	TSX	WAT00,1 WRITE EQUIT ON TAPE.	F1P10360
01514	0 07400 1 07656	1069	REC07	TSX	WAT00,1 WRITE MODIFIED	F1P10690
01537	0 07400 1 07656	1088		TSX	WAT00,1 WRITE NONEXC TABLE ON TAPE 3	F1P10880
01545	0 07400 1 07656	1094		TSX	WAT00,1 WRITE TSTOPS TABLE AS SECOND RECORD TAPE 3	F1P10940
	07656	1326	WATOO	SYN	WAT00	F1P13260

␣WAT03 = 4022

Definition
07666 0 50000 0 00000 1264 WAT03 CLA ** ADDRESS IS NTA-1 F1P12640

References (2)

	01531	0 60100 0 07665	1082		STO	WAT03−1 OVER STA FOR WORD COUNT	F1P10820
	07664	0 62100 0 07666	1262		STA	WAT03	F1P12620

␣WAT04 = 4028

Definition
07674 0 70000 0 00000 1270 WAT04 CPY ** NUM OF WORDS IN TABLE PUT ON TAPE F1P12700

References (4)

01527	0 60100 0 07673	1080	STO	WAT04−1 OVER COPY IDENTIFICATION	F1P10800
01530	0 60100 0 07674	1081	STO	WAT04 OVER COPY WORD COUNT	F1P10810
01533	0 60100 0 07676	1084	STO	WAT04+2	F1P10840
07665	0 62100 0 07674	1263	STA	WAT04	F1P12630

␣WAT05 = 4031

Definition
07677 0 70000 2 00000 1273 WAT05 CPY 0,2 ADDR IS NTA + NUM WORDS IN NTA F1P12730

References (4)

01523	0 62100 0 07701	1076	STA	WAT05+2	F1P10760
01526	0 50000 0 07703	1079	CLA	WAT05+4 NOP	F1P10790
07672	0 62100 0 07677	1268	STA	WAT05	F1P12680
07700	2 00001 2 07677	1274	TIX	WAT05,2,1 COPY LOOP	F1P12740

␣WAT06 = 4052

Definition
07724 −0 53400 2 07726 1294 WAT06 LXD E1W,2 RESTORE INDEX B F1P12940

References (3)

07676	0 10000 0 07724	1272		TZE	WAT06 NO ENTRIES IN TABLE	F1P12720
07713	0 02000 0 07724	1285		TRA	WAT06 TAPE CHECK OFF	F1P12850
07752	0 10000 0 07723	1317	TP3TRA	TZE	WAT06−1	F1P13170

␣WAT07 = 4037

Definition
07705 0 70000 0 07754 1279 WAT07 CPY E2A F1P12790

References (2)

	01524	0 62100 0 07704	1077		STA	WAT07−1	F1P10770
	07706	0 02000 0 07705	1280		TRA	WAT07	F1P12800

␣WAT08 = 4049

Definition
07721 0 76400 0 00222 1291 WAT08 BST 146 F1P12910

References (2)

	01525	0 62100 0 07721	1078		STA	WAT08	F1P10780
	07717	0 12000 0 07721	1289		TPL	WAT08	F1P12890

␣WAT09 = 4017

Definition
07661 0 76600 0 00222 1259 WAT09 WRS 146 PREPARE TO WRITE ON TAPE 2 F1P12590

References (2)

	01522	0 62100 0 07661	1075		STA	WAT09	F1P10750
	07722	0 02000 0 07661	1292		TRA	WAT09	F1P12920

␣WAT10 = 4044

Definition
07714 0 50000 0 07727 1286 WAT10 CLA E2W F1P12860
Reference
07712 0 02000 0 07714 1284 TRA WAT10 TAPE CHECK ON F1P12840

␣WAT99 = 891

Definition
01573 0 00000 0 00223 1116 WAT99 147 F1P11160
Reference
01521 0 50000 0 01573 1074 CLA WAT99 CHANGE WAT SUB ROUTINE TO WRITE ON TAPE 3 F1P10740

␣WATOO = 4014

Definition
07656 1326 WATOO SYN WAT00 F1P13260

␣WDO00 = 1084

Definition
02074 0 07400 1 07656 493 WDO00 TSX WAT00,1 WRITE TDO ON TAPE F1P04930
Reference
02020 0 10000 0 02074 449 TZE WDO00 EXIT FOR NO WORDS IN TABLE F1P04490

␣WFD00 = 364

Definition
00554 0 76600 0 00302 574 WFD00 WRS 194 PREPARE TO WRITE FORVAL ON DRUM F1P05740
Reference
00552 −0 10000 0 00554 572 TNZ WFD00 TABLE EXISTS F1P05720

␣WFD01 = 365

Definition
00555 −0 73400 1 00000 575 WFD01 PDX 0,1 SET INDEX A TO NUM OF WORDS F1P05750

References (2)

	00556	0 53400 2 00555	576		LXA	WFD01,2 SET INDEX B TO ZERO	F1P05760
	00575	0 53400 2 00555	591		LXA	WFD01,2 SET INDEX B TO ZERO	F1P05910

␣WFD02 = 375

Definition
00567 0 76000 0 00000 585 WFD02 CLM COMPUTE CHECK SUM F1P05850

References (2)

	00566	1 77777 1 00567	584		TXI	WFD02,1,−1 SUBTRACT ONE FROM INDEX A	F1P05840
	00574	2 00002 1 00567	590	WFD05	TIX	WFD02,1,2 TEST END OF FORVAL ENTRIES	F1P05900

␣WFD03 = 376

Definition
00570 0 36100 1 00000 586 WFD03 ACL 0,1 FOR EACH FORVAL F1P05860
Reference
00564 0 62100 0 00570 582 STA WFD03 F1P05820

␣WFD04 = 377

Definition
00571 0 36100 1 00000 587 WFD04 ACL 0,1 ENTRY AND SAVE IN F1P05870
Reference
00561 0 62100 0 00571 579 STA WFD04 INITIALIZE F1P05790

␣WFD05 = 380

Definition
00574 2 00002 1 00567 590 WFD05 TIX WFD02,1,2 TEST END OF FORVAL ENTRIES F1P05900
Reference
00573 1 77777 2 00574 589 TXI WFD05,2,−1 F1P05890

␣WFD06 = 385

Definition
00601 0 70000 1 00000 595 WFD06 CPY 0,1 WRITE FORVAL F1P05950

References (3)

00565	0 62100 0 00601	583	STA	WFD06	F1P05830
00600	1 77777 1 00601	594	TXI	WFD06,1,−1	F1P05940
00605	1 77777 2 00601	599	TXI	WFD06,2,−1 FOR ABOVE ENTRY	F1P05990

␣WFD07 = 386

Definition
00602 0 70000 1 00000 596 WFD07 CPY 0,1 ENTRY F1P05960
Reference
00562 0 62100 0 00602 580 STA WFD07 F1P05800

␣WFD08 = 390

Definition
00606 0 70000 2 03564 600 WFD08 CPY FRCHS,2 WRITE CHECK SUM FOR LAST ENTRY F1P06000
Reference
00603 −2 00002 1 00606 597 TNX WFD08,1,2 TEST END OF FORVAL ENTRIES F1P05970

␣WFG00 = 1001

Definition
01751 0 07400 1 07656 408 WFG00 TSX WAT00,1 WRITE 2TA ON TAPE F1P04080

References (2)

	01615	0 10000 0 01751	316		TZE	WFG00 EXIT FOR NO ENTRIES IN TABLE,	F1P03160
	01721	0 02000 0 01751	384		TRA	WFG00 EXIT TO TAPE WRITING PROGRAM	F1P03840

␣WFR00 = 588

Definition
01114 0 07400 1 07656 802 WFR00 TSX WAT00,1 WRITE F1P08020
Reference
00630 0 10000 0 01114 619 TZE WFR00 EXIT FOR EMPTY TABLE F1P06190

␣WFR01 = 583

Definition
01107 0 76200 0 00222 797 WFR01 RDS 146 POSITION F1P07970
Reference
01004 0 10000 0 01107 730 TZE WFR01 EXIT FOR EMPTY TABLE ON TAPE F1P07300

␣WRITE = 902

Definition
01606 0 07400 1 07656 308 WRITE TSX WAT00,1 WRITE TEIFNO ON TAPE F1P03080

References (3)

01547	−3 00001 4 01606	276	TXL	WRITE,4,1 IS TEIFNO EMPTY OR IS THERE A SINGLE ENTRY	F1P02760
01560	0 02000 0 01606	285	TRA	WRITE YES, FINISHED	F1P02850
01565	−2 00001 4 01606	290	TNX	WRITE,4,1 HAVE ALL ENTRIES BEEN EXAMINED	F1P02900

␣WTR00 = 1033

Definition
02011 0 07400 1 07656 441 WTR00 TSX WAT00,1 ALL WORDS OF 3TA EXAMINED SO F1P04410
Reference
01760 0 10000 0 02011 416 TZE WTR00 NO ENTRIES IN TABLE F1P04160

␣X0010 = 846

Definition
01516 0 70000 1 00036 251 X0010 CPY ENDI1+5,1 F1P02510
Reference
01517 2 00001 1 01516 252 TIX X0010,1,1 F1P02520

␣XTAM1 = 907

Definition
01613 1135 XTAM1 BSS 1 F1P11350

A10CLQ = 697

Definition
01271 0 50000 1 00000 917 A10CLQ CLA 0,1 F1P09170
Reference
01134 0 62100 0 01271 820 STA A10CLQ F1P08200

A10PTS = 658

Definition
01222 0 77000 0 00222 56 A10PTS WEF 146 END OF COMPAIL ON TAPE 2 F1P00560
Reference
01200 0 02000 0 01222 38 TRA A10PTS EOF F1P00380

A11CLQ = 706

Definition
01302 0 50000 1 00000 926 A11CLQ CLA 0,1 EQ BELOW MATCHED SYMBOL F1P09260
Reference
01135 0 62100 0 01302 821 STA A11CLQ F1P08210

A11PTS = 655

Definition
01217 0 76401 0 00223 53 A11PTS BST 147,0,1 PREPARE TO READ RECORD AGAIN F1P00530
Reference
01203 0 02000 0 01217 41 TRA A11PTS TAPE CHECK ON F1P00410

A12CLQ = 717

Definition
01315 0 50000 1 00000 937 A12CLQ CLA 0,1 LOOP TO TRANSFER F1P09370
Reference
01136 0 62100 0 01315 822 STA A12CLQ F1P08220

A13CLQ = 726

Definition
01326 0 60200 1 00000 946 A13CLQ SLW 0,1 EQ SET F1P09460
Reference
01137 0 62100 0 01326 823 STA A13CLQ F1P08230

A14CLQ = 692

Definition
01264 −0 63400 1 01314 912 A14CLQ SXD A6CLQ,1 SAVE EO INDEX OF MATCHED SYMBOL F1P09120
Reference
01263 1 00001 1 01264 911 A0CLQ TXI A14CLQ,1,1 F1P09110

A14PTS = 637

Definition
01175 0 76200 0 00223 35 A14PTS RDS 147 F1P00350

References (2)

	01216	0 02000 0 01175	52		TRA	A14PTS	F1P00520
	01220	2 00001 1 01174	54		TIX	A14PTS−1,1,1 TEST FOR 2 TAPE CHECKS,	F1P00540

A15CLQ = 703

Definition
01277 −0 12000 0 01313 923 A15CLQ TMI A9CLQ MATCHED SYMBOL IS END OF EQ SET F1P09230
Reference
01276 1 00001 2 01277 922 TXI A15CLQ,2,1 F1P09220

A15PTS = 666

Definition
01232 1 00001 1 01233 65 A15PTS TXI A15PTS+1,1,1 F1P00650

References (3)

01231	1 77777 2 01232	64		TXI	A15PTS,2,−1	F1P00640
01232	1 00001 1 01233	65	A15PTS	TXI	A15PTS+1,1,1	F1P00650
01233	3 00000 1 01230	66		TXH	A15PTS−2,1,0	F1P00660

A16CLQ = 701

Definition
01275 −0 63400 2 01356 921 A16CLQ SXD E1CLQ,2 F1P09210
Reference
01274 1 77777 2 01275 920 TXI A16CLQ,2,−1 F1P09200

A17CLQ = 710

Definition
01306 0 50000 1 00000 930 A17CLQ CLA 0,1 F1P09300

References (2)

	01140	0 62100 0 01306	824		STA	A17CLQ	F1P08240
	01305	1 77777 2 01306	929		TXI	A17CLQ,2,−1	F1P09290

AA1PTS = 629

Definition
01165 1 00001 2 01166 27 AA1PTS TXI AA2PTS,2,1 F1P00270
Reference
01164 1 77777 1 01165 26 TXI AA1PTS,1,−1 BUFFER F1P00260

AA2PTS = 630

Definition
01166 3 00000 2 01163 28 AA2PTS TXH AA3PTS,2,0 F1P00280
Reference
01165 1 00001 2 01166 27 AA1PTS TXI AA2PTS,2,1 F1P00270

AA3PTS = 627

Definition
01163 0 70000 1 00640 25 AA3PTS CPY CIB,1 CIT F1P00250
Reference
01166 3 00000 2 01163 28 AA2PTS TXH AA3PTS,2,0 F1P00280

B10CLQ = 642

Definition
01202 0 60100 2 01614 859 B10CLQ STO MEEQ,2 F1P08590
Reference
01201 1 77777 2 01202 858 TXI B10CLQ,2,−1 F1P08580

B11CLQ = 651

Definition
01213 0 50000 1 00000 868 B11CLQ CLA 0,1 LOOP TO F1P08680

References (3)

01131	0 62100 0 01213	817		STA	B11CLQ	F1P08170
01212	1 77777 1 01213	867	B5CLQ	TXI	B11CLQ,1,−1	F1P08670
01216	2 00002 1 01213	871	B6CLQ	TIX	B11CLQ,1,2	F1P08710

BUFFER = 1187

Definition
02243 506 BUFFER BES 90 F1P05060

References (3)

01424	0 70000 4 02243	192	CPY	BUFFER,4	F1P01920
01435	0 36100 4 02243	201	ACL	BUFFER,4	F1P02010
01454	0 20000 4 02243	216	MPY	BUFFER,4 N3(N1N2)	F1P02160

C10CLQ = 671

Definition
01237 0 50000 1 00000 889 C10CLQ CLA 0,1 GET EQ SUBSCRIPT F1P08890

References (2)

	01141	0 62100 0 01237	825		STA	C10CLQ	F1P08250
	01236	1 77777 1 01237	888		TXI	C10CLQ,1,−1	F1P08880

CLMD01 = 345

Definition
551 F1P05510

U 00531 0 50000 2 552 CLMD01 CLA ..,2 GET NEXT ENTRY IN CALL TABLE. F1P05520
Reference
00540 2 00001 2 00531 559 TIX CLMD01,2,1 GO FOR NEXT CALL ENTRY IF ANY. OTHERWISE F1P05590

CLMD02 = 349

Definition
00535 0 34000 1 01614 556 CLMD02 CAS 6TA,1 COMPARE CALL FIRST IN AC TO NEXT FORVAL. F1P05560
Reference
00545 2 00001 4 00535 565 CLMD04 TIX CLMD02,4,1 GO ON WITH SEARCH IF THERE ARE MORE FORVALS F1P05650

CLMD03 = 354

Definition
561 F1P05610

00542 0 50000 0 02107 562 CLMD03 CLA WORKCL REPLACE FORMULA NUMBER IN FORVAL WHICH IS F1P05620
Reference
00537 0 02000 0 00542 558 TRA CLMD03 CALL EQUAL FORVAL. F1P05580

CLMD04 = 357

Definition
00545 2 00001 4 00535 565 CLMD04 TIX CLMD02,4,1 GO ON WITH SEARCH IF THERE ARE MORE FORVALS F1P05650
Reference
00536 1 77777 1 00545 557 TXI CLMD04,1,−1 CALL GREATER THAN FORVAL F1P05570

CLMD09 = 358

Definition

		566			IF NOT GO WRITE FORVAL TABLE.	F1P05660
		567				F1P05670
00546	0 07400 1 07656	568	CLMD09	TSX	WAT00,1	F1P05680

References (3)

00514	−3 00000 4 00546	528	TXL	CLMD09,4,0 IDENTIFICATION WORD AND ZERO WORD.	F1P05280
00521	−3 00000 2 00546	535	TXL	CLMD09,2,0 IF NONE WRITE OUT FORVAL TABLE.	F1P05350
00541	0 02000 0 00546	560	TRA	CLMD09 GO WRITE FORVAL TABLE.	F1P05600

CLQOUT = 808

Definition
01450 −0 53400 4 01442 1032 CLQOUT LXD NEWTBL,4 F1P10320
Reference
01417 −3 00000 2 01450 1007 M11CLQ TXL CLQOUT,2,0 F1P10070

CMPREC = 1189

Definition
02245 509 CMPREC BSS 1 F1P05090

References (3)

01205	0 50000 0 02245	43	CLA	CMPREC COUNT EACH	F1P00430
01207	0 60100 0 02245	45	STO	CMPREC RECORD	F1P00450
01224	0 70000 0 02245	58	CPY	CMPREC	F1P00580

DIM1IX = 301

Definition
00455 1360 DIM1IX SYN 301 F1P13600

References (3)

01316	−0 53400 4 00452	120	ADD00	LXD	DIM1IX−3,4 ENTRY COUNT	F1P01200
01333	−0 53400 4 00452	133		LXD	DIM1IX−3,4	F1P01330
01343	−0 53400 4 00452	141		LXD	DIM1IX−3,4 CHECK SUM ERROR, TRY AGAIN	F1P01410

DIM2IX = 306

Definition
00462 1362 DIM2IX SYN 306 F1P13620

References (4)

01350	−0 53400 4 00457	147		LXD	DIM2IX−3,4	F1P01470
01365	−0 53400 4 00457	160		LXD	DIM2IX−3,4	F1P01600
01375	−0 53400 4 00457	168		LXD	DIM2IX−3,4 CK SUM ERROR TRY AGAIN	F1P01680
01400	−0 53400 4 00457	171	ADD15	LXD	DIM2IX−3,4	F1P01710

DIM3IX = 311

Definition
00467 1364 DIM3IX SYN 311 F1P13640

References (4)

01413	−0 53400 4 00464	183	ADD18	LXD	DIM3IX−3,4	F1P01830
01431	−0 53400 4 00464	197		LXD	DIM3IX−3,4	F1P01970
01442	−0 53400 4 00464	206		LXD	DIM3IX−3,4	F1P02060
01445	−0 53400 4 00464	209	ADD25	LXD	DIM3IX−3,4	F1P02090

E1CLEQ = 895

Definition
01577 0 00000 0 00000 1121 E1CLEQ F1P11210

References (5)

01145	0 60200 0 01577	829		SLW	E1CLEQ	F1P08290
01224	−0 63400 1 01577	878	C7CLQ	SXD	E1CLEQ,1 SAVE INDEX OF 1ST WORD OF EQ SET	F1P08760
01313	−0 53400 1 01577	935	A9CLQ	LXD	E1CLEQ,1	F1P09350
01324	−0 53400 1 01577	944		LXD	E1CLEQ,1 INDICATE	F1P09440
	01577	1346	SMBL	SYN	E1CLEQ	F1P13460

E2CLEQ = 896

Definition
01600 0 00000 0 00000 1122 E2CLEQ F1P11220

References (4)

01146	0 60200 0 01600	830		SLW	E2CLEQ	F1P08300
01270	0 62100 0 01600	916		STA	E2CLEQ SAVE SUBSCRIPT OF MEEQ SYMBOL	F1P09160
01330	0 40200 0 01600	949		SUB	E2CLEQ COMPARE WITH MEEQ SUBSCRIPT	F1P09490
	01600	1347	SBSCR	SYN	E2CLEQ	F1P13470

E3CLEQ = 897

Definition
01601 0 00000 0 00000 1123 E3CLEQ F1P11230

References (3)

01147	0 60200 0 01601	831	SLW	E3CLEQ	F1P08310
01272	0 62100 0 01601	918	STA	E3CLEQ SAVE SUBSCRIPT OF EQ SYMBOL	F1P09160
01327	0 50000 0 01601	948	CLA	E3CLEQ GET EQ SUBSCRIPT	F1P09480

E4CLEQ = 898

Definition
01602 0 00000 0 00000 1124 E4CLEQ F1P11240

References (5)

01150	0 60200 0 01602	832	SLW	E4CLEQ	F1P08320
01332	0 62100 0 01602	951	STA	E4CLEQ	F1P09510
01340	0 40000 0 01602	958	ADD	E4CLEQ OF NEW SYMBOLS	F1P09580
01345	0 40000 0 01602	963	ADD	E4CLEQ OF LAST NEW SYMBOL	F1P09630
01353	0 40000 0 01602	970	ADD	E4CLEQ OF OLD SYMBOLS	F1P09700

E5CLEQ = 899

Definition
01603 0 00000 0 00000 1125 E5CLEQ F1P11250

References (4)

01151	0 60200 0 01603	833		SLW	E5CLEQ	F1P08330
01235	0 60100 0 01603	887	C4CLQ	STO	E5CLEQ SAVE EQ SYMBOL	F1P08870
01241	0 50000 0 01603	891		CLA	E5CLEQ GET LAST SYMBOL OF EQ SET	F1P08910
01246	0 50000 0 01603	896	C8CLQ	CLA	E5CLEQ	F1P08960

END1PA = 1650

Definition
03162 510 END1PA ORG 1650 F1P05100
Reference
00001 0 00000 0 03161 4 PZE END1PA−1 F1P00040

END1PB = 907

Definition
01613 1134 END1PB ORG 907 F1P11340
Reference
00001 0 00000 0 01613 518 PZE END1PB F1P05180

END1PC = 4080

Definition
07760 1369 END1PC BSS 0 F1P13690
Reference
00001 0 00000 0 07760 1142 PZE END1PC F1P11420

ERSTOR = 797

Definition
01435 0 50000 0 01577 1021 ERSTOR CLA SMBL F1P10210
Reference
01432 3 00000 4 01435 1018 TXH ERSTOR,4,0 F1P10180

FLCNIX = 276

Definition
00424 1358 FLCNIX SYN 276 F1P13580

References (6)

01235	−0 53400 4 00421	69	FL00	LXD	FLCNIX−3,4 (N)	F1P00690
01243	0 32000 0 00422	75		ANS	FLCNIX−2	F1P00750
01244	0 32000 0 00421	76		ANS	FLCNIX−3	F1P00760
01245	0 50000 0 00421	77		CLA	FLCNIX−3 GET NUMBER OF WORDS IN FLOCON INCLUDING CK SUMS	F1P00770
01246	0 40200 0 00422	78		SUB	FLCNIX−2	F1P00780
01253	0 46000 0 00422	83		LDA	FLCNIX−2	F1P00830

FLSIZE = 1188

Definition
02244 508 FLSIZE BSS 1 F1P05080

References (2)

	01240	0 60100 0 02244	72		STO	FLSIZE LOAD FLSIZE WITH N	F1P00720
	01277	0 70000 0 02244	103		CPY	FLSIZE	F1P01030

FORSUB = 313

Definition
00471 1366 FORSUB SYN 313 F1P13660
Reference
01230 0 70000 2 00471 63 CPY FORSUB,2 F1P00630

FXCNIX = 271

Definition
00417 1357 FXCNIX SYN 271 F1P13570
Reference
01151 0 50000 0 00414 14 CLA FXCNIX−3 F1P00140

GARBGE = 1094

Definition
02106 503 GARBGE BSS 1 F1P05030

References (3)

01330	−0 70000 0 02106	130	ADD04	CAD	GARBGE COPY AND SUM CK SUMS	F1P01300
01362	−0 70000 0 02106	157	ADD12	CAD	GARBGE COPY AND SUM CK SUMS	F1P01570
01426	−0 70000 0 02106	194	ADD22	CAD	GARBGE	F1P01940

ISPLUS = 874

Definition
01552 −0 53400 4 02104 279 ISPLUS LXD PAT14,4 REINTIALIZE FOR FURTHER SEARCHING F1P02790

References (2)

	01577	0 02000 0 01552	301		TRA	ISPLUS YES	F1P03010
	01605	0 02000 0 01552	307		TRA	ISPLUS	F1P03070

ISTHRU = 879

Definition
01557 2 00001 4 01553 284 ISTHRU TIX NEXT,4,1 HAVE ALL ENTRIES BEEN EXAMINED F1P02840
Reference
01556 1 77777 1 01557 283 TXI ISTHRU,1,−1 NO, SET I.R. TO LOOK AT NEXT ENTRY F1P02830

L(0TA) = 4072

Definition
07750 0 00000 0 04551 1315 L(0TA) OTA F1P13150
Reference
07750 1327 L(OTA) SYN L(0TA) F1P13270

L(2TA) = 907

Definition
01613 0 00000 0 03163 313 L(2TA) HTR 2TA F1P03130
Reference
01620 0 40000 0 01613 319 ADD L(2TA) 2TA F1P03190

L(3TA) = 1006

Definition
01756 0 00000 0 03163 413 L(3TA) HTR 3TA F1P04130
Reference
01763 0 40000 0 01756 419 ADD L(3TA) F1P0419O

L(OTA) = 4072

Definition
07750 1327 L(OTA) SYN L(0TA) F1P13270

References (5)

01635	0 40000 0 07750	332		ADD	L(OTA) ADD OTA ORIGIN	F1P03320
01772	0 40000 0 07750	426		ADD	L(OTA) ADD OTA ORIGIN	F1P04260
02031	0 40000 0 07750	458		ADD	L(OTA) ADD OTA ORIGIN AND	F1P04580
00642	0 40000 0 07750	629		ADD	L(OTA) ADD OTA ORIGIN AND	F1P06290
	07750	1332	TOTO	SYN	L(OTA)	F1P13320

M10CLQ = 766

Definition
01376 0 50000 2 01614 990 M10CLQ CLA MEEQ,2 ITS F1P09900
Reference
01375 1 77777 2 01376 989 TXI M10CLQ,2,−1 AND F1P09890

M11CLQ = 783

Definition
01417 −3 00000 2 01450 1007 M11CLQ TXL CLQOUT,2,0 F1P10070
Reference
01367 −0 63400 2 01417 983 SXD M11CLQ,2 OF F1P09830

MDO041 = 1080

Definition
02070 0 50000 4 00000 489 MDO041 CLA 0,4 F1P04890

References (2)

	02035	0 62100 0 02070	462		STA	MDO041	F1P04620
	02065	0 10000 0 02070	486		TZE	MDO041 THERE ARE 2 ENTRIES	F1P04860

MEEQM1 = 907

Definition
01613 1340 MEEQM1 SYN XTA−1 F1P13400

References (2)

	01143	0 60200 0 01613	827		SLW	MEEQM1	F1P08270
	01365	0 62200 0 01613	980		STD	MEEQM1 SAVE WITH TABLE	F1P09800

NEWBAS = 1096

Definition
02110 505 NEWBAS BSS 1 F1P05050

References (8)

01347	−0 63400 1 02110	145	ADD08	SXD	NEWBAS,1	F1P01450
01354	−0 53400 1 02110	151		LXD	NEWBAS,1	F1P01510
01366	−0 53400 1 02110	161		LXD	NEWBAS,1	F1P01610
01401	−0 53400 1 02110	172		LXD	NEWBAS,1	F1P01720
01412	−0 63400 1 02110	181		SXD	NEWBAS,1 UPDATE NEWBAS FOR DIM3 ROUTINE	F1P01810
01417	−0 53400 1 02110	187		LXD	NEWBAS,1	F1P01870
01432	−0 53400 1 02110	198		LXD	NEWBAS,1	F1P01980
01446	−0 53400 1 02110	210		LXD	NEWBAS,1	F1P02100

NEWTBL = 802

Definition
01442 0 00000 0 00000 1026 NEWTBL HTR 0 F1P10260

References (3)

01431	−0 53400 4 01442	1017	K3CLQ	LXD	NEWTBL,4	F1P10170
01440	−0 63400 4 01442	1024	SAVIR4	SXD	NEWTBL,4	F1P10240
01450	−0 53400 4 01442	1032	CLQOUT	LXD	NEWTBL,4	F1P10320

ORG1PA = 614

Definition

	5				F1P00050
	6			THIS IS PART A OF 2 PARTS OF SECTION ONE PRIME	F1P00060
	7				F1P00070
01146	8	ORG1PA	ORG	614	F1P00080

Reference
00000 0 01146 0 01146 3 PZE ORG1PA,,ORG1PA F1P00030

ORG1PB = 327

Definition

	519				F1P05190
	520			THIS IS PART B OF 2 PARTS OF SECTION ONE PRIME	F1P05200
	521				F1P05210
00507	522	ORG1PB	ORG	327	F1P05220

Reference
00000 0 00507 0 00507 517 PZE ORG1PB,,ORG1PB F1P05170

ORG1PC = 2408

Definition

	1143				F1P11430
	1144			COMMON TO SECTION ONE PRIME	F1P11440
	1145				F1P11450
04550	1146	ORG1PC	ORG	2408	F1P11460

Reference
00000 0 00004 0 04550 1141 PZE ORG1PC,,1TOCS F1P11410

ORGDM1 = 299

Definition
00453 1359 ORGDM1 SYN 299 F1P13590
Reference
01323 0 46000 0 00453 125 LDA ORGDM1 F1P01250

ORGDM2 = 304

Definition
00460 1361 ORGDM2 SYN 304 F1P13610
Reference
01355 0 46000 0 00460 152 LDA ORGDM2 F1P01520

ORGDM3 = 309

Definition
00465 1363 ORGDM3 SYN 309 F1P13630
Reference
01420 0 46000 0 00465 188 LDA ORGDM3 F1P01680

OVFLOW = 3984

Definition
07620 0 07400 4 00004 1225 OVFLOW TSX DIAG,4 BUFFER AREA EXCEEDED F1P12250
Reference
07601 −3 00000 2 07620 1210 TAP081 TXL OVFLOW,2,** F1P12100

OVTEST = 3983

Definition
07617 3 00000 2 07561 1224 OVTEST TXH TAP03,2,** F1P12240

References (2)

	07527	−0 63400 2 07617	1168		SXD	OVTEST,2	F1P11680
	07562	1 77777 2 07617	1195		TXI	OVTEST,2,−1	F1P11950

PROFOR = 712

Definition
112 ROUTINE TO PROCESS FORMAT TABLE F1P01120

01310 0 07400 1 07505 113 PROFOR TSX TAP00,1 F1P01130

References (2)

	01300	−3 00000 4 01310	104		TXL	PROFOR,4,0 IS FLOCON EMPTY	F1P01040
	01304	−2 00001 4 01310	108		TNX	PROFOR,4,1 FINISHED, GET OUT OF LOOP	F1P01080

RECOMP = 883

Definition
01563 −0 75400 1 00000 288 RECOMP PXD 0,1 F1P02880
Reference
01562 1 77777 1 01563 287 TXI RECOMP,1,−1 SET I.R.S TO START COMPARISON F1P02870

SAVIR4 = 800

Definition
01440 −0 63400 4 01442 1024 SAVIR4 SXD NEWTBL,4 F1P10240
Reference
01437 1 77777 4 01440 1023 TXI SAVIR4,4,−1 F1P10230

TAP025 = 3950

Definition
07556 0 50000 0 07753 1191 TAP025 CLA E1A F1P11910
Reference
07554 0 02000 0 07556 1189 TRA TAP025 F1P11890

TAP081 = 3969

Definition
07601 −3 00000 2 07620 1210 TAP081 TXL OVFLOW,2,** F1P12100

References (2)

	07526	−0 63400 2 07601	1167		SXD	TAP081,2	F1P11670
	07600	1 77777 2 07601	1209		TXI	TAP081,2,−1	F1P12090

TEIFER = 4073

Definition
07751 0 07400 4 00004 1316 TEIFER TSX DIAG,4 F1P13160

References (4)

01633	0 02000 0 07751	330	TRA	TEIFER STOP FOR NO TABLE IN OTA	F1P03300
01770	0 02000 0 07751	424	TRA	TEIFER STOP FOR NO TABLE IN OTA	F1P04240
02047	0 02000 0 07751	472	TRA	TEIFER STOP FOR NO TEIFNO	F1P04720
00640	0 02000 0 07751	627	TRA	TEIFER STOP FOR NO TABLE IN OTA	F1P06270

TP3TRA = 4074

Definition
07752 0 10000 0 07723 1317 TP3TRA TZE WAT06−1 F1P13170
Reference
01532 0 50000 0 07752 1083 CLA TP3TRA F1P10830

WORKCL = 1095

Definition
02107 504 WORKCL BSS 1 F1P05040

References (14)

01153	0 60100 0 02107	16		STO	WORKCL	F1P00160
01154	0 70000 0 02107	17		CPY	WORKCL	F1P00170
01155	0 70000 0 02107	18		CPY	WORKCL	F1P00180
01402	0 60000 0 02107	173		STZ	WORKCL	F1P01730
01404	0 62100 0 02107	175		STA	WORKCL	F1P01750
01406	0 20000 0 02107	177		MPY	WORKCL N1*N2	F1P01770
01450	0 60000 0 02107	212		STZ	WORKCL	F1P02120
01451	0 62100 0 02107	213		STA	WORKCL	F1P02130
01453	0 20000 0 02107	215		MPY	WORKCL N1*N2	F1P02150
01470	0 60100 0 02107	229		STO	WORKCL	F1P02290
01505	0 70000 0 02107	242		CPY	WORKCL	F1P02420
00522	0 60000 0 02107	544		STZ	WORKCL	F1P05440
00532	0 62200 0 02107	553		STD	WORKCL DIVIDE ENTRY INTO FIRST IN AC, LAST IN CS.	F1P05530
00542	0 50000 0 02107	562	CLMD03	CLA	WORKCL REPLACE FORMULA NUMBER IN FORVAL WHICH IS	F1P05620

			1126			WORKING STORAGE FOR PROGRAM AMW	F1P11260
	01604	0 00000 0 00000	1127	E10			F1P11270

			68			PROGRAM FOR SAVING FLOCON TABLE	F1P00680
	01235	−0 53400 4 00421	69	FL00	LXD	FLCNIX−3,4 (N)	F1P00690

			299			FOR COMPARISON	F1P02990
	01576	2 00001 4 01567	300	PAT8	TIX	PAT16,4,1 HAVE ALL ENTRIES BEEN COMPARED	F1P03000

			910			MEEQ SYMBOL MATCHES EQ SYMBOL	F1P09100
	01263	1 00001 1 01264	911	A0CLQ	TXI	A14CLQ,1,1	F1P09110

			119			ROUTINE TO CONVERT DIM TABLES TO SIZ TABLE.	F1P01190
	01316	−0 53400 4 00452	120	ADD00	LXD	DIM1IX−3,4 ENTRY COUNT	F1P01200

			182			NOW READ DIM3 TABLE.	F1P01820
	01413	−0 53400 4 00464	183	ADD18	LXD	DIM3IX−3,4	F1P01830

			222			NOW WRITE SIZ TABLE ON TAPE 2.	F1P02220
	01462	−0 75400 1 00000	223	ADD28	PXD	0,1	F1P02230

			841			INITIALIZATION OF AN EQUIVALENCE CLASS	F1P08410
	01161	−0 53400 1 04550	842	BOCLQ	LXD	EQM1,1 SET INDEX A TO MUM OF WORDS IN EQ	F1P08420

			873			COMPARISON OF MEEQ SYMBOLS WITH EQ SYMBOLS	F1P08730
	01220	−0 53400 2 01576	874	C0CLQ	LXD	BOX2,2 INITIALIZE TEST	F1P06740

			966			EQ SUBSCRIPT GREATER THAN MEEQ SUBSCRIPT	F1P09660
	01350	−0 53400 2 01575	967	E0CLQ	LXD	BOX1,2	F1P09670

			1296				F1P12960
	07726	0 00000 0 00000	1297	E1W			F1P12970

			902			END OF TABLE MEEQ, NO MATCH IN TABLE EQ	F1P09020
	01254	−0 53400 2 01576	903	F2CLQ	LXD	BOX2,2 INDICATE	F1P09030

			1117			WORKING STORAGE FOR PROGRAM CLEQ	F1P11170
	01574	0 00000 0 04551	1118	L(EQ)		EQ	F1P11180

			447			PROGRAM FOR MODIFICATION OF TDO WITH TEIFNO	F1P04470
	02017	0 50000 0 03162	448	MDOTP	CLA	1TA−1 GET NUMBER OF WORDS IN ITA	F1P04480

			314			START PROGRAM FOR MODIFICATION OF TIFGO WITH TEIFNO	F1P03140
	01614	0 50000 0 03162	315	MFGTP	CLA	2TA−1 GET NUMBER OF WORDS IN 2TA.	F1P03150

			414			PROGRAM FOR MODIFICATION OF TRAD WITH TEIFNO	F1P04140
	01757	0 50000 0 03162	415	MTRTP	CLA	3TA−1 GET NUM OF WORDS IN 3TA	F1P04150

			1042			PROGRAM FOR REMOVING DUPLICATE ENTRIES FROM TABLE CLOSUB	F1P10420
	01462	0 50000 0 01613	1043	RDCTP	CLA	9TA−1 GET NUMBER OF WORDS IN 9TA	F1P10430

			647			PROGRAM FOR SORTING FRET	F1P06470
	00664	0 50000 0 01613	648	SFRTP	CLA	7TA−1 GET NUMBER OF WORDS IN FRET	F1P06480

			1149			TABLE ASSEMBLY PROGRAM	F1P11490
	07505	0 77200 0 00204	1150	TAP00	REW	4	F1P11500

			551				F1P05510
U	00531	0 50000 2	552	CLMD01	CLA	..,2 GET NEXT ENTRY IN CALL TABLE.	F1P05520

			561				F1P05610
	00542	0 50000 0 02107	562	CLMD03	CLA	WORKCL REPLACE FORMULA NUMBER IN FORVAL WHICH IS	F1P05620

			112			ROUTINE TO PROCESS FORMAT TABLE	F1P01120
	01310	0 07400 1 07505	113	PROFOR	TSX	TAP00,1	F1P01130