1			************* FORTRAN II SECTION SIX ************************	F6J00010
			2			FORTRAN 2 RECORD 109 - MAP PROGRAM.	F6J00011
			3				F6J00012
			4			RELOCATE DATA DOWN TO LOWER STORAGE	F6J00020
			5			COMPUTE DELTA EQUAL LCTR MINUS L1 PLUS 1	F6J00030
			6			SUBTRACT DELTA FROM ALL LOCATIONS BETWEEN L3	F6J00040
			7			AND L1 IN DEV, TEV, AND TIV TABLES	F6J00050
			8			L1 IS PROGRAM BREAK, L3 IS COMMON BREAK	F6J00060
		00210	9		ORG	136	F6J00070
	00210	0 50000 0 00171	10		CLA	LCTR	F6J00080
	00211	0 40200 0 00166	11		SUB	L1	F6J00090
	00212	0 40000 0 00162	12		ADD	ONE	F6J00100
	00213	0 60100 0 00546	13		STO	DELTA	F6J00110
	00214	0 50000 0 00166	14		CLA	L1 COMPUTE NEW PROGRAM	F6J00120
	00215	0 40000 0 00175	15		ADD	L3 BREAK AND STORE.	F6J00130
	00216	0 40200 0 00171	16		SUB	LCTR	F6J00140
	00217	0 60100 0 00176	17		STO	PGBK	F6J00150
	00220	−0 53400 1 00155	18		LXD	DEVL,1 ANY SYMBOLS IN DEV.	F6J00160
D	00221	−3 00000 1 00243	19		TXL	A5,1 NO, GO TO AS.	F6J00170
	00222	0 50000 0 00152	20		CLA	ADEV YES. COMPUTE ADORESS OF	F6J00180
	00223	0 62100 0 00225	21		STA	A1 DEA TABLE.	F6J00190
	00224	0 62100 0 00241	22		STA	A4	F6J00200
	00225	0 50000 1 00225	23	A1	CLA	*,1 SELECT LOCATION	F6J00210
	00226	0 62100 0 00301	24		STA	ERAS1 FROM ADDRESS BITS.	F6J00220
	00227	0 50000 0 00301	25		CLA	ERAS1	F6J00230
	00230	0 34000 0 00175	26		CAS	L3	F6J00240
	00231	0 02000 0 00236	27		TRA	A3 LOC GREATER THAN L3, DO NOT RELOCATE.	F6J00250
	00232	0 02000 0 00240	28		TRA	A2 LOC EQUAL L3. GO TO RELOCATE (HAS TO BE GREATER	F6J00260
			29			THAN L1)	F6J00261
	00233	0 34000 0 00166	30		CAS	L1 LOC LESS THAN L3. IS IT GREATER THAN L1.	F6J00270
	00234	0 02000 0 00240	31		TRA	A2 LOC GREATER THAN L1. GO TO RELOCATE	F6J00280
	00235	0 02000 0 00240	32		TRA	A2 LOC EQUAL L1. GO TO RELOCATE	F6J00290
	00236	2 00001 1 00225	33	A3	TIX	A1,1,1 LOC LESS THAN L1. DO NOT RELOCATE.	F6J00300
	00237	0 02000 0 00243	34		TRA	A5 WHEN ALL DATA EXAMINED AND TREATED.	F6J00310
	00240	0 40200 0 00546	35	A2	SUB	DELTA RELOCATE LOCATION.	F6J00320
	00241	0 62100 1 00241	36	A4	STA	*,1	F6J00330
	00242	0 02000 0 00236	37		TRA	A3	F6J00340
	00243	0 50000 0 00172	38	A5	CLA	LTEV TEST LTEV ( LOCATION OF FIRST SYMBOL IN TEV)	F6J00350
	00244	−0 53400 1 00120	39		LXD	TEVL,1 SET XR1 WITH WD. COUNT OF TEV ENTRIES.	F6J00360
D	00245	−3 00000 1 00257	40		TXL	A6,1 IF NO TEV ENTRIES, GO TO EXAMINE TIV.	F6J00370
	00246	0 34000 0 00175	41		CAS	L3 YES, TEV ENTRIES. IS LOCATION BETWEEN L3 ANO L1	F6J00380
	00247	0 02000 0 00257	42		TRA	A6 LOCATION GREATER THAN L3. OONT RELOCATE	F6J00390
	00250	0 02000 0 00255	43		TRA	A7 LOC EQUAL L3. RELOCATE	F6J00400
	00251	0 34000 0 00166	44		CAS	L1 LOC LESS THAN L3. IS IT GREATER THAN OR EQUAL	F6J00410
			45			L1.	F6J00411
	00252	0 02000 0 00255	46		TRA	A7 YES, RELOCATE	F6J00420
	00253	0 02000 0 00255	47		TRA	A7 YES, RELOCATE	F6J00430
	00254	0 02000 0 00257	48		TRA	A6 LOC LESS THAN L3. DONT RELOCATE.	F6J00440
	00255	0 40200 0 00546	49	A7	SUB	DELTA RELOCATE LOCATION,	F6J00450
	00256	0 60100 0 00172	50		STO	LTEV AND STORE NEW LOCATION IN LTEV.	F6J00460
	00257	−0 53400 1 00141	51	A6	LXD	TIVL,1 ANY SYMBOLS IN TIV.	F6J00470
	00260	1 00001 1 00261	52		TXI	NT1,1,1	F6J00480
D	00261	−3 00000 1 00302	53	NT1	TXL	B4,1 NO, GO TO WRITE OFF STORAGE NOT USED	F6J00490
	00262	0 50000 1 02114	54	A10	CLA	TIV,1 YES. TEST TIV.	F6J00500
	00263	0 62100 0 00301	55		STA	ERAS1 SELECT LOCATION FROM ADDRESS BITS.	F6J00510
	00264	0 50000 0 00301	56		CLA	ERAS1	F6J00520
	00265	0 34000 0 00175	57		CAS	L3	F6J00530
	00266	0 02000 0 00273	58		TRA	A8 NO RELOCATION.	F6J00540
	00267	0 02000 0 00276	59		TRA	A9 RELOCATE.	F6J00550
	00270	0 34000 0 00166	60		CAS	L1	F6J00560
	00271	0 02000 0 00276	61		TRA	A9 RELOCATE.	F6J00570
	00272	0 02000 0 00276	62		TRA	A9 RELOCATE.	F6J00580
	00273	1 00001 1 00274	63	A8	TXI	NT2,1,1 IF MORE ENTRIES IN TIV TO BE TESTED FOR RELOC-	F6J00590
D	00274	−3 00000 1 00302	64	NT2	TXL	B4,1 ATION, GO TO TEST TIV. IF DONE, GO WRITE	F6J00600
			65			STORAGE NOT USED.	F6J00601
	00275	0 02000 0 00262	66		TRA	A10 RELOCATE BY SUBTRACTING DELTA	F6J00610
	00276	0 40200 0 00546	67	A9	SUB	DELTA	F6J00620
	00277	0 62100 1 02114	68		STA	TIV,1	F6J00630
	00300	0 02000 0 00273	69		TRA	A8	F6J00640
A	00301	0 00000 0 00000	70	ERAS1	HTR		F6J00650
	00302	0 07400 4 00352	71	B4	TSX	SPACE,4 TO WRITE STORAGE NOT USED BY PROGRAM	F6J00660
	00303	0 00024 0 00470	72			TITLE,,20	F6J00670
	00304	0 07400 4 00352	73		TSX	SPACE,4 GO TO WRITE TITLE AND HEADINGS.	F6J00680
	00305	0 00024 0 00514	74			CHEAD,,20	F6J00690
	00306	0 50000 0 00176	75		CLA	PGBK	F6J00700
	00307	0 60100 0 00443	76		STO	LOC TO LIST PROGRAM BREAK.	F6J00710
	00310	0 07400 4 00364	77		TSX	SUB,4 GO TO CONVERT PROGRAM BREAK TO BCD IMAGES	F6J00720
	00311	−0 50000 0 00437	78		CAL	BLANKS OF ITS DECIMAL AND ITS OCTAL	F6J00730
	00312	0 60200 0 00514	79		SLW	LIN−19 REPRESENTATIONS.	F6J00740
	00313	0 60200 0 00515	80		SLW	LIN−18 SET FIRST 2 WORDS OF RECORD TO BLANK.	F6J00750
	00314	0 50000 0 00547	81		CLA	DECWD	F6J00760
	00315	0 60100 0 00516	82		STO	LIN−17 SET 3RD WORD TO IMAGE OF DECIMAL REPR.	F6J00770
	00316	0 50000 0 00550	83		CLA	OCTWD SET 4TH WORD TO IMAGE OF OCTAL REPRESENTATION	F6J00780
	00317	0 60100 0 00517	84		STO	LIN−16 OF PROGRAM BREAK.	F6J00790
	00320	0 50000 0 00175	85		CLA	L3	F6J00800
	00321	0 60100 0 00443	86		STO	LOC TO LIST COMMON BREAK.	F6J00810
	00322	0 07400 4 00364	87		TSX	SUB,4 GO TO CONVERT IT.	F6J00820
	00323	−0 50000 0 00437	88		CAL	BLANKS	F6J00830
	00324	0 60200 0 00520	89		SLW	LIN−15	F6J00840
	00325	0 60200 0 00521	90		SLW	LIN−14 SET WORDS FIVE AND SIX TO BLANK.	F6J00850
	00326	0 50000 0 00547	91		CLA	DECWD SET WORD SEVEN TO BCD IMAGE OF DECIMAL	F6J00860
	00327	0 60100 0 00522	92		STO	LIN−13 REPRESENTATION OF COMMON BREAK.	F6J00870
	00330	0 50000 0 00550	93		CLA	OCTWD	F6J00880
	00331	0 60100 0 00523	94		STO	LIN−12 SET WORD EIGHT TO IMAGE OF OCTAL REPR.	F6J00890
	00332	−0 50000 0 00437	95		CAL	BLANKS	F6J00900
	00333	0 60200 0 00524	96		SLW	LIN−11 SET REMAINDER OF RECORD TO BLANK.	F6J00910
	00334	0 60200 0 00525	97		SLW	LIN−10	F6J00920
	00335	0 60200 0 00526	98		SLW	LIN−9	F6J00930
	00336	0 60200 0 00527	99		SLW	LIN−8	F6J00940
	00337	0 60200 0 00530	100		SLW	LIN−7	F6J00950
	00340	0 60200 0 00531	101		SLW	LIN−6	F6J00960
	00341	0 60200 0 00532	102		SLW	LIN−5	F6J00970
	00342	0 60200 0 00533	103		SLW	LIN−4	F6J00980
	00343	0 60200 0 00534	104		SLW	LIN−3	F6J00990
	00344	0 60200 0 00535	105		SLW	LIN−2	F6J01000
	00345	0 60200 0 00536	106		SLW	LIN−1	F6J01010
	00346	0 60200 0 00537	107		SLW	LIN	F6J01020
	00347	0 07400 4 00354	108		TSX	WRITE,4 GO TO WRITE RECORD ON TAPE TWO.	F6J01030
	00350	0 00024 0 00540	109	LNC		LIN+1,,20	F6J01040
	00351	0 02000 0 00004	110		TRA	4 GO TO LOADER.	F6J01050
	00352	0 76600 0 00202	111	SPACE	WTD	2	F6J01060
	00353	0 70000 0 00437	112		CPY	BLANKS	F6J01070
	00354	0 76600 0 00202	113	WRITE	WTD	2	F6J01080
	00355	0 50000 4 00001	114		CLA	1,4	F6J01090
	00356	0 62100 0 00360	115		STA	POOP	F6J01100
	00357	−0 73400 2 00000	116		PDX	0,2	F6J01110
	00360	0 70000 2 00360	117	POOP	CPY	*,2	F6J01120
	00361	2 00001 2 00360	118		TIX	POOP,2,1	F6J01130
	00362	0 76600 0 00333	119		IOD		F6J01140
	00363	0 02000 4 00002	120		TRA	2,4	F6J01150
	00364	0 53400 1 00162	121	SUB	LXA	ONE,1	F6J01160
	00365	0 56000 0 00443	122		LDQ	LOC	F6J01170
	00366	0 50000 0 00442	123	CNV	CLA	TEN CONVERTING TO DECIMAL.	F6J01180
	00367	0 04000 0 00374	124		TLQ	FIN	F6J01190
T	00370	−0 75400 0 00000	125		PXD		F6J01200
	00371	0 22100 0 00442	126		DVP	TEN	F6J01210
	00372	0 60200 1 00546	127		SLW	DIG,1	F6J01220
	00373	1 00001 1 00366	128		TXI	CNV,1,1	F6J01230
	00374	−0 60000 1 00546	129	FIN	STQ	DIG,1	F6J01240
	00375	−0 50000 0 00437	130		CAL	BLANKS	F6J01250
	00376	0 76700 0 00006	131	DEC	ALS	6 DECIMAL TO BCD IMAGE.	F6J01260
	00377	−0 50100 1 00546	132		ORA	DIG,1	F6J01270
	00400	2 00001 1 00376	133		TIX	DEC,1,1	F6J01280
	00401	0 60200 0 00547	134		SLW	DECWD	F6J01290
	00402	0 50000 0 00443	135		CLA	LOC	F6J01300
	00403	0 76500 0 00017	136		LRS	15	F6J01310
	00404	−0 50000 0 00440	137		CAL	BLANK	F6J01320
	00405	−0 14000 0 00406	138		TNO	OCT	F6J01330
	00406	0 76700 0 00003	139	OCT	ALS	3 OCTAL TO BCD IMAGE.	F6J01340
	00407	0 76300 0 00003	140		LLS	3	F6J01350
	00410	−0 14000 0 00406	141		TNO	OCT	F6J01360
	00411	0 60200 0 00550	142		SLW	OCTWD	F6J01370
	00412	0 02000 4 00001	143		TRA	1,4	F6J01380
		00413	144		BSS	20	F6J01390
	00437	606060606060	145	BLANKS	BCD	1␣␣␣␣␣␣	F6J01400
	00440	000000000060	146	BLANK	BCD	100000␣	F6J01410
	00441	+000000000077	147	6BITS	OCT	77	F6J01420
	00442	+000000000012	148	TEN	DEC	10	F6J01430
	00443	+000000000000	149	LOC	DEC	0	F6J01440
	00444	606060606060	150		BCD	7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6J01450
	00445	606060606060	151
	00446	606060606060	152
	00447	606060606060	153
	00450	606060606060	154
	00451	606060606060	155
	00452	606060606060	156
	00453	626346512127	157		BCD	5STORAGE␣NOT␣USED␣BY␣PROGRAM␣␣␣	F6J01460
	00454	256045466360	158
	00455	646225246022	159
	00456	706047514627	160
	00457	512144606060	161
	00460	606060606060	162		BCD	8␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6J01470
	00461	606060606060	163
	00462	606060606060	164
	00463	606060606060	165
	00464	606060606060	166
	00465	606060606060	167
	00466	606060606060	168
	00467	606060606060	169
A		00470	170	TITLE	BSS		F6J01480
	00470	606060606060	171		BCD	2␣␣␣␣␣␣␣␣␣␣␣␣	F6J01490
	00471	606060606060	172
	00472	606024252360	173		BCD	4␣␣DEC␣␣␣OCT␣␣␣␣␣␣␣␣␣␣␣␣␣	F6J01500
	00473	606046236360	174
	00474	606060606060	175
	00475	606060606060	176
	00476	606024252360	177		BCD	4␣␣DEC␣␣␣OCT␣␣␣␣␣␣␣␣␣␣␣␣␣	F6J01510
	00477	606046236360	178
	00500	606060606060	179
	00501	606060606060	180
	00502	606060606060	181		BCD	␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F6J01520
	00503	606060606060	182
	00504	606060606060	183
	00505	606060606060	184
	00506	606060606060	185
	00507	606060606060	186
	00510	606060606060	187
	00511	606060606060	188
	00512	606060606060	189
	00513	606060606060	190
A		00514	191	CHEAD	BSS		F6J01530
		00514	192		BSS	19	F6J01540
		00537	193	LIN	BSS	1	F6J01550
		00546	194	DIG	BES	6	F6J01560
	00546	0 00000 0 00000	195	DELTA	HTR	0	F6J01570
	00547	0 00000 0 00000	196	DECWD	HTR	0	F6J01580
	00550	0 00000 0 00000	197	OCTWD	HTR	0	F6J01590