TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-divtb-a-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-divtb-a-pb.bin / Generated 2010 02 19 00:10:26 / Generated by d8tape version 0.351 / Visit http://www.pdp12.org/pdp8/software/index.html for updates / / Symbol format: / AIx -- Auto-index variables (address range 001x) / Caaaa -- Constants (non-unique) / Daaaa -- Data (read/write variables) / Kvvvv -- Program-wide unique constants / Laaaa -- Labels for control flow targets / Saaaa -- Subroutines / / Where: / aaaa is the definition address / vvvv is the value of the constant / x is the last digit of the address 001x for auto-index variables / / 2432 locations used, 1740 code and 0472 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0000 / / Called from: / 2520 2530 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0000, 0 / return area C0001, 5402 / JMP I C0002 C0002, 0072 / AND C0072 C0003, C0003, 2200 / ISZ S0000 C0004, C0004, 2231 / ISZ D0031 D0005, 0000 / AND S0000 D0006, 0000 / AND S0000 *0010 AI0, 0000 / AUTO-INDEX REGISTER AND S0000 AI1, 0000 / AUTO-INDEX REGISTER AND S0000 AND S0000 / @@0012=0000 AI3, 0000 / AUTO-INDEX REGISTER AND S0000 AND S0000 / @@0014=0000 AND S0000 / @@0015=0000 AI6, 0000 / AUTO-INDEX REGISTER AND S0000 AI7, 0000 / AUTO-INDEX REGISTER AND S0000 D0020, 0000 / AND S0000 D0021, 0001 / AND C0001 D0022, 0001 / AND C0001 L0023, D0023, 0001 / AND C0001 D0024, 0001 / AND C0001 D0025, 0001 / AND C0001 D0026, 0001 / AND C0001 D0027, 0001 / AND C0001 D0030, 0000 / AND S0000 D0031, 0530 / AND I C0130 AND I C0130 / @@0032=0530 C0033, 0530 / AND I C0130 AND I C0130 / @@0034=0530 AND I C0130 / @@0035=0530 AND I C0130 / @@0036=0530 AND I C0120 / @@0037=0520 C0040, C0040, 0520 / AND I C0120 AND I C0120 / @@0041=0520 AND I C0120 / @@0042=0520 AND I C0120 / @@0043=0520 C0044, 0520 / AND I C0120 D0045, 0000 / AND S0000 D0046, 0000 / AND S0000 D0047, 0000 / AND S0000 D0050, 0000 / AND S0000 D0051, 0000 / AND S0000 D0052, 0000 / AND S0000 C0053, 0000 / AND S0000 C0054, 1000 / TAD S0000 C0055, 2000 / ISZ S0000 C0056, 3000 / DCA S0000 C0057, 4000 / JMS S0000 C0060, 5000 / JMP S0000 D0061, 1200 / TAD S0000 D0062, 0000 / AND S0000 AND S0000 / @@0063=0000 D0064, 2000 / ISZ S0000 C0065, 0000 / AND S0000 C0066, C0066, 2264 / ISZ D0064 D0067, 0000 / AND S0000 D0070, 0000 / AND S0000 D0071, 0000 / AND S0000 C0072, 3065 / DCA C0065 DCA D0006 / @@0073=3006 C0074, 6771 / DTSF D0075, 7410 / SKP JMS I C0156 / long call to S0601 @@0076=4556 C0077, 6771 / DTSF C0100, 7410 / SKP C0101, 4557 / JMS I C0157 C0102, 6771 / DTSF C0103, C0103, 7410 / SKP C0104, 4560 / JMS I C0160 DTSF / Skip if error flag is a 1 or if DECt @@0105=6771 C0106, 7410 / SKP D0107, 4561 / JMS I C0161 DTSF / Skip if error flag is a 1 or if DECt @@0110=6771 C0111, 7410 / SKP JMS I C0162 / long call to S0725 @@0112=4562 DTSF / Skip if error flag is a 1 or if DECt @@0113=6771 C0114, 7410 / SKP C0115, 4563 / JMS I C0163 C0116, 6041 / TSF SKP / @@0117=7410 C0120, 5564 / JMP I C0164 C0121, 6031 / KSF C0122, 7410 / SKP C0123, 5461 / JMP I D0061 IOF / Disable Interrupts @@0124=6002 C0125, 7410 / SKP C0126, 5565 / JMP I C0165 C0127, 6002 / IOF C0130, 7410 / SKP C0131, 5565 / JMP I C0165 IOF / Disable Interrupts @@0132=6002 C0133, 7410 / SKP JMP I C0165 / long jump to L1103 @@0134=5565 IOF / Disable Interrupts @@0135=6002 SKP / @@0136=7410 JMP I C0165 / long jump to L1103 @@0137=5565 C0140, 6002 / IOF SKP / @@0141=7410 JMP I C0165 / long jump to L1103 @@0142=5565 IOF / Disable Interrupts @@0143=6002 SKP / @@0144=7410 JMP I C0165 / long jump to L1103 @@0145=5565 L0146, CLA CLL / AC = 0000 @@0146=7300 TAD D0006 / @@0147=1006 SNA CLA / @@0150=7650 JMP I C0166 / long jump to L2307 @@0151=5566 L0152, C0152, 1065 / TAD C0065 RMF / Restore memory field. Used to exit @@0153=6244 ION / Enable Interrupts @@0154=6001 JMP I S0000 / return @@0155=5400 C0156, C0156, 0601 / AND I C0001 AND I D0026 / @@0157=0626 C0160, C0160, 0653 / AND I C0053 AND I C0100 / @@0161=0700 C0162, C0162, 0725 / AND I C0125 TAD C0001 / @@0163=1001 ISZ D0075 / @@0164=2275 C0165, C0165, 1103 / TAD C0103 C0166, C0166, 2307 / ISZ D0107 *0200 L0200, IOF / Disable Interrupts @@0200=6002 JMS I C0066 / long call to S2264 @@0201=4466 JMS I C0003 / long call to S2200 @@0202=4403 ISZ I C0074 / @@0203=2474 L0204, JMS I C0066 / long call to S2264 @@0204=4466 JMS I C0003 / long call to S2200 @@0205=4403 ISZ I C0133 / @@0206=2533 JMS I D0064 / long call to S2000 @@0207=4464 TAD D0071 / @@0210=1071 AND C0377 / @@0211=0377 SNA / @@0212=7450 JMP L0270 / @@0213=5270 CIA / @@0214=7041 DCA D0062 / @@0215=3062 TAD C0376 / @@0216=1376 DCA D0027 / @@0217=3027 TAD D0062 / @@0220=1062 TAD C0375 / @@0221=1375 SMA CLA / @@0222=7700 JMP L0204 / @@0223=5204 TAD C0374 / @@0224=1374 DCA AI0 / AUTO INDEX REGISTER @@0225=3010 JMS I C0066 / long call to S2264 @@0226=4466 L0227, JMS I C0003 / long call to S2200 @@0227=4403 ISZ I C0033 / @@0230=2433 TAD D0027 / @@0231=1027 JMS I C0373 / long call to S2273 @@0232=4773 TAD C0372 / @@0233=1372 JMS I C0373 / long call to S2273 @@0234=4773 JMS I D0064 / long call to S2000 @@0235=4464 IOF / Disable Interrupts @@0236=6002 JMS I C0066 / long call to S2264 @@0237=4466 TAD D0071 / @@0240=1071 SNA / @@0241=7450 JMP L0252 / @@0242=5252 CLL / @@0243=7100 RTL / @@0244=7006 RAL / @@0245=7004 DCA I AI0 / AUTO INDEX REGISTER @@0246=3410 ISZ D0027 / @@0247=2027 ISZ D0062 / @@0250=2062 JMP L0227 / @@0251=5227 L0252, C0252, 6007 / 6007 CLA / @@0253=7200 TAD C0374 / @@0254=1374 DCA AI0 / AUTO INDEX REGISTER @@0255=3010 TAD C0371 / @@0256=1371 DCA AI1 / AUTO INDEX REGISTER @@0257=3011 L0260, TAD I AI0 / AUTO INDEX REGISTER @@0260=1410 TAD C0370 / @@0261=1370 DCA I AI1 / AUTO INDEX REGISTER @@0262=3411 IAC / @@0263=7001 TAD C0367 / @@0264=1367 TAD AI0 / AUTO INDEX REGISTER @@0265=1010 SZA CLA / @@0266=7640 JMP L0260 / @@0267=5260 L0270, STA / AC = 7777 (-0001) @@0270=7240 TAD C0366 / @@0271=1366 DCA AI0 / AUTO INDEX REGISTER @@0272=3010 D0273, 1365 / TAD C0365 DCA AI1 / AUTO INDEX REGISTER @@0274=3011 L0275, TAD I AI0 / AUTO INDEX REGISTER @@0275=1410 DCA I AI1 / AUTO INDEX REGISTER @@0276=3411 TAD AI0 / AUTO INDEX REGISTER @@0277=1010 CIA / @@0300=7041 TAD C0364 / @@0301=1364 SZA CLA / @@0302=7640 JMP L0275 / @@0303=5275 TAD C0363 / @@0304=1363 DCA AI6 / AUTO INDEX REGISTER @@0305=3016 TAD AI6 / AUTO INDEX REGISTER @@0306=1016 DCA AI7 / AUTO INDEX REGISTER @@0307=3017 JMS I C0003 / long call to S2200 @@0310=4403 ISZ I C0116 / @@0311=2516 IOF / Disable Interrupts @@0312=6002 C0313, 6007 / 6007 TAD C0374 / @@0314=1374 DCA AI0 / AUTO INDEX REGISTER @@0315=3010 TAD C0362 / @@0316=1362 DCA S0000 / @@0317=3000 L0320, TAD I AI0 / AUTO INDEX REGISTER @@0320=1410 TAD C0361 / @@0321=1361 DCA I S0000 / @@0322=3400 TAD S0000 / @@0323=1000 TAD C0360 / @@0324=1360 DCA S0000 / @@0325=3000 IAC / @@0326=7001 TAD S0000 / @@0327=1000 TAD C0357 / @@0330=1357 SZA CLA / @@0331=7640 JMP L0320 / @@0332=5320 TAD C0371 / @@0333=1371 DCA AI0 / AUTO INDEX REGISTER @@0334=3010 TAD C0356 / @@0335=1356 DCA AI1 / AUTO INDEX REGISTER @@0336=3011 L0337, ISZ AI1 / AUTO INDEX REGISTER @@0337=2011 ISZ AI1 / AUTO INDEX REGISTER @@0340=2011 TAD C0361 / @@0341=1361 TAD I AI0 / AUTO INDEX REGISTER @@0342=1410 DCA I AI1 / AUTO INDEX REGISTER @@0343=3411 TAD C0355 / @@0344=1355 TAD AI1 / AUTO INDEX REGISTER @@0345=1011 SZA CLA / @@0346=7640 JMP L0337 / @@0347=5337 TAD C0354 / @@0350=1354 DCA AI0 / AUTO INDEX REGISTER @@0351=3010 JMP I C0353 / long jump to L0400 @@0352=5753 C0353, C0353, 0400 / AND I S0000 C0354, 0020 / AND D0020 C0355, 7635 / CLA MQL ASR + C0356, 0121 / AND C0121 C0357, 7661 / CLA SCA MQL C0360, 0003 / AND C0003 C0361, 6001 / ION C0362, 0074 / AND C0074 C0363, 3777 / DCA I C0377 C0364, 0060 / AND C0060 C0365, 0044 / AND C0044 C0366, 0053 / AND C0053 C0367, 7733 / CLA MQA MQL SHL + C0370, 0010 / AND AI0 C0371, 0030 / AND D0030 C0372, 0240 / AND C0240 C0373, C0373, 2273 / ISZ D0273 C0374, 0036 / AND C0036 C0375, 7771 / CLA MQA SCA MQL NMI C0376, 0260 / AND L0260 C0377, 0007 / AND C0007 L0400, C0400, 7201 / CLA IAC DCA I AI0 / AUTO INDEX REGISTER @@0401=3410 TAD AI0 / AUTO INDEX REGISTER @@0402=1010 TAD C0577 / @@0403=1377 SZA CLA / @@0404=7640 JMP L0400 / @@0405=5200 CMA / @@0406=7040 DCA AI0 / AUTO INDEX REGISTER @@0407=3010 TAD C0576 / @@0410=1376 C0411, 3000 / DCA S0000 CDF0 / Change to data field 1. The data fie @@0412=6211 L0413, TAD C0575 / @@0413=1375 DCA I AI0 / AUTO INDEX REGISTER @@0414=3410 ISZ S0000 / @@0415=2000 JMP L0413 / @@0416=5213 CDF0 / Change to data field 0. The data fie @@0417=6201 TAD C0574 / @@0420=1374 DCA AI0 / AUTO INDEX REGISTER @@0421=3010 TAD C0573 / @@0422=1373 DCA AI1 / AUTO INDEX REGISTER @@0423=3011 L0424, TAD I AI0 / AUTO INDEX REGISTER @@0424=1410 DCA S0000 / @@0425=3000 TAD S0000 / @@0426=1000 TAD C0572 / @@0427=1372 DCA I AI1 / AUTO INDEX REGISTER @@0430=3411 TAD S0000 / @@0431=1000 TAD C0571 / @@0432=1371 DCA I AI1 / AUTO INDEX REGISTER @@0433=3411 TAD AI1 / AUTO INDEX REGISTER @@0434=1011 TAD C0570 / @@0435=1370 DCA AI1 / AUTO INDEX REGISTER @@0436=3011 TAD AI1 / AUTO INDEX REGISTER @@0437=1011 CIA / @@0440=7041 TAD C0567 / @@0441=1367 SZA CLA / @@0442=7640 JMP L0424 / @@0443=5224 TAD C0566 / @@0444=1366 DCA AI1 / AUTO INDEX REGISTER @@0445=3011 TAD I AI0 / AUTO INDEX REGISTER @@0446=1410 DCA S0000 / @@0447=3000 TAD S0000 / @@0450=1000 TAD C0572 / @@0451=1372 DCA I AI1 / AUTO INDEX REGISTER @@0452=3411 TAD S0000 / @@0453=1000 TAD C0571 / @@0454=1371 DCA I AI1 / AUTO INDEX REGISTER @@0455=3411 DCA D0067 / @@0456=3067 DCA I C0565 / @@0457=3765 TAD C0564 / @@0460=1364 DCA D0061 / @@0461=3061 TAD C0574 / @@0462=1374 DCA AI1 / AUTO INDEX REGISTER @@0463=3011 L0464, TAD I AI1 / AUTO INDEX REGISTER @@0464=1411 TAD C0563 / @@0465=1363 DCA D0470 / @@0466=3270 CLA CLL CML IAC RAL / AC = 0003 @@0467=7325 D0470, 0000 / AND S0000 CLA / @@0471=7200 TAD AI1 / AUTO INDEX REGISTER @@0472=1011 CIA / @@0473=7041 TAD C0562 / @@0474=1362 SZA CLA / @@0475=7640 JMP L0464 / @@0476=5264 L0477, CLA / @@0477=7200 DCA I C0561 / @@0500=3761 JMS I C0066 / long call to S2264 @@0501=4466 L0502, JMS I C0003 / long call to S2200 @@0502=4403 ISZ I C0115 / @@0503=2515 DCA D0005 / @@0504=3005 L0505, ION / Enable Interrupts @@0505=6001 TAD D0067 / @@0506=1067 SZA CLA / @@0507=7640 JMS I C0560 / long call to S1600 @@0510=4760 JMS I C0557 / long call to S1211 @@0511=4757 JMS I C0556 / long call to S1053 @@0512=4756 JMP L0505 / @@0513=5305 L0514, IOF / Disable Interrupts @@0514=6002 C0515, 6007 / 6007 CLA IAC / @@0516=7201 DCA I C0561 / @@0517=3761 L0520, D0520, 4760 / JMS I C0560 JMS I C0066 / long call to S2264 @@0521=4466 D0522, 4403 / JMS I C0003 C0523, 2574 / ISZ I C0174 JMP I C0555 / long jump to L0270 @@0524=5755 *0555 C0555, C0555, 0270 / AND D0470 C0556, C0556, 1053 / TAD C0053 C0557, C0557, 1211 / TAD C0411 C0560, C0560, 1600 / TAD I L0400 C0561, 2355 / ISZ C0555 C0562, 0044 / AND C0044 C0563, 6005 / 6005 C0564, 1200 / TAD L0400 C0565, 1336 / TAD C0536 C0566, 1001 / TAD C0001 C0567, 0752 / AND I C0552 C0570, 0023 / AND L0023 C0571, 6004 / 6004 C0572, 6002 / IOF C0573, 0601 / AND I C0401 C0574, 0036 / AND C0036 C0575, 0014 / AND AI4 C0576, 1000 / TAD S0000 C0577, 7751 / CLA MQA SCA NMI AND S0000 / @@0600=0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0601 / / Called from: / 0076 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0601, 0 / return area IOF / Disable Interrupts @@0602=6002 C0603, 6004 / 6004 DCA D0070 / @@0604=3070 TAD D0070 / @@0605=1070 SPA / @@0606=7510 JMS I C0777 / long call to S1025 @@0607=4777 CDF0 / Change to data field 1. The data fie @@0610=6211 DCA I D0045 / @@0611=3445 CDF0 / Change to data field 0. The data fie @@0612=6201 ISZ D0045 / @@0613=2045 JMS I C0776 / long call to S1044 @@0614=4776 JMP L0623 / @@0615=5223 TAD D0021 / @@0616=1021 AND C0775 / @@0617=0375 DCA D0021 / @@0620=3021 TAD C0053 / @@0621=1053 DCA D0045 / @@0622=3045 L0623, ISZ D0006 / @@0623=2006 JMP I S0601 / return @@0624=5601 AND C0001 / @@0625=0001 C0626, C0626, 0000 / AND S0000 KCC / Clear AC and clear keyboard flag. @@0627=6032 KRS / Read keyboard buffer static. This is @@0630=6034 DCA D0070 / @@0631=3070 TAD D0070 / @@0632=1070 SPA / @@0633=7510 JMS I C0777 / long call to S1025 @@0634=4777 CDF0 / Change to data field 1. The data fie @@0635=6211 DCA I D0046 / @@0636=3446 CDF0 / Change to data field 0. The data fie @@0637=6201 D0640, 2046 / ISZ D0046 JMS I C0776 / long call to S1044 @@0641=4776 JMP L0650 / @@0642=5250 TAD D0022 / @@0643=1022 AND C0775 / @@0644=0375 DCA D0022 / @@0645=3022 TAD C0054 / @@0646=1054 DCA D0046 / @@0647=3046 L0650, ISZ D0006 / @@0650=2006 JMP I C0626 / long jump to L0000 @@0651=5626 AND C0002 / @@0652=0002 L0653, C0653, C0653, 0000 / AND S0000 IOF / Disable Interrupts @@0654=6002 C0655, 6004 / 6004 DCA D0070 / @@0656=3070 TAD D0070 / @@0657=1070 SPA / @@0660=7510 JMS I C0777 / long call to S1025 @@0661=4777 CDF0 / Change to data field 1. The data fie @@0662=6211 DCA I D0047 / @@0663=3447 CDF0 / Change to data field 0. The data fie @@0664=6201 ISZ D0047 / @@0665=2047 JMS I C0776 / long call to S1044 @@0666=4776 JMP L0675 / @@0667=5275 TAD L0023 / @@0670=1023 AND C0775 / @@0671=0375 DCA L0023 / @@0672=3023 TAD C0055 / @@0673=1055 DCA D0047 / @@0674=3047 L0675, ISZ D0006 / @@0675=2006 JMP I L0653 / long jump to L0000 @@0676=5653 AND C0003 / @@0677=0003 C0700, C0700, 0000 / AND S0000 IOF / Disable Interrupts @@0701=6002 C0702, 6004 / 6004 DCA D0070 / @@0703=3070 TAD D0070 / @@0704=1070 SPA / @@0705=7510 JMS I C0777 / long call to S1025 @@0706=4777 CDF0 / Change to data field 1. The data fie @@0707=6211 DCA I D0050 / @@0710=3450 CDF0 / Change to data field 0. The data fie @@0711=6201 ISZ D0050 / @@0712=2050 JMS I C0776 / long call to S1044 @@0713=4776 JMP L0722 / @@0714=5322 TAD D0024 / @@0715=1024 AND C0775 / @@0716=0375 DCA D0024 / @@0717=3024 TAD C0056 / @@0720=1056 DCA D0050 / @@0721=3050 L0722, ISZ D0006 / @@0722=2006 JMP I C0700 / long jump to L0000 @@0723=5700 AND C0004 / @@0724=0004 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0725 / / Called from: / 0112 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0725, 0 / return area IOF / Disable Interrupts @@0726=6002 C0727, 6004 / 6004 DCA D0070 / @@0730=3070 TAD D0070 / @@0731=1070 SPA / @@0732=7510 JMS I C0777 / long call to S1025 @@0733=4777 CDF0 / Change to data field 1. The data fie @@0734=6211 DCA I D0051 / @@0735=3451 CDF0 / Change to data field 0. The data fie @@0736=6201 ISZ D0051 / @@0737=2051 JMS I C0776 / long call to S1044 @@0740=4776 JMP L0747 / @@0741=5347 TAD D0025 / @@0742=1025 AND C0775 / @@0743=0375 DCA D0025 / @@0744=3025 TAD C0057 / @@0745=1057 DCA D0051 / @@0746=3051 L0747, ISZ D0006 / @@0747=2006 JMP I S0725 / return @@0750=5725 *0775 C0775, 4000 / JMS S0000 C0776, C0776, 1044 / TAD C0044 C0777, C0777, 1025 / TAD D0025 AND D0005 / @@1000=0005 C1001, C1001, 0000 / AND S0000 IOF / Disable Interrupts @@1002=6002 C1003, 6004 / 6004 DCA D0070 / @@1004=3070 TAD D0070 / @@1005=1070 SPA / @@1006=7510 JMS S1025 / @@1007=4225 CDF0 / Change to data field 1. The data fie @@1010=6211 DCA I D0052 / @@1011=3452 CDF0 / Change to data field 0. The data fie @@1012=6201 ISZ D0052 / @@1013=2052 JMS S1044 / @@1014=4244 JMP L1023 / @@1015=5223 TAD D0026 / @@1016=1026 AND C1177 / @@1017=0377 DCA D0026 / @@1020=3026 TAD C0060 / @@1021=1060 DCA D0052 / @@1022=3052 L1023, ISZ D0006 / @@1023=2006 JMP I C1001 / long jump to L0000 @@1024=5601 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1025 / / Called from: / 0607 0634 0661 0706 0733 1007 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S1025, 0 / return area CLA / @@1026=7200 TAD S1025 / @@1027=1225 TAD C1176 / @@1030=1376 DCA S1044 / @@1031=3244 TAD D0070 / @@1032=1070 AND C1175 / @@1033=0375 TAD I S1044 / @@1034=1644 DCA I AI7 / AUTO INDEX REGISTER @@1035=3417 ISZ D0067 / @@1036=2067 TAD AI7 / AUTO INDEX REGISTER @@1037=1017 TAD C1174 / @@1040=1374 SNA CLA / @@1041=7650 JMP I C1173 / long jump to L0514 @@1042=5773 JMP I S1025 / return @@1043=5625 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1044 / / Called from: / 0614 0641 0666 0713 0740 1014 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S1044, 0 / return area TAD C1172 / @@1045=1372 TAD D0070 / @@1046=1070 SZA CLA / @@1047=7640 JMP I S1044 / return @@1050=5644 ISZ S1044 / @@1051=2244 JMP I S1044 / return @@1052=5644 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1053 / / Called from: / 0512 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1053, 0 / return area CLA / @@1054=7200 TAD D1151 / @@1055=1351 TAD C1171 / @@1056=1371 DCA D0027 / @@1057=3027 TAD I D0027 / @@1060=1427 SZA CLA / @@1061=7640 JMP L1121 / @@1062=5321 TAD D1151 / @@1063=1351 TAD C1170 / @@1064=1370 DCA D0027 / @@1065=3027 TAD C1167 / @@1066=1367 TAD I D0027 / @@1067=1427 DCA L1100 / @@1070=3300 TAD D1151 / @@1071=1351 TAD C1166 / @@1072=1366 DCA D0030 / @@1073=3030 TAD I D0030 / @@1074=1430 DCA D0027 / @@1075=3027 CDF0 / Change to data field 1. The data fie @@1076=6211 TAD I D0027 / @@1077=1427 L1100, D1100, 0000 / AND S0000 ION / Enable Interrupts @@1101=6001 L1102, JMP L1102 / @@1102=5302 L1103, RMF / Restore memory field. Used to exit @@1103=6244 TAD I D0027 / @@1104=1427 CDF0 / Change to data field 0. The data fie @@1105=6201 TAD C1172 / @@1106=1372 SNA CLA / @@1107=7650 JMP L1131 / @@1110=5331 TAD D0027 / @@1111=1027 IAC / @@1112=7001 DCA I D0030 / @@1113=3430 L1114, TAD L1100 / @@1114=1300 AND C1165 / @@1115=0365 DCA D1117 / @@1116=3317 D1117, 0000 / AND S0000 ION / Enable Interrupts @@1120=6001 L1121, TAD D1151 / @@1121=1351 IAC / @@1122=7001 DCA D1151 / @@1123=3351 TAD D1151 / @@1124=1351 TAD C1164 / @@1125=1364 SNA CLA / @@1126=7650 DCA D1151 / @@1127=3351 JMP I S1053 / return @@1130=5653 L1131, TAD D1151 / @@1131=1351 TAD C1171 / @@1132=1371 DCA D0027 / @@1133=3027 TAD I D0027 / @@1134=1427 AND C1177 / @@1135=0377 IAC / @@1136=7001 DCA I D0027 / @@1137=3427 TAD D1151 / @@1140=1351 TAD C1163 / @@1141=1363 DCA D0027 / @@1142=3027 TAD C1166 / @@1143=1366 TAD D1151 / @@1144=1351 DCA D0030 / @@1145=3030 TAD I D0027 / @@1146=1427 DCA I D0030 / @@1147=3430 JMP L1114 / @@1150=5314 D1151, 0000 / AND S0000 *1163 C1163, 0053 / AND C0053 C1164, 7771 / CLA MQA SCA MQL NMI C1165, 6772 / DTRB C1166, 0045 / AND D0045 C1167, 6006 / 6006 C1170, 0031 / AND D0031 C1171, 0021 / AND D0021 C1172, 7764 / SMA SZA SNL CLA OSR C1173, C1173, 0514 / AND I C0114 C1174, 3600 / DCA I C1000 C1175, 7400 / C1176, 7770 / SPA SNA SZL CLA C1177, 4000 / JMS S0000 C1200, 6036 / KRB AND C1377 / @@1201=0377 DCA D0005 / @@1202=3005 TAD C1376 / @@1203=1376 TAD D0005 / @@1204=1005 SNA CLA / @@1205=7650 JMP I C1375 / long jump to L0252 @@1206=5775 ISZ D0006 / @@1207=2006 JMP L0146 / @@1210=5146 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1211 / / Called from: / 0511 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1211, 0 / return area TAD D0005 / @@1212=1005 SNA / @@1213=7450 JMP I S1211 / return @@1214=5611 TAD C1374 / @@1215=1374 SNA CLA / @@1216=7650 JMP I C1373 / long jump to L1641 @@1217=5773 CMA / @@1220=7040 TAD D0005 / @@1221=1005 SNA CLA / @@1222=7650 JMP I C1372 / long jump to L0200 @@1223=5772 TAD D0005 / @@1224=1005 TAD C1371 / @@1225=1371 SNA CLA / @@1226=7650 JMP L1261 / @@1227=5261 TAD D0005 / @@1230=1005 TAD C1370 / @@1231=1370 SNA CLA / @@1232=7650 JMP L1276 / @@1233=5276 TAD D0005 / @@1234=1005 TAD C1367 / @@1235=1367 SNA CLA / @@1236=7650 JMP L1306 / @@1237=5306 TAD D0005 / @@1240=1005 C1241, 1366 / TAD C1366 SNA CLA / @@1242=7650 JMP I C1365 / long jump to L1511 @@1243=5765 TAD D0005 / @@1244=1005 JMS I C1364 / long call to S2273 @@1245=4764 CLA / @@1246=7200 TAD D1336 / @@1247=1336 SZA CLA / @@1250=7640 JMP I C1363 / long jump to L1400 @@1251=5763 C1252, 1005 / TAD D0005 TAD C1362 / @@1253=1362 SNA CLA / @@1254=7650 JMP I C1361 / long jump to L1552 @@1255=5761 JMS I C0003 / long call to S2200 @@1256=4403 ISZ I C0127 / @@1257=2527 JMP I C1360 / long jump to L0477 @@1260=5760 L1261, JMS I C0003 / long call to S2200 @@1261=4403 ISZ I C0121 / @@1262=2521 JMS I D0064 / long call to S2000 @@1263=4464 CLA / @@1264=7200 TAD D0071 / @@1265=1071 AND C1357 / @@1266=0357 TAD C1356 / @@1267=1356 DCA D0020 / @@1270=3020 TAD I D0020 / @@1271=1420 AND C1355 / @@1272=0355 D1273, 1354 / TAD C1354 DCA I D0020 / @@1274=3420 JMP I C1360 / long jump to L0477 @@1275=5760 L1276, JMS I C0003 / long call to S2200 @@1276=4403 ISZ I C0123 / @@1277=2523 JMS I D0064 / long call to S2000 @@1300=4464 TAD D0071 / @@1301=1071 TAD C1356 / @@1302=1356 DCA D0020 / @@1303=3020 DCA I D0020 / @@1304=3420 JMP I C1360 / long jump to L0477 @@1305=5760 L1306, JMS I C0003 / long call to S2200 @@1306=4403 ISZ I C0125 / @@1307=2525 JMS I D0064 / long call to S2000 @@1310=4464 TAD D0071 / @@1311=1071 AND C1357 / @@1312=0357 DCA D1337 / @@1313=3337 TAD D1337 / @@1314=1337 TAD C1353 / @@1315=1353 DCA AI0 / AUTO INDEX REGISTER @@1316=3010 TAD D1337 / @@1317=1337 TAD C1352 / @@1320=1352 DCA AI1 / AUTO INDEX REGISTER @@1321=3011 TAD I AI0 / AUTO INDEX REGISTER @@1322=1410 DCA I AI1 / AUTO INDEX REGISTER @@1323=3411 TAD D1337 / @@1324=1337 TAD C1351 / @@1325=1351 DCA D0020 / @@1326=3020 TAD I D0020 / @@1327=1420 AND C1354 / @@1330=0354 IAC / @@1331=7001 DCA I D0020 / @@1332=3420 IAC / @@1333=7001 DCA D1336 / @@1334=3336 JMP I C1360 / long jump to L0477 @@1335=5760 D1336, 0000 / AND S0000 D1337, 0000 / AND S0000 *1351 C1351, 0020 / AND D0020 C1352, 0044 / AND C0044 C1353, 0052 / AND D0052 C1354, 4000 / JMS S0000 C1355, 0377 / AND C1377 C1356, 0021 / AND D0021 C1357, 0007 / AND C0007 C1360, C1360, 0477 / AND I C0077 C1361, C1361, 1552 / TAD I L0152 C1362, 7663 / CLA SCA MQL SCL + C1363, C1363, 1400 / TAD I S0000 C1364, C1364, 2273 / ISZ D1273 C1365, C1365, 1511 / TAD I C0111 C1366, 7760 / SMA SZA SNL CLA C1367, 7755 / CLA MQA SCA ASR + C1370, 7756 / SPA SNA CLA OSR HLT C1371, 7770 / SPA SNA SZL CLA C1372, C1372, 0200 / AND C1200 C1373, C1373, 1641 / TAD I C1241 C1374, 7776 / SPA SNA SZL CLA OSR HLT C1375, C1375, 0252 / AND C1252 C1376, 7775 / CLA MQA SCA MQL ASR + C1377, 0177 / AND C0177 L1400, CLA / @@1400=7200 TAD I C1577 / @@1401=1777 TAD C1576 / @@1402=1376 DCA D0020 / @@1403=3020 TAD I D0020 / @@1404=1420 SPA CLA / @@1405=7710 JMP L1456 / @@1406=5256 TAD D0005 / @@1407=1005 TAD C1575 / @@1410=1375 SNA CLA / @@1411=7650 JMP L1441 / @@1412=5241 TAD D0005 / @@1413=1005 TAD C1574 / @@1414=1374 SNA CLA / @@1415=7650 JMP L1441 / @@1416=5241 TAD I C1577 / @@1417=1777 TAD C1573 / @@1420=1373 DCA D0020 / @@1421=3020 TAD C1572 / @@1422=1372 TAD I D0020 / @@1423=1420 DCA I C1571 / @@1424=3771 TAD C1570 / @@1425=1370 DCA D0027 / @@1426=3027 TAD C1567 / @@1427=1367 DCA D0030 / @@1430=3030 TAD C1566 / @@1431=1366 DCA D0020 / @@1432=3020 TAD D0005 / @@1433=1005 DCA S0000 / @@1434=3000 DCA D0005 / @@1435=3005 TAD S0000 / @@1436=1000 ION / Enable Interrupts @@1437=6001 JMP I C1571 / long jump to L1100 @@1440=5771 L1441, DCA I C1565 / @@1441=3765 DCA D0005 / @@1442=3005 TAD I C1577 / @@1443=1777 TAD C1564 / @@1444=1364 DCA D0020 / @@1445=3020 TAD I C1577 / @@1446=1777 TAD C1563 / @@1447=1363 DCA D0071 / @@1450=3071 TAD I D0071 / @@1451=1471 DCA I D0020 / @@1452=3420 JMP I C1562 / long jump to L0477 @@1453=5762 AND S0000 / @@1454=0000 AND S0000 / @@1455=0000 L1456, TAD D0005 / @@1456=1005 TAD C1574 / @@1457=1374 SZA CLA / @@1460=7640 JMP L1465 / @@1461=5265 L1462, DCA I C1565 / @@1462=3765 TAD C1561 / @@1463=1361 DCA D0005 / @@1464=3005 L1465, TAD D0005 / @@1465=1005 TAD C1575 / @@1466=1375 SNA CLA / @@1467=7650 JMP L1462 / @@1470=5262 TAD I C1577 / @@1471=1777 TAD C1564 / @@1472=1364 D1473, 3020 / DCA D0020 TAD I D0020 / @@1474=1420 DCA D0027 / @@1475=3027 CDF0 / Change to data field 1. The data fie @@1476=6211 TAD D0005 / @@1477=1005 DCA I D0027 / @@1500=3427 CDF0 / Change to data field 0. The data fie @@1501=6201 TAD I D0020 / @@1502=1420 IAC / @@1503=7001 DCA I D0020 / @@1504=3420 TAD I C1565 / @@1505=1765 SNA CLA / @@1506=7650 JMP L1441 / @@1507=5241 JMP I C1560 / long jump to L0502 @@1510=5760 L1511, JMS I C0003 / long call to S2200 @@1511=4403 ISZ I C0131 / @@1512=2531 JMS I D0064 / long call to S2000 @@1513=4464 JMS I C0066 / long call to S2264 @@1514=4466 ION / Enable Interrupts @@1515=6001 STA / AC = 7777 (-0001) @@1516=7240 TAD D0071 / @@1517=1071 TAD C1563 / @@1520=1363 DCA AI0 / AUTO INDEX REGISTER @@1521=3010 CMA / @@1522=7040 TAD I AI0 / AUTO INDEX REGISTER @@1523=1410 DCA AI0 / AUTO INDEX REGISTER @@1524=3010 L1525, CDF0 / Change to data field 1. The data fie @@1525=6211 TAD I AI0 / AUTO INDEX REGISTER @@1526=1410 DCA AI1 / AUTO INDEX REGISTER @@1527=3011 TAD AI1 / AUTO INDEX REGISTER @@1530=1011 TAD C1557 / @@1531=1357 SNA CLA / @@1532=7650 JMS S1546 / @@1533=4346 CDF0 / Change to data field 0. The data fie @@1534=6201 TAD AI1 / AUTO INDEX REGISTER @@1535=1011 JMS I C1556 / long call to S2273 @@1536=4756 ION / Enable Interrupts @@1537=6001 TAD AI1 / AUTO INDEX REGISTER @@1540=1011 TAD C1555 / @@1541=1355 SZA CLA / @@1542=7640 JMP L1525 / @@1543=5325 CDF0 / Change to data field 0. The data fie @@1544=6201 JMP I C1562 / long jump to L0477 @@1545=5762 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1546 / / Called from: / 1533 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1546, 0 / return area TAD C1554 / @@1547=1354 DCA AI1 / AUTO INDEX REGISTER @@1550=3011 JMP I S1546 / return @@1551=5746 L1552, JMS I C0004 / long call to S2231 @@1552=4404 JMP I C1562 / long jump to L0477 @@1553=5762 C1554, 0336 / AND C1536 C1555, 7764 / SMA SZA SNL CLA OSR C1556, C1556, 2273 / ISZ D1473 C1557, 7401 / NOP C1560, C1560, 0502 / AND I C0102 C1561, 0014 / AND AI4 C1562, C1562, 0477 / AND I C0077 C1563, 0053 / AND C0053 C1564, 0045 / AND D0045 C1565, 1336 / TAD C1536 C1566, 0006 / AND D0006 C1567, 1455 / TAD I C0055 C1570, 1454 / TAD I C0054 C1571, C1571, 1100 / TAD C0100 C1572, 6006 / 6006 C1573, 0031 / AND D0031 C1574, 7603 / CLA SCL + C1575, 7745 / CLA MQA SCA MUY + C1576, 0021 / AND D0021 C1577, 1337 / TAD C1537 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1600 / / Called from: / 0510 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1600, 0 / return area L1601, CLA / @@1601=7200 TAD D0067 / @@1602=1067 SNA / @@1603=7450 JMP I S1600 / return @@1604=5600 TAD C1777 / @@1605=1377 DCA D0067 / @@1606=3067 TAD I AI6 / AUTO INDEX REGISTER @@1607=1416 DCA D1637 / @@1610=3237 JMS I C0066 / long call to S2264 @@1611=4466 JMS I C0003 / long call to S2200 @@1612=4403 ISZ I D0025 / @@1613=2425 JMS I C0066 / long call to S2264 @@1614=4466 CLA / @@1615=7200 TAD D1637 / @@1616=1237 AND C1776 / @@1617=0376 JMS I C1775 / long call to S2070 @@1620=4775 TAD D1637 / @@1621=1237 AND C1774 / @@1622=0374 JMS I C1775 / long call to S2070 @@1623=4775 JMS I C0066 / long call to S2264 @@1624=4466 TAD D0067 / @@1625=1067 SZA / @@1626=7440 JMP L1601 / @@1627=5201 IOF / Disable Interrupts @@1630=6002 TAD C1773 / @@1631=1373 DCA AI7 / AUTO INDEX REGISTER @@1632=3017 TAD C1773 / @@1633=1373 DCA AI6 / AUTO INDEX REGISTER @@1634=3016 ION / Enable Interrupts @@1635=6001 JMP I S1600 / return @@1636=5600 D1637, 0000 / AND S0000 AND S0000 / @@1640=0000 L1641, JMS I C0066 / long call to S2264 @@1641=4466 JMS I C0003 / long call to S2200 @@1642=4403 ISZ I S0000 / @@1643=2400 JMS I D0064 / long call to S2000 @@1644=4464 TAD D0071 / @@1645=1071 CLL / @@1646=7100 RTL / @@1647=7006 RAL / @@1650=7004 DCA D1742 / @@1651=3342 JMS I C0003 / long call to S2200 @@1652=4403 ISZ I AI3 / AUTO INDEX REGISTER @@1653=2413 JMS I D0064 / long call to S2000 @@1654=4464 CLA CLL / AC = 0000 @@1655=7300 TAD D0071 / @@1656=1071 RTL / @@1657=7006 RAL / @@1660=7004 DCA D0071 / @@1661=3071 TAD C1772 / @@1662=1372 TAD D1742 / @@1663=1342 DCA L1720 / @@1664=3320 TAD C1771 / @@1665=1371 TAD D1742 / @@1666=1342 DCA D1724 / @@1667=3324 TAD C1772 / @@1670=1372 TAD D0071 / @@1671=1071 DCA L1726 / @@1672=3326 TAD C1771 / @@1673=1371 TAD D0071 / @@1674=1071 DCA D1725 / @@1675=3325 TAD D1724 / @@1676=1324 AND C1770 / @@1677=0370 DCA D1711 / @@1700=3311 TAD L1726 / @@1701=1326 IAC / @@1702=7001 DCA D1730 / @@1703=3330 TAD L1720 / @@1704=1320 DCA L1712 / @@1705=3312 D1706, 1324 / TAD D1724 DCA D1716 / @@1707=3316 IOF / Disable Interrupts @@1710=6002 D1711, 0000 / AND S0000 L1712, D1712, 0000 / AND S0000 JMS S1733 / @@1713=4333 SKP / @@1714=7410 JMP L1712 / @@1715=5312 D1716, 0000 / AND S0000 CLA CLL / AC = 0000 @@1717=7300 L1720, D1720, 0000 / AND S0000 JMS S1733 / @@1721=4333 SKP / @@1722=7410 JMP L1720 / @@1723=5320 D1724, 0000 / AND S0000 D1725, 0000 / AND S0000 L1726, D1726, 0000 / AND S0000 JMP L1726 / @@1727=5326 D1730, 0000 / AND S0000 CLA / @@1731=7200 JMP L1720 / @@1732=5320 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1733 / / Called from: / 1713 1721 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1733, 0 / return area ISZ S1733 / @@1734=2333 KSF / Skip if keyboard flag is a 1. @@1735=6031 JMP I S1733 / return @@1736=5733 KCC / Clear AC and clear keyboard flag. @@1737=6032 C1740, 6007 / 6007 JMP I C1767 / long jump to L0477 @@1741=5767 D1742, 0040 / AND C0040 *1767 C1767, C1767, 0477 / AND I C0077 C1770, 7776 / SPA SNA SZL CLA OSR HLT C1771, 6006 / 6006 C1772, 6001 / ION C1773, 3777 / DCA I C1777 C1774, 7400 / C1775, C1775, 2070 / ISZ D0070 C1776, 0007 / AND C0007 C1777, 7777 / CLA MQA SCA MQL LSR + C2000, C2000, 0000 / AND S0000 KCC / Clear AC and clear keyboard flag. @@2001=6032 NOP / @@2002=7000 CLA / @@2003=7200 TAD D0061 / @@2004=1061 DCA D2066 / @@2005=3266 TAD C2177 / @@2006=1377 DCA D0061 / @@2007=3061 DCA D0071 / @@2010=3071 DCA D2065 / @@2011=3265 L2012, ION / Enable Interrupts @@2012=6001 TAD D2065 / @@2013=1265 SNA CLA / @@2014=7650 JMP L2012 / @@2015=5212 TAD D2066 / @@2016=1266 DCA D0061 / @@2017=3061 ION / Enable Interrupts @@2020=6001 JMP I C2000 / long jump to L0000 @@2021=5600 KRB / Clear AC, clear keyboard flag, and r @@2022=6036 DCA D2067 / @@2023=3267 TAD I C2176 / @@2024=1776 SNA CLA / @@2025=7650 ION / Enable Interrupts @@2026=6001 TAD D2067 / @@2027=1267 AND C2175 / @@2030=0375 TAD C2174 / @@2031=1374 SZA CLA / @@2032=7640 JMP L2042 / @@2033=5242 JMS I C0066 / long call to S2264 @@2034=4466 CLL / @@2035=7100 L2036, IOF / Disable Interrupts @@2036=6002 CMA / @@2037=7040 DCA D2065 / @@2040=3265 JMP L2012 / @@2041=5212 L2042, TAD D2067 / @@2042=1267 AND C2175 / @@2043=0375 TAD C2173 / @@2044=1373 SZA CLA / @@2045=7640 JMP L2051 / @@2046=5251 STL / @@2047=7120 JMP L2036 / @@2050=5236 L2051, CLA CLL / AC = 0000 @@2051=7300 TAD D0071 / @@2052=1071 RTL / @@2053=7006 RAL / @@2054=7004 DCA D0071 / @@2055=3071 TAD D2067 / @@2056=1267 AND C2172 / @@2057=0372 TAD D0071 / @@2060=1071 DCA D0071 / @@2061=3071 TAD D2067 / @@2062=1267 JMS I C2171 / long call to S2273 @@2063=4771 JMP L0152 / @@2064=5152 D2065, 0000 / AND S0000 D2066, 0000 / AND S0000 D2067, 0000 / AND S0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2070 / / Called from: / 1620 1623 2243 2247 2352 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S2070, 0 / return area DCA D2073 / @@2071=3273 SKP / @@2072=7410 D2073, 0000 / AND S0000 TAD D2073 / @@2074=1273 RTR / @@2075=7012 RTR / @@2076=7012 RTR / @@2077=7012 RTR / @@2100=7012 RAR / @@2101=7010 AND C2172 / @@2102=0372 TAD C2170 / @@2103=1370 JMS I C2171 / long call to S2273 @@2104=4771 TAD D2073 / @@2105=1273 RTR / @@2106=7012 RTR / @@2107=7012 RTR / @@2110=7012 AND C2172 / @@2111=0372 TAD C2170 / @@2112=1370 JMS I C2171 / long call to S2273 @@2113=4771 TAD D2073 / @@2114=1273 RTR / @@2115=7012 RAR / @@2116=7010 AND C2172 / @@2117=0372 TAD C2170 / @@2120=1370 JMS I C2171 / long call to S2273 @@2121=4771 TAD D2073 / @@2122=1273 AND C2172 / @@2123=0372 TAD C2170 / @@2124=1370 JMS I C2171 / long call to S2273 @@2125=4771 TAD C2167 / @@2126=1367 JMS I C2171 / long call to S2273 @@2127=4771 TAD C2167 / @@2130=1367 JMS I C2171 / long call to S2273 @@2131=4771 JMP I S2070 / return @@2132=5670 *2167 C2167, 0240 / AND C2040 C2170, 0260 / AND C2060 C2171, C2171, 2273 / ISZ D2073 C2172, 0007 / AND C0007 C2173, 7766 / SMA SZA SNL CLA OSR HLT C2174, 7763 / CLA MQA SCA MQL SCL + C2175, 0177 / AND C0177 C2176, 2355 / ISZ C2155 C2177, 2022 / ISZ D0022 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2200 / / Called from: / 0202 0205 0227 0310 0502 1256 1261 1276 1306 1511 1612 1642 1652 2244 2250 / 2312 2317 / Total 0021 (17) calls //////////////////////////////////////////////////////////////////////////////// S2200, 0 / return area SZA / @@2201=7440 JMP L2205 / @@2202=5205 TAD I S2200 / @@2203=1600 ISZ S2200 / @@2204=2200 L2205, C2205, 3306 / DCA D2306 L2206, TAD I D2306 / @@2206=1706 RTR / @@2207=7012 RTR / @@2210=7012 RTR / @@2211=7012 JMS S2217 / @@2212=4217 TAD I D2306 / @@2213=1706 JMS S2217 / @@2214=4217 ISZ D2306 / @@2215=2306 JMP L2206 / @@2216=5206 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2217 / / Called from: / 2212 2214 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2217, 0 / return area AND C2377 / @@2220=0377 SNA / @@2221=7450 JMP I S2200 / return @@2222=5600 TAD C2376 / @@2223=1376 SPA / @@2224=7510 TAD C2375 / @@2225=1375 TAD C2374 / @@2226=1374 JMS S2273 / @@2227=4273 JMP I S2217 / return @@2230=5617 L2231, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2231 / / Called from: / 1552 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2231, 0 / return area JMS I D0064 / long call to S2000 @@2232=4464 SZL / @@2233=7430 JMP L2261 / @@2234=5261 TAD D0071 / @@2235=1071 SNA / @@2236=7450 JMP I S2231 / return @@2237=5631 DCA D0027 / @@2240=3027 L2241, JMS I C0066 / long call to S2264 @@2241=4466 TAD D0027 / @@2242=1027 JMS I C2373 / long call to S2070 @@2243=4773 JMS I C0003 / long call to S2200 @@2244=4403 ISZ I C0114 / @@2245=2514 TAD I D0027 / @@2246=1427 JMS I C2373 / long call to S2070 @@2247=4773 JMS I C0003 / long call to S2200 @@2250=4403 ISZ I C0114 / @@2251=2514 C2252, 4464 / JMS I D0064 TAD D0071 / @@2253=1071 SZA / @@2254=7440 DCA I D0027 / @@2255=3427 SZL / @@2256=7430 JMP L2261 / @@2257=5261 JMP S2231 / @@2260=5231 L2261, ISZ D0027 / @@2261=2027 NOP / @@2262=7000 JMP L2241 / @@2263=5241 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2264 / / Called from: / 0201 0204 0226 0237 0501 0521 1514 1611 1614 1624 1641 2034 2241 2311 2314 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S2264, 0 / return area CLA / @@2265=7200 TAD C2372 / @@2266=1372 JMS S2273 / @@2267=4273 TAD C2371 / @@2270=1371 JMS S2273 / @@2271=4273 JMP I S2264 / return @@2272=5664 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2273 / / Called from: / 0232 0234 1245 1536 2063 2104 2113 2121 2125 2127 2131 2227 2267 2271 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S2273, 0 / return area TLS / Load the TTO from the content of AC4 @@2274=6046 L2275, TSF / Skip if teleprinter flag is a 1. @@2275=6041 JMP L2275 / @@2276=5275 TCF / Clear teleprinter flag. @@2277=6042 CLA / @@2300=7200 ISZ D0006 / @@2301=2006 TAD D2355 / @@2302=1355 SNA CLA / @@2303=7650 ION / Enable Interrupts @@2304=6001 JMP I S2273 / return @@2305=5673 D2306, 0000 / AND S0000 L2307, CLA IAC / @@2307=7201 DCA D2355 / @@2310=3355 JMS I C0066 / long call to S2264 @@2311=4466 JMS I C0003 / long call to S2200 @@2312=4403 ISZ I D0050 / @@2313=2450 JMS I C0066 / long call to S2264 @@2314=4466 CLA / @@2315=7200 DCA D2354 / @@2316=3354 L2317, JMS I C0003 / long call to S2200 @@2317=4403 ISZ I C0114 / @@2320=2514 L2321, CLA / @@2321=7200 TAD D2354 / @@2322=1354 TAD C2370 / @@2323=1370 DCA D2354 / @@2324=3354 TAD D2354 / @@2325=1354 AND C2367 / @@2326=0367 SZA / @@2327=7440 JMP L2321 / @@2330=5321 TAD D2354 / @@2331=1354 AND C2366 / @@2332=0366 SNA / @@2333=7450 JMP I C2365 / long jump to L0252 @@2334=5765 TAD C2364 / @@2335=1364 DCA D2337 / @@2336=3337 D2337, 0000 / AND S0000 JMP L2321 / @@2340=5321 CLA CLL / AC = 0000 @@2341=7300 TAD D2337 / @@2342=1337 IAC / @@2343=7001 DCA D2345 / @@2344=3345 D2345, 0000 / AND S0000 CLA CLL / AC = 0000 @@2346=7300 TAD D2354 / @@2347=1354 RTR / @@2350=7012 RAR / @@2351=7010 JMS I C2373 / long call to S2070 @@2352=4773 JMP L2317 / @@2353=5317 D2354, 0000 / AND S0000 D2355, 0000 / AND S0000 *2364 C2364, 6001 / ION C2365, C2365, 0252 / AND C2252 C2366, 0770 / AND I C2370 C2367, 0200 / AND S2200 C2370, 0010 / AND AI0 C2371, 0212 / AND C2212 C2372, 0215 / AND C2215 C2373, C2373, 2070 / ISZ D0070 C2374, 0240 / AND C2240 C2375, 0100 / AND C0100 C2376, 7740 / SMA SZA CLA C2377, 0077 / AND C0077 AND I D0005 / @@2400=0405 D2401, 2640 / ISZ I C2440 AND C2517 / @@2402=0317 AND I D0005 / @@2403=0405 C2404, 4017 / JMS AI7 D2405, 0640 / AND I C2440 ISZ D2405 / @@2406=2205 AND C0104 / @@2407=0104 C2410, 0522 / AND I C0122 C2411, 7740 / SMA SZA CLA AND S0000 / @@2412=0000 AND I D0005 / @@2413=0405 ISZ I C2440 / @@2414=2640 AND C2517 / @@2415=0317 AND I D0005 / @@2416=0405 D2417, 4017 / JMS AI7 C2420, 0640 / AND I C2440 TAD I AI1 / AUTO INDEX REGISTER @@2421=1411 D2422, 1605 / TAD I D2405 C2423, 7740 / SMA SZA CLA C2424, 0000 / AND S0000 D2425, 2205 / ISZ D2405 AND C2526 / @@2426=0326 JMS D0005 / @@2427=4005 ISZ D2422 / @@2430=2222 TAD I C2522 / @@2431=1722 AND S0000 / @@2432=0000 SMA CLA OSR / @@2433=7704 AND I C0126 / @@2434=0526 C2435, 4003 / JMS C0003 TAD I C2504 / @@2436=1704 AND I C0140 / @@2437=0540 C2440, 1706 / TAD I C2506 C2441, 4040 / JMS C0040 ISZ D2405 / @@2442=2205 AND C2505 / @@2443=0305 TAD C0126 / @@2444=1126 AND I C0122 / @@2445=0522 C2446, 4043 / JMS C0043 C2447, 0000 / AND S0000 C2450, 7725 / CLA MQA MQL MUY + TAD I D2405 / @@2451=1605 DCA D0020 / @@2452=3020 TAD I C0001 / @@2453=1401 TAD C0116 / @@2454=1116 C2455, 0504 / AND I C0104 JMS AI1 / AUTO INDEX REGISTER @@2456=4011 TAD I C2424 / @@2457=1624 AND I C0122 / @@2460=0522 ISZ D2425 / @@2461=2225 ISZ D0024 / @@2462=2024 JMS D0006 / @@2463=4006 ISZ D2417 / @@2464=2217 TAD I C0140 / @@2465=1540 AND I D0005 / @@2466=0405 ISZ I C2411 / @@2467=2611 AND C2505 / @@2470=0305 JMP L0023 / @@2471=5023 C2472, 5172 / JMP C0172 AND S0000 / @@2473=0000 TAD I C0104 / @@2474=1504 JMP I C0160 / long jump to L0653 @@2475=5560 C2476, 7055 / CMA IAC RAR RAL AND I AI1 / AUTO INDEX REGISTER @@2477=0411 C2500, C2500, 2624 / ISZ I C2424 AND C2455 / @@2501=0255 AND C0140 / @@2502=0140 ISZ I C2424 / @@2503=2624 C2504, 6260 / 6260 C2505, 4010 / JMS AI0 TAD I C2523 / @@2506=1723 C2507, 2440 / ISZ I C0040 ISZ D0022 / @@2510=2022 C2511, 1707 / TAD I C2507 ISZ D2401 / @@2512=2201 TAD I C0100 / @@2513=1500 JMP I C2500 / long jump to L2624 @@2514=5700 C2515, 5600 / JMP I C2400 C2516, 4036 / JMS C0036 C2517, 0340 / AND C2540 JMS S0000 / @@2520=4000 DCA I C2410 / @@2521=3610 C2522, 0000 / AND S0000 C2523, 3622 / DCA I D2422 AND S0000 / @@2524=0000 DCA I C2423 / @@2525=3623 C2526, 0000 / AND S0000 SMA SZA CLA / @@2527=7740 JMS S0000 / @@2530=4000 DCA I C2420 / @@2531=3620 AND S0000 / @@2532=0000 TAD I D2425 / @@2533=1625 TAD I C0102 / @@2534=1502 AND I C0122 / @@2535=0522 JMS AI7 / AUTO INDEX REGISTER @@2536=4017 AND I C2440 / @@2537=0640 C2540, 2205 / ISZ D2405 AND C2511 / @@2541=0311 AND I C0126 / @@2542=0526 AND I C0122 / @@2543=0522 ISZ D2577 / @@2544=2377 AND S0000 / @@2545=0000 C2546, 4024 / JMS D0024 TAD D0005 / @@2547=1005 JMS AI4 / AUTO INDEX REGISTER @@2550=4014 TAD C0116 / @@2551=1116 AND I C0140 / @@2552=0540 TAD C0123 / @@2553=1123 TAD I C2447 / @@2554=1647 ISZ I C0040 / @@2555=2440 AND D2405 / @@2556=0205 TAD C0116 / @@2557=1116 AND I C2540 / @@2560=0740 TAD D0005 / @@2561=1005 TAD I C0004 / @@2562=1404 JMP I C0103 / long jump to L7410 @@2563=5503 TAD I C2515 / @@2564=1715 TAD I C0101 / @@2565=1501 TAD I C2404 / @@2566=1604 JMS AI1 / AUTO INDEX REGISTER @@2567=4011 AND I C2516 / @@2570=0716 TAD I C2522 / @@2571=1722 AND I C0104 / @@2572=0504 AND S0000 / @@2573=0000 JMS D0005 / @@2574=4005 ISZ D2422 / @@2575=2222 TAD I C2522 / @@2576=1722 D2577, 4002 / JMS C0002 ISZ I C0106 / @@2600=2506 AND I D2605 / @@2601=0605 C2602, 2240 / ISZ C2640 AND I C0130 / @@2603=0530 C2604, 0305 / AND C2705 D2605, 0504 / AND I C0104 JMP I C0040 / long jump to L0520 @@2606=5440 AND C0125 / @@2607=0125 ISZ I AI7 / AUTO INDEX REGISTER @@2610=2417 TAD I C0101 / @@2611=1501 ISZ I AI1 / AUTO INDEX REGISTER @@2612=2411 C2613, 0340 / AND C2740 ISZ D2605 / @@2614=2205 C2615, 2324 / ISZ C2724 AND C0122 / @@2616=0122 D2617, 2440 / ISZ I C0040 C2620, 1706 / TAD I C2706 JMS D0020 / @@2621=4020 ISZ D2617 / @@2622=2217 C2623, 0722 / AND I C2722 L2624, AND C0115 / @@2624=0115 AND S0000 / @@2625=0000 *4000 AND S0000 / @@4000=0000 *4200 AND S0000 / @@4200=0000 $