1			MONITOR PROGRAM FOR BATCH COMPILATION	F1BM0010
			2			MASTER RECORD CARD F0120000	F1BM0020
		00030	3		ORG	24	F1BM0030
	00030	0 76000 0 00166	4	START	SWT	6 TEST SW6, UP = SINGLE PROBLEM,	F1BM0040
	00031	0 02000 0 00146	5		TRA	ADD93+1 SKIP OVER MACHINE ERROR RECORD AND GO TO SEC1	F1BM0050
	00032	0 76000 0 00140	6		SLN	0 TURN OFF LIGHTS	F1BM0060
	00033	0 53400 4 00237	7	ADD01	LXA	L(5),4 COUNTER FOR 5 TRIES TO READ TAPE 5.	F1BM0070
	00034	−0 50000 0 00245	8		CAL	BLANKS	F1BM0080
	00035	0 60200 0 00233	9		SLW	BUFFER−1	F1BM0090
	00036	0 60200 0 00232	10		SLW	BUFFER−2	F1BM0100
	00037	−0 76000 0 00012	11		RTT	TURN OFF INDICATOR	F1BM0110
	00040	0 76100 0 00000	12		NOP		F1BM0120
	00041	0 76200 0 00205	13	ADD015	RTD	5	F1BM0130
	00042	0 53400 3 00243	14		LXA	L(14),3 ASSUME 14 WORDS PER RECORD	F1BM0140
	00043	0 70000 1 00234	15	ADD02	CPY	BUFFER,1	F1BM0150
	00044	0 02000 0 00047	16		TRA	ADD03	F1BM0160
	00045	0 02000 0 00161	17		TRA	ADD90 EOF	F1BM0170
	00046	0 02000 0 00050	18		TRA	ADD04 EOR	F1BM0180
	00047	2 00001 1 00043	19	ADD03	TIX	ADD02,1,1	F1BM0190
	00050	0 77100 0 00377	20	ADD04	ARS	255	F1BM0200
	00051	0 77100 0 00377	21		ARS	255	F1BM0210
	00052	−0 76000 0 00012	22		RTT	TEST TAPE INDICATOR	F1BM0220
	00053	0 02000 0 00150	23		TRA	ADD80 ON, PREPARE TO READ AGAIN	F1BM0230
	00054	0 76600 0 00202	24		WTD	2 OFF, WRITE THIS RECORD ON TAPE 2	F1BM0240
	00055	0 70000 2 00234	25	ADD05	CPY	BUFFER,2	F1BM0250
	00056	2 00001 2 00055	26		TIX	ADD05,2,1	F1BM0260
	00057	0 76600 0 00333	27		IOD		F1BM0270
	00060	−0 76000 0 00012	28		RTT		F1BM0280
	00061	0 76100 0 00000	29		NOP		F1BM0290
D	00062	3 00000 0 00074	30	ADD70	TXH	ADD71,0 ROUTINE TO RESTORE PRINTER CARRIAGE AND PRINT	F1BM0300
	00063	0 07400 4 00332	31		TSX	PRINT,C FIRST STATEMENT OF CURRENT SOURCE PROGRAM	F1BM0310
	00064	0 00234 0 00215	32		PZE	RESTR,0,BUFFER	F1BM0320
	00065	0 76600 0 00361	33		WPR		F1BM0330
	00066	0 76600 0 00361	34		WPR		F1BM0330
	00067	0 76600 0 00361	35		WPR		F1BM0330
	00070	0 76600 0 00361	36		WPR		F1BM0330
	00071	0 76600 0 00361	37		WPR		F1BM0330
	00072	0 50200 0 00062	38		CLS	ADD70 CHANGE TXH TO TXL	F1BM0350
	00073	0 60100 0 00062	39		STO	ADD70	F1BM0360
	00074	0 76000 0 00141	40	ADD71	SLN	1 SL1-ON IF AT LEAST 1 SOURCE STATMENT ON TP 2	F1BM0370
	00075	−0 75400 0 00000	41		PXD	0,0 EXITS	F1BM0380
	00076	0 56000 0 00216	42		LDQ	BUFFER−14 TEST FOR COMMENT CARD	F1BM0390
	00077	−0 76300 0 00006	43		LGL	6	F1BM0400
	00100	0 40200 0 00244	44		SUB	L(C)	F1BM0410
	00101	0 10000 0 00033	45		TZE	ADD01 YES, GO READ NEXT TAPE RECORD	F1BM0420
	00102	−0 76300 0 00030	46		LGL	24 DISCARD FORMULA NUMBER	F1BM0430
	00103	−0 75400 0 00000	47		PXD	0,0	F1BM0440
	00104	−0 76300 0 00006	48		LGL	6	F1BM0450
	00105	0 10000 0 00110	49		TZE	ADD06 TEST FOR CONTINUATION CARD	F1BM0460
	00106	0 40200 0 00246	50		SUB	BLANK	F1BM0470
	00107	−0 10000 0 00033	51		TNZ	ADD01 YES, GO READ NEXT TAPE RECORD	F1BM0480
	00110	0 53400 1 00242	52	ADD06	LXA	L(12),1 THIS RECORD IS OF FIRST CARD OF	F1BM0490
	00111	0 53400 2 00241	53		LXA	L(7),2 FORTRAN STATEMENT. PREPARE TO TEST	F1BM0500
	00112	0 50000 0 00234	54		CLA	BUFFER FOR END(..,..,..,..,..) CARD	F1BM0510
	00113	0 60100 0 00232	55		STO	BUFFER−2 POSITION ENDMARK	F1BM0520
	00114	0 56000 0 00217	56		LDQ	BUFFER−13	F1BM0530
	00115	0 07400 4 00200	57		TSX	SUB1,4	F1BM0540
	00116	0 40200 0 00247	58		SUB	L(E) TEST FIRST CHAR FOR E	F1BM0550
	00117	−0 10000 0 00033	59		TNZ	ADD01	F1BM0560
	00120	0 07400 4 00200	60		TSX	SUB1,4	F1BM0570
	00121	0 40200 0 00250	61		SUB	L(N) TEST SECOND CHAR FOR N	F1BM0580
	00122	−0 10000 0 00033	62		TNZ	ADD01	F1BM0590
	00123	0 07400 4 00200	63		TSX	SUB1,4	F1BM0600
	00124	0 40200 0 00251	64		SUB	L(D) TEST THIRD CHAR FOR D	F1BM0610
	00125	−0 10000 0 00033	65		TNZ	ADD01	F1BM0620
	00126	0 07400 4 00200	66		TSX	SUB1,4	F1BM0630
	00127	0 40200 0 00252	67		SUB	L(() TEST FOURTH CHAR FOR (	F1BM0640
	00130	−0 10000 0 00033	68		TNZ	ADD01	F1BM0650
	00131	0 07400 4 00200	69		TSX	SUB1,4	F1BM0660
	00132	0 07400 4 00200	70		TSX	SUB1,4	F1BM0670
	00133	0 40200 0 00253	71		SUB	COMMA TEST SIXTH CHAR FOR ,	F1BM0680
	00134	−0 10000 0 00033	72		TNZ	ADD01	F1BM0690
	00135	0 07400 4 00200	73		TSX	SUB1,4	F1BM0700
	00136	0 07400 4 00200	74		TSX	SUB1,4	F1BM0710
	00137	0 40200 0 00253	75		SUB	COMMA TEST EIGHTH CHAR FOR ,	F1BM0720
	00140	−0 10000 0 00033	76		TNZ	ADD01	F1BM0730
	00141	0 07400 4 00200	77		TSX	SUB1,4	F1BM0740
	00142	0 07400 4 00200	78		TSX	SUB1,4	F1BM0750
	00143	0 40200 0 00253	79		SUB	COMMA TEST TENTH CHAR FOR ,	F1BM0760
	00144	−0 10000 0 00033	80		TNZ	ADD01	F1BM0770
	00145	0 77000 0 00202	81	ADD93	WEF	2 THIS IS END CARD, TERMINATE FILE	F1BM0780
	00146	0 76200 0 00221	82		RTB	1 SKIP OVER MACHINE ERROR RECORD.	F1BM0790
	00147	0 02000 0 00004	83		TRA	4 GO TO 1-CS FOR SECTION ONE	F1BM0800
	00150	0 76400 0 00205	84	ADD80	BST	5 TAPE ERROR	F1BM0810
	00151	2 00001 4 00041	85		TIX	ADD015,4,1	F1BM0820
	00152	0 07400 4 00332	86		TSX	PRINT,4	F1BM0830
	00153	0 00301 0 00254	87			TP5ERR,0,TP5END	F1BM0840
	00154	0 76000 0 00143	88	SPROER	SLN	3 SL3-ON IF TAPE CANNOT BE READ OR END CARD	F1BM0850
	00155	0 76400 0 00201	89	BSTRTN	BST	1 TROUBLE.	F1BM0860
	00156	0 76400 0 00201	90		BST	1 BACKSPACE SYSTEM TAPE TO SOURCE PROGRAM ERROR	F1BM0870
	00157	0 76400 0 00201	91		BST	1 RECORD.	F1BM0880
	00160	0 02000 0 00004	92		TRA	4 CALL IN 1 - CS.	F1BM0890
	00161	−0 76000 0 00141	93	ADD90	SLT	1 IS THERE A PROBLEM TO BE COMPILED	F1BM0900
	00162	0 02000 0 00167	94		TRA	ADD91 FINISHED, REWIND ALL TYPES	F1BM0910
	00163	0 07400 4 00332	95		TSX	PRINT,4	F1BM0920
	00164	0 00315 0 00301	96			ENDCD,0,CDTEND	F1BM0930
	00165	0 77200 0 00205	97		REW	5	F1BM0940
	00166	0 02000 0 00154	98		TRA	SPROER	F1BM0950
	00167	0 76400 0 00201	99	ADD91	BST	1	F1BM0970
	00170	0 77200 0 00206	100		REW	6	F1BM0974
	00171	0 77200 0 00205	101		REW	5	F1BM0976
	00172	0 07400 4 00332	102		TSX	PRINT,C	F1BM0980
	00173	0 00332 0 00315	103			REMA,0,ENDA	F1BM0990
	00174	0 07400 4 00332	104		TSX	PRINT,C	F1BM1000
	00175	0 00216 0 00215	105		HTR	RESTR,0,RESTR+1	F1BM1010
	00176	0 16100 0 00177	106		TQO	*+1	F1BM1020
	00177	0 02000 0 00155	107		TRA	BSTRTN	F1BM1030
	00200	−0 75400 0 00000	108	SUB1	PXD	0,0 SUBROUTINE TO BRING NEXT NON BLANK	F1BM1040
	00201	2 00001 2 00205	109		TIX	ADD50,2,1 CHAR OF BUFFER REGION TO AC.	F1BM1050
	00202	0 53400 2 00240	110		LXA	L(6),2	F1BM1060
	00203	0 56000 1 00234	111		LDQ	BUFFER,1	F1BM1070
	00204	1 77777 1 00205	112		TXI	ADD50,1,−1	F1BM1080
	00205	−0 76300 0 00006	113	ADD50	LGL	6	F1BM1090
	00206	0 34000 0 00246	114		CAS	BLANK	F1BM1100
	00207	0 02000 0 00211	115		TRA	ADD51	F1BM1110
	00210	0 02000 0 00200	116		TRA	SUB1	F1BM1120
	00211	0 34000 0 00235	117	ADD51	CAS	ENDMK	F1BM1130
	00212	0 02000 4 00001	118		TRA	1,4	F1BM1140
	00213	0 02000 0 00033	119		TRA	ADD01	F1BM1150
	00214	0 02000 4 00001	120		TRA	1,4	F1BM1160
	00215	016060606060	121	RESTR	BCD	11␣␣␣␣␣	F1BM1165
		00234	122	BUFFER	BES	14	F1BM1170
	00234	−377777777777	123		OCT	777777777777	F1BM1180
	00235	+000000000077	124	ENDMK	OCT	77	F1BM1190
	00236	0 00000 0 00003	125	L(3)		3	F1BM1200
	00237	0 00000 0 00005	126	L(5)		5	F1BM1210
	00240	0 00000 0 00006	127	L(6)		6	F1BM1220
	00241	0 00000 0 00007	128	L(7)		7	F1BM1230
	00242	0 00000 0 00014	129	L(12)		12	F1BM1240
	00243	0 00000 0 00016	130	L(14)		14	F1BM1250
	00244	000000000023	131	L(C)	BCD	100000C	F1BM1260
	00245	606060606060	132	BLANKS	BCD	1␣␣␣␣␣␣	F1BM1270
	00246	000000000060	133	BLANK	BCD	100000␣	F1BM1280
	00247	000000000025	134	L(E)	BCD	100000E	F1BM1290
	00250	000000000045	135	L(N)	BCD	100000N	F1BM1300
	00251	000000000024	136	L(D)	BCD	100000D	F1BM1310
	00252	000000000074	137	L(()	BCD	100000(	F1BM1320
	00253	000000000073	138	COMMA	BCD	100000,	F1BM1330
	00254	006060606060	139	TP5ERR	BCD	90␣␣␣␣␣TAPE␣5␣CONTAINING␣SOURCE␣SUBPROGRAM␣READ␣5␣TIMES	F1BM1340
	00255	632147256005	140
	00256	602346456321	141
	00257	314531452760	142
	00260	624664512325	143
	00261	606264224751	144
	00262	462751214460	145
	00263	512521246005	146
	00264	606331442562	147
	00265	606445626423	148		BCD	9␣UNSUCCESSFULLY.␣TAPE␣5␣NOW␣POSITIONED␣AT␣RECORD␣WHICH	F1BM1350
	00266	232562622664	149
	00267	434370336063	150
	00270	214725600560	151
	00271	454666604746	152
	00272	623163314645	153
	00273	252460216360	154
	00274	512523465124	155
	00275	606630312330	156
	00276	602321454546	157		BCD	3␣CANNOT␣BE␣␣READ.␣	F1BM1360
	00277	636022256060	158
	00300	512521243360	159
		00301	160	TP5END	BSS	0	F1BM1370
	00301	006060606060	161	ENDCD	BCD	90␣␣␣␣␣END␣CARD␣MISSING␣OR␣MISPUNCHED␣FOR␣LAST␣SUBPROGR	F1BM1380
	00302	254524602321	162
	00303	512460443162	163
	00304	623145276046	164
	00305	516044316247	165
	00306	644523302524	166
	00307	602646516043	167
	00310	216263606264	168
	00311	224751462751	169
	00312	214460222531	170		BCD	3AM␣BEING␣COMPILED.	F1BM1390
	00313	452760234644	171
	00314	473143252433	172
		00315	173	CDTEND	BSS	0	F1BM1400
	00315	016060606060	174	REMA	BCD	71␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣	F1BM1410
	00316	606060606060	175
	00317	606060606060	176
	00320	606060606060	177
	00321	606060606060	178
	00322	606060606060	179
	00323	606060606060	180
	00324	606330256043	181		BCD	6␣THE␣LAST␣PROBLEM␣HAS␣BEEN␣PROCESSED	F1BM1420
	00325	216263604751	182
	00326	462243254460	183
	00327	302162602225	184
	00330	254560475146	185
	00331	232562622524	186
		00332	187	ENDA	BSS	0	F1BM1430
			188				F1BM1450
			189			PRINT CONTROL SUBROUTINE.	F1BM1460
		00001	190	A	EQU	1	F1BM1470
		00002	191	B	EQU	2	F1BM1480
		00004	192	C	EQU	4	F1BM1490
		00332	193	PRINT	BSS	0	F1BM1500
	00332	0 50000 4 00001	194	RAN	CLA	1,4	F1BM1510
	00333	0 62100 0 00374	195		STA	RNA	F1BM1520
	00334	0 77100 0 00022	196		ARS	18	F1BM1530
	00335	0 60100 0 00375	197		STO	RNB	F1BM1540
	00336	−0 63400 4 00376	198		SXD	RNC,4	F1BM1550
	00337	0 50000 0 00374	199	RN40	CLA	RNA	F1BM1560
	00340	0 40000 0 00377	200		ADD	RND	F1BM1570
	00341	0 34000 0 00375	201		CAS	RNB	F1BM1580
	00342	0 76100 0 00000	202		NOP		F1BM1590
	00343	0 02000 0 00364	203		TRA	RN50	F1BM1600
	00344	0 76700 0 00022	204		ALS	18	F1BM1610
	00345	0 40000 0 00374	205		ADD	RNA	F1BM1620
	00346	0 60100 0 00350	206		STO	RAN10	F1BM1630
	00347	0 07400 4 00401	207		TSX	WOT,C	F1BM1640
A	00350	0 00000 0 00000	208	RAN10	HTR		F1BM1650
	00351	0 50000 0 00350	209		CLA	RAN10	F1BM1660
	00352	0 77100 0 00022	210		ARS	18	F1BM1670
	00353	0 40200 0 00400	211		SUB	RNE	F1BM1680
	00354	0 62100 0 00361	212		STA	RN20	F1BM1690
	00355	0 40200 0 00400	213		SUB	RNE	F1BM1700
	00356	0 62100 0 00362	214		STA	RN30	F1BM1710
	00357	0 62100 0 00374	215		STA	RNA	F1BM1720
	00360	0 50000 0 00613	216		CLA	BLNKS	F1BM1730
A	00361	0 60100 0 00000	217	RN20	STO		F1BM1740
A	00362	0 60100 0 00000	218	RN30	STO		F1BM1750
	00363	0 02000 0 00337	219		TRA	RN40	F1BM1760
	00364	0 50000 0 00375	220	RN50	CLA	RNB	F1BM1770
	00365	0 76700 0 00022	221		ALS	18	F1BM1780
	00366	0 40000 0 00374	222		ADD	RNA	F1BM1790
	00367	0 60100 0 00371	223		STO	RN60	F1BM1800
	00370	0 07400 4 00401	224		TSX	WOT,C	F1BM1810
A	00371	0 00000 0 00000	225	RN60	HTR		F1BM1820
	00372	−0 53400 4 00376	226		LXD	RNC,C	F1BM1830
	00373	0 02000 4 00002	227		TRA	2,C	F1BM1840
A	00374	0 00000 0 00000	228	RNA	HTR		F1BM1850
A	00375	0 00000 0 00000	229	RNB	HTR		F1BM1860
A	00376	0 00000 0 00000	230	RNC	HTR		F1BM1870
	00377	0 00000 0 00024	231	RND	HTR	20	F1BM1880
	00400	0 00000 0 00001	232	RNE	HTR	1	F1BM1890
			233				F1BM1900
			234			PRINT SUBROUTINE.	F1BM1910
	00401	−0 63400 1 00551	235	WOT	SXD	X1,1	F1BM1920
	00402	−0 63400 2 00557	236		SXD	X2,2	F1BM1930
	00403	0 50000 4 00001	237		CLA	1,4 PRINT ROUTINE	F1BM1940
	00404	0 62100 0 00432	238		STA	T5 X	F1BM1950
	00405	0 62200 0 00614	239		STD	X4 X	F1BM1960
	00406	0 77100 0 00022	240		ARS	18 X	F1BM1970
	00407	0 40000 0 00614	241		ADD	X4 X	F1BM1980
	00410	0 62100 0 00463	242		STA	PR2 X	F1BM1990
	00411	0 62100 0 00510	243		STA	CI9 X	F1BM2000
	00412	0 40200 4 00001	244		SUB	1,4 B-A+1 IN AC	F1BM2010
	00413	0 10000 4 00002	245		TZE	2,4	F1BM2020
	00414	−0 12000 4 00002	246		TMI	2,4	F1BM2030
	00415	−0 63400 4 00614	247		SXD	X4,4	F1BM2040
	00416	0 73400 4 00013	248	L11	PAX	11,4	F1BM2050
	00417	−0 63400 4 00422	249		SXD	PR6,4	F1BM2060
	00420	−0 50000 0 00564	250		CAL	WP INITIALIZE SWITCH	F1BM2070
	00421	0 60100 0 00564	251		STO	WP X	F1BM2080
TD	00422	3 00000 0 00423	252	PR6	TXH	T4	F1BM2090
	00423	0 76600 0 00361	253	T4	WPR		F1BM2100
TD	00424	−3 00000 0 00430	254	Z2	TXL	S3	F1BM2110
ATD	00425	−3 00000 0 00000	255	OZ2	TXL		F1BM2120
	00426	0 76000 0 00364	256	SP4	SPR	4	F1BM2130
TD	00427	−3 00000 0 00461	257		TXL	RPR+2	F1BM2140
	00430	0 50200 0 00564	258	S3	CLS	WP SET SWITCH FOR MASKING	F1BM2150
	00431	0 60100 0 00564	259		STO	WP CHARACTER FROM TYPE WHEEL 1	F1BM2160
	00432	−0 50000 0 00432	260	T5	CAL	* OBTAIN FIRST CHARACTER	F1BM2170
	00433	0 77100 0 00036	261		ARS	30 X	F1BM2180
	00434	0 10000 0 00426	262		TZE	SP4 DOUBLE SPACE IF ZERO	F1BM2190
	00435	0 34000 0 00615	263		CAS	YZONE TEST FOR SPACE SUPPRESS	F1BM2200
TD	00436	−3 00000 0 00440	264		TXL	BK NO	F1BM2210
TD	00437	−3 00000 0 00460	265		TXL	RPR+1 SUPPRESS SPACE	F1BM2220
	00440	0 34000 0 00616	266	BK	CAS	BNK TEST FOR BLANK	F1BM2230
TD	00441	−3 00000 0 00443	267		TXL	DIGF NO	F1BM2240
TD	00442	−3 00000 0 00461	268		TXL	RPR+2 BLANK	F1BM2250
	00443	0 76000 0 00372	269	DIGF	SPR	10 SET CHANNEL SKIP	F1BM2260
	00444	−0 32000 0 00445	270		ANA	MK MASK OUT ZONE	F1BM2270
	00445	0 73400 1 00017	271	MK	PAX	15,1 OBTAIN SPR COMBINATION	F1BM2280
	00446	1 00001 1 00447	272		TXI	N2,1,1 X	F1BM2290
	00447	−2 00010 1 00451	273	N2	TNX	N3,1,8 X	F1BM2300
	00450	0 76000 0 00370	274		SPR	8 X	F1BM2310
	00451	−2 00004 1 00453	275	N3	TNX	N4,1,4 X	F1BM2320
	00452	0 76000 0 00364	276		SPR	4 X	F1BM2330
	00453	−2 00002 1 00455	277	N4	TNX	N5,1,2 X	F1BM2340
	00454	0 76000 0 00362	278		SPR	2 X	F1BM2350
	00455	−2 00001 1 00457	279	N5	TNX	RPR,1,1 X	F1BM2360
	00456	0 76000 0 00361	280		SPR	1 X	F1BM2370
	00457	0 76600 0 00361	281	RPR	WPR		F1BM2380
	00460	0 76000 0 00365	282		SPR	5 SUPPRESS SPACE	F1BM2390
	00461	0 50000 0 00613	283		CLA	BLNKS FIND LAST NON-BLANK GROUP	F1BM2400
	00462	−0 53400 4 00523	284		LXD	CI4,4 X	F1BM2410
	00463	0 34000 4 00000	285	PR2	CAS	0,4 X	F1BM2420
	00464	1 77777 4 00467	286		TXI	PR1,4,−1 X	F1BM2430
	00465	1 00001 4 00463	287		TXI	PR2,4,1 X	F1BM2440
	00466	1 77777 4 00467	288		TXI	PR1,4,−1 X	F1BM2450
	00467	−0 63400 4 00527	289	PR1	SXD	CI6,4 STORE END TEST	F1BM2460
	00470	−0 63400 4 00541	290		SXD	CI8,4 X	F1BM2470
	00471	−0 63400 4 00474	291		SXD	PR8,4 X	F1BM2480
	00472	−0 63400 4 00601	292		SXD	WP4,4 X	F1BM2490
	00473	−0 53400 4 00422	293		LXD	PR6,4 X	F1BM2500
D	00474	−2 00000 4 00500	294	PR8	TNX	PR5,4	F1BM2510
	00475	−3 00014 4 00477	295		TXL	PR3,4,12	F1BM2520
	00476	0 76000 0 00370	296		SPR	8 FIRST CYCLE	F1BM2530
	00477	−0 53400 4 00422	297	PR3	LXD	PR6,4 INITIALIZE GROUP COUNT	F1BM2540
	00500	0 53400 2 00502	298	PR5	LXA	PR7,2 INITIALIZE LEFT SETUP	F1BM2550
	00501	−0 53400 1 00544	299		LXD	YZ1,1 CLEAR CARD IMAGE	F1BM2560
T	00502	−0 75400 0 00000	300	PR7	PXD	X	F1BM2570
	00503	0 60200 1 00662	301	PR4	SLW	LT,1 X	F1BM2580
	00504	0 60200 1 00642	302		SLW	RT,1 X	F1BM2590
	00505	2 00001 1 00503	303		TIX	PR4,1,1 X	F1BM2600
	00506	−0 50000 0 00620	304	CIR	CAL	COL1 INITIALIZE COLUMN INDICATOR	F1BM2610
	00507	0 60200 0 00621	305	CI2	SLW	COL X	F1BM2620
	00510	0 56000 4 00000	306	CI9	LDQ	0,4 OBTAIN GROUP	F1BM2630
	00511	−0 63400 4 00425	307		SXD	OZ2,4 STORE GROUP COUNT	F1BM2640
	00512	0 53400 4 00514	308		LXA	Q6,4 SET CHARACTER COUNT	F1BM2650
T	00513	−0 75400 0 00000	309	CI1	PXD		F1BM2660
	00514	−0 76300 0 00006	310	Q6	LGL	6	F1BM2670
	00515	0 73400 1 00000	311		PAX	0,1	F1BM2680
	00516	−0 50000 0 00621	312		CAL	COL POSITION COLUMN INDICATOR	F1BM2690
	00517	0 77100 4 00006	313		ARS	6,4 X	F1BM2700
	00520	2 00020 1 00544	314		TIX	YZ1,1,16 TEST FOR DIGIT	F1BM2710
	00521	3 00017 1 00547	315		TXH	YZ2,1,15 TEST FOR Y-ZONE	F1BM2720
	00522	−0 60200 3 00657	316	CI5	ORS	D,3 STORE DIGIT	F1BM2730
	00523	2 00001 4 00513	317	CI4	TIX	CI1,4,1 COUNT CHARACTERS	F1BM2740
	00524	0 77100 0 00001	318	CI3	ARS	1 SHIFT AND TEST COLUMN	F1BM2750
	00525	−0 53400 4 00425	319		LXD	OZ2,4 RESTORE GROUP COUNT	F1BM2760
	00526	1 77777 4 00527	320		TXI	CI6,4,−1 COUNT GROUPS	F1BM2770
D	00527	−3 00000 4 00531	321	CI6	TXL	CI7,4 TEST FOR LAST NON-BLANK GROUP	F1BM2780
	00530	−0 10000 0 00507	322		TNZ	CI2 TEST FOR END OF ROW	F1BM2790
	00531	−0 50000 2 00644	323	CI7	CAL	8.3,2 FORM TRUE 8.4	F1BM2800
	00532	−0 60200 2 00647	324		ORS	D−8,2 AND 3 ROWS AND	F1BM2810
	00533	−0 60200 2 00654	325		ORS	D−3,2 MOVE 8.4 AND 8.3	F1BM2820
	00534	0 60200 2 00645	326		SLW	8.2,2 ROWS	F1BM2830
	00535	−0 50000 2 00643	327		CAL	8.4,2 FORM TRUE 8.4	F1BM2840
	00536	−0 60200 2 00647	328		ORS	D−8,2 X	F1BM2850
	00537	−0 60200 2 00653	329		ORS	D−4,2 X	F1BM2860
	00540	0 60200 2 00644	330		SLW	8.3,2 X	F1BM2870
D	00541	−3 00000 4 00564	331	CI8	TXL	WP,4 TEST FOR END	F1BM2880
	00542	3 00017 2 00564	332		TXH	WP,2,15 TEST FOR RIGHT HALF	F1BM2890
	00543	1 00020 2 00506	333		TXI	CIR,2,16 INITIALIZE RIGHT HALF	F1BM2900
	00544	2 00020 1 00552	334	YZ1	TIX	XZ1,1,16 TEST FOR 16/CH/32	F1BM2910
	00545	3 00017 1 00555	335		TXH	XZ2,1,15 TEST FOR X-ZONE	F1BM2920
	00546	−0 60200 3 00657	336		ORS	D,3 STORE DIGIT	F1BM2930
	00547	−0 60200 2 00661	337	YZ2	ORS	Y,2 STORE Y-ZONE	F1BM2940
	00550	2 00001 4 00513	338		TIX	CI1,4,1 COUNT CHARACTERS	F1BM2950
TD	00551	−3 00000 0 00524	339	X1	TXL	CI3 OBTAIN NEXT GROUP	F1BM2960
	00552	2 00020 1 00560	340	XZ1	TIX	OZ1,1,16 TEST FOR 32/CH/48	F1BM2970
	00553	3 00017 1 00523	341		TXH	CI4,1,15 TEST FOR BLANK	F1BM2980
	00554	−0 60200 3 00657	342		ORS	D,3 STORE DIGIT	F1BM2990
	00555	−0 60200 2 00660	343	XZ2	ORS	X,2 STORE X-ZONE	F1BM3000
	00556	2 00001 4 00513	344		TIX	CI1,4,1 COUNT CHARACTERS	F1BM3010
TD	00557	−3 00000 0 00524	345	X2	TXL	CI3 OBTAIN NEXT GROUP	F1BM3020
	00560	−0 60200 2 00657	346	OZ1	ORS	Z,2 STORE 0-ZONE	F1BM3030
	00561	−0 60200 3 00657	347		ORS	D,3 STORE DIGIT	F1BM3040
	00562	2 00001 4 00513	348		TIX	CI1,4,1 COUNT CHARACTERS	F1BM3050
TD	00563	−3 00000 0 00524	349		TXL	CI3	F1BM3060
TD	00564	3 00000 0 00566	350	WP	TXH	WP9 INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL	F1BM3070
TD	00565	−3 00000 0 00572	351		TXL	WP7 NO PROGRAM	F1BM3080
	00566	−0 53400 1 00612	352	WP9	LXD	WP2,1 MASK OUT FIRST COL. OF CARD IMAGE	F1BM3090
	00567	−0 50000 0 00617	353		CAL	MK2 X	F1BM3100
	00570	0 32000 1 00662	354	ANS	ANS	LT,1 X	F1BM3110
	00571	2 00001 1 00570	355		TIX	ANS,1,1 X	F1BM3120
	00572	−0 53400 1 00424	356	WP7	LXD	Z2,1 COPY LOOP	F1BM3130
	00573	0 70000 1 00646	357	CRAN	CPY	LT−12,1	F1BM3140
	00574	0 70000 1 00626	358		CPY	RT−12,1 X	F1BM3150
	00575	1 77777 1 00576	359		TXI	T2,1,−1	F1BM3160
	00576	3 77764 1 00573	360	T2	TXH	CRAN,1,−12	F1BM3170
	00577	−0 50000 0 00564	361		CAL	WP RESET SWITCH FOR SECOND CYCLE	F1BM3180
	00600	0 60100 0 00564	362		STO	WP X	F1BM3190
D	00601	3 00000 4 00610	363	WP4	TXH	WP5,4	F1BM3200
	00602	−0 53400 1 00551	364		LXD	X1,1 NO, RELOAD INDEX REGISTERS AND RETURN	F1BM3210
	00603	−0 53400 2 00557	365		LXD	X2,2 X	F1BM3220
	00604	−0 53400 4 00614	366	WT2	LXD	X4,4 X	F1BM3230
	00605	0 02000 4 00002	367	L2	TRA	2,4 X	F1BM3240
	00606	0 76600 0 00361	368	RPR2	WPR		F1BM3250
TD	00607	−3 00000 0 00461	369		TXL	PR2−2	F1BM3260
	00610	0 76600 0 00361	370	WP5	WPR		F1BM3270
	00611	0 76000 0 00371	371		SPR	9 SECOND CYCLE	F1BM3280
	00612	−3 00014 0 00500	372	WP2	TXL	PR5,0,12 CONVERT REST OF LINE	F1BM3290
	00613	606060606060	373	BLNKS	BCD	1␣␣␣␣␣␣	F1BM3300
A	00614	0 00000 0 00000	374	X4	HTR		F1BM3310
	00615	+000000000020	375	YZONE	OCT	20	F1BM3320
	00616	+000000000060	376	BNK	OCT	60	F1BM3330
	00617	+377777777777	377	MK2	OCT	377777777777	F1BM3340
	00620	−0 00000 0 00000	378	COL1	MZE		F1BM3350
		00621	379	COL	BSS	1	F1BM3360
		00642	380	RT	BES	16	F1BM3370
		00642	381	8.5	BSS	1	F1BM3380
		00643	382	8.4	BSS	1	F1BM3390
		00644	383	8.3	BSS	1	F1BM3400
		00645	384	8.2	BSS	1	F1BM3410
		00657	385	D	BES	9	F1BM3420
		00657	386	Z	BSS	1	F1BM3430
		00660	387	X	BSS	1	F1BM3440
		00661	388	Y	BSS	1	F1BM3450
		00662	389	LT	SYN	Y+1	F1BM3460
		00644	390	8.4L	SYN	LT−14	F1BM3470
		00624	391	8.4R	SYN	RT−14	F1BM3480
		00662	392		BSS	27	F1BM3490