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