1			CONTROL CARD FOR SPH.	SPH/C01
		00000	2		ORG	0	SPH/C02
	00000	0 00000 0 00236	3		PZE	COL1+1	SPH/C03
	00001	0 00000 0 77653	4		PZE	COMMON	SPH/C04
	00002	746247303460	5		BCD	1(SPH)␣	SPH/C05
	00003	0 00000 0 00003	6			3	SPH/C06
			7			END OF SPH CONTROL CARD.	SPH/C07
			8			SPH FOR FORTRAN II	SPH 0001
		00000	9		ORG	0	SPH 0002
		77653	10	COMMON	SYN	−85	SPH 0003
	00000	−0 53400 1 00140	11	RPT	LXD	X1,1 PREPARE TO CAUSE LINE	SPH 0004
	00001	−0 53400 2 00146	12		LXD	X2,2 TO BE PRINTED AGAIN AND THE	SPH 0005
	00002	−0 53400 4 00031	13		LXD	X4,4 PROGRAM TO CONTINUE	SPH 0006
	00003	0 50000 4 00001	14	LMT	CLA	1,4 OBTAIN STARTING LOCATION OF BUFFER AREA *	SPH 0007
	00004	0 62100 0 00021	15		STA	T5 SUPPLY ADDRESS	SPH 0008
	00005	0 77100 0 00022	16		ARS	18 * FOR LINE IMAGE IN BCD	SPH 0009
	00006	0 40000 4 00001	17		ADD	1,4 X	SPH 0010
	00007	−0 63400 1 00140	18		SXD	X1,1	SPH 0011
	00010	−0 63400 2 00146	19		SXD	X2,2	SPH 0012
	00011	−0 63400 4 00031	20		SXD	X4,4	SPH 0013
	00012	−0 73400 4 00013	21	L11	PDX	11,4 SAVE LOCATION	SPH 0014
	00013	0 62100 0 00052	22		STA	PR2	SPH 0015
	00014	0 62100 0 00077	23		STA	CI9	SPH 0016
	00015	−0 63400 4 00026	24		SXD	PR6,4 SAVE LOCATION	SPH 0017
	00016	−0 50000 0 00222	25		CAL	DEL	SPH 0018
	00017	0 60200 0 00104	26		SLW	1ST	SPH 0019
	00020	0 76200 0 00361	27	T4	RPR	SELECT PRINTER	SPH 0020
	00021	−0 50000 0 00021	28	T5	CAL	* OBTAINFIRST CHARACTER	SPH 0021
	00022	0 77100 0 00036	29		ARS	30 X	SPH 0022
	00023	0 10000 0 00220	30		TZE	SP4 DOUBLE SPACE IF ZERO	SPH 0023
	00024	0 34000 0 00233	31		CAS	YZONE TEST FOR SPACE SUPPRESS	SPH 0024
TD	00025	−3 00000 0 00027	32	Z2	TXL	BK NO	SPH 0025
TD	00026	−3 00000 0 00047	33	PR6	TXL	RPR+1 SUPPRESS SPACE	SPH 0026
	00027	0 34000 0 00234	34	BK	CAS	BNK TEST FOR BLANK	SPH 0027
TD	00030	−3 00000 0 00032	35	OZ2	TXL	DIGF 100	SPH 0028
TD	00031	−3 00000 0 00050	36	X4	TXL	RPR+2	SPH 0029
	00032	0 76000 0 00372	37	DIGF	SPR	10 SET 0HANNEL SKIP	SPH 0030
	00033	−0 32000 0 00034	38		ANA	MK MASK OUT ZONE	SPH 0031
	00034	0 73400 1 00017	39	MK	PAX	15,1 OBTAIN SPR COMBINATION	SPH 0032
	00035	1 00001 1 00036	40		TXI	N2,1,1 X	SPH 0033
	00036	−2 00010 1 00040	41	N2	TNX	N3,1,8 X	SPH 0034
	00037	0 76000 0 00370	42		SPR	8 X	SPH 0035
	00040	−2 00004 1 00042	43	N3	TNX	N4,1,4 X	SPH 0036
	00041	0 76000 0 00364	44		SPR	4 X	SPH 0037
	00042	−2 00002 1 00044	45	N4	TNX	N5,1,2 X	SPH 0038
	00043	0 76000 0 00362	46		SPR	2 X	SPH 0039
	00044	−2 00001 1 00046	47	N5	TNX	RPR,1,1 X	SPH 0040
	00045	0 76000 0 00361	48		SPR	1 X	SPH 0041
	00046	0 76200 0 00361	49	RPR	RPR	SELECT PRINTER AGAIN	SPH 0042
	00047	0 76000 0 00365	50		SPR	5 SUPPRESS SPACE	SPH 0043
	00050	0 50000 0 00232	51		CLA	BLNKS FIND LAST NON-BLANK GROUP	SPH 0044
	00051	−0 53400 4 00112	52		LXD	CI4,4 X	SPH 0045
	00052	0 34000 4 00000	53	PR2	CAS	0,4 X	SPH 0046
	00053	1 77777 4 00056	54		TXI	PR1,4,−1 X	SPH 0047
	00054	1 00001 4 00052	55		TXI	PR2,4,1 X	SPH 0048
	00055	1 77777 4 00056	56		TXI	PR1,4,−1 X	SPH 0049
	00056	−0 63400 4 00116	57	PR1	SXD	CI6,4 STORE END TEST	SFH 0050
	00057	−0 63400 4 00130	58		SXD	CI8,4 X	SPH 0051
	00060	−0 63400 4 00063	59		SXD	PR8,4 X	SPH 0052
	00061	−0 63400 4 00213	60		SXD	WP4,4 X	SPH 0053
	00062	−0 53400 4 00026	61		LXD	PR6,4 X	SPH 0054
D	00063	−2 00000 4 00067	62	PR8	TNX	PR5,4	SPH 0055
	00064	−3 00014 4 00066	63		TXL	PR3,4,12	SPH 0056
	00065	0 76000 0 00370	64		SPR	8 FIRST CYCLE	SPH 0057
	00066	−0 53400 4 00026	65	PR3	LXD	PR6,4 INITIALIZE GROUP COUNT	SPH 0058
	00067	0 53400 2 00071	66	PR5	LXA	PR7,2 INITIALIZE LEFT SETUP	SPH 0059
	00070	−0 53400 1 00133	67		LXD	YZ1,1 CLEAR CARD IMAGE	SPH 0060
T	00071	−0 75400 0 00000	68	PR7	PXD	X	SPH 0061
	00072	0 60200 1 77714	69	PR4	SLW	LT,1 X	SPH 0062
	00073	0 60200 1 77674	70		SLW	RT,1 X	SPH 0063
	00074	2 00001 1 00072	71		TIX	PR4,1,1 X	SPH 0064
	00075	−0 50000 0 00235	72	CIR	CAL	COL1 INITIALIZE COLUMN INDICATOR	SPH 0065
	00076	0 60200 0 77653	73	CI2	SLW	COL X	SPH 0066
	00077	0 56000 4 00000	74	CI9	LDQ	0,4 OBTAIN GROUP	SPH 0067
	00100	−0 63400 4 00030	75		SXD	OZ2,4 STORE GROUP COUNT	SPH 0068
	00101	0 53400 4 00103	76		LXA	Q6,4 SET CHARACTER COUNT	SPH 0069
T	00102	−0 75400 0 00003	77	CI1	PXD	LMT	SPH 0070
	00103	−0 76300 0 00006	78	Q6	LGL	6	SPH 0071
	00104	0 73400 1 00000	79	1ST	PAX	0,1	SPH 0072
	00105	−0 50000 0 77653	80		CAL	COL POSITION COLUMN INDICATOR	SPH 0073
	00106	0 77100 4 00006	81		ARS	6,4 X	SPH 0074
	00107	2 00020 1 00133	82		TIX	YZ1,1,16 TEST FOR DIGIT	SPH 0075
	00110	3 00017 1 00136	83		TXH	YZ2,1,15 TEST FOR Y-ZONE	SPH 0076
	00111	−0 60200 3 77711	84	CI5	ORS	D,3 STORE DIGIT	SPH 0077
	00112	2 00001 4 00102	85	CI4	TIX	CI1,4,1 COUNT CHARACTERS	SPH 0078
	00113	0 77100 0 00001	86	CI3	ARS	1 SHIFT AND TEST COLUMN	SPH 0079
	00114	−0 53400 4 00030	87		LXD	OZ2,4 RESTORE GROUP COUNT	SPH 0080
	00115	1 77777 4 00116	88		TXI	CI6,4,−1 COUNT GROUPS	SPH 0081
D	00116	−3 00000 4 00120	89	CI6	TXL	CI7,4 TEST FOR LAST NON-BLANK GROUP	SPH 0082
	00117	−0 10000 0 00076	90		TNZ	CI2 TEST FOR END OF ROW	SPH 0083
	00120	−0 50000 2 77676	91	CI7	CAL	8.3,2 FORM TRUE 8.4	SPH 0084
	00121	−0 60200 2 77701	92		ORS	D−8,2 AND 3 ROWS AND	SPH 0085
	00122	−0 60200 2 77706	93		ORS	D−3,2 MOVE 8.4 AND 8.3	SPH 0086
	00123	0 60200 2 77677	94		SLW	8.2,2 ROWS	SPH 0087
	00124	−0 50000 2 77675	95		CAL	8.4,2 FORM TRUE 8.4	SPH 0088
	00125	−0 60200 2 77701	96		ORS	D−8,2 X	SPH 0089
	00126	−0 60200 2 77705	97		ORS	D−4,2 X	SPH 0090
	00127	0 60200 2 77676	98		SLW	8.3,2 X	SPH 0091
D	00130	−3 00000 4 00153	99	CI8	TXL	WP,4 TEST FOR END	SPH 0092
	00131	3 00017 2 00153	100		TXH	WP,2,15 TEST FOR RIGHT HALF	SPH 0093
	00132	1 00020 2 00075	101		TXI	CIR,2,16 INITIALIZE RIGHT HALF	SPH 0094
	00133	2 00020 1 00141	102	YZ1	TIX	XZ1,1,16 TEST FOR I6/CH/32	SPH 0095
	00134	3 00017 1 00144	103		TXH	XZ2,1,15 TEST FOR X-ZONE	SPH 0096
	00135	−0 60200 3 77711	104		ORS	D,3 STORE DIGIT	SPH 0097
	00136	−0 60200 2 77713	105	YZ2	ORS	Y,2 STORE Y-ZONE	SPH 0098
	00137	2 00001 4 00102	106		TIX	CI1,4,1 C0UNT CHARACTERS	SPH 0099
TD	00140	−3 00000 0 00113	107	X1	TXL	CI3 OBTAIN NEXT GROUP	SPH 0100
	00141	2 00020 1 00147	108	XZ1	TIX	OZ1,1,16 TEST FOR 32/CH/48	SPH 0101
	00142	3 00017 1 00112	109		TXH	CI4,1,15 TEST FOR BLANK	SPH 0102
	00143	−0 60200 3 77711	110		ORS	D,3 STORE DIGIT	SPH 0103
	00144	−0 60200 2 77712	111	XZ2	ORS	X,2 STORE X-ZONE	SPH 0104
	00145	2 00001 4 00102	112		TIX	CI1,4,1 COUNT CHARACTERS	SPH 0105
TD	00146	−3 00000 0 00113	113	X2	TXL	CI3 OBTAIN NEXT GROUP	SPH 0106
	00147	−0 60200 2 77711	114	OZ1	ORS	Z,2 STORE 0-ZONE	SPH 0107
	00150	−0 60200 3 77711	115		ORS	D,3 STORE DIGIT	SPH 0108
	00151	2 00001 4 00102	116		TIX	CI1,4,1 COUNT CHARACTERS	SPH 0109
TD	00152	−3 00000 0 00113	117		TXL	CI3	SPH 0110
	00153	−0 53400 1 00025	118	WP	LXD	Z2,1 COPY LOOP	SPH 0111
	00154	0 70000 1 77700	119	C	CPY	LT−12,1 CARD IMAGE COPIES	SPH 0112
	00155	0 70000 1 77660	120		CPY	RT−12,1 X	SPH 0113
	00156	1 77777 1 00157	121		TXI	T2,1,−1	SPH 0114
	00157	3 77767 1 00154	122	T2	TXH	C,1,−9 TEST FOR ECHO	SPH 0115
	00160	0 70000 1 77703	123		CPY	LECHO−9,1 ECHO COPIES	SPH 0116
	00161	0 70000 1 77716	124		CPY	RECHO−9,1 X	SPH 0117
	00162	3 77764 1 00154	125		TXH	C,1,−12 TEST FOR END OF CARD IMAGE	SPH 0118
	00163	3 77755 1 00156	126		TXH	T2−1,1,−19 TEST FOR END OF ECHOS	SPH 0119
	00164	0 53400 1 00217	127		LXA	L2,1	SPH 0120
	00165	−0 50000 1 77716	128	CL	CAL	LECHO+2,1 8.3 AND 8.4 ECHOS INTO	SPH 0121
	00166	−0 60200 0 77717	129		ORS	LECHO+3 8 AND 3 AND 4 ECHO R0WS	SPH 0122
	00167	−0 60200 1 77725	130		ORS	LECHO+9,1 X	SPH 0I23
	00170	−0 50000 1 77731	131		CAL	RECHO+2,1 X	SPH 0124
	00171	−0 60200 0 77732	132		ORS	RECHO+3 X	SPH 0125
	00172	−0 60200 1 77740	133		ORS	RECHO+9,1 X	SPH 0126
	00173	2 00001 1 00165	134		TIX	CL,1,1 X	SPH 0127
	00174	0 53400 1 00012	135		LXA	L11,1	SPH 0128
	00175	−0 50000 1 77711	136	T9	CAL	8.4L+11,1 LEFT ECHO CHECK	SPH 0129
	00176	0 76000 0 00006	137		COM	X	SPH 0130
	00177	0 36100 1 77727	138		ACL	LECHO+11,1 X	SPH 0131
	00200	0 76000 0 00006	139		COM	X	SPH 0132
	00201	−0 10000 0 00207	140		TNZ	ERRL LEFT ECHO CHECK EPROR	SPH 0133
	00202	−0 50000 1 77671	141	R	CAL	8.4R+11,1 RIGHT ECHO CHECK	SPH 0134
	00203	0 76000 0 00006	142		COM	X	SPH 0135
	00204	0 36100 1 77742	143		ACL	RECHO+11,1 X	SPH 0136
	00205	0 76000 0 00006	144		COM	X	SPH 0137
	00206	0 10000 0 00212	145		TZE	ERR+1 RIGHT ECHO CHECK ERROR	SPH 0138
	00207	0 56000 0 00226	146	ERRL	LDQ	RES SET UP FOR SECOND ATTEMPT TO PRINT LINE	SPH 0139
	00210	−0 60000 0 00000	147		STQ	0 X	SPH 0140
	00211	0 42000 4 00000	148	ERR	HPR	0,4 ECHO CHECK ERROR. RESTART OR CONTINUE	SPH 0141
	00212	2 00001 1 00175	149		TIX	T9,1,1 CONTINUE	SPH 0142
D	00213	3 00000 4 00227	150	WP4	TXH	WP5,4 TEST FOR SECOND CYCLE	SPH 0143
	00214	−0 53400 1 00140	151		LXD	X1,1 NO, RELOAD INDEX REGISTERS AND RETURN	SPH 0144
	00215	−0 53400 2 00146	152		LXD	X2,2 X	SPH 0145
	00216	−0 53400 4 00031	153	WT2	LXD	X4,4 X	SPH 0I46
	00217	0 02000 4 00002	154	L2	TRA	2,4 X	SPH 0147
	00220	0 76000 0 00364	155	SP4	SPR	4 DOUBLE SPACE	SPH 0148
TD	00221	−3 00000 0 00050	156		TXL	RPR+2	SPH 0149
TD	00222	−3 00000 0 00223	157	DEL	TXL	FIX	SPH 0150
	00223	−0 50000 0 00034	158	FIX	CAL	MK	SPH 0151
	00224	0 60200 0 00104	159		SLW	1ST	SPH 0152
	00225	2 00001 4 00102	160		TIX	CI1,4,1	SPH 0153
	00226	0 02000 0 00000	161	RES	TRA	RPT	SPH 0154
	00227	0 76200 0 00361	162	WP5	RPR	SELECT PRINTER AGAIN	SPH 0155
	00230	0 76000 0 00371	163		SPR	9 SECOND CYCLE	SPH 0156
	00231	−3 00014 0 00067	164	WP2	TXL	PR5,0,12 CONVERT REST OF LINE	SPH 0157
	00232	606060606060	165	BLNKS	BCD	1␣␣␣␣␣␣	SPH 0158
	00233	+000000000020	166	YZONE	OCT	20	SPH 0159
	00234	+000000000060	167	BNK	OCT	60	SPH 0160
	00235	−0 00000 0 00000	168	COL1	MZE		SPH 0I61
		77653	169		ORG	COMMON	SPH 0162
		77653	170	COL	BSS	1	SPH 0163
		77674	171	RT	BES	16	SPH 0164
		77674	172	8.5	BSS	1	SPH 0165
		77675	173	8.4	BSS	1	SPH 0166
		77676	174	8.3	BSS	1	SPH 0167
		77677	175	8.2	BSS	1	SPH 0168
		77711	176	D	BES	9	SPH 0169
		77711	177	Z	BSS	1	SPH 0170
		77712	178	X	BSS	1	SPH 0I71
		77713	179	Y	BSS	1	SPH 0172
		77714	180	LT	SYN	Y+1	SPH 0173
		77676	181	8.4L	SYN	LT−14	SPH 0174
		77656	182	8.4R	SYN	RT−14	SPH 0175
		77714	183	LECHO	BSS	11	SPH 0I76
		77727	184	RECHO	BSS	11	SPH 0177
		00102	185	(SPH)	SYN	CI1	SFH 0178