| 1 | |
| 2 | |
| 3 | |
| 4 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 1 |
| 5 | |
| 6 | |
| 7 | 1 TITLE "AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE" |
| 8 | 2 //////////////////////////////////////////////////////////////////////////////// |
| 9 | 3 / |
| 10 | 4 / AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN |
| 11 | 5 / GENERATED 2009 04 06 00:10:32 |
| 12 | 6 / GENERATED BY D8TAPE VERSION 0.351 |
| 13 | 7 / VISIT HTTP://WWW.PDP12.ORG/PDP8/SOFTWARE/INDEX.HTML FOR UPDATES |
| 14 | 8 / |
| 15 | 9 / SYMBOL FORMAT: |
| 16 | 10 / AIX -- AUTO-INDEX VARIABLES (ADDRESS RANGE 001X) |
| 17 | 11 / CAAAA -- CONSTANTS (NON-UNIQUE) |
| 18 | 12 / DAAAA -- DATA (READ/WRITE VARIABLES) |
| 19 | 13 / KVVVV -- PROGRAM-WIDE UNIQUE CONSTANTS |
| 20 | 14 / LAAAA -- LABELS FOR CONTROL FLOW TARGETS |
| 21 | 15 / SAAAA -- SUBROUTINES |
| 22 | 16 / |
| 23 | 17 / WHERE: |
| 24 | 18 / AAAA IS THE DEFINITION ADDRESS |
| 25 | 19 / VVVV IS THE VALUE OF THE CONSTANT |
| 26 | 20 / X IS THE LAST DIGIT OF THE ADDRESS 001X FOR AUTO-INDEX VARIABLES |
| 27 | 21 / |
| 28 | 22 / 3360 LOCATIONS USED, 2552 CODE AND 0606 DATA |
| 29 | 23 //////////////////////////////////////////////////////////////////////////////// |
| 30 | 24 |
| 31 | 25 0000 *0000 |
| 32 | 26 L0000, |
| 33 | 27 00000 0000 D0000, 0000 / AND L0000 |
| 34 | 28 L0001, |
| 35 | 29 00001 5001 C0001, 5001 / JMP L0001 |
| 36 | 30 00002 0002 C0002, 0002 / AND C0002 |
| 37 | 31 00003 0003 D0003, 0003 / AND D0003 |
| 38 | 32 |
| 39 | 33 0005 *0005 |
| 40 | 34 00005 5402 D0005, 5402 / JMP I C0002 |
| 41 | 35 00006 0000 C0006, 0000 / AND L0000 |
| 42 | 36 |
| 43 | 37 0020 *0020 |
| 44 | 38 00020 0000 D0020, 0000 / AND L0000 |
| 45 | 39 00021 0000 D0021, 0000 / AND L0000 |
| 46 | 40 00022 0000 D0022, 0000 / AND L0000 |
| 47 | 41 00023 0000 D0023, 0000 / AND L0000 |
| 48 | 42 00024 0000 D0024, 0000 / AND L0000 |
| 49 | 43 C0025, |
| 50 | 44 00025 0270 C0025, 0270 / AND C0070 |
| 51 | 45 C0026, |
| 52 | 46 00026 0333 C0026, 0333 / AND D0133 |
| 53 | 47 C0027, |
| 54 | 48 00027 0447 C0027, 0447 / AND I C0047 |
| 55 | 49 00030 0000 D0030, 0000 / AND L0000 |
| 56 | 50 00031 2000 C0031, 2000 / ISZ L0000 |
| 57 | \f |
| 58 | |
| 59 | |
| 60 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 2 |
| 61 | |
| 62 | |
| 63 | 51 00032 3000 D0032, 3000 / DCA L0000 |
| 64 | 52 00033 3462 DCA I C0062 / |
| 65 | 53 00034 3506 DCA I C0106 / |
| 66 | 54 00035 3517 DCA I D0117 / |
| 67 | 55 00036 3537 D0036, 3537 / DCA I C0137 |
| 68 | 56 00037 3553 C0037, 3553 / DCA I C0153 |
| 69 | 57 00040 3600 C0040, 3600 / DCA I L0000 |
| 70 | 58 00041 4000 JMS L0000 / |
| 71 | 59 00042 4102 C0042, 4102 / JMS C0102 |
| 72 | 60 00043 4110 C0043, 4110 / JMS D0110 |
| 73 | 61 00044 4000 JMS L0000 / |
| 74 | 62 00045 4233 C0045, 4233 / JMS C0033 |
| 75 | 63 00046 4132 JMS D0132 / |
| 76 | 64 C0047, |
| 77 | 65 00047 0616 C0047, 0616 / AND I AI6 |
| 78 | 66 00050 0600 C0050, 0600 / AND I L0000 |
| 79 | 67 C0051, |
| 80 | 68 00051 1050 C0051, 1050 / TAD C0050 |
| 81 | 69 C0052, |
| 82 | 70 00052 1000 C0052, 1000 / TAD L0000 |
| 83 | 71 C0053, |
| 84 | 72 00053 1255 C0053, 1255 / TAD C0055 |
| 85 | 73 C0054, |
| 86 | 74 00054 1273 C0054, 1273 / TAD C0073 |
| 87 | 75 C0055, |
| 88 | 76 00055 1200 C0055, 1200 / TAD L0000 |
| 89 | 77 C0056, |
| 90 | 78 00056 1207 C0056, 1207 / TAD C0007 |
| 91 | 79 C0057, |
| 92 | 80 00057 1214 C0057, 1214 / TAD AI4 |
| 93 | 81 C0060, |
| 94 | 82 00060 1230 C0060, 1230 / TAD D0030 |
| 95 | 83 C0061, |
| 96 | 84 00061 1143 C0061, 1143 / TAD C0143 |
| 97 | 85 00062 1145 C0062, 1145 / TAD C0145 |
| 98 | 86 00063 0324 D0063, 0324 / AND C0124 |
| 99 | 87 00064 1311 D0064, 1311 / TAD D0111 |
| 100 | 88 C0065, |
| 101 | 89 00065 1324 C0065, 1324 / TAD C0124 |
| 102 | 90 C0066, |
| 103 | 91 00066 1400 C0066, 1400 / TAD I L0000 |
| 104 | 92 C0067, |
| 105 | 93 00067 1412 C0067, 1412 / TAD I AI2 |
| 106 | 94 C0070, |
| 107 | 95 00070 1435 C0070, 1435 / TAD I C0035 |
| 108 | 96 C0071, |
| 109 | 97 00071 0521 C0071, 0521 / AND I D0121 |
| 110 | 98 C0072, |
| 111 | 99 00072 0513 C0072, 0513 / AND I D0113 |
| 112 | 100 C0073, |
| 113 | \f |
| 114 | |
| 115 | |
| 116 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 3 |
| 117 | |
| 118 | |
| 119 | 101 00073 0426 C0073, 0426 / AND I C0026 |
| 120 | 102 C0074, |
| 121 | 103 00074 0536 C0074, 0536 / AND I D0136 |
| 122 | 104 C0075, |
| 123 | 105 00075 0400 C0075, 0400 / AND I L0000 |
| 124 | 106 C0076, |
| 125 | 107 00076 0443 C0076, 0443 / AND I C0043 |
| 126 | 108 C0077, |
| 127 | 109 00077 1111 C0077, 1111 / TAD D0111 |
| 128 | 110 C0100, |
| 129 | 111 00100 1117 C0100, 1117 / TAD D0117 |
| 130 | 112 C0101, |
| 131 | 113 00101 1042 C0101, 1042 / TAD C0042 |
| 132 | 114 C0102, |
| 133 | 115 00102 0411 C0102, 0411 / AND I AI1 |
| 134 | 116 C0103, |
| 135 | 117 00103 0733 C0103, 0733 / AND I D0133 |
| 136 | 118 00104 0000 D0104, 0000 / AND L0000 |
| 137 | 119 00105 0000 D0105, 0000 / AND L0000 |
| 138 | 120 00106 7354 C0106, 7354 / CLA CLL CMA RAR RAL |
| 139 | 121 00107 0000 D0107, 0000 / AND L0000 |
| 140 | 122 00110 0000 D0110, 0000 / AND L0000 |
| 141 | 123 00111 0000 D0111, 0000 / AND L0000 |
| 142 | 124 00112 0000 D0112, 0000 / AND L0000 |
| 143 | 125 00113 0000 D0113, 0000 / AND L0000 |
| 144 | 126 00114 0000 C0114, 0000 / AND L0000 |
| 145 | 127 00115 0000 D0115, 0000 / AND L0000 |
| 146 | 128 00116 0000 D0116, 0000 / AND L0000 |
| 147 | 129 00117 0000 D0117, 0000 / AND L0000 |
| 148 | 130 00120 0000 D0120, 0000 / AND L0000 |
| 149 | 131 00121 0000 D0121, 0000 / AND L0000 |
| 150 | 132 00122 0000 D0122, 0000 / AND L0000 |
| 151 | 133 00123 0000 D0123, 0000 / AND L0000 |
| 152 | 134 00124 0000 C0124, 0000 / AND L0000 |
| 153 | 135 00125 0000 C0125, 0000 / AND L0000 |
| 154 | 136 00126 0000 D0126, 0000 / AND L0000 |
| 155 | 137 00127 0000 D0127, 0000 / AND L0000 |
| 156 | 138 00130 0000 C0130, 0000 / AND L0000 |
| 157 | 139 00131 0000 D0131, 0000 / AND L0000 |
| 158 | 140 00132 0000 D0132, 0000 / AND L0000 |
| 159 | 141 00133 0000 D0133, 0000 / AND L0000 |
| 160 | 142 00134 0000 D0134, 0000 / AND L0000 |
| 161 | 143 00135 0000 D0135, 0000 / AND L0000 |
| 162 | 144 00136 0000 D0136, 0000 / AND L0000 |
| 163 | 145 00137 7600 C0137, 7600 / 7600 |
| 164 | 146 00140 0260 C0140, 0260 / AND C0060 |
| 165 | 147 00141 7704 C0141, 7704 / SMA CLA OSR |
| 166 | 148 00142 7742 C0142, 7742 / SMA SZA CLA HLT |
| 167 | 149 00143 7362 C0143, 7362 / CLA CLL CMA CML |
| 168 | 150 00144 7000 C0144, 7000 / NOP |
| 169 | \f |
| 170 | |
| 171 | |
| 172 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 4 |
| 173 | |
| 174 | |
| 175 | 151 00145 7777 C0145, 7777 / CLA MQA SCA MQL LSR + |
| 176 | 152 00146 7766 C0146, 7766 / SMA SZA SNL CLA OSR HLT |
| 177 | 153 00147 7634 C0147, 7634 / SZL CLA OSR |
| 178 | 154 00150 0060 C0150, 0060 / AND C0060 |
| 179 | 155 00151 0252 C0151, 0252 / AND C0052 |
| 180 | 156 00152 0125 C0152, 0125 / AND C0125 |
| 181 | 157 00153 0377 C0153, 0377 / AND C0177 |
| 182 | 158 00154 0020 C0154, 0020 / AND D0020 |
| 183 | 159 00155 0040 C0155, 0040 / AND C0040 |
| 184 | 160 00156 0200 C0156, 0200 / AND L0000 |
| 185 | 161 00157 0400 C0157, 0400 / AND I L0000 |
| 186 | 162 00160 6060 C0160, 6060 / 6060 |
| 187 | 163 00161 0707 C0161, 0707 / AND I D0107 |
| 188 | 164 00162 7700 C0162, 7700 / SMA CLA |
| 189 | 165 C0163, |
| 190 | 166 00163 1125 C0163, 1125 / TAD C0125 |
| 191 | 167 00164 0240 C0164, 0240 / AND C0040 |
| 192 | 168 00165 0100 C0165, 0100 / AND C0100 |
| 193 | 169 00166 7740 C0166, 7740 / SMA SZA CLA |
| 194 | 170 00167 7510 C0167, 7510 / SPA |
| 195 | 171 00170 7500 C0170, 7500 / SMA |
| 196 | 172 00171 0077 C0171, 0077 / AND C0077 |
| 197 | 173 00172 1130 C0172, 1130 / TAD C0130 |
| 198 | 174 00173 7640 C0173, 7640 / SZA CLA |
| 199 | 175 00174 0177 C0174, 0177 / AND C0177 |
| 200 | 176 00175 0031 C0175, 0031 / AND C0031 |
| 201 | 177 00176 7763 C0176, 7763 / CLA MQA SCA MQL SCL + |
| 202 | 178 00177 0017 C0177, 0017 / AND AI7 |
| 203 | 179 00200 7410 SKP / |
| 204 | 180 L0201, |
| 205 | 181 00201 7602 CLA HLT / |
| 206 | 182 00202 7604 LAS / |
| 207 | 183 00203 0177 AND C0177 / |
| 208 | 184 00204 1176 TAD C0176 / |
| 209 | 185 00205 7540 SMA SZA / |
| 210 | 186 00206 5201 JMP L0201 / |
| 211 | 187 00207 7604 LAS / |
| 212 | 188 00210 0177 AND C0177 / |
| 213 | 189 00211 3030 DCA D0030 / |
| 214 | 190 00212 1030 TAD D0030 / |
| 215 | 191 00213 1175 TAD C0175 / |
| 216 | 192 00214 3113 DCA D0113 / |
| 217 | 193 00215 1513 TAD I D0113 / |
| 218 | 194 00216 3240 DCA D0240 / |
| 219 | 195 00217 4474 JMS I C0074 / LONG CALL TO S0536 |
| 220 | 196 00220 0005 AND D0005 / |
| 221 | 197 00221 0001 AND L0001 / |
| 222 | 198 00222 7776 SPA SNA SZL CLA OSR HLT / |
| 223 | 199 00223 3113 DCA D0113 / |
| 224 | 200 00224 4474 JMS I C0074 / LONG CALL TO S0536 |
| 225 | \f |
| 226 | |
| 227 | |
| 228 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 5 |
| 229 | |
| 230 | |
| 231 | 201 00225 0113 AND D0113 / |
| 232 | 202 00226 0114 AND C0114 / |
| 233 | 203 00227 7760 SMA SZA SNL CLA / |
| 234 | 204 00230 4475 JMS I C0075 / LONG CALL TO S0400 |
| 235 | 205 00231 1075 TAD C0075 / |
| 236 | 206 00232 7402 HLT / |
| 237 | 207 00233 1174 TAD C0174 / |
| 238 | 208 00234 3104 DCA D0104 / |
| 239 | 209 00235 1173 TAD C0173 / |
| 240 | 210 00236 3572 DCA I C0172 / |
| 241 | 211 00237 5640 JMP I D0240 / LONG JUMP TO L0000 |
| 242 | 212 00240 0000 D0240, 0000 / AND L0000 |
| 243 | 213 L0241, |
| 244 | 214 00241 7602 CLA HLT / |
| 245 | 215 L0242, |
| 246 | 216 00242 7200 CLA / |
| 247 | 217 00243 1020 TAD D0020 / |
| 248 | 218 00244 3117 DCA D0117 / |
| 249 | 219 L0245, |
| 250 | 220 00245 4307 JMS S0307 / |
| 251 | 221 00246 4476 JMS I C0076 / LONG CALL TO S0443 |
| 252 | 222 00247 7006 RTL / |
| 253 | 223 00250 7420 SNL / |
| 254 | 224 00251 5515 JMP I D0115 / LONG JUMP TO L0000 |
| 255 | 225 00252 4476 JMS I C0076 / LONG CALL TO S0443 |
| 256 | 226 00253 0177 AND C0177 / |
| 257 | 227 00254 7041 CIA / |
| 258 | 228 00255 1116 TAD D0116 / |
| 259 | 229 00256 7650 SNA CLA / |
| 260 | 230 00257 5515 JMP I D0115 / LONG JUMP TO L0000 |
| 261 | 231 00260 1117 TAD D0117 / |
| 262 | 232 00261 7001 IAC / |
| 263 | 233 00262 7640 SZA CLA / |
| 264 | 234 00263 5245 JMP L0245 / |
| 265 | 235 00264 4447 JMS I C0047 / LONG CALL TO S0616 |
| 266 | 236 00265 1560 TAD I C0160 / |
| 267 | 237 00266 7602 CLA HLT / |
| 268 | 238 00267 5242 JMP L0242 / |
| 269 | 239 L0270, |
| 270 | 240 00270 4426 JMS I C0026 / LONG CALL TO S0333 |
| 271 | 241 00271 4476 JMS I C0076 / LONG CALL TO S0443 |
| 272 | 242 00272 7006 RTL / |
| 273 | 243 00273 7630 SZL CLA / |
| 274 | 244 00274 5242 JMP L0242 / |
| 275 | 245 00275 1117 TAD D0117 / |
| 276 | 246 00276 7001 IAC / |
| 277 | 247 00277 7640 SZA CLA / |
| 278 | 248 00300 5245 JMP L0245 / |
| 279 | 249 00301 4476 JMS I C0076 / LONG CALL TO S0443 |
| 280 | 250 00302 7006 RTL / |
| 281 | \f |
| 282 | |
| 283 | |
| 284 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 6 |
| 285 | |
| 286 | |
| 287 | 251 00303 7710 SPA CLA / |
| 288 | 252 00304 5242 JMP L0242 / |
| 289 | 253 00305 7402 HLT / |
| 290 | 254 00306 5270 JMP L0270 / |
| 291 | 255 |
| 292 | 256 //////////////////////////////////////////////////////////////////////////////// |
| 293 | 257 / |
| 294 | 258 / SUBROUTINE: S0307 |
| 295 | 259 / |
| 296 | 260 / CALLED FROM: |
| 297 | 261 / 0245 |
| 298 | 262 / TOTAL 0001 (1) CALLS |
| 299 | 263 //////////////////////////////////////////////////////////////////////////////// |
| 300 | 264 S0307, |
| 301 | 265 00307 0000 0 / RETURN AREA |
| 302 | 266 00310 7300 CLA CLL / AC = 0000 |
| 303 | 267 00311 1517 TAD I D0117 / |
| 304 | 268 00312 3116 DCA D0116 / |
| 305 | 269 00313 2117 ISZ D0117 / |
| 306 | 270 00314 1117 TAD D0117 / |
| 307 | 271 00315 3113 DCA D0113 / |
| 308 | 272 00316 2117 ISZ D0117 / |
| 309 | 273 00317 1117 TAD D0117 / |
| 310 | 274 00320 3115 DCA D0115 / |
| 311 | 275 00321 1513 TAD I D0113 / |
| 312 | 276 00322 3117 DCA D0117 / |
| 313 | 277 00323 5707 JMP I S0307 / RETURN |
| 314 | 278 C0324, |
| 315 | 279 00324 0000 C0324, 0000 / AND L0000 |
| 316 | 280 L0325, |
| 317 | 281 00325 4427 JMS I C0027 / LONG CALL TO S0447 |
| 318 | 282 00326 0177 AND C0177 / |
| 319 | 283 00327 7450 SNA / |
| 320 | 284 00330 5325 JMP L0325 / |
| 321 | 285 00331 7041 CIA / |
| 322 | 286 00332 5724 JMP I C0324 / LONG JUMP TO L0000 |
| 323 | 287 |
| 324 | 288 //////////////////////////////////////////////////////////////////////////////// |
| 325 | 289 / |
| 326 | 290 / SUBROUTINE: S0333 |
| 327 | 291 / |
| 328 | 292 / CALLED FROM: |
| 329 | 293 / 0270 |
| 330 | 294 / TOTAL 0001 (1) CALLS |
| 331 | 295 //////////////////////////////////////////////////////////////////////////////// |
| 332 | 296 S0333, |
| 333 | 297 00333 0000 0 / RETURN AREA |
| 334 | 298 00334 4476 JMS I C0076 / LONG CALL TO S0443 |
| 335 | 299 00335 7700 SMA CLA / |
| 336 | 300 00336 5733 JMP I S0333 / RETURN |
| 337 | \f |
| 338 | |
| 339 | |
| 340 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 7 |
| 341 | |
| 342 | |
| 343 | 301 00337 1116 TAD D0116 / |
| 344 | 302 00340 7402 HLT / |
| 345 | 303 00341 5733 JMP I S0333 / RETURN |
| 346 | 304 |
| 347 | 305 0400 *0400 |
| 348 | 306 |
| 349 | 307 //////////////////////////////////////////////////////////////////////////////// |
| 350 | 308 / |
| 351 | 309 / SUBROUTINE: S0400 |
| 352 | 310 / |
| 353 | 311 / CALLED FROM: |
| 354 | 312 / 0230 1215 1234 1325 1330 2003 2641 2663 2701 3003 3402 3424 3443 3462 3520 |
| 355 | 313 / 3557 3603 3610 3613 3616 3675 3714 3723 3732 3745 4000 4003 4006 4110 4266 |
| 356 | 314 / |
| 357 | 315 / TOTAL 0036 (30) CALLS |
| 358 | 316 //////////////////////////////////////////////////////////////////////////////// |
| 359 | 317 S0400, |
| 360 | 318 00400 0000 0 / RETURN AREA |
| 361 | 319 00401 7200 CLA / |
| 362 | 320 00402 1600 TAD I S0400 / |
| 363 | 321 00403 3113 DCA D0113 / |
| 364 | 322 00404 2200 ISZ S0400 / |
| 365 | 323 00405 1600 TAD I S0400 / |
| 366 | 324 00406 3513 DCA I D0113 / |
| 367 | 325 00407 2200 ISZ S0400 / |
| 368 | 326 00410 5600 D0410, 5600 / JMP I S0400 |
| 369 | 327 |
| 370 | 328 //////////////////////////////////////////////////////////////////////////////// |
| 371 | 329 / |
| 372 | 330 / SUBROUTINE: S0411 |
| 373 | 331 / |
| 374 | 332 / CALLED FROM: |
| 375 | 333 / 1141 2017 2034 2225 2446 2731 2733 2761 2771 2776 3043 3225 4060 4355 |
| 376 | 334 / TOTAL 0016 (14) CALLS |
| 377 | 335 //////////////////////////////////////////////////////////////////////////////// |
| 378 | 336 S0411, |
| 379 | 337 00411 0000 0 / RETURN AREA |
| 380 | 338 00412 7300 CLA CLL / AC = 0000 |
| 381 | 339 00413 1021 TAD D0021 / |
| 382 | 340 00414 3120 DCA D0120 / |
| 383 | 341 00415 5616 JMP I C0416 / LONG JUMP TO L0417 |
| 384 | 342 C0416, |
| 385 | 343 00416 0417 C0416, 0417 / AND I AI7 |
| 386 | 344 L0417, |
| 387 | 345 00417 1106 TAD C0106 / |
| 388 | 346 00420 3121 DCA D0121 / |
| 389 | 347 L0421, |
| 390 | 348 00421 2121 ISZ D0121 / |
| 391 | 349 00422 5221 JMP L0421 / |
| 392 | 350 00423 2120 ISZ D0120 / |
| 393 | \f |
| 394 | |
| 395 | |
| 396 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 8 |
| 397 | |
| 398 | |
| 399 | 351 00424 5217 JMP L0417 / |
| 400 | 352 00425 5611 JMP I S0411 / RETURN |
| 401 | 353 |
| 402 | 354 //////////////////////////////////////////////////////////////////////////////// |
| 403 | 355 / |
| 404 | 356 / SUBROUTINE: S0426 |
| 405 | 357 / |
| 406 | 358 / CALLED FROM: |
| 407 | 359 / 0676 4314 |
| 408 | 360 / TOTAL 0002 (2) CALLS |
| 409 | 361 //////////////////////////////////////////////////////////////////////////////// |
| 410 | 362 S0426, |
| 411 | 363 00426 0000 0 / RETURN AREA |
| 412 | 364 00427 2126 ISZ D0126 / |
| 413 | 365 00430 6046 TLS / LOAD THE TTO FROM THE CONTENT OF AC4 |
| 414 | 366 00431 7200 CLA / |
| 415 | 367 L0432, |
| 416 | 368 00432 1126 TAD D0126 / |
| 417 | 369 00433 7640 SZA CLA / |
| 418 | 370 00434 7410 SKP / |
| 419 | 371 00435 5240 JMP L0440 / |
| 420 | 372 00436 6041 TSF / SKIP IF TELEPRINTER FLAG IS A 1. |
| 421 | 373 00437 5232 JMP L0432 / |
| 422 | 374 L0440, |
| 423 | 375 00440 6042 C0440, 6042 / TCF |
| 424 | 376 00441 3126 DCA D0126 / |
| 425 | 377 00442 5626 JMP I S0426 / RETURN |
| 426 | 378 |
| 427 | 379 //////////////////////////////////////////////////////////////////////////////// |
| 428 | 380 / |
| 429 | 381 / SUBROUTINE: S0443 |
| 430 | 382 / |
| 431 | 383 / CALLED FROM: |
| 432 | 384 / 0246 0252 0271 0301 0334 1072 1076 1102 1126 1132 |
| 433 | 385 / TOTAL 0012 (10) CALLS |
| 434 | 386 //////////////////////////////////////////////////////////////////////////////// |
| 435 | 387 S0443, |
| 436 | 388 00443 0000 0 / RETURN AREA |
| 437 | 389 00444 7604 LAS / |
| 438 | 390 00445 0105 AND D0105 / |
| 439 | 391 00446 5643 JMP I S0443 / RETURN |
| 440 | 392 |
| 441 | 393 //////////////////////////////////////////////////////////////////////////////// |
| 442 | 394 / |
| 443 | 395 / SUBROUTINE: S0447 |
| 444 | 396 / |
| 445 | 397 / CALLED FROM: |
| 446 | 398 / 0325 0514 |
| 447 | 399 / TOTAL 0002 (2) CALLS |
| 448 | 400 //////////////////////////////////////////////////////////////////////////////// |
| 449 | \f |
| 450 | |
| 451 | |
| 452 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 9 |
| 453 | |
| 454 | |
| 455 | 401 S0447, |
| 456 | 402 00447 0000 0 / RETURN AREA |
| 457 | 403 00450 7200 CLA / |
| 458 | 404 00451 1311 TAD C0511 / |
| 459 | 405 00452 1276 TAD D0476 / |
| 460 | 406 00453 7640 SZA CLA / |
| 461 | 407 00454 5264 JMP L0464 / |
| 462 | 408 00455 1300 TAD C0500 / |
| 463 | 409 00456 3276 DCA D0476 / |
| 464 | 410 00457 1277 TAD D0477 / |
| 465 | 411 00460 7104 CLL RAL / |
| 466 | 412 00461 7430 SZL / |
| 467 | 413 00462 7001 IAC / |
| 468 | 414 00463 3277 DCA D0477 / |
| 469 | 415 L0464, |
| 470 | 416 00464 1277 TAD D0477 / |
| 471 | 417 00465 1676 TAD I D0476 / |
| 472 | 418 00466 3676 DCA I D0476 / |
| 473 | 419 00467 1312 TAD D0512 / |
| 474 | 420 00470 7010 RAR / |
| 475 | 421 00471 1676 TAD I D0476 / |
| 476 | 422 00472 2276 ISZ D0476 / |
| 477 | 423 00473 3312 DCA D0512 / |
| 478 | 424 00474 1312 TAD D0512 / |
| 479 | 425 00475 5647 JMP I S0447 / RETURN |
| 480 | 426 00476 0511 D0476, 0511 / AND I D0111 |
| 481 | 427 00477 6543 D0477, 6543 / 6543 |
| 482 | 428 00500 0501 C0500, 0501 / AND I C0101 |
| 483 | 429 00501 6543 C0501, 6543 / 6543 |
| 484 | 430 00502 3210 DCA D0410 / |
| 485 | 431 00503 0765 C0503, 0765 / AND I C0565 |
| 486 | 432 00504 5432 JMP I D0032 / LONG JUMP TO L3000 |
| 487 | 433 00505 2107 ISZ D0107 / |
| 488 | 434 00506 7654 SNA CLA OSR / |
| 489 | 435 00507 4321 JMS S0521 / |
| 490 | 436 00510 1076 TAD C0076 / |
| 491 | 437 00511 7267 C0511, 7267 / CLA CMA CML IAC RTL |
| 492 | 438 00512 0000 D0512, 0000 / AND L0000 |
| 493 | 439 |
| 494 | 440 //////////////////////////////////////////////////////////////////////////////// |
| 495 | 441 / |
| 496 | 442 / SUBROUTINE: S0513 |
| 497 | 443 / |
| 498 | 444 / CALLED FROM: |
| 499 | 445 / 1136 |
| 500 | 446 / TOTAL 0001 (1) CALLS |
| 501 | 447 //////////////////////////////////////////////////////////////////////////////// |
| 502 | 448 S0513, |
| 503 | 449 00513 0000 0 / RETURN AREA |
| 504 | 450 00514 4427 JMS I C0027 / LONG CALL TO S0447 |
| 505 | \f |
| 506 | |
| 507 | |
| 508 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 10 |
| 509 | |
| 510 | |
| 511 | 451 00515 0174 AND C0174 / |
| 512 | 452 00516 7041 CIA / |
| 513 | 453 00517 3021 DCA D0021 / |
| 514 | 454 00520 5713 JMP I S0513 / RETURN |
| 515 | 455 |
| 516 | 456 //////////////////////////////////////////////////////////////////////////////// |
| 517 | 457 / |
| 518 | 458 / SUBROUTINE: S0521 |
| 519 | 459 / |
| 520 | 460 / CALLED FROM: |
| 521 | 461 / 0507 1144 |
| 522 | 462 / TOTAL 0002 (2) CALLS |
| 523 | 463 //////////////////////////////////////////////////////////////////////////////// |
| 524 | 464 S0521, |
| 525 | 465 00521 0000 0 / RETURN AREA |
| 526 | 466 00522 3335 DCA D0535 / |
| 527 | 467 00523 1721 TAD I S0521 / |
| 528 | 468 00524 7041 CIA / |
| 529 | 469 00525 1335 TAD D0535 / |
| 530 | 470 00526 2321 ISZ S0521 / |
| 531 | 471 00527 7640 SZA CLA / |
| 532 | 472 00530 5333 JMP L0533 / |
| 533 | 473 00531 2321 ISZ S0521 / |
| 534 | 474 00532 5721 JMP I S0521 / RETURN |
| 535 | 475 L0533, |
| 536 | 476 00533 1335 TAD D0535 / |
| 537 | 477 00534 5721 JMP I S0521 / RETURN |
| 538 | 478 00535 0000 D0535, 0000 / AND L0000 |
| 539 | 479 |
| 540 | 480 //////////////////////////////////////////////////////////////////////////////// |
| 541 | 481 / |
| 542 | 482 / SUBROUTINE: S0536 |
| 543 | 483 / |
| 544 | 484 / CALLED FROM: |
| 545 | 485 / 0217 0224 3541 3553 |
| 546 | 486 / TOTAL 0004 (4) CALLS |
| 547 | 487 //////////////////////////////////////////////////////////////////////////////// |
| 548 | 488 S0536, |
| 549 | 489 00536 0000 0 / RETURN AREA |
| 550 | 490 00537 7200 CLA / |
| 551 | 491 00540 1736 TAD I S0536 / |
| 552 | 492 00541 3361 DCA D0561 / |
| 553 | 493 00542 2336 ISZ S0536 / |
| 554 | 494 00543 1736 TAD I S0536 / |
| 555 | 495 00544 3362 DCA D0562 / |
| 556 | 496 00545 2336 ISZ S0536 / |
| 557 | 497 00546 1736 TAD I S0536 / |
| 558 | 498 00547 3363 DCA D0563 / |
| 559 | 499 00550 2336 ISZ S0536 / |
| 560 | 500 L0551, |
| 561 | \f |
| 562 | |
| 563 | |
| 564 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 11 |
| 565 | |
| 566 | |
| 567 | 501 00551 7200 CLA / |
| 568 | 502 00552 1761 TAD I D0561 / |
| 569 | 503 00553 3762 DCA I D0562 / |
| 570 | 504 00554 2361 ISZ D0561 / |
| 571 | 505 00555 2362 ISZ D0562 / |
| 572 | 506 00556 2363 ISZ D0563 / |
| 573 | 507 00557 5351 JMP L0551 / |
| 574 | 508 00560 5736 JMP I S0536 / RETURN |
| 575 | 509 00561 0000 D0561, 0000 / AND L0000 |
| 576 | 510 00562 0000 D0562, 0000 / AND L0000 |
| 577 | 511 00563 0000 D0563, 0000 / AND L0000 |
| 578 | 512 |
| 579 | 513 0600 *0600 |
| 580 | 514 00600 0000 D0600, 0000 / AND L0000 |
| 581 | 515 00601 7200 CLA / |
| 582 | 516 00602 1600 TAD I D0600 / |
| 583 | 517 00603 3215 DCA D0615 / |
| 584 | 518 00604 2200 ISZ D0600 / |
| 585 | 519 L0605, |
| 586 | 520 00605 4447 JMS I C0047 / LONG CALL TO S0616 |
| 587 | 521 00606 0612 AND I C0612 / |
| 588 | 522 00607 2215 ISZ D0615 / |
| 589 | 523 00610 5205 JMP L0605 / |
| 590 | 524 00611 5600 JMP I D0600 / LONG JUMP TO L0000 |
| 591 | 525 00612 0015 C0612, 0015 / AND AI5 |
| 592 | 526 00613 0012 C0613, 0012 / AND AI2 |
| 593 | 527 00614 0001 AND L0001 / |
| 594 | 528 00615 0000 D0615, 0000 / AND L0000 |
| 595 | 529 |
| 596 | 530 //////////////////////////////////////////////////////////////////////////////// |
| 597 | 531 / |
| 598 | 532 / SUBROUTINE: S0616 |
| 599 | 533 / |
| 600 | 534 / CALLED FROM: |
| 601 | 535 / 0264 0605 0730 1061 1070 4065 4225 4252 4262 |
| 602 | 536 / TOTAL 0011 (9) CALLS |
| 603 | 537 //////////////////////////////////////////////////////////////////////////////// |
| 604 | 538 S0616, |
| 605 | 539 00616 0000 0 / RETURN AREA |
| 606 | 540 00617 7200 CLA / |
| 607 | 541 00620 1616 TAD I S0616 / |
| 608 | 542 00621 3300 DCA D0700 / |
| 609 | 543 00622 3302 DCA D0702 / |
| 610 | 544 00623 2216 ISZ S0616 / |
| 611 | 545 L0624, |
| 612 | 546 00624 1700 TAD I D0700 / |
| 613 | 547 00625 7012 RTR / |
| 614 | 548 00626 7012 RTR / |
| 615 | 549 00627 7012 RTR / |
| 616 | 550 00630 4235 JMS S0635 / |
| 617 | \f |
| 618 | |
| 619 | |
| 620 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 12 |
| 621 | |
| 622 | |
| 623 | 551 00631 1700 TAD I D0700 / |
| 624 | 552 00632 4235 JMS S0635 / |
| 625 | 553 00633 2300 ISZ D0700 / |
| 626 | 554 00634 5224 JMP L0624 / |
| 627 | 555 |
| 628 | 556 //////////////////////////////////////////////////////////////////////////////// |
| 629 | 557 / |
| 630 | 558 / SUBROUTINE: S0635 |
| 631 | 559 / |
| 632 | 560 / CALLED FROM: |
| 633 | 561 / 0630 0632 |
| 634 | 562 / TOTAL 0002 (2) CALLS |
| 635 | 563 //////////////////////////////////////////////////////////////////////////////// |
| 636 | 564 S0635, |
| 637 | 565 00635 0000 0 / RETURN AREA |
| 638 | 566 00636 0171 AND C0171 / |
| 639 | 567 00637 3301 C0637, 3301 / DCA D0701 |
| 640 | 568 00640 1302 TAD D0702 / |
| 641 | 569 00641 7640 SZA CLA / |
| 642 | 570 00642 5252 JMP L0652 / |
| 643 | 571 00643 1301 TAD D0701 / |
| 644 | 572 00644 7450 SNA / |
| 645 | 573 00645 5250 JMP L0650 / |
| 646 | 574 L0646, |
| 647 | 575 00646 4271 JMS S0671 / |
| 648 | 576 00647 5635 JMP I S0635 / RETURN |
| 649 | 577 L0650, |
| 650 | 578 00650 2302 ISZ D0702 / |
| 651 | 579 00651 5635 JMP I S0635 / RETURN |
| 652 | 580 L0652, |
| 653 | 581 00652 3302 DCA D0702 / |
| 654 | 582 00653 1301 TAD D0701 / |
| 655 | 583 00654 7041 CIA / |
| 656 | 584 00655 7450 SNA / |
| 657 | 585 00656 5246 JMP L0646 / |
| 658 | 586 00657 7001 IAC / |
| 659 | 587 00660 7650 SNA CLA / |
| 660 | 588 00661 5616 JMP I S0616 / RETURN |
| 661 | 589 00662 1170 TAD C0170 / |
| 662 | 590 00663 3273 DCA D0673 / |
| 663 | 591 00664 1301 TAD D0701 / |
| 664 | 592 00665 4271 JMS S0671 / |
| 665 | 593 00666 1167 TAD C0167 / |
| 666 | 594 00667 3273 DCA D0673 / |
| 667 | 595 00670 5635 JMP I S0635 / RETURN |
| 668 | 596 |
| 669 | 597 //////////////////////////////////////////////////////////////////////////////// |
| 670 | 598 / |
| 671 | 599 / SUBROUTINE: S0671 |
| 672 | 600 / |
| 673 | \f |
| 674 | |
| 675 | |
| 676 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 13 |
| 677 | |
| 678 | |
| 679 | 601 / CALLED FROM: |
| 680 | 602 / 0646 0665 |
| 681 | 603 / TOTAL 0002 (2) CALLS |
| 682 | 604 //////////////////////////////////////////////////////////////////////////////// |
| 683 | 605 S0671, |
| 684 | 606 00671 0000 0 / RETURN AREA |
| 685 | 607 00672 1166 TAD C0166 / |
| 686 | 608 00673 7510 D0673, 7510 / SPA |
| 687 | 609 00674 1165 TAD C0165 / |
| 688 | 610 00675 1164 TAD C0164 / |
| 689 | 611 00676 4473 JMS I C0073 / LONG CALL TO S0426 |
| 690 | 612 00677 5671 JMP I S0671 / RETURN |
| 691 | 613 00700 0000 D0700, 0000 / AND L0000 |
| 692 | 614 00701 0000 D0701, 0000 / AND L0000 |
| 693 | 615 00702 0000 D0702, 0000 / AND L0000 |
| 694 | 616 00703 3023 DCA D0023 / |
| 695 | 617 00704 7010 RAR / |
| 696 | 618 00705 3024 DCA D0024 / |
| 697 | 619 00706 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 698 | 620 00707 5312 JMP L0712 / |
| 699 | 621 00710 5711 JMP I C0711 / LONG JUMP TO L0000 |
| 700 | 622 C0711, |
| 701 | 623 00711 0000 C0711, 0000 / AND L0000 |
| 702 | 624 L0712, |
| 703 | 625 00712 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 704 | 626 00713 5317 JMP L0717 / |
| 705 | 627 00714 4563 JMS I C0163 / LONG CALL TO S1125 |
| 706 | 628 00715 5716 JMP I C0716 / LONG JUMP TO L0000 |
| 707 | 629 C0716, |
| 708 | 630 00716 0000 C0716, 0000 / AND L0000 |
| 709 | 631 L0717, |
| 710 | 632 00717 6031 KSF / SKIP IF KEYBOARD FLAG IS A 1. |
| 711 | 633 00720 5323 JMP L0723 / |
| 712 | 634 00721 6032 KCC / CLEAR AC AND CLEAR KEYBOARD FLAG. |
| 713 | 635 00722 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 714 | 636 L0723, |
| 715 | 637 00723 6041 TSF / SKIP IF TELEPRINTER FLAG IS A 1. |
| 716 | 638 00724 5330 JMP L0730 / |
| 717 | 639 00725 6042 TCF / CLEAR TELEPRINTER FLAG. |
| 718 | 640 00726 3126 DCA D0126 / |
| 719 | 641 00727 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 720 | 642 L0730, |
| 721 | 643 00730 4447 JMS I C0047 / LONG CALL TO S0616 |
| 722 | 644 00731 1501 TAD I C0101 / |
| 723 | 645 00732 7602 CLA HLT / |
| 724 | 646 L0733, |
| 725 | 647 00733 7300 C0733, 7300 / CLA CLL |
| 726 | 648 00734 1024 TAD D0024 / |
| 727 | 649 00735 7004 RAL / |
| 728 | 650 00736 1023 TAD D0023 / |
| 729 | \f |
| 730 | |
| 731 | |
| 732 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 14 |
| 733 | |
| 734 | |
| 735 | 651 00737 6001 ION / ENABLE INTERRUPTS |
| 736 | 652 00740 5400 JMP I L0000 / LONG JUMP TO L0000 |
| 737 | 653 00741 6022 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. |
| 738 | 654 00742 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 739 | 655 00743 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 740 | UD undefined ^ |
| 741 | 656 00744 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 742 | 657 |
| 743 | 658 1000 *1000 |
| 744 | 659 |
| 745 | 660 //////////////////////////////////////////////////////////////////////////////// |
| 746 | 661 / |
| 747 | 662 / SUBROUTINE: S1000 |
| 748 | 663 / |
| 749 | 664 / CALLED FROM: |
| 750 | 665 / 1051 1054 1152 1155 2620 2623 4033 4036 4042 |
| 751 | 666 / TOTAL 0011 (9) CALLS |
| 752 | 667 //////////////////////////////////////////////////////////////////////////////// |
| 753 | 668 S1000, |
| 754 | 669 01000 0000 0 / RETURN AREA |
| 755 | 670 01001 7200 C1001, 7200 / CLA |
| 756 | 671 01002 1600 TAD I S1000 / |
| 757 | 672 01003 3237 DCA D1037 / |
| 758 | 673 01004 2200 C1004, 2200 / ISZ S1000 |
| 759 | 674 01005 1600 TAD I S1000 / |
| 760 | 675 01006 3240 DCA D1040 / |
| 761 | 676 01007 2200 ISZ S1000 / |
| 762 | 677 01010 1162 TAD C0162 / |
| 763 | 678 01011 0637 C1011, 0637 / AND I D1037 |
| 764 | 679 01012 7112 CLL RTR / |
| 765 | 680 01013 7012 RTR / |
| 766 | 681 01014 7012 RTR / |
| 767 | 682 01015 4224 JMS S1024 / |
| 768 | 683 01016 2240 ISZ D1040 / |
| 769 | 684 01017 1162 TAD C0162 / |
| 770 | 685 01020 7040 CMA / |
| 771 | 686 01021 0637 AND I D1037 / |
| 772 | 687 01022 4224 JMS S1024 / |
| 773 | 688 01023 5600 JMP I S1000 / RETURN |
| 774 | 689 |
| 775 | 690 //////////////////////////////////////////////////////////////////////////////// |
| 776 | 691 / |
| 777 | 692 / SUBROUTINE: S1024 |
| 778 | 693 / |
| 779 | 694 / CALLED FROM: |
| 780 | 695 / 1015 1022 |
| 781 | 696 / TOTAL 0002 (2) CALLS |
| 782 | 697 //////////////////////////////////////////////////////////////////////////////// |
| 783 | 698 S1024, |
| 784 | 699 01024 0000 0 / RETURN AREA |
| 785 | \f |
| 786 | |
| 787 | |
| 788 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 15 |
| 789 | |
| 790 | |
| 791 | 700 01025 3241 DCA D1041 / |
| 792 | 701 01026 1241 TAD D1041 / |
| 793 | 702 01027 7006 RTL / |
| 794 | 703 01030 7004 RAL / |
| 795 | 704 01031 0161 AND C0161 / |
| 796 | 705 01032 1241 TAD D1041 / |
| 797 | 706 01033 0161 AND C0161 / |
| 798 | 707 01034 1160 TAD C0160 / |
| 799 | 708 01035 3640 DCA I D1040 / |
| 800 | 709 01036 5624 JMP I S1024 / RETURN |
| 801 | 710 01037 0000 D1037, 0000 / AND L0000 |
| 802 | 711 01040 0000 D1040, 0000 / AND L0000 |
| 803 | 712 01041 0000 D1041, 0000 / AND L0000 |
| 804 | 713 |
| 805 | 714 //////////////////////////////////////////////////////////////////////////////// |
| 806 | 715 / |
| 807 | 716 / SUBROUTINE: S1042 |
| 808 | 717 / |
| 809 | 718 / CALLED FROM: |
| 810 | 719 / 2014 2031 2724 2755 2767 2774 3036 4054 |
| 811 | 720 / TOTAL 0010 (8) CALLS |
| 812 | 721 //////////////////////////////////////////////////////////////////////////////// |
| 813 | 722 S1042, |
| 814 | 723 01042 0000 0 / RETURN AREA |
| 815 | 724 01043 7200 CLA / |
| 816 | 725 01044 1642 TAD I S1042 / |
| 817 | 726 01045 3021 DCA D0021 / |
| 818 | 727 01046 2242 ISZ S1042 / |
| 819 | 728 01047 5642 JMP I S1042 / RETURN |
| 820 | 729 |
| 821 | 730 //////////////////////////////////////////////////////////////////////////////// |
| 822 | 731 / |
| 823 | 732 / SUBROUTINE: S1050 |
| 824 | 733 / |
| 825 | 734 / CALLED FROM: |
| 826 | 735 / 1160 2025 2052 2073 2137 2220 2412 2442 2626 2675 2736 2751 3017 3051 3076 |
| 827 | 736 / 3147 3220 3415 3437 4046 |
| 828 | 737 / TOTAL 0024 (20) CALLS |
| 829 | 738 //////////////////////////////////////////////////////////////////////////////// |
| 830 | 739 S1050, |
| 831 | 740 01050 0000 0 / RETURN AREA |
| 832 | 741 01051 4452 JMS I C0052 / LONG CALL TO S1000 |
| 833 | 742 01052 0030 AND D0030 / |
| 834 | 743 01053 1471 TAD I C0071 / |
| 835 | 744 01054 4452 JMS I C0052 / LONG CALL TO S1000 |
| 836 | 745 01055 0116 AND D0116 / |
| 837 | 746 01056 1474 TAD I C0074 / |
| 838 | 747 01057 1650 TAD I S1050 / |
| 839 | 748 01060 3710 DCA I C1110 / |
| 840 | 749 01061 4447 JMS I C0047 / LONG CALL TO S0616 |
| 841 | \f |
| 842 | |
| 843 | |
| 844 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 16 |
| 845 | |
| 846 | |
| 847 | 750 01062 1466 TAD I C0066 / |
| 848 | 751 01063 2250 ISZ S1050 / |
| 849 | 752 01064 1650 TAD I S1050 / |
| 850 | 753 01065 7450 SNA / |
| 851 | 754 01066 5272 JMP L1072 / |
| 852 | 755 01067 3271 DCA D1071 / |
| 853 | 756 01070 4447 JMS I C0047 / LONG CALL TO S0616 |
| 854 | 757 01071 0000 D1071, 0000 / AND L0000 |
| 855 | 758 L1072, |
| 856 | 759 01072 4476 JMS I C0076 / LONG CALL TO S0443 |
| 857 | 760 01073 0157 AND C0157 / |
| 858 | 761 01074 7650 SNA CLA / |
| 859 | 762 01075 7402 HLT / |
| 860 | 763 01076 4476 JMS I C0076 / LONG CALL TO S0443 |
| 861 | 764 01077 0156 AND C0156 / |
| 862 | 765 01100 7640 SZA CLA / |
| 863 | 766 01101 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 864 | 767 01102 4476 JMS I C0076 / LONG CALL TO S0443 |
| 865 | 768 01103 0165 AND C0165 / |
| 866 | 769 01104 7640 SZA CLA / |
| 867 | 770 01105 2250 ISZ S1050 / |
| 868 | 771 01106 2250 ISZ S1050 / |
| 869 | 772 01107 5650 JMP I S1050 / RETURN |
| 870 | 773 01110 1476 C1110, 1476 / TAD I C0076 |
| 871 | 774 |
| 872 | 775 //////////////////////////////////////////////////////////////////////////////// |
| 873 | 776 / |
| 874 | 777 / SUBROUTINE: S1111 |
| 875 | 778 / |
| 876 | 779 / CALLED FROM: |
| 877 | 780 / 2012 2040 2066 2402 2432 2602 2661 2721 3012 3034 3065 3232 3247 3263 3422 |
| 878 | 781 / 3466 3700 3743 4346 |
| 879 | 782 / TOTAL 0023 (19) CALLS |
| 880 | 783 //////////////////////////////////////////////////////////////////////////////// |
| 881 | 784 S1111, |
| 882 | 785 01111 0000 0 / RETURN AREA |
| 883 | 786 01112 7200 CLA / |
| 884 | 787 01113 1711 TAD I S1111 / |
| 885 | 788 01114 3122 DCA D0122 / |
| 886 | 789 01115 2311 ISZ S1111 / |
| 887 | 790 01116 5711 JMP I S1111 / RETURN |
| 888 | 791 |
| 889 | 792 //////////////////////////////////////////////////////////////////////////////// |
| 890 | 793 / |
| 891 | 794 / SUBROUTINE: S1117 |
| 892 | 795 / |
| 893 | 796 / CALLED FROM: |
| 894 | 797 / 1232 |
| 895 | 798 / TOTAL 0001 (1) CALLS |
| 896 | 799 //////////////////////////////////////////////////////////////////////////////// |
| 897 | \f |
| 898 | |
| 899 | |
| 900 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 17 |
| 901 | |
| 902 | |
| 903 | 800 S1117, |
| 904 | 801 01117 0000 0 / RETURN AREA |
| 905 | 802 01120 7200 CLA / |
| 906 | 803 01121 1717 TAD I S1117 / |
| 907 | 804 01122 3123 DCA D0123 / |
| 908 | 805 01123 2317 ISZ S1117 / |
| 909 | 806 01124 5717 JMP I S1117 / RETURN |
| 910 | 807 |
| 911 | 808 //////////////////////////////////////////////////////////////////////////////// |
| 912 | 809 / |
| 913 | 810 / SUBROUTINE: S1125 |
| 914 | 811 / |
| 915 | 812 / CALLED FROM: |
| 916 | 813 / 0714 3501 3515 3551 4121 |
| 917 | 814 / TOTAL 0005 (5) CALLS |
| 918 | 815 //////////////////////////////////////////////////////////////////////////////// |
| 919 | 816 S1125, |
| 920 | 817 01125 0000 0 / RETURN AREA |
| 921 | 818 01126 4476 JMS I C0076 / LONG CALL TO S0443 |
| 922 | 819 01127 0155 AND C0155 / |
| 923 | 820 01130 7640 D1130, 7640 / SZA CLA |
| 924 | 821 01131 5725 JMP I S1125 / RETURN |
| 925 | 822 01132 4476 JMS I C0076 / LONG CALL TO S0443 |
| 926 | 823 01133 0154 AND C0154 / |
| 927 | 824 01134 7640 SZA CLA / |
| 928 | 825 01135 7410 SKP / |
| 929 | 826 01136 4472 JMS I C0072 / LONG CALL TO S0513 |
| 930 | 827 01137 1021 TAD D0021 / |
| 931 | 828 01140 7440 SZA / |
| 932 | 829 01141 4502 JMS I C0102 / LONG CALL TO S0411 |
| 933 | 830 01142 5725 JMP I S1125 / RETURN |
| 934 | 831 |
| 935 | 832 //////////////////////////////////////////////////////////////////////////////// |
| 936 | 833 / |
| 937 | 834 / SUBROUTINE: S1143 |
| 938 | 835 / |
| 939 | 836 / CALLED FROM: |
| 940 | 837 / 3475 3534 3573 3707 |
| 941 | 838 / TOTAL 0004 (4) CALLS |
| 942 | 839 //////////////////////////////////////////////////////////////////////////////// |
| 943 | 840 S1143, |
| 944 | 841 01143 0000 0 / RETURN AREA |
| 945 | 842 01144 4471 JMS I C0071 / LONG CALL TO S0521 |
| 946 | 843 01145 0000 D1145, 0000 / AND L0000 |
| 947 | 844 01146 5351 JMP L1151 / |
| 948 | 845 01147 2343 ISZ S1143 / |
| 949 | 846 01150 5743 JMP I S1143 / RETURN |
| 950 | 847 L1151, |
| 951 | 848 01151 3131 DCA D0131 / |
| 952 | 849 01152 4452 JMS I C0052 / LONG CALL TO S1000 |
| 953 | \f |
| 954 | |
| 955 | |
| 956 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 18 |
| 957 | |
| 958 | |
| 959 | 850 01153 1145 TAD C0145 / |
| 960 | 851 01154 1604 TAD I C1004 / |
| 961 | 852 01155 4452 JMS I C0052 / LONG CALL TO S1000 |
| 962 | 853 01156 0131 AND D0131 / |
| 963 | 854 01157 1611 TAD I C1011 / |
| 964 | 855 01160 4451 JMS I C0051 / LONG CALL TO S1050 |
| 965 | 856 01161 4040 C1161, 4040 / JMS C0040 |
| 966 | 857 01162 1601 TAD I C1001 / |
| 967 | 858 01163 5743 JMP I S1143 / RETURN |
| 968 | 859 01164 5743 JMP I S1143 / RETURN |
| 969 | 860 |
| 970 | 861 1200 *1200 |
| 971 | 862 |
| 972 | 863 //////////////////////////////////////////////////////////////////////////////// |
| 973 | 864 / |
| 974 | 865 / SUBROUTINE: S1200 |
| 975 | 866 / |
| 976 | 867 / CALLED FROM: |
| 977 | 868 / 1313 1315 1317 3474 3525 3533 3564 3572 |
| 978 | 869 / TOTAL 0010 (8) CALLS |
| 979 | 870 //////////////////////////////////////////////////////////////////////////////// |
| 980 | 871 S1200, |
| 981 | 872 01200 0000 0 / RETURN AREA |
| 982 | 873 01201 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 983 | 874 L1202, |
| 984 | 875 01202 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 985 | 876 01203 5202 JMP L1202 / |
| 986 | 877 01204 7200 CLA / |
| 987 | 878 01205 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 988 | UD undefined ^ |
| 989 | 879 01206 5600 JMP I S1200 / RETURN |
| 990 | 880 |
| 991 | 881 //////////////////////////////////////////////////////////////////////////////// |
| 992 | 882 / |
| 993 | 883 / SUBROUTINE: S1207 |
| 994 | 884 / |
| 995 | 885 / CALLED FROM: |
| 996 | 886 / 1241 3514 3550 4115 4120 |
| 997 | 887 / TOTAL 0005 (5) CALLS |
| 998 | 888 //////////////////////////////////////////////////////////////////////////////// |
| 999 | 889 S1207, |
| 1000 | 890 01207 0000 0 / RETURN AREA |
| 1001 | 891 01210 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 1002 | 892 L1211, |
| 1003 | 893 01211 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 1004 | 894 01212 5211 JMP L1211 / |
| 1005 | 895 01213 5607 JMP I S1207 / RETURN |
| 1006 | 896 |
| 1007 | 897 //////////////////////////////////////////////////////////////////////////////// |
| 1008 | 898 / |
| 1009 | \f |
| 1010 | |
| 1011 | |
| 1012 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 19 |
| 1013 | |
| 1014 | |
| 1015 | 899 / SUBROUTINE: S1214 |
| 1016 | 900 / |
| 1017 | 901 / CALLED FROM: |
| 1018 | 902 / 1231 3507 3540 |
| 1019 | 903 / TOTAL 0003 (3) CALLS |
| 1020 | 904 //////////////////////////////////////////////////////////////////////////////// |
| 1021 | 905 S1214, |
| 1022 | 906 01214 0000 0 / RETURN AREA |
| 1023 | 907 01215 4475 JMS I C0075 / LONG CALL TO S0400 |
| 1024 | 908 01216 1227 TAD D1227 / |
| 1025 | 909 01217 7634 SZL CLA OSR / |
| 1026 | 910 L1220, |
| 1027 | 911 01220 7200 CLA / |
| 1028 | 912 01221 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 1029 | 913 L1222, |
| 1030 | 914 01222 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 1031 | 915 01223 5222 JMP L1222 / |
| 1032 | 916 01224 2227 ISZ D1227 / |
| 1033 | 917 01225 5220 JMP L1220 / |
| 1034 | 918 01226 5614 JMP I S1214 / RETURN |
| 1035 | 919 01227 0000 D1227, 0000 / AND L0000 |
| 1036 | 920 |
| 1037 | 921 //////////////////////////////////////////////////////////////////////////////// |
| 1038 | 922 / |
| 1039 | 923 / SUBROUTINE: S1230 |
| 1040 | 924 / |
| 1041 | 925 / CALLED FROM: |
| 1042 | 926 / 3506 3537 |
| 1043 | 927 / TOTAL 0002 (2) CALLS |
| 1044 | 928 //////////////////////////////////////////////////////////////////////////////// |
| 1045 | 929 S1230, |
| 1046 | 930 01230 0000 0 / RETURN AREA |
| 1047 | 931 01231 4214 JMS S1214 / |
| 1048 | 932 01232 4500 JMS I C0100 / LONG CALL TO S1117 |
| 1049 | 933 01233 7767 C1233, 7767 / CLA MQA SCA MQL DVI + |
| 1050 | 934 01234 4475 JMS I C0075 / LONG CALL TO S0400 |
| 1051 | 935 01235 1246 TAD D1246 / |
| 1052 | 936 01236 1521 TAD I D0121 / |
| 1053 | 937 L1237, |
| 1054 | 938 01237 7200 CLA / |
| 1055 | 939 01240 1646 TAD I D1246 / |
| 1056 | 940 01241 4207 JMS S1207 / |
| 1057 | 941 01242 2246 ISZ D1246 / |
| 1058 | 942 01243 2123 ISZ D0123 / |
| 1059 | 943 01244 5237 JMP L1237 / |
| 1060 | 944 01245 5630 JMP I S1230 / RETURN |
| 1061 | 945 01246 0000 D1246, 0000 / AND L0000 |
| 1062 | 946 01247 1233 TAD C1233 / |
| 1063 | 947 01250 7622 SNL CLA HLT / |
| 1064 | 948 01251 0000 D1251, 0000 / AND L0000 |
| 1065 | \f |
| 1066 | |
| 1067 | |
| 1068 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 20 |
| 1069 | |
| 1070 | |
| 1071 | 949 01252 0000 D1252, 0000 / AND L0000 |
| 1072 | 950 01253 0000 D1253, 0000 / AND L0000 |
| 1073 | 951 01254 0000 D1254, 0000 / AND L0000 |
| 1074 | 952 |
| 1075 | 953 //////////////////////////////////////////////////////////////////////////////// |
| 1076 | 954 / |
| 1077 | 955 / SUBROUTINE: S1255 |
| 1078 | 956 / |
| 1079 | 957 / CALLED FROM: |
| 1080 | 958 / 3547 |
| 1081 | 959 / TOTAL 0001 (1) CALLS |
| 1082 | 960 //////////////////////////////////////////////////////////////////////////////// |
| 1083 | 961 S1255, |
| 1084 | 962 01255 0000 0 / RETURN AREA |
| 1085 | 963 01256 7300 CLA CLL / AC = 0000 |
| 1086 | 964 01257 1251 TAD D1251 / |
| 1087 | 965 01260 7006 RTL / |
| 1088 | 966 01261 1252 TAD D1252 / |
| 1089 | 967 01262 3251 DCA D1251 / |
| 1090 | 968 01263 1251 TAD D1251 / |
| 1091 | 969 01264 7006 RTL / |
| 1092 | 970 01265 1252 TAD D1252 / |
| 1093 | 971 01266 7006 RTL / |
| 1094 | 972 01267 3252 DCA D1252 / |
| 1095 | 973 01270 1251 TAD D1251 / |
| 1096 | 974 01271 0153 AND C0153 / |
| 1097 | 975 01272 5655 JMP I S1255 / RETURN |
| 1098 | 976 |
| 1099 | 977 //////////////////////////////////////////////////////////////////////////////// |
| 1100 | 978 / |
| 1101 | 979 / SUBROUTINE: S1273 |
| 1102 | 980 / |
| 1103 | 981 / CALLED FROM: |
| 1104 | 982 / 3562 3570 |
| 1105 | 983 / TOTAL 0002 (2) CALLS |
| 1106 | 984 //////////////////////////////////////////////////////////////////////////////// |
| 1107 | 985 S1273, |
| 1108 | 986 01273 0000 0 / RETURN AREA |
| 1109 | 987 01274 7300 CLA CLL / AC = 0000 |
| 1110 | 988 01275 1253 TAD D1253 / |
| 1111 | 989 01276 7006 RTL / |
| 1112 | 990 01277 1254 TAD D1254 / |
| 1113 | 991 01300 3253 DCA D1253 / |
| 1114 | 992 01301 1253 TAD D1253 / |
| 1115 | 993 01302 7006 RTL / |
| 1116 | 994 01303 1254 TAD D1254 / |
| 1117 | 995 01304 7006 RTL / |
| 1118 | 996 01305 3254 DCA D1254 / |
| 1119 | 997 01306 1253 TAD D1253 / |
| 1120 | 998 01307 0153 AND C0153 / |
| 1121 | \f |
| 1122 | |
| 1123 | |
| 1124 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 21 |
| 1125 | |
| 1126 | |
| 1127 | 999 01310 5673 JMP I S1273 / RETURN |
| 1128 | 1000 C1311, |
| 1129 | 1001 01311 0000 C1311, 0000 / AND L0000 |
| 1130 | 1002 L1312, |
| 1131 | 1003 01312 4466 JMS I C0066 / LONG CALL TO S1400 |
| 1132 | 1004 01313 4455 JMS I C0055 / LONG CALL TO S1200 |
| 1133 | 1005 01314 3110 DCA D0110 / |
| 1134 | 1006 01315 4455 JMS I C0055 / LONG CALL TO S1200 |
| 1135 | 1007 01316 3111 DCA D0111 / |
| 1136 | 1008 01317 4455 JMS I C0055 / LONG CALL TO S1200 |
| 1137 | 1009 01320 3112 DCA D0112 / |
| 1138 | 1010 01321 4465 JMS I C0065 / LONG CALL TO S1324 |
| 1139 | 1011 01322 5312 JMP L1312 / |
| 1140 | 1012 01323 5711 JMP I C1311 / LONG JUMP TO L0000 |
| 1141 | 1013 |
| 1142 | 1014 //////////////////////////////////////////////////////////////////////////////// |
| 1143 | 1015 / |
| 1144 | 1016 / SUBROUTINE: S1324 |
| 1145 | 1017 / |
| 1146 | 1018 / CALLED FROM: |
| 1147 | 1019 / 1321 3741 |
| 1148 | 1020 / TOTAL 0002 (2) CALLS |
| 1149 | 1021 //////////////////////////////////////////////////////////////////////////////// |
| 1150 | 1022 S1324, |
| 1151 | 1023 01324 0000 0 / RETURN AREA |
| 1152 | 1024 01325 4475 JMS I C0075 / LONG CALL TO S0400 |
| 1153 | 1025 01326 1363 TAD D1363 / |
| 1154 | 1026 01327 7000 NOP / |
| 1155 | 1027 L1330, |
| 1156 | 1028 01330 4475 JMS I C0075 / LONG CALL TO S0400 |
| 1157 | 1029 01331 1364 TAD D1364 / |
| 1158 | 1030 01332 7766 SMA SZA SNL CLA OSR HLT / |
| 1159 | 1031 L1333, |
| 1160 | 1032 01333 4467 JMS I C0067 / LONG CALL TO S1412 |
| 1161 | 1033 01334 7040 CMA / |
| 1162 | 1034 01335 0110 AND D0110 / |
| 1163 | 1035 01336 7440 SZA / |
| 1164 | 1036 01337 5333 JMP L1333 / |
| 1165 | 1037 01340 4467 JMS I C0067 / LONG CALL TO S1412 |
| 1166 | 1038 01341 7040 CMA / |
| 1167 | 1039 01342 0111 AND D0111 / |
| 1168 | 1040 01343 7450 SNA / |
| 1169 | 1041 01344 5351 JMP L1351 / |
| 1170 | 1042 01345 2363 ISZ D1363 / |
| 1171 | 1043 01346 5330 JMP L1330 / |
| 1172 | 1044 L1347, |
| 1173 | 1045 01347 7602 CLA HLT / |
| 1174 | 1046 01350 5724 JMP I S1324 / RETURN |
| 1175 | 1047 L1351, |
| 1176 | 1048 01351 4467 JMS I C0067 / LONG CALL TO S1412 |
| 1177 | \f |
| 1178 | |
| 1179 | |
| 1180 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 22 |
| 1181 | |
| 1182 | |
| 1183 | 1049 01352 7040 CMA / |
| 1184 | 1050 01353 0112 AND D0112 / |
| 1185 | 1051 01354 7440 SZA / |
| 1186 | 1052 01355 5360 JMP L1360 / |
| 1187 | 1053 01356 2324 ISZ S1324 / |
| 1188 | 1054 01357 5724 JMP I S1324 / RETURN |
| 1189 | 1055 L1360, |
| 1190 | 1056 01360 2364 ISZ D1364 / |
| 1191 | 1057 01361 5330 JMP L1330 / |
| 1192 | 1058 01362 5347 JMP L1347 / |
| 1193 | 1059 01363 0000 D1363, 0000 / AND L0000 |
| 1194 | 1060 01364 0000 D1364, 0000 / AND L0000 |
| 1195 | 1061 |
| 1196 | 1062 1400 *1400 |
| 1197 | 1063 |
| 1198 | 1064 //////////////////////////////////////////////////////////////////////////////// |
| 1199 | 1065 / |
| 1200 | 1066 / SUBROUTINE: S1400 |
| 1201 | 1067 / |
| 1202 | 1068 / CALLED FROM: |
| 1203 | 1069 / 1312 3510 3517 3606 |
| 1204 | 1070 / TOTAL 0004 (4) CALLS |
| 1205 | 1071 //////////////////////////////////////////////////////////////////////////////// |
| 1206 | 1072 S1400, |
| 1207 | 1073 01400 0000 0 / RETURN AREA |
| 1208 | 1074 01401 7201 CLA IAC / |
| 1209 | 1075 01402 3260 DCA D1460 / |
| 1210 | 1076 01403 4474 C1403, 4474 / JMS I C0074 |
| 1211 | 1077 01404 1460 TAD I C0060 / |
| 1212 | 1078 01405 1461 D1405, 1461 / TAD I C0061 |
| 1213 | 1079 01406 7775 C1406, 7775 / CLA MQA SCA MQL ASR + |
| 1214 | 1080 01407 3264 DCA D1464 / |
| 1215 | 1081 01410 3265 DCA D1465 / |
| 1216 | 1082 01411 5600 JMP I S1400 / RETURN |
| 1217 | 1083 |
| 1218 | 1084 //////////////////////////////////////////////////////////////////////////////// |
| 1219 | 1085 / |
| 1220 | 1086 / SUBROUTINE: S1412 |
| 1221 | 1087 / |
| 1222 | 1088 / CALLED FROM: |
| 1223 | 1089 / 1333 1340 1351 3472 3513 3523 3531 3704 |
| 1224 | 1090 / TOTAL 0010 (8) CALLS |
| 1225 | 1091 //////////////////////////////////////////////////////////////////////////////// |
| 1226 | 1092 S1412, |
| 1227 | 1093 01412 0000 0 / RETURN AREA |
| 1228 | 1094 01413 7200 CLA / |
| 1229 | 1095 01414 1260 TAD D1460 / |
| 1230 | 1096 01415 3261 DCA D1461 / |
| 1231 | 1097 01416 1264 TAD D1464 / |
| 1232 | 1098 01417 7040 CMA / |
| 1233 | \f |
| 1234 | |
| 1235 | |
| 1236 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 23 |
| 1237 | |
| 1238 | |
| 1239 | 1099 L1420, |
| 1240 | 1100 01420 3264 DCA D1464 / |
| 1241 | 1101 01421 1264 TAD D1464 / |
| 1242 | 1102 01422 7650 D1422, 7650 / SNA CLA |
| 1243 | 1103 01423 5227 JMP L1427 / |
| 1244 | 1104 01424 1261 TAD D1461 / |
| 1245 | 1105 01425 7040 CMA / |
| 1246 | 1106 01426 5231 JMP L1431 / |
| 1247 | 1107 L1427, |
| 1248 | 1108 01427 1261 TAD D1461 / |
| 1249 | 1109 01430 7041 CIA / |
| 1250 | 1110 L1431, |
| 1251 | 1111 01431 0153 AND C0153 / |
| 1252 | 1112 01432 3260 DCA D1460 / |
| 1253 | 1113 01433 1261 TAD D1461 / |
| 1254 | 1114 01434 5612 JMP I S1412 / RETURN |
| 1255 | 1115 |
| 1256 | 1116 //////////////////////////////////////////////////////////////////////////////// |
| 1257 | 1117 / |
| 1258 | 1118 / SUBROUTINE: S1435 |
| 1259 | 1119 / |
| 1260 | 1120 / CALLED FROM: |
| 1261 | 1121 / 3647 |
| 1262 | 1122 / TOTAL 0001 (1) CALLS |
| 1263 | 1123 //////////////////////////////////////////////////////////////////////////////// |
| 1264 | 1124 S1435, |
| 1265 | 1125 01435 0000 0 / RETURN AREA |
| 1266 | 1126 01436 7200 CLA / |
| 1267 | 1127 01437 1262 TAD D1462 / |
| 1268 | 1128 01440 3263 DCA D1463 / |
| 1269 | 1129 01441 1265 TAD D1465 / |
| 1270 | 1130 01442 7040 CMA / |
| 1271 | 1131 01443 3265 DCA D1465 / |
| 1272 | 1132 01444 1265 TAD D1465 / |
| 1273 | 1133 01445 7650 SNA CLA / |
| 1274 | 1134 01446 5252 JMP L1452 / |
| 1275 | 1135 01447 1263 TAD D1463 / |
| 1276 | 1136 01450 7040 CMA / |
| 1277 | 1137 01451 5254 JMP L1454 / |
| 1278 | 1138 L1452, |
| 1279 | 1139 01452 1263 TAD D1463 / |
| 1280 | 1140 01453 7041 CIA / |
| 1281 | 1141 L1454, |
| 1282 | 1142 01454 0153 AND C0153 / |
| 1283 | 1143 01455 3262 DCA D1462 / |
| 1284 | 1144 01456 1263 TAD D1463 / |
| 1285 | 1145 01457 5635 JMP I S1435 / RETURN |
| 1286 | 1146 01460 0000 D1460, 0000 / AND L0000 |
| 1287 | 1147 01461 0000 D1461, 0000 / AND L0000 |
| 1288 | 1148 01462 0000 D1462, 0000 / AND L0000 |
| 1289 | \f |
| 1290 | |
| 1291 | |
| 1292 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 24 |
| 1293 | |
| 1294 | |
| 1295 | 1149 01463 0000 D1463, 0000 / AND L0000 |
| 1296 | 1150 01464 0000 D1464, 0000 / AND L0000 |
| 1297 | 1151 01465 0000 D1465, 0000 / AND L0000 |
| 1298 | 1152 01466 0015 C1466, 0015 / AND AI5 |
| 1299 | 1153 01467 0012 C1467, 0012 / AND AI2 |
| 1300 | 1154 01470 5220 JMP L1420 / |
| 1301 | 1155 01471 4040 C1471, 4040 / JMS C0040 |
| 1302 | 1156 01472 4040 C1472, 4040 / JMS C0040 |
| 1303 | 1157 01473 4022 JMS D0022 / |
| 1304 | 1158 01474 4040 C1474, 4040 / JMS C0040 |
| 1305 | 1159 01475 4040 C1475, 4040 / JMS C0040 |
| 1306 | 1160 01476 4040 D1476, 4040 / JMS C0040 |
| 1307 | 1161 01477 4040 C1477, 4040 / JMS C0040 |
| 1308 | 1162 01500 0001 AND L0001 / |
| 1309 | 1163 01501 0015 C1501, 0015 / AND AI5 |
| 1310 | 1164 01502 0012 C1502, 0012 / AND AI2 |
| 1311 | 1165 01503 0007 C1503, 0007 / AND C0007 |
| 1312 | 1166 01504 4025 C1504, 4025 / JMS C0025 |
| 1313 | 1167 01505 1605 TAD I D1405 / |
| 1314 | 1168 01506 3020 DCA D0020 / |
| 1315 | 1169 01507 0503 AND I C0103 / |
| 1316 | 1170 01510 2405 C1510, 2405 / ISZ I D0005 |
| 1317 | 1171 01511 0440 C1511, 0440 / AND I C0040 |
| 1318 | 1172 01512 1116 TAD D0116 / |
| 1319 | 1173 01513 2405 ISZ I D0005 / |
| 1320 | 1174 01514 2222 ISZ D1422 / |
| 1321 | 1175 01515 2520 ISZ I D0120 / |
| 1322 | 1176 01516 2456 ISZ I C0056 / |
| 1323 | 1177 01517 0015 C1517, 0015 / AND AI5 |
| 1324 | 1178 01520 0001 AND L0001 / |
| 1325 | 1179 01521 0037 AND C0037 / |
| 1326 | 1180 01522 0040 C1522, 0040 / AND C0040 |
| 1327 | 1181 01523 0040 AND C0040 / |
| 1328 | 1182 01524 0037 C1524, 0037 / AND C0037 |
| 1329 | 1183 01525 0000 AND L0000 / |
| 1330 | 1184 01526 0077 AND C0077 / |
| 1331 | 1185 01527 0011 C1527, 0011 / AND AI1 |
| 1332 | 1186 01530 0011 C1530, 0011 / AND AI1 |
| 1333 | 1187 01531 0006 AND C0006 / |
| 1334 | 1188 01532 0015 C1532, 0015 / AND AI5 |
| 1335 | 1189 01533 0012 C1533, 0012 / AND AI2 |
| 1336 | 1190 01534 4022 JMS D0022 / |
| 1337 | 1191 01535 0422 AND I D0022 / |
| 1338 | 1192 01536 4023 JMS D0023 / |
| 1339 | 1193 01537 2005 ISZ D0005 / |
| 1340 | 1194 01540 0504 AND I D0104 / |
| 1341 | 1195 01541 4000 JMS L0000 / |
| 1342 | 1196 01542 0100 AND C0100 / |
| 1343 | 1197 01543 0015 C1543, 0015 / AND AI5 |
| 1344 | 1198 01544 0012 C1544, 0012 / AND AI2 |
| 1345 | \f |
| 1346 | |
| 1347 | |
| 1348 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 25 |
| 1349 | |
| 1350 | |
| 1351 | 1199 01545 4020 JMS D0020 / |
| 1352 | 1200 01546 0310 AND C1510 / |
| 1353 | 1201 01547 4023 JMS D0023 / |
| 1354 | 1202 01550 2005 ISZ D0005 / |
| 1355 | 1203 01551 0504 AND I D0104 / |
| 1356 | 1204 01552 4000 JMS L0000 / |
| 1357 | 1205 01553 0100 AND C0100 / |
| 1358 | 1206 01554 4003 JMS D0003 / |
| 1359 | 1207 01555 2023 ISZ D0023 / |
| 1360 | 1208 01556 0015 C1556, 0015 / AND AI5 |
| 1361 | 1209 01557 0001 AND L0001 / |
| 1362 | 1210 01560 0015 C1560, 0015 / AND AI5 |
| 1363 | 1211 01561 0012 C1561, 0012 / AND AI2 |
| 1364 | 1212 01562 4000 JMS L0000 / |
| 1365 | 1213 01563 0711 AND I C1511 / |
| 1366 | 1214 01564 1603 TAD I C1403 / |
| 1367 | 1215 01565 1722 TAD I C1522 / |
| 1368 | 1216 01566 2205 ISZ D1405 / |
| 1369 | 1217 01567 0324 AND C1524 / |
| 1370 | 1218 01570 4022 JMS D0022 / |
| 1371 | 1219 01571 2416 C1571, 2416 / ISZ I AI6 |
| 1372 | 1220 01572 4023 JMS D0023 / |
| 1373 | 1221 01573 0514 AND I C0114 / |
| 1374 | 1222 01574 0503 AND I C0103 / |
| 1375 | 1223 01575 2405 ISZ I D0005 / |
| 1376 | 1224 01576 0456 AND I C0056 / |
| 1377 | 1225 01577 0015 C1577, 0015 / AND AI5 |
| 1378 | 1226 01600 0001 AND L0001 / |
| 1379 | 1227 01601 4023 JMS D0023 / |
| 1380 | 1228 01602 5702 C1602, 5702 / JMP I C1702 |
| 1381 | 1229 01603 4040 C1603, 4040 / JMS C0040 |
| 1382 | 1230 01604 4040 C1604, 4040 / JMS C0040 |
| 1383 | 1231 01605 4040 D1605, 4040 / JMS C0040 |
| 1384 | 1232 01606 4040 C1606, 4040 / JMS C0040 |
| 1385 | 1233 01607 2701 C1607, 2701 / ISZ I C1701 |
| 1386 | 1234 01610 2340 C1610, 2340 / ISZ C1740 |
| 1387 | 1235 01611 4040 C1611, 4040 / JMS C0040 |
| 1388 | 1236 01612 4040 C1612, 4040 / JMS C0040 |
| 1389 | 1237 01613 0015 C1613, 0015 / AND AI5 |
| 1390 | 1238 01614 0001 AND L0001 / |
| 1391 | 1239 01615 0015 C1615, 0015 / AND AI5 |
| 1392 | 1240 01616 0012 C1616, 0012 / AND AI2 |
| 1393 | 1241 01617 7005 IAC RAL / |
| 1394 | 1242 01620 4040 C1620, 4040 / JMS C0040 |
| 1395 | 1243 01621 2331 C1621, 2331 / ISZ C1731 |
| 1396 | 1244 01622 2324 C1622, 2324 / ISZ C1724 |
| 1397 | 1245 01623 0515 AND I D0115 / |
| 1398 | 1246 01624 5640 JMP I D1640 / LONG JUMP TO L2440 |
| 1399 | 1247 01625 2305 C1625, 2305 / ISZ C1705 |
| 1400 | 1248 01626 2440 ISZ I C0040 / |
| 1401 | \f |
| 1402 | |
| 1403 | |
| 1404 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 26 |
| 1405 | |
| 1406 | |
| 1407 | 1249 01627 2411 C1627, 2411 / ISZ I AI1 |
| 1408 | 1250 01630 1505 TAD I D0105 / |
| 1409 | 1251 01631 4004 C1631, 4004 / JMS C0004 |
| 1410 | 1252 01632 0514 AND I C0114 / |
| 1411 | 1253 01633 0131 AND D0131 / |
| 1412 | 1254 01634 4003 JMS D0003 / |
| 1413 | 1255 01635 1716 C1635, 1716 / TAD I C1716 |
| 1414 | 1256 01636 2324 C1636, 2324 / ISZ C1724 |
| 1415 | 1257 01637 0116 AND D0116 / |
| 1416 | 1258 01640 2440 D1640, 2440 / ISZ I C0040 |
| 1417 | 1259 01641 1116 TAD D0116 / |
| 1418 | 1260 01642 4023 JMS D0023 / |
| 1419 | 1261 01643 2256 ISZ D1656 / |
| 1420 | 1262 01644 0015 C1644, 0015 / AND AI5 |
| 1421 | 1263 01645 0012 C1645, 0012 / AND AI2 |
| 1422 | 1264 01646 2205 ISZ D1605 / |
| 1423 | 1265 01647 0605 AND I D1605 / |
| 1424 | 1266 01650 2240 ISZ D1640 / |
| 1425 | 1267 01651 2417 C1651, 2417 / ISZ I AI7 |
| 1426 | 1268 01652 4020 JMS D0020 / |
| 1427 | 1269 01653 0107 AND D0107 / |
| 1428 | 1270 01654 0523 AND I D0123 / |
| 1429 | 1271 01655 4062 C1655, 4062 / JMS C0062 |
| 1430 | 1272 01656 4001 D1656, 4001 / JMS L0001 |
| 1431 | 1273 01657 1604 TAD I C1604 / |
| 1432 | 1274 01660 4063 C1660, 4063 / JMS D0063 |
| 1433 | 1275 01661 4017 C1661, 4017 / JMS AI7 |
| 1434 | 1276 01662 0640 AND I D1640 / |
| 1435 | 1277 01663 2022 ISZ D0022 / |
| 1436 | 1278 01664 0740 C1664, 0740 / AND I C1740 |
| 1437 | 1279 01665 1411 C1665, 1411 / TAD I AI1 |
| 1438 | 1280 01666 2324 C1666, 2324 / ISZ C1724 |
| 1439 | 1281 01667 1116 TAD D0116 / |
| 1440 | 1282 01670 0756 C1670, 0756 / AND I C1756 |
| 1441 | 1283 01671 0001 AND L0001 / |
| 1442 | 1284 |
| 1443 | 1285 2000 *2000 |
| 1444 | 1286 02000 4475 D2000, 4475 / JMS I C0075 |
| 1445 | 1287 02001 0020 AND D0020 / |
| 1446 | 1288 02002 2010 C2002, 2010 / ISZ AI0 |
| 1447 | 1289 02003 4475 JMS I C0075 / LONG CALL TO S0400 |
| 1448 | 1290 02004 0105 AND D0105 / |
| 1449 | 1291 02005 7717 C2005, 7717 / CLA MQA LSR + |
| 1450 | 1292 02006 5607 JMP I C2007 / LONG JUMP TO L0241 |
| 1451 | 1293 C2007, |
| 1452 | 1294 02007 0241 C2007, 0241 / AND C2041 |
| 1453 | 1295 02010 0000 AND L0000 / |
| 1454 | 1296 02011 2036 ISZ D0036 / |
| 1455 | 1297 02012 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1456 | 1298 02013 7470 SNA SZL / |
| 1457 | \f |
| 1458 | |
| 1459 | |
| 1460 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 27 |
| 1461 | |
| 1462 | |
| 1463 | 1299 02014 4501 JMS I C0101 / LONG CALL TO S1042 |
| 1464 | 1300 02015 7406 OSR HLT / |
| 1465 | 1301 L2016, |
| 1466 | 1302 02016 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1467 | 1303 02017 4502 JMS I C0102 / LONG CALL TO S0411 |
| 1468 | 1304 02020 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1469 | 1305 02021 5225 JMP L2025 / |
| 1470 | 1306 L2022, |
| 1471 | 1307 02022 2122 ISZ D0122 / |
| 1472 | 1308 02023 5216 JMP L2016 / |
| 1473 | 1309 02024 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1474 | 1310 L2025, |
| 1475 | 1311 02025 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1476 | 1312 02026 4040 C2026, 4040 / JMS C0040 |
| 1477 | 1313 02027 0000 AND L0000 / |
| 1478 | 1314 02030 5222 JMP L2022 / |
| 1479 | 1315 02031 4501 JMS I C0101 / LONG CALL TO S1042 |
| 1480 | 1316 02032 7764 SMA SZA SNL CLA OSR / |
| 1481 | 1317 L2033, |
| 1482 | 1318 02033 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1483 | 1319 02034 4502 JMS I C0102 / LONG CALL TO S0411 |
| 1484 | 1320 02035 5233 JMP L2033 / |
| 1485 | 1321 02036 0001 AND L0001 / |
| 1486 | 1322 02037 2064 ISZ D0064 / |
| 1487 | 1323 02040 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1488 | 1324 02041 0001 C2041, 0001 / AND L0001 |
| 1489 | 1325 02042 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1490 | 1326 L2043, |
| 1491 | 1327 02043 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1492 | 1328 02044 5243 JMP L2043 / |
| 1493 | 1329 L2045, |
| 1494 | 1330 02045 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1495 | 1331 02046 5252 JMP L2052 / |
| 1496 | 1332 L2047, |
| 1497 | 1333 02047 2122 ISZ D0122 / |
| 1498 | 1334 02050 5245 JMP L2045 / |
| 1499 | 1335 02051 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1500 | 1336 L2052, |
| 1501 | 1337 02052 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1502 | 1338 02053 4040 C2053, 4040 / JMS C0040 |
| 1503 | 1339 02054 0000 AND L0000 / |
| 1504 | 1340 02055 5247 JMP L2047 / |
| 1505 | 1341 02056 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1506 | 1342 L2057, |
| 1507 | 1343 02057 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1508 | 1344 02060 5257 JMP L2057 / |
| 1509 | 1345 L2061, |
| 1510 | 1346 02061 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1511 | 1347 02062 5261 JMP L2061 / |
| 1512 | 1348 02063 5261 JMP L2061 / |
| 1513 | \f |
| 1514 | |
| 1515 | |
| 1516 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 28 |
| 1517 | |
| 1518 | |
| 1519 | 1349 02064 0002 AND C0002 / |
| 1520 | 1350 02065 2105 ISZ D0105 / |
| 1521 | 1351 02066 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1522 | 1352 02067 0001 AND L0001 / |
| 1523 | 1353 02070 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 1524 | UD undefined ^ |
| 1525 | 1354 L2071, |
| 1526 | 1355 02071 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1527 | 1356 02072 5302 JMP L2102 / |
| 1528 | 1357 02073 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1529 | 1358 02074 4040 C2074, 4040 / JMS C0040 |
| 1530 | 1359 02075 0000 AND L0000 / |
| 1531 | 1360 02076 5302 JMP L2102 / |
| 1532 | 1361 L2077, |
| 1533 | 1362 02077 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1534 | 1363 02100 5277 JMP L2077 / |
| 1535 | 1364 02101 5277 JMP L2077 / |
| 1536 | 1365 L2102, |
| 1537 | 1366 02102 2122 ISZ D0122 / |
| 1538 | 1367 02103 5271 JMP L2071 / |
| 1539 | 1368 02104 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1540 | 1369 02105 0003 AND D0003 / |
| 1541 | 1370 02106 2200 ISZ D2000 / |
| 1542 | 1371 02107 1377 TAD C2177 / |
| 1543 | 1372 02110 3022 DCA D0022 / |
| 1544 | 1373 L2111, |
| 1545 | 1374 02111 1376 TAD C2176 / |
| 1546 | 1375 02112 3136 DCA D0136 / |
| 1547 | 1376 02113 6002 IOF / DISABLE INTERRUPTS |
| 1548 | 1377 02114 7200 CLA / |
| 1549 | 1378 02115 3135 DCA D0135 / |
| 1550 | 1379 L2116, |
| 1551 | 1380 02116 2135 ISZ D0135 / |
| 1552 | 1381 02117 5316 JMP L2116 / |
| 1553 | 1382 02120 2136 ISZ D0136 / |
| 1554 | 1383 02121 5316 JMP L2116 / |
| 1555 | 1384 02122 1375 D2122, 1375 / TAD C2175 |
| 1556 | 1385 02123 3134 DCA D0134 / |
| 1557 | 1386 02124 6007 C2124, 6007 / 6007 |
| 1558 | 1387 02125 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1559 | 1388 02126 4351 JMS S2151 / |
| 1560 | 1389 02127 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1561 | 1390 02130 5337 JMP L2137 / |
| 1562 | 1391 02131 6010 C2131, 6010 / 6010 |
| 1563 | 1392 02132 6003 D2132, 6003 / 6003 |
| 1564 | 1393 02133 5337 JMP L2137 / |
| 1565 | 1394 02134 2022 ISZ D0022 / |
| 1566 | 1395 02135 5311 JMP L2111 / |
| 1567 | 1396 02136 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1568 | 1397 L2137, |
| 1569 | \f |
| 1570 | |
| 1571 | |
| 1572 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 29 |
| 1573 | |
| 1574 | |
| 1575 | 1398 02137 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1576 | 1399 02140 4040 C2140, 4040 / JMS C0040 |
| 1577 | 1400 02141 0000 AND L0000 / |
| 1578 | 1401 02142 5311 JMP L2111 / |
| 1579 | 1402 02143 6002 IOF / DISABLE INTERRUPTS |
| 1580 | 1403 L2144, |
| 1581 | 1404 02144 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1582 | 1405 02145 5344 JMP L2144 / |
| 1583 | 1406 L2146, |
| 1584 | 1407 02146 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1585 | 1408 02147 5346 JMP L2146 / |
| 1586 | 1409 02150 5346 JMP L2146 / |
| 1587 | 1410 |
| 1588 | 1411 //////////////////////////////////////////////////////////////////////////////// |
| 1589 | 1412 / |
| 1590 | 1413 / SUBROUTINE: S2151 |
| 1591 | 1414 / |
| 1592 | 1415 / CALLED FROM: |
| 1593 | 1416 / 2126 |
| 1594 | 1417 / TOTAL 0001 (1) CALLS |
| 1595 | 1418 //////////////////////////////////////////////////////////////////////////////// |
| 1596 | 1419 S2151, |
| 1597 | 1420 02151 0000 0 / RETURN AREA |
| 1598 | 1421 L2152, |
| 1599 | 1422 02152 2134 ISZ D0134 / |
| 1600 | 1423 02153 5352 JMP L2152 / |
| 1601 | 1424 02154 5751 JMP I S2151 / RETURN |
| 1602 | 1425 |
| 1603 | 1426 2175 *2175 |
| 1604 | 1427 02175 2260 C2175, 2260 / ISZ C2060 |
| 1605 | 1428 02176 7773 C2176, 7773 / CLA MQA SCA MQL SHL + |
| 1606 | 1429 02177 4000 C2177, 4000 / JMS L0000 |
| 1607 | 1430 02200 0004 C2200, 0004 / AND C0004 |
| 1608 | 1431 02201 2400 ISZ I L0000 / |
| 1609 | 1432 L2202, |
| 1610 | 1433 02202 6002 IOF / DISABLE INTERRUPTS |
| 1611 | 1434 02203 6007 C2203, 6007 / 6007 |
| 1612 | 1435 02204 6010 C2204, 6010 / 6010 |
| 1613 | 1436 02205 6020 C2205, 6020 / 6020 |
| 1614 | 1437 02206 6001 ION / ENABLE INTERRUPTS |
| 1615 | 1438 02207 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1616 | 1439 02210 6000 C2210, 6000 / 6000 |
| 1617 | 1440 02211 5214 JMP L2214 / |
| 1618 | 1441 02212 6003 C2212, 6003 / 6003 |
| 1619 | 1442 02213 7410 SKP / |
| 1620 | 1443 L2214, |
| 1621 | 1444 02214 5220 JMP L2220 / |
| 1622 | 1445 02215 2022 ISZ D0022 / |
| 1623 | 1446 02216 5202 JMP L2202 / |
| 1624 | 1447 L2217, |
| 1625 | \f |
| 1626 | |
| 1627 | |
| 1628 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 30 |
| 1629 | |
| 1630 | |
| 1631 | 1448 02217 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1632 | 1449 L2220, |
| 1633 | 1450 02220 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1634 | 1451 02221 4040 C2221, 4040 / JMS C0040 |
| 1635 | 1452 02222 0000 AND L0000 / |
| 1636 | 1453 02223 5217 JMP L2217 / |
| 1637 | 1454 L2224, |
| 1638 | 1455 02224 6010 C2224, 6010 / 6010 |
| 1639 | 1456 02225 4502 JMS I C0102 / LONG CALL TO S0411 |
| 1640 | 1457 02226 6020 C2226, 6020 / 6020 |
| 1641 | 1458 02227 5224 JMP L2224 / |
| 1642 | 1459 |
| 1643 | 1460 2400 *2400 |
| 1644 | 1461 02400 0005 C2400, 0005 / AND D0005 |
| 1645 | 1462 02401 2430 ISZ I D0030 / |
| 1646 | 1463 02402 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1647 | 1464 02403 7014 C2403, 7014 / RAR RAL |
| 1648 | 1465 L2404, |
| 1649 | 1466 02404 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1650 | 1467 L2405, |
| 1651 | 1468 02405 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1652 | 1469 02406 5205 JMP L2405 / |
| 1653 | 1470 02407 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 1654 | UD undefined ^ |
| 1655 | 1471 02410 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1656 | 1472 02411 5225 JMP L2425 / |
| 1657 | 1473 02412 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1658 | 1474 02413 4040 C2413, 4040 / JMS C0040 |
| 1659 | 1475 02414 0000 AND L0000 / |
| 1660 | 1476 02415 5225 JMP L2425 / |
| 1661 | 1477 L2416, |
| 1662 | 1478 02416 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1663 | 1479 L2417, |
| 1664 | 1480 02417 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1665 | 1481 02420 5217 JMP L2417 / |
| 1666 | 1482 L2421, |
| 1667 | 1483 02421 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 1668 | UD undefined ^ |
| 1669 | 1484 02422 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1670 | 1485 02423 5216 JMP L2416 / |
| 1671 | 1486 02424 5221 JMP L2421 / |
| 1672 | 1487 L2425, |
| 1673 | 1488 02425 2122 ISZ D0122 / |
| 1674 | 1489 02426 5204 JMP L2404 / |
| 1675 | 1490 02427 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1676 | 1491 02430 0006 AND C0006 / |
| 1677 | 1492 02431 2600 ISZ I C2400 / |
| 1678 | 1493 02432 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1679 | 1494 02433 7014 C2433, 7014 / RAR RAL |
| 1680 | 1495 02434 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1681 | \f |
| 1682 | |
| 1683 | |
| 1684 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 31 |
| 1685 | |
| 1686 | |
| 1687 | 1496 L2435, |
| 1688 | 1497 02435 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1689 | 1498 02436 5235 JMP L2435 / |
| 1690 | 1499 02437 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1691 | 1500 02440 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1692 | 1501 02441 5253 JMP L2453 / |
| 1693 | 1502 02442 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1694 | 1503 02443 4040 C2443, 4040 / JMS C0040 |
| 1695 | 1504 02444 0000 AND L0000 / |
| 1696 | 1505 02445 5253 JMP L2453 / |
| 1697 | 1506 02446 4502 JMS I C0102 / LONG CALL TO S0411 |
| 1698 | 1507 L2447, |
| 1699 | 1508 02447 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1700 | 1509 L2450, |
| 1701 | 1510 02450 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1702 | 1511 02451 5250 JMP L2450 / |
| 1703 | 1512 02452 5247 JMP L2447 / |
| 1704 | 1513 L2453, |
| 1705 | 1514 02453 2122 ISZ D0122 / |
| 1706 | 1515 02454 5235 JMP L2435 / |
| 1707 | 1516 02455 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1708 | 1517 |
| 1709 | 1518 2600 *2600 |
| 1710 | 1519 02600 0007 C2600, 0007 / AND C0007 |
| 1711 | 1520 02601 2637 C2601, 2637 / ISZ I C2637 |
| 1712 | 1521 02602 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1713 | 1522 02603 7014 C2603, 7014 / RAR RAL |
| 1714 | 1523 L2604, |
| 1715 | 1524 02604 6014 C2604, 6014 / RFC |
| 1716 | 1525 L2605, |
| 1717 | 1526 02605 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1718 | 1527 02606 5205 JMP L2605 / |
| 1719 | 1528 02607 7200 CLA / |
| 1720 | 1529 02610 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 1721 | UD undefined ^ |
| 1722 | 1530 02611 3236 C2611, 3236 / DCA D2636 |
| 1723 | 1531 02612 1236 TAD D2636 / |
| 1724 | 1532 02613 7640 SZA CLA / |
| 1725 | 1533 02614 5220 JMP L2620 / |
| 1726 | 1534 L2615, |
| 1727 | 1535 02615 2122 ISZ D0122 / |
| 1728 | 1536 02616 5204 JMP L2604 / |
| 1729 | 1537 02617 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1730 | 1538 L2620, |
| 1731 | 1539 02620 4452 JMS I C0052 / LONG CALL TO S1000 |
| 1732 | 1540 02621 2635 ISZ I C2635 / |
| 1733 | 1541 02622 1604 TAD I L2604 / |
| 1734 | 1542 02623 4452 JMS I C0052 / LONG CALL TO S1000 |
| 1735 | 1543 02624 2636 ISZ I D2636 / |
| 1736 | 1544 02625 1611 TAD I C2611 / |
| 1737 | \f |
| 1738 | |
| 1739 | |
| 1740 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 32 |
| 1741 | |
| 1742 | |
| 1743 | 1545 02626 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1744 | 1546 02627 4040 C2627, 4040 / JMS C0040 |
| 1745 | 1547 02630 1601 TAD I C2601 / |
| 1746 | 1548 02631 5215 JMP L2615 / |
| 1747 | 1549 L2632, |
| 1748 | 1550 02632 7200 CLA / |
| 1749 | 1551 02633 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 1750 | UD undefined ^ |
| 1751 | 1552 02634 5232 JMP L2632 / |
| 1752 | 1553 02635 0000 C2635, 0000 / AND L0000 |
| 1753 | 1554 02636 0000 D2636, 0000 / AND L0000 |
| 1754 | 1555 02637 0010 C2637, 0010 / AND AI0 |
| 1755 | 1556 02640 2717 C2640, 2717 / ISZ I C2717 |
| 1756 | 1557 02641 4475 JMS I C0075 / LONG CALL TO S0400 |
| 1757 | 1558 02642 0002 AND C0002 / |
| 1758 | 1559 02643 2654 ISZ I C2654 / |
| 1759 | 1560 L2644, |
| 1760 | 1561 02644 6032 KCC / CLEAR AC AND CLEAR KEYBOARD FLAG. |
| 1761 | 1562 02645 6042 TCF / CLEAR TELEPRINTER FLAG. |
| 1762 | 1563 02646 6022 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. |
| 1763 | 1564 02647 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 1764 | UD undefined ^ |
| 1765 | 1565 02650 6001 ION / ENABLE INTERRUPTS |
| 1766 | 1566 02651 7000 NOP / |
| 1767 | 1567 02652 6002 IOF / DISABLE INTERRUPTS |
| 1768 | 1568 02653 5261 JMP L2661 / |
| 1769 | 1569 02654 4451 C2654, 4451 / JMS I C0051 |
| 1770 | 1570 02655 0140 AND C0140 / |
| 1771 | 1571 02656 0000 AND L0000 / |
| 1772 | 1572 02657 5244 JMP L2644 / |
| 1773 | 1573 02660 5244 JMP L2644 / |
| 1774 | 1574 L2661, |
| 1775 | 1575 02661 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1776 | 1576 02662 0001 AND L0001 / |
| 1777 | 1577 02663 4475 JMS I C0075 / LONG CALL TO S0400 |
| 1778 | 1578 02664 0002 AND C0002 / |
| 1779 | 1579 02665 2713 ISZ I L2713 / |
| 1780 | 1580 02666 6010 C2666, 6010 / 6010 |
| 1781 | 1581 02667 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1782 | 1582 L2670, |
| 1783 | 1583 02670 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1784 | 1584 02671 5270 JMP L2670 / |
| 1785 | 1585 L2672, |
| 1786 | 1586 02672 6001 ION / ENABLE INTERRUPTS |
| 1787 | 1587 02673 7000 NOP / |
| 1788 | 1588 02674 6002 IOF / DISABLE INTERRUPTS |
| 1789 | 1589 02675 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1790 | 1590 02676 0240 AND C2640 / |
| 1791 | 1591 02677 0000 AND L0000 / |
| 1792 | 1592 02700 5313 JMP L2713 / |
| 1793 | \f |
| 1794 | |
| 1795 | |
| 1796 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 33 |
| 1797 | |
| 1798 | |
| 1799 | 1593 02701 4475 JMS I C0075 / LONG CALL TO S0400 |
| 1800 | 1594 02702 0002 AND C0002 / |
| 1801 | 1595 02703 2712 ISZ I C2712 / |
| 1802 | 1596 02704 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1803 | 1597 L2705, |
| 1804 | 1598 02705 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1805 | 1599 02706 5305 JMP L2705 / |
| 1806 | 1600 L2707, |
| 1807 | 1601 02707 6001 ION / ENABLE INTERRUPTS |
| 1808 | 1602 02710 7000 NOP / |
| 1809 | 1603 02711 5307 JMP L2707 / |
| 1810 | 1604 02712 5307 C2712, 5307 / JMP L2707 |
| 1811 | 1605 L2713, |
| 1812 | 1606 02713 2122 C2713, 2122 / ISZ D0122 |
| 1813 | 1607 02714 5272 JMP L2672 / |
| 1814 | 1608 02715 6020 C2715, 6020 / 6020 |
| 1815 | 1609 02716 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1816 | 1610 02717 0011 C2717, 0011 / AND AI1 |
| 1817 | 1611 02720 7777 C2720, 7777 / CLA MQA SCA MQL LSR + |
| 1818 | 1612 02721 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1819 | 1613 02722 7470 SNA SZL / |
| 1820 | 1614 L2723, |
| 1821 | 1615 02723 4373 JMS S2773 / |
| 1822 | 1616 02724 4501 JMS I C0101 / LONG CALL TO S1042 |
| 1823 | 1617 02725 7755 C2725, 7755 / CLA MQA SCA ASR + |
| 1824 | 1618 02726 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1825 | 1619 L2727, |
| 1826 | 1620 02727 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1827 | 1621 02730 5327 JMP L2727 / |
| 1828 | 1622 02731 4502 JMS I C0102 / LONG CALL TO S0411 |
| 1829 | 1623 02732 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1830 | 1624 02733 4502 JMS I C0102 / LONG CALL TO S0411 |
| 1831 | 1625 02734 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1832 | 1626 02735 5343 JMP L2743 / |
| 1833 | 1627 02736 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1834 | 1628 02737 0140 AND C0140 / |
| 1835 | 1629 02740 0000 AND L0000 / |
| 1836 | 1630 02741 5323 JMP L2723 / |
| 1837 | 1631 02742 5355 JMP L2755 / |
| 1838 | 1632 L2743, |
| 1839 | 1633 02743 4366 JMS S2766 / |
| 1840 | 1634 02744 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1841 | 1635 02745 5351 JMP L2751 / |
| 1842 | 1636 L2746, |
| 1843 | 1637 02746 2122 ISZ D0122 / |
| 1844 | 1638 02747 5323 JMP L2723 / |
| 1845 | 1639 02750 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1846 | 1640 L2751, |
| 1847 | 1641 02751 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1848 | 1642 02752 0240 AND C2640 / |
| 1849 | \f |
| 1850 | |
| 1851 | |
| 1852 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 34 |
| 1853 | |
| 1854 | |
| 1855 | 1643 02753 0000 AND L0000 / |
| 1856 | 1644 02754 5346 JMP L2746 / |
| 1857 | 1645 L2755, |
| 1858 | 1646 02755 4501 JMS I C0101 / LONG CALL TO S1042 |
| 1859 | 1647 02756 7761 C2756, 7761 / CLA MQA SCA MQL |
| 1860 | 1648 L2757, |
| 1861 | 1649 02757 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1862 | 1650 02760 5357 JMP L2757 / |
| 1863 | 1651 L2761, |
| 1864 | 1652 02761 4502 JMS I C0102 / LONG CALL TO S0411 |
| 1865 | 1653 02762 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 1866 | 1654 L2763, |
| 1867 | 1655 02763 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 1868 | 1656 02764 5363 JMP L2763 / |
| 1869 | 1657 02765 5361 JMP L2761 / |
| 1870 | 1658 |
| 1871 | 1659 //////////////////////////////////////////////////////////////////////////////// |
| 1872 | 1660 / |
| 1873 | 1661 / SUBROUTINE: S2766 |
| 1874 | 1662 / |
| 1875 | 1663 / CALLED FROM: |
| 1876 | 1664 / 2743 |
| 1877 | 1665 / TOTAL 0001 (1) CALLS |
| 1878 | 1666 //////////////////////////////////////////////////////////////////////////////// |
| 1879 | 1667 S2766, |
| 1880 | 1668 02766 0000 0 / RETURN AREA |
| 1881 | 1669 02767 4501 JMS I C0101 / LONG CALL TO S1042 |
| 1882 | 1670 02770 7454 SNA OSR / |
| 1883 | 1671 02771 4502 JMS I C0102 / LONG CALL TO S0411 |
| 1884 | 1672 02772 5766 JMP I S2766 / RETURN |
| 1885 | 1673 |
| 1886 | 1674 //////////////////////////////////////////////////////////////////////////////// |
| 1887 | 1675 / |
| 1888 | 1676 / SUBROUTINE: S2773 |
| 1889 | 1677 / |
| 1890 | 1678 / CALLED FROM: |
| 1891 | 1679 / 2723 |
| 1892 | 1680 / TOTAL 0001 (1) CALLS |
| 1893 | 1681 //////////////////////////////////////////////////////////////////////////////// |
| 1894 | 1682 S2773, |
| 1895 | 1683 02773 0000 0 / RETURN AREA |
| 1896 | 1684 02774 4501 JMS I C0101 / LONG CALL TO S1042 |
| 1897 | 1685 02775 7406 OSR HLT / |
| 1898 | 1686 02776 4502 JMS I C0102 / LONG CALL TO S0411 |
| 1899 | 1687 02777 5773 JMP I S2773 / RETURN |
| 1900 | 1688 03000 4475 D3000, 4475 / JMS I C0075 |
| 1901 | 1689 03001 0020 AND D0020 / |
| 1902 | 1690 03002 3010 C3002, 3010 / DCA AI0 |
| 1903 | 1691 03003 4475 JMS I C0075 / LONG CALL TO S0400 |
| 1904 | 1692 03004 0105 AND D0105 / |
| 1905 | \f |
| 1906 | |
| 1907 | |
| 1908 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 35 |
| 1909 | |
| 1910 | |
| 1911 | 1693 03005 7717 C3005, 7717 / CLA MQA LSR + |
| 1912 | 1694 03006 5607 JMP I C3007 / LONG JUMP TO L0241 |
| 1913 | 1695 C3007, |
| 1914 | 1696 03007 0241 C3007, 0241 / AND C3041 |
| 1915 | 1697 03010 0000 AND L0000 / |
| 1916 | 1698 03011 3032 DCA D0032 / |
| 1917 | 1699 03012 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1918 | 1700 03013 0001 AND L0001 / |
| 1919 | 1701 L3014, |
| 1920 | 1702 03014 6022 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. |
| 1921 | 1703 03015 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 1922 | 1704 03016 5227 JMP L3027 / |
| 1923 | 1705 03017 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1924 | 1706 03020 4040 C3020, 4040 / JMS C0040 |
| 1925 | 1707 03021 0000 AND L0000 / |
| 1926 | 1708 03022 5227 JMP L3027 / |
| 1927 | 1709 03023 6022 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. |
| 1928 | 1710 L3024, |
| 1929 | 1711 03024 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 1930 | 1712 03025 5224 JMP L3024 / |
| 1931 | 1713 03026 5224 JMP L3024 / |
| 1932 | 1714 L3027, |
| 1933 | 1715 03027 2122 ISZ D0122 / |
| 1934 | 1716 03030 5214 JMP L3014 / |
| 1935 | 1717 03031 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1936 | 1718 03032 0001 AND L0001 / |
| 1937 | 1719 03033 3063 DCA D0063 / |
| 1938 | 1720 03034 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1939 | 1721 03035 0001 AND L0001 / |
| 1940 | 1722 03036 4501 JMS I C0101 / LONG CALL TO S1042 |
| 1941 | 1723 03037 0001 AND L0001 / |
| 1942 | 1724 03040 7300 CLA CLL / AC = 0000 |
| 1943 | 1725 03041 6022 C3041, 6022 / PCF |
| 1944 | 1726 03042 6024 PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH |
| 1945 | 1727 03043 4502 JMS I C0102 / LONG CALL TO S0411 |
| 1946 | 1728 L3044, |
| 1947 | 1729 03044 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 1948 | 1730 03045 5251 JMP L3051 / |
| 1949 | 1731 L3046, |
| 1950 | 1732 03046 2122 ISZ D0122 / |
| 1951 | 1733 03047 5244 JMP L3044 / |
| 1952 | 1734 03050 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 1953 | 1735 L3051, |
| 1954 | 1736 03051 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1955 | 1737 03052 4040 C3052, 4040 / JMS C0040 |
| 1956 | 1738 03053 0000 AND L0000 / |
| 1957 | 1739 03054 5246 JMP L3046 / |
| 1958 | 1740 03055 7200 CLA / |
| 1959 | 1741 03056 6022 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. |
| 1960 | 1742 03057 6024 PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH |
| 1961 | \f |
| 1962 | |
| 1963 | |
| 1964 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 36 |
| 1965 | |
| 1966 | |
| 1967 | 1743 L3060, |
| 1968 | 1744 03060 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 1969 | 1745 03061 5260 JMP L3060 / |
| 1970 | 1746 03062 5260 JMP L3060 / |
| 1971 | 1747 03063 0002 AND C0002 / |
| 1972 | 1748 03064 3115 DCA D0115 / |
| 1973 | 1749 03065 4477 JMS I C0077 / LONG CALL TO S1111 |
| 1974 | 1750 03066 7014 C3066, 7014 / RAR RAL |
| 1975 | 1751 L3067, |
| 1976 | 1752 03067 7200 CLA / |
| 1977 | 1753 03070 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 1978 | 1754 L3071, |
| 1979 | 1755 03071 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 1980 | 1756 03072 5271 JMP L3071 / |
| 1981 | 1757 03073 6022 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. |
| 1982 | 1758 03074 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 1983 | 1759 03075 5312 JMP L3112 / |
| 1984 | 1760 03076 4451 JMS I C0051 / LONG CALL TO S1050 |
| 1985 | 1761 03077 4040 C3077, 4040 / JMS C0040 |
| 1986 | 1762 03100 0000 AND L0000 / |
| 1987 | 1763 03101 5312 JMP L3112 / |
| 1988 | 1764 L3102, |
| 1989 | 1765 03102 7200 CLA / |
| 1990 | 1766 03103 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 1991 | 1767 L3104, |
| 1992 | 1768 03104 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 1993 | 1769 03105 5304 JMP L3104 / |
| 1994 | 1770 L3106, |
| 1995 | 1771 03106 6022 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. |
| 1996 | 1772 03107 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 1997 | 1773 03110 5302 JMP L3102 / |
| 1998 | 1774 03111 5306 JMP L3106 / |
| 1999 | 1775 L3112, |
| 2000 | 1776 03112 2122 ISZ D0122 / |
| 2001 | 1777 03113 5267 JMP L3067 / |
| 2002 | 1778 03114 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 2003 | 1779 03115 0003 AND D0003 / |
| 2004 | 1780 03116 3200 DCA D3000 / |
| 2005 | 1781 03117 1377 TAD C3177 / |
| 2006 | 1782 03120 3022 DCA D0022 / |
| 2007 | 1783 L3121, |
| 2008 | 1784 03121 1376 TAD C3176 / |
| 2009 | 1785 03122 3136 DCA D0136 / |
| 2010 | 1786 03123 6002 IOF / DISABLE INTERRUPTS |
| 2011 | 1787 03124 7200 CLA / |
| 2012 | 1788 03125 3135 DCA D0135 / |
| 2013 | 1789 L3126, |
| 2014 | 1790 03126 2135 ISZ D0135 / |
| 2015 | 1791 03127 5326 JMP L3126 / |
| 2016 | 1792 03130 2136 ISZ D0136 / |
| 2017 | \f |
| 2018 | |
| 2019 | |
| 2020 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 37 |
| 2021 | |
| 2022 | |
| 2023 | 1793 03131 5326 JMP L3126 / |
| 2024 | 1794 03132 1375 TAD C3175 / |
| 2025 | 1795 03133 3134 DCA D0134 / |
| 2026 | 1796 03134 6007 C3134, 6007 / 6007 |
| 2027 | 1797 03135 6024 PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH |
| 2028 | 1798 03136 4361 JMS S3161 / |
| 2029 | 1799 03137 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 2030 | 1800 03140 5347 JMP L3147 / |
| 2031 | 1801 03141 6010 C3141, 6010 / 6010 |
| 2032 | 1802 03142 6003 C3142, 6003 / 6003 |
| 2033 | 1803 03143 5347 JMP L3147 / |
| 2034 | 1804 03144 2022 ISZ D0022 / |
| 2035 | 1805 03145 5321 JMP L3121 / |
| 2036 | 1806 03146 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 2037 | 1807 L3147, |
| 2038 | 1808 03147 4451 JMS I C0051 / LONG CALL TO S1050 |
| 2039 | 1809 03150 4040 C3150, 4040 / JMS C0040 |
| 2040 | 1810 03151 0000 AND L0000 / |
| 2041 | 1811 03152 5321 JMP L3121 / |
| 2042 | 1812 03153 6002 IOF / DISABLE INTERRUPTS |
| 2043 | 1813 L3154, |
| 2044 | 1814 03154 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 2045 | 1815 03155 5354 JMP L3154 / |
| 2046 | 1816 L3156, |
| 2047 | 1817 03156 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 2048 | 1818 03157 5356 JMP L3156 / |
| 2049 | 1819 03160 5356 JMP L3156 / |
| 2050 | 1820 |
| 2051 | 1821 //////////////////////////////////////////////////////////////////////////////// |
| 2052 | 1822 / |
| 2053 | 1823 / SUBROUTINE: S3161 |
| 2054 | 1824 / |
| 2055 | 1825 / CALLED FROM: |
| 2056 | 1826 / 3136 |
| 2057 | 1827 / TOTAL 0001 (1) CALLS |
| 2058 | 1828 //////////////////////////////////////////////////////////////////////////////// |
| 2059 | 1829 S3161, |
| 2060 | 1830 03161 0000 0 / RETURN AREA |
| 2061 | 1831 L3162, |
| 2062 | 1832 03162 2134 ISZ D0134 / |
| 2063 | 1833 03163 5362 JMP L3162 / |
| 2064 | 1834 03164 1374 TAD C3174 / |
| 2065 | 1835 03165 3134 DCA D0134 / |
| 2066 | 1836 L3166, |
| 2067 | 1837 03166 2134 ISZ D0134 / |
| 2068 | 1838 03167 5366 JMP L3166 / |
| 2069 | 1839 L3170, |
| 2070 | 1840 03170 2134 ISZ D0134 / |
| 2071 | 1841 03171 5370 JMP L3170 / |
| 2072 | 1842 03172 5761 JMP I S3161 / RETURN |
| 2073 | \f |
| 2074 | |
| 2075 | |
| 2076 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 38 |
| 2077 | |
| 2078 | |
| 2079 | 1843 |
| 2080 | 1844 3174 *3174 |
| 2081 | 1845 03174 0500 C3174, 0500 / AND I C0100 |
| 2082 | 1846 03175 0001 C3175, 0001 / AND L0001 |
| 2083 | 1847 03176 7773 C3176, 7773 / CLA MQA SCA MQL SHL + |
| 2084 | 1848 03177 4000 C3177, 4000 / JMS L0000 |
| 2085 | 1849 03200 0004 C3200, 0004 / AND C0004 |
| 2086 | 1850 03201 3230 DCA D3230 / |
| 2087 | 1851 L3202, |
| 2088 | 1852 03202 6002 IOF / DISABLE INTERRUPTS |
| 2089 | 1853 03203 6007 C3203, 6007 / 6007 |
| 2090 | 1854 03204 6010 C3204, 6010 / 6010 |
| 2091 | 1855 03205 6020 C3205, 6020 / 6020 |
| 2092 | 1856 03206 6001 ION / ENABLE INTERRUPTS |
| 2093 | 1857 03207 6024 PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH |
| 2094 | 1858 03210 6000 C3210, 6000 / 6000 |
| 2095 | 1859 03211 5220 JMP L3220 / |
| 2096 | 1860 03212 6003 C3212, 6003 / 6003 |
| 2097 | 1861 03213 7410 SKP / |
| 2098 | 1862 03214 5220 JMP L3220 / |
| 2099 | 1863 03215 2022 ISZ D0022 / |
| 2100 | 1864 03216 5202 JMP L3202 / |
| 2101 | 1865 L3217, |
| 2102 | 1866 03217 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 2103 | 1867 L3220, |
| 2104 | 1868 03220 4451 JMS I C0051 / LONG CALL TO S1050 |
| 2105 | 1869 03221 4040 C3221, 4040 / JMS C0040 |
| 2106 | 1870 03222 0000 AND L0000 / |
| 2107 | 1871 03223 5217 JMP L3217 / |
| 2108 | 1872 L3224, |
| 2109 | 1873 03224 6010 C3224, 6010 / 6010 |
| 2110 | 1874 03225 4502 JMS I C0102 / LONG CALL TO S0411 |
| 2111 | 1875 03226 6020 C3226, 6020 / 6020 |
| 2112 | 1876 03227 5224 JMP L3224 / |
| 2113 | 1877 03230 0005 D3230, 0005 / AND D0005 |
| 2114 | 1878 03231 3245 DCA D3245 / |
| 2115 | 1879 03232 4477 JMS I C0077 / LONG CALL TO S1111 |
| 2116 | 1880 03233 7014 C3233, 7014 / RAR RAL |
| 2117 | 1881 L3234, |
| 2118 | 1882 03234 7240 STA / AC = 7777 (-0001) |
| 2119 | 1883 03235 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 2120 | 1884 03236 7200 C3236, 7200 / CLA |
| 2121 | 1885 03237 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 2122 | 1886 L3240, |
| 2123 | 1887 03240 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 2124 | 1888 03241 5240 JMP L3240 / |
| 2125 | 1889 03242 2122 ISZ D0122 / |
| 2126 | 1890 03243 5234 JMP L3234 / |
| 2127 | 1891 03244 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 2128 | 1892 03245 0006 D3245, 0006 / AND C0006 |
| 2129 | \f |
| 2130 | |
| 2131 | |
| 2132 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 39 |
| 2133 | |
| 2134 | |
| 2135 | 1893 03246 3261 DCA D3261 / |
| 2136 | 1894 03247 4477 JMS I C0077 / LONG CALL TO S1111 |
| 2137 | 1895 03250 7014 C3250, 7014 / RAR RAL |
| 2138 | 1896 L3251, |
| 2139 | 1897 03251 7200 CLA / |
| 2140 | 1898 03252 1152 TAD C0152 / |
| 2141 | 1899 03253 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 2142 | 1900 L3254, |
| 2143 | 1901 03254 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 2144 | 1902 03255 5254 JMP L3254 / |
| 2145 | 1903 03256 2122 ISZ D0122 / |
| 2146 | 1904 03257 5251 JMP L3251 / |
| 2147 | 1905 03260 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 2148 | 1906 03261 0007 D3261, 0007 / AND C0007 |
| 2149 | 1907 03262 3400 DCA I L0000 / |
| 2150 | 1908 03263 4477 JMS I C0077 / LONG CALL TO S1111 |
| 2151 | 1909 03264 7014 C3264, 7014 / RAR RAL |
| 2152 | 1910 L3265, |
| 2153 | 1911 03265 7200 CLA / |
| 2154 | 1912 03266 1151 TAD C0151 / |
| 2155 | 1913 03267 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 2156 | 1914 L3270, |
| 2157 | 1915 03270 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 2158 | 1916 03271 5270 JMP L3270 / |
| 2159 | 1917 03272 2122 ISZ D0122 / |
| 2160 | 1918 03273 5265 JMP L3265 / |
| 2161 | 1919 03274 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 2162 | 1920 |
| 2163 | 1921 3400 *3400 |
| 2164 | 1922 03400 0010 C3400, 0010 / AND AI0 |
| 2165 | 1923 03401 7777 C3401, 7777 / CLA MQA SCA MQL LSR + |
| 2166 | 1924 03402 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2167 | 1925 03403 0002 AND C0002 / |
| 2168 | 1926 03404 3415 C3404, 3415 / DCA I AI5 |
| 2169 | 1927 L3405, |
| 2170 | 1928 03405 6032 KCC / CLEAR AC AND CLEAR KEYBOARD FLAG. |
| 2171 | 1929 03406 6042 TCF / CLEAR TELEPRINTER FLAG. |
| 2172 | 1930 03407 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 2173 | UD undefined ^ |
| 2174 | 1931 03410 6022 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. |
| 2175 | 1932 03411 6001 ION / ENABLE INTERRUPTS |
| 2176 | 1933 03412 7000 NOP / |
| 2177 | 1934 03413 6002 IOF / DISABLE INTERRUPTS |
| 2178 | 1935 03414 5222 JMP L3422 / |
| 2179 | 1936 03415 4451 JMS I C0051 / LONG CALL TO S1050 |
| 2180 | 1937 03416 0140 AND C0140 / |
| 2181 | 1938 03417 0000 AND L0000 / |
| 2182 | 1939 03420 5205 JMP L3405 / |
| 2183 | 1940 03421 5205 JMP L3405 / |
| 2184 | 1941 L3422, |
| 2185 | \f |
| 2186 | |
| 2187 | |
| 2188 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 40 |
| 2189 | |
| 2190 | |
| 2191 | 1942 03422 4477 JMS I C0077 / LONG CALL TO S1111 |
| 2192 | 1943 03423 0001 AND L0001 / |
| 2193 | 1944 03424 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2194 | 1945 03425 0002 AND C0002 / |
| 2195 | 1946 03426 3456 DCA I C0056 / |
| 2196 | 1947 03427 7200 CLA / |
| 2197 | 1948 03430 6010 C3430, 6010 / 6010 |
| 2198 | 1949 03431 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 2199 | 1950 L3432, |
| 2200 | 1951 03432 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 2201 | 1952 03433 5232 JMP L3432 / |
| 2202 | 1953 L3434, |
| 2203 | 1954 03434 6001 ION / ENABLE INTERRUPTS |
| 2204 | 1955 03435 7000 NOP / |
| 2205 | 1956 03436 6002 IOF / DISABLE INTERRUPTS |
| 2206 | 1957 03437 4451 JMS I C0051 / LONG CALL TO S1050 |
| 2207 | 1958 03440 0240 C3440, 0240 / AND C3440 |
| 2208 | 1959 03441 0000 AND L0000 / |
| 2209 | 1960 03442 5256 JMP L3456 / |
| 2210 | 1961 03443 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2211 | 1962 03444 0002 AND C0002 / |
| 2212 | 1963 03445 3455 DCA I C0055 / |
| 2213 | 1964 03446 7200 CLA / |
| 2214 | 1965 03447 6026 C3447, 6026 / PLS |
| 2215 | 1966 L3450, |
| 2216 | 1967 03450 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 2217 | 1968 03451 5250 C3451, 5250 / JMP L3450 |
| 2218 | 1969 L3452, |
| 2219 | 1970 03452 6001 ION / ENABLE INTERRUPTS |
| 2220 | 1971 03453 7000 NOP / |
| 2221 | 1972 03454 5252 JMP L3452 / |
| 2222 | 1973 03455 5252 JMP L3452 / |
| 2223 | 1974 L3456, |
| 2224 | 1975 03456 2122 ISZ D0122 / |
| 2225 | 1976 03457 5234 JMP L3434 / |
| 2226 | 1977 03460 6020 C3460, 6020 / 6020 |
| 2227 | 1978 03461 5425 JMP I C0025 / LONG JUMP TO L0270 |
| 2228 | 1979 03462 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2229 | 1980 03463 0105 AND D0105 / |
| 2230 | 1981 03464 0460 AND I C0060 / |
| 2231 | 1982 L3465, |
| 2232 | 1983 03465 4464 JMS I D0064 / LONG CALL TO S1311 |
| 2233 | 1984 03466 4477 JMS I C0077 / LONG CALL TO S1111 |
| 2234 | 1985 03467 7773 C3467, 7773 / CLA MQA SCA MQL SHL + |
| 2235 | 1986 L3470, |
| 2236 | 1987 03470 4463 JMS I D0063 / LONG CALL TO S0324 |
| 2237 | 1988 03471 3123 DCA D0123 / |
| 2238 | 1989 L3472, |
| 2239 | 1990 03472 4467 JMS I C0067 / LONG CALL TO S1412 |
| 2240 | 1991 03473 3462 DCA I C0062 / |
| 2241 | \f |
| 2242 | |
| 2243 | |
| 2244 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 41 |
| 2245 | |
| 2246 | |
| 2247 | 1992 03474 4455 JMS I C0055 / LONG CALL TO S1200 |
| 2248 | 1993 03475 4461 JMS I C0061 / LONG CALL TO S1143 |
| 2249 | 1994 03476 5303 JMP L3503 / |
| 2250 | 1995 L3477, |
| 2251 | 1996 03477 2123 ISZ D0123 / |
| 2252 | 1997 03500 5272 JMP L3472 / |
| 2253 | 1998 03501 4563 JMS I C0163 / LONG CALL TO S1125 |
| 2254 | 1999 03502 5270 JMP L3470 / |
| 2255 | 2000 L3503, |
| 2256 | 2001 03503 2122 ISZ D0122 / |
| 2257 | 2002 03504 5277 JMP L3477 / |
| 2258 | 2003 03505 5265 JMP L3465 / |
| 2259 | 2004 03506 4460 JMS I C0060 / LONG CALL TO S1230 |
| 2260 | 2005 03507 4457 JMS I C0057 / LONG CALL TO S1214 |
| 2261 | 2006 03510 4466 JMS I C0066 / LONG CALL TO S1400 |
| 2262 | 2007 03511 1150 TAD C0150 / |
| 2263 | 2008 03512 3105 DCA D0105 / |
| 2264 | 2009 L3513, |
| 2265 | 2010 03513 4467 JMS I C0067 / LONG CALL TO S1412 |
| 2266 | 2011 03514 4456 JMS I C0056 / LONG CALL TO S1207 |
| 2267 | 2012 03515 4563 JMS I C0163 / LONG CALL TO S1125 |
| 2268 | 2013 03516 5313 JMP L3513 / |
| 2269 | 2014 03517 4466 JMS I C0066 / LONG CALL TO S1400 |
| 2270 | 2015 03520 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2271 | 2016 03521 0105 AND D0105 / |
| 2272 | 2017 03522 0400 AND I L0000 / |
| 2273 | 2018 03523 4467 JMS I C0067 / LONG CALL TO S1412 |
| 2274 | 2019 03524 3462 DCA I C0062 / |
| 2275 | 2020 L3525, |
| 2276 | 2021 03525 4455 JMS I C0055 / LONG CALL TO S1200 |
| 2277 | 2022 03526 7440 SZA / |
| 2278 | 2023 03527 5334 JMP L3534 / |
| 2279 | 2024 03530 5325 JMP L3525 / |
| 2280 | 2025 L3531, |
| 2281 | 2026 03531 4467 JMS I C0067 / LONG CALL TO S1412 |
| 2282 | 2027 03532 3462 DCA I C0062 / |
| 2283 | 2028 03533 4455 JMS I C0055 / LONG CALL TO S1200 |
| 2284 | 2029 L3534, |
| 2285 | 2030 03534 4461 JMS I C0061 / LONG CALL TO S1143 |
| 2286 | 2031 03535 7000 NOP / |
| 2287 | 2032 03536 5331 JMP L3531 / |
| 2288 | 2033 03537 4460 JMS I C0060 / LONG CALL TO S1230 |
| 2289 | 2034 03540 4457 JMS I C0057 / LONG CALL TO S1214 |
| 2290 | 2035 03541 4474 JMS I C0074 / LONG CALL TO S0536 |
| 2291 | 2036 03542 1247 TAD C3447 / |
| 2292 | 2037 03543 1251 TAD C3451 / |
| 2293 | 2038 03544 7774 SPA SNA SZL CLA OSR / |
| 2294 | 2039 03545 1150 TAD C0150 / |
| 2295 | 2040 03546 3105 DCA D0105 / |
| 2296 | 2041 L3547, |
| 2297 | \f |
| 2298 | |
| 2299 | |
| 2300 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 42 |
| 2301 | |
| 2302 | |
| 2303 | 2042 03547 4453 JMS I C0053 / LONG CALL TO S1255 |
| 2304 | 2043 03550 4456 JMS I C0056 / LONG CALL TO S1207 |
| 2305 | 2044 03551 4563 JMS I C0163 / LONG CALL TO S1125 |
| 2306 | 2045 03552 5347 JMP L3547 / |
| 2307 | 2046 03553 4474 JMS I C0074 / LONG CALL TO S0536 |
| 2308 | 2047 03554 1247 TAD C3447 / |
| 2309 | 2048 03555 1251 TAD C3451 / |
| 2310 | 2049 03556 7774 SPA SNA SZL CLA OSR / |
| 2311 | 2050 03557 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2312 | 2051 03560 0105 AND D0105 / |
| 2313 | 2052 03561 0400 AND I L0000 / |
| 2314 | 2053 03562 4454 JMS I C0054 / LONG CALL TO S1273 |
| 2315 | 2054 03563 3462 DCA I C0062 / |
| 2316 | 2055 L3564, |
| 2317 | 2056 03564 4455 JMS I C0055 / LONG CALL TO S1200 |
| 2318 | 2057 03565 7440 SZA / |
| 2319 | 2058 03566 5373 JMP L3573 / |
| 2320 | 2059 03567 5364 JMP L3564 / |
| 2321 | 2060 L3570, |
| 2322 | 2061 03570 4454 JMS I C0054 / LONG CALL TO S1273 |
| 2323 | 2062 03571 3462 DCA I C0062 / |
| 2324 | 2063 03572 4455 JMS I C0055 / LONG CALL TO S1200 |
| 2325 | 2064 L3573, |
| 2326 | 2065 03573 4461 JMS I C0061 / LONG CALL TO S1143 |
| 2327 | 2066 03574 7000 NOP / |
| 2328 | 2067 03575 5370 JMP L3570 / |
| 2329 | 2068 |
| 2330 | 2069 3600 *3600 |
| 2331 | 2070 03600 4475 D3600, 4475 / JMS I C0075 |
| 2332 | 2071 03601 0105 AND D0105 / |
| 2333 | 2072 03602 0460 AND I C0060 / |
| 2334 | 2073 03603 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2335 | 2074 03604 0104 AND D0104 / |
| 2336 | 2075 03605 0077 AND C0077 / |
| 2337 | 2076 03606 4466 JMS I C0066 / LONG CALL TO S1400 |
| 2338 | 2077 03607 2133 ISZ D0133 / |
| 2339 | 2078 03610 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2340 | 2079 03611 0002 AND C0002 / |
| 2341 | 2080 03612 0703 AND I C3703 / |
| 2342 | 2081 03613 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2343 | 2082 03614 0716 AND I C3716 / |
| 2344 | 2083 03615 3624 DCA I C3624 / |
| 2345 | 2084 03616 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2346 | 2085 03617 0711 AND I C3711 / |
| 2347 | 2086 03620 3671 DCA I C3671 / |
| 2348 | 2087 03621 4246 JMS S3646 / |
| 2349 | 2088 03622 6001 ION / ENABLE INTERRUPTS |
| 2350 | 2089 L3623, |
| 2351 | 2090 03623 5223 JMP L3623 / |
| 2352 | 2091 03624 2132 C3624, 2132 / ISZ D0132 |
| 2353 | \f |
| 2354 | |
| 2355 | |
| 2356 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 43 |
| 2357 | |
| 2358 | |
| 2359 | 2092 03625 1132 TAD D0132 / |
| 2360 | 2093 03626 1147 TAD C0147 / |
| 2361 | 2094 03627 7710 SPA CLA / |
| 2362 | 2095 03630 5233 JMP L3633 / |
| 2363 | 2096 L3631, |
| 2364 | 2097 03631 7402 HLT / |
| 2365 | 2098 03632 5231 JMP L3631 / |
| 2366 | 2099 L3633, |
| 2367 | 2100 03633 4246 JMS S3646 / |
| 2368 | 2101 03634 1127 TAD D0127 / |
| 2369 | 2102 03635 7640 SZA CLA / |
| 2370 | 2103 03636 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 2371 | 2104 03637 1132 TAD D0132 / |
| 2372 | 2105 03640 1146 TAD C0146 / |
| 2373 | 2106 03641 7710 SPA CLA / |
| 2374 | 2107 03642 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 2375 | 2108 03643 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 2376 | 2109 03644 2127 ISZ D0127 / |
| 2377 | 2110 03645 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 2378 | 2111 |
| 2379 | 2112 //////////////////////////////////////////////////////////////////////////////// |
| 2380 | 2113 / |
| 2381 | 2114 / SUBROUTINE: S3646 |
| 2382 | 2115 / |
| 2383 | 2116 / CALLED FROM: |
| 2384 | 2117 / 3621 3633 |
| 2385 | 2118 / TOTAL 0002 (2) CALLS |
| 2386 | 2119 //////////////////////////////////////////////////////////////////////////////// |
| 2387 | 2120 S3646, |
| 2388 | 2121 03646 0000 0 / RETURN AREA |
| 2389 | 2122 03647 4470 JMS I C0070 / LONG CALL TO S1435 |
| 2390 | 2123 03650 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 2391 | 2124 03651 7200 CLA / |
| 2392 | 2125 03652 5646 JMP I S3646 / RETURN |
| 2393 | 2126 |
| 2394 | 2127 //////////////////////////////////////////////////////////////////////////////// |
| 2395 | 2128 / |
| 2396 | 2129 / SUBROUTINE: S3653 |
| 2397 | 2130 / |
| 2398 | 2131 / NEVER CALLED |
| 2399 | 2132 //////////////////////////////////////////////////////////////////////////////// |
| 2400 | 2133 S3653, |
| 2401 | 2134 03653 0000 0 / RETURN AREA |
| 2402 | 2135 03654 7200 CLA / |
| 2403 | 2136 03655 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 2404 | UD undefined ^ |
| 2405 | 2137 03656 3131 DCA D0131 / |
| 2406 | 2138 03657 1132 TAD D0132 / |
| 2407 | 2139 03660 1145 TAD C0145 / |
| 2408 | 2140 03661 3132 DCA D0132 / |
| 2409 | \f |
| 2410 | |
| 2411 | |
| 2412 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 44 |
| 2413 | |
| 2414 | |
| 2415 | 2141 03662 1132 TAD D0132 / |
| 2416 | 2142 03663 7640 SZA CLA / |
| 2417 | 2143 03664 5267 JMP L3667 / |
| 2418 | 2144 03665 3127 DCA D0127 / |
| 2419 | 2145 03666 5653 JMP I S3653 / RETURN |
| 2420 | 2146 L3667, |
| 2421 | 2147 03667 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 2422 | 2148 03670 5653 JMP I S3653 / RETURN |
| 2423 | 2149 03671 4253 C3671, 4253 / JMS S3653 |
| 2424 | 2150 03672 1131 TAD D0131 / |
| 2425 | 2151 03673 7650 SNA CLA / |
| 2426 | 2152 03674 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 2427 | 2153 03675 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2428 | 2154 03676 0711 AND I C3711 / |
| 2429 | 2155 03677 3703 DCA I C3703 / |
| 2430 | 2156 03700 4477 JMS I C0077 / LONG CALL TO S1111 |
| 2431 | 2157 03701 7773 C3701, 7773 / CLA MQA SCA MQL SHL + |
| 2432 | 2158 03702 7410 SKP / |
| 2433 | 2159 03703 4253 C3703, 4253 / JMS S3653 |
| 2434 | 2160 03704 4467 JMS I C0067 / LONG CALL TO S1412 |
| 2435 | 2161 03705 3462 DCA I C0062 / |
| 2436 | 2162 03706 1131 TAD D0131 / |
| 2437 | 2163 03707 4461 JMS I C0061 / LONG CALL TO S1143 |
| 2438 | 2164 03710 7410 SKP / |
| 2439 | 2165 03711 5503 C3711, 5503 / JMP I C0103 |
| 2440 | 2166 03712 2122 ISZ D0122 / |
| 2441 | 2167 03713 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 2442 | 2168 L3714, |
| 2443 | 2169 03714 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2444 | 2170 03715 0711 AND I C3711 / |
| 2445 | 2171 03716 3720 C3716, 3720 / DCA I C3720 |
| 2446 | 2172 03717 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 2447 | 2173 03720 4253 C3720, 4253 / JMS S3653 |
| 2448 | 2174 03721 1131 TAD D0131 / |
| 2449 | 2175 03722 3110 DCA D0110 / |
| 2450 | 2176 03723 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2451 | 2177 03724 0711 AND I C3711 / |
| 2452 | 2178 03725 3727 DCA I C3727 / |
| 2453 | 2179 03726 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 2454 | 2180 03727 4253 C3727, 4253 / JMS S3653 |
| 2455 | 2181 03730 1131 TAD D0131 / |
| 2456 | 2182 03731 3111 DCA D0111 / |
| 2457 | 2183 03732 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2458 | 2184 03733 0711 AND I C3711 / |
| 2459 | 2185 03734 3736 DCA I C3736 / |
| 2460 | 2186 03735 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 2461 | 2187 03736 4253 C3736, 4253 / JMS S3653 |
| 2462 | 2188 03737 1131 TAD D0131 / |
| 2463 | 2189 03740 3112 DCA D0112 / |
| 2464 | 2190 03741 4465 JMS I C0065 / LONG CALL TO S1324 |
| 2465 | \f |
| 2466 | |
| 2467 | |
| 2468 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 45 |
| 2469 | |
| 2470 | |
| 2471 | 2191 03742 5314 JMP L3714 / |
| 2472 | 2192 03743 4477 JMS I C0077 / LONG CALL TO S1111 |
| 2473 | 2193 03744 7773 C3744, 7773 / CLA MQA SCA MQL SHL + |
| 2474 | 2194 03745 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2475 | 2195 03746 0711 AND I C3711 / |
| 2476 | 2196 03747 3703 DCA I C3703 / |
| 2477 | 2197 03750 5503 JMP I C0103 / LONG JUMP TO L0733 |
| 2478 | 2198 |
| 2479 | 2199 4000 *4000 |
| 2480 | 2200 04000 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2481 | 2201 04001 0002 C4001, 0002 / AND C0002 |
| 2482 | 2202 04002 0703 AND I C4103 / |
| 2483 | 2203 04003 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2484 | 2204 04004 0716 C4004, 0716 / AND I C4116 |
| 2485 | 2205 04005 0741 C4005, 0741 / AND I C4141 |
| 2486 | 2206 04006 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2487 | 2207 04007 0711 AND I C4111 / |
| 2488 | 2208 04010 4070 C4010, 4070 / JMS C0070 |
| 2489 | 2209 04011 4475 C4011, 4475 / JMS I C0075 |
| 2490 | 2210 04012 1075 TAD C0075 / |
| 2491 | 2211 04013 7000 NOP / |
| 2492 | 2212 04014 1144 TAD C0144 / |
| 2493 | 2213 04015 3572 DCA I C0172 / |
| 2494 | 2214 04016 3105 DCA D0105 / |
| 2495 | 2215 L4017, |
| 2496 | 2216 04017 4253 JMS S4053 / |
| 2497 | 2217 04020 7440 SZA / |
| 2498 | 2218 04021 7410 SKP / |
| 2499 | 2219 L4022, |
| 2500 | 2220 04022 4253 JMS S4053 / |
| 2501 | 2221 04023 7041 CIA / |
| 2502 | 2222 04024 1153 TAD C0153 / |
| 2503 | 2223 04025 7640 SZA CLA / |
| 2504 | 2224 04026 5233 JMP L4033 / |
| 2505 | 2225 04027 4253 JMS S4053 / |
| 2506 | 2226 04030 7640 SZA CLA / |
| 2507 | 2227 04031 5242 JMP L4042 / |
| 2508 | 2228 04032 5222 JMP L4022 / |
| 2509 | 2229 L4033, |
| 2510 | 2230 04033 4452 JMS I C0052 / LONG CALL TO S1000 |
| 2511 | 2231 04034 4052 C4034, 4052 / JMS C0052 |
| 2512 | 2232 04035 1604 TAD I C4004 / |
| 2513 | 2233 L4036, |
| 2514 | 2234 04036 4452 JMS I C0052 / LONG CALL TO S1000 |
| 2515 | 2235 04037 4074 C4037, 4074 / JMS C0074 |
| 2516 | 2236 04040 1611 C4040, 1611 / TAD I C4011 |
| 2517 | 2237 04041 5246 JMP L4046 / |
| 2518 | 2238 L4042, |
| 2519 | 2239 04042 4452 JMS I C0052 / LONG CALL TO S1000 |
| 2520 | 2240 04043 4075 C4043, 4075 / JMS C0075 |
| 2521 | \f |
| 2522 | |
| 2523 | |
| 2524 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 46 |
| 2525 | |
| 2526 | |
| 2527 | 2241 04044 1604 TAD I C4004 / |
| 2528 | 2242 04045 5236 JMP L4036 / |
| 2529 | 2243 L4046, |
| 2530 | 2244 04046 4451 JMS I C0051 / LONG CALL TO S1050 |
| 2531 | 2245 04047 4040 C4047, 4040 / JMS C0040 |
| 2532 | 2246 04050 1601 TAD I C4001 / |
| 2533 | 2247 04051 5217 JMP L4017 / |
| 2534 | 2248 04052 0377 C4052, 0377 / AND C4177 |
| 2535 | 2249 |
| 2536 | 2250 //////////////////////////////////////////////////////////////////////////////// |
| 2537 | 2251 / |
| 2538 | 2252 / SUBROUTINE: S4053 |
| 2539 | 2253 / |
| 2540 | 2254 / CALLED FROM: |
| 2541 | 2255 / 4017 4022 4027 |
| 2542 | 2256 / TOTAL 0003 (3) CALLS |
| 2543 | 2257 //////////////////////////////////////////////////////////////////////////////// |
| 2544 | 2258 S4053, |
| 2545 | 2259 04053 0000 0 / RETURN AREA |
| 2546 | 2260 04054 4501 JMS I C0101 / LONG CALL TO S1042 |
| 2547 | 2261 04055 7665 C4055, 7665 / CLA SCA MQL MUY + |
| 2548 | 2262 04056 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 2549 | 2263 04057 6001 ION / ENABLE INTERRUPTS |
| 2550 | 2264 04060 4502 JMS I C0102 / LONG CALL TO S0411 |
| 2551 | 2265 04061 6002 IOF / DISABLE INTERRUPTS |
| 2552 | 2266 04062 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 2553 | 2267 04063 7410 SKP / |
| 2554 | 2268 04064 5270 JMP L4070 / |
| 2555 | 2269 04065 4447 JMS I C0047 / LONG CALL TO S0616 |
| 2556 | 2270 04066 4076 C4066, 4076 / JMS C0076 |
| 2557 | 2271 04067 5217 JMP L4017 / |
| 2558 | 2272 L4070, |
| 2559 | 2273 04070 0000 RFB / READ THE CONTENT OF THE READER BUFFE |
| 2560 | UD undefined ^ |
| 2561 | 2274 04071 3274 DCA D4074 / |
| 2562 | 2275 04072 1274 TAD D4074 / |
| 2563 | 2276 04073 5653 JMP I S4053 / RETURN |
| 2564 | 2277 04074 0000 D4074, 0000 / AND L0000 |
| 2565 | 2278 04075 0000 AND L0000 / |
| 2566 | 2279 04076 0007 C4076, 0007 / AND C0007 |
| 2567 | 2280 04077 0007 C4077, 0007 / AND C0007 |
| 2568 | 2281 04100 0007 C4100, 0007 / AND C0007 |
| 2569 | 2282 L4101, |
| 2570 | 2283 04101 0001 AND L0001 / |
| 2571 | 2284 04102 7604 LAS / |
| 2572 | 2285 04103 0153 C4103, 0153 / AND C0153 |
| 2573 | 2286 04104 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 2574 | 2287 L4105, |
| 2575 | 2288 04105 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 2576 | 2289 04106 5305 JMP L4105 / |
| 2577 | \f |
| 2578 | |
| 2579 | |
| 2580 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 47 |
| 2581 | |
| 2582 | |
| 2583 | 2290 04107 5301 JMP L4101 / |
| 2584 | 2291 04110 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2585 | 2292 04111 0105 C4111, 0105 / AND D0105 |
| 2586 | 2293 04112 0075 AND C0075 / |
| 2587 | 2294 L4113, |
| 2588 | 2295 04113 7240 STA / AC = 7777 (-0001) |
| 2589 | 2296 04114 0153 AND C0153 / |
| 2590 | 2297 04115 4456 JMS I C0056 / LONG CALL TO S1207 |
| 2591 | 2298 04116 4563 C4116, 4563 / JMS I C0163 |
| 2592 | 2299 04117 7200 CLA / |
| 2593 | 2300 04120 4456 JMS I C0056 / LONG CALL TO S1207 |
| 2594 | 2301 04121 4563 JMS I C0163 / LONG CALL TO S1125 |
| 2595 | 2302 04122 5313 JMP L4113 / |
| 2596 | 2303 |
| 2597 | 2304 4200 *4200 |
| 2598 | 2305 L4200, |
| 2599 | 2306 04200 7200 CLA / |
| 2600 | 2307 04201 3123 DCA D0123 / |
| 2601 | 2308 04202 7604 LAS / |
| 2602 | 2309 04203 7104 CLL RAL / |
| 2603 | 2310 04204 7710 SPA CLA / |
| 2604 | 2311 04205 1143 TAD C0143 / |
| 2605 | 2312 04206 1142 TAD C0142 / |
| 2606 | 2313 04207 3232 DCA D4232 / |
| 2607 | 2314 04210 5220 JMP L4220 / |
| 2608 | 2315 L4211, |
| 2609 | 2316 04211 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 2610 | 2317 L4212, |
| 2611 | 2318 04212 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 2612 | 2319 04213 5212 JMP L4212 / |
| 2613 | 2320 04214 2122 ISZ D0122 / |
| 2614 | 2321 04215 5222 JMP L4222 / |
| 2615 | 2322 04216 2123 ISZ D0123 / |
| 2616 | 2323 04217 7000 NOP / |
| 2617 | 2324 L4220, |
| 2618 | 2325 04220 1232 TAD D4232 / |
| 2619 | 2326 04221 3122 DCA D0122 / |
| 2620 | 2327 L4222, |
| 2621 | 2328 04222 7604 LAS / |
| 2622 | 2329 04223 7700 SMA CLA / |
| 2623 | 2330 04224 5211 JMP L4211 / |
| 2624 | 2331 04225 4447 JMS I C0047 / LONG CALL TO S0616 |
| 2625 | 2332 04226 1532 TAD I D0132 / |
| 2626 | 2333 04227 4257 JMS S4257 / |
| 2627 | 2334 04230 7402 HLT / |
| 2628 | 2335 04231 5200 JMP L4200 / |
| 2629 | 2336 04232 0000 D4232, 0000 / AND L0000 |
| 2630 | 2337 L4233, |
| 2631 | 2338 04233 7200 CLA / |
| 2632 | 2339 04234 3123 DCA D0123 / |
| 2633 | \f |
| 2634 | |
| 2635 | |
| 2636 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 48 |
| 2637 | |
| 2638 | |
| 2639 | 2340 04235 5245 JMP L4245 / |
| 2640 | 2341 L4236, |
| 2641 | 2342 04236 6026 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC |
| 2642 | 2343 L4237, |
| 2643 | 2344 04237 6021 PSF / SKIP IF PUNCH FLAG IS A 1 |
| 2644 | 2345 04240 5237 JMP L4237 / |
| 2645 | 2346 04241 2122 ISZ D0122 / |
| 2646 | 2347 04242 5247 JMP L4247 / |
| 2647 | 2348 04243 2123 ISZ D0123 / |
| 2648 | 2349 04244 7000 NOP / |
| 2649 | 2350 L4245, |
| 2650 | 2351 04245 1141 TAD C0141 / |
| 2651 | 2352 04246 3122 DCA D0122 / |
| 2652 | 2353 L4247, |
| 2653 | 2354 04247 7604 LAS / |
| 2654 | 2355 04250 7700 SMA CLA / |
| 2655 | 2356 04251 5236 JMP L4236 / |
| 2656 | 2357 04252 4447 JMS I C0047 / LONG CALL TO S0616 |
| 2657 | 2358 04253 1543 D4253, 1543 / TAD I C0143 |
| 2658 | 2359 04254 4257 JMS S4257 / |
| 2659 | 2360 04255 7402 HLT / |
| 2660 | 2361 04256 5233 JMP L4233 / |
| 2661 | 2362 |
| 2662 | 2363 //////////////////////////////////////////////////////////////////////////////// |
| 2663 | 2364 / |
| 2664 | 2365 / SUBROUTINE: S4257 |
| 2665 | 2366 / |
| 2666 | 2367 / CALLED FROM: |
| 2667 | 2368 / 4227 4254 |
| 2668 | 2369 / TOTAL 0002 (2) CALLS |
| 2669 | 2370 //////////////////////////////////////////////////////////////////////////////// |
| 2670 | 2371 S4257, |
| 2671 | 2372 04257 0000 0 / RETURN AREA |
| 2672 | 2373 04260 4265 JMS S4265 / |
| 2673 | 2374 04261 0123 AND D0123 / |
| 2674 | 2375 04262 4447 JMS I C0047 / LONG CALL TO S0616 |
| 2675 | 2376 04263 1554 TAD I C0154 / |
| 2676 | 2377 04264 5657 JMP I S4257 / RETURN |
| 2677 | 2378 |
| 2678 | 2379 //////////////////////////////////////////////////////////////////////////////// |
| 2679 | 2380 / |
| 2680 | 2381 / SUBROUTINE: S4265 |
| 2681 | 2382 / |
| 2682 | 2383 / CALLED FROM: |
| 2683 | 2384 / 4260 |
| 2684 | 2385 / TOTAL 0001 (1) CALLS |
| 2685 | 2386 //////////////////////////////////////////////////////////////////////////////// |
| 2686 | 2387 S4265, |
| 2687 | 2388 04265 0000 0 / RETURN AREA |
| 2688 | 2389 04266 4475 JMS I C0075 / LONG CALL TO S0400 |
| 2689 | \f |
| 2690 | |
| 2691 | |
| 2692 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 49 |
| 2693 | |
| 2694 | |
| 2695 | 2390 04267 4331 JMS D4331 / |
| 2696 | 2391 04270 7774 SPA SNA SZL CLA OSR / |
| 2697 | 2392 04271 1322 TAD C4322 / |
| 2698 | 2393 04272 3303 DCA D4303 / |
| 2699 | 2394 04273 1665 TAD I S4265 / |
| 2700 | 2395 04274 2265 ISZ S4265 / |
| 2701 | 2396 04275 3330 DCA D4330 / |
| 2702 | 2397 04276 1730 TAD I D4330 / |
| 2703 | 2398 04277 3327 DCA D4327 / |
| 2704 | 2399 L4300, |
| 2705 | 2400 04300 3330 DCA D4330 / |
| 2706 | 2401 L4301, |
| 2707 | 2402 04301 7100 CLL / |
| 2708 | 2403 04302 1327 TAD D4327 / |
| 2709 | 2404 04303 1323 D4303, 1323 / TAD C4323 |
| 2710 | 2405 04304 7420 SNL / |
| 2711 | 2406 04305 5311 JMP L4311 / |
| 2712 | 2407 04306 2330 ISZ D4330 / |
| 2713 | 2408 04307 3327 DCA D4327 / |
| 2714 | 2409 04310 5301 JMP L4301 / |
| 2715 | 2410 L4311, |
| 2716 | 2411 04311 7200 CLA / |
| 2717 | 2412 04312 1330 TAD D4330 / |
| 2718 | 2413 04313 1140 TAD C0140 / |
| 2719 | 2414 04314 4473 JMS I C0073 / LONG CALL TO S0426 |
| 2720 | 2415 04315 7300 CLA CLL / AC = 0000 |
| 2721 | 2416 04316 2303 ISZ D4303 / |
| 2722 | 2417 04317 2331 ISZ D4331 / |
| 2723 | 2418 04320 5300 JMP L4300 / |
| 2724 | 2419 04321 5665 JMP I S4265 / RETURN |
| 2725 | 2420 04322 1323 C4322, 1323 / TAD C4323 |
| 2726 | 2421 04323 6030 C4323, 6030 / 6030 |
| 2727 | 2422 04324 7634 SZL CLA OSR / |
| 2728 | 2423 04325 7766 SMA SZA SNL CLA OSR HLT / |
| 2729 | 2424 04326 7777 C4326, 7777 / CLA MQA SCA MQL LSR + |
| 2730 | 2425 04327 0000 D4327, 0000 / AND L0000 |
| 2731 | 2426 04330 0000 D4330, 0000 / AND L0000 |
| 2732 | 2427 04331 0000 D4331, 0000 / AND L0000 |
| 2733 | 2428 04332 7602 CLA HLT / |
| 2734 | 2429 L4333, |
| 2735 | 2430 04333 7604 LAS / |
| 2736 | 2431 04334 0174 AND C0174 / |
| 2737 | 2432 04335 7041 CIA / |
| 2738 | 2433 04336 3021 DCA D0021 / |
| 2739 | 2434 04337 7604 LAS / |
| 2740 | 2435 04340 0137 AND C0137 / |
| 2741 | 2436 04341 7106 CLL RTL / |
| 2742 | 2437 04342 7006 RTL / |
| 2743 | 2438 04343 7006 RTL / |
| 2744 | 2439 04344 7041 CIA / |
| 2745 | \f |
| 2746 | |
| 2747 | |
| 2748 | AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE Page 50 |
| 2749 | |
| 2750 | |
| 2751 | 2440 04345 3347 DCA D4347 / |
| 2752 | 2441 04346 4477 JMS I C0077 / LONG CALL TO S1111 |
| 2753 | 2442 04347 0000 D4347, 0000 / AND L0000 |
| 2754 | 2443 L4350, |
| 2755 | 2444 04350 6014 RFC / CLEAR READER FLAG AND READER BUFFER, |
| 2756 | 2445 L4351, |
| 2757 | 2446 04351 6011 RSF / SKIP IF READER FLAG IS A 1. |
| 2758 | 2447 04352 5351 JMP L4351 / |
| 2759 | 2448 04353 2122 ISZ D0122 / |
| 2760 | 2449 04354 5350 JMP L4350 / |
| 2761 | 2450 04355 4502 JMS I C0102 / LONG CALL TO S0411 |
| 2762 | 2451 04356 5333 JMP L4333 / |
| 2763 | 2452 |
| 2764 | 2453 $ |
| 2765 | |
| 2766 | 11 detected errors |