1			************* FORTRAN II SECTION SIX ************************	F6I00010
			2			FORTRAN 2 RECORD 107 - MAP EXT. AND INT. FORMULA NOS.	F6I00011
			3				F6I00012
			4				F6I00013
			5			LIST EXTERNAL FORMULA NUMBERS WITH CORRESPONDING	F6I00020
			6			INTERNAL FORMULA NUMBERS AND RELATIVE LOCATIONS	F6I00030
		00210	7		ORG	136	F6I00040
	00210	0 53400 4 00427	8		LXA	LOC15,4 SET DRUM READ ERROR COUNTER.	F6I00050
	00211	0 76200 0 00304	9	REIFN	RDR	4 SELECT DRUM 4 TO READ EIFN TABLE.	F6I00060
T	00212	−0 75400 0 00002	10	EIFNA	PXD	2	F6I00070
	00213	0 46000 0 00212	11		LDA	EIFNA	F6I00080
	00214	−0 70000 0 02112	12		CAD	TEIFN	F6I00090
	00215	0 76000 0 00006	13		COM		F6I00100
	00216	−0 70000 0 00533	14		CAD	SUM	F6I00110
	00217	0 76000 0 00006	15		COM		F6I00120
	00220	0 10000 0 00223	16		TZE	LEIFN WORD COUNT OKAY.	F6I00130
	00221	2 00001 4 00211	17		TIX	REIFN,4,1	F6I00140
	00222	0 07400 4 00004	18		TSX	4,4	F6I00150
	00223	−0 53400 3 02112	19	LEIFN	LXD	TEIFN,3 SET XR1+XR2=WD CT OF EIFN TABLE.	F6I00160
D	00224	−3 00000 1 00347	20		TXL	ENDS,1 ANY FORMULA NOS. NO, GO TO ENDS.	F6I00170
	00225	0 53400 4 00427	21		LXA	LOC15,4 YES, SET READ ERROR COUNTER	F6I00180
	00226	0 76200 0 00304	22	LIB30	RDR	4	F6I00190
T	00227	−0 75400 0 00004	23	EIFTA	PXD	4 READ INTERNAL-	F6I00200
	00230	0 46000 0 00227	24		LDA	EIFTA EXTERNAL FORMULA	F6I00210
	00231	−0 70000 2 02112	25	CEIFN	CAD	TEIFN,2 NUMBERS INTO TEIFN-WD CT,..., TEIFN-1	F6I00220
	00232	2 00001 2 00231	26		TIX	CEIFN,2,1	F6I00230
	00233	0 70000 0 00533	27		CPY	SUM	F6I00240
	00234	0 76000 0 00006	28		COM		F6I00250
	00235	−0 70000 0 00533	29		CAD	SUM	F6I00260
	00236	0 76000 0 00006	30		COM		F6I00270
	00237	0 10000 0 00242	31		TZE	PEIFN TRANSFER IF OKAY.	F6I00280
	00240	2 00001 4 00226	32		TIX	LIB30,4,1	F6I00290
	00241	0 07400 4 00004	33		TSX	4,4	F6I00300
	00242	0 07400 4 00324	34	PEIFN	TSX	SPACE,4 COPY TITLE AND HEADING ON TAPE 2,	F6I00310
	00243	0 00024 0 00454	35			TITLE,,20	F6I00320
	00244	0 07400 4 00324	36		TSX	SPACE,4	F6I00330
	00245	0 00024 0 00500	37			CHEAD,,20	F6I00340
	00246	0 50000 0 00170	38		CLA	LIFN SET AT INITIALIZATION OF FIRST PASS. EQUALS	F6I00350
	00247	0 62100 0 00263	39		STA	FIFL LOCATION OF DEA TABLE WHICH HAS IFN TABLE IN	F6I00360
			40			DECREMENT.	F6I00361
	00250	−0 53400 2 00301	41	CNL	LXD	LNC,2 SET COUNTER FOR 20-WORD RECORD	F6I00370
	00251	−0 50000 0 00422	42	CNW	CAL	BLANKS STORE BLANKS IN FIRST WORD OF 4-WORD ENTRY	F6I00380
	00252	0 60200 2 00524	43		SLW	LIN+1,2	F6I00390
	00253	−0 50000 1 02112	44		CAL	TEIFN,1 SELECT EIFN TABLE ENTRY.	F6I00400
	00254	0 07400 4 00303	45		TSX	DCR,4 GO TO CONVERT EXTERNAL FORMULA NO. TO BCD IMAGE	F6I00410
	00255	0 60200 2 00525	46		SLW	LIN+2,2 OF ITS DECIMAL REPRESENTATION AND STORE IT IN	F6I00420
			47			IN 2ND WORD OF ITS ENTRY.	F6I00421
	00256	−0 50000 1 02112	48		CAL	TEIFN,1	F6I00430
	00257	0 77100 0 00022	49		ARS	18 GO TO CONVERT INTERNAL FORMULA NO. TO THE BCD	F6I00440
	00260	0 07400 4 00303	50		TSX	DCR,4 IMAGE OF ITS DEC. REPRESENTATION AND STORE IT	F6I00450
	00261	0 60200 2 00526	51		SLW	LIN+3,2 IN 3RD WORD OF ENTRY.	F6I00460
	00262	0 53400 4 00426	52		LXA	LOC,4 SET XR4 TO CURRENT INTERNAL FORMULA NUMBER.	F6I00470
U	00263	0 50000 4	53	FIFL	CLA	IFN,4	F6I00480
	00264	0 77100 0 00022	54		ARS	18	F6I00490
	00265	0 62100 0 00426	55		STA	LOC LOC NOW CONTAINS LOCATION OF CURRENT INTERNAL	F6I00500
	00266	0 50000 0 00426	56		CLA	LOC FORMULA NUMBER.	F6I00510
	00267	0 76500 0 00017	57		LRS	15 TO CONVERT THE LOCATION	F6I00520
	00270	−0 50000 0 00423	58		CAL	BLANK TO THE BCD IMAGE OF ITS OCTAL	F6I00530
	00271	−0 14000 0 00272	59		TNO	OCT REPRESENTATION, AND	F6I00540
	00272	0 76700 0 00003	60	OCT	ALS	3 STORE IT IN THE	F6I00550
	00273	0 76300 0 00003	61		LLS	3 FOURTH WORD OF THE 4-WORD ENTRY.	F6I00560
	00274	−0 14000 0 00272	62		TNO	OCT	F6I00570
	00275	0 60200 2 00527	63		SLW	LIN+4,2	F6I00580
	00276	−2 00001 1 00336	64		TNX	WLL,1,1 TRANSFER WHEN ALL EIFN ENTRIES HAVE BEEN	F6I00590
			65			TREATED.	F6I00591
	00277	2 00004 2 00251	66		TIX	CNW,2,4 MORE ENTRIES + STILL ROOM IN 20-WORD BLOCK, GO	F6I00600
			67			TO CNW.	F6I00601
	00300	0 07400 4 00326	68		TSX	WRITE,4 WRITE TAPE 2 BLOCK.	F6I00610
	00301	0 00024 0 00524	69	LNC		LIN+1,,20	F6I00620
TD	00302	1 00000 0 00250	70	DCX	TXI	CNL	F6I00630
	00303	−0 63400 4 00302	71	DCR	SXD	DCX,4	F6I00640
	00304	0 62100 0 00426	72		STA	LOC TO CONVERT ADDRESS	F6I00650
	00305	0 53400 4 00162	73		LXA	ONE,4 IN LOC TO BCD	F6I00660
	00306	0 56000 0 00426	74		LDQ	LOC IMAGE OF DECIMAL	F6I00670
	00307	0 50000 0 00425	75	CNV	CLA	TEN LOCATION.	F6I00680
	00310	0 04000 0 00315	76		TLQ	FIN	F6I00690
T	00311	−0 75400 0 00000	77		PXD		F6I00700
	00312	0 22100 0 00425	78		DVP	TEN DIVIDE BY TEN AND	F6I00710
	00313	0 60200 4 00532	79		SLW	DIG,4 STORE REMAINDERS.	F6I00720
	00314	1 00001 4 00307	80		TXI	CNV,4,1	F6I00730
	00315	−0 60000 4 00532	81	FIN	STQ	DIG,4	F6I00740
	00316	−0 50000 0 00422	82		CAL	BLANKS	F6I00750
	00317	0 76700 0 00006	83	DEC	ALS	6	F6I00760
	00320	−0 50100 4 00532	84		ORA	DIG,4	F6I00770
	00321	2 00001 4 00317	85		TIX	DEC,4,1	F6I00780
	00322	−0 53400 4 00302	86		LXD	DCX,4	F6I00790
	00323	0 02000 4 00001	87		TRA	1,4 RETURN TO PROGRAM.	F6I00800
	00324	0 76600 0 00202	88	SPACE	WTD	2	F6I00810
	00325	0 70000 0 00422	89		CPY	BLANKS	F6I00820
	00326	0 76600 0 00202	90	WRITE	WTD	2	F6I00830
	00327	0 50000 4 00001	91		CLA	1,4	F6I00840
	00330	0 62100 0 00332	92		STA	POOP	F6I00850
	00331	−0 73400 2 00000	93		PDX	0,2	F6I00860
	00332	0 70000 2 00332	94	POOP	CPY	*,2	F6I00870
	00333	2 00001 2 00332	95		TIX	POOP,2,1	F6I00880
	00334	0 76600 0 00333	96		IOD		F6I00890
	00335	0 02000 4 00002	97		TRA	2,4	F6I00900
	00336	−0 75400 2 00000	98	WLL	PXD	0,2 TO GET WORD COUNTERS FOR WRITING	F6I00910
	00337	0 60100 0 00346	99		STO	LND FINAL RECORD.	F6I00920
	00340	0 77100 0 00022	100		ARS	18	F6I00930
	00341	0 62100 0 00346	101		STA	LND	F6I00940
	00342	0 50000 0 00351	102		CLA	LNE	F6I00950
	00343	0 40200 0 00346	103		SUB	LND	F6I00960
	00344	0 60100 0 00346	104		STO	LND	F6I00970
	00345	0 07400 4 00326	105		TSX	WRITE,4 WRITE FINAL RECORD	F6I00980
	00346	0 00000 0 00000	106	LND		AND	F6I00990
	00347	0 76200 0 00221	107	ENDS	RTB	1 GO TO LOADER.	F6I01000
	00350	0 02000 0 00004	108		TRA	4	F6I01010
	00351	0 00030 0 00530	109	LNE		LIN+5,,24	F6I01020
		00352	110		BSS	40	F6I01030
	00422	606060606060	111	BLANKS	BCD	1␣␣␣␣␣␣	F6I01040
	00423	000000000060	112	BLANK	BCD	100000␣	F6I01050
	00424	+000000000077	113	6BITS	OCT	77	F6I01060
	00425	+000000000012	114	TEN	DEC	10	F6I01070
	00426	+000000000000	115	LOC	DEC	0	F6I01080
	00427	0 00000 0 00017	116	LOC15	HTR	15	F6I01090
	00430	606060606060	117		BCD	␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣EXTERNAL␣FORMULA␣NUMBERS␣WITH␣CORRESPONDING	F6I01100
	00431	606060606060	118
	00432	606060606025	119
	00433	676325514521	120
	00434	436026465144	121
	00435	644321604564	122
	00436	442225516260	123
	00437	663163306023	124
	00440	465151256247	125
	00441	464524314527	126
	00442	603145632551	127		BCD	␣INTERNAL␣FORMULA␣NUMBERS␣AND␣OCTAL␣LOCATIONS␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6I01110
	00443	452143602646	128
	00444	514464432160	129
	00445	456444222551	130
	00446	626021452460	131
	00447	462363214360	132
	00450	434623216331	133
	00451	464562606060	134
	00452	606060606060	135
	00453	606060606060	136
A		00454	137	TITLE	BSS		F6I01120
	00454	606060606060	138		BCD	␣␣␣␣␣␣␣␣EFN␣␣␣IFN␣␣␣LOC␣␣␣␣␣␣␣␣␣EFN␣␣␣IFN␣␣␣LOC␣␣␣␣␣␣␣␣␣EFN␣	F6I01130
	00455	606025264560	139
	00456	606031264560	140
	00457	606043462360	141
	00460	606060606060	142
	00461	606025264560	143
	00462	606031264560	144
	00463	606043462360	145
	00464	606060606060	146
	00465	606025264560	147
	00466	606031264560	148		BCD	␣␣IFN␣␣␣LOC␣␣␣␣␣␣␣␣␣EFN␣␣␣IFN␣␣␣LOC␣␣␣␣␣␣␣␣␣EFN␣␣␣IFN␣␣␣LOC␣	F6I01140
	00467	606043462360	149
	00470	606060606060	150
	00471	606025264560	151
	00472	606031264560	152
	00473	606043462360	153
	00474	606060606060	154
	00475	606025264560	155
	00476	606031264560	156
	00477	606043462360	157
A		00500	158	CHEAD	BSS		F6I01150
		00500	159		BSS	19	F6I01160
		00523	160	LIN	BSS	1	F6I01170
		00532	161	DIG	BES	6	F6I01180
		00532	162	SYM	BSS	1	F6I01190
		00533	163	SUM	BSS	1	F6I01200
		02112	164	TEIFN	BES	750	F6I01210