1 /DEVICE DEPENDENT CODE FOR OS/8 MONITOR 2 3 4 /THESE ARE CONDITIONAL PARAMETERS. SEE INTRODUCTORY COMMENTS. 5 6 IFNDEF DIRECT /"DON'T REWRITE DIRECTORY" FLAG 7 IFNDEF NOHSPT /"NO HIGH-SPEED PAPER TAPE" FLAG 8 IFNDEF LIST 9 IFNDEF RF08 10 IFNDEF LP08 11 IFNDEF LINCTAPE 12 IFNDEF LINCSYS 13 IFNDEF RK8 14 IFNDEF DF32 15 IFNDEF RK01 16 IFNDEF ROM 17 IFNZRO ROM < 18 TD8E=1 19 TD8ESYS=1 20 > 21 IFNDEF TD8E 22 IFNDEF TD8ESYS 23 IFNDEF DECTAPE < 24 IFZERO DF32+RF08+RK8+LINCSYS+TD8ESYS 25 IFNZRO DF32+RF08+RK8+LINCSYS+TD8ESYS 26 > 27 28 IFNZRO DECTAPE < /CAN'T ALLOW TD8E AND DECTAPE!! 29 IFNZRO TD8ESYS+TD8E < 30 REASMB, BAD PARAMETERS 31 >> 32 33 34 SBLOCK=7776 /RANDOM DEFINITIONS FROM MAIN ASSEMBLY 35 MFREE=70 /FIRST FREE BLOCK ON THE SYSTEMS DEVICE 36 /(FIELD 1) 37 SOFSET=7747 /NOT REALLY NECESSARY! 38 39 FIELD 1 40 41 /LAST INITIAL DIRECTORY LOCATION. CHANGE IF NECESSARY. 42 /THESE CONDITIONALS PUT IN DIRECTORY LENGTHS. 43 44 *1413 45 011413 6534 IFNZRO DECTAPE+LINCSYS+TD8ESYS 46 IFNZRO RF08 <6000^RF08+MFREE+6 /IF RF08> 47 IFNZRO RK8 48 IFNZRO DF32 <7600^DF32+MFREE+6 /IF DF32> 49 50 AASDNAME=564 /DEPENDS ON PS8 ASSEMBLY 51 *AASDNAME 52 /SYSTEM DEVICE NAME TABLE 53 /THE ENTRIES ARE THE TWO WORD SUM OF THE SIXBIT FOR THE SYSTEM 54 /DEVICES, WITH THE HIGH ORDER BIT FORCED ON 55 56 /CHANGES IN SDNAME MUST BE ACCOMPANIED BY CHANGES IN 57 /SDVHND. KEEP CORRESPONDENCE ONE TO ONE. 58 59 010564 4631 SDNAME, 4631 /SYS 60 010565 5723 5723 /DSK 61 010566 5524 5524 /TTY 62 010567 4020 4020 /LPT 63 010570 4604 4604 /DTA0 64 010571 4605 4605 /DTA1 65 010572 4606 4606 /DTA2 66 010573 4607 4607 /DTA3 67 010574 4610 4610 /DTA4 68 010575 4611 4611 /DTA5 69 010576 4612 4612 /DTA6 70 010577 4613 4613 /DTA7 71 010600 4024 4024 /PTP 72 010601 4224 4224 /PTR 73 010602 6504 6504 /CDR 74 75 IFNZRO TD8ESYS+TD8E < 76 *572 /ZERO OUT DECTAPE NAMES 77 ZBLOCK 6> 78 79 80 81 AASDVHND=766 /DEPENDS ON PS8 ASSEMBLY 82 *AASDVHND 83 84 /SYSTEM HANDLER TABLE 85 /CONTENTS: 86 /BIT 0 - ON IF THE HANDLER IS A TWO-PAGE HANDLER 87 /BITS 1-4 - OFFSET FROM "DVHORG-1" OF RECORD CONTAINING HANDLER 88 /BITS 5-11 - ENTRY POINT OF HANDLER RELATIVE TO LOADING ADDRESS 89 90 91 /EACH DEVICE HANDLER HAS AN ENTRY IN SDVHND. THE EQUATION 92 /USED IN EACH ENTRY IS: OFFSET *200+ENTRY POINT-ASSEMBLY POINT 93 /THE OFFSET IS BITS 1-4. 94 /FOR A TWO PAGE HANDLER, ADD 4000. 95 96 010766 0000 SDVHND, 0 /SYSTEM HANDLER HAD BETTER BE RESIDENT 97 /OR PAGE 17600 IS PROBABLY BLOWN 98 IFNZRO TD8ESYS <0> /BOTH SYS,DSK RESIDENT 99 IFZERO TD8ESYS < 100 IFZERO LINCSYS+DECTAPE-2 <5^200+DTA1-5000 101 /FOR MULTIPLE DECTAPE SYSTEMS,DTA1=DSK> 102 010767 0000 IFNZRO LINCSYS+DECTAPE-2 <0 /OTHERS,DSK=SYS> 103 > 104 105 010770 0401 2^200+TTY-7000 106 010771 1000 4^200+LPT-6200 107 010772 1210 5^200+DTA0-5000 108 010773 1211 5^200+DTA1-5000 109 010774 1212 5^200+DTA2-5000 110 010775 1213 5^200+DTA3-5000 111 010776 1214 5^200+DTA4-5000 112 010777 1215 5^200+DTA5-5000 113 011000 1216 5^200+DTA6-5000 114 011001 1217 5^200+DTA7-5000 115 116 011002 0200 1^200+PTP-6400 117 011003 0312 1^200+PTR-6400 118 011004 4600 3^200+CDR-5600+4000 /TWO PAGE HANDLER 119 IFNZRO TD8ESYS <*772 120 ZBLOCK 10> /WIPE OUT TRACES OF DECTAPE 121 122 123 IFNZRO TD8E <*772 124 5^200+DTA0-5000+4000 /2 PAGE HANDLER 125 5^200+DTA1-5000+4000 126 > 127 128 129 130 IFNZRO TD8ESYS 131 IFNZRO DECTAPE 132 IFNZRO LINCSYS 133 IFNZRO RF08 134 IFNZRO RK8 135 IFNZRO DF32 136 IFNZRO TD8E 137 IFZERO TD8E 138 FIELD 0 139 /NOTE:RBFLAG MUST BE AT LOC. 20 OF MAIN ASSEMBLY!!!! 140 IFNZRO DIRECT <*20; 1 /DON'T REWRITE DIRECTORY OR ABSLDR> 141 142 143 144 /DEVICE CONTROL BLOCK TABLE - ONE WORD PER DEVICE 145 /BIT 0 - 1 IF FILE STRUCTURED DEVICE 146 /BIT 1 - 1 IF READ ONLY DEVICE 147 /BIT 2 - 1 IF WRITE ONLY DEVICE 148 /BITS 3-8 - THE DEVICE TYPE 149 /0 TELETYPE 150 /1 HIGH SPEED READER 151 /2 HIGH SPEED PUNCH 152 /3 CARD READER (CR8/I) 153 /4 LINE PRINTER 154 /5 RK8 DISK 155 /6 RF08 DISK(ONE PLATTER) 156 /7 RF08 DISK(TWO PLATTERS) 157 /10 RF08 DISK(THREE PLATTERS) 158 /11 RF08 DISK(FOUR PLATTERS) 159 /12 DF32 DISK(ONE PLATTER) 160 /13 DF32 DISK(TWO PLATTERS) 161 /14 DF32 DISK(THREE PLATTERS) 162 /15 DF32 DISK(FOUR PLATTERS) 163 /16 DECTAPE 164 /17 LINCTAPE(PDP12 ONLY - FORMATTED 128 WDS/BLOCK) 165 /20 IBM-COMPATIBLE MAGNETIC TAPE(TYPE 57A) 166 /21 TD8E DECTAPE 167 /22-77 TO BE ASSIGNED 168 /BITS 9-11 - FLAG FOR WHETHER AN OUTPUT FILE IS CURRENTLY OPEN 169 170 *7560 171 007560 4160 DCB, SYSD;SYSD;0;1040;DTADCB;DTADCB;DTADCB;DTADCB 007561 4160 007562 0000 007563 1040 007564 4160 007565 4160 007566 4160 007567 4160 172 007570 4160 DTADCB;DTADCB;DTADCB;DTADCB;1020;2010;2030 007571 4160 007572 4160 007573 4160 007574 1020 007575 2010 007576 2030 173 174 175 /THIS HORRENDOUS CODE INSERTS THE RK8 HANDLERS. 176 177 IFNZRO RK01 < 178 179 IFZERO RK01-1 < 180 *7573 181 4050 182 FIELD 1 183 *1001 184 6^200+RKA0-4600 185 *577 186 6373 /RKA0 187 > 188 189 IFZERO RK01-2 < 190 *7572 191 4050 192 4050 /RK8 DEVICE TYPE 193 FIELD 1 194 *1000 195 6^200+RKA1-4600 196 6^200+RKA0-4600 197 *576 198 6374 199 6373 /RKA0 AND RKA1 200 > 201 202 IFZERO RK01-3 < 203 *7571 204 4050 205 4050 206 4050 207 FIELD 1 208 *777 209 6^200+RKA2-4600 210 6^200+RKA1-4600 211 6^200+RKA0-4600 212 *575 213 6375 214 6374 215 6373 /RKA0,RKA1, AND RKA2 216 > 217 218 IFZERO RK01-4 < 219 *7570 220 4050 221 4050 222 4050 223 4050 224 FIELD 1 225 *776 226 6^200+RKA3-4600 227 6^200+RKA2-4600 228 6^200+RKA1-4600 229 6^200+RKA0-4600 230 *574 231 6376 232 6375 233 6374 234 6373 /RKA0,RKA1,RKA2,RKA3 235 >> 236 237 FIELD 0 238 239 IFNZRO TD8E <*7453;0;0;> /DTA0,1 NONRES. 240 IFNZRO TD8ESYS < 241 *7447 242 7607 /SYS ENTRY AT 7607 243 IFZERO TD8ESYS-2 <*7450;SDTA1> 244 *7453 245 7607 /MAKE DTA0 AND DTA1 RESIDENT 246 SDTA1 247 248 > 249 *6777 /THIS IS SETUP FOR CD AT BUILD TIME 250 006777 0000 0 251 IFNZRO TD8ESYS <*6777;66> 252 IFNZRO ROM <*6777;0> 253 IFNZRO RK8 > 254 IFZERO DECTAPE+LINCSYS-2 <*7450;0 /USE TAPE 1 AS DSK> 255 007453 7607 IFNZRO DECTAPE+LINCSYS <*7453;7607 /DTA0 IS RESIDENT> 256 257 258 259 /THE MAJOR FUNCTION OF CONFIG FOLLOWS: WRITE THE DEVICE 260 /HANDLER RECORDS.NOTE THAT LOC. 0 CONTAINS 7607, OR THE SYSTEM 261 /DEVICE HANDLER ENTRY POINT. 262 /SYSTEM GENERATION STARTS AT LOC. 4000 AND CONTINUES THROUGH 263 /THIS CODE. 264 265 *4200 266 004200 0000 WRDEVH, 0 /SUBR TO WRITE OUT DEVICE HANDLER RECORDS 267 WRITE=JMS I 0 268 DVHORG=16 269 004201 4400 WRITE; 4301; 5600;DVHORG+2; JMP BERR /CDR AND LPT HANDLERS 004202 4301 004203 5600 004204 0020 004205 5226 270 004206 4400 WRITE; 4100; 7000;DVHORG+1; JMP BERR /TTY HANDLER 004207 4100 004210 7000 004211 0017 004212 5226 271 004213 4400 WRITE; 4200; 5000;DVHORG+4; JMP BERR /DTA HANDLERS 004214 4200 004215 5000 004216 0022 004217 5226 272 004220 4400 WRITE; 4100; 6400;DVHORG+0; JMP BERR /PTR & PTP HANDLERS 004221 4100 004222 6400 004223 0016 004224 5226 273 274 IFZERO ROM < 275 IFNZRO TD8ESYS < 276 WRITE /WRITE OUT TD8E BOOTSTRAP 277 4120 278 7400 /WE PUT IT IN 47200 279 0 280 JMP BERR 281 282 WRITE;4221;7400;66;JMP BERR /FIELD 1&2 RES. 283 WRITE;4100;7400;66;JMP BERR 284 >> 285 286 IFNZRO RK01 < 287 WRITE /WRITE OUT RK8 HANDLERS 288 4100 289 4600 290 DVHORG+5 291 JMP BERR 292 > 293 294 004225 2200 ISZ WRDEVH 295 004226 5600 BERR, JMP I WRDEVH 296 297 298 299 300 441 IFZERO RK01+LIST 442 *5600 443 444 445 446 447 448 RCSF=6631 449 RCRA=6632 450 RCSP=6671 451 RCSE=6672 452 453 005600 0000 CDR, 0 454 005601 7700 CDR770, 7700 455 005602 0000 CDRTMP, 0 456 005603 5337 JMP CDRSET 457 005604 1273 TAD CDRCIF 458 005605 3264 DCA CDRXIT 459 005606 1225 TAD CDRCCF-1 460 005607 3263 DCA CDRXIT-1 461 005610 1600 TAD I CDR 462 005611 0257 AND CDR070 463 005612 1226 TAD CDRCCF 464 005613 3272 DCA CDRTM2 465 005614 1600 TAD I CDR 466 005615 2200 ISZ CDR 467 005616 7510 SPA 468 005617 5266 JMP CDRERR 469 005620 0201 AND CDR770 470 005621 7041 CIA 471 005622 3271 DCA CDRWC 472 005623 1600 TAD I CDR 473 005624 3270 DCA CDRCA 474 005625 2200 ISZ CDR 475 005626 6201 CDRCCF, CDF 476 005627 3674 DCA I CDRIN2 477 005630 1272 TAD CDRTM2 478 005631 3675 DCA I CDRIN3 479 005632 4676 CDRLP, JMS I CDRIN4 480 005633 3670 DCA I CDRCA 481 005634 4676 JMS I CDRIN4 482 005635 3202 DCA CDRTMP 483 005636 4676 JMS I CDRIN4 484 005637 7006 RTL 485 005640 7006 RTL 486 005641 3272 DCA CDRTM2 487 005642 1272 TAD CDRTM2 488 005643 0247 AND CDR740 489 005644 1670 TAD I CDRCA 490 005645 3670 DCA I CDRCA 491 005646 2270 ISZ CDRCA 492 005647 7400 CDR740, 7400 493 005650 1272 TAD CDRTM2 494 005651 7006 RTL 495 005652 7006 RTL 496 005653 0247 AND CDR7400 497 005654 1202 TAD CDRTMP 498 005655 3670 DCA I CDRCA 499 005656 2270 ISZ CDRCA 500 005657 0070 CDR070, 70 501 005660 2271 ISZ CDRWC 502 005661 5232 JMP CDRLP 503 005662 2200 ISZ CDR 504 005663 2200 ISZ CDR 505 005664 7402 CDRXIT, HLT 506 005665 5600 JMP I CDR 507 508 005666 7330 CDRERR, CLL CLA CML RAR 509 005667 5262 JMP CDRXIT-2 510 511 005670 0000 CDRCA, 0 512 005671 0000 CDRWC, 0 513 005672 0000 CDRTM2, 0 514 005673 6203 CDRCIF, CIF CDF 0 515 516 005674 0045 CDRIN2, CDRJMP-CDRLOC 517 005675 0102 CDRIN3, CDRCDF-CDRLOC 518 005676 0043 CDRIN4, CDRGCH-CDRLOC 519 520 005677 0021 CDRTBL, 0021;2223;2425;2627;3031;3203;4007;3502 005700 2223 005701 2425 005702 2627 005703 3031 005704 3203 005705 4007 005706 3502 521 005707 2017 2017;6364;6566;6770;7172;7514;0577;3637 005710 6364 005711 6566 005712 6770 005713 7172 005714 7514 005715 0577 005716 3637 522 005717 1552 1552;5354;5556;5760;6162;0104;1211;3374 005720 5354 005721 5556 005722 5760 005723 6162 005724 0104 005725 1211 005726 3374 523 005727 0641 0641;4243;4445;4647;5051;7316;3410;1376 005730 4243 005731 4445 005732 4647 005733 5051 005734 7316 005735 3410 005736 1376 524 525 526 527 CDRBUF=. 528 529 005737 6214 CDRSET, RDF 530 005740 1226 TAD CDRCCF 531 005741 3357 DCA CDRSE1 532 005742 6201 CDF 533 005743 4343 JMS . 534 005744 1363 CDRLOC, TAD CDRSE2 535 005745 1343 TAD CDRLOC-1 536 005746 3361 DCA CDRSE3 537 005747 1761 TAD I CDRSE3 538 005750 1343 TAD CDRLOC-1 539 005751 3761 DCA I CDRSE3 540 005752 2344 ISZ CDRLOC 541 005753 2362 ISZ CDRSE4 542 005754 5344 JMP CDRLOC 543 005755 1337 TAD CDRSET 544 005756 3203 DCA CDR+3 545 005757 7402 CDRSE1, HLT 546 005760 5203 JMP CDR+3 547 548 005761 0000 CDRSE3, 0 549 005762 7772 CDRSE4, -6 550 551 005763 7730 CDRSE2, CDRIN2-CDRLOC 552 005764 7731 CDRIN3-CDRLOC 553 005765 7732 CDRIN4-CDRLOC 554 005766 0232 CDRIN5-CDRLOC 555 005767 0230 CDRABF-CDRLOC 556 005770 0231 CDRTAD-CDRLOC 557 *CDRBUF+50 558 559 006007 0000 CDRGCH, 0 560 006010 6201 CDF 561 006011 0000 CDRJMP, 0 562 006012 2361 ISZ CDRCNT 563 006013 5303 JMP CDRGET 564 006014 2362 CDRGE4, ISZ CDRCT2 565 006015 5347 JMP CDRCLF 566 006016 7346 CLL CLA CMA RTL 567 006017 3362 DCA CDRCT2 568 006020 1374 TAD CDRABF 569 006021 3363 DCA CDRPT 570 006022 6031 CDRGE0, KSF 571 006023 5250 JMP CDRGE7 572 006024 6034 KRS 573 006025 0371 AND CDR177 574 006026 1357 TAD CDRM03 575 006027 7450 SNA 576 006030 5756 JMP I CDR760 577 006031 1360 TAD CDRM27 578 006032 7640 SZA CLA 579 006033 5250 JMP CDRGE7 580 006034 6032 KCC 581 006035 7240 CDRGEZ, CLA CMA 582 006036 3361 DCA CDRCNT 583 006037 7240 CLA CMA 584 006040 3362 DCA CDRCT2 585 006041 1307 TAD CDRMOD 586 006042 3211 DCA CDRJMP 587 006043 1275 TAD CDROPR 588 006044 3776 DCA I CDRIN5 589 006045 1370 TAD CDR232 590 006046 7402 CDRCDF, HLT 591 006047 5607 JMP I CDRGCH 592 593 006050 6672 CDRGE7, RCSE 594 006051 5222 JMP CDRGE0 595 006052 3364 DCA CDRSW 596 006053 6671 CDRGE1, RCSP 597 006054 5324 JMP CDRGE2 598 006055 1763 CDRGE3, TAD I CDRPT 599 006056 7440 SZA 600 006057 5267 JMP CDRGE5 601 006060 7240 CLA CMA 602 006061 1363 TAD CDRPT 603 006062 3363 DCA CDRPT 604 006063 2361 ISZ CDRCNT 605 006064 2361 ISZ CDRCNT 606 006065 5255 JMP CDRGE3 607 006066 5214 JMP CDRGE4 608 609 006067 0372 CDRGE5, AND CDR077 610 006070 7650 SNA CLA 611 006071 2361 ISZ CDRCNT 612 006072 1763 TAD I CDRPT 613 006073 1373 TAD CDRM77 614 006074 7650 SNA CLA 615 006075 7301 CDROPR, CLL CLA IAC 616 006076 1361 TAD CDRCNT 617 006077 7650 SNA CLA 618 006100 5235 JMP CDRGEZ 619 006101 1372 CDRGE6, TAD CDR077 620 006102 3364 DCA CDRSW 621 006103 2364 CDRGET, ISZ CDRSW 622 006104 1364 TAD CDRSW 623 006105 4310 JMS CDRGE8 624 006106 1366 TAD CDR240 625 006107 5246 CDRMOD, JMP CDRCDF 626 627 006110 0000 CDRGE8, 0 628 006111 7110 CLL RAR 629 006112 1375 TAD CDRTAD 630 006113 3365 DCA CDRTM3 631 006114 1765 TAD I CDRTM3 632 006115 7430 SZL 633 006116 5322 JMP .+4 634 006117 7012 RTR 635 006120 7012 RTR 636 006121 7012 RTR 637 006122 0372 AND CDR077 638 006123 5710 JMP I CDRGE8 639 640 006124 6631 CDRGE2, RCSF 641 006125 5253 JMP CDRGE1 642 006126 7240 CLA CMA 643 006127 1361 TAD CDRCNT 644 006130 3361 DCA CDRCNT 645 006131 6632 RCRA 646 006132 4310 JMS CDRGE8 647 006133 2364 ISZ CDRSW 648 006134 5340 JMP CDRGE9 649 006135 1763 TAD I CDRPT 650 006136 3763 DCA I CDRPT 651 006137 5253 JMP CDRGE1 652 653 006140 7106 CDRGE9, CLL RTL 654 006141 7006 RTL 655 006142 7006 RTL 656 006143 2363 ISZ CDRPT 657 006144 3763 DCA I CDRPT 658 006145 7240 CLA CMA 659 006146 5252 JMP CDRGE1-1 660 661 006147 7240 CDRCLF, CLA CMA 662 006150 3361 DCA CDRCNT 663 006151 1362 TAD CDRCT2 664 006152 7146 CLL CMA RTL 665 006153 1362 TAD CDRCT2 666 006154 1367 TAD CDR213 667 006155 5246 JMP CDRCDF 668 669 006156 7600 CDR760, 7600 670 006157 7775 CDRM03, -3 671 006160 7751 CDRM27, -27 672 006161 7777 CDRCNT, -1 673 006162 7777 CDRCT2, -1 674 006163 0000 CDRPT, 0 675 006164 0000 CDRSW, 0 676 006165 0000 CDRTM3, 0 677 006166 0240 CDR240, 240 678 006167 0213 CDR213, 213 679 006170 0232 CDR232, 232 680 006171 0177 CDR177, 177 681 006172 0077 CDR077, 77 682 006173 0100 CDRM77, -7700 683 684 006174 7772 CDRABF, CDRBUF-1-CDRLOC 685 006175 7733 CDRTAD, CDRTBL-CDRLOC 686 006176 7717 CDRIN5, CDRXIT-1-CDRLOC 828 IFNZRO LP08 > 829 IFZERO LP08+LIST 830 IFNZRO LP08 < 831 *6200 832 833 834 835 836 837 838 LSF=6661 839 LSR=6663 840 LLS=6666 841 842 006200 0000 LPT, 0 843 006201 7330 CLL CML CLA RAR 844 006202 1600 TAD I LPT 845 006203 0215 LPT215, AND LP7700 846 006204 7040 CMA 847 006205 3262 DCA LPTWC 848 006206 6214 LPT214, RDF 849 006207 1322 TAD LPTCIF 850 006210 3260 DCA LPTXIT 851 006211 1600 TAD I LPT 852 006212 0362 AND LPT70 853 006213 1367 TAD LPCDF0 854 006214 3223 DCA LPTCDF 855 856 006215 7700 LP7700, 7700 857 006216 2200 ISZ LPT 858 006217 1600 TAD I LPT 859 006220 3263 DCA LPTCA 860 006221 2200 ISZ LPT 861 006222 1600 TAD I LPT 862 006223 7402 LPTCDF, HLT 863 006224 2200 ISZ LPT 864 006225 7420 SNL 865 006226 5330 JMP LPTERR 866 006227 7650 SNA CLA 867 006230 1206 TAD LPT214 868 006231 5253 JMP LPTKLG 869 870 871 872 873 006232 1663 LPTLP, TAD I LPTCA 874 006233 4264 JMS LPTPCH 875 006234 1663 TAD I LPTCA 876 006235 0240 AND LP7400 877 006236 3223 DCA LPTCDF 878 006237 2263 ISZ LPTCA 879 006240 7400 LP7400, 7400 880 006241 1663 TAD I LPTCA 881 006242 4264 JMS LPTPCH 882 006243 1663 TAD I LPTCA 883 006244 0240 AND LP7400 884 006245 7112 CLL RTR 885 006246 7012 LPTLF, RTR 886 006247 1223 TAD LPTCDF 887 006250 7012 RTR 888 006251 7012 RTR 889 006252 2263 ISZ LPTCA 890 006253 4264 LPTKLG, JMS LPTPCH 891 006254 0177 LPT177, 177 892 006255 2262 ISZ LPTWC 893 006256 5232 JMP LPTLP 894 006257 2200 LPRTRN, ISZ LPT 895 006260 7402 LPTXIT, HLT 896 006261 5600 JMP I LPT 897 006262 0000 LPTWC, 0 898 006263 0000 LPTCA, 0 899 006264 0000 LPTPCH, 0 900 006265 0254 AND LPT177 901 006266 7041 CIA 902 006267 7120 CLL CML 903 006270 1365 TAD LPT175 904 006271 7470 SZL SNA 905 006272 5361 JMP LPFLSH 906 006273 1366 TAD LPM143 907 006274 7450 SNA 908 006275 5306 JMP LPTCTZ 909 006276 1364 TAD LPTM15 910 006277 7160 CLL CML CMA 911 006300 1354 TAD LPT7 912 006301 7460 SNL SZA 913 006302 5343 JMP LPTCTL 914 006303 1354 TAD LPT7 915 006304 4311 JMS LPWAIT 916 006305 5353 LPTJMP, JMP LPJTAB-2 917 006306 1206 LPTCTZ, TAD LPT214 918 006307 4264 JMS LPTPCH 919 006310 5257 JMP LPRTRN 920 921 006311 0000 LPWAIT, 0 922 006312 6666 LLS 923 006313 7600 LP7600, 7600 924 006314 1313 TAD LP7600 925 006315 6034 KRS 926 006316 1365 TAD LPT175 927 006317 7650 SNA CLA 928 006320 6031 KSF 929 006321 5324 JMP .+3 930 006322 6203 LPTCIF, CDF CIF 0 931 006323 5713 JMP I LP7600 932 006324 6661 LSF 933 006325 5313 JMP LP7600 934 006326 6663 LSR 935 006327 5332 JMP LPWISZ 936 006330 7330 LPTERR, CLA CLL CML RAR 937 006331 5260 JMP LPTXIT 938 006332 2370 LPWISZ, ISZ LPLPTR 939 006333 5711 JMP I LPWAIT 940 006334 7344 LPLF, CLA CLL CMA RAL 941 006335 1206 LPTFF, TAD LPT214 942 006336 3370 DCA LPLPTR 943 006337 1370 TAD LPLPTR 944 006340 4311 JMS LPWAIT 945 006341 1361 TAD LPM120 946 006342 3370 DCA LPLPTR 947 006343 1305 LPTCTL, TAD LPTJMP 948 006344 3345 DCA .+1 949 006345 7402 LPTXXX, HLT 950 006346 1376 LPTTAB, TAD LPM140 951 006347 4311 JMS LPWAIT 952 006350 1370 TAD LPLPTR 953 006351 0354 AND LPT7 954 006352 7650 SNA CLA 955 006353 5664 JMP I LPTPCH 956 006354 0007 LPT7, 7 957 006355 5346 LPJTAB, JMP LPTTAB 958 006356 5334 JMP LPLF 959 006357 5371 JMP LPTVTB 960 006360 5335 JMP LPTFF 961 LPFLSH, 962 006361 7660 LPM120, -120 963 006362 0070 LPT70, 70 964 006363 5664 JMP I LPTPCH 965 006364 7763 LPTM15, -15 966 006365 0175 LPT175, 175 967 006366 7635 LPM143, -143 968 006367 6201 LPCDF0, CDF 0 969 006370 0000 LPLPTR, 0 970 006371 1364 LPTVTB, TAD LPTM15 971 006372 3370 DCA LPLPTR 972 006373 1246 TAD LPTLF 973 006374 4311 JMS LPWAIT 974 006375 5373 JMP .-2 975 006376 7640 LPM140, -140 976 > 977 IFZERO LP08+LIST 978 979 *7000 980 981 982 983 984 985 007000 0360 TTY360, 360 986 007001 0000 TTY, 0 987 007002 7600 TT7600, 7600 988 007003 6214 RDF 989 007004 1305 TAD TTYCIF 990 007005 3262 DCA TTYXIT 991 007006 1601 TAD I TTY 992 007007 0253 AND TT70 993 007010 1316 TAD TTCDF 994 007011 3275 DCA TTYCDF 995 007012 7330 CLA CLL CML RAR 996 007013 1601 TAD I TTY 997 007014 0377 AND TT3700 998 007015 7040 CMA 999 007016 3315 DCA TTYWC 1000 007017 2201 ISZ TTY 1001 007020 1601 TAD I TTY 1002 007021 3314 DCA TTYCA 1003 007022 2201 ISZ TTY 1004 007023 2201 ISZ TTY 1005 007024 5254 JMP TTKLG 1006 007025 7620 TTYLP, SNL CLA 1007 007026 5317 JMP TTYGLP 1008 007027 4274 JMS TTYTST 1009 007030 1373 TAD TTYM14 1010 007031 7650 SNA CLA 1011 007032 5375 JMP TTYCTO 1012 007033 1714 TAD I TTYCA 1013 007034 4265 JMS TTYPCH 1014 007035 0240 AND TT7400 1015 007036 3343 DCA TTYGCH 1016 007037 2314 ISZ TTYCA 1017 007040 7400 TT7400, 7400 1018 007041 1714 TAD I TTYCA 1019 007042 4265 JMS TTYPCH 1020 007043 0240 AND TT7400 1021 007044 7112 CLL RTR 1022 007045 7012 RTR 1023 007046 1343 TAD TTYGCH 1024 007047 7012 RTR 1025 007050 7012 RTR 1026 007051 4265 JMS TTYPCH 1027 1028 007052 2314 TTLOOP, ISZ TTYCA 1029 007053 0070 TT70, 70 1030 007054 2315 TTKLG, ISZ TTYWC 1031 007055 5225 JMP TTYLP 1032 007056 1275 TTYRTN, TAD TTYCDF 1033 007057 7141 CLL CIA 1034 007060 7620 SNL CLA 1035 007061 2201 ISZ TTY 1036 007062 7402 TTYXIT, HLT 1037 007063 7004 RAL 1038 007064 5601 JMP I TTY 1039 007065 0000 TTYPCH, 0 1040 007066 1374 TAD TTM232 1041 007067 7450 SNA 1042 007070 5256 JMP TTYRTN 1043 007071 1366 TAD TTY232 1044 007072 4307 JMS TTPRNT 1045 007073 5665 JMP I TTYPCH 1046 007074 0000 TTYTST, 0 1047 007075 0000 TTYCDF, 0 1048 007076 1334 TAD TTY200 1049 007077 6034 KRS 1050 007100 1371 TAD TTM203 1051 007101 6031 KSF 1052 007102 7201 CLA IAC 1053 007103 7440 SZA 1054 007104 5674 JMP I TTYTST 1055 007105 6203 TTYCIF, CDF CIF 0 1056 007106 5602 JMP I TT7600 1057 007107 0000 TTPRNT, 0 1058 007110 6046 TLS 1059 007111 6041 TSF 1060 007112 5311 JMP .-1 1061 007113 5707 JMP I TTPRNT 1062 007114 0000 TTYCA, 0 1063 007115 0000 TTYWC, 0 1064 007116 6201 TTCDF, CDF 0 1065 1066 1067 007117 4343 TTYGLP, JMS TTYGCH 1068 007120 3714 DCA I TTYCA 1069 007121 4343 JMS TTYGCH 1070 007122 3265 DCA TTYPCH 1071 007123 4343 JMS TTYGCH 1072 007124 7006 RTL 1073 007125 7006 RTL 1074 007126 3343 DCA TTYGCH 1075 007127 1343 TAD TTYGCH 1076 007130 0240 AND TT7400 1077 007131 1714 TAD I TTYCA 1078 007132 3714 DCA I TTYCA 1079 007133 1343 TAD TTYGCH 1080 007134 0200 TTY200, AND TTY360 1081 007135 7106 CLL RTL 1082 007136 7006 RTL 1083 007137 1265 TAD TTYPCH 1084 007140 2314 ISZ TTYCA 1085 007141 3714 DCA I TTYCA 1086 007142 5252 JMP TTLOOP 1087 007143 0000 TTYGCH, 0 1088 007144 1275 TAD TTYCDF 1089 007145 7700 TT7700, SMA CLA 1090 007146 5743 JMP I TTYGCH 1091 007147 2274 ISZ TTYTST 1092 007150 5353 JMP TTYKSF 1093 007151 1367 TAD TTY212 1094 007152 5364 JMP TTECHO 1095 007153 6031 TTYKSF, KSF 1096 007154 5353 JMP .-1 1097 007155 4274 JMS TTYTST 1098 007156 1372 TAD TTM27 1099 007157 7450 SNA 1100 007160 3275 DCA TTYCDF 1101 007161 1370 TAD TTY14 1102 007162 3274 DCA TTYTST 1103 007163 6036 KRB 1104 007164 4307 TTECHO, JMS TTPRNT 1105 007165 5743 JMP I TTYGCH 1106 007166 0232 TTY232, 232 1107 007167 0212 TTY212, 212 1108 007170 0014 TTY14, 14 1109 007171 7575 TTM203, -203 1110 007172 7751 TTM27, -27 1111 007173 7764 TTYM14, -14 1112 007174 7546 TTM232, -232 1113 007175 6032 TTYCTO, 6032 1114 007176 5256 JMP TTYRTN 1115 007177 3700 TT3700, 3700 1116 IFNZRO LINCTAPE+TD8E+TD8ESYS > 1117 IFZERO LINCTAPE+TD8E < 1118 *5000 1119 1120 005000 0000 DFUN, 0 1121 005001 7575 DM203, -203 1122 005002 0000 DBLOCK, 0 1123 005003 0000 DBLKCT, 0 1124 005004 0003 D3, 3 1125 005005 7754 WC, 7754 1126 005006 7755 CA, 7755 1127 005007 0000 DERRCT, 0 1128 005010 2235 DTA0, ISZ DTANO 1129 005011 2235 DTA1, ISZ DTANO 1130 005012 2235 DTA2, ISZ DTANO 1131 005013 2235 DTA3, ISZ DTANO 1132 005014 2235 DTA4, ISZ DTANO 1133 005015 2235 DTA5, ISZ DTANO 1134 005016 2235 DTA6, ISZ DTANO 1135 005017 2235 DTA7, ISZ DTANO 1136 005020 0400 D400, 400 1137 005021 7346 CLA CLL CMA RTL 1138 005022 3207 DCA DERRCT 1139 005023 1235 TAD DTANO 1140 005024 7040 CMA 1141 005025 1277 TAD DTATAD 1142 005026 3235 DCA DTANO 1143 005027 7332 CLA CLL CML RTR 1144 005030 1235 TAD DTANO 1145 005031 3240 DCA DTADCA 1146 005032 6214 RDF 1147 005033 1256 TAD DCDIF0 1148 005034 3371 DCA DSTOP 1149 005035 0000 DTANO, 0 1150 005036 3377 DCA DTA 1151 005037 1241 TAD DTAISZ 1152 005040 0000 DTADCA, 0 1153 DLOC=DTADCA 1154 005041 2235 DTAISZ, ISZ DTANO 1155 1156 005042 1777 TAD I DTA 1157 005043 3200 DCA DFUN 1158 005044 2377 ISZ DTA 1159 005045 7140 DT7140, CLL CMA 1160 005046 1777 TAD I DTA 1161 005047 3240 DCA DLOC 1162 005050 2377 ISZ DTA 1163 005051 1777 TAD I DTA 1164 005052 7104 CLL RAL 1165 005053 3202 DCA DBLOCK 1166 005054 2377 ISZ DTA 1167 005055 1205 DTATRY, TAD WC 1168 005056 6203 DCDIF0, CDF CIF 0 1169 005057 3606 DCA I CA 1170 005060 1200 TAD DFUN 1171 005061 7010 RAR 1172 005062 7220 CLA CML 1173 005063 1235 TAD DTANO 1174 005064 7012 RTR 1175 005065 7012 RTR 1176 1177 1178 005066 1245 TAD DT7140 1179 1180 1181 1182 1183 005067 6766 DTCA DTXA 1184 005070 6774 DTLB 1185 005071 5301 JMP DC+3 1186 005072 7006 DERR, RTL 1187 005073 7004 RAL 1188 005074 7600 D7600, 7600 1189 005075 1340 TAD D200 1190 005076 7430 DC, SZL 1191 005077 1220 DTATAD, TAD D400 1192 005100 6764 DTXA 1193 005101 1340 TAD D200 1194 005102 6034 KRS 1195 005103 1201 TAD DM203 1196 005104 7650 SNA CLA 1197 005105 6031 KSF 1198 005106 5312 JMP DTAWT 1199 005107 1274 TAD D7600 1200 005110 3377 DCA DTA 1201 005111 5372 JMP DSTOP+1 1202 005112 6773 DTAWT, DTSF DTRB 1203 005113 5312 JMP .-1 1204 005114 7510 SPA 1205 005115 5272 JMP DERR 1206 005116 6761 DTRA 1207 005117 7006 RTL 1208 005120 7046 CMA RTL 1209 005121 7620 SNL CLA 1210 005122 1204 TAD D3 1211 1212 005123 1605 TAD I WC 1213 005124 7040 CMA 1214 005125 1202 TAD DBLOCK 1215 005126 7040 CMA 1216 1217 1218 1219 1220 005127 7640 SZA CLA 1221 005130 5276 JMP DC 1222 005131 7420 SNL 1223 005132 5277 JMP DC+1 1224 005133 1240 TAD DLOC 1225 005134 3606 DCA I CA 1226 005135 1200 TAD DFUN 1227 005136 6774 DTLB 1228 005137 1355 TAD D7700 1229 005140 0200 D200, AND DFUN 1230 005141 7104 CLL RAL 1231 005142 3203 DCA DBLKCT 1232 005143 7004 RAL 1233 005144 7001 IAC 1234 005145 7126 CLL CML RTL 1235 005146 7006 RTL 1236 005147 6764 DL, DTXA 1237 005150 1274 TAD D7600 1238 005151 3605 DCA I WC 1239 005152 6773 DTSF DTRB 1240 005153 5352 JMP .-1 1241 005154 7120 CLL CML 1242 005155 7700 D7700, SMA CLA 1243 005156 5362 JMP .+4 1244 005157 2207 ISZ DERRCT 1245 005160 5255 JMP DTATRY 1246 005161 5371 JMP DSTOP 1247 005162 1203 TAD DBLKCT 1248 005163 1274 TAD D7600 1249 005164 7450 SNA 1250 1251 005165 5370 JMP DOVER 1252 005166 3203 DCA DBLKCT 1253 005167 5347 JMP DL 1254 005170 2377 DOVER, ISZ DTA 1255 005171 7402 DSTOP, HLT 1256 005172 1340 TAD D200 1257 005173 6764 DTXA 1258 005174 3235 DCA DTANO 1259 005175 7010 RAR 1260 005176 5777 JMP I DTA 1261 005177 0000 DTA, 0 1262 > 1263 IFNZRO LINCTAPE+TD8E+TD8ESYS > 1264 1265 1266 1267 1268 1269 1270 1578 IFZERO TD8E+LIST 1728 IFZERO LINCTAPE+LIST 1729 *6400 1730 1731 1732 1733 1734 IFNZRO NOHSPT > 1735 IFZERO NOHSPT < 1736 006400 0000 PTP, 0 1737 006401 7320 CLA CLL CML 1738 006402 4234 JMS PSETUP 1739 006403 1711 PTPLP, TAD I PTPCA 1740 006404 4303 JMS PTPPCH 1741 006405 3312 DCA PTR 1742 006406 2311 ISZ PTPCA 1743 006407 7700 PT7700, 7700 1744 006410 1711 TAD I PTPCA 1745 006411 4303 JMS PTPPCH 1746 006412 7112 CLL RTR 1747 006413 7012 RTR 1748 006414 1312 TAD PTR 1749 006415 7012 RTR 1750 006416 7012 RTR 1751 006417 4303 JMS PTPPCH 1752 006420 2311 PTPEND, ISZ PTPCA 1753 006421 0070 PT70, 70 1754 006422 6031 KSF 1755 006423 5273 JMP PTPISZ 1756 006424 6034 PTPKRS, KRS 1757 006425 0362 AND PTP177 1758 006426 1376 TAD PTPM3 1759 006427 7640 SZA CLA 1760 006430 5273 JMP PTPISZ 1761 006431 6203 PTPCIF, CDF CIF 0 1762 006432 5633 JMP I .+1 1763 006433 7600 7600 1764 006434 0000 PSETUP, 0 1765 006435 6214 RDF 1766 006436 1231 TAD PTPCIF 1767 006437 3301 DCA PTPXIT 1768 006440 1600 TAD I PTP 1769 006441 0221 AND PT70 1770 006442 1373 TAD PCDF 1771 006443 3260 DCA PTPCDF 1772 006444 7010 RAR 1773 006445 1600 TAD I PTP 1774 006446 2200 ISZ PTP 1775 006447 7510 SPA 1776 006450 5371 JMP PTPERR 1777 006451 0207 AND PT7700 1778 006452 7040 CMA 1779 006453 3375 DCA PTPWC 1780 006454 1600 TAD I PTP 1781 006455 2200 ISZ PTP 1782 006456 3311 DCA PTPCA 1783 006457 1600 TAD I PTP 1784 006460 0000 PTPCDF, 0 1785 PTPEOF=PTPCDF 1786 006461 7650 SNA CLA 1787 006462 7430 SZL 1788 006463 5224 JMP PTPKRS 1789 006464 1361 TAD PTP336 1790 006465 6046 TLS 1791 006466 6031 KSF 1792 006467 5266 JMP .-1 1793 006470 4343 JMS PTRGCH 1794 006471 6032 6032 1795 006472 5224 JMP PTPKRS 1796 006473 2375 PTPISZ, ISZ PTPWC 1797 006474 5634 JMP I PSETUP 1798 006475 1260 PTPRTN, TAD PTPEOF 1799 006476 7640 SZA CLA 1800 006477 2200 ISZ PTP 1801 006500 2200 ISZ PTP 1802 006501 7402 PTPXIT, HLT 1803 006502 5600 JMP I PTP 1804 006503 0000 PTPPCH, 0 1805 006504 6026 PLS 1806 006505 6021 PSF 1807 006506 5305 JMP .-1 1808 006507 0340 AND PT7400 1809 006510 5703 JMP I PTPPCH 1810 006511 0000 PTPCA, 0 1811 006512 0000 PTR, 0 1812 006513 7300 CLA CLL 1813 006514 1312 TAD PTR 1814 006515 3200 DCA PTP 1815 006516 4234 JMS PSETUP 1816 006517 4343 PTRLP, JMS PTRGCH 1817 006520 3711 DCA I PTPCA 1818 006521 4343 JMS PTRGCH 1819 006522 3303 DCA PTPPCH 1820 006523 4343 JMS PTRGCH 1821 006524 7006 RTL 1822 006525 7006 RTL 1823 006526 0340 AND PT7400 1824 006527 1711 TAD I PTPCA 1825 006530 3711 DCA I PTPCA 1826 006531 1312 TAD PTR 1827 006532 7012 RTR 1828 006533 7012 RTR 1829 006534 7010 RAR 1830 006535 0340 AND PT7400 1831 006536 1303 TAD PTPPCH 1832 006537 2311 ISZ PTPCA 1833 006540 7400 PT7400, 7400 1834 006541 3711 DCA I PTPCA 1835 006542 5220 JMP PTPEND 1836 006543 0000 PTRGCH, 0 1837 006544 1260 TAD PTPEOF 1838 006545 7650 SNA CLA 1839 006546 5354 JMP PTRBF0 1840 006547 6014 RFC 1841 006550 3260 DCA PTPEOF 1842 006551 2260 PTTIME, ISZ PTPEOF 1843 006552 5356 JMP PGCHLP 1844 006553 1360 TAD PTP232 1845 006554 3312 PTRBF0, DCA PTR 1846 006555 5366 JMP PTRXX 1847 006556 1374 PGCHLP, TAD PTPTMP 1848 006557 3312 DCA PTR 1849 006560 0232 PTP232, 232 1850 006561 0336 PTP336, 336 1851 006562 0177 PTP177, 177 1852 006563 6011 RSF 1853 006564 5351 JMP PTTIME 1854 006565 6012 RRB 1855 006566 3374 PTRXX, DCA PTPTMP 1856 006567 1312 TAD PTR 1857 006570 5743 JMP I PTRGCH 1858 006571 7330 PTPERR, CLA CLL CML RAR 1859 006572 5277 JMP PTPXIT-2 1860 006573 6201 PCDF, CDF 0 1861 006574 0000 PTPTMP, 0 1862 006575 0000 PTPWC, 0 1863 006576 7775 PTPM3, -3 1864 > 1865 IFNZRO NOHSPT > 1866 1867 1868 1996 IFZERO NOHSPT+LIST 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 *6607 2014 NOPUNCH 2015 *7607 2016 ENPUNCH 2096 IFZERO RF08+DF32+LIST 2097 IFZERO DECTAPE+LIST 2098 IFNZRO DECTAPE < 2099 007607 0000 SHNDLR, 0 2100 007610 7346 CLA CLL CMA RTL 2101 007611 3350 DCA SYSCNT 2102 007612 6214 RDF 2103 007613 1335 TAD SCIF 2104 007614 3333 DCA SFIELD 2105 007615 1607 TAD I SHNDLR 2106 007616 3351 DCA SFUN 2107 007617 2207 ISZ SHNDLR 2108 007620 7240 CLA CMA 2109 007621 1607 TAD I SHNDLR 2110 007622 3352 DCA SLOC 2111 007623 2207 ISZ SHNDLR 2112 007624 1340 STRY, TAD S410 2113 007625 6766 DTCA DTXA 2114 007626 6774 DTLB 2115 007627 7344 CLA CMA CLL RAL 2116 007630 3355 DCA SCA 2117 007631 1351 TAD SFUN 2118 007632 7012 RTR 2119 007633 7012 RTR 2120 007634 7006 SERR, RTL 2121 007635 7004 RAL 2122 2123 2124 007636 7600 S7600, 7600 2125 007637 1337 TAD S200 2126 007640 7430 SC, SZL 2127 007641 1336 TAD S400 2128 007642 6764 DTXA 2129 007643 6773 DTSF DTRB 2130 007644 5243 JMP .-1 2131 007645 7510 SPA 2132 007646 5234 JMP SERR 2133 007647 6761 DTRA 2134 007650 7006 RTL 2135 007651 7046 CMA RTL 2136 2137 007652 7620 SNL CLA 2138 007653 7026 CML RTL 2139 007654 1376 TAD SBLOCK 2140 2141 007655 7040 CMA 2142 007656 1607 TAD I SHNDLR 2143 007657 1607 TAD I SHNDLR 2144 007660 1347 TAD SOFSET 2145 007661 1347 TAD SOFSET 2146 007662 7040 CMA 2147 007663 7640 SZA CLA 2148 007664 5240 JMP SC 2149 007665 7420 SNL 2150 007666 5241 JMP SC+1 2151 2152 007667 1352 TAD SLOC 2153 007670 3355 DCA SCA 2154 007671 1351 TAD SFUN 2155 007672 6774 DTLB 2156 007673 1351 TAD SFUN 2157 007674 7104 CLL RAL 2158 007675 0236 AND S7600 2159 007676 3353 DCA SBLKCT 2160 007677 7004 RAL 2161 IFNZRO .-7700 2162 007700 7410 SKP 2163 007701 7402 HLT 2164 007702 7001 IAC 2165 007703 7126 CLL CML RTL 2166 007704 7006 RTL 2167 007705 6764 SL, DTXA 2168 007706 1236 TAD S7600 2169 007707 3354 DCA SWC 2170 007710 6773 DTSF DTRB 2171 007711 5310 JMP .-1 2172 007712 7120 CLL CML 2173 007713 7710 SPA CLA 2174 007714 5323 JMP SERR2 2175 007715 1353 TAD SBLKCT 2176 007716 1236 TAD S7600 2177 007717 7450 SNA 2178 007720 5326 JMP SOVER 2179 007721 3353 DCA SBLKCT 2180 007722 5305 JMP SL 2181 007723 2350 SERR2, ISZ SYSCNT 2182 007724 5224 JMP STRY 2183 007725 7410 SKP 2184 007726 2207 SOVER, ISZ SHNDLR 2185 007727 2207 ISZ SHNDLR 2186 007730 1337 TAD S200 2187 007731 6764 DTXA 2188 007732 7010 RAR 2189 007733 7402 SFIELD, HLT 2190 007734 5607 JMP I SHNDLR 2191 007735 6202 SCIF, CIF 0 2192 007736 0400 S400, 400 2193 007737 0200 S200, 200 2194 007740 0410 S410, 410 2195 SBLKCT=7753 2196 SYSCNT=7750 2197 SFUN=7751 2198 SLOC=7752 2199 SWC=7754 2200 SCA=7755 2201 > 2202 IFZERO DECTAPE+LIST 2317 IFZERO RK8+LIST 2419 IFZERO LINCSYS+LIST 2420 2470 IFZERO RF08+DF32+LIST 2471 IFZERO DECTAPE+LIST 2472 IFNZRO DECTAPE < 2473 *7400 2474 NOPUNCH 2475 *7600 2476 ENPUNCH 2477 007600 1236 TAD B600 2478 007601 6766 DTCA DTXA 2479 007602 6771 DTSF 2480 007603 5202 JMP .-1 2481 007604 3231 DCA BOOTX 2482 007605 3232 DCA BOOTX+1 2483 007606 1237 TAD B620 2484 007607 5224 JMP BOOT3 2485 007610 0000 ZBLOCK 7611-. 2486 007611 0137 BM7642, -7641 2487 007612 1355 BOOT1, TAD 7755 2488 007613 1211 TAD BM7642 2489 007614 7650 SNA CLA 2490 007615 5220 JMP BOOT2 2491 007616 7000 NOP 2492 007617 5212 JMP BOOT1 2493 007620 1235 BOOT2, TAD B10 2494 007621 6774 DTLB 2495 007622 6771 DTSF 2496 007623 5222 JMP .-1 2497 007624 6764 BOOT3, DTXA 2498 007625 6774 DTLB 2499 007626 1234 TAD B7577 2500 007627 3355 DCA 7755 2501 007630 3354 DCA 7754 2502 007631 6213 BOOTX, CDF CIF 10 2503 007632 5242 JMP 7642 2504 007633 5212 JMP BOOT1 2505 007634 7577 B7577, 7577 2506 007635 0010 B10, 10 2507 007636 0600 B600, 600 2508 007637 0620 B620, 620 2509 007640 0000 ZBLOCK 7642-. 007641 0000 2510 007642 3344 DCA 7744 2511 007643 6771 DTSF 2512 007644 5243 JMP .-1 2513 007645 6203 CDF CIF 0 2514 007646 5205 JMP 7605 2515 *7544 2516 NOPUNCH 2517 *7744 2518 ENPUNCH 2519 007744 5200 JMP 7600 2520 2521 2522 2523 2524 2525 2526 > 2527 IFZERO DECTAPE+LIST 2564 IFZERO RK8+LIST 2594 IFZERO LINCSYS+LIST 2595 2596 IFZERO ROM < 2929 IFZERO TD8ESYS+LIST 2930 2931 2967 IFZERO ROM+LIST 2968 IFNZRO ROM < 2969 RGO=7405 2970 F2SET=7552 2971 ROMFLD=70 2972 2973 *6607 2974 NOPUNC 2975 *7607 2976 ENPUNC 2977 2978 2979 SHNDLR, 0 2980 CLA CLL 2981 JMP SHND2 2982 S70, 70 2983 S6201, 6201 2984 SDTA1, 0 2985 CLA CLL CML 2986 TAD SDTA1 2987 DCA SHNDLR 2988 SHND2, RAR 2989 DCA SUNIT 2990 RDF 2991 TAD S6203 2992 DCA EFLD 2993 TAD I SHNDLR 2994 SDLD 2995 AND S70 2996 TAD S6201 2997 DCA TFLD 2998 TAD TFLD 2999 DCA TFLD2 3000 ISZ SHNDLR 3001 TAD I SHNDLR 3002 DCA BPTR 3003 ISZ SHNDLR 3004 TAD I SHNDLR 3005 CLL RAL 3006 DCA BLOCK 3007 ISZ SHNDLR 3008 CDF 0 3009 CIF ROMFLD 3010 JMP I XF2SET 3011 3012 GET, 0 3013 TFLD, HLT 3014 TAD I XPTR 3015 CIF ROMFLD 3016 JMP I GET 3017 3018 PUT, 0 3019 TFLD2, HLT 3020 DCA I XPTR 3021 CIF ROMFLD 3022 JMP I PUT 3023 ERROR, CLA CLL 3024 CIF ROMFLD 3025 ISZ TRYCNT 3026 JMP I XRGO 3027 S6203, CIF CDF 0 3028 JMP SEREX 3029 3030 XRGO, RGO 3031 XF2SET, F2SET 3032 3033 3034 3035 EQUTMP=7750 3036 BPTR=7751 3037 XPGCT=7752 3038 XPTR=7753 3039 XWCNT=7754 3040 WRQ=7724 3041 WRQUAD, 0 3042 CIF ROMFLD 3043 JMP WRQ 3044 CIFR, CIF ROMFLD 3045 JMP I WRQUAD 3046 3047 RDQUAD, 0 3048 SDSQ 3049 JMP .-1 3050 SDRD 3051 CIF ROMFLD 3052 JMP I RDQUAD 3053 3054 EQUFUN, 0 3055 CMA 3056 DCA EQUTMP 3057 TAD EQUTMP 3058 AND SCKSUM 3059 CIA 3060 CLL RAL 3061 TAD EQUTMP 3062 TAD SCKSUM 3063 DCA SCKSUM 3064 TAD EQUTMP 3065 CLL CMA 3066 CIF ROMFLD 3067 JMP I EQUFUN 3068 SEXIT, ISZ SHNDLR 3069 SEREX, TAD SUNIT 3070 SDLC 3071 CLA CML RAR 3072 EFLD, HLT 3073 JMP I SHNDLR 3074 3075 TRYCNT, 0 3076 SXUNIT, 0 3077 SXFUN, 0 3078 SCKSUM, 0 3079 BLOCK, 0 3080 SUNIT, 0 3081 3082 *7420 3083 NOPUNCH 3084 *7400 3085 ENPUNCH 3086 3087 3088 CDF 0 3089 TAD I ROM1 3090 CDF 10 3091 DCA I ROM2 3092 ISZ ROM1 3093 NOP 3094 ISZ ROM2 3095 NOP 3096 ISZ ROMCT 3097 JMP 7400 3098 CIF CDF 0 3099 SDLC 3100 JMP I .+1 3101 7605 3102 ROM1, 7427 3103 ROM2, 7647 3104 ROMCT, -130 3105 3106 > AASDNA 0564 AASDVH 0766 B10 7635 B600 7636 B620 7637 B7577 7634 BERR 4226 BM7642 7611 BOOT1 7612 BOOT2 7620 BOOT3 7624 BOOTX 7631 CA 5006 CDR 5600 CDR070 5657 CDR077 6172 CDR177 6171 CDR213 6167 CDR232 6170 CDR240 6166 CDR740 5647 CDR760 6156 CDR770 5601 CDRABF 6174 CDRBUF 5737 CDRCA 5670 CDRCCF 5626 CDRCDF 6046 CDRCIF 5673 CDRCLF 6147 CDRCNT 6161 CDRCT2 6162 CDRERR 5666 CDRGCH 6007 CDRGE0 6022 CDRGE1 6053 CDRGE2 6124 CDRGE3 6055 CDRGE4 6014 CDRGE5 6067 CDRGE6 6101 unreferenced CDRGE7 6050 CDRGE8 6110 CDRGE9 6140 CDRGET 6103 CDRGEZ 6035 CDRIN2 5674 CDRIN3 5675 CDRIN4 5676 CDRIN5 6176 CDRJMP 6011 CDRLOC 5744 CDRLP 5632 CDRM03 6157 CDRM27 6160 CDRM77 6173 CDRMOD 6107 CDROPR 6075 CDRPT 6163 CDRSE1 5757 CDRSE2 5763 CDRSE3 5761 CDRSE4 5762 CDRSET 5737 CDRSW 6164 CDRTAD 6175 CDRTBL 5677 CDRTM2 5672 CDRTM3 6165 CDRTMP 5602 CDRWC 5671 CDRXIT 5664 D200 5140 D3 5004 D400 5020 D7600 5074 D7700 5155 DBLKCT 5003 DBLOCK 5002 DC 5076 DCB 7560 unreferenced DCDIF0 5056 DECTAP 0001 DERR 5072 DERRCT 5007 DF32 0000 DFUN 5000 DIRECT 0000 DL 5147 DLOC 5040 DM203 5001 DOVER 5170 DSTOP 5171 DT7140 5045 DTA 5177 DTA0 5010 DTA1 5011 DTA2 5012 DTA3 5013 DTA4 5014 DTA5 5015 DTA6 5016 DTA7 5017 DTADCA 5040 DTADCB 4160 DTAISZ 5041 DTANO 5035 DTATAD 5077 DTATRY 5055 DTAWT 5112 DVHORG 0016 LINCSY 0000 LINCTA 0000 LIST 0000 LLS 6666 LP08 0001 LP7400 6240 LP7600 6313 LP7700 6215 LPCDF0 6367 LPFLSH 6361 LPJTAB 6355 LPLF 6334 LPLPTR 6370 LPM120 6361 LPM140 6376 LPM143 6366 LPRTRN 6257 LPT 6200 LPT175 6365 LPT177 6254 LPT214 6206 LPT215 6203 unreferenced LPT7 6354 LPT70 6362 LPTCA 6263 LPTCDF 6223 LPTCIF 6322 LPTCTL 6343 LPTCTZ 6306 LPTERR 6330 LPTFF 6335 LPTJMP 6305 LPTKLG 6253 LPTLF 6246 LPTLP 6232 LPTM15 6364 LPTPCH 6264 LPTTAB 6346 LPTVTB 6371 LPTWC 6262 LPTXIT 6260 LPTXXX 6345 unreferenced LPWAIT 6311 LPWISZ 6332 LSF 6661 LSR 6663 MFREE 0070 NOHSPT 0000 PCDF 6573 PGCHLP 6556 PSETUP 6434 PT70 6421 PT7400 6540 PT7700 6407 PTP 6400 PTP177 6562 PTP232 6560 PTP336 6561 PTPCA 6511 PTPCDF 6460 PTPCIF 6431 PTPEND 6420 PTPEOF 6460 PTPERR 6571 PTPISZ 6473 PTPKRS 6424 PTPLP 6403 unreferenced PTPM3 6576 PTPPCH 6503 PTPRTN 6475 unreferenced PTPTMP 6574 PTPWC 6575 PTPXIT 6501 PTR 6512 PTRBF0 6554 PTRGCH 6543 PTRLP 6517 unreferenced PTRXX 6566 PTTIME 6551 RCRA 6632 RCSE 6672 RCSF 6631 RCSP 6671 RF08 0000 RK01 0000 RK8 0000 ROM 0000 S200 7737 S400 7736 S410 7740 S7600 7636 SBLKCT 7753 SBLOCK 7776 SC 7640 SCA 7755 SCIF 7735 SDNAME 0564 unreferenced SDVHND 0766 unreferenced SERR 7634 SERR2 7723 SFIELD 7733 SFUN 7751 SHNDLR 7607 SL 7705 SLOC 7752 SOFSET 7747 SOVER 7726 STRY 7624 SWC 7754 SYSCNT 7750 SYSD 4160 TD8E 0000 TD8ESY 0000 TT3700 7177 TT70 7053 TT7400 7040 TT7600 7002 TT7700 7145 unreferenced TTCDF 7116 TTECHO 7164 TTKLG 7054 TTLOOP 7052 TTM203 7171 TTM232 7174 TTM27 7172 TTPRNT 7107 TTY 7001 TTY14 7170 TTY200 7134 TTY212 7167 TTY232 7166 TTY360 7000 TTYCA 7114 TTYCDF 7075 TTYCIF 7105 TTYCTO 7175 TTYGCH 7143 TTYGLP 7117 TTYKSF 7153 TTYLP 7025 TTYM14 7173 TTYPCH 7065 TTYRTN 7056 TTYTST 7074 TTYWC 7115 TTYXIT 7062 WC 5005 WRDEVH 4200 WRITE 4400