TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0cc-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8e-d0cc-pb.bin / Generated 2010 02 19 00:10:29 / 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 / / 4463 locations used, 3740 code and 0523 data //////////////////////////////////////////////////////////////////////////////// *0200 *7775 AND L0000 / @@7775=0000 L7776, D7776, 0000 / AND L0000 L7777, D7777, 0000 / AND L0000 *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0002 / / Called from: / 5326 5555 5774 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0002, 0 / return area L0003, D0003, 0003 / AND L0003 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0004 / / Called from: / 5746 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0004, 0 / return area *0010 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 AI1, 0000 / AUTO-INDEX REGISTER AND L0000 AI2, 0000 / AUTO-INDEX REGISTER AND L0000 *0020 D0020, 0000 / AND L0000 AND C0022 / @@0021=0022 C0022, 7777 / CLA MQA SCA MQL LSR + D0023, 0000 / AND L0000 D0024, 0000 / AND L0000 D0025, 0000 / AND L0000 L0026, D0026, 0000 / AND L0000 D0027, 0000 / AND L0000 D0030, 0000 / AND L0000 D0031, 0000 / AND L0000 D0032, 0000 / AND L0000 D0033, 0000 / AND L0000 D0034, 0000 / AND L0000 D0035, 0000 / AND L0000 D0036, 0000 / AND L0000 D0037, 0000 / AND L0000 D0040, 0000 / AND L0000 L0041, D0041, 0037 / AND D0037 AND L0000 / @@0042=0000 D0043, 0000 / AND L0000 D0044, 0000 / AND L0000 D0045, 0000 / AND L0000 D0046, 1600 / TAD I L0000 C0047, C0047, 1652 / TAD I C0052 C0050, 1133 / TAD C0133 C0051, C0051, 1200 / TAD L0000 C0052, 0756 / AND I L0156 C0053, 1157 / TAD C0157 C0054, 1140 / TAD D0140 C0055, 1657 / TAD I C0057 C0056, C0056, 1000 / TAD L0000 C0057, C0057, 1031 / TAD D0031 C0060, C0060, 0504 / AND I C0104 C0061, C0061, 0523 / AND I C0123 C0062, C0062, 3000 / DCA L0000 C0063, C0063, 3730 / DCA I C0130 C0064, C0064, 3017 / DCA AI7 C0065, C0065, 3037 / DCA D0037 C0066, C0066, 3027 / DCA D0027 C0067, C0067, 3046 / DCA D0046 D0070, 7775 / CLA MQA SCA MQL ASR + C0071, C0071, 7776 / SPA SNA SZL CLA OSR HLT C0072, C0072, 7777 / CLA MQA SCA MQL LSR + C0073, C0073, 3512 / DCA I C0112 C0074, C0074, 0410 / AND I AI0 C0075, C0075, 0552 / AND I C0152 D0076, 0240 / AND D0040 C0077, 0260 / AND C0060 L0100, C0100, 0261 / AND C0061 L0101, C0101, 6000 / 6000 C0102, 0102 / AND C0102 C0103, 4000 / JMS L0000 C0104, 2000 / ISZ L0000 C0105, 1000 / TAD L0000 C0106, 0400 / AND I L0000 C0107, 0200 / AND L0000 AND L0100 / @@0110=0100 C0111, 0040 / AND D0040 C0112, 0020 / AND D0020 C0113, 0010 / AND AI0 C0114, 0004 / AND S0004 L0115, C0115, 0002 / AND S0002 C0116, 0001 / AND L0001 AND L0000 / @@0117=0000 JMS L0000 / @@0120=4000 AND L0001 / @@0121=0001 C0122, 2004 / ISZ S0004 C0123, 2043 / ISZ D0043 C0124, 2076 / ISZ D0076 C0125, 2200 / ISZ L0000 C0126, 2232 / ISZ D0032 C0127, 2270 / ISZ D0070 C0130, 2400 / ISZ I L0000 C0131, 2436 / ISZ I D0036 C0132, 2472 / ISZ I C0072 C0133, 2600 / ISZ I L0000 C0134, 2634 / ISZ I D0034 C0135, 2667 / ISZ I C0067 C0136, 1376 / TAD D0176 C0137, 7001 / IAC D0140, 5404 / JMP I S0004 C0141, 5402 / JMP I S0002 C0142, 7070 / CMA CML RAR C0143, 2376 / ISZ D0176 C0144, 2000 / ISZ L0000 C0145, 2410 / ISZ I AI0 C0146, 4000 / JMS L0000 C0147, 4776 / JMS I D0176 C0150, 4410 / JMS I AI0 C0151, 5403 / JMP I L0003 C0152, 5401 / JMP I L0001 C0153, 4377 / JMS L0177 D0154, 2004 / ISZ S0004 C0155, 5301 / JMP L0101 L0156, C0156, 6007 / 6007 C0157, 7604 / LAS AND C0106 / @@0160=0106 SNA CLA / @@0161=7650 JMP L0177 / @@0162=5177 STA / AC = 7777 (-0001) @@0163=7240 AND C0170 / @@0164=0170 C0165, C0165, 3024 / DCA D0024 JMP I C0167 / long jump to L0202 @@0166=5567 C0167, C0167, 0202 / AND S0002 C0170, 0000 / AND L0000 C0171, 0000 / AND L0000 C0172, 0007 / AND C0007 C0173, 0070 / AND D0070 D0174, 0000 / AND L0000 D0175, 0000 / AND L0000 D0176, 0000 / AND L0000 *0177 L0177, SKP / @@0177=7410 *0200 L0200, JMP L0156 / @@0200=5156 DCA D0024 / @@0201=3024 L0202, DCA D0023 / @@0202=3023 DCA D0035 / @@0203=3035 L0204, CLA CLL CMA / AC = 7777 (-0001) @@0204=7340 AND D0023 / @@0205=0023 MQL / @@0206=7421 CMA / @@0207=7040 AND D0024 / @@0210=0024 MQA / @@0211=7501 DCA D0027 / @@0212=3027 MQA / @@0213=7501 CMA / @@0214=7040 AND D0024 / @@0215=0024 MQL / @@0216=7421 CMA / @@0217=7040 AND D0024 / @@0220=0024 CMA / @@0221=7040 AND D0023 / @@0222=0023 MQA / @@0223=7501 DCA D0025 / @@0224=3025 DCA L0026 / @@0225=3026 CMA / @@0226=7040 AND D0023 / @@0227=0023 AND D0024 / @@0230=0024 SNA / @@0231=7450 JMP L0274 / @@0232=5274 MQL / @@0233=7421 L0234, MQA MQL / @@0234=7521 AND D0027 / @@0235=0027 SNA / @@0236=7450 JMP L0244 / @@0237=5244 CLL RAL / @@0240=7104 MQA MQL / @@0241=7521 MQA / @@0242=7501 JMP L0234 / @@0243=5234 L0244, MQA / @@0244=7501 AND D0027 / @@0245=0027 AND C0103 / @@0246=0103 SNA / @@0247=7450 JMP L0253 / @@0250=5253 DCA L0026 / @@0251=3026 JMP L0260 / @@0252=5260 L0253, CLL CML RAR / @@0253=7130 AND D0023 / @@0254=0023 AND D0024 / @@0255=0024 SZA / @@0256=7440 DCA L0026 / @@0257=3026 L0260, MQA / @@0260=7501 DCA D0030 / @@0261=3030 MQA / @@0262=7501 CMA / @@0263=7040 AND D0025 / @@0264=0025 MQL / @@0265=7421 CMA / @@0266=7040 AND D0025 / @@0267=0025 CMA / @@0270=7040 AND D0030 / @@0271=0030 MQA / @@0272=7501 DCA D0025 / @@0273=3025 L0274, CLA CLL CMA / AC = 7777 (-0001) @@0274=7340 AND D0023 / @@0275=0023 TAD D0024 / @@0276=1024 NOP / @@0277=7000 DCA D0031 / @@0300=3031 RAR / @@0301=7010 DCA D0032 / @@0302=3032 CMA / @@0303=7040 AND D0024 / @@0304=0024 TAD D0023 / @@0305=1023 NOP / @@0306=7000 DCA D0033 / @@0307=3033 RAR / @@0310=7010 DCA D0034 / @@0311=3034 NOP / @@0312=7000 CLA CLL CMA / AC = 7777 (-0001) @@0313=7340 AND D0031 / @@0314=0031 CMA / @@0315=7040 AND D0033 / @@0316=0033 SZA / @@0317=7440 JMP L0377 / @@0320=5377 CMA / @@0321=7040 AND D0033 / @@0322=0033 CMA / @@0323=7040 AND D0031 / @@0324=0031 SZA / @@0325=7440 JMP L0377 / @@0326=5377 CLA CLL CMA / AC = 7777 (-0001) @@0327=7340 AND D0031 / @@0330=0031 CMA / @@0331=7040 AND D0025 / @@0332=0025 SZA / @@0333=7440 JMP L0377 / @@0334=5377 CMA / @@0335=7040 AND D0025 / @@0336=0025 CMA / @@0337=7040 AND D0031 / @@0340=0031 SZA / @@0341=7440 JMP L0377 / @@0342=5377 CLA CLL CMA / AC = 7777 (-0001) @@0343=7340 AND D0032 / @@0344=0032 RAL / @@0345=7004 STA / AC = 7777 (-0001) @@0346=7240 AND D0034 / @@0347=0034 SZA CLA / @@0350=7640 CML / @@0351=7020 SZL / @@0352=7430 JMP L0377 / @@0353=5377 CLA CLL CMA / AC = 7777 (-0001) @@0354=7340 AND D0032 / @@0355=0032 RAL / @@0356=7004 STA / AC = 7777 (-0001) @@0357=7240 AND L0026 / @@0360=0026 SZA CLA / @@0361=7640 CML / @@0362=7020 SZL / @@0363=7430 JMP L0377 / @@0364=5377 JMP I C0074 / long jump to L0410 @@0365=5474 L0366, ISZ D0023 / @@0366=2023 JMP L0204 / @@0367=5204 ISZ D0024 / @@0370=2024 SKP / @@0371=7410 JMP I C0075 / long jump to L0552 @@0372=5475 STA / AC = 7777 (-0001) @@0373=7240 AND D0024 / @@0374=0024 DCA D0023 / @@0375=3023 JMP L0204 / @@0376=5204 *0377 L0377, NOP / @@0377=7000 *0400 L0400, LAS / @@0400=7604 AND C0104 / @@0401=0104 SNA CLA / @@0402=7650 JMS D0417 / @@0403=4217 L0404, C0404, 7604 / LAS AND C0103 / @@0405=0103 SNA CLA / @@0406=7650 JMS S0477 / @@0407=4277 L0410, LAS / @@0410=7604 AND C0105 / @@0411=0105 SZA CLA / @@0412=7640 JMP I C0415 / long jump to L0274 @@0413=5615 JMP I C0416 / long jump to L0366 @@0414=5616 C0415, C0415, 0274 / AND C0474 C0416, C0416, 0366 / AND C0566 D0417, 0000 / AND L0000 CLA CLL CMA / AC = 7777 (-0001) @@0420=7340 AND D0035 / @@0421=0035 SNA CLA / @@0422=7650 JMS S0467 / @@0423=4267 CMA / @@0424=7040 AND D0023 / @@0425=0023 DCA D0037 / @@0426=3037 JMS S0523 / @@0427=4323 CMA / @@0430=7040 AND D0024 / @@0431=0024 DCA D0037 / @@0432=3037 JMS S0523 / @@0433=4323 CMA / @@0434=7040 AND L0026 / @@0435=0026 DCA D0040 / @@0436=3040 CMA / @@0437=7040 AND D0025 / @@0440=0025 DCA D0037 / @@0441=3037 JMS S0504 / @@0442=4304 JMS S0523 / @@0443=4323 CMA / @@0444=7040 AND D0032 / @@0445=0032 DCA D0040 / @@0446=3040 CMA / @@0447=7040 AND D0031 / @@0450=0031 DCA D0037 / @@0451=3037 JMS S0504 / @@0452=4304 JMS S0523 / @@0453=4323 CMA / @@0454=7040 AND D0034 / @@0455=0034 DCA D0040 / @@0456=3040 CMA / @@0457=7040 AND D0033 / @@0460=0033 DCA D0037 / @@0461=3037 JMS S0504 / @@0462=4304 JMS S0523 / @@0463=4323 JMS I D0046 / long call to S1600 @@0464=4446 JMP I L0542 / long jump to L7040 @@0465=5742 JMP L0404 / @@0466=5204 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0467 / / Called from: / 0423 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0467, 0 / return area JMS I D0046 / long call to S1600 @@0470=4446 C0471, 5417 / JMP I AI7 JMS I D0046 / long call to S1600 @@0472=4446 JMP L0177 / @@0473=5177 C0474, 7240 / STA DCA D0035 / @@0475=3035 JMP I S0467 / return @@0476=5667 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0477 / / Called from: / 0407 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0477, 0 / return area STA / AC = 7777 (-0001) @@0500=7240 AND C0551 / @@0501=0351 HLT / @@0502=7402 JMP I S0477 / return @@0503=5677 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0504 / / Called from: / 0442 0452 0462 1104 1114 1124 3070 3476 5075 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S0504, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@0505=7340 AND D0040 / @@0506=0040 D0507, 7640 / SZA CLA JMP L0520 / @@0510=5320 CMA / @@0511=7040 AND C0077 / @@0512=0077 L0513, JMS I C0047 / long call to S1652 @@0513=4447 CMA / @@0514=7040 AND D0076 / @@0515=0076 JMS I C0047 / long call to S1652 @@0516=4447 JMP I S0504 / return @@0517=5704 L0520, CMA / @@0520=7040 C0521, C0521, 0100 / AND L0100 JMP L0513 / @@0522=5313 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0523 / / Called from: / 0427 0433 0443 0453 0463 1105 1115 1125 3071 3463 3467 3477 4014 4020 4030 / 5076 5106 / Total 0021 (17) calls //////////////////////////////////////////////////////////////////////////////// S0523, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@0524=7340 AND C0102 / @@0525=0102 DCA AI1 / AUTO INDEX REGISTER @@0526=3011 L0527, CMA / @@0527=7040 AND I AI1 / AUTO INDEX REGISTER @@0530=0411 SNA / @@0531=7450 JMP L0545 / @@0532=5345 AND D0037 / @@0533=0037 SZA CLA / @@0534=7640 JMP L0542 / @@0535=5342 CMA / @@0536=7040 AND C0077 / @@0537=0077 L0540, JMS I C0047 / long call to S1652 @@0540=4447 JMP L0527 / @@0541=5327 L0542, C0542, C0542, 7040 / CMA AND L0100 / @@0543=0100 JMP L0540 / @@0544=5340 L0545, CMA / @@0545=7040 AND D0076 / @@0546=0076 JMS I C0047 / long call to S1652 @@0547=4447 JMP I S0523 / return @@0550=5723 C0551, 0204 / AND L0404 L0552, LAS / @@0552=7604 AND L0115 / @@0553=0115 SNA CLA / @@0554=7650 JMP L0570 / @@0555=5370 L0556, LAS / @@0556=7604 AND C0114 / @@0557=0114 SZA CLA / @@0560=7640 HLT / @@0561=7402 LAS / @@0562=7604 AND C0116 / @@0563=0116 SNA CLA / @@0564=7650 JMP L0577 / @@0565=5377 C0566, 5767 / JMP I C0567 AND L0404 / @@0567=0204 L0570, JMS I D0046 / long call to S1600 @@0570=4446 JMP I C0521 / long jump to L0100 @@0571=5721 JMP L0556 / @@0572=5356 *0577 L0577, NOP / @@0577=7000 *0600 L0600, C0600, 4752 / JMS I C0752 L0601, CLA CLL CMA / AC = 7777 (-0001) @@0601=7340 AND C0052 / @@0602=0052 DCA AI2 / AUTO INDEX REGISTER @@0603=3012 JMS I C0051 / long call to S1200 @@0604=4451 L0605, CLA CLL CMA / AC = 7777 (-0001) @@0605=7340 AND D0024 / @@0606=0024 SZA CLA / @@0607=7640 CML / @@0610=7020 CMA / @@0611=7040 AND D0023 / @@0612=0023 RAL / @@0613=7004 NOP / @@0614=7000 DCA D0031 / @@0615=3031 SZL / @@0616=7430 CMA / @@0617=7040 DCA D0033 / @@0620=3033 JMS I C0056 / long call to S1000 @@0621=4456 JMP L0605 / @@0622=5205 JMS I C0057 / long call to S1031 @@0623=4457 JMP L0601 / @@0624=5201 JMS I C0753 / long call to S1410 @@0625=4753 L0626, CLA CLL CMA / AC = 7777 (-0001) @@0626=7340 AND C0102 / @@0627=0102 DCA AI2 / AUTO INDEX REGISTER @@0630=3012 JMS I C0051 / long call to S1200 @@0631=4451 L0632, CLA CLL CMA / AC = 7777 (-0001) @@0632=7340 AND D0024 / @@0633=0024 SZA CLA / @@0634=7640 CML / @@0635=7020 C0636, 7040 / CMA AND D0023 / @@0637=0023 RAR / @@0640=7010 NOP / @@0641=7000 DCA D0031 / @@0642=3031 SZL / @@0643=7430 CMA / @@0644=7040 DCA D0033 / @@0645=3033 JMS I C0056 / long call to S1000 @@0646=4456 JMP L0632 / @@0647=5232 JMS I C0057 / long call to S1031 @@0650=4457 JMP L0626 / @@0651=5226 JMS I C0754 / long call to S1420 @@0652=4754 L0653, CLA CLL CMA / AC = 7777 (-0001) @@0653=7340 AND C0053 / @@0654=0053 DCA AI2 / AUTO INDEX REGISTER @@0655=3012 JMS I C0051 / long call to S1200 @@0656=4451 L0657, CLA CLL CMA / AC = 7777 (-0001) @@0657=7340 AND D0024 / @@0660=0024 SZA CLA / @@0661=7640 CML / @@0662=7020 CMA / @@0663=7040 AND D0023 / @@0664=0023 RTL / @@0665=7006 NOP / @@0666=7000 DCA D0031 / @@0667=3031 SZL / @@0670=7430 CMA / @@0671=7040 DCA D0033 / @@0672=3033 JMS I C0056 / long call to S1000 @@0673=4456 JMP L0657 / @@0674=5257 JMS I C0057 / long call to S1031 @@0675=4457 JMP L0653 / @@0676=5253 JMS I C0755 / long call to S1430 @@0677=4755 L0700, CLA CLL CMA / AC = 7777 (-0001) @@0700=7340 AND C0054 / @@0701=0054 DCA AI2 / AUTO INDEX REGISTER @@0702=3012 JMS I C0051 / long call to S1200 @@0703=4451 L0704, CLA CLL CMA / AC = 7777 (-0001) @@0704=7340 AND D0024 / @@0705=0024 SZA CLA / @@0706=7640 CML / @@0707=7020 CMA / @@0710=7040 AND D0023 / @@0711=0023 RTR / @@0712=7012 NOP / @@0713=7000 DCA D0031 / @@0714=3031 SZL / @@0715=7430 CMA / @@0716=7040 DCA D0033 / @@0717=3033 JMS I C0056 / long call to S1000 @@0720=4456 JMP L0704 / @@0721=5304 JMS I C0057 / long call to S1031 @@0722=4457 C0723, 5300 / JMP L0700 JMS I C0756 / long call to S1440 @@0724=4756 L0725, CLA CLL CMA / AC = 7777 (-0001) @@0725=7340 AND C0055 / @@0726=0055 DCA AI2 / AUTO INDEX REGISTER @@0727=3012 JMS I C0776 / long call to S1236 @@0730=4776 L0731, CLA CLL CMA / AC = 7777 (-0001) @@0731=7340 AND D0024 / @@0732=0024 SZA CLA / @@0733=7640 CML / @@0734=7020 CMA / @@0735=7040 AND D0023 / @@0736=0023 BSW / @@0737=7002 NOP / @@0740=7000 DCA D0031 / @@0741=3031 SZL / @@0742=7430 CMA / @@0743=7040 DCA D0033 / @@0744=3033 JMS I C0056 / long call to S1000 @@0745=4456 JMP L0731 / @@0746=5331 JMS I C0057 / long call to S1031 @@0747=4457 JMP L0725 / @@0750=5325 JMP I C0777 / long jump to L1323 @@0751=5777 TAD I L0000 / @@0752=1400 C0753, C0753, 1410 / TAD I AI0 C0754, C0754, 1420 / TAD I D0020 C0755, C0755, 1430 / TAD I D0030 C0756, C0756, 1440 / TAD I D0040 AND L0001 / @@0757=0001 AND S0002 / @@0760=0002 AND S0004 / @@0761=0004 AND AI0 / AUTO INDEX REGISTER @@0762=0010 AND D0020 / @@0763=0020 AND D0040 / @@0764=0040 AND L0100 / @@0765=0100 AND L0600 / @@0766=0200 AND I L0000 / @@0767=0400 TAD L0000 / @@0770=1000 ISZ L0000 / @@0771=2000 JMS L0000 / @@0772=4000 AND L0000 / @@0773=0000 AND L0001 / @@0774=0001 JMS L0000 / @@0775=4000 C0776, C0776, 1236 / TAD C0636 C0777, C0777, 1323 / TAD C0723 *1000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / Called from: / 0621 0646 0673 0720 0745 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S1000, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@1001=7340 AND D0025 / @@1002=0025 CMA / @@1003=7040 AND D0031 / @@1004=0031 SZA / @@1005=7440 JMP L1026 / @@1006=5226 CMA / @@1007=7040 AND D0031 / @@1010=0031 CMA / @@1011=7040 AND D0025 / @@1012=0025 SZA / @@1013=7440 JMP L1026 / @@1014=5226 CLA CLL CMA / AC = 7777 (-0001) @@1015=7340 AND L0026 / @@1016=0026 SZA CLA / @@1017=7640 CML / @@1020=7020 CMA / @@1021=7040 AND D0033 / @@1022=0033 SZA / @@1023=7440 CML / @@1024=7020 SZL / @@1025=7430 L1026, JMP L1046 / @@1026=5246 L1027, ISZ S1000 / @@1027=2200 L1030, JMP I S1000 / return @@1030=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1031 / / Called from: / 0623 0650 0675 0722 0747 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S1031, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@1032=7340 AND D0024 / @@1033=0024 SZA CLA / @@1034=7640 JMP L1044 / @@1035=5244 CMA / @@1036=7040 DCA D0024 / @@1037=3024 ISZ D0023 / @@1040=2023 JMP I S1031 / return @@1041=5631 ISZ S1031 / @@1042=2231 JMP I S1031 / return @@1043=5631 L1044, DCA D0024 / @@1044=3024 JMP I S1031 / return @@1045=5631 L1046, LAS / @@1046=7604 AND C0104 / @@1047=0104 SNA CLA / @@1050=7650 JMS S1071 / @@1051=4271 LAS / @@1052=7604 AND C0103 / @@1053=0103 SNA CLA / @@1054=7650 JMP L1063 / @@1055=5263 L1056, LAS / @@1056=7604 AND C0105 / @@1057=0105 SNA CLA / @@1060=7650 JMP L1027 / @@1061=5227 JMP L1030 / @@1062=5230 L1063, CLA CLL CMA / AC = 7777 (-0001) @@1063=7340 AND I C0051 / @@1064=0451 TAD C1070 / @@1065=1270 HLT / @@1066=7402 JMP L1056 / @@1067=5256 C1070, 7774 / SPA SNA SZL CLA OSR //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1071 / / Called from: / 1051 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1071, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@1072=7340 AND D0035 / @@1073=0035 SNA CLA / @@1074=7650 JMS S1131 / @@1075=4331 CMA / @@1076=7040 L1077, AND D0023 / @@1077=0023 DCA D0037 / @@1100=3037 CMA / @@1101=7040 AND D0024 / @@1102=0024 DCA D0040 / @@1103=3040 JMS I C0060 / long call to S0504 @@1104=4460 JMS I C0061 / long call to S0523 @@1105=4461 CMA / @@1106=7040 AND D0025 / @@1107=0025 DCA D0037 / @@1110=3037 CMA / @@1111=7040 AND L0026 / @@1112=0026 DCA D0040 / @@1113=3040 JMS I C0060 / long call to S0504 @@1114=4460 JMS I C0061 / long call to S0523 @@1115=4461 CMA / @@1116=7040 AND D0031 / @@1117=0031 DCA D0037 / @@1120=3037 CMA / @@1121=7040 AND D0033 / @@1122=0033 DCA D0040 / @@1123=3040 JMS I C0060 / long call to S0504 @@1124=4460 JMS I C0061 / long call to S0523 @@1125=4461 JMS I D0046 / long call to S1600 @@1126=4446 JMP I C1142 / long jump to L0400 @@1127=5742 JMP I S1071 / return @@1130=5671 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1131 / / Called from: / 1075 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1131, 0 / return area JMS I D0046 / long call to S1600 @@1132=4446 D1133, 0000 / AND L0000 JMS I D0046 / long call to S1600 @@1134=4446 JMP L1044 / @@1135=5244 STA / AC = 7777 (-0001) @@1136=7240 DCA D0035 / @@1137=3035 JMP I S1131 / return @@1140=5731 ISZ L0000 / @@1141=2000 C1142, C1142, 0400 / AND I L0000 AND L0100 / @@1143=0100 AND D0020 / @@1144=0020 AND S0004 / @@1145=0004 AND L0001 / @@1146=0001 JMS L0000 / @@1147=4000 TAD L0000 / @@1150=1000 AND S1000 / @@1151=0200 AND D0040 / @@1152=0040 AND AI0 / AUTO INDEX REGISTER @@1153=0010 AND S0002 / @@1154=0002 AND L0000 / @@1155=0000 ISZ L0000 / @@1156=2000 AND S0002 / @@1157=0002 AND S0002 / @@1160=0002 AND AI0 / AUTO INDEX REGISTER @@1161=0010 AND D0040 / @@1162=0040 AND S1000 / @@1163=0200 TAD L0000 / @@1164=1000 JMS L0000 / @@1165=4000 AND L0001 / @@1166=0001 AND S0004 / @@1167=0004 AND D0020 / @@1170=0020 AND L0100 / @@1171=0100 AND I L0000 / @@1172=0400 ISZ L0000 / @@1173=2000 AND L0000 / @@1174=0000 AND S0002 / @@1175=0002 ISZ L0000 / @@1176=2000 *1200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / Called from: / 0604 0631 0656 0703 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1200, 0 / return area CLA CLL / AC = 0000 @@1201=7300 DCA D0025 / @@1202=3025 DCA L0026 / @@1203=3026 CMA / @@1204=7040 AND I AI2 / AUTO INDEX REGISTER @@1205=0412 DCA D0037 / @@1206=3037 L1207, CMA / @@1207=7040 AND I AI2 / AUTO INDEX REGISTER @@1210=0412 SNA / @@1211=7450 JMP L1303 / @@1212=5303 DCA D0040 / @@1213=3040 CMA / @@1214=7040 AND D0023 / @@1215=0023 AND D0037 / @@1216=0037 SZA / @@1217=7440 JMS S1225 / @@1220=4225 CMA / @@1221=7040 AND D0040 / @@1222=0040 DCA D0037 / @@1223=3037 JMP L1207 / @@1224=5207 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1225 / / Called from: / 1220 1260 1275 1312 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1225, 0 / return area STA / AC = 7777 (-0001) @@1226=7240 AND D0040 / @@1227=0040 MQL / @@1230=7421 CMA / @@1231=7040 AND D0025 / @@1232=0025 MQA / @@1233=7501 DCA D0025 / @@1234=3025 JMP I S1225 / return @@1235=5625 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1236 / / Called from: / 0730 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1236, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@1237=7340 AND S1236 / @@1240=0236 DCA I C0051 / @@1241=3451 DCA D0025 / @@1242=3025 DCA L0026 / @@1243=3026 L1244, CMA / @@1244=7040 AND I AI2 / AUTO INDEX REGISTER @@1245=0412 SNA / @@1246=7450 JMP L1277 / @@1247=5277 DCA D0037 / @@1250=3037 CMA / @@1251=7040 AND I AI2 / AUTO INDEX REGISTER @@1252=0412 DCA D0040 / @@1253=3040 CMA / @@1254=7040 AND D0023 / @@1255=0023 AND D0037 / @@1256=0037 SZA / @@1257=7440 JMS S1225 / @@1260=4225 CMA / @@1261=7040 AND D0037 / @@1262=0037 MQL / @@1263=7421 CMA / @@1264=7040 AND D0040 / @@1265=0040 DCA D0037 / @@1266=3037 MQA / @@1267=7501 DCA D0040 / @@1270=3040 CMA / @@1271=7040 AND D0023 / @@1272=0023 AND D0037 / @@1273=0037 SZA / @@1274=7440 JMS S1225 / @@1275=4225 JMP L1244 / @@1276=5244 L1277, CLA CLL CMA / AC = 7777 (-0001) @@1277=7340 AND D0024 / @@1300=0024 DCA L0026 / @@1301=3026 JMP I S1236 / return @@1302=5636 L1303, CLA CLL CMA / AC = 7777 (-0001) @@1303=7340 AND I AI2 / AUTO INDEX REGISTER @@1304=0412 DCA D0040 / @@1305=3040 CMA / @@1306=7040 AND C0116 / @@1307=0116 AND D0024 / @@1310=0024 SZA / @@1311=7440 JMS S1225 / @@1312=4225 CMA / @@1313=7040 AND I AI2 / AUTO INDEX REGISTER @@1314=0412 AND D0023 / @@1315=0023 SZA / @@1316=7440 STA / AC = 7777 (-0001) @@1317=7240 AND C0116 / @@1320=0116 DCA L0026 / @@1321=3026 JMP I S1200 / return @@1322=5600 L1323, LAS / @@1323=7604 AND L0115 / @@1324=0115 C1325, C1325, 7650 / SNA CLA JMP L1342 / @@1326=5342 L1327, LAS / @@1327=7604 AND C0114 / @@1330=0114 SZA CLA / @@1331=7640 HLT / @@1332=7402 LAS / @@1333=7604 AND C0116 / @@1334=0116 SNA CLA / @@1335=7650 JMP I C1340 / long jump to L2000 @@1336=5740 JMP I C1341 / long jump to L0600 @@1337=5741 C1340, C1340, 2000 / ISZ L0000 C1341, C1341, 0600 / AND I S1200 L1342, JMS I D0046 / long call to S1600 @@1342=4446 JMP I C1325 / long jump to L7650 @@1343=5725 JMP L1327 / @@1344=5327 *1400 C1400, C1400, 0000 / AND L0000 CLA CLL CMA / AC = 7777 (-0001) @@1401=7340 AND C1450 / @@1402=0250 DCA I C0050 / @@1403=3450 DCA D0035 / @@1404=3035 DCA D0024 / @@1405=3024 DCA D0023 / @@1406=3023 JMP I C1400 / long jump to L0000 @@1407=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1410 / / Called from: / 0625 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1410, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@1411=7340 AND C1451 / @@1412=0251 DCA I C0050 / @@1413=3450 DCA D0035 / @@1414=3035 DCA D0024 / @@1415=3024 DCA D0023 / @@1416=3023 JMP I S1410 / return @@1417=5610 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1420 / / Called from: / 0652 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1420, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@1421=7340 AND C1452 / @@1422=0252 DCA I C0050 / @@1423=3450 DCA D0035 / @@1424=3035 DCA D0024 / @@1425=3024 DCA D0023 / @@1426=3023 JMP I S1420 / return @@1427=5620 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1430 / / Called from: / 0677 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1430, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@1431=7340 AND C1453 / @@1432=0253 DCA I C0050 / @@1433=3450 DCA D0035 / @@1434=3035 DCA D0024 / @@1435=3024 DCA D0023 / @@1436=3023 JMP I S1430 / return @@1437=5630 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1440 / / Called from: / 0724 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1440, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@1441=7340 AND C1454 / @@1442=0254 DCA I C0050 / @@1443=3450 DCA D0035 / @@1444=3035 DCA D0024 / @@1445=3024 DCA D0023 / @@1446=3023 JMP I S1440 / return @@1447=5640 C1450, 5440 / JMP I D0040 C1451, 5461 / JMP I C0061 C1452, 5502 / JMP I C0102 C1453, 5523 / JMP I C0123 C1454, 5544 / JMP I C0144 *1600 D1600, 0000 / AND L0000 CLA CLL / AC = 0000 @@1601=7300 TAD I D1600 / @@1602=1600 DCA AI1 / AUTO INDEX REGISTER @@1603=3011 ISZ D1600 / @@1604=2200 L1605, TAD I AI1 / AUTO INDEX REGISTER @@1605=1411 DCA D0036 / @@1606=3036 TAD D0036 / @@1607=1036 RTR / @@1610=7012 RTR / @@1611=7012 RTR / @@1612=7012 JMS S1617 / @@1613=4217 TAD D0036 / @@1614=1036 JMS S1617 / @@1615=4217 JMP L1605 / @@1616=5205 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1617 / / Called from: / 1613 1615 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1617, 0 / return area AND C1645 / @@1620=0245 SNA / @@1621=7450 JMP I D1600 / long jump to L0000 @@1622=5600 TAD C1646 / @@1623=1246 SPA / @@1624=7510 JMP L1630 / @@1625=5230 TAD D0076 / @@1626=1076 JMP L1643 / @@1627=5243 L1630, IAC / @@1630=7001 SZA / @@1631=7440 JMP L1635 / @@1632=5235 TAD C1651 / @@1633=1251 JMP L1643 / @@1634=5243 L1635, IAC / @@1635=7001 SZA / @@1636=7440 JMP L1642 / @@1637=5242 TAD C1650 / @@1640=1250 JMP L1643 / @@1641=5243 L1642, TAD C1647 / @@1642=1247 L1643, JMS I C0047 / long call to S1652 @@1643=4447 JMP I S1617 / return @@1644=5617 C1645, 0077 / AND C0077 C1646, 7740 / SMA SZA CLA C1647, 0336 / AND C1736 C1650, 0212 / AND C1612 C1651, 0215 / AND C1615 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1652 / / Called from: / 0513 0516 0540 0547 1643 4735 4744 4746 4756 4766 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S1652, 0 / return area TLS / Load the TTO from the content of AC4 @@1653=6046 L1654, TSF / Skip if teleprinter flag is a 1. @@1654=6041 JMP L1654 / @@1655=5254 CLA / @@1656=7200 JMP I S1652 / return @@1657=5652 AND L0001 / @@1660=0001 AND L0100 / @@1661=0100 AND S0002 / @@1662=0002 AND D1600 / @@1663=0200 AND S0004 / @@1664=0004 AND I L0000 / @@1665=0400 AND AI0 / AUTO INDEX REGISTER @@1666=0010 TAD L0000 / @@1667=1000 AND D0020 / @@1670=0020 ISZ L0000 / @@1671=2000 AND D0040 / @@1672=0040 JMS L0000 / @@1673=4000 AND L0000 / @@1674=0000 *2000 L2000, C2000, 7300 / CLA CLL TAD C0122 / @@2001=1122 DCA D0154 / @@2002=3154 DCA D0020 / @@2003=3020 C2004, 7300 / CLA CLL CLA CLL / AC = 0000 @@2005=7300 DCA I C0071 / @@2006=3471 TAD C0136 / @@2007=1136 DCA I C0072 / @@2010=3472 TAD C2132 / @@2011=1332 DCA L0000 / @@2012=3000 TAD C0137 / @@2013=1137 DCA L0001 / @@2014=3001 TAD D0140 / @@2015=1140 DCA S0002 / @@2016=3002 STA / AC = 7777 (-0001) @@2017=7240 DCA L0003 / @@2020=3003 TAD C2127 / @@2021=1327 DCA S0004 / @@2022=3004 L2023, CLA CLL / AC = 0000 @@2023=7300 JMP I C0072 / long jump to L7777 @@2024=5472 NOP / @@2025=7000 NOP / @@2026=7000 JMS I C0064 / long call to S3017 @@2027=4464 SZL / @@2030=7430 SZA / @@2031=7440 JMS I C0065 / long call to S3037 @@2032=4465 SKP / @@2033=7410 JMS I C0066 / long call to S3027 @@2034=4466 JMS I C0067 / long call to S3046 @@2035=4467 JMP L2023 / @@2036=5223 CLA / @@2037=7200 TAD C0123 / @@2040=1123 DCA D0154 / @@2041=3154 JMP I D0154 / long jump to L2004 @@2042=5554 C2043, 7300 / CLA CLL CLA CLL CMA / AC = 7777 (-0001) @@2044=7340 DCA I C0071 / @@2045=3471 TAD C0136 / @@2046=1136 DCA I C0072 / @@2047=3472 TAD C0137 / @@2050=1137 DCA L0000 / @@2051=3000 TAD C0141 / @@2052=1141 DCA L0001 / @@2053=3001 TAD C2130 / @@2054=1330 DCA S0002 / @@2055=3002 L2056, CLA CLL / AC = 0000 @@2056=7300 JMP I C0072 / long jump to L7777 @@2057=5472 NOP / @@2060=7000 NOP / @@2061=7000 JMS I C0064 / long call to S3017 @@2062=4464 SZL / @@2063=7430 SZA / @@2064=7440 JMS I C0065 / long call to S3037 @@2065=4465 SKP / @@2066=7410 JMS I C0066 / long call to S3027 @@2067=4466 JMS I C0067 / long call to S3046 @@2070=4467 JMP L2056 / @@2071=5256 CLA / @@2072=7200 TAD C0124 / @@2073=1124 DCA D0154 / @@2074=3154 JMP I D0154 / long jump to L2004 @@2075=5554 CLA CLL / AC = 0000 @@2076=7300 TAD C0137 / @@2077=1137 DCA I C0071 / @@2100=3471 TAD C2133 / @@2101=1333 DCA I C0072 / @@2102=3472 TAD C0152 / @@2103=1152 DCA L0000 / @@2104=3000 TAD C2131 / @@2105=1331 DCA L0001 / @@2106=3001 L2107, CLA CLL / AC = 0000 @@2107=7300 JMP I C0071 / long jump to L7776 @@2110=5471 NOP / @@2111=7000 NOP / @@2112=7000 JMS I C0064 / long call to S3017 @@2113=4464 SZL / @@2114=7430 SZA / @@2115=7440 JMS I C0065 / long call to S3037 @@2116=4465 SKP / @@2117=7410 JMS I C0066 / long call to S3027 @@2120=4466 JMS I C0067 / long call to S3046 @@2121=4467 JMP L2107 / @@2122=5307 CLA / @@2123=7200 TAD C0125 / @@2124=1125 DCA D0154 / @@2125=3154 JMP I D0154 / long jump to L2004 @@2126=5554 C2127, 2025 / ISZ D0025 C2130, 2060 / ISZ C0060 C2131, 2111 / ISZ C0111 C2132, 1003 / TAD L0003 C2133, 1421 / TAD I C0021 *2200 CLA CLL / AC = 0000 @@2200=7300 CLA CLL CMA / AC = 7777 (-0001) @@2201=7340 DCA I C0071 / @@2202=3471 TAD C0136 / @@2203=1136 DCA I C0072 / @@2204=3472 TAD C0142 / @@2205=1142 DCA L0000 / @@2206=3000 TAD C0141 / @@2207=1141 DCA L0001 / @@2210=3001 TAD D2324 / @@2211=1324 DCA S0002 / @@2212=3002 L2213, CLA CLL CMA / AC = 7777 (-0001) @@2213=7340 JMP I C0072 / long jump to L7777 @@2214=5472 NOP / @@2215=7000 NOP / @@2216=7000 JMS I C0064 / long call to S3017 @@2217=4464 SZL / @@2220=7430 SZA / @@2221=7440 JMS I C0065 / long call to S3037 @@2222=4465 SKP / @@2223=7410 JMS I C0066 / long call to S3027 @@2224=4466 JMS I C0067 / long call to S3046 @@2225=4467 JMP L2213 / @@2226=5213 TAD C0126 / @@2227=1126 DCA D0154 / @@2230=3154 JMP I D0154 / long jump to L2004 @@2231=5554 CLA CLL / AC = 0000 @@2232=7300 CLA CLL / AC = 0000 @@2233=7300 TAD C0143 / @@2234=1143 DCA I C0072 / @@2235=3472 TAD C0137 / @@2236=1137 DCA L0000 / @@2237=3000 TAD C0137 / @@2240=1137 DCA L0001 / @@2241=3001 TAD C0151 / @@2242=1151 DCA S0002 / @@2243=3002 TAD C2325 / @@2244=1325 DCA L0003 / @@2245=3003 L2246, CLA CLL CMA / AC = 7777 (-0001) @@2246=7340 DCA I C0071 / @@2247=3471 CMA / @@2250=7040 JMP I C0072 / long jump to L7777 @@2251=5472 NOP / @@2252=7000 NOP / @@2253=7000 JMS I C0064 / long call to S3017 @@2254=4464 SZL / @@2255=7430 SZA / @@2256=7440 JMS I C0065 / long call to S3037 @@2257=4465 SKP / @@2260=7410 JMS I C0066 / long call to S3027 @@2261=4466 JMS I C0067 / long call to S3046 @@2262=4467 JMP L2246 / @@2263=5246 CLA / @@2264=7200 TAD C0127 / @@2265=1127 DCA D0154 / @@2266=3154 JMP I D0154 / long jump to L2004 @@2267=5554 CLA CLL / AC = 0000 @@2270=7300 CLA CLL / AC = 0000 @@2271=7300 TAD C0144 / @@2272=1144 DCA I C0072 / @@2273=3472 TAD C0137 / @@2274=1137 DCA L0001 / @@2275=3001 TAD C0151 / @@2276=1151 DCA S0002 / @@2277=3002 TAD C2326 / @@2300=1326 DCA L0003 / @@2301=3003 L2302, CLA CLL CMA / AC = 7777 (-0001) @@2302=7340 DCA L0000 / @@2303=3000 STA / AC = 7777 (-0001) @@2304=7240 JMP I C0072 / long jump to L7777 @@2305=5472 NOP / @@2306=7000 NOP / @@2307=7000 JMS I C0064 / long call to S3017 @@2310=4464 SZL / @@2311=7430 SZA / @@2312=7440 JMS I C0065 / long call to S3037 @@2313=4465 SKP / @@2314=7410 JMS I C0066 / long call to S3027 @@2315=4466 JMS I C0067 / long call to S3046 @@2316=4467 JMP L2302 / @@2317=5302 CLA / @@2320=7200 TAD C0130 / @@2321=1130 DCA D0154 / @@2322=3154 JMP I D0154 / long jump to L2004 @@2323=5554 D2324, 2215 / ISZ C2215 C2325, 2252 / ISZ C2252 C2326, 2306 / ISZ C2306 *2400 D2400, 7300 / CLA CLL CLA CLL / AC = 0000 @@2401=7300 TAD C0145 / @@2402=1145 DCA I C0072 / @@2403=3472 TAD C0137 / @@2404=1137 DCA L0001 / @@2405=3001 TAD C0151 / @@2406=1151 DCA S0002 / @@2407=3002 TAD C2526 / @@2410=1326 DCA L0003 / @@2411=3003 L2412, CLA CLL CMA / AC = 7777 (-0001) @@2412=7340 DCA AI0 / AUTO INDEX REGISTER @@2413=3010 CMA / @@2414=7040 DCA L0000 / @@2415=3000 CMA / @@2416=7040 JMP I C0072 / long jump to L7777 @@2417=5472 NOP / @@2420=7000 NOP / @@2421=7000 JMS I C0064 / long call to S3017 @@2422=4464 SZL / @@2423=7430 SZA / @@2424=7440 C2425, 4465 / JMS I C0065 SKP / @@2426=7410 JMS I C0066 / long call to S3027 @@2427=4466 JMS I C0067 / long call to S3046 @@2430=4467 JMP L2412 / @@2431=5212 CLA / @@2432=7200 TAD C0131 / @@2433=1131 DCA D0154 / @@2434=3154 JMP I D0154 / long jump to L2004 @@2435=5554 CLA CLL / AC = 0000 @@2436=7300 CLA CLL / AC = 0000 @@2437=7300 TAD C0137 / @@2440=1137 DCA L0000 / @@2441=3000 TAD C0137 / @@2442=1137 DCA L0001 / @@2443=3001 TAD D0140 / @@2444=1140 DCA S0002 / @@2445=3002 TAD C2527 / @@2446=1327 DCA S0004 / @@2447=3004 L2450, CLA CLL / AC = 0000 @@2450=7300 TAD C0146 / @@2451=1146 DCA I C0072 / @@2452=3472 STA / AC = 7777 (-0001) @@2453=7240 JMP I C0072 / long jump to L7777 @@2454=5472 NOP / @@2455=7000 NOP / @@2456=7000 SZL / @@2457=7430 SZA / @@2460=7440 JMS I C0065 / long call to S3037 @@2461=4465 SKP / @@2462=7410 JMS I C0066 / long call to S3027 @@2463=4466 JMS I C0067 / long call to S3046 @@2464=4467 JMP L2450 / @@2465=5250 CLA / @@2466=7200 TAD C0132 / @@2467=1132 DCA D0154 / @@2470=3154 JMP I D0154 / long jump to L2004 @@2471=5554 CLA CLL / AC = 0000 @@2472=7300 CLA CLL CMA / AC = 7777 (-0001) @@2473=7340 DCA I C0071 / @@2474=3471 TAD C0137 / @@2475=1137 DCA L0000 / @@2476=3000 TAD C0141 / @@2477=1141 DCA L0001 / @@2500=3001 TAD C2530 / @@2501=1330 DCA S0002 / @@2502=3002 L2503, CLA CLL / AC = 0000 @@2503=7300 TAD C0147 / @@2504=1147 DCA I C0072 / @@2505=3472 STA / AC = 7777 (-0001) @@2506=7240 JMP I C0072 / long jump to L7777 @@2507=5472 NOP / @@2510=7000 NOP / @@2511=7000 JMS I C0064 / long call to S3017 @@2512=4464 SZL / @@2513=7430 SZA / @@2514=7440 JMS I C0065 / long call to S3037 @@2515=4465 SKP / @@2516=7410 JMS I C0066 / long call to S3027 @@2517=4466 JMS I C0067 / long call to S3046 @@2520=4467 JMP L2503 / @@2521=5303 CLA / @@2522=7200 TAD C0133 / @@2523=1133 DCA D0154 / @@2524=3154 JMP I D0154 / long jump to L2004 @@2525=5554 C2526, 2420 / ISZ I D0020 C2527, 2455 / ISZ I C0055 C2530, 2510 / ISZ I C0110 *2600 D2600, 7300 / CLA CLL CLA CLL / AC = 0000 @@2601=7300 TAD C0150 / @@2602=1150 DCA I C0072 / @@2603=3472 TAD C0137 / @@2604=1137 DCA L0001 / @@2605=3001 TAD C0151 / @@2606=1151 DCA S0002 / @@2607=3002 TAD C2715 / @@2610=1315 DCA L0003 / @@2611=3003 L2612, CLA CLL CMA / AC = 7777 (-0001) @@2612=7340 DCA AI0 / AUTO INDEX REGISTER @@2613=3010 CMA / @@2614=7040 JMP I C0072 / long jump to L7777 @@2615=5472 NOP / @@2616=7000 NOP / @@2617=7000 JMS I C0064 / long call to S3017 @@2620=4464 SZL / @@2621=7430 SZA / @@2622=7440 JMS I C0065 / long call to S3037 @@2623=4465 SKP / @@2624=7410 JMS I C0066 / long call to S3027 @@2625=4466 JMS I C0067 / long call to S3046 @@2626=4467 JMP L2612 / @@2627=5212 CLA / @@2630=7200 TAD C0134 / @@2631=1134 DCA D0154 / @@2632=3154 JMP I D0154 / long jump to L2004 @@2633=5554 CLA CLL / AC = 0000 @@2634=7300 CLA CLL / AC = 0000 @@2635=7300 TAD C0137 / @@2636=1137 DCA L0000 / @@2637=3000 TAD C0141 / @@2640=1141 DCA L0001 / @@2641=3001 TAD C2716 / @@2642=1316 DCA S0002 / @@2643=3002 L2644, CLA CLL / AC = 0000 @@2644=7300 TAD C0153 / @@2645=1153 DCA I C0072 / @@2646=3472 STA / AC = 7777 (-0001) @@2647=7240 JMP I C0072 / long jump to L7777 @@2650=5472 NOP / @@2651=7000 NOP / @@2652=7000 JMS I C0064 / long call to S3017 @@2653=4464 SZL / @@2654=7430 SZA / @@2655=7440 JMS I C0065 / long call to S3037 @@2656=4465 SKP / @@2657=7410 JMS I C0066 / long call to S3027 @@2660=4466 JMS I C0067 / long call to S3046 @@2661=4467 JMP L2644 / @@2662=5244 CLA / @@2663=7200 TAD C0135 / @@2664=1135 DCA D0154 / @@2665=3154 JMP I D0154 / long jump to L2004 @@2666=5554 CLA CLL / AC = 0000 @@2667=7300 CLA CLL / AC = 0000 @@2670=7300 TAD C0137 / @@2671=1137 DCA I C0072 / @@2672=3472 TAD C0152 / @@2673=1152 DCA L0000 / @@2674=3000 TAD C2717 / @@2675=1317 DCA L0001 / @@2676=3001 L2677, CLA CLL CMA / AC = 7777 (-0001) @@2677=7340 JMP I C0072 / long jump to L7777 @@2700=5472 NOP / @@2701=7000 NOP / @@2702=7000 JMS I C0064 / long call to S3017 @@2703=4464 SZL / @@2704=7430 SZA / @@2705=7440 JMS I C0065 / long call to S3037 @@2706=4465 SKP / @@2707=7410 JMS I C0066 / long call to S3027 @@2710=4466 JMS I C0067 / long call to S3046 @@2711=4467 JMP L2677 / @@2712=5277 JMP I C2714 / long jump to L3200 @@2713=5714 C2714, C2714, 3200 / DCA D2600 C2715, 2616 / ISZ I C2616 C2716, 2651 / ISZ I C2651 C2717, 2701 / ISZ I C2701 *3000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3000 / / Called from: / 4251 4326 4451 4526 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S3000, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@3001=7340 AND D0040 / @@3002=0040 CMA / @@3003=7040 AND D0037 / @@3004=0037 SZA CLA / @@3005=7640 JMP I S3000 / return @@3006=5600 CMA / @@3007=7040 AND D0037 / @@3010=0037 CMA / @@3011=7040 AND D0040 / @@3012=0040 SZA CLA / @@3013=7640 JMP I S3000 / return @@3014=5600 ISZ S3000 / @@3015=2200 JMP I S3000 / return @@3016=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3017 / / Called from: / 2027 2062 2113 2217 2254 2310 2422 2512 2620 2653 2703 3436 3645 3661 4241 / 4316 4441 4516 / Total 0022 (18) calls //////////////////////////////////////////////////////////////////////////////// S3017, 0 / return area DCA D0025 / @@3020=3025 SZL / @@3021=7430 CMA / @@3022=7040 DCA L0026 / @@3023=3026 L3024, CMA / @@3024=7040 AND D0025 / @@3025=0025 JMP I S3017 / return @@3026=5617 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3027 / / Called from: / 2034 2067 2120 2224 2261 2315 2427 2463 2517 2625 2660 2710 / Total 0014 (12) calls //////////////////////////////////////////////////////////////////////////////// S3027, 0 / return area LAS / @@3030=7604 AND C0103 / @@3031=0103 SZA CLA / @@3032=7640 JMP I S3027 / return @@3033=5627 TAD D0154 / @@3034=1154 HLT / @@3035=7402 JMP I S3027 / return @@3036=5627 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3037 / / Called from: / 2032 2065 2116 2222 2257 2313 2461 2515 2623 2656 2706 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S3037, 0 / return area LAS / @@3040=7604 AND C0104 / @@3041=0104 SNA / @@3042=7450 JMS S3056 / @@3043=4256 ISZ S3037 / @@3044=2237 JMP I S3037 / return @@3045=5637 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3046 / / Called from: / 2035 2070 2121 2225 2262 2316 2430 2464 2520 2626 2661 2711 3442 3651 3665 / 3675 4253 4330 4453 4530 / Total 0024 (20) calls //////////////////////////////////////////////////////////////////////////////// S3046, 0 / return area LAS / @@3047=7604 AND C0105 / @@3050=0105 SNA CLA / @@3051=7650 JMP L3054 / @@3052=5254 JMP I S3046 / return @@3053=5646 L3054, ISZ S3046 / @@3054=2246 JMP I S3046 / return @@3055=5646 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3056 / / Called from: / 3043 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3056, 0 / return area JMS I D0046 / long call to S1600 @@3057=4446 C3060, 5744 / JMP I C3144 TAD D0037 / @@3061=1037 JMS I C3073 / long call to S3227 @@3062=4673 CLA CLL CMA / AC = 7777 (-0001) @@3063=7340 AND D0025 / @@3064=0025 DCA D0037 / @@3065=3037 AND L0026 / @@3066=0026 DCA D0040 / @@3067=3040 JMS I C0060 / long call to S0504 @@3070=4460 JMS I C0061 / long call to S0523 @@3071=4461 JMP I S3056 / return @@3072=5656 C3073, C3073, 3227 / DCA S3027 *3200 L3200, CLA CLL / AC = 0000 @@3200=7300 ISZ D0020 / @@3201=2020 JMP L3224 / @@3202=5224 LAS / @@3203=7604 AND L0115 / @@3204=0115 SNA CLA / @@3205=7650 JMP L3221 / @@3206=5221 L3207, LAS / @@3207=7604 AND C0114 / @@3210=0114 SZA CLA / @@3211=7640 HLT / @@3212=7402 LAS / @@3213=7604 AND C0116 / @@3214=0116 SZA CLA / @@3215=7640 JMP L3224 / @@3216=5224 JMP I C3220 / long jump to L3400 @@3217=5620 C3220, C3220, 3400 / DCA I L0000 L3221, JMS I D0046 / long call to S1600 @@3221=4446 C3222, 5732 / JMP I C3332 JMP L3207 / @@3223=5207 L3224, TAD C0122 / @@3224=1122 DCA D0154 / @@3225=3154 JMP I D0154 / long jump to L2004 @@3226=5554 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3227 / / Called from: / 3062 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3227, 0 / return area DCA D0037 / @@3230=3037 TAD D0037 / @@3231=1037 AND C0172 / @@3232=0172 DCA D3264 / @@3233=3264 TAD D0037 / @@3234=1037 RTL / @@3235=7006 RAL / @@3236=7004 AND C3266 / @@3237=0266 TAD D3264 / @@3240=1264 TAD C3267 / @@3241=1267 DCA D3264 / @@3242=3264 TAD D0037 / @@3243=1037 RTR / @@3244=7012 RTR / @@3245=7012 RTR / @@3246=7012 AND C0172 / @@3247=0172 DCA D3263 / @@3250=3263 TAD D0037 / @@3251=1037 RTR / @@3252=7012 RAR / @@3253=7010 AND C3266 / @@3254=0266 TAD D3263 / @@3255=1263 TAD C3267 / @@3256=1267 DCA D3263 / @@3257=3263 JMS I D0046 / long call to S1600 @@3260=4446 DCA D3262 / @@3261=3262 D3262, 5627 / JMP I S3227 D3263, 0000 / AND L0000 D3264, 0000 / AND L0000 JMS L0000 / @@3265=4000 C3266, 0700 / AND I C3300 C3267, 6060 / 6060 *3400 L3400, C3400, 7300 / CLA CLL JMS I C0073 / long call to S3512 @@3401=4473 L3402, CLA CLL / AC = 0000 @@3402=7300 TAD L0041 / @@3403=1041 TAD D0043 / @@3404=1043 TAD D0043 / @@3405=1043 TAD L0041 / @@3406=1041 TAD L0041 / @@3407=1041 TAD L0041 / @@3410=1041 TAD D0043 / @@3411=1043 TAD D0043 / @@3412=1043 TAD L0041 / @@3413=1041 TAD L0041 / @@3414=1041 TAD D0043 / @@3415=1043 TAD L0041 / @@3416=1041 TAD D0043 / @@3417=1043 TAD D0043 / @@3420=1043 TAD L0041 / @@3421=1041 TAD L0041 / @@3422=1041 TAD D0043 / @@3423=1043 TAD D0043 / @@3424=1043 TAD D0043 / @@3425=1043 TAD L0041 / @@3426=1041 TAD D0043 / @@3427=1043 TAD L0041 / @@3430=1041 TAD L0041 / @@3431=1041 TAD L0041 / @@3432=1041 TAD D0043 / @@3433=1043 TAD D0043 / @@3434=1043 NOP / @@3435=7000 JMS I C0064 / long call to S3017 @@3436=4464 SZL / @@3437=7430 SZA / @@3440=7440 JMS I C3446 / long call to S3447 @@3441=4646 JMS I C0067 / long call to S3046 @@3442=4467 JMP L3402 / @@3443=5202 JMP I C3445 / long jump to L3600 @@3444=5645 C3445, C3445, 3600 / DCA I L3400 C3446, C3446, 3447 / DCA I C0047 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3447 / / Called from: / 3441 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3447, 0 / return area LAS / @@3450=7604 AND C0104 / @@3451=0104 SZA CLA / @@3452=7640 JMP L3502 / @@3453=5302 JMS I D0046 / long call to S1600 @@3454=4446 JMP I C0165 / long jump to L3024 @@3455=5565 JMS I D0046 / long call to S1600 @@3456=4446 JMP L3516 / @@3457=5316 CLA CLL CMA / AC = 7777 (-0001) @@3460=7340 AND L0041 / @@3461=0041 DCA D0037 / @@3462=3037 JMS I C0061 / long call to S0523 @@3463=4461 CLA CLL CMA / AC = 7777 (-0001) @@3464=7340 AND D0043 / @@3465=0043 DCA D0037 / @@3466=3037 JMS I C0061 / long call to S0523 @@3467=4461 CLA CLL CMA / AC = 7777 (-0001) @@3470=7340 AND D0025 / @@3471=0025 DCA D0037 / @@3472=3037 CMA / @@3473=7040 AND L0026 / @@3474=0026 DCA D0040 / @@3475=3040 JMS I C0060 / long call to S0504 @@3476=4460 JMS I C0061 / long call to S0523 @@3477=4461 JMS I D0046 / long call to S1600 @@3500=4446 JMP I C3542 / long jump to L0003 @@3501=5742 L3502, LAS / @@3502=7604 AND C0103 / @@3503=0103 SZA CLA / @@3504=7640 JMP I S3447 / return @@3505=5647 CLA CLL / AC = 0000 @@3506=7300 TAD S3447 / @@3507=1247 HLT / @@3510=7402 JMP I S3447 / return @@3511=5647 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3512 / / Called from: / 3401 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3512, 0 / return area CLA CLL / AC = 0000 @@3513=7300 TAD L0041 / @@3514=1041 RAL / @@3515=7004 L3516, SZL / @@3516=7430 TAD C3542 / @@3517=1342 DCA L0041 / @@3520=3041 TAD L0041 / @@3521=1041 CIA / @@3522=7041 DCA D0043 / @@3523=3043 CLL / @@3524=7100 TAD D3541 / @@3525=1341 RAL / @@3526=7004 SZL / @@3527=7430 TAD C3542 / @@3530=1342 DCA D3541 / @@3531=3341 SZL / @@3532=7430 CMA / @@3533=7040 DCA D0044 / @@3534=3044 TAD D0044 / @@3535=1044 CMA / @@3536=7040 DCA D0045 / @@3537=3045 JMP I S3512 / return @@3540=5712 D3541, 0001 / AND L0001 C3542, C3542, 0003 / AND L0003 *3600 L3600, CLA CLL CMA / AC = 7777 (-0001) @@3600=7340 AND L0041 / @@3601=0041 DCA D3746 / @@3602=3346 CMA / @@3603=7040 AND L0041 / @@3604=0041 CMA / @@3605=7040 DCA D3747 / @@3606=3347 CMA / @@3607=7040 AND C0103 / @@3610=0103 DCA D3752 / @@3611=3352 L3612, CMA / @@3612=7040 AND D3752 / @@3613=0352 CMA / @@3614=7040 DCA D3753 / @@3615=3353 CMA / @@3616=7040 AND D3746 / @@3617=0346 AND D3752 / @@3620=0352 SZA / @@3621=7440 JMP L3632 / @@3622=5232 CMA / @@3623=7040 AND D3746 / @@3624=0346 JMS S3701 / @@3625=4301 CMA / @@3626=7040 AND D3747 / @@3627=0347 DCA D3751 / @@3630=3351 JMP L3640 / @@3631=5240 L3632, STA / AC = 7777 (-0001) @@3632=7240 AND D3747 / @@3633=0347 JMS S3715 / @@3634=4315 CMA / @@3635=7040 AND D3746 / @@3636=0346 DCA D3751 / @@3637=3351 L3640, CLA CLL CMA / AC = 7777 (-0001) @@3640=7340 AND D3750 / @@3641=0350 TAD D3751 / @@3642=1351 SZL / @@3643=7430 IAC / @@3644=7001 JMS I C0064 / long call to S3017 @@3645=4464 JMS I C0063 / long call to S3730 @@3646=4463 SKP / @@3647=7410 JMS I C3756 / long call to S4000 @@3650=4756 JMS I C0067 / long call to S3046 @@3651=4467 JMP L3640 / @@3652=5240 JMP L3654 / @@3653=5254 L3654, CLA CLL CMA / AC = 7777 (-0001) @@3654=7340 AND D3751 / @@3655=0351 TAD D3750 / @@3656=1350 SZL / @@3657=7430 IAC / @@3660=7001 JMS I C0064 / long call to S3017 @@3661=4464 JMS I C0063 / long call to S3730 @@3662=4463 SKP / @@3663=7410 JMS I C3756 / long call to S4000 @@3664=4756 JMS I C0067 / long call to S3046 @@3665=4467 JMP L3654 / @@3666=5254 CLA CLL CMA / AC = 7777 (-0001) @@3667=7340 AND D3752 / @@3670=0352 RAR / @@3671=7010 DCA D3752 / @@3672=3352 SNL / @@3673=7420 JMP L3612 / @@3674=5212 JMS I C0067 / long call to S3046 @@3675=4467 JMP L3600 / @@3676=5200 JMP I C3700 / long jump to L4200 @@3677=5700 C3700, C3700, 4200 / JMS L3600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3701 / / Called from: / 3625 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3701, 0 / return area AND D3753 / @@3702=0353 CMA / @@3703=7040 DCA D3754 / @@3704=3354 CMA / @@3705=7040 AND D3747 / @@3706=0347 AND D3752 / @@3707=0352 CMA / @@3710=7040 AND D3754 / @@3711=0354 CMA / @@3712=7040 DCA D3750 / @@3713=3350 JMP I S3701 / return @@3714=5701 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3715 / / Called from: / 3634 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3715, 0 / return area AND D3752 / @@3716=0352 CMA / @@3717=7040 DCA D3754 / @@3720=3354 CMA / @@3721=7040 AND D3746 / @@3722=0346 AND D3753 / @@3723=0353 CMA / @@3724=7040 AND D3754 / @@3725=0354 DCA D3750 / @@3726=3350 JMP I S3715 / return @@3727=5715 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3730 / / Called from: / 3646 3662 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3730, 0 / return area CMA / @@3731=7040 DCA D3755 / @@3732=3355 CMA / @@3733=7040 AND D0025 / @@3734=0025 AND D3753 / @@3735=0353 D3736, 7440 / SZA JMP L3744 / @@3737=5344 CMA / @@3740=7040 AND D3752 / @@3741=0352 AND D3755 / @@3742=0355 SZA / @@3743=7440 L3744, ISZ S3730 / @@3744=2330 JMP I S3730 / return @@3745=5730 D3746, 0000 / AND L0000 D3747, 0000 / AND L0000 D3750, 0000 / AND L0000 D3751, 0000 / AND L0000 D3752, 0000 / AND L0000 D3753, 0000 / AND L0000 D3754, 0000 / AND L0000 D3755, 0000 / AND L0000 C3756, C3756, 4000 / JMS L0000 *4000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4000 / / Called from: / 3650 3664 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4000, 0 / return area LAS / @@4001=7604 AND C0104 / @@4002=0104 SZA CLA / @@4003=7640 JMP L4033 / @@4004=5233 C4005, C4005, 4446 / JMS I D0046 JMP I C4005 / long jump to L4446 @@4006=5605 JMS I D0046 / long call to S1600 @@4007=4446 C4010, 5364 / JMP C4164 CLA CLL CMA / AC = 7777 (-0001) @@4011=7340 AND I C4177 / @@4012=0777 DCA D0037 / @@4013=3037 JMS I C0061 / long call to S0523 @@4014=4461 CMA / @@4015=7040 AND I C4176 / @@4016=0776 DCA D0037 / @@4017=3037 JMS I C0061 / long call to S0523 @@4020=4461 CMA / @@4021=7040 C4022, 0775 / AND I C4175 DCA D0037 / @@4023=3037 D4024, 4461 / JMS I C0061 CMA / @@4025=7040 AND D0025 / @@4026=0025 DCA D0037 / @@4027=3037 JMS I C0061 / long call to S0523 @@4030=4461 JMS I D0046 / long call to S1600 @@4031=4446 C4032, 5742 / JMP I C4142 L4033, LAS / @@4033=7604 AND C0103 / @@4034=0103 SZA CLA / @@4035=7640 JMP I S4000 / return @@4036=5600 CLA CLL / AC = 0000 @@4037=7300 C4040, 1200 / TAD S4000 HLT / @@4041=7402 JMP I S4000 / return @@4042=5600 *4175 C4175, 3752 / DCA I C4152 C4176, 3751 / DCA I C4151 C4177, 3750 / DCA I C4150 *4200 L4200, CLA CLL / AC = 0000 @@4200=7300 TAD D0044 / @@4201=1044 SZA / @@4202=7440 CLA CML / @@4203=7220 TAD L0041 / @@4204=1041 RAR / @@4205=7010 RAR / @@4206=7010 RAR / @@4207=7010 RAR / @@4210=7010 RAR / @@4211=7010 RAR / @@4212=7010 RAR / @@4213=7010 RAR / @@4214=7010 RAR / @@4215=7010 RAR / @@4216=7010 RAR / @@4217=7010 RAR / @@4220=7010 RAR / @@4221=7010 RAR / @@4222=7010 RAR / @@4223=7010 RAR / @@4224=7010 RAR / @@4225=7010 RAR / @@4226=7010 RAR / @@4227=7010 RAR / @@4230=7010 RAR / @@4231=7010 RAR / @@4232=7010 RAR / @@4233=7010 RAR / @@4234=7010 RAR / @@4235=7010 RAR / @@4236=7010 NOP / @@4237=7000 NOP / @@4240=7000 JMS I C0064 / long call to S3017 @@4241=4464 TAD D0043 / @@4242=1043 SZA CLA / @@4243=7640 JMP L4250 / @@4244=5250 TAD D0044 / @@4245=1044 DCA D0037 / @@4246=3037 TAD L0026 / @@4247=1026 L4250, DCA D0040 / @@4250=3040 JMS I C0062 / long call to S3000 @@4251=4462 JMS I C4335 / long call to S5000 @@4252=4735 JMS I C0067 / long call to S3046 @@4253=4467 JMP L4200 / @@4254=5200 L4255, CLA CLL / AC = 0000 @@4255=7300 TAD D0044 / @@4256=1044 SZA / @@4257=7440 CLA CML / @@4260=7220 TAD L0041 / @@4261=1041 RAL / @@4262=7004 RAL / @@4263=7004 RAL / @@4264=7004 RAL / @@4265=7004 RAL / @@4266=7004 RAL / @@4267=7004 RAL / @@4270=7004 RAL / @@4271=7004 RAL / @@4272=7004 RAL / @@4273=7004 RAL / @@4274=7004 RAL / @@4275=7004 RAL / @@4276=7004 RAL / @@4277=7004 RAL / @@4300=7004 RAL / @@4301=7004 RAL / @@4302=7004 RAL / @@4303=7004 RAL / @@4304=7004 RAL / @@4305=7004 RAL / @@4306=7004 RAL / @@4307=7004 RAL / @@4310=7004 RAL / @@4311=7004 RAL / @@4312=7004 RAL / @@4313=7004 NOP / @@4314=7000 NOP / @@4315=7000 JMS I C0064 / long call to S3017 @@4316=4464 TAD D0043 / @@4317=1043 SZA / @@4320=7440 JMP L4325 / @@4321=5325 TAD D0044 / @@4322=1044 DCA D0037 / @@4323=3037 TAD L0026 / @@4324=1026 L4325, DCA D0040 / @@4325=3040 JMS I C0062 / long call to S3000 @@4326=4462 JMS I C4334 / long call to S5013 @@4327=4734 JMS I C0067 / long call to S3046 @@4330=4467 JMP L4255 / @@4331=5255 JMP I C4333 / long jump to L4400 @@4332=5733 C4333, C4333, 4400 / JMS I L0000 C4334, C4334, 5013 / JMP AI3 C4335, C4335, 5000 / JMP L0000 *4400 L4400, C4400, 7300 / CLA CLL TAD D0044 / @@4401=1044 SZA / @@4402=7440 CLA CML / @@4403=7220 TAD L0041 / @@4404=1041 RTL / @@4405=7006 RTL / @@4406=7006 RTL / @@4407=7006 RTL / @@4410=7006 RTL / @@4411=7006 RTL / @@4412=7006 RTL / @@4413=7006 RTL / @@4414=7006 RTL / @@4415=7006 RTL / @@4416=7006 RTL / @@4417=7006 RTL / @@4420=7006 RTL / @@4421=7006 RTL / @@4422=7006 RTL / @@4423=7006 RTL / @@4424=7006 RTL / @@4425=7006 RTL / @@4426=7006 RTL / @@4427=7006 RTL / @@4430=7006 RTL / @@4431=7006 RTL / @@4432=7006 RTL / @@4433=7006 RTL / @@4434=7006 RTL / @@4435=7006 RTL / @@4436=7006 NOP / @@4437=7000 NOP / @@4440=7000 JMS I C0064 / long call to S3017 @@4441=4464 TAD D0043 / @@4442=1043 SZA / @@4443=7440 JMP L4450 / @@4444=5250 TAD D0044 / @@4445=1044 L4446, DCA D0037 / @@4446=3037 TAD L0026 / @@4447=1026 L4450, DCA D0040 / @@4450=3040 JMS I C0062 / long call to S3000 @@4451=4462 JMS I C4571 / long call to S5041 @@4452=4771 JMS I C0067 / long call to S3046 @@4453=4467 JMP L4400 / @@4454=5200 L4455, CLA CLL / AC = 0000 @@4455=7300 TAD D0044 / @@4456=1044 SZA / @@4457=7440 L4460, CLA CML / @@4460=7220 TAD L0041 / @@4461=1041 RTR / @@4462=7012 RTR / @@4463=7012 RTR / @@4464=7012 RTR / @@4465=7012 RTR / @@4466=7012 RTR / @@4467=7012 RTR / @@4470=7012 RTR / @@4471=7012 RTR / @@4472=7012 RTR / @@4473=7012 RTR / @@4474=7012 RTR / @@4475=7012 RTR / @@4476=7012 RTR / @@4477=7012 RTR / @@4500=7012 RTR / @@4501=7012 RTR / @@4502=7012 RTR / @@4503=7012 RTR / @@4504=7012 RTR / @@4505=7012 RTR / @@4506=7012 RTR / @@4507=7012 RTR / @@4510=7012 RTR / @@4511=7012 RTR / @@4512=7012 RTR / @@4513=7012 NOP / @@4514=7000 NOP / @@4515=7000 JMS I C0064 / long call to S3017 @@4516=4464 TAD D0043 / @@4517=1043 SZA / @@4520=7440 JMP L4525 / @@4521=5325 TAD D0044 / @@4522=1044 DCA D0037 / @@4523=3037 TAD L0026 / @@4524=1026 L4525, DCA D0040 / @@4525=3040 JMS I C0062 / long call to S3000 @@4526=4462 JMS I C4570 / long call to S5026 @@4527=4770 JMS I C0067 / long call to S3046 @@4530=4467 JMP L4455 / @@4531=5255 ISZ D0020 / @@4532=2020 JMP L4566 / @@4533=5366 LAS / @@4534=7604 C4535, C4535, 0115 / AND L0115 SNA CLA / @@4536=7650 JMP L4563 / @@4537=5363 L4540, LAS / @@4540=7604 AND C0114 / @@4541=0114 SZA CLA / @@4542=7640 HLT / @@4543=7402 LAS / @@4544=7604 AND C0116 / @@4545=0116 SZA CLA / @@4546=7640 JMP L4566 / @@4547=5366 L4550, LAS / @@4550=7604 AND C0173 / @@4551=0173 CLL RAR / @@4552=7110 RTR / @@4553=7012 DCA D0175 / @@4554=3175 LAS / @@4555=7604 AND C0107 / @@4556=0107 SZA CLA / @@4557=7640 JMP I C4572 / long jump to L4600 @@4560=5772 JMP I C4562 / long jump to L0200 @@4561=5762 C4562, C4562, 0200 / AND L4400 L4563, JMS I D0046 / long call to S1600 @@4563=4446 JMP I C4535 / long jump to L0115 @@4564=5735 JMP L4540 / @@4565=5340 L4566, JMP I C4567 / long jump to L3400 @@4566=5767 C4567, C4567, 3400 / DCA I L0000 C4570, C4570, 5026 / JMP L0026 C4571, C4571, 5041 / JMP L0041 C4572, C4572, 4600 / JMS I L4400 *4600 L4600, C4600, 4231 / JMS S4631 JMS S4664 / @@4601=4264 CLA CLL CMA RTL / AC = 7775 (-0003) @@4602=7346 JMS S4741 / @@4603=4341 JMS S4731 / @@4604=4331 JMS S4752 / @@4605=4352 JMS I D0046 / long call to S1600 @@4606=4446 JMP I C4755 / long jump to L1077 @@4607=5755 JMS S4760 / @@4610=4360 JMS S4731 / @@4611=4331 CLA CLL CMA RAL / AC = 7776 (-0002) @@4612=7344 JMS S4741 / @@4613=4341 TAD D0175 / @@4614=1175 CIA / @@4615=7041 TAD D0174 / @@4616=1174 SNA CLA / @@4617=7650 JMP L4623 / @@4620=5223 CLA HLT / @@4621=7602 JMP I C4770 / long jump to L4550 @@4622=5770 L4623, TAD D4714 / @@4623=1314 TAD L0115 / @@4624=1115 DCA D4626 / @@4625=3226 D4626, 0000 / AND L0000 JMP I C4630 / long jump to L0200 @@4627=5630 C4630, C4630, 0200 / AND L4600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4631 / / Never called //////////////////////////////////////////////////////////////////////////////// S4631, 0 / return area CLA CLL / AC = 0000 @@4632=7300 DCA D0174 / @@4633=3174 TAD C4771 / @@4634=1371 DCA D0176 / @@4635=3176 CDF0 / Change to data field 0. The data fie @@4636=6201 DCA I C0171 / @@4637=3571 TAD C4772 / @@4640=1372 L4641, TAD C0113 / @@4641=1113 DCA D4643 / @@4642=3243 D4643, 0000 / AND L0000 CLA CLL CMA / AC = 7777 (-0001) @@4644=7340 DCA I C0171 / @@4645=3571 TAD I C0171 / @@4646=1571 SNA CLA / @@4647=7650 JMP L4655 / @@4650=5255 ISZ D0174 / @@4651=2174 TAD D4643 / @@4652=1243 ISZ D0176 / @@4653=2176 JMP L4641 / @@4654=5241 L4655, CLA CLL / AC = 0000 @@4655=7300 CDF0 / Change to data field 0. The data fie @@4656=6201 TAD I C0171 / @@4657=1571 SNA CLA / @@4660=7650 JMP I S4631 / return @@4661=5631 CLA HLT / @@4662=7602 JMP L4674 / @@4663=5274 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4664 / / Called from: / 4601 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4664, 0 / return area CLA CLL / AC = 0000 @@4665=7300 DCA D0176 / @@4666=3176 RIF / Same as RDF except reads the instruc @@4667=6224 TAD C0113 / @@4670=1113 AND C4775 / @@4671=0375 DCA L4712 / @@4672=3312 CLA CLL IAC / AC = 0001 @@4673=7301 L4674, TAD D0174 / @@4674=1174 RAL / @@4675=7004 RTL / @@4676=7006 CIA / @@4677=7041 TAD L4712 / @@4700=1312 SNL CLA / @@4701=7620 TAD L4712 / @@4702=1312 TAD C4772 / @@4703=1372 DCA D4714 / @@4704=3314 RIF / Same as RDF except reads the instruc @@4705=6224 TAD C4772 / @@4706=1372 DCA L4712 / @@4707=3312 TAD L4712 / @@4710=1312 DCA D4717 / @@4711=3317 L4712, D4712, 0000 / AND L0000 TAD I D0176 / @@4713=1576 D4714, 0000 / AND L0000 DCA I D0176 / @@4715=3576 TAD I D0176 / @@4716=1576 D4717, 0000 / AND L0000 CIA / @@4720=7041 TAD I D0176 / @@4721=1576 SNA CLA / @@4722=7650 JMP L4726 / @@4723=5326 CLA HLT / @@4724=7602 JMP L4712 / @@4725=5312 L4726, ISZ D0176 / @@4726=2176 JMP L4712 / @@4727=5312 JMP I S4664 / return @@4730=5664 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4731 / / Called from: / 4604 4611 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4731, 0 / return area TAD C4771 / @@4732=1371 DCA D0176 / @@4733=3176 L4734, TAD C4776 / @@4734=1376 JMS I C0047 / long call to S1652 @@4735=4447 ISZ D0176 / @@4736=2176 JMP L4734 / @@4737=5334 JMP I S4731 / return @@4740=5731 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4741 / / Called from: / 4603 4613 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4741, 0 / return area DCA D0176 / @@4742=3176 L4743, TAD C4774 / @@4743=1374 JMS I C0047 / long call to S1652 @@4744=4447 TAD C4773 / @@4745=1373 JMS I C0047 / long call to S1652 @@4746=4447 ISZ D0176 / @@4747=2176 JMP L4743 / @@4750=5343 JMP I S4741 / return @@4751=5741 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4752 / / Called from: / 4605 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4752, 0 / return area TAD D0174 / @@4753=1174 AND C0172 / @@4754=0172 C4755, C4755, 1077 / TAD C0077 JMS I C0047 / long call to S1652 @@4756=4447 JMP I S4752 / return @@4757=5752 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4760 / / Called from: / 4610 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4760, 0 / return area TAD D4714 / @@4761=1314 AND C0173 / @@4762=0173 RAR / @@4763=7010 RTR / @@4764=7012 TAD C0077 / @@4765=1077 JMS I C0047 / long call to S1652 @@4766=4447 JMP I S4760 / return @@4767=5760 C4770, C4770, 4550 / JMS I C0150 C4771, 7771 / CLA MQA SCA MQL NMI C4772, 6201 / CDF0 C4773, 0212 / AND C4612 C4774, 0215 / AND C4615 C4775, 0170 / AND C0170 C4776, 0252 / AND C4652 *5000 C5000, 0000 / AND L0000 LAS / @@5001=7604 AND C0104 / @@5002=0104 SZA CLA / @@5003=7640 JMP L5010 / @@5004=5210 JMS I D0046 / long call to S1600 @@5005=4446 JMP I C5025 / long jump to L5253 @@5006=5625 JMS S5064 / @@5007=4264 L5010, CLA CLL / AC = 0000 @@5010=7300 TAD C5000 / @@5011=1200 JMP L5053 / @@5012=5253 C5013, 0000 / AND L0000 LAS / @@5014=7604 AND C0104 / @@5015=0104 SZA CLA / @@5016=7640 JMP L5023 / @@5017=5223 JMS I D0046 / long call to S1600 @@5020=4446 JMP I C5044 / long jump to L7640 @@5021=5644 JMS S5064 / @@5022=4264 L5023, CLA CLL / AC = 0000 @@5023=7300 TAD C5013 / @@5024=1213 C5025, C5025, 5253 / JMP L5053 C5026, 0000 / AND L0000 LAS / @@5027=7604 AND C0104 / @@5030=0104 SZA CLA / @@5031=7640 JMP L5036 / @@5032=5236 JMS I D0046 / long call to S1600 @@5033=4446 JMP I D5063 / long jump to L0000 @@5034=5663 JMS S5064 / @@5035=4264 L5036, CLA CLL / AC = 0000 @@5036=7300 TAD C5026 / @@5037=1226 JMP L5053 / @@5040=5253 C5041, 0000 / AND L0000 LAS / @@5042=7604 AND C0104 / @@5043=0104 C5044, C5044, 7640 / SZA CLA JMP L5051 / @@5045=5251 JMS I D0046 / long call to S1600 @@5046=4446 JMP I C5102 / long jump to L4460 @@5047=5702 JMS S5064 / @@5050=4264 L5051, CLA CLL / AC = 0000 @@5051=7300 TAD C5041 / @@5052=1241 L5053, DCA D5063 / @@5053=3263 LAS / @@5054=7604 AND C0103 / @@5055=0103 SZA CLA / @@5056=7640 JMP L5062 / @@5057=5262 TAD D5063 / @@5060=1263 HLT / @@5061=7402 L5062, JMP I D5063 / long jump to L0000 @@5062=5663 D5063, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5064 / / Called from: / 5007 5022 5035 5050 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S5064, 0 / return area JMS I D0046 / long call to S1600 @@5065=4446 C5066, 5347 / JMP C5147 CLA CLL CMA / AC = 7777 (-0001) @@5067=7340 AND D0044 / @@5070=0044 DCA D0040 / @@5071=3040 CMA / @@5072=7040 AND L0041 / @@5073=0041 DCA D0037 / @@5074=3037 JMS I C0060 / long call to S0504 @@5075=4460 JMS I C0061 / long call to S0523 @@5076=4461 CMA / @@5077=7040 AND L0026 / @@5100=0026 DCA D0040 / @@5101=3040 C5102, C5102, 4460 / JMS I C0060 CMA / @@5103=7040 AND D0025 / @@5104=0025 DCA D0037 / @@5105=3037 JMS I C0061 / long call to S0523 @@5106=4461 JMS I D0046 / long call to S1600 @@5107=4446 C5110, 5742 / JMP I C5142 JMP I S5064 / return @@5111=5664 *5200 C5200, 3736 / DCA I C5336 D5201, 4040 / JMS D0040 C5202, 4001 / JMS L0001 ISZ D5207 / @@5203=2207 C5204, 6140 / 6140 D5205, 4040 / JMS D0040 JMS D0040 / @@5206=4040 D5207, 4040 / JMS D0040 JMS D0040 / @@5210=4040 D5211, 0122 / AND C0122 AND I C5362 / @@5212=0762 JMS D0040 / @@5213=4040 JMS D0040 / @@5214=4040 JMS D0040 / @@5215=4040 C5216, 4040 / JMS D0040 JMS D0023 / @@5217=4023 TAD L0115 / @@5220=1115 ISZ I C0114 / @@5221=2514 AND C0124 / @@5222=0124 AND I C0104 / @@5223=0504 JMS D0040 / @@5224=4040 JMS D0040 / @@5225=4040 JMS D0040 / @@5226=4040 C5227, 4001 / JMS L0001 ISZ D5207 / @@5230=2207 C5231, 6153 / 6153 AND C0122 / @@5232=0122 AND I C5362 / @@5233=0762 JMS D0040 / @@5234=4040 JMS D0040 / @@5235=4040 C5236, 4001 / JMS L0001 ISZ D5207 / @@5237=2207 C5240, 6253 / 6253 AND C0122 / @@5241=0122 AND I C5361 / @@5242=0761 DCA I C5336 / @@5243=3736 AND L0000 / @@5244=0000 DCA I C5336 / @@5245=3736 JMS D0040 / @@5246=4040 JMS D0040 / @@5247=4040 C5250, 4017 / JMS AI7 ISZ D5211 / @@5251=2211 AND I C5311 / @@5252=0711 L5253, TAD I D5201 / @@5253=1601 TAD I D0040 / @@5254=1440 JMS D0040 / @@5255=4040 JMS D0040 / @@5256=4040 JMS D0023 / @@5257=4023 TAD L0115 / @@5260=1115 ISZ I C0114 / @@5261=2514 AND C0124 / @@5262=0124 AND I C0104 / @@5263=0504 JMS D0040 / @@5264=4040 JMS D0040 / @@5265=4040 JMS D0040 / @@5266=4040 C5267, 4001 / JMS L0001 AND C5324 / @@5270=0324 ISZ I L0101 / @@5271=2501 TAD I D0037 / @@5272=1437 DCA I C5200 / @@5273=3600 DCA I C5336 / @@5274=3736 ISZ D5201 / @@5275=2201 TAD I C5204 / @@5276=1604 AND D0140 / @@5277=0140 JMS D0040 / @@5300=4040 JMS D0040 / @@5301=4040 JMS D0040 / @@5302=4040 C5303, 4022 / JMS C0022 AND C0116 / @@5304=0116 AND I L0003 / @@5305=0403 JMS D0040 / @@5306=4040 JMS D0040 / @@5307=4040 JMS D0040 / @@5310=4040 C5311, 4040 / JMS D0040 ISZ D5205 / @@5312=2205 ISZ D5325 / @@5313=2325 TAD I D0024 / @@5314=1424 DCA I C5336 / @@5315=3736 AND L0000 / @@5316=0000 DCA I C5336 / @@5317=3736 ISZ D5201 / @@5320=2201 TAD I C5204 / @@5321=1604 C5322, 0140 / AND D0140 JMS D0040 / @@5323=4040 C5324, 4040 / JMS D0040 D5325, 4040 / JMS D0040 JMS S0002 / @@5326=4002 C5327, 2017 / ISZ AI7 ISZ D5340 / @@5330=2340 JMS D0040 / @@5331=4040 JMS D0040 / @@5332=4040 JMS D0040 / @@5333=4040 JMS D0040 / @@5334=4040 AND C5216 / @@5335=0216 C5336, 0507 / AND I C0107 JMS D0040 / @@5337=4040 D5340, 4040 / JMS D0040 JMS D0040 / @@5341=4040 JMS D0040 / @@5342=4040 C5343, 4022 / JMS C0022 AND I C0123 / @@5344=0523 ISZ I C0114 / @@5345=2514 ISZ I D0037 / @@5346=2437 DCA I C5200 / @@5347=3600 DCA I C5336 / @@5350=3736 TAD I C5322 / @@5351=1722 TAD C0107 / @@5352=1107 TAD C0116 / @@5353=1116 AND C0114 / @@5354=0114 JMS D0040 / @@5355=4040 JMS D0040 / @@5356=4040 JMS D0040 / @@5357=4040 AND C0103 / @@5360=0103 C5361, 2425 / ISZ I D0025 C5362, 0114 / AND C0114 DCA I C5336 / @@5363=3736 AND L0000 / @@5364=0000 DCA I C5336 / @@5365=3736 JMS D0040 / @@5366=4040 JMS D0040 / @@5367=4040 AND C0122 / @@5370=0122 AND I C5361 / @@5371=0761 JMS D0040 / @@5372=4040 JMS D0040 / @@5373=4040 JMS D0040 / @@5374=4040 JMS D0040 / @@5375=4040 C5376, 4001 / JMS L0001 ISZ D5207 / @@5377=2207 C5400, 6240 / 6240 C5401, 4040 / JMS D0040 JMS D0040 / @@5402=4040 JMS D0040 / @@5403=4040 AND I C0130 / @@5404=0530 C5405, 2005 / ISZ C0005 AND C5524 / @@5406=0324 AND I C0104 / @@5407=0504 JMS D0040 / @@5410=4040 JMS D0040 / @@5411=4040 JMS D0040 / @@5412=4040 AND C0103 / @@5413=0103 ISZ I D0025 / @@5414=2425 AND C0114 / @@5415=0114 DCA I C5536 / @@5416=3736 AND L0000 / @@5417=0000 DCA I C5536 / @@5420=3736 JMS D0040 / @@5421=4040 JMS D0040 / @@5422=4040 JMS D0023 / @@5423=4023 TAD L0115 / @@5424=1115 ISZ I C0114 / @@5425=2514 AND C0124 / @@5426=0124 AND I C0104 / @@5427=0504 C5430, 4001 / JMS L0001 AND I S0004 / @@5431=0404 JMS D0024 / @@5432=4024 AND I C0123 / @@5433=0523 ISZ I D0040 / @@5434=2440 AND I C5401 / @@5435=0601 TAD C0114 / @@5436=1114 AND I C0104 / @@5437=0504 AND L0000 / @@5440=0000 DCA I C5536 / @@5441=3736 JMS D0040 / @@5442=4040 JMS D0040 / @@5443=4040 JMS D0023 / @@5444=4023 TAD L0115 / @@5445=1115 ISZ I C0114 / @@5446=2514 AND C0124 / @@5447=0124 AND I C0104 / @@5450=0504 C5451, 4022 / JMS C0022 AND C0114 / @@5452=0114 JMS D0024 / @@5453=4024 AND I C0123 / @@5454=0523 ISZ I D0040 / @@5455=2440 AND I C5401 / @@5456=0601 TAD C0114 / @@5457=1114 AND I C0104 / @@5460=0504 AND L0000 / @@5461=0000 DCA I C5536 / @@5462=3736 JMS D0040 / @@5463=4040 JMS D0040 / @@5464=4040 JMS D0023 / @@5465=4023 TAD L0115 / @@5466=1115 ISZ I C0114 / @@5467=2514 AND C0124 / @@5470=0124 AND I C0104 / @@5471=0504 C5472, 4022 / JMS C0022 AND C0122 / @@5473=0122 JMS D0024 / @@5474=4024 AND I C0123 / @@5475=0523 ISZ I D0040 / @@5476=2440 AND I C5401 / @@5477=0601 TAD C0114 / @@5500=1114 AND I C0104 / @@5501=0504 AND L0000 / @@5502=0000 DCA I C5536 / @@5503=3736 JMS D0040 / @@5504=4040 JMS D0040 / @@5505=4040 JMS D0023 / @@5506=4023 TAD L0115 / @@5507=1115 ISZ I C0114 / @@5510=2514 AND C0124 / @@5511=0124 AND I C0104 / @@5512=0504 C5513, 4022 / JMS C0022 C5514, 2414 / ISZ I AI4 JMS D0024 / @@5515=4024 AND I C0123 / @@5516=0523 ISZ I D0040 / @@5517=2440 AND I C5401 / @@5520=0601 TAD C0114 / @@5521=1114 AND I C0104 / @@5522=0504 AND L0000 / @@5523=0000 C5524, 3736 / DCA I C5536 JMS D0040 / @@5525=4040 JMS D0040 / @@5526=4040 D5527, 4023 / JMS D0023 TAD L0115 / @@5530=1115 ISZ I C0114 / @@5531=2514 AND C0124 / @@5532=0124 AND I C0104 / @@5533=0504 C5534, 4022 / JMS C0022 ISZ I C0022 / @@5535=2422 C5536, 4024 / JMS D0024 AND I C0123 / @@5537=0523 ISZ I D0040 / @@5540=2440 AND I C5401 / @@5541=0601 TAD C0114 / @@5542=1114 AND I C0104 / @@5543=0504 AND L0000 / @@5544=0000 DCA I C5536 / @@5545=3736 JMS D0040 / @@5546=4040 JMS D0040 / @@5547=4040 JMS D0023 / @@5550=4023 TAD L0115 / @@5551=1115 ISZ I C0114 / @@5552=2514 AND C0124 / @@5553=0124 AND I C0104 / @@5554=0504 JMS S0002 / @@5555=4002 ISZ D5527 / @@5556=2327 JMS D0024 / @@5557=4024 AND I C0123 / @@5560=0523 ISZ I D0040 / @@5561=2440 AND I C5401 / @@5562=0601 TAD C0114 / @@5563=1114 AND I C0104 / @@5564=0504 AND L0000 / @@5565=0000 DCA I C5536 / @@5566=3736 JMS D0040 / @@5567=4040 JMS D0040 / @@5570=4040 C5571, 4022 / JMS C0022 AND C0116 / @@5572=0116 C5573, 0417 / AND I AI7 TAD I D0140 / @@5574=1540 AND C0104 / @@5575=0104 AND I D0040 / @@5576=0440 C5577, 2405 / ISZ I C0005 C5600, 2324 / ISZ D5724 D5601, 4061 / JMS C0061 C5602, 4006 / JMS C0006 C5603, 0111 / AND C0111 C5604, 1405 / TAD I C0005 AND I L0000 / @@5605=0400 DCA I C5736 / @@5606=3736 JMS D0040 / @@5607=4040 JMS D0040 / @@5610=4040 C5611, 4022 / JMS C0022 AND C0116 / @@5612=0116 C5613, 0417 / AND I AI7 TAD I D0140 / @@5614=1540 AND C0104 / @@5615=0104 AND I D0040 / @@5616=0440 D5617, 2405 / ISZ I C0005 ISZ D5724 / @@5620=2324 C5621, 4062 / JMS C0062 C5622, 4006 / JMS C0006 AND C0111 / @@5623=0111 D5624, 1405 / TAD I C0005 AND I L0000 / @@5625=0400 DCA I C5736 / @@5626=3736 JMS D0040 / @@5627=4040 JMS D0040 / @@5630=4040 C5631, 4022 / JMS C0022 AND C0116 / @@5632=0116 C5633, 0417 / AND I AI7 TAD I D0140 / @@5634=1540 ISZ D5601 / @@5635=2201 ISZ D5640 / @@5636=2240 D5637, 2405 / ISZ I C0005 D5640, 2324 / ISZ D5724 C5641, 4006 / JMS C0006 AND C0111 / @@5642=0111 C5643, 1405 / TAD I C0005 AND I L0000 / @@5644=0400 DCA I C5736 / @@5645=3736 JMS D0040 / @@5646=4040 JMS D0040 / @@5647=4040 C5650, 4022 / JMS C0022 AND C0116 / @@5651=0116 C5652, 0417 / AND I AI7 TAD I D0140 / @@5653=1540 ISZ D5601 / @@5654=2201 TAD I D0040 / @@5655=1440 C5656, 2405 / ISZ I C0005 ISZ D5724 / @@5657=2324 C5660, 4006 / JMS C0006 AND C0111 / @@5661=0111 C5662, 1405 / TAD I C0005 AND I L0000 / @@5663=0400 DCA I C5736 / @@5664=3736 JMS D0040 / @@5665=4040 JMS D0040 / @@5666=4040 C5667, 4022 / JMS C0022 AND C0116 / @@5670=0116 C5671, 0417 / AND I AI7 TAD I D0140 / @@5672=1540 ISZ D5624 / @@5673=2224 TAD I D0040 / @@5674=1440 C5675, 2405 / ISZ I C0005 ISZ D5724 / @@5676=2324 C5677, 4006 / JMS C0006 AND C0111 / @@5700=0111 C5701, 1405 / TAD I C0005 AND I L0000 / @@5702=0400 DCA I C5736 / @@5703=3736 JMS D0040 / @@5704=4040 JMS D0040 / @@5705=4040 C5706, 4022 / JMS C0022 AND C0116 / @@5707=0116 C5710, 0417 / AND I AI7 D5711, 1540 / TAD I D0140 ISZ D5624 / @@5712=2224 ISZ D5640 / @@5713=2240 C5714, 2405 / ISZ I C0005 C5715, 2324 / ISZ D5724 C5716, 4006 / JMS C0006 AND C0111 / @@5717=0111 C5720, 1405 / TAD I C0005 AND I L0000 / @@5721=0400 C5722, 3736 / DCA I C5736 ISZ D5711 / @@5723=2311 D5724, 1501 / TAD I L0101 AND I L0000 / @@5725=0400 DCA I C5736 / @@5726=3736 ISZ D5711 / @@5727=2311 TAD I C0122 / @@5730=1522 TAD I D5724 / @@5731=1724 AND L0000 / @@5732=0000 DCA I C5736 / @@5733=3736 AND I C5603 / @@5734=0603 ISZ I L0000 / @@5735=2400 C5736, 3736 / DCA I C5736 ISZ D5601 / @@5737=2201 D5740, 1604 / TAD I C5604 TAD I C5715 / @@5741=1715 AND L0000 / @@5742=0000 DCA I C5736 / @@5743=3736 AND L0000 / @@5744=0000 DCA I C5736 / @@5745=3736 JMS S0004 / @@5746=4004 AND C0124 / @@5747=0124 AND D0140 / @@5750=0140 AND I C0122 / @@5751=0522 ISZ D5617 / @@5752=2217 ISZ D5637 / @@5753=2237 DCA I C5600 / @@5754=3600 C5755, 7777 / CLA MQA SCA MQL LSR + C5756, 4005 / JMS C0005 DCA D0024 / @@5757=3024 AND I C0116 / @@5760=0516 C5761, 0405 / AND I C0005 AND I D0040 / @@5762=0440 AND D5601 / @@5763=0201 TAD I C5613 / @@5764=1613 ISZ D5740 / @@5765=2340 TAD I C5706 / @@5766=1706 C5767, 4015 / JMS AI5 AND I L0115 / @@5770=0515 TAD I C5722 / @@5771=1722 DCA D0140 / @@5772=3140 C5773, 2417 / ISZ I AI7 JMS S0002 / @@5774=4002 AND C0116 / @@5775=0116 TAD D5740 / @@5776=1340 AND L0000 / @@5777=0000 *7600 CLA CLL / AC = 0000 @@7600=7300 TAD C0155 / @@7601=1155 DCA L7777 / @@7602=3377 JMP L7777 / @@7603=5377 $