TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-d02b-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-d02b-pb.bin / Generated 2010 02 19 00:10:22 / 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 / / 1616 locations used, 1306 code and 0310 data //////////////////////////////////////////////////////////////////////////////// *0000 D0000, 0000 / AND D0000 L0001, C0001, 5001 / JMP L0001 C0002, 0002 / AND C0002 C0003, 0003 / AND C0003 *0017 AI7, 4177 / AUTO-INDEX REGISTER JMS C0177 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0020 / / Called from: / 0031 0034 0037 0044 0047 0315 0320 0323 0326 0331 0334 0433 0447 0510 0514 / 0517 0532 0537 0542 0545 0550 0554 0557 0602 0606 0611 0616 0621 0634 0643 / 0646 0651 2135 2137 2141 2144 2146 2474 2500 2510 2602 2604 2606 2610 2613 / 2646 2656 2660 2667 2700 2705 2711 2717 2721 2726 2730 2751 2753 / Total 0072 (58) calls //////////////////////////////////////////////////////////////////////////////// S0020, 0 / return area TLS / Load the TTO from the content of AC4 @@0021=6046 L0022, TSF / Skip if teleprinter flag is a 1. @@0022=6041 JMP L0022 / @@0023=5022 CLA / @@0024=7200 JMP I S0020 / return @@0025=5420 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0026 / / Called from: / 2456 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0026, 0 / return area STA / AC = 7777 (-0001) @@0027=7240 AND C0104 / @@0030=0104 JMS S0020 / @@0031=4020 STA / AC = 7777 (-0001) @@0032=7240 AND C0103 / @@0033=0103 JMS S0020 / @@0034=4020 STA / AC = 7777 (-0001) @@0035=7240 AND C0103 / @@0036=0103 JMS S0020 / @@0037=4020 C0040, 5426 / JMP I S0026 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0041 / / Called from: / 0312 0424 0527 0623 2133 2142 2471 2653 2715 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S0041, 0 / return area STA / AC = 7777 (-0001) @@0042=7240 AND C0104 / @@0043=0104 JMS S0020 / @@0044=4020 STA / AC = 7777 (-0001) @@0045=7240 AND C0103 / @@0046=0103 JMS S0020 / @@0047=4020 JMP I S0041 / return @@0050=5441 D0051, 0000 / AND D0000 D0052, 0000 / AND D0000 D0053, 0000 / AND D0000 D0054, 0000 / AND D0000 D0055, 0000 / AND D0000 D0056, 0000 / AND D0000 D0057, 0000 / AND D0000 C0060, 4000 / JMS D0000 C0061, 2000 / ISZ D0000 C0062, 1000 / TAD D0000 C0063, 0400 / AND I D0000 C0064, 0200 / AND D0000 C0065, 0100 / AND D0100 AND C0040 / @@0066=0040 AND S0020 / @@0067=0020 C0070, 0010 / AND AI0 C0071, 0004 / AND C0004 C0072, 0002 / AND C0002 AND L0001 / @@0073=0001 D0074, 0057 / AND D0057 C0075, 0322 / AND D0122 C0076, 0301 / AND C0101 C0077, 0314 / AND C0114 D0100, 0324 / AND D0124 C0101, 0320 / AND D0120 C0102, 0240 / AND C0040 C0103, 0212 / AND AI2 C0104, 0215 / AND AI5 C0105, 0060 / AND C0060 C0106, 0061 / AND C0061 C0107, 0317 / AND D0117 C0110, 0313 / AND C0113 C0111, 7764 / SMA SZA SNL CLA OSR D0112, 0000 / AND D0000 C0113, 0262 / AND C0062 C0114, 0302 / AND C0102 D0115, 0000 / AND D0000 D0116, 0000 / AND D0000 D0117, 0000 / AND D0000 D0120, 0000 / AND D0000 D0121, 0000 / AND D0000 D0122, 0000 / AND D0000 D0123, 0000 / AND D0000 D0124, 0000 / AND D0000 D0125, 0000 / AND D0000 C0126, 7776 / SPA SNA SZL CLA OSR HLT D0127, 0000 / AND D0000 C0130, 0307 / AND C0107 C0131, 0304 / AND C0104 C0132, 0330 / AND C0130 C0133, 0331 / AND C0131 D0134, 0000 / AND D0000 D0135, 0000 / AND D0000 D0136, 0000 / AND D0000 C0137, 7763 / CLA MQA SCA MQL SCL + D0140, 0000 / AND D0000 C0141, 7377 / CLA CLL CMA CML IAC RTR RTL //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0142 / / Called from: / 2001 2075 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0142, 0 / return area STA / AC = 7777 (-0001) @@0143=7240 AND D0140 / @@0144=0140 SZA / @@0145=7440 JMP L0150 / @@0146=5150 JMP L0152 / @@0147=5152 L0150, CLA CLL CMA CML / @@0150=7360 JMP I S0142 / return @@0151=5542 L0152, CLA CLL CMA / AC = 7777 (-0001) @@0152=7340 JMP I S0142 / return @@0153=5542 *0200 L0200, D0200, 7240 / STA DCA D0124 / @@0201=3124 STA / AC = 7777 (-0001) @@0202=7240 DCA D0135 / @@0203=3135 STA / AC = 7777 (-0001) @@0204=7240 DCA D0136 / @@0205=3136 STA / AC = 7777 (-0001) @@0206=7240 DCA D0121 / @@0207=3121 DCA D0134 / @@0210=3134 DCA D0115 / @@0211=3115 JMP L0223 / @@0212=5223 DCA D0120 / @@0213=3120 L0214, CLA CLL CMA / AC = 7777 (-0001) @@0214=7340 AND D0135 / @@0215=0135 TAD D0136 / @@0216=1136 DCA D0122 / @@0217=3122 RAL / @@0220=7004 DCA D0134 / @@0221=3134 JMP I C0337 / long jump to L4051 @@0222=5737 L0223, JMP I C0224 / long jump to L4020 @@0223=5624 C0224, C0224, 4020 / JMS S0020 L0225, STA / AC = 7777 (-0001) @@0225=7240 AND D0135 / @@0226=0135 DCA D0115 / @@0227=3115 STA / AC = 7777 (-0001) @@0230=7240 AND D0136 / @@0231=0136 DCA D0116 / @@0232=3116 JMS S0235 / @@0233=4235 JMP L0214 / @@0234=5214 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0235 / / Called from: / 0233 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0235, 0 / return area CLA CLL / AC = 0000 @@0236=7300 DCA D0121 / @@0237=3121 DCA D0120 / @@0240=3120 CMA / @@0241=7040 AND C0111 / @@0242=0111 DCA D0123 / @@0243=3123 L0244, CMA / @@0244=7040 AND D0115 / @@0245=0115 RAR / @@0246=7010 DCA D0115 / @@0247=3115 RAL / @@0250=7004 DCA D0117 / @@0251=3117 CMA / @@0252=7040 AND D0116 / @@0253=0116 RAR / @@0254=7010 DCA D0116 / @@0255=3116 CMA / @@0256=7040 AND D0117 / @@0257=0117 SNL / @@0260=7420 JMP L0302 / @@0261=5302 SNA / @@0262=7450 JMP L0305 / @@0263=5305 CLA CLL / AC = 0000 @@0264=7300 L0265, CMA / @@0265=7040 AND D0120 / @@0266=0120 RAR / @@0267=7010 CMA / @@0270=7040 AND D0117 / @@0271=0117 L0272, DCA D0120 / @@0272=3120 CMA / @@0273=7040 AND D0121 / @@0274=0121 RAR / @@0275=7010 DCA D0121 / @@0276=3121 ISZ D0123 / @@0277=2123 JMP L0244 / @@0300=5244 JMP I S0235 / return @@0301=5635 L0302, SNA / @@0302=7450 JMP L0265 / @@0303=5265 CLA CML / @@0304=7220 L0305, CMA / @@0305=7040 AND D0120 / @@0306=0120 SZA / @@0307=7440 CLL / @@0310=7100 JMP L0272 / @@0311=5272 L0312, JMS S0041 / @@0312=4041 STA / AC = 7777 (-0001) @@0313=7240 AND C0076 / @@0314=0076 JMS S0020 / @@0315=4020 STA / AC = 7777 (-0001) @@0316=7240 D0317, 0131 / AND C0131 JMS S0020 / @@0320=4020 STA / AC = 7777 (-0001) @@0321=7240 AND C0131 / @@0322=0131 JMS S0020 / @@0323=4020 STA / AC = 7777 (-0001) @@0324=7240 AND C0102 / @@0325=0102 JMS S0020 / @@0326=4020 STA / AC = 7777 (-0001) @@0327=7240 AND C0107 / @@0330=0107 JMS S0020 / @@0331=4020 STA / AC = 7777 (-0001) @@0332=7240 AND C0110 / @@0333=0110 JMS S0020 / @@0334=4020 JMP I C0336 / long jump to L2000 @@0335=5736 C0336, C0336, 2000 / ISZ D0000 C0337, C0337, 4051 / JMS D0051 *0400 L0400, C0400, 7604 / LAS CLL RTL / @@0401=7106 SPA / @@0402=7510 JMS S0416 / @@0403=4216 LAS / @@0404=7604 SPA / @@0405=7510 HLT / @@0406=7402 L0407, LAS / @@0407=7604 CLL RAL / @@0410=7104 SPA / @@0411=7510 JMP I C0414 / long jump to L0225 @@0412=5614 JMP I C0415 / long jump to L0223 @@0413=5615 C0414, C0414, 0225 / AND C0425 C0415, C0415, 0223 / AND C0423 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0416 / / Called from: / 0403 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0416, 0 / return area STA / AC = 7777 (-0001) @@0417=7240 AND D0124 / @@0420=0124 SZA / @@0421=7440 JMS S0521 / @@0422=4321 C0423, 7000 / NOP JMS S0041 / @@0424=4041 C0425, 4020 / JMS S0020 C0426, 7240 / STA AND D0120 / @@0427=0120 JMS I C0435 / long call to S2637 @@0430=4635 STA / AC = 7777 (-0001) @@0431=7240 AND C0102 / @@0432=0102 JMS S0020 / @@0433=4020 JMP L0436 / @@0434=5236 C0435, C0435, 2637 / ISZ I C0437 L0436, STA / AC = 7777 (-0001) @@0436=7240 C0437, 0121 / AND D0121 DCA D0125 / @@0440=3125 JMS S0466 / @@0441=4266 STA / AC = 7777 (-0001) @@0442=7240 AND D0134 / @@0443=0134 JMS I C0435 / long call to S2637 @@0444=4635 STA / AC = 7777 (-0001) @@0445=7240 AND C0102 / @@0446=0102 JMS S0020 / @@0447=4020 JMP L0451 / @@0450=5251 L0451, STA / AC = 7777 (-0001) @@0451=7240 AND D0122 / @@0452=0122 DCA D0125 / @@0453=3125 JMS S0466 / @@0454=4266 STA / AC = 7777 (-0001) @@0455=7240 AND D0135 / @@0456=0135 DCA D0125 / @@0457=3125 JMS S0466 / @@0460=4266 STA / AC = 7777 (-0001) @@0461=7240 AND D0136 / @@0462=0136 DCA D0125 / @@0463=3125 JMS S0466 / @@0464=4266 JMP I S0416 / return @@0465=5616 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0466 / / Called from: / 0441 0454 0460 0464 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0466, 0 / return area STA / AC = 7777 (-0001) @@0467=7240 AND C0137 / @@0470=0137 DCA D0112 / @@0471=3112 L0472, ISZ D0112 / @@0472=2112 SKP / @@0473=7410 JMP L0512 / @@0474=5312 STA / AC = 7777 (-0001) @@0475=7240 AND D0125 / @@0476=0125 CLL / @@0477=7100 RAL / @@0500=7004 DCA D0125 / @@0501=3125 C0502, 7430 / SZL JMP L0506 / @@0503=5306 JMS I C0564 / long call to S2702 @@0504=4764 JMP L0472 / @@0505=5272 L0506, STA / AC = 7777 (-0001) @@0506=7240 AND C0106 / @@0507=0106 JMS S0020 / @@0510=4020 JMP L0472 / @@0511=5272 L0512, STA / AC = 7777 (-0001) @@0512=7240 AND C0102 / @@0513=0102 JMS S0020 / @@0514=4020 STA / AC = 7777 (-0001) @@0515=7240 AND C0102 / @@0516=0102 JMS S0020 / @@0517=4020 JMP I S0466 / return @@0520=5666 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0521 / / Called from: / 0422 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0521, 0 / return area CLA / @@0522=7200 DCA D0124 / @@0523=3124 STA / AC = 7777 (-0001) @@0524=7240 AND C0126 / @@0525=0126 DCA D0127 / @@0526=3127 JMS S0041 / @@0527=4041 L0530, STA / AC = 7777 (-0001) @@0530=7240 AND C0102 / @@0531=0102 JMS S0020 / @@0532=4020 ISZ D0127 / @@0533=2127 JMP L0530 / @@0534=5330 STA / AC = 7777 (-0001) @@0535=7240 AND C0130 / @@0536=0130 JMS S0020 / @@0537=4020 STA / AC = 7777 (-0001) @@0540=7240 AND C0107 / @@0541=0107 JMS S0020 / @@0542=4020 STA / AC = 7777 (-0001) @@0543=7240 AND C0107 / @@0544=0107 JMS S0020 / @@0545=4020 STA / AC = 7777 (-0001) @@0546=7240 AND C0131 / @@0547=0131 JMS S0020 / @@0550=4020 JMS I C0562 / long call to S0626 @@0551=4762 STA / AC = 7777 (-0001) @@0552=7240 AND C0114 / @@0553=0114 JMS S0020 / @@0554=4020 STA / AC = 7777 (-0001) @@0555=7240 AND C0076 / @@0556=0076 JMS S0020 / @@0557=4020 JMP I C0561 / long jump to L0600 @@0560=5761 C0561, C0561, 0600 / AND I L0400 C0562, C0562, 0626 / AND I C0426 L0563, JMP I S0521 / return @@0563=5721 C0564, C0564, 2702 / ISZ I C0502 *0600 L0600, STA / AC = 7777 (-0001) @@0600=7240 AND C0131 / @@0601=0131 JMS S0020 / @@0602=4020 JMS S0626 / @@0603=4226 STA / AC = 7777 (-0001) @@0604=7240 AND C0132 / @@0605=0132 JMS S0020 / @@0606=4020 STA / AC = 7777 (-0001) @@0607=7240 AND C0102 / @@0610=0102 JMS S0020 / @@0611=4020 JMS S0640 / @@0612=4240 JMS S0626 / @@0613=4226 STA / AC = 7777 (-0001) @@0614=7240 AND C0133 / @@0615=0133 JMS S0020 / @@0616=4020 STA / AC = 7777 (-0001) @@0617=7240 AND C0102 / @@0620=0102 JMS S0020 / @@0621=4020 JMS S0640 / @@0622=4240 JMS S0041 / @@0623=4041 JMP I C0625 / long jump to L0563 @@0624=5625 C0625, C0625, 0563 / AND I C0163 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0626 / / Called from: / 0551 0603 0613 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0626, 0 / return area STA / AC = 7777 (-0001) @@0627=7240 AND C0111 / @@0630=0111 DCA D0127 / @@0631=3127 L0632, STA / AC = 7777 (-0001) @@0632=7240 AND C0102 / @@0633=0102 JMS S0020 / @@0634=4020 ISZ D0127 / @@0635=2127 JMP L0632 / @@0636=5232 JMP I S0626 / return @@0637=5626 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0640 / / Called from: / 0612 0622 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0640, 0 / return area STA / AC = 7777 (-0001) @@0641=7240 AND C0076 / @@0642=0076 JMS S0020 / @@0643=4020 STA / AC = 7777 (-0001) @@0644=7240 AND C0075 / @@0645=0075 JMS S0020 / @@0646=4020 STA / AC = 7777 (-0001) @@0647=7240 AND C0130 / @@0650=0130 JMS S0020 / @@0651=4020 JMP I S0640 / return @@0652=5640 *2000 L2000, D2000, 4316 / JMS S2116 JMS S0142 / @@2001=4142 AND D0051 / @@2002=0051 IAC / @@2003=7001 DCA D0051 / @@2004=3051 SNL / @@2005=7420 JMP L2015 / @@2006=5215 TAD C0060 / @@2007=1060 DCA D0140 / @@2010=3140 L2011, JMS S2152 / @@2011=4352 SZA / @@2012=7440 JMP L2020 / @@2013=5220 JMP L2074 / @@2014=5274 L2015, CLA / @@2015=7200 DCA D0140 / @@2016=3140 JMP L2011 / @@2017=5211 L2020, STA / AC = 7777 (-0001) @@2020=7240 DCA D0056 / @@2021=3056 CLA CLL CMA / AC = 7777 (-0001) @@2022=7340 AND D0140 / @@2023=0140 SZA / @@2024=7440 JMP L2072 / @@2025=5272 CLL CMA / @@2026=7140 L2027, AND D0051 / @@2027=0051 RAL / @@2030=7004 DCA D0052 / @@2031=3052 SZL / @@2032=7430 TAD C0060 / @@2033=1060 DCA D0053 / @@2034=3053 STA / AC = 7777 (-0001) @@2035=7240 AND D0052 / @@2036=0052 RAR / @@2037=7010 DCA D0054 / @@2040=3054 SZL / @@2041=7430 TAD C0060 / @@2042=1060 DCA D0055 / @@2043=3055 CLA CLL CMA / AC = 7777 (-0001) @@2044=7340 AND D0054 / @@2045=0054 CMA / @@2046=7040 TAD D0051 / @@2047=1051 CMA / @@2050=7040 SNA / @@2051=7450 SZL / @@2052=7430 JMP I C2115 / long jump to L2400 @@2053=5715 TAD C0060 / @@2054=1060 AND D0051 / @@2055=0051 CMA / @@2056=7040 TAD D0053 / @@2057=1053 CMA / @@2060=7040 SZA / @@2061=7440 JMP I C2115 / long jump to L2400 @@2062=5715 TAD D0055 / @@2063=1055 CMA / @@2064=7040 TAD D0140 / @@2065=1140 CMA / @@2066=7040 SZA / @@2067=7440 JMP I C2115 / long jump to L2400 @@2070=5715 JMP I C2151 / long jump to L2521 @@2071=5751 L2072, CLA CLL CMA CML / @@2072=7360 JMP L2027 / @@2073=5227 L2074, JMS S2116 / @@2074=4316 JMS S0142 / @@2075=4142 AND D0051 / @@2076=0051 IAC / @@2077=7001 DCA D0051 / @@2100=3051 SNL / @@2101=7420 JMP L2111 / @@2102=5311 TAD C0060 / @@2103=1060 DCA D0140 / @@2104=3140 L2105, JMS S2163 / @@2105=4363 SZA / @@2106=7440 JMP I C2114 / long jump to L2200 @@2107=5714 JMP L2132 / @@2110=5332 L2111, CLA / @@2111=7200 DCA D0140 / @@2112=3140 JMP L2105 / @@2113=5305 C2114, C2114, 2200 / ISZ L2000 C2115, C2115, 2400 / ISZ I D0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2116 / / Called from: / 2074 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2116, 0 / return area CLA CLL / AC = 0000 @@2117=7300 DCA D0051 / @@2120=3051 DCA D0052 / @@2121=3052 DCA D0054 / @@2122=3054 DCA D0053 / @@2123=3053 DCA D0055 / @@2124=3055 DCA D0140 / @@2125=3140 NOP / @@2126=7000 NOP / @@2127=7000 NOP / @@2130=7000 JMP I S2116 / return @@2131=5716 L2132, CLA / @@2132=7200 JMS S0041 / @@2133=4041 TAD C0075 / @@2134=1075 JMS S0020 / @@2135=4020 TAD C0107 / @@2136=1107 JMS S0020 / @@2137=4020 TAD D0100 / @@2140=1100 JMS S0020 / @@2141=4020 JMS S0041 / @@2142=4041 TAD C0113 / @@2143=1113 JMS S0020 / @@2144=4020 TAD C0114 / @@2145=1114 JMS S0020 / @@2146=4020 JMP I C2150 / long jump to L0200 @@2147=5750 C2150, C2150, 0200 / AND L2000 C2151, C2151, 2521 / ISZ I D0121 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2152 / / Called from: / 2011 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2152, 0 / return area TAD D0140 / @@2153=1140 SZA / @@2154=7440 SKP / @@2155=7410 JMP L2020 / @@2156=5220 STA / AC = 7777 (-0001) @@2157=7240 AND D0051 / @@2160=0051 CMA / @@2161=7040 JMP I S2152 / return @@2162=5752 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2163 / / Called from: / 2105 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2163, 0 / return area TAD D0140 / @@2164=1140 SZA / @@2165=7440 SKP / @@2166=7410 JMP I C2114 / long jump to L2200 @@2167=5714 STA / AC = 7777 (-0001) @@2170=7240 AND D0051 / @@2171=0051 CMA / @@2172=7040 JMP I S2163 / return @@2173=5763 *2200 L2200, CLA CLL / AC = 0000 @@2200=7300 DCA D0056 / @@2201=3056 CLA CLL CMA / AC = 7777 (-0001) @@2202=7340 AND D0140 / @@2203=0140 SZA / @@2204=7440 JMP L2250 / @@2205=5250 CLL CMA / @@2206=7140 L2207, AND D0051 / @@2207=0051 RTR / @@2210=7012 DCA D0054 / @@2211=3054 SZL / @@2212=7430 TAD C0072 / @@2213=1072 DCA D0055 / @@2214=3055 TAD D0054 / @@2215=1054 RTL / @@2216=7006 DCA D0052 / @@2217=3052 SZL / @@2220=7430 TAD C0060 / @@2221=1060 DCA D0053 / @@2222=3053 CLL / @@2223=7100 TAD D0052 / @@2224=1052 CMA / @@2225=7040 TAD D0051 / @@2226=1051 CMA / @@2227=7040 SZA / @@2230=7440 JMP I C2252 / long jump to L2406 @@2231=5652 TAD C0072 / @@2232=1072 AND D0051 / @@2233=0051 CMA / @@2234=7040 TAD D0055 / @@2235=1055 CMA / @@2236=7040 SZA / @@2237=7440 JMP I C2252 / long jump to L2406 @@2240=5652 TAD D0053 / @@2241=1053 CMA / @@2242=7040 TAD D0140 / @@2243=1140 CMA / @@2244=7040 SZA / @@2245=7440 JMP I C2252 / long jump to L2406 @@2246=5652 JMP I C2253 / long jump to L2525 @@2247=5653 L2250, CLA CLL CMA CML / @@2250=7360 JMP L2207 / @@2251=5207 C2252, C2252, 2406 / ISZ I C0006 C2253, C2253, 2525 / ISZ I D0125 *2400 L2400, CLA / @@2400=7200 TAD C2444 / @@2401=1244 DCA D2415 / @@2402=3215 TAD C2445 / @@2403=1245 DCA D2414 / @@2404=3214 JMP L2416 / @@2405=5216 L2406, CLA / @@2406=7200 TAD C2450 / @@2407=1250 DCA D2415 / @@2410=3215 TAD C2451 / @@2411=1251 DCA D2414 / @@2412=3214 JMP L2416 / @@2413=5216 D2414, 0000 / AND D0000 D2415, 0000 / AND D0000 L2416, C2416, 7604 / LAS AND C0062 / @@2417=0062 CMA / @@2420=7040 TAD C0062 / @@2421=1062 CMA / @@2422=7040 SNA / @@2423=7450 JMS S2455 / @@2424=4255 LAS / @@2425=7604 AND C0060 / @@2426=0060 CMA / @@2427=7040 TAD C0060 / @@2430=1060 CMA / @@2431=7040 SNA / @@2432=7450 HLT / @@2433=7402 L2434, LAS / @@2434=7604 AND C0061 / @@2435=0061 CMA / @@2436=7040 TAD C0061 / @@2437=1061 CMA / @@2440=7040 SNA / @@2441=7450 JMP I D2415 / long jump to L0000 @@2442=5615 JMP I D2414 / long jump to L0000 @@2443=5614 C2444, 2020 / ISZ S0020 C2445, 2001 / ISZ L0001 ISZ D0000 / @@2446=2000 ISZ D0074 / @@2447=2074 C2450, 2200 / ISZ L2400 C2451, 2075 / ISZ C0075 ISZ I C0064 / @@2452=2464 ISZ I C0065 / @@2453=2465 C2454, 2650 / ISZ I C2450 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2455 / / Called from: / 2424 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2455, 0 / return area JMS S0026 / @@2456=4026 JMS I C2514 / long call to S2600 @@2457=4714 CLA / @@2460=7200 TAD D0056 / @@2461=1056 SZA / @@2462=7440 JMP L2466 / @@2463=5266 C2464, 4715 / JMS I C2515 JMP I S2455 / return @@2465=5655 L2466, CLA / @@2466=7200 TAD C2454 / @@2467=1254 DCA I C2514 / @@2470=3714 JMS S0041 / @@2471=4041 CLA / @@2472=7200 TAD C0075 / @@2473=1075 JMS S0020 / @@2474=4020 TAD C0076 / @@2475=1076 C2476, 4020 / JMS S0020 TAD C0077 / @@2477=1077 JMS S0020 / @@2500=4020 TAD C0102 / @@2501=1102 C2502, 4020 / JMS S0020 TAD D0053 / @@2503=1053 SZA / @@2504=7440 JMP I C2516 / long jump to L2676 @@2505=5716 JMS I C2517 / long call to S2702 @@2506=4717 L2507, TAD C0102 / @@2507=1102 JMS S0020 / @@2510=4020 TAD D0052 / @@2511=1052 DCA D0057 / @@2512=3057 JMP I C2520 / long jump to L2616 @@2513=5720 C2514, C2514, 2600 / ISZ I L2400 C2515, 2732 / ISZ I C2532 C2516, C2516, 2676 / ISZ I C2476 C2517, C2517, 2702 / ISZ I C2502 C2520, C2520, 2616 / ISZ I L2416 L2521, CLA / @@2521=7200 TAD C2445 / @@2522=1245 DCA D2414 / @@2523=3214 JMP L2434 / @@2524=5234 L2525, CLA / @@2525=7200 TAD C2451 / @@2526=1251 DCA D2414 / @@2527=3214 JMP L2434 / @@2530=5234 *2600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2600 / / Called from: / 2457 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2600, 0 / return area TAD C0101 / @@2601=1101 JMS S0020 / @@2602=4020 TAD C0076 / @@2603=1076 JMS S0020 / @@2604=4020 TAD D0100 / @@2605=1100 JMS S0020 / @@2606=4020 TAD C0102 / @@2607=1102 JMS S0020 / @@2610=4020 JMS S2761 / @@2611=4361 TAD C0102 / @@2612=1102 JMS S0020 / @@2613=4020 TAD D0051 / @@2614=1051 DCA D0057 / @@2615=3057 L2616, JMS S2631 / @@2616=4231 AND C0137 / @@2617=0137 DCA D0112 / @@2620=3112 L2621, ISZ D0112 / @@2621=2112 SKP / @@2622=7410 JMP I S2600 / return @@2623=5600 CLA / @@2624=7200 TAD D0057 / @@2625=1057 C2626, 0410 / AND I AI0 JMS S2637 / @@2627=4237 JMP L2621 / @@2630=5221 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2631 / / Called from: / 2616 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2631, 0 / return area CLA / @@2632=7200 TAD D0074 / @@2633=1074 C2634, 3010 / DCA AI0 STA / AC = 7777 (-0001) @@2635=7240 JMP I S2631 / return @@2636=5631 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2637 / / Called from: / 0430 0444 2627 2763 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S2637, 0 / return area SZA / @@2640=7440 JMP L2644 / @@2641=5244 JMS S2702 / @@2642=4302 JMP I S2637 / return @@2643=5637 L2644, STA / AC = 7777 (-0001) @@2644=7240 AND C0106 / @@2645=0106 JMS S0020 / @@2646=4020 JMP I S2637 / return @@2647=5637 CLA / @@2650=7200 TAD C2673 / @@2651=1273 DCA S2600 / @@2652=3200 JMS S0041 / @@2653=4041 CLA / @@2654=7200 TAD C0075 / @@2655=1075 JMS S0020 / @@2656=4020 TAD C0076 / @@2657=1076 JMS S0020 / @@2660=4020 JMS S2723 / @@2661=4323 TAD D0055 / @@2662=1055 SZA / @@2663=7440 JMP L2707 / @@2664=5307 JMS S2702 / @@2665=4302 L2666, TAD C0102 / @@2666=1102 JMS S0020 / @@2667=4020 TAD D0054 / @@2670=1054 DCA D0057 / @@2671=3057 JMP L2616 / @@2672=5216 C2673, 2465 / ISZ I C0065 C2674, C2674, 2507 / ISZ I C0107 C2675, 2744 / ISZ I C2744 L2676, STA / AC = 7777 (-0001) @@2676=7240 AND C0106 / @@2677=0106 JMS S0020 / @@2700=4020 JMP I C2674 / long jump to L2507 @@2701=5674 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2702 / / Called from: / 0504 2506 2642 2665 2742 2757 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S2702, 0 / return area STA / AC = 7777 (-0001) @@2703=7240 AND C0105 / @@2704=0105 JMS S0020 / @@2705=4020 JMP I S2702 / return @@2706=5702 L2707, CLA / @@2707=7200 TAD C0106 / @@2710=1106 JMS S0020 / @@2711=4020 JMP L2666 / @@2712=5266 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2713 / / Called from: / 2735 2747 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2713, 0 / return area CLA / @@2714=7200 JMS S0041 / @@2715=4041 TAD C0075 / @@2716=1075 JMS S0020 / @@2717=4020 TAD D0100 / @@2720=1100 JMS S0020 / @@2721=4020 JMP I S2713 / return @@2722=5713 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2723 / / Called from: / 2661 2736 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2723, 0 / return area CLA / @@2724=7200 TAD C0075 / @@2725=1075 JMS S0020 / @@2726=4020 TAD C0102 / @@2727=1102 JMS S0020 / @@2730=4020 JMP I S2723 / return @@2731=5723 CLA / @@2732=7200 TAD C2675 / @@2733=1275 DCA S2600 / @@2734=3200 JMS S2713 / @@2735=4313 JMS S2723 / @@2736=4323 TAD D0055 / @@2737=1055 SZA / @@2740=7440 JMP L2707 / @@2741=5307 JMS S2702 / @@2742=4302 JMP L2666 / @@2743=5266 C2744, 7200 / CLA TAD C2673 / @@2745=1273 DCA S2600 / @@2746=3200 JMS S2713 / @@2747=4313 TAD C0077 / @@2750=1077 JMS S0020 / @@2751=4020 TAD C0102 / @@2752=1102 JMS S0020 / @@2753=4020 TAD D0053 / @@2754=1053 SZA / @@2755=7440 JMP L2676 / @@2756=5276 JMS S2702 / @@2757=4302 JMP I C2674 / long jump to L2507 @@2760=5674 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2761 / / Called from: / 2611 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2761, 0 / return area TAD D0140 / @@2762=1140 JMS S2637 / @@2763=4237 JMP I S2761 / return @@2764=5761 *4000 L4000, CLA / @@4000=7200 TAD I AI7 / AUTO INDEX REGISTER @@4001=1417 DCA D0135 / @@4002=3135 TAD I AI7 / AUTO INDEX REGISTER @@4003=1417 DCA D0136 / @@4004=3136 ISZ D4016 / @@4005=2216 JMP I C4047 / long jump to L0225 @@4006=5647 TAD C4015 / @@4007=1215 DCA AI7 / AUTO INDEX REGISTER @@4010=3017 TAD C4014 / @@4011=1214 DCA D4016 / @@4012=3216 JMP I C4047 / long jump to L0225 @@4013=5647 C4014, 7634 / SZL CLA OSR C4015, 4177 / JMS C0177 D4016, 0000 / AND D0000 D4017, 0000 / AND D0000 L4020, CLA CLL / AC = 0000 @@4020=7300 ISZ D4017 / @@4021=2217 NOP / @@4022=7000 TAD D4017 / @@4023=1217 RAR / @@4024=7010 C4025, 7630 / SZL CLA JMP L4030 / @@4026=5230 JMP L4000 / @@4027=5200 L4030, LAS / @@4030=7604 AND C0063 / @@4031=0063 NOP / @@4032=7000 SZA / @@4033=7440 JMP I C4050 / long jump to L0312 @@4034=5650 STA / AC = 7777 (-0001) @@4035=7240 AND D0121 / @@4036=0121 NOP / @@4037=7000 DCA D0135 / @@4040=3135 CMA / @@4041=7040 AND D0121 / @@4042=0121 IAC / @@4043=7001 C4044, 1410 / TAD I AI0 DCA D0136 / @@4045=3136 JMP I C4047 / long jump to L0225 @@4046=5647 C4047, C4047, 0225 / AND C4025 C4050, C4050, 0312 / AND C4112 L4051, STA / AC = 7777 (-0001) @@4051=7240 AND D0121 / @@4052=0121 CMA / @@4053=7040 AND D0122 / @@4054=0122 DCA D4075 / @@4055=3275 STA / AC = 7777 (-0001) @@4056=7240 AND D0122 / @@4057=0122 CMA / @@4060=7040 AND D0121 / @@4061=0121 DCA D4074 / @@4062=3274 STA / AC = 7777 (-0001) @@4063=7240 AND D4075 / @@4064=0275 SZA / @@4065=7440 JMP I C4076 / long jump to L0400 @@4066=5676 STA / AC = 7777 (-0001) @@4067=7240 AND D4074 / @@4070=0274 SZA / @@4071=7440 JMP I C4076 / long jump to L0400 @@4072=5676 JMP L4077 / @@4073=5277 D4074, 0000 / AND D0000 D4075, 0000 / AND D0000 C4076, C4076, 0400 / AND I D0000 L4077, STA / AC = 7777 (-0001) @@4077=7240 AND D0134 / @@4100=0134 CMA / @@4101=7040 AND D0120 / @@4102=0120 DCA D4122 / @@4103=3322 STA / AC = 7777 (-0001) @@4104=7240 AND D0120 / @@4105=0120 CMA / @@4106=7040 AND D0134 / @@4107=0134 DCA D4123 / @@4110=3323 STA / AC = 7777 (-0001) @@4111=7240 C4112, 0322 / AND D4122 SZA / @@4113=7440 JMP I C4076 / long jump to L0400 @@4114=5676 STA / AC = 7777 (-0001) @@4115=7240 AND D4123 / @@4116=0323 SZA / @@4117=7440 JMP I C4076 / long jump to L0400 @@4120=5676 JMP I C4124 / long jump to L0407 @@4121=5724 D4122, 0000 / AND D0000 D4123, 0000 / AND D0000 C4124, C4124, 0407 / AND I C0007 *4200 C4200, 7777 / CLA MQA SCA MQL LSR + C4201, 7777 / CLA MQA SCA MQL LSR + SPA SNA SZL CLA OSR HLT / @@4202=7776 C4203, 7777 / CLA MQA SCA MQL LSR + C4204, 7775 / CLA MQA SCA MQL ASR + C4205, 7777 / CLA MQA SCA MQL LSR + C4206, 7773 / CLA MQA SCA MQL SHL + C4207, 7777 / CLA MQA SCA MQL LSR + C4210, 7767 / CLA MQA SCA MQL DVI + C4211, 7777 / CLA MQA SCA MQL LSR + C4212, 7757 / CLA MQA SCA LSR + C4213, 7777 / CLA MQA SCA MQL LSR + C4214, 7737 / CLA MQA MQL LSR + C4215, 7777 / CLA MQA SCA MQL LSR + C4216, 7677 / CLA SCA MQL LSR + C4217, 7777 / CLA MQA SCA MQL LSR + C4220, 7577 / MQA SCA MQL LSR + C4221, 7777 / CLA MQA SCA MQL LSR + C4222, 7377 / CLA CLL CMA CML IAC RTR RTL C4223, 7777 / CLA MQA SCA MQL LSR + C4224, 6777 / 6777 C4225, 7777 / CLA MQA SCA MQL LSR + C4226, 5777 / JMP I C4377 C4227, 7777 / CLA MQA SCA MQL LSR + C4230, 3777 / DCA I C4377 C4231, 7777 / CLA MQA SCA MQL LSR + C4232, 7777 / CLA MQA SCA MQL LSR + C4233, 7777 / CLA MQA SCA MQL LSR + SPA SNA SZL CLA OSR HLT / @@4234=7776 C4235, 7777 / CLA MQA SCA MQL LSR + C4236, 7775 / CLA MQA SCA MQL ASR + C4237, 7777 / CLA MQA SCA MQL LSR + C4240, 7773 / CLA MQA SCA MQL SHL + C4241, 7777 / CLA MQA SCA MQL LSR + C4242, 7767 / CLA MQA SCA MQL DVI + C4243, 7777 / CLA MQA SCA MQL LSR + C4244, 7757 / CLA MQA SCA LSR + C4245, 7777 / CLA MQA SCA MQL LSR + C4246, 7737 / CLA MQA MQL LSR + C4247, 7777 / CLA MQA SCA MQL LSR + C4250, 7677 / CLA SCA MQL LSR + C4251, 7777 / CLA MQA SCA MQL LSR + C4252, 7577 / MQA SCA MQL LSR + C4253, 7777 / CLA MQA SCA MQL LSR + C4254, 7377 / CLA CLL CMA CML IAC RTR RTL C4255, 6777 / 6777 C4256, 7777 / CLA MQA SCA MQL LSR + C4257, 5777 / JMP I C4377 C4260, 7777 / CLA MQA SCA MQL LSR + C4261, 3777 / DCA I C4377 C4262, 7777 / CLA MQA SCA MQL LSR + AND L0001 / @@4263=0001 C4264, 7777 / CLA MQA SCA MQL LSR + AND C0002 / @@4265=0002 C4266, 7777 / CLA MQA SCA MQL LSR + C4267, 0004 / AND C0004 C4270, 7777 / CLA MQA SCA MQL LSR + C4271, 0010 / AND AI0 C4272, 7777 / CLA MQA SCA MQL LSR + AND S0020 / @@4273=0020 C4274, 7777 / CLA MQA SCA MQL LSR + AND C0040 / @@4275=0040 C4276, 7777 / CLA MQA SCA MQL LSR + AND D0100 / @@4277=0100 C4300, 7777 / CLA MQA SCA MQL LSR + AND C4200 / @@4301=0200 C4302, 7777 / CLA MQA SCA MQL LSR + AND I D0000 / @@4303=0400 C4304, 7777 / CLA MQA SCA MQL LSR + TAD D0000 / @@4305=1000 C4306, 7777 / CLA MQA SCA MQL LSR + ISZ D0000 / @@4307=2000 C4310, 7777 / CLA MQA SCA MQL LSR + JMS D0000 / @@4311=4000 AND L0001 / @@4312=0001 C4313, 7777 / CLA MQA SCA MQL LSR + AND C0002 / @@4314=0002 C4315, 7777 / CLA MQA SCA MQL LSR + C4316, 0004 / AND C0004 C4317, 7777 / CLA MQA SCA MQL LSR + C4320, 0010 / AND AI0 C4321, 7777 / CLA MQA SCA MQL LSR + AND C4200 / @@4322=0200 C4323, 7777 / CLA MQA SCA MQL LSR + AND I D0000 / @@4324=0400 C4325, 7777 / CLA MQA SCA MQL LSR + AND D0100 / @@4326=0100 C4327, 7777 / CLA MQA SCA MQL LSR + AND C4200 / @@4330=0200 C4331, 7777 / CLA MQA SCA MQL LSR + AND I D0000 / @@4332=0400 C4333, 7777 / CLA MQA SCA MQL LSR + TAD D0000 / @@4334=1000 C4335, 7777 / CLA MQA SCA MQL LSR + ISZ D0000 / @@4336=2000 C4337, 7777 / CLA MQA SCA MQL LSR + JMS D0000 / @@4340=4000 C4341, 7777 / CLA MQA SCA MQL LSR + $