Symbols

␣␣␣SYM = 344

Definition
00530 1250 SYM SYN E$SYM

External references (11)

02405	0 60100 0 00530	582	STO	SYM
02431	0 60100 0 00530	602	STO	SYM
02456	0 60100 0 00530	623	STO	SYM
02535	0 60100 0 00530	670	STO	SYM
02626	0 60100 0 00530	727	STO	SYM
03034	0 60100 0 00530	861	STO	SYM
03065	0 60100 0 00530	886	STO	SYM
01325	0 60100 0 00530	23	STO	SYM
01332	0 60100 0 00530	28	STO	SYM
01352	0 60100 0 00530	44	STO	SYM
01311	0 70000 0 00530	12	CPY	SYM

␣␣DONE = 182

Definition
00266 1253 DONE SYN E$DONE

External references (2)

	01337	0 60100 0 00271	32		STO	DONE+3
	03276	0 60100 0 00266	1023		STO	DONE RE-RUN FOR MACHINE ERROR

␣␣ERAS = 687

Definition
01257 1244 ERAS SYN E$ERAS

External references (83)

02310	0 60200 0 01257	521		SLW	ERAS
02313	0 56000 0 01257	524		LDQ	ERAS
02326	0 60200 0 01257	535		SLW	ERAS
02330	0 56000 0 01257	537		LDQ	ERAS
02541	0 60200 0 01257	674		SLW	ERAS
02542	0 56000 0 01257	675		LDQ	ERAS
03226	0 60200 0 01257	983		SLW	ERAS
03227	0 56000 0 01257	984		LDQ	ERAS
03247	0 60200 0 01257	1000		SLW	ERAS
03250	0 56000 0 01257	1001		LDQ	ERAS
01311	0 70000 1 01276	10	COPYW	CPY	ERAS+15,1 COPY FIRST WORD OF 4 WORD ENTRY.
01312	0 70000 1 01277	11		CPY	ERAS+16,1 IGNORE NEXT THREE.
01313	0 70000 1 01277	12		CPY	ERAS+16,1
01314	0 70000 1 01277	13		CPY	ERAS+16,1
01317	0 50000 1 01276	16	NEXT	CLA	ERAS+15,1 IF NOT LOCATION SYMBOL OF CIT,
01333	0 60200 0 01257	28		SLW	ERAS
01336	0 56000 0 01257	31		LDQ	ERAS
01310	0 70000 0 01257	9		CPY	ERAS COPY FIRST WORD OF 4 WORD ENTRY.
01311	0 50000 0 01257	10		CLA	ERAS
01314	0 60200 0 01257	13		SLW	ERAS
01317	0 56000 0 01257	16		LDQ	ERAS
01311	0 60200 0 01257	10		SLW	ERAS
01312	0 56000 0 01257	11		LDQ	ERAS
01306	0 70000 0 01257	7		CPY	ERAS
01307	−0 50000 0 01257	8		CAL	ERAS
01311	0 60100 0 01257	10		STO	ERAS
01313	0 40200 0 01257	12		SUB	ERAS
01310	0 70000 0 01257	9		CPY	ERAS IR1 IN DEC-WILL SHOW WHERE CHECK SUM IS
01311	0 50000 0 01257	10		CLA	ERAS UNCOMPLIMENT
01315	0 60000 0 01257	14		STZ	ERAS
01316	0 62100 0 01257	15		STA	ERAS
01320	0 40200 0 01257	17		SUB	ERAS
01326	0 60200 0 01257	24		SLW	ERAS
01327	0 56000 0 01257	25		LDQ	ERAS
01323	0 60200 0 01257	22		SLW	ERAS
01324	0 56000 0 01257	23		LDQ	ERAS
01323	0 60100 0 01257	20		STO	ERAS
01325	0 40200 0 01257	22		SUB	ERAS
01326	0 62100 0 01257	23		STA	ERAS
01330	0 46000 0 01257	25		LDA	ERAS
01337	0 60200 0 01257	32		SLW	ERAS
01340	0 56000 0 01257	33		LDQ	ERAS
01323	0 60200 0 01257	22		SLW	ERAS
01324	0 56000 0 01257	23		LDQ	ERAS
01673	0 60200 0 01257	252		SLW	ERAS
01674	0 56000 0 01257	253		LDQ	ERAS
01707	0 60200 0 01257	264		SLW	ERAS
01710	0 56000 0 01257	265		LDQ	ERAS
01750	0 60200 0 01257	297		SLW	ERAS
01751	0 56000 0 01257	298		LDQ	ERAS
01770	0 60200 0 01257	313		SLW	ERAS
01771	0 56000 0 01257	314		LDQ	ERAS
01774	0 60200 0 01260	317		SLW	ERAS+1 IE, STORE 00000B
02000	0 40000 0 01260	321		ADD	ERAS+1
02010	0 60200 0 01257	329		SLW	ERAS
02011	0 56000 0 01257	330		LDQ	ERAS
02014	0 40000 0 01260	333		ADD	ERAS+1
02017	0 40000 0 01260	336		ADD	ERAS+1
02027	0 60200 0 01257	344		SLW	ERAS
02030	0 56000 0 01257	345		LDQ	ERAS
02045	0 60200 0 01257	358		SLW	ERAS
02046	0 56000 0 01257	359		LDQ	ERAS
02055	−0 60000 0 01261	366		STQ	ERAS+2
02057	0 60200 0 01257	368		SLW	ERAS
02060	0 56000 0 01257	369		LDQ	ERAS
02063	0 40000 0 01260	372		ADD	ERAS+1
02066	0 56000 0 01261	375		LDQ	ERAS+2
01310	0 70000 0 01257	9		CPY	ERAS
01311	0 50000 0 01257	10		CLA	ERAS
01313	0 60100 0 01271	12		STO	ERAS+10
01315	0 60200 0 01257	14		SLW	ERAS
01316	0 56000 0 01257	15		LDQ	ERAS
01324	0 40200 0 01271	21		SUB	ERAS+10
01326	0 60200 0 01257	23		SLW	ERAS
01327	0 56000 0 01257	24		LDQ	ERAS
01310	0 70000 0 01257	9		CPY	ERAS
01312	0 40000 0 01257	11		ADD	ERAS
01310	0 70000 0 01257	9		CPY	ERAS
01312	0 56000 0 01257	11		LDQ	ERAS
01320	0 56000 0 01257	17		LDQ	ERAS FIX TAG FIELD
01326	0 50000 0 01257	23		CLA	ERAS
01310	0 60100 0 01257	10		STO	ERAS
01313	0 40200 0 01257	13		SUB	ERAS

␣␣HTR4 = 206

Definition
00316 1248 HTR4 SYN E$HTR4

External references (8)

01336	0 50000 0 00316	31		CLA	HTR4
03275	0 50000 0 00316	1022	ENDMAC	CLA	HTR4 SET RETURN SO PROBLEM CAN BE
01313	0 62200 0 00316	12		STD	HTR4
01313	0 62200 0 00316	12		STD	HTR4
01313	0 62200 0 00316	13		STD	HTR4
01323	0 62200 0 00316	20		STD	HTR4
01313	0 62200 0 00316	12		STD	HTR4
01313	0 62200 0 00316	12		STD	HTR4

␣␣LIST = 32767

Definition
77777 1249 LIST SYN E$LIST

External references (44)

	77453	3	TOOMCH	SYN	LIST−20
00006	0 70000 1 77452	11	RB	CPY	LIST−21,1
00014	0 60000 0 77453	17		STZ	LIST−20
	77500	29		ORG	LIST+1
77750	0 50000 1 77477	198	CMPR	CLA	LIST,1
77760	0 60100 1 77477	206		STO	LIST,1
77761	0 60000 1 77500	207		STZ	LIST+1,1
01313	0 50000 1 77777	12		CLA	LIST,1
01341	0 50000 1 77776	34	TEIFNO	CLA	LIST−1,1 BETA, WHICH IS DUPLICATED IN SOURCE
01464	0 50000 1 77777	117		CLA	LIST,1
02211	0 50000 1 77777	458		CLA	LIST,1 IS TRYING TO TURN CONTROL OVER TO A
02305	0 50000 1 77776	518		CLA	LIST−1,1 GET EXTERNAL NUMBER OF TIFGO ENTRY
02322	0 50000 1 77776	531		CLA	LIST−1,1 GET EXTERNAL NUMBER OF STATEMENT
02402	0 50000 1 77776	579	DOBTNX	CLA	LIST−1,1 BETA IS NOT AN EXECUTABLE STATEMENT
02404	0 50000 1 77775	581		CLA	LIST−2,1
02426	0 50000 1 77776	599	CONBET	CLA	LIST−1,1 IN ALPHA DO BETA, BETA IS A CONDITIONAL
02430	0 50000 1 77775	601		CLA	LIST−2,1
02453	0 50000 1 77776	620	DOALNX	CLA	LIST−1,1 ALPHA PLUS 1, IN ALPHA D0 BETA,
02455	0 50000 1 77775	622		CLA	LIST−2,1
02502	0 50000 1 77777	643	CHBTSX	CLA	LIST,1 THE SYMBOL, OR A VARIABLE IN A DO STATEMENT
02532	0 50000 1 77775	667		CLA	LIST−2,1 ARRANGE TO PRINT DO STATEMENT
02534	0 50000 1 77774	669		CLA	LIST−3,1
02536	−0 50000 1 77776	671		CAL	LIST−1,1 REMOVE ZEROS FROM VARIABLE NAME AND
02623	0 50000 1 77775	724	CHBDO	CLA	LIST−2,1 ARRANGE TO PRINT DO STATEMENT
02625	0 50000 1 77774	726		CLA	LIST−3,1
02657	0 50000 1 77777	752		CLA	LIST,1 SOME NAME
02726	−0 50000 1 77776	791		CAL	LIST−1,1
03023	−0 50000 1 77776	852		CAL	LIST−1,1 UNPACK NAME AND MOVE TO RIGHT
03031	0 50000 1 77775	858		CLA	LIST−2,1 PRINT ALPHA TO BETA STATEMENT AND
03033	0 50000 1 77774	860		CLA	LIST−3,1
03062	0 50000 1 77775	883		CLA	LIST−2,1
03064	0 50000 1 77774	885		CLA	LIST−3,1 WITH ILLEGAL CHARACTER
03106	0 50000 1 77777	903	NOTRA	CLA	LIST,1 ALPHA+1,INTERNAL FORMULA NUMBER,
03140	0 50000 1 77777	929	FRETIF	CLA	LIST,1 INTERNAL FORMULA NUMBER
03166	−0 50000 1 77776	951	NOTEQV	CAL	LIST−1,1 THIS IS STILL IN BCD FORM, BUT MAY BE
03224	0 50000 1 77776	981		CLA	LIST−1,1
03245	0 50000 1 77776	998		CLA	LIST−1,1
01312	0 50000 1 77777	12	NXTDO	CLA	LIST,1
01322	0 50000 1 77777	20	DO1	CLA	LIST,1
01324	0 50000 1 77776	22		CLA	LIST−1,1
01327	0 50000 1 77775	25		CLA	LIST−2,1 AND 2ND
01331	0 50000 1 77774	27		CLA	LIST−3,1
01347	0 50000 1 77776	41		CLA	LIST−1,1
01351	0 50000 1 77775	43		CLA	LIST−2,1

␣␣LXDA = 95

Definition
00137 1252 LXDA SYN E$LXDA
External reference
01333 0 02000 0 00137 28 TRA LXDA

␣␣ZERO = 666

Definition
01232 1245 ZERO SYN E$ZERO

External references (22)

00243	0 53400 1 00161	40		LXA	ZERO,1 SET XR1=0	F6C00320
00237	0 70000 0 00161	35	B4	CPY	ZERO	F6L00330
01306	−0 53400 1 01232	7		LXD	ZERO,1
01310	−0 53400 1 01232	9		LXD	ZERO,1
01312	−0 53400 2 01232	11		LXD	ZERO,2
02507	0 53400 4 01232	648		LXA	ZERO,4 WAS PICKED UP
02656	−0 53400 2 01232	751	CHATSX	LXD	ZERO,2 AN ILLEGAL CHARACTER HAS BEEN FOUND IN
02721	−0 53400 2 01232	786		LXD	ZERO,2 TRANSFER 8 WORDS ABOUT STATEMENT
01311	−0 53400 1 01232	11		LXD	ZERO,1
01330	0 50000 0 01232	25		CLA	ZERO
01312	0 50000 0 01232	11		CLA	ZERO
01312	0 50000 0 01232	11		CLA	ZERO -
01312	0 50000 0 01232	12		CLA	ZERO
01322	0 50000 0 01232	19		CLA	ZERO
01312	0 50000 0 01232	11		CLA	ZERO
01312	0 50000 0 01232	11		CLA	ZERO
01306	−0 53400 3 01232	16		LXD	ZERO,3
01311	−0 53400 3 01232	23		LXD	ZERO,3
01306	−0 53400 1 01232	16		LXD	ZERO,1
01306	−0 53400 3 01232	13		LXD	ZERO,3
01306	−0 53400 4 01232	7		LXD	ZERO,4
01311	0 53400 1 01232	11		LXA	ZERO,1

␣FX4PR = 325

Definition
00505 1251 FX4PR SYN E$FX4PR

External references (11)

02410	0 07400 4 00505	585	TSX	FX4PR,4 PRINT DO STATEMENT
02434	0 07400 4 00505	605	TSX	FX4PR,4 PRINT DO STATEMENT
02461	0 07400 4 00505	626	TSX	FX4PR,4 PRINT DO STATEMENT
02556	0 07400 4 00505	687	TSX	FX4PR,4 PRINT DO STATEMENT
02631	0 07400 4 00505	730	TSX	FX4PR,4
03035	0 07400 4 00505	862	TSX	FX4PR,4
03066	0 07400 4 00505	887	TSX	FX4PR,4
01326	0 07400 4 00505	24	TSX	FX4PR,4 PRINT 1ST DO
01333	0 07400 4 00505	29	TSX	FX4PR,4
01353	0 07400 4 00505	45	TSX	FX4PR,4
01314	0 07400 4 00505	15	TSX	FX4PR,4

␣PRINT = 480

Definition
00740 1242 PRINT SYN E$PRINT

External references (409)

01310	0 07400 4 00740	9		TSX	PRINT,4
01345	0 07400 4 00740	38		TSX	PRINT,4
01501	0 07400 4 00740	130		TSX	PRINT,4
01503	0 07400 4 00740	132		TSX	PRINT,4
02340	0 07400 4 00740	545		TSX	PRINT,4
02342	0 07400 4 00740	547		TSX	PRINT,4
02406	0 07400 4 00740	583		TSX	PRINT,4
02432	0 07400 4 00740	603		TSX	PRINT,4
02457	0 07400 4 00740	624		TSX	PRINT,4
02554	0 07400 4 00740	685		TSX	PRINT,4
02557	0 07400 4 00740	688		TSX	PRINT,4
02627	0 07400 4 00740	728		TSX	PRINT,4
02732	0 07400 4 00740	795		TSX	PRINT,4
03027	0 07400 4 00740	856		TSX	PRINT,4
03060	0 07400 4 00740	881	SYMDO	TSX	PRINT,4
03113	0 07400 4 00740	908		TSX	PRINT,4
03144	0 07400 4 00740	933		TSX	PRINT,4
03202	0 07400 4 00740	963		TSX	PRINT,4
03222	0 07400 4 00740	979	BADWC	TSX	PRINT,4
03240	0 07400 4 00740	993		TSX	PRINT,4
03243	0 07400 4 00740	996	NOIDEN	TSX	PRINT,4
03262	0 07400 4 00740	1011		TSX	PRINT,4
03264	0 07400 4 00740	1013		TSX	PRINT,4
03267	0 07400 4 00740	1016	WHATIF	TSX	PRINT,4
03271	0 07400 4 00740	1018		TSX	PRINT,4
03273	0 07400 4 00740	1020		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01316	0 07400 4 00740	16		TSX	PRINT,4
01340	0 07400 4 00740	34		TSX	PRINT,4
01345	0 07400 4 00740	39		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01345	0 07400 4 00740	38		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01327	0 07400 4 00740	24		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01313	0 07400 4 00740	13		TSX	PRINT,4
01370	0 07400 4 00740	58	CHGTAG	TSX	PRINT,4
01522	0 07400 4 00740	148	TRASTO	TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01323	0 07400 4 00740	20		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01321	0 07400 4 00740	18		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4 .,
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01314	0 07400 4 00740	13		TSX	PRINT,4
01317	0 07400 4 00740	16		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01304	0 07400 4 00740	14		TSX	PRINT,4
01314	0 07400 4 00740	22		TSX	PRINT,4
01450	0 07400 4 00740	114		TSX	PRINT,4
01304	0 07400 4 00740	18		TSX	PRINT,4
01317	0 07400 4 00740	29		TSX	PRINT,4
01453	0 07400 4 00740	121		TSX	PRINT,4
01304	0 07400 4 00740	14		TSX	PRINT,4
01314	0 07400 4 00740	22		TSX	PRINT,4
01447	0 07400 4 00740	113		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01322	0 07400 4 00740	19	PRIN	TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01322	0 07400 4 00740	19	PRIN	TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01317	0 07400 4 00740	17	PRIN	TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01327	0 07400 4 00740	24		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01334	0 07400 4 00740	29		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	11		TSX	PRINT,4
01314	0 07400 4 00740	19		TSX	PRINT,4
01450	0 07400 4 00740	111		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01342	0 07400 4 00740	36		TSX	PRINT,4
01304	0 07400 4 00740	7		TSX	PRINT,4
01337	0 07400 4 00740	34		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01353	0 07400 4 00740	44		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01337	0 07400 4 00740	34		TSX	PRINT,4
01340	0 07400 4 00740	33		TSX	PRINT,4 CANNOT IDENTIFY TABLE VERRRY BAD
02074	0 07400 4 00740	381		TSX	PRINT,4
02076	0 07400 4 00740	383		TSX	PRINT,4
02100	0 07400 4 00740	385		TSX	PRINT,4
02102	0 07400 4 00740	387		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01334	0 07400 4 00740	29		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01317	0 07400 4 00740	16		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01315	0 07400 4 00740	14		TSX	PRINT,4
01470	0 07400 4 00740	121		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01341	0 07400 4 00740	34		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	10		TSX	PRINT,4
01306	0 07400 4 00740	12		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	8		TSX	PRINT,4
01335	0 07400 4 00740	33		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	9		TSX	PRINT,4
01306	0 07400 4 00740	11		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	6		TSX	PRINT,4
01306	0 07400 4 00740	8		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4
01304	0 07400 4 00740	25		TSX	PRINT,4
01306	0 07400 4 00740	27		TSX	PRINT,4
01304	0 07400 4 00740	7		TSX	PRINT,4
01312	0 07400 4 00740	13		TSX	PRINT,4
01315	0 07400 4 00740	16		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01317	0 07400 4 00740	17		TSX	PRINT,4
01443	0 07400 4 00740	101		TSX	PRINT,4
01304	0 07400 4 00740	5		TSX	PRINT,4
01306	0 07400 4 00740	7		TSX	PRINT,4

␣PRNT2 = 201

Definition
00311 1247 PRNT2 SYN E$PRNT2

External references (6)

01311	0 60100 0 00311	10	STO	PRNT2
01311	0 60100 0 00311	10	STO	PRNT2
01311	0 60100 0 00311	11	STO	PRNT2
01321	0 60100 0 00311	18	STO	PRNT2
01311	0 60100 0 00311	10	STO	PRNT2
01311	0 60100 0 00311	10	STO	PRNT2

␣PRNT4 = 202

Definition
00312 1246 PRNT4 SYN E$PRNT4

External references (6)

01310	0 50000 0 00312	9	CLA	PRNT4
01310	0 50000 0 00312	9	CLA	PRNT4
01310	0 50000 0 00312	10	CLA	PRNT4
01320	0 50000 0 00312	17	CLA	PRNT4
01310	0 50000 0 00312	9	CLA	PRNT4
01310	0 50000 0 00312	9	CLA	PRNT4

␣SPEND = 186

Definition
00272 1243 SPEND SYN E$SPEND

External references (38)

01340	0 02000 0 00272	33	TRA	SPEND
01342	0 02000 0 00272	36	TRA	SPEND
01347	0 02000 0 00272	40	TRA	SPEND
01331	0 02000 0 00272	26	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01315	0 02000 0 00272	15	TRA	SPEND
01372	0 02000 0 00272	60	TRA	SPEND
01524	0 02000 0 00272	150	TRA	SPEND
01310	0 02000 0 00272	10	TRA	SPEND
01325	0 02000 0 00272	22	TRA	SPEND
01323	0 02000 0 00272	20	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	10	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	10	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	10	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	10	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND
01306	0 02000 0 00272	7	TRA	SPEND
01314	0 02000 0 00272	13	TRA	SPEND
01314	0 02000 0 00272	13	TRA	SPEND
01314	0 02000 0 00272	14	TRA	SPEND
01324	0 02000 0 00272	21	TRA	SPEND
01321	0 02000 0 00272	18	TRA	SPEND
01314	0 02000 0 00272	13	TRA	SPEND
01314	0 02000 0 00272	13	TRA	SPEND
01317	0 02000 0 00272	18	TRA	SPEND
01445	0 02000 0 00272	103	TRA	SPEND
01310	0 02000 0 00272	9	TRA	SPEND

01BLNK = 384

Definition
00600 000000000060 360 01BLNK BCD 100000␣
Reference
00567 0 40200 0 00600 351 SUB 01BLNK

ADDMSK = 663

Definition
01227 +000000077777 604 ADDMSK OCT 000000077777

Local references (7)

00037	0 53400 1 01227	7		LXA	ADDMSK,1 FIND NUMBER TO SUBTRACT FROM TSX
00061	−0 32000 0 01227	25		ANA	ADDMSK PRECEDING THE CALL IN OF THE DIAG.
00145	−0 32000 0 01227	77	DUP	ANA	ADDMSK 2ND WORD WILL HAVE CORRECT ERROR RECORD
00510	−0 32000 0 01227	304		ANA	ADDMSK FROM WORD SYM
00514	−0 32000 0 01227	308		ANA	ADDMSK
00651	0 50000 0 01227	407	XB5	CLA	ADDMSK SET TEST TO ADD ASTERISK TO END OF NUMBER
00655	−0 32000 0 01227	411		ANA	ADDMSK

External references (5)

01342	−0 32000 0 01227	35	ANA	ADDMSK PROGRAM, IS IN ADDRESS 0F LIST
03107	−0 32000 0 01227	904	ANA	ADDMSK IN ADDRESS OF LIST. THIS IS NUMBER OF AN
01310	−0 32000 0 01227	9	ANA	ADDMSK
01667	−0 32000 0 01227	248	ANA	ADDMSK BUFFER FROM ADDRESS OF DRUM CHECK SUM
01306	0 50000 0 01227	7	CLA	ADDMSK PUT AWAY TABLE IDENTIFICATION WORD

ALFBET = 343

Definition
A 00527 0 00000 0 00000 319 ALFBET HTR

Local references (2)

	00506	0 50000 0 00527	302		CLA	ALFBET GETS ALPHA, OR NEAREST PRECEDING ALPHA,
	00513	0 50000 0 00527	307		CLA	ALFBET

External references (11)

02403	0 60100 0 00527	580	STO	ALFBET IN ALPHA DO BETA
02427	0 60100 0 00527	600	STO	ALFBET TRANSFER, THAT IS, A TIFGO ENTRY
02454	0 60100 0 00527	621	STO	ALFBET IS NOT EXECUTABLE
02533	0 60100 0 00527	668	STO	ALFBET
02624	0 60100 0 00527	725	STO	ALFBET
03032	0 60100 0 00527	859	STO	ALFBET SYMBOL
03063	0 60100 0 00527	884	STO	ALFBET PRINT ALPHA DO BETA FOR SYMBOL
01323	0 60100 0 00527	21	STO	ALFBET
01330	0 60100 0 00527	26	STO	ALFBET
01350	0 60100 0 00527	42	STO	ALFBET
01310	0 70000 0 00527	11	CPY	ALFBET

ASTRSK = 443

Definition
00673 546060606060 425 ASTRSK BCD 1*␣␣␣␣␣
Reference
00660 0 56000 0 00673 414 LDQ ASTRSK

BETAEX = 445

Definition
00675 0 00000 0 00000 427 BETAEX HTR 0

References (2)

	00614	0 62200 0 00675	378		STD	BETAEX
	00646	0 34000 0 00675	404		CAS	BETAEX TO THE ONE BEING ASKED FOR

BINDEC = 446

Definition

		428			ENTER, BINARY NUMBER IN ADDRESS AC. EXIT DECIMAL
		429			NUMBER IN BCD IN LOGICAL PORTION OF AC. MUST BE
		430			SAVED WITH SLW
00676	0 76000 0 00003	431	BINDEC	SSP	JUST IN CASE

Local references (2)

	00071	0 07400 4 00676	33		TSX	BINDEC,4 CONVERT TO BCD + LEFT ADJUST WORD
	00656	0 07400 4 00676	412		TSX	BINDEC,4 CONVERT TO BCD DECIMAL

External references (2)
01343 0 07400 4 00676 36 TSX BINDEC,4

01314 0 07400 4 00676 13 TSX BINDEC,4

BLANKS = 463

Definition
00717 606060606060 448 BLANKS BCD 1␣␣␣␣␣␣

Local references (3)

00110	0 56000 0 00717	48	LDQ	BLANKS
00554	0 56000 0 00717	340	LDQ	BLANKS
00711	−0 50000 0 00717	442	CAL	BLANKS START WITH BLANKS

External references (21)

01461	0 56000 0 00717	114	LDQ	BLANKS
01476	0 56000 0 00717	127	LDQ	BLANKS
02317	0 56000 0 00717	528	LDQ	BLANKS
02335	0 56000 0 00717	542	LDQ	BLANKS
03177	0 56000 0 00717	960	LDQ	BLANKS
03235	0 56000 0 00717	990	LDQ	BLANKS
01342	0 56000 0 00717	35	LDQ	BLANKS
01320	0 56000 0 00717	17	LDQ	BLANKS
01313	−0 50000 0 00717	12	CAL	BLANKS
01311	0 56000 0 00717	10	LDQ	BLANKS
01307	−0 50000 0 00717	8	CAL	BLANKS
01314	0 56000 0 00717	13	LDQ	BLANKS
01324	0 56000 0 00717	21	LDQ	BLANKS
01331	0 56000 0 00717	26	LDQ	BLANKS
01715	0 56000 0 00717	270	LDQ	BLANKS
01736	0 56000 0 00717	287	LDQ	BLANKS COMMENT
02033	0 56000 0 00717	348	LDQ	BLANKS
02071	0 56000 0 00717	378	LDQ	BLANKS
01314	0 56000 0 00717	13	LDQ	BLANKS
01322	−0 50000 0 00717	19	CAL	BLANKS
01336	0 56000 0 00717	31	LDQ	BLANKS

CHMASK = 665

Definition
01231 +000000000077 606 CHMASK OCT 000000000077

References (2)

	00546	−0 32000 0 01231	334		ANA	CHMASK IE., OCT 000000000077
	00566	−0 32000 0 01231	350		ANA	CHMASK IE., OCT 000000000077

CPYREC = 97

Definition
00141 0 70000 4 01303 73 CPYREC CPY LOCREC,4 END RECORD SKIP WILL CONTROL
Reference
00142 1 77777 4 00141 74 TXI CPYREC,4,−1 COPY AND TRANSFER

DECMSK = 664

Definition
01230 +077777000000 605 DECMSK OCT 077777000000
Local reference
00645 −0 32000 0 01230 403 ANA DECMSK

External references (10)

01314	−0 32000 0 01230	13	ANA	DECMSK
01316	−0 32000 0 01230	15	ANA	DECMSK
02213	−0 32000 0 01230	460	ANA	DECMSK
02215	−0 32000 0 01230	462	ANA	DECMSK
02504	−0 32000 0 01230	645	ANA	DECMSK
02506	−0 32000 0 01230	647	ANA	DECMSK
02661	−0 32000 0 01230	754	ANA	DECMSK KIND OF STATEMENT USING THIS NAME
02663	−0 32000 0 01230	756	ANA	DECMSK
01312	−0 32000 0 01230	11	ANA	DECMSK
01332	−0 32000 0 01230	27	ANA	DECMSK

DECONE = 667

Definition
01233 +000001000000 608 DECONE OCT 000001000000

Local references (2)

	00041	0 40000 0 01233	9		ADD	DECONE THIS WILL BE USED TO RE-COMPLIMENT ANY
	00642	−0 53400 4 01233	400		LXD	DECONE,4 SET READ IN TO FAIL IF NO TEIFNO ENTRIES

External reference
01310 0 50000 0 01233 9 CLA DECONE SET CONTROL FOR BST

DIGRTN = 145

Definition
00221 −0 53400 2 00000 121 DIGRTN LXD 0,2 RESET MEMORY
Local reference
00303 0 02000 0 00221 171 TRA DIGRTN

External references (163)

01312	0 02000 0 00221	11		TRA	DIGRTN
01307	0 02000 0 00221	8		TRA	DIGRTN
01307	0 02000 0 00221	8		TRA	DIGRTN
01307	0 02000 0 00221	9		TRA	DIGRTN
01317	0 02000 0 00221	16		TRA	DIGRTN
01306	0 02000 0 00221	7		TRA	DIGRTN
01307	0 02000 0 00221	8		TRA	DIGRTN
01307	0 02000 0 00221	8		TRA	DIGRTN
01452	0 02000 0 00221	116	E	TRA	DIGRTN
01455	0 02000 0 00221	123	E	TRA	DIGRTN
01451	0 02000 0 00221	115	E	TRA	DIGRTN
01324	0 02000 0 00221	21		TRA	DIGRTN
01324	0 02000 0 00221	21		TRA	DIGRTN
01321	0 02000 0 00221	19		TRA	DIGRTN
01331	0 02000 0 00221	26		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01336	0 02000 0 00221	31		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01452	0 02000 0 00221	113	D	TRA	DIGRTN
01344	0 02000 0 00221	38		TRA	DIGRTN
01341	0 02000 0 00221	36		TRA	DIGRTN
01355	0 02000 0 00221	46		TRA	DIGRTN
01341	0 02000 0 00221	36		TRA	DIGRTN
01342	0 00000 0 00221	35		HTR	DIGRTN
02104	0 02000 0 00221	389		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01336	0 02000 0 00221	31		TRA	DIGRTN
01321	0 02000 0 00221	18		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	10		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01472	0 02000 0 00221	123	D	TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01312	0 02000 0 00221	11		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	10		TRA	DIGRTN
01310	0 02000 0 00221	10		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01343	0 02000 0 00221	36		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	10		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	14		TRA	DIGRTN
01310	0 02000 0 00221	10		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	10		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01337	0 02000 0 00221	35		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	10		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	10		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	13		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	10		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	9		TRA	DIGRTN
01310	0 02000 0 00221	29		TRA	DIGRTN
01322	0 02000 0 00221	20	E	TRA	DIGRTN

E␣␣␣␣C = 4

Definition
00004 464 C EQU 4

References (4)

00757	0 07400 4 00776	480	TSX	WOT,C
00766	0 07400 4 00776	487	TSX	WOT,C
00770	−0 53400 4 00774	489	LXD	RNC,C
00771	0 02000 4 00002	490	TRA	2,C

E␣␣␣␣D = 632

Definition
01170 593 D BES 9

References (8)

01044	−0 60200 3 01170	533	CI5	ORS	D,3 STORE DIGIT
01054	−0 60200 2 01160	541		ORS	D−8,2 AND 3 ROWS AND
01055	−0 60200 2 01165	542		ORS	D−3,2 MOVE 8.4 AND 8.3
01060	−0 60200 2 01160	545		ORS	D−8,2 X
01061	−0 60200 2 01164	546		ORS	D−4,2 X
01070	−0 60200 3 01170	553		ORS	D,3 STORE DIGIT
01076	−0 60200 3 01170	559		ORS	D,3 STORE DIGIT
01103	−0 60200 3 01170	564		ORS	D,3 STORE DIGIT

E␣␣␣␣X = 633

Definition
01171 595 X BSS 1
Reference
01077 −0 60200 2 01171 560 XZ2 ORS X,2 STORE X-ZONE

E␣␣␣␣Y = 634

Definition
01172 596 Y BSS 1

References (2)

	01071	−0 60200 2 01172	554	YZ2	ORS	Y,2 STORE Y-ZONE
		01173	597	LT	SYN	Y+1

E␣␣␣␣Z = 632

Definition
01170 594 Z BSS 1
Reference
01102 −0 60200 2 01170 563 OZ1 ORS Z,2 STORE O-ZONE

E␣␣␣L2 = 591

Definition
01117 0 02000 4 00002 576 L2 TRA 2,4 X

E␣␣␣LT = 635

Definition
01173 597 LT SYN Y+1

References (3)

01025	0 60200 1 01173	518	PR4	SLW	LT,1 X
01107	0 70000 1 01157	568	CRAN	CPY	LT−12,1
	01155	598	8.4L	SYN	LT−14

E␣␣␣OZ = 662

Definition
A 01226 0 00000 0 00000 601 OZ HTR

References (2)

	01106	0 53400 1 01226	567	WP7	LXA	OZ,1 COPY LOOP
		01226	602	OZ2	SYN	OZ

E␣␣␣PD = 90

Definition
00132 −0 73400 4 00000 66 PD PDX 0,4 TO BE SPACED OVER BEFORE READING
Reference
00154 0 02000 0 00132 84 TRA PD

E␣␣␣Q6 = 542

Definition
01036 −0 76300 0 00006 527 Q6 LGL 6
Reference
01034 0 53400 4 01036 525 LXA Q6,4 SET CHARACTER COUNT

E␣␣␣RT = 619

Definition
01153 588 RT BES 16

References (3)

01026	0 60200 1 01153	519		SLW	RT,1 X
01110	0 70000 1 01137	569		CPY	RT−12,1 X
	01135	599	8.4R	SYN	RT−14

E␣␣␣T2 = 586

Definition
01112 3 77764 1 01107 571 T2 TXH CRAN,1,−12
Reference
01111 1 77777 1 01112 570 TXI T2,1,−1

E␣␣␣WP = 582

Definition
01106 603 WP SYN WP7

References (2)

D	01063	−3 00000 4 01106	548	CI8	TXL	WP,4 TEST FOR END
	01064	3 00017 2 01106	549		TXH	WP,2,15 TEST FOR RIGHT HALF

E␣␣␣X1 = 571

Definition
TD 01073 −3 00000 0 01046 556 X1 TXL CI3 OBTAIN NEXT GROUP

References (2)

	00776	−0 63400 1 01073	495	WOT	SXD	X1,1
	01114	−0 53400 1 01073	573		LXD	X1,1 NO, RELOAD INDEX REGISTERS AND RETURN

E␣␣␣X2 = 577

Definition
TD 01101 −3 00000 0 01046 562 X2 TXL CI3 OBTAIN NEXT GROUP

References (2)

	00777	−0 63400 2 01101	496		SXD	X2,2
	01115	−0 53400 2 01101	574		LXD	X2,2 X

E␣␣␣X4 = 597

Definition
A 01125 0 00000 0 00000 582 X4 HTR

References (4)

01001	0 62200 0 01125	498		STD	X4 X
01003	0 40000 0 01125	500		ADD	X4 X
01010	−0 63400 4 01125	505		SXD	X4,4
01116	−0 53400 4 01125	575	WT2	LXD	X4,4 X

E␣␣8.2 = 622

Definition
01156 592 8.2 BSS 1
Reference
01056 0 60200 2 01156 543 SLW 8.2,2 ROWS

E␣␣8.3 = 621

Definition
01155 591 8.3 BSS 1

References (2)

	01053	−0 50000 2 01155	540	CI7	CAL	8.3,2 FORM TRUE 8,4
	01062	0 60200 2 01155	547		SLW	8.3,2 X

E␣␣8.4 = 620

Definition
01154 590 8.4 BSS 1
Reference
01057 −0 50000 2 01154 544 CAL 8.4,2 FORM TRUE 8.4

E␣␣8.5 = 619

Definition
01153 589 8.5 BSS 1

E␣␣BNK = 599

Definition
01127 +000000000060 584 BNK OCT 60

E␣␣CI1 = 541

Definition
T 01035 −0 75400 0 00000 526 CI1 PXD

References (4)

01045	2 00001 4 01035	534	CI4	TIX	CI1,4,1 COUNT CHARACTERS
01072	2 00001 4 01035	555		TIX	CI1,4,1 COUNT CHARACTERS
01100	2 00001 4 01035	561		TIX	CI1,4,1 COUNT CHARACTERS
01104	2 00001 4 01035	565		TIX	CI1,4,1 COUNT CHARACTERS

E␣␣CI2 = 537

Definition
01031 0 60200 0 01132 522 CI2 SLW COL X
Reference
01052 −0 10000 0 01031 539 TNZ CI2 TEST FOR END OF ROW

E␣␣CI3 = 550

Definition
01046 0 77100 0 00001 535 CI3 ARS 1 SHIFT AND TEST COLUMN

References (3)

TD	01073	−3 00000 0 01046	556	X1	TXL	CI3 OBTAIN NEXT GROUP
TD	01101	−3 00000 0 01046	562	X2	TXL	CI3 OBTAIN NEXT GROUP
TD	01105	−3 00000 0 01046	566		TXL	CI3

E␣␣CI4 = 549

Definition
01045 2 00001 4 01035 534 CI4 TIX CI1,4,1 COUNT CHARACTERS
Reference
01075 3 00017 1 01045 558 TXH CI4,1,15 TEST FOR BLANK

E␣␣CI5 = 548

Definition
01044 −0 60200 3 01170 533 CI5 ORS D,3 STORE DIGIT

E␣␣CI6 = 553

Definition
D 01051 −3 00000 4 01053 538 CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GROUP
Reference
01050 1 77777 4 01051 537 TXI CI6,4,−1 COUNT GROUPS

E␣␣CI7 = 555

Definition
01053 −0 50000 2 01155 540 CI7 CAL 8.3,2 FORM TRUE 8,4
Reference
D 01051 −3 00000 4 01053 538 CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GROUP

E␣␣CI8 = 563

Definition
D 01063 −3 00000 4 01106 548 CI8 TXL WP,4 TEST FOR END

E␣␣CI9 = 538

Definition
01032 0 56000 4 00000 523 CI9 LDQ 0,4 OBTAIN GROUP
Reference
01004 0 62100 0 01032 501 STA CI9 X

E␣␣CIR = 536

Definition
01030 −0 50000 0 01131 521 CIR CAL COL1 INITIALIZE COLUMN INDICATOR
Reference
01065 1 00020 2 01030 550 TXI CIR,2,16 INITIALIZE RIGHT HALF

E␣␣CNV = 450

Definition
00702 0 50000 0 00721 435 CNV CLA TEN IF MQ LESS THAN 10, CONVERSION IS FINISHED
Reference
00707 1 00001 4 00702 440 TXI CNV,4,1 UP WORD COUNT OF BLOCK

E␣␣COL = 602

Definition
01132 587 COL BSS 1

References (2)

	01031	0 60200 0 01132	522	CI2	SLW	COL X
	01040	−0 50000 0 01132	529		CAL	COL POSITION COLUMN INDICATOR

E␣␣DEC = 458

Definition
00712 0 76700 0 00006 443 DEC ALS 6 AND BRING IN REMAINDER FROM ABOVE
Reference
00714 2 00001 4 00712 445 BINB TIX DEC,4,1

E␣␣DIG = 472

Definition
00730 451 DIG BES 6

References (3)

00706	0 60200 4 00730	439		SLW	DIG,4 SAVE REMAINDER IN 1 WORD OF BLOCK
00710	−0 60000 4 00730	441	FIN	STQ	DIG,4
00713	−0 50100 4 00730	444		ORA	DIG,4

E␣␣DUP = 101

Definition
00145 −0 32000 0 01227 77 DUP ANA ADDMSK 2ND WORD WILL HAVE CORRECT ERROR RECORD
Reference
00131 −0 12000 0 00145 65 TMI DUP SECOND WORD HAS NUMBER OF RECORDS

E␣␣END = 208

Definition
00320 606060606060 184 END BCD 7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
Reference
00257 0 00360 0 00320 151 HTR END,0,END+32

E␣␣FIN = 456

Definition
00710 −0 60000 4 00730 441 FIN STQ DIG,4
Reference
00703 0 04000 0 00710 436 TLQ FIN

E␣␣IR4 = 345

Definition
A 00531 0 00000 0 00000 321 IR4 HTR

References (2)

	00505	−0 63400 4 00531	301	FX4PR	SXD	IR4,4 THIS ROUTINE PRINTS ALPH DO BETA FOR I
	00525	−0 53400 4 00531	317		LXD	IR4,4

E␣␣L11 = 521

Definition
01011 0 73400 4 00013 506 L11 PAX 11,4

E␣␣LOC = 682

Definition
01252 606060606060 623 LOC BCD 2␣␣␣␣␣␣␣␣␣␣␣␣

References (4)

00102	−0 50000 0 01255	42	CAL	LOC+3
00106	0 60200 0 01255	46	SLW	LOC+3
00112	0 60200 0 01256	50	SLW	LOC+4
00114	0 01257 0 01252	52	HTR	LOC,0,LOC+5

E␣␣MK2 = 600

Definition
01130 +377777777777 585 MK2 OCT 377777777777

E␣␣NOP = 99

Definition
00143 0 76100 0 00000 75 NOP NOP

References (2)

	00301	0 50000 0 00143	169	FX6TST	CLA	NOP
	00305	0 50000 0 00143	173	NDWP	CLA	NOP D0 NOT PRINT A LAST COMMENT

E␣␣OCT = 475

Definition
00733 0 76700 0 00003 458 OCT ALS 3

References (2)

	00732	−0 14000 0 00733	457		TNO	OCT TURN OFF INDICATOR
	00735	−0 14000 0 00733	460		TNO	OCT END BLANK WILL TURN ON INDICATOR

E␣␣OZ1 = 578

Definition
01102 −0 60200 2 01170 563 OZ1 ORS Z,2 STORE O-ZONE
Reference
01074 2 00020 1 01102 557 XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48

E␣␣OZ2 = 662

Definition
01226 602 OZ2 SYN OZ

References (2)

	01033	−0 63400 4 01226	524		SXD	OZ2,4 STORE GROUP COUNT
	01047	−0 53400 4 01226	536		LXD	OZ2,4 RESTORE GROUP COUNT

E␣␣PR1 = 109

Definition
00155 606060606060 85 PR1 BCD 7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
Reference
00051 0 00172 0 00155 17 HTR PR1,0,PR1+13

E␣␣PR2 = 122

Definition
00172 606060606060 98 PR2 BCD 2␣␣␣␣␣␣␣␣␣␣␣␣
Reference
00075 0 00205 0 00172 37 HTR PR2,0,FOREC+1 ERROR FOUND

E␣␣PR3 = 529

Definition
01021 −0 53400 4 01123 514 PR3 LXD PR6,4 INITIALIZE GROUP COUNT
Reference
01017 −3 00014 4 01021 512 TXL PR3,4,12

E␣␣PR4 = 533

Definition
01025 0 60200 1 01173 518 PR4 SLW LT,1 X
Reference
01027 2 00001 1 01025 520 TIX PR4,1,1 X

E␣␣PR5 = 530

Definition
01022 0 53400 2 01024 515 PR5 LXA PR7,2 INITIALIZE LEFT SETUP

References (2)

D	01016	−2 00000 4 01022	511	PR8	TNX	PR5,4
	01122	−3 00014 0 01022	579	WP2	TXL	PR5,0,12 CONVERT REST OF LINE

E␣␣PR6 = 595

Definition
A 01123 0 00000 0 00000 580 PR6 HTR

References (3)

01012	−0 63400 4 01123	507		SXD	PR6,4
01015	−0 53400 4 01123	510		LXD	PR6,4 X
01021	−0 53400 4 01123	514	PR3	LXD	PR6,4 INITIALIZE GROUP COUNT

E␣␣PR7 = 532

Definition
T 01024 −0 75400 0 00000 517 PR7 PXD X
Reference
01022 0 53400 2 01024 515 PR5 LXA PR7,2 INITIALIZE LEFT SETUP

E␣␣PR8 = 526

Definition
D 01016 −2 00000 4 01022 511 PR8 TNX PR5,4

E␣␣RAN = 480

Definition
00740 0 50000 4 00001 465 RAN CLA 1,4

E␣␣RNA = 506

Definition
A 00772 0 00000 0 00000 491 RNA HTR

References (5)

00741	0 62100 0 00772	466		STA	RNA
00745	0 50000 0 00772	470	RN40	CLA	RNA
00753	0 40000 0 00772	476		ADD	RNA
00756	0 62100 0 00772	479		STA	RNA
00764	0 40000 0 00772	485		ADD	RNA

E␣␣RNB = 507

Definition
A 00773 0 00000 0 00000 492 RNB HTR

References (3)

00743	0 60100 0 00773	468		STO	RNB
00747	0 34000 0 00773	472		CAS	RNB
00762	0 50000 0 00773	483	RN50	CLA	RNB

E␣␣RNC = 508

Definition
A 00774 0 00000 0 00000 493 RNC HTR

References (2)

	00744	−0 63400 4 00774	469		SXD	RNC,4
	00770	−0 53400 4 00774	489		LXD	RNC,C

E␣␣RND = 509

Definition
00775 0 00000 0 00024 494 RND HTR 20
Reference
00746 0 40000 0 00775 471 ADD RND

E␣␣RPR = 523

Definition
01013 0 76600 0 00361 508 RPR WPR

E␣␣SIX = 372

Definition
00564 0 00006 0 00000 348 SIX HTR 0,0,6
Reference
00544 −0 53400 4 00564 332 LXD SIX,4 LEFT ADJUSTED, FOLL0WED BY 1 BLANK AND

E␣␣SYM = 344

Definition
A 00530 0 00000 0 00000 320 SYM HTR

References (2)

	00520	−0 50000 0 00530	312		CAL	SYM
		00530	1250	SYM	SYN	E$SYM

E␣␣TEN = 465

Definition
00721 +000000000012 450 TEN DEC 10

References (2)

	00702	0 50000 0 00721	435	CNV	CLA	TEN IF MQ LESS THAN 10, CONVERSION IS FINISHED
	00705	0 22100 0 00721	438		DVP	TEN

E␣␣WOT = 510

Definition
00776 −0 63400 1 01073 495 WOT SXD X1,1

References (2)

	00757	0 07400 4 00776	480		TSX	WOT,C
	00766	0 07400 4 00776	487		TSX	WOT,C

E␣␣WP2 = 594

Definition
01122 −3 00014 0 01022 579 WP2 TXL PR5,0,12 CONVERT REST OF LINE

E␣␣WP4 = 587

Definition
D 01113 3 00000 4 01120 572 WP4 TXH WP5,4

E␣␣WP5 = 592

Definition
01120 0 76600 0 00361 577 WP5 WPR
Reference
D 01113 3 00000 4 01120 572 WP4 TXH WP5,4

E␣␣WP7 = 582

Definition
01106 0 53400 1 01226 567 WP7 LXA OZ,1 COPY LOOP
Reference
01106 603 WP SYN WP7

E␣␣WT2 = 590

Definition
01116 −0 53400 4 01125 575 WT2 LXD X4,4 X

E␣␣XB1 = 402

Definition
00622 0 76200 0 00222 384 XB1 RTB 2

References (2)

	00624	0 02000 0 00622	386		TRA	XB1 SPACE OVER RECORDS UNTIL END FILE SKIP
	00625	2 00001 4 00622	387		TIX	XB1,4,1

E␣␣XB2 = 407

Definition
00627 0 76200 0 00222 389 XB2 RTB 2
Reference
00631 2 00001 4 00627 391 TIX XB2,4,1

E␣␣XB3 = 414

Definition
00636 0 70000 4 77012 396 XB3 CPY TEIFIN−1,4 READ IN TEIFNO UNTIL END OF RECORD SKIP
Reference
00637 1 00001 4 00636 397 TXI XB3,4,1

E␣␣XB4 = 420

Definition
00644 0 50000 4 77013 402 XB4 CLA TEIFIN,4 COMPARE INTERNAL FORMULA NUMBERS

References (2)

	00617	3 00000 4 00644	381		TXH	XB4,4,0 IF TEIFNO IN MEMORY, SKIP READ IN
	00665	2 00001 4 00644	419	XB8	TIX	XB4,4,1 COMPARE TO NEXT, OR

E␣␣XB5 = 425

Definition
00651 0 50000 0 01227 407 XB5 CLA ADDMSK SET TEST TO ADD ASTERISK TO END OF NUMBER
Reference
00666 0 02000 0 00651 420 TRA XB5 PRINT FIRST ENTRY WITH ASTERISK

E␣␣XB6 = 428

Definition
00654 0 50000 4 77013 410 XB6 CLA TEIFIN,4 GET EXTERNAL FORMULA NUMBER
Reference
00670 0 02000 0 00654 422 TRA XB6

E␣␣XB7 = 435

Definition
00663 −0 53400 4 00671 417 XB7 LXD XB10,4
Reference
00661 −3 00000 4 00663 415 TXL XB7,4,0 SHOULD ASTERISK BE ADDED

E␣␣XB8 = 437

Definition
00665 2 00001 4 00644 419 XB8 TIX XB4,4,1 COMPARE TO NEXT, OR
Reference
00647 0 02000 0 00665 405 TRA XB8

E␣␣XB9 = 439

Definition
00667 0 60000 0 00672 421 XB9 STZ XB11 SET TEST TO PRINT NUMBER ONLY
Reference
00650 0 02000 0 00667 406 TRA XB9

E␣␣XZ1 = 572

Definition
01074 2 00020 1 01102 557 XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48
Reference
01066 2 00020 1 01074 551 YZ1 TIX XZ1,1,16 TEST FOR 16/CH/32

E␣␣XZ2 = 575

Definition
01077 −0 60200 2 01171 560 XZ2 ORS X,2 STORE X-ZONE
Reference
01067 3 00017 1 01077 552 TXH XZ2,1,15 TEST FOR X-ZONE

E␣␣XZY = 1945

Definition
03631 0 00000 0 00000 1239 XZY
Reference
00002 0 00036 0 03630 3 HTR XZY−1,0,30 CARD FOR DE

E␣␣YZ1 = 566

Definition
01066 2 00020 1 01074 551 YZ1 TIX XZ1,1,16 TEST FOR 16/CH/32

References (2)

	01023	−0 53400 1 01066	516		LXD	YZ1,1 CLEAR CARD IMAGE
	01042	2 00020 1 01066	531		TIX	YZ1,1,16 TEST FOR DIGIT

E␣␣YZ2 = 569

Definition
01071 −0 60200 2 01172 554 YZ2 ORS Y,2 STORE Y-ZONE
Reference
01043 3 00017 1 01071 532 TXH YZ2,1,15 TEST FOR Y-ZONE

E␣8.4L = 621

Definition
01155 598 8.4L SYN LT−14

E␣8.4R = 605

Definition
01135 599 8.4R SYN RT−14

E␣BINA = 464

Definition
A 00720 0 00000 0 00000 449 BINA HTR

References (2)

	00700	−0 63400 4 00720	433		SXD	BINA,4
	00715	−0 53400 4 00720	446		LXD	BINA,4

E␣BINB = 460

Definition
00714 2 00001 4 00712 445 BINB TIX DEC,4,1
Reference
00701 −0 53400 4 00714 434 LXD BINB,4

E␣BST1 = 207

Definition
00317 0 76400 0 00201 183 BST1 BST 1
Reference
00272 0 50000 0 00317 162 SPEND CLA BST1 BACKSPACE OVER FILE MARK

E␣COL1 = 601

Definition
01131 −0 00000 0 00000 586 COL1 MZE
Reference
01030 −0 50000 0 01131 521 CIR CAL COL1 INITIALIZE COLUMN INDICATOR

E␣CPDR = 204

Definition
00314 0 70000 4 04000 180 CPDR CPY 2048,4
Reference
00222 0 50000 0 00314 122 CLA CPDR LOOP AT LOC. 0,1 AND 2 WILL

E␣CRAN = 583

Definition
01107 0 70000 1 01157 568 CRAN CPY LT−12,1
Reference
01112 3 77764 1 01107 571 T2 TXH CRAN,1,−12

E␣DONE = 182

Definition
00266 0 76600 0 00333 158 DONE IOD
Reference
00266 1253 DONE SYN E$DONE

E␣DRUM = 203

Definition
00313 0 03775 0 00003 179 DRUM HTR 3,0,2045

References (2)

	03534	−0 53400 4 00313	1178	ENDPCH	LXD	DRUM,4
	03536	0 46000 0 00313	1180		LDA	DRUM

E␣END1 = 240

Definition
00360 606060606060 216 END1 BCD 7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
Reference
00261 0 00376 0 00360 153 PRNT1 HTR END1,0,END1+14

E␣END2 = 254

Definition
00376 606060606060 230 END2 BCD 7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
Reference
00311 0 00417 0 00376 177 PRNT2 HTR END2,0,END2+17 MAY CONTINUE NEXT BATCH

E␣END3 = 271

Definition
00417 606060606060 247 END3 BCD 7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
Reference
00312 0 00463 0 00417 178 PRNT4 HTR END3,0,END3+36

E␣ERAS = 687

Definition
01257 628 ERAS BSS 20 FOR PATCHING ETC.

References (4)

00101	0 60200 0 01257	41		SLW	ERAS
00104	0 56000 0 01257	44		LDQ	ERAS
00252	0 70000 0 01257	146		CPY	ERAS
	01257	1244	ERAS	SYN	E$ERAS

E␣HAVE = 88

Definition
00130 0 50000 4 02347 64 HAVE CLA ERLIST+1,4 DUPLICATE STOPS SHOULD BE MARKED MINUS
Reference
00123 0 02000 0 00130 59 TRA HAVE

E␣HTR4 = 206

Definition
00316 0 02000 0 00004 182 HTR4 TRA 4

References (2)

	00226	0 50000 0 00316	126		CLA	HTR4
		00316	1248	HTR4	SYN	E$HTR4

E␣LAJ1 = 387

Definition
00603 0 14000 0 00604 363 LAJ1 TOV LAJ2 TURN OFF INDICATOR
Reference
00607 0 02000 0 00603 367 TRA LAJ1

E␣LAJ2 = 388

Definition
00604 −0 76300 0 00001 364 LAJ2 LGL 1 NUMBER HAS ZERO ZONE, BLANK WILL TURN
Reference
00603 0 14000 0 00604 363 LAJ1 TOV LAJ2 TURN OFF INDICATOR

E␣LAJ3 = 392

Definition
00610 0 77100 0 00001 368 LAJ3 ARS 1 FIRST BIT FROM Q BACK TO P
Reference
00605 −0 14000 0 00610 365 TNO LAJ3 ON INDICATOR

E␣LIST = 32767

Definition
77777 6 LIST SYN 32767

References (2)

		77013	376	TEIFIN	SYN	LIST−500
		77777	1249	LIST	SYN	E$LIST

E␣LXDA = 95

Definition
00137 −0 53400 4 01232 71 LXDA LXD ZERO,4

References (3)

00125	0 02000 0 00137	61		TRA	LXDA UNIDENTIFYABLE, BRING IN RECORD ZERO
00152	0 02000 0 00137	82		TRA	LXDA IF END OF LIST, PRINT REC. ZERO
	00137	1252	LXDA	SYN	E$LXDA

E␣NDWP = 197

Definition
00305 0 50000 0 00143 173 NDWP CLA NOP D0 NOT PRINT A LAST COMMENT
Reference
00276 0 02000 0 00305 166 TRA NDWP

E␣PRDO = 346

Definition
00532 606060606060 322 PRDO BCD 4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
Reference
00524 0 00543 0 00532 316 HTR PRDO,0,PRDO+9

E␣RAJ1 = 383

Definition
A 00577 0 00000 0 00000 359 RAJ1 HTR

References (3)

00565	0 60200 0 00577	349	RAJUST	SLW	RAJ1 ENTER, CAL BCD, LEFT ADJUSTED PLUS BLANKS
00571	−0 50000 0 00577	353		CAL	RAJ1 YES, MOVE WORD AND ADD BLANK AT FRONT
00575	−0 50000 0 00577	357	RAJ2	CAL	RAJ1 LEAVES AC WITH LEADING BLANKS, MUST BE

E␣RAJ2 = 381

Definition
00575 −0 50000 0 00577 357 RAJ2 CAL RAJ1 LEAVES AC WITH LEADING BLANKS, MUST BE
Reference
00570 −0 10000 0 00575 352 TNZ RAJ2

E␣RN40 = 485

Definition
00745 0 50000 0 00772 470 RN40 CLA RNA
Reference
00761 0 02000 0 00745 482 TRA RN40

E␣RN50 = 498

Definition
00762 0 50000 0 00773 483 RN50 CLA RNB
Reference
00751 0 02000 0 00762 474 TRA RN50

E␣RN60 = 503

Definition
A 00767 0 00000 0 00000 488 RN60 HTR
Reference
00765 0 60100 0 00767 486 STO RN60

E␣RTBA = 92

Definition
00134 0 76200 0 00221 68 RTBA RTB 1 EDITOR RECORD NUMBER
References (2)
00133 2 00003 4 00134 67 TIX RTBA,4,3 REDUCE NUMBER IF NOT REC 1, NOW SAME AS

00136 2 00001 4 00134 70 TIX RTBA,4,1

E␣SKIP = 172

Definition
00254 0 76200 0 00221 148 SKIP RTB 1 OVER REC 1, FILE 2, OUR TRA 4, THEIR WHO KNOWS

References (2)

	00273	0 60100 0 00254	163		STO	SKIP AND OVER SOURCE ERROR RECORD
	00274	0 60100 0 00255	164		STO	SKIP+1

E␣TIXA = 84

Definition
00124 2 00002 4 00120 60 TIXA TIX SEARCH,4,2
Reference
00122 0 02000 0 00124 58 TRA TIXA

E␣TIXO = 205

Definition
00315 2 00001 4 00000 181 TIXO TIX 0,4,1
Reference
00224 0 50000 0 00315 124 CLA TIXO BEGINNING AT LOC. 3

E␣TW13 = 144

Definition
00220 0 00000 0 00325 120 TW13 HTR 213
Reference
00063 0 40200 0 00220 27 SUB TW13 IF NON-ARITHMETIC HAS CALLED DIAG

E␣XB10 = 441

Definition
00671 0 00000 0 00004 423 XB10 HTR 4,0,0

References (3)

00615	−0 63400 4 00671	379		SXD	XB10,4
00621	0 53400 4 00671	383		LXA	XB10,4 4 FILES TO BE SPACED OVER
00663	−0 53400 4 00671	417	XB7	LXD	XB10,4

E␣XB11 = 442

Definition
00672 0 00000 0 00000 424 XB11 HTR 0

References (3)

00653	0 60100 0 00672	409		STO	XB11
00657	0 53400 4 00672	413		LXA	XB11,4
00667	0 60000 0 00672	421	XB9	STZ	XB11 SET TEST TO PRINT NUMBER ONLY

E␣XB4A = 419

Definition
00643 −0 63400 4 00640 401 XB4A SXD INCOR,4
Reference
00641 3 00000 4 00643 399 TXH XB4A,4,0

E␣ZER1 = 357

Definition
00545 0 60200 0 00562 333 ZER1 SLW ZER5 PADDLED OUT WITH ZEROS
Reference
00552 2 00001 4 00545 338 TIX ZER1,4,1

E␣ZER2 = 363

Definition
00553 −0 50000 0 00562 339 ZER2 CAL ZER5
Reference
00547 −0 10000 0 00553 335 TNZ ZER2

E␣ZER3 = 365

Definition
00555 3 00005 4 00560 341 ZER3 TXH ZER4,4,5
Reference
00557 1 00001 4 00555 343 TXI ZER3,4,1

E␣ZER4 = 368

Definition
00560 −0 53400 4 00563 344 ZER4 LXD ZER6,4 LEAVE, BCD AND BLANKS, MUST BE SAVED
Reference
00555 3 00005 4 00560 341 ZER3 TXH ZER4,4,5

E␣ZER5 = 370

Definition
A 00562 0 00000 0 00000 346 ZER5 HTR

References (3)

00545	0 60200 0 00562	333	ZER1	SLW	ZER5 PADDLED OUT WITH ZEROS
00550	−0 50000 0 00562	336		CAL	ZER5 LAST CHARACTER WAS ZERO
00553	−0 50000 0 00562	339	ZER2	CAL	ZER5

E␣ZER6 = 371

Definition
A 00563 0 00000 0 00000 347 ZER6 HTR

References (2)

	00543	−0 63400 4 00563	331	ZEROUT	SXD	ZER6,4 ENTER CAL.BCD WORD WHICH FORTRAN HAS STORED
	00560	−0 53400 4 00563	344	ZER4	LXD	ZER6,4 LEAVE, BCD AND BLANKS, MUST BE SAVED

E␣ZERO = 666

Definition
01232 0 00000 0 00000 607 ZERO HTR 0

References (3)

00137	−0 53400 4 01232	71	LXDA	LXD	ZERO,4
00632	−0 53400 4 01232	392		LXD	ZERO,4
	01232	1245	ZERO	SYN	E$ZERO

EBLANK = 479

Definition
00737 000000000060 462 BLANK BCD 100000␣
Reference
00731 0 50000 0 00737 456 CLA BLANK AC ZERO EXEPT FOR END BLANK

EBLNKO = 394

Definition
00612 606060606000 370 BLNKO BCD 1␣␣␣␣␣0 WILL STOP ROUTINE IF WORD IS ALL BLANKS.
Reference
00602 0 56000 0 00612 362 LAJUST LDQ BLNKO ENTER, CAL BCD NUMBER, LEADING BLANKS

EBLNKS = 596

Definition
01124 606060606060 581 BLNKS BCD 1␣␣␣␣␣␣

EDOALF = 350

Definition
A 00536 0 00000 0 00000 326 DOALF HTR
Reference
00512 0 60200 0 00536 306 SLW DOALF BLANKS ARE TO RIGHT OF WORD

EDOBET = 352

Definition
A 00540 0 00000 0 00000 328 DOBET HTR
Reference
00517 0 60200 0 00540 311 SLW DOBET

EDOSYM = 354

Definition
A 00542 0 00000 0 00000 330 DOSYM HTR
Reference
00522 0 60200 0 00542 314 SLW DOSYM

EFOREC = 132

Definition
A 00204 0 00000 0 00000 108 FOREC HTR
References (2)
00073 0 60200 0 00204 35 SLW FOREC

00075 0 00205 0 00172 37 HTR PR2,0,FOREC+1 ERROR FOUND

EFX4PR = 325

Definition
00505 −0 63400 4 00531 301 FX4PR SXD IR4,4 THIS ROUTINE PRINTS ALPH DO BETA FOR I
Reference
00505 1251 FX4PR SYN E$FX4PR

EINCOR = 416

Definition
00640 0 00000 0 00004 398 INCOR HTR 4

References (3)

00616	−0 53400 4 00640	380		LXD	INCOR,4
00626	0 53400 4 00640	388		LXA	INCOR,4
00643	−0 63400 4 00640	401	XB4A	SXD	INCOR,4

EMACEN = 1888

Definition
03540 606060606060 1182 MACEN BCD 7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
Reference
00304 0 03631 0 03540 172 PRALT HTR MACEN,0,MACEN+57

ENDPCH = 1884

Definition
03534 −0 53400 4 00313 1178 ENDPCH LXD DRUM,4
Reference
00271 0 02000 0 03534 161 TRA ENDPCH

ENOTNA = 56

Definition
00070 0 50000 0 01236 32 NOTNA CLA RECORD
Reference
00064 −0 10000 0 00070 28 TNZ NOTNA PRINT OTHER HEADER

EPRALT = 196

Definition
00304 0 03631 0 03540 172 PRALT HTR MACEN,0,MACEN+57
Reference
00247 0 50000 0 00304 143 CLA PRALT SURE

EPRINT = 480

Definition
00740 463 PRINT BSS 0

References (9)

00050	0 07400 4 00740	16		TSX	PRINT,4 PRINT TITLE
00065	0 07400 4 00740	29		TSX	PRINT,4
00074	0 07400 4 00740	36		TSX	PRINT,4 PRINT NUMBER OF RECORD IN WHICH
00113	0 07400 4 00740	51		TSX	PRINT,4 PRINT LOCATION OF STOP
00233	0 07400 4 00740	131		TSX	PRINT,4
00256	0 07400 4 00740	150		TSX	PRINT,4
00260	0 07400 4 00740	152		TSX	PRINT,4
00523	0 07400 4 00740	315		TSX	PRINT,4
	00740	1242	PRINT	SYN	E$PRINT

EPRNT1 = 177

Definition
00261 0 00376 0 00360 153 PRNT1 HTR END1,0,END1+14

References (4)

00250	0 60100 0 00261	144	STO	PRNT1
00300	0 60100 0 00261	168	STO	PRNT1
00306	0 60100 0 00260	174	STO	PRNT1−1
00307	0 60100 0 00261	175	STO	PRNT1

EPRNT2 = 201

Definition
00311 0 00417 0 00376 177 PRNT2 HTR END2,0,END2+17 MAY CONTINUE NEXT BATCH

References (2)

	00277	0 50000 0 00311	167		CLA	PRNT2
		00311	1247	PRNT2	SYN	E$PRNT2

EPRNT4 = 202

Definition
00312 0 00463 0 00417 178 PRNT4 HTR END3,0,END3+36
Reference
00312 1246 PRNT4 SYN E$PRNT4

ERAN10 = 496

Definition
A 00760 0 00000 0 00000 481 RAN10 HTR
Reference
00754 0 60100 0 00760 477 STO RAN10

ERBLNK = 385

Definition
00601 600000000000 361 RBLNK BCD 1␣00000
Reference
00573 0 36100 0 00601 355 ACL RBLNK

ERLIST = 1254

Definition
02346 0 01042 0 00000 1176 ERLIST HTR 0,0,ERLIST−1−LOCREC DEC HAS NUMBER OF ENTRIES SO FAR

References (5)

00117	−0 53400 4 02346	55		LXD	ERLIST,4
00120	0 50000 4 02346	56	SEARCH	CLA	ERLIST,4 ASSORTED TSX IN DEC FIELD
00130	0 50000 4 02347	64	HAVE	CLA	ERLIST+1,4 DUPLICATE STOPS SHOULD BE MARKED MINUS
00153	0 50000 4 02347	83	HAVREC	CLA	ERLIST+1,4
02346	0 01042 0 00000	1176	ERLIST	HTR	0,0,ERLIST−1−LOCREC DEC HAS NUMBER OF ENTRIES SO FAR

ERWORD = 669

Definition
01235 0 00000 0 00000 610 ERWORD HTR 0

Local references (3)

00045	0 62200 0 01235	13	STD	ERWORD
00076	0 50000 0 01235	38	CLA	ERWORD IN DECREMENT
00121	0 34000 0 01235	57	CAS	ERWORD OF FIRST WORD OF LIST

External references (7)

01304	0 50000 0 01235	5	CLA	ERWORD
01332	0 60100 0 01235	27	STO	ERWORD AND SAVE OCTAL LOCATION
01310	0 40200 0 01235	18	SUB	ERWORD
01306	0 50000 0 01235	20	CLA	ERWORD
01310	0 40200 0 01235	18	SUB	ERWORD
01306	0 50000 0 01235	8	CLA	ERWORD 4007 IF ALPHA STATE, BCD NOT SET UP
01310	0 40200 0 01235	15	SUB	ERWORD

ESPEND = 186

Definition
00272 0 50000 0 00317 162 SPEND CLA BST1 BACKSPACE OVER FILE MARK
Reference
00272 1243 SPEND SYN E$SPEND

EXBETA = 395

Definition
00613 0 76700 0 00022 377 EXBETA ALS 18

Local references (2)

	00511	0 07400 4 00613	305		TSX	EXBETA,4
	00515	0 07400 4 00613	309		TSX	EXBETA,4

External references (10)

01465	0 07400 4 00613	118	TSX	EXBETA,4
02306	0 07400 4 00613	519	TSX	EXBETA,4
02324	0 07400 4 00613	533	TSX	EXBETA,4
03110	0 07400 4 00613	905	TSX	EXBETA,4 EXECUTABLE STATEMENT WHICH FOLLOWS A
03141	0 07400 4 00613	930	TSX	EXBETA,4 IN ADDRESS OF LIST. SECTION 4 WILL STOP
01332	0 07400 4 00613	27	TSX	EXBETA,4 ALPHA OF SOME STATEMENT NUMBER.
01313	0 07400 4 00613	12	TSX	EXBETA,4
01310	0 07400 4 00613	9	TSX	EXBETA,4
01310	0 07400 4 00613	9	TSX	EXBETA,4
01321	0 07400 4 00613	21	TSX	EXBETA,4

EYZONE = 598

Definition
01126 +000000000020 583 YZONE OCT 20

FX6TST = 193

Definition
00301 0 50000 0 00143 169 FX6TST CLA NOP
Reference
00310 0 02000 0 00301 176 TRA FX6TST

HAVREC = 107

Definition
00153 0 50000 4 02347 83 HAVREC CLA ERLIST+1,4
Reference
00150 0 02000 0 00153 80 TRA HAVREC DUPLICATE STOPS.

ISNONA = 133

Definition
00205 606060606060 109 ISNONA BCD 2␣␣␣␣␣␣␣␣␣␣␣␣
Reference
00066 0 00220 0 00205 30 HTR ISNONA,0,ISNONA+11

LAJUST = 386

Definition
00602 0 56000 0 00612 362 LAJUST LDQ BLNKO ENTER, CAL BCD NUMBER, LEADING BLANKS

Local references (2)

	00072	0 07400 4 00602	34		TSX	LAJUST,4
	00516	0 07400 4 00602	310		TSX	LAJUST,4 ADJUST FOR TRAILING BLANKS

External references (5)

01466	0 07400 4 00602	119	TSX	LAJUST,4
02307	0 07400 4 00602	520	TSX	LAJUST,4
02325	0 07400 4 00602	534	TSX	LAJUST,4
03111	0 07400 4 00602	906	TSX	LAJUST,4 TIFGO ENTRY OR A STOP, BUT WHICH IS NEVER
03142	0 07400 4 00602	931	TSX	LAJUST,4 WHEN THERE ARE MORE BRANCHES THAN

LOCREC = 707

Definition
01303 0 00000 0 00000 629 LOCREC HTR 0 ALL ERROR RECORDS READ IN HERE OVER LIST

Local references (3)

00141	0 70000 4 01303	73	CPYREC	CPY	LOCREC,4 END RECORD SKIP WILL CONTROL
00144	0 02000 0 01304	76		TRA	LOCREC+1 SKIP RECORD NUMBER
02346	0 01042 0 00000	1176	ERLIST	HTR	0,0,ERLIST−1−LOCREC DEC HAS NUMBER OF ENTRIES SO FAR

External references (383)

00020	0 00000 0 01303	19	ERREC	HTR	LOCREC
00003	0 01303 0 01330	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00004	0 01303 0 03533	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00005	0 01303 0 01421	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00006	0 01303 0 01436	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00007	0 01303 0 01404	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00010	0 01303 0 01332	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00011	0 01303 0 01612	2		HTR	X−1,0,LOCREC CARD FOR DE,
	01303	3		ORG	LOCREC
00012	0 01303 0 01343	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00013	0 01303 0 01345	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00014	0 01303 0 01373	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00015	0 01303 0 01334	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00016	0 01303 0 01355	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00017	0 01303 0 01432	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00020	0 01303 0 01333	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00021	0 01303 0 01325	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00022	0 01303 0 01327	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00023	0 01303 0 01351	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00024	0 01303 0 01330	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00025	0 01303 0 01331	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00026	0 01303 0 01334	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00027	0 01303 0 01342	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00030	0 01303 0 01346	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00031	0 01303 0 01333	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00032	0 01303 0 01334	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00033	0 01303 0 01334	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00034	0 01303 0 01333	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00035	0 01303 0 01364	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00036	0 01303 0 01354	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00037	0 01303 0 01400	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00040	0 01303 0 01404	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00041	0 01303 0 01403	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00042	0 01303 0 01410	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00043	0 01303 0 01352	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00044	0 01303 0 01354	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00045	0 01303 0 01374	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00046	0 01303 0 01732	3		HTR	X−1,0,LOCREC CARD FOR DE
	01303	4		ORG	LOCREC
00047	0 01303 0 02017	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00050	0 01303 0 01714	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00051	0 01303 0 01443	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00052	0 01303 0 01471	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00053	0 01303 0 01423	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00054	0 01303 0 01441	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00055	0 01303 0 01447	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00056	0 01303 0 01447	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00057	0 01303 0 01470	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00060	0 01303 0 01724	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00061	0 01303 0 01570	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00062	0 01303 0 01564	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00063	0 01303 0 01604	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00064	0 01303 0 01564	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00065	0 01303 0 02746	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00066	0 01303 0 01552	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00067	0 01303 0 01552	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00070	0 01303 0 01626	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00071	0 01303 0 01437	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00072	0 01303 0 01420	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00073	0 01303 0 01420	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00074	0 01303 0 01420	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00075	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00076	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00077	0 01303 0 01422	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00100	0 01303 0 01422	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00101	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00102	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00103	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00104	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00105	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00106	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00107	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00110	0 01303 0 01413	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00111	0 01303 0 01554	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00112	0 01303 0 01425	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00113	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00114	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00115	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00116	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00117	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00120	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00121	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00122	0 01303 0 01353	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00123	0 01303 0 01355	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00124	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00125	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00126	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00127	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00130	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00131	0 01303 0 01352	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00132	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00133	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00134	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00135	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00136	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00137	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00140	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00137	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00140	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00141	0 01303 0 01353	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00142	0 01303 0 01355	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00143	0 01303 0 01343	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00144	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00145	0 01303 0 01343	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00146	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00147	0 01303 0 01362	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00150	0 01303 0 01362	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00151	0 01303 0 01374	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00152	0 01303 0 01362	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00153	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00154	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00155	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00156	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00157	0 01303 0 01420	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00160	0 01303 0 01346	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00161	0 01303 0 01374	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00162	0 01303 0 01373	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00163	0 01303 0 01420	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00164	0 01303 0 01375	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00165	0 01303 0 01374	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00166	0 01303 0 01430	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00167	0 01303 0 01442	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00170	0 01303 0 01330	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00171	0 01303 0 01331	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00172	0 01303 0 01353	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00173	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00174	0 01303 0 01377	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00175	0 01303 0 01367	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00176	0 01303 0 01374	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00177	0 01303 0 01374	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00200	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00201	0 01303 0 01342	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00202	0 01303 0 01353	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00203	0 01303 0 01375	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00204	0 01303 0 01367	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00205	0 01303 0 01356	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00206	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00207	0 01303 0 01357	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00210	0 01303 0 01347	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00211	0 01303 0 01334	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00212	0 01303 0 01334	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00213	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00214	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00215	0 01303 0 01344	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00216	0 01303 0 01374	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00217	0 01303 0 01362	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00220	0 01303 0 01332	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00221	0 01303 0 01333	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00222	0 01303 0 01350	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00223	0 01303 0 01351	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00224	0 01303 0 01352	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00225	0 01303 0 01357	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00226	0 01303 0 01355	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00227	0 01303 0 01355	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00230	0 01303 0 01366	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00231	0 01303 0 01400	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00232	0 01303 0 01360	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00233	0 01303 0 01357	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00234	0 01303 0 01351	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00235	0 01303 0 01414	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00236	0 01303 0 01360	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00237	0 01303 0 01370	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00240	0 01303 0 01317	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00241	0 01303 0 01317	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00242	0 01303 0 01331	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00243	0 01303 0 01316	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00244	0 01303 0 01324	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00245	0 01303 0 01323	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00246	0 01303 0 01332	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00247	0 01303 0 01355	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00250	0 01303 0 01357	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00251	0 01303 0 01327	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00252	0 01303 0 01416	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00253	0 01303 0 01357	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00254	0 01303 0 01357	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00255	0 01303 0 01333	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00256	0 01303 0 01347	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00257	0 01303 0 01347	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00260	0 01303 0 01347	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00261	0 01303 0 01347	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00262	0 01303 0 01347	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00263	0 01303 0 01347	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00264	0 01303 0 01347	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00265	0 01303 0 01347	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00266	0 01303 0 01347	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00267	0 01303 0 01346	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00270	0 01303 0 01346	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00271	0 01303 0 01346	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00272	0 01303 0 01346	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00273	0 01303 0 01325	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00274	0 01303 0 01472	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00275	0 01303 0 01420	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00276	0 01303 0 01523	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC
00277	0 01303 0 01336	2		HTR	X−1,0,LOCREC CARD FOR DE
	01303	3		ORG	LOCREC

MACHIN = 671

Definition
01237 606060606060 612 MACHIN BCD 2␣␣␣␣␣␣␣␣␣␣␣␣

External references (155)

03223	0 01244 0 01237	980	HTR	MACHIN,0,MACHIN+5
03244	0 01244 0 01237	997	HTR	MACHIN,0,MACHIN+5
03270	0 01244 0 01237	1017	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	15	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	19	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	15	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01237 0 01237	6	HTR	MACHIN,0,MACHIN
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	12	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	8	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	11	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	9	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	10	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	7	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	6	HTR	MACHIN,0,MACHIN+5
01305	0 01244 0 01237	26	HTR	MACHIN,0,MACHIN+5

NEARBT = 307

Definition
00463 606060606060 283 NEARBT BCD 1␣␣␣␣␣␣
Reference
00234 0 00505 0 00463 132 HTR NEARBT,0,NEARBT+18

NOTREC = 105

Definition
00151 2 00002 4 00120 81 NOTREC TIX SEARCH,4,2
Reference
00147 0 02000 0 00151 79 TRA NOTREC RECORD NUMBER IN THE CASE OF

OCTBCD = 472

Definition

		452			ENTER WITH OCTAL NUMBER IN ADDRESS 0F AC. EXIT OCTAL
		453			CONVERTED TO BCD IN LOGICAL PORTION OF AC. THIS MUST
		454			BE SAVED WITH SLW
00730	0 76500 0 00017	455	OCTBCD	LRS	15

Local reference
00100 0 07400 4 00730 40 TSX OCTBCD,4

External references (22)

01306	0 07400 4 00730	7	TSX	OCTBCD,4
03225	0 07400 4 00730	982	TSX	OCTBCD,4
03246	0 07400 4 00730	999	TSX	OCTBCD,4
01314	0 07400 4 00730	13	TSX	OCTBCD,4
01321	0 07400 4 00730	18	TSX	OCTBCD,4
01325	0 07400 4 00730	23	TSX	OCTBCD,4
01322	0 07400 4 00730	21	TSX	OCTBCD,4
01336	0 07400 4 00730	31	TSX	OCTBCD,4
01322	0 07400 4 00730	21	TSX	OCTBCD,4
01672	0 07400 4 00730	251	TSX	OCTBCD,4 CONVERT TO BCD AND STORE IN COMMENT
01706	0 07400 4 00730	263	TSX	OCTBCD,4 CORE BUFFER AND STORE IN COMMENT
01747	0 07400 4 00730	296	TSX	OCTBCD,4 THE DRUM AND STORE IN COMMENT
01763	0 07400 4 00730	308	TSX	OCTBCD,4 OF DRUM CHECK SUM
01767	0 07400 4 00730	312	TSX	OCTBCD,4
02007	0 07400 4 00730	328	TSX	OCTBCD,4
02026	0 07400 4 00730	343	TSX	OCTBCD,4
02044	0 07400 4 00730	357	TSX	OCTBCD,4
02056	0 07400 4 00730	367	TSX	OCTBCD,4
01325	0 07400 4 00730	22	TSX	OCTBCD,4
01313	0 07400 4 00730	12	TSX	OCTBCD,4
01316	0 07400 4 00730	15	TSX	OCTBCD,4
01327	0 07400 4 00730	24	TSX	OCTBCD,4 B 89101112

PREFX1 = 668

Definition
01234 0 00000 0 00000 609 PREFX1 HTR 0
Local references (2)
00042 0 60100 0 01234 10 STO PREFX1 OF THE TSX S TO THE DIAGNOSTIC

00044 0 40200 0 01234 12 SUB PREFX1

External references (7)

01315	0 40200 0 01234	14	SUB	PREFX1 GET UNCOMPLIMENTED LOCATION
02214	0 40200 0 01234	461	SUB	PREFX1
02505	0 40200 0 01234	646	SUB	PREFX1 CONVERT TSX TO NUMBER OF STOP WHERE THIS
02662	0 40200 0 01234	755	SUB	PREFX1
01313	0 40200 0 01234	12	SUB	PREFX1
01323	0 50000 0 01234	20	CLA	PREFX1
01331	0 40200 0 01234	26	SUB	PREFX1

PRTEST = 444

Definition
00674 0 00000 0 00000 426 PRTEST HTR 0

References (2)

	00230	0 50000 0 00674	128	RESTRT	CLA	PRTEST SHOULD FOOTNOTE BE PRINTED
	00652	0 60100 0 00674	408		STO	PRTEST SET END OF DIAG TO PRINT FOOTNOTE

RAJUST = 373

Definition
00565 0 60200 0 00577 349 RAJUST SLW RAJ1 ENTER, CAL BCD, LEFT ADJUSTED PLUS BLANKS
Local reference
00574 0 02000 0 00565 356 TRA RAJUST

External references (3)

02540	0 07400 4 00565	673	TSX	RAJUST,4
02730	0 07400 4 00565	793	TSX	RAJUST,4
03025	0 07400 4 00565	854	TSX	RAJUST,4

RECORD = 670

Definition
01236 0 00000 0 00000 611 RECORD

Local references (3)

00062	0 60100 0 01236	26		STO	RECORD
00070	0 50000 0 01236	32	NOTNA	CLA	RECORD
00146	0 34000 0 01236	78		CAS	RECORD NUMBER IN ADDRESS, FOR CORRECT FORTRAN

External reference
01307 0 40000 0 01236 21 ADD RECORD

RESTRT = 152

Definition
00230 0 50000 0 00674 128 RESTRT CLA PRTEST SHOULD FOOTNOTE BE PRINTED
External reference
03277 0 02000 0 00230 1024 TRA RESTRT

SEARCH = 80

Definition
00120 0 50000 4 02346 56 SEARCH CLA ERLIST,4 ASSORTED TSX IN DEC FIELD

References (3)

00067	0 02000 0 00117	31		TRA	SEARCH−1
00124	2 00002 4 00120	60	TIXA	TIX	SEARCH,4,2
00151	2 00002 4 00120	81	NOTREC	TIX	SEARCH,4,2

SIXTST = 165

Definition
00245 0 76000 0 00166 141 SIXTST SWT 6 SHOULD CHOICE TO NEXT BATCH BE PRINTED
Reference
00302 0 60100 0 00245 170 STO SIXTST

SOURCE = 676

Definition
01244 606060606060 617 SOURCE BCD 2␣␣␣␣␣␣␣␣␣␣␣␣

External references (27)

01305	0 01252 0 01244	7	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	7	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	7	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	7	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	7	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	7	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	7	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	8	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6
01305	0 01252 0 01244	6	HTR	SOURCE,0,SOURCE+6

SPACE1 = 169

Definition
00251 0 76200 0 00221 145 SPACE1 RTB 1 SPACE OVER FIRST FILE IN SYSTEM

References (2)

	00246	0 02000 0 00251	142		TRA	SPACE1 NO
	00253	0 02000 0 00251	147		TRA	SPACE1

TEIFIN = 32267

Definition

	371			ENTER WITH INTERNAL FORMULA NUMBER IN ADDRESS OF AC
	372			EXIT WITH EXTERNAL FORMULA NUMBER, OR NEAREST PRECEDING
	373			EXTERNAL FORMULA NUMBER, IN BCD IN LOGICAL PORTION
	374			OF AC. THIS MUST BE SAVED WITH SLW. NUMBER WILL
	375			BE FOLLOWED BY ASTERISK WHEN EXACT MATCH IS NOT FOUND
77013	376	TEIFIN	SYN	LIST−500

References (7)

00623	0 70000 0 77012	385		CPY	TEIFIN−1
00630	0 70000 0 77012	390		CPY	TEIFIN−1
00634	0 70000 0 77012	394		CPY	TEIFIN−1 IGNORE IDENTIFICATION AND WORD COUNT
00635	0 70000 0 77012	395		CPY	TEIFIN−1
00636	0 70000 4 77012	396	XB3	CPY	TEIFIN−1,4 READ IN TEIFNO UNTIL END OF RECORD SKIP
00644	0 50000 4 77013	402	XB4	CLA	TEIFIN,4 COMPARE INTERNAL FORMULA NUMBERS
00654	0 50000 4 77013	410	XB6	CLA	TEIFIN,4 GET EXTERNAL FORMULA NUMBER

WPREND = 157

Definition
00235 0 76600 0 00361 133 WPREND WPR
Reference
00231 0 10000 0 00235 129 TZE WPREND

ZEROUT = 355

Definition
00543 −0 63400 4 00563 331 ZEROUT SXD ZER6,4 ENTER CAL.BCD WORD WHICH FORTRAN HAS STORED
Local reference
00521 0 07400 4 00543 313 TSX ZEROUT,4 UNPACK WORD

External references (4)

02537	0 07400 4 00543	672	TSX	ZEROUT,4 ADJUST TO RIGHT
02727	0 07400 4 00543	792	TSX	ZEROUT,4 UNPACK NAME AND MOVE TO RIGHT
03024	0 07400 4 00543	853	TSX	ZEROUT,4
03167	0 07400 4 00543	952	TSX	ZEROUT,4 FOLLOWED BY 1 BLANK AND ZEROS. THIS NAME

	01343	0 07400 4 00676	36		TSX	BINDEC,4
	01314	0 07400 4 00676	13		TSX	BINDEC,4

	00133	2 00003 4 00134	67		TIX	RTBA,4,3 REDUCE NUMBER IF NOT REC 1, NOW SAME AS
	00136	2 00001 4 00134	70		TIX	RTBA,4,1

	00073	0 60200 0 00204	35		SLW	FOREC
	00075	0 00205 0 00172	37		HTR	PR2,0,FOREC+1 ERROR FOUND

	00042	0 60100 0 01234	10		STO	PREFX1 OF THE TSX S TO THE DIAGNOSTIC
	00044	0 40200 0 01234	12		SUB	PREFX1