1		AST
			2			************* FORTRAN II SECTION SIX ************************	F6G00010
			3			FORTRAN 2 RECORD 103 - FIRST PASS OF CIT TAPE.	F6G00011
			4				F6G00012
			5			CONTROL ENTERS THIS RECORD AT LOCATION 210.	F6G00013
			6				F6G00014
			7			INITIALIZE FIRST TAPE PASS	F6G00020
		00210	8		ORG	136	F6G00030
	00210	−0 53400 1 00155	9	MDEA	LXD	DEVL,1 COMPUTE NUMBER OF	F6G00040
	00211	−0 75400 1 74413	10	LDEA	PXD	DEA,1 ENTRIES IN DEV	F6G00050
	00212	0 77100 0 00022	11		ARS	18 TABLE.	F6G00060
	00213	0 60100 0 00173	12		STO	D COMPUTE ADDRESS OF	F6G00070
	00214	−0 40000 0 00146	13		SBM	TDEV DEA TABLE TO MOVE	F6G00080
	00215	0 62100 0 00152	14		STA	ADEV IT TO END OF	F6G00090
	00216	0 62100 0 00170	15		STA	LIFN DEV TABLE.	F6G00100
	00217	0 02000 0 00672	16		TRA	GPCH1	F6G00110
D	00220	−3 00000 1 00225	17	RETN	TXL	PREP,1 TEST FOR NO ENTRIES IN DEV.	F6G00120
	00221	0 62100 0 00223	18		STA	MDAS YES.	F6G00130
	00222	0 50000 1 74413	19	MDAL	CLA	DEA,1 MOVE LOCATIONS TO	F6G00140
	00223	0 60100 1 00223	20	MDAS	STO	*,1 END OF DEV TABLE.	F6G00150
	00224	2 00001 1 00222	21		TIX	MDAL,1,1	F6G00160
	00225	0 50000 0 00165	22	PREP	CLA	EIFN COMPUTE ADDRESS FOR	F6G00170
	00226	0 77100 0 00022	23		ARS	18 TEV TABLE	F6G00180
	00227	0 56000 0 00173	24		LDQ	D WILL FOLLOW THE MOVED	F6G00190
	00230	0 04000 0 00233	25		TLQ	MVIF DEA TABLE	F6G00200
	00231	0 50000 0 00173	26		CLA	D ALLOWS FOR IFN	F6G00210
	00232	0 40000 0 00162	27		ADD	ONE TABLE TO BE STORED	F6G00220
	00233	−0 40000 0 00152	28	MVIF	SBM	ADEV IN DECREMENT OF DEA	F6G00230
	00234	0 62100 0 00624	29		STA	ETEV5 TABLE HENCE IF IFN IS	F6G00240
	00235	0 62100 0 00627	30		STA	ETEV6 LONGER THAN DEA IFN	F6G00250
	00236	0 62100 0 00246	31		STA	ETEV7 LENGTH IS USED IN	F6G00260
	00237	0 62100 0 00107	32		STA	TTEV COMPUTING ADDRESS OF	F6G00270
	00240	−0 40000 0 00162	33		SBM	ONE TEV TABLE	F6G00280
	00241	0 62100 0 00626	34		STA	ETEV4	F6G00290
T	00242	−0 75400 0 00000	35		PXD	STORE ONES IN	F6G00300
	00243	0 60000 0 00166	36		STZ	L1 SET PROGRAM BREAK=0	F6G00310
	00244	0 60000 0 00167	37		STZ	L2 SET PROGRAM COUNTER=0	F6G00320
	00245	0 76000 0 00006	38		COM	SOTRE ONES IN TEV AND TIV	F6G00330
U	00246	0 60200 0	39	ETEV7	SLW	TEV TABLES INITIAL	F6G00340
	00247	0 60100 0 02114	40		STO	TIV ENTRIES.	F6G00350
	00250	0 60200 0 02115	41		SLW	TIV+1	F6G00360
	00251	0 53400 2 00256	42		LXA	RDC,2 SET READ ERROR COUNTER AND	F6G00370
	00252	0 02000 0 00257	43		TRA	RD GO TO READ CITS FROM TAPE 4	F6G00380
	00253	0 76400 0 00204	44	ERR	BST	4	F6G00390
	00254	2 00001 2 00257	45		TIX	RD,2,1	F6G00400
	00255	0 07400 4 00004	46		TSX	4,4	F6G00410
	00256	0 42000 0 00005	47	RDC	HPR	5	F6G00420
	00257	0 76200 0 00224	48	RD	RTB	4 READ CIT RECORD FROM TAPE 4.	F6G00430
	00260	0 53400 4 00164	49		LXA	ADDR,4 COUNTER SET=-1	F6G00440
	00261	0 70000 4 01104	50	RD1	CPY	REC−2,4 COPY CIT RECORD INTO REC-1,-2,	F6G00450
	00262	1 00001 4 00261	51		TXI	RD1,4,1	F6G00460
	00263	0 02000 0 00525	52		TRA	EOF IF END-OF-FILE REACHED ON TAPE 4.	F6G00470
	00264	0 77100 0 00377	53		ARS	255	F6G00480
	00265	0 77100 0 00377	54		ARS	255	F6G00490
	00266	−0 76000 0 00012	55		RTT		F6G00500
	00267	0 02000 0 00253	56		TRA	ERR	F6G00510
	00270	−0 63400 4 00522	57		SXD	RD2,4 STORE COUNT OF CIT IN RD2 DECR.	F6G00520
	00271	−0 53400 4 00164	58		LXD	ADDR,4 SET WORD COUNTER=0	F6G00530
	00272	−0 63400 4 00524	59	RD4	SXD	RD3,4 SAVE IT IN DECREMENT OF RD3	F6G00540
	00273	0 50000 4 01105	60		CLA	REC−1,4 SELECT FROM REC	F6G00550
	00274	0 60100 0 00664	61		STO	SL SYMBOLIC LOCATION	F6G00560
	00275	0 50000 4 01104	62		CLA	REC−2,4	F6G00570
	00276	0 60100 0 00665	63		STO	OP SYMBOLIC OP, BINARY DEC	F6G00580
	00277	0 50000 4 01103	64		CLA	REC−3,4	F6G00590
	00300	0 60100 0 00666	65		STO	SA SYMBOLIC ADDRESS	F6G00600
	00301	0 50000 4 01102	66		CLA	REC−4,4 RELATIVE ADDRESS, TAG	F6G00610
	00302	0 60100 0 00667	67		STO	RA SET EA TO ZERO.	F6G00620
T	00303	−0 75400 0 00000	68		PXD	SET EA TO ZERO	F6G00630
	00304	0 60100 0 00174	69		STO	EA	F6G00640
	00305	−0 50000 0 00665	70		CAL	OP SELECT SYMBOLIC OP.	F6G00650
	00306	0 76500 0 00022	71		LRS	18 IS OP=OCT.	F6G00660
	00307	0 34000 0 00660	72		CAS	OCT	F6G00670
	00310	0 02000 0 00315	73		TRA	SA1 GO TO SA1 SINCE OP IS NEITHER OCT NOR BCD.	F6G00680
	00311	0 02000 0 00424	74		TRA	ORDOP YES, OP IS OCTAL. GO TO ORDOP	F6G00690
	00312	0 34000 0 00662	75		CAS	BCD IS OP BCD.	F6G00700
	00313	0 02000 0 00315	76		TRA	SA1 OP IS NEITHER OCT NOR BCD.	F6G00710
	00314	0 02000 0 00424	77		TRA	ORDOP YES, OP IS BCD. GO TO ORDOP	F6G00720
	00315	−0 50000 0 00666	78	SA1	CAL	SA IF OP NOT BCD OR OCT SELECT SYMBOLIC ADDRESS	F6G00730
	00316	0 10000 0 00413	79		TZE	SA2 SA EQUAL ZERO. GO TO SA2 TO SET EA=0	F6G00740
	00317	0 76500 0 00036	80		LRS	30 TEST SA(1), I.E., FIRST 6-BIT CHARACTER OF SA	F6G00750
	00320	0 73400 4 00000	81		PAX	0,4 TO DETERMINE THE TYPE OF SYMBOL IT IS.	F6G00760
	00321	3 00017 4 00364	82		TXH	SA4,4,15 TRANSFER IF FIRST CHAR. IS GREATER THAN 15.	F6G00770
	00322	0 02000 4 00342	83		TRA	SAT,4	F6G00780
	00323	0 02000 0 00412	84		TRA	SA8 SA(1) EQUAL FIFTEEN	F6G00790
	00324	0 02000 0 00357	85		TRA	SA6 SA(1) EQUAL FOURTEEN	F6G00800
	00325	0 02000 0 00357	86		TRA	SA6 SA(1) EQUAL THIRTEEN	F6G00810
	00326	0 02000 0 00343	87		TRA	SA9 SA(1) EQUAL TWELVE	F6G00820
	00327	0 02000 0 00414	88		TRA	SA5 SA(1) EQUAL ELEVEN	F6G00830
	00330	0 02000 0 00357	89		TRA	SA6 SA(1) EQUAL TEN	F6G00840
	00331	0 02000 0 00414	90		TRA	SA5 SA(1) EQUAL NINE	F6G00850
	00332	0 02000 0 00357	91		TRA	SA6 SA(1) EQUAL EIGHT	F6G00860
	00333	0 02000 0 00343	92		TRA	SA9 SA(1) EQUAL SEVEN	F6G00870
	00334	0 02000 0 00414	93		TRA	SA5 SA(1) EQUAL SIX	F6G00880
	00335	0 02000 0 00343	94		TRA	SA9 SA(1) EQUAL FIVE	F6G00890
	00336	0 02000 0 00343	95		TRA	SA9 SA(1) EQUAL FOUR	F6G00900
	00337	0 02000 0 00414	96		TRA	SA5 SA(1) EQUAL THREE	F6G00910
	00340	0 02000 0 00414	97		TRA	SA5 SA(1) EQUAL TWO	F6G00920
	00341	0 02000 0 00343	98		TRA	SA9 SA(1) EQUAL ONE	F6G00930
	00342	0 02000 0 00404	99	SAT	TRA	SA3 SAI1) EQUAL ZERO	F6G00940
	00343	−0 77300 0 00016	100	SA9	RQL	14 TAG CELL(12), ARITH ERASE(1),	F6G00950
	00344	−0 76300 0 00021	101		LGL	17 FUNCT ERASE(7), LIB(4),	F6G00960
	00345	0 07400 4 00121	102		TSX	STIV,4 ASSIGN CONSTANTS(5). ASSEMBLE SYMBOL AND	F6G00970
	00346	0 07400 4 00632	103		TSX	ETIV,4 PUT IN TIV TABLE WHERE A TIV TABLE ENTRY	F6G00980
	00347	0 62100 0 00663	104		STA	TRV HAS SYMBOL IN S-21 AND HAS LOCATION IN 22-35.	F6G00990
	00350	0 56000 0 00663	105		LDQ	TRV	F6G01000
	00351	0 50000 0 00667	106		CLA	RA	F6G01010
	00352	−0 76000 0 00003	107		SSM	SELECT RA AS LENGTH	F6G01020
	00353	0 77100 0 00022	108		ARS	18 TO STORE AS ADDRESS	F6G01030
	00354	0 04000 0 00414	109		TLQ	SA5 OF TIV ENTRY IF RA	F6G01040
	00355	0 62100 2 02114	110		STA	TIV,2 IS LONGER	F6G01050
	00356	0 02000 0 00414	111		TRA	SA5	F6G01060
	00357	−0 77300 0 00016	112	SA6	RQL	14 FORMAT(8)	F6G01070
	00360	−0 76300 0 00021	113		LGL	17	F6G01080
	00361	0 07400 4 00121	114	SA7	TSX	STIV,4 PUT IN TIV TABLE	F6G01090
	00362	0 07400 4 00632	115		TSX	ETIV,4 IF NOT IN ALREADY.	F6G01100
	00363	0 02000 0 00413	116		TRA	SA2 TRANSFER WITH SA IN AC TO STORE ADDRESS OF SA	F6G01110
			117			IN EA.	F6G01111
	00364	0 50000 0 00666	118	SA4	CLA	SA SA(1) GREATER THAN 15.	F6G01120
	00365	0 40200 0 00670	119		SUB	DOL1 TRANSFER IF ONE DOLLAR SIGN	F6G01130
	00366	0 10000 0 00377	120		TZE	LIB3	F6G01140
	00367	0 40000 0 00670	121		ADD	DOL1	F6G01150
	00370	0 40200 0 00671	122		SUB	DOL2 TRANSFER IF TWO DOLLAR SIGNS	F6G01160
	00371	0 10000 0 00401	123		TZE	LIB4	F6G01170
	00372	0 50000 0 00666	124		CLA	SA ORDINARY SYMBOL.	F6G01180
	00373	0 07400 4 00142	125		TSX	SDEV,4 SEARCH DEV TABLE.	F6G01190
	00374	0 07400 4 00103	126		TSX	STEV,4 NOT IN. GO TO SEARCH TEV TABLE.	F6G01200
	00375	0 07400 4 00605	127		TSX	ETEV,4 NOT IN. ENTER IN TEV.	F6G01210
	00376	0 02000 0 00413	128		TRA	SA2 IF FOUND IN DEV OR TEV, LOCATION LEFT IN AC +	F6G01220
			129			GO TO STA	F6G01221
	00377	0 50000 0 00204	130	LIB3	CLA	DOLSI SET LOCATION EQUAL TO ADDR. PART OF DOLSI	F6G01230
	00400	0 02000 0 00413	131		TRA	SA2	F6G01240
	00401	0 50000 0 00204	132	LIB4	CLA	DOLSI	F6G01250
	00402	0 77100 0 00022	133		ARS	18	F6G01260
	00403	0 02000 0 00413	134		TRA	SA2	F6G01270
	00404	0 53400 4 00666	135	SA3	LXA	SA,4 NORMAL INST(0)	F6G01280
	00405	−3 00000 4 00414	136		TXL	SA5,4,0 TRANSFER IF IFN TYPE.	F6G01290
	00406	−0 76300 0 00015	137		LGL	13 ADDRESS PART NOT EQUAL ZERO, PUT ADDRESS PART	F6G01300
	00407	−0 77300 0 00012	138		RQL	10 OF SA IN SYMBOL AND STORE IN TIV.	F6G01310
	00410	−0 76300 0 00006	139		LGL	6	F6G01320
	00411	0 02000 0 00361	140		TRA	SA7	F6G01330
	00412	0 50000 0 00166	141	SA8	CLA	L1 PROG COUNTE(I15)	F6G01340
	00413	0 62100 0 00174	142	SA2	STA	EA STORE IN EA ADDRESS LEFT IN AC FROM 1 OF ABOVE,	F6G01350
A		00414	143	SA5	BSS	CONSTANTS2,3,6,9,11	F6G01360
	00414	−0 50000 0 00665	144	OPCAS	CAL	OP	F6G01370
	00415	0 76500 0 00022	145		LRS	18 IS OP BSS OR SYN.	F6G01380
	00416	0 34000 0 00657	146		CAS	SYN SYN OP	F6G01390
	00417	0 02000 0 00424	147		TRA	ORDOP NEITHER	F6G01400
	00420	0 02000 0 00440	148		TRA	SYNOP OP IS SYN. GO TO SYNOP	F6G01410
	00421	0 34000 0 00661	149		CAS	BSS	F6G01420
	00422	0 02000 0 00424	150		TRA	ORDOP OP IS NEITHER BSS OR SYN	F6G01430
	00423	0 02000 0 00431	151		TRA	BSSOP 0P IS BSS. GO TO BSSOP.	F6G01440
	00424	0 50000 0 00166	152	ORDOP	CLA	L1 OP NOT SYN OR BSS.	F6G01450
	00425	0 60100 0 00167	153		STO	L2	F6G01460
	00426	0 40000 0 00162	154		ADD	ONE UPDATE L1 BY 1.	F6G01470
	00427	0 60100 0 00166	155		STO	L1	F6G01480
	00430	0 02000 0 00444	156		TRA	SLS	F6G01490
	00431	0 50000 0 00166	157	BSSOP	CLA	L1 FOR BSS OP,	F6G01500
	00432	0 60100 0 00167	158		STO	L2	F6G01510
	00433	0 50000 0 00667	159		CLA	RA UPDATE L1 BY	F6G01520
	00434	0 77100 0 00022	160		ARS	18 RELATIVE ADDRESS.	F6G01530
	00435	0 40000 0 00166	161		ADD	L1	F6G01540
	00436	0 60100 0 00166	162		STO	L1	F6G01550
	00437	0 02000 0 00444	163		TRA	SLS	F6G01560
	00440	0 50000 0 00174	164	SYNOP	CLA	EA FOR SYN OP,	F6G01570
	00441	0 60100 0 00167	165		STO	L2 SET L2 EQUAL	F6G01580
	00442	−0 10000 0 00444	166		TNZ	SLS TO SYN ADDRESS.	F6G01590
	00443	0 07400 4 00004	167		TSX	4,4	F6G01600
	00444	−0 50000 0 00664	168	SLS	CAL	SL FOR ALL OPS TEST SYMBOLIC LOCATION.	F6G01610
	00445	0 10000 0 00520	169		TZE	SL6 SL ZERO.	F6G01620
	00446	0 76500 0 00036	170		LRS	30	F6G01630
	00447	0 10000 0 00466	171		TZE	SL1 SL(1) ZERO. TRANFER.	F6G01640
	00450	0 73400 4 00000	172		PAX	0,4	F6G01650
	00451	3 00017 4 00476	173		TXH	SL2,4,15 SL(1) OVER 15	F6G01660
	00452	3 00016 4 00520	174		TXH	SL3,4,14 SL(1) EQUAL 15	F6G01670
	00453	−0 77300 0 00016	175		RQL	14 SL(1) LESS 15	F6G01680
	00454	−0 76300 0 00021	176		LGL	17	F6G01690
	00455	0 07400 4 00121	177		TSX	STIV,4 IS SYMBOL IN TIV.	F6G01700
	00456	0 02000 0 00462	178		TRA	SL5 NO.	F6G01710
	00457	0 50000 0 00167	179	SL8	CLA	L2 YES, PUT L2 AS LOCATION	F6G01720
	00460	0 62100 2 02114	180		STA	TIV,2 IN TIV TABLE.	F6G01730
	00461	0 02000 0 00520	181		TRA	SL6	F6G01740
	00462	0 50000 0 00167	182	SL5	CLA	L2 PUT L2 IN AS	F6G01750
	00463	0 62100 0 00160	183		STA	ENTRY LOCATION AND STORE	F6G01760
	00464	0 07400 4 00632	184		TSX	ETIV,4 SYMBOL AND LOCATION	F6G01770
	00465	0 02000 0 00520	185		TRA	SL6 IN TIV TABLE.	F6G01780
	00466	0 53400 4 00664	186	SL1	LXA	SL,4 SL(1) EQUAL ZERO.	F6G01790
D	00467	−3 00000 4 00514	187		TXL	SL7,4 TRANSFER IF IFN TYPE.	F6G01800
	00470	−0 76300 0 00015	188		LGL	13 OTHERWISE, ASSEMBLE SYMBOL.	F6G01810
	00471	−0 77300 0 00012	189		RQL	10	F6G01820
	00472	−0 76300 0 00006	190		LGL	6 IS SYM IN TIV TABLE.	F6G01830
	00473	0 07400 4 00121	191		TSX	STIV,4 NO	F6G01840
	00474	0 02000 0 00520	192		TRA	SL6 YES	F6G01850
	00475	0 02000 0 00457	193		TRA	SL8 YES. GO TO STORE L2 AS LOCATION IN TIV TABLE	F6G01860
	00476	0 50000 0 00664	194	SL2	CLA	SL	F6G01870
	00477	0 40200 0 00670	195		SUB	DOL1	F6G01880
	00500	0 10000 0 00505	196		TZE	LIB1 EXIT TO LIB1 IF SL EQUAL DOL1 ($ 0000)	F6G01890
	00501	0 40000 0 00670	197		ADD	DOL1	F6G01900
	00502	0 40200 0 00671	198		SUB	DOL2	F6G01910
	00503	0 10000 0 00510	199		TZE	LIB2 EXIT TO LIB2 IF SL EQUAL DOL2 ($$ 000)	F6G01920
	00504	0 02000 0 00520	200		TRA	SL6	F6G01930
	00505	0 50000 0 00167	201	LIB1	CLA	L2 STORE L2 IN ADDRESS OF DOLSI.	F6G01940
	00506	0 62100 0 00204	202		STA	DOLSI	F6G01950
	00507	0 02000 0 00520	203		TRA	SL6	F6G01960
	00510	0 50000 0 00167	204	LIB2	CLA	L2 STORE L2 IN DECREMENT OF DOLSI	F6G01970
	00511	0 76700 0 00022	205		ALS	18	F6G01980
	00512	0 62200 0 00204	206		STD	DOLSI	F6G01990
	00513	0 02000 0 00520	207		TRA	SL6	F6G02000
	00514	−0 53400 4 00664	208	SL7	LXD	SL,4 STORE LOCATION	F6G02010
	00515	0 50000 0 00167	209		CLA	L2 OF INTERNAL FORMULA	F6G02020
	00516	0 76700 0 00022	210		ALS	18 NUMBER AS L2,	F6G02030
U	00517	0 62200 4	211	SL9	STD	IFN,4	F6G02040
A		00520	212	SL3	BSS	SL(1) EQUAL 15	F6G02050
A		00520	213	SL6	BSS		F6G02060
	00520	−0 53400 4 00524	214		LXD	RD3,4	F6G02070
	00521	1 00004 4 00522	215		TXI	RD2,4,4	F6G02080
	00522	−3 00000 4 00272	216	RD2	TXL	RD4,4,**	F6G02090
	00523	0 53400 2 00256	217		LXA	RDC,2	F6G02100
	00524	1 00000 0 00257	218	RD3	TXI	RD,0,**	F6G02110
	00525	−0 53400 1 00120	219	EOF	LXD	TEVL,1 AT END OF CIT TAPE.	F6G02120
D	00526	−3 00000 1 00534	220		TXL	DIVL,1 ANY ENTRIES IN TEV TABLE. IF NOT GO TO DIVL.	F6G02130
	00527	−0 75400 1 00000	221		PXD	0,1 YES.	F6G02140
	00530	0 77100 0 00022	222		ARS	18 REDUCE LCTR BY NUMBER	F6G02150
	00531	0 40200 0 00171	223		SUB	LCTR OF ENTRIES IN TEV AND	F6G02160
	00532	0 60200 0 00171	224		SLW	LCTR STORE IN LTEV.	F6G02170
	00533	0 60200 0 00172	225		SLW	LTEV	F6G02180
	00534	−0 53400 2 00141	226	DIVL	LXD	TIVL,2 ANY ENTRIES IN TIV TABLE.	F6G02190
	00535	1 00001 2 00536	227		TXI	SIVL,2,1	F6G02200
D	00536	−3 00000 2 00577	228	SIVL	TXL	DONE,2 NO ENTRIES IN TIV, GO TO DONE.	F6G02210
	00537	−0 50000 2 02114	229		CAL	TIV,2 YES, OBTAIN LENGTH	F6G02220
	00540	0 62100 0 00173	230		STA	D FROM TIV TABLE.	F6G02230
	00541	0 77100 0 00016	231		ARS	14	F6G02240
	00542	−0 73400 1 00000	232		PDX	0,1	F6G02250
	00543	0 02000 1 00563	233		TRA	TYPE,1	F6G02260
	00544	0 02000 0 00574	234		TRA	SIVT 15	F6G02270
	00545	0 02000 0 00574	235		TRA	SIVT 14	F6G02280
	00546	0 02000 0 00574	236		TRA	SIVT 13	F6G02290
	00547	0 02000 0 00567	237		TRA	CIVL 12	F6G02300
	00550	0 02000 0 00574	238		TRA	SIVT 11	F6G02310
	00551	0 02000 0 00574	239		TRA	SIVT 10	F6G02320
	00552	0 02000 0 00574	240		TRA	SIVT 9	F6G02330
	00553	0 02000 0 00574	241		TRA	SIVT 8	F6G02340
	00554	0 02000 0 00567	242		TRA	CIVL 7	F6G02350
	00555	0 02000 0 00574	243		TRA	SIVT 6	F6G02360
	00556	0 02000 0 00574	244		TRA	SIVT 5	F6G02370
TD	00557	1 00000 0 00564	245	GIVL	TXI	EIVL 4	F6G02380
	00560	0 02000 0 00574	246		TRA	SIVT 3	F6G02390
	00561	0 02000 0 00574	247		TRA	SIVT 2	F6G02400
	00562	0 02000 0 00567	248		TRA	CIVL 1	F6G02410
	00563	0 02000 0 00574	249	TYPE	TRA	SIVT 0	F6G02420
	00564	0 77100 0 00001	250	EIVL	ARS	1 TYPE4	F6G02430
	00565	0 76700 0 00025	251		ALS	21 IF DECR. EQUAL ZERO, GO TO SAVE INDEX.	F6G02440
	00566	0 10000 0 00575	252		TZE	FIVL TYPE1,7,12	F6G02450
	00567	0 50000 0 00171	253	CIVL	CLA	LCTR TYPE1,7,12	F6G02460
	00570	0 40200 0 00173	254		SUB	D REDUCE LCTR BY LENGTH	F6G02470
	00571	0 62100 2 02114	255		STA	TIV,2 STORE AS LOCATION IN TIV.	F6G02480
	00572	0 40200 0 00162	256		SUB	ONE MODIFY LOCATION COUNTER.	F6G02490
	00573	0 60100 0 00171	257		STO	LCTR	F6G02500
	00574	1 00001 2 00536	258	SIVT	TXI	SIVL,2,1 MODIFY TO SELECT NEXT SYMBOL	F6G02510
	00575	−0 63400 2 00557	259	FIVL	SXD	GIVL,2	F6G02520
	00576	1 00001 2 00536	260		TXI	SIVL,2,1	F6G02530
	00577	−0 53400 2 00557	261	DONE	LXD	GIVL,2 LOCATION OF 4)0	F6G02540
	00600	0 76000 0 00000	262		CLM	STORE ALL 7 S IN ADDRESS PART	F6G02550
	00601	0 76000 0 00006	263		COM	OF 4) TIV ENTRY AND	F6G02560
	00602	0 62100 2 02114	264		STA	TIV,2 RETURN	F6G02570
	00603	0 76200 0 00221	265		RTB	1 TO	F6G02580
	00604	0 02000 0 00004	266		TRA	4 LOADER.	F6G02590
	00605	1 00001 2 00606	267	ETEV	TXI	ETEV0,2,1	F6G02600
	00606	−0 63400 2 00622	268	ETEV0	SXD	ETEV1,2	F6G02610
	00607	0 60100 0 00160	269		STO	ENTRY	F6G02620
	00610	−0 53400 2 00120	270		LXD	TEVL,2	F6G02630
	00611	1 00001 2 00612	271		TXI	ETEV2,2,1	F6G02640
	00612	−0 63400 2 00120	272	ETEV2	SXD	TEVL,2	F6G02650
	00613	−3 00000 2 00622	273	ETEV3	TXL	ETEV1,2,**+0	F6G02660
	00614	−0 50000 0 00117	274		CAL	TEVS	F6G02670
	00615	0 40000 0 00631	275		ADD	TEVA	F6G02680
	00616	0 60200 0 00117	276		SLW	TEVS	F6G02690
	00617	0 62200 0 00631	277		STD	TEVA	F6G02700
	00620	0 40000 0 00631	278		ADD	TEVA	F6G02710
	00621	0 62200 0 00613	279		STD	ETEV3	F6G02720
	00622	3 00622 2 00626	280	ETEV1	TXH	ETEV4,2,*	F6G02730
	00623	−0 50000 0 00160	281		CAL	ENTRY	F6G02740
U	00624	0 60200 2	282	ETEV5	SLW	TEV,2	F6G02750
	00625	0 02000 4 00001	283		TRA	1,4	F6G02760
U	00626	−0 50000 2	284	ETEV4	CAL	TEV+1,2	F6G02770
U	00627	0 60200 2	285	ETEV6	SLW	TEV,2	F6G02780
	00630	1 77777 2 00622	286		TXI	ETEV1,2,−1	F6G02790
	00631	0 00001 0 00002	287	TEVA		2,0,**+1	F6G02800
	00632	1 77777 2 00633	288	ETIV	TXI	ETIV5,2,−1	F6G02810
	00633	−0 63400 2 00647	289	ETIV5	SXD	ETIV1,2	F6G02820
	00634	−0 53400 2 00141	290		LXD	TIVL,2	F6G02830
	00635	1 77777 2 00636	291		TXI	ETIV2,2,−1	F6G02840
	00636	−0 63400 2 00141	292	ETIV2	SXD	TIVL,2	F6G02850
	00637	1 00001 2 00640	293		TXI	ETIV3,2,1	F6G02860
	00640	3 77776 2 00647	294	ETIV3	TXH	ETIV1,2,**−2	F6G02870
	00641	−0 50000 0 00140	295		CAL	TIVS	F6G02880
	00642	0 40000 0 00656	296		ADD	TIVA	F6G02890
	00643	0 60200 0 00140	297		SLW	TIVS	F6G02900
	00644	0 62200 0 00656	298		STD	TIVA	F6G02910
	00645	0 40000 0 00656	299		ADD	TIVA	F6G02920
	00646	0 62200 0 00640	300		STD	ETIV3	F6G02930
	00647	−3 00647 2 00653	301	ETIV1	TXL	ETIV4,2,*	F6G02940
	00650	−0 50000 0 00160	302		CAL	ENTRY	F6G02950
	00651	0 60200 2 02114	303		SLW	TIV,2	F6G02960
	00652	0 02000 4 00001	304		TRA	1,4	F6G02970
	00653	−0 50000 2 02113	305	ETIV4	CAL	TIV−1,2	F6G02980
	00654	0 60200 2 02114	306		SLW	TIV,2	F6G02990
	00655	1 00001 2 00647	307		TXI	ETIV1,2,1	F6G03000
	00656	0 77777 0 00002	308	TIVA		2,0,**−1	F6G03010
	00657	000000627045	309	SYN	BCD	1000SYN	F6G03020
	00660	000000462363	310	OCT	BCD	1000OCT	F6G03030
	00661	000000226262	311	BSS	BCD	1000BSS	F6G03040
	00662	000000222324	312	BCD	BCD	1000BCD	F6G03050
	00663	−0 00000 0 00000	313	TRV	MZE		F6G03060
	00664	0 00000 0 00000	314	SL	HTR	0	F6G03070
	00665	0 00000 0 00000	315	OP	HTR	0	F6G03080
	00666	0 00000 0 00000	316	SA	HTR	0	F6G03090
	00667	0 00000 0 00000	317	RA	HTR	0	F6G03100
	00670	536000000000	318	DOL1	BCD	1$␣0000	F6G03110
	00671	535360000000	319	DOL2	BCD	1$$␣000	F6G03120
	00672	0 62100 0 00517	320	GPCH1	STA	SL9	F6G03121
	00673	0 62100 0 00675	321		STA	*+2	F6G03122
	00674	−0 53400 2 00165	322		LXD	EIFN,2	F6G03123
U	00675	0 60000 2	323		STZ	IFN,2	F6G03124
	00676	2 00001 2 00675	324		TIX	*−1,2,1	F6G03125
	00677	0 02000 0 00220	325		TRA	RETN	F6G03126
		00700	326		BSS	34	F6G03130
		01106	327	REC	BES	100	F6G03140