TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhada-a-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhada-a-pb.bin / Generated 2010 02 19 00:10:24 / Generated by d8tape version 0.351 / Visit http://www.pdp12.org/pdp8/software/index.html for updates / / Symbol format: / AIx -- Auto-index variables (address range 001x) / Caaaa -- Constants (non-unique) / Daaaa -- Data (read/write variables) / Kvvvv -- Program-wide unique constants / Laaaa -- Labels for control flow targets / Saaaa -- Subroutines / / Where: / aaaa is the definition address / vvvv is the value of the constant / x is the last digit of the address 001x for auto-index variables / / 3434 locations used, 2532 code and 0702 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5402 / JMP I S0002 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0002 / / Called from: / 4141 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0002, 0 / return area C0003, 5404 / JMP I D0004 D0004, 0000 / AND L0000 D0005, 7402 / HLT *0017 AI7, 0145 / AUTO-INDEX REGISTER AND C0145 D0020, 4000 / JMS L0000 C0021, 2000 / ISZ L0000 C0022, 1000 / TAD L0000 L0023, C0023, 0400 / AND I L0000 D0024, 0200 / AND L0000 C0025, 0100 / AND C0100 D0026, 0000 / AND L0000 D0027, 0000 / AND L0000 D0030, 0000 / AND L0000 D0031, 0000 / AND L0000 AND L0000 / @@0032=0000 D0033, 0000 / AND L0000 D0034, 0000 / AND L0000 C0035, C0035, 1226 / TAD D0026 C0036, C0036, 1000 / TAD L0000 C0037, C0037, 1400 / TAD I L0000 D0040, 2000 / ISZ L0000 C0041, 0207 / AND D0007 C0042, 0212 / AND AI2 C0043, 0215 / AND AI5 D0044, 6500 / 6500 C0045, 7777 / CLA MQA SCA MQL LSR + C0046, 7776 / SPA SNA SZL CLA OSR HLT C0047, 7774 / SPA SNA SZL CLA OSR C0050, 1000 / TAD L0000 D0051, 0077 / AND D0077 C0052, C0052, 1200 / TAD L0000 C0053, C0053, 1024 / TAD D0024 C0054, 4377 / JMS C0177 C0055, C0055, 2400 / ISZ I L0000 C0056, C0056, 2200 / ISZ L0000 C0057, C0057, 2051 / ISZ D0051 C0060, C0060, 2103 / ISZ D0103 C0061, C0061, 2600 / ISZ I L0000 D0062, 7777 / CLA MQA SCA MQL LSR + D0063, 0000 / AND L0000 C0064, C0064, 1600 / TAD I L0000 C0065, C0065, 1647 / TAD I C0047 C0066, C0066, 1552 / TAD I C0152 *0077 D0077, 0000 / AND L0000 C0100, 0001 / AND L0001 C0101, 0002 / AND S0002 D0102, 0003 / AND C0003 D0103, 0004 / AND D0004 C0104, 0005 / AND D0005 C0105, 0006 / AND C0006 C0106, 0007 / AND D0007 C0107, 0010 / AND AI0 C0110, 0011 / AND AI1 D0111, 0012 / AND AI2 C0112, 0013 / AND AI3 C0113, 0014 / AND AI4 C0114, 0015 / AND AI5 C0115, 0016 / AND AI6 C0116, 0017 / AND AI7 C0117, 0000 / AND L0000 C0120, C0120, 1410 / TAD I AI0 C0121, C0121, 1414 / TAD I AI4 C0122, C0122, 1420 / TAD I D0020 C0123, C0123, 1424 / TAD I D0024 C0124, C0124, 1430 / TAD I D0030 D0125, 1436 / TAD I C0036 C0126, C0126, 1444 / TAD I D0044 C0127, C0127, 1450 / TAD I C0050 C0130, C0130, 1454 / TAD I C0054 C0131, C0131, 1460 / TAD I C0060 C0132, C0132, 1466 / TAD I C0066 C0133, C0133, 1472 / TAD I C0072 C0134, 1476 / TAD I C0076 C0135, C0135, 1502 / TAD I D0102 C0136, C0136, 1506 / TAD I C0106 L0137, C0137, C0137, 1514 / TAD I C0114 D0140, 1520 / TAD I C0120 C0141, C0141, 1524 / TAD I C0124 C0142, 1530 / TAD I C0130 *0145 C0145, 3200 / DCA L0000 DCA D0044 / @@0146=3244 DCA D0102 / @@0147=3302 C0150, 3344 / DCA C0144 DCA D0172 / @@0151=3372 C0152, 3422 / DCA I C0022 DCA I C0052 / @@0153=3452 DCA I D0103 / @@0154=3503 DCA I D0140 / @@0155=3540 DCA I L0001 / @@0156=3601 DCA I C0037 / @@0157=3637 DCA I D0077 / @@0160=3677 C0161, C0161, 3744 / DCA I C0144 *0164 C0164, 6031 / KSF C0165, 6030 / 6030 C0166, 0140 / AND D0140 C0167, 5402 / JMP I S0002 C0170, 0076 / AND C0076 C0171, 7760 / SMA SZA SNL CLA D0172, 0475 / AND I C0075 C0173, 0445 / AND I C0045 C0174, 7761 / CLA MQA SCA MQL C0175, 0017 / AND AI7 C0176, 0322 / AND C0122 C0177, 7700 / SMA CLA JMP L0211 / @@0200=5211 JMP I C0037 / long jump to L1400 @@0201=5437 JMP I C0036 / long jump to L1000 @@0202=5436 JMP I C0053 / long jump to L1024 @@0203=5453 JMP I D0040 / long jump to L2000 @@0204=5440 JMP I C0056 / long jump to L2200 @@0205=5456 JMP I C0057 / long jump to L2051 @@0206=5457 JMP I C0060 / long jump to L2103 @@0207=5460 JMP I C0061 / long jump to L2600 @@0210=5461 L0211, HLT / @@0211=7402 LAS / @@0212=7604 AND C0025 / @@0213=0025 SZA / @@0214=7440 JMS I C0065 / long call to S1647 @@0215=4465 CLA CLL / AC = 0000 @@0216=7300 JMS I C0377 / long call to S1274 @@0217=4777 C0220, 4161 / JMS C0161 L0221, TAD C0376 / @@0221=1376 DCA AI7 / AUTO INDEX REGISTER @@0222=3017 JMS I C0066 / long call to S1552 @@0223=4466 L0224, C0224, 6007 / 6007 JMS I C0124 / long call to S1430 @@0225=4524 JMP L0231 / @@0226=5231 JMS I C0035 / long call to S1226 @@0227=4435 AND L0224 / @@0230=0224 L0231, JMS I D0125 / long call to S1436 @@0231=4525 JMP L0237 / @@0232=5237 JMS I C0035 / long call to S1226 @@0233=4435 AND L0224 / @@0234=0224 JMP L0240 / @@0235=5240 JMP L0224 / @@0236=5224 L0237, JMS I C0064 / long call to S1600 @@0237=4464 L0240, JMS I C0066 / long call to S1552 @@0240=4466 L0241, C0241, 7200 / CLA JMS I C0122 / long call to S1420 @@0242=4522 TAD C0177 / @@0243=1177 DCA D0026 / @@0244=3026 L0245, ISZ D0026 / @@0245=2026 JMP L0245 / @@0246=5245 JMS I C0124 / long call to S1430 @@0247=4524 SKP / @@0250=7410 JMP L0255 / @@0251=5255 JMS I C0035 / long call to S1226 @@0252=4435 AND L0241 / @@0253=0241 JMP L0265 / @@0254=5265 L0255, JMS I C0120 / long call to S1410 @@0255=4520 JMS I C0124 / long call to S1430 @@0256=4524 JMP L0264 / @@0257=5264 JMS I C0035 / long call to S1226 @@0260=4435 AND L0241 / @@0261=0241 JMP L0265 / @@0262=5265 JMP L0241 / @@0263=5241 L0264, JMS I C0064 / long call to S1600 @@0264=4464 L0265, JMS I C0066 / long call to S1552 @@0265=4466 L0266, C0266, 7200 / CLA JMS I C0122 / long call to S1420 @@0267=4522 JMS I C0122 / long call to S1420 @@0270=4522 JMS I D0125 / long call to S1436 @@0271=4525 SKP / @@0272=7410 JMP L0276 / @@0273=5276 C0274, 4435 / JMS I C0035 AND L0266 / @@0275=0266 L0276, JMS I C0120 / long call to S1410 @@0276=4520 JMS I D0125 / long call to S1436 @@0277=4525 JMP L0305 / @@0300=5305 JMS I C0035 / long call to S1226 @@0301=4435 AND L0266 / @@0302=0266 JMP L0306 / @@0303=5306 JMP L0266 / @@0304=5266 L0305, JMS I C0064 / long call to S1600 @@0305=4464 L0306, JMS I C0066 / long call to S1552 @@0306=4466 L0307, C0307, 7200 / CLA TAD C0176 / @@0310=1176 DCA D0004 / @@0311=3004 TAD C0317 / @@0312=1317 DCA L0001 / @@0313=3001 ION / Enable Interrupts @@0314=6001 NOP / @@0315=7000 JMP L0322 / @@0316=5322 C0317, 4435 / JMS I C0035 AND L0307 / @@0320=0307 JMP L0326 / @@0321=5326 L0322, IOF / Disable Interrupts @@0322=6002 SKP / @@0323=7410 JMP L0307 / @@0324=5307 JMS I C0064 / long call to S1600 @@0325=4464 L0326, C0326, 4466 / JMS I C0066 L0327, C0327, 7240 / STA JMS I C0123 / long call to S1424 @@0330=4523 DCA D0027 / @@0331=3027 CMA / @@0332=7040 JMS I C0123 / long call to S1424 @@0333=4523 CIA / @@0334=7041 TAD D0027 / @@0335=1027 SZA / @@0336=7440 SKP / @@0337=7410 JMP L0345 / @@0340=5345 JMS I C0035 / long call to S1226 @@0341=4435 AND L0327 / @@0342=0327 JMP L0346 / @@0343=5346 JMP L0327 / @@0344=5327 L0345, JMS I C0064 / long call to S1600 @@0345=4464 L0346, JMS I C0066 / long call to S1552 @@0346=4466 L0347, C0347, 4520 / JMS I C0120 JMS I C0121 / long call to S1414 @@0350=4521 JMS I C0122 / long call to S1420 @@0351=4522 L0352, JMS I C0124 / long call to S1430 @@0352=4524 JMP L0352 / @@0353=5352 CLA CLL CMA / AC = 7777 (-0001) @@0354=7340 JMS I C0127 / long call to S1450 @@0355=4527 DCA D0027 / @@0356=3027 TAD D0027 / @@0357=1027 RAL / @@0360=7004 SZA / @@0361=7440 SKP / @@0362=7410 JMP L0370 / @@0363=5370 JMS I C0035 / long call to S1226 @@0364=4435 AND L0347 / @@0365=0347 JMP I C0375 / long jump to L0400 @@0366=5775 JMP L0347 / @@0367=5347 L0370, JMS I C0064 / long call to S1600 @@0370=4464 JMP I C0375 / long jump to L0400 @@0371=5775 *0375 C0375, C0375, 0400 / AND I L0000 C0376, 0144 / AND C0144 C0377, C0377, 1274 / TAD C0274 L0400, C0400, 4466 / JMS I C0066 L0401, CLA CLL / AC = 0000 @@0401=7300 TAD C0175 / @@0402=1175 BSW / @@0403=7002 JMS I C0126 / long call to S1444 @@0404=4526 SZA / @@0405=7440 SKP / @@0406=7410 JMP L0412 / @@0407=5212 JMS I C0035 / long call to S1226 @@0410=4435 AND I L0001 / @@0411=0401 L0412, CMA / @@0412=7040 JMS I C0127 / long call to S1450 @@0413=4527 BSW / @@0414=7002 TAD C0174 / @@0415=1174 SZA / @@0416=7440 SKP / @@0417=7410 JMP L0425 / @@0420=5225 JMS I C0035 / long call to S1226 @@0421=4435 AND I L0001 / @@0422=0401 JMP L0426 / @@0423=5226 JMP L0401 / @@0424=5201 L0425, JMS I C0064 / long call to S1600 @@0425=4464 L0426, JMS I C0066 / long call to S1552 @@0426=4466 L0427, CLA / @@0427=7200 JMS I C0122 / long call to S1420 @@0430=4522 L0431, JMS I C0124 / long call to S1430 @@0431=4524 JMP L0431 / @@0432=5231 TAD C0173 / @@0433=1173 DCA S0002 / @@0434=3002 TAD C0050 / @@0435=1050 JMS I C0126 / long call to S1444 @@0436=4526 ION / Enable Interrupts @@0437=6001 NOP / @@0440=7000 IOF / Disable Interrupts @@0441=6002 JMS I C0035 / long call to S1226 @@0442=4435 AND I D0027 / @@0443=0427 JMP L0451 / @@0444=5251 JMS I C0120 / long call to S1410 @@0445=4520 SKP / @@0446=7410 JMP L0427 / @@0447=5227 JMS I C0064 / long call to S1600 @@0450=4464 L0451, JMS I C0066 / long call to S1552 @@0451=4466 L0452, CLA / @@0452=7200 TAD D0172 / @@0453=1172 DCA S0002 / @@0454=3002 JMS I C0122 / long call to S1420 @@0455=4522 JMS I C0122 / long call to S1420 @@0456=4522 L0457, JMS I C0124 / long call to S1430 @@0457=4524 JMP L0457 / @@0460=5257 L0461, JMS I D0125 / long call to S1436 @@0461=4525 JMP L0461 / @@0462=5261 CLA CLL / AC = 0000 @@0463=7300 TAD C0050 / @@0464=1050 RAR / @@0465=7010 JMS I C0126 / long call to S1444 @@0466=4526 ION / Enable Interrupts @@0467=6001 NOP / @@0470=7000 IOF / Disable Interrupts @@0471=6002 JMS I C0035 / long call to S1226 @@0472=4435 AND I C0052 / @@0473=0452 JMP L0501 / @@0474=5301 JMS I C0120 / long call to S1410 @@0475=4520 SKP / @@0476=7410 JMP L0452 / @@0477=5252 JMS I C0064 / long call to S1600 @@0500=4464 L0501, JMS I C0066 / long call to S1552 @@0501=4466 L0502, STA / AC = 7777 (-0001) @@0502=7240 JMS I C0121 / long call to S1414 @@0503=4521 C0504, 7450 / SNA JMP L0511 / @@0505=5311 JMS I C0035 / long call to S1226 @@0506=4435 AND I D0102 / @@0507=0502 CLA / @@0510=7200 L0511, JMS I C0121 / long call to S1414 @@0511=4521 JMS I C0127 / long call to S1450 @@0512=4527 AND C0175 / @@0513=0175 SZA / @@0514=7440 SKP / @@0515=7410 C0516, 5321 / JMP L0521 JMS I C0035 / long call to S1226 @@0517=4435 AND I D0102 / @@0520=0502 L0521, CMA / @@0521=7040 AND C0175 / @@0522=0175 JMS I C0121 / long call to S1414 @@0523=4521 JMS I C0127 / long call to S1450 @@0524=4527 AND C0175 / @@0525=0175 TAD C0171 / @@0526=1171 CMA / @@0527=7040 SZA / @@0530=7440 SKP / @@0531=7410 JMP L0537 / @@0532=5337 JMS I C0035 / long call to S1226 @@0533=4435 AND I D0102 / @@0534=0502 JMP I C0577 / long jump to L0600 @@0535=5777 JMP L0502 / @@0536=5302 L0537, C0537, 4464 / JMS I C0064 C0540, 5777 / JMP I C0577 *0577 C0577, C0577, 0600 / AND I L0400 L0600, JMS I C0066 / long call to S1552 @@0600=4466 C0601, 7300 / CLA CLL DCA D0026 / @@0602=3026 L0603, TAD D0026 / @@0603=1026 CMA / @@0604=7040 DCA D0027 / @@0605=3027 TAD D0026 / @@0606=1026 JMS I C0121 / long call to S1414 @@0607=4521 JMS I C0127 / long call to S1450 @@0610=4527 AND C0175 / @@0611=0175 DCA D0030 / @@0612=3030 TAD D0027 / @@0613=1027 C0614, 1030 / TAD D0030 IAC / @@0615=7001 SZA / @@0616=7440 SKP / @@0617=7410 JMP L0624 / @@0620=5224 C0621, 4435 / JMS I C0035 AND I C0601 / @@0622=0601 JMP L0636 / @@0623=5236 L0624, TAD C0171 / @@0624=1171 TAD D0026 / @@0625=1026 IAC / @@0626=7001 SZA / @@0627=7440 SKP / @@0630=7410 JMP L0635 / @@0631=5235 CLA CLL / AC = 0000 @@0632=7300 ISZ D0026 / @@0633=2026 JMP L0603 / @@0634=5203 L0635, JMS I C0064 / long call to S1600 @@0635=4464 L0636, JMS I C0066 / long call to S1552 @@0636=4466 L0637, C0637, 7300 / CLA CLL TAD C0170 / @@0640=1170 C0641, 3010 / DCA AI0 JMS I C0120 / long call to S1410 @@0642=4520 L0643, CLA / @@0643=7200 C0644, 1410 / TAD I AI0 DCA D0027 / @@0645=3027 TAD D0027 / @@0646=1027 CMA / @@0647=7040 DCA D0030 / @@0650=3030 TAD C0025 / @@0651=1025 JMS I C0126 / long call to S1444 @@0652=4526 TAD D0027 / @@0653=1027 JMS I C0121 / long call to S1414 @@0654=4521 JMS I C0122 / long call to S1420 @@0655=4522 L0656, JMS I C0124 / long call to S1430 @@0656=4524 JMP L0656 / @@0657=5256 JMS I C0127 / long call to S1450 @@0660=4527 AND C0175 / @@0661=0175 DCA D0031 / @@0662=3031 TAD D0027 / @@0663=1027 TAD C0174 / @@0664=1174 SZA CLA / @@0665=7640 JMP L0672 / @@0666=5272 C0667, 1410 / TAD I AI0 TAD D0031 / @@0670=1031 JMP L0674 / @@0671=5274 L0672, TAD D0031 / @@0672=1031 TAD D0030 / @@0673=1030 L0674, C0674, 7440 / SZA SKP / @@0675=7410 JMP L0702 / @@0676=5302 JMS I C0035 / long call to S1226 @@0677=4435 AND I L0637 / @@0700=0637 JMP L0710 / @@0701=5310 L0702, TAD D0031 / @@0702=1031 SZA / @@0703=7440 JMP L0643 / @@0704=5243 SKP / @@0705=7410 JMP L0637 / @@0706=5237 JMS I C0064 / long call to S1600 @@0707=4464 L0710, JMS I C0066 / long call to S1552 @@0710=4466 L0711, C0711, 7300 / CLA CLL TAD C0777 / @@0712=1377 DCA D0026 / @@0713=3026 JMS I C0120 / long call to S1410 @@0714=4520 JMS I C0122 / long call to S1420 @@0715=4522 L0716, ISZ D0026 / @@0716=2026 JMP L0716 / @@0717=5316 JMS I C0124 / long call to S1430 @@0720=4524 SKP / @@0721=7410 JMP L0727 / @@0722=5327 JMS I C0035 / long call to S1226 @@0723=4435 AND I L0711 / @@0724=0711 JMP L0730 / @@0725=5330 JMP L0711 / @@0726=5311 L0727, JMS I C0064 / long call to S1600 @@0727=4464 L0730, LAS / @@0730=7604 AND D0020 / @@0731=0020 SZA CLA / @@0732=7640 JMP L0737 / @@0733=5337 JMS I C0776 / long call to S1274 @@0734=4776 C0735, 4146 / JMS C0146 CLA / @@0736=7200 L0737, TAD C0041 / @@0737=1041 JMS I C0775 / long call to S1534 @@0740=4775 JMP I C0774 / long jump to L0221 @@0741=5774 *0774 C0774, C0774, 0221 / AND C0621 C0775, C0775, 1534 / TAD I C0134 C0776, C0776, 1274 / TAD L0674 C0777, 7772 / SPA SNA SZL CLA HLT L1000, D1000, 4520 / JMS I C0120 DCA D0026 / @@1001=3026 LAS / @@1002=7604 JMS I C0121 / long call to S1414 @@1003=4521 JMS I C0122 / long call to S1420 @@1004=4522 L1005, JMS I C0124 / long call to S1430 @@1005=4524 JMP L1005 / @@1006=5205 JMS I C0123 / long call to S1424 @@1007=4523 L1010, ISZ D0026 / @@1010=2026 JMP L1010 / @@1011=5210 L1012, ISZ D0026 / @@1012=2026 JMP L1012 / @@1013=5212 DCA D0031 / @@1014=3031 LAS / @@1015=7604 AND L0023 / @@1016=0023 SNA CLA / @@1017=7650 JMP L1023 / @@1020=5223 TAD D0031 / @@1021=1031 HLT / @@1022=7402 L1023, JMP L1000 / @@1023=5200 L1024, JMS I C0066 / long call to S1552 @@1024=4466 JMS I C0120 / long call to S1410 @@1025=4520 LAS / @@1026=7604 AND D0024 / @@1027=0024 SNA / @@1030=7450 HLT / @@1031=7402 L1032, LAS / @@1032=7604 AND D0024 / @@1033=0024 JMS I C0126 / long call to S1444 @@1034=4526 LAS / @@1035=7604 AND C0175 / @@1036=0175 JMS I C0121 / long call to S1414 @@1037=4521 TAD C1177 / @@1040=1377 JMS I C0130 / long call to S1454 @@1041=4530 CMA / @@1042=7040 JMS I C0132 / long call to S1466 @@1043=4532 L1044, JMS I C0131 / long call to S1460 @@1044=4531 JMP L1044 / @@1045=5244 JMS I C0133 / long call to S1472 @@1046=4533 STA / AC = 7777 (-0001) @@1047=7240 JMS I C0132 / long call to S1466 @@1050=4532 CLA / @@1051=7200 L1052, ISZ D0026 / @@1052=2026 JMP L1052 / @@1053=5252 JMS I C0124 / long call to S1430 @@1054=4524 JMS I C1176 / long call to S1732 @@1055=4776 JMS I C0123 / long call to S1424 @@1056=4523 DCA D0027 / @@1057=3027 LAS / @@1060=7604 AND C0022 / @@1061=0022 SNA CLA / @@1062=7650 JMP L1066 / @@1063=5266 TAD D0027 / @@1064=1027 HLT / @@1065=7402 L1066, JMS I C0066 / long call to S1552 @@1066=4466 JMS I C0120 / long call to S1410 @@1067=4520 LAS / @@1070=7604 AND D0024 / @@1071=0024 JMS I C0126 / long call to S1444 @@1072=4526 STA / AC = 7777 (-0001) @@1073=7240 JMS I C0135 / long call to S1502 @@1074=4535 CLA / @@1075=7200 TAD C1175 / @@1076=1375 JMS I C0130 / long call to S1454 @@1077=4530 NOP / @@1100=7000 JMS I D0125 / long call to S1436 @@1101=4525 JMS I C1176 / long call to S1732 @@1102=4776 STA / AC = 7777 (-0001) @@1103=7240 JMS I C0132 / long call to S1466 @@1104=4532 CLA / @@1105=7200 JMS I C0120 / long call to S1410 @@1106=4520 TAD D0024 / @@1107=1024 JMS I C0126 / long call to S1444 @@1110=4526 STA / AC = 7777 (-0001) @@1111=7240 JMS I C0135 / long call to S1502 @@1112=4535 CLA / @@1113=7200 C1114, 4535 / JMS I C0135 D1115, 1374 / TAD C1174 C1116, 3031 / DCA D0031 L1117, ISZ D0031 / @@1117=2031 JMP L1117 / @@1120=5317 JMS I C0124 / long call to S1430 @@1121=4524 JMP L1125 / @@1122=5325 C1123, 4776 / JMS I C1176 JMS I C0120 / long call to S1410 @@1124=4520 L1125, CLA / @@1125=7200 TAD C0041 / @@1126=1041 JMS I C1173 / long call to S1534 @@1127=4773 JMP L1032 / @@1130=5232 *1173 C1173, C1173, 1534 / TAD I C0134 C1174, 7772 / SPA SNA SZL CLA HLT C1175, 1640 / TAD I C1040 C1176, C1176, 1732 / TAD I C1132 C1177, 4340 / JMS C1140 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / Called from: / 1553 2204 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1200, 0 / return area C1201, 7300 / CLA CLL TAD I S1200 / @@1202=1600 DCA D1223 / @@1203=3223 ISZ S1200 / @@1204=2200 TAD I S1200 / @@1205=1600 DCA D1224 / @@1206=3224 ISZ S1200 / @@1207=2200 TAD I S1200 / @@1210=1600 DCA D1225 / @@1211=3225 ISZ S1200 / @@1212=2200 L1213, CLA / @@1213=7200 TAD I D1223 / @@1214=1623 DCA I D1224 / @@1215=3624 ISZ D1223 / @@1216=2223 ISZ D1224 / @@1217=2224 ISZ D1225 / @@1220=2225 JMP L1213 / @@1221=5213 JMP I S1200 / return @@1222=5600 D1223, 0000 / AND L0000 D1224, 0000 / AND L0000 D1225, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1226 / / Called from: / 0227 0233 0252 0260 0301 0341 0364 0410 0421 0442 0472 0506 0517 0533 0677 / 0723 / Total 0020 (16) calls //////////////////////////////////////////////////////////////////////////////// S1226, 0 / return area CLA / @@1227=7200 TAD D1346 / @@1230=1346 SZA CLA / @@1231=7640 JMP L1243 / @@1232=5243 LAS / @@1233=7604 AND D0020 / @@1234=0020 SPA CLA / @@1235=7710 JMP L1247 / @@1236=5247 TAD I AI7 / AUTO INDEX REGISTER @@1237=1417 DCA D1242 / @@1240=3242 JMS S1274 / @@1241=4274 D1242, 7402 / HLT L1243, CLA / @@1243=7200 TAD D1346 / @@1244=1346 SZA CLA / @@1245=7640 JMP L1250 / @@1246=5250 L1247, ISZ D1346 / @@1247=2346 L1250, LAS / @@1250=7604 AND C0021 / @@1251=0021 SNA CLA / @@1252=7650 JMP L1257 / @@1253=5257 TAD S1226 / @@1254=1226 TAD C0045 / @@1255=1045 HLT / @@1256=7402 L1257, LAS / @@1257=7604 AND C0022 / @@1260=0022 SZA CLA / @@1261=7640 JMP L1272 / @@1262=5272 TAD I S1226 / @@1263=1626 DCA D1271 / @@1264=3271 TAD AI7 / AUTO INDEX REGISTER @@1265=1017 TAD C0045 / @@1266=1045 DCA AI7 / AUTO INDEX REGISTER @@1267=3017 JMP I D1271 / long jump to L7402 @@1270=5671 D1271, 7402 / HLT L1272, ISZ S1226 / @@1272=2226 JMP I S1226 / return @@1273=5626 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1274 / / Called from: / 0217 0734 1241 1675 1715 1737 1752 1763 2617 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S1274, 0 / return area STA / AC = 7777 (-0001) @@1275=7240 TAD I S1274 / @@1276=1674 C1277, 3010 / DCA AI0 ISZ S1274 / @@1300=2274 L1301, C1301, 1410 / TAD I AI0 DCA D1313 / @@1302=3313 TAD D1313 / @@1303=1313 RTR / @@1304=7012 RTR / @@1305=7012 RTR / @@1306=7012 JMS S1314 / @@1307=4314 TAD D1313 / @@1310=1313 JMS S1314 / @@1311=4314 JMP L1301 / @@1312=5301 D1313, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1314 / / Called from: / 1307 1311 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1314, 0 / return area AND D0051 / @@1315=0051 SNA / @@1316=7450 JMP I S1274 / return @@1317=5674 TAD C1377 / @@1320=1377 SPA / @@1321=7510 JMP L1325 / @@1322=5325 TAD C1376 / @@1323=1376 JMP L1340 / @@1324=5340 L1325, IAC / @@1325=7001 SZA / @@1326=7440 JMP L1332 / @@1327=5332 TAD C0043 / @@1330=1043 JMP L1340 / @@1331=5340 L1332, IAC / @@1332=7001 SZA / @@1333=7440 JMP L1337 / @@1334=5337 TAD C0042 / @@1335=1042 JMP L1340 / @@1336=5340 L1337, TAD C1375 / @@1337=1375 L1340, TLS / Load the TTO from the content of AC4 @@1340=6046 L1341, TSF / Skip if teleprinter flag is a 1. @@1341=6041 JMP L1341 / @@1342=5341 TCF / Clear teleprinter flag. @@1343=6042 CLA / @@1344=7200 JMP I S1314 / return @@1345=5714 D1346, 0000 / AND L0000 *1375 C1375, 0336 / AND C1336 C1376, 0240 / AND C1240 C1377, 7740 / SMA SZA CLA L1400, D1400, 7000 / NOP L1401, LAS / @@1401=7604 AND D0051 / @@1402=0051 TAD D0044 / @@1403=1044 DCA D1405 / @@1404=3205 D1405, 7402 / HLT NOP / @@1406=7000 JMP L1401 / @@1407=5201 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1410 / / Called from: / 0255 0276 0445 0475 0642 0714 1025 1067 1106 1124 2003 2212 2602 / Total 0015 (13) calls //////////////////////////////////////////////////////////////////////////////// S1410, 0 / return area C1411, 6530 / 6530 JMP I S1410 / return @@1412=5610 HLT / @@1413=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1414 / / Called from: / 0350 0503 0511 0523 0607 0654 1003 1037 2055 2112 2122 2217 2630 2660 2717 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S1414, 0 / return area ADSE / Skip if A/D converter flag is a 1. @@1415=6531 JMP I S1414 / return @@1416=5614 HLT / @@1417=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1420 / / Called from: / 0242 0267 0270 0351 0430 0455 0456 0655 0715 1004 2004 2014 2056 2113 2220 / 2647 / Total 0020 (16) calls //////////////////////////////////////////////////////////////////////////////// S1420, 0 / return area ADCV / Clear A/D converter flag and convert @@1421=6532 JMP I S1420 / return @@1422=5620 HLT / @@1423=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1424 / / Called from: / 0330 0333 1007 1056 2007 2017 2061 2063 2116 2127 2223 2661 / Total 0014 (12) calls //////////////////////////////////////////////////////////////////////////////// S1424, 0 / return area C1425, 6533 / 6533 JMP I S1424 / return @@1426=5624 HLT / @@1427=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1430 / / Called from: / 0225 0247 0256 0352 0431 0457 0656 0720 1005 1054 1121 2005 2015 2057 2114 / 2221 2650 / Total 0021 (17) calls //////////////////////////////////////////////////////////////////////////////// S1430, 0 / return area ADRB / Read A/D converter buffer into AC, l @@1431=6534 SKP / @@1432=7410 ISZ S1430 / @@1433=2230 JMP I S1430 / return @@1434=5630 HLT / @@1435=7402 D1436, 0000 / AND L0000 C1437, 6535 / 6535 SKP / @@1440=7410 ISZ D1436 / @@1441=2236 JMP I D1436 / long jump to L0000 @@1442=5636 HLT / @@1443=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1444 / / Called from: / 0404 0436 0466 0652 1034 1072 1110 2632 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S1444, 0 / return area C1445, 6536 / 6536 JMP I S1444 / return @@1446=5644 HLT / @@1447=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1450 / / Called from: / 0355 0413 0512 0524 0610 0660 2123 2652 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S1450, 0 / return area C1451, 6537 / 6537 JMP I S1450 / return @@1452=5650 HLT / @@1453=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1454 / / Called from: / 1041 1077 2611 2706 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1454, 0 / return area CCFF / The flag, flag buffer, clock enable, @@1455=6132 JMP I S1454 / return @@1456=5654 HLT / @@1457=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1460 / / Called from: / 1044 2641 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1460, 0 / return area C1461, 6131 / 6131 SKP / @@1462=7410 ISZ S1460 / @@1463=2260 JMP I S1460 / return @@1464=5660 HLT / @@1465=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1466 / / Called from: / 1043 1050 1104 2613 2644 2710 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S1466, 0 / return area C1467, 6130 / 6130 JMP I S1466 / return @@1470=5666 HLT / @@1471=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1472 / / Called from: / 1046 2640 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1472, 0 / return area C1473, 6135 / 6135 JMP I S1472 / return @@1474=5672 HLT / @@1475=7402 C1476, C1476, 0000 / AND L0000 CRCA / The output buffer is gated to the I/ @@1477=6134 JMP I C1476 / long jump to L0000 @@1500=5676 HLT / @@1501=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1502 / / Called from: / 1074 1112 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1502, 0 / return area CSCF / When the flag flip-flop has been set @@1503=6133 JMP I S1502 / return @@1504=5702 HLT / @@1505=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1506 / / Called from: / 2675 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1506, 0 / return area C1507, 6052 / 6052 SKP / @@1510=7410 ISZ S1506 / @@1511=2306 JMP I S1506 / return @@1512=5706 HLT / @@1513=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1514 / / Called from: / 2665 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1514, 0 / return area DXL / Clear and load X coordinate buffer. @@1515=6053 JMP I S1514 / return @@1516=5714 C1517, 7402 / HLT C1520, C1520, 0000 / AND L0000 DIX / Intensify the point defined by the c @@1521=6054 JMP I C1520 / long jump to L0000 @@1522=5720 HLT / @@1523=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1524 / / Called from: / 2677 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1524, 0 / return area D1525, 6055 / 6055 JMP I S1524 / return @@1526=5724 HLT / @@1527=7402 C1530, C1530, 0000 / AND L0000 C1531, 6056 / 6056 JMP I C1530 / long jump to L0000 @@1532=5730 HLT / @@1533=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1534 / / Called from: / 0740 1127 1545 1550 2101 2142 2471 3011 3023 3032 3037 3051 3063 3072 3077 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S1534, 0 / return area TLS / Load the TTO from the content of AC4 @@1535=6046 L1536, TSF / Skip if teleprinter flag is a 1. @@1536=6041 JMP L1536 / @@1537=5336 CLA / @@1540=7200 JMP I S1534 / return @@1541=5734 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1542 / / Called from: / 1677 1701 1717 1741 1754 1765 3001 3041 3101 3102 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S1542, 0 / return area STA / AC = 7777 (-0001) @@1543=7240 AND C0043 / @@1544=0043 JMS S1534 / @@1545=4334 STA / AC = 7777 (-0001) @@1546=7240 AND C0042 / @@1547=0042 JMS S1534 / @@1550=4334 JMP I S1542 / return @@1551=5742 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1552 / / Called from: / 0223 0240 0265 0306 0346 0426 0451 0501 0600 0636 0710 1024 1066 2200 2601 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S1552, 0 / return area JMS I C0052 / long call to S1200 @@1553=4452 AND D0026 / @@1554=0026 AND D0027 / @@1555=0027 C1556, 7773 / CLA MQA SCA MQL SHL + IOF / Disable Interrupts @@1557=6002 C1560, 6007 / 6007 TAD C0167 / @@1561=1167 DCA L0001 / @@1562=3001 CMA / @@1563=7040 DCA D0062 / @@1564=3062 DCA I C1567 / @@1565=3767 JMP I S1552 / return @@1566=5752 C1567, 1346 / TAD C1546 *1600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1600 / / Called from: / 0237 0264 0305 0325 0345 0370 0425 0450 0500 0635 0707 0727 / Total 0014 (12) calls //////////////////////////////////////////////////////////////////////////////// S1600, 0 / return area LAS / @@1601=7604 AND C0022 / @@1602=0022 SZA CLA / @@1603=7640 D1604, 5230 / JMP L1630 LAS / @@1605=7604 AND C0025 / @@1606=0025 SZA CLA / @@1607=7640 JMP L1614 / @@1610=5214 ISZ D0034 / @@1611=2034 SKP / @@1612=7410 JMP L1630 / @@1613=5230 L1614, TAD D0062 / @@1614=1062 SZA CLA / @@1615=7640 JMP L1624 / @@1616=5224 C1617, 1017 / TAD AI7 TAD C0045 / @@1620=1045 DCA AI7 / AUTO INDEX REGISTER @@1621=3017 TAD C0045 / @@1622=1045 C1623, 3062 / DCA D0062 L1624, C1624, 1200 / TAD S1600 TAD C0046 / @@1625=1046 DCA S1600 / @@1626=3200 JMP I S1600 / return @@1627=5600 L1630, ISZ AI7 / AUTO INDEX REGISTER @@1630=2017 JMP I S1600 / return @@1631=5600 AND C1623 / @@1632=0223 AND C1640 / @@1633=0240 AND C1665 / @@1634=0265 AND C1706 / @@1635=0306 C1636, 0326 / AND C1726 AND C1746 / @@1637=0346 C1640, 0400 / AND I L0000 AND I D0026 / @@1641=0426 AND I D0051 / @@1642=0451 AND I C0101 / @@1643=0501 AND I S1600 / @@1644=0600 AND I C1636 / @@1645=0636 AND I S1710 / @@1646=0710 AND L0000 / @@1647=0000 LAS / @@1650=7604 AND C0175 / @@1651=0175 DCA D0026 / @@1652=3026 TAD D0026 / @@1653=1026 TAD C0045 / @@1654=1045 TAD C0166 / @@1655=1166 DCA AI7 / AUTO INDEX REGISTER @@1656=3017 TAD D0026 / @@1657=1026 TAD C1666 / @@1660=1266 AND D0051 / @@1661=0051 TAD C1667 / @@1662=1267 DCA D1664 / @@1663=3264 D1664, 7402 / HLT C1665, 7402 / HLT C1666, 1632 / TAD I C1632 C1667, 5600 / JMP I S1600 AND L0000 / @@1670=0000 LAS / @@1671=7604 AND D0020 / @@1672=0020 SPA CLA / @@1673=7710 C1674, 5300 / JMP L1700 JMS I C1777 / long call to S1274 @@1675=4777 C1676, 4003 / JMS C0003 JMS I C1776 / long call to S1542 @@1677=4776 L1700, JMS I C1775 / long call to S3000 @@1700=4775 JMS I C1776 / long call to S1542 @@1701=4776 LAS / @@1702=7604 AND C0021 / @@1703=0021 SNA CLA / @@1704=7650 JMP I C1774 / long jump to L2200 @@1705=5774 C1706, 7402 / HLT JMP I C1774 / long jump to L2200 @@1707=5774 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1710 / / Called from: / 2071 2073 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1710, 0 / return area LAS / @@1711=7604 AND D0020 / @@1712=0020 SPA CLA / @@1713=7710 JMP L1720 / @@1714=5320 JMS I C1777 / long call to S1274 @@1715=4777 JMS D0034 / @@1716=4034 JMS I C1776 / long call to S1542 @@1717=4776 L1720, LAS / @@1720=7604 AND C0021 / @@1721=0021 SNA CLA / @@1722=7650 JMP I S1710 / return @@1723=5710 TAD D0027 / @@1724=1027 HLT / @@1725=7402 C1726, 7200 / CLA TAD D0030 / @@1727=1030 HLT / @@1730=7402 JMP I C1773 / long jump to L2051 @@1731=5773 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1732 / / Called from: / 1055 1102 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1732, 0 / return area LAS / @@1733=7604 AND D0020 / @@1734=0020 SPA CLA / @@1735=7710 JMP L1742 / @@1736=5342 JMS I C1777 / long call to S1274 @@1737=4777 C1740, 4056 / JMS C0056 JMS I C1776 / long call to S1542 @@1741=4776 L1742, LAS / @@1742=7604 AND C0021 / @@1743=0021 SNA CLA / @@1744=7650 JMP I S1732 / return @@1745=5732 C1746, 1332 / TAD S1732 TAD C0045 / @@1747=1045 HLT / @@1750=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1751 / / Called from: / 2033 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1751, 0 / return area JMS I C1777 / long call to S1274 @@1752=4777 C1753, 4105 / JMS C0105 JMS I C1776 / long call to S1542 @@1754=4776 JMP I S1751 / return @@1755=5751 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1756 / / Called from: / 2135 2137 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1756, 0 / return area LAS / @@1757=7604 AND D0020 / @@1760=0020 SPA CLA / @@1761=7710 JMP L1766 / @@1762=5366 JMS I C1777 / long call to S1274 @@1763=4777 C1764, 4122 / JMS C0122 JMS I C1776 / long call to S1542 @@1765=4776 L1766, JMP I S1756 / return @@1766=5756 *1773 C1773, C1773, 2051 / ISZ D0051 C1774, C1774, 2200 / ISZ S1600 C1775, C1775, 3000 / DCA L0000 C1776, C1776, 1542 / TAD I C0142 C1777, C1777, 1274 / TAD C1674 L2000, CLA CLL / AC = 0000 @@2000=7300 DCA D0027 / @@2001=3027 DCA D0030 / @@2002=3030 JMS I C0120 / long call to S1410 @@2003=4520 JMS I C0122 / long call to S1420 @@2004=4522 L2005, JMS I C0124 / long call to S1430 @@2005=4524 JMP L2005 / @@2006=5205 JMS I C0123 / long call to S1424 @@2007=4523 DCA D0027 / @@2010=3027 L2011, LAS / @@2011=7604 CMA / @@2012=7040 DCA D0033 / @@2013=3033 JMS I C0122 / long call to S1420 @@2014=4522 L2015, JMS I C0124 / long call to S1430 @@2015=4524 JMP L2015 / @@2016=5215 JMS I C0123 / long call to S1424 @@2017=4523 DCA D0030 / @@2020=3030 TAD D0027 / @@2021=1027 CIA / @@2022=7041 TAD D0030 / @@2023=1030 SPA / @@2024=7510 CIA / @@2025=7041 SNA / @@2026=7450 JMP L2043 / @@2027=5243 TAD C0045 / @@2030=1045 SNA CLA / @@2031=7650 JMP L2043 / @@2032=5243 JMS I C2177 / long call to S1751 @@2033=4777 CLA / @@2034=7200 TAD D0027 / @@2035=1027 HLT / @@2036=7402 CLA CLL / AC = 0000 @@2037=7300 D2040, 1030 / TAD D0030 HLT / @@2041=7402 JMP L2000 / @@2042=5200 L2043, ISZ D0033 / @@2043=2033 JMP L2043 / @@2044=5243 CLA CLL / AC = 0000 @@2045=7300 TAD D0030 / @@2046=1030 DCA D0027 / @@2047=3027 JMP L2011 / @@2050=5211 L2051, CLA CLL / AC = 0000 @@2051=7300 TAD C0177 / @@2052=1177 DCA D0026 / @@2053=3026 TAD C0022 / @@2054=1022 JMS I C0121 / long call to S1414 @@2055=4521 L2056, JMS I C0122 / long call to S1420 @@2056=4522 L2057, JMS I C0124 / long call to S1430 @@2057=4524 JMP L2057 / @@2060=5257 JMS I C0123 / long call to S1424 @@2061=4523 DCA D0027 / @@2062=3027 JMS I C0123 / long call to S1424 @@2063=4523 DCA D0030 / @@2064=3030 TAD D0027 / @@2065=1027 CIA / @@2066=7041 TAD D0030 / @@2067=1030 SNL / @@2070=7420 JMS I C2176 / long call to S1710 @@2071=4776 SZA / @@2072=7440 JMS I C2176 / long call to S1710 @@2073=4776 CLA CLL / AC = 0000 @@2074=7300 ISZ D0026 / @@2075=2026 JMP L2056 / @@2076=5256 CLA / @@2077=7200 TAD C0041 / @@2100=1041 JMS I C2175 / long call to S1534 @@2101=4775 JMP L2051 / @@2102=5251 L2103, C2103, 7300 / CLA CLL TAD C0177 / @@2104=1177 DCA D0026 / @@2105=3026 LAS / @@2106=7604 AND C0175 / @@2107=0175 C2110, 3031 / DCA D0031 TAD D0031 / @@2111=1031 JMS I C0121 / long call to S1414 @@2112=4521 JMS I C0122 / long call to S1420 @@2113=4522 L2114, JMS I C0124 / long call to S1430 @@2114=4524 JMP L2114 / @@2115=5314 JMS I C0123 / long call to S1424 @@2116=4523 DCA D0027 / @@2117=3027 L2120, C2120, 4344 / JMS C2144 TAD D0077 / @@2121=1077 JMS I C0121 / long call to S1414 @@2122=4521 JMS I C0127 / long call to S1450 @@2123=4527 ISZ D0026 / @@2124=2026 JMP L2120 / @@2125=5320 CLA CLL / AC = 0000 @@2126=7300 JMS I C0123 / long call to S1424 @@2127=4523 DCA D0030 / @@2130=3030 TAD D0027 / @@2131=1027 CIA / @@2132=7041 TAD D0030 / @@2133=1030 SNL / @@2134=7420 JMS I C2174 / long call to S1756 @@2135=4774 SZA / @@2136=7440 JMS I C2174 / long call to S1756 @@2137=4774 CLA CLL / AC = 0000 @@2140=7300 TAD C0041 / @@2141=1041 JMS I C2175 / long call to S1534 @@2142=4775 JMP L2103 / @@2143=5303 TAD D2157 / @@2144=1357 RTL / @@2145=7006 DCA D2157 / @@2146=3357 TAD D2157 / @@2147=1357 TAD C2160 / @@2150=1360 C2151, 7006 / RTL TAD C2160 / @@2152=1360 RTR / @@2153=7012 AND C0175 / @@2154=0175 DCA D0077 / @@2155=3077 C2156, 5744 / JMP I C2144 D2157, 0437 / AND I C0037 C2160, 2525 / ISZ I D0125 *2174 C2174, C2174, 1756 / TAD I C2156 C2175, C2175, 1534 / TAD I C0134 C2176, C2176, 1710 / TAD I C2110 C2177, C2177, 1751 / TAD I C2151 L2200, JMS I C0066 / long call to S1552 @@2200=4466 TAD C0054 / @@2201=1054 C2202, 3010 / DCA AI0 DCA I C2377 / @@2203=3777 JMS I C0052 / long call to S1200 @@2204=4452 JMS I L0000 / long call to S0000 @@2205=4400 JMS I L0001 / long call to S5402 @@2206=4401 C2207, 6030 / 6030 TAD C0165 / @@2210=1165 DCA D0026 / @@2211=3026 JMS I C0120 / long call to S1410 @@2212=4520 LAS / @@2213=7604 AND C0175 / @@2214=0175 DCA D0063 / @@2215=3063 TAD D0063 / @@2216=1063 JMS I C0121 / long call to S1414 @@2217=4521 L2220, JMS I C0122 / long call to S1420 @@2220=4522 L2221, JMS I C0124 / long call to S1430 @@2221=4524 JMP L2221 / @@2222=5221 JMS I C0123 / long call to S1424 @@2223=4523 C2224, 3410 / DCA I AI0 ISZ D0026 / @@2225=2026 JMP L2220 / @@2226=5220 JMP I C0055 / long jump to L2400 @@2227=5455 *2377 C2377, 4400 / JMS I L0000 L2400, D2400, 7300 / CLA CLL TAD C0164 / @@2401=1164 DCA D0026 / @@2402=3026 TAD C0054 / @@2403=1054 C2404, 3010 / DCA AI0 C2405, 1410 / TAD I AI0 DCA D0027 / @@2406=3027 L2407, CLA / @@2407=7200 C2410, 1410 / TAD I AI0 C2411, 3030 / DCA D0030 TAD D0027 / @@2412=1027 CIA / @@2413=7041 TAD D0030 / @@2414=1030 SZA / @@2415=7440 JMP L2422 / @@2416=5222 SNL / @@2417=7420 JMP L2422 / @@2420=5222 JMP L2457 / @@2421=5257 L2422, SZL / @@2422=7430 JMP L2430 / @@2423=5230 CMA / @@2424=7040 SZA / @@2425=7440 SKP / @@2426=7410 JMP L2457 / @@2427=5257 L2430, CLL / @@2430=7100 RAR / @@2431=7010 SZA / @@2432=7440 JMP L2437 / @@2433=5237 SNL / @@2434=7420 SKP / @@2435=7410 JMP L2457 / @@2436=5257 L2437, CLA CLL / AC = 0000 @@2437=7300 C2440, 1027 / TAD D0027 SZA / @@2441=7440 SKP / @@2442=7410 JMP L2447 / @@2443=5247 CMA / @@2444=7040 SZA / @@2445=7440 JMS I C2577 / long call to S1670 @@2446=4777 L2447, TAD D0030 / @@2447=1030 SZA / @@2450=7440 JMP L2453 / @@2451=5253 JMP L2457 / @@2452=5257 L2453, CMA / @@2453=7040 SZA / @@2454=7440 JMS I C2577 / long call to S1670 @@2455=4777 JMP L2457 / @@2456=5257 L2457, CLA CLL / AC = 0000 @@2457=7300 TAD D0030 / @@2460=1030 DCA D0027 / @@2461=3027 ISZ D0026 / @@2462=2026 JMP L2407 / @@2463=5207 ISZ D2473 / @@2464=2273 JMP I C2576 / long jump to L2200 @@2465=5776 TAD C2575 / @@2466=1375 DCA D2473 / @@2467=3273 C2470, 1041 / TAD C0041 JMS I C2574 / long call to S1534 @@2471=4774 JMP I C2576 / long jump to L2200 @@2472=5776 D2473, 7014 / RAR RAL *2574 C2574, C2574, 1534 / TAD I C0134 C2575, 7014 / RAR RAL C2576, C2576, 2200 / ISZ L2400 C2577, C2577, 1670 / TAD I C2470 L2600, AND L0000 / @@2600=0000 JMS I C0066 / long call to S1552 @@2601=4466 JMS I C0120 / long call to S1410 @@2602=4520 HLT / @@2603=7402 LAS / @@2604=7604 AND C2777 / @@2605=0377 TAD C2776 / @@2606=1376 DCA D0031 / @@2607=3031 TAD D0031 / @@2610=1031 JMS I C0130 / long call to S1454 @@2611=4530 CMA / @@2612=7040 JMS I C0132 / long call to S1466 @@2613=4532 CLA / @@2614=7200 TAD D0024 / @@2615=1024 DCA D0026 / @@2616=3026 JMS I C2775 / long call to S1274 @@2617=4775 C2620, 4215 / JMS C2615 HLT / @@2621=7402 LAS / @@2622=7604 AND C0025 / @@2623=0025 SZA / @@2624=7440 JMS S2721 / @@2625=4321 LAS / @@2626=7604 AND C0175 / @@2627=0175 JMS I C0121 / long call to S1414 @@2630=4521 TAD D0026 / @@2631=1026 JMS I C0126 / long call to S1444 @@2632=4526 TAD D0026 / @@2633=1026 SNA CLA / @@2634=7650 JMP L2645 / @@2635=5245 L2636, TAD C2774 / @@2636=1374 DCA D0027 / @@2637=3027 JMS I C0133 / long call to S1472 @@2640=4533 L2641, JMS I C0131 / long call to S1460 @@2641=4531 JMP L2641 / @@2642=5241 STA / AC = 7777 (-0001) @@2643=7240 JMS I C0132 / long call to S1466 @@2644=4532 L2645, CLA / @@2645=7200 SKP / @@2646=7410 L2647, JMS I C0122 / long call to S1420 @@2647=4522 L2650, JMS I C0124 / long call to S1430 @@2650=4524 JMP L2650 / @@2651=5250 JMS I C0127 / long call to S1450 @@2652=4527 AND C0175 / @@2653=0175 TAD D0030 / @@2654=1030 IAC / @@2655=7001 SZA / @@2656=7440 JMP L2661 / @@2657=5261 JMS I C0121 / long call to S1414 @@2660=4521 L2661, JMS I C0123 / long call to S1424 @@2661=4523 JMS I D0140 / long call to S1520 @@2662=4540 CLA / @@2663=7200 TAD D0027 / @@2664=1027 JMS I L0137 / long call to S1514 @@2665=4537 IAC / @@2666=7001 DCA D0027 / @@2667=3027 TAD D0027 / @@2670=1027 TAD C2774 / @@2671=1374 SZA CLA / @@2672=7640 SKP / @@2673=7410 C2674, 5305 / JMP L2705 L2675, JMS I C0136 / long call to S1506 @@2675=4536 JMP L2675 / @@2676=5275 JMS I C0141 / long call to S1524 @@2677=4541 TAD C0047 / @@2700=1047 DCA D2740 / @@2701=3340 L2702, ISZ D2740 / @@2702=2340 JMP L2702 / @@2703=5302 JMP L2647 / @@2704=5247 L2705, TAD D0031 / @@2705=1031 JMS I C0130 / long call to S1454 @@2706=4530 CMA / @@2707=7040 JMS I C0132 / long call to S1466 @@2710=4532 LAS / @@2711=7604 AND C0025 / @@2712=0025 SZA CLA / @@2713=7640 JMP L2636 / @@2714=5236 LAS / @@2715=7604 AND C0175 / @@2716=0175 JMS I C0121 / long call to S1414 @@2717=4521 JMP L2636 / @@2720=5236 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2721 / / Called from: / 2625 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2721, 0 / return area LAS / @@2722=7604 AND C0175 / @@2723=0175 CMA / @@2724=7040 DCA D0030 / @@2725=3030 ISZ S2721 / @@2726=2321 ISZ S2721 / @@2727=2321 LAS / @@2730=7604 AND C0025 / @@2731=0025 SNA CLA / @@2732=7650 JMP L2737 / @@2733=5337 TAD D0024 / @@2734=1024 TAD C0025 / @@2735=1025 DCA D0026 / @@2736=3026 L2737, JMP I S2721 / return @@2737=5721 D2740, 0000 / AND L0000 *2774 C2774, 7001 / IAC C2775, C2775, 1274 / TAD C2674 C2776, 4040 / JMS D0040 C2777, 0700 / AND I C2700 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3000 / / Called from: / 1700 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3000, 0 / return area JMS I C3177 / long call to S1542 @@3001=4777 CLA CLL / AC = 0000 @@3002=7300 TAD D0027 / @@3003=1027 AND C3176 / @@3004=0376 BSW / @@3005=7002 RTR / @@3006=7012 RAR / @@3007=7010 TAD C3175 / @@3010=1375 JMS I C3174 / long call to S1534 @@3011=4774 CLA CLL / AC = 0000 @@3012=7300 TAD D0027 / @@3013=1027 RTL / @@3014=7006 RAL / @@3015=7004 AND C3176 / @@3016=0376 BSW / @@3017=7002 RTR / @@3020=7012 RAR / @@3021=7010 TAD C3175 / @@3022=1375 JMS I C3174 / long call to S1534 @@3023=4774 CLA / @@3024=7200 TAD D0027 / @@3025=1027 RTR / @@3026=7012 RAR / @@3027=7010 AND C3173 / @@3030=0373 TAD C3175 / @@3031=1375 JMS I C3174 / long call to S1534 @@3032=4774 CLA CLL / AC = 0000 @@3033=7300 TAD D0027 / @@3034=1027 AND C3173 / @@3035=0373 TAD C3175 / @@3036=1375 JMS I C3174 / long call to S1534 @@3037=4774 C3040, 7300 / CLA CLL JMS I C3177 / long call to S1542 @@3041=4777 CLA CLL / AC = 0000 @@3042=7300 TAD D0030 / @@3043=1030 AND C3176 / @@3044=0376 BSW / @@3045=7002 RAR / @@3046=7010 RTR / @@3047=7012 TAD C3175 / @@3050=1375 JMS I C3174 / long call to S1534 @@3051=4774 CLA CLL / AC = 0000 @@3052=7300 TAD D0030 / @@3053=1030 RTL / @@3054=7006 RAL / @@3055=7004 AND C3176 / @@3056=0376 BSW / @@3057=7002 RAR / @@3060=7010 RTR / @@3061=7012 TAD C3175 / @@3062=1375 JMS I C3174 / long call to S1534 @@3063=4774 CLA CLL / AC = 0000 @@3064=7300 TAD D0030 / @@3065=1030 RAR / @@3066=7010 RTR / @@3067=7012 AND C3173 / @@3070=0373 TAD C3175 / @@3071=1375 JMS I C3174 / long call to S1534 @@3072=4774 CLA CLL / AC = 0000 @@3073=7300 TAD D0030 / @@3074=1030 AND C3173 / @@3075=0373 TAD C3175 / @@3076=1375 JMS I C3174 / long call to S1534 @@3077=4774 CLA CLL / AC = 0000 @@3100=7300 JMS I C3177 / long call to S1542 @@3101=4777 JMS I C3177 / long call to S1542 @@3102=4777 CLA CLL / AC = 0000 @@3103=7300 JMP I S3000 / return @@3104=5600 *3173 C3173, 0007 / AND D0007 C3174, C3174, 1534 / TAD I C0134 C3175, 0260 / AND C3060 C3176, 7000 / NOP C3177, C3177, 1542 / TAD I C0142 C3200, 3736 / DCA I C3336 C3201, 2405 / ISZ I D0005 ISZ D3324 / @@3202=2324 C3203, 4060 / JMS C0060 C3204, 4055 / JMS C0055 D3205, 4004 / JMS D0004 TAD I C3316 / @@3206=1716 C3207, 0540 / AND I D0140 AND I C3214 / @@3210=0614 AND C0107 / @@3211=0107 C3212, 4017 / JMS AI7 ISZ D3240 / @@3213=2240 C3214, 2411 / ISZ I AI1 TAD I D0111 / @@3215=1511 TAD I C3207 / @@3216=1607 C3217, 4005 / JMS D0005 ISZ D3222 / @@3220=2222 TAD I C3322 / @@3221=1722 D3222, 4006 / JMS C0006 TAD I L0001 / @@3223=1401 AND I C3340 / @@3224=0740 TAD I C3217 / @@3225=1617 ISZ I D0040 / @@3226=2440 AND C3314 / @@3227=0314 AND I C0101 / @@3230=0501 ISZ D3205 / @@3231=2205 AND I D0040 / @@3232=0440 TAD I C3322 / @@3233=1722 C3234, 4023 / JMS L0023 TAD C3311 / @@3235=1311 ISZ D0040 / @@3236=2040 AND I C3201 / @@3237=0601 D3240, 1114 / TAD C0114 ISZ I C0122 / @@3241=2522 AND I L0137 / @@3242=0537 DCA I C3200 / @@3243=3600 DCA I C3336 / @@3244=3736 ISZ I D0005 / @@3245=2405 ISZ D3324 / @@3246=2324 C3247, 4061 / JMS C0061 C3250, 4055 / JMS C0055 JMS D0004 / @@3251=4004 TAD I C3316 / @@3252=1716 AND I D0140 / @@3253=0540 AND I C3214 / @@3254=0614 AND C0107 / @@3255=0107 C3256, 4016 / JMS AI6 TAD I D3324 / @@3257=1724 C3260, 4023 / JMS L0023 AND I C0124 / @@3261=0524 C3262, 4024 / JMS D0024 TAD D0005 / @@3263=1005 TAD I D3240 / @@3264=1640 AND C3314 / @@3265=0314 AND I C0101 / @@3266=0501 ISZ D3205 / @@3267=2205 AND I D0040 / @@3270=0440 TAD I C3322 / @@3271=1722 C3272, 4023 / JMS L0023 TAD C3311 / @@3273=1311 ISZ D0040 / @@3274=2040 AND I C3201 / @@3275=0601 TAD C0114 / @@3276=1114 ISZ I C0122 / @@3277=2522 AND I L0137 / @@3300=0537 DCA I C3200 / @@3301=3600 DCA I C3336 / @@3302=3736 C3303, 2405 / ISZ I D0005 ISZ D3324 / @@3304=2324 C3305, 4062 / JMS D0062 C3306, 4055 / JMS C0055 C3307, 4024 / JMS D0024 TAD C0115 / @@3310=1115 C3311, 1116 / TAD C0116 AND I C3340 / @@3312=0740 AND I C0122 / @@3313=0522 C3314, 2217 / ISZ C3217 ISZ D3240 / @@3315=2240 C3316, 0614 / AND I C3214 AND C0107 / @@3317=0107 C3320, 4016 / JMS AI6 TAD I D3324 / @@3321=1724 C3322, 4023 / JMS L0023 AND I C0124 / @@3323=0524 D3324, 4024 / JMS D0024 C3325, 1005 / TAD D0005 TAD I D3240 / @@3326=1640 AND C3314 / @@3327=0314 AND I C0101 / @@3330=0501 ISZ D3205 / @@3331=2205 AND I D0040 / @@3332=0440 TAD I C3322 / @@3333=1722 C3334, 4023 / JMS L0023 TAD C3311 / @@3335=1311 C3336, 2040 / ISZ D0040 AND I C3201 / @@3337=0601 C3340, 1114 / TAD C0114 ISZ I C0122 / @@3341=2522 AND I L0137 / @@3342=0537 DCA I C3200 / @@3343=3600 DCA I C3336 / @@3344=3736 ISZ I D0005 / @@3345=2405 ISZ D3324 / @@3346=2324 JMS D0063 / @@3347=4063 C3350, 4055 / JMS C0055 C3351, 4025 / JMS C0025 TAD I D3205 / @@3352=1605 DCA D0020 / @@3353=3020 AND I D0103 / @@3354=0503 ISZ I D0005 / @@3355=2405 AND I D0040 / @@3356=0440 TAD C0116 / @@3357=1116 ISZ I D0005 / @@3360=2405 ISZ D3222 / @@3361=2222 ISZ I C0120 / @@3362=2520 ISZ I D0040 / @@3363=2440 TAD I C3303 / @@3364=1703 AND C3325 / @@3365=0325 ISZ D3222 / @@3366=2222 AND I C0104 / @@3367=0504 DCA I C3336 / @@3370=3736 AND L0000 / @@3371=0000 DCA I C3336 / @@3372=3736 ISZ I D0005 / @@3373=2405 ISZ D3324 / @@3374=2324 C3375, 4064 / JMS C0064 C3376, 4055 / JMS C0055 C3377, 4001 / JMS L0001 AND I C0022 / @@3400=0422 D3401, 0240 / AND C3440 AND I D3401 / @@3402=0601 TAD C0114 / @@3403=1114 AND I C0104 / @@3404=0504 D3405, 4024 / JMS D0024 TAD I D3540 / @@3406=1740 C3407, 1201 / TAD D3401 TAD I D0140 / @@3410=1540 ISZ I C0022 / @@3411=2422 AND C0116 / @@3412=0116 ISZ D3506 / @@3413=2306 D3414, 0522 / AND I C0122 C3415, 4024 / JMS D0024 TAD I D3540 / @@3416=1740 D3417, 0103 / AND D0103 DCA I C3536 / @@3420=3736 AND L0000 / @@3421=0000 D3422, 3736 / DCA I C3536 ISZ I D0005 / @@3423=2405 C3424, 2324 / ISZ D3524 D3425, 4065 / JMS C0065 C3426, 4055 / JMS C0055 C3427, 4001 / JMS L0001 AND I C0022 / @@3430=0422 ISZ D3540 / @@3431=2340 AND I D3401 / @@3432=0601 TAD C0114 / @@3433=1114 AND I C0104 / @@3434=0504 C3435, 4024 / JMS D0024 TAD I D3540 / @@3436=1740 TAD D3401 / @@3437=1201 C3440, 1540 / TAD I D0140 ISZ I C0022 / @@3441=2422 AND C0116 / @@3442=0116 ISZ D3506 / @@3443=2306 AND I C0122 / @@3444=0522 C3445, 4024 / JMS D0024 TAD I D3540 / @@3446=1740 AND D0103 / @@3447=0103 DCA I C3536 / @@3450=3736 AND L0000 / @@3451=0000 DCA I C3536 / @@3452=3736 ISZ I D0005 / @@3453=2405 ISZ D3524 / @@3454=2324 C3455, 4066 / JMS C0066 C3456, 4055 / JMS C0055 C3457, 4005 / JMS D0005 TAD I D3401 / @@3460=1601 AND D3414 / @@3461=0214 AND I D0140 / @@3462=0540 ISZ D3405 / @@3463=2205 AND I C3511 / @@3464=0711 ISZ D3524 / @@3465=2324 AND I C0122 / @@3466=0522 C3467, 4016 / JMS AI6 TAD I D3524 / @@3470=1724 C3471, 4020 / JMS D0020 ISZ D3417 / @@3472=2217 ISZ D0005 / @@3473=2005 ISZ D3414 / @@3474=2214 DCA D0140 / @@3475=3140 TAD I AI7 / AUTO INDEX REGISTER @@3476=1417 AND C0104 / @@3477=0104 AND I C0104 / @@3500=0504 DCA I C3536 / @@3501=3736 AND L0000 / @@3502=0000 DCA I C3536 / @@3503=3736 ISZ I D0005 / @@3504=2405 C3505, 2324 / ISZ D3524 D3506, 4067 / JMS C0067 C3507, 4055 / JMS C0055 C3510, 4006 / JMS C0006 C3511, 0111 / AND D0111 TAD I D0005 / @@3512=1405 AND I D0040 / @@3513=0440 ISZ I AI7 / AUTO INDEX REGISTER @@3514=2417 C3515, 4007 / JMS D0007 C3516, 0516 / AND I C0116 AND I C0122 / @@3517=0522 AND C0124 / @@3520=0124 AND I D0140 / @@3521=0540 C3522, 1116 / TAD C0116 ISZ I D0005 / @@3523=2405 D3524, 2222 / ISZ D3422 ISZ I C0120 / @@3525=2520 ISZ I D0040 / @@3526=2440 ISZ I C3511 / @@3527=2711 C3530, 2410 / ISZ I AI0 JMS D0004 / @@3531=4004 TAD I C3516 / @@3532=1716 AND I D0140 / @@3533=0540 AND I D3414 / @@3534=0614 AND C0107 / @@3535=0107 C3536, 3736 / DCA I C3536 C3537, 0000 / AND L0000 D3540, 3736 / DCA I C3536 ISZ I D0005 / @@3541=2405 ISZ D3524 / @@3542=2324 C3543, 4061 / JMS C0061 C3544, 6040 / 6040 JMP I D0140 / long jump to L1520 @@3545=5540 AND I D3401 / @@3546=0601 TAD C0114 / @@3547=1114 AND I C0104 / @@3550=0504 C3551, 4024 / JMS D0024 TAD I D3540 / @@3552=1740 AND I C3505 / @@3553=0705 TAD I D3405 / @@3554=1605 ISZ D3401 / @@3555=2201 ISZ I D0005 / @@3556=2405 C3557, 4011 / JMS AI1 TAD I C3424 / @@3560=1624 AND I C0122 / @@3561=0522 ISZ D3425 / @@3562=2225 ISZ D0024 / @@3563=2024 JMS D0027 / @@3564=4027 TAD C0124 / @@3565=1124 TAD D0040 / @@3566=1040 C3567, 2411 / ISZ I AI1 TAD I D0111 / @@3570=1511 TAD I C3407 / @@3571=1607 C3572, 4005 / JMS D0005 ISZ D3422 / @@3573=2222 TAD I C3522 / @@3574=1722 C3575, 4006 / JMS C0006 TAD I L0001 / @@3576=1401 AND I C3537 / @@3577=0737 D3600, 3600 / DCA I D3600 C3601, 3736 / DCA I D3736 ISZ I D0005 / @@3602=2405 C3603, 2324 / ISZ D3724 C3604, 4061 / JMS C0061 D3605, 6140 / 6140 JMP I D0140 / long jump to L1520 @@3606=5540 AND I C3601 / @@3607=0601 TAD C0114 / @@3610=1114 C3611, 0504 / AND I C0104 C3612, 4024 / JMS D0024 TAD I C3740 / @@3613=1740 TAD I AI7 / AUTO INDEX REGISTER @@3614=1417 AND C0104 / @@3615=0104 C3616, 4001 / JMS L0001 TAD I C3604 / @@3617=1604 C3620, 4022 / JMS C0022 AND I C0101 / @@3621=0501 AND I D0040 / @@3622=0440 D3623, 1520 / TAD I C0120 C3624, 3040 / DCA D0040 ISZ D3605 / @@3625=2205 AND I C3740 / @@3626=0740 AND C0116 / @@3627=0116 AND I D0040 / @@3630=0440 AND C3714 / @@3631=0314 AND I C0101 / @@3632=0501 ISZ D3640 / @@3633=2240 AND D0103 / @@3634=0103 DCA I D3736 / @@3635=3736 AND L0000 / @@3636=0000 DCA I D3736 / @@3637=3736 D3640, 2405 / ISZ I D0005 ISZ D3724 / @@3641=2324 C3642, 4061 / JMS C0061 C3643, 6240 / 6240 JMP I D0140 / long jump to L1520 @@3644=5540 AND I C3601 / @@3645=0601 TAD C0114 / @@3646=1114 AND I C0104 / @@3647=0504 C3650, 4024 / JMS D0024 TAD I C3740 / @@3651=1740 TAD I AI7 / AUTO INDEX REGISTER @@3652=1417 AND C0104 / @@3653=0104 C3654, 4001 / JMS L0001 TAD I C3604 / @@3655=1604 C3656, 4022 / JMS C0022 AND I C0101 / @@3657=0501 AND I D0040 / @@3660=0440 AND C0114 / @@3661=0114 TAD I D0040 / @@3662=1440 AND C3710 / @@3663=0310 AND C0116 / @@3664=0116 TAD I D3605 / @@3665=1605 TAD I L0023 / @@3666=1423 C3667, 4011 / JMS AI1 TAD I C3624 / @@3670=1624 TAD I C3740 / @@3671=1740 TAD I C0120 / @@3672=1520 DCA D0040 / @@3673=3040 ISZ D3605 / @@3674=2205 AND I C3737 / @@3675=0737 DCA I D3600 / @@3676=3600 DCA I D3736 / @@3677=3736 ISZ I D0005 / @@3700=2405 ISZ D3724 / @@3701=2324 C3702, 4061 / JMS C0061 C3703, 6340 / 6340 C3704, 5540 / JMP I D0140 AND I C3601 / @@3705=0601 TAD C0114 / @@3706=1114 AND I C0104 / @@3707=0504 C3710, 4024 / JMS D0024 C3711, 1740 / TAD I C3740 TAD I AI7 / AUTO INDEX REGISTER @@3712=1417 AND C0104 / @@3713=0104 C3714, 4001 / JMS L0001 TAD I C3604 / @@3715=1604 C3716, 4022 / JMS C0022 C3717, 0501 / AND I C0101 AND I D0040 / @@3720=0440 AND C0114 / @@3721=0114 TAD I D0040 / @@3722=1440 AND C3710 / @@3723=0310 D3724, 0116 / AND C0116 TAD I D3605 / @@3725=1605 TAD I L0023 / @@3726=1423 C3727, 4011 / JMS AI1 TAD I D3640 / @@3730=1640 AND D0125 / @@3731=0125 ISZ I AI7 / AUTO INDEX REGISTER @@3732=2417 JMP I D0111 / long jump to L0012 @@3733=5511 TAD I C3603 / @@3734=1603 ISZ D3605 / @@3735=2205 D3736, 1505 / TAD I C0105 C3737, 1624 / TAD I C3624 C3740, 4015 / JMS AI5 TAD I C3704 / @@3741=1704 AND I L0137 / @@3742=0537 DCA I D3600 / @@3743=3600 L3744, DCA I D3736 / @@3744=3736 ISZ I D0005 / @@3745=2405 ISZ D3724 / @@3746=2324 C3747, 4061 / JMS C0061 C3750, 6440 / 6440 JMP I D0140 / long jump to L1520 @@3751=5540 AND I C3601 / @@3752=0601 TAD C0114 / @@3753=1114 AND I C0104 / @@3754=0504 C3755, 4024 / JMS D0024 TAD I C3740 / @@3756=1740 AND C3717 / @@3757=0317 TAD I C0120 / @@3760=1520 TAD I D0005 / @@3761=1405 ISZ I D0005 / @@3762=2405 C3763, 4003 / JMS C0003 TAD I C3716 / @@3764=1716 ISZ I D3605 / @@3765=2605 ISZ D3623 / @@3766=2223 TAD C0117 / @@3767=1117 TAD I D3640 / @@3770=1640 TAD C0116 / @@3771=1116 C3772, 4023 / JMS L0023 ISZ D0005 / @@3773=2005 AND C3711 / @@3774=0311 AND I C3611 / @@3775=0611 AND I C0104 / @@3776=0504 C3777, 4024 / JMS D0024 C4000, 1115 / TAD C0115 C4001, 0537 / AND I L0137 DCA I C4000 / @@4002=3600 DCA I C4136 / @@4003=3736 AND I C4001 / @@4004=0601 D4005, 1114 / TAD C0114 AND I C0104 / @@4006=0504 C4007, 4024 / JMS D0024 TAD I D4140 / @@4010=1740 ISZ D4005 / @@4011=2205 ISZ D4117 / @@4012=2317 TAD I D0026 / @@4013=1426 C4014, 0540 / AND I D0140 C4015, 0317 / AND D4117 D4016, 1626 / TAD I C4026 D4017, 0522 / AND I C0122 ISZ D4111 / @@4020=2311 TAD I C4116 / @@4021=1716 C4022, 2340 / ISZ D4140 C4023, 2417 / ISZ I AI7 C4024, 4053 / JMS C0053 C4025, 4017 / JMS AI7 C4026, 2240 / ISZ C4040 JMP I D0140 / long jump to L1520 @@4027=5540 C4030, 6140 / 6140 TAD I L0023 / @@4031=1423 AND D4037 / @@4032=0237 DCA I C4000 / @@4033=3600 DCA I C4136 / @@4034=3736 ISZ I D0027 / @@4035=2427 TAD I D4140 / @@4036=1740 D4037, 2325 / ISZ C4125 AND C4103 / @@4040=0303 AND I C0123 / @@4041=0523 ISZ D4111 / @@4042=2311 ISZ I D4005 / @@4043=2605 C4044, 4022 / JMS C0022 AND I C0101 / @@4045=0501 AND I L0023 / @@4046=0423 C4047, 4016 / JMS AI6 TAD I C4124 / @@4050=1724 C4051, 4005 / JMS D0005 ISZ D0125 / @@4052=2125 AND C0114 / @@4053=0114 D4054, 3736 / DCA I C4136 AND L0000 / @@4055=0000 DCA I C4136 / @@4056=3736 AND I C0122 / @@4057=0522 ISZ D4017 / @@4060=2217 C4061, 1605 / TAD I D4005 TAD I C4125 / @@4062=1725 ISZ D4140 / @@4063=2340 AND I C0130 / @@4064=0530 ISZ I D0005 / @@4065=2405 ISZ D4016 / @@4066=2216 AND C0114 / @@4067=0114 C4070, 4005 / JMS D0005 TAD I C4001 / @@4071=1601 AND C4014 / @@4072=0214 AND I D0140 / @@4073=0540 TAD I C4122 / @@4074=1722 C4075, 4024 / JMS D0024 TAD C0115 / @@4076=1115 TAD C0116 / @@4077=1116 AND I D4140 / @@4100=0740 AND I C0122 / @@4101=0522 ISZ D4017 / @@4102=2217 C4103, 2237 / ISZ D4037 DCA I C4000 / @@4104=3600 DCA I C4136 / @@4105=3736 C4106, 1517 / TAD I C0117 C4107, 1617 / TAD I D4017 C4110, 2411 / ISZ I AI1 D4111, 1611 / TAD I C4011 AND D4111 / @@4112=0311 ISZ I D0031 / @@4113=2431 C4114, 4006 / JMS C0006 AND D0111 / @@4115=0111 C4116, 1425 / TAD I C0025 D4117, 2205 / ISZ D4005 DCA I C4136 / @@4120=3736 AND L0000 / @@4121=0000 C4122, 3736 / DCA I C4136 TAD I D4017 / @@4123=1617 C4124, 1123 / TAD C0123 C4125, 0540 / AND I D0140 TAD C0116 / @@4126=1116 C4127, 4015 / JMS AI5 ISZ I C0114 / @@4130=2514 C4131, 2411 / ISZ I AI1 C4132, 2014 / ISZ AI4 AND I C0130 / @@4133=0530 AND I C0122 / @@4134=0522 C4135, 4001 / JMS L0001 C4136, 1604 / TAD I C4004 C4137, 4001 / JMS L0001 D4140, 5504 / JMP I C0104 JMS S0002 / @@4141=4002 ISZ I C0106 / @@4142=2506 AND I D4005 / @@4143=0605 ISZ D4037 / @@4144=2237 DCA I C4000 / @@4145=3600 DCA I C4136 / @@4146=3736 AND I C0116 / @@4147=0516 AND I D0040 / @@4150=0440 TAD I C4106 / @@4151=1706 C4152, 4014 / JMS AI4 TAD I C4107 / @@4153=1707 TAD D0103 / @@4154=1103 C4155, 4024 / JMS D0024 AND I C0123 / @@4156=0523 ISZ I C0037 / @@4157=2437 DCA I C4000 / @@4160=3600 DCA I C4136 / @@4161=3736 AND C0104 / @@4162=0104 IAC RAL / @@4163=7005 C4164, 4001 / JMS L0001 C4165, 4024 / JMS D0024 TAD I D4140 / @@4166=1740 AND I D0040 / @@4167=0440 AND D4117 / @@4170=0317 TAD I C4026 / @@4171=1626 AND I C0122 / @@4172=0522 ISZ I D0005 / @@4173=2405 ISZ D4054 / @@4174=2254 C4175, 4001 / JMS L0001 TAD I C0170 / @@4176=1570 AND I D0140 / @@4177=0540 C4200, 1525 / TAD I D0125 TAD I D0024 / @@4201=1424 TAD C0120 / @@4202=1120 TAD I D0005 / @@4203=1405 DCA D0005 / @@4204=3005 ISZ D4240 / @@4205=2240 C4206, 0411 / AND I AI1 AND C0107 / @@4207=0107 TAD I C4217 / @@4210=1617 C4211, 2324 / ISZ C4324 TAD D0103 / @@4212=1103 C4213, 3736 / DCA I C4336 AND L0000 / @@4214=0000 C4215, 3736 / DCA I C4336 C4216, 2305 / ISZ C4305 C4217, 2440 / ISZ I D0040 C4220, 2327 / ISZ C4327 C4221, 6540 / 6540 JMP L0001 / @@4222=5001 C4223, 2524 / ISZ I C0124 C4224, 1755 / TAD I C4355 TAD C0116 / @@4225=1116 C4226, 0351 / AND C4351 JMP I D0040 / long jump to L2000 @@4227=5440 C4230, 4340 / JMS C4340 C4231, 1706 / TAD I C4306 C4232, 4003 / JMS C0003 TAD L0001 / @@4233=1001 TAD I C4223 / @@4234=1623 C4235, 4011 / JMS AI1 TAD I D4240 / @@4236=1640 C4237, 2327 / ISZ C4327 D4240, 7055 / CMA IAC RAR RAL C4241, 6161 / 6161 JMP I D0040 / long jump to L2000 @@4242=5440 C4243, 1722 / TAD I C4322 C4244, 4023 / JMS L0023 AND I C0124 / @@4245=0524 C4246, 4023 / JMS L0023 C4247, 2770 / ISZ I C4370 JMP I C0161 / long jump to L3744 @@4250=5561 C4251, 6140 / 6140 JMP L0023 / @@4252=5023 TAD C0116 / @@4253=1116 C4254, 0714 / AND I C4314 AND I D0140 / @@4255=0540 C4256, 0310 / AND C4310 AND C0116 / @@4257=0116 JMP L0137 / @@4260=5137 DCA I C4200 / @@4261=3600 *4400 D4400, 0000 / AND L0000 $