1 / CONVERSION ROUTINE FOR BIN TO CBL 2 /C.A. KAPPS 3 *1000 4 5 001000 6032 BEG, KCC 6 001001 1351 TAD LNGT /PUNCH LEADER 7 001002 3352 DCA CONT 8 001003 1353 TAD LDR 9 001004 6041 LPN, TSF 10 001005 5204 JMP .-1 11 001006 6046 TLS 12 001007 2352 ISZ CONT 13 001010 5204 JMP LPN 14 001011 3354 DCA ADR /200 15 001012 1355 TAD BUFA /BUF 16 001013 3356 DCA CONL 17 001014 1357 TAD MAX /-200 18 001015 3360 DCA LCNT 19 001016 6032 BEGN, KCC 20 001017 3361 DCA CKSM 21 001020 4340 JMS BEGG 22 001021 5220 JMP .-1 23 001022 6036 GO, KRB 24 001023 3364 DCA CHA 25 001024 1364 GOP, TAD CHA 26 001025 3362 DCA CKT 27 001026 1364 TAD CHA 28 001027 7106 RTL CLL 29 001030 7006 RTL 30 001031 7006 RTL 31 001032 6031 KSF 32 001033 5232 JMP .-1 33 001034 6034 KRS 34 001035 3363 DCA WORD 35 001036 6036 KRB 36 001037 1362 TAD CKT 37 001040 3362 DCA CKT 38 001041 4340 JMS BEGG 39 001042 5770 JMP I EEND1 40 001043 7420 END3, SNL /CHECK CHANNEL 7 41 001044 5266 JMP DATA 42 001045 6036 ORIG, KRB 43 001046 3364 DCA CHA 44 001047 1352 TAD CONT /CHECK ANY INFO YET 45 001050 7450 SNA 46 001051 5256 JMP NOPH 47 001052 3765 DCA I BUF1 48 001053 1354 TAD ADR 49 001054 3766 DCA I BUFB 50 001055 4750 JMS I PNH /PUNC 51 /PAGE 2 52 53 001056 1363 NOPH, TAD WORD 54 001057 3354 DCA ADR /NEW ORIG 55 001060 3352 DCA CONT 56 001061 1357 TAD MAX 57 001062 3360 DCA LCNT 58 001063 1355 TAD BUFA 59 001064 3356 DCA CONL 60 001065 5313 JMP CHEX 61 62 001066 6036 DATA, KRB 63 001067 3364 DCA CHA 64 001070 1363 TAD WORD 65 001071 3756 DCA I CONL 66 001072 2356 ISZ CONL 67 001073 2352 ISZ CONT 68 001074 2360 ISZ LCNT 69 001075 5313 JMP CHEX 70 001076 1352 TAD CONT 71 001077 3765 DCA I BUF1 72 001100 1354 TAD ADR 73 001101 3766 DCA I BUFB 74 001102 4750 JMS I PNH 75 001103 1354 TAD ADR 76 001104 1352 TAD CONT 77 001105 3354 DCA ADR /MOVE ADDRESS UP 78 001106 3352 DCA CONT 79 001107 1357 TAD MAX 80 001110 3360 DCA LCNT 81 001111 1355 TAD BUFA 82 001112 3356 DCA CONL 83 001113 1362 CHEX, TAD CKT /UPDATE CHECKSUM 84 001114 1361 TAD CKSM 85 001115 3361 DCA CKSM 86 001116 5224 JMP GOP 87 88 001117 1352 END2, TAD CONT 89 001120 7450 SNA 90 001121 5326 JMP NFP 91 001122 3765 DCA I BUF1 92 001123 1354 TAD ADR 93 001124 3766 DCA I BUFB 94 001125 4750 JMS I PNH 95 001126 1351 NFP, TAD LNGT /PUNCH TRAILER 96 001127 3352 DCA CONT 97 001130 4767 FLP, JMS I PP 98 001131 2352 ISZ CONT 99 001132 5330 JMP FLP 100 001133 1361 TAD CKSM 101 001134 7041 CIA 102 001135 1363 TAD WORD 103 001136 7402 HLT /AC=0, CKSM OK 104 001137 5200 JMP BEG 105 /PAGE 3 106 107 001140 0000 BEGG, 0 108 001141 6031 KSF 109 001142 5341 JMP .-1 110 001143 6036 KRB 111 001144 0353 AND CON 112 001145 7650 SNA CLA 113 001146 2340 ISZ BEGG 114 001147 5740 JMP I BEGG 115 116 001150 1200 PNH, PUNC 117 001151 7700 LNGT, -100 /LEADER LENGTH 118 001152 0000 CONT, 0 /OLD COUNT 119 001153 0200 LDR, 200 120 CON=LDR 121 001154 0000 ADR, 0 /OLD ORIG 122 001155 1400 BUFA, BUF 123 001156 0000 CONL, 0 124 001157 7600 MAX, -200 125 001160 0000 LCNT, 0 126 001161 0000 CKSM, 0 /TOTAL CHECKSUM 127 001162 0000 CKT, 0 /SUM OF 2 LINES 128 001163 0000 WORD, 0 129 001164 0000 CHA, 0 130 001165 1377 BUF1, BUF-1 131 001166 1376 BUFB, BUF-2 132 001167 1312 PP, P 133 001170 1273 EEND1, END1 134 /PAGE 4 135 136 *1200 137 001200 0000 PUNC, 0 138 001201 7300 CLA CLL 139 001202 1377 TAD BUF-1 140 001203 7041 CIA 141 001204 3377 DCA BUF-1 142 001205 1327 TAD M4 /PUNCH 4 LINES OF 200 143 001206 3330 DCA CL 144 001207 1331 TAD NL 145 001210 4312 JMS P 146 001211 2330 ISZ CL 147 001212 5207 JMP .-3 148 001213 7200 CLA /ONE BLANK LINE 149 001214 4312 JMS P 150 001215 7300 CLA CLL 151 001216 1377 TAD BUF-1 152 001217 1325 TAD M2 /-2 153 001220 3323 DCA C 154 001221 1326 TAD BUFC /BUF-3 155 001222 3010 DCA Z 10 156 001223 1410 CLP, TAD I Z 10 /COMPUTE CHECKSUM 157 001224 7420 SNL 158 001225 7121 STL IAC 159 001226 2323 ISZ C 160 001227 5223 JMP CLP 161 001230 3324 DCA CB 162 001231 1377 TAD BUF-1 163 001232 7010 RAR 164 001233 1325 TAD M2 165 001234 3323 DCA C 166 001235 7420 SNL 167 001236 3410 DCA I Z 10 168 001237 1324 TAD CB 169 001240 7040 CMA 170 001241 3410 DCA I Z 10 171 001242 3410 DCA I Z 10 172 001243 1326 TAD BUFC 173 001244 3010 DCA Z 10 174 001245 1326 TAD BUFC 175 001246 3011 DCA Z 11 176 /PAGE 5 177 178 001247 7300 KLP, CLA CLL /PUNCH 2 WORDS, 3 LINES 179 001250 1410 TAD I Z 10 180 001251 0320 AND MSK1 181 001252 7012 RTR 182 001253 7012 RTR 183 001254 4312 JMS P 184 001255 1411 TAD I Z 11 185 001256 0321 AND MSK2 186 001257 3324 DCA CB 187 001260 1410 TAD I Z 10 188 001261 0322 AND MSK3 189 001262 7012 RTR 190 001263 7012 RTR 191 001264 1324 TAD CB 192 001265 4312 JMS P 193 001266 1411 TAD I Z 11 194 001267 4312 JMS P 195 001270 2323 ISZ C 196 001271 5247 JMP KLP 197 001272 5600 JMP I PUNC 198 199 001273 6036 END1, KRB /CHECK FOR PAL DIAGNOSTICS 200 001274 1332 TAD CM377 201 001275 7640 SZA CLA 202 001276 5733 JMP I EEND2 203 001277 7020 CML 204 001300 6031 PATCH1, KSF 205 001301 5300 JMP .-1 206 001302 6036 KRB 207 001303 1332 TAD CM377 208 001304 7640 SZA CLA 209 001305 5300 JMP PATCH1 210 001306 7020 CML 211 001307 6031 KSF 212 001310 5307 JMP .-1 213 001311 5734 JMP I EEND3 214 215 001312 0000 P, 0 216 001313 6041 TSF 217 001314 5313 JMP .-1 218 001315 6046 TLS 219 001316 7300 CLA CLL 220 001317 5712 JMP I P 221 /PAGE 6 222 223 001320 7760 MSK1, 7760 224 001321 0017 MSK2, 0017 225 001322 7400 MSK3, 7400 226 001323 0000 C, 0 227 001324 0000 CB, 0 228 001325 7776 M2, -2 229 001326 1375 BUFC, BUF-3 230 001327 7774 M4, -4 231 001330 0000 CL, 0 232 001331 0200 NL, 200 233 001332 7401 CM377, -377 234 001333 1117 EEND2, END2 235 001334 1043 EEND3, END3 236 237 BUF=1400 238 $