TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-d5fa-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-d5fa-pb.bin / Generated 2010 02 19 00:10:23 / 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 / / 1255 locations used, 0723 code and 0332 data //////////////////////////////////////////////////////////////////////////////// *0020 D0020, 0000 / AND L0000 D0021, 0000 / AND L0000 D0022, 0000 / AND L0000 D0023, 0000 / AND L0000 D0024, 0000 / AND L0000 D0025, 0000 / AND L0000 C0026, 0002 / AND D0002 C0027, 0004 / AND C0004 C0030, 0260 / AND D0060 C0031, 1000 / TAD L0000 C0032, 6000 / 6000 C0033, 7000 / NOP C0034, 1777 / TAD I C0177 C0035, 5477 / JMP I C0077 L0036, C0036, 2000 / ISZ L0000 C0037, 3477 / DCA I C0077 C0040, 0003 / AND C0003 C0041, 4000 / JMS L0000 C0042, 0700 / AND I C0100 C0043, 0070 / AND C0070 C0044, 0007 / AND C0007 C0045, 0377 / AND C0177 C0046, 0100 / AND C0100 C0047, 7700 / SMA CLA C0050, 0077 / AND C0077 C0051, 1477 / TAD I C0077 C0052, 3777 / DCA I C0177 C0053, 0001 / AND D0001 D0054, 0000 / AND L0000 C0055, 0000 / AND L0000 D0056, 0000 / AND L0000 C0057, 5544 / JMP I C0144 D0060, 0000 / AND L0000 D0061, 0000 / AND L0000 C0062, 0203 / AND C0003 C0063, 0063 / AND C0063 C0064, 0215 / AND AI5 C0065, 0212 / AND AI2 D0066, 0000 / AND L0000 AND C0040 / @@0067=0240 C0070, 0305 / AND C0105 AND C0130 / @@0071=0330 AND C0111 / @@0072=0311 AND D0123 / @@0073=0323 AND D0124 / @@0074=0324 AND C0105 / @@0075=0305 C0076, 0316 / AND C0116 C0077, C0077, 0324 / AND D0124 C0100, 0240 / AND C0040 AND C0104 / @@0101=0304 C0102, 0311 / AND C0111 C0103, 0323 / AND D0123 C0104, 0313 / AND C0113 C0105, 0250 / AND C0050 AND D0123 / @@0106=0323 AND C0051 / @@0107=0251 C0110, 0000 / AND L0000 C0111, C0111, 0635 / AND I C0035 C0112, 7750 / SPA SNA CLA C0113, 7751 / CLA MQA SCA NMI C0114, C0114, 0662 / AND I C0062 C0115, C0115, 0654 / AND I D0054 C0116, C0116, 1000 / TAD L0000 D0117, 0421 / AND I D0021 D0120, 0000 / AND L0000 D0121, 0000 / AND L0000 D0122, 0000 / AND L0000 D0123, 0000 / AND L0000 D0124, 0000 / AND L0000 C0125, C0125, 1114 / TAD C0114 C0126, C0126, 1207 / TAD C0007 C0127, C0127, 0600 / AND I L0000 C0130, C0130, 0200 / AND L0000 AND C0064 / @@0131=0264 C0132, 0400 / AND I L0000 C0133, C0133, 0504 / AND I C0104 TAD D0022 / @@0134=1022 C0135, 0276 / AND C0076 C0136, C0136, 7600 / 7600 D0137, 0000 / AND L0000 C0140, 0000 / AND L0000 D0141, 0000 / AND L0000 D0142, 0000 / AND L0000 C0143, C0143, 1317 / TAD D0117 TAD C0051 / @@0144=1051 C0145, C0145, 1357 / TAD C0157 C0146, C0146, 1370 / TAD S0170 C0147, C0147, 0530 / AND I C0130 JMS S0170 / @@0150=4170 HLT / @@0151=7402 *0155 RFB / Read the content of the reader buffe @@0155=6012 PCF / Clear punch flag and punch buffer. @@0156=6022 C0157, 6762 / DCTA C0160, 7000 / NOP NOP / @@0161=7000 NOP / @@0162=7000 JMS S0170 / @@0163=4170 C0164, 6202 / CIF0 C0165, 6201 / CDF0 JMP I C0136 / long jump to L7600 @@0166=5536 *0170 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0170 / / Called from: / 0150 0163 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0170, 0 / return area C0171, 5532 / JMP I C0132 L0172, IOF / Disable Interrupts @@0172=6002 JMP I S0170 / return @@0173=5570 *0200 C0200, 0000 / AND L0000 IOF / Disable Interrupts @@0201=6002 STA / AC = 7777 (-0001) @@0202=7240 TAD C0200 / @@0203=1200 C0204, 3012 / DCA AI2 L0205, C0205, 1412 / TAD I AI2 DCA D0217 / @@0206=3217 TAD D0217 / @@0207=1217 RTR / @@0210=7012 RTR / @@0211=7012 RTR / @@0212=7012 JMS S0220 / @@0213=4220 TAD D0217 / @@0214=1217 JMS S0220 / @@0215=4220 JMP L0205 / @@0216=5205 D0217, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0220 / / Called from: / 0213 0215 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0220, 0 / return area AND C0254 / @@0221=0254 SNA / @@0222=7450 JMP L0251 / @@0223=5251 TAD C0255 / @@0224=1255 SMA / @@0225=7500 JMP L0231 / @@0226=5231 TAD C0256 / @@0227=1256 JMP L0244 / @@0230=5244 L0231, TAD C0257 / @@0231=1257 SZA / @@0232=7440 JMP L0236 / @@0233=5236 TAD C0260 / @@0234=1260 JMP L0244 / @@0235=5244 L0236, TAD C0261 / @@0236=1261 SZA / @@0237=7440 JMP L0243 / @@0240=5243 TAD C0262 / @@0241=1262 JMP L0244 / @@0242=5244 L0243, TAD C0263 / @@0243=1263 L0244, TLS / Load the TTO from the content of AC4 @@0244=6046 L0245, TSF / Skip if teleprinter flag is a 1. @@0245=6041 JMP L0245 / @@0246=5245 CLA / @@0247=7200 JMP I S0220 / return @@0250=5620 L0251, TCF / Clear teleprinter flag. @@0251=6042 ION / Enable Interrupts @@0252=6001 C0253, 5412 / JMP I AI2 C0254, 0077 / AND C0077 C0255, 7740 / SMA SZA CLA C0256, 0340 / AND C0340 C0257, 7775 / CLA MQA SCA MQL ASR + C0260, 0212 / AND C0212 C0261, 7776 / SPA SNA SZL CLA OSR HLT C0262, 0215 / AND C0215 C0263, 0245 / AND L0245 D0264, 7402 / HLT NOP / @@0265=7000 NOP / @@0266=7000 L0267, CLA / @@0267=7200 TAD I D0264 / @@0270=1664 DCA D0273 / @@0271=3273 JMP I D0274 / long jump to L0276 @@0272=5674 D0273, 0000 / AND L0000 D0274, 0276 / AND C0276 JMP L0267 / @@0275=5267 C0276, 1673 / TAD I D0273 AND C0044 / @@0277=0044 DCA D0344 / @@0300=3344 TAD I D0273 / @@0301=1673 AND C0043 / @@0302=0043 DCA D0345 / @@0303=3345 TAD I D0273 / @@0304=1673 AND C0042 / @@0305=0042 DCA D0346 / @@0306=3346 TAD I D0273 / @@0307=1673 AND C0033 / @@0310=0033 DCA D0347 / @@0311=3347 TAD D0346 / @@0312=1346 C0313, 7112 / CLL RTR RAR / @@0314=7010 TAD D0347 / @@0315=1347 RTR / @@0316=7012 RAR / @@0317=7010 TAD C0350 / @@0320=1350 DCA D0346 / @@0321=3346 ISZ D0264 / @@0322=2264 C0323, 4274 / JMS D0274 L0324, D0324, 1346 / TAD D0346 DCA I D0273 / @@0325=3673 TAD D0345 / @@0326=1345 RAL / @@0327=7004 RTL / @@0330=7006 TAD D0344 / @@0331=1344 TAD C0350 / @@0332=1350 DCA D0347 / @@0333=3347 ISZ D0264 / @@0334=2264 C0335, 4274 / JMS D0274 TAD D0347 / @@0336=1347 DCA I D0273 / @@0337=3673 TAD C0135 / @@0340=1135 DCA D0274 / @@0341=3274 ISZ D0264 / @@0342=2264 JMP I D0264 / long jump to L7402 @@0343=5664 D0344, 0000 / AND L0000 D0345, 0000 / AND L0000 D0346, 0000 / AND L0000 D0347, 0000 / AND L0000 C0350, 6060 / 6060 *0400 DCMA / Clears memory address register, pari @@0400=6601 RDF / Read data field into AC6-8. Bit 0-5 @@0401=6214 TAD C0562 / @@0402=1362 DCA D0056 / @@0403=3056 TAD D0056 / @@0404=1056 DCA D0414 / @@0405=3214 CDF0 / Change to data field 0. The data fie @@0406=6201 DCA I C0055 / @@0407=3455 TAD C0563 / @@0410=1363 DCA I C0053 / @@0411=3453 TAD C0057 / @@0412=1057 DCA I C0026 / @@0413=3426 D0414, 0000 / AND L0000 DCA D0060 / @@0415=3060 DCA D0021 / @@0416=3021 DCA D0025 / @@0417=3025 L0420, C0420, 6643 / 6643 CLA / @@0421=7200 DEAC / Clear the AC then loads the contents @@0422=6616 NOP / @@0423=7000 AND C0026 / @@0424=0026 SZA / @@0425=7440 JMP L0444 / @@0426=5244 TAD D0025 / @@0427=1025 IAC / @@0430=7001 DCA D0025 / @@0431=3025 TAD D0021 / @@0432=1021 TAD C0046 / @@0433=1046 DCA D0021 / @@0434=3021 TAD D0025 / @@0435=1025 CIA / @@0436=7041 TAD C0027 / @@0437=1027 SNA CLA / @@0440=7650 JMP L0444 / @@0441=5244 TAD D0021 / @@0442=1021 JMP L0420 / @@0443=5220 L0444, CLA / @@0444=7200 TAD D0025 / @@0445=1025 SNA / @@0446=7450 HLT / @@0447=7402 TAD C0030 / @@0450=1030 DCA D0066 / @@0451=3066 TAD C0063 / @@0452=1063 C0453, 3010 / DCA AI0 L0454, TCF / Clear teleprinter flag. @@0454=6042 CLA / @@0455=7200 C0456, 1410 / TAD I AI0 SNA / @@0457=7450 JMP L0465 / @@0460=5265 TLS / Load the TTO from the content of AC4 @@0461=6046 L0462, TSF / Skip if teleprinter flag is a 1. @@0462=6041 JMP L0462 / @@0463=5262 JMP L0454 / @@0464=5254 L0465, CLA / @@0465=7200 ION / Enable Interrupts @@0466=6001 DCMA / Clears memory address register, pari @@0467=6601 TAD D0056 / @@0470=1056 AND C0043 / @@0471=0043 DEAL / The disk extended-address extension @@0472=6615 DCA D0024 / @@0473=3024 DCA D0061 / @@0474=3061 TAD C0047 / @@0475=1047 TAD D0021 / @@0476=1021 TAD C0050 / @@0477=1050 CMA / @@0500=7040 DCA D0020 / @@0501=3020 TAD D0020 / @@0502=1020 DCA D0021 / @@0503=3021 L0504, LAS / @@0504=7604 DCA D0022 / @@0505=3022 TAD D0061 / @@0506=1061 C0507, 6643 / 6643 JMS I C0111 / long call to S0635 @@0510=4511 TAD D0022 / @@0511=1022 AND C0031 / @@0512=0031 SNA CLA / @@0513=7650 JMP L0530 / @@0514=5330 TAD D0022 / @@0515=1022 AND C0045 / @@0516=0045 DCA D0061 / @@0517=3061 TAD D0061 / @@0520=1061 C0521, 6643 / 6643 TAD D0022 / @@0522=1022 AND C0041 / @@0523=0041 SNA CLA / @@0524=7650 JMP L0530 / @@0525=5330 TAD C0033 / @@0526=1033 DCA D0024 / @@0527=3024 L0530, JMS S0564 / @@0530=4364 TAD I C0077 / @@0531=1477 TAD D0024 / @@0532=1024 DMAR / The contents of the AC are loaded in @@0533=6603 JMS I C0114 / long call to S0662 @@0534=4514 JMS I C0115 / long call to S0654 @@0535=4515 JMS S0564 / @@0536=4364 DCA I C0077 / @@0537=3477 TAD D0024 / @@0540=1024 DMAW / The contents of the AC are loaded in @@0541=6605 JMS I C0114 / long call to S0662 @@0542=4514 JMS I C0115 / long call to S0654 @@0543=4515 JMS S0564 / @@0544=4364 JMP I C0077 / long jump to L0324 @@0545=5477 TAD D0024 / @@0546=1024 DMAR / The contents of the AC are loaded in @@0547=6603 JMS I C0114 / long call to S0662 @@0550=4514 JMS I C0116 / long call to S1000 @@0551=4516 JMS I C0115 / long call to S0654 @@0552=4515 JMS S0564 / @@0553=4364 TAD I C0077 / @@0554=1477 TAD D0024 / @@0555=1024 DMAW / The contents of the AC are loaded in @@0556=6605 JMS I C0114 / long call to S0662 @@0557=4514 JMS I C0115 / long call to S0654 @@0560=4515 JMP I C0127 / long jump to L0600 @@0561=5527 C0562, 6201 / CDF0 C0563, 6244 / RMF //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0564 / / Called from: / 0530 0536 0544 0553 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0564, 0 / return area TAD D0056 / @@0565=1056 DCA D0575 / @@0566=3375 TAD I S0564 / @@0567=1764 ISZ S0564 / @@0570=2364 CDF0 / Change to data field 0. The data fie @@0571=6201 DCA I C0113 / @@0572=3513 TAD C0032 / @@0573=1032 DCA I C0112 / @@0574=3512 D0575, 0000 / AND L0000 JMP I S0564 / return @@0576=5764 *0600 L0600, CLA / @@0600=7200 TAD D0060 / @@0601=1060 CIA / @@0602=7041 TAD C0062 / @@0603=1062 SNA CLA / @@0604=7650 JMP L0172 / @@0605=5172 TAD D0024 / @@0606=1024 CIA / @@0607=7041 TAD C0032 / @@0610=1032 SNA CLA / @@0611=7650 JMP L0620 / @@0612=5220 CLA / @@0613=7200 TAD D0024 / @@0614=1024 TAD L0036 / @@0615=1036 DCA D0024 / @@0616=3024 JMP I C0147 / long jump to L0530 @@0617=5547 L0620, CLA / @@0620=7200 DCA D0024 / @@0621=3024 TAD D0022 / @@0622=1022 AND C0031 / @@0623=0031 SZA CLA / @@0624=7640 JMP L0631 / @@0625=5231 ISZ D0061 / @@0626=2061 ISZ D0021 / @@0627=2021 JMP I C0133 / long jump to L0504 @@0630=5533 L0631, TAD D0020 / @@0631=1020 DCA D0021 / @@0632=3021 DCA D0061 / @@0633=3061 JMP I C0133 / long jump to L0504 @@0634=5533 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0635 / / Called from: / 0510 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0635, 0 / return area TAD C0032 / @@0636=1032 DCA D0023 / @@0637=3023 TAD C0037 / @@0640=1037 C0641, 3011 / DCA AI1 L0642, TAD D0117 / @@0642=1117 CLL RAL / @@0643=7104 SZL / @@0644=7430 TAD C0040 / @@0645=1040 DCA D0117 / @@0646=3117 TAD D0117 / @@0647=1117 C0650, 3411 / DCA I AI1 ISZ D0023 / @@0651=2023 JMP L0642 / @@0652=5242 JMP I S0635 / return @@0653=5635 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0654 / / Called from: / 0535 0543 0552 0560 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0654, 0 / return area CLA / @@0655=7200 TAD D0061 / @@0656=1061 C0657, 6643 / 6643 CLA / @@0660=7200 JMP I S0654 / return @@0661=5654 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0662 / / Called from: / 0534 0542 0550 0557 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0662, 0 / return area L0663, DFSE / Skip next instruction if the complet @@0663=6621 JMP L0676 / @@0664=5276 CLA / @@0665=7200 DEAC / Clear the AC then loads the contents @@0666=6616 NOP / @@0667=7000 AND C0026 / @@0670=0026 SNA CLA / @@0671=7650 JMP L0703 / @@0672=5303 JMS S0724 / @@0673=4324 SZA CLA / @@0674=7640 JMP L0703 / @@0675=5303 L0676, C0676, 6622 / 6622 JMP L0663 / @@0677=5263 C0700, 6641 / 6641 DCMA / Clears memory address register, pari @@0701=6601 JMP I S0662 / return @@0702=5662 L0703, CLA / @@0703=7200 DEAC / Clear the AC then loads the contents @@0704=6616 DCA D0122 / @@0705=3122 JMS S0724 / @@0706=4324 AND C0034 / @@0707=0034 TAD D0024 / @@0710=1024 DCA D0123 / @@0711=3123 DEAC / Clear the AC then loads the contents @@0712=6616 AND C0026 / @@0713=0026 SZA CLA / @@0714=7640 JMP L0720 / @@0715=5320 L0716, C0716, 6622 / 6622 JMP L0716 / @@0717=5316 L0720, JMS I C0125 / long call to S1114 @@0720=4525 C0721, 6641 / 6641 DCMA / Clears memory address register, pari @@0722=6601 JMP I S0662 / return @@0723=5662 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0724 / / Called from: / 0673 0706 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0724, 0 / return area TAD D0056 / @@0725=1056 DCA D0731 / @@0726=3331 CDF0 / Change to data field 0. The data fie @@0727=6201 TAD I C0112 / @@0730=1512 D0731, 0000 / AND L0000 JMP I S0724 / return @@0732=5724 *1000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / Called from: / 0551 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1000, 0 / return area C1001, 7200 / CLA C1002, 3142 / DCA D0142 C1003, 1037 / TAD C0037 C1004, 3010 / DCA AI0 TAD C0035 / @@1005=1035 C1006, 3011 / DCA AI1 TAD C0032 / @@1007=1032 DCA D0025 / @@1010=3025 L1011, C1011, 1410 / TAD I AI0 DCA D0121 / @@1012=3121 C1013, 1411 / TAD I AI1 DCA D0120 / @@1014=3120 TAD D0121 / @@1015=1121 CIA / @@1016=7041 TAD D0120 / @@1017=1120 SZA CLA / @@1020=7640 JMP L1025 / @@1021=5225 L1022, ISZ D0025 / @@1022=2025 JMP L1011 / @@1023=5211 JMP L1037 / @@1024=5237 L1025, LAS / @@1025=7604 AND L0036 / @@1026=0036 SZA CLA / @@1027=7640 JMP L1035 / @@1030=5235 TAD D0025 / @@1031=1025 AND C0034 / @@1032=0034 DCA D0123 / @@1033=3123 JMP L1047 / @@1034=5247 L1035, ISZ D0142 / @@1035=2142 JMP L1022 / @@1036=5222 L1037, LAS / @@1037=7604 C1040, C1040, 0036 / AND L0036 SNA CLA / @@1041=7650 JMP I S1000 / return @@1042=5600 TAD D0142 / @@1043=1142 SZA / @@1044=7440 JMS I C0143 / long call to S1317 @@1045=4543 JMP I S1000 / return @@1046=5600 L1047, JMS I C0126 / long call to S1207 @@1047=4526 JMP L1022 / @@1050=5222 DCA D0137 / @@1051=3137 RAR / @@1052=7010 DCA D0141 / @@1053=3141 TSF / Skip if teleprinter flag is a 1. @@1054=6041 JMP L1060 / @@1055=5260 TCF / Clear teleprinter flag. @@1056=6042 JMP L1077 / @@1057=5277 L1060, KSF / Skip if keyboard flag is a 1. @@1060=6031 JMP L1065 / @@1061=5265 KRB / Clear AC, clear keyboard flag, and r @@1062=6036 DCA D0060 / @@1063=3060 JMP L1077 / @@1064=5277 L1065, DFSE / Skip next instruction if the complet @@1065=6621 SKP / @@1066=7410 JMP I C0145 / long jump to L1357 @@1067=5545 C1070, 6622 / 6622 SKP / @@1071=7410 D1072, 5545 / JMP I C0145 DEAC / Clear the AC then loads the contents @@1073=6616 SPA / @@1074=7510 JMP I C0145 / long jump to L1357 @@1075=5545 JMP I C0146 / long jump to L1370 @@1076=5546 L1077, CLA / @@1077=7200 TAD D0056 / @@1100=1056 DCA D1104 / @@1101=3304 CDF0 / Change to data field 0. The data fie @@1102=6201 TAD I C0055 / @@1103=1455 D1104, 0000 / AND L0000 DCA D0054 / @@1105=3054 TAD D0141 / @@1106=1141 RAL / @@1107=7004 TAD D0137 / @@1110=1137 ION / Enable Interrupts @@1111=6001 JMP I D0054 / long jump to L0000 @@1112=5454 L1113, JMP I C1114 / long jump to L0000 @@1113=5714 C1114, C1114, 0000 / AND L0000 CLA CLL / AC = 0000 @@1115=7300 TAD D0123 / @@1116=1123 RAL / @@1117=7004 CLA / @@1120=7200 TAD D0061 / @@1121=1061 RAL / @@1122=7004 DCA D0124 / @@1123=3124 TAD D0123 / @@1124=1123 AND C0052 / @@1125=0052 DCA D0121 / @@1126=3121 C1127, 4531 / JMS I C0131 AND D0124 / @@1130=0124 TAD C0157 / @@1131=1157 TAD C0160 / @@1132=1160 C1133, 4531 / JMS I C0131 AND D0121 / @@1134=0121 TAD C0164 / @@1135=1164 TAD C0165 / @@1136=1165 C1137, 4531 / JMS I C0131 AND D0122 / @@1140=0122 TAD S0170 / @@1141=1170 TAD C0171 / @@1142=1171 C1143, 4531 / JMS I C0131 AND D0061 / @@1144=0061 TAD S1000 / @@1145=1200 TAD C1001 / @@1146=1201 C1147, 4531 / JMS I C0131 AND D0123 / @@1150=0123 TAD C1002 / @@1151=1202 TAD C1003 / @@1152=1203 JMS I C0130 / long call to S0200 @@1153=4530 JMS I C0143 / long call to S1317 @@1154=4543 C1155, 2413 / ISZ I AI3 D1156, 0140 / AND C0140 C1157, 6060 / 6060 C1160, 6060 / 6060 C1161, 4040 / JMS C0040 C1162, 0415 / AND I AI5 AND C0140 / @@1163=0140 C1164, 6060 / 6060 C1165, 6060 / 6060 JMS D0023 / @@1166=4023 ISZ D1072 / @@1167=2272 C1170, 6060 / 6060 C1171, 6060 / 6060 JMS I C0143 / long call to S1317 @@1172=4543 AND C0102 / @@1173=0102 ISZ D1156 / @@1174=2356 C1175, 4001 / JMS D0001 C1176, 0404 / AND I C0004 JMP I C1040 / long jump to L0036 @@1177=5640 C1200, 6060 / 6060 C1201, 6060 / 6060 C1202, 6060 / 6060 C1203, 6060 / 6060 C1204, 0000 / AND L0000 JMP I C1206 / long jump to L1113 @@1205=5606 C1206, C1206, 1113 / TAD C0113 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1207 / / Called from: / 1047 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1207, 0 / return area CLA CLL / AC = 0000 @@1210=7300 TAD D0123 / @@1211=1123 RAL / @@1212=7004 CLA / @@1213=7200 TAD D0061 / @@1214=1061 RAL / @@1215=7004 DCA D0124 / @@1216=3124 D1217, 1123 / TAD D0123 AND C0052 / @@1220=0052 DCA D0122 / @@1221=3122 C1222, 4531 / JMS I C0131 AND D0124 / @@1223=0124 C1224, 1256 / TAD C1256 TAD C1257 / @@1225=1257 C1226, 4531 / JMS I C0131 AND D0122 / @@1227=0122 TAD C1263 / @@1230=1263 TAD C1264 / @@1231=1264 C1232, 4531 / JMS I C0131 AND D0121 / @@1233=0121 TAD C1273 / @@1234=1273 TAD C1274 / @@1235=1274 C1236, 4531 / JMS I C0131 AND D0120 / @@1237=0120 C1240, C1240, 1303 / TAD L1303 TAD C1304 / @@1241=1304 C1242, 4531 / JMS I C0131 AND D0061 / @@1243=0061 TAD C1311 / @@1244=1311 TAD C1312 / @@1245=1312 C1246, 4531 / JMS I C0131 AND D0123 / @@1247=0123 D1250, 1313 / TAD C1313 TAD C1314 / @@1251=1314 JMS I C0130 / long call to S0200 @@1252=4530 JMS I C0143 / long call to S1317 @@1253=4543 C1254, 2413 / ISZ I AI3 AND C0140 / @@1255=0140 C1256, 6060 / 6060 C1257, 6060 / 6060 C1260, 4040 / JMS C0040 C1261, 0415 / AND I AI5 AND C0140 / @@1262=0140 C1263, 6060 / 6060 C1264, 6060 / 6060 C1265, 4007 / JMS C0007 TAD I S1317 / @@1266=1717 AND I C0040 / @@1267=0440 C1270, 0401 / AND I D0001 C1271, 2401 / ISZ I D0001 STA / AC = 7777 (-0001) @@1272=7240 C1273, 6060 / 6060 C1274, 6060 / 6060 C1275, 4040 / JMS C0040 AND C1201 / @@1276=0201 AND I C0040 / @@1277=0440 C1300, 0401 / AND I D0001 C1301, 2401 / ISZ I D0001 STA / AC = 7777 (-0001) @@1302=7240 L1303, C1303, 6060 / 6060 C1304, 6060 / 6060 JMS I C0143 / long call to S1317 @@1305=4543 AND C0102 / @@1306=0102 ISZ D1356 / @@1307=2356 C1310, 4040 / JMS C0040 C1311, 6060 / 6060 C1312, 6060 / 6060 C1313, 6060 / 6060 C1314, 6060 / 6060 C1315, 0000 / AND L0000 JMP I S1207 / return @@1316=5607 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1317 / / Called from: / 1045 1154 1172 1253 1305 1337 1360 1371 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S1317, 0 / return area TAD D0024 / @@1320=1024 CLL RAL / @@1321=7104 CLA / @@1322=7200 TAD D0061 / @@1323=1061 RAL / @@1324=7004 DCA D0124 / @@1325=3124 C1326, 4531 / JMS I C0131 AND D0124 / @@1327=0124 TAD C1343 / @@1330=1343 TAD C1344 / @@1331=1344 C1332, 4531 / JMS I C0131 AND D0142 / @@1333=0142 TAD C1353 / @@1334=1353 TAD C1354 / @@1335=1354 JMS I C0130 / long call to S0200 @@1336=4530 JMS I C0143 / long call to S1317 @@1337=4543 C1340, 2422 / ISZ I D0022 AND C0103 / @@1341=0103 TAD C1340 / @@1342=1340 C1343, 6060 / 6060 C1344, 6060 / 6060 C1345, 4040 / JMS C0040 AND I D0122 / @@1346=0522 ISZ D1217 / @@1347=2217 ISZ D1250 / @@1350=2250 D1351, 2351 / ISZ D1351 STA / AC = 7777 (-0001) @@1352=7240 C1353, 6060 / 6060 C1354, 6060 / 6060 C1355, 0000 / AND L0000 D1356, 5717 / JMP I S1317 L1357, JMS I C0130 / long call to S0200 @@1357=4530 JMS I C0143 / long call to S1317 @@1360=4543 TAD C0114 / @@1361=1114 TAD I D0056 / @@1362=1456 C1363, 4011 / JMS AI1 TAD I C1224 / @@1364=1624 JMP I C1240 / long jump to L1303 @@1365=5640 C1366, 0000 / AND L0000 HLT / @@1367=7402 L1370, JMS I C0130 / long call to S0200 @@1370=4530 JMS I C0143 / long call to S1317 @@1371=4543 ISZ I C0116 / @@1372=2516 C1373, 0405 / AND I C0005 AND I C1256 / @@1374=0656 C1375, 4011 / JMS AI1 TAD I C1224 / @@1376=1624 JMP I C1240 / long jump to L1303 @@1377=5640 C1400, 0000 / AND L0000 HLT / @@1401=7402 $