TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-djdka-c-pb1.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-djdka-c-pb1.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 / / 4765 locations used, 3615 code and 1150 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0303 / AND L0103 RMF / Restore memory field. Used to exit @@0001=6244 C0002, 5403 / JMP I D0003 D0003, 3244 / DCA D0044 C0004, 6500 / 6500 C0005, C0005, 6520 / 6520 D0006, 0000 / AND L0000 *0013 AI3, 7770 / AUTO-INDEX REGISTER SPA SNA SZL CLA AI4, 0200 / AUTO-INDEX REGISTER AND L0000 AI5, 7634 / AUTO-INDEX REGISTER SZL CLA OSR AI6, 7634 / AUTO-INDEX REGISTER SZL CLA OSR AI7, 0007 / AUTO-INDEX REGISTER AND D0007 C0020, 0000 / AND L0000 D0021, 2003 / ISZ D0003 C0022, 0000 / AND L0000 C0023, 0000 / AND L0000 C0024, C0024, 3200 / DCA L0000 C0025, C0025, 3221 / DCA D0021 C0026, C0026, 3352 / DCA D0152 L0027, C0027, C0027, 3600 / DCA I L0000 C0030, C0030, 3475 / DCA I C0075 C0031, C0031, 3711 / DCA I C0111 C0032, C0032, 3327 / DCA S0127 C0033, C0033, 3341 / DCA D0141 C0034, C0034, 3653 / DCA I D0053 C0035, C0035, 3734 / DCA I C0134 C0036, C0036, 3407 / DCA I D0007 C0037, C0037, 3761 / DCA I C0161 C0040, C0040, 3214 / DCA AI4 C0041, C0041, 3400 / DCA I L0000 D0042, 0000 / AND L0000 D0043, 0000 / AND L0000 D0044, 0000 / AND L0000 D0045, 0000 / AND L0000 D0046, 0000 / AND L0000 D0047, 0000 / AND L0000 D0050, 0000 / AND L0000 D0051, 0000 / AND L0000 D0052, 0000 / AND L0000 D0053, 0000 / AND L0000 D0054, 0000 / AND L0000 D0055, 0000 / AND L0000 D0056, 0000 / AND L0000 C0057, 0252 / AND D0052 C0060, 0125 / AND C0125 C0061, C0061, 4357 / JMS C0157 D0062, 0000 / AND L0000 L0063, D0063, 0000 / AND L0000 D0064, 0000 / AND L0000 D0065, 0000 / AND L0000 D0066, 0000 / AND L0000 L0067, D0067, 0000 / AND L0000 D0070, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0071 / / Called from: / 0201 0246 0503 1202 1527 2202 2614 3002 3132 4001 4024 4025 / Total 0014 (12) calls //////////////////////////////////////////////////////////////////////////////// S0071, 0 / return area TAD I S0071 / @@0072=1471 L0073, DCA D0003 / @@0073=3003 D0074, 3010 / DCA AI0 C0075, 3011 / DCA AI1 CLA CLL CMA RTL / AC = 7775 (-0003) @@0076=7346 L0077, DCA D0045 / @@0077=3045 RIF / Same as RDF except reads the instruc @@0100=6224 TAD C0104 / @@0101=1104 DCA D0106 / @@0102=3106 L0103, C0103, 1410 / TAD I AI0 C0104, 6201 / CDF0 C0105, 3411 / DCA I AI1 D0106, 6201 / CDF0 L0107, ISZ D0045 / @@0107=2045 JMP L0103 / @@0110=5103 C0111, 2071 / ISZ S0071 JMP I S0071 / return @@0112=5471 L0113, C0113, 0002 / AND C0002 C0114, 6005 / 6005 D0115, 0000 / AND L0000 D0116, 0000 / AND L0000 L0117, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0117 / / Called from: / 0502 4344 4351 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0117, 0 / return area TAD C0022 / @@0120=1022 D0121, 7700 / SMA CLA JMP I S0117 / return @@0122=5517 L0123, IOF / Disable Interrupts @@0123=6002 CIF0 / Prepare to change to instruction fie @@0124=6272 C0125, 4404 / JMS I C0004 C0126, 5517 / JMP I S0117 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0127 / / Called from: / 0513 0555 0626 0643 0652 0671 0741 0754 1002 1036 1046 1070 1232 1262 1307 / 1351 1371 1414 1465 1506 1540 1620 1653 1730 2021 2116 2212 2256 2310 2542 / 2612 2627 2642 2662 3013 3051 3131 3602 3644 3655 / Total 0050 (40) calls //////////////////////////////////////////////////////////////////////////////// S0127, 0 / return area TAD C0022 / @@0130=1022 C0131, 7710 / SPA CLA CLA CLL IAC / AC = 0001 @@0132=7301 C0133, 6135 / 6135 C0134, 7200 / CLA JMP I S0127 / return @@0135=5527 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0136 / / Called from: / 3215 3522 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0136, 0 / return area TAD C0023 / @@0137=1023 SZA CLA / @@0140=7640 D0141, 5152 / JMP D0152 TAD D0056 / @@0142=1056 CMA / @@0143=7040 C0144, 0017 / AND AI7 DCA S0071 / @@0145=3071 TAD D0056 / @@0146=1056 AND AI3 / AUTO INDEX REGISTER @@0147=0013 TAD S0071 / @@0150=1071 SKP / @@0151=7410 D0152, 1056 / TAD D0056 JMP I S0136 / return @@0153=5536 *0176 C0176, C0176, 5027 / JMP L0027 C0177, C0177, 5123 / JMP L0123 L0200, C0200, 6160 / 6160 JMS S0071 / @@0201=4071 DCA D0244 / @@0202=3244 JMS I C0024 / long call to S3200 @@0203=4424 C0204, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0205=4437 C0206, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0207=4440 DCA D0042 / @@0210=3042 C0211, 6007 / 6007 ION / Enable Interrupts @@0212=6001 KSF / Skip if keyboard flag is a 1. @@0213=6031 SKP / @@0214=7410 JMS I C0030 / long call to S3475 @@0215=4430 TSF / Skip if teleprinter flag is a 1. @@0216=6041 SKP / @@0217=7410 JMS I C0030 / long call to S3475 @@0220=4430 C0221, 6045 / 6045 SKP / @@0222=7410 JMS I C0030 / long call to S3475 @@0223=4430 C0224, 6571 / 6571 SKP / @@0225=7410 JMS I C0030 / long call to S3475 @@0226=4430 C0227, 6570 / 6570 SKP / @@0230=7410 JMS I C0030 / long call to S3475 @@0231=4430 STA / AC = 7777 (-0001) @@0232=7240 C0233, 6572 / 6572 SKP / @@0234=7410 JMS I C0030 / long call to S3475 @@0235=4430 SZA CLA / @@0236=7640 JMS I C0030 / long call to S3475 @@0237=4430 JMS I C0026 / long call to S3352 @@0240=4426 JMS I C0030 / long call to S3475 @@0241=4430 TAD D0042 / @@0242=1042 SZA CLA / @@0243=7640 D0244, 4430 / JMS I C0030 JMS I C0025 / long call to S3221 @@0245=4425 JMS S0071 / @@0246=4071 DCA D0252 / @@0247=3252 STA / AC = 7777 (-0001) @@0250=7240 DCA D0043 / @@0251=3043 D0252, 4424 / JMS I C0024 C0253, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0254=4437 C0255, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0256=4440 CLA CLL CMA RAL / AC = 7776 (-0002) @@0257=7344 DCA D0116 / @@0260=3116 L0261, DCA D0042 / @@0261=3042 C0262, 6007 / 6007 ION / Enable Interrupts @@0263=6001 JMS I C0026 / long call to S3352 @@0264=4426 JMS I C0030 / long call to S3475 @@0265=4430 TAD D0042 / @@0266=1042 SZA CLA / @@0267=7640 JMS I C0030 / long call to S3475 @@0270=4430 ISZ D0116 / @@0271=2116 JMP L0261 / @@0272=5261 C0273, 6007 / 6007 ION / Enable Interrupts @@0274=6001 CECI / All clock control flip-flops are cle @@0275=6137 SKP CLA / @@0276=7610 JMS I C0030 / long call to S3475 @@0277=4430 TAD D0042 / @@0300=1042 SZA CLA / @@0301=7640 JMS I C0030 / long call to S3475 @@0302=4430 JMS I C0025 / long call to S3221 @@0303=4425 JMS I C0024 / long call to S3200 @@0304=4424 C0305, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0306=4437 C0307, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0310=4440 CLA CLL CMA RAL / AC = 7776 (-0002) @@0311=7344 DCA D0116 / @@0312=3116 L0313, DCA D0042 / @@0313=3042 C0314, 6007 / 6007 ION / Enable Interrupts @@0315=6001 JMS I C0026 / long call to S3352 @@0316=4426 JMS I C0030 / long call to S3475 @@0317=4430 TAD D0042 / @@0320=1042 SZA CLA / @@0321=7640 JMS I C0030 / long call to S3475 @@0322=4430 ISZ D0116 / @@0323=2116 JMP L0313 / @@0324=5313 CCEC / All clock control flip-flops are fir @@0325=6136 SKP CLA / @@0326=7610 JMS I C0030 / long call to S3475 @@0327=4430 CECI / All clock control flip-flops are cle @@0330=6137 SKP CLA / @@0331=7610 JMS I C0030 / long call to S3475 @@0332=4430 TAD D0042 / @@0333=1042 SZA CLA / @@0334=7640 JMS I C0030 / long call to S3475 @@0335=4430 JMS I C0025 / long call to S3221 @@0336=4425 JMS I C0024 / long call to S3200 @@0337=4424 C0340, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0341=4437 C0342, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0343=4440 CLA CLL CMA RAL / AC = 7776 (-0002) @@0344=7344 DCA D0116 / @@0345=3116 L0346, DCA D0042 / @@0346=3042 C0347, 6007 / 6007 ION / Enable Interrupts @@0350=6001 JMS I C0026 / long call to S3352 @@0351=4426 JMS I C0030 / long call to S3475 @@0352=4430 TAD D0042 / @@0353=1042 SZA CLA / @@0354=7640 JMS I C0030 / long call to S3475 @@0355=4430 ISZ D0116 / @@0356=2116 JMP L0346 / @@0357=5346 CCEC / All clock control flip-flops are fir @@0360=6136 CECI / All clock control flip-flops are cle @@0361=6137 SKP CLA / @@0362=7610 JMS I C0030 / long call to S3475 @@0363=4430 CLA CLL IAC / AC = 0001 @@0364=7301 C0365, 6135 / 6135 SKP CLA / @@0366=7610 JMS I C0030 / long call to S3475 @@0367=4430 TAD D0042 / @@0370=1042 SZA CLA / @@0371=7640 JMS I C0030 / long call to S3475 @@0372=4430 JMS I C0026 / long call to S3352 @@0373=4426 JMS I C0030 / long call to S3475 @@0374=4430 ISZ D0042 / @@0375=2042 JMS I C0030 / long call to S3475 @@0376=4430 DCA D0042 / @@0377=3042 C0400, 6135 / 6135 ION / Enable Interrupts @@0401=6001 CLA CLL / AC = 0000 @@0402=7300 TAD D0042 / @@0403=1042 SZA CLA / @@0404=7640 JMS I C0030 / long call to S3475 @@0405=4430 CCEC / All clock control flip-flops are fir @@0406=6136 CECI / All clock control flip-flops are cle @@0407=6137 SKP CLA / @@0410=7610 JMS I C0030 / long call to S3475 @@0411=4430 JMS I C0025 / long call to S3221 @@0412=4425 JMS I C0024 / long call to S3200 @@0413=4424 C0414, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0415=4437 C0416, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0417=4440 CLA CLL CMA RAL / AC = 7776 (-0002) @@0420=7344 DCA D0116 / @@0421=3116 L0422, DCA D0042 / @@0422=3042 C0423, 6007 / 6007 ION / Enable Interrupts @@0424=6001 JMS I C0026 / long call to S3352 @@0425=4426 JMS I C0030 / long call to S3475 @@0426=4430 TAD D0042 / @@0427=1042 SZA CLA / @@0430=7640 JMS I C0030 / long call to S3475 @@0431=4430 ISZ D0116 / @@0432=2116 JMP L0422 / @@0433=5222 CLA CLL IAC / AC = 0001 @@0434=7301 C0435, 6135 / 6135 CLA CLL / AC = 0000 @@0436=7300 ISZ D0042 / @@0437=2042 JMS I C0030 / long call to S3475 @@0440=4430 C0441, 6007 / 6007 ION / Enable Interrupts @@0442=6001 JMS I C0026 / long call to S3352 @@0443=4426 JMS I C0030 / long call to S3475 @@0444=4430 TAD D0042 / @@0445=1042 SZA CLA / @@0446=7640 JMS I C0030 / long call to S3475 @@0447=4430 CCEC / All clock control flip-flops are fir @@0450=6136 JMS I C0025 / long call to S3221 @@0451=4425 D0452, 4424 / JMS I C0024 C0453, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0454=4437 C0455, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0456=4440 C0457, 6007 / 6007 ION / Enable Interrupts @@0460=6001 CLA CLL CMA RAL / AC = 7776 (-0002) @@0461=7344 C0462, 6135 / 6135 TAD L0113 / @@0463=1113 SZA CLA / @@0464=7640 JMS I C0030 / long call to S3475 @@0465=4430 STA / AC = 7777 (-0001) @@0466=7240 CCEC / All clock control flip-flops are fir @@0467=6136 IAC / @@0470=7001 SZA CLA / @@0471=7640 JMS I C0030 / long call to S3475 @@0472=4430 STA / AC = 7777 (-0001) @@0473=7240 CECI / All clock control flip-flops are cle @@0474=6137 NOP / @@0475=7000 IAC / @@0476=7001 SZA CLA / @@0477=7640 JMS I C0030 / long call to S3475 @@0500=4430 JMS I C0025 / long call to S3221 @@0501=4425 JMS S0117 / @@0502=4117 JMS S0071 / @@0503=4071 DCA D0452 / @@0504=3252 JMS I C0024 / long call to S3200 @@0505=4424 C0506, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0507=4437 C0510, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0511=4440 C0512, 6007 / 6007 JMS S0127 / @@0513=4127 DCA D0042 / @@0514=3042 DCA D0043 / @@0515=3043 ION / Enable Interrupts @@0516=6001 C0517, 6571 / 6571 SZA CLA / @@0520=7640 JMS I C0030 / long call to S3475 @@0521=4430 C0522, 6570 / 6570 SZA CLA / @@0523=7640 JMS I C0030 / long call to S3475 @@0524=4430 TAD D0042 / @@0525=1042 SZA CLA / @@0526=7640 JMS I C0030 / long call to S3475 @@0527=4430 C0530, 6573 / 6573 SZA CLA / @@0531=7640 JMS I C0030 / long call to S3475 @@0532=4430 C0533, 6571 / 6571 SKP CLA / @@0534=7610 JMS I C0030 / long call to S3475 @@0535=4430 C0536, 6570 / 6570 JMS I C0030 / long call to S3475 @@0537=4430 C0540, 6570 / 6570 SKP CLA / @@0541=7610 JMS I C0030 / long call to S3475 @@0542=4430 TAD D0042 / @@0543=1042 SZA CLA / @@0544=7640 JMS I C0030 / long call to S3475 @@0545=4430 JMS I C0025 / long call to S3221 @@0546=4425 JMS I C0024 / long call to S3200 @@0547=4424 C0550, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0551=4437 C0552, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0553=4440 C0554, 6007 / 6007 JMS S0127 / @@0555=4127 DCA D0042 / @@0556=3042 ION / Enable Interrupts @@0557=6001 C0560, 6571 / 6571 SKP CLA / @@0561=7610 JMS I C0030 / long call to S3475 @@0562=4430 C0563, 6570 / 6570 SKP CLA / @@0564=7610 JMS I C0030 / long call to S3475 @@0565=4430 SAMP / (AA01A) Places all 8 channels into t @@0566=6574 SZA CLA / @@0567=7640 JMS I C0030 / long call to S3475 @@0570=4430 C0571, 6571 / 6571 JMS I C0030 / long call to S3475 @@0572=4430 C0573, 6570 / 6570 SKP CLA / @@0574=7610 JMS I C0030 / long call to S3475 @@0575=4430 C0576, 6571 / 6571 JMS I C0030 / long call to S3475 @@0577=4430 TAD D0042 / @@0600=1042 SZA CLA / @@0601=7640 JMS I C0030 / long call to S3475 @@0602=4430 C0603, 6573 / 6573 C0604, 6571 / 6571 SKP / @@0605=7410 JMS I C0030 / long call to S3475 @@0606=4430 C0607, 6570 / 6570 JMS I C0030 / long call to S3475 @@0610=4430 C0611, 6570 / 6570 SKP / @@0612=7410 JMS I C0030 / long call to S3475 @@0613=4430 TAD D0042 / @@0614=1042 SZA CLA / @@0615=7640 JMS I C0030 / long call to S3475 @@0616=4430 JMS I C0025 / long call to S3221 @@0617=4425 JMS I C0024 / long call to S3200 @@0620=4424 C0621, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0622=4437 C0623, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0624=4440 C0625, 6007 / 6007 JMS S0127 / @@0626=4127 DCA D0042 / @@0627=3042 ION / Enable Interrupts @@0630=6001 SAMP / (AA01A) Places all 8 channels into t @@0631=6574 C0632, 6571 / 6571 JMS I C0030 / long call to S3475 @@0633=4430 C0634, 6570 / 6570 SKP / @@0635=7410 JMS I C0030 / long call to S3475 @@0636=4430 TAD D0042 / @@0637=1042 SZA CLA / @@0640=7640 JMS I C0030 / long call to S3475 @@0641=4430 C0642, 6007 / 6007 JMS S0127 / @@0643=4127 C0644, 6571 / 6571 SKP CLA / @@0645=7610 JMS I C0030 / long call to S3475 @@0646=4430 ION / Enable Interrupts @@0647=6001 C0650, 6573 / 6573 C0651, 6007 / 6007 JMS S0127 / @@0652=4127 ION / Enable Interrupts @@0653=6001 C0654, 6570 / 6570 SZA CLA / @@0655=7640 JMS I C0030 / long call to S3475 @@0656=4430 TAD D0042 / @@0657=1042 SZA CLA / @@0660=7640 JMS I C0030 / long call to S3475 @@0661=4430 JMS I C0025 / long call to S3221 @@0662=4425 JMS I C0024 / long call to S3200 @@0663=4424 C0664, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0665=4437 C0666, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0667=4440 C0670, 6007 / 6007 JMS S0127 / @@0671=4127 DCA D0042 / @@0672=3042 ION / Enable Interrupts @@0673=6001 C0674, 6571 / 6571 SKP CLA / @@0675=7610 JMS I C0030 / long call to S3475 @@0676=4430 C0677, 6570 / 6570 SKP CLA / @@0700=7610 JMS I C0030 / long call to S3475 @@0701=4430 TAD D0042 / @@0702=1042 SZA CLA / @@0703=7640 JMS I C0030 / long call to S3475 @@0704=4430 C0705, 6575 / 6575 SZA CLA / @@0706=7640 JMS I C0030 / long call to S3475 @@0707=4430 TAD D0042 / @@0710=1042 SZA CLA / @@0711=7640 JMS I C0030 / long call to S3475 @@0712=4430 SAMP / (AA01A) Places all 8 channels into t @@0713=6574 C0714, 6571 / 6571 JMS I C0030 / long call to S3475 @@0715=4430 ISZ D0042 / @@0716=2042 JMS I C0030 / long call to S3475 @@0717=4430 C0720, 6576 / 6576 SZA CLA / @@0721=7640 JMS I C0030 / long call to S3475 @@0722=4430 ION / Enable Interrupts @@0723=6001 C0724, 6571 / 6571 JMS I C0030 / long call to S3475 @@0725=4430 TAD D0042 / @@0726=1042 SZA CLA / @@0727=7640 JMS I C0030 / long call to S3475 @@0730=4430 C0731, 6007 / 6007 JMS I C0025 / long call to S3221 @@0732=4425 JMS I C0024 / long call to S3200 @@0733=4424 C0734, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0735=4437 C0736, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@0737=4440 C0740, 6007 / 6007 JMS S0127 / @@0741=4127 DCA D0042 / @@0742=3042 ION / Enable Interrupts @@0743=6001 SAMP / (AA01A) Places all 8 channels into t @@0744=6574 C0745, 6571 / 6571 JMS I C0030 / long call to S3475 @@0746=4430 C0747, 6575 / 6575 NOP / @@0750=7000 ISZ D0042 / @@0751=2042 JMS I C0030 / long call to S3475 @@0752=4430 C0753, 6007 / 6007 JMS S0127 / @@0754=4127 ION / Enable Interrupts @@0755=6001 C0756, 6571 / 6571 SKP / @@0757=7410 JMS I C0030 / long call to S3475 @@0760=4430 SAMP / (AA01A) Places all 8 channels into t @@0761=6574 C0762, 6571 / 6571 JMS I C0030 / long call to S3475 @@0763=4430 TAD D0042 / @@0764=1042 SZA CLA / @@0765=7640 JMS I C0030 / long call to S3475 @@0766=4430 C0767, 6007 / 6007 C0770, 6571 / 6571 SKP / @@0771=7410 JMS I C0030 / long call to S3475 @@0772=4430 JMS I C0025 / long call to S3221 @@0773=4425 JMS I C0024 / long call to S3200 @@0774=4424 C0775, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@0776=4437 C0777, 4000 / JMS L0000 C1000, 4440 / JMS I C0040 C1001, 6007 / 6007 JMS S0127 / @@1002=4127 DCA D0042 / @@1003=3042 ION / Enable Interrupts @@1004=6001 C1005, 6573 / 6573 NOP / @@1006=7000 TAD D0042 / @@1007=1042 SZA CLA / @@1010=7640 JMS I C0030 / long call to S3475 @@1011=4430 C1012, 6575 / 6575 NOP / @@1013=7000 ISZ D0042 / @@1014=2042 JMS I C0030 / long call to S3475 @@1015=4430 ION / Enable Interrupts @@1016=6001 C1017, 6570 / 6570 SKP CLA / @@1020=7610 JMS I C0030 / long call to S3475 @@1021=4430 TAD D0042 / @@1022=1042 SZA CLA / @@1023=7640 JMS I C0030 / long call to S3475 @@1024=4430 C1025, 6576 / 6576 JMS I C0025 / long call to S3221 @@1026=4425 JMS I C0024 / long call to S3200 @@1027=4424 C1030, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1031=4437 C1032, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1033=4440 DCA D0042 / @@1034=3042 C1035, 6007 / 6007 JMS S0127 / @@1036=4127 ION / Enable Interrupts @@1037=6001 STA / AC = 7777 (-0001) @@1040=7240 SAMP / (AA01A) Places all 8 channels into t @@1041=6574 IAC / @@1042=7001 SZA CLA / @@1043=7640 JMS I C0030 / long call to S3475 @@1044=4430 C1045, 6007 / 6007 JMS S0127 / @@1046=4127 ION / Enable Interrupts @@1047=6001 STA / AC = 7777 (-0001) @@1050=7240 C1051, 6572 / 6572 SZA CLA / @@1052=7640 JMS I C0030 / long call to S3475 @@1053=4430 STA / AC = 7777 (-0001) @@1054=7240 C1055, 6571 / 6571 IAC / @@1056=7001 SZA CLA / @@1057=7640 JMS I C0030 / long call to S3475 @@1060=4430 IOF / Disable Interrupts @@1061=6002 STA / AC = 7777 (-0001) @@1062=7240 C1063, 6573 / 6573 IAC / @@1064=7001 SZA CLA / @@1065=7640 JMS I C0030 / long call to S3475 @@1066=4430 C1067, 6007 / 6007 JMS S0127 / @@1070=4127 ION / Enable Interrupts @@1071=6001 STA / AC = 7777 (-0001) @@1072=7240 C1073, 6570 / 6570 IAC / @@1074=7001 SZA CLA / @@1075=7640 JMS I C0030 / long call to S3475 @@1076=4430 STA / AC = 7777 (-0001) @@1077=7240 C1100, 6575 / 6575 IAC / @@1101=7001 SZA CLA / @@1102=7640 JMS I C0030 / long call to S3475 @@1103=4430 STA / AC = 7777 (-0001) @@1104=7240 C1105, 6576 / 6576 IAC / @@1106=7001 SZA CLA / @@1107=7640 JMS I C0030 / long call to S3475 @@1110=4430 STA / AC = 7777 (-0001) @@1111=7240 C1112, 6577 / 6577 SKP / @@1113=7410 JMS I C0030 / long call to S3475 @@1114=4430 IAC / @@1115=7001 SZA CLA / @@1116=7640 JMS I C0030 / long call to S3475 @@1117=4430 TAD D0042 / @@1120=1042 SZA CLA / @@1121=7640 JMS I C0030 / long call to S3475 @@1122=4430 JMS I C0025 / long call to S3221 @@1123=4425 JMS I C0024 / long call to S3200 @@1124=4424 C1125, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1126=4437 C1127, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1130=4440 DCA D0042 / @@1131=3042 STA / AC = 7777 (-0001) @@1132=7240 DCA D0052 / @@1133=3052 JMS I L0027 / long call to S3600 @@1134=4427 JMS I C0031 / long call to S3711 @@1135=4431 JMS I C0025 / long call to S3221 @@1136=4425 JMS I C0024 / long call to S3200 @@1137=4424 C1140, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1141=4437 C1142, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1143=4440 DCA D0042 / @@1144=3042 STA / AC = 7777 (-0001) @@1145=7240 DCA D0052 / @@1146=3052 JMS I L0027 / long call to S3600 @@1147=4427 JMS I C0031 / long call to S3711 @@1150=4431 DCA D0052 / @@1151=3052 JMS I L0027 / long call to S3600 @@1152=4427 JMS I C0031 / long call to S3711 @@1153=4431 JMS I C0025 / long call to S3221 @@1154=4425 JMS I C0024 / long call to S3200 @@1155=4424 C1156, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1157=4437 C1160, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1161=4440 DCA D0042 / @@1162=3042 TAD C1177 / @@1163=1377 DCA D0052 / @@1164=3052 JMS I L0027 / long call to S3600 @@1165=4427 JMS I C0031 / long call to S3711 @@1166=4431 TAD C1176 / @@1167=1376 DCA D0052 / @@1170=3052 JMS I L0027 / long call to S3600 @@1171=4427 JMS I C0031 / long call to S3711 @@1172=4431 JMS I C0025 / long call to S3221 @@1173=4425 JMP I C1175 / long jump to L1200 @@1174=5775 C1175, C1175, 1200 / TAD C1000 C1176, 2525 / ISZ I C0125 C1177, 5252 / JMP C1052 L1200, JMS I C0024 / long call to S3200 @@1200=4424 C1201, 7777 / CLA MQA SCA MQL LSR + JMS S0071 / @@1202=4071 DCA D1252 / @@1203=3252 DCA D0043 / @@1204=3043 CLA CLL / AC = 0000 @@1205=7300 DCA D0051 / @@1206=3051 DCA D0050 / @@1207=3050 JMS I C0037 / long call to S3761 @@1210=4437 C1211, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1212=4440 DCA D0042 / @@1213=3042 TAD D0050 / @@1214=1050 DCA D0052 / @@1215=3052 JMS I L0027 / long call to S3600 @@1216=4427 JMS I C0031 / long call to S3711 @@1217=4431 JMS I C0025 / long call to S3221 @@1220=4425 JMS I C0024 / long call to S3200 @@1221=4424 C1222, 7777 / CLA MQA SCA MQL LSR + CLA CLL / AC = 0000 @@1223=7300 DCA D0051 / @@1224=3051 DCA D0050 / @@1225=3050 JMS I C0037 / long call to S3761 @@1226=4437 C1227, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1230=4440 C1231, 6007 / 6007 JMS S0127 / @@1232=4127 ION / Enable Interrupts @@1233=6001 DCA D0042 / @@1234=3042 TAD D0050 / @@1235=1050 DCA D0052 / @@1236=3052 TAD D0052 / @@1237=1052 SAMP / (AA01A) Places all 8 channels into t @@1240=6574 C1241, 6571 / 6571 JMS I C0030 / long call to S3475 @@1242=4430 STA / AC = 7777 (-0001) @@1243=7240 C1244, 6572 / 6572 DCA D0053 / @@1245=3053 C1246, 6573 / 6573 C1247, 6570 / 6570 JMS I C0030 / long call to S3475 @@1250=4430 C1251, 6570 / 6570 D1252, 7410 / SKP JMS I C0030 / long call to S3475 @@1253=4430 TAD D0052 / @@1254=1052 CIA / @@1255=7041 TAD D0053 / @@1256=1053 SZA CLA / @@1257=7640 JMS I C0031 / long call to S3711 @@1260=4431 C1261, 6007 / 6007 JMS S0127 / @@1262=4127 ION / Enable Interrupts @@1263=6001 C1264, 6572 / 6572 SZA CLA / @@1265=7640 JMS I C0030 / long call to S3475 @@1266=4430 TAD D0042 / @@1267=1042 SZA CLA / @@1270=7640 JMS I C0030 / long call to S3475 @@1271=4430 JMS I C0025 / long call to S3221 @@1272=4425 JMS I C0024 / long call to S3200 @@1273=4424 C1274, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1275=4437 C1276, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1277=4440 TAD D0021 / @@1300=1021 AND AI4 / AUTO INDEX REGISTER @@1301=0014 SZA CLA / @@1302=7640 JMP L1306 / @@1303=5306 JMP I C1305 / long jump to L1527 @@1304=5705 C1305, C1305, 1527 / TAD I S0127 L1306, C1306, 6007 / 6007 JMS S0127 / @@1307=4127 DCA D0042 / @@1310=3042 ION / Enable Interrupts @@1311=6001 C1312, 6156 / 6156 C1313, 6167 / 6167 SKP CLA / @@1314=7610 D1315, 4430 / JMS I C0030 C1316, 6577 / 6577 SZA / @@1317=7440 JMS I C0030 / long call to S3475 @@1320=4430 C1321, 6167 / 6167 JMS I C0030 / long call to S3475 @@1322=4430 C1323, 6156 / 6156 C1324, 6167 / 6167 SKP / @@1325=7410 JMS I C0030 / long call to S3475 @@1326=4430 C1327, 6577 / 6577 C1330, 6167 / 6167 JMS I C0030 / long call to S3475 @@1331=4430 C1332, 6156 / 6156 C1333, 6167 / 6167 SKP / @@1334=7410 JMS I C0030 / long call to S3475 @@1335=4430 TAD D0042 / @@1336=1042 SZA CLA / @@1337=7640 JMS I C0030 / long call to S3475 @@1340=4430 IOF / Disable Interrupts @@1341=6002 JMS I C0025 / long call to S3221 @@1342=4425 JMS I C0024 / long call to S3200 @@1343=4424 C1344, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1345=4437 C1346, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1347=4440 C1350, 6007 / 6007 JMS S0127 / @@1351=4127 DCA D0042 / @@1352=3042 ION / Enable Interrupts @@1353=6001 C1354, 6156 / 6156 C1355, 6165 / 6165 SKP CLA / @@1356=7610 JMS I C0030 / long call to S3475 @@1357=4430 SAMP / (AA01A) Places all 8 channels into t @@1360=6574 C1361, 6571 / 6571 JMS I C0030 / long call to S3475 @@1362=4430 C1363, 6165 / 6165 JMS I C0030 / long call to S3475 @@1364=4430 C1365, 6156 / 6156 C1366, 6165 / 6165 JMS I C0030 / long call to S3475 @@1367=4430 C1370, 6007 / 6007 JMS S0127 / @@1371=4127 ION / Enable Interrupts @@1372=6001 C1373, 6156 / 6156 C1374, 6165 / 6165 SKP CLA / @@1375=7610 JMS I C0030 / long call to S3475 @@1376=4430 C1377, 6571 / 6571 SKP CLA / @@1400=7610 JMS I C0030 / long call to S3475 @@1401=4430 TAD D0042 / @@1402=1042 SZA CLA / @@1403=7640 JMS I C0030 / long call to S3475 @@1404=4430 JMS I C0025 / long call to S3221 @@1405=4425 JMS I C0024 / long call to S3200 @@1406=4424 C1407, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1410=4437 C1411, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1412=4440 C1413, 6007 / 6007 JMS S0127 / @@1414=4127 DCA D0042 / @@1415=3042 ION / Enable Interrupts @@1416=6001 C1417, 6156 / 6156 C1420, 6165 / 6165 SKP CLA / @@1421=7610 JMS I C0030 / long call to S3475 @@1422=4430 SAMP / (AA01A) Places all 8 channels into t @@1423=6574 C1424, 6571 / 6571 JMS I C0030 / long call to S3475 @@1425=4430 C1426, 6165 / 6165 JMS I C0030 / long call to S3475 @@1427=4430 C1430, 6156 / 6156 C1431, 6165 / 6165 JMS I C0030 / long call to S3475 @@1432=4430 C1433, 6573 / 6573 C1434, 6571 / 6571 SKP CLA / @@1435=7610 JMS I C0030 / long call to S3475 @@1436=4430 C1437, 6156 / 6156 C1440, 6165 / 6165 JMS I C0030 / long call to S3475 @@1441=4430 C1442, 6570 / 6570 JMS I C0030 / long call to S3475 @@1443=4430 C1444, 6156 / 6156 C1445, 6165 / 6165 SKP CLA / @@1446=7610 JMS I C0030 / long call to S3475 @@1447=4430 C1450, 6570 / 6570 SKP CLA / @@1451=7610 D1452, 4430 / JMS I C0030 TAD D0042 / @@1453=1042 SZA CLA / @@1454=7640 JMS I C0030 / long call to S3475 @@1455=4430 JMS I C0025 / long call to S3221 @@1456=4425 JMS I C0024 / long call to S3200 @@1457=4424 C1460, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1461=4437 C1462, 6000 / 6000 JMS I C0040 / long call to S3214 @@1463=4440 C1464, 6007 / 6007 JMS S0127 / @@1465=4127 ION / Enable Interrupts @@1466=6001 DCA D0042 / @@1467=3042 C1470, 6156 / 6156 C1471, 6165 / 6165 SKP CLA / @@1472=7610 JMS I C0030 / long call to S3475 @@1473=4430 SAMP / (AA01A) Places all 8 channels into t @@1474=6574 C1475, 6571 / 6571 JMS I C0030 / long call to S3475 @@1476=4430 C1477, 6165 / 6165 JMS I C0030 / long call to S3475 @@1500=4430 C1501, 6156 / 6156 C1502, 6165 / 6165 SKP CLA / @@1503=7610 JMS I C0030 / long call to S3475 @@1504=4430 C1505, 6007 / 6007 JMS S0127 / @@1506=4127 ION / Enable Interrupts @@1507=6001 C1510, 6571 / 6571 SKP CLA / @@1511=7610 JMS I C0030 / long call to S3475 @@1512=4430 SAMP / (AA01A) Places all 8 channels into t @@1513=6574 C1514, 6165 / 6165 JMS I C0030 / long call to S3475 @@1515=4430 C1516, 6156 / 6156 C1517, 6165 / 6165 SKP CLA / @@1520=7610 JMS I C0030 / long call to S3475 @@1521=4430 C1522, 6007 / 6007 C1523, 6571 / 6571 SKP CLA / @@1524=7610 JMS I C0030 / long call to S3475 @@1525=4430 JMS I C0025 / long call to S3221 @@1526=4425 L1527, JMS S0071 / @@1527=4071 DCA D1452 / @@1530=3252 JMS I C0024 / long call to S3200 @@1531=4424 C1532, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1533=4437 C1534, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1535=4440 DCA D0042 / @@1536=3042 C1537, 6007 / 6007 JMS S0127 / @@1540=4127 ION / Enable Interrupts @@1541=6001 KSF / Skip if keyboard flag is a 1. @@1542=6031 SKP CLA / @@1543=7610 JMS I C0030 / long call to S3475 @@1544=4430 C1545, 6035 / 6035 SKP CLA / @@1546=7610 JMS I C0030 / long call to S3475 @@1547=4430 TAD D0042 / @@1550=1042 SZA CLA / @@1551=7640 JMS I C0030 / long call to S3475 @@1552=4430 C1553, 6040 / 6040 SKP / @@1554=7410 JMS I C0030 / long call to S3475 @@1555=4430 TSF / Skip if teleprinter flag is a 1. @@1556=6041 JMS I C0030 / long call to S3475 @@1557=4430 C1560, 6045 / 6045 SKP / @@1561=7410 JMS I C0030 / long call to S3475 @@1562=4430 KSF / Skip if keyboard flag is a 1. @@1563=6031 SKP / @@1564=7410 JMS I C0030 / long call to S3475 @@1565=4430 TAD D0042 / @@1566=1042 SZA CLA / @@1567=7640 JMS I C0030 / long call to S3475 @@1570=4430 TCF / Clear teleprinter flag. @@1571=6042 SKP / @@1572=7410 JMS I C0030 / long call to S3475 @@1573=4430 TSF / Skip if teleprinter flag is a 1. @@1574=6041 SKP / @@1575=7410 JMS I C0030 / long call to S3475 @@1576=4430 C1577, 6045 / 6045 SKP CLA / @@1600=7610 JMS I C0030 / long call to S3475 @@1601=4430 KSF / Skip if keyboard flag is a 1. @@1602=6031 SKP CLA / @@1603=7610 JMS I C0030 / long call to S3475 @@1604=4430 TAD D0042 / @@1605=1042 SZA CLA / @@1606=7640 JMS I C0030 / long call to S3475 @@1607=4430 JMS I C0025 / long call to S3221 @@1610=4425 JMS I C0024 / long call to S3200 @@1611=4424 C1612, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1613=4437 C1614, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1615=4440 DCA D0042 / @@1616=3042 C1617, 6007 / 6007 JMS S0127 / @@1620=4127 ION / Enable Interrupts @@1621=6001 C1622, 6035 / 6035 C1623, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@1624=6041 JMS I C0030 / long call to S3475 @@1625=4430 C1626, 6045 / 6045 SKP / @@1627=7410 JMS I C0030 / long call to S3475 @@1630=4430 C1631, 6007 / 6007 TSF / Skip if teleprinter flag is a 1. @@1632=6041 SKP / @@1633=7410 JMS I C0030 / long call to S3475 @@1634=4430 TAD D0042 / @@1635=1042 SZA CLA / @@1636=7640 JMS I C0030 / long call to S3475 @@1637=4430 KSF / Skip if keyboard flag is a 1. @@1640=6031 SKP CLA / @@1641=7610 JMS I C0030 / long call to S3475 @@1642=4430 JMS I C0025 / long call to S3221 @@1643=4425 JMS I C0024 / long call to S3200 @@1644=4424 C1645, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1646=4437 C1647, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1650=4440 DCA D0042 / @@1651=3042 C1652, 6007 / 6007 JMS S0127 / @@1653=4127 ION / Enable Interrupts @@1654=6001 TSF / Skip if teleprinter flag is a 1. @@1655=6041 SKP / @@1656=7410 JMS I C0030 / long call to S3475 @@1657=4430 C1660, 6045 / 6045 SKP / @@1661=7410 JMS I C0030 / long call to S3475 @@1662=4430 TAD D0042 / @@1663=1042 SZA CLA / @@1664=7640 JMS I C0030 / long call to S3475 @@1665=4430 C1666, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@1667=6041 JMS I C0030 / long call to S3475 @@1670=4430 C1671, 6045 / 6045 JMS I C0030 / long call to S3475 @@1672=4430 ISZ D0042 / @@1673=2042 JMS I C0030 / long call to S3475 @@1674=4430 CLA / @@1675=7200 C1676, 6035 / 6035 DCA D0042 / @@1677=3042 ION / Enable Interrupts @@1700=6001 TSF / Skip if teleprinter flag is a 1. @@1701=6041 JMS I C0030 / long call to S3475 @@1702=4430 C1703, 6045 / 6045 SKP / @@1704=7410 JMS I C0030 / long call to S3475 @@1705=4430 TAD D0042 / @@1706=1042 SZA CLA / @@1707=7640 JMS I C0030 / long call to S3475 @@1710=4430 L1711, TCF / Clear teleprinter flag. @@1711=6042 TSF / Skip if teleprinter flag is a 1. @@1712=6041 SKP / @@1713=7410 JMS I C0030 / long call to S3475 @@1714=4430 KSF / Skip if keyboard flag is a 1. @@1715=6031 SKP / @@1716=7410 JMS I C0030 / long call to S3475 @@1717=4430 JMS I C0025 / long call to S3221 @@1720=4425 JMS I C0024 / long call to S3200 @@1721=4424 C1722, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@1723=4437 C1724, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@1725=4440 DCA D0042 / @@1726=3042 C1727, 6007 / 6007 JMS S0127 / @@1730=4127 C1731, 6035 / 6035 ION / Enable Interrupts @@1732=6001 C1733, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@1734=6041 JMS I C0030 / long call to S3475 @@1735=4430 C1736, 6045 / 6045 SKP CLA / @@1737=7610 JMS I C0030 / long call to S3475 @@1740=4430 TAD D0042 / @@1741=1042 SZA CLA / @@1742=7640 JMS I C0030 / long call to S3475 @@1743=4430 CLA CLL IAC / AC = 0001 @@1744=7301 C1745, 6035 / 6035 TSF / Skip if teleprinter flag is a 1. @@1746=6041 JMS I C0030 / long call to S3475 @@1747=4430 C1750, 6045 / 6045 JMS I C0030 / long call to S3475 @@1751=4430 CLA / @@1752=7200 ISZ D0042 / @@1753=2042 JMS I C0030 / long call to S3475 @@1754=4430 DCA D0042 / @@1755=3042 C1756, 6035 / 6035 ION / Enable Interrupts @@1757=6001 TSF / Skip if teleprinter flag is a 1. @@1760=6041 JMS I C0030 / long call to S3475 @@1761=4430 C1762, 6045 / 6045 SKP CLA / @@1763=7610 JMS I C0030 / long call to S3475 @@1764=4430 TAD D0042 / @@1765=1042 SZA CLA / @@1766=7640 JMS I C0030 / long call to S3475 @@1767=4430 TCF / Clear teleprinter flag. @@1770=6042 TSF / Skip if teleprinter flag is a 1. @@1771=6041 SKP CLA / @@1772=7610 JMS I C0030 / long call to S3475 @@1773=4430 KSF / Skip if keyboard flag is a 1. @@1774=6031 SKP CLA / @@1775=7610 JMS I C0030 / long call to S3475 @@1776=4430 JMS I C0025 / long call to S3221 @@1777=4425 D2000, 1021 / TAD D0021 AND C2177 / @@2001=0377 SNA CLA / @@2002=7650 JMP L2012 / @@2003=5212 JMS I C0024 / long call to S3200 @@2004=4424 SPA SNA SZL CLA HLT / @@2005=7772 JMS I C0037 / long call to S3761 @@2006=4437 C2007, 4030 / JMS C0030 JMS I C0040 / long call to S3214 @@2010=4440 JMP L2017 / @@2011=5217 L2012, JMS I C0024 / long call to S3200 @@2012=4424 SMA SZA CLA / @@2013=7740 JMS I C0037 / long call to S3761 @@2014=4437 C2015, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@2016=4440 L2017, DCA D0042 / @@2017=3042 C2020, 6007 / 6007 JMS S0127 / @@2021=4127 ION / Enable Interrupts @@2022=6001 C2023, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@2024=6041 JMS I C0030 / long call to S3475 @@2025=4430 C2026, 6045 / 6045 JMS I C0030 / long call to S3475 @@2027=4430 ISZ D0042 / @@2030=2042 JMS I C0030 / long call to S3475 @@2031=4430 TLS / Load the TTO from the content of AC4 @@2032=6046 SKP CLA / @@2033=7610 JMS I C0030 / long call to S3475 @@2034=4430 ION / Enable Interrupts @@2035=6001 TSF / Skip if teleprinter flag is a 1. @@2036=6041 SKP CLA / @@2037=7610 JMS I C0030 / long call to S3475 @@2040=4430 JMS I C0032 / long call to S3327 @@2041=4432 JMS I C0030 / long call to S3475 @@2042=4430 ISZ D0042 / @@2043=2042 JMS I C0030 / long call to S3475 @@2044=4430 C2045, 6045 / 6045 JMS I C0030 / long call to S3475 @@2046=4430 TCF / Clear teleprinter flag. @@2047=6042 ION / Enable Interrupts @@2050=6001 JMS I C0033 / long call to S3341 @@2051=4433 JMS I C0030 / long call to S3475 @@2052=4430 C2053, 6045 / 6045 JMS I C0030 / long call to S3475 @@2054=4430 ISZ D0042 / @@2055=2042 JMS I C0030 / long call to S3475 @@2056=4430 C2057, 6030 / 6030 SKP CLA / @@2060=7610 JMS I C0030 / long call to S3475 @@2061=4430 ION / Enable Interrupts @@2062=6001 KSF / Skip if keyboard flag is a 1. @@2063=6031 SKP CLA / @@2064=7610 JMS I C0030 / long call to S3475 @@2065=4430 TAD D0042 / @@2066=1042 SZA CLA / @@2067=7640 JMS I C0030 / long call to S3475 @@2070=4430 D2071, 6041 / TSF SKP CLA / @@2072=7610 JMS I C0030 / long call to S3475 @@2073=4430 JMS I C0025 / long call to S3221 @@2074=4425 TAD D0021 / @@2075=1021 AND C2177 / @@2076=0377 SNA CLA / @@2077=7650 JMP L2107 / @@2100=5307 JMS I C0024 / long call to S3200 @@2101=4424 SPA SNA SZL CLA HLT / @@2102=7772 JMS I C0037 / long call to S3761 @@2103=4437 C2104, 4010 / JMS AI0 JMS I C0040 / long call to S3214 @@2105=4440 JMP L2114 / @@2106=5314 L2107, JMS I C0024 / long call to S3200 @@2107=4424 SMA SZA CLA / @@2110=7740 JMS I C0037 / long call to S3761 @@2111=4437 C2112, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@2113=4440 L2114, DCA D0042 / @@2114=3042 C2115, 6007 / 6007 JMS S0127 / @@2116=4127 ION / Enable Interrupts @@2117=6001 C2120, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@2121=6041 JMS I C0030 / long call to S3475 @@2122=4430 ISZ D0042 / @@2123=2042 JMS I C0030 / long call to S3475 @@2124=4430 TPC / Load the TTO from the content of AC4 @@2125=6044 SKP CLA / @@2126=7610 JMS I C0030 / long call to S3475 @@2127=4430 TSF / Skip if teleprinter flag is a 1. @@2130=6041 JMS I C0030 / long call to S3475 @@2131=4430 TCF / Clear teleprinter flag. @@2132=6042 ION / Enable Interrupts @@2133=6001 JMS I C0032 / long call to S3327 @@2134=4432 JMS I C0030 / long call to S3475 @@2135=4430 ISZ D0042 / @@2136=2042 JMS I C0030 / long call to S3475 @@2137=4430 TCF / Clear teleprinter flag. @@2140=6042 ION / Enable Interrupts @@2141=6001 JMS I C0033 / long call to S3341 @@2142=4433 JMS I C0030 / long call to S3475 @@2143=4430 C2144, 6045 / 6045 JMS I C0030 / long call to S3475 @@2145=4430 ISZ D0042 / @@2146=2042 JMS I C0030 / long call to S3475 @@2147=4430 KCC / Clear AC and clear keyboard flag. @@2150=6032 SKP CLA / @@2151=7610 JMS I C0030 / long call to S3475 @@2152=4430 ION / Enable Interrupts @@2153=6001 KSF / Skip if keyboard flag is a 1. @@2154=6031 SKP CLA / @@2155=7610 JMS I C0030 / long call to S3475 @@2156=4430 TAD D0042 / @@2157=1042 SZA CLA / @@2160=7640 JMS I C0030 / long call to S3475 @@2161=4430 JMS I C0025 / long call to S3221 @@2162=4425 JMP I C2176 / long jump to L2200 @@2163=5776 *2176 C2176, C2176, 2200 / ISZ D2000 C2177, 0100 / AND C0100 L2200, JMS I C0024 / long call to S3200 @@2200=4424 C2201, 7775 / CLA MQA SCA MQL ASR + JMS S0071 / @@2202=4071 DCA D2252 / @@2203=3252 DCA D0043 / @@2204=3043 JMS I C0037 / long call to S3761 @@2205=4437 C2206, 4017 / JMS AI7 JMS I C0040 / long call to S3214 @@2207=4440 DCA D0042 / @@2210=3042 C2211, 6007 / 6007 JMS S0127 / @@2212=4127 ION / Enable Interrupts @@2213=6001 TLS / Load the TTO from the content of AC4 @@2214=6046 JMS I C0032 / long call to S3327 @@2215=4432 JMS I C0030 / long call to S3475 @@2216=4430 ISZ D0042 / @@2217=2042 JMS I C0030 / long call to S3475 @@2220=4430 TCF / Clear teleprinter flag. @@2221=6042 ION / Enable Interrupts @@2222=6001 JMS I C0033 / long call to S3341 @@2223=4433 JMS I C0030 / long call to S3475 @@2224=4430 KRS / Read keyboard buffer static. This is @@2225=6034 SKP CLA / @@2226=7610 JMS I C0030 / long call to S3475 @@2227=4430 KSF / Skip if keyboard flag is a 1. @@2230=6031 JMS I C0030 / long call to S3475 @@2231=4430 ISZ D0042 / @@2232=2042 JMS I C0030 / long call to S3475 @@2233=4430 KRB / Clear AC, clear keyboard flag, and r @@2234=6036 SKP CLA / @@2235=7610 JMS I C0030 / long call to S3475 @@2236=4430 ION / Enable Interrupts @@2237=6001 KSF / Skip if keyboard flag is a 1. @@2240=6031 SKP CLA / @@2241=7610 JMS I C0030 / long call to S3475 @@2242=4430 TAD D0042 / @@2243=1042 SZA CLA / @@2244=7640 JMS I C0030 / long call to S3475 @@2245=4430 JMS I C0025 / long call to S3221 @@2246=4425 JMS I C0024 / long call to S3200 @@2247=4424 C2250, 7775 / CLA MQA SCA MQL ASR + JMS I C0037 / long call to S3761 @@2251=4437 D2252, 4017 / JMS AI7 JMS I C0040 / long call to S3214 @@2253=4440 DCA D0042 / @@2254=3042 C2255, 6007 / 6007 JMS S0127 / @@2256=4127 ION / Enable Interrupts @@2257=6001 TLS / Load the TTO from the content of AC4 @@2260=6046 JMS I C0032 / long call to S3327 @@2261=4432 JMS I C0030 / long call to S3475 @@2262=4430 ISZ D0042 / @@2263=2042 JMS I C0030 / long call to S3475 @@2264=4430 TCF / Clear teleprinter flag. @@2265=6042 ION / Enable Interrupts @@2266=6001 JMS I C0033 / long call to S3341 @@2267=4433 JMS I C0030 / long call to S3475 @@2270=4430 ISZ D0042 / @@2271=2042 JMS I C0030 / long call to S3475 @@2272=4430 C2273, 6007 / 6007 ION / Enable Interrupts @@2274=6001 KSF / Skip if keyboard flag is a 1. @@2275=6031 SKP CLA / @@2276=7610 JMS I C0030 / long call to S3475 @@2277=4430 JMS I C0025 / long call to S3221 @@2300=4425 JMS I C0024 / long call to S3200 @@2301=4424 C2302, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@2303=4437 C2304, 4007 / JMS D0007 JMS I C0040 / long call to S3214 @@2305=4440 DCA D0042 / @@2306=3042 C2307, 6007 / 6007 JMS S0127 / @@2310=4127 ION / Enable Interrupts @@2311=6001 CLA CLL CMA RAL / AC = 7776 (-0002) @@2312=7344 C2313, 6035 / 6035 CMA RAR / @@2314=7050 SNL CLA / @@2315=7620 JMS I C0030 / long call to S3475 @@2316=4430 STA / AC = 7777 (-0001) @@2317=7240 KCC / Clear AC and clear keyboard flag. @@2320=6032 SZA CLA / @@2321=7640 JMS I C0030 / long call to S3475 @@2322=4430 STA / AC = 7777 (-0001) @@2323=7240 KRB / Clear AC, clear keyboard flag, and r @@2324=6036 SPA / @@2325=7510 JMS I C0030 / long call to S3475 @@2326=4430 STA / AC = 7777 (-0001) @@2327=7240 KRS / Read keyboard buffer static. This is @@2330=6034 CMA / @@2331=7040 SZA CLA / @@2332=7640 JMS I C0030 / long call to S3475 @@2333=4430 CLA CLL CMA / AC = 7777 (-0001) @@2334=7340 KSF / Skip if keyboard flag is a 1. @@2335=6031 CMA / @@2336=7040 SZA CLA / @@2337=7640 JMS I C0030 / long call to S3475 @@2340=4430 STA / AC = 7777 (-0001) @@2341=7240 C2342, 6030 / 6030 CMA / @@2343=7040 SZA CLA / @@2344=7640 JMS I C0030 / long call to S3475 @@2345=4430 STA / AC = 7777 (-0001) @@2346=7240 C2347, 6040 / 6040 CMA / @@2350=7040 SZA CLA / @@2351=7640 JMS I C0030 / long call to S3475 @@2352=4430 STA / AC = 7777 (-0001) @@2353=7240 TCF / Clear teleprinter flag. @@2354=6042 CMA / @@2355=7040 SZA CLA / @@2356=7640 JMS I C0030 / long call to S3475 @@2357=4430 STA / AC = 7777 (-0001) @@2360=7240 TSF / Skip if teleprinter flag is a 1. @@2361=6041 CMA / @@2362=7040 SZA CLA / @@2363=7640 JMS I C0030 / long call to S3475 @@2364=4430 STA / AC = 7777 (-0001) @@2365=7240 TPC / Load the TTO from the content of AC4 @@2366=6044 CMA / @@2367=7040 SZA CLA / @@2370=7640 JMS I C0030 / long call to S3475 @@2371=4430 JMS I C0032 / long call to S3327 @@2372=4432 JMS I C0030 / long call to S3475 @@2373=4430 JMS I C0033 / long call to S3341 @@2374=4433 JMS I C0030 / long call to S3475 @@2375=4430 TCF / Clear teleprinter flag. @@2376=6042 C2377, 6030 / 6030 STA / AC = 7777 (-0001) @@2400=7240 C2401, 6045 / 6045 CMA / @@2402=7040 SZA CLA / @@2403=7640 JMS I C0030 / long call to S3475 @@2404=4430 STA / AC = 7777 (-0001) @@2405=7240 TLS / Load the TTO from the content of AC4 @@2406=6046 CMA / @@2407=7040 SZA CLA / @@2410=7640 JMS I C0030 / long call to S3475 @@2411=4430 JMS I C0032 / long call to S3327 @@2412=4432 JMS I C0030 / long call to S3475 @@2413=4430 JMS I C0033 / long call to S3341 @@2414=4433 JMS I C0030 / long call to S3475 @@2415=4430 TCF / Clear teleprinter flag. @@2416=6042 KCC / Clear AC and clear keyboard flag. @@2417=6032 TAD D0042 / @@2420=1042 SZA CLA / @@2421=7640 JMS I C0030 / long call to S3475 @@2422=4430 JMS I C0025 / long call to S3221 @@2423=4425 JMS I C0024 / long call to S3200 @@2424=4424 C2425, 7775 / CLA MQA SCA MQL ASR + JMS I C0037 / long call to S3761 @@2426=4437 C2427, 4017 / JMS AI7 JMS I C0040 / long call to S3214 @@2430=4440 DCA D0042 / @@2431=3042 DCA D0054 / @@2432=3054 JMS I C0034 / long call to S3653 @@2433=4434 JMS I C0035 / long call to S3734 @@2434=4435 JMS I C0025 / long call to S3221 @@2435=4425 C2436, 0377 / AND C2577 JMS I C0024 / long call to S3200 @@2437=4424 C2440, 7775 / CLA MQA SCA MQL ASR + JMS I C0037 / long call to S3761 @@2441=4437 C2442, 4017 / JMS AI7 JMS I C0040 / long call to S3214 @@2443=4440 DCA D0042 / @@2444=3042 TAD C2436 / @@2445=1236 DCA D0054 / @@2446=3054 JMS I C0034 / long call to S3653 @@2447=4434 JMS I C0035 / long call to S3734 @@2450=4435 JMS I C0025 / long call to S3221 @@2451=4425 JMS I C0024 / long call to S3200 @@2452=4424 C2453, 7775 / CLA MQA SCA MQL ASR + JMS I C0037 / long call to S3761 @@2454=4437 C2455, 4017 / JMS AI7 JMS I C0040 / long call to S3214 @@2456=4440 DCA D0042 / @@2457=3042 DCA D0054 / @@2460=3054 JMS I C0034 / long call to S3653 @@2461=4434 JMS I C0035 / long call to S3734 @@2462=4435 TAD C2436 / @@2463=1236 DCA D0054 / @@2464=3054 JMS I C0034 / long call to S3653 @@2465=4434 JMS I C0035 / long call to S3734 @@2466=4435 JMS I C0025 / long call to S3221 @@2467=4425 JMS I C0024 / long call to S3200 @@2470=4424 C2471, 7775 / CLA MQA SCA MQL ASR + JMS I C0037 / long call to S3761 @@2472=4437 C2473, 4007 / JMS D0007 JMS I C0040 / long call to S3214 @@2474=4440 DCA D0042 / @@2475=3042 TAD C0057 / @@2476=1057 DCA D0054 / @@2477=3054 JMS I C0034 / long call to S3653 @@2500=4434 JMS I C0035 / long call to S3734 @@2501=4435 TAD C0060 / @@2502=1060 DCA D0054 / @@2503=3054 JMS I C0034 / long call to S3653 @@2504=4434 JMS I C0035 / long call to S3734 @@2505=4435 JMS I C0025 / long call to S3221 @@2506=4425 JMS I C0024 / long call to S3200 @@2507=4424 C2510, 7777 / CLA MQA SCA MQL LSR + TAD C2436 / @@2511=1236 CIA / @@2512=7041 DCA D0051 / @@2513=3051 TAD D0051 / @@2514=1051 DCA D0050 / @@2515=3050 JMS I C0037 / long call to S3761 @@2516=4437 C2517, 4007 / JMS D0007 JMS I C0040 / long call to S3214 @@2520=4440 TAD D0050 / @@2521=1050 AND C2436 / @@2522=0236 DCA D0054 / @@2523=3054 JMS I C0034 / long call to S3653 @@2524=4434 JMS I C0035 / long call to S3734 @@2525=4435 JMS I C0025 / long call to S3221 @@2526=4425 JMS I C0024 / long call to S3200 @@2527=4424 C2530, 7777 / CLA MQA SCA MQL LSR + TAD C2436 / @@2531=1236 CIA / @@2532=7041 DCA D0051 / @@2533=3051 TAD D0051 / @@2534=1051 DCA D0050 / @@2535=3050 JMS I C0037 / long call to S3761 @@2536=4437 C2537, 4017 / JMS AI7 JMS I C0040 / long call to S3214 @@2540=4440 C2541, 6007 / 6007 JMS S0127 / @@2542=4127 ION / Enable Interrupts @@2543=6001 DCA D0042 / @@2544=3042 C2545, 6035 / 6035 TAD D0050 / @@2546=1050 AND C2436 / @@2547=0236 DCA D0054 / @@2550=3054 TAD D0054 / @@2551=1054 TLS / Load the TTO from the content of AC4 @@2552=6046 JMS I C0032 / long call to S3327 @@2553=4432 JMS I C0030 / long call to S3475 @@2554=4430 TCF / Clear teleprinter flag. @@2555=6042 JMS I C0033 / long call to S3341 @@2556=4433 JMS I C0030 / long call to S3475 @@2557=4430 STA / AC = 7777 (-0001) @@2560=7240 KRB / Clear AC, clear keyboard flag, and r @@2561=6036 DCA D0055 / @@2562=3055 TAD D0054 / @@2563=1054 CIA / @@2564=7041 TAD D0055 / @@2565=1055 SZA CLA / @@2566=7640 JMS I C0035 / long call to S3734 @@2567=4435 TAD D0042 / @@2570=1042 SZA CLA / @@2571=7640 JMS I C0030 / long call to S3475 @@2572=4430 JMS I C0025 / long call to S3221 @@2573=4425 NOP / @@2574=7000 NOP / @@2575=7000 TAD D0021 / @@2576=1021 C2577, 0014 / AND AI4 SNA CLA / @@2600=7650 JMP I C2603 / long jump to L3121 @@2601=5603 JMP L2604 / @@2602=5204 C2603, C2603, 3121 / DCA D0121 L2604, JMS I C0024 / long call to S3200 @@2604=4424 C2605, 7777 / CLA MQA SCA MQL LSR + JMS I C0037 / long call to S3761 @@2606=4437 C2607, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@2610=4440 C2611, 6007 / 6007 JMS S0127 / @@2612=4127 DCA D0042 / @@2613=3042 JMS S0071 / @@2614=4071 DCA D2652 / @@2615=3252 ION / Enable Interrupts @@2616=6001 C2617, 6156 / 6156 C2620, 6157 / 6157 SKP CLA / @@2621=7610 JMS I C0030 / long call to S3475 @@2622=4430 KCC / Clear AC and clear keyboard flag. @@2623=6032 C2624, 6157 / 6157 JMS I C0030 / long call to S3475 @@2625=4430 C2626, 6007 / 6007 JMS S0127 / @@2627=4127 ION / Enable Interrupts @@2630=6001 C2631, 6156 / 6156 C2632, 6157 / 6157 SKP / @@2633=7410 JMS I C0030 / long call to S3475 @@2634=4430 KRB / Clear AC, clear keyboard flag, and r @@2635=6036 CLA CLL / AC = 0000 @@2636=7300 C2637, 6157 / 6157 JMS I C0030 / long call to S3475 @@2640=4430 C2641, 6007 / 6007 JMS S0127 / @@2642=4127 ION / Enable Interrupts @@2643=6001 C2644, 6156 / 6156 C2645, 6157 / 6157 SKP CLA / @@2646=7610 JMS I C0030 / long call to S3475 @@2647=4430 TAD D0042 / @@2650=1042 SZA CLA / @@2651=7640 D2652, 4430 / JMS I C0030 JMS I C0025 / long call to S3221 @@2653=4425 JMS I C0024 / long call to S3200 @@2654=4424 C2655, 7771 / CLA MQA SCA MQL NMI JMS I C0037 / long call to S3761 @@2656=4437 C2657, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@2660=4440 C2661, 6007 / 6007 JMS S0127 / @@2662=4127 ION / Enable Interrupts @@2663=6001 C2664, 6035 / 6035 C2665, 6156 / 6156 C2666, 6157 / 6157 SKP CLA / @@2667=7610 JMS I C0030 / long call to S3475 @@2670=4430 KCC / Clear AC and clear keyboard flag. @@2671=6032 C2672, 6157 / 6157 JMS I C0030 / long call to S3475 @@2673=4430 TLS / Load the TTO from the content of AC4 @@2674=6046 JMS I C0032 / long call to S3327 @@2675=4432 JMS I C0030 / long call to S3475 @@2676=4430 TCF / Clear teleprinter flag. @@2677=6042 JMS I C0033 / long call to S3341 @@2700=4433 JMS I C0030 / long call to S3475 @@2701=4430 C2702, 6156 / 6156 C2703, 6157 / 6157 SKP CLA / @@2704=7610 JMS I C0030 / long call to S3475 @@2705=4430 JMS I C0025 / long call to S3221 @@2706=4425 TAD D0021 / @@2707=1021 AND C2777 / @@2710=0377 SZA CLA / @@2711=7640 JMP I C0041 / long jump to L3400 @@2712=5441 TAD C0023 / @@2713=1023 SZA CLA / @@2714=7640 JMP I C2776 / long jump to L3000 @@2715=5776 JMP I C2775 / long jump to L3121 @@2716=5775 *2775 C2775, C2775, 3121 / DCA D0121 C2776, C2776, 3000 / DCA L0000 C2777, 0100 / AND C0100 L3000, JMS I C0024 / long call to S3200 @@3000=4424 C3001, 7777 / CLA MQA SCA MQL LSR + JMS S0071 / @@3002=4071 DCA D3052 / @@3003=3252 DCA D0043 / @@3004=3043 JMS I C0037 / long call to S3761 @@3005=4437 C3006, 4100 / JMS C0100 JMS I C0040 / long call to S3214 @@3007=4440 TAD C3177 / @@3010=1377 D3011, 3044 / DCA D0044 C3012, 6007 / 6007 JMS S0127 / @@3013=4127 ION / Enable Interrupts @@3014=6001 C3015, 6161 / 6161 L3016, C3016, 6162 / 6162 SKP CLA / @@3017=7610 JMP L3016 / @@3020=5216 C3021, 6163 / 6163 DCA D3037 / @@3022=3237 TAD C3040 / @@3023=1240 TAD D3037 / @@3024=1237 SNA / @@3025=7450 JMP L3035 / @@3026=5235 L3027, IAC / @@3027=7001 SNA / @@3030=7450 JMP L3035 / @@3031=5235 ISZ D0044 / @@3032=2044 JMP L3027 / @@3033=5227 JMS I C0030 / long call to S3475 @@3034=4430 L3035, JMS I C0025 / long call to S3221 @@3035=4425 JMP L3041 / @@3036=5241 D3037, 0000 / AND L0000 C3040, 3062 / DCA D0062 L3041, JMS I C0024 / long call to S3200 @@3041=4424 SMA SZA CLA / @@3042=7740 JMS I C0037 / long call to S3761 @@3043=4437 C3044, 4000 / JMS L0000 JMS I C0040 / long call to S3214 @@3045=4440 TAD C3177 / @@3046=1377 DCA D0044 / @@3047=3044 C3050, 6007 / 6007 JMS S0127 / @@3051=4127 D3052, 6035 / 6035 ION / Enable Interrupts @@3053=6001 C3054, 6161 / 6161 L3055, C3055, 6162 / 6162 SKP CLA / @@3056=7610 JMP L3055 / @@3057=5255 C3060, 6163 / 6163 DCA D3037 / @@3061=3237 TAD C0023 / @@3062=1023 SZA CLA / @@3063=7640 TAD C3176 / @@3064=1376 TAD C3175 / @@3065=1375 DCA D3074 / @@3066=3274 TAD D0056 / @@3067=1056 AND AI7 / AUTO INDEX REGISTER @@3070=0017 TAD D3074 / @@3071=1274 DCA D3074 / @@3072=3274 SKP / @@3073=7410 D3074, 7402 / HLT TAD I D3074 / @@3075=1674 TAD D3037 / @@3076=1237 SNA / @@3077=7450 JMP L3107 / @@3100=5307 L3101, IAC / @@3101=7001 SNA / @@3102=7450 JMP L3107 / @@3103=5307 ISZ D0044 / @@3104=2044 JMP L3101 / @@3105=5301 JMS I C0030 / long call to S3475 @@3106=4430 L3107, JMS I C0025 / long call to S3221 @@3107=4425 JMP L3121 / @@3110=5321 ISZ D3135 / @@3111=2335 DCA I C3123 / @@3112=3723 DCA I C3123 / @@3113=3723 DCA I C3123 / @@3114=3723 JMP I C3144 / long jump to L7240 @@3115=5744 C3116, 6755 / 6755 CLA CLL CMA CML / @@3117=7362 SMA SZA SNL OSR / @@3120=7564 L3121, JMS I C0024 / long call to S3200 @@3121=4424 C3122, 7777 / CLA MQA SCA MQL LSR + C3123, 4437 / JMS I C0037 C3124, 4017 / JMS AI7 JMS I C0040 / long call to S3214 @@3125=4440 IOF / Disable Interrupts @@3126=6002 JMS I C0061 / long call to S4357 @@3127=4461 C3130, 6007 / 6007 JMS S0127 / @@3131=4127 JMS S0071 / @@3132=4071 C3133, 4200 / JMS L3000 DCA D0062 / @@3134=3062 D3135, 3063 / DCA L0063 DCA D0054 / @@3136=3054 DCA D0052 / @@3137=3052 STA / AC = 7777 (-0001) @@3140=7240 DCA D0064 / @@3141=3064 STA / AC = 7777 (-0001) @@3142=7240 DCA D0065 / @@3143=3065 C3144, C3144, 7240 / STA DCA D0066 / @@3145=3066 TAD AI3 / AUTO INDEX REGISTER @@3146=1013 DCA L0067 / @@3147=3067 TAD C3164 / @@3150=1364 DCA D0070 / @@3151=3070 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@3152=7352 DCA D0050 / @@3153=3050 CLA CLL IAC / AC = 0001 @@3154=7301 C3155, 6135 / 6135 CLA / @@3156=7200 C3157, 6575 / 6575 TLS / Load the TTO from the content of AC4 @@3160=6046 SAMP / (AA01A) Places all 8 channels into t @@3161=6574 ION / Enable Interrupts @@3162=6001 L3163, JMP L3163 / @@3163=5363 C3164, 7740 / SMA SZA CLA *3175 C3175, 4563 / JMS I C0163 C3176, 6326 / 6326 C3177, 7754 / SPA SNA CLA OSR //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3200 / / Called from: / 0203 0304 0337 0413 0505 0547 0620 0663 0733 0774 1027 1124 1137 1155 1200 / 1221 1273 1343 1406 1457 1531 1611 1644 1721 2004 2012 2101 2107 2200 2247 / 2301 2424 2437 2452 2470 2507 2527 2604 2654 3000 3041 3121 / Total 0052 (42) calls //////////////////////////////////////////////////////////////////////////////// S3200, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@3201=7340 TAD S3200 / @@3202=1200 DCA D0046 / @@3203=3046 TAD I S3200 / @@3204=1600 DCA D0006 / @@3205=3006 STA / AC = 7777 (-0001) @@3206=7240 DCA D0051 / @@3207=3051 TAD D0051 / @@3210=1051 DCA D0050 / @@3211=3050 ISZ S3200 / @@3212=2200 JMP I S3200 / return @@3213=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3214 / / Called from: / 0207 0256 0310 0343 0417 0456 0511 0553 0624 0667 0737 1033 1130 1143 1161 / 1212 1230 1277 1347 1412 1463 1535 1615 1650 1725 2010 2016 2105 2113 2207 / 2253 2305 2430 2443 2456 2474 2520 2540 2610 2660 3007 3045 3125 / Total 0053 (43) calls //////////////////////////////////////////////////////////////////////////////// S3214, 0 / return area JMS S0136 / @@3215=4136 C3216, 6151 / 6151 JMS I C0177 / long call to S5123 @@3217=4577 JMP I S3214 / return @@3220=5614 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3221 / / Called from: / 0245 0303 0336 0412 0451 0501 0546 0617 0662 0732 0773 1026 1123 1136 1154 / 1173 1220 1272 1342 1405 1456 1526 1610 1643 1720 1777 2074 2162 2246 2300 / 2423 2435 2451 2467 2506 2526 2573 2653 2706 3035 3107 / Total 0051 (41) calls //////////////////////////////////////////////////////////////////////////////// S3221, 0 / return area JMS I C3223 / long call to S4627 @@3222=4623 C3223, C3223, 4627 / JMS I C3227 TAD D0021 / @@3224=1021 AND AI4 / AUTO INDEX REGISTER @@3225=0014 SNA CLA / @@3226=7650 JMP L3237 / @@3227=5237 ISZ D0006 / @@3230=2006 SKP CLA / @@3231=7610 JMP L3237 / @@3232=5237 ISZ D0056 / @@3233=2056 TAD D0051 / @@3234=1051 DCA D0050 / @@3235=3050 JMP I D0047 / long jump to L0000 @@3236=5447 L3237, JMS I C0036 / long call to S3407 @@3237=4436 RTL / @@3240=7006 SMA CLA / @@3241=7700 JMP I S3221 / return @@3242=5621 JMP I D0046 / long jump to L0000 @@3243=5446 SPL / (KP8/I) Skip if power low @@3244=6102 SKP / @@3245=7410 JMP I C3377 / long jump to L3441 @@3246=5777 DCA D3251 / @@3247=3251 JMP L3317 / @@3250=5317 D3251, 0000 / AND L0000 SPL / (KP8/I) Skip if power low @@3252=6102 SKP / @@3253=7410 JMP I C3377 / long jump to L3441 @@3254=5777 DCA D3251 / @@3255=3251 TAD D0043 / @@3256=1043 SNA CLA / @@3257=7650 JMS I C3376 / long call to S3544 @@3260=4776 CECI / All clock control flip-flops are cle @@3261=6137 SKP / @@3262=7410 JMP L3303 / @@3263=5303 TAD D0115 / @@3264=1115 SZA / @@3265=7440 JMP L3276 / @@3266=5276 JMS I C3375 / long call to S4732 @@3267=4775 KSF / Skip if keyboard flag is a 1. @@3270=6031 SKP / @@3271=7410 JMP L3311 / @@3272=5311 C3273, 6571 / 6571 SKP / @@3274=7410 JMP L3314 / @@3275=5314 L3276, C3276, 6570 / 6570 SZA CLA / @@3277=7640 JMP L3315 / @@3300=5315 JMS I C0030 / long call to S3475 @@3301=4430 JMP L3315 / @@3302=5315 L3303, TSF / Skip if teleprinter flag is a 1. @@3303=6041 SKP / @@3304=7410 JMS I C0030 / long call to S3475 @@3305=4430 L3306, KSF / Skip if keyboard flag is a 1. @@3306=6031 SKP / @@3307=7410 JMS I C0030 / long call to S3475 @@3310=4430 L3311, C3311, 6571 / 6571 SKP / @@3312=7410 JMS I C0030 / long call to S3475 @@3313=4430 L3314, C3314, 6570 / 6570 L3315, SKP CLA / @@3315=7610 JMS I C0030 / long call to S3475 @@3316=4430 L3317, DCA D0115 / @@3317=3115 STA / AC = 7777 (-0001) @@3320=7240 DCA D0042 / @@3321=3042 JMS I C3374 / long call to S3420 @@3322=4774 DCA D3326 / @@3323=3326 TAD D3251 / @@3324=1251 JMP I D3326 / long jump to L0000 @@3325=5726 D3326, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3327 / / Called from: / 2041 2134 2215 2261 2372 2412 2553 2675 3662 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S3327, 0 / return area CLA CLL / AC = 0000 @@3330=7300 C3331, 6035 / 6035 TAD C0131 / @@3332=1131 DCA D0045 / @@3333=3045 DCA D0044 / @@3334=3044 JMS I C3373 / long call to S4640 @@3335=4773 JMS S3362 / @@3336=4362 ISZ S3327 / @@3337=2327 JMP I S3327 / return @@3340=5727 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3341 / / Called from: / 2051 2142 2223 2267 2374 2414 2556 2700 3670 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S3341, 0 / return area CLA CLL / AC = 0000 @@3342=7300 TAD C0131 / @@3343=1131 DCA D0045 / @@3344=3045 DCA D0044 / @@3345=3044 KSF / Skip if keyboard flag is a 1. @@3346=6031 JMS S3362 / @@3347=4362 ISZ S3341 / @@3350=2341 JMP I S3341 / return @@3351=5741 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3352 / / Called from: / 0240 0264 0316 0351 0373 0425 0443 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S3352, 0 / return area STA / AC = 7777 (-0001) @@3353=7240 DCA D0045 / @@3354=3045 DCA D0044 / @@3355=3044 JMS I C0176 / long call to S5027 @@3356=4576 JMS S3362 / @@3357=4362 ISZ S3352 / @@3360=2352 JMP I S3352 / return @@3361=5752 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3362 / / Called from: / 3336 3347 3357 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S3362, 0 / return area ISZ D0044 / @@3363=2044 SKP CLA / @@3364=7610 ISZ D0045 / @@3365=2045 CLA CLL CMA RTL / AC = 7775 (-0003) @@3366=7346 IAC / @@3367=7001 TAD S3362 / @@3370=1362 DCA S3362 / @@3371=3362 JMP I S3362 / return @@3372=5762 C3373, C3373, 4640 / JMS I C3240 C3374, C3374, 3420 / DCA I C0020 C3375, C3375, 4732 / JMS I C3332 C3376, C3376, 3544 / DCA I C0144 C3377, C3377, 3441 / DCA I C0041 L3400, C3400, 6160 / 6160 JMS I C0036 / long call to S3407 @@3401=4436 RTL / @@3402=7006 RAL / @@3403=7004 JMS I C3405 / long call to S4600 @@3404=4605 C3405, C3405, 4600 / JMS I L3400 JMP I C3577 / long jump to L0200 @@3406=5777 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3407 / / Called from: / 3237 3401 3477 3507 3713 3727 3736 3754 4027 4352 4461 4470 4510 4517 4533 / 4542 4556 / Total 0021 (17) calls //////////////////////////////////////////////////////////////////////////////// S3407, 0 / return area CLA / @@3410=7200 TAD D0021 / @@3411=1021 SMA CLA / @@3412=7700 JMP L3416 / @@3413=5216 LAS / @@3414=7604 JMP I S3407 / return @@3415=5607 L3416, TAD C0020 / @@3416=1020 JMP I S3407 / return @@3417=5607 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3420 / / Called from: / 3322 3557 4306 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S3420, 0 / return area CDF0 / Change to data field 0. The data fie @@3421=6201 TAD I C3436 / @@3422=1636 DCA D3437 / @@3423=3237 RIF / Same as RDF except reads the instruc @@3424=6224 TAD C0104 / @@3425=1104 DCA D3427 / @@3426=3227 D3427, 7402 / HLT TAD I S3420 / @@3430=1620 DCA D3440 / @@3431=3240 ISZ S3420 / @@3432=2220 TAD D3437 / @@3433=1237 DCA I D3440 / @@3434=3640 JMP I S3420 / return @@3435=5620 C3436, 0000 / AND L0000 D3437, 0000 / AND L0000 D3440, 0000 / AND L0000 L3441, CLA / @@3441=7200 CDF0 / Change to data field 0. The data fie @@3442=6201 TAD C3465 / @@3443=1265 DCA I C3436 / @@3444=3636 TAD D0046 / @@3445=1046 DCA I C3466 / @@3446=3666 TAD C3467 / @@3447=1267 DCA I C3470 / @@3450=3670 TAD C0114 / @@3451=1114 DCA I C3471 / @@3452=3671 TAD C3472 / @@3453=1272 DCA I C3473 / @@3454=3673 C3455, 6004 / 6004 DCA I C3474 / @@3456=3674 RMF / Restore memory field. Used to exit @@3457=6244 C3460, 6103 / 6103 L3461, SPL / (KP8/I) Skip if power low @@3461=6102 SKP CLA / @@3462=7610 JMP L3461 / @@3463=5261 JMP I D0046 / long jump to L0000 @@3464=5446 C3465, 5007 / JMP D0007 C3466, 0046 / AND D0046 C3467, 1012 / TAD AI2 C3470, 0007 / AND D0007 C3471, 0010 / AND AI0 C3472, 5446 / JMP I D0046 C3473, 0011 / AND AI1 C3474, 0012 / AND AI2 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3475 / / Called from: / 0215 0220 0223 0226 0231 0235 0237 0241 0265 0270 0277 0302 0317 0322 0327 / 0332 0335 0352 0355 0363 0367 0372 0374 0376 0405 0411 0426 0431 0440 0444 / 0447 0465 0472 0500 0521 0524 0527 0532 0535 0537 0542 0545 0562 0565 0570 / 0572 0575 0577 0602 0606 0610 0613 0616 0633 0636 0641 0646 0656 0661 0676 / 0701 0704 0707 0712 0715 0717 0722 0725 0730 0746 0752 0760 0763 0766 0772 / 1011 1015 1021 1024 1044 1053 1060 1066 1076 1103 1110 1114 1117 1122 1242 / 1250 1253 1266 1271 1320 1322 1326 1331 1335 1340 1357 1362 1364 1367 1376 / 1401 1404 1422 1425 1427 1432 1436 1441 1443 1447 1455 1473 1476 1500 1504 / 1512 1515 1521 1525 1544 1547 1552 1555 1557 1562 1565 1570 1573 1576 1601 / 1604 1607 1625 1630 1634 1637 1642 1657 1662 1665 1670 1672 1674 1702 1705 / 1710 1714 1717 1735 1740 1743 1747 1751 1754 1761 1764 1767 1773 1776 2025 / 2027 2031 2034 2040 2042 2044 2046 2052 2054 2056 2061 2065 2070 2073 2122 / 2124 2127 2131 2135 2137 2143 2145 2147 2152 2156 2161 2216 2220 2224 2227 / 2231 2233 2236 2242 2245 2262 2264 2270 2272 2277 2316 2322 2326 2333 2340 / 2345 2352 2357 2364 2371 2373 2375 2404 2411 2413 2415 2422 2554 2557 2572 / 2622 2625 2634 2640 2647 2670 2673 2676 2701 2705 3034 3106 3301 3305 3310 / 3313 3316 3611 3613 3620 3626 3630 3635 3650 3663 3665 3671 3673 3701 4075 / 4222 4232 4235 4317 4670 5047 / Total 0405 (261) calls //////////////////////////////////////////////////////////////////////////////// S3475, 0 / return area JMS S3526 / @@3476=4326 JMS I C0036 / long call to S3407 @@3477=4436 SPA CLA / @@3500=7710 JMP L3507 / @@3501=5307 STA / AC = 7777 (-0001) @@3502=7240 TAD S3475 / @@3503=1275 HLT / @@3504=7402 JMS S3514 / @@3505=4314 HLT / @@3506=7402 L3507, JMS I C0036 / long call to S3407 @@3507=4436 RAL / @@3510=7004 SMA CLA / @@3511=7700 JMP I S3475 / return @@3512=5675 JMP I D0047 / long jump to L0000 @@3513=5447 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3514 / / Called from: / 3505 3752 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3514, 0 / return area CLA CLL / AC = 0000 @@3515=7300 TAD D0021 / @@3516=1021 AND AI4 / AUTO INDEX REGISTER @@3517=0014 SNA CLA / @@3520=7650 JMP L3524 / @@3521=5324 JMS S0136 / @@3522=4136 JMP I S3514 / return @@3523=5714 L3524, ISZ S3514 / @@3524=2314 JMP I S3514 / return @@3525=5714 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3526 / / Called from: / 3476 3712 3735 4436 4467 4516 4541 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S3526, 0 / return area CLA CLL / AC = 0000 @@3527=7300 TAD C0022 / @@3530=1022 SMA CLA / @@3531=7700 JMP I S3526 / return @@3532=5726 IOF / Disable Interrupts @@3533=6002 CLA CLL CMA RAL / AC = 7776 (-0002) @@3534=7344 TAD S3526 / @@3535=1326 DCA D3543 / @@3536=3343 STA / AC = 7777 (-0001) @@3537=7240 TAD I D3543 / @@3540=1743 CIF0 / Prepare to change to instruction fie @@3541=6272 JMP I C0005 / long jump to L6520 @@3542=5405 D3543, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3544 / / Called from: / 3260 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3544, 0 / return area CECI / All clock control flip-flops are cle @@3545=6137 SKP / @@3546=7410 JMP L3552 / @@3547=5352 L3550, ISZ S3544 / @@3550=2344 JMP I S3544 / return @@3551=5744 L3552, CCEC / All clock control flip-flops are fir @@3552=6136 TAD C0022 / @@3553=1022 SPA CLA / @@3554=7710 JMP L3565 / @@3555=5365 JMP L3550 / @@3556=5350 L3557, JMS S3420 / @@3557=4220 C3560, 3564 / DCA I C0164 TAD I C3576 / @@3561=1776 ION / Enable Interrupts @@3562=6001 JMP I C3564 / long jump to L0000 @@3563=5764 C3564, C3564, 0000 / AND L0000 L3565, ISZ AI6 / AUTO INDEX REGISTER @@3565=2016 JMP L3557 / @@3566=5357 TAD AI5 / AUTO INDEX REGISTER @@3567=1015 DCA AI6 / AUTO INDEX REGISTER @@3570=3016 CIF0 / Prepare to change to instruction fie @@3571=6272 C3572, 4404 / JMS I C0004 STA / AC = 7777 (-0001) @@3573=7240 DCA D0115 / @@3574=3115 JMP L3557 / @@3575=5357 C3576, 3251 / DCA C3451 C3577, C3577, 0200 / AND L3400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3600 / / Called from: / 1134 1147 1152 1165 1171 1216 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S3600, 0 / return area C3601, 6007 / 6007 JMS S0127 / @@3602=4127 ION / Enable Interrupts @@3603=6001 C3604, 6575 / 6575 TAD D0052 / @@3605=1052 SAMP / (AA01A) Places all 8 channels into t @@3606=6574 CLA / @@3607=7200 C3610, 6571 / 6571 JMS I C0030 / long call to S3475 @@3611=4430 ISZ D0042 / @@3612=2042 JMS I C0030 / long call to S3475 @@3613=4430 DCA D0042 / @@3614=3042 C3615, 6572 / 6572 DCA D0053 / @@3616=3053 C3617, 6571 / 6571 JMS I C0030 / long call to S3475 @@3620=4430 C3621, 6573 / 6573 ION / Enable Interrupts @@3622=6001 NOP / @@3623=7000 C3624, 6570 / 6570 SKP CLA / @@3625=7610 JMS I C0030 / long call to S3475 @@3626=4430 ISZ D0042 / @@3627=2042 JMS I C0030 / long call to S3475 @@3630=4430 ION / Enable Interrupts @@3631=6001 NOP / @@3632=7000 TAD D0042 / @@3633=1042 SZA CLA / @@3634=7640 JMS I C0030 / long call to S3475 @@3635=4430 TAD D0052 / @@3636=1052 CIA / @@3637=7041 TAD D0053 / @@3640=1053 SZA CLA / @@3641=7640 JMP I S3600 / return @@3642=5600 C3643, 6007 / 6007 JMS S0127 / @@3644=4127 ION / Enable Interrupts @@3645=6001 C3646, 6572 / 6572 SZA CLA / @@3647=7640 JMS I C0030 / long call to S3475 @@3650=4430 ISZ S3600 / @@3651=2200 JMP I S3600 / return @@3652=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3653 / / Called from: / 2433 2447 2461 2465 2500 2504 2524 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S3653, 0 / return area C3654, 6007 / 6007 JMS S0127 / @@3655=4127 ION / Enable Interrupts @@3656=6001 DCA D0042 / @@3657=3042 TAD D0054 / @@3660=1054 TLS / Load the TTO from the content of AC4 @@3661=6046 JMS I C0032 / long call to S3327 @@3662=4432 JMS I C0030 / long call to S3475 @@3663=4430 ISZ D0042 / @@3664=2042 JMS I C0030 / long call to S3475 @@3665=4430 TCF / Clear teleprinter flag. @@3666=6042 ION / Enable Interrupts @@3667=6001 JMS I C0033 / long call to S3341 @@3670=4433 JMS I C0030 / long call to S3475 @@3671=4430 ISZ D0042 / @@3672=2042 JMS I C0030 / long call to S3475 @@3673=4430 KRB / Clear AC, clear keyboard flag, and r @@3674=6036 C3675, 3055 / DCA D0055 ION / Enable Interrupts @@3676=6001 TAD D0042 / @@3677=1042 SZA CLA / @@3700=7640 JMS I C0030 / long call to S3475 @@3701=4430 TAD D0054 / @@3702=1054 CIA / @@3703=7041 TAD D0055 / @@3704=1055 SZA CLA / @@3705=7640 JMP I S3653 / return @@3706=5653 ISZ S3653 / @@3707=2253 JMP I S3653 / return @@3710=5653 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3711 / / Called from: / 1135 1150 1153 1166 1172 1217 1260 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S3711, 0 / return area JMS I C3777 / long call to S3526 @@3712=4777 JMS I C0036 / long call to S3407 @@3713=4436 SPA CLA / @@3714=7710 JMP L3727 / @@3715=5327 STA / AC = 7777 (-0001) @@3716=7240 TAD S3711 / @@3717=1311 HLT / @@3720=7402 CLA / @@3721=7200 TAD D0052 / @@3722=1052 HLT / @@3723=7402 CLA / @@3724=7200 TAD D0053 / @@3725=1053 HLT / @@3726=7402 L3727, JMS I C0036 / long call to S3407 @@3727=4436 RAL / @@3730=7004 SMA CLA / @@3731=7700 JMP I S3711 / return @@3732=5711 JMP I D0047 / long jump to L0000 @@3733=5447 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3734 / / Called from: / 2434 2450 2462 2466 2501 2505 2525 2567 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S3734, 0 / return area JMS I C3777 / long call to S3526 @@3735=4777 JMS I C0036 / long call to S3407 @@3736=4436 SPA CLA / @@3737=7710 JMP L3754 / @@3740=5354 STA / AC = 7777 (-0001) @@3741=7240 TAD S3734 / @@3742=1334 HLT / @@3743=7402 CLA / @@3744=7200 TAD D0054 / @@3745=1054 HLT / @@3746=7402 CLA / @@3747=7200 TAD D0055 / @@3750=1055 HLT / @@3751=7402 JMS I C3776 / long call to S3514 @@3752=4776 HLT / @@3753=7402 L3754, JMS I C0036 / long call to S3407 @@3754=4436 RAL / @@3755=7004 SMA CLA / @@3756=7700 JMP I S3734 / return @@3757=5734 JMP I D0047 / long jump to L0000 @@3760=5447 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3761 / / Called from: / 0205 0254 0306 0341 0415 0454 0507 0551 0622 0665 0735 0776 1031 1126 1141 / 1157 1210 1226 1275 1345 1410 1461 1533 1613 1646 1723 2006 2014 2103 2111 / 2205 2251 2303 2426 2441 2454 2472 2516 2536 2606 2656 3005 3043 / Total 0053 (43) calls //////////////////////////////////////////////////////////////////////////////// S3761, 0 / return area TAD D0021 / @@3762=1021 AND AI4 / AUTO INDEX REGISTER @@3763=0014 SNA CLA / @@3764=7650 JMP L3771 / @@3765=5371 TAD I S3761 / @@3766=1761 DCA D0056 / @@3767=3056 SKP / @@3770=7410 L3771, ISZ S3761 / @@3771=2361 ISZ S3761 / @@3772=2361 TAD S3761 / @@3773=1361 DCA D0047 / @@3774=3047 JMP I S3761 / return @@3775=5761 C3776, C3776, 3514 / DCA I C0114 C3777, C3777, 3526 / DCA I C0126 L4000, C4000, 6160 / 6160 JMS S0071 / @@4001=4071 C4002, 4015 / JMS AI5 TAD C4177 / @@4003=1377 DCA D0050 / @@4004=3050 C4005, 6007 / 6007 L4006, CECI / All clock control flip-flops are cle @@4006=6137 JMP L4006 / @@4007=5206 CCEC / All clock control flip-flops are fir @@4010=6136 CLA CLL IAC / AC = 0001 @@4011=7301 C4012, 6135 / 6135 L4013, ION / Enable Interrupts @@4013=6001 L4014, JMP L4014 / @@4014=5214 CCEC / All clock control flip-flops are fir @@4015=6136 CLA CLL / AC = 0000 @@4016=7300 ISZ D0050 / @@4017=2050 JMP L4013 / @@4020=5213 CLA HLT / @@4021=7602 JMP L4000 / @@4022=5200 L4023, C4023, 6160 / 6160 JMS S0071 / @@4024=4071 JMS S0071 / @@4025=4071 HLT / @@4026=7402 JMS I C0036 / long call to S3407 @@4027=4436 AND C4176 / @@4030=0376 DCA D4104 / @@4031=3304 TAD D4104 / @@4032=1304 AND C4175 / @@4033=0375 DCA D4105 / @@4034=3305 TAD D4104 / @@4035=1304 AND C4174 / @@4036=0374 SZA CLA / @@4037=7640 CLA CLL CML RTL / AC = 0002 @@4040=7326 DCA D4106 / @@4041=3306 TAD D4105 / @@4042=1305 TAD C4173 / @@4043=1373 DCA D4107 / @@4044=3307 TAD I D4107 / @@4045=1707 TAD D4106 / @@4046=1306 DCA D4107 / @@4047=3307 TAD D4107 / @@4050=1307 DCA D0050 / @@4051=3050 TAD I D0050 / @@4052=1450 DCA D0044 / @@4053=3044 ISZ D0050 / @@4054=2050 TAD I D0050 / @@4055=1450 DCA D0045 / @@4056=3045 C4057, 6007 / 6007 TLS / Load the TTO from the content of AC4 @@4060=6046 L4061, TSF / Skip if teleprinter flag is a 1. @@4061=6041 JMP L4061 / @@4062=5261 JMP L4066 / @@4063=5266 L4064, KRB / Clear AC, clear keyboard flag, and r @@4064=6036 SKP CLA / @@4065=7610 L4066, TLS / Load the TTO from the content of AC4 @@4066=6046 ION / Enable Interrupts @@4067=6001 L4070, JMP L4070 / @@4070=5270 KSF / Skip if keyboard flag is a 1. @@4071=6031 SKP CLA / @@4072=7610 JMP L4064 / @@4073=5264 TSF / Skip if teleprinter flag is a 1. @@4074=6041 JMS I C0030 / long call to S3475 @@4075=4430 ISZ D0044 / @@4076=2044 JMP L4066 / @@4077=5266 ISZ D0045 / @@4100=2045 JMP L4066 / @@4101=5266 CLA HLT / @@4102=7602 JMP L4023 / @@4103=5223 D4104, 0000 / AND L0000 D4105, 0000 / AND L0000 D4106, 0000 / AND L0000 D4107, 0000 / AND L0000 JMP L0063 / @@4110=5063 JMP L0067 / @@4111=5067 C4112, 4130 / JMS C0130 JMP L0073 / @@4113=5073 C4114, 4134 / JMS C0134 C4115, 4140 / JMS C0140 C4116, 4144 / JMS C0144 C4117, 4150 / JMS C0150 JMP L0077 / @@4120=5077 JMP L0103 / @@4121=5103 C4122, 4154 / JMS C0154 JMP L0107 / @@4123=5107 C4124, 4160 / JMS C0160 JMP L0113 / @@4125=5113 C4126, 4164 / JMS C0164 JMP S0117 / @@4127=5117 CLA CMA CML RTL / @@4130=7266 C4131, 7777 / CLA MQA SCA MQL LSR + CLA CLL CML RAL / @@4132=7324 C4133, 7777 / CLA MQA SCA MQL LSR + C4134, 7076 / CMA CML RTR RTL C4135, 7777 / CLA MQA SCA MQL LSR + CLL CMA IAC RTL / @@4136=7147 C4137, 7777 / CLA MQA SCA MQL LSR + C4140, 6174 / 6174 C4141, 7777 / CLA MQA SCA MQL LSR + C4142, 6316 / 6316 C4143, 7777 / CLA MQA SCA MQL LSR + C4144, 4370 / JMS C4170 C4145, 7777 / CLA MQA SCA MQL LSR + C4146, 4633 / JMS I C4033 C4147, 7777 / CLA MQA SCA MQL LSR + AND I C4160 / @@4150=0760 C4151, 7777 / CLA MQA SCA MQL LSR + TAD I L0067 / @@4152=1467 C4153, 7777 / CLA MQA SCA MQL LSR + TAD I C4137 / @@4154=1737 SPA SNA SZL CLA OSR HLT / @@4155=7776 C4156, 3156 / DCA C0156 SPA SNA SZL CLA OSR HLT / @@4157=7776 C4160, 3675 / DCA I C4075 SPA SNA SZL CLA OSR / @@4161=7774 C4162, 6332 / 6332 SPA SNA SZL CLA OSR / @@4163=7774 C4164, 7571 / MQA SCA MQL NMI SPA SNA SZL CLA / @@4165=7770 C4166, 4664 / JMS I L4064 C4167, 7771 / CLA MQA SCA MQL NMI *4173 C4173, 4110 / JMS C0110 C4174, 0020 / AND C0020 C4175, 0017 / AND AI7 C4176, 0037 / AND C0037 C4177, 2111 / ISZ C0111 DCA D4324 / @@4200=3324 RAR / @@4201=7010 DCA D4325 / @@4202=3325 SPL / (KP8/I) Skip if power low @@4203=6102 SKP CLA / @@4204=7610 JMP I C4377 / long jump to L3441 @@4205=5777 TSF / Skip if teleprinter flag is a 1. @@4206=6041 SKP CLA / @@4207=7610 JMP L4326 / @@4210=5326 KSF / Skip if keyboard flag is a 1. @@4211=6031 SKP CLA / @@4212=7610 JMP I C4376 / long jump to L4400 @@4213=5776 CECI / All clock control flip-flops are cle @@4214=6137 SKP CLA / @@4215=7610 JMP L4332 / @@4216=5332 C4217, 6571 / 6571 SKP CLA / @@4220=7610 JMP L4224 / @@4221=5224 JMS I C0030 / long call to S3475 @@4222=4430 JMP I D0046 / long jump to L0000 @@4223=5446 L4224, TAD AI3 / AUTO INDEX REGISTER @@4224=1013 DCA L0067 / @@4225=3067 C4226, 6572 / 6572 C4227, 6573 / 6573 DCA D0053 / @@4230=3053 C4231, 6570 / 6570 JMS I C0030 / long call to S3475 @@4232=4430 C4233, 6570 / 6570 SKP CLA / @@4234=7610 JMS I C0030 / long call to S3475 @@4235=4430 JMS I C4375 / long call to S4417 @@4236=4775 TAD D0052 / @@4237=1052 CIA / @@4240=7041 TAD D0053 / @@4241=1053 SZA CLA / @@4242=7640 JMS I C4374 / long call to S4540 @@4243=4774 CLA CLL IAC / AC = 0001 @@4244=7301 TAD D4322 / @@4245=1322 TAD D4323 / @@4246=1323 CLL RTL / @@4247=7106 DCA D4322 / @@4250=3322 TAD D4323 / @@4251=1323 RTR / @@4252=7012 TAD D4322 / @@4253=1322 DCA D4323 / @@4254=3323 TAD D4323 / @@4255=1323 DCA D0062 / @@4256=3062 RAR / @@4257=7010 DCA L0063 / @@4260=3063 ISZ D0052 / @@4261=2052 TAD D0052 / @@4262=1052 SAMP / (AA01A) Places all 8 channels into t @@4263=6574 CLA CLL / AC = 0000 @@4264=7300 JMP L4306 / @@4265=5306 L4266, TAD D0064 / @@4266=1064 TAD D0065 / @@4267=1065 TAD D0066 / @@4270=1066 SNA CLA / @@4271=7650 JMP L4276 / @@4272=5276 ISZ D0070 / @@4273=2070 JMP L4306 / @@4274=5306 JMS I C4373 / long call to S4466 @@4275=4773 L4276, CLA CLL CMA / AC = 7777 (-0001) @@4276=7340 DCA D0064 / @@4277=3064 STA / AC = 7777 (-0001) @@4300=7240 DCA D0065 / @@4301=3065 STA / AC = 7777 (-0001) @@4302=7240 DCA D0066 / @@4303=3066 TAD C4372 / @@4304=1372 DCA D0070 / @@4305=3070 L4306, JMS I C4371 / long call to S3420 @@4306=4771 JMS D4321 / @@4307=4321 CLA CLL / AC = 0000 @@4310=7300 TAD L0063 / @@4311=1063 RAL / @@4312=7004 TAD D0062 / @@4313=1062 ION / Enable Interrupts @@4314=6001 ISZ L0067 / @@4315=2067 JMP I D4321 / long jump to L0000 @@4316=5721 JMS I C0030 / long call to S3475 @@4317=4430 JMP I D0046 / long jump to L0000 @@4320=5446 AND L0000 / @@4321=0000 D4322, 1234 / TAD C4234 D4323, 5670 / JMP I C4270 D4324, 0000 / AND L0000 D4325, 0000 / AND L0000 L4326, DCA D0064 / @@4326=3064 TCF / Clear teleprinter flag. @@4327=6042 JMS I C4375 / long call to S4417 @@4330=4775 JMP L4266 / @@4331=5266 L4332, DCA D0066 / @@4332=3066 CCEC / All clock control flip-flops are fir @@4333=6136 JMS I C4375 / long call to S4417 @@4334=4775 TAD C0022 / @@4335=1022 SMA CLA / @@4336=7700 JMP L4345 / @@4337=5345 ISZ AI6 / AUTO INDEX REGISTER @@4340=2016 JMP L4345 / @@4341=5345 TAD AI5 / AUTO INDEX REGISTER @@4342=1015 DCA AI6 / AUTO INDEX REGISTER @@4343=3016 JMS S0117 / @@4344=4117 L4345, ISZ D0050 / @@4345=2050 JMP L4266 / @@4346=5266 JMS I C0061 / long call to S4357 @@4347=4461 C4350, 6007 / 6007 JMS S0117 / @@4351=4117 JMS I C0036 / long call to S3407 @@4352=4436 RTL / @@4353=7006 SPA CLA / @@4354=7710 JMP I D0046 / long jump to L0000 @@4355=5446 JMP I C0041 / long jump to L3400 @@4356=5441 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4357 / / Called from: / 3127 4347 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4357, 0 / return area TAD C4370 / @@4360=1370 DCA D0045 / @@4361=3045 DCA D0044 / @@4362=3044 L4363, ISZ D0044 / @@4363=2044 JMP L4363 / @@4364=5363 ISZ D0045 / @@4365=2045 JMP L4363 / @@4366=5363 JMP I S4357 / return @@4367=5757 C4370, 7763 / CLA MQA SCA MQL SCL + C4371, C4371, 3420 / DCA I C0020 C4372, 7740 / SMA SZA CLA C4373, C4373, 4466 / JMS I D0066 C4374, C4374, 4540 / JMS I C0140 C4375, C4375, 4417 / JMS I AI7 C4376, C4376, 4400 / JMS I L0000 C4377, C4377, 3441 / DCA I C0041 L4400, DCA D0065 / @@4400=3065 KRB / Clear AC, clear keyboard flag, and r @@4401=6036 DCA D0055 / @@4402=3055 JMS S4417 / @@4403=4217 TAD D0054 / @@4404=1054 CIA / @@4405=7041 TAD D0055 / @@4406=1055 SZA CLA / @@4407=7640 JMS S4515 / @@4410=4315 TAD D0054 / @@4411=1054 IAC / @@4412=7001 AND C4577 / @@4413=0377 TLS / Load the TTO from the content of AC4 @@4414=6046 DCA D0054 / @@4415=3054 JMP I C4576 / long jump to L4266 @@4416=5776 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4417 / / Called from: / 4236 4330 4334 4403 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S4417, 0 / return area TAD D0062 / @@4420=1062 CIA / @@4421=7041 TAD I C4575 / @@4422=1775 SZA CLA / @@4423=7640 JMP L4432 / @@4424=5232 TAD L0063 / @@4425=1063 C4426, 7041 / CIA TAD I C4574 / @@4427=1774 SNA CLA / @@4430=7650 JMP I S4417 / return @@4431=5617 L4432, TAD S4417 / @@4432=1217 DCA D4435 / @@4433=3235 SKP CLA / @@4434=7610 D4435, 7402 / HLT JMS I C4573 / long call to S3526 @@4436=4773 D4437, 4436 / JMS I C0036 SPA CLA / @@4440=7710 JMP L4461 / @@4441=5261 STA / AC = 7777 (-0001) @@4442=7240 TAD S4417 / @@4443=1217 HLT / @@4444=7402 CLA / @@4445=7200 TAD D0062 / @@4446=1062 HLT / @@4447=7402 CLA / @@4450=7200 TAD I C4575 / @@4451=1775 HLT / @@4452=7402 CLA / @@4453=7200 TAD L0063 / @@4454=1063 HLT / @@4455=7402 CLA / @@4456=7200 TAD I C4574 / @@4457=1774 HLT / @@4460=7402 L4461, JMS I C0036 / long call to S3407 @@4461=4436 RAL / @@4462=7004 SPA CLA / @@4463=7710 JMP I D0047 / long jump to L0000 @@4464=5447 JMP I S4417 / return @@4465=5617 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4466 / / Called from: / 4275 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4466, 0 / return area JMS I C4573 / long call to S3526 @@4467=4773 JMS I C0036 / long call to S3407 @@4470=4436 SPA CLA / @@4471=7710 JMP L4510 / @@4472=5310 STA / AC = 7777 (-0001) @@4473=7240 TAD S4466 / @@4474=1266 HLT / @@4475=7402 CLA CLL / AC = 0000 @@4476=7300 TAD D0064 / @@4477=1064 SZA CLA / @@4500=7640 HLT / @@4501=7402 TAD D0065 / @@4502=1065 SZA CLA / @@4503=7640 HLT / @@4504=7402 TAD D0066 / @@4505=1066 SZA CLA / @@4506=7640 HLT / @@4507=7402 L4510, JMS I C0036 / long call to S3407 @@4510=4436 RAL / @@4511=7004 SPA CLA / @@4512=7710 JMP I D0047 / long jump to L0000 @@4513=5447 JMP I S4466 / return @@4514=5666 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4515 / / Called from: / 4410 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4515, 0 / return area JMS I C4573 / long call to S3526 @@4516=4773 JMS I C0036 / long call to S3407 @@4517=4436 SPA CLA / @@4520=7710 JMP L4533 / @@4521=5333 STA / AC = 7777 (-0001) @@4522=7240 C4523, 1315 / TAD S4515 HLT / @@4524=7402 CLA / @@4525=7200 TAD D0054 / @@4526=1054 HLT / @@4527=7402 CLA / @@4530=7200 TAD D0055 / @@4531=1055 HLT / @@4532=7402 L4533, JMS I C0036 / long call to S3407 @@4533=4436 RAL / @@4534=7004 SPA CLA / @@4535=7710 JMP I D0047 / long jump to L0000 @@4536=5447 JMP I S4515 / return @@4537=5715 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4540 / / Called from: / 4243 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4540, 0 / return area JMS I C4573 / long call to S3526 @@4541=4773 JMS I C0036 / long call to S3407 @@4542=4436 SPA CLA / @@4543=7710 JMP L4556 / @@4544=5356 STA / AC = 7777 (-0001) @@4545=7240 TAD S4540 / @@4546=1340 HLT / @@4547=7402 CLA / @@4550=7200 TAD D0052 / @@4551=1052 HLT / @@4552=7402 CLA / @@4553=7200 TAD D0053 / @@4554=1053 HLT / @@4555=7402 L4556, JMS I C0036 / long call to S3407 @@4556=4436 RAL / @@4557=7004 SPA CLA / @@4560=7710 JMP I D0047 / long jump to L0000 @@4561=5447 JMP I S4540 / return @@4562=5740 CLL CML / @@4563=7122 TAD I C4426 / @@4564=1626 SPA SNA / @@4565=7550 DCA I C4523 / @@4566=3723 C4567, 6477 / 6477 CLA CLL CMA CML / @@4570=7362 C4571, 7665 / CLA SCA MQL MUY + C4572, 7725 / CLA MQA MQL MUY + C4573, C4573, 3526 / DCA I C0126 C4574, 4325 / JMS C4525 C4575, 4324 / JMS C4524 C4576, C4576, 4266 / JMS S4466 C4577, 0377 / AND C4577 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4600 / / Called from: / 3404 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4600, 0 / return area SPA CLA / @@4601=7710 HLT / @@4602=7402 TAD D0021 / @@4603=1021 AND C4777 / @@4604=0377 SNA CLA / @@4605=7650 JMP L4625 / @@4606=5225 C4607, 6007 / 6007 C4610, 6173 / 6173 SKP / @@4611=7410 JMP L4617 / @@4612=5217 C4613, 6007 / 6007 L4614, C4614, 6170 / 6170 C4615, 6173 / 6173 JMP L4614 / @@4616=5214 L4617, C4617, 6160 / 6160 C4620, 6007 / 6007 C4621, 6171 / 6171 C4622, 6170 / 6170 C4623, 6007 / 6007 JMP L4625 / @@4624=5225 L4625, ISZ S4600 / @@4625=2200 JMP I S4600 / return @@4626=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4627 / / Called from: / 3222 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4627, 0 / return area TAD D0021 / @@4630=1021 AND C4777 / @@4631=0377 SZA CLA / @@4632=7640 C4633, 6171 / 6171 ISZ D0050 / @@4634=2050 JMP I D0047 / long jump to L0000 @@4635=5447 ISZ S4627 / @@4636=2227 JMP I S4627 / return @@4637=5627 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4640 / / Called from: / 3335 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4640, 0 / return area TAD D0021 / @@4641=1021 AND C4777 / @@4642=0377 SZA CLA / @@4643=7640 JMP L4652 / @@4644=5252 JMS S4675 / @@4645=4275 TSF / Skip if teleprinter flag is a 1. @@4646=6041 JMP I S4640 / return @@4647=5640 L4650, ISZ S4640 / @@4650=2240 JMP I S4640 / return @@4651=5640 L4652, IOF / Disable Interrupts @@4652=6002 TAD C0023 / @@4653=1023 SZA CLA / @@4654=7640 TAD C4776 / @@4655=1376 TAD C4775 / @@4656=1375 DCA D4711 / @@4657=3311 TAD D0056 / @@4660=1056 AND AI7 / AUTO INDEX REGISTER @@4661=0017 TAD D4711 / @@4662=1311 DCA D4711 / @@4663=3311 C4664, C4664, 1711 / TAD I D4711 DCA I C4774 / @@4665=3774 JMS I C4773 / long call to S5000 @@4666=4773 TSF / Skip if teleprinter flag is a 1. @@4667=6041 JMS I C0030 / long call to S3475 @@4670=4430 JMS S4675 / @@4671=4275 ION / Enable Interrupts @@4672=6001 NOP / @@4673=7000 JMP L4650 / @@4674=5250 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4675 / / Called from: / 4645 4671 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4675, 0 / return area TAD D0046 / @@4676=1046 TAD C4772 / @@4677=1372 SNA CLA / @@4700=7650 JMP L4706 / @@4701=5306 TAD D0046 / @@4702=1046 TAD C4771 / @@4703=1371 SZA CLA / @@4704=7640 CLA CLL IAC / AC = 0001 @@4705=7301 L4706, D4706, 6035 / 6035 CLA / @@4707=7200 JMP I S4675 / return @@4710=5675 D4711, 0000 / AND L0000 JMP I C4664 / long jump to L1711 @@4712=5664 C4713, 6340 / 6340 CLL CMA CML / @@4714=7160 SNA SZL / @@4715=7470 C4716, 7634 / SZL CLA OSR SPA CLA OSR HLT / @@4717=7716 C4720, 7747 / CLA MQA SCA DVI + C4721, 7763 / CLA MQA SCA MQL SCL + DCA D0074 / @@4722=3074 JMP I C4664 / long jump to L1711 @@4723=5664 C4724, 6340 / 6340 SNA SZL / @@4725=7470 SZA SNL CLA / @@4726=7660 SPA CLA OSR HLT / @@4727=7716 C4730, 7747 / CLA MQA SCA DVI + C4731, 7763 / CLA MQA SCA MQL SCL + //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4732 / / Called from: / 3267 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4732, 0 / return area TSF / Skip if teleprinter flag is a 1. @@4733=6041 JMP I S4732 / return @@4734=5732 TAD D0021 / @@4735=1021 AND C4777 / @@4736=0377 SZA CLA / @@4737=7640 JMP I C4770 / long jump to L3311 @@4740=5770 JMP I C4767 / long jump to L3306 @@4741=5767 *4767 C4767, C4767, 3306 / DCA L4706 C4770, C4770, 3311 / DCA D4711 C4771, 5251 / JMP C4651 C4772, 5477 / JMP I L0077 C4773, C4773, 5000 / JMP L0000 C4774, 5023 / JMP C0023 C4775, 4722 / JMS I C4722 C4776, 7770 / SPA SNA SZL CLA C4777, 0100 / AND C0100 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5000 / / Called from: / 4666 5045 5133 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S5000, 0 / return area CLA CLL / AC = 0000 @@5001=7300 TAD D5023 / @@5002=1223 DCA D5024 / @@5003=3224 L5004, TAD C5025 / @@5004=1225 DCA D5026 / @@5005=3226 L5006, ISZ D5026 / @@5006=2226 JMP L5006 / @@5007=5206 CLA / @@5010=7200 CLA / @@5011=7200 CLA / @@5012=7200 CLA / @@5013=7200 ISZ D5024 / @@5014=2224 SKP CLA / @@5015=7610 JMP I S5000 / return @@5016=5600 AND I S5000 / @@5017=0600 AND I S5000 / @@5020=0600 AND S5000 / @@5021=0200 JMP L5004 / @@5022=5204 D5023, 0000 / AND L0000 D5024, 0000 / AND L0000 C5025, 7754 / SPA SNA CLA OSR D5026, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5027 / / Called from: / 3356 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5027, 0 / return area TAD D0021 / @@5030=1021 AND C5177 / @@5031=0377 SZA CLA / @@5032=7640 JMS S5040 / @@5033=4240 CECI / All clock control flip-flops are cle @@5034=6137 JMP I S5027 / return @@5035=5627 ISZ S5027 / @@5036=2227 JMP I S5027 / return @@5037=5627 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5040 / / Called from: / 5033 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5040, 0 / return area C5041, 6135 / 6135 IOF / Disable Interrupts @@5042=6002 TAD I C5176 / @@5043=1776 DCA D5023 / @@5044=3223 JMS S5000 / @@5045=4200 CECI / All clock control flip-flops are cle @@5046=6137 JMS I C0030 / long call to S3475 @@5047=4430 TAD I C5175 / @@5050=1775 TAD C5174 / @@5051=1374 SNA CLA / @@5052=7650 CLA CLL IAC / AC = 0001 @@5053=7301 C5054, 6135 / 6135 CLA / @@5055=7200 ION / Enable Interrupts @@5056=6001 NOP / @@5057=7000 ISZ S5040 / @@5060=2240 L5061, ISZ S5040 / @@5061=2240 JMP I S5040 / return @@5062=5640 SPA SNA HLT / @@5063=7552 C5064, 7777 / CLA MQA SCA MQL LSR + C5065, 7567 / MQA SCA MQL DVI + C5066, 7777 / CLA MQA SCA MQL LSR + C5067, 7437 / MQL LSR + C5070, 7777 / CLA MQA SCA MQL LSR + C5071, 7463 / SCA MQL SCL + C5072, 7777 / CLA MQA SCA MQL LSR + C5073, 7154 / CLL CMA RAR RAL C5074, 7777 / CLA MQA SCA MQL LSR + CLA CML IAC / @@5075=7221 C5076, 7777 / CLA MQA SCA MQL LSR + C5077, 5350 / JMP C5150 SPA SNA SZL CLA OSR HLT / @@5100=7776 C5101, 6323 / 6323 SPA SNA SZL CLA OSR HLT / @@5102=7776 C5103, 4220 / JMS C5020 SPA SNA SZL CLA OSR HLT / @@5104=7776 JMP L5061 / @@5105=5261 SPA SNA SZL CLA OSR HLT / @@5106=7776 ISZ I C5120 / @@5107=2720 C5110, 7775 / CLA MQA SCA MQL ASR + C5111, 4646 / JMS I C5046 C5112, 7775 / CLA MQA SCA MQL ASR + JMP I S5040 / return @@5113=5640 SPA SNA SZL CLA HLT / @@5114=7772 TAD I L0113 / @@5115=1513 C5116, 7773 / CLA MQA SCA MQL SHL + / @@5117=7400 C5120, 7761 / CLA MQA SCA MQL C5121, 1563 / TAD I C0163 C5122, 7763 / CLA MQA SCA MQL SCL + //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5123 / / Called from: / 3217 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5123, 0 / return area CLA CLL / AC = 0000 @@5124=7300 TAD D0021 / @@5125=1021 AND C5173 / @@5126=0373 SNA CLA / @@5127=7650 JMP I S5123 / return @@5130=5723 TAD C5172 / @@5131=1372 DCA D5023 / @@5132=3223 JMS S5000 / @@5133=4200 JMP I S5123 / return @@5134=5723 *5172 C5172, 7716 / SPA CLA OSR HLT C5173, 0200 / AND S5000 C5174, 7404 / OSR C5175, 3352 / DCA C5152 C5176, 4716 / JMS I C5116 C5177, 0100 / AND C0100 $