TITLE "AUTOMATIC DISASSEMBLY OF maindec-8i-d0aa-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8i-d0aa-pb.bin / Generated 2010 02 19 00:10:31 / 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 / / 4310 locations used, 3352 code and 0736 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0000 / / Never called //////////////////////////////////////////////////////////////////////////////// S0000, 0 / return area L0001, C0001, 5001 / JMP L0001 C0002, 0002 / AND C0002 C0003, 0003 / AND C0003 *0010 AI0, 0000 / AUTO-INDEX REGISTER AND S0000 AI1, 0000 / AUTO-INDEX REGISTER AND S0000 AI2, 0000 / AUTO-INDEX REGISTER AND S0000 AI3, 0000 / AUTO-INDEX REGISTER AND S0000 *0020 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0020 / / Called from: / 0202 0430 0601 1001 1201 1401 1601 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S0020, 0 / return area D0021, 2125 / ISZ D0125 JMP I S0020 / return @@0022=5420 D0023, 7604 / LAS CLL RTL / @@0024=7106 D0025, 7006 / RTL SZL / @@0026=7430 D0027, 5431 / JMP I D0031 JMP I D0032 / long jump to L0000 @@0030=5432 D0031, 0000 / AND S0000 D0032, 0000 / AND S0000 C0033, 0427 / AND I D0027 C0034, 0600 / AND I S0000 D0035, 1000 / TAD S0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0036 / / Called from: / 0261 0265 0274 0512 0670 0675 0706 1272 1302 1314 2001 2005 2017 2032 2034 / 2251 2301 3401 3415 3430 3464 4401 4417 4435 4453 4462 4472 5510 / Total 0034 (28) calls //////////////////////////////////////////////////////////////////////////////// S0036, 0 / return area C0037, 7240 / STA D0040, 0130 / AND C0130 JMS S0046 / @@0041=4046 STA / AC = 7777 (-0001) @@0042=7240 D0043, 0131 / AND C0131 JMS S0046 / @@0044=4046 JMP I S0036 / return @@0045=5436 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0046 / / Called from: / 0041 0044 0070 0310 0313 0320 0325 0332 0335 0342 0345 0352 0411 0527 0735 / 0740 0745 1340 1345 1502 2060 2203 2210 2215 2224 2227 2255 2260 3065 3070 / 3073 3076 3101 3433 3436 3441 4607 4612 4615 4622 4641 4644 4647 4654 5513 / 5516 / Total 0056 (46) calls //////////////////////////////////////////////////////////////////////////////// S0046, 0 / return area TLS / Load the TTO from the content of AC4 @@0047=6046 L0050, TSF / Skip if teleprinter flag is a 1. @@0050=6041 JMP L0050 / @@0051=5050 CLA / @@0052=7200 JMP I S0046 / return @@0053=5446 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0054 / / Called from: / 0360 0404 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0054, 0 / return area C0055, 7240 / STA AND D0143 / @@0056=0143 JMS S0061 / @@0057=4061 D0060, 5454 / JMP I S0054 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0061 / / Called from: / 0057 2063 2114 2115 2120 2122 2125 2234 2264 3047 3447 3550 3561 / Total 0015 (13) calls //////////////////////////////////////////////////////////////////////////////// S0061, 0 / return area D0062, 7440 / SZA C0063, 5066 / JMP L0066 JMS S0072 / @@0064=4072 D0065, 5461 / JMP I S0061 L0066, STA / AC = 7777 (-0001) @@0066=7240 D0067, 0141 / AND C0141 JMS S0046 / @@0070=4046 D0071, 5461 / JMP I S0061 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0072 / / Called from: / 0064 0275 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0072, 0 / return area STA / AC = 7777 (-0001) @@0073=7240 D0074, 0142 / AND D0142 C0075, 4046 / JMS S0046 JMP I S0072 / return @@0076=5472 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0077 / / Called from: / 0417 0425 2016 2241 2250 2271 2300 3454 3463 3555 3566 4426 4434 4444 4452 / 4461 4471 / Total 0021 (17) calls //////////////////////////////////////////////////////////////////////////////// S0077, 0 / return area STA / AC = 7777 (-0001) @@0100=7240 C0101, 0145 / AND C0145 D0102, 3146 / DCA D0146 L0103, C0103, 2146 / ISZ D0146 C0104, 7410 / SKP D0105, 5477 / JMP I S0077 STA / AC = 7777 (-0001) @@0106=7240 AND D0147 / @@0107=0147 D0110, 7100 / CLL RAL / @@0111=7004 DCA D0147 / @@0112=3147 D0113, 7430 / SZL C0114, 5117 / JMP L0117 C0115, 4072 / JMS S0072 C0116, 5103 / JMP L0103 L0117, D0117, 7240 / STA AND C0141 / @@0120=0141 C0121, 4046 / JMS S0046 JMP L0103 / @@0122=5103 D0123, 0000 / AND S0000 D0124, 0000 / AND S0000 D0125, 0000 / AND S0000 D0126, 0000 / AND S0000 D0127, 0000 / AND S0000 C0130, 0215 / AND AI5 C0131, 0212 / AND AI2 C0132, 0315 / AND C0115 C0133, 0321 / AND C0121 C0134, 0314 / AND C0114 C0135, 0324 / AND D0124 C0136, 0240 / AND D0040 C0137, 0301 / AND C0101 C0140, 0303 / AND L0103 C0141, 0261 / AND S0061 D0142, 0260 / AND D0060 D0143, 0000 / AND S0000 C0144, 0255 / AND C0055 C0145, 7763 / CLA MQA SCA MQL SCL + D0146, 0000 / AND S0000 D0147, 0000 / AND S0000 C0150, 1200 / TAD S0000 C0151, 1400 / TAD I S0000 C0152, 0326 / AND D0126 C0153, 1600 / TAD I S0000 D0154, 0263 / AND C0063 C0155, 0262 / AND D0062 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0156 / / Called from: / 0216 0443 0616 1015 1221 1420 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S0156, 0 / return area C0157, 7240 / STA JMP I S0156 / return @@0160=5556 D0161, 0000 / AND S0000 D0162, 0000 / AND S0000 D0163, 0000 / AND S0000 D0164, 0000 / AND S0000 D0165, 0000 / AND S0000 C0166, 7764 / SMA SZA SNL CLA OSR C0167, 4000 / JMS S0000 C0170, C0170, 5400 / JMP I S0000 *0200 JMS I C0170 / long call to S5400 @@0200=4570 L0201, JMP L0247 / @@0201=5247 L0202, JMS S0020 / @@0202=4020 L0203, CLA CLL CMA CML / @@0203=7360 AND D0125 / @@0204=0125 DCA D0123 / @@0205=3123 STA / AC = 7777 (-0001) @@0206=7240 DCA D0124 / @@0207=3124 CMA / @@0210=7040 AND D0123 / @@0211=0123 MQL / @@0212=7421 DCA D0127 / @@0213=3127 SNL CLA / @@0214=7620 JMP L0367 / @@0215=5367 JMS S0156 / @@0216=4156 DCA D0126 / @@0217=3126 L0220, CMA / @@0220=7040 AND D0127 / @@0221=0127 SZA / @@0222=7440 JMP L0231 / @@0223=5231 STA / AC = 7777 (-0001) @@0224=7240 AND D0126 / @@0225=0126 SNA / @@0226=7450 JMP L0231 / @@0227=5231 JMP L0242 / @@0230=5242 L0231, LAS / @@0231=7604 CLL RTL / @@0232=7106 RAL / @@0233=7004 SZL / @@0234=7430 JMS S0260 / @@0235=4260 SMA CLA OSR / @@0236=7704 RAL / @@0237=7004 SZL / @@0240=7430 HLT / @@0241=7402 L0242, LAS / @@0242=7604 CLL RTL / @@0243=7106 SZL / @@0244=7430 JMP L0203 / @@0245=5203 JMP L0202 / @@0246=5202 L0247, CLA CLL / AC = 0000 @@0247=7300 DCA D0125 / @@0250=3125 TAD C0366 / @@0251=1366 DCA D0031 / @@0252=3031 TAD C0033 / @@0253=1033 DCA D0032 / @@0254=3032 NOP / @@0255=7000 NOP / @@0256=7000 JMP L0202 / @@0257=5202 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0260 / / Called from: / 0235 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0260, 0 / return area JMS S0036 / @@0261=4036 JMS S0305 / @@0262=4305 JMS S0315 / @@0263=4315 JMS S0322 / @@0264=4322 L0265, JMS S0036 / @@0265=4036 JMS S0327 / @@0266=4327 JMS S0337 / @@0267=4337 JMS S0327 / @@0270=4327 JMS S0354 / @@0271=4354 JMS S0347 / @@0272=4347 JMS I C0362 / long call to S0413 @@0273=4762 JMS S0036 / @@0274=4036 JMS S0072 / @@0275=4072 JMS I C0363 / long call to S0406 @@0276=4763 JMS S0337 / @@0277=4337 JMS S0327 / @@0300=4327 JMS I C0364 / long call to S0400 @@0301=4764 JMS S0347 / @@0302=4347 JMS I C0365 / long call to S0421 @@0303=4765 JMP I S0260 / return @@0304=5660 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0305 / / Called from: / 0262 0513 0671 0707 0712 1315 2010 2030 3426 4415 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S0305, 0 / return area STA / AC = 7777 (-0001) @@0306=7240 AND C0132 / @@0307=0132 JMS S0046 / @@0310=4046 STA / AC = 7777 (-0001) @@0311=7240 AND C0133 / @@0312=0133 JMS S0046 / @@0313=4046 JMP I S0305 / return @@0314=5705 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0315 / / Called from: / 0263 0514 0710 2230 2252 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S0315, 0 / return area STA / AC = 7777 (-0001) @@0316=7240 AND C0134 / @@0317=0134 JMS S0046 / @@0320=4046 JMP I S0315 / return @@0321=5715 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0322 / / Called from: / 0264 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0322, 0 / return area STA / AC = 7777 (-0001) @@0323=7240 AND C0135 / @@0324=0135 JMS S0046 / @@0325=4046 JMP I S0322 / return @@0326=5722 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0327 / / Called from: / 0266 0270 0300 0677 0700 0702 0714 1273 1276 1303 1306 1307 1320 4403 4404 / 4420 4421 4422 4427 4437 4445 4455 4464 / Total 0027 (23) calls //////////////////////////////////////////////////////////////////////////////// S0327, 0 / return area STA / AC = 7777 (-0001) @@0330=7240 AND C0136 / @@0331=0136 JMS S0046 / @@0332=4046 STA / AC = 7777 (-0001) @@0333=7240 AND C0136 / @@0334=0136 JMS S0046 / @@0335=4046 JMP I S0327 / return @@0336=5727 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0337 / / Called from: / 0267 0277 0701 1275 1317 2023 3410 3421 4410 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S0337, 0 / return area STA / AC = 7777 (-0001) @@0340=7240 AND C0137 / @@0341=0137 JMS S0046 / @@0342=4046 STA / AC = 7777 (-0001) @@0343=7240 AND C0140 / @@0344=0140 JMS S0046 / @@0345=4046 JMP I S0337 / return @@0346=5737 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0347 / / Called from: / 0272 0302 0676 0704 0711 0716 1274 1300 1304 1322 2003 2231 2235 2242 2243 / 2244 2261 2265 2272 2273 2274 3403 3442 3443 3444 3450 3455 3456 3457 3551 / 3562 4430 4440 4446 4465 / Total 0043 (35) calls //////////////////////////////////////////////////////////////////////////////// S0347, 0 / return area STA / AC = 7777 (-0001) @@0350=7240 AND C0136 / @@0351=0136 JMS S0046 / @@0352=4046 JMP I S0347 / return @@0353=5747 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0354 / / Called from: / 0271 0703 1277 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0354, 0 / return area STA / AC = 7777 (-0001) @@0355=7240 AND D0124 / @@0356=0124 DCA D0143 / @@0357=3143 JMS S0054 / @@0360=4054 JMP I S0354 / return @@0361=5754 C0362, C0362, 0413 / AND I AI3 C0363, C0363, 0406 / AND I C0006 C0364, C0364, 0400 / AND I S0000 C0365, C0365, 0421 / AND I D0021 C0366, 0201 / AND L0201 L0367, DCA D0126 / @@0367=3126 JMP L0220 / @@0370=5220 *0400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0400 / / Called from: / 0301 0715 1321 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0400, 0 / return area STA / AC = 7777 (-0001) @@0401=7240 AND D0126 / @@0402=0126 DCA D0143 / @@0403=3143 JMS S0054 / @@0404=4054 JMP I S0400 / return @@0405=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0406 / / Called from: / 0276 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0406, 0 / return area STA / AC = 7777 (-0001) @@0407=7240 AND C0144 / @@0410=0144 JMS S0046 / @@0411=4046 JMP I S0406 / return @@0412=5606 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0413 / / Called from: / 0273 1301 1313 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0413, 0 / return area STA / AC = 7777 (-0001) @@0414=7240 AND D0123 / @@0415=0123 DCA D0147 / @@0416=3147 JMS S0077 / @@0417=4077 JMP I S0413 / return @@0420=5613 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0421 / / Called from: / 0303 0717 1323 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0421, 0 / return area STA / AC = 7777 (-0001) @@0422=7240 AND D0127 / @@0423=0127 DCA D0147 / @@0424=3147 JMS S0077 / @@0425=4077 JMP I S0421 / return @@0426=5621 JMP L0456 / @@0427=5256 L0430, JMS S0020 / @@0430=4020 L0431, CLA CLL CMA / AC = 7777 (-0001) @@0431=7340 AND D0125 / @@0432=0125 DCA D0123 / @@0433=3123 DCA D0124 / @@0434=3124 CMA / @@0435=7040 AND D0123 / @@0436=0123 MQL / @@0437=7421 DCA D0127 / @@0440=3127 SNL CLA / @@0441=7620 JMP L0532 / @@0442=5332 JMS S0156 / @@0443=4156 DCA D0126 / @@0444=3126 L0445, CMA / @@0445=7040 AND D0127 / @@0446=0127 SZA / @@0447=7440 JMP L0470 / @@0450=5270 STA / AC = 7777 (-0001) @@0451=7240 AND D0126 / @@0452=0126 SZA / @@0453=7440 JMP L0470 / @@0454=5270 JMP L0501 / @@0455=5301 L0456, CLA CLL / AC = 0000 @@0456=7300 DCA D0125 / @@0457=3125 TAD C0033 / @@0460=1033 DCA D0031 / @@0461=3031 TAD C0034 / @@0462=1034 DCA D0032 / @@0463=3032 NOP / @@0464=7000 C0465, 7000 / NOP NOP / @@0466=7000 JMP L0430 / @@0467=5230 L0470, LAS / @@0470=7604 CLL RTL / @@0471=7106 RAL / @@0472=7004 SZL / @@0473=7430 JMP L0507 / @@0474=5307 LAS / @@0475=7604 CLL RAL / @@0476=7104 SZL / @@0477=7430 HLT / @@0500=7402 L0501, LAS / @@0501=7604 CLL RTL / @@0502=7106 SZL / @@0503=7430 JMP L0431 / @@0504=5231 C0505, 5230 / JMP L0430 C0506, 0475 / AND I C0075 L0507, STA / AC = 7777 (-0001) @@0507=7240 AND C0506 / @@0510=0306 DCA I C0531 / @@0511=3731 JMS S0036 / @@0512=4036 JMS I C0521 / long call to S0305 @@0513=4721 JMS I C0522 / long call to S0315 @@0514=4722 C0515, 4723 / JMS I C0523 JMS S0524 / @@0516=4324 JMP I C0520 / long jump to L0265 @@0517=5720 C0520, C0520, 0265 / AND C0465 C0521, C0521, 0305 / AND C0505 C0522, C0522, 0315 / AND C0515 AND C0522 / @@0523=0322 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0524 / / Called from: / 0516 1054 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0524, 0 / return area STA / AC = 7777 (-0001) @@0525=7240 AND C0141 / @@0526=0141 JMS S0046 / @@0527=4046 JMP I S0524 / return @@0530=5724 C0531, 0260 / AND C0460 L0532, DCA D0126 / @@0532=3126 JMP L0445 / @@0533=5245 *0600 JMP L0635 / @@0600=5235 L0601, JMS S0020 / @@0601=4020 L0602, CLA CLL CMA CML / @@0602=7360 AND D0125 / @@0603=0125 DCA D0123 / @@0604=3123 STA / AC = 7777 (-0001) @@0605=7240 DCA I D0124 / @@0606=3524 CMA / @@0607=7040 AND D0123 / @@0610=0123 MQL / @@0611=7421 MQA / @@0612=7501 DCA D0127 / @@0613=3127 SNL CLA / @@0614=7620 JMP L0747 / @@0615=5347 JMS S0156 / @@0616=4156 DCA D0126 / @@0617=3126 L0620, CMA / @@0620=7040 AND D0123 / @@0621=0123 CLL CMA / @@0622=7140 TAD D0127 / @@0623=1127 CMA / @@0624=7040 SNA / @@0625=7450 SZL / @@0626=7430 JMP L0647 / @@0627=5247 STA / AC = 7777 (-0001) @@0630=7240 AND D0126 / @@0631=0126 SNA / @@0632=7450 JMP L0647 / @@0633=5247 JMP L0662 / @@0634=5262 L0635, CLA CLL / AC = 0000 @@0635=7300 DCA D0125 / @@0636=3125 TAD C0034 / @@0637=1034 DCA D0031 / @@0640=3031 TAD D0035 / @@0641=1035 DCA D0032 / @@0642=3032 NOP / @@0643=7000 NOP / @@0644=7000 NOP / @@0645=7000 JMP L0601 / @@0646=5201 L0647, LAS / @@0647=7604 CLL RTL / @@0650=7106 RAL / @@0651=7004 SNL / @@0652=7420 JMP L0656 / @@0653=5256 JMS S0667 / @@0654=4267 JMS S0674 / @@0655=4274 L0656, LAS / @@0656=7604 CLL RAL / @@0657=7104 SZL / @@0660=7430 HLT / @@0661=7402 L0662, LAS / @@0662=7604 CLL RTL / @@0663=7106 SZL / @@0664=7430 JMP L0602 / @@0665=5202 JMP L0601 / @@0666=5201 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0667 / / Called from: / 0654 1053 1254 1453 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0667, 0 / return area JMS S0036 / @@0670=4036 JMS I C0726 / long call to S0305 @@0671=4726 JMS S0732 / @@0672=4332 JMP I S0667 / return @@0673=5667 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0674 / / Called from: / 0655 1055 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0674, 0 / return area JMS S0036 / @@0675=4036 JMS I C0724 / long call to S0347 @@0676=4724 JMS I C0721 / long call to S0327 @@0677=4721 JMS I C0721 / long call to S0327 @@0700=4721 JMS I C0722 / long call to S0337 @@0701=4722 JMS I C0721 / long call to S0327 @@0702=4721 JMS I C0723 / long call to S0354 @@0703=4723 JMS I C0724 / long call to S0347 @@0704=4724 C0705, 4725 / JMS I C0725 JMS S0036 / @@0706=4036 JMS I C0726 / long call to S0305 @@0707=4726 JMS I C0727 / long call to S0315 @@0710=4727 JMS I C0724 / long call to S0347 @@0711=4724 JMS I C0726 / long call to S0305 @@0712=4726 JMS S0742 / @@0713=4342 JMS I C0721 / long call to S0327 @@0714=4721 JMS I C0730 / long call to S0400 @@0715=4730 JMS I C0724 / long call to S0347 @@0716=4724 JMS I C0731 / long call to S0421 @@0717=4731 JMP I S0674 / return @@0720=5674 C0721, C0721, 0327 / AND C0727 C0722, C0722, 0337 / AND C0737 C0723, C0723, 0354 / AND C0754 C0724, C0724, 0347 / AND L0747 AND I AI3 / AUTO INDEX REGISTER @@0725=0413 C0726, C0726, 0305 / AND C0705 C0727, C0727, 0315 / AND C0715 C0730, C0730, 0400 / AND I S0000 C0731, C0731, 0421 / AND I D0021 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0732 / / Called from: / 0672 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0732, 0 / return area STA / AC = 7777 (-0001) @@0733=7240 AND C0137 / @@0734=0137 JMS S0046 / @@0735=4046 STA / AC = 7777 (-0001) @@0736=7240 C0737, 0135 / AND C0135 JMS S0046 / @@0740=4046 JMP I S0732 / return @@0741=5732 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0742 / / Called from: / 0713 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0742, 0 / return area STA / AC = 7777 (-0001) @@0743=7240 AND C0137 / @@0744=0137 JMS S0046 / @@0745=4046 JMP I S0742 / return @@0746=5742 L0747, C0747, 3126 / DCA D0126 JMP L0620 / @@0750=5220 *1000 C1000, 4234 / JMS C1034 L1001, JMS S0020 / @@1001=4020 L1002, CLA CLL CMA / AC = 7777 (-0001) @@1002=7340 AND D0125 / @@1003=0125 DCA D0123 / @@1004=3123 DCA D0124 / @@1005=3124 CMA / @@1006=7040 AND D0123 / @@1007=0123 MQL / @@1010=7421 MQA / @@1011=7501 DCA D0127 / @@1012=3127 SNL CLA / @@1013=7620 JMP L1072 / @@1014=5272 JMS S0156 / @@1015=4156 DCA D0126 / @@1016=3126 L1017, CMA / @@1017=7040 AND D0123 / @@1020=0123 CLL CMA / @@1021=7140 TAD D0127 / @@1022=1127 CMA / @@1023=7040 SNA / @@1024=7450 SZL / @@1025=7430 JMP L1046 / @@1026=5246 STA / AC = 7777 (-0001) @@1027=7240 AND D0126 / @@1030=0126 SZA / @@1031=7440 JMP L1046 / @@1032=5246 JMP L1062 / @@1033=5262 CLA CLL / AC = 0000 @@1034=7300 DCA D0125 / @@1035=3125 TAD D0035 / @@1036=1035 DCA D0031 / @@1037=3031 TAD C0150 / @@1040=1150 DCA D0032 / @@1041=3032 NOP / @@1042=7000 NOP / @@1043=7000 NOP / @@1044=7000 JMP L1001 / @@1045=5201 L1046, LAS / @@1046=7604 CLL RTL / @@1047=7106 RAL / @@1050=7004 SNL / @@1051=7420 JMP L1056 / @@1052=5256 JMS I C1067 / long call to S0667 @@1053=4667 JMS I C1070 / long call to S0524 @@1054=4670 JMS I C1071 / long call to S0674 @@1055=4671 L1056, LAS / @@1056=7604 CLL RAL / @@1057=7104 SZL / @@1060=7430 HLT / @@1061=7402 L1062, LAS / @@1062=7604 CLL RTL / @@1063=7106 SZL / @@1064=7430 JMP L1002 / @@1065=5202 JMP L1001 / @@1066=5201 C1067, C1067, 0667 / AND I C1067 C1070, C1070, 0524 / AND I D0124 C1071, C1071, 0674 / AND I C1074 L1072, DCA D0126 / @@1072=3126 JMP L1017 / @@1073=5217 *1200 JMP L1235 / @@1200=5235 L1201, JMS S0020 / @@1201=4020 L1202, CLA CLL CMA CML / @@1202=7360 AND D0125 / @@1203=0125 CMA / @@1204=7040 DCA D0123 / @@1205=3123 CMA / @@1206=7040 DCA D0124 / @@1207=3124 CMA / @@1210=7040 AND D0125 / @@1211=0125 MQL / @@1212=7421 STA / AC = 7777 (-0001) @@1213=7240 AND D0123 / @@1214=0123 MQA / @@1215=7501 DCA D0127 / @@1216=3127 SNL CLA / @@1217=7620 JMP L1347 / @@1220=5347 JMS S0156 / @@1221=4156 DCA D0126 / @@1222=3126 L1223, STA / AC = 7777 (-0001) @@1223=7240 AND D0127 / @@1224=0127 CMA / @@1225=7040 SZA / @@1226=7440 JMP L1247 / @@1227=5247 CMA / @@1230=7040 AND D0126 / @@1231=0126 SNA / @@1232=7450 JMP L1247 / @@1233=5247 JMP L1262 / @@1234=5262 L1235, CLA CLL / AC = 0000 @@1235=7300 DCA D0125 / @@1236=3125 TAD C0150 / @@1237=1150 DCA D0031 / @@1240=3031 TAD C0151 / @@1241=1151 DCA D0032 / @@1242=3032 NOP / @@1243=7000 NOP / @@1244=7000 NOP / @@1245=7000 JMP L1201 / @@1246=5201 L1247, LAS / @@1247=7604 CLL RTL / @@1250=7106 RAL / @@1251=7004 SNL / @@1252=7420 JMP L1256 / @@1253=5256 JMS I C1267 / long call to S0667 @@1254=4667 JMS S1270 / @@1255=4270 L1256, LAS / @@1256=7604 CLL RAL / @@1257=7104 SZL / @@1260=7430 HLT / @@1261=7402 L1262, LAS / @@1262=7604 CLL RTL / @@1263=7106 SZL / @@1264=7430 JMP L1202 / @@1265=5202 JMP L1201 / @@1266=5201 C1267, C1267, 0667 / AND I C1267 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1270 / / Called from: / 1255 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1270, 0 / return area JMS S1342 / @@1271=4342 L1272, JMS S0036 / @@1272=4036 JMS I C1326 / long call to S0327 @@1273=4726 JMS I C1325 / long call to S0347 @@1274=4725 JMS I C1327 / long call to S0337 @@1275=4727 JMS I C1326 / long call to S0327 @@1276=4726 JMS I C1330 / long call to S0354 @@1277=4730 JMS I C1325 / long call to S0347 @@1300=4725 JMS I C1331 / long call to S0413 @@1301=4731 JMS S0036 / @@1302=4036 JMS I C1326 / long call to S0327 @@1303=4726 JMS I C1325 / long call to S0347 @@1304=4725 C1305, 4732 / JMS I C1332 JMS I C1326 / long call to S0327 @@1306=4726 JMS I C1326 / long call to S0327 @@1307=4726 STA / AC = 7777 (-0001) @@1310=7240 AND D0125 / @@1311=0125 DCA D0123 / @@1312=3123 JMS I C1331 / long call to S0413 @@1313=4731 JMS S0036 / @@1314=4036 JMS I C1332 / long call to S0305 @@1315=4732 JMS S1335 / @@1316=4335 JMS I C1327 / long call to S0337 @@1317=4727 JMS I C1326 / long call to S0327 @@1320=4726 JMS I C1333 / long call to S0400 @@1321=4733 JMS I C1325 / long call to S0347 @@1322=4725 JMS I C1334 / long call to S0421 @@1323=4734 JMP I S1270 / return @@1324=5670 C1325, C1325, 0347 / AND L1347 C1326, C1326, 0327 / AND C1327 C1327, C1327, 0337 / AND C1337 C1330, C1330, 0354 / AND C1354 C1331, C1331, 0413 / AND I AI3 C1332, C1332, 0305 / AND C1305 C1333, C1333, 0400 / AND I S0000 C1334, C1334, 0421 / AND I D0021 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1335 / / Called from: / 1316 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1335, 0 / return area STA / AC = 7777 (-0001) @@1336=7240 AND C0152 / @@1337=0152 JMS S0046 / @@1340=4046 JMP I S1335 / return @@1341=5735 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1342 / / Called from: / 1271 2065 2126 3031 3035 3040 3041 3043 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S1342, 0 / return area STA / AC = 7777 (-0001) @@1343=7240 AND C0155 / @@1344=0155 JMS S0046 / @@1345=4046 JMP I S1342 / return @@1346=5742 L1347, C1347, 3126 / DCA D0126 JMP L1223 / @@1350=5223 *1400 JMP L1434 / @@1400=5234 L1401, JMS S0020 / @@1401=4020 L1402, CLA CLL CMA / AC = 7777 (-0001) @@1402=7340 AND D0125 / @@1403=0125 CMA / @@1404=7040 DCA D0123 / @@1405=3123 DCA D0124 / @@1406=3124 CMA / @@1407=7040 AND D0125 / @@1410=0125 MQL / @@1411=7421 STA / AC = 7777 (-0001) @@1412=7240 AND D0123 / @@1413=0123 MQA / @@1414=7501 DCA D0127 / @@1415=3127 SNL CLA / @@1416=7620 SKP / @@1417=7410 JMS S0156 / @@1420=4156 DCA D0126 / @@1421=3126 STA / AC = 7777 (-0001) @@1422=7240 AND D0127 / @@1423=0127 CMA / @@1424=7040 SZA / @@1425=7440 JMP L1446 / @@1426=5246 CMA / @@1427=7040 AND D0126 / @@1430=0126 SZA / @@1431=7440 JMP L1446 / @@1432=5246 JMP L1461 / @@1433=5261 L1434, CLA CLL / AC = 0000 @@1434=7300 DCA D0125 / @@1435=3125 TAD C0151 / @@1436=1151 DCA D0031 / @@1437=3031 TAD C0153 / @@1440=1153 DCA D0032 / @@1441=3032 NOP / @@1442=7000 NOP / @@1443=7000 NOP / @@1444=7000 JMP L1401 / @@1445=5201 L1446, LAS / @@1446=7604 CLL RTL / @@1447=7106 RAL / @@1450=7004 SNL / @@1451=7420 JMP L1455 / @@1452=5255 JMS I C1466 / long call to S0667 @@1453=4666 JMP L1471 / @@1454=5271 L1455, LAS / @@1455=7604 CLL RAL / @@1456=7104 SZL / @@1457=7430 HLT / @@1460=7402 L1461, LAS / @@1461=7604 CLL RTL / @@1462=7106 SZL / @@1463=7430 JMP L1402 / @@1464=5202 JMP L1401 / @@1465=5201 C1466, C1466, 0667 / AND I C1467 C1467, 1455 / TAD I C0055 C1470, 1270 / TAD C1470 L1471, JMS S1477 / @@1471=4277 C1472, 7240 / STA AND C1467 / @@1473=0267 DCA I C1470 / @@1474=3670 JMP I C1476 / long jump to L1272 @@1475=5676 C1476, C1476, 1272 / TAD C1472 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1477 / / Called from: / 1471 2067 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1477, 0 / return area STA / AC = 7777 (-0001) @@1500=7240 AND D0154 / @@1501=0154 JMS S0046 / @@1502=4046 JMP I S1477 / return @@1503=5677 *1600 JMS S1700 / @@1600=4300 L1601, JMS S0020 / @@1601=4020 L1602, CLA CLL CMA CML / @@1602=7360 AND D0125 / @@1603=0125 MQL / @@1604=7421 C1605, 7413 / SHL + D1606, 0000 / AND S0000 DCA D0162 / @@1607=3162 SNL / @@1610=7420 JMP L1733 / @@1611=5333 JMP L1735 / @@1612=5335 L1613, CLA MQA / @@1613=7701 DCA D0165 / @@1614=3165 CMA / @@1615=7040 AND D0162 / @@1616=0162 C1617, 7417 / LSR + D1620, 0000 / AND S0000 DCA D0163 / @@1621=3163 SNL / @@1622=7420 JMP L1740 / @@1623=5340 JMP L1742 / @@1624=5342 L1625, CLA MQA / @@1625=7701 DCA D0164 / @@1626=3164 CMA / @@1627=7040 AND D1747 / @@1630=0347 SZA / @@1631=7440 JMP L1655 / @@1632=5255 CMA / @@1633=7040 AND D1750 / @@1634=0350 SZA / @@1635=7440 JMP L1655 / @@1636=5255 CMA / @@1637=7040 AND D0163 / @@1640=0163 SZA / @@1641=7440 JMP L1655 / @@1642=5255 CMA / @@1643=7040 AND D0125 / @@1644=0125 CLL CMA / @@1645=7140 TAD D0164 / @@1646=1164 CMA / @@1647=7040 SZA / @@1650=7440 JMP L1655 / @@1651=5255 SZL / @@1652=7430 JMP L1655 / @@1653=5255 JMP L1672 / @@1654=5272 L1655, LAS / @@1655=7604 CLL RTL / @@1656=7106 RAL / @@1657=7004 SNL / @@1660=7420 JMP L1666 / @@1661=5266 JMS I C1677 / long call to S2000 @@1662=4677 NOP / @@1663=7000 NOP / @@1664=7000 NOP / @@1665=7000 L1666, LAS / @@1666=7604 CLL RAL / @@1667=7104 SZL / @@1670=7430 HLT / @@1671=7402 L1672, LAS / @@1672=7604 CLL RTL / @@1673=7106 SZL / @@1674=7430 JMP L1602 / @@1675=5202 JMP L1601 / @@1676=5201 C1677, C1677, 2000 / ISZ S0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1700 / / Called from: / 1600 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1700, 0 / return area STA / AC = 7777 (-0001) @@1701=7240 AND C0166 / @@1702=0166 DCA D1751 / @@1703=3351 DCA D0125 / @@1704=3125 DCA D1606 / @@1705=3206 CMA / @@1706=7040 AND C1752 / @@1707=0352 DCA D0161 / @@1710=3161 CMA / @@1711=7040 AND C1745 / @@1712=0345 DCA D0031 / @@1713=3031 CMA / @@1714=7040 AND C1746 / @@1715=0346 DCA D0032 / @@1716=3032 DCA D1620 / @@1717=3220 CMA / @@1720=7040 AND C1753 / @@1721=0353 DCA I C1754 / @@1722=3754 JMP I S1700 / return @@1723=5700 ISZ D1606 / @@1724=2206 ISZ D1620 / @@1725=2220 ISZ D0161 / @@1726=2161 ISZ D1751 / @@1727=2351 JMP L1601 / @@1730=5201 JMP I C1732 / long jump to L2400 @@1731=5732 C1732, C1732, 2400 / ISZ I S0000 L1733, DCA D1747 / @@1733=3347 JMP L1613 / @@1734=5213 L1735, CMA / @@1735=7040 DCA D1747 / @@1736=3347 JMP L1613 / @@1737=5213 L1740, DCA D1750 / @@1740=3350 JMP L1625 / @@1741=5225 L1742, CMA / @@1742=7040 DCA D1750 / @@1743=3350 JMP L1625 / @@1744=5225 C1745, 1601 / TAD I L1601 C1746, 1724 / TAD I C1724 D1747, 0000 / AND S0000 D1750, 0000 / AND S0000 D1751, 0000 / AND S0000 C1752, 2044 / ISZ C0044 C1753, 2005 / ISZ C0005 C1754, 2154 / ISZ D0154 *2000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2000 / / Called from: / 1662 2717 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2000, 0 / return area JMS S0036 / @@2001=4036 JMS I C2141 / long call to S3062 @@2002=4741 JMS I C2043 / long call to S0347 @@2003=4643 JMP I D0161 / long jump to L0000 @@2004=5561 JMS S0036 / @@2005=4036 JMS I C2136 / long call to S2200 @@2006=4736 JMS I C2137 / long call to S2205 @@2007=4737 JMS I C2140 / long call to S0305 @@2010=4740 JMS I C2037 / long call to S2212 @@2011=4637 D2012, 4643 / JMS I C2043 CMA / @@2013=7040 AND D0125 / @@2014=0125 DCA D0147 / @@2015=3147 JMS S0077 / @@2016=4077 JMS S0036 / @@2017=4036 JMS S2142 / @@2020=4342 D2021, 4736 / JMS I C2136 JMS I C2137 / long call to S2205 @@2022=4737 JMS I C2040 / long call to S0337 @@2023=4640 JMS I C2037 / long call to S2212 @@2024=4637 JMS S2142 / @@2025=4342 JMS I C2136 / long call to S2200 @@2026=4736 JMS I C2137 / long call to S2205 @@2027=4737 JMS I C2140 / long call to S0305 @@2030=4740 JMS I C2037 / long call to S2212 @@2031=4637 JMS S0036 / @@2032=4036 JMS I C2036 / long call to S2221 @@2033=4636 JMS S0036 / @@2034=4036 JMP I S2000 / return @@2035=5600 C2036, C2036, 2221 / ISZ D2021 C2037, C2037, 2212 / ISZ D2012 C2040, C2040, 0337 / AND C2137 C2041, C2041, 1477 / TAD I S0077 C2042, C2042, 1342 / TAD S2142 C2043, C2043, 0347 / AND C2147 JMP L2062 / @@2044=5262 JMP L2065 / @@2045=5265 JMP L2067 / @@2046=5267 JMP L2071 / @@2047=5271 JMP L2074 / @@2050=5274 JMP L2077 / @@2051=5277 JMP L2102 / @@2052=5302 JMP L2105 / @@2053=5305 JMP L2110 / @@2054=5310 JMP L2113 / @@2055=5313 JMP L2117 / @@2056=5317 JMP L2124 / @@2057=5324 L2060, JMS S0046 / @@2060=4046 JMP I D2154 / long jump to L0000 @@2061=5754 L2062, CMA / @@2062=7040 JMS S0061 / @@2063=4061 JMP I D2154 / long jump to L0000 @@2064=5754 L2065, JMS I C2042 / long call to S1342 @@2065=4642 JMP I D2154 / long jump to L0000 @@2066=5754 L2067, JMS I C2041 / long call to S1477 @@2067=4641 JMP I D2154 / long jump to L0000 @@2070=5754 L2071, STA / AC = 7777 (-0001) @@2071=7240 AND C2130 / @@2072=0330 JMP L2060 / @@2073=5260 L2074, STA / AC = 7777 (-0001) @@2074=7240 AND C2131 / @@2075=0331 JMP L2060 / @@2076=5260 L2077, STA / AC = 7777 (-0001) @@2077=7240 AND C2132 / @@2100=0332 JMP L2060 / @@2101=5260 L2102, STA / AC = 7777 (-0001) @@2102=7240 AND C2133 / @@2103=0333 JMP L2060 / @@2104=5260 L2105, C2105, 7240 / STA AND C2134 / @@2106=0334 JMP L2060 / @@2107=5260 L2110, STA / AC = 7777 (-0001) @@2110=7240 AND C2135 / @@2111=0335 JMP L2060 / @@2112=5260 L2113, CMA / @@2113=7040 JMS S0061 / @@2114=4061 JMS S0061 / @@2115=4061 JMP I D2154 / long jump to L0000 @@2116=5754 L2117, CMA / @@2117=7040 JMS S0061 / @@2120=4061 CMA / @@2121=7040 JMS S0061 / @@2122=4061 JMP I D2154 / long jump to L0000 @@2123=5754 L2124, CMA / @@2124=7040 JMS S0061 / @@2125=4061 JMS I C2042 / long call to S1342 @@2126=4642 JMP I D2154 / long jump to L0000 @@2127=5754 C2130, 0264 / AND C2064 C2131, 0265 / AND L2065 C2132, 0266 / AND C2066 C2133, 0267 / AND L2067 C2134, 0270 / AND C2070 C2135, 0271 / AND L2071 C2136, C2136, 2200 / ISZ S2000 C2137, C2137, 2205 / ISZ C2005 C2140, C2140, 0305 / AND L2105 C2141, C2141, 3062 / DCA D0062 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2142 / / Called from: / 2020 2025 3416 3423 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S2142, 0 / return area STA / AC = 7777 (-0001) @@2143=7240 AND C2152 / @@2144=0352 DCA D2153 / @@2145=3353 L2146, D2146, 4643 / JMS I C2043 C2147, 2353 / ISZ D2153 JMP L2146 / @@2150=5346 JMP I S2142 / return @@2151=5742 C2152, 7765 / CLA MQA SCA MQL MUY + D2153, 0000 / AND S0000 D2154, 0000 / AND S0000 *2200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2200 / / Called from: / 2006 2026 3406 3417 3424 4406 4413 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S2200, 0 / return area STA / AC = 7777 (-0001) @@2201=7240 AND C0140 / @@2202=0140 JMS S0046 / @@2203=4046 JMP I S2200 / return @@2204=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2205 / / Called from: / 2007 2022 2027 3407 3420 3425 4407 4414 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S2205, 0 / return area STA / AC = 7777 (-0001) @@2206=7240 AND C2217 / @@2207=0217 JMS S0046 / @@2210=4046 JMP I S2205 / return @@2211=5605 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2212 / / Called from: / 2011 2024 2031 3411 3422 3427 4411 4416 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S2212, 0 / return area STA / AC = 7777 (-0001) @@2213=7240 AND C2220 / @@2214=0220 JMS S0046 / @@2215=4046 JMP I S2212 / return @@2216=5612 C2217, 0250 / AND C2250 C2220, 0251 / AND C2251 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2221 / / Called from: / 2033 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2221, 0 / return area STA / AC = 7777 (-0001) @@2222=7240 AND C2305 / @@2223=0305 JMS S0046 / @@2224=4046 CMA / @@2225=7040 AND C2304 / @@2226=0304 JMS S0046 / @@2227=4046 JMS I C2303 / long call to S0315 @@2230=4703 JMS I C2306 / long call to S0347 @@2231=4706 STA / AC = 7777 (-0001) @@2232=7240 AND I C2307 / @@2233=0707 JMS S0061 / @@2234=4061 JMS I C2306 / long call to S0347 @@2235=4706 STA / AC = 7777 (-0001) @@2236=7240 AND D0162 / @@2237=0162 DCA D0147 / @@2240=3147 JMS S0077 / @@2241=4077 JMS I C2306 / long call to S0347 @@2242=4706 JMS I C2306 / long call to S0347 @@2243=4706 JMS I C2306 / long call to S0347 @@2244=4706 STA / AC = 7777 (-0001) @@2245=7240 AND D0165 / @@2246=0165 DCA D0147 / @@2247=3147 JMS S0077 / @@2250=4077 JMS S0036 / @@2251=4036 JMS I C2303 / long call to S0315 @@2252=4703 STA / AC = 7777 (-0001) @@2253=7240 AND C2305 / @@2254=0305 JMS S0046 / @@2255=4046 STA / AC = 7777 (-0001) @@2256=7240 AND C2310 / @@2257=0310 JMS S0046 / @@2260=4046 JMS I C2306 / long call to S0347 @@2261=4706 STA / AC = 7777 (-0001) @@2262=7240 AND I C2311 / @@2263=0711 JMS S0061 / @@2264=4061 JMS I C2306 / long call to S0347 @@2265=4706 STA / AC = 7777 (-0001) @@2266=7240 AND D0163 / @@2267=0163 DCA D0147 / @@2270=3147 JMS S0077 / @@2271=4077 JMS I C2306 / long call to S0347 @@2272=4706 JMS I C2306 / long call to S0347 @@2273=4706 JMS I C2306 / long call to S0347 @@2274=4706 STA / AC = 7777 (-0001) @@2275=7240 AND D0164 / @@2276=0164 DCA D0147 / @@2277=3147 JMS S0077 / @@2300=4077 JMS S0036 / @@2301=4036 JMP I S2221 / return @@2302=5621 C2303, C2303, 0315 / AND C2315 C2304, 0310 / AND C2310 C2305, 0323 / AND C2323 C2306, C2306, 0347 / AND C2347 C2307, 1747 / TAD I C2347 C2310, 0322 / AND C2322 C2311, 1750 / TAD I C2350 *2400 L2400, C2400, 4327 / JMS S2527 STA / AC = 7777 (-0001) @@2401=7240 AND C2552 / @@2402=0352 DCA D2551 / @@2403=3351 JMS S2503 / @@2404=4303 L2405, JMS I C2572 / long call to S2610 @@2405=4772 JMP L2405 / @@2406=5205 JMS I C2567 / long call to S2600 @@2407=4767 C2410, 0353 / AND C2553 DCA D2551 / @@2411=3351 JMS S2503 / @@2412=4303 C2413, C2413, 4772 / JMS I C2572 JMP I C2413 / long jump to L4772 @@2414=5613 JMS I C2567 / long call to S2600 @@2415=4767 AND C2554 / @@2416=0354 DCA D2551 / @@2417=3351 JMS S2503 / @@2420=4303 L2421, JMS I C2572 / long call to S2610 @@2421=4772 JMP L2421 / @@2422=5221 JMS I C2567 / long call to S2600 @@2423=4767 AND C2555 / @@2424=0355 DCA D2551 / @@2425=3351 JMS S2503 / @@2426=4303 L2427, JMS I C2572 / long call to S2610 @@2427=4772 JMP L2427 / @@2430=5227 JMS I C2567 / long call to S2600 @@2431=4767 AND C2556 / @@2432=0356 DCA D2551 / @@2433=3351 JMS S2503 / @@2434=4303 L2435, JMS I C2572 / long call to S2610 @@2435=4772 JMP L2435 / @@2436=5235 JMS I C2567 / long call to S2600 @@2437=4767 AND C2557 / @@2440=0357 DCA D2551 / @@2441=3351 JMS S2503 / @@2442=4303 L2443, JMS I C2572 / long call to S2610 @@2443=4772 JMP L2443 / @@2444=5243 JMS I C2567 / long call to S2600 @@2445=4767 AND C2560 / @@2446=0360 DCA D2551 / @@2447=3351 JMS S2503 / @@2450=4303 L2451, JMS I C2572 / long call to S2610 @@2451=4772 JMP L2451 / @@2452=5251 JMS I C2567 / long call to S2600 @@2453=4767 AND C2561 / @@2454=0361 DCA D2551 / @@2455=3351 JMS S2503 / @@2456=4303 L2457, JMS I C2572 / long call to S2610 @@2457=4772 JMP L2457 / @@2460=5257 JMS I C2567 / long call to S2600 @@2461=4767 AND C2562 / @@2462=0362 DCA D2551 / @@2463=3351 JMS S2503 / @@2464=4303 L2465, JMS I C2572 / long call to S2610 @@2465=4772 JMP L2465 / @@2466=5265 JMS I C2567 / long call to S2600 @@2467=4767 AND C2563 / @@2470=0363 DCA D2551 / @@2471=3351 JMS S2503 / @@2472=4303 L2473, JMS I C2572 / long call to S2610 @@2473=4772 JMP L2473 / @@2474=5273 JMS I C2567 / long call to S2600 @@2475=4767 AND C2564 / @@2476=0364 DCA D2551 / @@2477=3351 JMS S2503 / @@2500=4303 L2501, JMS I C2572 / long call to S2610 @@2501=4772 JMP L2501 / @@2502=5301 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2503 / / Called from: / 2404 2412 2420 2426 2434 2442 2450 2456 2464 2472 2500 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S2503, 0 / return area L2504, ISZ D2547 / @@2504=2347 STA / AC = 7777 (-0001) @@2505=7240 AND D2546 / @@2506=0346 CMA / @@2507=7040 TAD D2547 / @@2510=1347 CMA / @@2511=7040 SNA / @@2512=7450 SKP / @@2513=7410 JMP I S2503 / return @@2514=5703 DCA D2547 / @@2515=3347 LAS / @@2516=7604 CLL RTL / @@2517=7106 RTL / @@2520=7006 SZL / @@2521=7430 JMP I S2503 / return @@2522=5703 ISZ I C2571 / @@2523=2771 ISZ I C2570 / @@2524=2770 ISZ D0161 / @@2525=2161 JMP I D2551 / long jump to L0000 @@2526=5751 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2527 / / Never called //////////////////////////////////////////////////////////////////////////////// S2527, 0 / return area STA / AC = 7777 (-0001) @@2530=7240 AND C2565 / @@2531=0365 DCA D2546 / @@2532=3346 DCA D2547 / @@2533=3347 TAD C2566 / @@2534=1366 DCA I C2571 / @@2535=3771 TAD C2566 / @@2536=1366 DCA I C2570 / @@2537=3770 TAD C2545 / @@2540=1345 DCA D0161 / @@2541=3161 TAD C2573 / @@2542=1373 DCA I C2574 / @@2543=3774 JMP I S2527 / return @@2544=5727 C2545, 3000 / DCA S0000 D2546, 0000 / AND S0000 D2547, 0000 / AND S0000 AND S0000 / @@2550=0000 D2551, 0000 / AND S0000 C2552, 2407 / ISZ I C0007 C2553, 2415 / ISZ I AI5 C2554, 2423 / ISZ I D0023 C2555, 2431 / ISZ I D0031 C2556, 2437 / ISZ I C0037 C2557, 2445 / ISZ I C0045 C2560, 2453 / ISZ I C0053 C2561, 2461 / ISZ I S0061 C2562, 2467 / ISZ I D0067 C2563, 2475 / ISZ I C0075 C2564, 3200 / DCA L2400 C2565, 4000 / JMS S0000 C2566, 0014 / AND AI4 C2567, C2567, 2600 / ISZ I L2400 C2570, 2631 / ISZ I C2431 C2571, 2617 / ISZ I C2417 C2572, C2572, 2610 / ISZ I C2410 C2573, 2005 / ISZ C0005 C2574, 3060 / DCA D0060 *2600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2600 / / Called from: / 2407 2415 2423 2431 2437 2445 2453 2461 2467 2475 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S2600, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@2601=7340 AND I C2607 / @@2602=0607 RAR / @@2603=7010 DCA I C2607 / @@2604=3607 CMA / @@2605=7040 JMP I S2600 / return @@2606=5600 C2607, 2546 / ISZ I D0146 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2610 / / Called from: / 2405 2421 2427 2435 2443 2451 2457 2465 2473 2501 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S2610, 0 / return area STA / AC = 7777 (-0001) @@2611=7240 AND I C2700 / @@2612=0700 MQL / @@2613=7421 CMA / @@2614=7040 AND C2701 / @@2615=0301 C2616, 7413 / SHL + D2617, 0000 / AND S0000 DCA D0162 / @@2620=3162 SNL / @@2621=7420 JMP L2666 / @@2622=5266 JMP L2670 / @@2623=5270 L2624, CLA MQA / @@2624=7701 DCA D0165 / @@2625=3165 CMA / @@2626=7040 AND D0162 / @@2627=0162 C2630, 7417 / LSR + D2631, 0000 / AND S0000 DCA D0163 / @@2632=3163 SNL / @@2633=7420 JMP L2673 / @@2634=5273 JMP L2675 / @@2635=5275 L2636, CLA MQA / @@2636=7701 DCA D0164 / @@2637=3164 CMA / @@2640=7040 AND I C2702 / @@2641=0702 SZA / @@2642=7440 JMP L2707 / @@2643=5307 CMA / @@2644=7040 AND I C2703 / @@2645=0703 SZA / @@2646=7440 JMP L2707 / @@2647=5307 CMA / @@2650=7040 AND D0163 / @@2651=0163 SZA / @@2652=7440 JMP L2707 / @@2653=5307 CMA / @@2654=7040 AND I C2700 / @@2655=0700 CLL CMA / @@2656=7140 TAD D0164 / @@2657=1164 CMA / @@2660=7040 SZA / @@2661=7440 JMP L2707 / @@2662=5307 SZL / @@2663=7430 JMP L2707 / @@2664=5307 JMP L2724 / @@2665=5324 L2666, DCA I C2702 / @@2666=3702 JMP L2624 / @@2667=5224 L2670, CMA / @@2670=7040 DCA I C2702 / @@2671=3702 JMP L2624 / @@2672=5224 L2673, DCA I C2703 / @@2673=3703 JMP L2636 / @@2674=5236 L2675, CMA / @@2675=7040 DCA I C2703 / @@2676=3703 JMP L2636 / @@2677=5236 C2700, 2547 / ISZ I D0147 C2701, 2525 / ISZ I D0125 C2702, 1747 / TAD I C2747 C2703, 1750 / TAD I C2750 ISZ I L0103 / @@2704=2503 C2705, C2705, 2000 / ISZ S0000 C2706, C2706, 2504 / ISZ I C0104 L2707, LAS / @@2707=7604 CLL RTL / @@2710=7106 RAL / @@2711=7004 SNL / @@2712=7420 JMP L2720 / @@2713=5320 STA / AC = 7777 (-0001) @@2714=7240 AND I C2700 / @@2715=0700 DCA D0125 / @@2716=3125 JMS I C2705 / long call to S2000 @@2717=4705 L2720, LAS / @@2720=7604 CLL RAL / @@2721=7104 SZL / @@2722=7430 HLT / @@2723=7402 L2724, LAS / @@2724=7604 CLL RTL / @@2725=7106 SZL / @@2726=7430 JMP I S2610 / return @@2727=5610 JMP I C2706 / long jump to L2504 @@2730=5706 *3000 JMP L3013 / @@3000=5213 JMP L3015 / @@3001=5215 JMP L3017 / @@3002=5217 JMP L3021 / @@3003=5221 JMP L3023 / @@3004=5223 JMP L3025 / @@3005=5225 JMP L3027 / @@3006=5227 JMP L3031 / @@3007=5231 JMP L3035 / @@3010=5235 JMP L3040 / @@3011=5240 JMP L3043 / @@3012=5243 L3013, JMS S3045 / @@3013=4245 JMP I C3051 / long jump to L2067 @@3014=5651 L3015, JMS S3045 / @@3015=4245 JMP I C3052 / long jump to L2071 @@3016=5652 L3017, JMS S3045 / @@3017=4245 JMP I C3053 / long jump to L2074 @@3020=5653 L3021, JMS S3045 / @@3021=4245 JMP I C3054 / long jump to L2077 @@3022=5654 L3023, JMS S3045 / @@3023=4245 JMP I C3055 / long jump to L2102 @@3024=5655 L3025, JMS S3045 / @@3025=4245 JMP I C3056 / long jump to L2105 @@3026=5656 L3027, JMS S3045 / @@3027=4245 JMP I C3057 / long jump to L2110 @@3030=5657 L3031, JMS I C3061 / long call to S1342 @@3031=4661 CMA / @@3032=7040 JMS S3045 / @@3033=4245 JMP I D3060 / long jump to L0000 @@3034=5660 L3035, JMS I C3061 / long call to S1342 @@3035=4661 JMS S3045 / @@3036=4245 JMP I D3060 / long jump to L0000 @@3037=5660 L3040, JMS I C3061 / long call to S1342 @@3040=4661 JMS I C3061 / long call to S1342 @@3041=4661 JMP I D3060 / long jump to L0000 @@3042=5660 L3043, JMS I C3061 / long call to S1342 @@3043=4661 JMP I C3051 / long jump to L2067 @@3044=5651 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3045 / / Called from: / 3013 3015 3017 3021 3023 3025 3027 3033 3036 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S3045, 0 / return area CMA / @@3046=7040 JMS S0061 / @@3047=4061 JMP I S3045 / return @@3050=5645 C3051, C3051, 2067 / ISZ D0067 C3052, C3052, 2071 / ISZ D0071 C3053, C3053, 2074 / ISZ D0074 C3054, C3054, 2077 / ISZ S0077 C3055, C3055, 2102 / ISZ D0102 C3056, C3056, 2105 / ISZ D0105 C3057, C3057, 2110 / ISZ D0110 D3060, 0000 / AND S0000 C3061, C3061, 1342 / TAD C3142 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3062 / / Called from: / 2002 3402 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3062, 0 / return area CMA / @@3063=7040 AND C3103 / @@3064=0303 JMS S0046 / @@3065=4046 CMA / @@3066=7040 AND C3104 / @@3067=0304 JMS S0046 / @@3070=4046 CMA / @@3071=7040 AND C3105 / @@3072=0305 JMS S0046 / @@3073=4046 CMA / @@3074=7040 AND C3106 / @@3075=0306 JMS S0046 / @@3076=4046 CMA / @@3077=7040 AND C0135 / @@3100=0135 JMS S0046 / @@3101=4046 JMP I S3062 / return @@3102=5662 C3103, 0323 / AND C3123 C3104, 0310 / AND C3110 C3105, 0311 / AND C3111 C3106, 0306 / AND C3106 *3200 L3200, JMS S3312 / @@3200=4312 L3201, C3201, 4245 / JMS S3245 L3202, CLA CLL / AC = 0000 @@3202=7300 MQL / @@3203=7421 CMA / @@3204=7040 AND C0167 / @@3205=0167 C3206, 7415 / ASR + D3207, 0000 / AND S0000 DCA D0162 / @@3210=3162 MQA / @@3211=7501 DCA D0165 / @@3212=3165 SNL / @@3213=7420 JMP L3271 / @@3214=5271 JMP L3270 / @@3215=5270 L3216, STA / AC = 7777 (-0001) @@3216=7240 AND D0162 / @@3217=0162 CLL CMA / @@3220=7140 TAD D3273 / @@3221=1273 CMA / @@3222=7040 SZA / @@3223=7440 JMP L3342 / @@3224=5342 SZL / @@3225=7430 JMP L3342 / @@3226=5342 CMA / @@3227=7040 AND D0165 / @@3230=0165 CLL CMA / @@3231=7140 TAD D3274 / @@3232=1274 CMA / @@3233=7040 SZA / @@3234=7440 JMP L3342 / @@3235=5342 SZL / @@3236=7430 JMP L3342 / @@3237=5342 STA / AC = 7777 (-0001) @@3240=7240 AND I C3277 / @@3241=0677 SNA / @@3242=7450 JMP L3342 / @@3243=5342 JMP L3356 / @@3244=5356 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3245 / / Never called //////////////////////////////////////////////////////////////////////////////// S3245, 0 / return area STA / AC = 7777 (-0001) @@3246=7240 AND I AI0 / AUTO INDEX REGISTER @@3247=0410 DCA D3273 / @@3250=3273 CMA / @@3251=7040 AND I AI1 / AUTO INDEX REGISTER @@3252=0411 DCA D3274 / @@3253=3274 ISZ D3207 / @@3254=2207 ISZ D0161 / @@3255=2161 ISZ D3275 / @@3256=2275 JMP I S3245 / return @@3257=5645 ISZ D3363 / @@3260=2363 JMP L3200 / @@3261=5200 LAS / @@3262=7604 CLL RTL / @@3263=7106 RTL / @@3264=7006 SZL / @@3265=7430 JMP L3200 / @@3266=5200 JMP I C3300 / long jump to L4000 @@3267=5700 L3270, CMA / @@3270=7040 L3271, DCA I C3277 / @@3271=3677 JMP L3216 / @@3272=5216 D3273, 0000 / AND S0000 D3274, 0000 / AND S0000 D3275, 0000 / AND S0000 C3276, 7750 / SPA SNA CLA C3277, 1747 / TAD I C3347 C3300, C3300, 4000 / JMS S0000 C3301, 3502 / DCA I D0102 C3302, 3516 / DCA I C0116 C3303, 3601 / DCA I L3201 C3304, C3304, 3400 / DCA I S0000 C3305, 2154 / ISZ D0154 C3306, 3060 / DCA D0060 C3307, 3405 / DCA I C0005 C3310, C3310, 3546 / DCA I D0146 C3311, C3311, 3414 / DCA I AI4 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3312 / / Called from: / 3200 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3312, 0 / return area STA / AC = 7777 (-0001) @@3313=7240 AND C3307 / @@3314=0307 DCA I C3305 / @@3315=3705 CMA / @@3316=7040 AND C3307 / @@3317=0307 DCA I C3306 / @@3320=3706 CMA / @@3321=7040 AND C3302 / @@3322=0302 DCA AI0 / AUTO INDEX REGISTER @@3323=3010 CMA / @@3324=7040 AND C3301 / @@3325=0301 DCA AI1 / AUTO INDEX REGISTER @@3326=3011 CMA / @@3327=7040 DCA D3207 / @@3330=3207 CMA / @@3331=7040 AND C3303 / @@3332=0303 DCA D0161 / @@3333=3161 CMA / @@3334=7040 AND C3276 / @@3335=0276 DCA D3275 / @@3336=3275 NOP / @@3337=7000 NOP / @@3340=7000 JMP I S3312 / return @@3341=5712 L3342, LAS / @@3342=7604 CLL RTL / @@3343=7106 RAL / @@3344=7004 SNL / @@3345=7420 JMP L3352 / @@3346=5352 JMS I C3304 / long call to S3400 @@3347=4704 JMS I C3310 / long call to S3546 @@3350=4710 JMS I C3311 / long call to S3414 @@3351=4711 L3352, LAS / @@3352=7604 CLL RAL / @@3353=7104 SZL / @@3354=7430 HLT / @@3355=7402 L3356, LAS / @@3356=7604 CLL RTL / @@3357=7106 SZL / @@3360=7430 JMP L3202 / @@3361=5202 JMP L3201 / @@3362=5201 D3363, 0000 / AND S0000 *3400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3400 / / Called from: / 3347 4067 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3400, 0 / return area JMS S0036 / @@3401=4036 JMS I C3466 / long call to S3062 @@3402=4666 JMS I C3467 / long call to S0347 @@3403=4667 JMP I D0161 / long jump to L0000 @@3404=5561 D3405, 4036 / JMS S0036 JMS I C3470 / long call to S2200 @@3406=4670 JMS I C3471 / long call to S2205 @@3407=4671 JMS I C3472 / long call to S0337 @@3410=4672 JMS I C3473 / long call to S2212 @@3411=4673 D3412, 4667 / JMS I C3467 JMP I S3400 / return @@3413=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3414 / / Called from: / 3351 4071 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3414, 0 / return area JMS S0036 / @@3415=4036 JMS I C3474 / long call to S2142 @@3416=4674 JMS I C3470 / long call to S2200 @@3417=4670 JMS I C3471 / long call to S2205 @@3420=4671 JMS I C3472 / long call to S0337 @@3421=4672 JMS I C3473 / long call to S2212 @@3422=4673 JMS I C3474 / long call to S2142 @@3423=4674 JMS I C3470 / long call to S2200 @@3424=4670 JMS I C3471 / long call to S2205 @@3425=4671 JMS I C3475 / long call to S0305 @@3426=4675 JMS I C3473 / long call to S2212 @@3427=4673 JMS S0036 / @@3430=4036 STA / AC = 7777 (-0001) @@3431=7240 AND C0137 / @@3432=0137 JMS S0046 / @@3433=4046 STA / AC = 7777 (-0001) @@3434=7240 AND C3476 / @@3435=0276 JMS S0046 / @@3436=4046 STA / AC = 7777 (-0001) @@3437=7240 AND C3477 / @@3440=0277 JMS S0046 / @@3441=4046 JMS I C3467 / long call to S0347 @@3442=4667 JMS I C3467 / long call to S0347 @@3443=4667 JMS I C3467 / long call to S0347 @@3444=4667 STA / AC = 7777 (-0001) @@3445=7240 AND I C3500 / @@3446=0700 JMS S0061 / @@3447=4061 JMS I C3467 / long call to S0347 @@3450=4667 STA / AC = 7777 (-0001) @@3451=7240 AND D0162 / @@3452=0162 DCA D0147 / @@3453=3147 JMS S0077 / @@3454=4077 JMS I C3467 / long call to S0347 @@3455=4667 JMS I C3467 / long call to S0347 @@3456=4667 JMS I C3467 / long call to S0347 @@3457=4667 STA / AC = 7777 (-0001) @@3460=7240 AND D0165 / @@3461=0165 DCA D0147 / @@3462=3147 JMS S0077 / @@3463=4077 JMS S0036 / @@3464=4036 JMP I S3414 / return @@3465=5614 C3466, C3466, 3062 / DCA D0062 C3467, C3467, 0347 / AND C3547 C3470, C3470, 2200 / ISZ S3400 C3471, C3471, 2205 / ISZ D3405 C3472, C3472, 0337 / AND C3537 C3473, C3473, 2212 / ISZ D3412 C3474, C3474, 2142 / ISZ D0142 C3475, C3475, 0305 / AND C3505 C3476, 0323 / AND C3523 C3477, 0322 / AND C3522 C3500, 1747 / TAD I C3547 C3501, 3777 / DCA I C3577 AND S0000 / @@3502=0000 AND S0000 / @@3503=0000 AND S0000 / @@3504=0000 C3505, 0000 / AND S0000 AND S0000 / @@3506=0000 AND S0000 / @@3507=0000 AND S0000 / @@3510=0000 AND S0000 / @@3511=0000 AND S0000 / @@3512=0000 AND S0000 / @@3513=0000 AND S0000 / @@3514=0000 AND S0000 / @@3515=0000 C3516, 4000 / JMS S0000 C3517, 6000 / 6000 NOP / @@3520=7000 / @@3521=7400 7600 / AKA "CLA" @@3522=7600 SMA CLA / @@3523=7700 SMA SZA CLA / @@3524=7740 SMA SZA SNL CLA / @@3525=7760 SPA SNA SZL CLA / @@3526=7770 SPA SNA SZL CLA OSR / @@3527=7774 SPA SNA SZL CLA OSR HLT / @@3530=7776 C3531, 7777 / CLA MQA SCA MQL LSR + C3532, 7777 / CLA MQA SCA MQL LSR + C3533, 7777 / CLA MQA SCA MQL LSR + C3534, 7777 / CLA MQA SCA MQL LSR + C3535, 7777 / CLA MQA SCA MQL LSR + C3536, 7777 / CLA MQA SCA MQL LSR + C3537, 7777 / CLA MQA SCA MQL LSR + C3540, 7777 / CLA MQA SCA MQL LSR + C3541, 7777 / CLA MQA SCA MQL LSR + C3542, 7777 / CLA MQA SCA MQL LSR + C3543, 7777 / CLA MQA SCA MQL LSR + C3544, 7777 / CLA MQA SCA MQL LSR + C3545, 7777 / CLA MQA SCA MQL LSR + //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3546 / / Called from: / 3350 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3546, 0 / return area C3547, 7200 / CLA JMS S0061 / @@3550=4061 JMS I C3467 / long call to S0347 @@3551=4667 STA / AC = 7777 (-0001) @@3552=7240 AND C3516 / @@3553=0316 DCA D0147 / @@3554=3147 JMS S0077 / @@3555=4077 JMP I S3546 / return @@3556=5746 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3557 / / Called from: / 4070 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3557, 0 / return area STA / AC = 7777 (-0001) @@3560=7240 JMS S0061 / @@3561=4061 JMS I C3467 / long call to S0347 @@3562=4667 STA / AC = 7777 (-0001) @@3563=7240 AND C3501 / @@3564=0301 DCA D0147 / @@3565=3147 JMS S0077 / @@3566=4077 JMP I S3557 / return @@3567=5757 *3600 AND S0000 / @@3600=0000 JMP I C3630 / long jump to L2062 @@3601=5630 JMP I C3631 / long jump to L2065 @@3602=5631 JMP I C3632 / long jump to L2067 @@3603=5632 JMP I C3633 / long jump to L2071 @@3604=5633 JMP I C3634 / long jump to L2074 @@3605=5634 JMP I C3635 / long jump to L2077 @@3606=5635 JMP I C3636 / long jump to L2102 @@3607=5636 JMP I C3637 / long jump to L2105 @@3610=5637 JMP I C3640 / long jump to L2110 @@3611=5640 JMP I C3641 / long jump to L2113 @@3612=5641 JMP I C3642 / long jump to L2117 @@3613=5642 JMP I C3643 / long jump to L2124 @@3614=5643 JMP I C3644 / long jump to L3013 @@3615=5644 JMP I C3645 / long jump to L3015 @@3616=5645 JMP I C3646 / long jump to L3017 @@3617=5646 JMP I C3647 / long jump to L3021 @@3620=5647 JMP I C3650 / long jump to L3023 @@3621=5650 JMP I C3651 / long jump to L3025 @@3622=5651 JMP I C3652 / long jump to L3027 @@3623=5652 JMP I C3653 / long jump to L3031 @@3624=5653 JMP I C3654 / long jump to L3035 @@3625=5654 JMP I C3655 / long jump to L3040 @@3626=5655 JMP I C3656 / long jump to L3043 @@3627=5656 C3630, C3630, 2062 / ISZ D0062 C3631, C3631, 2065 / ISZ D0065 C3632, C3632, 2067 / ISZ D0067 C3633, C3633, 2071 / ISZ D0071 C3634, C3634, 2074 / ISZ D0074 C3635, C3635, 2077 / ISZ S0077 C3636, C3636, 2102 / ISZ D0102 C3637, C3637, 2105 / ISZ D0105 C3640, C3640, 2110 / ISZ D0110 C3641, C3641, 2113 / ISZ D0113 C3642, C3642, 2117 / ISZ L0117 C3643, C3643, 2124 / ISZ D0124 C3644, C3644, 3013 / DCA AI3 C3645, C3645, 3015 / DCA AI5 C3646, C3646, 3017 / DCA AI7 C3647, C3647, 3021 / DCA D0021 C3650, C3650, 3023 / DCA D0023 C3651, C3651, 3025 / DCA D0025 C3652, C3652, 3027 / DCA D0027 C3653, C3653, 3031 / DCA D0031 C3654, C3654, 3035 / DCA D0035 C3655, C3655, 3040 / DCA D0040 C3656, C3656, 3043 / DCA D0043 AND S0000 / @@3657=0000 C3660, 7777 / CLA MQA SCA MQL LSR + C3661, 7777 / CLA MQA SCA MQL LSR + C3662, 7777 / CLA MQA SCA MQL LSR + C3663, 7777 / CLA MQA SCA MQL LSR + C3664, 7777 / CLA MQA SCA MQL LSR + C3665, 7777 / CLA MQA SCA MQL LSR + C3666, 7777 / CLA MQA SCA MQL LSR + C3667, 7777 / CLA MQA SCA MQL LSR + C3670, 7777 / CLA MQA SCA MQL LSR + C3671, 7777 / CLA MQA SCA MQL LSR + C3672, 7777 / CLA MQA SCA MQL LSR + C3673, 3777 / DCA I C3777 C3674, 1777 / TAD I C3777 C3675, 0777 / AND I C3777 C3676, 0377 / AND C3777 C3677, 0177 / AND C0177 AND S0077 / @@3700=0077 AND C0037 / @@3701=0037 C3702, 0017 / AND AI7 C3703, 0007 / AND C0007 AND C0003 / @@3704=0003 AND L0001 / @@3705=0001 AND S0000 / @@3706=0000 AND S0000 / @@3707=0000 AND S0000 / @@3710=0000 AND S0000 / @@3711=0000 AND S0000 / @@3712=0000 AND S0000 / @@3713=0000 AND S0000 / @@3714=0000 AND S0000 / @@3715=0000 AND S0000 / @@3716=0000 AND S0000 / @@3717=0000 AND S0000 / @@3720=0000 AND S0000 / @@3721=0000 AND S0000 / @@3722=0000 *4000 L4000, JMS S4136 / @@4000=4336 L4001, C4001, 4313 / JMS S4113 L4002, CLA CLL CMA CML / @@4002=7360 MQL / @@4003=7421 CMA / @@4004=7040 AND C4103 / @@4005=0303 C4006, 7415 / ASR + D4007, 0000 / AND S0000 DCA D0162 / @@4010=3162 MQA / @@4011=7501 DCA D0165 / @@4012=3165 SNL / @@4013=7420 JMP L4046 / @@4014=5246 JMP L4045 / @@4015=5245 L4016, STA / AC = 7777 (-0001) @@4016=7240 AND D0162 / @@4017=0162 CLL CMA / @@4020=7140 TAD D4073 / @@4021=1273 CMA / @@4022=7040 SZA / @@4023=7440 JMP L4050 / @@4024=5250 SZL / @@4025=7430 JMP L4050 / @@4026=5250 CMA / @@4027=7040 AND D0165 / @@4030=0165 CLL CMA / @@4031=7140 TAD D4074 / @@4032=1274 CMA / @@4033=7040 SZA / @@4034=7440 JMP L4050 / @@4035=5250 SZL / @@4036=7430 JMP L4050 / @@4037=5250 STA / AC = 7777 (-0001) @@4040=7240 AND I C4102 / @@4041=0702 SZA / @@4042=7440 JMP L4050 / @@4043=5250 JMP L4061 / @@4044=5261 L4045, CMA / @@4045=7040 L4046, DCA I C4102 / @@4046=3702 JMP L4016 / @@4047=5216 L4050, LAS / @@4050=7604 CLL RTL / @@4051=7106 RAL / @@4052=7004 SZL / @@4053=7430 JMS S4066 / @@4054=4266 LAS / @@4055=7604 CLL RAL / @@4056=7104 C4057, 7430 / SZL HLT / @@4060=7402 L4061, LAS / @@4061=7604 CLL RTL / @@4062=7106 SZL / @@4063=7430 JMP L4002 / @@4064=5202 JMP L4001 / @@4065=5201 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4066 / / Called from: / 4054 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4066, 0 / return area JMS I C4101 / long call to S3400 @@4067=4701 JMS I C4100 / long call to S3557 @@4070=4700 JMS I C4077 / long call to S3414 @@4071=4677 JMP I S4066 / return @@4072=5666 D4073, 0000 / AND S0000 D4074, 0000 / AND S0000 D4075, 0000 / AND S0000 C4076, C4076, 4200 / JMS L4000 C4077, C4077, 3414 / DCA I AI4 C4100, C4100, 3557 / DCA I C0157 C4101, C4101, 3400 / DCA I S0000 C4102, 1747 / TAD I C4147 C4103, 3777 / DCA I C4177 C4104, 3405 / DCA I C0005 C4105, 2154 / ISZ D0154 C4106, 3060 / DCA D0060 C4107, 3673 / DCA I D4073 C4110, 7750 / SPA SNA CLA C4111, 3601 / DCA I L4001 C4112, 3657 / DCA I C4057 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4113 / / Never called //////////////////////////////////////////////////////////////////////////////// S4113, 0 / return area STA / AC = 7777 (-0001) @@4114=7240 AND I AI0 / AUTO INDEX REGISTER @@4115=0410 DCA D4073 / @@4116=3273 CMA / @@4117=7040 AND I AI1 / AUTO INDEX REGISTER @@4120=0411 DCA D4074 / @@4121=3274 ISZ D4007 / @@4122=2207 ISZ D0161 / @@4123=2161 ISZ D4075 / @@4124=2275 JMP I S4113 / return @@4125=5713 ISZ D4164 / @@4126=2364 JMP L4000 / @@4127=5200 LAS / @@4130=7604 CLL RTL / @@4131=7106 RTL / @@4132=7006 SZL / @@4133=7430 JMP L4000 / @@4134=5200 JMP I C4076 / long jump to L4200 @@4135=5676 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4136 / / Called from: / 4000 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4136, 0 / return area STA / AC = 7777 (-0001) @@4137=7240 AND C4104 / @@4140=0304 DCA I C4105 / @@4141=3705 CMA / @@4142=7040 AND C4104 / @@4143=0304 DCA I C4106 / @@4144=3706 CMA / @@4145=7040 AND C4107 / @@4146=0307 DCA AI0 / AUTO INDEX REGISTER @@4147=3010 CMA / @@4150=7040 AND C4112 / @@4151=0312 DCA AI1 / AUTO INDEX REGISTER @@4152=3011 CMA / @@4153=7040 DCA D4007 / @@4154=3207 CMA / @@4155=7040 AND C4111 / @@4156=0311 DCA D0161 / @@4157=3161 CMA / @@4160=7040 AND C4110 / @@4161=0310 DCA D4075 / @@4162=3275 JMP I S4136 / return @@4163=5736 D4164, 0000 / AND S0000 *4200 L4200, JMP L4267 / @@4200=5267 L4201, JMS S4321 / @@4201=4321 L4202, STA / AC = 7777 (-0001) @@4202=7240 AND D4314 / @@4203=0314 MQL / @@4204=7421 CMA / @@4205=7040 AND D4313 / @@4206=0313 C4207, 7411 / NMI DCA D4316 / @@4210=3316 MQA / @@4211=7501 DCA D4315 / @@4212=3315 C4213, 7441 / SCA DCA D4307 / @@4214=3307 CMA / @@4215=7040 AND D4316 / @@4216=0316 CLL CMA / @@4217=7140 TAD C4310 / @@4220=1310 CMA / @@4221=7040 SZA / @@4222=7440 JMP L4250 / @@4223=5250 SZL / @@4224=7430 JMP L4250 / @@4225=5250 STA / AC = 7777 (-0001) @@4226=7240 AND D4315 / @@4227=0315 SZA / @@4230=7440 JMP L4250 / @@4231=5250 CMA / @@4232=7040 AND D4307 / @@4233=0307 CLL CMA / @@4234=7140 TAD D4312 / @@4235=1312 CMA / @@4236=7040 SZA / @@4237=7440 JMP L4250 / @@4240=5250 SZL / @@4241=7430 JMP L4250 / @@4242=5250 STA / AC = 7777 (-0001) @@4243=7240 AND D4312 / @@4244=0312 SZA / @@4245=7440 JMP L4262 / @@4246=5262 JMP L4301 / @@4247=5301 L4250, LAS / @@4250=7604 CLL RTL / @@4251=7106 RAL / @@4252=7004 SNL / @@4253=7420 SKP / @@4254=7410 JMS I C4320 / long call to S4400 @@4255=4720 LAS / @@4256=7604 CLL RAL / @@4257=7104 SZL / @@4260=7430 HLT / @@4261=7402 L4262, LAS / @@4262=7604 CLL RTL / @@4263=7106 SZL / @@4264=7430 JMP L4202 / @@4265=5202 JMP L4201 / @@4266=5201 L4267, STA / AC = 7777 (-0001) @@4267=7240 AND C4336 / @@4270=0336 DCA AI2 / AUTO INDEX REGISTER @@4271=3012 CMA / @@4272=7040 AND C4337 / @@4273=0337 DCA AI3 / AUTO INDEX REGISTER @@4274=3013 CMA / @@4275=7040 AND C4311 / @@4276=0311 DCA D4312 / @@4277=3312 JMP L4201 / @@4300=5201 L4301, LAS / @@4301=7604 CLL RTL / @@4302=7106 RTL / @@4303=7006 SZL / @@4304=7430 JMP L4200 / @@4305=5200 JMP I C4317 / long jump to L5000 @@4306=5717 D4307, 0000 / AND S0000 C4310, 6000 / 6000 C4311, 0027 / AND D0027 D4312, 0000 / AND S0000 D4313, 0000 / AND S0000 D4314, 0000 / AND S0000 D4315, 0000 / AND S0000 D4316, 0000 / AND S0000 C4317, C4317, 5000 / JMP S0000 C4320, C4320, 4400 / JMS I S0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4321 / / Called from: / 4201 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4321, 0 / return area STA / AC = 7777 (-0001) @@4322=7240 AND I AI2 / AUTO INDEX REGISTER @@4323=0412 DCA D4313 / @@4324=3313 CMA / @@4325=7040 AND I AI3 / AUTO INDEX REGISTER @@4326=0413 DCA D4314 / @@4327=3314 CMA / @@4330=7040 AND D4312 / @@4331=0312 CIA / @@4332=7041 CMA / @@4333=7040 DCA D4312 / @@4334=3312 JMP L4340 / @@4335=5340 C4336, 4517 / JMS I L0117 C4337, 4533 / JMS I C0133 L4340, STA / AC = 7777 (-0001) @@4340=7240 AND D4312 / @@4341=0312 SZA / @@4342=7440 JMP I S4321 / return @@4343=5721 JMP L4301 / @@4344=5301 *4400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4400 / / Called from: / 4255 5137 5320 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S4400, 0 / return area JMS S0036 / @@4401=4036 JMS I C4512 / long call to S4600 @@4402=4712 JMS I C4474 / long call to S0327 @@4403=4674 JMS I C4474 / long call to S0327 @@4404=4674 D4405, 4674 / JMS I C4474 JMS I C4475 / long call to S2200 @@4406=4675 JMS I C4476 / long call to S2205 @@4407=4676 JMS I C4477 / long call to S0337 @@4410=4677 JMS I C4500 / long call to S2212 @@4411=4700 D4412, 4701 / JMS I C4501 JMS I C4475 / long call to S2200 @@4413=4675 JMS I C4476 / long call to S2205 @@4414=4676 JMS I C4502 / long call to S0305 @@4415=4702 JMS I C4500 / long call to S2212 @@4416=4700 JMS S0036 / @@4417=4036 JMS I C4474 / long call to S0327 @@4420=4674 JMS I C4474 / long call to S0327 @@4421=4674 JMS I C4474 / long call to S0327 @@4422=4674 STA / AC = 7777 (-0001) @@4423=7240 AND I C4503 / @@4424=0703 DCA D0147 / @@4425=3147 JMS S0077 / @@4426=4077 JMS I C4474 / long call to S0327 @@4427=4674 JMS I C4504 / long call to S0347 @@4430=4704 STA / AC = 7777 (-0001) @@4431=7240 AND I C4505 / @@4432=0705 DCA D0147 / @@4433=3147 JMS S0077 / @@4434=4077 JMS S0036 / @@4435=4036 JMS I C4513 / long call to S4624 @@4436=4713 JMS I C4474 / long call to S0327 @@4437=4674 JMS I C4504 / long call to S0347 @@4440=4704 STA / AC = 7777 (-0001) @@4441=7240 AND I C4506 / @@4442=0706 DCA D0147 / @@4443=3147 JMS S0077 / @@4444=4077 JMS I C4474 / long call to S0327 @@4445=4674 JMS I C4504 / long call to S0347 @@4446=4704 STA / AC = 7777 (-0001) @@4447=7240 AND I C4507 / @@4450=0707 DCA D0147 / @@4451=3147 JMS S0077 / @@4452=4077 JMS S0036 / @@4453=4036 JMS I C4514 / long call to S4627 @@4454=4714 JMS I C4474 / long call to S0327 @@4455=4674 STA / AC = 7777 (-0001) @@4456=7240 AND I C4510 / @@4457=0710 DCA D0147 / @@4460=3147 JMS S0077 / @@4461=4077 JMS S0036 / @@4462=4036 JMS I C4515 / long call to S4633 @@4463=4715 JMS I C4474 / long call to S0327 @@4464=4674 JMS I C4504 / long call to S0347 @@4465=4704 STA / AC = 7777 (-0001) @@4466=7240 AND I C4511 / @@4467=0711 DCA D0147 / @@4470=3147 JMS S0077 / @@4471=4077 JMS S0036 / @@4472=4036 JMP I S4400 / return @@4473=5600 C4474, C4474, 0327 / AND C4527 C4475, C4475, 2200 / ISZ S4400 C4476, C4476, 2205 / ISZ D4405 C4477, C4477, 0337 / AND C4537 C4500, C4500, 2212 / ISZ D4412 ISZ D0142 / @@4501=2142 C4502, C4502, 0305 / AND C4505 C4503, 4313 / JMS C4513 C4504, C4504, 0347 / AND C4547 C4505, 4314 / JMS C4514 C4506, 4316 / JMS D4516 C4507, 4315 / JMS C4515 C4510, 4312 / JMS C4512 C4511, 4307 / JMS C4507 C4512, C4512, 4600 / JMS I S4400 C4513, C4513, 4624 / JMS I C4424 C4514, C4514, 4627 / JMS I C4427 C4515, C4515, 4633 / JMS I C4433 AND S0000 / @@4516=0000 AND S0000 / @@4517=0000 C4520, 7777 / CLA MQA SCA MQL LSR + C4521, 7777 / CLA MQA SCA MQL LSR + C4522, 7777 / CLA MQA SCA MQL LSR + C4523, 7777 / CLA MQA SCA MQL LSR + C4524, 7777 / CLA MQA SCA MQL LSR + C4525, 7777 / CLA MQA SCA MQL LSR + C4526, 7777 / CLA MQA SCA MQL LSR + C4527, 7777 / CLA MQA SCA MQL LSR + C4530, 7777 / CLA MQA SCA MQL LSR + C4531, 7777 / CLA MQA SCA MQL LSR + C4532, 7777 / CLA MQA SCA MQL LSR + C4533, 7777 / CLA MQA SCA MQL LSR + C4534, 7777 / CLA MQA SCA MQL LSR + SPA SNA SZL CLA OSR HLT / @@4535=7776 SPA SNA SZL CLA OSR / @@4536=7774 C4537, 7770 / SPA SNA SZL CLA SMA SZA SNL CLA / @@4540=7760 SMA SZA CLA / @@4541=7740 SMA CLA / @@4542=7700 7600 / AKA "CLA" @@4543=7600 / @@4544=7400 NOP / @@4545=7000 C4546, 6000 / 6000 C4547, 4000 / JMS S0000 AND S0000 / @@4550=0000 AND S0000 / @@4551=0000 AND S0000 / @@4552=0000 AND S0000 / @@4553=0000 AND S0000 / @@4554=0000 AND S0000 / @@4555=0000 AND S0000 / @@4556=0000 AND S0000 / @@4557=0000 AND S0000 / @@4560=0000 AND S0000 / @@4561=0000 AND S0000 / @@4562=0000 AND S0000 / @@4563=0000 AND S0000 / @@4564=0000 *4600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4600 / / Called from: / 4402 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4600, 0 / return area JMS S4604 / @@4601=4204 JMS S4617 / @@4602=4217 JMP I S4600 / return @@4603=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4604 / / Called from: / 4601 4625 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4604, 0 / return area STA / AC = 7777 (-0001) @@4605=7240 AND C4656 / @@4606=0256 JMS S0046 / @@4607=4046 STA / AC = 7777 (-0001) @@4610=7240 AND C4657 / @@4611=0257 JMS S0046 / @@4612=4046 STA / AC = 7777 (-0001) @@4613=7240 AND C4660 / @@4614=0260 JMS S0046 / @@4615=4046 JMP I S4604 / return @@4616=5604 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4617 / / Called from: / 4602 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4617, 0 / return area STA / AC = 7777 (-0001) @@4620=7240 AND C4661 / @@4621=0261 JMS S0046 / @@4622=4046 JMP I S4617 / return @@4623=5617 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4624 / / Called from: / 4436 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4624, 0 / return area JMS S4604 / @@4625=4204 JMP I S4624 / return @@4626=5624 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4627 / / Called from: / 4454 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4627, 0 / return area JMS S4636 / @@4630=4236 JMS S4651 / @@4631=4251 JMP I S4627 / return @@4632=5627 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4633 / / Called from: / 4463 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4633, 0 / return area JMS S4636 / @@4634=4236 JMP I S4633 / return @@4635=5633 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4636 / / Called from: / 4630 4634 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4636, 0 / return area STA / AC = 7777 (-0001) @@4637=7240 AND C4662 / @@4640=0262 JMS S0046 / @@4641=4046 STA / AC = 7777 (-0001) @@4642=7240 AND C4663 / @@4643=0263 JMS S0046 / @@4644=4046 STA / AC = 7777 (-0001) @@4645=7240 AND C4664 / @@4646=0264 JMS S0046 / @@4647=4046 JMP I S4636 / return @@4650=5636 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4651 / / Called from: / 4631 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4651, 0 / return area STA / AC = 7777 (-0001) @@4652=7240 AND C4661 / @@4653=0261 JMS S0046 / @@4654=4046 JMP I S4651 / return @@4655=5651 C4656, 0316 / AND C4716 C4657, 0315 / AND C4715 C4660, 0311 / AND C4711 C4661, 0324 / AND C4724 C4662, 0323 / AND C4723 C4663, 0303 / AND C4703 C4664, 0301 / AND C4701 *5000 L5000, JMP L5061 / @@5000=5261 L5001, JMS S5072 / @@5001=4272 L5002, STA / AC = 7777 (-0001) @@5002=7240 AND I C5115 / @@5003=0715 MQL / @@5004=7421 STA / AC = 7777 (-0001) @@5005=7240 AND I C5116 / @@5006=0716 C5007, 7411 / NMI DCA I C5124 / @@5010=3724 MQA / @@5011=7501 DCA I C5125 / @@5012=3725 C5013, 7441 / SCA DCA I C5126 / @@5014=3726 STA / AC = 7777 (-0001) @@5015=7240 AND I C5124 / @@5016=0724 CLL CMA / @@5017=7140 TAD I C5115 / @@5020=1715 CMA / @@5021=7040 SZA / @@5022=7440 JMP L5132 / @@5023=5332 SZL / @@5024=7430 JMP L5132 / @@5025=5332 STA / AC = 7777 (-0001) @@5026=7240 AND I C5125 / @@5027=0725 SZA / @@5030=7440 JMP L5132 / @@5031=5332 STA / AC = 7777 (-0001) @@5032=7240 AND I C5126 / @@5033=0726 CLL CMA / @@5034=7140 TAD C5130 / @@5035=1330 CMA / @@5036=7040 SZA / @@5037=7440 JMP L5132 / @@5040=5332 SZL / @@5041=7430 JMP L5132 / @@5042=5332 ISZ D5114 / @@5043=2314 JMP L5002 / @@5044=5202 LAS / @@5045=7604 CLL RTL / @@5046=7106 SZL / @@5047=7430 JMP L5002 / @@5050=5202 ISZ D5121 / @@5051=2321 JMP L5001 / @@5052=5201 LAS / @@5053=7604 CLL RTL / @@5054=7106 RTL / @@5055=7006 SZL / @@5056=7430 JMP L5000 / @@5057=5200 JMP I C5123 / long jump to L5200 @@5060=5723 L5061, CLA / @@5061=7200 DCA D5114 / @@5062=3314 NOP / @@5063=7000 CMA / @@5064=7040 AND C5122 / @@5065=0322 DCA D5121 / @@5066=3321 TAD C5130 / @@5067=1330 DCA I C5127 / @@5070=3727 JMP L5001 / @@5071=5201 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5072 / / Called from: / 5001 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5072, 0 / return area STA / AC = 7777 (-0001) @@5073=7240 AND D5121 / @@5074=0321 CMA / @@5075=7040 SZA / @@5076=7440 JMP L5101 / @@5077=5301 JMP L5106 / @@5100=5306 L5101, STA / AC = 7777 (-0001) @@5101=7240 AND C5117 / @@5102=0317 DCA I C5115 / @@5103=3715 DCA I C5116 / @@5104=3716 JMP I S5072 / return @@5105=5672 L5106, STA / AC = 7777 (-0001) @@5106=7240 AND C5120 / @@5107=0320 DCA I C5115 / @@5110=3715 CMA / @@5111=7040 DCA I C5116 / @@5112=3716 JMP I S5072 / return @@5113=5672 D5114, 0000 / AND S0000 C5115, 4314 / JMS D5114 C5116, 4313 / JMS C5113 C5117, 2525 / ISZ I D0125 C5120, 5252 / JMP C5052 D5121, 0000 / AND S0000 C5122, 7776 / SPA SNA SZL CLA OSR HLT C5123, C5123, 5200 / JMP L5000 C5124, 4316 / JMS C5116 C5125, 4315 / JMS C5115 C5126, 4307 / JMS C5107 C5127, 4312 / JMS C5112 C5130, 0014 / AND AI4 C5131, C5131, 4400 / JMS I S0000 L5132, LAS / @@5132=7604 CLL RTL / @@5133=7106 RAL / @@5134=7004 SNL / @@5135=7420 SKP / @@5136=7410 JMS I C5131 / long call to S4400 @@5137=4731 LAS / @@5140=7604 CLL RAL / @@5141=7104 SZL / @@5142=7430 HLT / @@5143=7402 LAS / @@5144=7604 CLL RTL / @@5145=7106 SNL / @@5146=7420 JMP L5002 / @@5147=5202 CLA / @@5150=7200 DCA D5114 / @@5151=3314 JMP L5002 / @@5152=5202 *5200 L5200, JMP L5307 / @@5200=5307 L5201, JMS S5255 / @@5201=4255 L5202, CAM / @@5202=7621 CMA / @@5203=7040 AND I C5334 / @@5204=0734 MQL / @@5205=7421 CLL CMA / @@5206=7140 AND I C5335 / @@5207=0735 C5210, 7411 / NMI DCA I C5336 / @@5211=3736 MQA / @@5212=7501 DCA I C5337 / @@5213=3737 C5214, 7441 / SCA DCA I C5343 / @@5215=3743 CMA / @@5216=7040 AND I C5336 / @@5217=0736 CMA / @@5220=7040 TAD D5340 / @@5221=1340 CMA / @@5222=7040 SZA / @@5223=7440 JMP L5314 / @@5224=5314 SZL / @@5225=7430 JMP L5314 / @@5226=5314 CMA / @@5227=7040 AND I C5337 / @@5230=0737 CMA / @@5231=7040 TAD D5341 / @@5232=1341 CMA / @@5233=7040 SZA / @@5234=7440 JMP L5314 / @@5235=5314 SZL / @@5236=7430 JMP L5314 / @@5237=5314 CMA / @@5240=7040 AND I C5343 / @@5241=0743 CIA / @@5242=7041 TAD I C5342 / @@5243=1742 SNL / @@5244=7420 JMP L5314 / @@5245=5314 ISZ D5345 / @@5246=2345 JMP L5202 / @@5247=5202 L5250, LAS / @@5250=7604 CLL RTL / @@5251=7106 SZL / @@5252=7430 JMP L5202 / @@5253=5202 JMP L5354 / @@5254=5354 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5255 / / Called from: / 5201 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5255, 0 / return area STA / AC = 7777 (-0001) @@5256=7240 AND D5346 / @@5257=0346 CMA / @@5260=7040 SZA / @@5261=7440 JMP L5264 / @@5262=5264 JMP L5273 / @@5263=5273 L5264, CLA / @@5264=7200 DCA I C5335 / @@5265=3735 DCA I C5334 / @@5266=3734 DCA D5340 / @@5267=3340 DCA D5341 / @@5270=3341 DCA I C5342 / @@5271=3742 JMP I S5255 / return @@5272=5655 L5273, STA / AC = 7777 (-0001) @@5273=7240 AND C5344 / @@5274=0344 DCA I C5334 / @@5275=3734 CMA / @@5276=7040 AND C5347 / @@5277=0347 DCA I C5342 / @@5300=3742 DCA I C5335 / @@5301=3735 DCA D5341 / @@5302=3341 CMA / @@5303=7040 AND C5350 / @@5304=0350 DCA D5340 / @@5305=3340 JMP I S5255 / return @@5306=5655 L5307, STA / AC = 7777 (-0001) @@5307=7240 AND C5351 / @@5310=0351 DCA D5346 / @@5311=3346 DCA D5345 / @@5312=3345 JMP L5201 / @@5313=5201 L5314, LAS / @@5314=7604 CLL RTL / @@5315=7106 RAL / @@5316=7004 SZL / @@5317=7430 JMS I C5352 / long call to S4400 @@5320=4752 LAS / @@5321=7604 CLL RAL / @@5322=7104 SZL / @@5323=7430 HLT / @@5324=7402 JMP L5250 / @@5325=5250 L5326, LAS / @@5326=7604 CLL RTL / @@5327=7106 RTL / @@5330=7006 SZL / @@5331=7430 JMP L5200 / @@5332=5200 JMP I C5353 / long jump to L5510 @@5333=5753 C5334, 4314 / JMS L5314 C5335, 4313 / JMS C5313 C5336, 4316 / JMS C5316 C5337, 4315 / JMS C5315 D5340, 0000 / AND S0000 D5341, 0000 / AND S0000 C5342, 4312 / JMS C5312 C5343, 4307 / JMS L5307 C5344, 0001 / AND L0001 D5345, 0000 / AND S0000 D5346, 0000 / AND S0000 C5347, 0026 / AND C0026 C5350, 2000 / ISZ S0000 C5351, 7776 / SPA SNA SZL CLA OSR HLT C5352, C5352, 4400 / JMS I S0000 C5353, C5353, 5510 / JMP I D0110 L5354, ISZ D5346 / @@5354=2346 JMP L5201 / @@5355=5201 JMP L5326 / @@5356=5326 *5400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5400 / / Called from: / 0200 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5400, 0 / return area L5401, C5401, 7200 / CLA C5402, 7403 / SCL + C5403, 7737 / CLA MQA MQL LSR + C5404, 7441 / SCA SZA CLA / @@5405=7640 HLT / @@5406=7402 C5407, 7403 / SCL + C5410, 7776 / SPA SNA SZL CLA OSR HLT C5411, 7441 / SCA TAD C5410 / @@5412=1210 CMA / @@5413=7040 SZA CLA / @@5414=7640 HLT / @@5415=7402 C5416, 7403 / SCL + C5417, 7775 / CLA MQA SCA MQL ASR + C5420, 7441 / SCA TAD C5417 / @@5421=1217 CMA / @@5422=7040 SZA CLA / @@5423=7640 HLT / @@5424=7402 C5425, 7403 / SCL + C5426, 7773 / CLA MQA SCA MQL SHL + C5427, 7441 / SCA TAD C5426 / @@5430=1226 CMA / @@5431=7040 SZA CLA / @@5432=7640 HLT / @@5433=7402 C5434, 7403 / SCL + C5435, 7767 / CLA MQA SCA MQL DVI + C5436, 7441 / SCA TAD C5435 / @@5437=1235 CMA / @@5440=7040 SZA CLA / @@5441=7640 HLT / @@5442=7402 C5443, 7403 / SCL + C5444, 7757 / CLA MQA SCA LSR + C5445, 7441 / SCA TAD C5444 / @@5446=1244 CMA / @@5447=7040 SZA CLA / @@5450=7640 HLT / @@5451=7402 C5452, 7403 / SCL + C5453, 7765 / CLA MQA SCA MQL MUY + C5454, 7441 / SCA TAD C5453 / @@5455=1253 CMA / @@5456=7040 SZA CLA / @@5457=7640 HLT / @@5460=7402 C5461, 7403 / SCL + C5462, 7752 / SPA SNA CLA HLT C5463, 7441 / SCA TAD C5462 / @@5464=1262 CMA / @@5465=7040 SZA CLA / @@5466=7640 HLT / @@5467=7402 C5470, 7403 / SCL + AND S0077 / @@5471=0077 C5472, 7441 / SCA SZA CLA / @@5473=7640 HLT / @@5474=7402 C5475, 7403 / SCL + SMA CLA / @@5476=7700 C5477, 7441 / SCA TAD C5521 / @@5500=1321 CMA / @@5501=7040 SZA CLA / @@5502=7640 HLT / @@5503=7402 ISZ D5507 / @@5504=2307 JMP L5401 / @@5505=5201 JMP I S5400 / return @@5506=5600 D5507, 0000 / AND S0000 L5510, JMS S0036 / @@5510=4036 STA / AC = 7777 (-0001) @@5511=7240 AND D0154 / @@5512=0154 JMS S0046 / @@5513=4046 CMA / @@5514=7040 AND C0137 / @@5515=0137 JMS S0046 / @@5516=4046 JMP I C5520 / long jump to L0201 @@5517=5720 C5520, C5520, 0201 / AND L5401 C5521, 7740 / SMA SZA CLA $