1		AST
			2			************* FORTRAN II SECTION SIX ************************	F6H00010
			3			FORTRAN 2 RECORD 105 - MAP FORTRAN FUNCTIONS.	F6H00011
			4				F6H00012
			5			IN TDEV	F6H00020
		00206	6	ME8	SYN	134	F6H00030
		00210	7		ORG	136	F6H00040
	00210	0 53400 4 00402	8	RNF	LXA	LOC15,4 SET DRUM READ ERROR COUNTER.	F6H00050
	00211	0 76200 0 00303	9	LIB27	RDR	3 SELECT DRUM 3 AND	F6H00060
T	00212	−0 75400 0 02000	10	NFA	PXD	1024 LOCATE FORSUB (FORTRAN FUNCTION) TABLE	F6H00070
	00213	0 46000 0 00212	11		LDA	NFA	F6H00080
	00214	−0 70000 0 00730	12		CAD	FORT READ WORD COUNT OF TABLE.	F6H00090
	00215	0 76000 0 00006	13		COM		F6H00100
	00216	−0 70000 0 00563	14		CAD	SUM	F6H00110
	00217	0 76000 0 00006	15		COM		F6H00120
	00220	0 10000 0 00223	16		TZE	RFS TRANSFER IF NO READ ERROR.	F6H00130
	00221	2 00001 4 00211	17		TIX	LIB27,4,1 READ-ERROR PROCEOURE	F6H00140
	00222	0 07400 4 00004	18		TSX	4,4	F6H00150
	00223	−0 53400 3 00730	19	RFS	LXD	FORT,3 SET INDEX REGISTERS 1 AND 2 EQUAL	F6H00160
			20			FORSUB WORD COUNT	F6H00161
D	00224	−3 00000 1 00375	21		TXL	LIB36,1 TRANSFER IF NO FORTRAN FUNCTIONS.	F6H00170
	00225	0 50000 0 00152	22		CLA	ADEV INITIALIZE ADDRESSES WITH INITIAL	F6H00180
	00226	0 62100 0 00260	23		STA	AFOR LOCATION OF DEA TABLE (ALSO IFN TABLE)	F6H00190
	00227	0 50000 0 00170	24		CLA	LIFN	F6H00200
	00230	0 62100 0 00256	25		STA	GIFN	F6H00210
	00231	0 53400 4 00402	26		LXA	LOC15,4 DRUM READ ERROR COUNTER.	F6H00220
	00232	0 76200 0 00303	27	LIB28	RDR	3	F6H00230
T	00233	−0 75400 0 02002	28	TFA	PXD	1026 READ FORTRAN FUNCTION (FORSUB)	F6H00240
	00234	0 46000 0 00233	29		LDA	TFA TABLE FROM DRUM (2-WORD ENTRIES) INTO	F6H00250
	00235	−0 70000 2 00730	30	CFS	CAD	FORT,2 FORT-WD. CT,..., FORT-1.	F6H00260
	00236	2 00001 2 00235	31		TIX	CFS,2,1	F6H00270
	00237	0 70000 0 00563	32		CPY	SUM	F6H00280
	00240	0 76000 0 00006	33		COM		F6H00290
	00241	−0 70000 0 00563	34		CAD	SUM	F6H00300
	00242	0 76000 0 00006	35		COM		F6H00310
	00243	0 10000 0 00246	36		TZE	FORS TRANSFER IF CHECK SUM OKAY.	F6H00320
	00244	2 00001 4 00232	37		TIX	LIB28,4,1	F6H00330
	00245	0 07400 4 00004	38		TSX	4,4	F6H00340
	00246	−0 63400 1 00400	39	FORS	SXD	FORM,1 SAVE COUNT OF FUNCT.	F6H00350
	00247	0 50000 1 00730	40		CLA	FORT,1 IS FUNCTION IN	F6H00360
	00250	0 07400 4 00142	41		TSX	SDEV,4 DEV TABLE.	F6H00370
	00251	−0 53400 1 00400	42		LXD	FORM,1 NO, ERROR.	F6H00380
	00252	0 07400 4 00004	43		TSX	4,4	F6H00390
	00253	−0 53400 1 00400	44		LXD	FORM,1 YES. EXIT HERE FROM SDEV WITH APPROPRIATE	F6H00400
			45			COUNTER IN XR2.	F6H00401
	00254	0 50000 1 00731	46		CLA	FORT+1,1 OBTAIN FORMULA	F6H00410
	00255	−0 73400 4 00000	47		PDX	0,4 NUMBER.	F6H00420
U	00256	0 50000 4	48	GIFN	CLA	IFN,4 GET LOCATION FROM	F6H00430
	00257	0 77100 0 00022	49		ARS	18 IFN TABLE.	F6H00440
U	00260	0 62100 2	50	AFOR	STA	FORF,2 STORE LOCATION IN DEA TABLE.	F6H00450
	00261	0 62100 1 00731	51		STA	FORT+1,1 STORE LOCATION IN FORT (INTERNAL TABLE).	F6H00460
	00262	2 00002 1 00246	52		TIX	FORS,1,2	F6H00470
			53			LIST NAMES OF FORTRAN FUNCTIONS WITH CORRESPONDING	F6H00480
			54			INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS	F6H00490
	00263	−0 53400 1 00730	55		LXD	FORT,1	F6H00500
	00264	0 07400 4 00345	56		TSX	SPACE,4	F6H00510
	00265	0 00024 0 00434	57			TITLE,,20	F6H00520
	00266	0 07400 4 00345	58		TSX	SPACE,4	F6H00530
	00267	0 00024 0 00460	59			CHEAD,,20	F6H00540
	00270	−0 53400 2 00343	60	CNL	LXD	LNC,2 SET TAPE TWO BLOCK LENGTH TO 20.	F6H00550
	00271	−0 50000 0 00403	61	CNW	CAL	BLANKS	F6H00560
	00272	0 60200 2 00554	62		SLW	LIN+1,2 STORE BLANKS IN FIRST WORD OF ENTRY.	F6H00570
	00273	0 56000 1 00730	63		LDQ	FORT,1 SELECT SYMBOL	F6H00580
	00274	0 53400 4 00275	64		LXA	SIX,4 AND CONVERT.	F6H00590
	00275	−0 76300 0 00006	65	SIX	LGL	6 BRING ONE CHARACTER OF SYMBOL INTO ACC.	F6H00600
	00276	0 60200 0 00562	66		SLW	SYM	F6H00610
	00277	−0 32000 0 00405	67		ANA	6BITS TEST IF CHARACTER IN ACC. IS A BLANK.	F6H00620
	00300	0 40200 0 00404	68		SUB	BLANK	F6H00630
	00301	0 10000 0 00305	69		TZE	CNA BLANK, THEN FINISHED. SECOND WORD OF ENTRY HAS	F6H00640
			70			COMPLETE SYMBOL.	F6H00641
	00302	−0 50000 0 00562	71		CAL	SYM NOT BLANK, STORE IN SECOND WORD AND	F6H00650
	00303	0 60200 2 00555	72		SLW	LIN+2,2 GO TO TEST NEXT CHARACTER	F6H00660
	00304	2 00001 4 00275	73		TIX	SIX,4,1 UNLESS SIX HAVE BEEN TREATED.	F6H00670
	00305	0 50000 1 00731	74	CNA	CLA	FORT+1,1 TO GET BCD IMAGE OF DECIMAL INTERNAL FORMULA NO	F6H00680
	00306	0 77100 0 00022	75		ARS	18 (DECREMENT OF SECOND WORD OF TWO WORD ENTRIES	F6H00690
	00307	0 62100 0 00407	76		STA	LOC FORT TABLE CONTAINS INTERNAL FORMULA NUMBER.)	F6H00700
	00310	0 53400 4 00162	77		LXA	ONE,4	F6H00710
	00311	0 56000 0 00407	78		LDQ	LOC	F6H00720
	00312	0 50000 0 00406	79	CNV	CLA	TEN	F6H00730
	00313	0 04000 0 00320	80		TLQ	FIN	F6H00740
T	00314	−0 75400 0 00000	81		PXD		F6H00750
	00315	0 22100 0 00406	82		DVP	TEN	F6H00760
	00316	0 60200 4 00562	83		SLW	DIG,4 (SAVING REMAINDERS).	F6H00770
	00317	1 00001 4 00312	84		TXI	CNV,4,1	F6H00780
	00320	−0 60000 4 00562	85	FIN	STQ	DIG,4	F6H00790
	00321	−0 50000 0 00403	86		CAL	BLANKS	F6H00800
	00322	0 76700 0 00006	87	DEC	ALS	6	F6H00810
	00323	−0 50100 4 00562	88		ORA	DIG,4	F6H00820
	00324	2 00001 4 00322	89		TIX	DEC,4,1	F6H00830
	00325	0 60200 2 00556	90		SLW	LIN+3,2 STORE BCD IMAGE OF DECIMAL INTERNAL FORMULA NO.	F6H00840
			91			4 IN THIRD WORD OF ENTRY.	F6H00841
	00326	0 50000 1 00731	92		CLA	FORT+1,1 TO GET BCD IMAGE OF OCTAL LOCATION.	F6H00850
	00327	0 62100 0 00407	93		STA	LOC	F6H00860
	00330	0 50000 0 00407	94		CLA	LOC	F6H00870
	00331	0 76500 0 00017	95		LRS	15	F6H00880
	00332	−0 50000 0 00404	96		CAL	BLANK	F6H00890
	00333	−0 14000 0 00334	97		TNO	OCT	F6H00900
	00334	0 76700 0 00003	98	OCT	ALS	3	F6H00910
	00335	0 76300 0 00003	99		LLS	3	F6H00920
	00336	−0 14000 0 00334	100		TNO	OCT OVERFLOW OCCURS WHEN ALL 15 BITS OF LOCATION	F6H00930
	00337	0 60200 2 00557	101		SLW	LIN+4,2 HAVE BEEN TREATED. STORE BCD IMAGE OF OCTAL	F6H00940
			102			LOCATION IN 4TH WORD OF ENTRY.	F6H00941
	00340	−2 00002 1 00357	103		TNX	WLL,1,2 TRANSFER IF ALL FUNCTIONS IN FORSUB TREATED.	F6H00950
	00341	2 00004 2 00271	104		TIX	CNW,2,4 TRANSFER IF TARE BLOCK NOT FULL.	F6H00960
	00342	0 07400 4 00347	105		TSX	WRITE,4 WRITE A RECORD ON TARE TWO	F6H00970
	00343	0 00024 0 00554	106	LNC		LIN+1,,20	F6H00980
	00344	0 02000 0 00270	107		TRA	CNL	F6H00990
	00345	0 76600 0 00202	108	SPACE	WTD	2	F6H01000
	00346	0 70000 0 00403	109		CPY	BLANKS	F6H01010
	00347	0 76600 0 00202	110	WRITE	WTD	2	F6H01020
	00350	0 50000 4 00001	111		CLA	1,4	F6H01030
	00351	0 62100 0 00353	112		STA	POOP	F6H01040
	00352	−0 73400 2 00000	113		PDX	0,2	F6H01050
	00353	0 70000 2 00000	114	POOP	CPY	**,2	F6H01060
	00354	2 00001 2 00353	115		TIX	POOP,2,1	F6H01070
	00355	0 76600 0 00333	116		IOD		F6H01080
	00356	0 02000 4 00002	117		TRA	2,4	F6H01090
	00357	−0 75400 2 00000	118	WLL	PXD	0,2 GET ADDRESS AND DECREMENT TO STORE IN LND	F6H01100
	00360	0 60100 0 00367	119		STO	LND FOR WRITING FINAL RECORD.	F6H01110
	00361	0 77100 0 00022	120		ARS	18	F6H01120
	00362	0 62100 0 00367	121		STA	LND	F6H01130
	00363	0 50000 0 00401	122		CLA	LNE	F6H01140
	00364	0 40200 0 00367	123		SUB	LND	F6H01150
	00365	0 60100 0 00367	124		STO	LND	F6H01160
	00366	0 07400 4 00347	125		TSX	WRITE,4 WRITE IT.	F6H01170
	00367	0 00000 0 00000	126	LND			F6H01180
	00370	0 50000 0 00407	127		CLA	LOC SET ME8 EQUAL TO LOCATION OF LAST FORSUB ENTRY	F6H01190
	00371	0 40000 0 00162	128		ADD	ONE LISTED PLUS ONE.(TO BE USED BY RECORD 110).	F6H01200
	00372	0 60100 0 00206	129		STO	ME8	F6H01210
	00373	0 76200 0 00221	130	LIB26	RTB	1	F6H01220
	00374	0 02000 0 00004	131		TRA	4	F6H01230
	00375	0 60000 0 00206	132	LIB36	STZ	ME8 NO FORTRAN FUNCTIONS. SET ME8 EQUAL ZERO AND	F6H01240
	00376	0 02000 0 00373	133		TRA	LIB26 GO TO RETURN TO LOADER.	F6H01250
T	00377	−0 75400 0 00000	134	CFOR	PXD		F6H01260
TD	00400	1 00000 0 00261	135	FORM	TXI	AFOR+1	F6H01270
	00401	0 00030 0 00560	136	LNE		LIN+5,,24	F6H01280
	00402	0 00000 0 00017	137	LOC15	HTR	15	F6H01290
	00403	606060606060	138	BLANKS	BCD	1␣␣␣␣␣␣	F6H01300
	00404	000000000060	139	BLANK	BCD	100000␣	F6H01310
	00405	+000000000077	140	6BITS	OCT	77	F6H01320
	00406	+000000000012	141	TEN	DEC	10	F6H01330
	00407	+000000000000	142	LOC	DEC	0	F6H01340
	00410	606060606060	143		BCD	␣␣␣␣␣␣␣␣␣␣␣␣␣␣NAMES␣OF␣FORTRAN␣FUNCTIONS␣WITH␣CORRESPONDING␣	F6H01350
	00411	606060606060	144
	00412	606045214425	145
	00413	626046266026	146
	00414	465163512145	147
	00415	602664452363	148
	00416	314645626066	149
	00417	316330602346	150
	00420	515125624746	151
	00421	452431452760	152
	00422	314563255145	153		BCD	INTERNAL␣FORMULA␣NUMBERS␣AND␣OCTAL␣LOCATIONS␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6H01360
	00423	214360264651	154
	00424	446443216045	155
	00425	644422255162	156
	00426	602145246046	157
	00427	236321436043	158
	00430	462321633146	159
	00431	456260606060	160
	00432	606060606060	161
	00433	606060606060	162
A		00434	163	TITLE	BSS		F6H01370
	00434	606060606060	164		BCD	␣␣␣␣␣␣␣␣␣␣␣␣␣␣IFN␣␣␣LOC␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣IFN␣␣␣LOC␣␣␣␣␣␣␣␣␣␣␣␣␣	F6H01380
	00435	606060606060	165
	00436	606031264560	166
	00437	606043462360	167
	00440	606060606060	168
	00441	606060606060	169
	00442	606031264560	170
	00443	606043462360	171
	00444	606060606060	172
	00445	606060606060	173
	00446	606031264560	174		BCD	␣␣IFN␣␣␣LOC␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣IFN␣␣␣LOC␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣IFN␣␣␣LOC␣	F6H01390
	00447	606043462360	175
	00450	606060606060	176
	00451	606060606060	177
	00452	606031264560	178
	00453	606043462360	179
	00454	606060606060	180
	00455	606060606060	181
	00456	606031264560	182
	00457	606043462360	183
A		00460	184	CHEAD	BSS		F6H01400
		00460	185		BSS	40	F6H01410
		00530	186		BSS	19	F6H01420
		00553	187	LIN	BSS	1	F6H01430
		00562	188	DIG	BES	6	F6H01440
		00562	189	SYM	BSS	1	F6H01450
		00563	190	SUM	BSS	1	F6H01460
		00730	191	FORT	BES	100	F6H01470