1			************* FORTRAN II SECTION SIX ************************	F6T00010
			2			FORTRAN 2 RECORD 007 - TAPE 3,7 TO 2,6.	F6T00011
			3				F6T00012
		00161	4	ZERO	EQU	113
		00162	5	ONE	EQU	114
		00177	6	SW1	EQU	127
		00200	7	SW2	EQU	128
		00201	8	SW3	EQU	129
		00202	9	SW4	EQU	130
			10			DUMP TAPE2 ONTO TAPE6 AND TAPE3 ONTO	F6T00020
			11			TAPE7 IF BATCH COMPILING	F6T00030
		00210	12		ORG	136	F6T00030
	00210	0 77200 0 00202	13		REW	2 REWIND TAPES TWO AND THREE.	F6T00040
	00211	0 77200 0 00203	14		REW	3	F6T00050
	00212	−0 53400 1 00161	15		LXD	ZERO,1	F6T00060
	00213	0 76000 0 00166	16		SWT	6 TEST SENSE SWITCH 6 TO SEE IF BATCH COMPILING.	F6T00070
	00214	0 02000 0 00317	17		TRA	FINI UP. DO NOT DUMP TAPES BUT GO TO FINI.	F6T00080
	00215	−0 76000 0 00012	18	A11	RTT		F6T00090
	00216	0 76100 0 00000	19		NOP		F6T00100
	00217	−0 53400 4 00242	20	A6	LXD	SEVEN,4 SET READ ERROR COUNTER.	F6T00110
	00220	−0 53400 2 00161	21	A2	LXD	ZERO,2	F6T00120
	00221	0 76200 0 00202	22		RTD	2 READ A RECORD OF TAPE TWO.	F6T00130
	00222	0 70000 2 01371	23	A1	CPY	REC−1,2	F6T00140
	00223	1 00001 2 00222	24		TXI	A1,2,1	F6T00150
	00224	0 02000 0 00247	25		TRA	EOF EOF	F6T00160
	00225	0 77100 0 00377	26		ARS	255	F6T00170
	00226	0 77100 0 00377	27		ARS	255	F6T00180
	00227	−0 76000 0 00012	28		RTT		F6T00190
	00230	0 02000 0 00243	29		TRA	ERROR ERROR	F6T00200
	00231	1 77777 2 00232	30		TXI	NEXT2,2,−1	F6T00210
	00232	−0 63400 2 00237	31	NEXT2	SXD	A4,2 SAVE WORD COUNT OF RECORD TO USE WHEN WRITING.	F6T00220
	00233	−0 53400 2 00161	32		LXD	ZERO,2 ONTO TAPE6	F6T00230
	00234	0 76600 0 00206	33		WTD	6 WRITE RECORD JUST READ ONTO TAPE SIZE	F6T00240
	00235	0 70000 2 01371	34	A3	CPY	REC−1,2	F6T00250
	00236	1 00001 2 00237	35		TXI	A4,2,1	F6T00260
	00237	−3 00237 2 00235	36	A4	TXL	A3,2,*	F6T00270
	00240	0 76600 0 00333	37		IOD		F6T00280
	00241	0 02000 0 00215	38		TRA	A11 GO READ NEXT RECORD FROM TAPE TWO.	F6T00290
	00242	0 00005 0 00000	39	SEVEN		0,0,5	F6T00300
	00243	0 76400 0 00202	40	ERROR	BST	2 READ ERROR PROCEDURE.	F6T00310
	00244	2 00001 4 00220	41		TIX	A2,4,1	F6T00320
	00245	0 07400 4 00004	42		TSX	4,4	F6T00330
	00246	0 00000 0 00246	43	ER	HTR	ER	F6T00340
	00247	0 77000 0 00206	44	EOF	WEF	6 AT END OF FILE ONE TAPE TWO. WRITE END OF FILE.	F6T00350
	00250	1 00001 1 00251	45		TXI	A5,1,1	F6T00360
			46			ON TAPE SIX.	F6T00370
	00251	3 00001 1 00324	47	A5	TXH	TEST2,1,1 TWO FILES DONE. YES, GO TEST SWITCH TWO.	F6T00380
	00252	0 76200 0 00202	48		RTD	2 NO	F6T00390
	00253	0 02000 0 00217	49		TRA	A6	F6T00400
	00254	0 50000 0 00162	50	TAPE7	CLA	ONE TEST SENSE SWITCH ONE.	F6T00410
	00255	0 34000 0 00177	51		CAS	SW1	F6T00420
	00256	0 02000 0 00314	52		TRA	EOF3+1	F6T00430
	00257	0 02000 0 00262	53		TRA	A7	F6T00440
	00260	0 76000 0 00161	54		SWT	1	F6T00450
	00261	0 02000 0 00314	55		TRA	EOF3+1	F6T00460
	00262	−0 53400 4 00242	56	A7	LXD	SEVEN,4 DOWN. SET READ ERROR COUNTER.	F6T00470
	00263	−0 53400 2 00161	57	A12	LXD	ZERO,2 ONTO TAPE7	F6T00480
	00264	0 76200 0 00223	58		RTB	3 READ A RECORD FROM TAPE THREE	F6T00490
	00265	0 70000 2 01371	59	A8	CPY	REC−1,2	F6T00500
	00266	1 00001 2 00265	60		TXI	A8,2,1	F6T00510
	00267	0 02000 0 00313	61		TRA	EOF3 EOF OF FILE.	F6T00520
	00270	0 77100 0 00377	62		ARS	255	F6T00530
	00271	0 77100 0 00377	63		ARS	255	F6T00540
	00272	−0 76000 0 00012	64		RTT		F6T00550
	00273	0 02000 0 00307	65		TRA	ERR3 ERROR.	F6T00560
	00274	1 77777 2 00275	66		TXI	NEXT1,2,−1	F6T00570
	00275	−0 63400 2 00302	67	NEXT1	SXD	A10,2 SAVE WORD COUNT OF RECORD.	F6T00580
	00276	−0 53400 2 00161	68		LXD	ZERO,2	F6T00590
	00277	0 76600 0 00227	69		WTB	7 WRITE THE RECORD ONTO TAPE SEVEN.	F6T00600
	00300	0 70000 2 01371	70	A9	CPY	REC−1,2	F6T00610
	00301	1 00001 2 00302	71		TXI	A10,2,1	F6T00620
	00302	−3 00302 2 00300	72	A10	TXL	A9,2,* TEST END OF RECORD.	F6T00630
	00303	0 76600 0 00333	73		IOD		F6T00640
	00304	−0 76000 0 00012	74		RTT		F6T00650
	00305	0 76100 0 00000	75		NOP		F6T00660
	00306	0 02000 0 00262	76		TRA	A7 GO READ NEXT RECORD.	F6T00670
	00307	0 76400 0 00203	77	ERR3	BST	3	F6T00680
	00310	2 00001 4 00263	78		TIX	A12,4,1 READ ERROR PROCEDURE.	F6T00690
	00311	0 07400 4 00004	79		TSX	4,4	F6T00700
	00312	0 00000 0 00312	80	ERR4	HTR	ERR4	F6T00710
	00313	0 77000 0 00207	81	EOF3	WEF	7 AT EOF ON 3, WRITE EOF ON 7.	F6T00720
	00314	0 76200 0 00221	82		RTB	1	F6T00730
	00315	0 76200 0 00221	83		RTB	1	F6T00740
	00316	0 76200 0 00221	84		RTB	1	F6T00750
	00317	0 77200 0 00202	85	FINI	REW	2 REWINDS TAPES 2,3, AND 4 AND	F6T00760
	00320	0 77200 0 00203	86		REW	3 RETURNS TO LOADER,	F6T00770
	00321	0 77200 0 00204	87		REW	4	F6T00780
	00322	0 76200 0 00221	88		RTB	1	F6T00790
	00323	0 02000 0 00004	89		TRA	4	F6T00800
	00324	0 50000 0 00162	90	TEST2	CLA	ONE AFTER 2ND FILE FROM 2 TO 6,	F6T00810
	00325	0 34000 0 00200	91		CAS	SW2 TEST SENSE SWITCH 2.	F6T00820
	00326	0 02000 0 00254	92		TRA	TAPE7	F6T00830
	00327	0 02000 0 00332	93		TRA	WT3	F6T00840
	00330	0 76000 0 00162	94		SWT	2	F6T00850
	00331	0 02000 0 00254	95		TRA	TAPE7 UP. GO TEST SWITCH 1.	F6T00860
	00332	−0 53400 1 00251	96	WT3	LXD	A5,1 DOWN. RESET INDEX REGISTER 1 TO 1.	F6T00870
	00333	0 50000 0 00331	97		CLA	WT3−1 CHANGE A5 TRANSFER ADDRESS TO TAPE7.	F6T00880
	00334	0 62100 0 00251	98		STA	A5	F6T00890
	00335	0 02000 0 00217	99		TRA	A6	F6T00900
		00336	100		BSS	40	F6T00910
		01372	101	REC	BES	500	F6T00920