1			CONTROL CARD FOR CSH.	CSH/C01
		00000	2		ORG	0	CSH/C02
	00000	0 00000 0 00211	3		PZE	C7+13	CSH/C03
	00001	0 00000 0 77767	4		PZE	COMMON	CSH/C04
	00002	742362303460	5		BCD	1(CSH)␣	CSH/C05
	00003	0 00000 0 00003	6			3	CSH/C06
			7			END OF CSH CONTROL CARD	CSH/C07
			8			CSH FOR FORTRAN II	CSH 0001
		00000	9		ORG	0	CSH 0002
		77767	10	COMMON	SYN	−9	CSH 0003
	00000	0 42000 2 00000	11	B17	HPR	0,2 NON-H0LLERITH CHARACTER ON CARD	CSH 0004
	00001	−0 53400 1 00016	12		LXD	B2,1 RESTART AFTER ERROR	CSH 0005
	00002	−0 53400 2 00020	13		LXD	B3,2 X	CSH 0006
	00003	0 76200 0 00321	14	RDBCD	RCD		CSH 0007
	00004	0 70000 0 77776	15		CPY	L	CSH 0008
TD	00005	−3 00000 0 00007	16		TXL	B1 X	CSH 0009
	00006	0 02000 4 00002	17		TRA	2,4 END OF FILE EXIT	CSH 0010
	00007	−0 60000 0 77770	18	B1	STQ	LS SET LEFT SUM	CSH 0011
	00010	−0 63400 1 00016	19		SXD	B2,1 SAVE INDEX REGISTERS	CSH 0012
	00011	−0 63400 2 00020	20		SXD	B3,2 X	CSH 0013
	00012	−0 53400 1 00026	21		LXD	B4,1 SET DIGIT ROW COUNT	CSH 0014
	00013	0 70000 0 77777	22		CPY	R COPY 9 RIGHT ROW AND	CSH 0015
	00014	−0 60000 0 77771	23		STQ	RS SET RIGHT SUM	CSH 0016
	00015	0 07400 2 00156	24		TSX	C1,2 ENTER CONVERSION LOOP	CSH 0017
TD	00016	−3 00000 0 00021	25	B2	TXL	B5 LEAVE CONVERSION LOOP	CSH 0018
	00017	0 76700 0 00001	26		ALS	1	CSH 0019
TD	00020	−3 00000 0 00064	27	B3	TXL	C2 INITIALIZE BCD RECORD	CSH 0020
	00021	0 70000 0 77772	28	B5	CPY	8L COPY 8 ROW AND	CSH 0021
	00022	−0 60000 0 77770	29		STQ	LS USE AS SUM	CSH 0022
	00023	0 70000 0 77773	30		CPY	8R X	CSH 0023
	00024	−0 60000 0 77771	31		STQ	RS X	CSH 0024
	00025	0 07400 2 00156	32		TSX	C1,2 ENTER CONVERSION LOOP	CSH 0025
	00026	−3 00010 0 00031	33	B4	TXL	B6,0,8 LEAVE CONVERSION LOOP	CSH 0026
	00027	0 76700 0 00003	34		ALS	3 ADD 8 TIMES 8 ROW	CSH 0027
TD	00030	−3 00000 0 00063	35		TXL	C3 X	CSH 0028
	00031	−0 50000 0 77776	36	B6	CAL	L USE 9 ROW AS SUM	CSH 0029
	00032	0 60200 0 77770	37		SLW	LS X	CSH 0030
	00033	−0 50000 0 77777	38		CAL	R X	CSH 0031
	00034	0 60200 0 77771	39		SLW	RS X	CSH 0032
	00035	−3 00001 1 00112	40	B13	TXL	B7,1,1 TEST FOR ZERO ROW	CSH 0033
	00036	0 70000 0 77776	41	B14	CPY	L C0PY LEFT ROW AND	CSH 0034
TD	00037	−3 00000 0 00073	42		TXL	B8 TEST FOR END OF RECORD	CSH 0035
	00040	0 02000 0 00000	43		TRA	B17	CSH 0036
	00041	−0 50000 0 77770	44	B9	CAL	LS SAVE LEFT ZONE SUM	CSH 0037
	00042	0 60200 0 77776	45		SLW	L X	CSH 0038
	00043	−0 50000 0 77772	46		CAL	LDS FORM INDICATOR FOR	CSH 0039
	00044	0 76000 0 00006	47		COM	ZERO AND X AND / OR Y	CSH 0040
	00045	−0 32000 0 77774	48		ANA	LZ IN LEFT ROWS	CSH 0041
	00046	0 32000 0 77770	49		ANS	LS X	CSH 0042
	00047	−0 50000 0 77771	50		CAL	RS SAVE RIGHT ZONE SUM	CSH 0043
	00050	0 60200 0 77777	51		SLW	R X	CSH 0044
	00051	−0 50000 0 77773	52		CAL	RDS FORM INDICATOR FOR	CSH 0045
	00052	0 76000 0 00006	53		COM	ZERO AND X AND/OR Y	CSH 0046
	00053	−0 32000 0 77775	54		ANA	RZ IN RIGHT ROWS	CSH 0047
	00054	0 32000 0 77771	55		ANS	RS X	CSH 004B
	00055	0 07400 2 00156	56		TSX	C1,2 ENTER CONVERSION LOOP	CSH 0049
TD	00056	−3 00000 0 00132	57		TXL	B15 LEAVE CONVERSION LOOP	CSH 0050
	00057	0 60200 0 77767	58		SLW	TP MULTIPLY INDICATOR	CSH 0051
	00060	0 76700 0 00002	59		ALS	2 BITS BY TEN	CSH 0052
	00061	0 36100 0 77767	60		ACL	TP X	CSH 0053
	00062	0 76700 0 00001	61		ALS	1 X	CSH 0054
	00063	0 36100 1 00000	62	C3	ACL	0,1 ADD T0 BCD RECORD	CSH 0055
	00064	0 60200 1 00000	63	C2	SLW	0,1 STORE IN BCD RECORD	CSH 0056
	00065	2 00001 1 00174	64		TIX	C7,1,1 COUNT WORDS	CSH 0057
	00066	0 50200 0 00162	65	C11	CLS	C4 INVERT ROW SWITCH AND	CSH 0058
	00067	0 60100 0 00162	66		STO	C4 TEST FOR RIGHT ROW DONE	CSH 0059
	00070	−0 73400 1 00003	67	ICSH)	PDX	RDBCD,1 RESTORE ROW COUNT	CSH 0060
	00071	−0 12000 2 00001	68		TMI	1,2 TRANSFER IF RIGHT ROW DONE	CSH 0061
TD	00072	1 00000 0 00157	69	C10	TXI	C9 GO CONVERT RIGHT ROW	CSH 0062
	00073	−0 50000 0 77776	70	B8	CAL	L TEST LEFT ROW FOR	CSH 0063
	00074	−0 32000 0 77770	71		ANA	LS ILLEGAL DOUBLE PUNCH	CSH 0064
	00075	−0 10000 0 00000	72		TNZ	B17 X	CSH 0065
	00076	−0 50000 0 77776	73	B10	CAL	L FORM LOGICAL SUM	CSH 0066
	00077	−0 60200 0 77770	74		ORS	LS 0F LEFT ROWS	CSH 0067
	00100	0 70000 0 77777	75		CPY	R COPY RIGHT ROW AND	CSH 0068
	00101	−0 50000 0 77777	76		CAL	R TEST FOR ILLEGAL	CSH 0069
	00102	−0 32000 0 77771	77		ANA	RS DOUBLE PUNCH	CSH 0070
	00103	−0 10000 0 00000	78		TNZ	B17 X	CSH 0071
	00104	−0 50000 0 77777	79	B11	CAL	R FORM LOGICAL SUM OF	CSH 0072
	00105	−0 60200 0 77771	80		ORS	RS RIGHT ROWS	CSH 0073
	00106	−2 00001 1 00126	81		TNX	B12,1,1 TEST FOR ZONE ROWS	CSH 0074
	00107	0 07400 2 00156	82		TSX	C1,2 ENTER CONVERSION LOOP	CSH 0075
TD	00110	−3 00000 0 00035	83		TXL	B13 LEAVE CONVERSION LOOP	CSH 0076
TD	00111	−3 00000 0 00063	84		TXL	C3 ADD TO BCD RECORD	CSH 0077
	00112	−0 50000 0 77772	85	B7	CAL	8L ADD 8 LEFT R0W TO	CSH 0078
	00113	−0 50100 0 77770	86		ORA	LS LEFT LOGICAL SUM	CSH 0079
	00114	0 60200 0 77772	87		SLW	LDS X	CSH 0080
	00115	0 70000 0 77774	88		CPY	LZ COPY ZERO LEFT AND	CSH 0081
	00116	−0 32000 0 77774	89		ANA	LZ FORM INDICATOR FOR	CSH 0082
	00117	0 60200 0 77770	90		SLW	LS BOTH DIGIT AND ZERO	CSH 0083
	00120	−0 50000 0 77773	91		CAL	8R ADD 8 RIGHT ROW TO	CSH 0084
	00121	−0 50100 0 77771	92		ORA	RS RIGHT LOGICAL SUM	CSH 0085
	00122	0 60200 0 77773	93		SLW	RDS X	CSH 0086
	00123	0 70000 0 77775	94		CPY	RZ COPY ZERO RIGHT AND	CSH 0087
	00124	−0 32000 0 77775	95		ANA	RZ FORM INDICATOR FOR	CSH 0088
	00125	0 60200 0 77771	96		SLW	RS BOTH DIGIT AND ZERO	CSH 0089
	00126	0 07400 2 00156	97	B12	TSX	C1,2 ENTER CONVERSION LOOP	CSH 0090
TD	00127	−3 00000 0 00036	98		TXL	B14 LEAVE CONVERSION LOOP	CSH 0091
	00130	0 76700 0 00004	99		ALS	4 SHIFT TO ZONE POSITION	CSH 0092
TD	00131	−3 00000 0 00063	100		TXL	C3 X	CSH 0093
	00132	−0 50000 0 77772	101	B15	CAL	LDS FORM INDICATOR FOR	CSH 0094
	00133	−0 50100 0 77774	102		ORA	LZ BLANK COLUMNS IN	CSH 0095
	00134	−0 50100 0 77776	103		ORA	L LEFT HALF OF CARD	CSH 0096
	00135	0 76000 0 00006	104		COM	X	CSH 0097
	00136	0 60200 0 77770	105		SLW	LS X	CSH 0098
	00137	−0 50000 0 77773	106		CAL	RDS FORM INDICATOR FOR	CSH 0099
	00140	−0 50100 0 77775	107		ORA	RZ BLANK COLUMNS IN	CSH 0100
	00141	−0 50100 0 77777	108		ORA	R RIGHT HALF OF CARD	CSH 0101
	00142	0 76000 0 00006	109		COM	X	CSH 0102
	00143	0 60200 0 77771	110		SLW	RS X	CSH 0103
	00144	0 07400 2 00156	111		TSX	C1,2 ENTER CONVERSION LOOP	CSH 0104
TD	00145	−3 00000 0 00153	112		TXL	B16 LEAVE CONVERSION LOOP	CSH 0105
	00146	0 60200 0 77767	113		SLW	TP MULTIPLY INDICATOR	CSH 0106
	00147	0 76700 0 00001	114		ALS	1 BITS BY 3 AND	CSH 0107
	00150	0 36100 0 77767	115		ACL	TP SHIFT TO ZONE POSITION	CSH 0108
	00151	0 76700 0 00004	116		ALS	4 X	CSH 0109
TD	00152	−3 00000 0 00063	117		TXL	C3 X	CSH 0110
	00153	−0 53400 1 00016	118	B16	LXD	B2,1 RESTORE INDEX REGISTERS	CSH 0111
	00154	−0 53400 2 00020	119		LXD	B3,2 AND RETURN TO MAIN	CSH 0112
	00155	0 02000 4 00003	120		TRA	3,4 PROGRAM	CSH 0113
	00156	−0 63400 1 00162	121	C1	SXD	C4,1 SAVE ROW COUNT	CSH 0114
	00157	−0 50000 4 00001	122	C9	CAL	1,4 INITIALIZE ADDRESSES	CSH 0115
	00160	0 40100 0 00174	123		ADM	C7 X ADD 6	CSH 0116
	00161	0 56000 0 77770	124	C6	LDQ	LS OBTAIN LEFT SUM	CSH 0117
	00162	−3 00000 0 00165	125	C4	TXL	C8,,** TRANSFER IF LEFT ROW	CSH 011B
	00163	0 40100 0 00174	126		ADM	C7 RIGHT ROW, ADD 6 MORE	CSH 0119
	00164	0 56000 0 77771	127		LDQ	RS OBTAIN RIGHT SUM AND	CSH 0120
	00165	0 62100 0 00064	128	C8	STA	C2 SET BCD RECORD ADDRESS	CSH 0121
	00166	0 62100 0 00063	129		STA	C3 X	CSH 0I22
	00167	3 00001 1 00173	130		TXH	C5,1,1 SKIP TEST IF DIGIT ROW	CSH 0123
	00170	−0 60000 0 77767	131		STQ	TP TEST FOR NO SUM	CSH 0124
	00171	−0 50000 0 77767	132		CAL	TP X	CSH 0125
	00172	0 10000 0 00066	133		TZE	C11 X	CSH 0126
	00173	0 53400 1 00174	134	C5	LXA	C7,1 SET WORD COUNT	CSH 0127
T	00174	−0 75400 0 00006	135	C7	PXD	6 CONVERT ROW	CSH 0128
	00175	−0 76300 0 00001	136		LGL	1 X	CSH 0129
	00176	0 76700 0 00005	137		ALS	5 X	CSH 0130
	00177	−0 76300 0 00001	138		LGL	1 X	CSH 0131
	00200	0 76700 0 00005	139		ALS	5 X	CSH 0132
	00201	−0 76300 0 00001	140		LGL	1 X	CSH 0133
	00202	0 76700 0 00005	141		ALS	5 X	CSH 0134
	00203	−0 76300 0 00001	142		LGL	1 X	CSH 0135
	00204	0 76700 0 00005	143		ALS	5 X	CSH 0136
	00205	−0 76300 0 00001	144		LGL	1 X	CSH 0137
	00206	0 76700 0 00005	145		ALS	5 X	CSH 0138
	00207	−0 76300 0 00001	146		LGL	1 X	CSH 0139
	00210	0 02000 2 00002	147		TRA	2,2 EXIT FOR ROW PROCEDURE	CSH 0140
		77767	148		ORG	COMMON	CSH 014I
		77767	149	TP	BSS	1 TEMPORARY	CSH 0142
		77770	150	LS	BSS	1 LEFT SUM	CSH 0143
		77771	151	RS	BSS	1 RIGHT SUM	CSH 0144
		77772	152	LDS	BSS	1 LEFT DIGIT SUM	CSH 0145
		77773	153	RDS	BSS	1 RIGHT DIGIT SUM	CSH 0146
		77774	154	LZ	BSS	1 LEFT ZERO ROW	CSH 0147
		77775	155	RZ	BSS	1 RIGHT ZERO ROW	CSH 0148
		77776	156	L	BSS	1 LEFT ROW	CSH 0149
		77777	157	R	BSS	1 RIGHT ROW	CSH 0150
		77772	158	8L	SYN	LDS 8 LEFT ROW	CSH 0151
		77773	159	8R	SYN	RDS 8 RIGHT ROW	CSH 0152