1			************* FORTRAN II SECTION SIX ************************	F6E00010
			2			FORTRAN 2 RECORD 100 - COMMON MAPPING.	F6E00011
			3				F6E00012
			4			CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL).	F6E00013
			5				F6E00014
			6			LIST STORAGE FOR VARIABLES	F6E00020
			7			APPEARING IN COMMON SENTENCES,	F6E00030
			8			LOCATIONS IN BOTH DECIMAL ANO OCTAL	F6E00040
M		00205	9	ME2	SYN	133	F6E00050
		00210	10		ORG	136	F6E00060
	00210	0 77200 0 00202	11		REW	2 REWIND TAPE 2	F6E00070
	00211	0 76200 0 00202	12	FIL	RTD	2 SPACE OVER SOURCE PROGRAM.	F6E00080
	00212	0 70000 0 00504	13		CPY	LIN	F6E00090
	00213	0 02000 0 00211	14		TRA	FIL	F6E00100
M	00214	0 53400 1 00205	15		LXA	ME2,1 =1 IF COMMON TABLE, =0 IF NO COMMON TABLE.	F6E00110
D	00215	−3 00000 1 00331	16		TXL	ENDS,1 IF NO COMMON TABLE, GO TO ENDS.	F6E00120
	00216	−0 53400 1 00155	17		LXD	DEVL,1 TABLE LENGTH OF DEV.	F6E00130
D	00217	−3 00000 1 00331	18		TXL	ENDS,1 IF NO DEV TABLE, GO TO ENDS	F6E00140
	00220	0 07400 4 00305	19		TSX	SPACE,4 GO TO WRITE TITLE AND HEADINGS.	F6E00150
	00221	0 00024 0 00435	20			TITLE,,20	F6E00160
	00222	0 07400 4 00305	21		TSX	SPACE,4	F6E00170
	00223	0 00024 0 00461	22			CHEAD,,20	F6E00180
	00224	−0 53400 2 00301	23	CNL	LXD	LNC,2 SET TAPE 2 BLOCK LENGTH TO 20	F6E00190
	00225	0 50000 1 74413	24	CNW	CLA	DEA,1 TEST FOR COMMON,	F6E00200
	00226	0 40200 0 00175	25		SUB	L3 I.E. SEE IF LOCATION OF SYMBOL IS IN RANGE OF	F6E00210
			26			COMMON	F6E00211
	00227	0 10000 0 00303	27		TZE	B4 NOT IN C0MMON.	F6E00220
	00230	−0 12000 0 00303	28		TMI	B4 NOT IN COMMON.	F6E00230
	00231	−0 50000 0 00404	29		CAL	BLANKS YES, IN COMMON.	F6E00240
	00232	0 60200 2 00505	30		SLW	LIN+1,2 STORE BLANKS IN TWO WORDS OF TAPE 2 ENTRY.	F6E00250
	00233	0 60200 2 00506	31		SLW	LIN+2,2	F6E00260
	00234	0 56000 1 77777	32		LDQ	DEV,1 SELECT SYMBOL AND	F6E00270
	00235	0 53400 4 00236	33		LXA	SIX,4 CONVERT.	F6E00280
	00236	−0 76300 0 00006	34	SIX	LGL	6 BRING ONE CHARACTER OF SYMBOL INTO AC.	F6E00290
	00237	0 60200 0 00513	35		SLW	SYM	F6E00300
	00240	−0 32000 0 00406	36		ANA	6BITS TEST IF CHARACTER IN AC IS A BLANK.	F6E00310
	00241	0 40200 0 00405	37		SUB	BLANK	F6E00320
	00242	0 10000 0 00246	38		TZE	CNA YES, THEN FINISHED. I.E. SYMBOLIC NAME IN 2ND	F6E00330
			39			WORD OF ENTRY.	F6E00331
	00243	−0 50000 0 00513	40		CAL	SYM	F6E00340
	00244	0 60200 2 00506	41		SLW	LIN+2,2	F6E00350
	00245	2 00001 4 00236	42		TIX	SIX,4,1	F6E00360
	00246	0 50000 1 74413	43	CNA	CLA	DEA,1 T0 GET BCD IMAGE OF DECIMAL LOCATION.	F6E00370
	00247	0 62100 0 00410	44		STA	LOC	F6E00380
	00250	0 53400 4 00162	45		LXA	ONE,4	F6E00390
	00251	0 56000 0 00410	46		LDQ	LOC	F6E00400
	00252	0 50000 0 00407	47	CNV	CLA	TEN	F6E00410
	00253	0 04000 0 00260	48		TLQ	FIN	F6E00420
T	00254	−0 75400 0 00000	49		PXD	REMAINDERS STORED IN DIG-1,... THAT IS, IF 205	F6E00430
			50			(OCTAL)	F6E00431
	00255	0 22100 0 00407	51		DVP	TEN WERE THE NUMBER IN LOC, WE GET A BINARY 3 IN	F6E00440
			52			DIG-1, ...	F6E00441
	00256	0 60200 4 00513	53		SLW	DIG,4 3 IN DIG-2, IN DIG-3	F6E00450
	00257	1 00001 4 00252	54		TXI	CNV,4,1	F6E00460
	00260	−0 60000 4 00513	55	FIN	STQ	DIG,4	F6E00470
	00261	−0 50000 0 00404	56		CAL	BLANKS	F6E00480
	00262	0 76700 0 00006	57	DEC	ALS	6	F6E00490
	00263	−0 50100 4 00513	58		ORA	DIG,4 SET UP BCD IMAGE OF DEC. NO. AS 3 BLANKS,1,3,3.	F6E00500
	00264	2 00001 4 00262	59		TIX	DEC,4,1	F6E00510
	00265	0 60200 2 00507	60		SLW	LIN+3,2 STORE DECIMAL LOCATION IN 3RD WORD OF ENTRY.	F6E00520
	00266	0 50000 0 00410	61		CLA	LOC	F6E00530
	00267	0 76500 0 00017	62		LRS	15	F6E00540
	00270	−0 50000 0 00405	63		CAL	BLANK	F6E00550
	00271	−0 14000 0 00272	64		TNO	OCT	F6E00560
	00272	0 76700 0 00003	65	OCT	ALS	3 TO SET UP BCD IMAGE OF OCTAL LOCATION	F6E00570
	00273	0 76300 0 00003	66		LLS	3 THE TRANSFER IS ON NO OVERFLOW SINCE WHEN ALL	F6E00580
	00274	−0 14000 0 00272	67		TNO	OCT 15 BITS OF LOC HAVE BEEN CONVERTED, A BIT FROM	F6E00590
			68			REMAINING BLANK WILL ENTER P POSITION OF ACC.	F6E00591
	00275	0 60200 2 00510	69		SLW	LIN+4,2 STORE OCTAL LOCATION IN 4TH WORD OF ENTRY	F6E00600
	00276	−2 00001 1 00320	70		TNX	NT2,1,1 GO TO NT2 IF NO MORE ENTRIES IN DEV TABLE	F6E00610
	00277	2 00004 2 00225	71		TIX	CNW,2,4 IF ROOM FOR MORE 4-WORD ENTRIES IN 20-WD RECORD	F6E00620
			72			REPEAT	F6E00621
	00300	0 07400 4 00307	73		TSX	WRITE,4	F6E00630
	00301	0 00024 0 00505	74	LNC		LIN+1,,20	F6E00640
	00302	0 02000 0 00224	75		TRA	CNL	F6E00650
	00303	−2 00001 1 00317	76	B4	TNX	WLL,1,1 IF NO MORE WORDS IN DEV TABLE, GO TO WLL.	F6E00660
	00304	0 02000 0 00225	77		TRA	CNW	F6E00670
	00305	0 76600 0 00202	78	SPACE	WTD	2	F6E00680
	00306	0 70000 0 00404	79		CPY	BLANKS WRITE A BLANK RECORD TO PROVIDE A SPACE.	F6E00690
	00307	0 76600 0 00202	80	WRITE	WTD	2	F6E00700
	00310	0 50000 4 00001	81		CLA	1,4 TO SET INITIAL LOCATION AND NO. OF WORDS TO BE	F6E00710
			82			WRITTEN.	F6E00711
	00311	0 62100 0 00313	83		STA	POOP	F6E00720
	00312	−0 73400 2 00000	84		PDX	0,2	F6E00730
	00313	0 70000 2 00313	85	POOP	CPY	*,2	F6E00740
	00314	2 00001 2 00313	86		TIX	POOP,2,1	F6E00750
	00315	0 76600 0 00333	87		IOD		F6E00760
	00316	0 02000 4 00002	88		TRA	2,4 ALL WORDS IN RECORD WRITTEN. RETURN T0 PROGRAM	F6E00770
	00317	1 00004 2 00320	89	WLL	TXI	NT2,2,4	F6E00780
	00320	−0 75400 2 00000	90	NT2	PXD	0,2 STORE IN LND ADDRESS	F6E00790
	00321	0 60100 0 00330	91		STO	LND AND DECREMENT 20-NO. OF WORDS IN FINAL RECORD	F6E00800
			92			OF TTAPE,2.	F6E00801
	00322	0 77100 0 00022	93		ARS	18 SUBTRACT THIS FROM LNE	F6E00810
	00323	0 62100 0 00330	94		STA	LND TO GET ADDRESS AND	F6E00820
	00324	0 50000 0 00333	95		CLA	LNE DECREMENT FOR WRITING	F6E00830
	00325	0 40200 0 00330	96		SUB	LND FINAL RECORD	F6E00840
	00326	0 60100 0 00330	97		STO	LND	F6E00850
	00327	0 07400 4 00307	98		TSX	WRITE,4	F6E00860
	00330	0 00000 0 00000	99	LND			F6E00870
A		00331	100	ENDS	BSS		F6E00880
	00331	0 60000 0 00174	101		STZ	EA SET EA=0	F6E00890
	00332	0 02000 0 00004	102		TRA	4 AND GO TO LOADER	F6E00900
	00333	0 00030 0 00511	103	LNE		LIN+5,,24	F6E00910
		00334	104		BSS	40	F6E00920
	00404	606060606060	105	BLANKS	BCD	1␣␣␣␣␣␣	F6E00930
	00405	000000000060	106	BLANK	BCD	100000␣	F6E00940
	00406	+000000000077	107	6BITS	OCT	77	F6E00950
	00407	+000000000012	108	TEN	DEC	10	F6E00960
	00410	+000000000000	109	LOC	DEC	0	F6E00970
	00411	606060606060	110		BCD	4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6E00980
	00412	606060606060	111
	00413	606060606060	112
	00414	606060606060	113
	00415	606263465121	114		BCD	6␣STORAGE␣FOR␣VARIABLES␣APPEARING␣IN␣	F6E00990
	00416	272560264651	115
	00417	606521513121	116
	00420	224325626021	117
	00421	474725215131	118
	00422	452760314560	119
	00423	234644444645	120		BCD	COMMON␣SENTENCES␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6E01000
	00424	606225456325	121
	00425	452325626060	122
	00426	606060606060	123
	00427	606060606060	124
	00430	606060606060	125
	00431	606060606060	126
	00432	606060606060	127
	00433	606060606060	128
	00434	606060606060	129
A		00435	130	TITLE	BSS		F6E01010
	00435	606060606060	131		BCD	␣␣␣␣␣␣␣␣␣␣␣␣␣␣DEC␣␣␣OCT␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣DEC␣␣␣OCT␣␣␣␣␣␣␣␣␣␣␣␣␣	F6E01020
	00436	606060606060	132
	00437	606024252360	133
	00440	606046236360	134
	00441	606060606060	135
	00442	606060606060	136
	00443	606024252360	137
	00444	606046236360	138
	00445	606060606060	139
	00446	606060606060	140
	00447	606024252360	141		BCD	␣␣DEC␣␣␣OCT␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣DEC␣␣␣OCT␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣DEC␣␣␣OCT␣	F6E01030
	00450	606046236360	142
	00451	606060606060	143
	00452	606060606060	144
	00453	606024252360	145
	00454	606046236360	146
	00455	606060606060	147
	00456	606060606060	148
	00457	606024252360	149
	00460	606046236360	150
A		00461	151	CHEAD	BSS		F6E01040
		00461	152		BSS	19	F6E01050
		00504	153	LIN	BSS	1	F6E01060
		00513	154	DIG	BES	6	F6E01070
		00513	155	SYM	BSS	1	F6E01080