TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-diklb-a-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-diklb-a-pb.bin / Generated 2010 02 19 00:10:26 / 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 / / 4250 locations used, 3016 code and 1232 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0002 / / Called from: / 2550 4274 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0002, 0 / return area D0003, 0003 / AND D0003 *0005 D0005, 5402 / JMP I S0002 C0006, C0006, 0000 / AND L0000 *0016 AI6, 0000 / AUTO-INDEX REGISTER AND L0000 *0020 C0020, 0000 / AND L0000 D0021, 0304 / AND C0104 D0022, 0000 / AND L0000 D0023, 0000 / AND L0000 C0024, C0024, 0254 / AND D0054 C0025, C0025, 1365 / TAD C0165 C0026, C0026, 0474 / AND I D0074 C0027, C0027, 2012 / ISZ AI2 D0030, 2000 / ISZ L0000 D0031, 2005 / ISZ D0005 C0032, C0032, 2033 / ISZ D0033 D0033, 2041 / ISZ D0041 D0034, 2051 / ISZ D0051 D0035, 0000 / AND L0000 D0036, 2100 / ISZ D0100 D0037, 2234 / ISZ D0034 D0040, 3074 / DCA D0074 D0041, 3140 / DCA D0140 D0042, 3265 / DCA D0065 D0043, 3451 / DCA I D0051 D0044, 3522 / DCA I C0122 D0045, 3564 / DCA I C0164 D0046, 0000 / AND L0000 D0047, 0000 / AND L0000 D0050, 0000 / AND L0000 D0051, 0000 / AND L0000 D0052, 0000 / AND L0000 D0053, 0000 / AND L0000 D0054, 0000 / AND L0000 C0055, 7372 / CLA CLL CMA CML RTR D0056, 0000 / AND L0000 D0057, 0000 / AND L0000 D0060, 0000 / AND L0000 C0061, C0061, 0521 / AND I C0121 C0062, C0062, 0436 / AND I D0036 C0063, C0063, 0444 / AND I D0044 C0064, C0064, 0504 / AND I C0104 D0065, 0000 / AND L0000 C0066, C0066, 1271 / TAD C0071 D0067, 1615 / TAD I AI5 C0070, C0070, 2017 / ISZ AI7 C0071, C0071, 0600 / AND I L0000 D0072, 0000 / AND L0000 D0073, 0000 / AND L0000 D0074, 0000 / AND L0000 C0075, 0000 / AND L0000 D0076, 0000 / AND L0000 D0077, 0000 / AND L0000 D0100, 0000 / AND L0000 D0101, 0000 / AND L0000 D0102, 0000 / AND L0000 C0103, 0215 / AND AI5 C0104, 0212 / AND AI2 D0105, 0277 / AND D0077 D0106, 0000 / AND L0000 D0107, 0000 / AND L0000 *0117 C0117, 7007 / IAC RTL C0120, 3650 / DCA I D0050 C0121, 0770 / AND I C0170 C0122, 3635 / DCA I D0035 C0123, C0123, 0400 / AND I L0000 C0124, 7767 / CLA MQA SCA MQL DVI + D0125, 7730 / SPA SZL CLA C0126, 0004 / AND C0004 C0127, 7727 / CLA MQA MQL DVI + C0130, 0005 / AND D0005 C0131, 4116 / JMS C0116 C0132, 7761 / CLA MQA SCA MQL C0133, 4113 / JMS C0113 C0134, 7762 / SMA SZA SNL CLA HLT D0135, 0257 / AND D0057 C0136, 0334 / AND C0134 C0137, 7653 / CLA SCA SHL + D0140, 0011 / AND AI1 C0141, 0240 / AND D0040 C0142, 0100 / AND D0100 C0143, 7401 / NOP C0144, 0377 / AND C0177 D0145, 0077 / AND D0077 C0146, 0036 / AND D0036 C0147, 7771 / CLA MQA SCA MQL NMI C0150, 0007 / AND C0007 C0151, C0151, 0351 / AND C0151 C0152, C0152, 0343 / AND C0143 C0153, C0153, 0357 / AND C0157 C0154, C0154, 0542 / AND I C0142 C0155, C0155, 0765 / AND I C0165 C0156, 1165 / TAD C0165 C0157, 0761 / AND I C0161 AND I C0155 / @@0160=0755 C0161, C0161, 0751 / AND I C0151 TAD C0171 / @@0162=1171 AND I D0145 / @@0163=0745 C0164, C0164, 0740 / AND I D0140 C0165, C0165, 1546 / TAD I C0146 C0166, C0166, 0734 / AND I C0134 C0167, C0167, 0730 / AND I C0130 C0170, C0170, 0724 / AND I C0124 C0171, C0171, 0717 / AND I C0117 C0172, C0172, 0626 / AND I C0026 C0173, C0173, 0600 / AND I L0000 C0174, C0174, 0553 / AND I C0153 C0175, C0175, 0330 / AND C0130 C0176, C0176, 0317 / AND C0117 C0177, C0177, 1513 / TAD I C0113 C0200, 7610 / SKP CLA L0201, HLT / @@0201=7402 JMS I C0377 / long call to S1741 @@0202=4777 LAS / @@0203=7604 AND C0150 / @@0204=0150 TAD C0147 / @@0205=1147 SMA SZA / @@0206=7540 JMP L0201 / @@0207=5201 LAS / @@0210=7604 AND C0150 / @@0211=0150 C0212, 3035 / DCA D0035 TAD D0035 / @@0213=1035 TAD C0146 / @@0214=1146 C0215, 3046 / DCA D0046 TAD I D0046 / @@0216=1446 DCA D0226 / @@0217=3226 JMS I C0376 / long call to S3600 @@0220=4776 JMS I C0071 / long call to S0600 @@0221=4471 AND D0005 / @@0222=0005 AND L0001 / @@0223=0001 SPA SNA SZL CLA OSR HLT / @@0224=7776 JMP I D0226 / long jump to L0000 @@0225=5626 D0226, 0000 / AND L0000 L0227, CLA HLT / @@0227=7602 L0230, CLA / @@0230=7200 TAD D0022 / @@0231=1022 DCA D0052 / @@0232=3052 L0233, JMS S0273 / @@0233=4273 LAS / @@0234=7604 RAL / @@0235=7004 SMA CLA / @@0236=7700 JMP I D0050 / long jump to L0000 @@0237=5450 C0240, 7604 / LAS AND D0145 / @@0241=0145 CIA / @@0242=7041 TAD D0051 / @@0243=1051 SNA CLA / @@0244=7650 JMP I D0050 / long jump to L0000 @@0245=5450 TAD D0052 / @@0246=1052 IAC / @@0247=7001 SZA CLA / @@0250=7640 JMP L0233 / @@0251=5233 HLT / @@0252=7402 JMP L0230 / @@0253=5230 L0254, D0254, 4310 / JMS S0310 LAS / @@0255=7604 RTL / @@0256=7006 SZL CLA / @@0257=7630 JMP L0230 / @@0260=5230 C0261, 1052 / TAD D0052 IAC / @@0262=7001 SZA CLA / @@0263=7640 JMP L0233 / @@0264=5233 LAS / @@0265=7604 C0266, 7006 / RTL SPA CLA / @@0267=7710 JMP L0230 / @@0270=5230 HLT / @@0271=7402 JMP L0254 / @@0272=5254 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0273 / / Called from: / 0233 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0273, 0 / return area CLA CLL / AC = 0000 @@0274=7300 TAD I D0052 / @@0275=1452 DCA D0051 / @@0276=3051 ISZ D0052 / @@0277=2052 TAD D0052 / @@0300=1052 DCA D0046 / @@0301=3046 ISZ D0052 / @@0302=2052 TAD D0052 / @@0303=1052 DCA D0050 / @@0304=3050 TAD I D0046 / @@0305=1446 DCA D0052 / @@0306=3052 JMP I S0273 / return @@0307=5673 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0310 / / Never called //////////////////////////////////////////////////////////////////////////////// S0310, 0 / return area LAS / @@0311=7604 SMA CLA / @@0312=7700 C0313, 5710 / JMP I S0310 TAD D0051 / @@0314=1051 HLT / @@0315=7402 JMP I S0310 / return @@0316=5710 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0317 / / Called from: / 0522 1201 1217 1225 1250 1300 1354 1402 1411 1634 2001 2006 2013 2110 2140 / 2235 2663 2677 2713 3074 3077 3265 3270 3275 / Total 0030 (24) calls //////////////////////////////////////////////////////////////////////////////// S0317, 0 / return area C0320, 7200 / CLA TAD I S0317 / @@0321=1717 DCA D0046 / @@0322=3046 ISZ S0317 / @@0323=2317 C0324, 1717 / TAD I S0317 DCA I D0046 / @@0325=3446 ISZ S0317 / @@0326=2317 JMP I S0317 / return @@0327=5717 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0330 / / Called from: / 0550 1334 2150 2213 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0330, 0 / return area CLA CLL / AC = 0000 @@0331=7300 TAD D0023 / @@0332=1023 DCA D0053 / @@0333=3053 L0334, TAD C0055 / @@0334=1055 DCA D0054 / @@0335=3054 L0336, ISZ D0054 / @@0336=2054 JMP L0336 / @@0337=5336 ISZ D0053 / @@0340=2053 C0341, 5334 / JMP L0334 JMP I S0330 / return @@0342=5730 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0343 / / Called from: / 2660 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0343, 0 / return area CLA / @@0344=7200 TAD C0020 / @@0345=1020 SNA CLA / @@0346=7650 ISZ S0343 / @@0347=2343 JMP I S0343 / return @@0350=5743 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0351 / / Called from: / 2674 2746 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0351, 0 / return area STA / AC = 7777 (-0001) @@0352=7240 TAD C0020 / @@0353=1020 SNA CLA / @@0354=7650 ISZ S0351 / @@0355=2351 JMP I S0351 / return @@0356=5751 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0357 / / Called from: / 1005 1042 1067 1630 2044 2244 2304 2331 2341 2406 2632 2710 2724 3033 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S0357, 0 / return area CLA CLL CMA RAL / AC = 7776 (-0002) @@0360=7344 TAD C0020 / @@0361=1020 SNA CLA / @@0362=7650 ISZ S0357 / @@0363=2357 JMP I S0357 / return @@0364=5757 *0376 C0376, C0376, 3600 / DCA I C0200 C0377, C0377, 1741 / TAD I C0341 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0400 / / Called from: / 0457 0475 1052 1077 1421 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S0400, 0 / return area CLA CLL / AC = 0000 @@0401=7300 TAD D0415 / @@0402=1215 RTL / @@0403=7006 TAD D0416 / @@0404=1216 DCA D0415 / @@0405=3215 TAD D0415 / @@0406=1215 RTL / @@0407=7006 TAD D0416 / @@0410=1216 RTL / @@0411=7006 DCA D0416 / @@0412=3216 TAD D0415 / @@0413=1215 JMP I S0400 / return @@0414=5600 D0415, 1233 / TAD C0433 D0416, 7622 / SNL CLA HLT //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0417 / / Called from: / 1326 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0417, 0 / return area CLA CLL / AC = 0000 @@0420=7300 TAD D0434 / @@0421=1234 RTL / @@0422=7006 TAD D0435 / @@0423=1235 DCA D0434 / @@0424=3234 TAD D0434 / @@0425=1234 RTL / @@0426=7006 TAD D0435 / @@0427=1235 RTL / @@0430=7006 DCA D0435 / @@0431=3235 TAD D0434 / @@0432=1234 JMP I S0417 / return @@0433=5617 D0434, 1233 / TAD C0433 D0435, 7622 / SNL CLA HLT //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0436 / / Called from: / 2114 2144 2205 3453 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0436, 0 / return area CLA / @@0437=7200 DCA D0442 / @@0440=3242 JMP I S0436 / return @@0441=5636 D0442, 0000 / AND L0000 D0443, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0444 / / Called from: / 2115 2145 2211 3462 3565 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S0444, 0 / return area CLA / @@0445=7200 TAD D0442 / @@0446=1242 DCA D0443 / @@0447=3243 TAD D0443 / @@0450=1243 IAC / @@0451=7001 AND C0144 / @@0452=0144 DCA D0442 / @@0453=3242 TAD D0443 / @@0454=1243 JMP I S0444 / return @@0455=5644 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0456 / / Called from: / 2207 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0456, 0 / return area L0457, JMS S0400 / @@0457=4200 AND D0145 / @@0460=0145 SNA / @@0461=7450 JMP L0457 / @@0462=5257 CIA / @@0463=7041 DCA D0473 / @@0464=3273 TAD I S0456 / @@0465=1656 DCA D0046 / @@0466=3046 TAD D0473 / @@0467=1273 DCA I D0046 / @@0470=3446 ISZ S0456 / @@0471=2256 JMP I S0456 / return @@0472=5656 D0473, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0474 / / Called from: / 0547 2147 2206 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0474, 0 / return area L0475, JMS S0400 / @@0475=4200 AND D0105 / @@0476=0105 SNA / @@0477=7450 JMP L0475 / @@0500=5275 CIA / @@0501=7041 DCA D0023 / @@0502=3023 JMP I S0474 / return @@0503=5674 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0504 / / Called from: / 1434 2122 2154 3472 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0504, 0 / return area DCA D0520 / @@0505=3320 TAD I S0504 / @@0506=1704 CIA / @@0507=7041 TAD D0520 / @@0510=1320 ISZ S0504 / @@0511=2304 SZA CLA / @@0512=7640 JMP L0516 / @@0513=5316 ISZ S0504 / @@0514=2304 JMP I S0504 / return @@0515=5704 L0516, TAD D0520 / @@0516=1320 JMP I S0504 / return @@0517=5704 D0520, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0521 / / Called from: / 2107 2137 2202 3451 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0521, 0 / return area L0522, JMS I C0176 / long call to S0317 @@0522=4576 C0523, 0541 / AND I C0141 / @@0524=7400 L0525, JMS I C0170 / long call to S0724 @@0525=4570 L0526, JMS I C0171 / long call to S0717 @@0526=4571 JMP L0526 / @@0527=5326 JMS I C0167 / long call to S0730 @@0530=4567 TAD C0143 / @@0531=1143 SZA CLA / @@0532=7640 SKP / @@0533=7410 JMP I S0521 / return @@0534=5721 ISZ D0541 / @@0535=2341 JMP L0525 / @@0536=5325 HLT / @@0537=7402 JMP L0522 / @@0540=5322 D0541, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0542 / / Called from: / 1637 2421 3464 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0542, 0 / return area CLA / @@0543=7200 TAD D0060 / @@0544=1060 SMA CLA / @@0545=7700 JMP I S0542 / return @@0546=5742 JMS S0474 / @@0547=4274 JMS I C0175 / long call to S0330 @@0550=4575 JMP I S0542 / return @@0551=5742 D0552, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0553 / / Called from: / 3005 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0553, 0 / return area CLA / @@0554=7200 TAD I S0553 / @@0555=1753 DCA D0552 / @@0556=3352 ISZ S0553 / @@0557=2353 L0560, JMS I C0172 / long call to S0626 @@0560=4572 JMS D0047 / @@0561=4047 ISZ D0552 / @@0562=2352 JMP L0560 / @@0563=5360 JMP I S0553 / return @@0564=5753 *0600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0600 / / Called from: / 0221 1001 1007 1013 1020 1024 1036 1044 1050 1055 1061 1071 1075 1102 1112 / 1120 1124 1130 1136 1142 1146 1154 1160 1303 1357 2634 2640 / Total 0033 (27) calls //////////////////////////////////////////////////////////////////////////////// S0600, 0 / return area CLA / @@0601=7200 TAD I S0600 / @@0602=1600 DCA D0623 / @@0603=3223 ISZ S0600 / @@0604=2200 TAD I S0600 / @@0605=1600 DCA D0624 / @@0606=3224 ISZ S0600 / @@0607=2200 TAD I S0600 / @@0610=1600 DCA D0625 / @@0611=3225 ISZ S0600 / @@0612=2200 L0613, CLA / @@0613=7200 TAD I D0623 / @@0614=1623 DCA I D0624 / @@0615=3624 ISZ D0623 / @@0616=2223 ISZ D0624 / @@0617=2224 ISZ D0625 / @@0620=2225 JMP L0613 / @@0621=5213 JMP I S0600 / return @@0622=5600 D0623, 0000 / AND L0000 D0624, 0000 / AND L0000 D0625, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0626 / / Called from: / 0560 2071 2073 2250 2312 2316 2322 2327 2335 2404 2425 2656 2726 2750 2754 / 3035 3041 3204 3224 3243 3245 3256 3523 3527 / Total 0030 (24) calls //////////////////////////////////////////////////////////////////////////////// S0626, 0 / return area CLA / @@0627=7200 TAD I S0626 / @@0630=1626 DCA D0714 / @@0631=3314 DCA D0716 / @@0632=3316 ISZ S0626 / @@0633=2226 L0634, TAD I D0714 / @@0634=1714 JMS I C0177 / long call to S1513 @@0635=4577 JMS S0643 / @@0636=4243 TAD I D0714 / @@0637=1714 JMS S0643 / @@0640=4243 ISZ D0714 / @@0641=2314 JMP L0634 / @@0642=5234 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0643 / / Called from: / 0636 0640 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0643, 0 / return area AND D0145 / @@0644=0145 DCA D0715 / @@0645=3315 TAD D0716 / @@0646=1316 SZA CLA / @@0647=7640 JMP L0660 / @@0650=5260 TAD D0715 / @@0651=1315 SNA / @@0652=7450 JMP L0656 / @@0653=5256 L0654, JMS S0671 / @@0654=4271 JMP I S0643 / return @@0655=5643 L0656, ISZ D0716 / @@0656=2316 JMP I S0643 / return @@0657=5643 L0660, DCA D0716 / @@0660=3316 TAD D0715 / @@0661=1315 SNA / @@0662=7450 JMP I S0643 / return @@0663=5643 TAD C0777 / @@0664=1377 SNA CLA / @@0665=7650 JMP I S0626 / return @@0666=5626 TAD D0715 / @@0667=1315 JMP L0654 / @@0670=5254 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0671 / / Called from: / 0654 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0671, 0 / return area TAD C0776 / @@0672=1376 SZA CLA / @@0673=7640 JMP L0700 / @@0674=5300 TAD C0103 / @@0675=1103 L0676, JMS I C0070 / long call to S2017 @@0676=4470 JMP I S0671 / return @@0677=5671 L0700, TAD D0715 / @@0700=1315 TAD C0775 / @@0701=1375 SZA CLA / @@0702=7640 JMP L0706 / @@0703=5306 TAD C0104 / @@0704=1104 JMP L0676 / @@0705=5276 L0706, TAD D0715 / @@0706=1315 TAD C0774 / @@0707=1374 SPA / @@0710=7510 TAD C0142 / @@0711=1142 TAD C0141 / @@0712=1141 JMP L0676 / @@0713=5276 D0714, 0000 / AND L0000 D0715, 0000 / AND L0000 D0716, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0717 / / Called from: / 0526 1367 2117 2151 2214 3115 3206 3210 3216 3226 3247 3465 3554 / Total 0015 (13) calls //////////////////////////////////////////////////////////////////////////////// S0717, 0 / return area KSF / Skip if keyboard flag is a 1. @@0720=6031 JMP I S0717 / return @@0721=5717 ISZ S0717 / @@0722=2317 JMP I S0717 / return @@0723=5717 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0724 / / Called from: / 0525 1366 2113 2143 2204 3102 3203 3223 3242 3454 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S0724, 0 / return area KCC / Clear AC and clear keyboard flag. @@0725=6032 JMP I S0724 / return @@0726=5724 HLT / @@0727=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0730 / / Called from: / 0530 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0730, 0 / return area KRS / Read keyboard buffer static. This is @@0731=6034 JMP I S0730 / return @@0732=5730 HLT / @@0733=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0734 / / Called from: / 2121 2153 2216 3467 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0734, 0 / return area KRB / Clear AC, clear keyboard flag, and r @@0735=6036 JMP I S0734 / return @@0736=5734 HLT / @@0737=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0740 / / Called from: / 3232 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0740, 0 / return area TSF / Skip if teleprinter flag is a 1. @@0741=6041 JMP I S0740 / return @@0742=5740 ISZ S0740 / @@0743=2340 JMP I S0740 / return @@0744=5740 C0745, C0745, 0000 / AND L0000 TCF / Clear teleprinter flag. @@0746=6042 JMP I C0745 / long jump to L0000 @@0747=5745 HLT / @@0750=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0751 / / Called from: / 3231 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0751, 0 / return area TLS / Load the TTO from the content of AC4 @@0752=6046 JMP I S0751 / return @@0753=5751 HLT / @@0754=7402 C0755, C0755, 0000 / AND L0000 C0756, 6030 / 6030 JMP I C0755 / long jump to L0000 @@0757=5755 HLT / @@0760=7402 C0761, C0761, 0000 / AND L0000 C0762, 6035 / 6035 JMP I C0761 / long jump to L0000 @@0763=5761 HLT / @@0764=7402 L0765, D0765, 0000 / AND L0000 C0766, 6045 / 6045 JMP I L0765 / long jump to L0000 @@0767=5765 D0770, 2365 / ISZ L0765 JMP I L0765 / long jump to L0000 @@0771=5765 *0774 C0774, 7740 / SMA SZA CLA C0775, 7735 / CLA MQA MQL ASR + C0776, 7733 / CLA MQA MQL SHL + C0777, 7701 / CLA MQA //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / Called from: / 2234 3274 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1000, 0 / return area JMS I C0173 / long call to S0600 @@1001=4573 AND C0103 / @@1002=0103 C1003, 4376 / JMS C1176 SPA SNA SZL CLA OSR HLT / @@1004=7776 JMS I C0153 / long call to S0357 @@1005=4553 JMP L1020 / @@1006=5220 JMS I C0173 / long call to S0600 @@1007=4573 AND C0103 / @@1010=0103 C1011, 4521 / JMS I C0121 SPA SNA SZL CLA OSR HLT / @@1012=7776 JMS I C0173 / long call to S0600 @@1013=4573 AND C0103 / @@1014=0103 C1015, 4633 / JMS I C1033 SPA SNA SZL CLA OSR HLT / @@1016=7776 JMP I S1000 / return @@1017=5600 L1020, JMS I C0173 / long call to S0600 @@1020=4573 AND C0103 / @@1021=0103 C1022, 4510 / JMS I C0110 SPA SNA SZL CLA OSR HLT / @@1023=7776 JMS I C0173 / long call to S0600 @@1024=4573 AND C0103 / @@1025=0103 C1026, 4622 / JMS I C1022 SPA SNA SZL CLA OSR HLT / @@1027=7776 JMP I S1000 / return @@1030=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1031 / / Called from: / 1623 2055 3446 3544 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1031, 0 / return area CLA / @@1032=7200 TAD I S1031 / @@1033=1631 DCA D1037 / @@1034=3237 ISZ S1031 / @@1035=2231 JMS I C0173 / long call to S0600 @@1036=4573 D1037, 0000 / AND L0000 JMS I L0000 / long call to S0000 @@1040=4400 C1041, 7775 / CLA MQA SCA MQL ASR + JMS I C0153 / long call to S0357 @@1042=4553 JMP L1055 / @@1043=5255 JMS I C0173 / long call to S0600 @@1044=4573 JMS I L0000 / long call to S0000 @@1045=4400 JMS I D0003 / long call to S0003 @@1046=4403 SZA SNL CLA HLT / @@1047=7662 JMS I C0173 / long call to S0600 @@1050=4573 JMS I L0000 / long call to S0000 @@1051=4400 JMS I C0123 / long call to S0400 @@1052=4523 C1053, 7657 / CLA SCA LSR + JMP I S1031 / return @@1054=5631 L1055, JMS I C0173 / long call to S0600 @@1055=4573 JMS I L0000 / long call to S0000 @@1056=4400 JMS I D0003 / long call to S0003 @@1057=4403 C1060, 7673 / CLA SCA MQL SHL + JMS I C0173 / long call to S0600 @@1061=4573 JMS I L0000 / long call to S0000 @@1062=4400 C1063, 4512 / JMS I C0112 C1064, 7670 / SNA SZL CLA JMP I S1031 / return @@1065=5631 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1066 / / Called from: / 2651 3432 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1066, 0 / return area JMS I C0153 / long call to S0357 @@1067=4553 JMP L1102 / @@1070=5302 JMS I C0173 / long call to S0600 @@1071=4573 C1072, 3706 / DCA I C1106 JMS I L0000 / long call to S0000 @@1073=4400 C1074, 7657 / CLA SCA LSR + JMS I C0173 / long call to S0600 @@1075=4573 JMS I L0000 / long call to S0000 @@1076=4400 JMS I C0123 / long call to S0400 @@1077=4523 C1100, 7657 / CLA SCA LSR + JMP I S1066 / return @@1101=5666 L1102, JMS I C0173 / long call to S0600 @@1102=4573 DCA I C1106 / @@1103=3706 JMS I L0000 / long call to S0000 @@1104=4400 CLA MQA / @@1105=7701 C1106, 4573 / JMS I C0173 DCA I C1106 / @@1107=3706 JMS I D0077 / long call to S0000 @@1110=4477 C1111, 7767 / CLA MQA SCA MQL DVI + JMS I C0173 / long call to S0600 @@1112=4573 JMS I L0000 / long call to S0000 @@1113=4400 C1114, 4512 / JMS I C0112 SNA SZL CLA / @@1115=7670 JMP I S1066 / return @@1116=5666 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1117 / / Called from: / 2662 3436 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1117, 0 / return area JMS I C0173 / long call to S0600 @@1120=4573 DCA I C1064 / @@1121=3664 JMS I L0000 / long call to S0000 @@1122=4400 SPA SNA SZL CLA HLT / @@1123=7772 JMS I C0173 / long call to S0600 @@1124=4573 JMS I L0000 / long call to S0000 @@1125=4400 JMS I C0006 / long call to S0000 @@1126=4406 SNA SZL CLA OSR HLT / @@1127=7676 JMS I C0173 / long call to S0600 @@1130=4573 JMS I L0000 / long call to S0000 @@1131=4400 C1132, 4512 / JMS I C0112 SNA SZL CLA / @@1133=7670 JMP I S1117 / return @@1134=5717 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1135 / / Called from: / 2676 3442 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1135, 0 / return area JMS I C0173 / long call to S0600 @@1136=4573 DCA I C1072 / @@1137=3672 JMS I L0000 / long call to S0000 @@1140=4400 SPA SNA SZL CLA HLT / @@1141=7772 JMS I C0173 / long call to S0600 @@1142=4573 JMS I L0000 / long call to S0000 @@1143=4400 JMS I C0006 / long call to S0000 @@1144=4406 SNA SZL CLA OSR HLT / @@1145=7676 JMS I C0173 / long call to S0600 @@1146=4573 JMS I L0000 / long call to S0000 @@1147=4400 C1150, 4512 / JMS I C0112 SNA SZL CLA / @@1151=7670 JMP I S1135 / return @@1152=5735 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1153 / / Called from: / 2712 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1153, 0 / return area JMS I C0173 / long call to S0600 @@1154=4573 DCA I C1100 / @@1155=3700 JMS I L0000 / long call to S0000 @@1156=4400 SPA SNA SZL CLA HLT / @@1157=7772 JMS I C0173 / long call to S0600 @@1160=4573 JMS I L0000 / long call to S0000 @@1161=4400 JMS I C0006 / long call to S0000 @@1162=4406 C1163, 7665 / CLA SCA MQL MUY + JMP I S1153 / return @@1164=5753 C1165, C1165, 0000 / AND L0000 C1166, 6040 / 6040 JMP I C1165 / long jump to L0000 @@1167=5765 HLT / @@1170=7402 C1171, C1171, 0000 / AND L0000 TPC / Load the TTO from the content of AC4 @@1172=6044 JMP I C1171 / long jump to L0000 @@1173=5771 HLT / @@1174=7402 *1200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / Called from: / 1536 1603 3121 3130 3133 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S1200, 0 / return area JMS I C0176 / long call to S0317 @@1201=4576 TAD D1211 / @@1202=1211 SNA SZL CLA HLT / @@1203=7672 L1204, TAD C1377 / @@1204=1377 JMS I C0070 / long call to S2017 @@1205=4470 ISZ D1211 / @@1206=2211 JMP L1204 / @@1207=5204 JMP I S1200 / return @@1210=5600 D1211, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1212 / / Called from: / 1537 1604 3122 3131 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1212, 0 / return area STA / AC = 7777 (-0001) @@1213=7240 JMS I C0070 / long call to S2017 @@1214=4470 JMP I S1212 / return @@1215=5612 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1216 / / Called from: / 1541 1606 3125 3134 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1216, 0 / return area JMS I C0176 / long call to S0317 @@1217=4576 TAD D1232 / @@1220=1232 C1221, 7557 / MQA SCA LSR + JMS S1343 / @@1222=4343 STA / AC = 7777 (-0001) @@1223=7240 DCA D0072 / @@1224=3072 JMS I C0176 / long call to S0317 @@1225=4576 TAD C1267 / @@1226=1267 TAD C1233 / @@1227=1233 ION / Enable Interrupts @@1230=6001 JMP I S1216 / return @@1231=5616 D1232, 0000 / AND L0000 C1233, 6036 / KRB TAD C0143 / @@1234=1143 SZA CLA / @@1235=7640 JMP L1245 / @@1236=5245 DCA D0072 / @@1237=3072 CLA CLL / AC = 0000 @@1240=7300 TAD D0074 / @@1241=1074 RAL / @@1242=7004 TAD D0073 / @@1243=1073 JMP I L0000 / long jump to L0000 @@1244=5400 L1245, ISZ D1232 / @@1245=2232 JMP I C0066 / long jump to L1271 @@1246=5466 CLA HLT / @@1247=7602 JMS I C0176 / long call to S0317 @@1250=4576 TAD D1232 / @@1251=1232 C1252, 7557 / MQA SCA LSR + JMP I C0066 / long jump to L1271 @@1253=5466 DCA D0073 / @@1254=3073 RAR / @@1255=7010 DCA D0074 / @@1256=3074 TSF / Skip if teleprinter flag is a 1. @@1257=6041 JMP L1264 / @@1260=5264 TCF / Clear teleprinter flag. @@1261=6042 DCA D0065 / @@1262=3065 JMP L1271 / @@1263=5271 L1264, KSF / Skip if keyboard flag is a 1. @@1264=6031 JMP L1270 / @@1265=5270 JMP I C1267 / long jump to L0000 @@1266=5667 C1267, C1267, 0000 / AND L0000 L1270, HLT / @@1270=7402 L1271, CLA CLL / AC = 0000 @@1271=7300 TAD D0074 / @@1272=1074 RAL / @@1273=7004 TAD D0073 / @@1274=1073 ION / Enable Interrupts @@1275=6001 JMP I L0000 / long jump to L0000 @@1276=5400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1277 / / Called from: / 1317 1325 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1277, 0 / return area JMS I C0176 / long call to S0317 @@1300=4576 TAD D1342 / @@1301=1342 C1302, 4376 / JMS C1376 JMS I C0173 / long call to S0600 @@1303=4573 AND C0075 / @@1304=0075 TAD D1341 / @@1305=1341 C1306, 7777 / CLA MQA SCA MQL LSR + JMP I S1277 / return @@1307=5677 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1310 / / Called from: / 1320 1335 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1310, 0 / return area CLA / @@1311=7200 TAD I D1342 / @@1312=1742 ISZ D1342 / @@1313=2342 JMS I C0070 / long call to S2017 @@1314=4470 JMP I S1310 / return @@1315=5710 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1316 / / Called from: / 1605 3123 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1316, 0 / return area JMS S1277 / @@1317=4277 L1320, JMS S1310 / @@1320=4310 ISZ D1341 / @@1321=2341 JMP L1320 / @@1322=5320 JMP I S1316 / return @@1323=5716 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1324 / / Called from: / 1610 3132 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1324, 0 / return area JMS S1277 / @@1325=4277 L1326, JMS I C1376 / long call to S0417 @@1326=4776 AND D0105 / @@1327=0105 SNA / @@1330=7450 JMP L1326 / @@1331=5326 CIA / @@1332=7041 DCA D0023 / @@1333=3023 JMS I C0175 / long call to S0330 @@1334=4575 JMS S1310 / @@1335=4310 ISZ D1341 / @@1336=2341 JMP L1326 / @@1337=5326 JMP I S1324 / return @@1340=5724 D1341, 0000 / AND L0000 D1342, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1343 / / Called from: / 1222 1352 1544 1613 3127 3136 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S1343, 0 / return area CLA / @@1344=7200 L1345, TAD D0072 / @@1345=1072 SZA CLA / @@1346=7640 JMP L1345 / @@1347=5345 JMP I S1343 / return @@1350=5743 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1351 / / Called from: / 1401 1410 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1351, 0 / return area JMS S1343 / @@1352=4343 ISZ D0072 / @@1353=2072 JMS I C0176 / long call to S0317 @@1354=4576 TAD I AI6 / AUTO INDEX REGISTER @@1355=1416 C1356, 4376 / JMS C1376 JMS I C0173 / long call to S0600 @@1357=4573 AND C0075 / @@1360=0075 C1361, 1417 / TAD I AI7 C1362, 7777 / CLA MQA SCA MQL LSR + DCA I C1375 / @@1363=3775 JMP I S1351 / return @@1364=5751 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1365 / / Called from: / 3273 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1365, 0 / return area JMS I C0170 / long call to S0724 @@1366=4570 L1367, JMS I C0171 / long call to S0717 @@1367=4571 JMP L1367 / @@1370=5367 JMP I S1365 / return @@1371=5765 *1375 C1375, 3521 / DCA I C0121 C1376, C1376, 0417 / AND I AI7 C1377, 0376 / AND C1376 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1400 / / Called from: / 1542 1611 3126 3135 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1400, 0 / return area JMS I C1577 / long call to S1351 @@1401=4777 JMS I C0176 / long call to S0317 @@1402=4576 TAD C1467 / @@1403=1267 TAD I D0030 / @@1404=1430 ION / Enable Interrupts @@1405=6001 JMP I S1400 / return @@1406=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1407 / / Called from: / 1607 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1407, 0 / return area JMS I C1577 / long call to S1351 @@1410=4777 JMS I C0176 / long call to S0317 @@1411=4576 C1412, 1267 / TAD C1467 TAD I C0020 / @@1413=1420 ION / Enable Interrupts @@1414=6001 JMP I S1407 / return @@1415=5607 D1416, 0000 / AND L0000 D1417, 0000 / AND L0000 CLA / @@1420=7200 L1421, JMS I C1576 / long call to S0400 @@1421=4776 AND D0105 / @@1422=0105 SNA / @@1423=7450 JMP L1421 / @@1424=5221 CIA / @@1425=7041 DCA D0076 / @@1426=3076 JMS S1474 / @@1427=4274 TAD I D1416 / @@1430=1616 DCA D1435 / @@1431=3235 ISZ D1416 / @@1432=2216 KRB / Clear AC, clear keyboard flag, and r @@1433=6036 JMS I C0064 / long call to S0504 @@1434=4464 D1435, 0000 / AND L0000 JMP L1440 / @@1436=5240 JMP L1456 / @@1437=5256 L1440, DCA D0077 / @@1440=3077 ISZ I C1575 / @@1441=2775 JMP L1445 / @@1442=5245 STA / AC = 7777 (-0001) @@1443=7240 DCA I C1575 / @@1444=3775 L1445, LAS / @@1445=7604 AND C0142 / @@1446=0142 SNA CLA / @@1447=7650 JMP L1456 / @@1450=5256 TAD D0077 / @@1451=1077 HLT / @@1452=7402 CLA / @@1453=7200 TAD D1435 / @@1454=1235 HLT / @@1455=7402 L1456, ISZ D1417 / @@1456=2217 JMP I C0066 / long jump to L1271 @@1457=5466 CLA / @@1460=7200 TAD I C1575 / @@1461=1775 SNA CLA / @@1462=7650 JMP L1466 / @@1463=5266 TAD I C1575 / @@1464=1775 HLT / @@1465=7402 L1466, CLA CLL / AC = 0000 @@1466=7300 C1467, 3072 / DCA D0072 TAD D0074 / @@1470=1074 RAL / @@1471=7004 TAD D0073 / @@1472=1073 JMP I L0000 / long jump to L0000 @@1473=5400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1474 / / Called from: / 1427 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1474, 0 / return area CLA CLL / AC = 0000 @@1475=7300 TAD D0076 / @@1476=1076 DCA D1511 / @@1477=3311 L1500, JMP I C1501 / long jump to L1502 @@1500=5701 C1501, C1501, 1502 / TAD I D0102 L1502, TAD C0055 / @@1502=1055 DCA D1512 / @@1503=3312 L1504, ISZ D1512 / @@1504=2312 JMP L1504 / @@1505=5304 ISZ D1511 / @@1506=2311 JMP L1500 / @@1507=5300 JMP I S1474 / return @@1510=5674 D1511, 0000 / AND L0000 D1512, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1513 / / Called from: / 0635 1662 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1513, 0 / return area DCA D1527 / @@1514=3327 RTR / @@1515=7012 RTR / @@1516=7012 RTR / @@1517=7012 TAD D1527 / @@1520=1327 AND C1530 / @@1521=0330 TAD D1527 / @@1522=1327 RTL / @@1523=7006 RTL / @@1524=7006 RTL / @@1525=7006 JMP I S1513 / return @@1526=5713 D1527, 0000 / AND L0000 C1530, 7700 / SMA CLA C1531, 0000 / AND L0000 CLA / @@1532=7200 DCA D0072 / @@1533=3072 TAD I C1531 / @@1534=1731 DCA D1540 / @@1535=3340 JMS I C1574 / long call to S1200 @@1536=4774 JMS I C1573 / long call to S1212 @@1537=4773 D1540, 0000 / AND L0000 JMS I C1572 / long call to S1216 @@1541=4772 JMS S1400 / @@1542=4200 C1543, 4774 / JMS I C1574 JMS I C1571 / long call to S1343 @@1544=4771 JMP I C0024 / long jump to L0254 @@1545=5424 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1546 / / Called from: / 3230 3251 3556 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1546, 0 / return area KRB / Clear AC, clear keyboard flag, and r @@1547=6036 AND C1570 / @@1550=0370 C1551, 1367 / TAD C1567 JMP I S1546 / return @@1552=5746 JMP I C0155 / long jump to L0765 @@1553=5555 JMP I C0155 / long jump to L0765 @@1554=5555 TAD D0100 / @@1555=1100 SMA CLA / @@1556=7700 *1567 C1567, 0200 / AND S1400 C1570, 0177 / AND C0177 C1571, C1571, 1343 / TAD C1543 C1572, C1572, 1216 / TAD D1416 C1573, C1573, 1212 / TAD C1412 C1574, C1574, 1200 / TAD S1400 C1575, 3521 / DCA I C0121 C1576, C1576, 0400 / AND I L0000 C1577, C1577, 1351 / TAD C1551 C1600, 0000 / AND L0000 CLA / @@1601=7200 DCA D0072 / @@1602=3072 JMS I C1777 / long call to S1200 @@1603=4777 JMS I C1776 / long call to S1212 @@1604=4776 JMS I C1775 / long call to S1316 @@1605=4775 JMS I C1774 / long call to S1216 @@1606=4774 JMS I C1773 / long call to S1407 @@1607=4773 JMS I C1772 / long call to S1324 @@1610=4772 JMS I C1771 / long call to S1400 @@1611=4771 C1612, 4777 / JMS I C1777 JMS I C1770 / long call to S1343 @@1613=4770 JMP I C0024 / long jump to L0254 @@1614=5424 D1615, 0000 / AND L0000 C1616, 7200 / CLA DCA D0060 / @@1617=3060 TAD I D1615 / @@1620=1615 DCA D1624 / @@1621=3224 ISZ D1615 / @@1622=2215 JMS I C1767 / long call to S1031 @@1623=4767 D1624, 0000 / AND L0000 JMS S1627 / @@1625=4227 JMP I D1615 / long jump to L0000 @@1626=5615 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1627 / / Called from: / 1625 2062 2065 2645 3546 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S1627, 0 / return area JMS I C0153 / long call to S0357 @@1630=4553 TAD D0140 / @@1631=1140 TAD C0137 / @@1632=1137 DCA D1647 / @@1633=3247 JMS I C0176 / long call to S0317 @@1634=4576 TAD I D1646 / @@1635=1646 C1636, 4376 / JMS C1776 L1637, JMS I C0154 / long call to S0542 @@1637=4554 TAD I D1646 / @@1640=1646 JMS I C0070 / long call to S2017 @@1641=4470 ISZ D1646 / @@1642=2246 ISZ D1647 / @@1643=2247 JMP L1637 / @@1644=5237 JMP I S1627 / return @@1645=5627 D1646, 0000 / AND L0000 D1647, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1650 / / Called from: / 3253 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1650, 0 / return area TAD I S1650 / @@1651=1650 DCA D1705 / @@1652=3305 ISZ S1650 / @@1653=2250 TAD I S1650 / @@1654=1650 DCA D1706 / @@1655=3306 ISZ S1650 / @@1656=2250 TAD C1766 / @@1657=1366 AND I D1705 / @@1660=0705 CLL / @@1661=7100 JMS I C0177 / long call to S1513 @@1662=4577 JMS S1672 / @@1663=4272 ISZ D1706 / @@1664=2306 TAD C1766 / @@1665=1366 CMA / @@1666=7040 AND I D1705 / @@1667=0705 JMS S1672 / @@1670=4272 JMP I S1650 / return @@1671=5650 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1672 / / Called from: / 1663 1670 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1672, 0 / return area DCA D1707 / @@1673=3307 TAD D1707 / @@1674=1307 RTL / @@1675=7006 RAL / @@1676=7004 AND C1765 / @@1677=0365 TAD D1707 / @@1700=1307 AND C1765 / @@1701=0365 TAD C1764 / @@1702=1364 DCA I D1706 / @@1703=3706 JMP I S1672 / return @@1704=5672 D1705, 0000 / AND L0000 D1706, 0000 / AND L0000 D1707, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1710 / / Called from: / 3107 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1710, 0 / return area CLA / @@1711=7200 DCA D1715 / @@1712=3315 DCA D1717 / @@1713=3317 JMP I S1710 / return @@1714=5710 D1715, 0000 / AND L0000 D1716, 0000 / AND L0000 D1717, 0000 / AND L0000 C1720, C1720, 0000 / AND L0000 CLA CLL CML / @@1721=7320 ISZ D1717 / @@1722=2317 CLA CLL CMA / AC = 7777 (-0001) @@1723=7340 C1724, 3317 / DCA D1717 TAD D1715 / @@1725=1315 SNL / @@1726=7420 JMP L1732 / @@1727=5332 CIA / @@1730=7041 SKP / @@1731=7410 L1732, CMA / @@1732=7040 DCA D1715 / @@1733=3315 TAD C0144 / @@1734=1144 AND D1715 / @@1735=0315 DCA D1716 / @@1736=3316 TAD D1716 / @@1737=1316 JMP I C1720 / long jump to L0000 @@1740=5720 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1741 / / Called from: / 0202 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1741, 0 / return area TAD C1763 / @@1742=1363 C1743, 3762 / DCA I C1762 TAD C1763 / @@1744=1363 DCA I C1761 / @@1745=3761 TAD C1760 / @@1746=1360 DCA I C1757 / @@1747=3757 TAD C1760 / @@1750=1360 DCA I C1756 / @@1751=3756 JMP I S1741 / return @@1752=5741 *1756 C1756, 0435 / AND I D0035 C1757, 0416 / AND I AI6 C1760, 7622 / SNL CLA HLT C1761, 0434 / AND I D0034 C1762, 0415 / AND I AI5 C1763, 1233 / TAD C1633 C1764, 6060 / 6060 C1765, 0707 / AND I D1707 C1766, 7700 / SMA CLA C1767, C1767, 1031 / TAD D0031 C1770, C1770, 1343 / TAD C1743 C1771, C1771, 1400 / TAD I L0000 C1772, C1772, 1324 / TAD C1724 C1773, C1773, 1407 / TAD I C0007 C1774, C1774, 1216 / TAD C1616 C1775, C1775, 1316 / TAD D1716 C1776, C1776, 1212 / TAD C1612 C1777, C1777, 1200 / TAD C1600 D2000, 0000 / AND L0000 JMS I C0176 / long call to S0317 @@2001=4576 AND D0056 / @@2002=0056 AND D0140 / @@2003=0140 JMP I D2000 / long jump to L0000 @@2004=5600 C2005, C2005, 0000 / AND L0000 JMS I C0176 / long call to S0317 @@2006=4576 AND D0023 / @@2007=0023 SNA SZL / @@2010=7470 JMP I C2005 / long jump to L0000 @@2011=5605 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2012 / / Called from: / 2203 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2012, 0 / return area JMS I C0176 / long call to S0317 @@2013=4576 AND D0056 / @@2014=0056 SZL CLA OSR / @@2015=7634 JMP I S2012 / return @@2016=5612 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2017 / / Called from: / 0676 1205 1214 1314 1641 2253 2264 2270 2271 2273 2352 2353 2355 2361 2413 / 2415 3015 3021 3022 3023 3025 3052 3056 3070 3561 / Total 0031 (25) calls //////////////////////////////////////////////////////////////////////////////// S2017, 0 / return area ISZ D0065 / @@2020=2065 TLS / Load the TTO from the content of AC4 @@2021=6046 CLA / @@2022=7200 L2023, TAD D0065 / @@2023=1065 SNA CLA / @@2024=7650 JMP L2030 / @@2025=5230 TSF / Skip if teleprinter flag is a 1. @@2026=6041 C2027, 5223 / JMP L2023 L2030, TCF / Clear teleprinter flag. @@2030=6042 DCA D0065 / @@2031=3065 JMP I S2017 / return @@2032=5617 C2033, 0000 / AND L0000 TAD I C2033 / @@2034=1633 DCA D2037 / @@2035=3237 JMS I D0067 / long call to S1615 @@2036=4467 D2037, 0000 / AND L0000 JMP I C0024 / long jump to L0254 @@2040=5424 C2041, 0000 / AND L0000 TAD I C2041 / @@2042=1641 DCA D2047 / @@2043=3247 JMS I C0153 / long call to S0357 @@2044=4553 JMP I C0024 / long jump to L0254 @@2045=5424 JMS I D0067 / long call to S1615 @@2046=4467 D2047, 0000 / AND L0000 JMP I C0024 / long jump to L0254 @@2050=5424 C2051, 0000 / AND L0000 CLA CLL / AC = 0000 @@2052=7300 TAD I C2051 / @@2053=1651 DCA D2056 / @@2054=3256 JMS I C2177 / long call to S1031 @@2055=4777 D2056, 0000 / AND L0000 JMS I C2176 / long call to S1600 @@2057=4776 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2060 / / Called from: / 2652 2666 2702 2716 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S2060, 0 / return area DCA D0060 / @@2061=3060 JMS I C2175 / long call to S1627 @@2062=4775 STA / AC = 7777 (-0001) @@2063=7240 DCA D0060 / @@2064=3060 JMS I C2175 / long call to S1627 @@2065=4775 JMP I S2060 / return @@2066=5660 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2067 / / Called from: / 2731 2753 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2067, 0 / return area DCA D0056 / @@2070=3056 JMS I C0172 / long call to S0626 @@2071=4572 JMS D0077 / @@2072=4077 L2073, JMS I C0172 / long call to S0626 @@2073=4572 C2074, 4105 / JMS D0105 ISZ D0056 / @@2075=2056 JMP L2073 / @@2076=5273 JMP I S2067 / return @@2077=5667 C2100, 4576 / JMS I C0176 AND D0022 / @@2101=0022 ISZ D0105 / @@2102=2105 JMP I C2104 / long jump to L0227 @@2103=5704 C2104, C2104, 0227 / AND C2027 AND L0000 / @@2105=0000 ISZ D0135 / @@2106=2135 JMS I C0061 / long call to S0521 @@2107=4461 JMS I C0176 / long call to S0317 @@2110=4576 AND D0056 / @@2111=0056 AND L0001 / @@2112=0001 JMS I C0170 / long call to S0724 @@2113=4570 JMS I C0062 / long call to S0436 @@2114=4462 L2115, JMS I C0063 / long call to S0444 @@2115=4463 DCA D2123 / @@2116=3323 L2117, JMS I C0171 / long call to S0717 @@2117=4571 JMP L2117 / @@2120=5317 JMS I C0166 / long call to S0734 @@2121=4566 JMS I C0064 / long call to S0504 @@2122=4464 D2123, 0000 / AND L0000 JMP L2130 / @@2124=5330 L2125, ISZ D0056 / @@2125=2056 JMP L2115 / @@2126=5315 JMP I C0024 / long jump to L0254 @@2127=5424 L2130, HLT / @@2130=7402 CLA / @@2131=7200 TAD D2123 / @@2132=1323 HLT / @@2133=7402 JMP L2125 / @@2134=5325 AND L0001 / @@2135=0001 ISZ D2000 / @@2136=2200 JMS I C0061 / long call to S0521 @@2137=4461 JMS I C0176 / long call to S0317 @@2140=4576 AND D0056 / @@2141=0056 JMS D0060 / @@2142=4060 JMS I C0170 / long call to S0724 @@2143=4570 JMS I C0062 / long call to S0436 @@2144=4462 L2145, JMS I C0063 / long call to S0444 @@2145=4463 DCA D2155 / @@2146=3355 JMS I C0026 / long call to S0474 @@2147=4426 JMS I C0175 / long call to S0330 @@2150=4575 L2151, JMS I C0171 / long call to S0717 @@2151=4571 JMP L2151 / @@2152=5351 JMS I C0166 / long call to S0734 @@2153=4566 JMS I C0064 / long call to S0504 @@2154=4464 D2155, 0000 / AND L0000 JMP L2162 / @@2156=5362 L2157, ISZ D0056 / @@2157=2056 JMP L2145 / @@2160=5345 JMP I C0024 / long jump to L0254 @@2161=5424 L2162, HLT / @@2162=7402 CLA / @@2163=7200 TAD D2155 / @@2164=1355 HLT / @@2165=7402 JMP L2157 / @@2166=5357 *2175 C2175, C2175, 1627 / TAD I C2027 C2176, C2176, 1600 / TAD I D2000 C2177, C2177, 1031 / TAD D0031 AND S0002 / @@2200=0002 C2201, 7777 / CLA MQA SCA MQL LSR + JMS I C0061 / long call to S0521 @@2202=4461 JMS I C0027 / long call to S2012 @@2203=4427 JMS I C0170 / long call to S0724 @@2204=4570 JMS I C0062 / long call to S0436 @@2205=4462 L2206, JMS I C0026 / long call to S0474 @@2206=4426 JMS I C2377 / long call to S0456 @@2207=4777 AND D0057 / @@2210=0057 L2211, JMS I C0063 / long call to S0444 @@2211=4463 DCA D2220 / @@2212=3220 JMS I C0175 / long call to S0330 @@2213=4575 L2214, JMS I C0171 / long call to S0717 @@2214=4571 JMP L2214 / @@2215=5214 JMS I C0166 / long call to S0734 @@2216=4566 D2217, 4464 / JMS I C0064 D2220, 0000 / AND L0000 JMP L2227 / @@2221=5227 ISZ D0057 / @@2222=2057 JMP L2211 / @@2223=5211 L2224, ISZ D0056 / @@2224=2056 JMP L2206 / @@2225=5206 JMP I C0024 / long jump to L0254 @@2226=5424 L2227, C2227, 7402 / HLT CLA / @@2230=7200 TAD D2220 / @@2231=1220 HLT / @@2232=7402 JMP L2224 / @@2233=5224 JMS I C2376 / long call to S1000 @@2234=4776 JMS I C0176 / long call to S0317 @@2235=4576 AND D0022 / @@2236=0022 ISZ D2242 / @@2237=2242 JMP I C2241 / long jump to L0227 @@2240=5641 C2241, C2241, 0227 / AND L2227 D2242, 0000 / AND L0000 ISZ D2275 / @@2243=2275 JMS I C0153 / long call to S0357 @@2244=4553 TAD D0140 / @@2245=1140 TAD C2375 / @@2246=1375 DCA D0107 / @@2247=3107 JMS I C0172 / long call to S0626 @@2250=4572 C2251, 4126 / JMS C0126 TAD C0136 / @@2252=1136 JMS I C0070 / long call to S2017 @@2253=4470 TAD D0107 / @@2254=1107 DCA D0100 / @@2255=3100 L2256, ISZ D0100 / @@2256=2100 SKP / @@2257=7410 JMP I C0024 / long jump to L0254 @@2260=5424 TAD D0100 / @@2261=1100 DCA D0101 / @@2262=3101 L2263, TAD C0141 / @@2263=1141 JMS I C0070 / long call to S2017 @@2264=4470 ISZ D0101 / @@2265=2101 JMP L2263 / @@2266=5263 TAD C0103 / @@2267=1103 JMS I C0070 / long call to S2017 @@2270=4470 JMS I C0070 / long call to S2017 @@2271=4470 TAD D0135 / @@2272=1135 JMS I C0070 / long call to S2017 @@2273=4470 JMP L2256 / @@2274=5256 D2275, 0001 / AND L0001 ISZ D2325 / @@2276=2325 CLA / @@2277=7200 TAD C0134 / @@2300=1134 DCA D0107 / @@2301=3107 TAD C0133 / @@2302=1133 DCA D2323 / @@2303=3323 JMS I C0153 / long call to S0357 @@2304=4553 JMP L2312 / @@2305=5312 TAD C0132 / @@2306=1132 DCA D0107 / @@2307=3107 TAD C0131 / @@2310=1131 DCA D2323 / @@2311=3323 L2312, JMS I C0172 / long call to S0626 @@2312=4572 C2313, 4136 / JMS C0136 TAD D0107 / @@2314=1107 DCA D0100 / @@2315=3100 L2316, JMS I C0172 / long call to S0626 @@2316=4572 TAD I C0153 / @@2317=1553 ISZ D0100 / @@2320=2100 JMP L2316 / @@2321=5316 JMS I C0172 / long call to S0626 @@2322=4572 D2323, 0000 / AND L0000 JMP I C0024 / long jump to L0254 @@2324=5424 D2325, 0002 / AND S0002 ISZ I L0000 / @@2326=2400 JMS I C0172 / long call to S0626 @@2327=4572 C2330, 4153 / JMS C0153 JMS I C0153 / long call to S0357 @@2331=4553 TAD C0130 / @@2332=1130 TAD C0127 / @@2333=1127 DCA D0100 / @@2334=3100 L2335, JMS I C0172 / long call to S0626 @@2335=4572 C2336, 4123 / JMS C0123 ISZ D0100 / @@2337=2100 JMP L2335 / @@2340=5335 JMS I C0153 / long call to S0357 @@2341=4553 TAD C0126 / @@2342=1126 TAD D0125 / @@2343=1125 DCA D0100 / @@2344=3100 TAD C2374 / @@2345=1374 L2346, DCA D0101 / @@2346=3101 TAD D0101 / @@2347=1101 DCA D0102 / @@2350=3102 TAD C0103 / @@2351=1103 JMS I C0070 / long call to S2017 @@2352=4470 JMS I C0070 / long call to S2017 @@2353=4470 L2354, TAD C0141 / @@2354=1141 JMS I C0070 / long call to S2017 @@2355=4470 ISZ D0102 / @@2356=2102 JMP L2354 / @@2357=5354 TAD D0135 / @@2360=1135 JMS I C0070 / long call to S2017 @@2361=4470 ISZ D0100 / @@2362=2100 SKP / @@2363=7410 JMP I C0024 / long jump to L0254 @@2364=5424 CLA CLL CMA RAL / AC = 7776 (-0002) @@2365=7344 TAD D0101 / @@2366=1101 JMP L2346 / @@2367=5346 *2374 C2374, 7777 / CLA MQA SCA MQL LSR + C2375, 7656 / SNA CLA OSR HLT C2376, C2376, 1000 / TAD L0000 C2377, C2377, 0456 / AND I D0056 C2400, 0003 / AND D0003 ISZ I C2522 / @@2401=2722 STA / AC = 7777 (-0001) @@2402=7240 DCA D0060 / @@2403=3060 JMS I C0172 / long call to S0626 @@2404=4572 C2405, 4165 / JMS C0165 JMS I C0153 / long call to S0357 @@2406=4553 TAD D0140 / @@2407=1140 TAD C2577 / @@2410=1377 DCA D0100 / @@2411=3100 L2412, TAD C0136 / @@2412=1136 JMS I C0070 / long call to S2017 @@2413=4470 TAD C0104 / @@2414=1104 JMS I C0070 / long call to S2017 @@2415=4470 ISZ D0100 / @@2416=2100 SKP / @@2417=7410 JMP I C0024 / long jump to L0254 @@2420=5424 JMS I C0154 / long call to S0542 @@2421=4554 JMP L2412 / @@2422=5212 C2423, 0004 / AND C0004 ISZ I D0031 / @@2424=2431 JMS I C0172 / long call to S0626 @@2425=4572 C2426, 4175 / JMS C0175 JMS I C0032 / long call to S2033 @@2427=4432 DCA I C2506 / @@2430=3706 AND D0005 / @@2431=0005 ISZ I D0035 / @@2432=2435 JMS I C0032 / long call to S2033 @@2433=4432 DCA I D2511 / @@2434=3711 AND C0006 / @@2435=0006 ISZ I D0041 / @@2436=2441 JMS I C0032 / long call to S2033 @@2437=4432 DCA I C2514 / @@2440=3714 C2441, 0007 / AND C0007 ISZ I D0045 / @@2442=2445 JMS I C0032 / long call to S2033 @@2443=4432 DCA I C2517 / @@2444=3717 C2445, 0010 / AND AI0 ISZ I D0051 / @@2446=2451 JMS I C0032 / long call to S2033 @@2447=4432 DCA I C2522 / @@2450=3722 C2451, 0011 / AND AI1 ISZ I C0055 / @@2452=2455 JMS I C0032 / long call to S2033 @@2453=4432 DCA I D2525 / @@2454=3725 C2455, 0012 / AND AI2 ISZ I C0061 / @@2456=2461 JMS I C0032 / long call to S2033 @@2457=4432 DCA I C2530 / @@2460=3730 C2461, 0013 / AND AI3 ISZ I D0065 / @@2462=2465 JMS I C0032 / long call to S2033 @@2463=4432 DCA I C2533 / @@2464=3733 C2465, 0014 / AND AI4 ISZ I C0071 / @@2466=2471 JMS I C0032 / long call to S2033 @@2467=4432 DCA I C2536 / @@2470=3736 C2471, 0015 / AND AI5 ISZ I C0075 / @@2472=2475 JMS I C0032 / long call to S2033 @@2473=4432 DCA I D2541 / @@2474=3741 AND AI6 / AUTO INDEX REGISTER @@2475=0016 ISZ I D0101 / @@2476=2501 JMS I C0032 / long call to S2033 @@2477=4432 DCA I C2544 / @@2500=3744 C2501, 0017 / AND AI7 ISZ I D0105 / @@2502=2505 JMS I C0032 / long call to S2033 @@2503=4432 DCA I C2547 / @@2504=3747 AND C0020 / @@2505=0020 C2506, 2511 / ISZ I C0111 JMS I C0032 / long call to S2033 @@2507=4432 DCA I C2552 / @@2510=3752 D2511, 0021 / AND D0021 C2512, 2515 / ISZ I C0115 JMS I C0032 / long call to S2033 @@2513=4432 C2514, 3755 / DCA I D2555 AND D0022 / @@2515=0022 ISZ I C0121 / @@2516=2521 C2517, 4432 / JMS I C0032 DCA I C2560 / @@2520=3760 AND D0023 / @@2521=0023 C2522, 2525 / ISZ I D0125 JMS I C0032 / long call to S2033 @@2523=4432 DCA I C2563 / @@2524=3763 D2525, 0024 / AND C0024 ISZ I C0131 / @@2526=2531 JMS I C0032 / long call to S2033 @@2527=4432 C2530, 3766 / DCA I C2566 AND C0025 / @@2531=0025 ISZ I D0135 / @@2532=2535 C2533, 4432 / JMS I C0032 C2534, 3771 / DCA I C2571 AND C0026 / @@2535=0026 C2536, 2541 / ISZ I C0141 JMS I C0032 / long call to S2033 @@2537=4432 C2540, 3774 / DCA I C2574 D2541, 0027 / AND C0027 ISZ I D0145 / @@2542=2545 JMS I C0032 / long call to S2033 @@2543=4432 C2544, 3777 / DCA I C2577 AND D0030 / @@2545=0030 ISZ I C0151 / @@2546=2551 C2547, 4432 / JMS I C0032 JMS S0002 / @@2550=4002 AND D0031 / @@2551=0031 C2552, 2555 / ISZ I C0155 JMS I D0033 / long call to S2041 @@2553=4433 C2554, 4005 / JMS D0005 D2555, 0032 / AND C0032 ISZ I C0161 / @@2556=2561 JMS I D0033 / long call to S2041 @@2557=4433 C2560, 4010 / JMS AI0 AND D0033 / @@2561=0033 ISZ I C2400 / @@2562=2600 C2563, 4433 / JMS I D0033 C2564, 4013 / JMS AI3 *2577 C2577, 7657 / CLA SCA LSR + AND D0034 / @@2600=0034 ISZ I C2604 / @@2601=2604 JMS I D0033 / long call to S2041 @@2602=4433 JMS AI6 / AUTO INDEX REGISTER @@2603=4016 C2604, 0035 / AND D0035 ISZ I C2610 / @@2605=2610 JMS I D0033 / long call to S2041 @@2606=4433 C2607, 4021 / JMS D0021 C2610, 0036 / AND D0036 ISZ I C2614 / @@2611=2614 JMS I D0033 / long call to S2041 @@2612=4433 C2613, 4024 / JMS C0024 C2614, 0037 / AND D0037 ISZ I C2620 / @@2615=2620 JMS I D0033 / long call to S2041 @@2616=4433 C2617, 4027 / JMS C0027 C2620, 0040 / AND D0040 ISZ I C2624 / @@2621=2624 JMS I D0033 / long call to S2041 @@2622=4433 C2623, 4032 / JMS C0032 C2624, 0041 / AND D0041 ISZ I C2630 / @@2625=2630 JMS I D0033 / long call to S2041 @@2626=4433 C2627, 4035 / JMS D0035 C2630, 0042 / AND D0042 ISZ I C2647 / @@2631=2647 JMS I C0153 / long call to S0357 @@2632=4553 JMP I C0024 / long jump to L0254 @@2633=5424 JMS I C0173 / long call to S0600 @@2634=4573 C2635, 4040 / JMS D0040 JMS I L0000 / long call to S0000 @@2636=4400 SPA SNA SZL CLA OSR / @@2637=7774 JMS I C0173 / long call to S0600 @@2640=4573 JMS I L0000 / long call to S0000 @@2641=4400 C2642, 4404 / JMS I C0004 C2643, 7663 / CLA SCA MQL SCL + DCA D0060 / @@2644=3060 JMS I C2777 / long call to S1627 @@2645=4777 JMP I C0024 / long jump to L0254 @@2646=5424 C2647, 0043 / AND D0043 ISZ I C2654 / @@2650=2654 JMS I C2776 / long call to S1066 @@2651=4776 JMS I C2775 / long call to S2060 @@2652=4775 JMP I C0024 / long jump to L0254 @@2653=5424 C2654, 0044 / AND D0044 ISZ I C2672 / @@2655=2672 JMS I C0172 / long call to S0626 @@2656=4572 C2657, 4211 / JMS C2611 JMS I C0152 / long call to S0343 @@2660=4552 JMP I C0024 / long jump to L0254 @@2661=5424 JMS I C2774 / long call to S1117 @@2662=4774 JMS I C0176 / long call to S0317 @@2663=4576 AND D0056 / @@2664=0056 SPA SNA SZL CLA HLT / @@2665=7772 L2666, JMS I C2775 / long call to S2060 @@2666=4775 ISZ D0056 / @@2667=2056 JMP L2666 / @@2670=5266 JMP I C0024 / long jump to L0254 @@2671=5424 C2672, 0045 / AND D0045 ISZ I C2706 / @@2673=2706 JMS I C0151 / long call to S0351 @@2674=4551 JMP I C0024 / long jump to L0254 @@2675=5424 JMS I C2773 / long call to S1135 @@2676=4773 JMS I C0176 / long call to S0317 @@2677=4576 AND D0056 / @@2700=0056 SPA SNA SZL CLA HLT / @@2701=7772 L2702, JMS I C2775 / long call to S2060 @@2702=4775 ISZ D0056 / @@2703=2056 JMP L2702 / @@2704=5302 JMP I C0024 / long jump to L0254 @@2705=5424 C2706, 0046 / AND D0046 C2707, 7777 / CLA MQA SCA MQL LSR + JMS I C0153 / long call to S0357 @@2710=4553 JMP I C0024 / long jump to L0254 @@2711=5424 JMS I C2772 / long call to S1153 @@2712=4772 JMS I C0176 / long call to S0317 @@2713=4576 AND D0056 / @@2714=0056 SPA SNA SZL CLA HLT / @@2715=7772 L2716, JMS I C2775 / long call to S2060 @@2716=4775 ISZ D0056 / @@2717=2056 JMP L2716 / @@2720=5316 JMP I C0024 / long jump to L0254 @@2721=5424 AND D0047 / @@2722=0047 DCA D0031 / @@2723=3031 JMS I C0153 / long call to S0357 @@2724=4553 JMP L2746 / @@2725=5346 JMS I C0172 / long call to S0626 @@2726=4572 C2727, 4066 / JMS C0066 TAD C0124 / @@2730=1124 JMS I C2771 / long call to S2067 @@2731=4771 TAD C2770 / @@2732=1370 DCA D2740 / @@2733=3340 L2734, TAD C2767 / @@2734=1367 DCA D0056 / @@2735=3056 DCA D2761 / @@2736=3361 L2737, JMS I C2766 / long call to S3001 @@2737=4766 D2740, 0000 / AND L0000 ISZ D0056 / @@2741=2056 SKP / @@2742=7410 JMP I C0024 / long jump to L0254 @@2743=5424 ISZ D2761 / @@2744=2361 JMP L2737 / @@2745=5337 L2746, JMS I C0151 / long call to S0351 @@2746=4551 JMP I C0024 / long jump to L0254 @@2747=5424 JMS I C0172 / long call to S0626 @@2750=4572 C2751, 4066 / JMS C0066 TAD C2767 / @@2752=1367 JMS I C2771 / long call to S2067 @@2753=4771 JMS I C0172 / long call to S0626 @@2754=4572 JMS D0100 / @@2755=4100 TAD C0124 / @@2756=1124 DCA D2740 / @@2757=3340 JMP L2734 / @@2760=5334 D2761, 0000 / AND L0000 D2762, 0000 / AND L0000 *2766 C2766, C2766, 3001 / DCA L0001 C2767, 7771 / CLA MQA SCA MQL NMI C2770, 7766 / SMA SZA SNL CLA OSR HLT C2771, C2771, 2067 / ISZ D0067 C2772, C2772, 1153 / TAD C0153 C2773, C2773, 1135 / TAD D0135 C2774, C2774, 1117 / TAD C0117 C2775, C2775, 2060 / ISZ D0060 C2776, C2776, 1066 / TAD C0066 C2777, C2777, 1627 / TAD I C2627 D3000, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3001 / / Called from: / 2737 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3001, 0 / return area TAD I S3001 / @@3002=1601 DCA D3000 / @@3003=3200 ISZ S3001 / @@3004=2201 JMS I C0174 / long call to S0553 @@3005=4574 C3006, 7777 / CLA MQA SCA MQL LSR + L3007, TAD I C3177 / @@3007=1777 SNA / @@3010=7450 JMP L3020 / @@3011=5220 C3012, 7041 / CIA DCA I C3176 / @@3013=3776 L3014, TAD C0141 / @@3014=1141 JMS I C0070 / long call to S2017 @@3015=4470 C3016, 2776 / ISZ I C3176 JMP L3014 / @@3017=5214 L3020, TAD D0140 / @@3020=1140 JMS I C0070 / long call to S2017 @@3021=4470 JMS I C0070 / long call to S2017 @@3022=4470 JMS I C0070 / long call to S2017 @@3023=4470 TAD D0135 / @@3024=1135 JMS I C0070 / long call to S2017 @@3025=4470 ISZ D3000 / @@3026=2200 C3027, 5207 / JMP L3007 JMP I S3001 / return @@3030=5601 AND D0050 / @@3031=0050 ISZ I D0023 / @@3032=2423 JMS I C0153 / long call to S0357 @@3033=4553 JMP I C0024 / long jump to L0254 @@3034=5424 JMS I C0172 / long call to S0626 @@3035=4572 JMS D0052 / @@3036=4052 TAD C0127 / @@3037=1127 DCA D0056 / @@3040=3056 L3041, JMS I C0172 / long call to S0626 @@3041=4572 C3042, 4373 / JMS C3173 ISZ D0056 / @@3043=2056 JMP L3041 / @@3044=5241 TAD C3175 / @@3045=1375 DCA D0056 / @@3046=3056 JMS S3063 / @@3047=4263 SPA SNA SZL CLA OSR HLT / @@3050=7776 TAD I C3174 / @@3051=1774 JMS I C0070 / long call to S2017 @@3052=4470 L3053, JMS S3063 / @@3053=4263 C3054, 7775 / CLA MQA SCA MQL ASR + TAD I C3174 / @@3055=1774 JMS I C0070 / long call to S2017 @@3056=4470 ISZ D0056 / @@3057=2056 JMP L3053 / @@3060=5253 JMP I C0024 / long jump to L0254 @@3061=5424 D3062, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3063 / / Called from: / 3047 3053 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3063, 0 / return area TAD I S3063 / @@3064=1663 DCA D3062 / @@3065=3262 ISZ S3063 / @@3066=2263 L3067, TAD C3173 / @@3067=1373 JMS I C0070 / long call to S2017 @@3070=4470 ISZ D3062 / @@3071=2262 C3072, 5267 / JMP L3067 JMP I S3063 / return @@3073=5663 JMS I C0176 / long call to S0317 @@3074=4576 AND S0002 / @@3075=0002 TAD C3054 / @@3076=1254 JMS I C0176 / long call to S0317 @@3077=4576 AND C0075 / @@3100=0075 NOP / @@3101=7000 JMS I C0170 / long call to S0724 @@3102=4570 TAD C3172 / @@3103=1372 DCA D0100 / @@3104=3100 TAD C3171 / @@3105=1371 DCA D0056 / @@3106=3056 JMS I C3170 / long call to S1710 @@3107=4770 L3110, C3110, 4767 / JMS I C3167 DCA I D0100 / @@3111=3500 ISZ D0100 / @@3112=2100 ISZ D0056 / @@3113=2056 JMP L3110 / @@3114=5310 L3115, JMS I C0171 / long call to S0717 @@3115=4571 C3116, 5315 / JMP L3115 L3117, CLA / @@3117=7200 C3120, 3072 / DCA D0072 JMS I C3166 / long call to S1200 @@3121=4766 JMS I C3165 / long call to S1212 @@3122=4765 JMS I C3164 / long call to S1316 @@3123=4764 C3124, 4766 / JMS I C3166 JMS I C3163 / long call to S1216 @@3125=4763 JMS I C3162 / long call to S1400 @@3126=4762 JMS I C3161 / long call to S1343 @@3127=4761 JMS I C3166 / long call to S1200 @@3130=4766 JMS I C3165 / long call to S1212 @@3131=4765 JMS I C3160 / long call to S1324 @@3132=4760 JMS I C3166 / long call to S1200 @@3133=4766 JMS I C3163 / long call to S1216 @@3134=4763 JMS I C3162 / long call to S1400 @@3135=4762 JMS I C3161 / long call to S1343 @@3136=4761 JMP L3117 / @@3137=5317 D3140, 4576 / JMS I C0176 AND D0022 / @@3141=0022 DCA D3000 / @@3142=3200 C3143, 4572 / JMS I C0172 C3144, 4231 / JMS C3031 JMP I C3146 / long jump to L0227 @@3145=5746 C3146, C3146, 0227 / AND C3027 *3160 C3160, C3160, 1324 / TAD C3124 C3161, C3161, 1343 / TAD C3143 C3162, C3162, 1400 / TAD I L0000 C3163, C3163, 1216 / TAD C3016 C3164, C3164, 1316 / TAD C3116 C3165, C3165, 1212 / TAD C3012 C3166, C3166, 1200 / TAD D3000 TAD I C3120 / @@3167=1720 C3170, C3170, 1710 / TAD I L3110 C3171, 7000 / NOP C3172, 4376 / JMS C3176 C3173, 0210 / AND C3010 C3174, 3763 / DCA I C3163 C3175, 7731 / CLA MQA MQL NMI C3176, 2762 / ISZ I C3162 C3177, 2761 / ISZ I C3161 AND L0000 / @@3200=0000 DCA D3221 / @@3201=3221 JMS I D0030 / long call to S2000 @@3202=4430 JMS I C0170 / long call to S0724 @@3203=4570 JMS I C0172 / long call to S0626 @@3204=4572 C3205, 4242 / JMS C3242 L3206, JMS I C0171 / long call to S0717 @@3206=4571 JMP L3206 / @@3207=5206 L3210, JMS I C0171 / long call to S0717 @@3210=4571 JMP L3215 / @@3211=5215 ISZ D0056 / @@3212=2056 JMP L3210 / @@3213=5210 JMP I C0024 / long jump to L0254 @@3214=5424 L3215, CLA HLT / @@3215=7602 L3216, JMS I C0171 / long call to S0717 @@3216=4571 JMP L3216 / @@3217=5216 JMP L3216 / @@3220=5216 D3221, 0001 / AND L0001 DCA D3240 / @@3222=3240 JMS I C0170 / long call to S0724 @@3223=4570 JMS I C0172 / long call to S0626 @@3224=4572 C3225, 4253 / JMS C3253 L3226, JMS I C0171 / long call to S0717 @@3226=4571 C3227, 5226 / JMP L3226 JMS I C0165 / long call to S1546 @@3230=4565 JMS I C0161 / long call to S0751 @@3231=4561 L3232, JMS I C0164 / long call to S0740 @@3232=4564 JMP L3232 / @@3233=5232 TAD C0143 / @@3234=1143 SZA / @@3235=7440 JMP L3226 / @@3236=5226 JMP I C0024 / long jump to L0254 @@3237=5424 D3240, 0002 / AND S0002 C3241, 7777 / CLA MQA SCA MQL LSR + JMS I C0170 / long call to S0724 @@3242=4570 JMS I C0172 / long call to S0626 @@3243=4572 C3244, 4320 / JMS C3320 JMS I C0172 / long call to S0626 @@3245=4572 C3246, 4261 / JMS C3261 L3247, JMS I C0171 / long call to S0717 @@3247=4571 C3250, 5247 / JMP L3247 JMS I C0165 / long call to S1546 @@3251=4565 DCA D0106 / @@3252=3106 JMS I C3377 / long call to S1650 @@3253=4777 C3254, 0106 / AND D0106 C3255, 4340 / JMS C3340 JMS I C0172 / long call to S0626 @@3256=4572 C3257, 4336 / JMS D3336 TAD D0106 / @@3260=1106 TAD C0143 / @@3261=1143 SZA CLA / @@3262=7640 JMP L3247 / @@3263=5247 JMP I C0024 / long jump to L0254 @@3264=5424 JMS I C0176 / long call to S0317 @@3265=4576 AND S0002 / @@3266=0002 TAD C3254 / @@3267=1254 JMS I C0176 / long call to S0317 @@3270=4576 AND C0075 / @@3271=0075 SPA SNA HLT / @@3272=7552 JMS I C0025 / long call to S1365 @@3273=4425 JMS I C3376 / long call to S1000 @@3274=4776 JMS I C0176 / long call to S0317 @@3275=4576 AND D0022 / @@3276=0022 DCA D3302 / @@3277=3302 JMP I C3301 / long jump to L0227 @@3300=5701 C3301, C3301, 0227 / AND C3227 D3302, 0000 / AND L0000 DCA D3306 / @@3303=3306 JMS I D0034 / long call to S2051 @@3304=4434 DCA I D3306 / @@3305=3706 D3306, 0001 / AND L0001 DCA D3312 / @@3307=3312 JMS I D0034 / long call to S2051 @@3310=4434 C3311, 3711 / DCA I C3311 D3312, 0002 / AND S0002 DCA D3316 / @@3313=3316 C3314, 4434 / JMS I D0034 DCA I C3314 / @@3315=3714 D3316, 0003 / AND D0003 C3317, 3322 / DCA D3322 JMS I D0034 / long call to S2051 @@3320=4434 DCA I C3317 / @@3321=3717 D3322, 0004 / AND C0004 DCA D3326 / @@3323=3326 JMS I D0034 / long call to S2051 @@3324=4434 C3325, 3722 / DCA I D3322 D3326, 0005 / AND D0005 DCA D3332 / @@3327=3332 C3330, 4434 / JMS I D0034 DCA I C3325 / @@3331=3725 D3332, 0006 / AND C0006 C3333, 3336 / DCA D3336 JMS I D0034 / long call to S2051 @@3334=4434 DCA I C3330 / @@3335=3730 D3336, 0007 / AND C0007 DCA D3342 / @@3337=3342 JMS I D0034 / long call to S2051 @@3340=4434 C3341, 3733 / DCA I C3333 D3342, 0010 / AND AI0 DCA D3346 / @@3343=3346 C3344, 4434 / JMS I D0034 DCA I D3336 / @@3345=3736 D3346, 0011 / AND AI1 C3347, 3352 / DCA D3352 JMS I D0034 / long call to S2051 @@3350=4434 DCA I C3341 / @@3351=3741 D3352, 0012 / AND AI2 DCA D3356 / @@3353=3356 JMS I D0034 / long call to S2051 @@3354=4434 C3355, 3744 / DCA I C3344 D3356, 0013 / AND AI3 DCA D3362 / @@3357=3362 C3360, 4434 / JMS I D0034 DCA I C3347 / @@3361=3747 D3362, 0014 / AND AI4 DCA D3366 / @@3363=3366 JMS I D0034 / long call to S2051 @@3364=4434 DCA I D3352 / @@3365=3752 D3366, 0015 / AND AI5 DCA D3372 / @@3367=3372 JMS I D0034 / long call to S2051 @@3370=4434 DCA I C3355 / @@3371=3755 D3372, 0016 / AND AI6 DCA I L0000 / @@3373=3400 JMS I D0034 / long call to S2051 @@3374=4434 DCA I C3360 / @@3375=3760 C3376, C3376, 1000 / TAD L0000 C3377, C3377, 1650 / TAD I C3250 C3400, 0017 / AND AI7 C3401, 3404 / DCA I C0004 JMS I D0034 / long call to S2051 @@3402=4434 DCA I C3563 / @@3403=3763 AND C0020 / @@3404=0020 C3405, 3410 / DCA I AI0 JMS I D0034 / long call to S2051 @@3406=4434 DCA I C3566 / @@3407=3766 AND D0021 / @@3410=0021 C3411, 3414 / DCA I AI4 JMS I D0034 / long call to S2051 @@3412=4434 DCA I C3571 / @@3413=3771 AND D0022 / @@3414=0022 DCA I C0020 / @@3415=3420 JMS I D0034 / long call to S2051 @@3416=4434 DCA I C3574 / @@3417=3774 AND D0023 / @@3420=0023 DCA I C0024 / @@3421=3424 JMS I D0034 / long call to S2051 @@3422=4434 DCA I C3577 / @@3423=3777 AND C0024 / @@3424=0024 DCA I D0030 / @@3425=3430 JMS I D0034 / long call to S2051 @@3426=4434 C3427, 4002 / JMS S0002 AND C0025 / @@3430=0025 DCA I D0034 / @@3431=3434 JMS I C3577 / long call to S1066 @@3432=4777 JMS I C3576 / long call to S1600 @@3433=4776 AND C0026 / @@3434=0026 DCA I D0040 / @@3435=3440 JMS I C3575 / long call to S1117 @@3436=4775 JMS I C3576 / long call to S1600 @@3437=4776 AND C0027 / @@3440=0027 DCA I D0044 / @@3441=3444 JMS I C3574 / long call to S1135 @@3442=4774 JMS I C3576 / long call to S1600 @@3443=4776 AND D0030 / @@3444=0030 C3445, 7777 / CLA MQA SCA MQL LSR + JMS I C3573 / long call to S1031 @@3446=4773 C3447, 4044 / JMS D0044 JMS I C3576 / long call to S1600 @@3450=4776 JMS I C0061 / long call to S0521 @@3451=4461 DCA D3521 / @@3452=3321 JMS I C0062 / long call to S0436 @@3453=4462 JMS I C0170 / long call to S0724 @@3454=4570 L3455, LAS / @@3455=7604 AND C0123 / @@3456=0123 SNA CLA / @@3457=7650 CMA / @@3460=7040 DCA D0060 / @@3461=3060 JMS I C0063 / long call to S0444 @@3462=4463 DCA D3473 / @@3463=3273 JMS I C0154 / long call to S0542 @@3464=4554 L3465, JMS I C0171 / long call to S0717 @@3465=4571 JMP L3465 / @@3466=5265 JMS I C0166 / long call to S0734 @@3467=4566 DCA D0077 / @@3470=3077 TAD D0077 / @@3471=1077 JMS I C0064 / long call to S0504 @@3472=4464 D3473, 0000 / AND L0000 SKP / @@3474=7410 JMP L3513 / @@3475=5313 ISZ D3521 / @@3476=2321 JMP L3502 / @@3477=5302 STA / AC = 7777 (-0001) @@3500=7240 DCA D3521 / @@3501=3321 L3502, LAS / @@3502=7604 AND C0142 / @@3503=0142 SNA CLA / @@3504=7650 JMP L3513 / @@3505=5313 TAD D0077 / @@3506=1077 HLT / @@3507=7402 CLA / @@3510=7200 TAD D3473 / @@3511=1273 HLT / @@3512=7402 L3513, LAS / @@3513=7604 SMA CLA / @@3514=7700 JMP L3455 / @@3515=5255 TAD D3521 / @@3516=1321 HLT / @@3517=7402 JMP L3455 / @@3520=5255 D3521, 0000 / AND L0000 C3522, 4772 / JMS I C3572 JMS I C0172 / long call to S0626 @@3523=4572 C3524, 4345 / JMS C3545 L3525, TAD C3571 / @@3525=1371 DCA AI6 / AUTO INDEX REGISTER @@3526=3016 JMS I C0172 / long call to S0626 @@3527=4572 C3530, 4361 / JMS C3561 JMS S3553 / @@3531=4353 DCA I AI6 / AUTO INDEX REGISTER @@3532=3416 JMS S3553 / @@3533=4353 DCA I AI6 / AUTO INDEX REGISTER @@3534=3416 JMS S3553 / @@3535=4353 DCA I AI6 / AUTO INDEX REGISTER @@3536=3416 JMS S3553 / @@3537=4353 TAD C0143 / @@3540=1143 SZA CLA / @@3541=7640 STA / AC = 7777 (-0001) @@3542=7240 DCA D0060 / @@3543=3060 JMS I C3573 / long call to S1031 @@3544=4773 JMS I L0000 / long call to S0000 @@3545=4400 L3546, JMS I C3570 / long call to S1627 @@3546=4770 LAS / @@3547=7604 SMA CLA / @@3550=7700 JMP L3546 / @@3551=5346 JMP L3525 / @@3552=5325 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3553 / / Called from: / 3531 3533 3535 3537 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S3553, 0 / return area L3554, JMS I C0171 / long call to S0717 @@3554=4571 JMP L3554 / @@3555=5354 JMS I C0165 / long call to S1546 @@3556=4565 DCA D0107 / @@3557=3107 TAD D0107 / @@3560=1107 JMS I C0070 / long call to S2017 @@3561=4470 TAD D0107 / @@3562=1107 C3563, 5753 / JMP I S3553 D3564, 4462 / JMS I C0062 L3565, JMS I C0063 / long call to S0444 @@3565=4463 C3566, 4470 / JMS I C0070 JMP L3565 / @@3567=5365 C3570, C3570, 1627 / TAD I C3427 C3571, 4377 / JMS C3577 TAD L0000 / @@3572=1000 C3573, C3573, 1031 / TAD D0031 C3574, C3574, 1135 / TAD D0135 C3575, C3575, 1117 / TAD C0117 C3576, C3576, 1600 / TAD I C3400 C3577, C3577, 1066 / TAD C0066 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3600 / / Called from: / 0220 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3600, 0 / return area TAD C0122 / @@3601=1122 DCA D0046 / @@3602=3046 TAD D0021 / @@3603=1021 RTR / @@3604=7012 RAR / @@3605=7010 AND C0121 / @@3606=0121 DCA D0100 / @@3607=3100 JMS S3622 / @@3610=4222 TAD C0120 / @@3611=1120 DCA D0046 / @@3612=3046 TAD D0021 / @@3613=1021 RTL / @@3614=7006 RAL / @@3615=7004 AND C0121 / @@3616=0121 DCA D0100 / @@3617=3100 JMS S3622 / @@3620=4222 JMP I S3600 / return @@3621=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3622 / / Called from: / 3610 3620 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3622, 0 / return area L3623, TAD I D0046 / @@3623=1446 SNA / @@3624=7450 JMP I S3622 / return @@3625=5622 DCA D0101 / @@3626=3101 TAD I D0101 / @@3627=1501 AND C0117 / @@3630=0117 TAD D0100 / @@3631=1100 DCA I D0101 / @@3632=3501 C3633, 2046 / ISZ D0046 JMP L3623 / @@3634=5223 C3635, 0720 / AND I C3720 AND I C3725 / @@3636=0725 AND I C3731 / @@3637=0731 AND I C3735 / @@3640=0735 TAD I C0147 / @@3641=1547 C3642, 0756 / AND I C3756 C3643, 0762 / AND I C3762 C3644, 1233 / TAD C3633 TAD C3664 / @@3645=1264 C3646, 1433 / TAD I D0033 C3647, 0000 / AND L0000 AND I C3741 / @@3650=0741 AND I C3746 / @@3651=0746 C3652, 1172 / TAD C0172 C3653, 0752 / AND I C3752 C3654, 1166 / TAD C0166 AND I D3766 / @@3655=0766 C3656, 1261 / TAD C3661 C3657, 1257 / TAD C3657 C3660, 2021 / ISZ D0021 C3661, 2026 / ISZ C0026 C3662, 2030 / ISZ D0030 C3663, 0000 / AND L0000 C3664, 0247 / AND C3647 C3665, 0337 / AND C3737 AND C3727 / @@3666=0327 C3667, 0257 / AND C3657 C3670, 0327 / AND C3727 C3671, 0337 / AND C3737 C3672, 0247 / AND C3647 C3673, 0333 / AND D3733 C3674, 0277 / AND C3677 C3675, 0303 / AND C3703 C3676, 0277 / AND C3677 C3677, 0333 / AND D3733 C3700, 0316 / AND C3716 C3701, 0361 / AND C3761 C3702, 0301 / AND C3701 C3703, 0376 / AND C3776 C3704, 0301 / AND C3701 C3705, 0361 / AND C3761 D3706, 0301 / AND C3701 C3707, 0302 / AND C3702 C3710, 0303 / AND C3703 AND C3704 / @@3711=0304 C3712, 0305 / AND C3705 AND D3706 / @@3713=0306 C3714, 0307 / AND C3707 C3715, 0310 / AND C3710 C3716, 0311 / AND C3711 C3717, 0312 / AND C3712 C3720, 0313 / AND C3713 C3721, 0314 / AND C3714 D3722, 0315 / AND C3715 C3723, 0316 / AND C3716 AND C3717 / @@3724=0317 C3725, 0320 / AND C3720 AND C3721 / @@3726=0321 C3727, 0322 / AND D3722 AND C3723 / @@3730=0323 C3731, 0324 / AND C3724 AND C3725 / @@3732=0325 D3733, 0326 / AND C3726 AND C3727 / @@3734=0327 C3735, 0330 / AND C3730 AND C3731 / @@3736=0331 C3737, 0332 / AND C3732 AND C3660 / @@3740=0260 C3741, 0261 / AND C3661 AND C3662 / @@3742=0262 AND C3663 / @@3743=0263 D3744, 0264 / AND C3664 AND C3665 / @@3745=0265 C3746, 0266 / AND C3666 AND C3667 / @@3747=0267 AND C3670 / @@3750=0270 AND C3671 / @@3751=0271 C3752, 0241 / AND C3641 AND C3642 / @@3753=0242 AND C3643 / @@3754=0243 D3755, 0244 / AND C3644 C3756, 0245 / AND C3645 AND C3646 / @@3757=0246 AND C3647 / @@3760=0247 C3761, 0250 / AND C3650 C3762, 0251 / AND C3651 C3763, 0252 / AND C3652 AND C3653 / @@3764=0253 AND C3654 / @@3765=0254 D3766, 0255 / AND C3655 AND C3656 / @@3767=0256 AND C3657 / @@3770=0257 AND C3672 / @@3771=0272 AND C3673 / @@3772=0273 AND C3674 / @@3773=0274 AND C3675 / @@3774=0275 AND C3676 / @@3775=0276 AND C3677 / @@3776=0277 D3777, 0300 / AND C3700 AND C4133 / @@4000=0333 AND C4134 / @@4001=0334 AND C4135 / @@4002=0335 AND C4136 / @@4003=0336 AND C4137 / @@4004=0337 AND C4141 / @@4005=0341 AND C4142 / @@4006=0342 AND C4143 / @@4007=0343 D4010, 0344 / AND C4144 AND C4145 / @@4011=0345 AND C4146 / @@4012=0346 AND C4147 / @@4013=0347 AND C4150 / @@4014=0350 AND C4151 / @@4015=0351 AND C4152 / @@4016=0352 AND C4153 / @@4017=0353 AND C4154 / @@4020=0354 AND C4155 / @@4021=0355 AND C4156 / @@4022=0356 AND C4157 / @@4023=0357 AND C4160 / @@4024=0360 AND C4161 / @@4025=0361 AND C4162 / @@4026=0362 AND C4163 / @@4027=0363 AND C4164 / @@4030=0364 AND C4165 / @@4031=0365 AND C4166 / @@4032=0366 AND C4167 / @@4033=0367 AND C4170 / @@4034=0370 AND C4171 / @@4035=0371 AND C4172 / @@4036=0372 AND C4140 / @@4037=0340 L4040, D4040, 0373 / AND C4173 AND C4174 / @@4041=0374 AND C4175 / @@4042=0375 AND C4176 / @@4043=0376 AND C4177 / @@4044=0377 AND L0000 / @@4045=0000 AND C4177 / @@4046=0377 C4047, 4543 / JMS I C0143 AND D0077 / @@4050=0077 AND L0000 / @@4051=0000 C4052, 4543 / JMS I C0143 C4053, 4302 / JMS C4102 AND C0103 / @@4054=0103 TAD C4123 / @@4055=1323 ISZ L0001 / @@4056=2001 AND C4105 / @@4057=0305 C4060, 4024 / JMS C0024 AND I C0123 / @@4061=0523 ISZ I D0045 / @@4062=2445 C4063, 4343 / JMS C4143 AND D0077 / @@4064=0077 AND L0000 / @@4065=0000 C4066, 4543 / JMS I C0143 C4067, 4324 / JMS D4124 AND D0102 / @@4070=0102 C4071, 4024 / JMS C0024 AND I C0123 / @@4072=0523 ISZ I D0045 / @@4073=2445 C4074, 4343 / JMS C4143 AND D0077 / @@4075=0077 AND L0000 / @@4076=0000 C4077, 4040 / JMS D0040 C4100, C4100, 4040 / JMS D0040 C4101, 4040 / JMS D0040 C4102, 4040 / JMS D0040 JMP I C4100 / long jump to L4040 @@4103=5700 SMA CLA / @@4104=7700 C4105, 4040 / JMS D0040 C4106, 4040 / JMS D0040 C4107, 4040 / JMS D0040 JMS D0057 / @@4110=4057 AND D0077 / @@4111=0077 AND L0000 / @@4112=0000 C4113, 5511 / JMP I C0111 JMP I D0100 / long jump to L0000 @@4114=5500 SMA CLA / @@4115=7700 D4116, 5555 / JMP I C0155 JMP I C0155 / long jump to L0765 @@4117=5555 TAD C0155 / @@4120=1155 TAD D0100 / @@4121=1100 SMA CLA / @@4122=7700 C4123, 3440 / DCA I D0040 D4124, 0077 / AND D0077 AND L0000 / @@4125=0000 C4126, 4543 / JMS I C0143 C4127, 4303 / JMS C4103 ISZ L4040 / @@4130=2240 ISZ I D0005 / @@4131=2405 ISZ D4124 / @@4132=2324 C4133, 4543 / JMS I C0143 C4134, 4300 / JMS C4100 C4135, 7700 / SMA CLA C4136, 4543 / JMS I C0143 C4137, 4322 / JMS C4122 C4140, 1107 / TAD D0107 C4141, 1024 / TAD C0024 C4142, 4015 / JMS AI5 C4143, 0122 / AND C0122 C4144, 0711 / AND I C4111 C4145, 1640 / TAD I L4040 C4146, 2405 / ISZ I D0005 C4147, 2324 / ISZ D4124 C4150, 4543 / JMS I C0143 C4151, 4300 / JMS C4100 C4152, 7700 / SMA CLA C4153, 4543 / JMS I C0143 C4154, 4323 / JMS C4123 C4155, 2001 / ISZ L0001 C4156, 0305 / AND C4105 C4157, 4024 / JMS C0024 C4160, 0523 / AND I C0123 C4161, 2445 / ISZ I D0045 C4162, 4343 / JMS C4143 C4163, 0077 / AND D0077 C4164, 0000 / AND L0000 C4165, 4543 / JMS I C0143 C4166, 4314 / JMS C4114 C4167, 0640 / AND I L4040 C4170, 2405 / ISZ I D0005 C4171, 2324 / ISZ D4124 C4172, 4543 / JMS I C0143 C4173, 4300 / JMS C4100 C4174, 7700 / SMA CLA C4175, 4543 / JMS I C0143 C4176, 4303 / JMS C4103 C4177, 1001 / TAD L0001 ISZ D4201 / @@4200=2201 D4201, 0324 / AND D4324 AND I C0122 / @@4202=0522 C4203, 4024 / JMS C0024 C4204, 0523 / AND I C0123 ISZ I D0023 / @@4205=2423 C4206, 4543 / JMS I C0143 C4207, 4300 / JMS C4300 SMA CLA / @@4210=7700 C4211, 4543 / JMS I C0143 C4212, 4327 / JMS C4327 TAD I C4322 / @@4213=1722 ISZ D4324 / @@4214=2324 JMS D0003 / @@4215=4003 AND C0123 / @@4216=0123 C4217, 0540 / AND I D0140 ISZ L0001 / @@4220=2001 ISZ I C0024 / @@4221=2424 AND I C0122 / @@4222=0522 TAD I D4240 / @@4223=1640 ISZ I D0005 / @@4224=2405 D4225, 2324 / ISZ D4324 C4226, 4543 / JMS I C0143 C4227, 4300 / JMS C4300 SMA CLA / @@4230=7700 C4231, 4543 / JMS I C0143 C4232, 4313 / JMS C4313 DCA D0102 / @@4233=3102 AND I D0040 / @@4234=0440 ISZ I D0005 / @@4235=2405 ISZ D4324 / @@4236=2324 C4237, 4543 / JMS I C0143 D4240, 0077 / AND D0077 AND L0000 / @@4241=0000 C4242, 4543 / JMS I C0143 ISZ D0022 / @@4243=2022 AND I C0123 / @@4244=0523 D4245, 2340 / ISZ D4340 AND D0140 / @@4246=0140 TAD D4305 / @@4247=1305 DCA D0145 / @@4250=3145 C4251, 4300 / JMS C4300 SMA CLA / @@4252=7700 C4253, 4543 / JMS I C0143 AND I C0103 / @@4254=0503 C4255, 1017 / TAD AI7 C4256, 4024 / JMS C0024 AND I C0123 / @@4257=0523 ISZ I L0000 / @@4260=2400 C4261, 4543 / JMS I C0143 AND C4310 / @@4262=0310 AND C0122 / @@4263=0122 AND C0103 / @@4264=0103 ISZ I D0005 / @@4265=2405 ISZ D4240 / @@4266=2240 TAD D4305 / @@4267=1305 DCA D0105 / @@4270=3105 AND I D0040 / @@4271=0440 ISZ I C4311 / @@4272=2711 C4273, 1414 / TAD I AI4 JMS S0002 / @@4274=4002 AND I D0140 / @@4275=0540 ISZ I D0031 / @@4276=2431 ISZ D0005 / @@4277=2005 AND I D0056 / @@4300=0456 AND L0000 / @@4301=0000 C4302, 4543 / JMS I C0143 ISZ D4225 / @@4303=2225 AND C4217 / @@4304=0217 D4305, 2524 / ISZ I C0124 C4306, 4005 / JMS D0005 TAD I C4204 / @@4307=1604 C4310, 2340 / ISZ D4340 C4311, 2217 / ISZ C4217 ISZ I C0124 / @@4312=2524 C4313, 1116 / TAD C0116 AND I C0156 / @@4314=0556 C4315, 4543 / JMS I C0143 C4316, 4300 / JMS C4300 SMA CLA / @@4317=7700 C4320, 4543 / JMS I C0143 C4321, 4317 / JMS C4317 C4322, 0324 / AND D4324 C4323, 0114 / AND C0114 D4324, 4005 / JMS D0005 ISZ D0125 / @@4325=2125 TAD C0126 / @@4326=1126 C4327, 0114 / AND C0114 C4330, 0516 / AND I C0116 ISZ I D0040 / @@4331=2440 ISZ I D0005 / @@4332=2405 ISZ D4324 / @@4333=2324 AND D0077 / @@4334=0077 AND L0000 / @@4335=0000 C4336, 4543 / JMS I C0143 AND L0000 / @@4337=0000 D4340, 4040 / JMS D0040 C4341, 4040 / JMS D0040 C4342, 4543 / JMS I C0143 AND D0077 / @@4343=0077 AND L0000 / @@4344=0000 C4345, 4543 / JMS I C0143 ISZ D0022 / @@4346=2022 C4347, 1116 / TAD C0116 ISZ I D0005 / @@4350=2405 ISZ D4240 / @@4351=2240 AND I C0130 / @@4352=0530 AND I C0122 / @@4353=0522 AND C4311 / @@4354=0311 ISZ D4305 / @@4355=2305 ISZ D4245 / @@4356=2245 C4357, 4300 / JMS C4300 SMA CLA / @@4360=7700 C4361, 4543 / JMS I C0143 ISZ I D0031 / @@4362=2431 ISZ D0005 / @@4363=2005 C4364, 4011 / JMS AI1 TAD I D4240 / @@4365=1640 AND I L0001 / @@4366=0401 ISZ I L0001 / @@4367=2401 JMS D0072 / @@4370=4072 AND D0077 / @@4371=0077 AND L0000 / @@4372=0000 ISZ I D0140 / @@4373=2540 AND D0077 / @@4374=0077 AND L0000 / @@4375=0000 AND L0000 / @@4376=0000 $