TITLE "AUTOMATIC DISASSEMBLY OF decus-5-31a.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of decus-5-31a.bin / Generated 2010 02 19 00:10:20 / Generated by d8tape version 0.351 / Visit http://www.pdp12.org/pdp8/software/index.html for updates / / Symbol format: / AIx -- Auto-index variables (address range 001x) / Caaaa -- Constants (non-unique) / Daaaa -- Data (read/write variables) / Kvvvv -- Program-wide unique constants / Laaaa -- Labels for control flow targets / Saaaa -- Subroutines / / Where: / aaaa is the definition address / vvvv is the value of the constant / x is the last digit of the address 001x for auto-index variables / / 4541 locations used, 3115 code and 1424 data //////////////////////////////////////////////////////////////////////////////// *0007 C0007, C0007, 1600 / TAD I L0000 *0017 AI7, 0000 / AUTO-INDEX REGISTER AND L0000 D0020, 0000 / AND L0000 D0021, 0000 / AND L0000 D0022, 0000 / AND L0000 D0023, 0000 / AND L0000 D0024, 0000 / AND L0000 D0025, 0000 / AND L0000 D0026, 0000 / AND L0000 D0027, 4000 / JMS L0000 C0030, 0007 / AND C0007 C0031, 0040 / AND C0040 L0032, C0032, 0027 / AND D0027 C0033, 0000 / AND L0000 TAD I D0150 / @@0034=1750 L0035, AND D0027 / @@0035=0027 C0036, 0000 / AND L0000 C0037, 7777 / CLA MQA SCA MQL LSR + *0044 D0044, 0000 / AND L0000 D0045, 0000 / AND L0000 D0046, 0000 / AND L0000 *0056 C0056, 0741 / AND I C0141 D0057, 6761 / DTRA *0066 L0066, D0066, 0000 / AND L0000 C0067, 0000 / AND L0000 C0070, 0000 / AND L0000 D0071, 0000 / AND L0000 C0072, 0000 / AND L0000 C0073, 0000 / AND L0000 L0074, D0074, 0000 / AND L0000 C0075, 0000 / AND L0000 D0076, 0000 / AND L0000 L0077, D0077, 0000 / AND L0000 C0100, 0000 / AND L0000 C0101, 0000 / AND L0000 L0102, D0102, 0000 / AND L0000 D0103, 0000 / AND L0000 D0104, 0000 / AND L0000 L0105, D0105, 0000 / AND L0000 C0106, 0000 / AND L0000 C0107, 0000 / AND L0000 L0110, D0110, 0000 / AND L0000 C0111, 0000 / AND L0000 C0112, 0000 / AND L0000 C0113, C0113, 3600 / DCA I L0000 C0114, C0114, 3642 / DCA I C0042 C0115, C0115, 3665 / DCA I C0065 C0116, C0116, 4000 / JMS L0000 C0117, C0117, 3416 / DCA I AI6 C0120, C0120, 3400 / DCA I L0000 D0121, 3410 / DCA I AI0 C0122, 1200 / TAD L0000 C0123, 1202 / TAD C0002 C0124, 1204 / TAD C0004 C0125, C0125, 0724 / AND I C0124 C0126, C0126, 0731 / AND I C0131 C0127, C0127, 0736 / AND I C0136 C0130, C0130, 0743 / AND I C0143 C0131, C0131, 0750 / AND I D0150 C0132, C0132, 0755 / AND I C0155 C0133, C0133, 0762 / AND I C0162 C0134, C0134, 0767 / AND I C0167 C0135, C0135, 3432 / DCA I L0032 C0136, 1213 / TAD AI3 C0137, 1214 / TAD AI4 C0140, C0140, 0673 / AND I C0073 C0141, 1023 / TAD D0023 C0142, 1036 / TAD C0036 C0143, 1051 / TAD C0051 D0144, 1065 / TAD C0065 C0145, 1101 / TAD C0101 D0146, 1113 / TAD C0113 C0147, 1127 / TAD C0127 D0150, 1145 / TAD C0145 C0151, 1206 / TAD C0006 C0152, 0000 / AND L0000 C0153, 4512 / JMS I C0112 AND I D0177 / @@0154=0777 C0155, 0000 / AND L0000 D0156, 0005 / AND D0005 C0157, 0004 / AND C0004 C0160, 0005 / AND D0005 C0161, 0005 / AND D0005 C0162, 0005 / AND D0005 C0163, 0006 / AND C0006 C0164, 0006 / AND C0006 D0165, 0001 / AND C0001 D0166, 0006 / AND C0006 C0167, 0002 / AND C0002 C0170, 0006 / AND C0006 C0171, 0003 / AND C0003 C0172, 0006 / AND C0006 C0173, 0004 / AND C0004 C0174, 0006 / AND C0006 C0175, 0005 / AND D0005 D0176, 0006 / AND C0006 D0177, 0006 / AND C0006 L0200, KCC / Clear AC and clear keyboard flag. @@0200=6032 LAS / @@0201=7604 DCA D0022 / @@0202=3022 JMP I C0204 / long jump to L4154 @@0203=5604 C0204, C0204, 4154 / JMS C0154 L0205, DCA D0103 / @@0205=3103 DCA D0104 / @@0206=3104 TAD D0022 / @@0207=1022 L0210, CLL RTL / @@0210=7106 RTL / @@0211=7006 AND C0030 / @@0212=0030 DCA D0023 / @@0213=3023 TAD D0022 / @@0214=1022 RTR / @@0215=7012 RTR / @@0216=7012 RTR / @@0217=7012 AND C0030 / @@0220=0030 DCA D0024 / @@0221=3024 JMS I C0125 / long call to S0724 @@0222=4525 JMS I C0117 / long call to S3416 @@0223=4517 JMS I C0007 / long call to S1600 @@0224=4407 C0225, 6066 / 6066 C0226, 0000 / AND L0000 JMS I C0126 / long call to S0731 @@0227=4526 JMS I C0117 / long call to S3416 @@0230=4517 JMS I C0007 / long call to S1600 @@0231=4407 DSF / (Light Pen Type 370) Skip if display @@0232=6071 C0233, 0000 / AND L0000 TAD D0024 / @@0234=1024 SNA CLA / @@0235=7650 JMP L0257 / @@0236=5257 JMS I C0127 / long call to S0736 @@0237=4527 JMS I C0117 / long call to S3416 @@0240=4517 JMS I C0007 / long call to S1600 @@0241=4407 DSB / Zero brightness @@0242=6074 C0243, 0000 / AND L0000 JMS I C0130 / long call to S0743 @@0244=4530 JMS I C0117 / long call to S3416 @@0245=4517 JMS I C0007 / long call to S1600 @@0246=4407 DSB / Set maximum brightness @@0247=6077 C0250, 0000 / AND L0000 JMS I C0131 / long call to S0750 @@0251=4531 JMS I C0117 / long call to S3416 @@0252=4517 JMS I C0007 / long call to S1600 @@0253=4407 SPL / (KP8/I) Skip if power low @@0254=6102 C0255, 0000 / AND L0000 JMP L0271 / @@0256=5271 L0257, JMS I C0132 / long call to S0755 @@0257=4532 JMS I C0117 / long call to S3416 @@0260=4517 JMS I C0007 / long call to S1600 @@0261=4407 DSB / Zero brightness @@0262=6074 C0263, 0000 / AND L0000 JMS I C0133 / long call to S0762 @@0264=4533 JMS I C0117 / long call to S3416 @@0265=4517 JMS I C0007 / long call to S1600 @@0266=4407 DSB / Set maximum brightness @@0267=6077 C0270, 0000 / AND L0000 L0271, JMS I C0007 / long call to S1600 @@0271=4407 JMP L0066 / @@0272=5066 ISZ D0071 / @@0273=2071 C0274, 6066 / 6066 JMP L0032 / @@0275=5032 NOP / @@0276=7000 JMS L0066 / @@0277=4066 C0300, 6066 / 6066 C0301, 0000 / AND L0000 TAD D0024 / @@0302=1024 SNA CLA / @@0303=7650 JMP L0316 / @@0304=5316 JMS I C0007 / long call to S1600 @@0305=4407 JMP L0074 / @@0306=5074 ISZ L0077 / @@0307=2077 DSB / Zero brightness @@0310=6074 JMP L0102 / @@0311=5102 JMS L0074 / @@0312=4074 DSB / Zero brightness @@0313=6074 C0314, 0000 / AND L0000 JMP L0323 / @@0315=5323 L0316, JMS I C0007 / long call to S1600 @@0316=4407 JMP L0077 / @@0317=5077 ISZ L0074 / @@0320=2074 DSB / Set maximum brightness @@0321=6077 C0322, 0000 / AND L0000 L0323, TAD D0022 / @@0323=1022 AND C0031 / @@0324=0031 SNA CLA / @@0325=7650 JMP L0331 / @@0326=5331 JMS I C0113 / long call to S3600 @@0327=4513 JMP L0332 / @@0330=5332 L0331, JMS I C0116 / long call to S4000 @@0331=4516 L0332, JMS I D0121 / long call to S3410 @@0332=4521 SNA CLA / @@0333=7650 JMP L0332 / @@0334=5332 CLA / @@0335=7200 IAC / @@0336=7001 DCA D0025 / @@0337=3025 DCA D0026 / @@0340=3026 TAD D0057 / @@0341=1057 JMP L0344 / @@0342=5344 L0343, JMS I D0121 / long call to S3410 @@0343=4521 L0344, SNA / @@0344=7450 JMP I C0140 / long jump to L0673 @@0345=5540 TAD C0371 / @@0346=1371 SNA CLA / @@0347=7650 JMP I C0377 / long jump to L0421 @@0350=5777 TAD D0057 / @@0351=1057 TAD C0372 / @@0352=1372 SNA CLA / @@0353=7650 JMP I C0377 / long jump to L0421 @@0354=5777 TAD D0057 / @@0355=1057 TAD C0373 / @@0356=1373 SNA CLA / @@0357=7650 JMP I C0377 / long jump to L0421 @@0360=5777 TAD D0057 / @@0361=1057 TAD C0374 / @@0362=1374 SPA / @@0363=7510 JMP I C0376 / long jump to L0400 @@0364=5776 TAD C0375 / @@0365=1375 SPA CLA / @@0366=7710 JMP I C0377 / long jump to L0421 @@0367=5777 JMP I C0376 / long jump to L0400 @@0370=5776 C0371, 7522 / SMA SNL HLT C0372, 7525 / MQA MQL MUY + C0373, 7523 / MQA MQL SCL + C0374, 7520 / SMA SNL C0375, 7766 / SMA SZA SNL CLA OSR HLT C0376, C0376, 0400 / AND I L0000 C0377, C0377, 0421 / AND I D0021 L0400, C0400, 7200 / CLA TAD D0057 / @@0401=1057 TAD C0564 / @@0402=1364 SNA CLA / @@0403=7650 JMP I C0567 / long jump to L0343 @@0404=5767 L0405, JMS I D0121 / long call to S3410 @@0405=4521 TAD C0566 / @@0406=1366 SZA / @@0407=7440 JMP L0405 / @@0410=5205 CLA / @@0411=7200 IAC / @@0412=7001 DCA D0025 / @@0413=3025 TAD D0026 / @@0414=1026 SNA CLA / @@0415=7650 JMP I C0567 / long jump to L0343 @@0416=5767 DCA D0026 / @@0417=3026 C0420, 5265 / JMP L0465 L0421, CLA / @@0421=7200 IAC / @@0422=7001 DCA D0026 / @@0423=3026 TAD D0025 / @@0424=1025 CIA / @@0425=7041 TAD D0023 / @@0426=1023 SZA CLA / @@0427=7640 JMP L0436 / @@0430=5236 JMS I C0120 / long call to S3400 @@0431=4520 JMS I C0007 / long call to S1600 @@0432=4407 C0433, 6105 / 6105 C0434, 0000 / AND L0000 JMP L0460 / @@0435=5260 L0436, TAD D0025 / @@0436=1025 CIA / @@0437=7041 TAD D0024 / @@0440=1024 SZA CLA / @@0441=7640 JMP L0450 / @@0442=5250 JMS I C0120 / long call to S3400 @@0443=4520 JMS I C0007 / long call to S1600 @@0444=4407 C0445, 6110 / 6110 C0446, 0000 / AND L0000 JMP L0460 / @@0447=5260 L0450, JMS I D0121 / long call to S3410 @@0450=4521 TAD C0564 / @@0451=1364 SNA CLA / @@0452=7650 JMP L0460 / @@0453=5260 TAD D0057 / @@0454=1057 TAD C0565 / @@0455=1365 SZA CLA / @@0456=7640 JMP L0450 / @@0457=5250 L0460, TAD D0025 / @@0460=1025 IAC / @@0461=7001 DCA D0025 / @@0462=3025 TAD D0057 / @@0463=1057 JMP I C0570 / long jump to L0344 @@0464=5770 L0465, JMS I C0007 / long call to S1600 @@0465=4407 JMP L0105 / @@0466=5105 ISZ D0071 / @@0467=2071 DCA L0066 / @@0470=3066 C0471, 6105 / 6105 C0472, 0000 / AND L0000 JMS I C0573 / long call to S3472 @@0473=4773 SPA CLA / @@0474=7710 JMP L0553 / @@0475=5353 JMS I C0007 / long call to S1600 @@0476=4407 JMP L0032 / @@0477=5032 NOP / @@0500=7000 ISZ L0105 / @@0501=2105 C0502, 0000 / AND L0000 JMS I C0573 / long call to S3472 @@0503=4773 SPA CLA / @@0504=7710 JMP L0553 / @@0505=5353 JMS I C0007 / long call to S1600 @@0506=4407 JMP L0105 / @@0507=5105 C0510, 0000 / AND L0000 JMS I C0135 / long call to S3432 @@0511=4535 DCA D0021 / @@0512=3021 TAD D0024 / @@0513=1024 SZA / @@0514=7440 JMP I C0571 / long jump to L0600 @@0515=5771 JMS I C0007 / long call to S1600 @@0516=4407 JMP L0077 / @@0517=5077 TAD L0074 / @@0520=1074 DSB / Set maximum brightness @@0521=6077 C0522, 6110 / 6110 C0523, 0000 / AND L0000 JMS I C0573 / long call to S3472 @@0524=4773 SPA CLA / @@0525=7710 JMP I C0567 / long jump to L0343 @@0526=5767 JMS I C0007 / long call to S1600 @@0527=4407 JMP L0035 / @@0530=5035 NOP / @@0531=7000 ISZ L0110 / @@0532=2110 C0533, 0000 / AND L0000 JMS I C0573 / long call to S3472 @@0534=4773 SPA CLA / @@0535=7710 JMP I C0567 / long jump to L0343 @@0536=5767 JMS I C0007 / long call to S1600 @@0537=4407 C0540, 5110 / JMP L0110 C0541, 2102 / ISZ L0102 C0542, 0000 / AND L0000 C0543, 1045 / TAD D0045 C0544, 7510 / SPA JMP I C0572 / long jump to L0620 @@0545=5772 JMS I C0007 / long call to S1600 @@0546=4407 JMP L0110 / @@0547=5110 SPL / (KP8/I) Skip if power low @@0550=6102 C0551, 0000 / AND L0000 JMP I C0572 / long jump to L0620 @@0552=5772 L0553, TAD D0024 / @@0553=1024 SZA / @@0554=7440 JMP I C0567 / long jump to L0343 @@0555=5767 JMS I C0007 / long call to S1600 @@0556=4407 JMP L0077 / @@0557=5077 TAD L0074 / @@0560=1074 DSB / Set maximum brightness @@0561=6077 C0562, 0000 / AND L0000 JMP I C0567 / long jump to L0343 @@0563=5767 C0564, 7540 / SMA SZA C0565, 7563 / MQA SCA MQL SCL + C0566, 7566 / SMA SZA SNL OSR HLT C0567, C0567, 0343 / AND C0543 C0570, C0570, 0344 / AND C0544 C0571, C0571, 0600 / AND I L0400 C0572, C0572, 0620 / AND I C0420 C0573, C0573, 3472 / DCA I C0072 PLPR / Plotter pen right. @@0574=6511 AND I L0400 / @@0575=0600 AND I C0540 / @@0576=0740 AND I C0541 / @@0577=0741 L0600, C0600, 4407 / JMS I C0007 JMP L0110 / @@0601=5110 ISZ L0077 / @@0602=2077 DCA L0074 / @@0603=3074 C0604, 6110 / 6110 C0605, 0000 / AND L0000 JMS I C0775 / long call to S3472 @@0606=4775 SPA CLA / @@0607=7710 JMP I C0720 / long jump to L0343 @@0610=5720 JMS I C0007 / long call to S1600 @@0611=4407 JMP L0102 / @@0612=5102 ISZ L0110 / @@0613=2110 C0614, 0000 / AND L0000 JMS I C0775 / long call to S3472 @@0615=4775 SPA CLA / @@0616=7710 JMP I C0720 / long jump to L0343 @@0617=5720 L0620, JMS I C0007 / long call to S1600 @@0620=4407 JMP L0110 / @@0621=5110 C0622, 0000 / AND L0000 JMS I C0135 / long call to S3432 @@0623=4535 DCA D0020 / @@0624=3020 TAD D0021 / @@0625=1021 TAD D0027 / @@0626=1027 DCA D0021 / @@0627=3021 TAD D0020 / @@0630=1020 TAD D0027 / @@0631=1027 DCA D0020 / @@0632=3020 TAD D0022 / @@0633=1022 AND C0721 / @@0634=0321 SNA CLA / @@0635=7650 JMP L0645 / @@0636=5245 TAD D0021 / @@0637=1021 DCA D0643 / @@0640=3243 TAD D0020 / @@0641=1020 C0642, 4524 / JMS I C0124 D0643, 0000 / AND L0000 JMP L0652 / @@0644=5252 L0645, TAD D0021 / @@0645=1021 DCA D0651 / @@0646=3251 TAD D0020 / @@0647=1020 C0650, 4522 / JMS I C0122 D0651, 0000 / AND L0000 L0652, CLA / @@0652=7200 TAD D0022 / @@0653=1022 C0654, 0322 / AND C0722 SNA CLA / @@0655=7650 JMP L0660 / @@0656=5260 JMS I C0116 / long call to S4000 @@0657=4516 L0660, CLA / @@0660=7200 TAD D0022 / @@0661=1022 AND C0723 / @@0662=0323 SNA CLA / @@0663=7650 JMP I C0720 / long jump to L0343 @@0664=5720 TAD D0021 / @@0665=1021 DCA D0671 / @@0666=3271 TAD D0020 / @@0667=1020 C0670, 4523 / JMS I C0123 D0671, 0000 / AND L0000 JMP I C0720 / long jump to L0343 @@0672=5720 L0673, JMS I C0007 / long call to S1600 @@0673=4407 JMP L0102 / @@0674=5102 C0675, 0000 / AND L0000 JMS I C0135 / long call to S3432 @@0676=4535 DCA L0102 / @@0677=3102 TAD I C0136 / @@0700=1536 TAD D0027 / @@0701=1027 DCA D0020 / @@0702=3020 TAD I C0137 / @@0703=1537 TAD D0027 / @@0704=1027 DCA D0021 / @@0705=3021 JMS I C0114 / long call to S3642 @@0706=4514 CLA / @@0707=7200 TAD D0022 / @@0710=1022 AND C0031 / @@0711=0031 SZA CLA / @@0712=7640 JMS I C0115 / long call to S3665 @@0713=4515 JMS I C0134 / long call to S0767 @@0714=4534 HLT / @@0715=7402 JMP I C0717 / long jump to L0200 @@0716=5717 C0717, C0717, 0200 / AND L0600 C0720, C0720, 0343 / AND S0743 C0721, 0020 / AND D0020 C0722, 0010 / AND AI0 C0723, 0004 / AND C0004 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0724 / / Called from: / 0222 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0724, 0 / return area CLA / @@0725=7200 TAD I C0141 / @@0726=1541 JMS I C0774 / long call to S1000 @@0727=4774 JMP I S0724 / return @@0730=5724 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0731 / / Called from: / 0227 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0731, 0 / return area CLA / @@0732=7200 TAD I C0142 / @@0733=1542 JMS I C0774 / long call to S1000 @@0734=4774 JMP I S0731 / return @@0735=5731 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0736 / / Called from: / 0237 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0736, 0 / return area CLA / @@0737=7200 TAD I C0143 / @@0740=1543 JMS I C0774 / long call to S1000 @@0741=4774 JMP I S0736 / return @@0742=5736 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0743 / / Called from: / 0244 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0743, 0 / return area CLA / @@0744=7200 TAD I D0144 / @@0745=1544 JMS I C0774 / long call to S1000 @@0746=4774 JMP I S0743 / return @@0747=5743 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0750 / / Called from: / 0251 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0750, 0 / return area CLA / @@0751=7200 TAD I C0145 / @@0752=1545 JMS I C0774 / long call to S1000 @@0753=4774 JMP I S0750 / return @@0754=5750 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0755 / / Called from: / 0257 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0755, 0 / return area CLA / @@0756=7200 TAD I D0146 / @@0757=1546 JMS I C0774 / long call to S1000 @@0760=4774 JMP I S0755 / return @@0761=5755 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0762 / / Called from: / 0264 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0762, 0 / return area CLA / @@0763=7200 TAD I C0147 / @@0764=1547 JMS I C0774 / long call to S1000 @@0765=4774 JMP I S0762 / return @@0766=5762 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0767 / / Called from: / 0714 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0767, 0 / return area CLA / @@0770=7200 TAD I D0150 / @@0771=1550 JMS I C0774 / long call to S1000 @@0772=4774 JMP I S0767 / return @@0773=5767 C0774, C0774, 1000 / TAD L0000 C0775, C0775, 3472 / DCA I C0072 AND L0077 / @@0776=0077 AND C0654 / @@0777=0254 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / Called from: / 0727 0734 0741 0746 0753 0760 0765 0772 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S1000, 0 / return area DCA AI7 / AUTO INDEX REGISTER @@1001=3017 L1002, CLA / @@1002=7200 TAD I AI7 / AUTO INDEX REGISTER @@1003=1417 JMS S1014 / @@1004=4214 TAD C1021 / @@1005=1221 SNA / @@1006=7450 JMP L1154 / @@1007=5354 TAD C1022 / @@1010=1222 SNA / @@1011=7450 L1012, C1012, 5354 / JMP L1154 JMP L1002 / @@1013=5202 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1014 / / Called from: / 1004 1156 1157 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1014, 0 / return area L1015, C1015, 6041 / TSF JMP L1015 / @@1016=5215 TLS / Load the TTO from the content of AC4 @@1017=6046 JMP I S1014 / return @@1020=5614 C1021, 7501 / MQA C1022, 0036 / AND C0036 C1023, 1023 / TAD D0023 AND L1015 / @@1024=0215 AND L1012 / @@1025=0212 AND C1115 / @@1026=0315 AND C1101 / @@1027=0301 AND C1130 / @@1030=0330 L1031, AND C1040 / @@1031=0240 AND C1117 / @@1032=0317 AND C1122 / @@1033=0322 AND C1104 / @@1034=0304 AND C1077 / @@1035=0277 C1036, 1036 / TAD C0036 AND L1015 / @@1037=0215 C1040, 0215 / AND L1015 C1041, 0315 / AND C1115 AND C1111 / @@1042=0311 AND C1116 / @@1043=0316 C1044, 0240 / AND C1040 L1045, AND C1117 / @@1045=0317 AND C1122 / @@1046=0322 AND C1104 / @@1047=0304 L1050, AND C1077 / @@1050=0277 C1051, 1051 / TAD C0051 AND L1015 / @@1052=0215 AND L1015 / @@1053=0215 L1054, AND C1115 / @@1054=0315 AND C1101 / @@1055=0301 AND C1130 / @@1056=0330 AND C1040 / @@1057=0240 C1060, 0301 / AND C1101 AND C1102 / @@1061=0302 AND C1123 / @@1062=0323 AND C1103 / @@1063=0303 AND C1077 / @@1064=0277 C1065, 1065 / TAD C0065 AND L1015 / @@1066=0215 AND L1015 / @@1067=0215 AND C1115 / @@1070=0315 AND C1111 / @@1071=0311 AND C1116 / @@1072=0316 AND C1040 / @@1073=0240 AND C1101 / @@1074=0301 AND C1102 / @@1075=0302 AND C1123 / @@1076=0323 C1077, 0303 / AND C1103 AND C1077 / @@1100=0277 C1101, 1101 / TAD C0101 C1102, 0215 / AND L1015 C1103, 0215 / AND L1015 C1104, 0314 / AND C1114 C1105, 0305 / AND C1105 AND C1116 / @@1106=0316 C1107, 0307 / AND C1107 AND C1124 / @@1110=0324 C1111, 0310 / AND C1110 AND C1077 / @@1112=0277 TAD C0113 / @@1113=1113 C1114, 0215 / AND L1015 C1115, 0215 / AND L1015 C1116, 0301 / AND C1101 C1117, 0302 / AND C1102 AND C1123 / @@1120=0323 AND C1103 / @@1121=0303 C1122, 0240 / AND C1040 C1123, 0311 / AND C1111 C1124, 0316 / AND C1116 AND C1103 / @@1125=0303 C1126, 0277 / AND C1077 C1127, 1127 / TAD C0127 C1130, 0215 / AND L1015 AND L1015 / @@1131=0215 AND C1101 / @@1132=0301 AND C1102 / @@1133=0302 AND C1123 / @@1134=0323 AND C1103 / @@1135=0303 AND C1040 / @@1136=0240 AND C1123 / @@1137=0323 AND C1124 / @@1140=0324 AND C1101 / @@1141=0301 AND C1122 / @@1142=0322 AND C1124 / @@1143=0324 AND C1077 / @@1144=0277 TAD C0145 / @@1145=1145 AND L1015 / @@1146=0215 AND L1012 / @@1147=0212 AND C1105 / @@1150=0305 AND C1116 / @@1151=0316 AND C1104 / @@1152=0304 AND C1041 / @@1153=0241 L1154, CLA / @@1154=7200 TAD C1161 / @@1155=1361 JMS S1014 / @@1156=4214 JMS S1014 / @@1157=4214 JMP I S1000 / return @@1160=5600 C1161, 0240 / AND C1040 AND C1117 / @@1162=0317 AND C1124 / @@1163=0324 AND C1040 / @@1164=0240 AND C1126 / @@1165=0326 AND C1101 / @@1166=0301 AND C1114 / @@1167=0314 AND C1111 / @@1170=0311 AND C1104 / @@1171=0304 AND C1040 / @@1172=0240 TAD C0160 / @@1173=1160 TAD C0173 / @@1174=1173 C1175, 7765 / CLA MQA SCA MQL MUY + AND C1060 / @@1176=0260 AND C0007 / @@1177=0007 D1200, 1253 / TAD D1253 JMP L1234 / @@1201=5234 D1202, 0204 / AND C1204 JMP L1245 / @@1203=5245 C1204, 2731 / ISZ I L1331 JMP I C1233 / long jump to L1552 @@1205=5633 C1206, C1206, 0210 / AND L1210 JMP L1227 / @@1207=5227 L1210, C1210, 6046 / TLS JMS S1217 / @@1211=4217 JMP I C1206 / long jump to L0210 @@1212=5606 D1213, 0400 / AND I L0000 D1214, 0200 / AND D1200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1215 / / Called from: / 1320 1336 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1215, 0 / return area JMP I S1215 / return @@1216=5615 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1217 / / Called from: / 1211 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1217, 0 / return area JMS I D0121 / long call to S3410 @@1220=4521 CLA / @@1221=7200 TAD D0027 / @@1222=1027 DCA D1213 / @@1223=3213 TAD D0027 / @@1224=1027 DCA D1214 / @@1225=3214 JMP I S1217 / return @@1226=5617 L1227, CLA IAC / @@1227=7201 DCA D1232 / @@1230=3232 JMP L1210 / @@1231=5210 D1232, 0000 / AND L0000 C1233, C1233, 1552 / TAD I C0152 L1234, NOP / @@1234=7000 PLPU / Plotter pen up. Raise pen off of pa @@1235=6504 L1236, PLSF / Skip if plotter flag is a 1. @@1236=6501 JMP L1236 / @@1237=5236 DCA D1301 / @@1240=3301 TAD D1200 / @@1241=1200 DCA D1317 / @@1242=3317 TAD D1301 / @@1243=1301 JMP L1320 / @@1244=5320 L1245, DCA D1301 / @@1245=3301 TAD I D1202 / @@1246=1602 ISZ D1202 / @@1247=2202 DCA D1253 / @@1250=3253 TAD D1301 / @@1251=1301 C1252, 4200 / JMS D1200 D1253, 0200 / AND D1200 PLCF / Clear plotter flag. @@1254=6502 PLPD / Plotter pen down. Lower pen on to p @@1255=6524 L1256, PLSF / Skip if plotter flag is a 1. @@1256=6501 C1257, 5256 / JMP L1256 TAD C1374 / @@1260=1374 C1261, 4301 / JMS D1301 TAD C1372 / @@1262=1372 C1263, 4765 / JMS I C1365 PLDU / Plotter drum (paper) upward @@1264=6512 SPA SNA SZL CLA / @@1265=7770 TAD C1374 / @@1266=1374 C1267, 4301 / JMS D1301 TAD C1372 / @@1270=1372 C1271, 4301 / JMS D1301 TAD C1374 / @@1272=1374 C1273, 4765 / JMS I C1365 PLDU / Plotter drum (paper) upward @@1274=6512 SPA SNA SZL CLA / @@1275=7770 TAD C1372 / @@1276=1372 C1277, 4301 / JMS D1301 JMP I D1202 / long jump to L0204 @@1300=5602 D1301, 0200 / AND D1200 C1302, 4765 / JMS I C1365 PLDD / Plotter drum (paper) downward. @@1303=6514 SPA SNA SZL CLA OSR / @@1304=7774 JMP I D1301 / long jump to L0200 @@1305=5701 L1306, PLCF / Clear plotter flag. @@1306=6502 PLPD / Plotter pen down. Lower pen on to p @@1307=6524 L1310, PLSF / Skip if plotter flag is a 1. @@1310=6501 JMP L1310 / @@1311=5310 DCA D1301 / @@1312=3301 TAD C1204 / @@1313=1204 DCA D1317 / @@1314=3317 TAD D1301 / @@1315=1301 JMP L1320 / @@1316=5320 D1317, 0204 / AND C1204 L1320, JMS S1215 / @@1320=4215 DCA D1301 / @@1321=3301 TAD D1213 / @@1322=1213 CIA / @@1323=7041 TAD D1301 / @@1324=1301 SPA / @@1325=7510 JMP L1355 / @@1326=5355 DCA I C1376 / @@1327=3776 TAD C1371 / @@1330=1371 L1331, DCA I C1367 / @@1331=3767 TAD D1301 / @@1332=1301 DCA D1213 / @@1333=3213 TAD I D1317 / @@1334=1717 ISZ D1317 / @@1335=2317 JMS S1215 / @@1336=4215 DCA D1301 / @@1337=3301 TAD D1214 / @@1340=1214 CIA / @@1341=7041 TAD D1301 / @@1342=1301 SPA / @@1343=7510 JMP L1361 / @@1344=5361 DCA I C1377 / @@1345=3777 TAD C1372 / @@1346=1372 L1347, DCA I C1370 / @@1347=3770 TAD D1301 / @@1350=1301 DCA D1214 / @@1351=3214 TAD D1317 / @@1352=1317 DCA I C1366 / @@1353=3766 JMP I C1375 / long jump to L1400 @@1354=5775 L1355, CIA / @@1355=7041 DCA I C1376 / @@1356=3776 TAD C1373 / @@1357=1373 JMP L1331 / @@1360=5331 L1361, CIA / @@1361=7041 DCA I C1377 / @@1362=3777 TAD C1374 / @@1363=1374 JMP L1347 / @@1364=5347 TAD I D0104 / @@1365=1504 C1366, 1537 / TAD I C0137 C1367, 1544 / TAD I D0144 C1370, 1545 / TAD I C0145 C1371, 6514 / PLDD C1372, 6521 / PLPL C1373, 6512 / PLDU C1374, 6511 / PLPR C1375, C1375, 1400 / TAD I L0000 C1376, 1540 / TAD I C0140 C1377, 1541 / TAD I C0141 L1400, TAD D1541 / @@1400=1341 CIA / @@1401=7041 TAD D1540 / @@1402=1340 DCA D1550 / @@1403=3350 C1404, 1350 / TAD D1550 SPA / @@1405=7510 JMP L1466 / @@1406=5266 L1407, CLA / @@1407=7200 DCA D1542 / @@1410=3342 TAD D1540 / @@1411=1340 CIA / @@1412=7041 DCA D1543 / @@1413=3343 TAD D1543 / @@1414=1343 DCA D1551 / @@1415=3351 TAD D1540 / @@1416=1340 CLL RAR / @@1417=7110 SZL / @@1420=7430 IAC / @@1421=7001 CIA / @@1422=7041 DCA D1546 / @@1423=3346 TAD D1544 / @@1424=1344 DCA D1451 / @@1425=3251 TAD D1550 / @@1426=1350 SNA / @@1427=7450 JMP L1524 / @@1430=5324 L1431, CLA / @@1431=7200 TAD D1542 / @@1432=1342 TAD D1541 / @@1433=1341 C1434, 3342 / DCA D1542 TAD D1542 / @@1435=1342 TAD D1546 / @@1436=1346 SPA / @@1437=7510 JMP L1460 / @@1440=5260 CLA / @@1441=7200 TAD D1542 / @@1442=1342 TAD D1543 / @@1443=1343 DCA D1542 / @@1444=3342 TAD D1545 / @@1445=1345 JMP L1456 / @@1446=5256 D1447, 1446 / TAD I D0046 C1450, 4304 / JMS D1504 D1451, 6512 / PLDU C1452, 7777 / CLA MQA SCA MQL LSR + ISZ D1551 / @@1453=2351 JMP I D1447 / long jump to L1446 @@1454=5647 JMP I D1537 / long jump to L0204 @@1455=5737 L1456, C1456, 4247 / JMS D1447 JMP L1431 / @@1457=5231 L1460, CLA / @@1460=7200 TAD C1462 / @@1461=1262 C1462, 7000 / NOP JMP L1456 / @@1463=5256 JMP I D1447 / long jump to L1446 @@1464=5647 JMP I D1537 / long jump to L0204 @@1465=5737 L1466, CLA / @@1466=7200 TAD D1540 / @@1467=1340 DCA D1447 / @@1470=3247 TAD D1541 / @@1471=1341 DCA D1540 / @@1472=3340 TAD D1447 / @@1473=1247 DCA D1541 / @@1474=3341 TAD D1544 / @@1475=1344 DCA D1447 / @@1476=3247 TAD D1545 / @@1477=1345 DCA D1544 / @@1500=3344 TAD D1447 / @@1501=1247 DCA D1545 / @@1502=3345 JMP L1407 / @@1503=5207 D1504, 1453 / TAD I C0053 DCA D1517 / @@1505=3317 C1506, 1704 / TAD I D1504 DCA D1520 / @@1507=3320 ISZ D1504 / @@1510=2304 TAD I D1504 / @@1511=1704 ISZ D1504 / @@1512=2304 L1513, SNA / @@1513=7450 JMP I D1504 / long jump to L1453 @@1514=5704 IAC / @@1515=7001 PLCF / Clear plotter flag. @@1516=6502 D1517, 6511 / PLPR D1520, 6512 / PLDU L1521, PLSF / Skip if plotter flag is a 1. @@1521=6501 JMP L1521 / @@1522=5321 JMP L1513 / @@1523=5313 L1524, TAD D1545 / @@1524=1345 DCA D1532 / @@1525=3332 TAD D1543 / @@1526=1343 DCA D1533 / @@1527=3333 TAD D1544 / @@1530=1344 C1531, 4304 / JMS D1504 D1532, 6511 / PLPR D1533, 0000 / AND L0000 JMP I D1537 / long jump to L0204 @@1534=5737 C1535, 0000 / AND L0000 C1536, 0000 / AND L0000 D1537, 0204 / AND C1404 D1540, 0400 / AND I L0000 D1541, 0200 / AND L1400 D1542, 0000 / AND L0000 D1543, 7400 / D1544, 6512 / PLDU D1545, 6511 / PLPR D1546, 7600 / 7600 TAD D1543 / @@1547=1343 D1550, 0200 / AND L1400 D1551, 0000 / AND L0000 L1552, DCA D1572 / @@1552=3372 TAD I C1565 / @@1553=1765 SNA CLA / @@1554=7650 JMP L1563 / @@1555=5363 DCA I C1565 / @@1556=3765 TAD I C1566 / @@1557=1766 DCA I C1567 / @@1560=3767 TAD D1572 / @@1561=1372 JMP I C1570 / long jump to L1234 @@1562=5770 L1563, TAD D1572 / @@1563=1372 JMP I C1571 / long jump to L1306 @@1564=5771 C1565, 1232 / TAD C1432 C1566, 1204 / TAD C1404 C1567, 1200 / TAD L1400 C1570, C1570, 1234 / TAD C1434 C1571, C1571, 1306 / TAD C1506 D1572, 0000 / AND L0000 C1573, 4122 / JMS C0122 C1574, 6316 / 6316 C1575, 6330 / 6330 C1576, 4212 / JMS C1412 T2off / (Data Communications System 680/I) s @@1577=6432 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1600 / / Called from: / 0224 0231 0241 0246 0253 0261 0266 0271 0305 0316 0432 0444 0465 0476 0506 / 0516 0527 0537 0546 0556 0611 0620 0673 2562 2655 2706 2741 3227 3261 3272 / 3300 3473 / Total 0040 (32) calls //////////////////////////////////////////////////////////////////////////////// S1600, 0 / return area L1601, CLA CLL / AC = 0000 @@1601=7300 DCA D1663 / @@1602=3263 C1603, 3043 / DCA C0043 C1604, 3047 / DCA C0047 TAD I S1600 / @@1605=1600 DCA D1657 / @@1606=3257 TAD D1657 / @@1607=1257 AND C1670 / @@1610=0270 SNA CLA / @@1611=7650 JMP L1617 / @@1612=5217 TAD C1666 / @@1613=1266 AND S1600 / @@1614=0200 TAD D1663 / @@1615=1263 DCA D1663 / @@1616=3263 L1617, TAD C1667 / @@1617=1267 AND D1657 / @@1620=0257 TAD D1663 / @@1621=1263 DCA D1663 / @@1622=3263 TAD C1671 / @@1623=1271 AND D1657 / @@1624=0257 SNA CLA / @@1625=7650 JMP L1631 / @@1626=5231 TAD I D1663 / @@1627=1663 DCA D1663 / @@1630=3263 L1631, ISZ S1600 / @@1631=2200 TAD I D1663 / @@1632=1663 D1633, 3040 / DCA C0040 TAD D1663 / @@1634=1263 DCA D1664 / @@1635=3264 ISZ D1663 / @@1636=2263 TAD I D1663 / @@1637=1663 C1640, 3041 / DCA C0041 ISZ D1663 / @@1641=2263 TAD I D1663 / @@1642=1663 C1643, 3042 / DCA C0042 TAD D1664 / @@1644=1264 DCA D1663 / @@1645=3263 TAD D1657 / @@1646=1257 RTL / @@1647=7006 RTL / @@1650=7006 AND C1665 / @@1651=0265 TAD C1672 / @@1652=1272 DCA D1660 / @@1653=3260 TAD I D1660 / @@1654=1660 DCA D1660 / @@1655=3260 JMP I D1660 / long jump to L0000 @@1656=5660 D1657, 0000 / AND L0000 D1660, 0000 / AND L0000 D1661, 0000 / AND L0000 D1662, 0000 / AND L0000 D1663, 0000 / AND L0000 D1664, 0000 / AND L0000 C1665, 0007 / AND C0007 C1666, 7600 / 7600 C1667, 0177 / AND D0177 C1670, 0200 / AND S1600 C1671, 0400 / AND I L0000 C1672, 1673 / TAD I C1673 TAD I C1742 / @@1673=1742 TAD I L1716 / @@1674=1716 TAD I C1737 / @@1675=1737 TAD I C1761 / @@1676=1761 ISZ D1703 / @@1677=2303 ISZ D0156 / @@1700=2156 TAD I C1705 / @@1701=1705 TAD I D1703 / @@1702=1703 D1703, 4771 / JMS I C1771 JMP L1601 / @@1704=5201 C1705, 1044 / TAD D0044 DCA I D1663 / @@1706=3663 ISZ D1663 / @@1707=2263 TAD D0045 / @@1710=1045 DCA I D1663 / @@1711=3663 ISZ D1663 / @@1712=2263 TAD D0046 / @@1713=1046 DCA I D1663 / @@1714=3663 JMP L1601 / @@1715=5201 L1716, C1716, 4772 / JMS I C1772 JMP L1601 / @@1717=5201 L1720, JMS I C1773 / long call to S2200 @@1720=4773 CLL / @@1721=7100 C1722, 1043 / TAD C0043 C1723, 1047 / TAD C0047 C1724, 3047 / DCA C0047 RAL / @@1725=7004 C1726, 1042 / TAD C0042 TAD D0046 / @@1727=1046 DCA D0046 / @@1730=3046 RAL / @@1731=7004 C1732, 1041 / TAD C0041 TAD D0045 / @@1733=1045 DCA D0045 / @@1734=3045 JMS I C1771 / long call to S2600 @@1735=4771 JMP L1601 / @@1736=5201 C1737, 4741 / JMS I C1741 JMP L1716 / @@1740=5316 C1741, 2400 / ISZ I L0000 C1742, 1257 / TAD D1657 AND C1665 / @@1743=0265 SNA / @@1744=7450 JMP I S1600 / return @@1745=5600 TAD C1760 / @@1746=1360 DCA D1661 / @@1747=3261 TAD I D1661 / @@1750=1661 DCA D1661 / @@1751=3261 C1752, 1200 / TAD S1600 DCA D1662 / @@1753=3262 JMS I D1661 / long call to S0000 @@1754=4661 TAD D1662 / @@1755=1262 DCA S1600 / @@1756=3200 JMP L1601 / @@1757=5201 C1760, 2566 / ISZ I D0166 C1761, 7201 / CLA IAC C1762, 1040 / TAD C0040 TAD D0044 / @@1763=1044 DCA D0044 / @@1764=3044 JMS I C1770 / long call to S2233 @@1765=4770 JMS I C1771 / long call to S2600 @@1766=4771 JMP L1601 / @@1767=5201 C1770, C1770, 2233 / ISZ D1633 C1771, C1771, 2600 / ISZ I S1600 ISZ D0021 / @@1772=2021 C1773, C1773, 2200 / ISZ S1600 AND C1752 / @@1774=0352 C1775, 4051 / JMS C0051 C1776, 0000 / AND L0000 TAD I L1716 / @@1777=1716 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2000 / / Called from: / 2223 2225 2301 2332 2343 2616 2644 2745 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S2000, 0 / return area C2001, 7300 / CLA CLL C2002, 1047 / TAD C0047 CIA / @@2003=7041 C2004, 3047 / DCA C0047 TAD D0046 / @@2005=1046 CMA / @@2006=7040 SZL / @@2007=7430 CLL IAC / @@2010=7101 DCA D0046 / @@2011=3046 TAD D0045 / @@2012=1045 CMA / @@2013=7040 SZL / @@2014=7430 IAC / @@2015=7001 CLL / @@2016=7100 DCA D0045 / @@2017=3045 JMP I S2000 / return @@2020=5600 D2021, 0000 / AND L0000 TAD D0045 / @@2022=1045 SZA CLA / @@2023=7640 JMP L2030 / @@2024=5230 TAD D0046 / @@2025=1046 SNA CLA / @@2026=7650 JMP L2143 / @@2027=5343 L2030, C2030, 1041 / TAD C0041 SZA CLA / @@2031=7640 JMP L2036 / @@2032=5236 C2033, 1042 / TAD C0042 SNA CLA / @@2034=7650 JMP I D2021 / long jump to L0000 @@2035=5621 L2036, C2036, 1040 / TAD C0040 CIA / @@2037=7041 TAD D0044 / @@2040=1044 SNA / @@2041=7450 JMP L2117 / @@2042=5317 SPA / @@2043=7510 CIA / @@2044=7041 DCA D2146 / @@2045=3346 TAD D2146 / @@2046=1346 TAD C2147 / @@2047=1347 SPA CLA / @@2050=7710 JMP L2057 / @@2051=5257 JMS S2122 / @@2052=4322 SZL / @@2053=7430 TAD C2154 / @@2054=1354 TAD C2153 / @@2055=1353 JMP L2131 / @@2056=5331 L2057, JMS S2122 / @@2057=4322 SNL / @@2060=7420 TAD C2154 / @@2061=1354 TAD C2153 / @@2062=1353 DCA D2150 / @@2063=3350 TAD I D2150 / @@2064=1750 TAD D2146 / @@2065=1346 DCA I D2150 / @@2066=3750 TAD D2146 / @@2067=1346 CLL CMA IAC / @@2070=7141 DCA D2146 / @@2071=3346 ISZ D2150 / @@2072=2350 TAD D2150 / @@2073=1350 DCA D2151 / @@2074=3351 ISZ D2151 / @@2075=2351 TAD D2151 / @@2076=1351 DCA D2152 / @@2077=3352 ISZ D2152 / @@2100=2352 L2101, CLL / @@2101=7100 C2102, 1750 / TAD I D2150 SPA / @@2103=7510 CML / @@2104=7020 RAR / @@2105=7010 DCA I D2150 / @@2106=3750 TAD I D2151 / @@2107=1751 RAR / @@2110=7010 DCA I D2151 / @@2111=3751 TAD I D2152 / @@2112=1752 RAR / @@2113=7010 DCA I D2152 / @@2114=3752 ISZ D2146 / @@2115=2346 JMP L2101 / @@2116=5301 L2117, CLA CLL / AC = 0000 @@2117=7300 ISZ D2021 / @@2120=2221 JMP I D2021 / long jump to L0000 @@2121=5621 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2122 / / Called from: / 2052 2057 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2122, 0 / return area C2123, 1040 / TAD C0040 CIA / @@2124=7041 TAD D0044 / @@2125=1044 RAL / @@2126=7004 CLA / @@2127=7200 JMP I S2122 / return @@2130=5722 L2131, DCA D2150 / @@2131=3350 TAD I D2150 / @@2132=1750 DCA D0044 / @@2133=3044 ISZ D2150 / @@2134=2350 TAD I D2150 / @@2135=1750 DCA D0045 / @@2136=3045 ISZ D2150 / @@2137=2350 TAD I D2150 / @@2140=1750 DCA D0046 / @@2141=3046 JMP I D2021 / long jump to L0000 @@2142=5621 L2143, C2143, 1040 / TAD C0040 DCA D0044 / @@2144=3044 JMP L2117 / @@2145=5317 D2146, 0000 / AND L0000 C2147, 7750 / SPA SNA CLA D2150, 0000 / AND L0000 D2151, 0000 / AND L0000 D2152, 0000 / AND L0000 C2153, 0044 / AND D0044 C2154, 7774 / SPA SNA SZL CLA OSR C2155, C2155, 1601 / TAD I C2001 C2156, 1040 / TAD C0040 DCA D0044 / @@2157=3044 C2160, 1041 / TAD C0041 DCA D0045 / @@2161=3045 C2162, 1042 / TAD C0042 DCA D0046 / @@2163=3046 JMP I C2155 / long jump to L1601 @@2164=5755 L2165, TAD C2175 / @@2165=1375 DCA D0044 / @@2166=3044 TAD C2175 / @@2167=1375 DCA D0045 / @@2170=3045 CMA / @@2171=7040 DCA D0046 / @@2172=3046 C2173, 2061 / ISZ C0061 JMP I C2155 / long jump to L1601 @@2174=5755 C2175, 3777 / DCA I C2177 C2176, 0000 / AND L0000 ISZ D0024 / @@2177=2024 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2200 / / Called from: / 1720 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2200, 0 / return area C2201, 7300 / CLA CLL C2202, 1041 / TAD C0041 SMA CLA / @@2203=7700 JMP L2211 / @@2204=5211 JMS I C2367 / long call to S2400 @@2205=4767 JMS I C2370 / long call to S2421 @@2206=4770 JMS I C2367 / long call to S2400 @@2207=4767 SKP / @@2210=7410 L2211, JMS I C2370 / long call to S2421 @@2211=4770 C2212, 2040 / ISZ C0040 NOP / @@2213=7000 JMS S2216 / @@2214=4216 JMP I S2200 / return @@2215=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2216 / / Called from: / 2214 2303 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2216, 0 / return area CLA CLL / AC = 0000 @@2217=7300 TAD D0045 / @@2220=1045 C2221, 7700 / SMA CLA JMP L2227 / @@2222=5227 JMS I C2372 / long call to S2000 @@2223=4772 JMS I C2371 / long call to S2436 @@2224=4771 JMS I C2372 / long call to S2000 @@2225=4772 SKP / @@2226=7410 L2227, JMS I C2371 / long call to S2436 @@2227=4771 ISZ D0044 / @@2230=2044 NOP / @@2231=7000 JMP I S2216 / return @@2232=5616 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2233 / / Called from: / 1765 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2233, 0 / return area CLA CLL / AC = 0000 @@2234=7300 TAD C2221 / @@2235=1221 DCA D2346 / @@2236=3346 JMS S2335 / @@2237=4335 TAD D0045 / @@2240=1045 DCA I C2355 / @@2241=3755 C2242, 1042 / TAD C0042 JMS I C2354 / long call to S2453 @@2243=4754 DCA D2364 / @@2244=3364 TAD I C2356 / @@2245=1756 DCA D2365 / @@2246=3365 C2247, 1041 / TAD C0041 DCA I C2355 / @@2250=3755 TAD D0046 / @@2251=1046 JMS I C2354 / long call to S2453 @@2252=4754 TAD D2364 / @@2253=1364 DCA D2364 / @@2254=3364 C2255, 7004 / RAL TAD I C2356 / @@2256=1756 TAD D2365 / @@2257=1365 DCA D2365 / @@2260=3365 RAL / @@2261=7004 DCA D2366 / @@2262=3366 TAD D0045 / @@2263=1045 DCA I C2355 / @@2264=3755 C2265, 1041 / TAD C0041 JMS I C2354 / long call to S2453 @@2266=4754 TAD D2365 / @@2267=1365 DCA D0046 / @@2270=3046 RAL / @@2271=7004 TAD I C2356 / @@2272=1756 TAD D2366 / @@2273=1366 DCA D0045 / @@2274=3045 TAD D2364 / @@2275=1364 C2276, 3047 / DCA C0047 ISZ D2362 / @@2277=2362 JMP I S2233 / return @@2300=5633 JMS I C2372 / long call to S2000 @@2301=4772 JMP I S2233 / return @@2302=5633 JMS S2216 / @@2303=4216 C2304, 3061 / DCA C0061 C2305, 1041 / TAD C0041 SZA CLA / @@2306=7640 JMP L2313 / @@2307=5313 C2310, 1042 / TAD C0042 SNA CLA / @@2311=7650 JMP I C2373 / long jump to L2165 @@2312=5773 L2313, C2313, 1040 / TAD C0040 CIA / @@2314=7041 TAD D0044 / @@2315=1044 DCA D0044 / @@2316=3044 TAD C2360 / @@2317=1360 C2320, 3346 / DCA D2346 JMS S2335 / @@2321=4335 JMS I C2357 / long call to S2506 @@2322=4757 TAD I C2356 / @@2323=1756 C2324, 1041 / TAD C0041 SMA CLA / @@2325=7700 IAC / @@2326=7001 C2327, 3042 / DCA C0042 C2330, 3041 / DCA C0041 ISZ D2362 / @@2331=2362 JMS I C2372 / long call to S2000 @@2332=4772 JMP I C2334 / long jump to L1720 @@2333=5734 C2334, C2334, 1720 / TAD I C2320 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2335 / / Called from: / 2237 2321 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2335, 0 / return area TAD C2363 / @@2336=1363 DCA D2362 / @@2337=3362 TAD D0045 / @@2340=1045 SMA CLA / @@2341=7700 JMP L2345 / @@2342=5345 JMS I C2372 / long call to S2000 @@2343=4772 ISZ D2362 / @@2344=2362 L2345, C2345, 1041 / TAD C0041 D2346, 7700 / SMA CLA JMP L2353 / @@2347=5353 JMS I C2367 / long call to S2400 @@2350=4767 ISZ D2362 / @@2351=2362 NOP / @@2352=7000 L2353, JMP I S2335 / return @@2353=5735 C2354, C2354, 2453 / ISZ I C0053 C2355, 2505 / ISZ I L0105 C2356, 2501 / ISZ I C0101 C2357, C2357, 2506 / ISZ I C0106 C2360, 7710 / SPA CLA TAD I C2201 / @@2361=1601 D2362, 0000 / AND L0000 C2363, 7776 / SPA SNA SZL CLA OSR HLT D2364, 0000 / AND L0000 D2365, 0000 / AND L0000 D2366, 0000 / AND L0000 C2367, C2367, 2400 / ISZ I L0000 C2370, C2370, 2421 / ISZ I D0021 C2371, C2371, 2436 / ISZ I C0036 C2372, C2372, 2000 / ISZ L0000 C2373, C2373, 2165 / ISZ D0165 AND C2255 / @@2374=0255 C2375, 4674 / JMS I C2274 C2376, 0000 / AND L0000 C2377, 2063 / ISZ C0063 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2400 / / Called from: / 2205 2207 2350 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S2400, 0 / return area CLA CLL / AC = 0000 @@2401=7300 C2402, 1043 / TAD C0043 CIA / @@2403=7041 C2404, 3043 / DCA C0043 C2405, 1042 / TAD C0042 CMA / @@2406=7040 SZL / @@2407=7430 CLL IAC / @@2410=7101 C2411, 3042 / DCA C0042 C2412, 1041 / TAD C0041 CMA / @@2413=7040 SZL / @@2414=7430 IAC / @@2415=7001 CLL / @@2416=7100 C2417, 3041 / DCA C0041 JMP I S2400 / return @@2420=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2421 / / Called from: / 2206 2211 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2421, 0 / return area CLA CLL / AC = 0000 @@2422=7300 C2423, 1041 / TAD C0041 RAR / @@2424=7010 C2425, 3041 / DCA C0041 C2426, 1042 / TAD C0042 RAR / @@2427=7010 C2430, 3042 / DCA C0042 C2431, 1043 / TAD C0043 RAR / @@2432=7010 C2433, 3043 / DCA C0043 CLL / @@2434=7100 JMP I S2421 / return @@2435=5621 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2436 / / Called from: / 2224 2227 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2436, 0 / return area CLA CLL / AC = 0000 @@2437=7300 TAD D0045 / @@2440=1045 RAR / @@2441=7010 DCA D0045 / @@2442=3045 TAD D0046 / @@2443=1046 RAR / @@2444=7010 DCA D0046 / @@2445=3046 C2446, 1047 / TAD C0047 RAR / @@2447=7010 C2450, 3047 / DCA C0047 CLL / @@2451=7100 JMP I S2436 / return @@2452=5636 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2453 / / Called from: / 2243 2252 2266 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S2453, 0 / return area DCA D2502 / @@2454=3302 DCA D2501 / @@2455=3301 TAD C2504 / @@2456=1304 DCA D2503 / @@2457=3303 CLL / @@2460=7100 L2461, TAD D2502 / @@2461=1302 RAR / @@2462=7010 DCA D2502 / @@2463=3302 TAD D2501 / @@2464=1301 SNL / @@2465=7420 JMP L2471 / @@2466=5271 CLL / @@2467=7100 TAD D2505 / @@2470=1305 L2471, RAR / @@2471=7010 DCA D2501 / @@2472=3301 ISZ D2503 / @@2473=2303 JMP L2461 / @@2474=5261 TAD D2502 / @@2475=1302 RAR / @@2476=7010 CLL / @@2477=7100 JMP I S2453 / return @@2500=5653 D2501, 0000 / AND L0000 D2502, 0000 / AND L0000 D2503, 0000 / AND L0000 C2504, 7764 / SMA SZA SNL CLA OSR D2505, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2506 / / Called from: / 2322 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2506, 0 / return area CLA CLL / AC = 0000 @@2507=7300 C2510, 3051 / DCA C0051 TAD C2560 / @@2511=1360 DCA D2503 / @@2512=3303 JMP L2533 / @@2513=5333 L2514, TAD D0046 / @@2514=1046 RAL / @@2515=7004 DCA D0046 / @@2516=3046 TAD D0045 / @@2517=1045 RAL / @@2520=7004 DCA D0045 / @@2521=3045 C2522, 1042 / TAD C0042 TAD D0046 / @@2523=1046 DCA D2505 / @@2524=3305 RAL / @@2525=7004 TAD D0045 / @@2526=1045 C2527, 1041 / TAD C0041 SZL / @@2530=7430 JMP L2554 / @@2531=5354 CLA / @@2532=7200 L2533, C2533, 1051 / TAD C0051 RAL / @@2534=7004 C2535, 3051 / DCA C0051 C2536, 1047 / TAD C0047 RAL / @@2537=7004 C2540, 3047 / DCA C0047 ISZ D2503 / @@2541=2303 JMP L2514 / @@2542=5314 C2543, 1051 / TAD C0051 DCA D0046 / @@2544=3046 TAD D0045 / @@2545=1045 DCA D2501 / @@2546=3301 C2547, 1047 / TAD C0047 DCA D0045 / @@2550=3045 C2551, 3043 / DCA C0043 C2552, 3047 / DCA C0047 JMP I S2506 / return @@2553=5706 L2554, DCA D0045 / @@2554=3045 TAD D2505 / @@2555=1305 DCA D0046 / @@2556=3046 JMP L2533 / @@2557=5333 C2560, 7750 / SPA SNA CLA C2561, C2561, 0000 / AND L0000 JMS I C0007 / long call to S1600 @@2562=4407 C2563, 6052 / 6052 C2564, 3052 / DCA C0052 C2565, 0000 / AND L0000 JMP I C2561 / long jump to L0000 @@2566=5761 ISZ I C0161 / @@2567=2561 ISZ I S2453 / @@2570=2653 ISZ I D0176 / @@2571=2576 ISZ I D0176 / @@2572=2576 ISZ I D0176 / @@2573=2576 ISZ I D0176 / @@2574=2576 ISZ I D0176 / @@2575=2576 C2576, C2576, 0000 / AND L0000 JMP I C2576 / long jump to L0000 @@2577=5776 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2600 / / Called from: / 1735 1766 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2600, 0 / return area CLA CLL / AC = 0000 @@2601=7300 DCA D2652 / @@2602=3252 DCA D2651 / @@2603=3251 TAD D0045 / @@2604=1045 SPA / @@2605=7510 ISZ D2651 / @@2606=2251 SZA CLA / @@2607=7640 JMP L2614 / @@2610=5214 TAD D0046 / @@2611=1046 SNA CLA / @@2612=7650 JMP L2646 / @@2613=5246 L2614, TAD D2651 / @@2614=1251 SZA CLA / @@2615=7640 JMS I C2650 / long call to S2000 @@2616=4650 L2617, TAD D0045 / @@2617=1045 CLL RAL / @@2620=7104 SPA CLA / @@2621=7710 JMP L2636 / @@2622=5236 C2623, 1047 / TAD C0047 CLL RAL / @@2624=7104 C2625, 3047 / DCA C0047 TAD D0046 / @@2626=1046 RAL / @@2627=7004 DCA D0046 / @@2630=3046 TAD D0045 / @@2631=1045 RAL / @@2632=7004 DCA D0045 / @@2633=3045 ISZ D2652 / @@2634=2252 JMP L2617 / @@2635=5217 L2636, TAD D2652 / @@2636=1252 CIA / @@2637=7041 TAD D0044 / @@2640=1044 DCA D0044 / @@2641=3044 TAD D2651 / @@2642=1251 SZA CLA / @@2643=7640 JMS I C2650 / long call to S2000 @@2644=4650 JMP I S2600 / return @@2645=5600 L2646, DCA D0044 / @@2646=3044 JMP I S2600 / return @@2647=5600 C2650, C2650, 2000 / ISZ L0000 D2651, 0000 / AND L0000 D2652, 0000 / AND L0000 C2653, C2653, 0000 / AND L0000 DCA D2762 / @@2654=3362 L2655, JMS I C0007 / long call to S1600 @@2655=4407 C2656, 6052 / 6052 C2657, 0000 / AND L0000 TAD D0045 / @@2660=1045 SPA CLA / @@2661=7710 C2662, 5345 / JMP L2745 TAD D0044 / @@2663=1044 CLL / @@2664=7100 SPA / @@2665=7510 CML / @@2666=7020 RAR / @@2667=7010 DCA D2755 / @@2670=3355 SZL / @@2671=7430 ISZ D2755 / @@2672=2355 NOP / @@2673=7000 TAD C2761 / @@2674=1361 DCA D2756 / @@2675=3356 DCA D2757 / @@2676=3357 NOP / @@2677=7000 C2700, 1053 / TAD C0053 SZA CLA / @@2701=7640 JMP L2706 / @@2702=5306 C2703, 1054 / TAD C0054 SNA CLA / @@2704=7650 JMP L2751 / @@2705=5351 L2706, JMS I C0007 / long call to S1600 @@2706=4407 C2707, 5052 / JMP C0052 JMS D2755 / @@2710=4355 TAD D2755 / @@2711=1355 C2712, 0000 / AND L0000 STA / AC = 7777 (-0001) @@2713=7240 TAD D0044 / @@2714=1044 DCA D0044 / @@2715=3044 TAD D0044 / @@2716=1044 CIA / @@2717=7041 TAD D2755 / @@2720=1355 SZA CLA / @@2721=7640 JMP L2741 / @@2722=5341 TAD D0045 / @@2723=1045 CIA / @@2724=7041 TAD D2756 / @@2725=1356 SZA CLA / @@2726=7640 D2727, 5341 / JMP L2741 TAD D0046 / @@2730=1046 CIA / @@2731=7041 TAD D2757 / @@2732=1357 SMA / @@2733=7500 CIA / @@2734=7041 IAC / @@2735=7001 SPA CLA / @@2736=7710 JMP L2741 / @@2737=5341 JMP L2763 / @@2740=5363 L2741, JMS I C0007 / long call to S1600 @@2741=4407 C2742, 6355 / 6355 C2743, 0000 / AND L0000 JMP L2706 / @@2744=5306 L2745, JMS I C2750 / long call to S2000 @@2745=4750 ISZ D2762 / @@2746=2362 JMP L2655 / @@2747=5255 C2750, C2750, 2000 / ISZ L0000 L2751, DCA D0044 / @@2751=3044 DCA D0045 / @@2752=3045 DCA D0046 / @@2753=3046 JMP I C2653 / long jump to L0000 @@2754=5653 D2755, 0000 / AND L0000 D2756, 0000 / AND L0000 D2757, 0000 / AND L0000 C2760, 1015 / TAD AI5 C2761, 2600 / ISZ I S2600 D2762, 0000 / AND L0000 L2763, TAD D2762 / @@2763=1362 C2764, 3061 / DCA C0061 JMP I C2653 / long jump to L0000 @@2765=5653 C2766, C2766, 3165 / DCA D0165 TAD C0056 / @@2767=1056 SNA CLA / @@2770=7650 JMP I C2766 / long jump to L3165 @@2771=5766 TAD C2776 / @@2772=1376 JMS I C2775 / long call to S3327 @@2773=4775 JMP I C2766 / long jump to L3165 @@2774=5766 C2775, C2775, 3327 / DCA D2727 C2776, 0212 / AND C2612 AND I C2662 / @@2777=0662 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3000 / / Called from: / 3203 3240 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3000, 0 / return area CLA / @@3001=7200 DCA D0045 / @@3002=3045 DCA D0046 / @@3003=3046 DCA D3066 / @@3004=3266 DCA D3067 / @@3005=3267 C3006, 3060 / DCA C0060 JMS S3144 / @@3007=4344 TAD C3140 / @@3010=1340 SNA / @@3011=7450 JMP L3020 / @@3012=5220 TAD C3137 / @@3013=1337 SZA / @@3014=7440 JMP L3021 / @@3015=5221 STA / AC = 7777 (-0001) @@3016=7240 DCA D3066 / @@3017=3266 L3020, JMS S3144 / @@3020=4344 L3021, CLA / @@3021=7200 TAD D0057 / @@3022=1057 TAD C3141 / @@3023=1341 SMA / @@3024=7500 JMP I S3000 / return @@3025=5600 TAD C3142 / @@3026=1342 SPA / @@3027=7510 JMP I S3000 / return @@3030=5600 DCA D3064 / @@3031=3264 TAD D0045 / @@3032=1045 AND C3143 / @@3033=0343 SZA / @@3034=7440 JMP L3020 / @@3035=5220 C3036, 2060 / ISZ C0060 ISZ D3067 / @@3037=2267 JMS S3042 / @@3040=4242 JMP L3020 / @@3041=5220 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3042 / / Called from: / 3040 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3042, 0 / return area TAD D0046 / @@3043=1046 DCA D3062 / @@3044=3262 TAD D0045 / @@3045=1045 DCA D3063 / @@3046=3263 DCA D3065 / @@3047=3265 JMS S3070 / @@3050=4270 JMS S3070 / @@3051=4270 JMS S3104 / @@3052=4304 JMS S3070 / @@3053=4270 TAD D3064 / @@3054=1264 DCA D3062 / @@3055=3262 DCA D3063 / @@3056=3263 JMS S3104 / @@3057=4304 TAD D3065 / @@3060=1265 JMP I S3042 / return @@3061=5642 D3062, 0000 / AND L0000 D3063, 0000 / AND L0000 D3064, 0000 / AND L0000 D3065, 0000 / AND L0000 D3066, 0000 / AND L0000 D3067, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3070 / / Called from: / 3050 3051 3053 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S3070, 0 / return area CLA CLL / AC = 0000 @@3071=7300 TAD D0046 / @@3072=1046 RAL / @@3073=7004 DCA D0046 / @@3074=3046 TAD D0045 / @@3075=1045 RAL / @@3076=7004 DCA D0045 / @@3077=3045 TAD D3065 / @@3100=1265 RAL / @@3101=7004 DCA D3065 / @@3102=3265 JMP I S3070 / return @@3103=5670 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3104 / / Called from: / 3052 3057 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3104, 0 / return area CLA CLL / AC = 0000 @@3105=7300 TAD D0046 / @@3106=1046 TAD D3062 / @@3107=1262 DCA D0046 / @@3110=3046 RAL / @@3111=7004 TAD D0045 / @@3112=1045 TAD D3063 / @@3113=1263 DCA D0045 / @@3114=3045 RAL / @@3115=7004 TAD D3065 / @@3116=1265 DCA D3065 / @@3117=3265 JMP I S3104 / return @@3120=5704 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3121 / / Called from: / 3224 3241 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3121, 0 / return area CLA CLL / AC = 0000 @@3122=7300 TAD D3066 / @@3123=1266 SMA CLA / @@3124=7700 JMP I S3121 / return @@3125=5721 TAD D0046 / @@3126=1046 D3127, 7041 / CIA DCA D0046 / @@3130=3046 TAD D0045 / @@3131=1045 CMA / @@3132=7040 SZL / @@3133=7430 IAC / @@3134=7001 D3135, 3045 / DCA D0045 JMP I S3121 / return @@3136=5721 C3137, 7776 / SPA SNA SZL CLA OSR HLT C3140, 7525 / MQA MQL MUY + C3141, 7506 / SMA OSR HLT C3142, 0012 / AND AI2 C3143, 7600 / 7600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3144 / / Called from: / 3007 3020 3414 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S3144, 0 / return area L3145, D3145, 7200 / CLA L3146, KSF / Skip if keyboard flag is a 1. @@3146=6031 JMP L3146 / @@3147=5346 KRB / Clear AC, clear keyboard flag, and r @@3150=6036 DCA D0057 / @@3151=3057 TAD D0057 / @@3152=1057 JMS I C3170 / long call to S3327 @@3153=4770 TAD D0057 / @@3154=1057 SNA / @@3155=7450 JMP L3145 / @@3156=5345 TAD C3171 / @@3157=1371 SNA / @@3160=7450 JMP L3145 / @@3161=5345 TAD C3172 / @@3162=1372 SNA CLA / @@3163=7650 C3164, 4767 / JMS I C3167 L3165, TAD D0057 / @@3165=1057 L3166, C3166, 5744 / JMP I S3144 ISZ I L3166 / @@3167=2766 C3170, C3170, 3327 / DCA D3127 C3171, 7401 / NOP C3172, 0162 / AND C0162 CLA / @@3173=7200 JMP L3146 / @@3174=5346 DCA D3135 / @@3175=3335 DCA D0176 / @@3176=3176 DCA D0177 / @@3177=3177 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3200 / / Called from: / 3406 3422 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3200, 0 / return area STA / AC = 7777 (-0001) @@3201=7240 DCA D3320 / @@3202=3320 JMS I C3323 / long call to S3000 @@3203=4723 CLA / @@3204=7200 TAD D0057 / @@3205=1057 TAD C3317 / @@3206=1317 SZA CLA / @@3207=7640 JMP L3217 / @@3210=5217 TAD D3320 / @@3211=1320 SNA CLA / @@3212=7650 JMP L3221 / @@3213=5221 DCA I C3326 / @@3214=3726 DCA D3320 / @@3215=3320 JMP I C3324 / long jump to L3020 @@3216=5724 L3217, TAD D3320 / @@3217=1320 SNA CLA / @@3220=7650 L3221, TAD I C3326 / @@3221=1726 CIA / @@3222=7041 DCA D3321 / @@3223=3321 JMS I C3325 / long call to S3121 @@3224=4725 TAD C3316 / @@3225=1316 DCA D0044 / @@3226=3044 JMS I C0007 / long call to S1600 @@3227=4407 NOP / @@3230=7000 C3231, 6052 / 6052 C3232, 0000 / AND L0000 CLA / @@3233=7200 TAD D0057 / @@3234=1057 TAD C3315 / @@3235=1315 SZA CLA / @@3236=7640 JMP L3261 / @@3237=5261 JMS I C3323 / long call to S3000 @@3240=4723 JMS I C3325 / long call to S3121 @@3241=4725 TAD D0045 / @@3242=1045 SPA / @@3243=7510 IAC / @@3244=7001 SZA / @@3245=7440 JMP L3253 / @@3246=5253 TAD D0046 / @@3247=1046 TAD D3321 / @@3250=1321 DCA D3321 / @@3251=3321 JMP L3261 / @@3252=5261 L3253, CLA / @@3253=7200 TAD C3322 / @@3254=1322 DCA D0044 / @@3255=3044 TAD C3322 / @@3256=1322 DCA D0045 / @@3257=3045 JMP I S3200 / return @@3260=5600 L3261, JMS I C0007 / long call to S1600 @@3261=4407 C3262, 5052 / JMP C0052 C3263, 0000 / AND L0000 L3264, CLA / @@3264=7200 TAD D3321 / @@3265=1321 SNA / @@3266=7450 JMP I S3200 / return @@3267=5600 SMA CLA / @@3270=7700 JMP L3300 / @@3271=5300 JMS I C0007 / long call to S1600 @@3272=4407 DCA D3312 / @@3273=3312 C3274, 0000 / AND L0000 ISZ D3321 / @@3275=2321 JMP L3264 / @@3276=5264 JMP I S3200 / return @@3277=5600 L3300, JMS I C0007 / long call to S1600 @@3300=4407 DCA D3307 / @@3301=3307 C3302, 0000 / AND L0000 STA / AC = 7777 (-0001) @@3303=7240 TAD D3321 / @@3304=1321 DCA D3321 / @@3305=3321 JMP L3264 / @@3306=5264 D3307, 0004 / AND C0004 C3310, 2400 / ISZ I L0000 C3311, 0000 / AND L0000 D3312, 7775 / CLA MQA SCA MQL ASR + DCA D0146 / @@3313=3146 DCA D0150 / @@3314=3150 C3315, 7473 / SCA MQL SHL + C3316, 0027 / AND D0027 C3317, 7522 / SMA SNL HLT D3320, 0000 / AND L0000 D3321, 0000 / AND L0000 C3322, 3777 / DCA I D3377 C3323, C3323, 3000 / DCA L0000 C3324, C3324, 3020 / DCA D0020 C3325, C3325, 3121 / DCA D0121 C3326, 3067 / DCA C0067 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3327 / / Called from: / 2773 3153 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3327, 0 / return area L3330, TSF / Skip if teleprinter flag is a 1. @@3330=6041 JMP L3330 / @@3331=5330 TLS / Load the TTO from the content of AC4 @@3332=6046 CLA / @@3333=7200 JMP I S3327 / return @@3334=5727 L3335, CLA / @@3335=7200 TAD D3361 / @@3336=1361 SNA CLA / @@3337=7650 JMP L3344 / @@3340=5344 DCA D3361 / @@3341=3361 TAD D0057 / @@3342=1057 JMP I C3362 / long jump to L3166 @@3343=5762 L3344, JMP I C3345 / long jump to L4535 @@3344=5745 C3345, C3345, 4535 / JMS I C0135 L3346, CLA / @@3346=7200 RFB / Read the content of the reader buffe @@3347=6012 RFC / Clear reader flag and reader buffer, @@3350=6014 DCA D0057 / @@3351=3057 TAD D0057 / @@3352=1057 TAD C3360 / @@3353=1360 SNA CLA / @@3354=7650 JMP L3335 / @@3355=5335 L3356, TAD D0057 / @@3356=1057 JMP I C3362 / long jump to L3166 @@3357=5762 C3360, 7401 / NOP D3361, 0000 / AND L0000 C3362, C3362, 3166 / DCA D0166 D3363, 3363 / DCA D3363 D3364, 3364 / DCA D3364 D3365, 3365 / DCA D3365 D3366, 3366 / DCA D3366 D3367, 3367 / DCA D3367 D3370, 3370 / DCA D3370 D3371, 3371 / DCA D3371 D3372, 3372 / DCA D3372 D3373, 3373 / DCA D3373 D3374, 3374 / DCA D3374 D3375, 3375 / DCA D3375 D3376, 3376 / DCA D3376 D3377, 3377 / DCA D3377 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3400 / / Called from: / 0431 0443 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3400, 0 / return area CLA / @@3401=7200 TAD C3424 / @@3402=1224 DCA I C3426 / @@3403=3626 IAC / @@3404=7001 DCA I C3427 / @@3405=3627 JMS I C3430 / long call to S3200 @@3406=4630 JMP I S3400 / return @@3407=5600 C3410, C3410, 0000 / AND L0000 CLA / @@3411=7200 TAD C3424 / @@3412=1224 DCA I C3426 / @@3413=3626 JMS I C3431 / long call to S3144 @@3414=4631 JMP I C3410 / long jump to L0000 @@3415=5610 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3416 / / Called from: / 0223 0230 0240 0245 0252 0260 0265 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S3416, 0 / return area CLA / @@3417=7200 TAD C3425 / @@3420=1225 DCA I C3426 / @@3421=3626 JMS I C3430 / long call to S3200 @@3422=4630 JMP I S3416 / return @@3423=5616 C3424, 5775 / JMP I C3575 C3425, 5373 / JMP C3573 C3426, 3145 / DCA C0145 C3427, 3361 / DCA C3561 C3430, C3430, 3200 / DCA S3400 C3431, C3431, 3144 / DCA D0144 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3432 / / Called from: / 0511 0623 0676 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S3432, 0 / return area JMP L3465 / @@3433=5265 L3434, TAD D0044 / @@3434=1044 TAD C3464 / @@3435=1264 DCA D0044 / @@3436=3044 TAD D0046 / @@3437=1046 CLL RAL / @@3440=7104 CLA / @@3441=7200 TAD D0045 / @@3442=1045 RAL / @@3443=7004 DCA D0045 / @@3444=3045 TAD D0046 / @@3445=1046 RTL / @@3446=7006 CLA / @@3447=7200 TAD D0045 / @@3450=1045 L3451, ISZ D0044 / @@3451=2044 JMP L3462 / @@3452=5262 SNL / @@3453=7420 JMP I S3432 / return @@3454=5632 IAC / @@3455=7001 SZL / @@3456=7430 JMP I S3432 / return @@3457=5632 CMA / @@3460=7040 JMP I S3432 / return @@3461=5632 L3462, CLL RAR / @@3462=7110 JMP L3451 / @@3463=5251 C3464, 7763 / CLA MQA SCA MQL SCL + L3465, CLA / @@3465=7200 TAD D0045 / @@3466=1045 SMA CLA / @@3467=7700 JMP L3434 / @@3470=5234 JMP I S3432 / return @@3471=5632 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3472 / / Called from: / 0473 0503 0524 0534 0606 0615 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S3472, 0 / return area JMS I C0007 / long call to S1600 @@3473=4407 TAD C3500 / @@3474=1300 C3475, 0000 / AND L0000 TAD D0045 / @@3476=1045 JMP I S3472 / return @@3477=5672 C3500, 7777 / CLA MQA SCA MQL LSR + DCA I C3577 / @@3501=3777 C3502, 7777 / CLA MQA SCA MQL LSR + C3503, 0000 / AND L0000 C3504, 0000 / AND L0000 C3505, 0000 / AND L0000 C3506, 0000 / AND L0000 C3507, 0000 / AND L0000 C3510, 0000 / AND L0000 C3511, 0000 / AND L0000 C3512, 0000 / AND L0000 C3513, 0000 / AND L0000 C3514, 0000 / AND L0000 C3515, 0000 / AND L0000 C3516, 0000 / AND L0000 C3517, 0000 / AND L0000 C3520, 0000 / AND L0000 C3521, 0000 / AND L0000 C3522, 0000 / AND L0000 C3523, 0000 / AND L0000 C3524, 0000 / AND L0000 C3525, 0000 / AND L0000 C3526, 0000 / AND L0000 C3527, 0000 / AND L0000 C3530, 0000 / AND L0000 C3531, 0000 / AND L0000 C3532, 0000 / AND L0000 C3533, 0000 / AND L0000 C3534, 0000 / AND L0000 C3535, 0000 / AND L0000 C3536, 0000 / AND L0000 C3537, 0000 / AND L0000 C3540, 0000 / AND L0000 C3541, 0000 / AND L0000 C3542, 0000 / AND L0000 C3543, 0000 / AND L0000 C3544, 0000 / AND L0000 C3545, 0000 / AND L0000 C3546, 0000 / AND L0000 C3547, 0000 / AND L0000 C3550, 0000 / AND L0000 C3551, 0000 / AND L0000 C3552, 0000 / AND L0000 C3553, 0000 / AND L0000 C3554, 0000 / AND L0000 C3555, 0000 / AND L0000 C3556, 0000 / AND L0000 C3557, 0000 / AND L0000 C3560, 0000 / AND L0000 C3561, 0000 / AND L0000 C3562, 0000 / AND L0000 C3563, 0000 / AND L0000 C3564, 0000 / AND L0000 C3565, 0000 / AND L0000 C3566, 0000 / AND L0000 C3567, 0000 / AND L0000 C3570, 0000 / AND L0000 C3571, 0000 / AND L0000 C3572, 0000 / AND L0000 C3573, 0000 / AND L0000 C3574, 0000 / AND L0000 C3575, 0000 / AND L0000 C3576, 0000 / AND L0000 C3577, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3600 / / Called from: / 0327 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3600, 0 / return area C3601, 4755 / JMS I C3755 CLA / @@3602=7200 TAD C3760 / @@3603=1360 DCA D3757 / @@3604=3357 L3605, TAD C3761 / @@3605=1361 CIA / @@3606=7041 DCA D3756 / @@3607=3356 L3610, C3610, 4750 / JMS I C3750 ISZ D3756 / @@3611=2356 JMP L3610 / @@3612=5210 CLA / @@3613=7200 TAD C3762 / @@3614=1362 DCA D3756 / @@3615=3356 L3616, C3616, 4751 / JMS I C3751 ISZ D3756 / @@3617=2356 JMP L3616 / @@3620=5216 CLA / @@3621=7200 TAD C3762 / @@3622=1362 DCA D3756 / @@3623=3356 L3624, C3624, 4753 / JMS I C3753 ISZ D3756 / @@3625=2356 JMP L3624 / @@3626=5224 ISZ D3757 / @@3627=2357 JMP L3605 / @@3630=5205 C3631, 4754 / JMS I C3754 CLA / @@3632=7200 TAD C3763 / @@3633=1363 CIA / @@3634=7041 DCA D3756 / @@3635=3356 L3636, C3636, 4752 / JMS I C3752 ISZ D3756 / @@3637=2356 JMP L3636 / @@3640=5236 JMP I S3600 / return @@3641=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3642 / / Called from: / 0706 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3642, 0 / return area C3643, 4754 / JMS I C3754 TAD D0020 / @@3644=1020 CMA / @@3645=7040 DCA D3756 / @@3646=3356 L3647, ISZ D3756 / @@3647=2356 JMP L3652 / @@3650=5252 JMP L3654 / @@3651=5254 L3652, C3652, 4751 / JMS I C3751 JMP L3647 / @@3653=5247 L3654, CLA / @@3654=7200 TAD D0021 / @@3655=1021 CMA / @@3656=7040 DCA D3756 / @@3657=3356 L3660, ISZ D3756 / @@3660=2356 JMP L3663 / @@3661=5263 JMP I S3642 / return @@3662=5642 L3663, C3663, 4752 / JMS I C3752 JMP L3660 / @@3664=5260 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3665 / / Called from: / 0713 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3665, 0 / return area C3666, 4755 / JMS I C3755 CLA / @@3667=7200 TAD L0102 / @@3670=1102 CIA / @@3671=7041 DCA D3757 / @@3672=3357 L3673, CLA / @@3673=7200 TAD C3761 / @@3674=1361 CIA / @@3675=7041 DCA D3756 / @@3676=3356 L3677, C3677, 4753 / JMS I C3753 ISZ D3756 / @@3700=2356 JMP L3677 / @@3701=5277 CLA / @@3702=7200 TAD C3762 / @@3703=1362 DCA D3756 / @@3704=3356 L3705, C3705, 4752 / JMS I C3752 ISZ D3756 / @@3706=2356 JMP L3705 / @@3707=5305 CLA / @@3710=7200 TAD C3762 / @@3711=1362 DCA D3756 / @@3712=3356 L3713, C3713, 4750 / JMS I C3750 ISZ D3756 / @@3714=2356 JMP L3713 / @@3715=5313 CLA CLL / AC = 0000 @@3716=7300 TAD D3757 / @@3717=1357 TAD C3761 / @@3720=1361 DCA D3757 / @@3721=3357 SNL / @@3722=7420 JMP L3673 / @@3723=5273 C3724, 4754 / JMS I C3754 CLA / @@3725=7200 TAD L0102 / @@3726=1102 CIA / @@3727=7041 DCA D3757 / @@3730=3357 L3731, CLA / @@3731=7200 TAD C3761 / @@3732=1361 CIA / @@3733=7041 DCA D3756 / @@3734=3356 L3735, C3735, 4751 / JMS I C3751 ISZ D3756 / @@3736=2356 JMP L3735 / @@3737=5335 CLA CLL / AC = 0000 @@3740=7300 TAD D3757 / @@3741=1357 TAD C3761 / @@3742=1361 DCA D3757 / @@3743=3357 SNL / @@3744=7420 JMP L3731 / @@3745=5331 CLA / @@3746=7200 JMP I S3665 / return @@3747=5665 C3750, 4123 / JMS C0123 C3751, 4064 / JMS C0064 JMS D0076 / @@3752=4076 JMS L0110 / @@3753=4110 C3754, 4135 / JMS C0135 C3755, 4130 / JMS C0130 D3756, 0000 / AND L0000 D3757, 0020 / AND D0020 C3760, 7766 / SMA SZA SNL CLA OSR HLT C3761, 0144 / AND D0144 C3762, 7766 / SMA SZA SNL CLA OSR HLT C3763, 1750 / TAD I C3750 C3764, 0000 / AND L0000 C3765, 0000 / AND L0000 C3766, 0000 / AND L0000 C3767, 0000 / AND L0000 C3770, 0000 / AND L0000 C3771, 0000 / AND L0000 C3772, 0000 / AND L0000 C3773, 0000 / AND L0000 C3774, 0000 / AND L0000 C3775, 0000 / AND L0000 C3776, 0000 / AND L0000 C3777, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4000 / / Called from: / 0331 0657 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4000, 0 / return area C4001, 4330 / JMS C4130 C4002, 4335 / JMS C4135 CLA / @@4003=7200 TAD C4144 / @@4004=1344 DCA D4142 / @@4005=3342 L4006, C4006, 4310 / JMS C4110 ISZ D4142 / @@4007=2342 JMP L4006 / @@4010=5206 C4011, 4330 / JMS C4130 CLA / @@4012=7200 TAD C4145 / @@4013=1345 DCA D4142 / @@4014=3342 L4015, C4015, 4323 / JMS C4123 ISZ D4142 / @@4016=2342 JMP L4015 / @@4017=5215 CLA / @@4020=7200 TAD C4147 / @@4021=1347 DCA D4151 / @@4022=3351 TAD C4152 / @@4023=1352 DCA D4143 / @@4024=3343 L4025, CLA / @@4025=7200 TAD C4146 / @@4026=1346 DCA D4142 / @@4027=3342 L4030, JMS I D4151 / long call to S1122 @@4030=4751 ISZ D4142 / @@4031=2342 JMP L4030 / @@4032=5230 CLA / @@4033=7200 TAD D4151 / @@4034=1351 TAD C4150 / @@4035=1350 DCA D4151 / @@4036=3351 ISZ D4143 / @@4037=2343 JMP L4025 / @@4040=5225 CLA / @@4041=7200 TAD C4145 / @@4042=1345 DCA D4142 / @@4043=3342 L4044, C4044, 4323 / JMS C4123 ISZ D4142 / @@4045=2342 JMP L4044 / @@4046=5244 C4047, 4335 / JMS C4135 CLA / @@4050=7200 TAD C4144 / @@4051=1344 DCA D4142 / @@4052=3342 L4053, C4053, 4264 / JMS C4064 ISZ D4142 / @@4054=2342 JMP L4053 / @@4055=5253 JMP I S4000 / return @@4056=5600 C4057, C4057, 1031 / TAD C0031 C4060, 6523 / 6523 L4061, PLSF / Skip if plotter flag is a 1. @@4061=6501 JMP L4061 / @@4062=5261 JMP I C4057 / long jump to L1031 @@4063=5657 C4064, C4064, 1054 / TAD C0054 PLDU / Plotter drum (paper) upward @@4065=6512 L4066, PLSF / Skip if plotter flag is a 1. @@4066=6501 JMP L4066 / @@4067=5266 JMP I C4064 / long jump to L1054 @@4070=5664 C4071, C4071, 1031 / TAD C0031 C4072, 6513 / 6513 L4073, PLSF / Skip if plotter flag is a 1. @@4073=6501 JMP L4073 / @@4074=5273 JMP I C4071 / long jump to L1031 @@4075=5671 C4076, C4076, 1031 / TAD C0031 PLPR / Plotter pen right. @@4077=6511 L4100, PLSF / Skip if plotter flag is a 1. @@4100=6501 JMP L4100 / @@4101=5300 JMP I C4076 / long jump to L1031 @@4102=5676 C4103, C4103, 1031 / TAD C0031 C4104, 6515 / 6515 L4105, PLSF / Skip if plotter flag is a 1. @@4105=6501 JMP L4105 / @@4106=5305 JMP I C4103 / long jump to L1031 @@4107=5703 C4110, C4110, 1031 / TAD C0031 PLDD / Plotter drum (paper) downward. @@4111=6514 L4112, PLSF / Skip if plotter flag is a 1. @@4112=6501 JMP L4112 / @@4113=5312 JMP I C4110 / long jump to L1031 @@4114=5710 C4115, C4115, 1031 / TAD C0031 PLDD / Plotter drum (paper) downward. @@4116=6514 PLPL / Plotter pen left. @@4117=6521 L4120, PLSF / Skip if plotter flag is a 1. @@4120=6501 JMP L4120 / @@4121=5320 JMP I C4115 / long jump to L1031 @@4122=5715 C4123, C4123, 1045 / TAD D0045 PLPL / Plotter pen left. @@4124=6521 L4125, PLSF / Skip if plotter flag is a 1. @@4125=6501 JMP L4125 / @@4126=5325 JMP I C4123 / long jump to L1045 @@4127=5723 C4130, C4130, 1012 / TAD AI2 PLPD / Plotter pen down. Lower pen on to p @@4131=6524 L4132, PLSF / Skip if plotter flag is a 1. @@4132=6501 JMP L4132 / @@4133=5332 JMP I C4130 / long jump to L1012 @@4134=5730 C4135, C4135, 1050 / TAD C0050 PLPU / Plotter pen up. Raise pen off of pa @@4136=6504 L4137, PLSF / Skip if plotter flag is a 1. @@4137=6501 JMP L4137 / @@4140=5337 JMP I C4135 / long jump to L1050 @@4141=5735 D4142, 0000 / AND L0000 D4143, 0000 / AND L0000 C4144, 7775 / CLA MQA SCA MQL ASR + C4145, 7777 / CLA MQA SCA MQL LSR + C4146, 7776 / SPA SNA SZL CLA OSR HLT C4147, 4057 / JMS D0057 C4150, 0005 / AND D0005 D4151, 1122 / TAD C0122 C4152, 7771 / CLA MQA SCA MQL NMI AND C4177 / @@4153=0377 L4154, DCA I C4172 / @@4154=3772 DCA I C4173 / @@4155=3773 TAD C4171 / @@4156=1371 DCA I C4175 / @@4157=3775 IAC / @@4160=7001 DCA I C4176 / @@4161=3776 TAD D0022 / @@4162=1022 AND C4174 / @@4163=0374 SNA CLA / @@4164=7650 DCA I C4176 / @@4165=3776 C4166, 4551 / JMS I C0151 DCA L0102 / @@4167=3102 JMP I C4177 / long jump to L0205 @@4170=5777 C4171, 4360 / JMS C4160 C4172, 4550 / JMS I D0150 C4173, 4551 / JMS I C0151 C4174, 0002 / AND C0002 C4175, 4573 / JMS I C0173 C4176, 4552 / JMS I C0152 C4177, C4177, 0205 / AND C4005 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4200 / / Called from: / 4531 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4200, 0 / return area TAD C4225 / @@4201=1225 C4202, 3010 / DCA AI0 TAD C4226 / @@4203=1226 DCA D4227 / @@4204=3227 DCA D4230 / @@4205=3230 RCSE / Generates an IOP pulse (IOP 2) to ad @@4206=6672 JMP L4223 / @@4207=5223 L4210, RCSF / Generates an IOP pulse (IOP 1) to te @@4210=6631 JMP L4210 / @@4211=5210 RCRA / Generates an IOP pulse (IOP 2) to re @@4212=6632 C4213, 3410 / DCA I AI0 ISZ D4227 / @@4214=2227 JMP L4210 / @@4215=5210 L4216, ISZ D4230 / @@4216=2230 JMP L4216 / @@4217=5216 RCSD / Generates an IOP pulse (IOP 1) to te @@4220=6671 HLT / @@4221=7402 JMP I S4200 / return @@4222=5600 L4223, HLT / @@4223=7402 HLT / @@4224=7402 C4225, 4240 / JMS C4240 C4226, 7660 / SZA SNL CLA D4227, 7402 / HLT D4230, 7402 / HLT HLT / @@4231=7402 HLT / @@4232=7402 HLT / @@4233=7402 HLT / @@4234=7402 HLT / @@4235=7402 HLT / @@4236=7402 HLT / @@4237=7402 HLT / @@4240=7402 C4241, 0000 / AND L0000 C4242, 0000 / AND L0000 C4243, 0000 / AND L0000 C4244, 0000 / AND L0000 C4245, 0000 / AND L0000 C4246, 0000 / AND L0000 C4247, 0000 / AND L0000 C4250, 0000 / AND L0000 C4251, 0000 / AND L0000 C4252, 0000 / AND L0000 C4253, 0000 / AND L0000 C4254, 0000 / AND L0000 C4255, 0000 / AND L0000 C4256, 0000 / AND L0000 C4257, 0000 / AND L0000 C4260, 0000 / AND L0000 C4261, 0000 / AND L0000 C4262, 0000 / AND L0000 C4263, 0000 / AND L0000 C4264, 0000 / AND L0000 C4265, 0000 / AND L0000 C4266, 0000 / AND L0000 C4267, 0000 / AND L0000 C4270, 0000 / AND L0000 C4271, 0000 / AND L0000 C4272, 0000 / AND L0000 C4273, 0000 / AND L0000 C4274, 0000 / AND L0000 C4275, 0000 / AND L0000 C4276, 0000 / AND L0000 C4277, 0000 / AND L0000 C4300, 0000 / AND L0000 C4301, 0000 / AND L0000 C4302, 0000 / AND L0000 C4303, 0000 / AND L0000 C4304, 0000 / AND L0000 C4305, 0000 / AND L0000 C4306, 0000 / AND L0000 C4307, 0000 / AND L0000 C4310, 0000 / AND L0000 C4311, 0000 / AND L0000 C4312, 0000 / AND L0000 C4313, 0000 / AND L0000 C4314, 0000 / AND L0000 C4315, 0000 / AND L0000 C4316, 0000 / AND L0000 C4317, 0000 / AND L0000 C4320, 0000 / AND L0000 C4321, 0000 / AND L0000 C4322, 0000 / AND L0000 C4323, 0000 / AND L0000 C4324, 0000 / AND L0000 C4325, 0000 / AND L0000 C4326, 0000 / AND L0000 C4327, 0000 / AND L0000 C4330, 0000 / AND L0000 C4331, 0000 / AND L0000 C4332, 0000 / AND L0000 C4333, 0000 / AND L0000 C4334, 0000 / AND L0000 C4335, 0000 / AND L0000 C4336, 0000 / AND L0000 C4337, 0000 / AND L0000 C4340, 0000 / AND L0000 C4341, 0000 / AND L0000 C4342, 0000 / AND L0000 C4343, 0000 / AND L0000 C4344, 0000 / AND L0000 C4345, 0000 / AND L0000 C4346, 0000 / AND L0000 C4347, 0000 / AND L0000 C4350, 0000 / AND L0000 C4351, 0000 / AND L0000 C4352, 0000 / AND L0000 C4353, 0000 / AND L0000 C4354, 0000 / AND L0000 C4355, 0000 / AND L0000 C4356, 0000 / AND L0000 C4357, 0000 / AND L0000 C4360, 0000 / AND L0000 C4361, 0000 / AND L0000 HLT / @@4362=7402 HLT / @@4363=7402 HLT / @@4364=7402 HLT / @@4365=7402 HLT / @@4366=7402 HLT / @@4367=7402 HLT / @@4370=7402 HLT / @@4371=7402 HLT / @@4372=7402 HLT / @@4373=7402 HLT / @@4374=7402 HLT / @@4375=7402 HLT / @@4376=7402 HLT / @@4377=7402 L4400, CLA / @@4400=7200 TAD D4550 / @@4401=1350 SNA CLA / @@4402=7650 JMP L4407 / @@4403=5207 DCA D4550 / @@4404=3350 TAD C4555 / @@4405=1355 JMP L4546 / @@4406=5346 L4407, TAD D4573 / @@4407=1373 IAC / @@4410=7001 DCA D4573 / @@4411=3373 TAD D4573 / @@4412=1373 TAD C4576 / @@4413=1376 SMA CLA / @@4414=7700 JMP L4527 / @@4415=5327 CLA / @@4416=7200 TAD I D4573 / @@4417=1773 TAD C4557 / @@4420=1357 SZA CLA / @@4421=7640 JMP L4432 / @@4422=5232 TAD D4573 / @@4423=1373 TAD C4577 / @@4424=1377 SZA CLA / @@4425=7640 JMP L4527 / @@4426=5327 JMP L4546 / @@4427=5346 C4430, 0301 / AND C4501 NOP / @@4431=7000 L4432, TAD D4551 / @@4432=1351 SNA CLA / @@4433=7650 JMP L4442 / @@4434=5242 DCA D4551 / @@4435=3351 TAD I D4573 / @@4436=1773 NOP / @@4437=7000 SNA CLA / @@4440=7650 JMP L4407 / @@4441=5207 L4442, TAD I D4573 / @@4442=1773 TAD C4553 / @@4443=1353 SZA CLA / @@4444=7640 JMP L4452 / @@4445=5252 IAC / @@4446=7001 DCA D4550 / @@4447=3350 TAD C4554 / @@4450=1354 JMP L4546 / @@4451=5346 L4452, TAD I D4573 / @@4452=1773 TAD C4560 / @@4453=1360 SZA CLA / @@4454=7640 JMP L4462 / @@4455=5262 IAC / @@4456=7001 DCA D4551 / @@4457=3351 TAD C4561 / @@4460=1361 JMP L4546 / @@4461=5346 L4462, TAD I D4573 / @@4462=1773 TAD C4562 / @@4463=1362 SZA CLA / @@4464=7640 JMP L4470 / @@4465=5270 TAD C4563 / @@4466=1363 JMP L4546 / @@4467=5346 L4470, TAD I D4573 / @@4470=1773 TAD C4564 / @@4471=1364 SZA CLA / @@4472=7640 JMP L4476 / @@4473=5276 TAD C4565 / @@4474=1365 JMP L4546 / @@4475=5346 L4476, TAD I D4573 / @@4476=1773 TAD C4566 / @@4477=1366 SZA CLA / @@4500=7640 C4501, 5304 / JMP C4504 TAD C4567 / @@4502=1367 JMP L4546 / @@4503=5346 TAD I D4573 / @@4504=1773 TAD C4570 / @@4505=1370 SZA CLA / @@4506=7640 JMP L4512 / @@4507=5312 TAD C4571 / @@4510=1371 JMP L4546 / @@4511=5346 L4512, TAD I D4573 / @@4512=1773 SNA / @@4513=7450 JMP L4523 / @@4514=5323 TAD C4572 / @@4515=1372 SMA CLA / @@4516=7700 JMP L4525 / @@4517=5325 TAD I D4573 / @@4520=1773 TAD C4571 / @@4521=1371 JMP L4546 / @@4522=5346 L4523, TAD D4556 / @@4523=1356 JMP L4546 / @@4524=5346 L4525, TAD C4430 / @@4525=1230 JMP L4546 / @@4526=5346 L4527, TAD C4533 / @@4527=1333 DCA D4573 / @@4530=3373 JMS I C4534 / long call to S4200 @@4531=4734 JMP L4400 / @@4532=5200 C4533, 4240 / JMS C4440 C4534, C4534, 4200 / JMS L4400 L4535, CLA / @@4535=7200 TAD D4552 / @@4536=1352 SZA CLA / @@4537=7640 JMP L4400 / @@4540=5200 CLA / @@4541=7200 L4542, RSF / Skip if reader flag is a 1. @@4542=6011 JMP L4542 / @@4543=5342 JMP I C4574 / long jump to L3346 @@4544=5774 NOP / @@4545=7000 L4546, D4546, 3057 / DCA D0057 JMP I C4575 / long jump to L3356 @@4547=5775 D4550, 0000 / AND L0000 D4551, 0000 / AND L0000 D4552, 0000 / AND L0000 C4553, 7725 / CLA MQA MQL MUY + C4554, 0215 / AND C4415 C4555, 0212 / AND C4412 D4556, 0240 / AND C4440 C4557, 7724 / SMA SNL CLA OSR C4560, 7713 / CLA MQA SHL + C4561, 0305 / AND C4505 C4562, 7705 / CLA MQA MUY + C4563, 0256 / AND C4456 C4564, 7720 / SMA SNL CLA C4565, 0253 / AND C4453 C4566, 7740 / SMA SZA CLA C4567, 0255 / AND C4455 C4570, 7760 / SMA SZA SNL CLA C4571, 0260 / AND C4460 C4572, 7766 / SMA SZA SNL CLA OSR HLT D4573, 0000 / AND L0000 C4574, C4574, 3346 / DCA L4546 C4575, C4575, 3356 / DCA D4556 C4576, 3417 / DCA I AI7 C4577, 3537 / DCA I C0137 $