sw/maindec/pc8e/MD.PA

   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
  26 L0000,
  27 D0000,  0000                / AND   L0000
  28 L0001,
  29 C0001,  5001                / JMP   L0001
  30 C0002,  0002                / AND   C0002
  31 D0003,  0003                / AND   D0003
  32
  33 *0005
  34 D0005,  5402                / JMP I C0002
  35 C0006,  0000                / AND   L0000
  36
  37 *0020
  38 D0020,  0000                / AND   L0000
  39 D0021,  0000                / AND   L0000
  40 D0022,  0000                / AND   L0000
  41 D0023,  0000                / AND   L0000
  42 D0024,  0000                / AND   L0000
  43 C0025,
  44 C0025,  0270                / AND   C0070
  45 C0026,
  46 C0026,  0333                / AND   D0133
  47 C0027,
  48 C0027,  0447                / AND I C0047
  49 D0030,  0000                / AND   L0000
  50 C0031,  2000                / ISZ   L0000
  51 D0032,  3000                / DCA   L0000
  52     DCA I C0062             /
  53     DCA I C0106             /
  54     DCA I D0117             /
  55 D0036,  3537                / DCA I C0137
  56 C0037,  3553                / DCA I C0153
  57 C0040,  3600                / DCA I L0000
  58     JMS   L0000             /
  59 C0042,  4102                / JMS   C0102
  60 C0043,  4110                / JMS   D0110
  61     JMS   L0000             /
  62 C0045,  4233                / JMS   C0033
  63     JMS   D0132             /
  64 C0047,
  65 C0047,  0616                / AND I AI6
  66 C0050,  0600                / AND I L0000
  67 C0051,
  68 C0051,  1050                / TAD   C0050
  69 C0052,
  70 C0052,  1000                / TAD   L0000
  71 C0053,
  72 C0053,  1255                / TAD   C0055
  73 C0054,
  74 C0054,  1273                / TAD   C0073
  75 C0055,
  76 C0055,  1200                / TAD   L0000
  77 C0056,
  78 C0056,  1207                / TAD   C0007
  79 C0057,
  80 C0057,  1214                / TAD   AI4
  81 C0060,
  82 C0060,  1230                / TAD   D0030
  83 C0061,
  84 C0061,  1143                / TAD   C0143
  85 C0062,  1145                / TAD   C0145
  86 D0063,  0324                / AND   C0124
  87 D0064,  1311                / TAD   D0111
  88 C0065,
  89 C0065,  1324                / TAD   C0124
  90 C0066,
  91 C0066,  1400                / TAD I L0000
  92 C0067,
  93 C0067,  1412                / TAD I AI2
  94 C0070,
  95 C0070,  1435                / TAD I C0035
  96 C0071,
  97 C0071,  0521                / AND I D0121
  98 C0072,
  99 C0072,  0513                / AND I D0113
 100 C0073,
 101 C0073,  0426                / AND I C0026
 102 C0074,
 103 C0074,  0536                / AND I D0136
 104 C0075,
 105 C0075,  0400                / AND I L0000
 106 C0076,
 107 C0076,  0443                / AND I C0043
 108 C0077,
 109 C0077,  1111                / TAD   D0111
 110 C0100,
 111 C0100,  1117                / TAD   D0117
 112 C0101,
 113 C0101,  1042                / TAD   C0042
 114 C0102,
 115 C0102,  0411                / AND I AI1
 116 C0103,
 117 C0103,  0733                / AND I D0133
 118 D0104,  0000                / AND   L0000
 119 D0105,  0000                / AND   L0000
 120 C0106,  7354                / CLA CLL CMA RAR RAL
 121 D0107,  0000                / AND   L0000
 122 D0110,  0000                / AND   L0000
 123 D0111,  0000                / AND   L0000
 124 D0112,  0000                / AND   L0000
 125 D0113,  0000                / AND   L0000
 126 C0114,  0000                / AND   L0000
 127 D0115,  0000                / AND   L0000
 128 D0116,  0000                / AND   L0000
 129 D0117,  0000                / AND   L0000
 130 D0120,  0000                / AND   L0000
 131 D0121,  0000                / AND   L0000
 132 D0122,  0000                / AND   L0000
 133 D0123,  0000                / AND   L0000
 134 C0124,  0000                / AND   L0000
 135 C0125,  0000                / AND   L0000
 136 D0126,  0000                / AND   L0000
 137 D0127,  0000                / AND   L0000
 138 C0130,  0000                / AND   L0000
 139 D0131,  0000                / AND   L0000
 140 D0132,  0000                / AND   L0000
 141 D0133,  0000                / AND   L0000
 142 D0134,  0000                / AND   L0000
 143 D0135,  0000                / AND   L0000
 144 D0136,  0000                / AND   L0000
 145 C0137,  7600                / 7600
 146 C0140,  0260                / AND   C0060
 147 C0141,  7704                / SMA CLA OSR
 148 C0142,  7742                / SMA SZA CLA HLT
 149 C0143,  7362                / CLA CLL CMA CML
 150 C0144,  7000                / NOP
 151 C0145,  7777                / CLA MQA SCA MQL LSR +
 152 C0146,  7766                / SMA SZA SNL CLA OSR HLT
 153 C0147,  7634                / SZL CLA OSR
 154 C0150,  0060                / AND   C0060
 155 C0151,  0252                / AND   C0052
 156 C0152,  0125                / AND   C0125
 157 C0153,  0377                / AND   C0177
 158 C0154,  0020                / AND   D0020
 159 C0155,  0040                / AND   C0040
 160 C0156,  0200                / AND   L0000
 161 C0157,  0400                / AND I L0000
 162 C0160,  6060                / 6060
 163 C0161,  0707                / AND I D0107
 164 C0162,  7700                / SMA CLA
 165 C0163,
 166 C0163,  1125                / TAD   C0125
 167 C0164,  0240                / AND   C0040
 168 C0165,  0100                / AND   C0100
 169 C0166,  7740                / SMA SZA CLA
 170 C0167,  7510                / SPA
 171 C0170,  7500                / SMA
 172 C0171,  0077                / AND   C0077
 173 C0172,  1130                / TAD   C0130
 174 C0173,  7640                / SZA CLA
 175 C0174,  0177                / AND   C0177
 176 C0175,  0031                / AND   C0031
 177 C0176,  7763                / CLA MQA SCA MQL SCL +
 178 C0177,  0017                / AND   AI7
 179     SKP                     /
 180 L0201,
 181     CLA HLT                 /
 182     LAS                     /
 183     AND   C0177             /
 184     TAD   C0176             /
 185     SMA SZA                 /
 186     JMP   L0201             /
 187     LAS                     /
 188     AND   C0177             /
 189     DCA   D0030             /
 190     TAD   D0030             /
 191     TAD   C0175             /
 192     DCA   D0113             /
 193     TAD I D0113             /
 194     DCA   D0240             /
 195     JMS I C0074             / LONG CALL TO S0536
 196     AND   D0005             /
 197     AND   L0001             /
 198     SPA SNA SZL CLA OSR HLT /
 199     DCA   D0113             /
 200     JMS I C0074             / LONG CALL TO S0536
 201     AND   D0113             /
 202     AND   C0114             /
 203     SMA SZA SNL CLA         /
 204     JMS I C0075             / LONG CALL TO S0400
 205     TAD   C0075             /
 206     HLT                     /
 207     TAD   C0174             /
 208     DCA   D0104             /
 209     TAD   C0173             /
 210     DCA I C0172             /
 211     JMP I D0240             / LONG JUMP TO L0000
 212 D0240,  0000                / AND   L0000
 213 L0241,
 214     CLA HLT                 /
 215 L0242,
 216     CLA                     /
 217     TAD   D0020             /
 218     DCA   D0117             /
 219 L0245,
 220     JMS   S0307             /
 221     JMS I C0076             / LONG CALL TO S0443
 222     RTL                     /
 223     SNL                     /
 224     JMP I D0115             / LONG JUMP TO L0000
 225     JMS I C0076             / LONG CALL TO S0443
 226     AND   C0177             /
 227     CIA                     /
 228     TAD   D0116             /
 229     SNA CLA                 /
 230     JMP I D0115             / LONG JUMP TO L0000
 231     TAD   D0117             /
 232     IAC                     /
 233     SZA CLA                 /
 234     JMP   L0245             /
 235     JMS I C0047             / LONG CALL TO S0616
 236     TAD I C0160             /
 237     CLA HLT                 /
 238     JMP   L0242             /
 239 L0270,
 240     JMS I C0026             / LONG CALL TO S0333
 241     JMS I C0076             / LONG CALL TO S0443
 242     RTL                     /
 243     SZL CLA                 /
 244     JMP   L0242             /
 245     TAD   D0117             /
 246     IAC                     /
 247     SZA CLA                 /
 248     JMP   L0245             /
 249     JMS I C0076             / LONG CALL TO S0443
 250     RTL                     /
 251     SPA CLA                 /
 252     JMP   L0242             /
 253     HLT                     /
 254     JMP   L0270             /
 255
 256 ////////////////////////////////////////////////////////////////////////////////
 257 /
 258 /   SUBROUTINE:  S0307
 259 /
 260 /   CALLED FROM:
 261 /   0245
 262 /   TOTAL 0001 (1) CALLS
 263 ////////////////////////////////////////////////////////////////////////////////
 264 S0307,
 265     0                       / RETURN AREA
 266     CLA CLL                 / AC = 0000
 267     TAD I D0117             /
 268     DCA   D0116             /
 269     ISZ   D0117             /
 270     TAD   D0117             /
 271     DCA   D0113             /
 272     ISZ   D0117             /
 273     TAD   D0117             /
 274     DCA   D0115             /
 275     TAD I D0113             /
 276     DCA   D0117             /
 277     JMP I S0307             / RETURN
 278 C0324,
 279 C0324,  0000                / AND   L0000
 280 L0325,
 281     JMS I C0027             / LONG CALL TO S0447
 282     AND   C0177             /
 283     SNA                     /
 284     JMP   L0325             /
 285     CIA                     /
 286     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     0                       / RETURN AREA
 298     JMS I C0076             / LONG CALL TO S0443
 299     SMA CLA                 /
 300     JMP I S0333             / RETURN
 301     TAD   D0116             /
 302     HLT                     /
 303     JMP I S0333             / RETURN
 304
 305 *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     0                       / RETURN AREA
 319     CLA                     /
 320     TAD I S0400             /
 321     DCA   D0113             /
 322     ISZ   S0400             /
 323     TAD I S0400             /
 324     DCA I D0113             /
 325     ISZ   S0400             /
 326 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     0                       / RETURN AREA
 338     CLA CLL                 / AC = 0000
 339     TAD   D0021             /
 340     DCA   D0120             /
 341     JMP I C0416             / LONG JUMP TO L0417
 342 C0416,
 343 C0416,  0417                / AND I AI7
 344 L0417,
 345     TAD   C0106             /
 346     DCA   D0121             /
 347 L0421,
 348     ISZ   D0121             /
 349     JMP   L0421             /
 350     ISZ   D0120             /
 351     JMP   L0417             /
 352     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     0                       / RETURN AREA
 364     ISZ   D0126             /
 365     TLS                     / LOAD THE TTO FROM THE CONTENT OF AC4
 366     CLA                     /
 367 L0432,
 368     TAD   D0126             /
 369     SZA CLA                 /
 370     SKP                     /
 371     JMP   L0440             /
 372     TSF                     / SKIP IF TELEPRINTER FLAG IS A 1.
 373     JMP   L0432             /
 374 L0440,
 375 C0440,  6042                / TCF
 376     DCA   D0126             /
 377     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     0                       / RETURN AREA
 389     LAS                     /
 390     AND   D0105             /
 391     JMP I S0443             / RETURN
 392
 393 ////////////////////////////////////////////////////////////////////////////////
 394 /
 395 /   SUBROUTINE:  S0447
 396 /
 397 /   CALLED FROM:
 398 /   0325 0514
 399 /   TOTAL 0002 (2) CALLS
 400 ////////////////////////////////////////////////////////////////////////////////
 401 S0447,
 402     0                       / RETURN AREA
 403     CLA                     /
 404     TAD   C0511             /
 405     TAD   D0476             /
 406     SZA CLA                 /
 407     JMP   L0464             /
 408     TAD   C0500             /
 409     DCA   D0476             /
 410     TAD   D0477             /
 411     CLL RAL                 /
 412     SZL                     /
 413     IAC                     /
 414     DCA   D0477             /
 415 L0464,
 416     TAD   D0477             /
 417     TAD I D0476             /
 418     DCA I D0476             /
 419     TAD   D0512             /
 420     RAR                     /
 421     TAD I D0476             /
 422     ISZ   D0476             /
 423     DCA   D0512             /
 424     TAD   D0512             /
 425     JMP I S0447             / RETURN
 426 D0476,  0511                / AND I D0111
 427 D0477,  6543                / 6543
 428 C0500,  0501                / AND I C0101
 429 C0501,  6543                / 6543
 430     DCA   D0410             /
 431 C0503,  0765                / AND I C0565
 432     JMP I D0032             / LONG JUMP TO L3000
 433     ISZ   D0107             /
 434     SNA CLA OSR             /
 435     JMS   S0521             /
 436     TAD   C0076             /
 437 C0511,  7267                / CLA CMA CML IAC RTL
 438 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     0                       / RETURN AREA
 450     JMS I C0027             / LONG CALL TO S0447
 451     AND   C0174             /
 452     CIA                     /
 453     DCA   D0021             /
 454     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     0                       / RETURN AREA
 466     DCA   D0535             /
 467     TAD I S0521             /
 468     CIA                     /
 469     TAD   D0535             /
 470     ISZ   S0521             /
 471     SZA CLA                 /
 472     JMP   L0533             /
 473     ISZ   S0521             /
 474     JMP I S0521             / RETURN
 475 L0533,
 476     TAD   D0535             /
 477     JMP I S0521             / RETURN
 478 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     0                       / RETURN AREA
 490     CLA                     /
 491     TAD I S0536             /
 492     DCA   D0561             /
 493     ISZ   S0536             /
 494     TAD I S0536             /
 495     DCA   D0562             /
 496     ISZ   S0536             /
 497     TAD I S0536             /
 498     DCA   D0563             /
 499     ISZ   S0536             /
 500 L0551,
 501     CLA                     /
 502     TAD I D0561             /
 503     DCA I D0562             /
 504     ISZ   D0561             /
 505     ISZ   D0562             /
 506     ISZ   D0563             /
 507     JMP   L0551             /
 508     JMP I S0536             / RETURN
 509 D0561,  0000                / AND   L0000
 510 D0562,  0000                / AND   L0000
 511 D0563,  0000                / AND   L0000
 512
 513 *0600
 514 D0600,  0000                / AND   L0000
 515     CLA                     /
 516     TAD I D0600             /
 517     DCA   D0615             /
 518     ISZ   D0600             /
 519 L0605,
 520     JMS I C0047             / LONG CALL TO S0616
 521     AND I C0612             /
 522     ISZ   D0615             /
 523     JMP   L0605             /
 524     JMP I D0600             / LONG JUMP TO L0000
 525 C0612,  0015                / AND   AI5
 526 C0613,  0012                / AND   AI2
 527     AND   L0001             /
 528 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     0                       / RETURN AREA
 540     CLA                     /
 541     TAD I S0616             /
 542     DCA   D0700             /
 543     DCA   D0702             /
 544     ISZ   S0616             /
 545 L0624,
 546     TAD I D0700             /
 547     RTR                     /
 548     RTR                     /
 549     RTR                     /
 550     JMS   S0635             /
 551     TAD I D0700             /
 552     JMS   S0635             /
 553     ISZ   D0700             /
 554     JMP   L0624             /
 555
 556 ////////////////////////////////////////////////////////////////////////////////
 557 /
 558 /   SUBROUTINE:  S0635
 559 /
 560 /   CALLED FROM:
 561 /   0630 0632
 562 /   TOTAL 0002 (2) CALLS
 563 ////////////////////////////////////////////////////////////////////////////////
 564 S0635,
 565     0                       / RETURN AREA
 566     AND   C0171             /
 567 C0637,  3301                / DCA   D0701
 568     TAD   D0702             /
 569     SZA CLA                 /
 570     JMP   L0652             /
 571     TAD   D0701             /
 572     SNA                     /
 573     JMP   L0650             /
 574 L0646,
 575     JMS   S0671             /
 576     JMP I S0635             / RETURN
 577 L0650,
 578     ISZ   D0702             /
 579     JMP I S0635             / RETURN
 580 L0652,
 581     DCA   D0702             /
 582     TAD   D0701             /
 583     CIA                     /
 584     SNA                     /
 585     JMP   L0646             /
 586     IAC                     /
 587     SNA CLA                 /
 588     JMP I S0616             / RETURN
 589     TAD   C0170             /
 590     DCA   D0673             /
 591     TAD   D0701             /
 592     JMS   S0671             /
 593     TAD   C0167             /
 594     DCA   D0673             /
 595     JMP I S0635             / RETURN
 596
 597 ////////////////////////////////////////////////////////////////////////////////
 598 /
 599 /   SUBROUTINE:  S0671
 600 /
 601 /   CALLED FROM:
 602 /   0646 0665
 603 /   TOTAL 0002 (2) CALLS
 604 ////////////////////////////////////////////////////////////////////////////////
 605 S0671,
 606     0                       / RETURN AREA
 607     TAD   C0166             /
 608 D0673,  7510                / SPA
 609     TAD   C0165             /
 610     TAD   C0164             /
 611     JMS I C0073             / LONG CALL TO S0426
 612     JMP I S0671             / RETURN
 613 D0700,  0000                / AND   L0000
 614 D0701,  0000                / AND   L0000
 615 D0702,  0000                / AND   L0000
 616     DCA   D0023             /
 617     RAR                     /
 618     DCA   D0024             /
 619     RSF                     / SKIP IF READER FLAG IS A 1.
 620     JMP   L0712             /
 621     JMP I C0711             / LONG JUMP TO L0000
 622 C0711,
 623 C0711,  0000                / AND   L0000
 624 L0712,
 625     PSF                     / SKIP IF PUNCH FLAG IS A 1
 626     JMP   L0717             /
 627     JMS I C0163             / LONG CALL TO S1125
 628     JMP I C0716             / LONG JUMP TO L0000
 629 C0716,
 630 C0716,  0000                / AND   L0000
 631 L0717,
 632     KSF                     / SKIP IF KEYBOARD FLAG IS A 1.
 633     JMP   L0723             /
 634     KCC                     / CLEAR AC AND CLEAR KEYBOARD FLAG.
 635     JMP I C0103             / LONG JUMP TO L0733
 636 L0723,
 637     TSF                     / SKIP IF TELEPRINTER FLAG IS A 1.
 638     JMP   L0730             /
 639     TCF                     / CLEAR TELEPRINTER FLAG.
 640     DCA   D0126             /
 641     JMP I C0103             / LONG JUMP TO L0733
 642 L0730,
 643     JMS I C0047             / LONG CALL TO S0616
 644     TAD I C0101             /
 645     CLA HLT                 /
 646 L0733,
 647 C0733,  7300                / CLA CLL
 648     TAD   D0024             /
 649     RAL                     /
 650     TAD   D0023             /
 651     ION                     / ENABLE INTERRUPTS
 652     JMP I L0000             / LONG JUMP TO L0000
 653     PCF                     / CLEAR PUNCH FLAG AND PUNCH BUFFER.
 654     JMP I C0103             / LONG JUMP TO L0733
 655     RFB                     / READ THE CONTENT OF THE READER BUFFE
 656     JMP I C0103             / LONG JUMP TO L0733
 657
 658 *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     0                       / RETURN AREA
 670 C1001,  7200                / CLA
 671     TAD I S1000             /
 672     DCA   D1037             /
 673 C1004,  2200                / ISZ   S1000
 674     TAD I S1000             /
 675     DCA   D1040             /
 676     ISZ   S1000             /
 677     TAD   C0162             /
 678 C1011,  0637                / AND I D1037
 679     CLL RTR                 /
 680     RTR                     /
 681     RTR                     /
 682     JMS   S1024             /
 683     ISZ   D1040             /
 684     TAD   C0162             /
 685     CMA                     /
 686     AND I D1037             /
 687     JMS   S1024             /
 688     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     0                       / RETURN AREA
 700     DCA   D1041             /
 701     TAD   D1041             /
 702     RTL                     /
 703     RAL                     /
 704     AND   C0161             /
 705     TAD   D1041             /
 706     AND   C0161             /
 707     TAD   C0160             /
 708     DCA I D1040             /
 709     JMP I S1024             / RETURN
 710 D1037,  0000                / AND   L0000
 711 D1040,  0000                / AND   L0000
 712 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     0                       / RETURN AREA
 724     CLA                     /
 725     TAD I S1042             /
 726     DCA   D0021             /
 727     ISZ   S1042             /
 728     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     0                       / RETURN AREA
 741     JMS I C0052             / LONG CALL TO S1000
 742     AND   D0030             /
 743     TAD I C0071             /
 744     JMS I C0052             / LONG CALL TO S1000
 745     AND   D0116             /
 746     TAD I C0074             /
 747     TAD I S1050             /
 748     DCA I C1110             /
 749     JMS I C0047             / LONG CALL TO S0616
 750     TAD I C0066             /
 751     ISZ   S1050             /
 752     TAD I S1050             /
 753     SNA                     /
 754     JMP   L1072             /
 755     DCA   D1071             /
 756     JMS I C0047             / LONG CALL TO S0616
 757 D1071,  0000                / AND   L0000
 758 L1072,
 759     JMS I C0076             / LONG CALL TO S0443
 760     AND   C0157             /
 761     SNA CLA                 /
 762     HLT                     /
 763     JMS I C0076             / LONG CALL TO S0443
 764     AND   C0156             /
 765     SZA CLA                 /
 766     JMP I C0025             / LONG JUMP TO L0270
 767     JMS I C0076             / LONG CALL TO S0443
 768     AND   C0165             /
 769     SZA CLA                 /
 770     ISZ   S1050             /
 771     ISZ   S1050             /
 772     JMP I S1050             / RETURN
 773 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     0                       / RETURN AREA
 786     CLA                     /
 787     TAD I S1111             /
 788     DCA   D0122             /
 789     ISZ   S1111             /
 790     JMP I S1111             / RETURN
 791
 792 ////////////////////////////////////////////////////////////////////////////////
 793 /
 794 /   SUBROUTINE:  S1117
 795 /
 796 /   CALLED FROM:
 797 /   1232
 798 /   TOTAL 0001 (1) CALLS
 799 ////////////////////////////////////////////////////////////////////////////////
 800 S1117,
 801     0                       / RETURN AREA
 802     CLA                     /
 803     TAD I S1117             /
 804     DCA   D0123             /
 805     ISZ   S1117             /
 806     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     0                       / RETURN AREA
 818     JMS I C0076             / LONG CALL TO S0443
 819     AND   C0155             /
 820 D1130,  7640                / SZA CLA
 821     JMP I S1125             / RETURN
 822     JMS I C0076             / LONG CALL TO S0443
 823     AND   C0154             /
 824     SZA CLA                 /
 825     SKP                     /
 826     JMS I C0072             / LONG CALL TO S0513
 827     TAD   D0021             /
 828     SZA                     /
 829     JMS I C0102             / LONG CALL TO S0411
 830     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     0                       / RETURN AREA
 842     JMS I C0071             / LONG CALL TO S0521
 843 D1145,  0000                / AND   L0000
 844     JMP   L1151             /
 845     ISZ   S1143             /
 846     JMP I S1143             / RETURN
 847 L1151,
 848     DCA   D0131             /
 849     JMS I C0052             / LONG CALL TO S1000
 850     TAD   C0145             /
 851     TAD I C1004             /
 852     JMS I C0052             / LONG CALL TO S1000
 853     AND   D0131             /
 854     TAD I C1011             /
 855     JMS I C0051             / LONG CALL TO S1050
 856 C1161,  4040                / JMS   C0040
 857     TAD I C1001             /
 858     JMP I S1143             / RETURN
 859     JMP I S1143             / RETURN
 860
 861 *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     0                       / RETURN AREA
 873     RFC                     / CLEAR READER FLAG AND READER BUFFER,
 874 L1202,
 875     RSF                     / SKIP IF READER FLAG IS A 1.
 876     JMP   L1202             /
 877     CLA                     /
 878     RFB                     / READ THE CONTENT OF THE READER BUFFE
 879     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     0                       / RETURN AREA
 891     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
 892 L1211,
 893     PSF                     / SKIP IF PUNCH FLAG IS A 1
 894     JMP   L1211             /
 895     JMP I S1207             / RETURN
 896
 897 ////////////////////////////////////////////////////////////////////////////////
 898 /
 899 /   SUBROUTINE:  S1214
 900 /
 901 /   CALLED FROM:
 902 /   1231 3507 3540
 903 /   TOTAL 0003 (3) CALLS
 904 ////////////////////////////////////////////////////////////////////////////////
 905 S1214,
 906     0                       / RETURN AREA
 907     JMS I C0075             / LONG CALL TO S0400
 908     TAD   D1227             /
 909     SZL CLA OSR             /
 910 L1220,
 911     CLA                     /
 912     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
 913 L1222,
 914     PSF                     / SKIP IF PUNCH FLAG IS A 1
 915     JMP   L1222             /
 916     ISZ   D1227             /
 917     JMP   L1220             /
 918     JMP I S1214             / RETURN
 919 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     0                       / RETURN AREA
 931     JMS   S1214             /
 932     JMS I C0100             / LONG CALL TO S1117
 933 C1233,  7767                / CLA MQA SCA MQL DVI +
 934     JMS I C0075             / LONG CALL TO S0400
 935     TAD   D1246             /
 936     TAD I D0121             /
 937 L1237,
 938     CLA                     /
 939     TAD I D1246             /
 940     JMS   S1207             /
 941     ISZ   D1246             /
 942     ISZ   D0123             /
 943     JMP   L1237             /
 944     JMP I S1230             / RETURN
 945 D1246,  0000                / AND   L0000
 946     TAD   C1233             /
 947     SNL CLA HLT             /
 948 D1251,  0000                / AND   L0000
 949 D1252,  0000                / AND   L0000
 950 D1253,  0000                / AND   L0000
 951 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     0                       / RETURN AREA
 963     CLA CLL                 / AC = 0000
 964     TAD   D1251             /
 965     RTL                     /
 966     TAD   D1252             /
 967     DCA   D1251             /
 968     TAD   D1251             /
 969     RTL                     /
 970     TAD   D1252             /
 971     RTL                     /
 972     DCA   D1252             /
 973     TAD   D1251             /
 974     AND   C0153             /
 975     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     0                       / RETURN AREA
 987     CLA CLL                 / AC = 0000
 988     TAD   D1253             /
 989     RTL                     /
 990     TAD   D1254             /
 991     DCA   D1253             /
 992     TAD   D1253             /
 993     RTL                     /
 994     TAD   D1254             /
 995     RTL                     /
 996     DCA   D1254             /
 997     TAD   D1253             /
 998     AND   C0153             /
 999     JMP I S1273             / RETURN
1000 C1311,
1001 C1311,  0000                / AND   L0000
1002 L1312,
1003     JMS I C0066             / LONG CALL TO S1400
1004     JMS I C0055             / LONG CALL TO S1200
1005     DCA   D0110             /
1006     JMS I C0055             / LONG CALL TO S1200
1007     DCA   D0111             /
1008     JMS I C0055             / LONG CALL TO S1200
1009     DCA   D0112             /
1010     JMS I C0065             / LONG CALL TO S1324
1011     JMP   L1312             /
1012     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     0                       / RETURN AREA
1024     JMS I C0075             / LONG CALL TO S0400
1025     TAD   D1363             /
1026     NOP                     /
1027 L1330,
1028     JMS I C0075             / LONG CALL TO S0400
1029     TAD   D1364             /
1030     SMA SZA SNL CLA OSR HLT /
1031 L1333,
1032     JMS I C0067             / LONG CALL TO S1412
1033     CMA                     /
1034     AND   D0110             /
1035     SZA                     /
1036     JMP   L1333             /
1037     JMS I C0067             / LONG CALL TO S1412
1038     CMA                     /
1039     AND   D0111             /
1040     SNA                     /
1041     JMP   L1351             /
1042     ISZ   D1363             /
1043     JMP   L1330             /
1044 L1347,
1045     CLA HLT                 /
1046     JMP I S1324             / RETURN
1047 L1351,
1048     JMS I C0067             / LONG CALL TO S1412
1049     CMA                     /
1050     AND   D0112             /
1051     SZA                     /
1052     JMP   L1360             /
1053     ISZ   S1324             /
1054     JMP I S1324             / RETURN
1055 L1360,
1056     ISZ   D1364             /
1057     JMP   L1330             /
1058     JMP   L1347             /
1059 D1363,  0000                / AND   L0000
1060 D1364,  0000                / AND   L0000
1061
1062 *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     0                       / RETURN AREA
1074     CLA IAC                 /
1075     DCA   D1460             /
1076 C1403,  4474                / JMS I C0074
1077     TAD I C0060             /
1078 D1405,  1461                / TAD I C0061
1079 C1406,  7775                / CLA MQA SCA MQL ASR +
1080     DCA   D1464             /
1081     DCA   D1465             /
1082     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     0                       / RETURN AREA
1094     CLA                     /
1095     TAD   D1460             /
1096     DCA   D1461             /
1097     TAD   D1464             /
1098     CMA                     /
1099 L1420,
1100     DCA   D1464             /
1101     TAD   D1464             /
1102 D1422,  7650                / SNA CLA
1103     JMP   L1427             /
1104     TAD   D1461             /
1105     CMA                     /
1106     JMP   L1431             /
1107 L1427,
1108     TAD   D1461             /
1109     CIA                     /
1110 L1431,
1111     AND   C0153             /
1112     DCA   D1460             /
1113     TAD   D1461             /
1114     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     0                       / RETURN AREA
1126     CLA                     /
1127     TAD   D1462             /
1128     DCA   D1463             /
1129     TAD   D1465             /
1130     CMA                     /
1131     DCA   D1465             /
1132     TAD   D1465             /
1133     SNA CLA                 /
1134     JMP   L1452             /
1135     TAD   D1463             /
1136     CMA                     /
1137     JMP   L1454             /
1138 L1452,
1139     TAD   D1463             /
1140     CIA                     /
1141 L1454,
1142     AND   C0153             /
1143     DCA   D1462             /
1144     TAD   D1463             /
1145     JMP I S1435             / RETURN
1146 D1460,  0000                / AND   L0000
1147 D1461,  0000                / AND   L0000
1148 D1462,  0000                / AND   L0000
1149 D1463,  0000                / AND   L0000
1150 D1464,  0000                / AND   L0000
1151 D1465,  0000                / AND   L0000
1152 C1466,  0015                / AND   AI5
1153 C1467,  0012                / AND   AI2
1154     JMP   L1420             /
1155 C1471,  4040                / JMS   C0040
1156 C1472,  4040                / JMS   C0040
1157     JMS   D0022             /
1158 C1474,  4040                / JMS   C0040
1159 C1475,  4040                / JMS   C0040
1160 D1476,  4040                / JMS   C0040
1161 C1477,  4040                / JMS   C0040
1162     AND   L0001             /
1163 C1501,  0015                / AND   AI5
1164 C1502,  0012                / AND   AI2
1165 C1503,  0007                / AND   C0007
1166 C1504,  4025                / JMS   C0025
1167     TAD I D1405             /
1168     DCA   D0020             /
1169     AND I C0103             /
1170 C1510,  2405                / ISZ I D0005
1171 C1511,  0440                / AND I C0040
1172     TAD   D0116             /
1173     ISZ I D0005             /
1174     ISZ   D1422             /
1175     ISZ I D0120             /
1176     ISZ I C0056             /
1177 C1517,  0015                / AND   AI5
1178     AND   L0001             /
1179     AND   C0037             /
1180 C1522,  0040                / AND   C0040
1181     AND   C0040             /
1182 C1524,  0037                / AND   C0037
1183     AND   L0000             /
1184     AND   C0077             /
1185 C1527,  0011                / AND   AI1
1186 C1530,  0011                / AND   AI1
1187     AND   C0006             /
1188 C1532,  0015                / AND   AI5
1189 C1533,  0012                / AND   AI2
1190     JMS   D0022             /
1191     AND I D0022             /
1192     JMS   D0023             /
1193     ISZ   D0005             /
1194     AND I D0104             /
1195     JMS   L0000             /
1196     AND   C0100             /
1197 C1543,  0015                / AND   AI5
1198 C1544,  0012                / AND   AI2
1199     JMS   D0020             /
1200     AND   C1510             /
1201     JMS   D0023             /
1202     ISZ   D0005             /
1203     AND I D0104             /
1204     JMS   L0000             /
1205     AND   C0100             /
1206     JMS   D0003             /
1207     ISZ   D0023             /
1208 C1556,  0015                / AND   AI5
1209     AND   L0001             /
1210 C1560,  0015                / AND   AI5
1211 C1561,  0012                / AND   AI2
1212     JMS   L0000             /
1213     AND I C1511             /
1214     TAD I C1403             /
1215     TAD I C1522             /
1216     ISZ   D1405             /
1217     AND   C1524             /
1218     JMS   D0022             /
1219 C1571,  2416                / ISZ I AI6
1220     JMS   D0023             /
1221     AND I C0114             /
1222     AND I C0103             /
1223     ISZ I D0005             /
1224     AND I C0056             /
1225 C1577,  0015                / AND   AI5
1226     AND   L0001             /
1227     JMS   D0023             /
1228 C1602,  5702                / JMP I C1702
1229 C1603,  4040                / JMS   C0040
1230 C1604,  4040                / JMS   C0040
1231 D1605,  4040                / JMS   C0040
1232 C1606,  4040                / JMS   C0040
1233 C1607,  2701                / ISZ I C1701
1234 C1610,  2340                / ISZ   C1740
1235 C1611,  4040                / JMS   C0040
1236 C1612,  4040                / JMS   C0040
1237 C1613,  0015                / AND   AI5
1238     AND   L0001             /
1239 C1615,  0015                / AND   AI5
1240 C1616,  0012                / AND   AI2
1241     IAC RAL                 /
1242 C1620,  4040                / JMS   C0040
1243 C1621,  2331                / ISZ   C1731
1244 C1622,  2324                / ISZ   C1724
1245     AND I D0115             /
1246     JMP I D1640             / LONG JUMP TO L2440
1247 C1625,  2305                / ISZ   C1705
1248     ISZ I C0040             /
1249 C1627,  2411                / ISZ I AI1
1250     TAD I D0105             /
1251 C1631,  4004                / JMS   C0004
1252     AND I C0114             /
1253     AND   D0131             /
1254     JMS   D0003             /
1255 C1635,  1716                / TAD I C1716
1256 C1636,  2324                / ISZ   C1724
1257     AND   D0116             /
1258 D1640,  2440                / ISZ I C0040
1259     TAD   D0116             /
1260     JMS   D0023             /
1261     ISZ   D1656             /
1262 C1644,  0015                / AND   AI5
1263 C1645,  0012                / AND   AI2
1264     ISZ   D1605             /
1265     AND I D1605             /
1266     ISZ   D1640             /
1267 C1651,  2417                / ISZ I AI7
1268     JMS   D0020             /
1269     AND   D0107             /
1270     AND I D0123             /
1271 C1655,  4062                / JMS   C0062
1272 D1656,  4001                / JMS   L0001
1273     TAD I C1604             /
1274 C1660,  4063                / JMS   D0063
1275 C1661,  4017                / JMS   AI7
1276     AND I D1640             /
1277     ISZ   D0022             /
1278 C1664,  0740                / AND I C1740
1279 C1665,  1411                / TAD I AI1
1280 C1666,  2324                / ISZ   C1724
1281     TAD   D0116             /
1282 C1670,  0756                / AND I C1756
1283     AND   L0001             /
1284
1285 *2000
1286 D2000,  4475                / JMS I C0075
1287     AND   D0020             /
1288 C2002,  2010                / ISZ   AI0
1289     JMS I C0075             / LONG CALL TO S0400
1290     AND   D0105             /
1291 C2005,  7717                / CLA MQA LSR +
1292     JMP I C2007             / LONG JUMP TO L0241
1293 C2007,
1294 C2007,  0241                / AND   C2041
1295     AND   L0000             /
1296     ISZ   D0036             /
1297     JMS I C0077             / LONG CALL TO S1111
1298     SNA SZL                 /
1299     JMS I C0101             / LONG CALL TO S1042
1300     OSR HLT                 /
1301 L2016,
1302     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1303     JMS I C0102             / LONG CALL TO S0411
1304     RSF                     / SKIP IF READER FLAG IS A 1.
1305     JMP   L2025             /
1306 L2022,
1307     ISZ   D0122             /
1308     JMP   L2016             /
1309     JMP I C0025             / LONG JUMP TO L0270
1310 L2025,
1311     JMS I C0051             / LONG CALL TO S1050
1312 C2026,  4040                / JMS   C0040
1313     AND   L0000             /
1314     JMP   L2022             /
1315     JMS I C0101             / LONG CALL TO S1042
1316     SMA SZA SNL CLA OSR     /
1317 L2033,
1318     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1319     JMS I C0102             / LONG CALL TO S0411
1320     JMP   L2033             /
1321     AND   L0001             /
1322     ISZ   D0064             /
1323     JMS I C0077             / LONG CALL TO S1111
1324 C2041,  0001                / AND   L0001
1325     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1326 L2043,
1327     RSF                     / SKIP IF READER FLAG IS A 1.
1328     JMP   L2043             /
1329 L2045,
1330     RSF                     / SKIP IF READER FLAG IS A 1.
1331     JMP   L2052             /
1332 L2047,
1333     ISZ   D0122             /
1334     JMP   L2045             /
1335     JMP I C0025             / LONG JUMP TO L0270
1336 L2052,
1337     JMS I C0051             / LONG CALL TO S1050
1338 C2053,  4040                / JMS   C0040
1339     AND   L0000             /
1340     JMP   L2047             /
1341     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1342 L2057,
1343     RSF                     / SKIP IF READER FLAG IS A 1.
1344     JMP   L2057             /
1345 L2061,
1346     RSF                     / SKIP IF READER FLAG IS A 1.
1347     JMP   L2061             /
1348     JMP   L2061             /
1349     AND   C0002             /
1350     ISZ   D0105             /
1351     JMS I C0077             / LONG CALL TO S1111
1352     AND   L0001             /
1353     RFB                     / READ THE CONTENT OF THE READER BUFFE
1354 L2071,
1355     RSF                     / SKIP IF READER FLAG IS A 1.
1356     JMP   L2102             /
1357     JMS I C0051             / LONG CALL TO S1050
1358 C2074,  4040                / JMS   C0040
1359     AND   L0000             /
1360     JMP   L2102             /
1361 L2077,
1362     RSF                     / SKIP IF READER FLAG IS A 1.
1363     JMP   L2077             /
1364     JMP   L2077             /
1365 L2102,
1366     ISZ   D0122             /
1367     JMP   L2071             /
1368     JMP I C0025             / LONG JUMP TO L0270
1369     AND   D0003             /
1370     ISZ   D2000             /
1371     TAD   C2177             /
1372     DCA   D0022             /
1373 L2111,
1374     TAD   C2176             /
1375     DCA   D0136             /
1376     IOF                     / DISABLE INTERRUPTS
1377     CLA                     /
1378     DCA   D0135             /
1379 L2116,
1380     ISZ   D0135             /
1381     JMP   L2116             /
1382     ISZ   D0136             /
1383     JMP   L2116             /
1384 D2122,  1375                / TAD   C2175
1385     DCA   D0134             /
1386 C2124,  6007                / 6007
1387     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1388     JMS   S2151             /
1389     RSF                     / SKIP IF READER FLAG IS A 1.
1390     JMP   L2137             /
1391 C2131,  6010                / 6010
1392 D2132,  6003                / 6003
1393     JMP   L2137             /
1394     ISZ   D0022             /
1395     JMP   L2111             /
1396     JMP I C0025             / LONG JUMP TO L0270
1397 L2137,
1398     JMS I C0051             / LONG CALL TO S1050
1399 C2140,  4040                / JMS   C0040
1400     AND   L0000             /
1401     JMP   L2111             /
1402     IOF                     / DISABLE INTERRUPTS
1403 L2144,
1404     RSF                     / SKIP IF READER FLAG IS A 1.
1405     JMP   L2144             /
1406 L2146,
1407     RSF                     / SKIP IF READER FLAG IS A 1.
1408     JMP   L2146             /
1409     JMP   L2146             /
1410
1411 ////////////////////////////////////////////////////////////////////////////////
1412 /
1413 /   SUBROUTINE:  S2151
1414 /
1415 /   CALLED FROM:
1416 /   2126
1417 /   TOTAL 0001 (1) CALLS
1418 ////////////////////////////////////////////////////////////////////////////////
1419 S2151,
1420     0                       / RETURN AREA
1421 L2152,
1422     ISZ   D0134             /
1423     JMP   L2152             /
1424     JMP I S2151             / RETURN
1425
1426 *2175
1427 C2175,  2260                / ISZ   C2060
1428 C2176,  7773                / CLA MQA SCA MQL SHL +
1429 C2177,  4000                / JMS   L0000
1430 C2200,  0004                / AND   C0004
1431     ISZ I L0000             /
1432 L2202,
1433     IOF                     / DISABLE INTERRUPTS
1434 C2203,  6007                / 6007
1435 C2204,  6010                / 6010
1436 C2205,  6020                / 6020
1437     ION                     / ENABLE INTERRUPTS
1438     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1439 C2210,  6000                / 6000
1440     JMP   L2214             /
1441 C2212,  6003                / 6003
1442     SKP                     /
1443 L2214,
1444     JMP   L2220             /
1445     ISZ   D0022             /
1446     JMP   L2202             /
1447 L2217,
1448     JMP I C0025             / LONG JUMP TO L0270
1449 L2220,
1450     JMS I C0051             / LONG CALL TO S1050
1451 C2221,  4040                / JMS   C0040
1452     AND   L0000             /
1453     JMP   L2217             /
1454 L2224,
1455 C2224,  6010                / 6010
1456     JMS I C0102             / LONG CALL TO S0411
1457 C2226,  6020                / 6020
1458     JMP   L2224             /
1459
1460 *2400
1461 C2400,  0005                / AND   D0005
1462     ISZ I D0030             /
1463     JMS I C0077             / LONG CALL TO S1111
1464 C2403,  7014                / RAR RAL
1465 L2404,
1466     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1467 L2405,
1468     RSF                     / SKIP IF READER FLAG IS A 1.
1469     JMP   L2405             /
1470     RFB                     / READ THE CONTENT OF THE READER BUFFE
1471     RSF                     / SKIP IF READER FLAG IS A 1.
1472     JMP   L2425             /
1473     JMS I C0051             / LONG CALL TO S1050
1474 C2413,  4040                / JMS   C0040
1475     AND   L0000             /
1476     JMP   L2425             /
1477 L2416,
1478     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1479 L2417,
1480     RSF                     / SKIP IF READER FLAG IS A 1.
1481     JMP   L2417             /
1482 L2421,
1483     RFB                     / READ THE CONTENT OF THE READER BUFFE
1484     RSF                     / SKIP IF READER FLAG IS A 1.
1485     JMP   L2416             /
1486     JMP   L2421             /
1487 L2425,
1488     ISZ   D0122             /
1489     JMP   L2404             /
1490     JMP I C0025             / LONG JUMP TO L0270
1491     AND   C0006             /
1492     ISZ I C2400             /
1493     JMS I C0077             / LONG CALL TO S1111
1494 C2433,  7014                / RAR RAL
1495     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1496 L2435,
1497     RSF                     / SKIP IF READER FLAG IS A 1.
1498     JMP   L2435             /
1499     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1500     RSF                     / SKIP IF READER FLAG IS A 1.
1501     JMP   L2453             /
1502     JMS I C0051             / LONG CALL TO S1050
1503 C2443,  4040                / JMS   C0040
1504     AND   L0000             /
1505     JMP   L2453             /
1506     JMS I C0102             / LONG CALL TO S0411
1507 L2447,
1508     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1509 L2450,
1510     RSF                     / SKIP IF READER FLAG IS A 1.
1511     JMP   L2450             /
1512     JMP   L2447             /
1513 L2453,
1514     ISZ   D0122             /
1515     JMP   L2435             /
1516     JMP I C0025             / LONG JUMP TO L0270
1517
1518 *2600
1519 C2600,  0007                / AND   C0007
1520 C2601,  2637                / ISZ I C2637
1521     JMS I C0077             / LONG CALL TO S1111
1522 C2603,  7014                / RAR RAL
1523 L2604,
1524 C2604,  6014                / RFC
1525 L2605,
1526     RSF                     / SKIP IF READER FLAG IS A 1.
1527     JMP   L2605             /
1528     CLA                     /
1529     RFB                     / READ THE CONTENT OF THE READER BUFFE
1530 C2611,  3236                / DCA   D2636
1531     TAD   D2636             /
1532     SZA CLA                 /
1533     JMP   L2620             /
1534 L2615,
1535     ISZ   D0122             /
1536     JMP   L2604             /
1537     JMP I C0025             / LONG JUMP TO L0270
1538 L2620,
1539     JMS I C0052             / LONG CALL TO S1000
1540     ISZ I C2635             /
1541     TAD I L2604             /
1542     JMS I C0052             / LONG CALL TO S1000
1543     ISZ I D2636             /
1544     TAD I C2611             /
1545     JMS I C0051             / LONG CALL TO S1050
1546 C2627,  4040                / JMS   C0040
1547     TAD I C2601             /
1548     JMP   L2615             /
1549 L2632,
1550     CLA                     /
1551     RFB                     / READ THE CONTENT OF THE READER BUFFE
1552     JMP   L2632             /
1553 C2635,  0000                / AND   L0000
1554 D2636,  0000                / AND   L0000
1555 C2637,  0010                / AND   AI0
1556 C2640,  2717                / ISZ I C2717
1557     JMS I C0075             / LONG CALL TO S0400
1558     AND   C0002             /
1559     ISZ I C2654             /
1560 L2644,
1561     KCC                     / CLEAR AC AND CLEAR KEYBOARD FLAG.
1562     TCF                     / CLEAR TELEPRINTER FLAG.
1563     PCF                     / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1564     RFB                     / READ THE CONTENT OF THE READER BUFFE
1565     ION                     / ENABLE INTERRUPTS
1566     NOP                     /
1567     IOF                     / DISABLE INTERRUPTS
1568     JMP   L2661             /
1569 C2654,  4451                / JMS I C0051
1570     AND   C0140             /
1571     AND   L0000             /
1572     JMP   L2644             /
1573     JMP   L2644             /
1574 L2661,
1575     JMS I C0077             / LONG CALL TO S1111
1576     AND   L0001             /
1577     JMS I C0075             / LONG CALL TO S0400
1578     AND   C0002             /
1579     ISZ I L2713             /
1580 C2666,  6010                / 6010
1581     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1582 L2670,
1583     RSF                     / SKIP IF READER FLAG IS A 1.
1584     JMP   L2670             /
1585 L2672,
1586     ION                     / ENABLE INTERRUPTS
1587     NOP                     /
1588     IOF                     / DISABLE INTERRUPTS
1589     JMS I C0051             / LONG CALL TO S1050
1590     AND   C2640             /
1591     AND   L0000             /
1592     JMP   L2713             /
1593     JMS I C0075             / LONG CALL TO S0400
1594     AND   C0002             /
1595     ISZ I C2712             /
1596     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1597 L2705,
1598     RSF                     / SKIP IF READER FLAG IS A 1.
1599     JMP   L2705             /
1600 L2707,
1601     ION                     / ENABLE INTERRUPTS
1602     NOP                     /
1603     JMP   L2707             /
1604 C2712,  5307                / JMP   L2707
1605 L2713,
1606 C2713,  2122                / ISZ   D0122
1607     JMP   L2672             /
1608 C2715,  6020                / 6020
1609     JMP I C0025             / LONG JUMP TO L0270
1610 C2717,  0011                / AND   AI1
1611 C2720,  7777                / CLA MQA SCA MQL LSR +
1612     JMS I C0077             / LONG CALL TO S1111
1613     SNA SZL                 /
1614 L2723,
1615     JMS   S2773             /
1616     JMS I C0101             / LONG CALL TO S1042
1617 C2725,  7755                / CLA MQA SCA ASR +
1618     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1619 L2727,
1620     RSF                     / SKIP IF READER FLAG IS A 1.
1621     JMP   L2727             /
1622     JMS I C0102             / LONG CALL TO S0411
1623     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1624     JMS I C0102             / LONG CALL TO S0411
1625     RSF                     / SKIP IF READER FLAG IS A 1.
1626     JMP   L2743             /
1627     JMS I C0051             / LONG CALL TO S1050
1628     AND   C0140             /
1629     AND   L0000             /
1630     JMP   L2723             /
1631     JMP   L2755             /
1632 L2743,
1633     JMS   S2766             /
1634     RSF                     / SKIP IF READER FLAG IS A 1.
1635     JMP   L2751             /
1636 L2746,
1637     ISZ   D0122             /
1638     JMP   L2723             /
1639     JMP I C0025             / LONG JUMP TO L0270
1640 L2751,
1641     JMS I C0051             / LONG CALL TO S1050
1642     AND   C2640             /
1643     AND   L0000             /
1644     JMP   L2746             /
1645 L2755,
1646     JMS I C0101             / LONG CALL TO S1042
1647 C2756,  7761                / CLA MQA SCA MQL
1648 L2757,
1649     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1650     JMP   L2757             /
1651 L2761,
1652     JMS I C0102             / LONG CALL TO S0411
1653     RFC                     / CLEAR READER FLAG AND READER BUFFER,
1654 L2763,
1655     RSF                     / SKIP IF READER FLAG IS A 1.
1656     JMP   L2763             /
1657     JMP   L2761             /
1658
1659 ////////////////////////////////////////////////////////////////////////////////
1660 /
1661 /   SUBROUTINE:  S2766
1662 /
1663 /   CALLED FROM:
1664 /   2743
1665 /   TOTAL 0001 (1) CALLS
1666 ////////////////////////////////////////////////////////////////////////////////
1667 S2766,
1668     0                       / RETURN AREA
1669     JMS I C0101             / LONG CALL TO S1042
1670     SNA OSR                 /
1671     JMS I C0102             / LONG CALL TO S0411
1672     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     0                       / RETURN AREA
1684     JMS I C0101             / LONG CALL TO S1042
1685     OSR HLT                 /
1686     JMS I C0102             / LONG CALL TO S0411
1687     JMP I S2773             / RETURN
1688 D3000,  4475                / JMS I C0075
1689     AND   D0020             /
1690 C3002,  3010                / DCA   AI0
1691     JMS I C0075             / LONG CALL TO S0400
1692     AND   D0105             /
1693 C3005,  7717                / CLA MQA LSR +
1694     JMP I C3007             / LONG JUMP TO L0241
1695 C3007,
1696 C3007,  0241                / AND   C3041
1697     AND   L0000             /
1698     DCA   D0032             /
1699     JMS I C0077             / LONG CALL TO S1111
1700     AND   L0001             /
1701 L3014,
1702     PCF                     / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1703     PSF                     / SKIP IF PUNCH FLAG IS A 1
1704     JMP   L3027             /
1705     JMS I C0051             / LONG CALL TO S1050
1706 C3020,  4040                / JMS   C0040
1707     AND   L0000             /
1708     JMP   L3027             /
1709     PCF                     / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1710 L3024,
1711     PSF                     / SKIP IF PUNCH FLAG IS A 1
1712     JMP   L3024             /
1713     JMP   L3024             /
1714 L3027,
1715     ISZ   D0122             /
1716     JMP   L3014             /
1717     JMP I C0025             / LONG JUMP TO L0270
1718     AND   L0001             /
1719     DCA   D0063             /
1720     JMS I C0077             / LONG CALL TO S1111
1721     AND   L0001             /
1722     JMS I C0101             / LONG CALL TO S1042
1723     AND   L0001             /
1724     CLA CLL                 / AC = 0000
1725 C3041,  6022                / PCF
1726     PPC                     / LOAD THE PUNCH BUFFER FROM BITS 4 TH
1727     JMS I C0102             / LONG CALL TO S0411
1728 L3044,
1729     PSF                     / SKIP IF PUNCH FLAG IS A 1
1730     JMP   L3051             /
1731 L3046,
1732     ISZ   D0122             /
1733     JMP   L3044             /
1734     JMP I C0025             / LONG JUMP TO L0270
1735 L3051,
1736     JMS I C0051             / LONG CALL TO S1050
1737 C3052,  4040                / JMS   C0040
1738     AND   L0000             /
1739     JMP   L3046             /
1740     CLA                     /
1741     PCF                     / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1742     PPC                     / LOAD THE PUNCH BUFFER FROM BITS 4 TH
1743 L3060,
1744     PSF                     / SKIP IF PUNCH FLAG IS A 1
1745     JMP   L3060             /
1746     JMP   L3060             /
1747     AND   C0002             /
1748     DCA   D0115             /
1749     JMS I C0077             / LONG CALL TO S1111
1750 C3066,  7014                / RAR RAL
1751 L3067,
1752     CLA                     /
1753     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1754 L3071,
1755     PSF                     / SKIP IF PUNCH FLAG IS A 1
1756     JMP   L3071             /
1757     PCF                     / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1758     PSF                     / SKIP IF PUNCH FLAG IS A 1
1759     JMP   L3112             /
1760     JMS I C0051             / LONG CALL TO S1050
1761 C3077,  4040                / JMS   C0040
1762     AND   L0000             /
1763     JMP   L3112             /
1764 L3102,
1765     CLA                     /
1766     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1767 L3104,
1768     PSF                     / SKIP IF PUNCH FLAG IS A 1
1769     JMP   L3104             /
1770 L3106,
1771     PCF                     / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1772     PSF                     / SKIP IF PUNCH FLAG IS A 1
1773     JMP   L3102             /
1774     JMP   L3106             /
1775 L3112,
1776     ISZ   D0122             /
1777     JMP   L3067             /
1778     JMP I C0025             / LONG JUMP TO L0270
1779     AND   D0003             /
1780     DCA   D3000             /
1781     TAD   C3177             /
1782     DCA   D0022             /
1783 L3121,
1784     TAD   C3176             /
1785     DCA   D0136             /
1786     IOF                     / DISABLE INTERRUPTS
1787     CLA                     /
1788     DCA   D0135             /
1789 L3126,
1790     ISZ   D0135             /
1791     JMP   L3126             /
1792     ISZ   D0136             /
1793     JMP   L3126             /
1794     TAD   C3175             /
1795     DCA   D0134             /
1796 C3134,  6007                / 6007
1797     PPC                     / LOAD THE PUNCH BUFFER FROM BITS 4 TH
1798     JMS   S3161             /
1799     PSF                     / SKIP IF PUNCH FLAG IS A 1
1800     JMP   L3147             /
1801 C3141,  6010                / 6010
1802 C3142,  6003                / 6003
1803     JMP   L3147             /
1804     ISZ   D0022             /
1805     JMP   L3121             /
1806     JMP I C0025             / LONG JUMP TO L0270
1807 L3147,
1808     JMS I C0051             / LONG CALL TO S1050
1809 C3150,  4040                / JMS   C0040
1810     AND   L0000             /
1811     JMP   L3121             /
1812     IOF                     / DISABLE INTERRUPTS
1813 L3154,
1814     PSF                     / SKIP IF PUNCH FLAG IS A 1
1815     JMP   L3154             /
1816 L3156,
1817     RSF                     / SKIP IF READER FLAG IS A 1.
1818     JMP   L3156             /
1819     JMP   L3156             /
1820
1821 ////////////////////////////////////////////////////////////////////////////////
1822 /
1823 /   SUBROUTINE:  S3161
1824 /
1825 /   CALLED FROM:
1826 /   3136
1827 /   TOTAL 0001 (1) CALLS
1828 ////////////////////////////////////////////////////////////////////////////////
1829 S3161,
1830     0                       / RETURN AREA
1831 L3162,
1832     ISZ   D0134             /
1833     JMP   L3162             /
1834     TAD   C3174             /
1835     DCA   D0134             /
1836 L3166,
1837     ISZ   D0134             /
1838     JMP   L3166             /
1839 L3170,
1840     ISZ   D0134             /
1841     JMP   L3170             /
1842     JMP I S3161             / RETURN
1843
1844 *3174
1845 C3174,  0500                / AND I C0100
1846 C3175,  0001                / AND   L0001
1847 C3176,  7773                / CLA MQA SCA MQL SHL +
1848 C3177,  4000                / JMS   L0000
1849 C3200,  0004                / AND   C0004
1850     DCA   D3230             /
1851 L3202,
1852     IOF                     / DISABLE INTERRUPTS
1853 C3203,  6007                / 6007
1854 C3204,  6010                / 6010
1855 C3205,  6020                / 6020
1856     ION                     / ENABLE INTERRUPTS
1857     PPC                     / LOAD THE PUNCH BUFFER FROM BITS 4 TH
1858 C3210,  6000                / 6000
1859     JMP   L3220             /
1860 C3212,  6003                / 6003
1861     SKP                     /
1862     JMP   L3220             /
1863     ISZ   D0022             /
1864     JMP   L3202             /
1865 L3217,
1866     JMP I C0025             / LONG JUMP TO L0270
1867 L3220,
1868     JMS I C0051             / LONG CALL TO S1050
1869 C3221,  4040                / JMS   C0040
1870     AND   L0000             /
1871     JMP   L3217             /
1872 L3224,
1873 C3224,  6010                / 6010
1874     JMS I C0102             / LONG CALL TO S0411
1875 C3226,  6020                / 6020
1876     JMP   L3224             /
1877 D3230,  0005                / AND   D0005
1878     DCA   D3245             /
1879     JMS I C0077             / LONG CALL TO S1111
1880 C3233,  7014                / RAR RAL
1881 L3234,
1882     STA                     / AC = 7777 (-0001)
1883     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1884 C3236,  7200                / CLA
1885     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1886 L3240,
1887     PSF                     / SKIP IF PUNCH FLAG IS A 1
1888     JMP   L3240             /
1889     ISZ   D0122             /
1890     JMP   L3234             /
1891     JMP I C0025             / LONG JUMP TO L0270
1892 D3245,  0006                / AND   C0006
1893     DCA   D3261             /
1894     JMS I C0077             / LONG CALL TO S1111
1895 C3250,  7014                / RAR RAL
1896 L3251,
1897     CLA                     /
1898     TAD   C0152             /
1899     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1900 L3254,
1901     PSF                     / SKIP IF PUNCH FLAG IS A 1
1902     JMP   L3254             /
1903     ISZ   D0122             /
1904     JMP   L3251             /
1905     JMP I C0025             / LONG JUMP TO L0270
1906 D3261,  0007                / AND   C0007
1907     DCA I L0000             /
1908     JMS I C0077             / LONG CALL TO S1111
1909 C3264,  7014                / RAR RAL
1910 L3265,
1911     CLA                     /
1912     TAD   C0151             /
1913     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1914 L3270,
1915     PSF                     / SKIP IF PUNCH FLAG IS A 1
1916     JMP   L3270             /
1917     ISZ   D0122             /
1918     JMP   L3265             /
1919     JMP I C0025             / LONG JUMP TO L0270
1920
1921 *3400
1922 C3400,  0010                / AND   AI0
1923 C3401,  7777                / CLA MQA SCA MQL LSR +
1924     JMS I C0075             / LONG CALL TO S0400
1925     AND   C0002             /
1926 C3404,  3415                / DCA I AI5
1927 L3405,
1928     KCC                     / CLEAR AC AND CLEAR KEYBOARD FLAG.
1929     TCF                     / CLEAR TELEPRINTER FLAG.
1930     RFB                     / READ THE CONTENT OF THE READER BUFFE
1931     PCF                     / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1932     ION                     / ENABLE INTERRUPTS
1933     NOP                     /
1934     IOF                     / DISABLE INTERRUPTS
1935     JMP   L3422             /
1936     JMS I C0051             / LONG CALL TO S1050
1937     AND   C0140             /
1938     AND   L0000             /
1939     JMP   L3405             /
1940     JMP   L3405             /
1941 L3422,
1942     JMS I C0077             / LONG CALL TO S1111
1943     AND   L0001             /
1944     JMS I C0075             / LONG CALL TO S0400
1945     AND   C0002             /
1946     DCA I C0056             /
1947     CLA                     /
1948 C3430,  6010                / 6010
1949     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1950 L3432,
1951     PSF                     / SKIP IF PUNCH FLAG IS A 1
1952     JMP   L3432             /
1953 L3434,
1954     ION                     / ENABLE INTERRUPTS
1955     NOP                     /
1956     IOF                     / DISABLE INTERRUPTS
1957     JMS I C0051             / LONG CALL TO S1050
1958 C3440,  0240                / AND   C3440
1959     AND   L0000             /
1960     JMP   L3456             /
1961     JMS I C0075             / LONG CALL TO S0400
1962     AND   C0002             /
1963     DCA I C0055             /
1964     CLA                     /
1965 C3447,  6026                / PLS
1966 L3450,
1967     PSF                     / SKIP IF PUNCH FLAG IS A 1
1968 C3451,  5250                / JMP   L3450
1969 L3452,
1970     ION                     / ENABLE INTERRUPTS
1971     NOP                     /
1972     JMP   L3452             /
1973     JMP   L3452             /
1974 L3456,
1975     ISZ   D0122             /
1976     JMP   L3434             /
1977 C3460,  6020                / 6020
1978     JMP I C0025             / LONG JUMP TO L0270
1979     JMS I C0075             / LONG CALL TO S0400
1980     AND   D0105             /
1981     AND I C0060             /
1982 L3465,
1983     JMS I D0064             / LONG CALL TO S1311
1984     JMS I C0077             / LONG CALL TO S1111
1985 C3467,  7773                / CLA MQA SCA MQL SHL +
1986 L3470,
1987     JMS I D0063             / LONG CALL TO S0324
1988     DCA   D0123             /
1989 L3472,
1990     JMS I C0067             / LONG CALL TO S1412
1991     DCA I C0062             /
1992     JMS I C0055             / LONG CALL TO S1200
1993     JMS I C0061             / LONG CALL TO S1143
1994     JMP   L3503             /
1995 L3477,
1996     ISZ   D0123             /
1997     JMP   L3472             /
1998     JMS I C0163             / LONG CALL TO S1125
1999     JMP   L3470             /
2000 L3503,
2001     ISZ   D0122             /
2002     JMP   L3477             /
2003     JMP   L3465             /
2004     JMS I C0060             / LONG CALL TO S1230
2005     JMS I C0057             / LONG CALL TO S1214
2006     JMS I C0066             / LONG CALL TO S1400
2007     TAD   C0150             /
2008     DCA   D0105             /
2009 L3513,
2010     JMS I C0067             / LONG CALL TO S1412
2011     JMS I C0056             / LONG CALL TO S1207
2012     JMS I C0163             / LONG CALL TO S1125
2013     JMP   L3513             /
2014     JMS I C0066             / LONG CALL TO S1400
2015     JMS I C0075             / LONG CALL TO S0400
2016     AND   D0105             /
2017     AND I L0000             /
2018     JMS I C0067             / LONG CALL TO S1412
2019     DCA I C0062             /
2020 L3525,
2021     JMS I C0055             / LONG CALL TO S1200
2022     SZA                     /
2023     JMP   L3534             /
2024     JMP   L3525             /
2025 L3531,
2026     JMS I C0067             / LONG CALL TO S1412
2027     DCA I C0062             /
2028     JMS I C0055             / LONG CALL TO S1200
2029 L3534,
2030     JMS I C0061             / LONG CALL TO S1143
2031     NOP                     /
2032     JMP   L3531             /
2033     JMS I C0060             / LONG CALL TO S1230
2034     JMS I C0057             / LONG CALL TO S1214
2035     JMS I C0074             / LONG CALL TO S0536
2036     TAD   C3447             /
2037     TAD   C3451             /
2038     SPA SNA SZL CLA OSR     /
2039     TAD   C0150             /
2040     DCA   D0105             /
2041 L3547,
2042     JMS I C0053             / LONG CALL TO S1255
2043     JMS I C0056             / LONG CALL TO S1207
2044     JMS I C0163             / LONG CALL TO S1125
2045     JMP   L3547             /
2046     JMS I C0074             / LONG CALL TO S0536
2047     TAD   C3447             /
2048     TAD   C3451             /
2049     SPA SNA SZL CLA OSR     /
2050     JMS I C0075             / LONG CALL TO S0400
2051     AND   D0105             /
2052     AND I L0000             /
2053     JMS I C0054             / LONG CALL TO S1273
2054     DCA I C0062             /
2055 L3564,
2056     JMS I C0055             / LONG CALL TO S1200
2057     SZA                     /
2058     JMP   L3573             /
2059     JMP   L3564             /
2060 L3570,
2061     JMS I C0054             / LONG CALL TO S1273
2062     DCA I C0062             /
2063     JMS I C0055             / LONG CALL TO S1200
2064 L3573,
2065     JMS I C0061             / LONG CALL TO S1143
2066     NOP                     /
2067     JMP   L3570             /
2068
2069 *3600
2070 D3600,  4475                / JMS I C0075
2071     AND   D0105             /
2072     AND I C0060             /
2073     JMS I C0075             / LONG CALL TO S0400
2074     AND   D0104             /
2075     AND   C0077             /
2076     JMS I C0066             / LONG CALL TO S1400
2077     ISZ   D0133             /
2078     JMS I C0075             / LONG CALL TO S0400
2079     AND   C0002             /
2080     AND I C3703             /
2081     JMS I C0075             / LONG CALL TO S0400
2082     AND I C3716             /
2083     DCA I C3624             /
2084     JMS I C0075             / LONG CALL TO S0400
2085     AND I C3711             /
2086     DCA I C3671             /
2087     JMS   S3646             /
2088     ION                     / ENABLE INTERRUPTS
2089 L3623,
2090     JMP   L3623             /
2091 C3624,  2132                / ISZ   D0132
2092     TAD   D0132             /
2093     TAD   C0147             /
2094     SPA CLA                 /
2095     JMP   L3633             /
2096 L3631,
2097     HLT                     /
2098     JMP   L3631             /
2099 L3633,
2100     JMS   S3646             /
2101     TAD   D0127             /
2102     SZA CLA                 /
2103     JMP I C0103             / LONG JUMP TO L0733
2104     TAD   D0132             /
2105     TAD   C0146             /
2106     SPA CLA                 /
2107     JMP I C0103             / LONG JUMP TO L0733
2108     RFC                     / CLEAR READER FLAG AND READER BUFFER,
2109     ISZ   D0127             /
2110     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     0                       / RETURN AREA
2122     JMS I C0070             / LONG CALL TO S1435
2123     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
2124     CLA                     /
2125     JMP I S3646             / RETURN
2126
2127 ////////////////////////////////////////////////////////////////////////////////
2128 /
2129 /   SUBROUTINE:  S3653
2130 /
2131 /   NEVER CALLED
2132 ////////////////////////////////////////////////////////////////////////////////
2133 S3653,
2134     0                       / RETURN AREA
2135     CLA                     /
2136     RFB                     / READ THE CONTENT OF THE READER BUFFE
2137     DCA   D0131             /
2138     TAD   D0132             /
2139     TAD   C0145             /
2140     DCA   D0132             /
2141     TAD   D0132             /
2142     SZA CLA                 /
2143     JMP   L3667             /
2144     DCA   D0127             /
2145     JMP I S3653             / RETURN
2146 L3667,
2147     RFC                     / CLEAR READER FLAG AND READER BUFFER,
2148     JMP I S3653             / RETURN
2149 C3671,  4253                / JMS   S3653
2150     TAD   D0131             /
2151     SNA CLA                 /
2152     JMP I C0103             / LONG JUMP TO L0733
2153     JMS I C0075             / LONG CALL TO S0400
2154     AND I C3711             /
2155     DCA I C3703             /
2156     JMS I C0077             / LONG CALL TO S1111
2157 C3701,  7773                / CLA MQA SCA MQL SHL +
2158     SKP                     /
2159 C3703,  4253                / JMS   S3653
2160     JMS I C0067             / LONG CALL TO S1412
2161     DCA I C0062             /
2162     TAD   D0131             /
2163     JMS I C0061             / LONG CALL TO S1143
2164     SKP                     /
2165 C3711,  5503                / JMP I C0103
2166     ISZ   D0122             /
2167     JMP I C0103             / LONG JUMP TO L0733
2168 L3714,
2169     JMS I C0075             / LONG CALL TO S0400
2170     AND I C3711             /
2171 C3716,  3720                / DCA I C3720
2172     JMP I C0103             / LONG JUMP TO L0733
2173 C3720,  4253                / JMS   S3653
2174     TAD   D0131             /
2175     DCA   D0110             /
2176     JMS I C0075             / LONG CALL TO S0400
2177     AND I C3711             /
2178     DCA I C3727             /
2179     JMP I C0103             / LONG JUMP TO L0733
2180 C3727,  4253                / JMS   S3653
2181     TAD   D0131             /
2182     DCA   D0111             /
2183     JMS I C0075             / LONG CALL TO S0400
2184     AND I C3711             /
2185     DCA I C3736             /
2186     JMP I C0103             / LONG JUMP TO L0733
2187 C3736,  4253                / JMS   S3653
2188     TAD   D0131             /
2189     DCA   D0112             /
2190     JMS I C0065             / LONG CALL TO S1324
2191     JMP   L3714             /
2192     JMS I C0077             / LONG CALL TO S1111
2193 C3744,  7773                / CLA MQA SCA MQL SHL +
2194     JMS I C0075             / LONG CALL TO S0400
2195     AND I C3711             /
2196     DCA I C3703             /
2197     JMP I C0103             / LONG JUMP TO L0733
2198
2199 *4000
2200     JMS I C0075             / LONG CALL TO S0400
2201 C4001,  0002                / AND   C0002
2202     AND I C4103             /
2203     JMS I C0075             / LONG CALL TO S0400
2204 C4004,  0716                / AND I C4116
2205 C4005,  0741                / AND I C4141
2206     JMS I C0075             / LONG CALL TO S0400
2207     AND I C4111             /
2208 C4010,  4070                / JMS   C0070
2209 C4011,  4475                / JMS I C0075
2210     TAD   C0075             /
2211     NOP                     /
2212     TAD   C0144             /
2213     DCA I C0172             /
2214     DCA   D0105             /
2215 L4017,
2216     JMS   S4053             /
2217     SZA                     /
2218     SKP                     /
2219 L4022,
2220     JMS   S4053             /
2221     CIA                     /
2222     TAD   C0153             /
2223     SZA CLA                 /
2224     JMP   L4033             /
2225     JMS   S4053             /
2226     SZA CLA                 /
2227     JMP   L4042             /
2228     JMP   L4022             /
2229 L4033,
2230     JMS I C0052             / LONG CALL TO S1000
2231 C4034,  4052                / JMS   C0052
2232     TAD I C4004             /
2233 L4036,
2234     JMS I C0052             / LONG CALL TO S1000
2235 C4037,  4074                / JMS   C0074
2236 C4040,  1611                / TAD I C4011
2237     JMP   L4046             /
2238 L4042,
2239     JMS I C0052             / LONG CALL TO S1000
2240 C4043,  4075                / JMS   C0075
2241     TAD I C4004             /
2242     JMP   L4036             /
2243 L4046,
2244     JMS I C0051             / LONG CALL TO S1050
2245 C4047,  4040                / JMS   C0040
2246     TAD I C4001             /
2247     JMP   L4017             /
2248 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     0                       / RETURN AREA
2260     JMS I C0101             / LONG CALL TO S1042
2261 C4055,  7665                / CLA SCA MQL MUY +
2262     RFC                     / CLEAR READER FLAG AND READER BUFFER,
2263     ION                     / ENABLE INTERRUPTS
2264     JMS I C0102             / LONG CALL TO S0411
2265     IOF                     / DISABLE INTERRUPTS
2266     RSF                     / SKIP IF READER FLAG IS A 1.
2267     SKP                     /
2268     JMP   L4070             /
2269     JMS I C0047             / LONG CALL TO S0616
2270 C4066,  4076                / JMS   C0076
2271     JMP   L4017             /
2272 L4070,
2273     RFB                     / READ THE CONTENT OF THE READER BUFFE
2274     DCA   D4074             /
2275     TAD   D4074             /
2276     JMP I S4053             / RETURN
2277 D4074,  0000                / AND   L0000
2278     AND   L0000             /
2279 C4076,  0007                / AND   C0007
2280 C4077,  0007                / AND   C0007
2281 C4100,  0007                / AND   C0007
2282 L4101,
2283     AND   L0001             /
2284     LAS                     /
2285 C4103,  0153                / AND   C0153
2286     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
2287 L4105,
2288     PSF                     / SKIP IF PUNCH FLAG IS A 1
2289     JMP   L4105             /
2290     JMP   L4101             /
2291     JMS I C0075             / LONG CALL TO S0400
2292 C4111,  0105                / AND   D0105
2293     AND   C0075             /
2294 L4113,
2295     STA                     / AC = 7777 (-0001)
2296     AND   C0153             /
2297     JMS I C0056             / LONG CALL TO S1207
2298 C4116,  4563                / JMS I C0163
2299     CLA                     /
2300     JMS I C0056             / LONG CALL TO S1207
2301     JMS I C0163             / LONG CALL TO S1125
2302     JMP   L4113             /
2303
2304 *4200
2305 L4200,
2306     CLA                     /
2307     DCA   D0123             /
2308     LAS                     /
2309     CLL RAL                 /
2310     SPA CLA                 /
2311     TAD   C0143             /
2312     TAD   C0142             /
2313     DCA   D4232             /
2314     JMP   L4220             /
2315 L4211,
2316     RFC                     / CLEAR READER FLAG AND READER BUFFER,
2317 L4212,
2318     RSF                     / SKIP IF READER FLAG IS A 1.
2319     JMP   L4212             /
2320     ISZ   D0122             /
2321     JMP   L4222             /
2322     ISZ   D0123             /
2323     NOP                     /
2324 L4220,
2325     TAD   D4232             /
2326     DCA   D0122             /
2327 L4222,
2328     LAS                     /
2329     SMA CLA                 /
2330     JMP   L4211             /
2331     JMS I C0047             / LONG CALL TO S0616
2332     TAD I D0132             /
2333     JMS   S4257             /
2334     HLT                     /
2335     JMP   L4200             /
2336 D4232,  0000                / AND   L0000
2337 L4233,
2338     CLA                     /
2339     DCA   D0123             /
2340     JMP   L4245             /
2341 L4236,
2342     PLS                     / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
2343 L4237,
2344     PSF                     / SKIP IF PUNCH FLAG IS A 1
2345     JMP   L4237             /
2346     ISZ   D0122             /
2347     JMP   L4247             /
2348     ISZ   D0123             /
2349     NOP                     /
2350 L4245,
2351     TAD   C0141             /
2352     DCA   D0122             /
2353 L4247,
2354     LAS                     /
2355     SMA CLA                 /
2356     JMP   L4236             /
2357     JMS I C0047             / LONG CALL TO S0616
2358 D4253,  1543                / TAD I C0143
2359     JMS   S4257             /
2360     HLT                     /
2361     JMP   L4233             /
2362
2363 ////////////////////////////////////////////////////////////////////////////////
2364 /
2365 /   SUBROUTINE:  S4257
2366 /
2367 /   CALLED FROM:
2368 /   4227 4254
2369 /   TOTAL 0002 (2) CALLS
2370 ////////////////////////////////////////////////////////////////////////////////
2371 S4257,
2372     0                       / RETURN AREA
2373     JMS   S4265             /
2374     AND   D0123             /
2375     JMS I C0047             / LONG CALL TO S0616
2376     TAD I C0154             /
2377     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     0                       / RETURN AREA
2389     JMS I C0075             / LONG CALL TO S0400
2390     JMS   D4331             /
2391     SPA SNA SZL CLA OSR     /
2392     TAD   C4322             /
2393     DCA   D4303             /
2394     TAD I S4265             /
2395     ISZ   S4265             /
2396     DCA   D4330             /
2397     TAD I D4330             /
2398     DCA   D4327             /
2399 L4300,
2400     DCA   D4330             /
2401 L4301,
2402     CLL                     /
2403     TAD   D4327             /
2404 D4303,  1323                / TAD   C4323
2405     SNL                     /
2406     JMP   L4311             /
2407     ISZ   D4330             /
2408     DCA   D4327             /
2409     JMP   L4301             /
2410 L4311,
2411     CLA                     /
2412     TAD   D4330             /
2413     TAD   C0140             /
2414     JMS I C0073             / LONG CALL TO S0426
2415     CLA CLL                 / AC = 0000
2416     ISZ   D4303             /
2417     ISZ   D4331             /
2418     JMP   L4300             /
2419     JMP I S4265             / RETURN
2420 C4322,  1323                / TAD   C4323
2421 C4323,  6030                / 6030
2422     SZL CLA OSR             /
2423     SMA SZA SNL CLA OSR HLT /
2424 C4326,  7777                / CLA MQA SCA MQL LSR +
2425 D4327,  0000                / AND   L0000
2426 D4330,  0000                / AND   L0000
2427 D4331,  0000                / AND   L0000
2428     CLA HLT                 /
2429 L4333,
2430     LAS                     /
2431     AND   C0174             /
2432     CIA                     /
2433     DCA   D0021             /
2434     LAS                     /
2435     AND   C0137             /
2436     CLL RTL                 /
2437     RTL                     /
2438     RTL                     /
2439     CIA                     /
2440     DCA   D4347             /
2441     JMS I C0077             / LONG CALL TO S1111
2442 D4347,  0000                / AND   L0000
2443 L4350,
2444     RFC                     / CLEAR READER FLAG AND READER BUFFER,
2445 L4351,
2446     RSF                     / SKIP IF READER FLAG IS A 1.
2447     JMP   L4351             /
2448     ISZ   D0122             /
2449     JMP   L4350             /
2450     JMS I C0102             / LONG CALL TO S0411
2451     JMP   L4333             /
2452
2453 $