1		AST
			2			************* FORTRAN II SECTION SIX ************************	F6R00010
			3			FORTRAN 2 RECORD 0003 - CIT TO SAP CONVERSION.	F6R00011
			4				F6R00012
			5			CIT TO SAP CONVERSION	F6R00020
		00161	6	ZERO	EQU	113	F6R00030
		00162	7	ONE	EQU	114	F6R00040
		00177	8	SW1	EQU	127	F6R00050
		00200	9	SW2	EQU	128	F6R00060
		00201	10	SW3	EQU	129
		00202	11	SW4	EQU	130
		00210	12		ORG	136	F6R00030
	00210	0 50000 0 00162	13	START	CLA	ONE	F6R00040
	00211	0 34000 0 00200	14		CAS	SW2	F6R00050
	00212	0 02000 0 00700	15		TRA	ADD01 SW2 EQUAL ZERO, ASSUME SWITCH TWO UP,	F6R00060
	00213	0 02000 0 00216	16		TRA	LIB1 SW2 EQUAL ONE, ASSUME SWITCH TWO DOWN,	F6R00070
	00214	0 76000 0 00162	17		SWT	2 EQUAL TWO. TEST SWITCH TWO	F6R00080
	00215	0 02000 0 00700	18		TRA	ADD01	F6R00090
	00216	0 77200 0 00204	19	LIB1	REW	4 SW TWO DOWN.	F6R00100
	00217	0 77000 0 00202	20		WEF	2	F6R00110
	00220	−0 53400 2 00221	21		LXD	ADD02,2 SET READ ERROR COUNTER.	F6R00120
	00221	1 00005 0 00223	22	ADD02	TXI	ADD03,0,5	F6R00130
	00222	0 76400 0 00204	23	ADD05	BST	4	F6R00140
	00223	0 76200 0 00224	24	ADD03	RTB	4 READ TAPE 4	F6R00150
	00224	0 53400 1 00726	25		LXA	DATA1,1	F6R00160
	00225	0 70000 1 01162	26	ADD04	CPY	RECO3,1 CPY INTO REC-1, REC-2,---	F6R00170
	00226	1 00001 1 00225	27		TXI	ADD04,1,1	F6R00180
	00227	0 02000 0 00700	28		TRA	ADD01 END OF FILE ON TAPE 4.	F6R00190
	00230	0 77100 0 00377	29		ARS	255	F6R00200
	00231	0 77100 0 00377	30		ARS	0255	F6R00210
	00232	−0 76000 0 00012	31		RTT		F6R00220
	00233	2 00001 2 00222	32		TIX	ADD05,2,1 IF ERROR.	F6R00230
	00234	−0 63400 1 00440	33		SXD	ADD06,1 SAVE COUNT OF NO. OF WORDS READ IN.	F6R00240
	00235	0 53400 1 00677	34		LXA	ADD07,1 SET XR1=0	F6R00250
	00236	−0 63400 1 00442	35	IN207	SXD	ADD08,1 SAVE XR1.	F6R00260
	00237	−0 50000 1 01163	36		CAL	RECOR,1 STORE SL IN DATA2	F6R00270
	00240	0 60200 0 00775	37		SLW	DATA2 STORE OP IN DATA3	F6R00280
	00241	−0 50000 1 01162	38		CAL	RECO3,1	F6R00290
	00242	0 60200 0 00776	39		SLW	DATA3	F6R00300
	00243	−0 50000 1 01161	40		CAL	RECO2,1 STORE SA IN DATA4	F6R00310
	00244	0 60200 0 00777	41		SLW	DATA4	F6R00320
	00245	−0 50000 1 01160	42		CAL	REC01,1 STORE RA IN DATA5	F6R00330
	00246	0 60200 0 01000	43		SLW	DATA5	F6R00340
	00247	0 56000 0 00710	44		LDQ	DATA6	F6R00350
	00250	−0 60000 0 01007	45		STQ	E1005 STORE BLANKS IN E1006,1007,1010,1005	F6R00360
	00251	−0 60000 0 01010	46		STQ	E1006	F6R00370
	00252	−0 60000 0 01011	47		STQ	E1007	F6R00380
	00253	−0 60000 0 01012	48		STQ	E1010	F6R00390
	00254	−0 50000 0 00775	49		CAL	DATA2 TEST SYMBOLIC LOCATION.	F6R00400
	00255	0 10000 0 00305	50		TZE	ADD09 IF ZERO, GO TO ADD09.	F6R00410
	00256	0 76500 0 00036	51		LRS	30 NOT ZERO. SEE IF SL(1) EQUAL ZERO.	F6R00420
	00257	0 10000 0 00303	52		TZE	ADD10 SL(1) EQUAL ZERO, GO TO ADD10.	F6R00430
	00260	0 40200 0 00722	53		SUB	DATA7 SL(1) NOT EQUAL ZERO. SEE IF EQUAL 15.	F6R00440
	00261	−0 10000 0 00264	54		TNZ	ADD11 SL(1) NOT EQUAL 15, GO TO ADD11	F6R00450
	00262	−0 50000 0 00710	55		CAL	DATA6 SL(1) EQUAL 15. PUT BLANKS IN AC AND	F6R00460
	00263	0 02000 0 00306	56		TRA	ADD12 GO TO ADD12	F6R00470
	00264	0 40000 0 00722	57	ADD11	ADD	DATA7 RESOTRE SL(1) IN AC.	F6R00480
	00265	0 40200 0 00614	58		SUB	LIB3	F6R00490
	00266	0 10000 0 00612	59		TZE	LIB2 IF SL(1)=$, GO TO LIB2	F6R00500
	00267	0 40000 0 00614	60		ADD	LIB3	F6R00510
	00270	0 40200 0 00616	61		SUB	LIB5	F6R00520
	00271	0 10000 0 00617	62		TZE	LIB6 IF SL(1)=(, GO TO LIB6	F6R00530
	00272	0 40000 0 00616	63		ADD	LIB5	F6R00540
	00273	0 40200 0 00722	64		SUB	DATA7	F6R00550
	00274	0 12000 0 00301	65		TPL	ME1 GO TO ME1 IF SL(1) GREATER THEN 15 (I.E.,ALPHA-	F6R00560
	00275	0 40000 0 00722	66		ADD	DATA7	F6R00570
	00276	−0 77300 0 00001	67		RQL	1 SL(1) LESS THEN 15, NOT ZERO, ASSEMBLE SYMBOL.	F6R00580
	00277	0 07400 1 00603	68		TSX	SUB1,1 AND GO TO SUB1 (TIV TYPE ENTRY).	F6R00590
	00300	0 02000 0 00306	69		TRA	ADD12	F6R00600
	00301	−0 50000 0 00775	70	ME1	CAL	DATA2	F6R00610
	00302	0 02000 0 00306	71		TRA	ADD12	F6R00620
	00303	−0 76300 0 00015	72	ADD10	LGL	13 IFN. ASSEMBLE SYMBOL AND GO TO SUB2.	F6R00630
	00304	0 07400 1 00654	73		TSX	SUB2,1	F6R00640
	00305	−0 76300 0 00044	74	ADD09	LGL	36 SYMBOLIC LOC EQUAL ZERO. PUT BLANKS IN ACC.	F6R00650
	00306	0 60200 0 01005	75	ADD12	SLW	E1003 STORE ACC. IN E1003.	F6R00660
	00307	0 56000 0 00776	76	IN245	LDQ	DATA3 SELECT OP IN MQ.	F6R00670
	00310	0 50200 0 00717	77		CLS	DATA8	F6R00680
	00311	−0 76300 0 00022	78		LGL	18	F6R00690
	00312	−0 60000 0 01001	79		STQ	E0777 STORE DECREMENT IN E0777.	F6R00700
	00313	0 56000 0 00710	80		LDQ	DATA6 LOAD MQ WITH BLANKS	F6R00710
	00314	−0 76300 0 00006	81		LGL	6	F6R00720
	00315	0 76700 0 00006	82		ALS	6	F6R00730
	00316	0 60100 0 01006	83		STO	E1004 STORE IN E1004.	F6R00740
	00317	0 34000 0 00707	84		CAS	DATA9 IS OP EQUAL OCT.	F6R00750
	00320	0 02000 0 00325	85		TRA	ADD13 OP LESS THEN OCT	F6R00760
	00321	0 02000 0 00566	86		TRA	ADD14 OP EQUAL OCT. GO TO ADD14.	F6R00770
	00322	0 34000 0 00706	87		CAS	DAT10 OP GREATER THEN OCT. SEE IF OP=BCD.	F6R00780
	00323	0 02000 0 00325	88		TRA	ADD13	F6R00790
	00324	0 02000 0 00525	89		TRA	ADD15 OP EQUAL BCD. GO TO ADD15.	F6R00800
	00325	0 56000 0 00777	90	ADD13	LDQ	DATA4 OP NOT BCD OR OCT.	F6R00810
T	00326	−0 75400 0 00000	91		PXD	SELECT SA IN MQ.	F6R00820
	00327	−0 76300 0 00006	92		LGL	6	F6R00830
	00330	−0 10000 0 00343	93		TNZ	IN301 SA(1) NOT EQUAL ZERO. GO TO IN301.	F6R00840
	00331	−0 76300 0 00014	94		LGL	12 SA(1) EQUAL ZERO. TEST FOR INTERNAL	F6R00850
	00332	−0 10000 0 00352	95		TNZ	IN310 FORMULA NUMBER TYPE. IF YES, GO TO IN310.	F6R00860
	00333	0 56000 0 00710	96		LDQ	DATA6 SA(1),SA(2),SA(3) EQUAL ZERO. LOAD MQ WITH	F6R00870
	00334	0 50000 0 01000	97		CLA	DATA5 TEST FOR NOW-ZERO TAG OR RELATIVE ADDRESS.	F6R00880
	00335	−0 10000 0 00510	98		TNZ	IN446 NOT EQUAL ZERO. GO TO IN446	F6R00890
	00336	0 50000 0 01001	99		CLA	E0777 RA EQUAL ZERO. TEST FOR NON-ZERO DECREMENT.	F6R00900
	00337	−0 10000 0 00362	100		TNZ	IN320 NOT ZERO, GO TO IN320	F6R00910
	00340	−0 50000 0 00715	101		CAL	DT713 ZERO, OR A BLANK TO RT-HAND END OF E1004.	F6R00920
	00341	−0 60200 0 01006	102		ORS	E1004	F6R00930
	00342	0 02000 0 00431	103		TRA	IN367	F6R00940
	00343	0 34000 0 00717	104	IN301	CAS	DATA8 TEST IF SA(1)=16.	F6R00950
	00344	0 02000 0 00355	105		TRA	IN313 GREATER THEN 16(TRUE SYMBOL). GO TO IN313.	F6R00960
	00345	0 07400 4 00004	106		TSX	4,4 EQUAL IS ERROR.	F6R00970
	00346	0 07400 1 00603	107		TSX	SUB1,1 LESS THEN 16 (TIV ENTRY TYPE). GO TO SUB1.	F6R00980
	00347	0 76500 0 00036	108		LRS	30 RETURN FROM SUB1.	F6R00990
	00350	−0 77300 0 00001	109		RQL	1	F6R01000
	00351	0 02000 0 00355	110		TRA	IN313	F6R01010
	00352	0 07400 1 00654	111	IN310	TSX	SUB2,1 INTERNAL FORMULA NO. TYPE.	F6R01020
T	00353	−0 75400 0 00000	112		PXD		F6R01030
	00354	−0 76300 0 00006	113		LGL	6	F6R01040
	00355	−0 60200 0 01006	114	IN313	ORS	E1004	F6R01050
	00356	−0 60000 0 01002	115		STQ	E1000	F6R01060
	00357	−0 50000 0 00715	116		CAL	DT713	F6R01070
	00360	−0 60200 0 01002	117		ORS	E1000	F6R01080
	00361	0 56000 0 01002	118		LDQ	E1000	F6R01090
	00362	−0 50000 0 00355	119	IN320	CAL	IN313	F6R01100
	00363	0 07400 1 00445	120		TSX	IN403,1	F6R01110
	00364	0 50000 0 01000	121		CLA	DATA5 SELECT RELATIVE ADDRESS.	F6R01120
	00365	0 77100 0 00022	122		ARS	18	F6R01130
	00366	0 10000 0 00377	123		TZE	IN335 RA EQUAL ZERO, GO TO IN335	F6R01140
	00367	0 56000 0 00710	124		LDQ	DATA6 RA NOT EQUAL ZERO, LOAD MQ WITH BLANKS AND	F6R01150
	00370	0 07400 1 00464	125		TSX	IN422,1 GO TO IN422	F6R01160
	00371	0 50000 0 01000	126		CLA	DATA5 SET ACC. EQUAL RA.	F6R01170
	00372	0 12000 0 00375	127		TPL	IN333 IF RA POSITIVE, GO TO IN333.	F6R01180
	00373	−0 50000 0 00716	128		CAL	DT714 IF RA NEGATIVE, SELECT OCTAL 40 (MINUS)	F6R01190
	00374	0 02000 0 00376	129		TRA	IN334 AND GO TO IN334.	F6R01200
	00375	−0 50000 0 00717	130	IN333	CAL	DATA8 SELECT OCTAL 20 (PLUS)	F6R01210
	00376	0 07400 1 00460	131	IN334	TSX	IN416,1	F6R01220
	00377	0 50000 0 01000	132	IN335	CLA	DATA5 SET ACC. EQUAL RA. ANA OCTAL 77777	F6R01230
	00400	−0 32000 0 00726	133		ANA	DATA1	F6R01240
	00401	−0 10000 0 00406	134		TNZ	IN344 IF NOT ZERO, GO TO IN344.	F6R01250
	00402	0 50000 0 01001	135		CLA	E0777 ZERO. TEST IF E0777 EQUAL ZERO.	F6R01260
	00403	0 10000 0 00425	136		TZE	IN363 IF ZERO, GO TO IN363.	F6R01270
	00404	0 56000 0 00713	137		LDQ	DT711 NOT ZERO, LOAD MQ WITH 0 IN 1ST CHARAC, REST	F6R01280
	00405	0 02000 0 00414	138		TRA	IN352 AND GO TO IN 352	F6R01290
	00406	0 56000 0 00712	139	IN344	LDQ	DT710	F6R01300
	00407	0 34000 0 00724	140		CAS	DT722	F6R01310
	00410	0 02000 0 00413	141		TRA	IN351	F6R01320
	00411	0 02000 0 00413	142		TRA	IN351	F6R01330
	00412	0 56000 0 00710	143		LDQ	DATA6	F6R01340
	00413	0 07400 1 00464	144	IN351	TSX	IN422,1	F6R01350
	00414	0 50000 0 00714	145	IN352	CLA	DT712	F6R01360
	00415	0 07400 1 00460	146		TSX	IN416,1	F6R01370
	00416	0 50000 0 01001	147		CLA	E0777	F6R01380
	00417	0 10000 0 00425	148		TZE	IN363	F6R01390
	00420	0 77100 0 00022	149		ARS	18	F6R01400
	00421	0 56000 0 00710	150		LDQ	DATA6	F6R01410
	00422	0 07400 1 00464	151		TSX	IN422,1	F6R01420
	00423	0 50000 0 00714	152		CLA	DT712	F6R01430
	00424	0 07400 1 00460	153		TSX	IN416,1	F6R01440
T	00425	−0 75400 0 00006	154	IN363	PXD	6	F6R01450
	00426	0 56000 0 00710	155		LDQ	DATA6	F6R01460
	00427	−0 76300 2 00044	156		LGL	36,2	F6R01470
	00430	−0 60200 0 00430	157	IN366	ORS	*	F6R01480
	00431	0 76600 0 00202	158	IN367	WTD	2	F6R01490
	00432	0 53400 1 00425	159		LXA	IN363,1	F6R01500
	00433	0 70000 1 01013	160	IN371	CPY	E1011,1	F6R01510
	00434	2 00001 1 00433	161		TIX	IN371,1,1	F6R01520
	00435	0 76600 0 00333	162		IOD		F6R01530
	00436	−0 53400 1 00442	163		LXD	ADD08,1	F6R01540
	00437	1 00004 1 00440	164		TXI	ADD06,1,4	F6R01550
	00440	−3 00440 1 00236	165	ADD06	TXL	IN207,1,*	F6R01560
	00441	−0 53400 2 00221	166		LXD	ADD02,2	F6R01570
	00442	1 00442 0 00223	167	ADD08	TXI	ADD03,0,*	F6R01580
	00443	−3 00036 2 00454	168	IN401	TXL	IN412,2,30 IF SHIFT LESS THEN OR EQUAL 30, GO TO SELECT	F6R01590
	00444	−0 50000 0 00461	169		CAL	IN417 SHIFT GREATER THEN 30. PREPARE TO MODIFY ADDRES	F6R01600
	00445	0 40000 0 00725	170	IN403	ADD	DT723 COMPUTE ADDRESS FOR STORING WORD.	F6R01610
	00446	0 62100 0 00461	171		STA	IN417	F6R01620
	00447	0 62100 0 00430	172		STA	IN366	F6R01630
	00450	0 62100 0 00452	173		STA	IN410	F6R01640
T	00451	−0 75400 0 00000	174		PXD	CLEAR ACC.	F6R01650
	00452	0 60200 0 00452	175	IN410	SLW	* STORE ZERO IN WORD.	F6R01660
	00453	−0 73400 2 00000	176		PDX	0,2 SET XR2 EQUAL TO ZERO	F6R01670
	00454	−0 76300 0 00006	177	IN412	LGL	6 SELECT CHARACTER	F6R01680
	00455	0 34000 0 00715	178		CAS	DT713 IS CHARACTER BLANK.	F6R01690
	00456	0 02000 0 00460	179		TRA	IN416 NO.	F6R01700
	00457	0 02000 1 00001	180		TRA	1,1 YES, RETURN TO PROGRAM	F6R01710
	00460	0 76700 2 00036	181	IN416	ALS	30,2 NO, SHIFT CHARACTER	F6R01720
	00461	−0 60200 0 00461	182	IN417	ORS	*	F6R01730
T	00462	−0 75400 0 00000	183		PXD		F6R01740
	00463	1 00006 2 00443	184		TXI	IN401,2,6 ADJUST XR2 SHIFT AND GO TO IN401.	F6R01750
	00464	−0 60000 0 01004	185	IN422	STQ	E1002	F6R01760
	00465	−0 63400 1 00774	186		SXD	DT772,1	F6R01770
	00466	0 76500 0 00043	187	IN424	LRS	35	F6R01780
	00467	−0 73400 1 00000	188		PDX	0,1	F6R01790
	00470	0 60200 0 01003	189		SLW	E1001	F6R01800
	00471	0 22100 0 00723	190	IN427	DVP	DT721	F6R01810
	00472	0 76700 1 00000	191		ALS	0,1	F6R01820
	00473	−0 60200 0 01003	192		ORS	E1001	F6R01830
	00474	−0 60000 0 01002	193		STQ	E1000	F6R01840
	00475	0 50000 0 01002	194		CLA	E1000	F6R01850
	00476	0 10000 0 00501	195		TZE	IN437	F6R01860
	00477	0 76000 0 00000	196		CLM	0	F6R01870
	00500	1 77772 1 00471	197		TXI	IN427,1,−6	F6R01880
	00501	−0 50000 0 01003	198	IN437	CAL	E1001	F6R01890
	00502	0 56000 0 01004	199		LDQ	E1002	F6R01900
	00503	−0 76300 0 00001	200		LGL	1	F6R01910
	00504	0 56000 0 01004	201	IN442	LDQ	E1002	F6R01920
	00505	0 76500 1 00006	202		LRS	6,1	F6R01930
	00506	−0 53400 1 00774	203		LXD	DT772,1	F6R01940
	00507	0 02000 1 00001	204		TRA	1,1	F6R01950
	00510	0 77100 0 00022	205	IN446	ARS	18	F6R01960
	00511	0 10000 0 00362	206		TZE	IN320	F6R01970
	00512	0 07400 1 00464	207		TSX	IN422,1	F6R01980
	00513	0 50000 0 01000	208		CLA	DATA5	F6R01990
	00514	0 12000 0 00517	209		TPL	IN455	F6R02000
	00515	−0 50000 0 00716	210		CAL	DT714	F6R02010
	00516	0 02000 0 00521	211		TRA	IN457	F6R02020
T	00517	−0 75400 0 00000	212	IN455	PXD		F6R02030
	00520	−0 76300 0 00006	213		LGL	6	F6R02040
	00521	−0 60200 0 01006	214	IN457	ORS	E1004	F6R02050
	00522	−0 50000 0 00355	215		CAL	IN313	F6R02060
	00523	0 07400 1 00445	216		TSX	IN403,1	F6R02070
	00524	0 02000 0 00377	217		TRA	IN335	F6R02080
	00525	0 56000 0 00777	218	ADD15	LDQ	DATA4	F6R02090
	00526	−0 50000 0 00717	219		CAL	DATA8	F6R02100
	00527	0 16200 0 00532	220		TQP	IN470	F6R02110
	00530	0 40000 0 00717	221		ADD	DATA8	F6R02120
	00531	0 76500 0 00000	222		LRS	0	F6R02130
	00532	−0 60200 0 01006	223	IN470	ORS	E1004	F6R02140
	00533	0 76700 0 00003	224		ALS	3	F6R02150
	00534	−0 76300 0 00003	225		LGL	3	F6R02160
	00535	0 76700 0 00003	226		ALS	3	F6R02170
	00536	−0 76300 0 00003	227		LGL	3	F6R02180
	00537	0 76700 0 00003	228		ALS	3	F6R02190
	00540	−0 76300 0 00003	229		LGL	3	F6R02200
	00541	0 76700 0 00003	230		ALS	3	F6R02210
	00542	−0 76300 0 00003	231		LGL	3	F6R02220
	00543	0 76700 0 00003	232		ALS	3	F6R02230
	00544	−0 76300 0 00003	233		LGL	3	F6R02240
	00545	0 76700 0 00003	234		ALS	3	F6R02250
	00546	−0 76300 0 00003	235		LGL	3	F6R02260
	00547	0 60200 0 01007	236		SLW	E1005	F6R02270
	00550	0 76700 0 00003	237		ALS	3	F6R02280
	00551	−0 76300 0 00003	238		LGL	3	F6R02290
	00552	0 76700 0 00003	239		ALS	3	F6R02300
	00553	−0 76300 0 00003	240		LGL	3	F6R02310
	00554	0 76700 0 00003	241		ALS	3	F6R02320
	00555	−0 76300 0 00003	242		LGL	3	F6R02330
	00556	0 76700 0 00003	243		ALS	3	F6R02340
	00557	−0 76300 0 00003	244		LGL	3	F6R02350
	00560	0 76700 0 00003	245		ALS	3	F6R02360
	00561	−0 76300 0 00003	246		LGL	3	F6R02370
	00562	0 76700 0 00003	247		ALS	3	F6R02380
	00563	−0 76300 0 00003	248		LGL	3	F6R02390
	00564	0 60200 0 01010	249		SLW	E1006	F6R02400
	00565	0 02000 0 00431	250		TRA	IN367	F6R02410
	00566	0 50000 0 00777	251	ADD14	CLA	DATA4	F6R02420
	00567	0 40200 0 00721	252		SUB	DT717	F6R02430
	00570	−0 10000 0 00574	253		TNZ	IN532	F6R02440
	00571	−0 50000 0 00706	254		CAL	DAT10	F6R02450
	00572	0 60200 0 01006	255		SLW	E1004	F6R02460
	00573	0 02000 0 00525	256		TRA	ADD15	F6R02470
	00574	−0 50000 0 00725	257	IN532	CAL	DT723	F6R02480
	00575	−0 60200 0 01006	258		ORS	E1004	F6R02490
	00576	−0 50000 0 00777	259		CAL	DATA4	F6R02500
	00577	0 60200 0 01007	260		SLW	E1005	F6R02510
	00600	−0 50000 0 00710	261		CAL	DATA6	F6R02520
	00601	0 60200 0 01010	262		SLW	E1006	F6R02530
	00602	0 02000 0 00431	263		TRA	IN367	F6R02540
	00603	−0 63400 1 00705	264	SUB1	SXD	DT703,1 SAVE XR1 FOR RETURN	F6R02550
	00604	0 73400 4 00000	265		PAX	0,4 STORE CHARACTER IN XR4	F6R02560
	00605	0 40200 0 00722	266		SUB	DATA7 IS CHARACTER *.	F6R02570
	00606	−0 10000 0 00621	267		TNZ	IN550 NO, GO TO IN 550.	F6R02580
	00607	−0 50000 0 00720	268		CAL	DT716 YES, SELECT *.	F6R02590
	00610	0 56000 0 00710	269		LDQ	DATA6 LOAD MQ WITH BLANKS.	F6R02600
	00611	0 02000 0 00355	270		TRA	IN313 GO TO IN 313.	F6R02610
	00612	0 02000 0 01164	271	LIB2	TRA	RPCH1	F6R02620
	00613	0 02000 0 00306	272		TRA	ADD12	F6R02630
	00614	000000000053	273	LIB3	BCD	100000$	F6R02640
	00615	536060606060	274	LIB4	BCD	1$␣␣␣␣␣	F6R02650
	00616	000000000074	275	LIB5	BCD	100000(	F6R02660
	00617	−0 50000 0 00775	276	LIB6	CAL	DATA2	F6R02670
	00620	0 02000 0 00306	277		TRA	ADD12	F6R02680
	00621	−0 50000 4 00772	278	IN550	CAL	DT770,4 SELECT APPROPRIATE NUMERIC OR ALPHABETIC	F6R02690
	00622	0 76700 0 00006	279		ALS	6 CHARACTER.	F6R02700
	00623	−0 50100 0 00773	280		ORA	DT771 FOLLOWED BY LEFT PARENTHESIS	F6R02710
	00624	0 76700 0 00030	281		ALS	24 AND SHIFT INTO PROPER POSITION.	F6R02720
	00625	0 60200 0 01002	282		SLW	E1000	F6R02730
	00626	0 53400 3 00636	283		LXA	IN565,3	F6R02740
	00627	−0 77300 0 00014	284		RQL	12	F6R02750
T	00630	−0 75400 0 00000	285		PXD	0	F6R02760
	00631	−0 76300 0 00003	286		LGL	3 TAG BITS INTO ACC. ADDRESS	F6R02770
	00632	−0 10000 0 00636	287		TNZ	IN565 TAG BITS EQUAL ZERO. NO, GO TO IN565	F6R02780
	00633	−2 00001 1 00646	288	IN562	TNX	IN575,1,1 YES. IF FINISHED WITH WORD, GO TO IN 575	F6R02790
	00634	−0 76300 0 00005	289		LGL	5 NOT FINISHED WITH WORD. TEST ADDRESS BITS	F6R02800
	00635	0 10000 0 00633	290		TZE	IN562 ADDRESS BITS ZERO.	F6R02810
	00636	0 73400 4 00004	291	IN565	PAX	4,4 ADDRESS BITS NOT ZERO.	F6R02820
	00637	−0 50000 4 00772	292		CAL	DT770,4 SELECT CHARACTER.	F6R02830
	00640	−2 00001 1 00647	293		TNX	IN576,1,1	F6R02840
	00641	0 76700 2 00026	294		ALS	22,2 SHIFT INTO PROPER POSITION .	F6R02850
	00642	−0 60200 0 01002	295		ORS	E1000	F6R02860
T	00643	−0 75400 0 00000	296		PXD		F6R02870
	00644	−0 76300 0 00005	297		LGL	5	F6R02880
	00645	1 00006 2 00636	298		TXI	IN565,2,6 ADJUST SHIFT.	F6R02890
	00646	−0 50000 0 00715	299	IN575	CAL	DT713	F6R02900
	00647	0 56000 0 00710	300	IN576	LDQ	DATA6	F6R02910
	00650	−0 76300 2 00026	301		LGL	22,2	F6R02920
	00651	−0 50100 0 01002	302		ORA	E1000	F6R02930
	00652	−0 53400 1 00705	303		LXD	DT703,1	F6R02940
	00653	0 02000 1 00001	304		TRA	1,1	F6R02950
	00654	0 60100 0 01002	305	SUB2	STO	E1000	F6R02960
	00655	−0 76300 0 00010	306		LGL	8	F6R02970
T	00656	−0 75400 0 00000	307		PXD	0	F6R02980
	00657	0 76500 0 00035	308		LRS	29	F6R02990
	00660	0 22100 0 00723	309		DVP	DT721	F6R03000
	00661	−0 10000 0 00663	310		TNZ	IN612	F6R03010
	00662	−0 50000 0 00715	311		CAL	DT713 IF SUBSIDIARY NO. IS ZERO, SELECT A BLANK	F6R03020
	00663	0 60200 0 01004	312	IN612	SLW	E1002	F6R03030
	00664	−0 76300 0 00044	313		LGL	36	F6R03040
	00665	−0 63400 1 00774	314		SXD	DT772,1	F6R03050
	00666	0 73400 1 00000	315		PAX	0,1	F6R03060
	00667	−0 50000 1 00760	316		CAL	IN756,1 SELECT ALPHABETIC CHARACTER.	F6R03070
	00670	0 76700 0 00006	317		ALS	6	F6R03080
	00671	−0 50100 0 01004	318		ORA	E1002	F6R03090
	00672	0 56000 0 00710	319		LDQ	DATA6	F6R03100
	00673	−0 76300 0 00030	320		LGL	24	F6R03110
	00674	0 60200 0 01004	321		SLW	E1002	F6R03120
	00675	0 50000 0 01002	322		CLA	E1000	F6R03130
	00676	0 02000 0 00466	323		TRA	IN424	F6R03140
	00677	0 00000 0 00000	324	ADD07	HTR	0	F6R03150
	00700	0 77000 0 00202	325	ADD01	WEF	2	F6R03160
	00701	0 77200 0 00204	326		REW	4	F6R03170
	00702	0 77200 0 00202	327		REW	2	F6R03180
	00703	0 76200 0 00221	328		RTB	1	F6R03190
	00704	0 02000 0 00004	329		TRA	4	F6R03200
	00705	0 00000 0 00000	330	DT703	HTR	0	F6R03210
	00706	−204623636000	331	DAT10	OCT	604623636000	F6R03220
	00707	−202223246000	332	DATA9	OCT	602223246000	F6R03230
	00710	−206060606060	333	DATA6	OCT	606060606060	F6R03240
	00711	+336060606060	334	DT707	OCT	336060606060	F6R03250
	00712	−236060606060	335	DT710	OCT	636060606060	F6R03260
	00713	+006060606060	336	DT711	OCT	006060606060	F6R03270
	00714	+000000000073	337	DT712	OCT	73	F6R03280
	00715	+000000000060	338	DT713	OCT	60	F6R03290
	00716	+000000000040	339	DT714	OCT	40	F6R03300
	00717	+000000000020	340	DATA8	OCT	20	F6R03310
	00720	+000000000054	341	DT716	OCT	54	F6R03320
	00721	−377777777777	342	DT717	OCT	777777777777	F6R03330
	00722	+000000000017	343	DATA7	OCT	17	F6R03340
	00723	+000000000012	344	DT721	OCT	12	F6R03350
	00724	+000000000005	345	DT722	OCT	5	F6R03360
	00725	+000000000001	346	DT723	OCT	1	F6R03370
	00726	+000000077777	347	DATA1	OCT	77777	F6R03380
	00727	+000000000071	348	DT725	OCT	71	F6R03390
	00730	+000000000070	349		OCT	70	F6R03400
	00731	+000000000067	350		OCT	67	F6R03410
	00732	+000000000066	351		OCT	66	F6R03420
	00733	+000000000065	352		OCT	65	F6R03430
	00734	+000000000064	353		OCT	64	F6R03440
	00735	+000000000063	354		OCT	63	F6R03450
	00736	+000000000062	355		OCT	62	F6R03460
	00737	+000000000051	356	DT735	OCT	51	F6R03470
	00740	+000000000050	357		OCT	50	F6R03480
	00741	+000000000047	358		OCT	47	F6R03490
	00742	+000000000046	359		OCT	46	F6R03500
	00743	+000000000045	360		OCT	45	F6R03510
	00744	+000000000044	361		OCT	44	F6R03520
	00745	+000000000043	362		OCT	43	F6R03530
	00746	+000000000042	363		OCT	42	F6R03540
	00747	+000000000041	364		OCT	41	F6R03550
	00750	+000000000031	365		OCT	31	F6R03560
	00751	+000000000030	366		OCT	30	F6R03570
	00752	+000000000027	367		OCT	27	F6R03580
	00753	+000000000026	368		OCT	26	F6R03590
	00754	+000000000025	369		OCT	25	F6R03600
	00755	+000000000024	370		OCT	24	F6R03610
	00756	+000000000023	371		OCT	23	F6R03620
	00757	+000000000022	372		OCT	22	F6R03630
	00760	+000000000021	373	IN756	OCT	21	F6R03640
	00761	+000000000011	374		OCT	11	F6R03650
	00762	+000000000010	375		OCT	10	F6R03660
	00763	+000000000007	376		OCT	7	F6R03670
	00764	+000000000006	377		OCT	6	F6R03680
	00765	+000000000005	378		OCT	5	F6R03690
	00766	+000000000004	379		OCT	4	F6R03700
	00767	+000000000003	380		OCT	3	F6R03710
	00770	+000000000002	381		OCT	2	F6R03720
	00771	+000000000001	382		OCT	1	F6R03730
	00772	+000000000000	383	DT770	OCT	0	F6R03740
	00773	+000000000034	384	DT771	OCT	34	F6R03750
	00774	0 00000 0 00000	385	DT772	HTR	0	F6R03760
	00775	0 00000 0 00000	386	DATA2	HTR	0	F6R03770
	00776	0 00000 0 00000	387	DATA3	HTR	0	F6R03780
	00777	0 00000 0 00000	388	DATA4	HTR	0	F6R03790
	01000	0 00000 0 00000	389	DATA5	HTR	0	F6R03800
	01001	0 00000 0 00000	390	E0777	HTR	0	F6R03810
	01002	0 00000 0 00000	391	E1000	HTR	0	F6R03820
	01003	0 00000 0 00000	392	E1001	HTR	0	F6R03830
	01004	0 00000 0 00000	393	E1002	HTR	0	F6R03840
	01005	0 00000 0 00000	394	E1003	HTR	0	F6R03850
	01006	0 00000 0 00000	395	E1004	HTR	0	F6R03860
	01007	0 00000 0 00000	396	E1005	HTR	0	F6R03870
	01010	0 00000 0 00000	397	E1006	HTR	0	F6R03880
	01011	0 00000 0 00000	398	E1007	HTR	0	F6R03890
	01012	0 00000 0 00000	399	E1010	HTR	0	F6R03900
	01013	0 00000 0 00000	400	E1011	HTR	0	F6R03910
	01014	0 00000 0 00000	401		HTR	0	F6R03920
	01015	0 00000 0 00000	402		HTR	0	F6R03930
	01016	0 00000 0 00000	403		HTR	0	F6R03940
	01017	0 00000 0 00000	404	E1015	HTR	0	F6R03950
		01164	405	REC	BES	100	F6R03960
	01164	0 76300 0 00006	406	RPCH1	LLS	6	F6R03961
	01165	0 40200 0 00614	407		SUB	LIB3	F6R03962
	01166	0 10000 0 01171	408		TZE	LIB2A	F6R03963
	01167	−0 50000 0 00615	409		CAL	LIB4 SINGLE DOLLAR SIGN	F6R03964
	01170	0 02000 0 00306	410		TRA	ADD12	F6R03965
	01171	−0 50000 0 01173	411	LIB2A	CAL	DOL2 DOUBLE DOLLAR SIGN.	F6R03966
	01172	0 02000 0 00306	412		TRA	ADD12	F6R03967
	01173	535360606060	413	DOL2	BCD	1$$␣␣␣␣	F6R03968
		01160	414	REC01	SYN	REC−4	F6R03979
		01161	415	RECO2	SYN	REC−3	F6R03980
		01162	416	RECO3	SYN	REC−2	F6R03990
		01163	417	RECOR	SYN	REC−1	F6R04000
			418		WST	10,1