1			25
		77777	2	ERLIST	SYN	32767
		77633	3	TABLE	SYN	ERLIST−100
		75435	4	TRADT	SYN	ERLIST−1250
		75434	5	BETA	SYN	ERLIST−1251
		75433	6	TIFGOT	SYN	ERLIST−1252
		75433	7	ALPHA	SYN	ERLIST−1252
		74303	8	NONEXT	SYN	ERLIST−1852
	00031	0 77200 0 00202	9		REW	2
	00032	0 77200 0 00203	10		REW	3
	00033	0 53400 4 01151	11		LXA	IR2,4
	00034	0 76200 0 00202	12	RDFILE	RTD	2 WILL READ ANY KIND OF END FILE MARK
	00035	0 70000 0 00000	13		CPY	0
	00036	0 02000 0 00034	14		TRA	RDFILE
	00037	2 00001 4 00034	15		TIX	RDFILE,4,1 SPACE OVER 2 FILES AND OVER 1ST RECORD O	F
	00040	0 76200 0 00222	16		RTB	2 3RD FILE
	00041	0 76100 0 00000	17		NOP
	00042	0 53400 1 01152	18		LXA	IR4,1
	00043	0 70000 1 77634	19	CP	CPY	TABLE+1,1
	00044	1 00001 1 00043	20		TXI	CP,1,1
	00045	0 02000 0 00037	21			START AGAIN, CANNOT GET END FILE
	00046	2 00001 1 00124	22		TIX	FORSUB,1,1 DROP COUNT OF 2ND FILE
	00047	0 76200 0 00222	23	OVER	RTB	2 SPACE OVER END FILE AFTER FORSUB
	00050	0 76200 0 00222	24		RTB	2 SPACE OVER FLOCON
	00051	0 76200 0 00222	25		RTB	2 SPACE OVER FORMAT
	00052	0 53400 1 01152	26	RDREC	LXA	IR4,1
	00053	0 76200 0 00222	27		RTB	2
	00054	0 70000 0 01174	28		CPY	IDENT
	00055	0 70000 0 01175	29		CPY	WDCONT
	00056	0 70000 1 77633	30	COPY	CPY	TABLE,1 ALTERNATE FOR READING TRAD CPY TRAD,2
	00057	1 00001 1 00056	31	CPTXI	TXI	COPY,1,1 TIX COPYAA,1,1
	00060	1 77777 4 00056	32	COPYAA	TXI	COPY,4,−1
	00061	−0 75400 1 00000	33		PXD	0,1
	00062	0 02000 0 01254	34	RDA	TRA	PTCH NOP GOES HERE AFTER SIZ TABLES ARE READ
	00063	0 40200 0 01175	35	SUBWDS	SUB	WDCONT
	00064	0 10000 0 00135	36	RDAAB	TZE	SIZ TZE IDNTFY REPLACES THIS AFTER SIZ TABLES READ
	00065	−0 53400 4 01201	37		LXD	BST,4
	00066	−3 00016 4 00072	38		TXL	TRY,4,14
	00067	0 56000 0 01174	39		LDQ	IDENT
	00070	0 07400 4 01033	40	BADWC	TSX	ERROR,4
	00071	0 02000 0 00777	41		TRA	DIAGND
	00072	1 00001 4 00073	42	TRY	TXI	RDSXD,4,1
	00073	−0 63400 4 01201	43	RDSXD	SXD	BST,4
	00074	0 76400 0 00202	44		BST	2
	00075	0 02000 0 00052	45		TRA	RDREC
	00076	0 60000 0 01201	46	IDNTFY	STZ	BST FORMAT SIZE AND ALL TAPE TABLES HAVE
	00077	0 53400 2 01253	47		LXA	TAPTAB,2 IDENTIFICATION WORD AS FIRST WORD OF
	00100	0 50000 0 01174	48		CLA	IDENT TAPE RECORD, NOT INCLUDED IN WORD
	00101	0 34000 2 01253	49	CAS	CAS	TAPTAB,2 COUNT
	00102	0 02000 0 00104	50		TRA	NEXT
	00103	0 02000 0 00116	51		TRA	HAVE
	00104	2 00002 2 00101	52	NEXT	TIX	CAS,2,2
	00105	−0 53400 4 01202	53		LXD	BSTA,4 BACK SPACE RECORD AND TRY AGAIN 15 TIMES
	00106	−3 00016 4 00112	54		TXL	TRYA,4,14 IF NECESSARY
	00107	0 56000 0 01174	55		LDQ	IDENT
	00110	0 07400 4 01033	56	NOIDEN	TSX	ERROR,4
	00111	0 02000 0 00777	57		TRA	DIAGND
	00112	1 00001 4 00113	58	TRYA	TXI	IDNSXD,4,1
	00113	−0 63400 4 01202	59	IDNSXD	SXD	BSTA,4
	00114	0 76400 0 00202	60		BST	2
	00115	0 02000 0 00052	61		TRA	RDREC
	00116	0 60000 0 01202	62	HAVE	STZ	BSTA
	00117	0 50000 2 01254	63		CLA	TAPTAB+1,2
	00120	0 62100 0 00121	64		STA	TRA
	00121	0 02000 0 00000	65	TRA	TRA	0
	00122	0 76200 0 00222	66	NOTIFG	RTB	2 IF NO TIFGO ENTRY, IGNORE TRAD ENTRY
	00123	0 02000 0 00052	67		TRA	RDREC
	00124	2 00002 1 00126	68	FORSUB	TIX	SAVEA,1,2
	00125	0 53400 1 01152	69		LXA	IR4,1
	00126	−0 63400 1 00133	70	SAVEA	SXD	TXLA,1
	00127	0 53400 1 01152	71		LXA	IR4,1
	00130	0 56000 1 77633	72	LDQA	LDQ	TABLE,1
	00131	0 07400 4 01066	73	TSXA	TSX	CHECKA,4
	00132	1 00002 1 00133	74		TXI	TXLA,1,2
	00133	−3 00000 1 00130	75	TXLA	TXL	LDQA,1,0
	00134	0 02000 0 00047	76		TRA	OVER
	00135	−3 00000 1 00146	77	SIZ	TXL	SETRD,1,0 IF NO ENTRIES, GET NEXT TAPE RECORDS
	00136	2 00002 1 00140	78		TIX	SAVEB,1,2 REDUCE WORD COUNT FOR END OF ENTRIES TEST
	00137	0 53400 1 01152	79		LXA	IR4,1 IF TOO SMALL, SET TO ZERO
	00140	−0 63400 1 00145	80	SAVEB	SXD	TXLB,1
	00141	0 53400 1 01152	81		LXA	IR4,1 START AT FIRST ENTRY, THAT IS IR IS ZERO
	00142	0 56000 1 77633	82	LDQB	LDQ	TABLE,1
	00143	0 07400 4 01066	83	TSXB	TSX	CHECKA,4
	00144	1 00002 1 00145	84		TXI	TXLB,1,2 GET NEXT 2 WORD ENTRY
	00145	−3 00000 1 00142	85	TXLB	TXL	LDQB,1,0
	00146	0 76200 0 00222	86	SETRD	RTB	2 SPACE OVER GAP AT END OF 4TH FILE
	00147	0 76200 0 00222	87		RTB	2 SPACE OVER 5 WORD END RECORD
	00150	0 50000 0 01232	88		CLA	AFTRSZ
	00151	0 62100 0 00064	89		STA	RDAAB
	00152	0 50000 0 01205	90		CLA	NOP
	00153	0 60100 0 00062	91		STO	RDA RESET TEST AT END OF READ LOOP
	00154	0 02000 0 00052	92		TRA	RDREC
	00155	−3 00000 1 00052	93	SUBARG	TXL	RDREC,1,0 INITIALIZATION OF END ENTRIES TEST
	00156	2 00001 1 00160	94		TIX	SAVEC,1,1
	00157	0 53400 1 01152	95		LXA	IR4,1
	00160	−0 63400 1 00165	96	SAVEC	SXD	TXLC,1
	00161	0 53400 1 01152	97		LXA	IR4,1
	00162	0 56000 1 77633	98	LDQC	LDQ	TABLE,1
	00163	0 07400 4 01066	99	TSXC	TSX	CHECKA,4
	00164	1 00001 1 00165	100		TXI	TXLC,1,1 1 WORD ENTRIES
	00165	−3 00000 1 00162	101	TXLC	TXL	LDQC,1,0
	00166	0 02000 0 00052	102		TRA	RDREC
	00167	−3 00000 1 00200	103	UPPER	TXL	UPPRTB,1,0 INITIALIZE END OF ENTRIES TEST
	00170	2 00001 1 00172	104		TIX	SAVED,1,1
	00171	0 53400 1 01152	105		LXA	IR4,1
	00172	−0 63400 1 00177	106	SAVED	SXD	TXLD,1
	00173	0 53400 1 01152	107		LXA	IR4,1
	00174	0 56000 1 77633	108	LDQD	LDQ	TABLE,1
	00175	0 07400 4 01066	109	TSXD	TSX	CHECKA,4
	00176	1 00001 1 00177	110		TXI	TXLD,1,1 1 WORD ENTRIES
	00177	−3 00000 1 00174	111	TXLD	TXL	LDQD,1,0
	00200	0 76200 0 00222	112	UPPRTB	RTB	2 NO SCAN OF HOLARG RECORD
	00201	0 02000 0 00052	113		TRA	RDREC
	00202	−3 00000 1 00052	114	TEIFNO	TXL	RDREC,1,0 INITIALIZE END OF ENTRIES TEST
	00203	2 00001 1 00205	115		TIX	SAVEE,1,1
	00204	0 53400 1 01152	116		LXA	IR4,1
	00205	−0 63400 1 00214	117	SAVEE	SXD	TXLE,1
	00206	0 53400 1 01152	118		LXA	IR4,1
	00207	0 50000 1 77633	119	CLAE	CLA	TABLE,1 MINUS ENTRY MEANS BETA IS
	00210	0 12000 0 00213	120		TPL	TSTE DUPLICATED IN SOURCE PROGRAM
	00211	0 56000 1 77633	121		LDQ	TABLE,1
	00212	0 07400 4 01033	122	TSXE	TSX	ERROR,4
	00213	1 00001 1 00214	123	TSTE	TXI	TXLE,1,1
	00214	−3 00000 1 00207	124	TXLE	TXL	CLAE,1,0
	00215	0 50000 0 01164	125		CLA	ADTIFG
	00216	0 62100 0 00056	126		STA	COPY
	00217	0 02000 0 00052	127		TRA	RDREC
	00220	−3 00000 1 01260	128	TIFGO	TXL	PATIF,1,0 IF NO ENTRIES, IGNORE TRAD IDENTIFICATION
	00221	2 00002 1 00223	129		TIX	SAVEF,1,2
	00222	0 53400 1 01152	130		LXA	IR4,1
	00223	−0 63400 1 00310	131	SAVEF	SXD	TXLF,1
	00224	0 50000 0 01165	132		CLA	ADTRAD SET READ LOOP TO READ TRAD
	00225	0 60100 0 00056	133		STO	COPY UPWARDS IN MEMORY. BUT
	00226	0 50000 0 01166	134		CLA	CPTRAD KEEP TRACK OF WORD COUNT
	00227	0 62100 0 00057	135		STA	CPTXI AS USUAL
	00230	0 53400 4 01152	136		LXA	IR4,4
	00231	0 02000 0 00052	137		TRA	RDREC
	00232	0 50000 0 01163	138	TRAD	CLA	ADTABL RESTORE COPY LOOP
	00233	0 60100 0 00056	139		STO	COPY
	00234	0 50000 0 00060	140		CLA	COPYAA
	00235	0 62100 0 00057	141		STA	CPTXI
	00236	1 77777 4 00237	142		TXI	SXDG,4,−1
	00237	−0 63400 4 00572	143	SXDG	SXD	BETANB,4 SAVE NUMBER OF ENTRIES IN BETA TABLE
	00240	0 50000 0 00030	144		CLA	24 ADD ONE TO LAST TEIFNO
	00241	0 76100 0 00000	145		NOP	GET LAST TEIFNO
	00242	0 77100 0 00022	146		ARS	18
	00243	0 60000 0 75434	147		STZ	BETA
	00244	0 62100 0 75434	148		STA	BETA
	00245	0 76200 0 00223	149		RTB	3
	00246	0 53400 2 01152	150		LXA	IR4,2 READ IN TABLE OF NON EXECUTABLE
	00247	0 70000 0 00000	151	CPNON	CPY	0 STATEMENTS AND SAVE
	00250	−0 53400 4 00000	152		LXD	0,4 DECREMENT OF TABLE IN
	00251	0 02000 0 00253	153		TRA	PXDH ADDRESS OF MEMORY
	00252	0 02000 0 00257	154		TRA	SAVXNB
	00253	−0 75400 4 00000	155	PXDH	PXD	0,4
	00254	0 77100 0 00022	156		ARS	18
	00255	0 60100 2 74303	157		STO	NONEXT,2
	00256	1 00001 2 00247	158		TXI	CPNON,2,1
	00257	2 00001 2 00261	159	SAVXNB	TIX	SAVEH,2,1 SET END OF ENTRIES TEST
	00260	0 53400 2 01152	160		LXA	IR4,2
	00261	−0 63400 2 01055	161	SAVEH	SXD	TXLH,2 SET END OF ENTRIES TEST
	00262	0 53400 1 01152	162		LXA	IR4,1
	00263	0 50000 1 75433	163	CLAF	CLA	TIFGOT,1 SAVE ALPHA IN CASE OF ERROR, AND
	00264	0 77100 0 00022	164		ARS	18 ALSO TO PUT IN ALPHA TABLE AT
	00265	0 62100 0 01170	165		STA	ALFA END OF PROCESSING EACH KIND OF TIFGO
	00266	0 50000 1 75433	166		CLA	TIFGOT,1 DETERMINE KIND OF ENTRY
	00267	−0 12000 0 00312	167		TMI	TIFMI
	00270	0 73400 2 00000	168		PAX	0,2
	00271	−3 00000 2 00345	169		TXL	TIFZRO,2,0
	00272	−3 00001 2 00363	170		TXL	TIFGO1,2,1
	00273	−3 00002 2 00410	171		TXL	TIFGO2,2,2
	00274	−3 00003 2 00435	172		TXL	TIFGO3,2,3
	00275	−3 00004 2 00461	173		TXL	TIFGO4,2,4
	00276	−3 00005 2 00505	174		TXL	TIFGO5,2,5
	00277	−3 00006 2 00531	175		TXL	TIFGO6,2,6
	00300	0 56000 1 75433	176		LDQ	TIFGOT,1 NOT IDENTIFYABLE, SAVE IN ERROR
	00301	0 07400 4 01033	177	WHATIF	TSX	ERROR,4 TABLE, BUT PUT ALPHA IN TABLE ANYWAY
	00302	−0 53400 4 00635	178	NXTIFG	LXD	ALFANB,4 STORE ALPHA IN TABLE
	00303	0 50000 0 01170	179		CLA	ALFA
	00304	0 60100 4 75433	180		STO	ALPHA,4
	00305	1 00001 4 00306	181		TXI	FSAVE,4,1
	00306	−0 63400 4 00635	182	FSAVE	SXD	ALFANB,4
	00307	1 00002 1 00310	183	RETIF6	TXI	TXLF,1,2 TYPE 6 TIFGO ENTRIES DO NOT GO IN
	00310	−3 00000 1 00263	184	TXLF	TXL	CLAF,1,0 ALPHA TABLE
	00311	0 02000 0 00536	185		TRA	STOPS WHEN TIFGO FINISHED, READ IN STOPS
	00312	−0 32000 0 01157	186	TIFMI	ANA	ADDMSK
	00313	−0 10000 0 00316	187		TNZ	SAVEB1 IF BETA IS ZERO, THERE WAS NO ENTRY
	00314	0 07400 4 01022	188	MINB1	TSX	NOBETA,4 CORRESPONDING TO IT IN COL 1 TO 5 OF
	00315	0 02000 0 00321	189		TRA	NOWB2 SOURCE PROGRAM, SKIP REST OF PROCESSING
	00316	0 07400 4 01047	190	SAVEB1	TSX	ISNONX,4 IF BETA IS NOT EXECUTABLE, DO NOT PUT IN
	00317	−0 12000 0 00321	191		TMI	NOWB2 BETA TABLE
	00320	0 07400 4 01131	192		TSX	MORBTS,4
	00321	0 50000 1 75432	193	NOWB2	CLA	TIFGOT−1,1
	00322	0 77100 0 00022	194		ARS	18
	00323	−0 32000 0 01157	195		ANA	ADDMSK
	00324	−0 10000 0 00327	196		TNZ	SAVEB2
	00325	0 07400 4 01022	197	MINB2	TSX	NOBETA,4
	00326	0 02000 0 00332	198		TRA	NOWB3
	00327	0 07400 4 01047	199	SAVEB2	TSX	ISNONX,4
	00330	−0 12000 0 00332	200		TMI	NOWB3
	00331	0 07400 4 01131	201		TSX	MORBTS,4
	00332	0 50000 1 75432	202	NOWB3	CLA	TIFGOT−1,1
	00333	−0 32000 0 01157	203		ANA	ADDMSK
	00334	−0 10000 0 00337	204		TNZ	SAVEB3
	00335	0 07400 4 01022	205	MINB3	TSX	NOBETA,4
	00336	0 02000 0 00342	206		TRA	ALFAD1
	00337	0 07400 4 01047	207	SAVEB3	TSX	ISNONX,4
	00340	−0 12000 0 00342	208		TMI	ALFAD1
	00341	0 07400 4 01131	209		TSX	MORBTS,4
	00342	0 50000 0 01156	210	ALFAD1	CLA	DECTRE
	00343	0 62200 0 01170	211		STD	ALFA
	00344	0 02000 0 00302	212		TRA	NXTIFG
	00345	0 50000 1 75432	213	TIFZRO	CLA	TIFGOT−1,1
	00346	−0 32000 0 01157	214		ANA	ADDMSK
	00347	−0 10000 0 00352	215		TNZ	TIFOB
	00350	0 07400 4 01022	216	TSXTFO	TSX	NOBETA,4
	00351	0 02000 0 00355	217		TRA	NEXTI KEEP TRACK OF NUMBER OF BETAS
	00352	0 07400 4 01047	218	TIFOB	TSX	ISNONX,4
	00353	−0 12000 0 00355	219		TMI	NEXTI
	00354	0 07400 4 01131	220		TSX	MORBTS,4
	00355	0 50000 1 75432	221	NEXTI	CLA	TIFGOT−1,1 DO NOT PUT IN ALPHA TABLE IF
	00356	−0 73400 4 00000	222		PDX	0,4 ENTRY BY IRV FOR SAP INSTRUCTIONS
	00357	3 00000 4 00307	223		TXH	RETIF6,4,0
	00360	0 50000 0 01154	224		CLA	DECONE
	00361	0 62200 0 01170	225		STD	ALFA
	00362	0 02000 0 00302	226		TRA	NXTIFG
	00363	0 60000 0 01172	227	TIFGO1	STZ	TRADNB
	00364	0 50000 1 75432	228	CLAJ	CLA	TIFGOT−1,1 PREPARE TO READ RELATED TRAD ENTRIES
	00365	−0 73400 2 00000	229		PDX	0,2
	00366	0 76700 0 00022	230		ALS	18
	00367	0 62200 0 00404	231		STD	TXHJ
	00370	0 50000 2 76027	232	MORTR	CLA	TRADT+250,2
	00371	−0 10000 0 00374	233		TNZ	TRADX1
	00372	0 07400 4 01022	234	BTIFG1	TSX	NOBETA,4
	00373	0 02000 0 00400	235		TRA	ADDJ
	00374	0 07400 4 01047	236	TRADX1	TSX	ISNONX,4 IF TRAD IS NON EXECUTABLE, MAKE ENTRY
	00375	0 12000 0 00400	237		TPL	ADDJ FAIL ANY ALPHA PLUS 1 SEARCH LATER ON
	00376	0 50000 0 01154	238		CLA	DECONE BY PUTING NUMBER IN DECFIELD
	00377	0 62200 2 76027	239		STD	TRADT+250,2 BUT KEEP TRACK OF NUMBER OF BRANCHES GIVEN
	00400	0 50000 0 01172	240	ADDJ	CLA	TRADNB
	00401	0 40000 0 01154	241		ADD	DECONE
	00402	0 60100 0 01172	242		STO	TRADNB
	00403	1 77777 2 00404	243		TXI	TXHJ,2,−1
	00404	3 00000 2 00370	244	TXHJ	TXH	MORTR,2,0
	00405	0 50000 0 01172	245		CLA	TRADNB
	00406	0 62200 0 01170	246		STD	ALFA
	00407	0 02000 0 00302	247		TRA	NXTIFG
	00410	0 60000 0 01172	248	TIFGO2	STZ	TRADNB
	00411	0 50000 1 75432	249	CLAK	CLA	TIFGOT−1,1
	00412	−0 73400 2 00000	250		PDX	0,2
	00413	0 76700 0 00022	251		ALS	18
	00414	0 62200 0 00431	252		STD	TXHK
	00415	0 50000 2 76027	253	MORTRD	CLA	TRADT+250,2
	00416	−0 10000 0 00421	254		TNZ	TRADX2
	00417	0 07400 4 01022	255	BTIFG2	TSX	NOBETA,4
	00420	0 02000 0 00425	256		TRA	ADDK
	00421	0 07400 4 01047	257	TRADX2	TSX	ISNONX,4
	00422	0 12000 0 00425	258		TPL	ADDK
	00423	0 50000 0 01154	259		CLA	DECONE
	00424	0 62200 2 76027	260		STD	TRADT+250,2
	00425	0 50000 0 01172	261	ADDK	CLA	TRADNB
	00426	0 40000 0 01154	262		ADD	DECONE
	00427	0 60100 0 01172	263		STO	TRADNB
	00430	1 77777 2 00431	264		TXI	TXHK,2,−1
	00431	3 00000 2 00415	265	TXHK	TXH	MORTRD,2,0
	00432	0 50000 0 01172	266		CLA	TRADNB
	00433	0 62200 0 01170	267		STD	ALFA
	00434	0 02000 0 00302	268		TRA	NXTIFG
	00435	0 50000 1 75432	269	TIFGO3	CLA	TIFGOT−1,1
	00436	0 77100 0 00022	270		ARS	18
	00437	−0 32000 0 01157	271		ANA	ADDMSK
	00440	−0 10000 0 00443	272		TNZ	TIF3B1
	00441	0 07400 4 01022	273	B1TIF3	TSX	NOBETA,4
	00442	0 02000 0 00446	274		TRA	NEXTL
	00443	0 07400 4 01047	275	TIF3B1	TSX	ISNONX,4
	00444	−0 12000 0 00446	276		TMI	NEXTL
	00445	0 07400 4 01131	277		TSX	MORBTS,4
	00446	0 50000 1 75433	278	NEXTL	CLA	TIFGOT−1*,1
	00447	−0 32000 0 01157	279		ANA	ADDMSK
	00450	−0 10000 0 00453	280		TNZ	TIF3B2
	00451	0 07400 4 01022	281	B2TIF3	TSX	NOBETA,4
	00452	0 02000 0 00456	282		TRA	ADDL
	00453	0 07400 4 01047	283	TIF3B2	TSX	ISNONX,4
	00454	−0 12000 0 00456	284		TMI	ADDL
	00455	0 07400 4 01131	285		TSX	MORBTS,4
	00456	0 50000 0 01155	286	ADDL	CLA	DECTWO
	00457	0 62200 0 01170	287		STD	ALFA
	00460	0 02000 0 00302	288		TRA	NXTIFG
	00461	0 50000 1 75432	289	TIFGO4	CLA	TIFGOT−1,1
	00462	0 77100 0 00022	290		ARS	18
	00463	−0 32000 0 01157	291		ANA	ADDMSK
	00464	−0 10000 0 00467	292		TNZ	TIF4B1
	00465	0 07400 4 01022	293	B1TIF4	TSX	NOBETA,4
	00466	0 02000 0 00472	294		TRA	NEXTM
	00467	0 07400 4 01047	295	TIF4B1	TSX	ISNONX,4
	00470	−0 12000 0 00472	296		TMI	NEXTM
	00471	0 07400 4 01131	297		TSX	MORBTS,4
	00472	0 50000 1 75432	298	NEXTM	CLA	TIFGOT−1,1
	00473	−0 32000 0 01157	299		ANA	ADDMSK
	00474	−0 10000 0 00477	300		TNZ	TIF4B2
	00475	0 07400 4 01022	301	B2TIF4	TSX	NOBETA,4
	00476	0 02000 0 00502	302		TRA	ADDM
	00477	0 07400 4 01047	303	TIF4B2	TSX	ISNONX,4
	00500	−0 12000 0 00502	304		TMI	ADDM
	00501	0 07400 4 01131	305		TSX	MORBTS,4
	00502	0 50000 0 01155	306	ADDM	CLA	DECTWO
	00503	0 62200 0 01170	307		STD	ALFA
	00504	0 02000 0 00302	308		TRA	NXTIFG
	00505	0 50000 1 75432	309	TIFGO5	CLA	TIFGOT−1,1
	00506	0 77100 0 00022	310		ARS	18
	00507	−0 32000 0 01157	311		ANA	ADDMSK
	00510	−0 10000 0 00513	312		TNZ	TIF5B1
	00511	0 07400 4 01022	313	B1TIF5	TSX	NOBETA,4
	00512	0 02000 0 00516	314		TRA	NEXTN
	00513	0 07400 4 01047	315	TIF5B1	TSX	ISNONX,4
	00514	−0 12000 0 00516	316		TMI	NEXTN
	00515	0 07400 4 01131	317		TSX	MORBTS,4
	00516	0 50000 1 75432	318	NEXTN	CLA	TIFGOT−1,1
	00517	−0 32000 0 01157	319		ANA	ADDMSK
	00520	−0 10000 0 00523	320		TNZ	TIF5B2
	00521	0 07400 4 01022	321	B2TIF5	TSX	NOBETA,4
	00522	0 02000 0 00526	322		TRA	ADDN
	00523	0 07400 4 01047	323	TIF5B2	TSX	ISNONX,4
	00524	−0 12000 0 00526	324		TMI	ADDN
	00525	0 07400 4 01131	325		TSX	MORBTS,4
	00526	0 50000 0 01155	326	ADDN	CLA	DECTWO
	00527	0 62200 0 01170	327		STD	ALFA
	00530	0 02000 0 00302	328		TRA	NXTIFG
	00531	0 50000 1 75432	329	TIFGO6	CLA	TIFGOT−1,1
	00532	−0 32000 0 01157	330		ANA	ADDMSK
	00533	−0 10000 0 00307	331		TNZ	RETIF6
	00534	0 07400 4 01022	332	TIF6B	TSX	NOBETA,4
	00535	0 02000 0 00307	333		TRA	RETIF6
	00536	0 76200 0 00223	334	STOPS	RTB	3
	00537	−0 53400 1 00635	335		LXD	ALFANB,1 LOAD NUMBER ALREADY IN ALPHA TABLE
	00540	0 70000 0 00000	336	CPSTOP	CPY	0 READ TABLE OF STOPS INTO REST OF
	00541	−0 53400 4 00000	337		LXD	0,4 ALPHA TABLE, PUT DECREMENT OF
	00542	0 02000 0 00544	338		TRA	PDXP TAPE TABLE INTO ADDRESS OF MEMORY
	00543	0 02000 0 00550	339		TRA	TIXP
	00544	−0 75400 4 00000	340	PDXP	PXD	0,4
	00545	0 77100 0 00022	341		ARS	18
	00546	0 60100 1 75433	342		STO	ALPHA,1
	00547	1 00001 1 00540	343		TXI	CPSTOP,1,1
	00550	2 00001 1 00552	344	TIXP	TIX	NEXTP,1,1
	00551	0 53400 1 01152	345		LXA	IR4,1
	00552	−0 63400 1 00600	346	NEXTP	SXD	ENDALF,1
	00553	−0 63400 1 00635	347		SXD	ALFANB,1
	00554	−0 63400 1 00754	348		SXD	FRETST,1
	00555	0 50000 0 01167	349		CLA	CHNONX RESET ISNONX ROUTINE SO IT IS
	00556	0 62100 0 01053	350		STA	YESNOX MERELY INFORMATIVE AND DOES NOT
	00557	0 53400 1 01152	351		LXA	IR4,1 MAKE ENTRIES IN ERROR TABLE
	00560	0 50000 1 75433	352	CLAQ	CLA	ALPHA,1
	00561	0 02000 0 01271	353	QADD	TRA	PAQADD
	00562	0 60000 0 01170	354	ADDQ	STZ	ALFA
	00563	0 62100 0 01170	355		STA	ALFA
	00564	0 53400 2 01152	356		LXA	IR4,2
	00565	0 50000 2 75434	357	NXTBTA	CLA	BETA,2
	00566	0 34000 0 01170	358		CAS	ALFA
	00567	0 02000 0 00571	359		TRA	NEXTQ
	00570	0 02000 0 00577	360		TRA	NXTALF
	00571	1 77777 2 00572	361	NEXTQ	TXI	BETANB,2,−1
	00572	3 00000 2 00565	362	BETANB	TXH	NXTBTA,2,0
	00573	0 50000 0 01170	363		CLA	ALFA
	00574	0 07400 4 01047	364		TSX	ISNONX,4 IF ALPHA PLUS 1 IN NONX, THEN LOOK IN BETA
	00575	−0 12000 0 00602	365		TMI	ALAND1 TABLE FOR ALPHA +2 ETC
	00576	0 07400 4 01022	366	NOTRA	TSX	NOBETA,4 NOT EITHER TABLE, PART OF PROG NOT ENTERED
	00577	1 00001 1 00600	367	NXTALF	TXI	ENDALF,1,1
	00600	−3 00000 1 00560	368	ENDALF	TXL	CLAQ,1,0
	00601	0 02000 0 00052	369		TRA	RDREC
	00602	0 50000 0 01170	370	ALAND1	CLA	ALFA
	00603	0 02000 0 00561	371		TRA	QADD
	00604	−3 00000 1 00723	372	TDO	TXL	SPACES,1,0
	00605	2 00005 1 00607	373		TIX	SAVES,1,5 INITIALIZE END OF ENTRIES TEST
	00606	0 53400 1 01152	374		LXA	IR4,1
	00607	−0 63400 1 00722	375	SAVES	SXD	TXLS,1
	00610	0 53400 1 01152	376		LXA	IR4,1
	00611	0 50000 1 77633	377	CLADO	CLA	TABLE,1
	00612	−0 32000 0 01160	378		ANA	TAGMSK SAVE TAG FIELD FOR PROCESSING N1,N2,N3
	00613	0 76700 0 00022	379		ALS	18
	00614	0 63000 0 01203	380		STP	DOTAG
	00615	0 50000 1 77633	381		CLA	TABLE,1 SAVE ALPHA IN CASE OF ERROR
	00616	0 77100 0 00022	382		ARS	18
	00617	0 62100 0 01170	383		STA	ALFA
	00620	0 50000 1 77633	384		CLA	TABLE,1
	00621	−0 32000 0 01157	385		ANA	ADDMSK
	00622	−0 10000 0 00625	386		TNZ	BINTIF
	00623	0 07400 4 01022	387	DONOBT	TSX	NOBETA,4
	00624	0 02000 0 00643	388		TRA	DOALF
	00625	0 53400 2 01152	389	BINTIF	LXA	IR4,2 IS BETA IN DO TABLE A CONDITIONAL
	00626	0 60100 0 01204	390		STO	DOBETA TRANSFER, THAT IS, IS IT IN ALPHA TABLE
	00627	0 50000 2 75433	391	SCLA	CLA	ALPHA,2
	00630	−0 32000 0 01157	392		ANA	ADDMSK MASK OUT NUMBER OF BRANCHES
	00631	0 34000 0 01204	393		CAS	DOBETA
	00632	0 02000 0 00634	394		TRA	TIXS
	00633	0 02000 0 00727	395		TRA	CONBET THIS IS AN ERROR
	00634	1 00001 2 00635	396	TIXS	TXI	ALFANB,2,1
	00635	−3 00000 2 00627	397	ALFANB	TXL	SCLA,2,0
	00636	0 50000 0 01204	398		CLA	DOBETA
	00637	0 07400 4 01047	399		TSX	ISNONX,4
	00640	0 12000 0 00643	400		TPL	DOALF IF BETA IN TO IS NON EXECUTABLE THIS
	00641	0 07400 4 01022	401	DOBTNX	TSX	NOBETA,4
	00642	0 07400 4 01141	402		TSX	ADOB,4
	00643	0 50000 0 01170	403	DOALF	CLA	ALFA
	00644	−0 32000 0 01157	404		ANA	ADDMSK CLEAR ANY HASH LEFT FROM ERROR RECODING
	00645	0 40000 0 01153	405		ADD	ADDONE
	00646	0 07400 4 01047	406		TSX	ISNONX,4 IF ALPHA PLUS 1 IS NON EXECUTABLE
	00647	0 12000 0 00652	407		TPL	DOSYMB THIS IS ERROR
	00650	0 07400 4 01022	408	DOALNX	TSX	NOBETA,4
	00651	0 07400 4 01141	409		TSX	ADOB,4
	00652	0 56000 1 77632	410	DOSYMB	LDQ	TABLE−1,1 DOES SYMBOL CONTAIN ANY ILLEGAL
	00653	0 07400 4 01066	411	PUNSYM	TSX	CHECKA,4 PUNCTUATION
	00654	0 12000 0 00656	412		TPL	IJKSYM
	00655	0 07400 4 01141	413		TSX	ADOB,4
	00656	0 07400 4 01113	414	IJKSYM	TSX	CHECKB,4 DOES SYMBOL BEGIN WITH IJKLM OR N
	00657	0 12000 0 00661	415		TPL	NL
	00660	0 07400 4 01141	416		TSX	ADOB,4
	00661	−0 50000 0 01203	417	NL	CAL	DOTAG
	00662	−0 76000 0 00001	418		PBT
	00663	0 02000 0 00674	419		TRA	N2+1 NO
	00664	0 56000 1 77631	420		LDQ	TABLE−2,1 YES
	00665	0 07400 4 01066	421	PUNN1	TSX	CHECKA,4
	00666	0 12000 0 00670	422		TPL	IJKN1
	00667	0 07400 4 01141	423		TSX	ADOB,4
	00670	0 07400 4 01113	424	IJKN1	TSX	CHECKB,4
	00671	0 12000 0 00673	425		TPL	N2
	00672	0 07400 4 01141	426		TSX	ADOB,4
	00673	−0 50000 0 01203	427	N2	CAL	DOTAG
	00674	0 76700 0 00001	428		ALS	1
	00675	−0 76000 0 00001	429		PBT
	00676	0 02000 0 00706	430		TRA	N3
	00677	0 56000 1 77630	431		LDQ	TABLE−3,1
	00700	0 07400 4 01066	432	PUNN2	TSX	CHECKA,4
	00701	0 12000 0 00703	433		TPL	IJKN2
	00702	0 07400 4 01141	434		TSX	ADOB,4
	00703	0 07400 4 01113	435	IJKN2	TSX	CHECKB,4
	00704	0 12000 0 00706	436		TPL	N3
	00705	0 07400 4 01141	437		TSX	ADOB,4
	00706	−0 50000 0 01203	438	N3	CAL	DOTAG
	00707	0 76700 0 00002	439		ALS	2
	00710	−0 76000 0 00001	440		PBT
	00711	0 02000 0 00721	441		TRA	NXTDO
	00712	0 56000 1 77627	442		LDQ	TABLE−4,1
	00713	0 07400 4 01066	443	PUNN3	TSX	CHECKA,4
	00714	0 12000 0 00716	444		TPL	IJKN3
	00715	0 07400 4 01141	445		TSX	ADOB,4
	00716	0 07400 4 01113	446	IJKN3	TSX	CHECKB,4
	00717	0 12000 0 00721	447		TPL	NXTDO
	00720	0 07400 4 01141	448		TSX	ADOB,4
	00721	1 00005 1 00722	449	NXTDO	TXI	TXLS,1,5
	00722	−3 00000 1 00611	450	TXLS	TXL	CLADO,1,0
	00723	0 76200 0 00222	451	SPACES	RTB	2 SPACE OVER FORVAL
	00724	0 76200 0 00222	452		RTB	2 SPACE OVER FORVAR
	00725	0 76200 0 00222	453		RTB	2 SPACE OVER FORTAG
	00726	0 02000 0 00052	454		TRA	RDREC
	00727	0 07400 4 01022	455	CONBET	TSX	NOBETA,4
	00730	0 07400 4 01141	456		TSX	ADOB,4
	00731	0 02000 0 00643	457		TRA	DOALF AND TEST ALPHA
	00732	−3 00002 1 00052	458	FRET	TXL	RDREC,1,2 GO THRO THIS TABLE FROM LAST TO FIRST
	00733	0 53400 2 01152	459	NEXTT	LXA	IR4,2
	00734	0 50000 1 77634	460	CLAT	CLA	TABLE+1,1
	00735	−0 12000 0 00740	461		TMI	NEWFRT
	00736	1 00001 2 00737	462		TXI	TNEXT,2,1
	00737	2 00001 1 00734	463	TNEXT	TIX	CLAT,1,1 WILL NOT FAIL BEFORE THE TMI
	00740	−0 63400 2 01206	464	NEWFRT	SXD	FRETNB,2 SAVE NUMBER OF FREQUENCIES
	00741	−0 32000 0 01157	465		ANA	ADDMSK
	00742	0 60100 0 01170	466		STO	ALFA FREQUENCY OF BETA IS IGNORED BY
	00743	−0 10000 0 00745	467		TNZ	BRANCH FORTRAN IF NO CORRESPONDING BETA IN
	00744	0 02000 0 00763	468		TRA	NXTFRT COLUMN 1 TO 5 OF SOURCE PROGRAM
	00745	0 53400 4 01152	469	BRANCH	LXA	IR4,4
	00746	0 50000 4 75433	470	TCLAT	CLA	ALPHA,4
	00747	−0 32000 0 01157	471		ANA	ADDMSK
	00750	0 34000 0 01170	472		CAS	ALFA
	00751	0 02000 0 00753	473		TRA	TIXT
	00752	0 02000 0 00756	474		TRA	HAVALF
	00753	1 00001 4 00754	475	TIXT	TXI	FRETST,4,1
	00754	−3 00000 4 00746	476	FRETST	TXL	TCLAT,4,0 SET AT END OF READING IN STOP TABLE
	00755	0 02000 0 00763	477		TRA	NXTFRT
	00756	0 50000 4 75433	478	HAVALF	CLA	ALPHA,4 THE ONLY TIME A FREQUENCY STATEMENT CAN
	00757	−0 32000 0 01161	479		ANA	DECMSK LOUSE UP THE OBJECT PROGRAM IS WHEN
	00760	0 40200 0 01206	480		SUB	FRETNB THERE ARE MORE FREQUENCIES GIVEN THAN
	00761	0 12000 0 00763	481		TPL	NXTFRT BRANCHES.
	00762	0 07400 4 01022	482	FRETIF	TSX	NOBETA,4
	00763	2 00001 1 00733	483	NXTFRT	TIX	NEXTT,1,1
	00764	0 02000 0 00052	484		TRA	RDREC
	00765	0 50000 0 77633	485	EQUIV	CLA	TABLE FIRST WORD IN TABLE WILL BE 35 ONES
	00766	0 40200 0 01162	486		SUB	MSK35 IF THERE HAVE BEEN INCONSISTANT
	00767	−0 10000 0 00777	487		TNZ	DIAGND
	00770	0 53400 1 01152	488		LXA	IR4,1
	00771	0 50000 1 77632	489	NXTEQV	CLA	TABLE−1,1
	00772	0 40200 0 01162	490		SUB	MSK35 LAST INCONSISTANCY IS FOLLOWED BY
	00773	0 10000 0 00777	491		TZE	DIAGND ANOTHER WORD OF ONES
	00774	0 56000 1 77632	492		LDQ	TABLE−1,1
	00775	0 07400 4 01033	493	NOTEQV	TSX	ERROR,4
	00776	1 00001 1 00771	494		TXI	NXTEQV,1,1
	00777	0 50000 0 01173	495	DIAGND	CLA	ERNBR
	01000	0 10000 0 01263	496		TZE	SPACE2 IF NO ERROR, READ IN SECTION II
	01001	0 60100 0 00030	497		STO	24 SAVE FOR BIG D
	01002	0 50000 0 01171	498		CLA	TW13 PUT RECORD NUMBER IN 2 FOR PRINT OUT
	01003	0 60100 0 00002	499		STO	2
	01004	0 53400 2 01152	500		LXA	IR4,2
	01005	0 76200 0 00201	501	DIAGRD	RTD	1 SPACE OVER REST OF SYSTEM IN FORTRAN
	01006	0 70000 0 00000	502		CPY	0
	01007	0 02000 0 01005	503		TRA	DIAGRD
	01010	1 00001 2 01011	504		TXI	TST2FL,2,1
	01011	−3 00001 2 01005	505	TST2FL	TXL	DIAGRD,2,1
	01012	0 76200 0 00221	506		RTB	1 END FILE SKIP, START TO READ BIG D
	01013	0 53400 1 01152	507		LXA	IR4,1
	01014	0 70000 1 00031	508	DCPY	CPY	25,1
	01015	1 77777 1 01014	509		TXI	DCPY,1,−1
	01016	0 76100 0 00000	510		NOP
	01017	0 07400 4 00032	511	BIGD	TSX	26,4
	01020	0 76100 0 00000	512	REW	NOP	REPLACED BY SPACE2 AT 1263. WAS REWIND
	01021	0 76100 0 00000	513		NOP
			514			ENTER WITH AC ZERO. EXIT WITH TSX FROM TABLE
			515			WHICH HAS MISSING BETA, IN DEC OF AC AND
			516			ALPHA IN ADDRESS OF AC.
	01022	−0 63400 4 01170	517	NOBETA	SXD	ALFA,4
	01023	0 07400 4 01026	518		TSX	SAVALF,4
	01024	−0 53400 4 01170	519		LXD	ALFA,4
	01025	0 02000 4 00001	520		TRA	1,4
			521			ENTER WITH HASH IN AC. EXIT WITH CONTENTS OF ALPHA IN AC
	01026	−0 63400 4 01177	522	SAVALF	SXD	ERAS,4
	01027	−0 53400 4 01173	523		LXD	ERNBR,4
	01030	0 50000 0 01170	524		CLA	ALFA
	01031	0 60100 4 77777	525		STO	ERLIST,4
	01032	1 00001 4 01044	526		TXI	NEXTA,4,1 SAME RETURN AS ERROR ROUTINE.
			527			ENTER WITH MQ=BCD SYMBOL OR HASH,0, ALPHA
			528			MAKES 2 WORD ENTRY IN ERROR LIST
			529			1...KIND OF ERROR,0, TABLE IN WHICH ERROR FOUND
			530			2...CONTENTS OF MQ
			531			EXIT AC HASH, MQ NOT CHANGED
	01033	−0 75400 4 00000	532	ERROR	PXD	0,4 PUT TSX FROM SECTION SCANNING
	01034	−0 53400 4 01173	533		LXD	ERNBR,4 FOR ERROR, IN DEC OF 1ST WORD
	01035	0 62200 0 01177	534		STD	ERAS
	01036	0 62200 4 77777	535		STD	ERLIST,4
	01037	0 50000 0 01152	536		CLA	IR4 PUT TSX FROM DABLE IN WHI+H
	01040	0 77100 0 00022	537		ARS	18 ERROR WAS FOUND, IN ADDR. OF 1ST WORD
	01041	0 62100 4 77777	538		STA	ERLIST,4
	01042	−0 60000 4 77776	539		STQ	ERLIST−1,4 PUT MQ IN 2ND WORD
	01043	1 00002 4 01044	540		TXI	NEXTA,4,2
	01044	−0 63400 4 01173	541	NEXTA	SXD	ERNBR,4
	01045	−0 53400 4 01177	542		LXD	ERAS,4
	01046	0 02000 4 00001	543		TRA	1,4
			544			ENTER WITH AC ALL ZERO, EXCEPT ADDRESS WHICH HAS BETA
			545			FROM TIFGO OR TDO, OR ALPHA+1 FROM SAME. EXIT SAME, EXCEPT
			546			WHERE MATCH IS FOUND, THEN AC HAS HASH
	01047	−0 63400 4 01152	547	ISNONX	SXD	IR4,4 ERROR WILL RECORD WHICH TABLE WAS SCANNED
	01050	0 02000 0 01274	548		TRA	PATS2
	01051	0 34000 2 74303	549	CASH	CAS	NONEXT,2
	01052	0 02000 0 01054	550		TRA	NEXTH
	01053	0 02000 0 01057	551	YESNOX	TRA	NONEXB THIS WILL BE CHANGED TO BYPASS ERROR WHEN
	01054	1 00001 2 01055	552	NEXTH	TXI	TXLH,2,1 SCANNING BETA TABLE
	01055	−3 00000 2 01051	553	TXLH	TXL	CASH,2,0
	01056	0 02000 0 01277	554		TRA	PATRE2
	01057	0 76700 0 00022	555	NONEXB	ALS	18 ERROR, SAVE BETA AND ALPHA IN LIST
	01060	0 62200 0 01170	556		STD	ALFA
	01061	0 56000 0 01170	557		LDQ	ALFA
	01062	0 07400 4 01033	558	TSXH	TSX	ERROR,4
	01063	−0 53400 4 01152	559	INFORM	LXD	IR4,4
	01064	−0 76000 0 00003	560		SSM	SET RETURN TO SHOW ERROR
	01065	0 02000 0 01277	561		TRA	PATRE2
			562			ENTER WITH HASH IN AC MQ HAS BCD SYMBOL. EXIT WITH HASH	IN
			563			AC AMD MQ, SYMBOL IS STORED IN NAME. DC IS MINUS ONLY WHEN
			564			ILLEGAL CHARACTER PRESENT
	01066	−0 60000 0 01176	565	CHECKA	STQ	NAME
	01067	−0 63400 4 01152	566		SXD	IR4,4
	01070	−0 63400 2 01151	567		SXD	IR2,2
	01071	−0 63400 1 01150	568		SXD	IR1,1
	01072	−0 53400 1 01231	569		LXD	SYMBL,1 6 INTO IR1
	01073	0 53400 2 01231	570	NXTNAM	LXA	SYMBL,2 10 INTO IR2
	01074	−0 75400 0 00000	571		PXD	0,0 CLEAR AC AND COMPARE NEXT BCD
	01075	−0 76300 0 00006	572		LGL	6 CHARACTER WITH TABLE OF ILLEGAL SYMBOLS
	01076	0 34000 2 01231	573	ACAS	CAS	SYMBL,2
	01077	0 02000 0 01101	574		TRA	ATIX
	01100	0 02000 0 01107	575		TRA	WRONG
	01101	2 00001 2 01076	576	ATIX	TIX	ACAS,2,1 GET NEXT ILLEGAL SYMBOL FOR COMPARISON
	01102	2 00001 1 01073	577		TIX	NXTNAM,1,1 GET NEXT BCD CHARACTER FOR COMPARISON
	01103	−0 53400 4 01152	578	RETNA	LXD	IR4,4
	01104	−0 53400 2 01151	579		LXD	IR2,2
	01105	−0 53400 1 01150	580		LXD	IR1,1
	01106	0 02000 4 00001	581		TRA	1,4
	01107	0 56000 0 01176	582	WRONG	LDQ	NAME
	01110	0 07400 4 01033	583	CHATSX	TSX	ERROR,4
	01111	−0 76000 0 00003	584		SSM	SIGNAL THAT ERROR HAS BEEN PICKED UP
	01112	0 02000 0 01103	585		TRA	RETNA
			586			ENTER WITH HASH IN AC + MQ, EXIT SAME EXCEPT WHERE NO MATCH
			587			THEN MINUS
	01113	0 56000 0 01176	588	CHECKB	LDQ	NAME
	01114	−0 63400 4 01152	589		SXD	IR4,4
	01115	0 53400 4 01215	590		LXA	IJK,4
	01116	−0 75400 0 00000	591		PXD	0,0
	01117	−0 76300 0 00006	592		LGL	6
	01120	0 34000 4 01215	593	BCAS	CAS	IJK,4
	01121	0 02000 0 01123	594		TRA	BTIX
	01122	0 02000 0 01127	595		TRA	RETNB
	01123	2 00001 4 01120	596	BTIX	TIX	BCAS,4,1
	01124	0 56000 0 01176	597		LDQ	NAME
	01125	0 07400 4 01033	598	CHBTSX	TSX	ERROR,4
	01126	−0 76000 0 00003	599		SSM
	01127	−0 53400 4 01152	600	RETNB	LXD	IR4,4
	01130	0 02000 4 00001	601		TRA	1,4
			602			ENTER WITH BETA FROM TIFGO ENTRIES WHICH ARE MINUS OR HAVE 0,
			603			3,4,5 OR 6 IN ADDRESS OF 1ST WORD. TIFGO 1 AND 2 ARE ALREADY
			604			IN BETA TABLE. EXIT WITH SAME.
	01131	−0 63400 4 01177	605	MORBTS	SXD	ERAS,4
	01132	−0 53400 4 00572	606		LXD	BETANB,4
	01133	0 60100 4 75434	607	STOBET	STO	BETA,4
	01134	1 77777 4 01135	608		TXI	STBET,4,−1
	01135	−0 63400 4 00572	609	STBET	SXD	BETANB,4
	01136	−0 63400 4 00572	610		SXD	BETANB,4
	01137	−0 53400 4 01177	611		LXD	ERAS,4
	01140	0 02000 4 00001	612		TRA	1,4
	01141	−0 63400 4 01177	613	ADOB	SXD	ERAS,4
	01142	−0 53400 4 01173	614		LXD	ERNBR,4
	01143	0 50000 1 77633	615		CLA	TABLE,1
	01144	0 60100 4 77777	616		STO	ERLIST,4
	01145	0 50000 1 77632	617		CLA	TABLE−1,1
	01146	0 60100 4 77776	618		STO	ERLIST−1,4
	01147	1 00002 4 01044	619		TXI	NEXTA,4,2
A	01150	0 00000 0 00000	620	IR1	HTR
	01151	0 00000 0 00002	621	IR2	HTR	2
	01152	0 00000 0 00000	622	IR4	HTR	0
	01153	0 00000 0 00001	623	ADDONE	HTR	1
	01154	0 00001 0 00000	624	DECONE	HTR	0,0,1
	01155	0 00002 0 00000	625	DECTWO	HTR	0,0,2
	01156	0 00003 0 00000	626	DECTRE	HTR	0,0,3
	01157	+000000077777	627	ADDMSK	OCT	000000077777
	01160	+000000700000	628	TAGMSK	OCT	000000700000
	01161	+077777000000	629	DECMSK	OCT	077777000000
	01162	+377777777777	630	MSK35	OCT	377777777777
	01163	0 70000 1 77633	631	ADTABL	CPY	TABLE,1
	01164	0 00000 0 75433	632	ADTIFG	HTR	TIFGOT
	01165	0 70000 4 75435	633	ADTRAD	CPY	TRADT,4
	01166	0 00000 0 00060	634	CPTRAD	HTR	COPYAA
	01167	0 00000 0 01063	635	CHNONX	HTR	INFORM
	01170	0 00000 0 00000	636	ALFA
	01171	0 00000 0 00325	637	TW13	HTR	213
	01172	0 00000 0 00000	638	TRADNB
	01173	0 00000 0 00000	639	ERNBR
	01174	0 00000 0 00000	640	IDENT
	01175	0 00000 0 00000	641	WDCONT
	01176	0 00000 0 00000	642	NAME
	01177	0 00000 0 00000	643	ERAS
	01200	0 00000 0 00000	644	XERAS
	01201	0 00000 0 00000	645	BST		STORE NUMBER OF TIMES WORD COUNT WRONG
	01202	0 00000 0 00000	646	BSTA		DITTO IDENTIFICATION
	01203	0 00000 0 00000	647	DOTAG
	01204	0 00000 0 00000	648	DOBETA
	01205	0 76100 0 00000	649	NOP	NOP
	01206	0 00000 0 00000	650	FRETNB
	01207	000000000031	651		BCD	100000I
	01210	000000000042	652		BCD	100000K
	01211	000000000041	653		BCD	100000J
	01212	000000000043	654		BCD	100000L
	01213	000000000044	655		BCD	100000M
	01214	000000000045	656		BCD	100000N
	01215	0 00000 0 00006	657	IJK	HTR	6,0,0
	01216	000000000020	658		BCD	100000+
	01217	+000000000014	659		OCT	000000000014 OTHER MINUS SIGN
	01220	000000000060	660		BCD	100000␣
	01221	000000000061	661		BCD	100000/
	01222	000000000053	662		BCD	100000$
	01223	000000000074	663		BCD	100000(
	01224	000000000034	664		BCD	100000)
	01225	000000000013	665		BCD	100000=
	01226	000000000073	666		BCD	100000,
	01227	000000000033	667		BCD	100000.
	01230	000000000054	668		BCD	100000*
	01231	0 00006 0 00013	669	SYMBL	HTR	11,0,6
	01232	0 00000 0 00076	670	AFTRSZ	HTR	IDNTFY
	01233	+000000000013	671		OCT	000000000013
	01234	0 00000 0 00155	672		HTR	SUBARG
	01235	+000000000014	673		OCT	000000000014
	01236	0 00000 0 00167	674		HTR	UPPER
	01237	+000000000000	675		OCT	000000000000
	01240	0 00000 0 00202	676		HTR	TEIFNO
	01241	+000000000002	677		OCT	000000000002
	01242	0 00000 0 00220	678		HTR	TIFGO
	01243	+000000000003	679		OCT	000000000003
	01244	0 00000 0 00232	680		HTR	TRAD
	01245	+000000000001	681		OCT	000000000001
	01246	0 00000 0 00604	682		HTR	TDO
	01247	+000000000007	683		OCT	000000000007
	01250	0 00000 0 00732	684		HTR	FRET
	01251	+000000000010	685		OCT	000000000010
	01252	0 00000 0 00765	686		HTR	EQUIV
	01253	0 00000 0 00020	687	TAPTAB	HTR	16
	01254	2 00001 1 01255	688	PTCH	TIX	SZW,1,1 SIZ TABLE HAS CHECK SUM ENTRY NOT
	01255	−0 75400 1 00000	689	SZW	PXD	0,1 NOT INCLUDED IN WORD COUNT
	01256	0 77100 0 00022	690		ARS	18
	01257	0 02000 0 00063	691		TRA	SUBWDS
	01260	0 50000 0 01163	692	PATIF	CLA	ADTABL
	01261	0 60100 0 00056	693		STO	COPY
	01262	0 02000 0 00122	694		TRA	NOTIFG
	01263	0 76200 0 00222	695	SPACE2	RTB	2
	01264	0 76200 0 00222	696		RTB	2
	01265	0 76600 0 00333	697		IOD
	01266	−0 76000 0 00012	698		RTT
	01267	0 76100 0 00000	699		NOP
	01270	0 02000 0 00004	700		TRA	4
	01271	0 10000 0 00577	701	PAQADD	TZE	NXTALF
	01272	0 40000 0 01153	702		ADD	ADDONE
	01273	0 02000 0 00562	703		TRA	ADDQ
	01274	−0 63400 2 01301	704	PATS2	SXD	PATERA,2
	01275	0 53400 2 01152	705		LXA	IR4,2
	01276	0 02000 0 01051	706		TRA	CASH
	01277	−0 53400 2 01301	707	PATRE2	LXD	PATERA,2
	01300	0 02000 4 00001	708		TRA	1,4
	01301	0 00000 0 00000	709	PATERA