1		AST
			2			************* FORTRAN II SECTION SIX ************************	F6N00010
			3			FORTRAN 2 RECORD 113 - SECOND PASS OF CIT TAPE.	F6N00011
			4				F6N00012
			5			SECOND PASS OVER CIT TAPE	F6N00020
		00210	6		ORG	136	F6N00030
	00210	0 77200 0 00204	7		REW	4 REWIND TAPE 4,	F6N00040
	00211	0 50000 0 00170	8		CLA	LIFN STORE IFN TABLE ADDRESS.	F6N00050
	00212	0 62100 0 00332	9		STA	SA9	F6N00060
	00213	0 62100 0 00554	10		STA	SL9	F6N00070
T	00214	−0 75400 0 00000	11		PXD		F6N00080
	00215	0 60100 0 00166	12		STO	L1 CLEAR L1 AND L2.	F6N00090
	00216	0 60100 0 00167	13		STO	L2	F6N00100
	00217	0 53400 2 00224	14		LXA	RDC,2 SET READ ERROR COUNTER.	F6N00110
	00220	0 02000 0 00225	15		TRA	RD	F6N00120
	00221	0 76400 0 00204	16	ERR	BST	4 READ-ERROR PROCEDURE	F6N00130
	00222	2 00001 2 00225	17		TIX	RD,2,1	F6N00140
	00223	0 07400 4 00004	18		TSX	4,4	F6N00150
	00224	0 42000 0 00005	19	RDC	HPR	5	F6N00160
	00225	0 76200 0 00224	20	RD	RTB	4 READ RECORD OF	F6N00170
	00226	0 53400 4 00164	21		LXA	ADDR,4 CIT TAPE 4.	F6N00180
	00227	0 70000 4 01256	22	RD1	CPY	REC−2,4	F6N00190
	00230	1 00001 4 00227	23		TXI	RD1,4,1	F6N00200
	00231	0 02000 0 00571	24		TRA	EOF	F6N00210
	00232	0 77100 0 00377	25		ARS	255	F6N00220
	00233	0 77100 0 00377	26		ARS	255	F6N00230
	00234	−0 76000 0 00012	27		RTT		F6N00240
	00235	0 02000 0 00221	28		TRA	ERR	F6N00250
	00236	−0 63400 4 00565	29		SXD	RD2,4	F6N00260
	00237	−0 53400 4 00164	30		LXD	ADDR,4	F6N00270
	00240	−0 63400 4 00567	31	RD4	SXD	RD3,4	F6N00280
	00241	0 50000 4 01257	32		CLA	REC−1,4 SELECT	F6N00290
	00242	0 60100 0 00727	33		STO	SL SYMBOLIC LOCATION,	F6N00300
	00243	0 50000 4 01256	34		CLA	REC−2,4	F6N00310
	00244	0 60100 0 00726	35		STO	OP SYMBOLIC OP,	F6N00320
	00245	0 50000 4 01255	36		CLA	REC−3,4	F6N00330
	00246	0 60100 0 00730	37		STO	SA SYMBOLIC ADDRESS,	F6N00340
	00247	0 50000 4 01254	38		CLA	REC−4,4	F6N00350
	00250	0 60100 0 00731	39		STO	RA RELATIVE ADDRESS.	F6N00360
T	00251	−0 75400 0 00000	40		PXD		F6N00370
	00252	0 60100 0 00174	41		STO	EA CLEAR EA,	F6N00380
	00253	0 60100 0 00732	42		STO	RBIT RBIT,	F6N00390
	00254	0 60100 0 00733	43		STO	CBIT CBIT.	F6N00400
	00255	−0 50000 0 00726	44		CAL	OP	F6N00410
	00256	0 76500 0 00022	45		LRS	18	F6N00420
	00257	0 34000 0 00721	46		CAS	OCT OP EQUAL OCT TEST.	F6N00430
	00260	0 02000 0 00265	47		TRA	SA1	F6N00440
	00261	0 02000 0 00513	48		TRA	DATOP YES OP EQUAL OCT. TRANSFER TO DATOP.	F6N00450
	00262	0 34000 0 00723	49		CAS	BCD OP EQUAL BCD TEST.	F6N00460
	00263	0 02000 0 00265	50		TRA	SA1	F6N00470
	00264	0 02000 0 00513	51		TRA	DATOP YES OP EQUAL BCD. TRANSFER TO DATOP.	F6N00480
	00265	−0 50000 0 00730	52	SA1	CAL	SA OP NOT BCD OR OCT.	F6N00490
	00266	0 10000 0 00341	53		TZE	OPCAS TRANSFER T0 OPCAS IF SA EQUAL 0.	F6N00500
	00267	0 76500 0 00036	54		LRS	30	F6N00510
	00270	0 10000 0 00323	55		TZE	SA3 TRANSFER IF SA(1) EQUAL ZERO.	F6N00520
	00271	0 73400 4 00000	56		PAX	0,4	F6N00530
	00272	3 00017 4 00301	57		TXH	SA4,4,15 TRANSFER IF SA(1) GREATER THAN 15.	F6N00540
	00273	3 00016 4 00335	58		TXH	SAB,4,14 TRANSFER IF SA(1) EQUAL 15.	F6N00550
	00274	−0 77300 0 00016	59	SA6	RQL	14 SA(1) LESS THAN 15. ASSEMBLE SYMBOL AND GO	F6N00560
	00275	−0 76300 0 00021	60		LGL	17 OBTAIN LOC FROM	F6N00570
	00276	0 07400 4 00121	61	SA7	TSX	STIV,4 TIV.	F6N00580
	00277	0 07400 4 00004	62		TSX	4,4 ERROR,IF NOT IN TIV.	F6N00590
	00300	0 02000 0 00336	63		TRA	SA2 SA(1) GREATER THAN 15.	F6N00600
	00301	0 50000 0 00730	64	SA4	CLA	SA SA(1) GREATER THAN 15	F6N00610
	00302	0 40200 0 00321	65		SUB	DOL1	F6N00620
	00303	0 10000 0 00314	66		TZE	LIB10 TRANSFER IF SA EQUAL DOL1 OR DOL2.	F6N00630
	00304	0 40000 0 00321	67		ADD	DOL1	F6N00640
	00305	0 40200 0 00322	68		SUB	DOL2	F6N00650
	00306	0 10000 0 00316	69		TZE	LIB11	F6N00660
	00307	0 50000 0 00730	70		CLA	SA	F6N00670
	00310	0 07400 4 00142	71		TSX	SDEV,4 OBTAIN LOC FROM	F6N00680
	00311	0 07400 4 00103	72		TSX	STEV,4 TEV OR DEV.	F6N00690
	00312	0 07400 4 00004	73		TSX	4,4 ERROR IF NOT IN DEV OR TEV.	F6N00700
	00313	0 02000 0 00336	74		TRA	SA2	F6N00710
	00314	0 50000 0 00204	75	LIB10	CLA	DOLSI LOCATION FROM ADDRESS OF DOLSI.	F6N00720
	00315	0 02000 0 00336	76		TRA	SA2	F6N00730
	00316	0 50000 0 00204	77	LIB11	CLA	DOLSI	F6N00740
	00317	0 77100 0 00022	78		ARS	18 LOCATION FROM DECREMENT OF DOLSI.	F6N00750
	00320	0 02000 0 00336	79		TRA	SA2	F6N00760
	00321	536000000000	80	DOL1	BCD	1$␣0000	F6N00770
	00322	535360000000	81	DOL2	BCD	1$$␣000	F6N00780
	00323	0 53400 4 00730	82	SA3	LXA	SA,4 SA(1) EQUAL ZERO.	F6N00790
	00324	−3 00000 4 00331	83		TXL	SA5,4,0 IFN TEST. TRANSFER TO OBTAIN RELOCAT. LOC. FROM	F6N00800
			84			IFN.	F6N00801
	00325	−0 76300 0 00015	85		LGL	13 IFN WITH RELATIVE LOCATION. ASSEMBLE SYMBOLIC	F6N00810
	00326	−0 77300 0 00012	86		RQL	10 ADDRESS AND GO	F6N00820
	00327	−0 76300 0 00006	87		LGL	6 OBTAIN LOC FROM TIV.	F6N00830
	00330	0 02000 0 00276	88		TRA	SA7	F6N00840
	00331	−0 53400 4 00730	89	SA5	LXD	SA,4 OCTAIN LOC FROM	F6N00850
U	00332	0 50000 4	90	SA9	CLA	IFN,4 IFN TABLE.	F6N00860
	00333	0 77100 0 00022	91		ARS	18	F6N00870
	00334	0 02000 0 00336	92		TRA	SA2	F6N00880
	00335	0 50000 0 00166	93	SAB	CLA	L1 SA(1) EQUAL 15, SET LOCATION EQUAL L1.	F6N00890
	00336	0 62100 0 00174	94	SA2	STA	EA STORE LOCATION IN ADORESS OF EA.	F6N00900
	00337	0 50000 0 00163	95		CLA	TWO SET RBIT AS RELOCATABLE.	F6N00910
	00340	0 60100 0 00732	96		STO	RBIT	F6N00920
	00341	−0 50000 0 00726	97	OPCAS	CAL	OP ALL OPS NOT OCT OR BCD.	F6N00930
	00342	0 76500 0 00022	98		LRS	18	F6N00940
	00343	0 34000 0 00720	99		CAS	SYN TEST FOR OP EQUAL SYN OR BSS.	F6N00950
	00344	0 02000 0 00351	100		TRA	ORDOP	F6N00960
	00345	0 02000 0 00515	101		TRA	SYNOP TRANSFER TO SYNOP IF OP EQUAL SYN.	F6N00970
	00346	0 34000 0 00722	102		CAS	BSS	F6N00980
	00347	0 02000 0 00351	103		TRA	ORDOP	F6N00990
	00350	0 02000 0 00503	104		TRA	BSSOP TRANSFER T0 BSSOP IF OP EQUAL BSS.	F6N01000
	00351	0 07400 4 01400	105	ORDOP	TSX	SOPR,4 SEARCH FOR OP.	F6N01010
	00352	0 07400 4 00004	106		TSX	4,4 ERROR IF NOT FOUND.	F6N01020
	00353	0 60200 0 00734	107		SLW	WORD STORE OCT OP.	F6N01030
	00354	0 50000 0 00731	108		CLA	RA COMPUTE ADDRESS EQUAL	F6N01040
	00355	0 77100 0 00022	109		ARS	18 TO LOC. PLUS RELATIVE ADDRESS.	F6N01050
	00356	0 40000 0 00174	110		ADD	EA	F6N01060
	00357	0 60100 0 00735	111		STO	TEST1 SAVE ADDRESS IN TEST 1	F6N01070
	00360	0 50000 0 00174	112		CLA	EA LOCATION GREATER THAN PGBK	F6N01080
	00361	0 40200 0 00176	113		SUB	PGBK	F6N01090
	00362	0 12000 0 00375	114		TPL	COMM YES, TRANSFER	F6N01100
	00363	0 50000 0 00735	115		CLA	TEST1 NO, SEE IF	F6N01110
	00364	0 40200 0 00176	116		SUB	PGBK ADDRESS GREATER THAN PGBK.	F6N01120
	00365	0 12000 0 00372	117		TPL	LIB40 YES, G0 TO STORE ONE IN CBIT	F6N01130
	00366	0 02000 0 00367	118		TRA	LIB50 NO, CBIT=0	F6N01140
	00367	0 50000 0 00735	119	LIB50	CLA	TEST1	F6N01150
	00370	0 76500 0 00017	120		LRS	15	F6N01160
	00371	0 02000 0 00404	121		TRA	TG	F6N01170
	00372	0 50000 0 00162	122	LIB40	CLA	ONE	F6N01180
	00373	0 60100 0 00733	123		STO	CBIT STORE 1 IN CBIT	F6N01190
	00374	0 02000 0 00367	124		TRA	LIB50	F6N01200
	00375	0 50000 0 00735	125	COMM	CLA	TEST1	F6N01210
	00376	0 12000 0 00400	126		TPL	TA	F6N01220
	00377	0 40000 0 00724	127		ADD	TAG IF NEG MAKE C0MP	F6N01230
	00400	0 76500 0 00017	128	TA	LRS	15 TEST FOR COMP	F6N01240
	00401	0 10000 0 00404	129		TZE	TG ADDRESS.	F6N01250
	00402	0 50000 0 00162	130		CLA	ONE	F6N01260
	00403	0 60100 0 00733	131		STO	CBIT INDICATE COMP DATA.	F6N01270
	00404	−0 50000 0 00731	132	TG	CAL	RA COMBINE TAG, BINARY	F6N01280
	00405	0 76500 0 00003	133		LRS	3 DECREMENT, ADDRESS, AND	F6N01290
	00406	−0 50000 0 00726	134		CAL	OP OP.	F6N01300
	00407	0 76300 0 00022	135		LLS	18	F6N01310
	00410	−0 50100 0 00734	136		ORA	WORD	F6N01320
	00411	0 60200 0 00734	137	STORE	SLW	WORD STORE INSTRUCTION.	F6N01330
	00412	0 50000 0 00166	138		CLA	L1 UPDATE PROG CTR	F6N01340
	00413	0 60100 0 00167	139		STO	L2 AND PROGRAM BREAK	F6N01350
	00414	0 40000 0 00162	140		ADD	ONE FOR ALL OPS.	F6N01360
	00415	0 60100 0 00166	141		STO	L1	F6N01370
	00416	−0 53400 4 00512	142	RLCPU	LXD	RLC1,4 MODIFY RLC4.	F6N01380
	00417	2 00001 4 00431	143		TIX	RLC2,4,1 TRANSFER IF RLC1 NOT ZERO.	F6N01390
	00420	0 50000 0 00461	144		CLA	RLC3 RLC1 IS ZERO SO	F6N01400
	00421	0 62200 0 00512	145		STD	RLC1 INITIALIZE IT TO 20.	F6N01410
	00422	−0 53400 4 00502	146		LXD	WCT,4 SET INDEX REGISTER 4, DECREMENT OF	F6N01420
T	00423	−0 75400 0 00000	147		PXD	RLCB AND RLC6 EQUAL ZERO.	F6N01430
	00424	−0 63400 4 00501	148		SXD	RLC8,4	F6N01440
	00425	0 62200 0 00514	149		STD	RLC6 SET ABL AND ABR EQUAL ZERO.	F6N01450
	00426	0 60200 4 00736	150		SLW	ABL,4	F6N01460
	00427	0 60200 4 00737	151		SLW	ABR,4	F6N01470
	00430	1 77776 4 00433	152		TXI	RLC4,4,−2 MODIFY WORD COUNT.	F6N01480
	00431	−0 63400 4 00512	153	RLC2	SXD	RLC1,4 SAVE LENGTH OF CARD COUNT.	F6N01490
	00432	−0 53400 4 00502	154		LXD	WCT,4	F6N01500
	00433	0 50000 0 00734	155	RLC4	CLA	WORD STORE INSTRUCTION IN ABL BLOCK	F6N01510
	00434	0 60100 4 00736	156		STO	ABL,4	F6N01520
	00435	1 77777 4 00436	157		TXI	RLC5,4,−1 MODIFY WORD COUNT	F6N01530
	00436	−0 63400 4 00502	158	RLC5	SXD	WCT,4 SAVE NEW WORD COUNT.	F6N01540
	00437	−0 53400 4 00514	159		LXD	RLC6,4 MODIFY RELOCATION BITS	F6N01550
	00440	1 00002 4 00441	160		TXI	RLC7,4,2 COUNT.	F6N01560
	00441	−0 63400 4 00514	161	RLC7	SXD	RLC6,4 SAVE RELO. BITS COUNT.	F6N01570
	00442	0 50000 0 00732	162		CLA	RBIT TEST RELOCATION BIT.	F6N01580
	00443	0 10000 0 00455	163		TZE	RLCC TRANSFER IF ZERO.	F6N01590
	00444	−0 50100 0 00733	164		ORA	CBIT	F6N01600
	00445	1 00001 4 00446	165		TXI	RLCB,4,1 MODIFY RELOC. BITS COUNT	F6N01610
	00446	−0 63400 4 00514	166	RLCB	SXD	RLC6,4	F6N01620
	00447	0 76500 0 00043	167		LRS	35	F6N01630
	00450	−0 76300 4 00110	168		LGL	72,4 MAKE ABR AND ABL RELATIVE BY	F6N01640
	00451	−0 53400 4 00501	169		LXD	RLC8,4 STORING RELOCATION BITS.	F6N01650
	00452	−0 60200 4 00736	170		ORS	ABL,4 STORE RELO BITS	F6N01660
	00453	−0 76300 0 00044	171		LGL	36	F6N01670
	00454	−0 60200 4 00737	172		ORS	ABR,4	F6N01680
	00455	−0 53400 4 00514	173	RLCC	LXD	RLC6,4 TEST IF TOO MANY RELOCATABLE	F6N01690
	00456	3 00104 4 00462	174		TXH	ST8,4,68 BITS TO PUNCH COMPLETE CARD. YES, TRANSFER.	F6N01700
	00457	−0 53400 4 00502	175		LXD	WCT,4 NO, TEST END OF PUNCH BLOCK.	F6N01710
	00460	−3 77622 4 00464	176	ST2	TXL	ST3,4,−110 IF BLOCK FULL, TRANSFER TO ST 3.	F6N01720
	00461	1 00024 0 00521	177	RLC3	TXI	SLS,0,20 RETURN TO GET SL	F6N01730
	00462	−0 53400 4 00502	178	ST8	LXD	WCT,4 TEST WCT FOR ZERO.	F6N01740
D	00463	−3 00000 4 00475	179		TXL	ST4,4	F6N01750
	00464	−0 75400 4 00000	180	ST3	PXD	0,4 COMPUTE LAST ADDRESS	F6N01760
	00465	0 76000 0 00006	181		COM	IN BLOCK (UNCOMPLEMENT WORD COUNT),	F6N01770
	00466	−0 73400 4 00000	182		PDX	0,4	F6N01780
	00467	1 00736 4 00470	183		TXI	STD,4,ABL	F6N01790
	00470	−0 63400 4 00473	184	STD	SXD	ST5,4 SAVE IT.	F6N01800
	00471	−0 63400 4 00473	185		SXD	ST5,4	F6N01810
	00472	0 07400 4 00600	186		TSX	ABPCH,4 EXIT TO PUNCH CARD	F6N01820
	00473	0 00000 0 00736	187	ST5		ABL	F6N01830
	00474	0 42000 0 00000	188	ST6	HPR		F6N01840
	00475	0 50000 0 00166	189	ST4	CLA	L1 SET ADDRESS PART OF	F6N01850
	00476	0 62100 0 00474	190		STA	ST6 ST6 TO PROGRAM BREAK.	F6N01860
T	00477	−0 63400 0 00502	191		SXD	WCT SET WCT, RLC1 TO	F6N01870
T	00500	−0 63400 0 00512	192		SXD	RLC1 ZERO.	F6N01880
TD	00501	1 00000 0 00521	193	RLC8	TXI	SLS RETURN TO GET SL.	F6N01890
	00502	0 00000 0 00000	194	WCT	HTR	0	F6N01900
	00503	0 50000 0 00166	195	BSSOP	CLA	L1 OP IS BSS.	F6N01910
	00504	0 60100 0 00167	196		STO	L2 STORE PROGRAM COUNTER,	F6N01920
	00505	0 50000 0 00731	197		CLA	RA UP0ATE PROG BREAK,	F6N01930
	00506	0 10000 0 00521	198		TZE	SLS AND GO TO PUNCH	F6N01940
	00507	0 77100 0 00022	199		ARS	18 ACARD IF NECESSARY,	F6N01950
	00510	0 40000 0 00166	200		ADD	L1 STORE NEW ADDRESS	F6N01960
	00511	0 60100 0 00166	201		STO	L1 FOR LOADING.	F6N01970
TD	00512	1 00000 0 00462	202	RLC1	TXI	ST8	F6N01980
	00513	−0 50000 0 00730	203	DATOP	CAL	SA OCT OR BCD OP.	F6N01990
TD	00514	1 00000 0 00411	204	RLC6	TXI	STORE	F6N02000
	00515	0 50000 0 00174	205	SYNOP	CLA	EA OP IS SYN.	F6N02010
	00516	0 60100 0 00167	206		STO	L2 SET PROG CTR EQUAL ADDRESS	F6N02020
	00517	−0 10000 0 00521	207		TNZ	SLS	F6N02030
	00520	0 07400 4 00004	208		TSX	4,4	F6N02040
	00521	−0 50000 0 00727	209	SLS	CAL	SL ALL OPS. TEST SL	F6N02050
	00522	0 10000 0 00563	210		TZE	SL6 TRANSFER IF SL IS ZERO.	F6N02060
	00523	0 76500 0 00036	211		LRS	30	F6N02070
	00524	0 10000 0 00535	212		TZE	SL1 TRANSFER IF SL(1) EQUAL ZERO.	F6N02080
	00525	0 73400 4 00000	213		PAX	0,4	F6N02090
	00526	3 00017 4 00552	214		TXH	SL2,4,15 SL(1) GREATER THAN 15.	F6N02100
	00527	3 00016 4 00563	215		TXH	SL3,4,14 SL(1) EQUAL 15.	F6N02110
	00530	−0 77300 0 00016	216		RQL	14 SL(1) LESS THAN 15. ASSEMBLE SYMBOL AND GO	F6N02120
	00531	−0 76300 0 00021	217		LGL	17 SEE IF ITS IN TIV.	F6N02130
	00532	0 07400 4 00121	218		TSX	STIV,4	F6N02140
	00533	0 02000 0 00563	219		TRA	SL6 NOT IN TABLE.	F6N02150
	00534	0 02000 0 00556	220		TRA	SL4 IN TABLE. GO STORE LOCATION IN EA.	F6N02160
	00535	0 53400 4 00727	221	SL1	LXA	SL,4 SL(1) EQUAL ZERO. TEST ADORESS PART OF SL.	F6N02170
D	00536	−3 00000 4 00553	222		TXL	SL7,4 ZERO. EXIT TO GET IFN LOCATION.	F6N02180
	00537	−0 76300 0 00015	223		LGL	13 NOT ZERO. ASSEMBLE SYMBOL	F6N02190
	00540	−0 77300 0 00012	224		RQL	10 AND GO SEARCH TIV TABLE.	F6N02200
	00541	−0 76300 0 00006	225		LGL	6	F6N02210
	00542	0 07400 4 00121	226		TSX	STIV,4	F6N02220
	00543	0 02000 0 00563	227		TRA	SL6 NOT IN TIV TABLE, SO TRANSFER.	F6N02230
	00544	0 62100 0 00174	228		STA	EA IN TIV TABLE. RETURN WITH LOCATION	F6N02240
	00545	0 50000 0 00174	229		CLA	EA IN ADDRESS. TEST ADDRESS.	F6N02250
	00546	−0 10000 0 00560	230		TNZ	SL5 TRANSFER IF NOT ZERO.	F6N02260
	00547	0 50000 0 00167	231	SL8	CLA	L2 ZERO. PUT L2 IN TIV TABLE AS LOCATION.	F6N02270
	00550	0 62100 2 02114	232		STA	TIV,2	F6N02280
	00551	0 02000 0 00563	233		TRA	SL6	F6N02290
	00552	0 02000 0 00563	234	SL2	TRA	SL6	F6N02300
	00553	−0 53400 4 00727	235	SL7	LXD	SL,4 IFN LOCATION.	F6N02310
U	00554	0 50000 4	236	SL9	CLA	IFN,4	F6N02320
	00555	0 77100 0 00022	237		ARS	18	F6N02330
	00556	0 62100 0 00174	238	SL4	STA	EA CHECK STORED LOCATION (FROM TIV).	F6N02340
	00557	0 50000 0 00174	239		CLA	EA EQUAL PROG CTR	F6N02350
	00560	0 40200 0 00167	240	SL5	SUB	L2 IF NOT EQUAL TO L2, GO TO ERROR HALT.	F6N02360
	00561	0 10000 0 00563	241		TZE	SL6	F6N02370
	00562	0 07400 4 00004	242		TSX	4,4	F6N02380
A		00563	243	SL3	BSS		F6N02390
A		00563	244	SL6	BSS		F6N02400
	00563	−0 53400 4 00567	245		LXD	RD3,4 MODIFY TO GET NEW CIT.	F6N02410
	00564	1 00004 4 00565	246		TXI	RD2,4,4	F6N02420
	00565	−3 00000 4 00240	247	RD2	TXL	RD4,4,**	F6N02430
	00566	0 53400 2 00224	248		LXA	RDC,2	F6N02440
	00567	1 00000 0 00225	249	RD3	TXI	RD,0,**	F6N02450
	00570	0 00000 0 00000	250	TEST6	HTR	0	F6N02460
	00571	0 50000 0 00574	251	EOF	CLA	LBT SET RETURN OF ST4 TO EOT.	F6N02470
	00572	0 60100 0 00475	252		STO	ST4 IF NECESSARY ON END OF	F6N02480
	00573	0 02000 0 00462	253		TRA	ST8 FILE	F6N02490
TD	00574	1 00000 0 00575	254	LBT	TXI	EOT	F6N02500
	00575	0 77200 0 00204	255	EOT	REW	4 REWIND TAPE 4 AND RETURN TO LOADER.	F6N02510
	00576	0 76200 0 00221	256		RTB	1	F6N02520
	00577	0 02000 0 00004	257		TRA	4	F6N02530
	00600	−0 50000 4 00001	258	ABPCH	CAL	1,4 TO PUNCH CARD.	F6N02540
	00601	0 62200 0 00645	259		STD	PCH1 COMPUTE LAST ADDRESS PLUS ONE, AND	F6N02550
	00602	0 77100 0 00022	260		ARS	18 TOTAL WORD COUNT.	F6N02560
	00603	0 40000 0 00645	261		ADD	PCH1	F6N02570
	00604	0 62100 0 00617	262		STA	PCH2	F6N02580
	00605	0 62100 0 00635	263		STA	PCH3	F6N02590
	00606	−0 40000 4 00001	264		SBM	1,4	F6N02600
	00607	0 10000 4 00002	265		TZE	2,4 G0 TO HALT IF WORD COUNT LESS	F6N02610
	00610	−0 12000 4 00002	266		TMI	2,4 THAN ONE.	F6N02620
	00611	0 73400 1 00000	267		PAX	0,1	F6N02630
	00612	0 50000 4 00002	268		CLA	2,4 OBTAIN FIRST ADDRESS.	F6N02640
	00613	0 76600 0 00223	269	PCH8	WTB	3 SELECT TAPE THREE.	F6N02650
	00614	0 62100 0 00646	270		STA	VR SET LOADING ADDRESS.	F6N02660
	00615	0 76000 0 00000	271		CLM		F6N02670
	00616	0 53400 2 00645	272		LXA	PCH1,2	F6N02680
	00617	0 36100 1 00000	273	PCH2	ACL	0,1 FORM CHECK SUM.	F6N02690
	00620	3 00025 2 00623	274		TXH	PCH5,2,21	F6N02700
	00621	−2 00001 1 00623	275		TNX	PCH5,1,1	F6N02710
	00622	1 00001 2 00617	276		TXI	PCH2,2,1	F6N02720
	00623	−0 63400 2 00633	277	PCH5	SXD	PCH6,2 STORE WORD COUNT.	F6N02730
	00624	1 77776 2 00625	278		TXI	PCHR,2,−2	F6N02740
	00625	−0 63400 2 00646	279	PCHR	SXD	VR,2	F6N02750
	00626	0 36100 0 00646	280		ACL	VR	F6N02760
	00627	0 60200 0 00647	281		SLW	SUM STORE CHECK SUM.	F6N02770
	00630	0 70000 0 00646	282		CPY	VR	F6N02780
	00631	0 70000 0 00647	283		CPY	SUM	F6N02790
	00632	1 00002 2 00633	284		TXI	PCH6,2,2	F6N02800
D	00633	1 00000 1 00634	285	PCH6	TXI	PCH9,1	F6N02810
	00634	1 77777 1 00635	286	PCH9	TXI	PCH3,1,−1	F6N02820
	00635	0 70000 1 00000	287	PCH3	CPY	0,1 COPY RECORD ONTO TAPE THREE.	F6N02830
	00636	2 00001 2 00634	288		TIX	PCH9,2,1	F6N02840
	00637	0 50000 0 00646	289	PCH7	CLA	VR COMPUTE LOADING ADDRESS FOR NEXT CARD.	F6N02850
	00640	0 77100 0 00022	290		ARS	18	F6N02860
	00641	0 40000 0 00646	291		ADD	VR	F6N02870
	00642	2 00001 1 00613	292		TIX	PCH8,1,1	F6N02880
	00643	0 76600 0 00333	293		IOD		F6N02890
	00644	0 02000 4 00003	294		TRA	3,4 RETURN TO PROGRAM.	F6N02900
	00645	0 00000 0 00001	295	PCH1	HTR	1	F6N02910
ATD	00646	2 00000 0 00000	296	VR	TIX		F6N02920
	00647	0 00000 0 00000	297	SUM	HTR	0	F6N02930
		00613	298	WRS1	SYN	PCH8	F6N02940
		00650	299		BSS	40	F6N02950
	00720	000000627045	300	SYN	BCD	1000SYN	F6N02960
	00721	000000462363	301	OCT	BCD	1000OCT	F6N02970
	00722	000000226262	302	BSS	BCD	1000BSS	F6N02980
	00723	000000222324	303	BCD	BCD	1000BCD	F6N02990
	00724	0 00000 4 00000	304	TAG	HTR	0,4	F6N03000
TD	00725	2 00000 0 00000	305	TCD	TIX	0	F6N03010
	00726	0 00000 0 00000	306	OP	HTR	0	F6N03020
	00727	0 00000 0 00000	307	SL	HTR	0	F6N03030
	00730	0 00000 0 00000	308	SA	HTR	0	F6N03040
	00731	0 00000 0 00000	309	RA	HTR	0	F6N03050
	00732	0 00000 0 00000	310	RBIT	HTR	0	F6N03060
	00733	0 00000 0 00000	311	CBIT	HTR	0	F6N03070
	00734	0 00000 0 00000	312	WORD	HTR	0	F6N03080
	00735	0 00000 0 00000	313	TEST1	HTR	0	F6N03090
		00736	314	ABL	BSS	1	F6N03100
		00737	315	ABR	BSS	109	F6N03110
		01260	316	REC	BES	100	F6N03120
		01260	317	RLP	SYN	REC	F6N03130