TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhcra-a-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhcra-a-pb.bin / Generated 2010 02 19 00:10:24 / 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 / / 3057 locations used, 2152 code and 0705 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 C0001, 5402 / JMP I D0002 D0002, 0000 / AND L0000 C0003, 7402 / HLT *0020 D0020, 0212 / AND AI2 C0021, 0217 / AND AI7 D0022, 0224 / AND D0024 C0023, 0231 / AND C0031 D0024, 0236 / AND C0036 C0025, C0025, 0243 / AND C0043 C0026, C0026, 0250 / AND L0050 C0027, C0027, 0254 / AND C0054 D0030, 0260 / AND C0060 C0031, C0031, 0265 / AND D0065 C0032, C0032, 0272 / AND D0072 C0033, C0033, 2230 / ISZ D0030 D0034, 2200 / ISZ L0000 C0035, C0035, 2316 / ISZ D0116 C0036, C0036, 2065 / ISZ D0065 C0037, C0037, 2362 / ISZ C0162 C0040, 1674 / TAD I D0074 D0041, 1600 / TAD I L0000 C0042, 0535 / AND I C0135 C0043, 0634 / AND I D0034 C0044, 0720 / AND I C0120 C0045, C0045, 1440 / TAD I C0040 C0046, 1461 / TAD I C0061 C0047, 3400 / DCA I L0000 L0050, C0050, 3200 / DCA L0000 C0051, 4000 / JMS L0000 L0052, C0052, 3600 / DCA I L0000 C0053, 3520 / DCA I C0120 C0054, C0054, 3320 / DCA C0120 C0055, 3720 / DCA I C0120 C0056, 4120 / JMS C0120 C0057, 2630 / ISZ I D0030 C0060, C0060, 2023 / ISZ C0023 C0061, 1604 / TAD I C0004 C0062, 1442 / TAD I C0042 C0063, 2034 / ISZ D0034 C0064, C0064, 0276 / AND D0076 D0065, 1400 / TAD I L0000 C0066, C0066, 0400 / AND I L0000 C0067, C0067, 1200 / TAD L0000 C0070, C0070, 1224 / TAD D0024 C0071, C0071, 2074 / ISZ D0074 D0072, 0000 / AND L0000 D0073, 0000 / AND L0000 D0074, 0000 / AND L0000 D0075, 0000 / AND L0000 D0076, 0000 / AND L0000 D0077, 0000 / AND L0000 D0100, 0000 / AND L0000 D0101, 0000 / AND L0000 D0102, 0000 / AND L0000 D0103, 0000 / AND L0000 D0104, 0000 / AND L0000 D0105, 0000 / AND L0000 D0106, 0000 / AND L0000 D0107, 0000 / AND L0000 D0110, 0000 / AND L0000 D0111, 0000 / AND L0000 D0112, 0000 / AND L0000 D0113, 0000 / AND L0000 C0114, 0001 / AND C0001 C0115, 0002 / AND D0002 D0116, 0003 / AND C0003 C0117, 0007 / AND C0007 C0120, 0051 / AND C0051 D0121, 0077 / AND D0077 C0122, 0121 / AND D0121 C0123, 0207 / AND C0007 C0124, 0212 / AND AI2 C0125, 0215 / AND AI5 C0126, 0240 / AND C0040 C0127, 0252 / AND L0052 C0130, 0260 / AND C0060 D0131, 0340 / AND L0140 C0132, 0400 / AND I L0000 C0133, 1000 / TAD L0000 C0134, 2000 / ISZ L0000 C0135, 4000 / JMS L0000 JMP L0052 / @@0136=5252 C0137, 6632 / RCRA L0140, C0140, 6634 / RCRB C0141, 6636 / 6636 C0142, 7777 / CLA MQA SCA MQL LSR + C0143, 0377 / AND C0177 C0144, 7370 / CLA CLL CMA CML RAR C0145, 7660 / SZA SNL CLA C0146, 7701 / CLA MQA C0147, 7702 / SMA CLA HLT C0150, 7703 / CLA MQA SCL + L0151, C0151, 7715 / CLA MQA ASR + C0152, 7726 / SMA SNL CLA OSR HLT SPA SZL CLA / @@0153=7730 C0154, 7740 / SMA SZA CLA C0155, C0155, 7771 / CLA MQA SCA MQL NMI L0156, C0156, 7000 / NOP *0200 JMP I D0065 / long jump to L1400 @@0200=5465 HLT / @@0201=7402 JMP I C0064 / long jump to L0276 @@0202=5464 HLT / @@0203=7402 JMP I C0066 / long jump to L0400 @@0204=5466 HLT / @@0205=7402 JMP I C0067 / long jump to L1200 @@0206=5467 D0207, 7402 / HLT JMP I C0070 / long jump to L1224 @@0210=5470 HLT / @@0211=7402 D0212, 0000 / AND L0000 RCSF / Generates an IOP pulse (IOP 1) to te @@0213=6631 SKP / @@0214=7410 D0215, 2212 / ISZ D0212 JMP I D0212 / long jump to L0000 @@0216=5612 C0217, C0217, 0000 / AND L0000 CLA / @@0220=7200 RCRA / Generates an IOP pulse (IOP 2) to re @@0221=6632 JMP I C0217 / long jump to L0000 @@0222=5617 HLT / @@0223=7402 C0224, C0224, 0000 / AND L0000 CLA / @@0225=7200 RCRB / Generates an IOP pulse (IOP 4) to re @@0226=6634 JMP I C0224 / long jump to L0000 @@0227=5624 HLT / @@0230=7402 C0231, C0231, 0000 / AND L0000 CLA / @@0232=7200 C0233, 6636 / 6636 JMP I C0231 / long jump to L0000 @@0234=5631 HLT / @@0235=7402 D0236, 0000 / AND L0000 RCSD / Generates an IOP pulse (IOP 1) to te @@0237=6671 SKP / @@0240=7410 ISZ D0236 / @@0241=2236 JMP I D0236 / long jump to L0000 @@0242=5636 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0243 / / Called from: / 0302 0404 0456 0502 0525 0622 0706 1452 2300 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S0243, 0 / return area RCSE / Generates an IOP pulse (IOP 2) to ad @@0244=6672 SKP / @@0245=7410 ISZ S0243 / @@0246=2243 JMP I S0243 / return @@0247=5643 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0250 / / Called from: / 1676 1705 2314 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0250, 0 / return area RCRD / Generates an IOP pulse (IOP 4) to cl @@0251=6674 JMP I S0250 / return @@0252=5650 HLT / @@0253=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0254 / / Called from: / 0325 0475 0605 0671 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0254, 0 / return area C0255, 6635 / 6635 JMP I S0254 / return @@0256=5654 HLT / @@0257=7402 C0260, C0260, 0000 / AND L0000 CLA CLL / AC = 0000 @@0261=7300 C0262, 6637 / 6637 JMP I C0260 / long jump to L0000 @@0263=5660 HLT / @@0264=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0265 / / Called from: / 0306 0641 0644 0722 0725 1602 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S0265, 0 / return area C0266, 6675 / 6675 SKP / @@0267=7410 ISZ S0265 / @@0270=2265 JMP I S0265 / return @@0271=5665 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0272 / / Called from: / 0643 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0272, 0 / return area C0273, 6677 / 6677 JMP I S0272 / return @@0274=5672 HLT / @@0275=7402 L0276, CLA CLL / AC = 0000 @@0276=7300 TAD C0122 / @@0277=1122 DCA D0111 / @@0300=3111 C0301, 6007 / 6007 L0302, JMS I C0025 / long call to S0243 @@0302=4425 SKP / @@0303=7410 HLT / @@0304=7402 JMS I C0377 / long call to S1000 @@0305=4777 JMS I C0031 / long call to S0265 @@0306=4431 SKP / @@0307=7410 HLT / @@0310=7402 JMS I C0377 / long call to S1000 @@0311=4777 IOF / Disable Interrupts @@0312=6002 JMS I D0020 / long call to S0212 @@0313=4420 SKP / @@0314=7410 HLT / @@0315=7402 JMS I C0377 / long call to S1000 @@0316=4777 JMS I D0024 / long call to S0236 @@0317=4424 SKP / @@0320=7410 HLT / @@0321=7402 JMS I C0377 / long call to S1000 @@0322=4777 CLA / @@0323=7200 TAD D0116 / @@0324=1116 JMS I C0027 / long call to S0254 @@0325=4427 SKP / @@0326=7410 C0327, 0335 / AND C0335 TAD C0327 / @@0330=1327 DCA D0002 / @@0331=3002 ION / Enable Interrupts @@0332=6001 NOP / @@0333=7000 SKP / @@0334=7410 C0335, 7402 / HLT IOF / Disable Interrupts @@0336=6002 ISZ D0111 / @@0337=2111 JMP L0302 / @@0340=5302 CLA / @@0341=7200 TAD C0115 / @@0342=1115 JMS I C0035 / long call to S2316 @@0343=4435 ISZ I S0254 / @@0344=2654 HLT / @@0345=7402 *0377 C0377, C0377, 1000 / TAD L0000 L0400, C0400, 7200 / CLA TAD C0144 / @@0401=1144 DCA D0103 / @@0402=3103 C0403, 6007 / 6007 JMS I C0025 / long call to S0243 @@0404=4425 SKP / @@0405=7410 JMP L0413 / @@0406=5213 JMS I C0035 / long call to S2316 @@0407=4435 ISZ I C0025 / @@0410=2425 JMS I D0030 / long call to S0260 @@0411=4430 HLT / @@0412=7402 L0413, TAD D0103 / @@0413=1103 DCA D0102 / @@0414=3102 DCA D0101 / @@0415=3101 L0416, JMS I D0020 / long call to S0212 @@0416=4420 SKP / @@0417=7410 JMP L0431 / @@0420=5231 ISZ D0101 / @@0421=2101 JMP L0416 / @@0422=5216 ISZ D0102 / @@0423=2102 JMP L0416 / @@0424=5216 JMS I C0035 / long call to S2316 @@0425=4435 ISZ I C0047 / @@0426=2447 JMS I D0030 / long call to S0260 @@0427=4430 HLT / @@0430=7402 L0431, JMS I D0022 / long call to S0224 @@0431=4422 TAD D0103 / @@0432=1103 DCA D0105 / @@0433=3105 DCA D0106 / @@0434=3106 L0435, JMS I D0024 / long call to S0236 @@0435=4424 SKP / @@0436=7410 JMP L0450 / @@0437=5250 ISZ D0105 / @@0440=2105 JMP L0435 / @@0441=5235 ISZ D0106 / @@0442=2106 JMP L0435 / @@0443=5235 JMS I C0035 / long call to S2316 @@0444=4435 ISZ I C0125 / @@0445=2525 JMS I D0030 / long call to S0260 @@0446=4430 HLT / @@0447=7402 L0450, JMS I C0577 / long call to S1061 @@0450=4777 C0451, 6007 / 6007 JMS I D0024 / long call to S0236 @@0452=4424 SKP / @@0453=7410 HLT / @@0454=7402 JMS I C0576 / long call to S1000 @@0455=4776 L0456, JMS I C0025 / long call to S0243 @@0456=4425 JMP L0456 / @@0457=5256 L0460, JMS I D0020 / long call to S0212 @@0460=4420 JMP L0460 / @@0461=5260 JMS I C0575 / long call to S1030 @@0462=4775 C0463, 6007 / 6007 JMS I D0020 / long call to S0212 @@0464=4420 SKP / @@0465=7410 HLT / @@0466=7402 JMS I C0576 / long call to S1000 @@0467=4776 JMS I D0022 / long call to S0224 @@0470=4422 L0471, JMS I D0024 / long call to S0236 @@0471=4424 JMP L0471 / @@0472=5271 C0473, 6007 / 6007 CLA / @@0474=7200 JMS I C0027 / long call to S0254 @@0475=4427 TAD C0501 / @@0476=1301 DCA D0002 / @@0477=3002 SKP / @@0500=7410 C0501, 0520 / AND I C0120 L0502, JMS I C0025 / long call to S0243 @@0502=4425 JMP L0502 / @@0503=5302 L0504, JMS I D0020 / long call to S0212 @@0504=4420 JMP L0504 / @@0505=5304 ION / Enable Interrupts @@0506=6001 NOP / @@0507=7000 IOF / Disable Interrupts @@0510=6002 JMS I D0022 / long call to S0224 @@0511=4422 L0512, JMS I D0024 / long call to S0236 @@0512=4424 JMP L0512 / @@0513=5312 ION / Enable Interrupts @@0514=6001 NOP / @@0515=7000 IOF / Disable Interrupts @@0516=6002 SKP / @@0517=7410 HLT / @@0520=7402 C0521, 6007 / 6007 CLA / @@0522=7200 C0523, 1042 / TAD C0042 DCA D0002 / @@0524=3002 L0525, JMS I C0025 / long call to S0243 @@0525=4425 JMP L0525 / @@0526=5325 L0527, JMS I D0020 / long call to S0212 @@0527=4420 JMP L0527 / @@0530=5327 ION / Enable Interrupts @@0531=6001 NOP / @@0532=7000 IOF / Disable Interrupts @@0533=6002 HLT / @@0534=7402 JMS I D0022 / long call to S0224 @@0535=4422 L0536, JMS I D0024 / long call to S0236 @@0536=4424 JMP L0536 / @@0537=5336 JMP I C0574 / long jump to L0600 @@0540=5774 *0574 C0574, C0574, 0600 / AND I L0400 C0575, C0575, 1030 / TAD D0030 C0576, C0576, 1000 / TAD L0000 C0577, C0577, 1061 / TAD C0061 L0600, C0600, 6007 / 6007 CLA / @@0601=7200 TAD C0043 / @@0602=1043 DCA D0002 / @@0603=3002 TAD C0115 / @@0604=1115 JMS I C0027 / long call to S0254 @@0605=4427 JMS I C0035 / long call to S2316 @@0606=4435 ISZ I C0777 / @@0607=2777 ION / Enable Interrupts @@0610=6001 TAD D0103 / @@0611=1103 DCA D0102 / @@0612=3102 TAD C0135 / @@0613=1135 DCA D0101 / @@0614=3101 L0615, ISZ D0102 / @@0615=2102 JMP L0615 / @@0616=5215 ISZ D0101 / @@0617=2101 JMP L0615 / @@0620=5215 IOF / Disable Interrupts @@0621=6002 JMS I C0025 / long call to S0243 @@0622=4425 JMP L0630 / @@0623=5230 JMS I C0035 / long call to S2316 @@0624=4435 ISZ I C0733 / @@0625=2733 JMS I D0030 / long call to S0260 @@0626=4430 HLT / @@0627=7402 L0630, JMS I C0035 / long call to S2316 @@0630=4435 ISZ I C0666 / @@0631=2666 JMS I D0030 / long call to S0260 @@0632=4430 HLT / @@0633=7402 CLA / @@0634=7200 JMS I D0030 / long call to S0260 @@0635=4430 AND C0133 / @@0636=0133 SNA CLA / @@0637=7650 HLT / @@0640=7402 JMS I C0031 / long call to S0265 @@0641=4431 HLT / @@0642=7402 JMS I C0032 / long call to S0272 @@0643=4432 JMS I C0031 / long call to S0265 @@0644=4431 SKP / @@0645=7410 HLT / @@0646=7402 TAD C0652 / @@0647=1252 DCA D0002 / @@0650=3002 SKP / @@0651=7410 C0652, 0657 / AND I C0657 ION / Enable Interrupts @@0653=6001 NOP / @@0654=7000 IOF / Disable Interrupts @@0655=6002 SKP / @@0656=7410 HLT / @@0657=7402 JMS I D0030 / long call to S0260 @@0660=4430 AND C0133 / @@0661=0133 SZA / @@0662=7440 HLT / @@0663=7402 C0664, 6007 / 6007 CLA / @@0665=7200 C0666, 1044 / TAD C0044 DCA D0002 / @@0667=3002 TAD C0115 / @@0670=1115 JMS I C0027 / long call to S0254 @@0671=4427 JMS I C0035 / long call to S2316 @@0672=4435 DCA D0041 / @@0673=3041 ION / Enable Interrupts @@0674=6001 TAD D0103 / @@0675=1103 DCA D0102 / @@0676=3102 TAD C0135 / @@0677=1135 DCA D0101 / @@0700=3101 L0701, ISZ D0102 / @@0701=2102 JMP L0701 / @@0702=5301 ISZ D0101 / @@0703=2101 JMP L0701 / @@0704=5301 IOF / Disable Interrupts @@0705=6002 JMS I C0025 / long call to S0243 @@0706=4425 JMP L0714 / @@0707=5314 JMS I C0035 / long call to S2316 @@0710=4435 ISZ I C0666 / @@0711=2666 JMS I D0030 / long call to S0260 @@0712=4430 HLT / @@0713=7402 L0714, JMS I C0035 / long call to S2316 @@0714=4435 DCA D0103 / @@0715=3103 JMS I D0030 / long call to S0260 @@0716=4430 HLT / @@0717=7402 CLA / @@0720=7200 C0721, 4777 / JMS I C0777 JMS I C0031 / long call to S0265 @@0722=4431 HLT / @@0723=7402 C0724, 6007 / 6007 JMS I C0031 / long call to S0265 @@0725=4431 SKP / @@0726=7410 HLT / @@0727=7402 TAD C0733 / @@0730=1333 DCA D0002 / @@0731=3002 SKP / @@0732=7410 C0733, 0740 / AND I D0740 ION / Enable Interrupts @@0734=6001 NOP / @@0735=7000 IOF / Disable Interrupts @@0736=6002 SKP / @@0737=7410 D0740, 7402 / HLT JMS I D0030 / long call to S0260 @@0741=4430 AND C0132 / @@0742=0132 SZA / @@0743=7440 HLT / @@0744=7402 JMS I C0035 / long call to S2316 @@0745=4435 ISZ I C0721 / @@0746=2721 HLT / @@0747=7402 *0777 C0777, 1112 / TAD D0112 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / Called from: / 0305 0311 0316 0322 0455 0467 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S1000, 0 / return area CLA CLL / AC = 0000 @@1001=7300 JMS I D0030 / long call to S0260 @@1002=4430 DCA D0110 / @@1003=3110 TAD D0110 / @@1004=1110 AND C0132 / @@1005=0132 SZA / @@1006=7440 HLT / @@1007=7402 CLA CLL / AC = 0000 @@1010=7300 TAD D0110 / @@1011=1110 AND C0133 / @@1012=0133 SZA / @@1013=7440 HLT / @@1014=7402 CLA CLL / AC = 0000 @@1015=7300 TAD D0110 / @@1016=1110 AND C0134 / @@1017=0134 SZA / @@1020=7440 HLT / @@1021=7402 CLA CLL / AC = 0000 @@1022=7300 TAD D0110 / @@1023=1110 AND C0135 / @@1024=0135 SZA / @@1025=7440 HLT / @@1026=7402 JMP I S1000 / return @@1027=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1030 / / Called from: / 0462 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1030, 0 / return area CLA CLL / AC = 0000 @@1031=7300 JMS I D0030 / long call to S0260 @@1032=4430 DCA D0110 / @@1033=3110 TAD D0110 / @@1034=1110 AND C0132 / @@1035=0132 SZA / @@1036=7440 HLT / @@1037=7402 CLA CLL / AC = 0000 @@1040=7300 TAD D0110 / @@1041=1110 AND C0133 / @@1042=0133 SZA / @@1043=7440 D1044, 7402 / HLT CLA CLL / AC = 0000 @@1045=7300 TAD D0110 / @@1046=1110 AND C0134 / @@1047=0134 SZA / @@1050=7440 HLT / @@1051=7402 CLA CLL / AC = 0000 @@1052=7300 TAD D0110 / @@1053=1110 AND C0135 / @@1054=0135 SNA / @@1055=7450 HLT / @@1056=7402 CLA / @@1057=7200 JMP I S1030 / return @@1060=5630 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1061 / / Called from: / 0450 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1061, 0 / return area JMS I D0022 / long call to S0224 @@1062=4422 JMS I D0030 / long call to S0260 @@1063=4430 DCA D0110 / @@1064=3110 TAD D0110 / @@1065=1110 AND C0132 / @@1066=0132 SZA / @@1067=7440 HLT / @@1070=7402 CLA CLL / AC = 0000 @@1071=7300 D1072, 1110 / TAD D0110 AND C0133 / @@1073=0133 SZA / @@1074=7440 HLT / @@1075=7402 CLA CLL / AC = 0000 @@1076=7300 TAD D0110 / @@1077=1110 AND C0134 / @@1100=0134 SNA / @@1101=7450 HLT / @@1102=7402 CLA CLL / AC = 0000 @@1103=7300 L1104, TAD D0110 / @@1104=1110 AND C0135 / @@1105=0135 SZA / @@1106=7440 HLT / @@1107=7402 CLA / @@1110=7200 JMP I S1061 / return @@1111=5661 D1112, 0000 / AND L0000 CLA CLL / AC = 0000 @@1113=7300 JMS I D0030 / long call to S0260 @@1114=4430 DCA D0110 / @@1115=3110 TAD D0110 / @@1116=1110 C1117, 0132 / AND C0132 SNA / @@1120=7450 HLT / @@1121=7402 CLA CLL / AC = 0000 @@1122=7300 TAD D0110 / @@1123=1110 AND C0133 / @@1124=0133 SZA / @@1125=7440 HLT / @@1126=7402 CLA CLL / AC = 0000 @@1127=7300 TAD D0110 / @@1130=1110 AND C0134 / @@1131=0134 SZA / @@1132=7440 HLT / @@1133=7402 CLA CLL / AC = 0000 @@1134=7300 TAD D0110 / @@1135=1110 AND C0135 / @@1136=0135 SZA / @@1137=7440 HLT / @@1140=7402 CLA / @@1141=7200 JMP I D1112 / long jump to L0000 @@1142=5712 *1200 L1200, CLA CLL / AC = 0000 @@1200=7300 DCA D0113 / @@1201=3113 TAD C0144 / @@1202=1144 DCA D0103 / @@1203=3103 TAD L0052 / @@1204=1052 DCA D0074 / @@1205=3074 TAD D0074 / @@1206=1074 DCA D0075 / @@1207=3075 TAD C0150 / @@1210=1150 DCA I C0057 / @@1211=3457 TAD C0141 / @@1212=1141 DCA I C1377 / @@1213=3777 TAD I C1377 / @@1214=1777 DCA I C1376 / @@1215=3776 ISZ D0112 / @@1216=2112 TAD C0055 / @@1217=1055 DCA D0107 / @@1220=3107 TAD C0145 / @@1221=1145 DCA D0073 / @@1222=3073 JMP I C0045 / long jump to L1440 @@1223=5445 L1224, CLA CLL / AC = 0000 @@1224=7300 DCA D0112 / @@1225=3112 ISZ D0113 / @@1226=2113 TAD C0144 / @@1227=1144 DCA D0103 / @@1230=3103 TAD C0051 / @@1231=1051 DCA D0074 / @@1232=3074 TAD D0074 / @@1233=1074 DCA D0075 / @@1234=3075 TAD C0152 / @@1235=1152 DCA I C0057 / @@1236=3457 TAD C0141 / @@1237=1141 DCA I C1377 / @@1240=3777 TAD I C1377 / @@1241=1777 DCA I C1376 / @@1242=3776 TAD C0145 / @@1243=1145 DCA D0073 / @@1244=3073 TAD C0056 / @@1245=1056 DCA D0107 / @@1246=3107 JMP I C0045 / long jump to L1440 @@1247=5445 *1376 C1376, 1617 / TAD I C1217 C1377, 1604 / TAD I C1204 C1400, 6007 / 6007 CLA / @@1401=7200 TAD C0144 / @@1402=1144 DCA D0103 / @@1403=3103 CLA / @@1404=7200 DCA D0112 / @@1405=3112 DCA D0113 / @@1406=3113 L1407, LAS / @@1407=7604 SPA CLA / @@1410=7710 JMP L1422 / @@1411=5222 TAD C0047 / @@1412=1047 DCA D0074 / @@1413=3074 TAD C0146 / @@1414=1146 DCA I C0057 / @@1415=3457 TAD C0053 / @@1416=1053 DCA D0107 / @@1417=3107 TAD C0137 / @@1420=1137 JMP L1431 / @@1421=5231 L1422, TAD L0050 / @@1422=1050 DCA D0074 / @@1423=3074 TAD C0147 / @@1424=1147 DCA I C0057 / @@1425=3457 TAD C0054 / @@1426=1054 DCA D0107 / @@1427=3107 TAD L0140 / @@1430=1140 L1431, DCA I C1577 / @@1431=3777 TAD I C1577 / @@1432=1777 DCA I C1576 / @@1433=3776 TAD C0145 / @@1434=1145 DCA D0073 / @@1435=3073 TAD D0074 / @@1436=1074 DCA D0075 / @@1437=3075 L1440, TAD D0075 / @@1440=1075 DCA D0076 / @@1441=3076 TAD C0145 / @@1442=1145 DCA D0072 / @@1443=3072 JMS I D0024 / long call to S0236 @@1444=4424 JMP L1452 / @@1445=5252 JMS I C0035 / long call to S2316 @@1446=4435 C1447, 2371 / ISZ C1571 JMS I D0030 / long call to S0260 @@1450=4430 HLT / @@1451=7402 L1452, JMS I C0025 / long call to S0243 @@1452=4425 SKP / @@1453=7410 JMP L1461 / @@1454=5261 JMS I C0035 / long call to S2316 @@1455=4435 ISZ I C0025 / @@1456=2425 JMS I D0030 / long call to S0260 @@1457=4430 HLT / @@1460=7402 L1461, TAD D0103 / @@1461=1103 DCA D0102 / @@1462=3102 DCA D0101 / @@1463=3101 L1464, JMS I D0020 / long call to S0212 @@1464=4420 SKP / @@1465=7410 JMP L1477 / @@1466=5277 ISZ D0101 / @@1467=2101 JMP L1464 / @@1470=5264 ISZ D0102 / @@1471=2102 JMP L1464 / @@1472=5264 JMS I C0035 / long call to S2316 @@1473=4435 ISZ I C0047 / @@1474=2447 JMS I D0030 / long call to S0260 @@1475=4430 HLT / @@1476=7402 L1477, JMS I D0030 / long call to S0260 @@1477=4430 AND C0135 / @@1500=0135 SNA CLA / @@1501=7650 HLT / @@1502=7402 TAD D0041 / @@1503=1041 DCA D0002 / @@1504=3002 ION / Enable Interrupts @@1505=6001 NOP / @@1506=7000 IOF / Disable Interrupts @@1507=6002 JMS I C0035 / long call to S2316 @@1510=4435 ISZ I D0076 / @@1511=2476 JMS I D0030 / long call to S0260 @@1512=4430 HLT / @@1513=7402 *1576 C1576, 1617 / TAD I C1417 C1577, 1604 / TAD I C1404 L1600, JMS I D0020 / long call to S0212 @@1600=4420 JMP L1600 / @@1601=5200 JMS I C0031 / long call to S0265 @@1602=4431 HLT / @@1603=7402 D1604, 0000 / AND L0000 C1605, 3077 / DCA D0077 JMS I D0030 / long call to S0260 @@1606=4430 AND C0135 / @@1607=0135 SZA / @@1610=7440 HLT / @@1611=7402 CLA / @@1612=7200 TAD D0103 / @@1613=1103 DCA D0104 / @@1614=3104 L1615, ISZ D0104 / @@1615=2104 JMP L1615 / @@1616=5215 D1617, 0000 / AND L0000 DCA D0100 / @@1620=3100 TAD D0077 / @@1621=1077 CIA / @@1622=7041 TAD D0100 / @@1623=1100 C1624, 7640 / SZA CLA JMP I C0060 / long jump to L2023 @@1625=5460 TAD D0077 / @@1626=1077 CIA / @@1627=7041 TAD I D0076 / @@1630=1476 SZA CLA / @@1631=7640 JMP I C0060 / long jump to L2023 @@1632=5460 ISZ D0076 / @@1633=2076 JMS I C0071 / long call to S2074 @@1634=4471 ISZ D0072 / @@1635=2072 JMP L1600 / @@1636=5200 JMP L1640 / @@1637=5240 L1640, TAD D0103 / @@1640=1103 DCA D0105 / @@1641=3105 DCA D0106 / @@1642=3106 L1643, JMS I D0024 / long call to S0236 @@1643=4424 SKP / @@1644=7410 JMP L1656 / @@1645=5256 ISZ D0105 / @@1646=2105 JMP L1643 / @@1647=5243 ISZ D0106 / @@1650=2106 C1651, 5243 / JMP L1643 JMS I C0035 / long call to S2316 @@1652=4435 ISZ I C0125 / @@1653=2525 JMS I D0030 / long call to S0260 @@1654=4430 HLT / @@1655=7402 L1656, JMS I D0030 / long call to S0260 @@1656=4430 AND C0134 / @@1657=0134 SNA CLA / @@1660=7650 HLT / @@1661=7402 CLA / @@1662=7200 TAD C0040 / @@1663=1040 DCA D0002 / @@1664=3002 ION / Enable Interrupts @@1665=6001 NOP / @@1666=7000 IOF / Disable Interrupts @@1667=6002 JMS I C0035 / long call to S2316 @@1670=4435 ISZ I C0154 / @@1671=2554 JMS I D0030 / long call to S0260 @@1672=4430 HLT / @@1673=7402 D1674, 4431 / JMS I C0031 HLT / @@1675=7402 JMS I C0026 / long call to S0250 @@1676=4426 JMS I D0024 / long call to S0236 @@1677=4424 JMP L1705 / @@1700=5305 JMS I C0035 / long call to S2316 @@1701=4435 ISZ I C1605 / @@1702=2605 JMS I D0030 / long call to S0260 @@1703=4430 HLT / @@1704=7402 L1705, JMS I C0026 / long call to S0250 @@1705=4426 JMS I D0022 / long call to S0224 @@1706=4422 ISZ D0073 / @@1707=2073 SKP / @@1710=7410 JMP I C1777 / long jump to L2000 @@1711=5777 LAS / @@1712=7604 RTL / @@1713=7006 RTL / @@1714=7006 DCA D0104 / @@1715=3104 L1716, ISZ D0104 / @@1716=2104 JMP L1716 / @@1717=5316 ISZ D0075 / @@1720=2075 CLA / @@1721=7200 C1722, 5445 / JMP I C0045 *1777 C1777, C1777, 2000 / ISZ L0000 L2000, CLA / @@2000=7200 TAD C0123 / @@2001=1123 JMS I C0036 / long call to S2065 @@2002=4436 TAD C0127 / @@2003=1127 JMS I C0036 / long call to S2065 @@2004=4436 LAS / @@2005=7604 RAL / @@2006=7004 RTL / @@2007=7006 SMA / @@2010=7500 HLT / @@2011=7402 CLA CLL / AC = 0000 @@2012=7300 TAD D0112 / @@2013=1112 SZA / @@2014=7440 JMP I C0067 / long jump to L1200 @@2015=5467 TAD D0113 / @@2016=1113 SZA / @@2017=7440 JMP I C0070 / long jump to L1224 @@2020=5470 JMP I C2022 / long jump to L1407 @@2021=5622 C2022, C2022, 1407 / TAD I C0007 L2023, LAS / @@2023=7604 RAL / @@2024=7004 SMA / @@2025=7500 JMS S2034 / @@2026=4234 C2027, 7604 / LAS RTL / @@2030=7006 SMA CLA / @@2031=7700 HLT / @@2032=7402 JMP I C2177 / long jump to L1640 @@2033=5777 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2034 / / Called from: / 2026 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2034, 0 / return area JMS I C0035 / long call to S2316 @@2035=4435 ISZ I C2027 / @@2036=2627 TAD D0073 / @@2037=1073 C2040, 1122 / TAD C0122 JMS I C0033 / long call to S2230 @@2041=4433 JMS I C0035 / long call to S2316 @@2042=4435 ISZ I S2034 / @@2043=2634 C2044, 1072 / TAD D0072 TAD C0122 / @@2045=1122 JMS I C0033 / long call to S2230 @@2046=4433 JMS I C0035 / long call to S2316 @@2047=4435 C2050, 2640 / ISZ I C2040 TAD I D0076 / @@2051=1476 JMS I D0034 / long call to S2200 @@2052=4434 JMS I C0035 / long call to S2316 @@2053=4435 ISZ I C2044 / @@2054=2644 TAD D0077 / @@2055=1077 JMS I D0034 / long call to S2200 @@2056=4434 JMS I C0035 / long call to S2316 @@2057=4435 ISZ I C2050 / @@2060=2650 TAD D0100 / @@2061=1100 JMS I D0034 / long call to S2200 @@2062=4434 JMS I C0037 / long call to S2362 @@2063=4437 JMP I S2034 / return @@2064=5634 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2065 / / Called from: / 2002 2004 2226 2254 2360 2365 2367 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S2065, 0 / return area TLS / Load the TTO from the content of AC4 @@2066=6046 L2067, TSF / Skip if teleprinter flag is a 1. @@2067=6041 JMP L2067 / @@2070=5267 TCF / Clear teleprinter flag. @@2071=6042 CLA / @@2072=7200 JMP I S2065 / return @@2073=5665 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2074 / / Called from: / 1634 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2074, 0 / return area TAD D0076 / @@2075=1076 CIA / @@2076=7041 TAD D0107 / @@2077=1107 SZA CLA / @@2100=7640 JMP L2104 / @@2101=5304 TAD D0074 / @@2102=1074 DCA D0076 / @@2103=3076 L2104, JMP I S2074 / return @@2104=5674 *2177 C2177, C2177, 1640 / TAD I C2040 C2200, C2200, 0000 / AND L0000 C2201, 3222 / DCA D2222 TAD D2222 / @@2202=1222 RTL / @@2203=7006 RTL / @@2204=7006 JMS S2223 / @@2205=4223 TAD D2222 / @@2206=1222 RTR / @@2207=7012 RTR / @@2210=7012 RTR / @@2211=7012 JMS S2223 / @@2212=4223 TAD D2222 / @@2213=1222 RTR / @@2214=7012 RAR / @@2215=7010 JMS S2223 / @@2216=4223 TAD D2222 / @@2217=1222 JMS S2223 / @@2220=4223 JMP I C2200 / long jump to L0000 @@2221=5600 D2222, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2223 / / Called from: / 2205 2212 2216 2220 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S2223, 0 / return area AND C0117 / @@2224=0117 C2225, 1130 / TAD C0130 JMS I C0036 / long call to S2065 @@2226=4436 JMP I S2223 / return @@2227=5623 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2230 / / Called from: / 2041 2046 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2230, 0 / return area SPA / @@2231=7510 CMA / @@2232=7040 DCA D2267 / @@2233=3267 TAD C2264 / @@2234=1264 DCA D2271 / @@2235=3271 TAD C2263 / @@2236=1263 DCA D2244 / @@2237=3244 L2240, SKP / @@2240=7410 L2241, DCA D2267 / @@2241=3267 CLL / @@2242=7100 L2243, TAD D2267 / @@2243=1267 D2244, 1265 / TAD C2265 SZL / @@2245=7430 ISZ D2270 / @@2246=2270 SZL / @@2247=7430 JMP L2241 / @@2250=5241 CLA / @@2251=7200 TAD D2270 / @@2252=1270 TAD C0130 / @@2253=1130 JMS I C0036 / long call to S2065 @@2254=4436 CLA / @@2255=7200 DCA D2270 / @@2256=3270 ISZ D2244 / @@2257=2244 ISZ D2271 / @@2260=2271 JMP L2243 / @@2261=5243 JMP I S2230 / return @@2262=5630 C2263, 1265 / TAD C2265 C2264, 7776 / SPA SNA SZL CLA OSR HLT SMA SZA SNL CLA OSR HLT / @@2265=7766 C2266, 7777 / CLA MQA SCA MQL LSR + D2267, 0000 / AND L0000 D2270, 0000 / AND L0000 D2271, 0000 / AND L0000 *2300 L2300, JMS I C0025 / long call to S0243 @@2300=4425 HLT / @@2301=7402 CLA / @@2302=7200 TAD C0145 / @@2303=1145 DCA D0072 / @@2304=3072 L2305, JMS I D0020 / long call to S0212 @@2305=4420 JMP L2305 / @@2306=5305 JMS I D0022 / long call to S0224 @@2307=4422 ISZ D0072 / @@2310=2072 JMP L2305 / @@2311=5305 L2312, JMS I D0024 / long call to S0236 @@2312=4424 JMP L2312 / @@2313=5312 JMS I C0026 / long call to S0250 @@2314=4426 JMP L2300 / @@2315=5300 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2316 / / Called from: / 0343 0407 0425 0444 0606 0624 0630 0672 0710 0714 0745 1446 1455 1473 1510 / 1652 1670 1701 2035 2042 2047 2053 2057 / Total 0027 (23) calls //////////////////////////////////////////////////////////////////////////////// S2316, 0 / return area CLA / @@2317=7200 TAD I S2316 / @@2320=1716 ISZ S2316 / @@2321=2316 C2322, 3010 / DCA AI0 L2323, C2323, 1410 / TAD I AI0 DCA D2335 / @@2324=3335 TAD D2335 / @@2325=1335 RTR / @@2326=7012 RTR / @@2327=7012 RTR / @@2330=7012 JMS S2336 / @@2331=4336 TAD D2335 / @@2332=1335 JMS S2336 / @@2333=4336 JMP L2323 / @@2334=5323 D2335, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2336 / / Called from: / 2331 2333 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2336, 0 / return area AND D0121 / @@2337=0121 SNA / @@2340=7450 JMP I S2316 / return @@2341=5716 CMA / @@2342=7040 AND D0121 / @@2343=0121 SZA / @@2344=7440 JMP L2350 / @@2345=5350 JMS I C0037 / long call to S2362 @@2346=4437 JMP I S2336 / return @@2347=5736 L2350, CMA / @@2350=7040 AND D0121 / @@2351=0121 TAD C0154 / @@2352=1154 SMA / @@2353=7500 JMP L2357 / @@2354=5357 TAD D0131 / @@2355=1131 SKP / @@2356=7410 L2357, TAD C0126 / @@2357=1126 JMS I C0036 / long call to S2065 @@2360=4436 JMP I S2336 / return @@2361=5736 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2362 / / Called from: / 2063 2346 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2362, 0 / return area CLA / @@2363=7200 TAD C0125 / @@2364=1125 JMS I C0036 / long call to S2065 @@2365=4436 TAD C0124 / @@2366=1124 JMS I C0036 / long call to S2065 @@2367=4436 JMP I S2362 / return @@2370=5762 D2371, 2371 / ISZ D2371 SMA SNL CLA HLT / @@2372=7722 AND L2323 / @@2373=0323 AND I C0040 / @@2374=0440 AND I C2201 / @@2375=0601 TAD C0114 / @@2376=1114 AND I D0104 / @@2377=0504 C2400, 4017 / JMS AI7 D2401, 2240 / ISZ D2440 AND C2501 / @@2402=0301 ISZ D2404 / @@2403=2204 D2404, 4004 / JMS C0004 D2405, 1716 / TAD I C2516 AND I L0140 / @@2406=0540 AND I C2414 / @@2407=0614 AND D0107 / @@2410=0107 C2411, 4020 / JMS D0020 ISZ D2405 / @@2412=2205 ISZ D2505 / @@2413=2305 C2414, 1624 / TAD I D2424 C2415, 4001 / JMS C0001 ISZ I C0040 / @@2416=2440 D2417, 2722 / ISZ I C2522 TAD I C2516 / @@2420=1716 AND I C2540 / @@2421=0740 D2422, 2411 / ISZ I AI1 TAD I D0105 / @@2423=1505 D2424, 7700 / SMA CLA ISZ I C0025 / @@2425=2425 SMA SNL CLA HLT / @@2426=7722 AND C2523 / @@2427=0323 AND I L0140 / @@2430=0540 AND I D2401 / @@2431=0601 TAD C0114 / @@2432=1114 AND I D0104 / @@2433=0504 C2434, 4017 / JMS AI7 ISZ D2440 / @@2435=2240 ISZ D2405 / @@2436=2205 AND D0104 / @@2437=0104 D2440, 0522 / AND I C0122 C2441, 4016 / JMS AI6 TAD I C2524 / @@2442=1724 C2443, 4022 / JMS D0022 AND I D0101 / @@2444=0501 AND I C0031 / @@2445=0431 SMA CLA / @@2446=7700 C2447, 2447 / ISZ I C0047 SMA SNL CLA HLT / @@2450=7722 AND C2523 / @@2451=0323 AND I D2440 / @@2452=0640 AND I D2401 / @@2453=0601 TAD C0114 / @@2454=1114 AND I D0104 / @@2455=0504 C2456, 4017 / JMS AI7 ISZ D2440 / @@2457=2240 AND I C0001 / @@2460=0401 ISZ I C0001 / @@2461=2401 C2462, 4022 / JMS D0022 AND I D0101 / @@2463=0501 AND I C0031 / @@2464=0431 C2465, 4006 / JMS C0006 TAD I C0001 / @@2466=1401 AND I C2540 / @@2467=0740 C2470, 0411 / AND I AI1 C2471, 0416 / AND I AI6 JMS I C2524 / long call to S0000 @@2472=4724 C2473, 4023 / JMS C0023 AND I C0124 / @@2474=0524 SMA CLA / @@2475=7700 ISZ I D0076 / @@2476=2476 SMA CLA OSR / @@2477=7704 AND C0124 / @@2500=0124 C2501, 0140 / AND L0140 AND I C2414 / @@2502=0614 AND D0107 / @@2503=0107 C2504, 4004 / JMS C0004 D2505, 1104 / TAD D0104 TAD I C2447 / @@2506=1647 C2507, 2440 / ISZ I C0040 AND C2501 / @@2510=0301 ISZ I C0123 / @@2511=2523 AND I L0140 / @@2512=0540 ISZ D0022 / @@2513=2022 TAD I C2507 / @@2514=1707 ISZ D2401 / @@2515=2201 C2516, 1540 / TAD I L0140 TAD D0116 / @@2517=1116 C2520, 2405 / ISZ I C0005 ISZ D2422 / @@2521=2222 C2522, 2520 / ISZ I C0120 C2523, 2477 / ISZ I D0077 C2524, C2524, 0000 / AND L0000 ISZ I C0125 / @@2525=2525 SMA SNL CLA HLT / @@2526=7722 AND C2523 / @@2527=0323 AND I C0040 / @@2530=0440 AND I D2401 / @@2531=0601 TAD C0114 / @@2532=1114 AND I D0104 / @@2533=0504 C2534, 4017 / JMS AI7 ISZ D2440 / @@2535=2240 AND C2501 / @@2536=0301 ISZ D2404 / @@2537=2204 C2540, 4004 / JMS C0004 TAD I C2516 / @@2541=1716 AND I L0140 / @@2542=0540 AND I C2414 / @@2543=0614 AND D0107 / @@2544=0107 C2545, 4004 / JMS C0004 TAD D0104 / @@2546=1104 TAD I C2447 / @@2547=1647 ISZ I C0040 / @@2550=2440 ISZ D2505 / @@2551=2305 ISZ I D0077 / @@2552=2477 AND L0000 / @@2553=0000 ISZ I C0154 / @@2554=2554 C2555, 7703 / CLA MQA SCL + AND C0122 / @@2556=0122 AND I C0040 / @@2557=0440 C2560, 0417 / AND I AI7 TAD I D2405 / @@2561=1605 C2562, 4006 / JMS C0006 TAD I C0001 / @@2563=1401 AND I C2540 / @@2564=0740 C2565, 0411 / AND I AI1 C2566, 0416 / AND I AI6 JMS I C2524 / long call to S0000 @@2567=4724 C2570, 4003 / JMS C0003 AND C0125 / @@2571=0125 ISZ D2505 / @@2572=2305 C2573, 4020 / JMS D0020 ISZ D2417 / @@2574=2217 AND I C2522 / @@2575=0722 AND C0115 / @@2576=0115 C2577, 4011 / JMS AI1 TAD I D2624 / @@2600=1624 AND I C0122 / @@2601=0522 ISZ D2625 / @@2602=2225 D2603, 2024 / ISZ D0024 D2604, 7700 / SMA CLA D2605, 2605 / ISZ I D2605 ISZ D2603 / @@2606=2203 ISZ D2604 / @@2607=2204 C2610, 4004 / JMS C0004 C2611, C2611, 1104 / TAD D0104 TAD I C2647 / @@2612=1647 ISZ I C0040 / @@2613=2440 AND C2714 / @@2614=0314 AND I D0101 / @@2615=0501 ISZ D2640 / @@2616=2240 D2617, 0301 / AND C2701 ISZ D2604 / @@2620=2204 C2621, 4004 / JMS C0004 TAD I C2716 / @@2622=1716 AND I L0140 / @@2623=0540 D2624, 0614 / AND I C2614 D2625, 0107 / AND D0107 SMA CLA / @@2626=7700 C2627, 2627 / ISZ I C2627 D2630, 7700 / SMA CLA C2631, 4040 / JMS C0040 AND C2704 / @@2632=0304 JMP I D0100 / long jump to L0000 @@2633=5500 C2634, 2634 / ISZ I C2634 C2635, 4040 / JMS C0040 AND C2714 / @@2636=0314 JMP I D0100 / long jump to L0000 @@2637=5500 D2640, 2640 / ISZ I D2640 C2641, 4040 / JMS C0040 AND I C2755 / @@2642=0755 AND L0000 / @@2643=0000 C2644, 2644 / ISZ I C2644 C2645, 4040 / JMS C0040 ISZ D2661 / @@2646=2261 C2647, 5500 / JMP I D0100 C2650, 2650 / ISZ I C2650 C2651, C2651, 4040 / JMS C0040 ISZ D2662 / @@2652=2262 JMP I D0100 / long jump to L0000 @@2653=5500 C2654, 2654 / ISZ I C2654 C2655, 7711 / CLA MQA NMI TAD I D2724 / @@2656=1724 ISZ D2740 / @@2657=2340 TAD I C2713 / @@2660=1713 D2661, 7700 / SMA CLA D2662, 2662 / ISZ I D2662 C2663, 4040 / JMS C0040 AND C2655 / @@2664=0255 AND L0000 / @@2665=0000 C2666, 2666 / ISZ I C2666 SMA SNL CLA HLT / @@2667=7722 AND I D0101 / @@2670=0501 AND I C0031 / @@2671=0431 DCA I D0024 / @@2672=3424 ISZ D2617 / @@2673=2217 ISZ I D0102 / @@2674=2502 C2675, 1405 / TAD I C0005 C2676, 4006 / JMS C0006 TAD I C0001 / @@2677=1401 AND I D2740 / @@2700=0740 C2701, 0411 / AND I AI1 C2702, 0416 / AND I AI6 C2703, 4724 / JMS I D2724 C2704, 4003 / JMS C0003 D2705, 0125 / AND C0125 ISZ D2705 / @@2706=2305 C2707, 4020 / JMS D0020 ISZ D2617 / @@2710=2217 AND I C2722 / @@2711=0722 AND C0115 / @@2712=0115 C2713, 4011 / JMS AI1 C2714, 1624 / TAD I D2624 AND I C0122 / @@2715=0522 C2716, 2225 / ISZ D2625 ISZ D0024 / @@2717=2024 C2720, 7700 / SMA CLA C2721, 2721 / ISZ I C2721 C2722, 7715 / CLA MQA ASR + D2723, 0116 / AND D0116 D2724, 2501 / ISZ I D0101 TAD I C0040 / @@2725=1440 C2726, 2405 / ISZ I C0005 ISZ D2724 / @@2727=2324 ISZ D2740 / @@2730=2340 TAD I C2713 / @@2731=1713 SMA CLA / @@2732=7700 C2733, 2733 / ISZ I C2733 SMA SNL CLA HLT / @@2734=7722 AND I D0101 / @@2735=0501 AND I C0040 / @@2736=0440 ISZ D2724 / @@2737=2324 D2740, 1720 / TAD I C2720 C2741, 5007 / JMP C0007 JMP I D2604 / long jump to L7700 @@2742=5604 JMP I C2611 / long jump to L1104 @@2743=5611 JMP I C2651 / long jump to L4040 @@2744=5651 C2745, 4017 / JMS AI7 ISZ D2640 / @@2746=2240 ISZ D2724 / @@2747=2324 TAD I C2720 / @@2750=1720 C2751, 5004 / JMP C0004 TAD I C2703 / @@2752=1703 ISZ I C0115 / @@2753=2515 AND C0124 / @@2754=0124 C2755, 1117 / TAD C0117 TAD I C2651 / @@2756=1651 C2757, 4027 / JMS C0027 AND C0123 / @@2760=0123 C2761, 4016 / JMS AI6 TAD I D2724 / @@2762=1724 C2763, 4020 / JMS D0020 ISZ D2605 / @@2764=2205 ISZ D2723 / @@2765=2323 AND I D0104 / @@2766=0504 JMP I D0022 / long jump to L0224 @@2767=5422 AND I C0123 / @@2770=0523 ISZ I C0001 / @@2771=2401 ISZ D2624 / @@2772=2224 C2773, 4024 / JMS D0024 AND I C0123 / @@2774=0523 ISZ I C0056 / @@2775=2456 SMA CLA / @@2776=7700 C2777, 2777 / ISZ I C2777 C3000, 7717 / CLA MQA LSR + D3001, 2005 / ISZ C0005 ISZ D3001 / @@3002=2201 C3003, 2417 / ISZ I AI7 C3004, C3004, 2240 / ISZ D3040 D3005, 1525 / TAD I C0125 ISZ D3124 / @@3006=2324 C3007, 4016 / JMS AI6 TAD I C3127 / @@3010=1727 C3011, C3011, 4020 / JMS D0020 ISZ D3005 / @@3012=2205 ISZ D3123 / @@3013=2323 C3014, 4022 / JMS D0022 AND I D0101 / @@3015=0501 AND I C0040 / @@3016=0440 ISZ D3124 / @@3017=2324 TAD I C3120 / @@3020=1720 C3021, 5007 / JMP C0007 JMP I C3004 / long jump to L2240 @@3022=5604 JMP I C3011 / long jump to L4020 @@3023=5611 D3024, 5651 / JMP I C3051 C3025, 4017 / JMS AI7 ISZ D3040 / @@3026=2240 ISZ D3124 / @@3027=2324 TAD I C3120 / @@3030=1720 C3031, 5004 / JMP C0004 TAD I C3103 / @@3032=1703 ISZ I C0115 / @@3033=2515 AND C0124 / @@3034=0124 TAD C0117 / @@3035=1117 TAD I C3051 / @@3036=1651 JMP I D3077 / long jump to L2411 @@3037=5677 D3040, 0000 / AND L0000 DCA D0041 / @@3041=3041 C3042, 7717 / CLA MQA LSR + C3043, 2005 / ISZ C0005 ISZ D3001 / @@3044=2201 C3045, 2417 / ISZ I AI7 ISZ D3040 / @@3046=2240 TAD I C0125 / @@3047=1525 ISZ D3124 / @@3050=2324 C3051, 4016 / JMS AI6 TAD I C3127 / @@3052=1727 C3053, 4020 / JMS D0020 ISZ D3005 / @@3054=2205 ISZ D3123 / @@3055=2323 C3056, 4022 / JMS D0022 AND I D0101 / @@3057=0501 AND I C0040 / @@3060=0440 ISZ D3124 / @@3061=2324 AND C0122 / @@3062=0122 ISZ I L0050 / @@3063=2450 C3064, 0756 / AND I C3156 AND I C0056 / @@3065=0456 TAD L0151 / @@3066=1151 C3067, 4017 / JMS AI7 ISZ D3040 / @@3070=2240 ISZ D3005 / @@3071=2205 ISZ D3105 / @@3072=2305 ISZ I L0050 / @@3073=2450 C3074, 0417 / AND I AI7 AND C3125 / @@3075=0325 TAD I D0101 / @@3076=1501 D3077, 2411 / ISZ I AI1 TAD I C3116 / @@3100=1716 JMP L0156 / @@3101=5156 SMA CLA / @@3102=7700 C3103, 3103 / DCA D0103 SMA SNL CLA HLT / @@3104=7722 D3105, 0501 / AND I D0101 AND I C0040 / @@3106=0440 ISZ D3124 / @@3107=2324 AND C0122 / @@3110=0122 ISZ I L0050 / @@3111=2450 C3112, 0756 / AND I C3156 AND I C0056 / @@3113=0456 TAD L0156 / @@3114=1156 JMP L0140 / @@3115=5140 C3116, 1722 / TAD I C3122 C3117, 4022 / JMS D0022 C3120, 0523 / AND I C0123 AND I C0124 / @@3121=0524 C3122, 5004 / JMP C0004 D3123, 1703 / TAD I C3103 D3124, 2515 / ISZ I C0115 C3125, 0124 / AND C0124 TAD C0117 / @@3126=1117 C3127, 1651 / TAD I C3051 C3130, 4027 / JMS C0027 AND C0123 / @@3131=0123 C3132, 4016 / JMS AI6 TAD I D3124 / @@3133=1724 C3134, 4020 / JMS D0020 ISZ D3005 / @@3135=2205 ISZ D3123 / @@3136=2323 AND I D0104 / @@3137=0504 JMP I D0022 / long jump to L0224 @@3140=5422 AND I C0123 / @@3141=0523 ISZ I C0001 / @@3142=2401 ISZ D3024 / @@3143=2224 C3144, 4024 / JMS D0024 AND I C0123 / @@3145=0523 ISZ I C0056 / @@3146=2456 SMA CLA / @@3147=7700 *3200 D3200, 0000 / AND L0000 AND C0001 / @@3201=0001 C3202, 0002 / AND D0002 C3203, 0004 / AND C0004 C3204, 0010 / AND AI0 AND D0020 / @@3205=0020 C3206, 0040 / AND C0040 AND D0100 / @@3207=0100 D3210, 0200 / AND D3200 AND I L0000 / @@3211=0400 C3212, 1000 / TAD L0000 ISZ L0000 / @@3213=2000 JMS L0000 / @@3214=4000 TAD D0111 / @@3215=1111 C3216, 2222 / ISZ D3222 C3217, 3333 / DCA C3333 C3220, 4444 / JMS I C0044 JMP I C0155 / long jump to L7771 @@3221=5555 D3222, 6666 / 6666 C3223, 7777 / CLA MQA SCA MQL LSR + C3224, 1010 / TAD AI0 TAD C3212 / @@3225=1212 C3226, 1313 / TAD C3313 C3227, 1414 / TAD I AI4 TAD I C0115 / @@3230=1515 TAD I C3216 / @@3231=1616 D3232, 1717 / TAD I C3317 ISZ D0020 / @@3233=2020 ISZ D0121 / @@3234=2121 C3235, 2323 / ISZ C3323 C3236, 2424 / ISZ I D0024 ISZ I C0125 / @@3237=2525 ISZ I C3226 / @@3240=2626 C3241, 2727 / ISZ I C3327 DCA D0030 / @@3242=3030 DCA D0131 / @@3243=3131 DCA D3232 / @@3244=3232 DCA I D0034 / @@3245=3434 DCA I C0135 / @@3246=3535 DCA I C3236 / @@3247=3636 C3250, 3737 / DCA I C3337 C3251, 4040 / JMS C0040 L3252, C3252, 4141 / JMS C0141 C3253, 4242 / JMS C3242 C3254, 4343 / JMS C3343 C3255, 4545 / JMS I C0145 C3256, C3256, 4646 / JMS I C3246 C3257, 4747 / JMS I C3347 JMP L0050 / @@3260=5050 JMP L0151 / @@3261=5151 JMP L3252 / @@3262=5252 C3263, 5353 / JMP C3353 JMP I C0054 / long jump to L3320 @@3264=5454 JMP I C3256 / long jump to L4646 @@3265=5656 C3266, 5757 / JMP I C3357 C3267, 6060 / 6060 C3270, 6161 / 6161 CIF0 / Prepare to change to instruction fie @@3271=6262 C3272, 6363 / 6363 TTRR / (Data Communications System 680/I) T @@3273=6464 C3274, 6565 / 6565 C3275, 6767 / 6767 CMA CML RAR / @@3276=7070 CLL CMA CML IAC RAR / @@3277=7171 CLA CMA CML RTR / @@3300=7272 CLA CLL CMA CML IAC RTR / @@3301=7373 SNA SZL OSR / @@3302=7474 C3303, 7575 / MQA SCA MQL ASR + SNA SZL CLA OSR HLT / @@3304=7676 AND D0101 / @@3305=0101 AND C3202 / @@3306=0202 AND C3303 / @@3307=0303 C3310, 0404 / AND I C0004 AND I D0105 / @@3311=0505 AND I C3206 / @@3312=0606 C3313, 0707 / AND I C3307 DCA D3210 / @@3314=3210 AND C0123 / @@3315=0123 SNA CLA OSR / @@3316=7654 C3317, 4567 / JMS I C0167 *3400 D3400, 0060 / AND C0060 AND C0061 / @@3401=0061 AND C0062 / @@3402=0062 AND C0063 / @@3403=0063 AND C0064 / @@3404=0064 AND D0065 / @@3405=0065 AND C0066 / @@3406=0066 AND C0067 / @@3407=0067 AND C0070 / @@3410=0070 AND C0071 / @@3411=0071 AND D0072 / @@3412=0072 AND D0073 / @@3413=0073 AND D0074 / @@3414=0074 AND D0075 / @@3415=0075 AND D0076 / @@3416=0076 AND D0077 / @@3417=0077 AND C0040 / @@3420=0040 AND D0041 / @@3421=0041 AND C0042 / @@3422=0042 AND C0043 / @@3423=0043 AND C0044 / @@3424=0044 AND C0045 / @@3425=0045 AND C0046 / @@3426=0046 AND C0047 / @@3427=0047 AND L0050 / @@3430=0050 AND C0051 / @@3431=0051 AND L0052 / @@3432=0052 AND C0053 / @@3433=0053 AND C0054 / @@3434=0054 AND C0055 / @@3435=0055 AND C0056 / @@3436=0056 AND C0057 / @@3437=0057 AND D0020 / @@3440=0020 AND C0021 / @@3441=0021 AND D0022 / @@3442=0022 AND C0023 / @@3443=0023 AND D0024 / @@3444=0024 AND C0025 / @@3445=0025 AND C0026 / @@3446=0026 AND C0027 / @@3447=0027 AND D0030 / @@3450=0030 AND C0031 / @@3451=0031 AND C0032 / @@3452=0032 AND C0033 / @@3453=0033 AND D0034 / @@3454=0034 AND C0035 / @@3455=0035 AND C0036 / @@3456=0036 AND C0037 / @@3457=0037 AND L0000 / @@3460=0000 AND C0001 / @@3461=0001 AND D0002 / @@3462=0002 AND C0003 / @@3463=0003 C3464, 0004 / AND C0004 C3465, 0005 / AND C0005 C3466, 0006 / AND C0006 C3467, 0007 / AND C0007 C3470, 0010 / AND AI0 C3471, 0011 / AND AI1 C3472, 0012 / AND AI2 C3473, 0013 / AND AI3 C3474, 0014 / AND AI4 C3475, 0015 / AND AI5 C3476, 0016 / AND AI6 C3477, 0017 / AND AI7 AND C0060 / @@3500=0060 AND C0061 / @@3501=0061 AND C0062 / @@3502=0062 AND C0063 / @@3503=0063 AND C0064 / @@3504=0064 AND D0065 / @@3505=0065 AND C0066 / @@3506=0066 AND C0067 / @@3507=0067 AND C0070 / @@3510=0070 AND C0071 / @@3511=0071 AND D0072 / @@3512=0072 AND D0073 / @@3513=0073 AND D0074 / @@3514=0074 AND D0075 / @@3515=0075 AND D0076 / @@3516=0076 AND D0077 / @@3517=0077 *3600 C3600, 0100 / AND D0100 AND D0101 / @@3601=0101 AND D0102 / @@3602=0102 AND D0103 / @@3603=0103 AND D0104 / @@3604=0104 AND D0105 / @@3605=0105 AND D0106 / @@3606=0106 AND D0107 / @@3607=0107 AND D0110 / @@3610=0110 AND C3700 / @@3611=0300 AND D0112 / @@3612=0112 AND D0113 / @@3613=0113 AND C0114 / @@3614=0114 AND C0115 / @@3615=0115 AND D0116 / @@3616=0116 AND C0117 / @@3617=0117 C3620, 0040 / AND C0040 AND D0041 / @@3621=0041 AND C0042 / @@3622=0042 AND C0043 / @@3623=0043 AND C0044 / @@3624=0044 AND C0045 / @@3625=0045 AND C0046 / @@3626=0046 AND C0047 / @@3627=0047 AND L0050 / @@3630=0050 AND C3640 / @@3631=0240 AND L0052 / @@3632=0052 AND C0053 / @@3633=0053 AND C0054 / @@3634=0054 AND C0055 / @@3635=0055 AND C0056 / @@3636=0056 AND C0057 / @@3637=0057 C3640, 0020 / AND D0020 AND C0021 / @@3641=0021 AND D0022 / @@3642=0022 AND C0023 / @@3643=0023 AND D0024 / @@3644=0024 AND C0025 / @@3645=0025 AND C0026 / @@3646=0026 AND C0027 / @@3647=0027 AND D0030 / @@3650=0030 AND C3620 / @@3651=0220 AND C0032 / @@3652=0032 AND C0033 / @@3653=0033 AND D0034 / @@3654=0034 AND C0035 / @@3655=0035 AND C0036 / @@3656=0036 AND C0037 / @@3657=0037 AND L0000 / @@3660=0000 AND C0001 / @@3661=0001 AND D0002 / @@3662=0002 AND C0003 / @@3663=0003 C3664, 0004 / AND C0004 C3665, 0005 / AND C0005 C3666, 0006 / AND C0006 C3667, 0007 / AND C0007 C3670, 0010 / AND AI0 AND C3600 / @@3671=0200 C3672, 0012 / AND AI2 C3673, 0013 / AND AI3 C3674, 0014 / AND AI4 C3675, 0015 / AND AI5 C3676, 0016 / AND AI6 C3677, 0017 / AND AI7 C3700, 0100 / AND D0100 AND D0101 / @@3701=0101 AND D0102 / @@3702=0102 AND D0103 / @@3703=0103 AND D0104 / @@3704=0104 AND D0105 / @@3705=0105 AND D0106 / @@3706=0106 AND D0107 / @@3707=0107 AND D0110 / @@3710=0110 AND C3700 / @@3711=0300 AND D0112 / @@3712=0112 AND D0113 / @@3713=0113 AND C0114 / @@3714=0114 AND C0115 / @@3715=0115 AND D0116 / @@3716=0116 AND C0117 / @@3717=0117 *4000 D4000, 0000 / AND L0000 AND D4000 / @@4001=0200 C4002, 0010 / AND AI0 C4003, 0007 / AND C0007 C4004, 0006 / AND C0006 C4005, 0005 / AND C0005 C4006, 0004 / AND C0004 AND C0003 / @@4007=0003 AND D0002 / @@4010=0002 C4011, 0001 / AND C0001 AND D0020 / @@4012=0020 AND C0040 / @@4013=0040 AND D0100 / @@4014=0100 JMS D4027 / @@4015=4227 C4016, 4057 / JMS C0057 C4017, 4277 / JMS C4077 L4020, JMS D0107 / @@4020=4107 C4021, 4327 / JMS C4127 C4022, 4157 / JMS C0157 C4023, 4377 / JMS C4177 AND C0026 / @@4024=0026 C4025, 4036 / JMS C0036 C4026, 4237 / JMS C4037 D4027, 4027 / JMS C0027 JMS D4027 / @@4030=4227 C4031, 4037 / JMS C0037 C4032, 4237 / JMS C4037 AND C0045 / @@4033=0045 C4034, 4247 / JMS C4047 C4035, 4257 / JMS C4057 C4036, 4047 / JMS C0047 C4037, 4247 / JMS C4047 L4040, C4040, 4057 / JMS C0057 C4041, 4257 / JMS C4057 C4042, 4067 / JMS C0067 C4043, 4267 / JMS C4067 JMS D0077 / @@4044=4077 C4045, 4067 / JMS C0067 C4046, 4267 / JMS C4067 JMS D0077 / @@4047=4077 C4050, 4277 / JMS C4077 AND D0104 / @@4051=0104 C4052, 4307 / JMS C4107 C4053, 4116 / JMS D0116 C4054, 4317 / JMS C4117 C4055, 4307 / JMS C4107 C4056, 4117 / JMS C0117 C4057, 4317 / JMS C4117 C4060, 4126 / JMS C0126 C4061, 4327 / JMS C4127 C4062, 4136 / JMS C0136 C4063, 4337 / JMS C4137 C4064, 4127 / JMS C0127 C4065, 4137 / JMS C0137 C4066, 4337 / JMS C4137 C4067, 4145 / JMS C0145 C4070, 4347 / JMS C4147 C4071, 4157 / JMS C0157 C4072, 4357 / JMS C4157 C4073, 4147 / JMS C0147 C4074, 4347 / JMS C4147 C4075, 4357 / JMS C4157 C4076, 4167 / JMS C0167 C4077, 4367 / JMS C4167 C4100, 4177 / JMS C0177 C4101, 4377 / JMS C4177 C4102, 4167 / JMS C0167 C4103, 4367 / JMS C4167 C4104, 4177 / JMS C0177 AND C4003 / @@4105=0203 C4106, 0012 / AND AI2 C4107, 4213 / JMS C4013 C4110, 4007 / JMS C0007 C4111, 4207 / JMS C4007 C4112, 4017 / JMS AI7 C4113, 4217 / JMS C4017 C4114, 4066 / JMS C0066 C4115, 4217 / JMS C4017 C4116, 4167 / JMS C0167 C4117, 4317 / JMS C4117 $