1			************* FORTRAN II SECTION SIX ************************	F6K00010
			2			FORTRAN 2 RECORD 110 - MAP OTHER VARIABLES.	F6K00011
			3				F6K00012
			4			LIST DATA LOCATI0NS NOT APPEARING IN COMMON	F6K00020
		00206	5	ME8	SYN	134	F6K00030
		00032	6	PC3	SYN	26	F6K00040
		00210	7		ORG	136	F6K00050
	00210	−0 53400 1 00032	8		LXD	PC3,1 ANY TRANSFER VECTOR.	F6K00060
D	00211	−3 00000 1 00247	9		TXL	J4,1 NO, TRANSFER.	F6K00070
	00212	0 07400 4 00436	10		TSX	SPACE,4 YES, G0 T0 WRITE COLUMN HEADINGS AND	F6K00080
	00213	0 00024 0 00503	11			TRAN,,20	F6K00690
	00214	0 07400 4 00436	12		TSX	SPACE,4	F6K00100
	00215	0 00024 0 00527	13			TRHAD,,20	F6K00110
	00216	0 50000 0 00152	14		CLA	ADEV PRINT TRANSFER VECTOR	F6K00120
	00217	0 62100 0 00225	15		STA	TV1 INITIAL DEA LOCATION.	F6K00130
	00220	−0 75400 1 00000	16		PXD	0,1	F6K00140
	00221	0 77100 0 00022	17		ARS	18	F6K00150
	00222	0 60100 0 00456	18		STO	LENG NO. OF WORDS IN TRANSFER VECTOR.	F6K00160
	00223	−0 53400 1 00155	19		LXD	DEVL,1 SET DEA TABLE COUNTER.	F6K00170
	00224	−0 53400 2 00241	20	TV2	LXD	LNC,2 SET TAPE TWO RECORD LENGTH EQUAL TO TWENTY.	F6K00180
	00225	0 50000 1 00000	21	TV1	CLA	**,1 LOCATION FROM DEA TABLE.	F6K00190
	00226	0 62100 0 00455	22		STA	LOC	F6K00200
	00227	0 50000 0 00455	23		CLA	LOC IF DEV ENTRY IS IN TRANS. VECTOR, ITS CORRES-	F6K00210
	00230	0 34000 0 00456	24		CAS	LENG PONDING DEA ENTRY(ADDR. PART)WILL BE LESS	F6K00220
			25			THAN TRANS. VECTOR WORD COUNT.	F6K00221
	00231	0 02000 0 00243	26		TRA	TV3 DEV ENTRY NOT IN TRANSFER VECTOR.	F6K00230
	00232	0 02000 0 00243	27		TRA	TV3	F6K00240
	00233	0 56000 1 77777	28	TV4	LDQ	DEV,1 DEV ENTRY IS IN TRANSFER VECTOR SO LIST IT.	F6K00250
	00234	0 07400 4 00366	29		TSX	D3,4 TO PREPARE FIRST TWO WORDS OF TAPE TWO ENTRY.	F6K00260
	00235	0 07400 4 00405	30		TSX	D4,4 TO PREPARE 3RD AND 4TH WORDS OF ENTRY.	F6K00270
	00236	−2 00001 1 00246	31		TNX	TV5,1,1 IF NO MORE WOROS IN DEV TABLE, GO TO WRITE LAST	F6K00280
			32			RECORD.	F6K00281
	00237	2 00004 2 00225	33		TIX	TV1,2,4 IF TAPE TWO RECORD FULL, GO TO WRITE RECORD	F6K00290
	00240	0 07400 4 00440	34		TSX	WRITE,4 AND THEN TO TV2 TO SET UP FOR NEXT RECORD.	F6K00300
	00241	0 00024 0 00634	35	LNC		LIN+1,,20	F6K00310
	00242	0 02000 0 00224	36		TRA	TV2	F6K00320
	00243	−2 00001 1 00245	37	TV3	TNX	TV6,1,1 DO NOT LIST (NOT IN TRANSFER VECTOR). UPDATE	F6K00330
			38			INDEX.	F6K00331
	00244	0 02000 0 00225	39		TRA	TV1 AND GO TO SELECT NEXT DEA. IF END OF DEV,	F6K00340
	00245	1 00004 2 00246	40	TV6	TXI	TV5,2,4 ADJUST WRITE-COPY INDEX AND GO	F6K00350
	00246	0 07400 1 00353	41	TV5	TSX	WLL,1 WRITE LAST RECORD.	F6K00360
	00247	−0 53400 1 00155	42	J4	LXD	DEVL,1 ANY DEV ENTRIES.	F6K00370
D	00250	−3 00000 1 00324	43		TXL	J1,1 NO, TRANSFER	F6K00380
	00251	0 50000 0 00456	44		CLA	LENG YES, COMPARE WD. CT. OF TRANSFER VECTOR WITH	F6K00390
	00252	0 34000 0 00206	45		CAS	ME8 LAST LOCATION OF FORTRAN FUNCTIONS+1 (ME8 SET	F6K00400
			46			BY RECORD 105.	F6K00401
	00253	0 02000 0 00257	47		TRA	LIB38 LESS THAN TRANSFER VECTOR LENGTH.	F6K00410
	00254	0 02000 0 00255	48		TRA	LIB37 EQUAL OR GREATER THAN TR. VECTOR LENGTH. SET	F6K00420
	00255	0 50000 0 00206	49	LIB37	CLA	ME8 LENG EQUAL TO ME8 TO AVOID DUPLICATE LISTING	F6K00430
	00256	0 60100 0 00456	50		STO	LENG OF FORTRAN FUNCTIONS (LISTED BY RECOR0 105).	F6K00440
	00257	0 50000 0 00152	51	LIB38	CLA	ADEV STORE INITIAL LOCATION OF DEA TABLE IN AOORESS	F6K00450
	00260	0 62100 0 00262	52		STA	BDV OF BDV.	F6K00460
	00261	−0 53400 2 00241	53	CNL	LXD	LNC,2 SET TAPE TWO RECORD LENGTH TO 20.	F6K00470
	00262	0 50000 1 00000	54	BDV	CLA	**,1 SELECT LOCATION FROM ADDRESS PART OF DEA	F6K00480
	00263	0 62100 0 00455	55		STA	LOC ENTRY. COMPARE IT WITH MAX (TRANSFER VECTOR	F6K00490
	00264	0 50000 0 00455	56		CLA	LOC WORD C0UNT, LAST LOCATION OF FORTRAN FUNCTIONS	F6K00500
	00265	0 34000 0 00456	57		CAS	LENG PLUS 1).	F6K00510
	00266	0 02000 0 00271	58		TRA	J6 NOT PREVI0USLY LISTED AS FORTRAN FUNCTION	F6K00520
	00267	0 02000 0 00271	59		TRA	J6 OR IN TRANSFER VECTOR. GO SEE IF COMMON.	F6K00530
	00270	0 02000 0 00306	60		TRA	B11 PREVIOUSLY LISTED. GO SEE IF ANY MORE DEV	F6K00540
			61			ENTRIES.	F6K00541
	00271	0 34000 0 00175	62	J6	CAS	L3 IS DEV ENTRY IN COMMON.	F6K00550
	00272	0 02000 0 00306	63		TRA	B11 YES, GO SEE IF ANY MORE DEV ENTRIES.	F6K00560
	00273	0 02000 0 00274	64		TRA	B10 DEV ENTRY NOT A FORTRAN FUNCTION, NOT IN	F6K00570
	00274	0 50000 0 00310	65	B10	CLA	ME5 TRANSFER VECTOR OR COMMON. ME5 IS TAPE TWO	F6K00580
	00275	0 10000 0 00311	66		TZE	ME6 BUFFER C0UNTER (0 TO START). GO WRITE HEADING,	F6K00590
	00276	0 56000 1 77777	67	ME7	LDQ	DEV,1 TAPE 2 BUFFER INDEX NOT 0. LOAD APPROPRIATE	F6K00600
	00277	0 07400 4 00366	68		TSX	D3,4 DEV ENTRY AND GO TO PREPARE THE 4-WORD ENTRY.	F6K00610
	00300	0 07400 4 00405	69		TSX	D4,4	F6K00620
	00301	−2 00001 1 00323	70		TNX	B25,1,1 GO WRITE FINAL RECORD IF DEV TABLE FINISHED.	F6K00630
	00302	2 00004 2 00262	71		TIX	BDV,2,4 TRANSFER IF STILL ROOM IN TAPE TWO BUFFER.	F6K00640
	00303	0 07400 4 00440	72		TSX	WRITE,4 BUFFER FULL. GO WRITE RECORD.	F6K00650
	00304	0 00024 0 00634	73			LIN+1,,20	F6K00660
	00305	0 02000 0 00261	74		TRA	CNL GO SET BUFFER LENGTH AND CONTINUE.	F6K00670
	00306	−2 00001 1 00320	75	B11	TNX	D7,1,1 TRANSFER IF NO MORE ENTRIES IN DEV.	F6K00680
	00307	0 02000 0 00262	76		TRA	BDV GO SELECT NEXT DEV ENTRY.	F6K00690
	00310	0 00000 0 00000	77	ME5	HTR	0	F6K00700
	00311	0 07400 4 00436	78	ME6	TSX	SPACE,4 TO WRITE STORAGE LOCATIONS FOR VARIABLES	F6K00710
	00312	0 00024 0 00553	79			TITLE,,20	F6K00720
	00313	0 07400 4 00436	80		TSX	SPACE,4 STATEMENTS AND HEADINGS	F6K00730
	00314	0 00024 0 00527	81			TRHAD,,20	F6K00740
	00315	−0 53400 2 00241	82		LXD	LNC,2 RESET COUNTER FOR TAPE TWO BUFFER AND STORE	F6K00750
	00316	−0 63400 2 00310	83		SXD	ME5,2 IT IN ME5	F6K00760
	00317	0 02000 0 00276	84		TRA	ME7	F6K00770
	00320	0 50000 0 00310	85	D7	CLA	ME5 IS ANYTHING IN TAPE TWO BUFFER	F6K00780
	00321	0 10000 0 00324	86		TZE	J1 TRANSFER IF NOT.	F6K00790
	00322	1 00004 2 00323	87		TXI	B25,2,4 ADJUST BUFFER INDEX	F6K00800
	00323	0 07400 1 00353	88	B25	TSX	WLL,1 AND GO WRITE LAST RECORD.	F6K00810
	00324	−0 53400 1 00120	89	J1	LXD	TEVL,1 ANY TEV ENTRIES.	F6K00820
D	00325	−3 00000 1 00450	90		TXL	J3,1 NO, GO TO LOADER	F6K00830
	00326	0 07400 4 00436	91		TSX	SPACE,4 YES, WRITE LOCATIONS FOR VARIABLES NOT APPEAR-	F6K00840
	00327	0 00024 0 00577	92			OTHER,,20	F6K00850
	00330	0 07400 4 00436	93		TSX	SPACE,4 AND WRITE HEADINGS.	F6K00860
	00331	0 00024 0 00527	94			TRHAD,,20	F6K00870
	00332	0 50000 0 00107	95	D1	CLA	TTEV SET ADDRESS OF D5 EQUAL TO LOCATION OF	F6K00880
	00333	0 62100 0 00335	96		STA	D5 BEGINNING OF TEV TABLE.	F6K00890
	00334	−0 53400 2 00241	97		LXD	LNC,2 SET TAPE TWO RECORD LENGTH TO 20.	F6K00900
U	00335	0 56000 1	98	D5	LDQ	TEV,1 SELECT TEV ENTRY, AND GO SET WORD 1 TO BLANK,	F6K00910
	00336	0 07400 4 00366	99		TSX	D3,4 WORD2 TO VARIABLE NAME.	F6K00920
	00337	−0 75400 1 00000	100		PXD	0,1 COMPUTE LOCATION OF TEV ENTRY.	F6K00930
	00340	0 77100 0 00022	101		ARS	18	F6K00940
	00341	0 40000 0 00172	102		ADD	LTEV	F6K00950
	00342	0 62100 0 00455	103		STA	LOC AND GO COMPUTE AND STORE BCD IMAGES OF DECIMAL	F6K00960
	00343	0 07400 4 00405	104		TSX	D4,4 AND OCTAL REPRESENTAT1ONS IN WORDS 3 AND 4.	F6K00970
	00344	−2 00001 1 00351	105		TNX	D6,1,1 IF END OF TEV ENTRIES, GO WRITE LAST RECORD.	F6K00980
	00345	2 00004 2 00335	106		TIX	D5,2,4 TRANSFER IF STILL ROOM IN BUFFER.	F6K00990
	00346	0 07400 4 00440	107		TSX	WRITE,4 BUFFER FULL. WRITE BUFFER CONTENTS AND GO SET	F6K01000
	00347	0 00024 0 00634	108			LIN+1,,20	F6K01010
	00350	0 02000 0 00334	109		TRA	D5−1	F6K01020
	00351	0 07400 1 00353	110	D6	TSX	WLL,1 WRITE FINAL RECORD AND GO TO LOADER.	F6K01030
	00352	0 02000 0 00004	111		TRA	4	F6K01040
	00353	−0 75400 2 00000	112	WLL	PXD	0,2 C0MPUTE COUNT TO WRITE FINAL RECORD.	F6K01050
	00354	0 60100 0 00363	113		STO	LND	F6K01060
	00355	0 77100 0 00022	114		ARS	18	F6K01070
	00356	0 62100 0 00363	115		STA	LND	F6K01080
	00357	0 50000 0 00365	116		CLA	LNE	F6K01090
	00360	0 40200 0 00363	117		SUB	LND	F6K01100
	00361	0 60100 0 00363	118		STO	LND	F6K01110
	00362	0 07400 4 00440	119		TSX	WRITE,4 WRITE FINAL RECORD.	F6K01120
	00363	0 00000 0 00000	120	LND			F6K01130
	00364	0 02000 1 00001	121		TRA	1,1	F6K01140
	00365	0 00030 0 00640	122	LNE		LIN+5,,24	F6K01150
	00366	−0 63400 4 00601	123	D3	SXD	IR4,4	F6K01160
	00367	−0 50000 0 00451	124	CNW	CAL	BLANKS	F6K01170
	00370	0 60200 2 00634	125		SLW	LIN+1,2 STORE BLANKS IN WORDS 1 AND 2 OF ENTRY.	F6K01180
	00371	0 60200 2 00635	126		SLW	LIN+2,2	F6K01190
	00372	0 53400 4 00373	127		LXA	SIX,4	F6K01200
	00373	−0 76300 0 00006	128	SIX	LGL	6	F6K01210
	00374	0 60200 0 00634	129		SLW	SYM	F6K01220
	00375	−0 32000 0 00453	130		ANA	6BITS	F6K01230
	00376	0 40200 0 00452	131		SUB	BLANK STORE VARIABLE NAME FILLED WITH BLANKS AT	F6K01240
	00377	0 10000 0 00403	132		TZE	CNA LEFT IN WORD 2 OF ENTRY.	F6K01250
	00400	−0 50000 0 00634	133		CAL	SYM	F6K01260
	00401	0 60200 2 00635	134		SLW	LIN+2,2	F6K01270
	00402	2 00001 4 00373	135		TIX	SIX,4,1	F6K01280
	00403	−0 53400 4 00601	136	CNA	LXD	IR4,4	F6K01290
	00404	0 02000 4 00001	137		TRA	1,4 RETURN TO PROGRAM.	F6K01300
	00405	−0 63400 4 00601	138	D4	SXD	IR4,4	F6K01310
	00406	0 53400 4 00162	139		LXA	ONE,4 CONVERT LOCATION TO BCD IMAGE OF ITS	F6K01320
	00407	0 56000 0 00455	140		LDQ	LOC DECIMAL REPRESENTATION, AND	F6K01330
	00410	0 50000 0 00454	141	CNV	CLA	TEN STORE IT IN WORD 3 0F ENTRY.	F6K01340
	00411	0 04000 0 00416	142		TLQ	FIN	F6K01350
T	00412	−0 75400 0 00000	143		PXD		F6K01360
	00413	0 22100 0 00454	144		DVP	TEN	F6K01370
	00414	0 60200 4 00610	145		SLW	DIG,4	F6K01380
	00415	1 00001 4 00410	146		TXI	CNV,4,1	F6K01390
	00416	−0 60000 4 00610	147	FIN	STQ	DIG,4	F6K01400
	00417	−0 50000 0 00451	148		CAL	BLANKS	F6K01410
	00420	0 76700 0 00006	149	DEC	ALS	6	F6K01420
	00421	−0 50100 4 00610	150		ORA	DIG,4	F6K01430
	00422	2 00001 4 00420	151		TIX	DEC,4,1	F6K01440
	00423	0 60200 2 00636	152		SLW	LIN+3,2	F6K01450
	00424	0 50000 0 00455	153		CLA	LOC	F6K01460
	00425	0 76500 0 00017	154		LRS	15	F6K01470
	00426	0 50000 0 00452	155		CLA	BLANK CONVERT LOCATION TO BCD IMAGE 0F ITS OCTAL	F6K01480
	00427	−0 14000 0 00430	156		TNO	OCT REPRESENTATION, AND STORE IT IN WORD 4 OF ENTRY	F6K01490
	00430	0 76700 0 00003	157	OCT	ALS	3	F6K01500
	00431	0 76300 0 00003	158		LLS	3	F6K01510
	00432	−0 14000 0 00430	159		TNO	OCT	F6K01520
	00433	0 60200 2 00637	160		SLW	LIN+4,2	F6K01530
	00434	−0 53400 4 00601	161		LXD	IR4,4	F6K01540
	00435	0 02000 4 00001	162		TRA	1,4	F6K01550
	00436	0 76600 0 00202	163	SPACE	WTD	2	F6K01560
	00437	0 70000 0 00451	164		CPY	BLANKS	F6K01570
	00440	0 76600 0 00202	165	WRITE	WTD	2 TO WRITE TAPE-TWO BUFFER (20 WORDS) ONTO TAP,	F6K01580
	00441	0 50000 4 00001	166		CLA	1,4	F6K01590
	00442	0 62100 0 00444	167		STA	POOP	F6K01600
	00443	−0 73400 2 00000	168		PDX	0,2	F6K01610
	00444	0 70000 2 00000	169	POOP	CPY	**,2	F6K01620
	00445	2 00001 2 00444	170		TIX	POOP,2,1	F6K01630
	00446	0 76600 0 00333	171		IOD		F6K01640
	00447	0 02000 4 00002	172		TRA	2,4	F6K01650
	00450	0 02000 0 00004	173	J3	TRA	4	F6K01660
	00451	606060606060	174	BLANKS	BCD	1␣␣␣␣␣␣	F6K01670
	00452	000000000060	175	BLANK	BCD	100000␣	F6K01680
	00453	+000000000077	176	6BITS	OCT	77	F6K01690
	00454	+000000000012	177	TEN	DEC	10	F6K01700
	00455	+000000000000	178	LOC	DEC	0	F6K01710
	00456	0 00000 0 00000	179	LENG	HTR	0	F6K01720
	00457	606060606060	180		BCD	6␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6K01730
	00460	606060606060	181
	00461	606060606060	182
	00462	606060606060	183
	00463	606060606060	184
	00464	606060606060	185
	00465	434623216331	186		BCD	6LOCATIONS␣OF␣NAMES␣IN␣TRANSFER␣VECTO	F6K01740
	00466	464562604626	187
	00467	604521442562	188
	00470	603145606351	189
	00471	214562262551	190
	00472	606525236346	191
	00473	516060606060	192		BCD	8R␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6K01750
	00474	606060606060	193
	00475	606060606060	194
	00476	606060606060	195
	00477	606060606060	196
	00500	606060606060	197
	00501	606060606060	198
	00502	606060606060	199
A		00503	200	TRAN	BSS		F6K01760
	00503	606060606060	201		BCD	2␣␣␣␣␣␣␣␣␣␣␣␣	F6K01770
	00504	606060606060	202
	00505	606024252360	203		BCD	4␣␣DEC␣␣␣OCT␣␣␣␣␣␣␣␣␣␣␣␣␣	F6K01780
	00506	606046236360	204
	00507	606060606060	205
	00510	606060606060	206
	00511	606024252360	207		BCD	4␣␣DEC␣␣␣OCT␣␣␣␣␣␣␣␣␣␣␣␣␣	F6K01790
	00512	606046236360	208
	00513	606060606060	209
	00514	606060606060	210
	00515	606024252360	211		BCD	4␣␣DEC␣␣␣OCT␣␣␣␣␣␣␣␣␣␣␣␣␣	F6K01800
	00516	606046236360	212
	00517	606060606060	213
	00520	606060606060	214
	00521	606024252360	215		BCD	4␣␣DEC␣␣␣OCT␣␣␣␣␣␣␣␣␣␣␣␣␣	F6K01810
	00522	606046236360	216
	00523	606060606060	217
	00524	606060606060	218
	00525	606024252360	219		BCD	2␣␣DEC␣␣␣OCT␣	F6K01820
	00526	606046236360	220
A		00527	221	TRHAD	BSS		F6K01830
	00527	606060606060	222		BCD	3␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6K01840
	00530	606060606060	223
	00531	606060606060	224
	00532	626346512127	225		BCD	7STORAGE␣LOCATIONS␣FOR␣VARIABLES␣APPEARING␣	F6K01850
	00533	256043462321	226
	00534	633146456260	227
	00535	264651606521	228
	00536	513121224325	229
	00537	626021474725	230
	00540	215131452760	231
	00541	314560243144	232		BCD	7IN␣DIMENSION␣AND␣EQUIVALENCE␣SENTENCES␣␣␣␣	F6K01860
	00542	254562314645	233
	00543	602145246025	234
	00544	506431652143	235
	00545	254523256062	236
	00546	254563254523	237
	00547	256260606060	238
	00550	606060606060	239		BCD	3␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6K01870
	00551	606060606060	240
	00552	606060606060	241
A		00553	242	TITLE	BSS		F6K01880
	00553	606060606060	243		BCD	2␣␣␣␣␣␣␣␣␣␣␣␣	F6K01890
	00554	606060606060	244
	00555	606060626346	245		BCD	7␣␣␣STORAGE␣LOCATIONS␣FOR␣VARIABLES␣NOT␣APP	F6K01900
	00556	512127256043	246
	00557	462321633146	247
	00560	456260264651	248
	00561	606521513121	249
	00562	224325626045	250
	00563	466360214747	251
	00564	252151314527	252		BCD	6EARING␣IN␣DIMENSION,EQUIVALENCE␣OR␣C	F6K01910
	00565	603145602431	253
	00566	442545623146	254
	00567	457325506431	255
	00570	652143254523	256
	00571	256046516023	257
	00572	464444464560	258		BCD	5OMMON␣SENTENCES␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6K01920
	00573	622545632545	259
	00574	232562606060	260
	00575	606060606060	261
	00576	606060606060	262
A		00577	263	OTHER	BSS		F6K01930
	00577	0 00000 0 00000	264	ERAS2			F6K01940
	00600	0 00000 0 00000	265	ERAS1			F6K01950
	00601	0 00000 0 00000	266	IR4			F6K01960
		00610	267	DIG	BES	6	F6K01970
		00610	268		BSS	19	F6K01980
		00633	269	LIN	BSS	1	F6K01990
		00634	270	SYM	BSS	1	F6K02000