1 *1000 2 01000 4331 VECTOR, JMS LEADER 3 01001 3636 DCA I BINSUM 4 01002 6032 KCC 5 01003 1233 TAD BUFFER 6 01004 3234 DCA ADDR 7 01005 3232 DCA CKSM 8 01006 4237 JMS READ 9 01007 7440 SZA 10 01010 5206 JMP .-2 11 01011 4244 JMS PAIR 12 01012 0000 ORIGIN,0 13 01013 0000 WRDCT,0 14 01014 1212 TAD ORIGIN 15 01015 7650 SNA CLA 16 01016 5631 JMP I FIN 17 01017 1213 TAD WRDCT 18 01020 3635 DCA I WDCT 19 01021 4244 MAIN, JMS PAIR 20 01022 0000 WORD1,0 21 01023 0000 WORD2,0 22 01024 1222 TAD WORD1 23 01025 4277 JMS STOR 24 01026 1223 TAD WORD2 25 01027 4277 JMS STOR 26 01030 5221 JMP MAIN 27 01031 1255 FIN,FINISH 28 01032 0000 CKSM,0 29 01033 1377 BUFFER,1377 30 01034 0000 ADDR,0 31 01035 1244 WDCT,COUNT 32 01036 1212 BINSUM,CKSUM 33 34 01037 7402 READ, HLT 35 01040 6031 KSF 36 01041 5240 JMP .-1 37 01042 6036 KRB 38 01043 5637 JMP I READ 39 40 01044 7402 PAIR, HLT 41 01045 4237 JMS READ 42 01046 7106 CLL RTL 43 01047 7006 RTL 44 01050 3644 DCA I PAIR 45 01051 4237 JMS READ 46 01052 0264 AND MASK /0017 47 01053 4265 JMS HELP 48 01054 6036 KRB 49 01055 7106 CLL RTL 50 01056 7006 RTL 51 01057 0264 AND MASK /7400 52 01060 3644 DCA I PAIR 53 01061 4237 JMS READ 54 01062 4265 JMS HELP 55 01063 5644 JMP I PAIR 56 01064 7417 MASK,7417 57 58 59 60 61 62 63 64 65 66 67 68 01065 7402 HELP, HLT 69 01066 1644 TAD I PAIR 70 01067 3644 DCA I PAIR 71 01070 1644 TAD I PAIR 72 01071 1232 TAD CKSM 73 01072 7430 SZL 74 01073 7101 IAC CLL 75 01074 3232 DCA CKSM 76 01075 2244 ISZ PAIR 77 01076 5665 JMP I HELP 78 79 01077 7402 STOR, HLT 80 01100 2234 ISZ ADDR 81 01101 3634 DCA I ADDR 82 01102 2213 ISZ WRDCT 83 01103 5677 JMP I STOR 84 01104 4244 JMS PAIR 85 01105 0000 0 86 01106 0000 0 87 01107 7604 LAS /SW 0 UP FOR UNCONDITIONAL PUNCH 88 01110 7510 SPA 89 01111 5730 JMP I TAPEIT 90 01112 7004 RAL 91 01113 7710 SPA CLA /SW 1 UP FOR UNCONDITIONAL OPTION FOR PUNCH 92 01114 5321 JMP CHOICE 93 01115 1232 TAD CKSM 94 01116 2232 ISZ CKSM 95 01117 5322 JMP CHOICE+1 /BOTH SW 0 & 1 DOWN, STOP ONLY FOR BAD CHECKSUM 96 01120 5730 JMP I TAPEIT 97 01121 1232 CHOICE, TAD CKSM 98 01122 7402 HLT 99 01123 7604 LAS /SW 11 UP FOR NO-PUNCH 100 01124 7112 CLL RTR 101 01125 7710 SPA CLA 102 01126 5202 JMP VECTOR+2 103 01127 5730 JMP I TAPEIT 104 01130 1213 TAPEIT, TAPE 105 106 01131 7402 LEADER, HLT 107 01132 7200 CLA 108 01133 1343 TAD M100 109 01134 3234 DCA ADDR 110 01135 1344 TAD P200 111 01136 4745 JMS I OUT 112 01137 2234 ISZ ADDR 113 01140 5336 JMP .-2 114 01141 7200 CLA 115 01142 5731 JMP I LEADER 116 01143 7700 M100,-100 117 01144 0200 P200,200 118 01145 1200 OUT,TYPE 119 120 121 122 123 124 125 126 127 128 129 130 131 *1200 132 01200 7402 TYPE, HLT 133 01201 6041 TSF 134 01202 5201 JMP .-1 135 01203 6046 TLS 136 01204 5600 JMP I TYPE 137 138 01205 7402 PRINT, HLT 139 01206 4200 JMS TYPE 140 01207 1212 TAD CKSUM 141 01210 3212 DCA CKSUM 142 01211 5605 JMP I PRINT 143 01212 0000 CKSUM, 0 144 145 01213 7200 TAPE, CLA 146 01214 1640 TAD I ORGN 147 01215 4246 JMS HALF 148 01216 1241 TAD P100 149 01217 4205 JMS PRINT 150 01220 1640 TAD I ORGN 151 01221 0254 AND C77 152 01222 4205 JMS PRINT 153 01223 1242 TAD BUFFA 154 01224 3243 DCA ADRSS 155 01225 1643 MORE, TAD I ADRSS 156 01226 4246 JMS HALF 157 01227 4205 JMS PRINT 158 01230 1643 TAD I ADRSS 159 01231 0254 AND C77 160 01232 4205 JMS PRINT 161 01233 2244 ISZ COUNT 162 01234 7410 SKP 163 01235 5645 JMP I VECTP3 164 01236 2243 ISZ ADRSS 165 01237 5225 JMP MORE 166 01240 1012 ORGN,ORIGIN 167 01241 0100 P100,100 168 01242 1400 BUFFA,1400 169 01243 0000 ADRSS,0 170 01244 0000 COUNT,0 171 01245 1002 VECTP3,VECTOR+2 172 173 01246 7402 HALF, HLT 174 01247 7112 CLL RTR 175 01250 7012 RTR 176 01251 7012 RTR 177 01252 0254 AND C77 178 01253 5646 JMP I HALF 179 01254 0077 C77,77 180 181 01255 1212 FINISH, TAD CKSUM 182 01256 4246 JMS HALF 183 01257 4200 JMS TYPE 184 01260 7200 CLA 185 01261 1212 TAD CKSUM 186 01262 0254 AND C77 187 01263 4200 JMS TYPE 188 01264 4667 JMS I LDR 189 01265 7402 HLT 190 01266 5670 JMP I START 191 01267 1131 LDR,LEADER 192 01270 1000 START,VECTOR 193 194 $