1 / CONVERSION ROUTINE FOR BIN TO CBL 2 /C.A. KAPPS 3 *1000 4 5 01000 6032 BEG, KCC 6 01001 1351 TAD LNGT /PUNCH LEADER 7 01002 3352 DCA CONT 8 01003 1353 TAD LDR 9 01004 6046 LPN, TLS 10 01005 6041 TSF 11 01006 5205 JMP .-1 12 01007 2352 ISZ CONT 13 01010 5204 JMP LPN 14 01011 3354 DCA ADR /200 15 01012 1355 TAD BUFA /BUF 16 01013 3356 DCA CONL 17 01014 1357 TAD MAX /-200 18 01015 3360 DCA LCNT 19 01016 6032 BEGN, KCC 20 01017 3361 DCA CKSM 21 01020 4340 JMS BEGG 22 01021 5220 JMP .-1 23 01022 6036 GO, KRB 24 01023 3364 DCA CHA 25 01024 1364 GOP, TAD CHA 26 01025 3362 DCA CKT 27 01026 1364 TAD CHA 28 01027 7106 RTL CLL 29 01030 7006 RTL 30 01031 7006 RTL 31 01032 6031 KSF 32 01033 5232 JMP .-1 33 01034 6034 KRS 34 01035 3363 DCA WORD 35 01036 6036 KRB 36 01037 1362 TAD CKT 37 01040 3362 DCA CKT 38 01041 4340 JMS BEGG 39 01042 5770 JMP I EEND1 40 01043 7420 END3, SNL /CHECK CHANNEL 7 41 01044 5266 JMP DATA 42 01045 6036 ORIG, KRB 43 01046 3364 DCA CHA 44 01047 1352 TAD CONT /CHECK ANY INFO YET 45 01050 7450 SNA 46 01051 5256 JMP NOPH 47 01052 3765 DCA I BUF1 48 01053 1354 TAD ADR 49 01054 3766 DCA I BUFB 50 01055 4750 JMS I PNH /PUNC 51 /PAGE 2 52 53 01056 1363 NOPH, TAD WORD 54 01057 3354 DCA ADR /NEW ORIG 55 01060 3352 DCA CONT 56 01061 1357 TAD MAX 57 01062 3360 DCA LCNT 58 01063 1355 TAD BUFA 59 01064 3356 DCA CONL 60 01065 5313 JMP CHEX 61 62 01066 6036 DATA, KRB 63 01067 3364 DCA CHA 64 01070 1363 TAD WORD 65 01071 3756 DCA I CONL 66 01072 2356 ISZ CONL 67 01073 2352 ISZ CONT 68 01074 2360 ISZ LCNT 69 01075 5313 JMP CHEX 70 01076 1352 TAD CONT 71 01077 3765 DCA I BUF1 72 01100 1354 TAD ADR 73 01101 3766 DCA I BUFB 74 01102 4750 JMS I PNH 75 01103 1354 TAD ADR 76 01104 1352 TAD CONT 77 01105 3354 DCA ADR /MOVE ADDRESS UP 78 01106 3352 DCA CONT 79 01107 1357 TAD MAX 80 01110 3360 DCA LCNT 81 01111 1355 TAD BUFA 82 01112 3356 DCA CONL 83 01113 1362 CHEX, TAD CKT /UPDATE CHECKSUM 84 01114 1361 TAD CKSM 85 01115 3361 DCA CKSM 86 01116 5224 JMP GOP 87 88 01117 1352 END2, TAD CONT 89 01120 7450 SNA 90 01121 5326 JMP NFP 91 01122 3765 DCA I BUF1 92 01123 1354 TAD ADR 93 01124 3766 DCA I BUFB 94 01125 4750 JMS I PNH 95 01126 1351 NFP, TAD LNGT /PUNCH TRAILER 96 01127 3352 DCA CONT 97 01130 4767 FLP, JMS I PP 98 01131 2352 ISZ CONT 99 01132 5330 JMP FLP 100 01133 1361 TAD CKSM 101 01134 7041 CIA 102 01135 1363 TAD WORD 103 01136 7402 HLT /AC=0, CKSM OK 104 01137 5200 JMP BEG 105 /PAGE 3 106 107 01140 0000 BEGG, 0 108 01141 6031 KSF 109 01142 5341 JMP .-1 110 01143 6036 KRB 111 01144 0353 AND CON 112 01145 7650 SNA CLA 113 01146 2340 ISZ BEGG 114 01147 5740 JMP I BEGG 115 116 01150 1200 PNH, PUNC 117 01151 7700 LNGT, -100 /LEADER LENGTH 118 01152 0000 CONT, 0 /OLD COUNT 119 01153 0200 LDR, 200 120 CON=LDR 121 01154 0000 ADR, 0 /OLD ORIG 122 01155 1400 BUFA, BUF 123 01156 0000 CONL, 0 124 01157 7600 MAX, -200 125 01160 0000 LCNT, 0 126 01161 0000 CKSM, 0 /TOTAL CHECKSUM 127 01162 0000 CKT, 0 /SUM OF 2 LINES 128 01163 0000 WORD, 0 129 01164 0000 CHA, 0 130 01165 1377 BUF1, BUF-1 131 01166 1376 BUFB, BUF-2 132 01167 1312 PP, P 133 01170 1273 EEND1, END1 134 /PAGE 4 135 136 *1200 137 01200 0000 PUNC, 0 138 01201 7300 CLA CLL 139 01202 1377 TAD BUF-1 140 01203 7041 CIA 141 01204 3377 DCA BUF-1 142 01205 1327 TAD M4 /PUNCH 4 LINES OF 200 143 01206 3330 DCA CL 144 01207 1331 TAD NL 145 01210 4312 JMS P 146 01211 2330 ISZ CL 147 01212 5207 JMP .-3 148 01213 4312 JMS P /TWO BLANK LINES 149 01214 4312 JMS P 150 01215 7300 CLA CLL 151 01216 1377 TAD BUF-1 152 01217 1325 TAD M2 /-2 153 01220 3323 DCA C 154 01221 1326 TAD BUFC /BUF-3 155 01222 3010 DCA Z 10 156 01223 1410 CLP, TAD I Z 10 /COMPUTE CHECKSUM 157 01224 7420 SNL 158 01225 7121 STL IAC 159 01226 2323 ISZ C 160 01227 5223 JMP CLP 161 01230 3324 DCA CB 162 01231 1377 TAD BUF-1 163 01232 7010 RAR 164 01233 1325 TAD M2 165 01234 3323 DCA C 166 01235 7420 SNL 167 01236 3410 DCA I Z 10 168 01237 1324 TAD CB 169 01240 7040 CMA 170 01241 3410 DCA I Z 10 171 01242 3410 DCA I Z 10 172 01243 1326 TAD BUFC 173 01244 3010 DCA Z 10 174 01245 1326 TAD BUFC 175 01246 3011 DCA Z 11 176 /PAGE 5 177 178 01247 7300 KLP, CLA CLL /PUNCH 2 WORDS, 3 LINES 179 01250 1410 TAD I Z 10 180 01251 0320 AND MSK1 181 01252 7012 RTR 182 01253 7012 RTR 183 01254 4312 JMS P 184 01255 1411 TAD I Z 11 185 01256 0321 AND MSK2 186 01257 3324 DCA CB 187 01260 1410 TAD I Z 10 188 01261 0322 AND MSK3 189 01262 7012 RTR 190 01263 7012 RTR 191 01264 1324 TAD CB 192 01265 4312 JMS P 193 01266 1411 TAD I Z 11 194 01267 4312 JMS P 195 01270 2323 ISZ C 196 01271 5247 JMP KLP 197 01272 5600 JMP I PUNC 198 199 01273 6036 END1, KRB /CHECK FOR PAL DIAGNOSTICS 200 01274 1332 TAD CM377 201 01275 7640 SZA CLA 202 01276 5733 JMP I EEND2 203 01277 7020 CML 204 01300 6031 PATCH1, KSF 205 01301 5300 JMP .-1 206 01302 6036 KRB 207 01303 1332 TAD CM377 208 01304 7640 SZA CLA 209 01305 5300 JMP PATCH1 210 01306 7020 CML 211 01307 6031 KSF 212 01310 5307 JMP .-1 213 01311 5734 JMP I EEND3 214 215 01312 0000 P, 0 216 01313 6041 TSF 217 01314 5313 JMP .-1 218 01315 6046 TLS 219 01316 7300 CLA CLL 220 01317 5712 JMP I P 221 /PAGE 6 222 223 01320 7760 MSK1, 7760 224 01321 0017 MSK2, 0017 225 01322 7400 MSK3, 7400 226 01323 0000 C, 0 227 01324 0000 CB, 0 228 01325 7776 M2, -2 229 01326 1375 BUFC, BUF-3 230 01327 7774 M4, -4 231 01330 0000 CL, 0 232 01331 0200 NL, 200 233 01332 7401 CM377, -377 234 01333 1117 EEND2, END2 235 01334 1043 EEND3, END3 236 237 BUF=1400 238 $