␣␣␣␣␣L = 32766
  1. Definition
    77776 156 L BSS1 LEFT ROW CSH 0149
  2. References (7)
    00004 0 70000 0 77776 15CPYL CSH 0008
    00031−0 50000 0 77776 36 B6 CALL USE 9 ROW AS SUM CSH 0029
    00036 0 70000 0 77776 41 B14 CPYL C0PY LEFT ROW AND CSH 0034
    00042 0 60200 0 77776 45SLWL X CSH 0038
    00073−0 50000 0 77776 70 B8 CALL TEST LEFT ROW FOR CSH 0063
    00076−0 50000 0 77776 73 B10 CALL FORM LOGICAL SUM CSH 0066
    00134−0 50100 0 77776 103ORAL LEFT HALF OF CARD CSH 0096
␣␣␣␣␣R = 32767
  1. Definition
    77777 157 R BSS1 RIGHT ROW CSH 0150
  2. References (7)
    00013 0 70000 0 77777 22CPYR COPY 9 RIGHT ROW AND CSH 0015
    00033−0 50000 0 77777 38CALR X CSH 0031
    00050 0 60200 0 77777 51SLWR X CSH 0044
    00100 0 70000 0 77777 75CPYR COPY RIGHT ROW AND CSH 0068
    00101−0 50000 0 77777 76CALR TEST FOR ILLEGAL CSH 0069
    00104−0 50000 0 77777 79 B11 CALR FORM LOGICAL SUM OF CSH 0072
    00141−0 50100 0 77777 108ORAR RIGHT HALF OF CARD CSH 0101
␣␣␣␣8L = 32762
  1. Definition
    77772 158 8L SYNLDS 8 LEFT ROW CSH 0151
  2. References (2)
    00021 0 70000 0 77772 28 B5 CPY8L COPY 8 ROW AND CSH 0021
    00112−0 50000 0 77772 85 B7 CAL8L ADD 8 LEFT R0W TO CSH 0078
␣␣␣␣8R = 32763
  1. Definition
    77773 159 8R SYNRDS 8 RIGHT ROW CSH 0152
  2. References (2)
    00023 0 70000 0 77773 30CPY8R X CSH 0023
    00120−0 50000 0 77773 91CAL8R ADD 8 RIGHT ROW TO CSH 0084
␣␣␣␣B1 = 7
  1. Definition
    00007−0 60000 0 77770 18 B1 STQLS SET LEFT SUM CSH 0011
  2. Reference
    TD00005−3 00000 0 00007 16TXLB1 X CSH 0009
␣␣␣␣B2 = 14
  1. Definition
    TD00016−3 00000 0 00021 25 B2 TXLB5 LEAVE CONVERSION LOOP CSH 0018
  2. References (3)
    00001−0 53400 1 00016 12LXDB2,1 RESTART AFTER ERROR CSH 0005
    00010−0 63400 1 00016 19SXDB2,1 SAVE INDEX REGISTERS CSH 0012
    00153−0 53400 1 00016 118 B16 LXDB2,1 RESTORE INDEX REGISTERS CSH 0111
␣␣␣␣B3 = 16
  1. Definition
    TD00020−3 00000 0 00064 27 B3 TXLC2 INITIALIZE BCD RECORD CSH 0020
  2. References (3)
    00002−0 53400 2 00020 13LXDB3,2 X CSH 0006
    00011−0 63400 2 00020 20SXDB3,2 X CSH 0013
    00154−0 53400 2 00020 119LXDB3,2 AND RETURN TO MAIN CSH 0112
␣␣␣␣B4 = 22
  1. Definition
    00026−3 00010 0 00031 33 B4 TXLB6,0,8 LEAVE CONVERSION LOOP CSH 0026
  2. Reference
    00012−0 53400 1 00026 21LXDB4,1 SET DIGIT ROW COUNT CSH 0014
␣␣␣␣B5 = 17
  1. Definition
    00021 0 70000 0 77772 28 B5 CPY8L COPY 8 ROW AND CSH 0021
  2. Reference
    TD00016−3 00000 0 00021 25 B2 TXLB5 LEAVE CONVERSION LOOP CSH 0018
␣␣␣␣B6 = 25
  1. Definition
    00031−0 50000 0 77776 36 B6 CALL USE 9 ROW AS SUM CSH 0029
  2. Reference
    00026−3 00010 0 00031 33 B4 TXLB6,0,8 LEAVE CONVERSION LOOP CSH 0026
␣␣␣␣B7 = 74
  1. Definition
    00112−0 50000 0 77772 85 B7 CAL8L ADD 8 LEFT R0W TO CSH 0078
  2. Reference
    00035−3 00001 1 00112 40 B13 TXLB7,1,1 TEST FOR ZERO ROW CSH 0033
␣␣␣␣B8 = 59
  1. Definition
    00073−0 50000 0 77776 70 B8 CALL TEST LEFT ROW FOR CSH 0063
  2. Reference
    TD00037−3 00000 0 00073 42TXLB8 TEST FOR END OF RECORD CSH 0035
␣␣␣␣B9 = 33
  1. Definition
    00041−0 50000 0 77770 44 B9 CALLS SAVE LEFT ZONE SUM CSH 0037
␣␣␣␣C1 = 110
  1. Definition
    00156−0 63400 1 00162 121 C1 SXDC4,1 SAVE ROW COUNT CSH 0114
  2. References (6)
    00015 0 07400 2 00156 24TSXC1,2 ENTER CONVERSION LOOP CSH 0017
    00025 0 07400 2 00156 32TSXC1,2 ENTER CONVERSION LOOP CSH 0025
    00055 0 07400 2 00156 56TSXC1,2 ENTER CONVERSION LOOP CSH 0049
    00107 0 07400 2 00156 82TSXC1,2 ENTER CONVERSION LOOP CSH 0075
    00126 0 07400 2 00156 97 B12 TSXC1,2 ENTER CONVERSION LOOP CSH 0090
    00144 0 07400 2 00156 111TSXC1,2 ENTER CONVERSION LOOP CSH 0104
␣␣␣␣C2 = 52
  1. Definition
    00064 0 60200 1 00000 63 C2 SLW0,1 STORE IN BCD RECORD CSH 0056
  2. References (2)
    TD00020−3 00000 0 00064 27 B3 TXLC2 INITIALIZE BCD RECORD CSH 0020
    00165 0 62100 0 00064 128 C8 STAC2 SET BCD RECORD ADDRESS CSH 0121
␣␣␣␣C3 = 51
  1. Definition
    00063 0 36100 1 00000 62 C3 ACL0,1 ADD T0 BCD RECORD CSH 0055
  2. References (5)
    TD00030−3 00000 0 00063 35TXLC3 X CSH 0028
    TD00111−3 00000 0 00063 84TXLC3 ADD TO BCD RECORD CSH 0077
    TD00131−3 00000 0 00063 100TXLC3 X CSH 0093
    TD00152−3 00000 0 00063 117TXLC3 X CSH 0110
    00166 0 62100 0 00063 129STAC3 X CSH 0I22
␣␣␣␣C4 = 114
  1. Definition
    00162−3 00000 0 00165 125 C4 TXLC8,,** TRANSFER IF LEFT ROW CSH 011B
  2. References (3)
    00066 0 50200 0 00162 65 C11 CLSC4 INVERT ROW SWITCH AND CSH 0058
    00067 0 60100 0 00162 66STOC4 TEST FOR RIGHT ROW DONE CSH 0059
    00156−0 63400 1 00162 121 C1 SXDC4,1 SAVE ROW COUNT CSH 0114
␣␣␣␣C5 = 123
  1. Definition
    00173 0 53400 1 00174 134 C5 LXAC7,1 SET WORD COUNT CSH 0127
  2. Reference
    00167 3 00001 1 00173 130TXHC5,1,1 SKIP TEST IF DIGIT ROW CSH 0123
␣␣␣␣C6 = 113
  1. Definition
    00161 0 56000 0 77770 124 C6 LDQLS OBTAIN LEFT SUM CSH 0117
␣␣␣␣C7 = 124
  1. Definition
    T00174−0 75400 0 00006 135 C7 PXD6 CONVERT ROW CSH 0128
  2. References (5)
    00000 0 00000 0 00211 3PZEC7+13 CSH/C03
    00065 2 00001 1 00174 64TIXC7,1,1 COUNT WORDS CSH 0057
    00160 0 40100 0 00174 123ADMC7 X ADD 6 CSH 0116
    00163 0 40100 0 00174 126ADMC7 RIGHT ROW, ADD 6 MORE CSH 0119
    00173 0 53400 1 00174 134 C5 LXAC7,1 SET WORD COUNT CSH 0127
␣␣␣␣C8 = 117
  1. Definition
    00165 0 62100 0 00064 128 C8 STAC2 SET BCD RECORD ADDRESS CSH 0121
  2. Reference
    00162−3 00000 0 00165 125 C4 TXLC8,,** TRANSFER IF LEFT ROW CSH 011B
␣␣␣␣C9 = 111
  1. Definition
    00157−0 50000 4 00001 122 C9 CAL1,4 INITIALIZE ADDRESSES CSH 0115
  2. Reference
    TD00072 1 00000 0 00157 69 C10 TXIC9 GO CONVERT RIGHT ROW CSH 0062
␣␣␣␣LS = 32760
  1. Definition
    77770 150 LS BSS1 LEFT SUM CSH 0143
  2. References (11)
    00007−0 60000 0 77770 18 B1 STQLS SET LEFT SUM CSH 0011
    00022−0 60000 0 77770 29STQLS USE AS SUM CSH 0022
    00032 0 60200 0 77770 37SLWLS X CSH 0030
    00041−0 50000 0 77770 44 B9 CALLS SAVE LEFT ZONE SUM CSH 0037
    00046 0 32000 0 77770 49ANSLS X CSH 0042
    00074−0 32000 0 77770 71ANALS ILLEGAL DOUBLE PUNCH CSH 0064
    00077−0 60200 0 77770 74ORSLS 0F LEFT ROWS CSH 0067
    00113−0 50100 0 77770 86ORALS LEFT LOGICAL SUM CSH 0079
    00117 0 60200 0 77770 90SLWLS BOTH DIGIT AND ZERO CSH 0083
    00136 0 60200 0 77770 105SLWLS X CSH 0098
    00161 0 56000 0 77770 124 C6 LDQLS OBTAIN LEFT SUM CSH 0117
␣␣␣␣LZ = 32764
  1. Definition
    77774 154 LZ BSS1 LEFT ZERO ROW CSH 0147
  2. References (4)
    00045−0 32000 0 77774 48ANALZ IN LEFT ROWS CSH 0041
    00115 0 70000 0 77774 88CPYLZ COPY ZERO LEFT AND CSH 0081
    00116−0 32000 0 77774 89ANALZ FORM INDICATOR FOR CSH 0082
    00133−0 50100 0 77774 102ORALZ BLANK COLUMNS IN CSH 0095
␣␣␣␣RS = 32761
  1. Definition
    77771 151 RS BSS1 RIGHT SUM CSH 0144
  2. References (11)
    00014−0 60000 0 77771 23STQRS SET RIGHT SUM CSH 0016
    00024−0 60000 0 77771 31STQRS X CSH 0024
    00034 0 60200 0 77771 39SLWRS X CSH 0032
    00047−0 50000 0 77771 50CALRS SAVE RIGHT ZONE SUM CSH 0043
    00054 0 32000 0 77771 55ANSRS X CSH 004B
    00102−0 32000 0 77771 77ANARS DOUBLE PUNCH CSH 0070
    00105−0 60200 0 77771 80ORSRS RIGHT ROWS CSH 0073
    00121−0 50100 0 77771 92ORARS RIGHT LOGICAL SUM CSH 0085
    00125 0 60200 0 77771 96SLWRS BOTH DIGIT AND ZERO CSH 0089
    00143 0 60200 0 77771 110SLWRS X CSH 0103
    00164 0 56000 0 77771 127LDQRS OBTAIN RIGHT SUM AND CSH 0120
␣␣␣␣RZ = 32765
  1. Definition
    77775 155 RZ BSS1 RIGHT ZERO ROW CSH 0148
  2. References (4)
    00053−0 32000 0 77775 54ANARZ IN RIGHT ROWS CSH 0047
    00123 0 70000 0 77775 94CPYRZ COPY ZERO RIGHT AND CSH 0087
    00124−0 32000 0 77775 95ANARZ FORM INDICATOR FOR CSH 0088
    00140−0 50100 0 77775 107ORARZ BLANK COLUMNS IN CSH 0100
␣␣␣␣TP = 32759
  1. Definition
    77767 149 TP BSS1 TEMPORARY CSH 0142
  2. References (6)
    00057 0 60200 0 77767 58SLWTP MULTIPLY INDICATOR CSH 0051
    00061 0 36100 0 77767 60ACLTP X CSH 0053
    00146 0 60200 0 77767 113SLWTP MULTIPLY INDICATOR CSH 0106
    00150 0 36100 0 77767 115ACLTP SHIFT TO ZONE POSITION CSH 0108
    00170−0 60000 0 77767 131STQTP TEST FOR NO SUM CSH 0124
    00171−0 50000 0 77767 132CALTP X CSH 0125
␣␣␣B10 = 62
  1. Definition
    00076−0 50000 0 77776 73 B10 CALL FORM LOGICAL SUM CSH 0066
␣␣␣B11 = 68
  1. Definition
    00104−0 50000 0 77777 79 B11 CALR FORM LOGICAL SUM OF CSH 0072
␣␣␣B12 = 86
  1. Definition
    00126 0 07400 2 00156 97 B12 TSXC1,2 ENTER CONVERSION LOOP CSH 0090
  2. Reference
    00106−2 00001 1 00126 81TNXB12,1,1 TEST FOR ZONE ROWS CSH 0074
␣␣␣B13 = 29
  1. Definition
    00035−3 00001 1 00112 40 B13 TXLB7,1,1 TEST FOR ZERO ROW CSH 0033
  2. Reference
    TD00110−3 00000 0 00035 83TXLB13 LEAVE CONVERSION LOOP CSH 0076
␣␣␣B14 = 30
  1. Definition
    00036 0 70000 0 77776 41 B14 CPYL C0PY LEFT ROW AND CSH 0034
  2. Reference
    TD00127−3 00000 0 00036 98TXLB14 LEAVE CONVERSION LOOP CSH 0091
␣␣␣B15 = 90
  1. Definition
    00132−0 50000 0 77772 101 B15 CALLDS FORM INDICATOR FOR CSH 0094
  2. Reference
    TD00056−3 00000 0 00132 57TXLB15 LEAVE CONVERSION LOOP CSH 0050
␣␣␣B16 = 107
  1. Definition
    00153−0 53400 1 00016 118 B16 LXDB2,1 RESTORE INDEX REGISTERS CSH 0111
  2. Reference
    TD00145−3 00000 0 00153 112TXLB16 LEAVE CONVERSION LOOP CSH 0105
␣␣␣B17 = 0
  1. Definition
    00000 0 42000 2 00000 11 B17 HPR0,2 NON-H0LLERITH CHARACTER ON CARD CSH 0004
  2. References (3)
    00040 0 02000 0 00000 43TRAB17 CSH 0036
    00075−0 10000 0 00000 72TNZB17 X CSH 0065
    00103−0 10000 0 00000 78TNZB17 X CSH 0071
␣␣␣C10 = 58
  1. Definition
    TD00072 1 00000 0 00157 69 C10 TXIC9 GO CONVERT RIGHT ROW CSH 0062
␣␣␣C11 = 54
  1. Definition
    00066 0 50200 0 00162 65 C11 CLSC4 INVERT ROW SWITCH AND CSH 0058
  2. Reference
    00172 0 10000 0 00066 133TZEC11 X CSH 0126
␣␣␣LDS = 32762
  1. Definition
    77772 152 LDS BSS1 LEFT DIGIT SUM CSH 0145
  2. References (4)
    00043−0 50000 0 77772 46CALLDS FORM INDICATOR FOR CSH 0039
    00114 0 60200 0 77772 87SLWLDS X CSH 0080
    00132−0 50000 0 77772 101 B15 CALLDS FORM INDICATOR FOR CSH 0094
    77772 158 8L SYNLDS 8 LEFT ROW CSH 0151
␣␣␣RDS = 32763
  1. Definition
    77773 153 RDS BSS1 RIGHT DIGIT SUM CSH 0146
  2. References (4)
    00051−0 50000 0 77773 52CALRDS FORM INDICATOR FOR CSH 0045
    00122 0 60200 0 77773 93SLWRDS X CSH 0086
    00137−0 50000 0 77773 106CALRDS FORM INDICATOR FOR CSH 0099
    77773 159 8R SYNRDS 8 RIGHT ROW CSH 0152
␣ICSH) = 56
  1. Definition
    00070−0 73400 1 00003 67 ICSH) PDXRDBCD,1 RESTORE ROW COUNT CSH 0060
␣RDBCD = 3
  1. Definition
    00003 0 76200 0 00321 14 RDBCD RCD CSH 0007
  2. Reference
    00070−0 73400 1 00003 67 ICSH) PDXRDBCD,1 RESTORE ROW COUNT CSH 0060
COMMON = 32759
  1. Definition
    77767 10COMMON SYN−9 CSH 0003
  2. References (2)
    00001 0 00000 0 77767 4PZECOMMON CSH/C04
    77767 148ORGCOMMON CSH 014I