TITLE "AUTOMATIC DISASSEMBLY OF decus-5-14.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of decus-5-14.bin / Generated 2010 02 19 00:10:20 / 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 / / 1600 locations used, 1165 code and 0413 data //////////////////////////////////////////////////////////////////////////////// *0001 L0001, C0001, C0001, 5403 / JMP I D0003 D0002, 5403 / JMP I D0003 D0003, 0400 / AND I L0000 D0004, 7452 / SNA HLT L0005, C0005, 0000 / AND L0000 L0006, C0006, 0000 / AND L0000 C0007, 0730 / AND I C0130 AI0, 1534 / AUTO-INDEX REGISTER TAD I C0134 AI1, 0000 / AUTO-INDEX REGISTER AND L0000 AI2, 0000 / AUTO-INDEX REGISTER AND L0000 AI3, 0000 / AUTO-INDEX REGISTER AND L0000 AI4, 0000 / AUTO-INDEX REGISTER AND L0000 AI5, 0000 / AUTO-INDEX REGISTER AND L0000 AI6, 0000 / AUTO-INDEX REGISTER AND L0000 AI7, 0000 / AUTO-INDEX REGISTER AND L0000 D0020, 1017 / TAD AI7 TAD D0060 / @@0021=1060 C0022, 1200 / TAD L0000 D0023, 1045 / TAD C0045 L0024, TAD C0034 / @@0024=1034 C0025, 1400 / TAD I L0000 AND I D0050 / @@0026=0650 C0027, C0027, 0207 / AND C0007 C0030, 0251 / AND D0051 C0031, 0540 / AND I C0140 C0032, 0700 / AND I D0100 C0033, 0600 / AND I L0000 C0034, 0620 / AND I D0020 C0035, 0000 / AND L0000 AND I C0140 / @@0036=0540 D0037, 7777 / CLA MQA SCA MQL LSR + D0040, 0000 / AND L0000 C0041, 1750 / TAD I C0150 C0042, 6027 / 6027 C0043, 0070 / AND C0070 C0044, 0176 / AND C0176 C0045, 0002 / AND D0002 D0046, 0113 / AND C0113 D0047, 0000 / AND L0000 D0050, 0112 / AND C0112 D0051, 0113 / AND C0113 D0052, 0006 / AND L0006 C0053, 7771 / CLA MQA SCA MQL NMI C0054, 7765 / CLA MQA SCA MQL MUY + C0055, 7776 / SPA SNA SZL CLA OSR HLT C0056, 7775 / CLA MQA SCA MQL ASR + D0057, 7764 / SMA SZA SNL CLA OSR D0060, 0000 / AND L0000 D0061, 0000 / AND L0000 D0062, 0006 / AND L0006 C0063, 5356 / JMP L0156 C0064, 0007 / AND C0007 AND D0060 / @@0065=0260 AND D0040 / @@0066=0240 C0067, 0177 / AND C0177 C0070, 0001 / AND L0001 C0071, 0001 / AND L0001 AND L0001 / @@0072=0001 D0073, 0002 / AND D0002 D0074, 0001 / AND L0001 AND D0003 / @@0075=0003 AND L0001 / @@0076=0001 AND D0004 / @@0077=0004 D0100, 0001 / AND L0001 C0101, 0005 / AND L0005 AND L0001 / @@0102=0001 D0103, 0006 / AND L0006 D0104, 0002 / AND D0002 AND L0001 / @@0105=0001 AND D0002 / @@0106=0002 C0107, 0002 / AND D0002 D0110, 0002 / AND D0002 D0111, 0003 / AND D0003 AND D0002 / @@0112=0002 C0113, 0004 / AND D0004 C0114, 0002 / AND D0002 C0115, 0005 / AND L0005 C0116, 0002 / AND D0002 D0117, 0006 / AND L0006 D0120, 0003 / AND D0003 AND L0001 / @@0121=0001 AND D0003 / @@0122=0003 C0123, 0002 / AND D0002 C0124, 0003 / AND D0003 D0125, 0003 / AND D0003 C0126, 0003 / AND D0003 AND D0004 / @@0127=0004 C0130, 0003 / AND D0003 C0131, 0005 / AND L0005 C0132, 0003 / AND D0003 AND L0006 / @@0133=0006 C0134, 0004 / AND D0004 AND L0001 / @@0135=0001 AND D0004 / @@0136=0004 AND D0002 / @@0137=0002 C0140, 0004 / AND D0004 C0141, 0003 / AND D0003 AND D0004 / @@0142=0004 AND D0004 / @@0143=0004 AND D0004 / @@0144=0004 AND L0005 / @@0145=0005 AND D0004 / @@0146=0004 AND L0006 / @@0147=0006 C0150, 0005 / AND L0005 AND L0001 / @@0151=0001 AND L0005 / @@0152=0005 AND D0002 / @@0153=0002 D0154, 0005 / AND L0005 AND D0003 / @@0155=0003 L0156, C0156, 0005 / AND L0005 C0157, 0004 / AND D0004 AND L0005 / @@0160=0005 AND L0005 / @@0161=0005 C0162, C0162, 0005 / AND L0005 C0163, C0163, 0006 / AND L0006 C0164, C0164, 0006 / AND L0006 C0165, C0165, 0001 / AND L0001 AND L0006 / @@0166=0006 AND D0002 / @@0167=0002 AND L0006 / @@0170=0006 AND D0003 / @@0171=0003 AND L0006 / @@0172=0006 AND D0004 / @@0173=0004 AND L0006 / @@0174=0006 AND L0005 / @@0175=0005 C0176, C0176, 0006 / AND L0006 C0177, 0006 / AND L0006 C0200, 4407 / JMS I C0007 L0201, C0201, 4420 / JMS I D0020 L0202, TAD C0030 / @@0202=1030 C0203, 4421 / JMS I C0021 CLA / @@0204=7200 D0205, 3060 / DCA D0060 DCA D0061 / @@0206=3061 L0207, STA / AC = 7777 (-0001) @@0207=7240 DCA D0037 / @@0210=3037 L0211, TAD C0033 / @@0211=1033 C0212, 4421 / JMS I C0021 L0213, KCC / Clear AC and clear keyboard flag. @@0213=6032 C0214, 4422 / JMS I C0022 AND D0040 / @@0215=0040 D0216, 4420 / JMS I D0020 TAD D0040 / @@0217=1040 SZA CLA / @@0220=7640 JMP L0245 / @@0221=5245 TAD C0041 / @@0222=1041 TAD C0042 / @@0223=1042 SZL CLA / @@0224=7630 D0225, 5245 / JMP L0245 C0226, 4426 / JMS I C0026 L0227, TAD C0043 / @@0227=1043 DCA D0046 / @@0230=3046 ION / Enable Interrupts @@0231=6001 L0232, TAD D0046 / @@0232=1046 TAD C0045 / @@0233=1045 DCA D0046 / @@0234=3046 TAD D0046 / @@0235=1046 CIA / @@0236=7041 TAD C0044 / @@0237=1044 D0240, 7740 / SMA SZA CLA JMP L0232 / @@0241=5232 D0242, 1043 / TAD C0043 DCA D0046 / @@0243=3046 JMP L0232 / @@0244=5232 L0245, JMS I D0020 / long call to S1017 @@0245=4420 TAD C0034 / @@0246=1034 C0247, 4421 / JMS I C0021 JMP L0211 / @@0250=5211 C0251, 2410 / ISZ I AI0 TAD C0123 / @@0252=1123 JMS AI1 / AUTO INDEX REGISTER @@0253=4011 ISZ D0340 / @@0254=2340 ISZ I AI0 / AUTO INDEX REGISTER @@0255=2410 AND I C0140 / @@0256=0540 AND I AI1 / AUTO INDEX REGISTER @@0257=0411 AND C0305 / @@0260=0305 C0261, 4007 / JMS C0007 AND C0115 / @@0262=0115 AND I L0156 / @@0263=0556 C0264, 4024 / JMS L0024 TAD I D0340 / @@0265=1740 ISZ AI4 / AUTO INDEX REGISTER @@0266=2014 AND C0131 / @@0267=0131 JMS AI1 / AUTO INDEX REGISTER @@0270=4011 ISZ I C0054 / @@0271=2454 C0272, 4024 / JMS L0024 DCA D0120 / @@0273=3120 AND I C0140 / @@0274=0540 TAD C0116 / @@0275=1116 C0276, 4001 / JMS L0001 C0277, 4002 / JMS D0002 AND I C0124 / @@0300=0524 JMP I D0040 / long jump to L0000 @@0301=5440 TAD AI1 / AUTO INDEX REGISTER @@0302=1011 ISZ I D0040 / @@0303=2440 C0304, 2205 / ISZ D0205 C0305, 2425 / ISZ I C0025 ISZ D0216 / @@0306=2216 JMP I D0240 / long jump to L7740 @@0307=5640 AND AI5 / AUTO INDEX REGISTER @@0310=0015 AND AI2 / AUTO INDEX REGISTER @@0311=0012 TAD AI7 / AUTO INDEX REGISTER @@0312=1017 ISZ I C0123 / @@0313=2523 AND I C0140 / @@0314=0540 ISZ D0225 / @@0315=2225 TAD I L0005 / @@0316=1405 C0317, 2340 / ISZ D0340 D0320, 1411 / TAD I AI1 TAD I D0111 / @@0321=1511 ISZ I D0040 / @@0322=2440 D0323, 0205 / AND D0205 ISZ I D0023 / @@0324=2423 C0325, 4024 / JMS L0024 TAD I D0340 / @@0326=1740 C0327, 6160 / 6160 C0330, 6060 / 6060 JMS AI7 / AUTO INDEX REGISTER @@0331=4017 ISZ D0240 / @@0332=2240 TAD I L0005 / @@0333=1405 ISZ D0323 / @@0334=2323 JMP I D0240 / long jump to L7740 @@0335=5640 AND AI5 / AUTO INDEX REGISTER @@0336=0015 AND AI2 / AUTO INDEX REGISTER @@0337=0012 D0340, 2417 / ISZ I AI7 C0341, 4024 / JMS L0024 TAD C0022 / @@0342=1022 TAD I C0327 / @@0343=1727 C0344, 4024 / JMS L0024 TAD L0005 / @@0345=1005 C0346, 4004 / JMS D0004 TAD D0103 / @@0347=1103 AND I D0154 / @@0350=0554 C0351, 4004 / JMS D0004 AND I D0120 / @@0352=0520 ISZ D0205 / @@0353=2205 ISZ D0323 / @@0354=2323 C0355, 4042 / JMS C0042 ISZ D0320 / @@0356=2320 AND D0103 / @@0357=0103 AND I C0140 / @@0360=0540 AND L0201 / @@0361=0201 ISZ D0242 / @@0362=2242 JMP I D0240 / long jump to L7740 @@0363=5640 AND AI5 / AUTO INDEX REGISTER @@0364=0015 AND AI2 / AUTO INDEX REGISTER @@0365=0012 AND I C0317 / @@0366=0717 TAD I C0304 / @@0367=1704 JMS AI4 / AUTO INDEX REGISTER @@0370=4014 ISZ I D0103 / @@0371=2503 TAD C0341 / @@0372=1341 AND AI5 / AUTO INDEX REGISTER @@0373=0015 AND AI2 / AUTO INDEX REGISTER @@0374=0012 AND L0001 / @@0375=0001 DCA D0103 / @@0376=3103 JMS I C0163 / long call to S0006 @@0377=4563 DCA D0047 / @@0400=3047 TAD D0046 / @@0401=1046 DCA D0050 / @@0402=3050 ISZ D0046 / @@0403=2046 TAD D0046 / @@0404=1046 DCA D0051 / @@0405=3051 TAD I D0050 / @@0406=1450 JMS I D0023 / long call to S1045 @@0407=4423 C0410, 4424 / JMS I L0024 L0411, TAD I D0051 / @@0411=1451 JMS I D0023 / long call to S1045 @@0412=4423 L0413, JMS I D0020 / long call to S1017 @@0413=4420 ISZ D0037 / @@0414=2037 JMP L0466 / @@0415=5266 C0416, 7300 / CLA CLL TAD I D0050 / @@0417=1450 TAD I D0051 / @@0420=1451 DCA D0052 / @@0421=3052 TAD D0052 / @@0422=1052 TAD C0053 / @@0423=1053 SNA CLA / @@0424=7650 JMP L0447 / @@0425=5247 TAD D0052 / @@0426=1052 TAD C0054 / @@0427=1054 SNA CLA / @@0430=7650 JMP L0447 / @@0431=5247 TAD D0052 / @@0432=1052 TAD C0055 / @@0433=1055 SNA CLA / @@0434=7650 JMP L0511 / @@0435=5311 TAD D0052 / @@0436=1052 TAD C0056 / @@0437=1056 D0440, 7650 / SNA CLA C0441, 5311 / JMP L0511 TAD D0052 / @@0442=1052 TAD D0057 / @@0443=1057 SNA CLA / @@0444=7650 JMP L0511 / @@0445=5311 JMP L0502 / @@0446=5302 L0447, JMS I D0020 / long call to S1017 @@0447=4420 TAD C0031 / @@0450=1031 C0451, 4421 / JMS I C0021 CLA CLL / AC = 0000 @@0452=7300 TAD D0061 / @@0453=1061 TAD C0041 / @@0454=1041 SZL / @@0455=7430 ISZ D0060 / @@0456=2060 NOP / @@0457=7000 DCA D0061 / @@0460=3061 C0461, 4425 / JMS I C0025 AND D0060 / @@0462=0060 L0463, TSF / Skip if teleprinter flag is a 1. @@0463=6041 JMP L0463 / @@0464=5263 JMP I C0027 / long jump to L0207 @@0465=5427 L0466, TAD I D0050 / @@0466=1450 TAD I D0051 / @@0467=1451 DCA D0062 / @@0470=3062 TAD D0062 / @@0471=1062 TAD C0053 / @@0472=1053 SNA CLA / @@0473=7650 JMP L0511 / @@0474=5311 TAD D0062 / @@0475=1062 CIA / @@0476=7041 TAD D0052 / @@0477=1052 SNA CLA / @@0500=7650 JMP L0447 / @@0501=5247 L0502, KCC / Clear AC and clear keyboard flag. @@0502=6032 TAD D0047 / @@0503=1047 L0504, TSF / Skip if teleprinter flag is a 1. @@0504=6041 JMP L0504 / @@0505=5304 TCF / Clear teleprinter flag. @@0506=6042 ION / Enable Interrupts @@0507=6001 D0510, 5401 / JMP I L0001 L0511, C0511, 4420 / JMS I D0020 TAD C0032 / @@0512=1032 C0513, 4421 / JMS I C0021 CLA CLL / AC = 0000 @@0514=7300 TAD C0041 / @@0515=1041 SNA / @@0516=7450 JMP L0531 / @@0517=5331 CIA / @@0520=7041 TAD D0061 / @@0521=1061 DCA D0061 / @@0522=3061 C0523, 7430 / SZL C0524, 2060 / ISZ D0060 C0525, 7000 / NOP CMA / @@0526=7040 TAD D0060 / @@0527=1060 DCA D0060 / @@0530=3060 L0531, C0531, 4425 / JMS I C0025 AND D0060 / @@0532=0060 JMP L0463 / @@0533=5263 JMP L0504 / @@0534=5304 JMP L0555 / @@0535=5355 ISZ D0110 / @@0536=2110 ISZ D0110 / @@0537=2110 C0540, 0015 / AND AI5 D0541, 0012 / AND AI2 DCA D0117 / @@0542=3117 ISZ I C0140 / @@0543=2540 ISZ I L0511 / @@0544=2711 TAD I C0441 / @@0545=1641 C0546, 4031 / JMS C0031 TAD I C0525 / @@0547=1725 ISZ D0440 / @@0550=2240 ISZ I L0511 / @@0551=2711 TAD I C0416 / @@0552=1616 TAD C0116 / @@0553=1116 AND I C0523 / @@0554=0723 L0555, C0555, 4024 / JMS L0024 TAD I C0524 / @@0556=1724 AND C0114 / @@0557=0114 JMS D0040 / @@0560=4040 AND L0001 / @@0561=0001 SPA CLA / @@0562=7710 ISZ D0104 / @@0563=2104 JMP L0024 / @@0564=5024 TAD C0054 / @@0565=1054 SNA CLA / @@0566=7650 JMS I C0164 / long call to S0006 @@0567=4564 TAD C0044 / @@0570=1044 AND C0067 / @@0571=0067 DCA D0073 / @@0572=3073 DCA D0057 / @@0573=3057 DCA D0074 / @@0574=3074 JMP I C0165 / long jump to L0001 @@0575=5565 TAD C0157 / @@0576=1157 JMS I C0164 / long call to S0006 @@0577=4564 AND AI5 / AUTO INDEX REGISTER @@0600=0015 C0601, 0012 / AND AI2 ISZ AI4 / AUTO INDEX REGISTER @@0602=2014 AND I C0101 / @@0603=0501 ISZ D0705 / @@0604=2305 C0605, 4020 / JMS D0020 TAD I L0001 / @@0606=1401 AND D0705 / @@0607=0305 C0610, 4031 / JMS C0031 TAD I C0725 / @@0611=1725 ISZ D0640 / @@0612=2240 AND C0605 / @@0613=0205 ISZ I C0056 / @@0614=2456 AND AI5 / AUTO INDEX REGISTER @@0615=0015 C0616, 0012 / AND AI2 AND L0001 / @@0617=0001 AND AI5 / AUTO INDEX REGISTER @@0620=0015 AND AI2 / AUTO INDEX REGISTER @@0621=0012 D0622, 2410 / ISZ I AI0 AND I C0140 / @@0623=0540 TAD I AI1 / AUTO INDEX REGISTER @@0624=1411 TAD I D0111 / @@0625=1511 ISZ I D0040 / @@0626=2440 C0627, 1123 / TAD C0123 JMS D0061 / @@0630=4061 C0631, 6060 / 6060 DIX / Intensify the point defined by the c @@0632=6054 C0633, 4020 / JMS D0020 TAD I L0005 / @@0634=1405 AND C0123 / @@0635=0123 AND I C0140 / @@0636=0540 AND C0605 / @@0637=0205 D0640, 2440 / ISZ I D0040 AND C0107 / @@0641=0107 AND D0111 / @@0642=0111 TAD I C0656 / @@0643=1656 JMS D0040 / @@0644=4040 AND L0001 / @@0645=0001 DCA D0125 / @@0646=3125 TAD C0126 / @@0647=1126 L0650, C0650, C0650, 0227 / AND C0627 TCF / Clear teleprinter flag. @@0651=6042 RFB / Read the content of the reader buffe @@0652=6012 PCF / Clear punch flag and punch buffer. @@0653=6022 RCSD / Generates an IOP pulse (IOP 1) to te @@0654=6671 C0655, 6641 / 6641 C0656, 6652 / LCB DCF / (Light Pen Type 370) Clear the displ @@0657=6072 PLCF / Clear plotter flag. @@0660=6502 KGOA / Assert the contents of the status A @@0661=6706 DTRB / The content of status register B is @@0662=6772 KCC / Clear AC and clear keyboard flag. @@0663=6032 JMP I L0650 / long jump to L0227 @@0664=5650 TAD D0057 / @@0665=1057 AND C0064 / @@0666=0064 DCA D0040 / @@0667=3040 TAD D0073 / @@0670=1073 CLL RTL / @@0671=7106 RAL / @@0672=7004 TAD D0040 / @@0673=1040 DCA D0073 / @@0674=3073 TAD D0057 / @@0675=1057 AND C0071 / @@0676=0071 TAD I D0125 / @@0677=1525 AND AI5 / AUTO INDEX REGISTER @@0700=0015 AND AI2 / AUTO INDEX REGISTER @@0701=0012 ISZ D0717 / @@0702=2317 ISZ D0622 / @@0703=2222 DCA D0154 / @@0704=3154 D0705, 4031 / JMS C0031 TAD I C0725 / @@0706=1725 JMS AI4 / AUTO INDEX REGISTER @@0707=4014 TAD I C0723 / @@0710=1723 C0711, 0541 / AND I C0141 L0712, C0712, 4031 / JMS C0031 TAD I C0725 / @@0713=1725 ISZ D0640 / @@0714=2240 ISZ I C0711 / @@0715=2711 TAD I C0616 / @@0716=1616 D0717, 1116 / TAD C0116 AND I C0723 / @@0720=0723 C0721, 4024 / JMS L0024 TAD I C0724 / @@0722=1724 C0723, 0114 / AND C0114 C0724, 4040 / JMS D0040 C0725, 0001 / AND L0001 JMP L0747 / @@0726=5347 TAD D0046 / @@0727=1046 C0730, C0730, 0201 / AND C0601 C0731, 2000 / ISZ L0000 SKP / @@0732=7410 C0733, 2000 / ISZ L0000 STA / AC = 7777 (-0001) @@0734=7240 TAD C0740 / @@0735=1340 DCA I C0741 / @@0736=3741 JMP I C0730 / long jump to L0201 @@0737=5730 C0740, 5401 / JMP I L0001 C0741, 0510 / AND I D0110 IAC / @@0742=7001 SPA / @@0743=7510 JMP L0650 / @@0744=5250 JMP L0712 / @@0745=5312 AND C0113 / @@0746=0113 L0747, JMS I C0176 / long call to S0006 @@0747=4576 DCA D0110 / @@0750=3110 GLK / @@0751=7204 DCA D0111 / @@0752=3111 TAD C0054 / @@0753=1054 SZA CLA / @@0754=7640 C0755, 4200 / JMS C0600 TAD D0111 / @@0756=1111 SZA CLA / @@0757=7640 JMP L0772 / @@0760=5372 TAD C0113 / @@0761=1113 DCA I D0110 / @@0762=3510 ISZ D0110 / @@0763=2110 TAD C0114 / @@0764=1114 DCA I D0110 / @@0765=3510 ISZ D0110 / @@0766=2110 L0767, TAD C0044 / @@0767=1044 DCA I D0110 / @@0770=3510 C0771, 4200 / JMS C0600 L0772, ISZ D0110 / @@0772=2110 ISZ D0110 / @@0773=2110 TAD I D0110 / @@0774=1510 SZA CLA / @@0775=7640 JMP I C0162 / long jump to L0005 @@0776=5562 JMP L0767 / @@0777=5367 C1000, C1000, 1132 / TAD C0132 AND C1165 / @@1001=0365 C1002, 4340 / JMS C1140 L1003, C1003, 4346 / JMS C1146 L1004, JMP I C1000 / long jump to L1132 @@1004=5600 C1005, C1005, 0000 / AND L0000 DCA D1157 / @@1006=3357 TAD D1157 / @@1007=1357 RTR / @@1010=7012 RTR / @@1011=7012 RTR / @@1012=7012 C1013, 4200 / JMS C1000 TAD D1157 / @@1014=1357 C1015, 4200 / JMS C1000 JMP I C1005 / long jump to L0000 @@1016=5605 C1017, C1017, 0202 / AND C1002 CLA / @@1020=7200 TAD C1166 / @@1021=1366 C1022, 4346 / JMS C1146 TAD C1167 / @@1023=1367 C1024, 4346 / JMS C1146 DCA D1160 / @@1025=3360 JMP I C1017 / long jump to L0202 @@1026=5617 C1027, C1027, 1044 / TAD C0044 CLA / @@1030=7200 TAD C1170 / @@1031=1370 C1032, 4346 / JMS C1146 JMP I C1027 / long jump to L1044 @@1033=5627 C1034, C1034, 0411 / AND I AI1 CLA / @@1035=7200 TAD D1160 / @@1036=1360 L1037, TAD C1164 / @@1037=1364 C1040, 7500 / SMA JMP L1037 / @@1041=5237 DCA D1160 / @@1042=3360 L1043, C1043, 4227 / JMS C1027 L1044, JMP L1043 / @@1044=5243 C1045, C1045, 0413 / AND I AI3 AND C1171 / @@1046=0371 DCA D1157 / @@1047=3357 TAD D1157 / @@1050=1357 TAD C1172 / @@1051=1372 SMA CLA / @@1052=7700 JMP I C1045 / long jump to L0413 @@1053=5645 TAD D1157 / @@1054=1357 TAD C1173 / @@1055=1373 C1056, 4346 / JMS C1146 JMP I C1045 / long jump to L0413 @@1057=5645 C1060, C1060, 0213 / AND C1013 DCA D1156 / @@1061=3356 DCA D1162 / @@1062=3362 TAD D1160 / @@1063=1360 DCA D1161 / @@1064=3361 L1065, TAD I D1156 / @@1065=1756 AND C1165 / @@1066=0365 DCA D1163 / @@1067=3363 TAD I D1156 / @@1070=1756 RTR / @@1071=7012 RTR / @@1072=7012 RTR / @@1073=7012 AND C1165 / @@1074=0365 C1075, 4302 / JMS C1102 TAD D1163 / @@1076=1363 C1077, 4302 / JMS C1102 L1100, ISZ D1156 / @@1100=2356 JMP L1065 / @@1101=5265 C1102, C1102, 1100 / TAD D0100 DCA D1157 / @@1103=3357 TAD D1162 / @@1104=1362 SZA CLA / @@1105=7640 JMP L1116 / @@1106=5316 TAD D1157 / @@1107=1357 SNA / @@1110=7450 JMP L1114 / @@1111=5314 C1112, 4200 / JMS C1000 JMP I C1102 / long jump to L1100 @@1113=5702 L1114, ISZ D1162 / @@1114=2362 JMP I C1102 / long jump to L1100 @@1115=5702 L1116, DCA D1162 / @@1116=3362 TAD D1157 / @@1117=1357 CIA / @@1120=7041 SNA / @@1121=7450 JMP L1130 / @@1122=5330 IAC / @@1123=7001 SNA CLA / @@1124=7650 JMP L1135 / @@1125=5335 TAD C1040 / @@1126=1240 DCA D1142 / @@1127=3342 L1130, TAD D1157 / @@1130=1357 C1131, 4200 / JMS C1000 L1132, TAD C1176 / @@1132=1376 DCA D1142 / @@1133=3342 JMP I C1102 / long jump to L1100 @@1134=5702 L1135, TAD D1161 / @@1135=1361 DCA D1160 / @@1136=3360 JMP I C1060 / long jump to L0213 @@1137=5660 C1140, C1140, 1003 / TAD D0003 TAD C1174 / @@1141=1374 D1142, 7510 / SPA TAD C1175 / @@1143=1375 TAD C1170 / @@1144=1370 JMP I C1140 / long jump to L1003 @@1145=5740 C1146, C1146, 1004 / TAD D0004 TLS / Load the TTO from the content of AC4 @@1147=6046 L1150, TSF / Skip if teleprinter flag is a 1. @@1150=6041 JMP L1150 / @@1151=5350 CLA / @@1152=7200 ISZ D1160 / @@1153=2360 JMP I C1146 / long jump to L1004 @@1154=5746 JMP I C1034 / long jump to L0411 @@1155=5634 D1156, 0617 / AND I C1017 D1157, 0001 / AND L0001 D1160, 0000 / AND L0000 D1161, 0000 / AND L0000 D1162, 0000 / AND L0000 D1163, 0001 / AND L0001 C1164, 7770 / SPA SNA SZL CLA C1165, 0077 / AND C0077 C1166, 0215 / AND C1015 C1167, 0212 / AND C1012 C1170, 0240 / AND C1040 C1171, 0017 / AND AI7 C1172, 7766 / SMA SZA SNL CLA OSR HLT C1173, 0260 / AND C1060 C1174, 7740 / SMA SZA CLA C1175, 0100 / AND D0100 C1176, 7510 / SPA JMP I C0163 / long jump to L0006 @@1177=5563 D1200, 0215 / AND C1215 CLA CLL / AC = 0000 @@1201=7300 DCA D1352 / @@1202=3352 DCA D1365 / @@1203=3365 DCA D1366 / @@1204=3366 TAD C1355 / @@1205=1355 DCA D1245 / @@1206=3245 L1207, DCA D1345 / @@1207=3345 L1210, C1210, 4357 / JMS C1357 L1211, C1211, 3346 / DCA D1346 TAD D1346 / @@1212=1346 TAD C1350 / @@1213=1350 SNA / @@1214=7450 C1215, 5201 / JMP C1201 TAD C1351 / @@1216=1351 SNA / @@1217=7450 JMP L1340 / @@1220=5340 TAD C1353 / @@1221=1353 SZA / @@1222=7440 JMP L1234 / @@1223=5234 TAD D1352 / @@1224=1352 SZA CLA / @@1225=7640 JMP L1244 / @@1226=5244 TAD C1354 / @@1227=1354 L1230, TAD C1355 / @@1230=1355 DCA D1245 / @@1231=3245 ISZ D1352 / @@1232=2352 JMP L1210 / @@1233=5210 L1234, CLA / @@1234=7200 TAD D1346 / @@1235=1346 TAD C1356 / @@1236=1356 SMA / @@1237=7500 JMP L1244 / @@1240=5244 TAD C1344 / @@1241=1344 SMA / @@1242=7500 JMP L1271 / @@1243=5271 L1244, CLA CLL / AC = 0000 @@1244=7300 D1245, 7000 / NOP JMP L1260 / @@1246=5260 TAD D1366 / @@1247=1366 CIA / @@1250=7041 DCA D1366 / @@1251=3366 RAL / @@1252=7004 DCA D1373 / @@1253=3373 TAD D1365 / @@1254=1365 CMA / @@1255=7040 TAD D1373 / @@1256=1373 DCA D1365 / @@1257=3365 L1260, TAD I D1200 / @@1260=1600 DCA D1374 / @@1261=3374 TAD D1365 / @@1262=1365 DCA I D1374 / @@1263=3774 ISZ D1374 / @@1264=2374 TAD D1366 / @@1265=1366 DCA I D1374 / @@1266=3774 ISZ D1200 / @@1267=2200 JMP I D1200 / long jump to L0215 @@1270=5600 L1271, DCA D1347 / @@1271=3347 CLL / @@1272=7100 TAD D1366 / @@1273=1366 RAL / @@1274=7004 DCA D1367 / @@1275=3367 TAD D1365 / @@1276=1365 RAL / @@1277=7004 DCA D1370 / @@1300=3370 CLL / @@1301=7100 TAD D1367 / @@1302=1367 RAL / @@1303=7004 DCA D1371 / @@1304=3371 TAD D1370 / @@1305=1370 RAL / @@1306=7004 DCA D1372 / @@1307=3372 CLL / @@1310=7100 TAD D1371 / @@1311=1371 RAL / @@1312=7004 DCA D1371 / @@1313=3371 C1314, 1372 / TAD D1372 RAL / @@1315=7004 DCA D1372 / @@1316=3372 CLL / @@1317=7100 TAD D1371 / @@1320=1371 TAD D1367 / @@1321=1367 DCA D1366 / @@1322=3366 TAD D1372 / @@1323=1372 SZL / @@1324=7430 IAC / @@1325=7001 TAD D1370 / @@1326=1370 DCA D1365 / @@1327=3365 CLL / @@1330=7100 TAD D1366 / @@1331=1366 TAD D1347 / @@1332=1347 DCA D1366 / @@1333=3366 SZL / @@1334=7430 ISZ D1365 / @@1335=2365 ISZ D1352 / @@1336=2352 JMP L1207 / @@1337=5207 L1340, TAD D1352 / @@1340=1352 SZA CLA / @@1341=7640 JMP L1244 / @@1342=5244 JMP L1230 / @@1343=5230 C1344, 0012 / AND AI2 D1345, 0000 / AND L0000 D1346, 0215 / AND C1215 D1347, 0000 / AND L0000 C1350, 7401 / NOP C1351, 0137 / AND C0137 D1352, 0000 / AND L0000 C1353, 7763 / CLA MQA SCA MQL SCL + C1354, 0410 / AND I AI0 C1355, 7000 / NOP C1356, 7506 / SMA OSR HLT C1357, C1357, 1211 / TAD L1211 L1360, KSF / Skip if keyboard flag is a 1. @@1360=6031 JMP L1360 / @@1361=5360 KRB / Clear AC, clear keyboard flag, and r @@1362=6036 TLS / Load the TTO from the content of AC4 @@1363=6046 JMP I C1357 / long jump to L1211 @@1364=5757 D1365, 0000 / AND L0000 D1366, 0000 / AND L0000 D1367, 0310 / AND C1310 D1370, 0000 / AND L0000 D1371, 1440 / TAD I D0040 D1372, 0000 / AND L0000 D1373, 0000 / AND L0000 D1374, 0041 / AND C0041 AND D0100 / @@1375=0100 CLA / @@1376=7200 AND C1314 / @@1377=0314 D1400, 0463 / AND I C0063 CLA CLL / AC = 0000 @@1401=7300 TAD I D1400 / @@1402=1600 DCA D1516 / @@1403=3316 TAD I D1516 / @@1404=1716 SPA / @@1405=7510 D1406, 7020 / CML CLA / @@1407=7200 TAD C1510 / @@1410=1310 SZL / @@1411=7430 TAD C1511 / @@1412=1311 C1413, 4273 / JMS C1473 TAD I D1516 / @@1414=1716 CLL / @@1415=7100 SPA / @@1416=7510 CMA CML / @@1417=7060 DCA D1504 / @@1420=3304 TAD C1502 / @@1421=1302 D1422, 3303 / DCA D1503 TAD C1506 / @@1423=1306 DCA AI0 / AUTO INDEX REGISTER @@1424=3010 ISZ D1516 / @@1425=2316 ISZ D1400 / @@1426=2200 TAD I D1516 / @@1427=1716 SZL / @@1430=7430 CLL CMA IAC / @@1431=7141 SZL / @@1432=7430 ISZ D1504 / @@1433=2304 DCA D1505 / @@1434=3305 L1435, TAD I AI0 / AUTO INDEX REGISTER @@1435=1410 DCA D1512 / @@1436=3312 C1437, 4245 / JMS C1445 L1440, ISZ D1503 / @@1440=2303 JMP L1435 / @@1441=5235 TAD C1510 / @@1442=1310 C1443, 4273 / JMS C1473 L1444, JMP I D1400 / long jump to L0463 @@1444=5600 C1445, C1445, 1440 / TAD I D0040 TAD I AI0 / AUTO INDEX REGISTER @@1446=1410 DCA D1513 / @@1447=3313 L1450, CLL / @@1450=7100 TAD D1513 / @@1451=1313 TAD D1505 / @@1452=1305 DCA D1515 / @@1453=3315 RAL / @@1454=7004 TAD D1512 / @@1455=1312 TAD D1504 / @@1456=1304 SPA / @@1457=7510 JMP L1466 / @@1460=5266 ISZ D1514 / @@1461=2314 DCA D1504 / @@1462=3304 TAD D1515 / @@1463=1315 DCA D1505 / @@1464=3305 JMP L1450 / @@1465=5250 L1466, CLA / @@1466=7200 TAD D1514 / @@1467=1314 C1470, 4273 / JMS C1473 DCA D1514 / @@1471=3314 JMP I C1445 / long jump to L1440 @@1472=5645 C1473, C1473, 1444 / TAD I C0044 TAD C1507 / @@1474=1307 L1475, TSF / Skip if teleprinter flag is a 1. @@1475=6041 JMP L1475 / @@1476=5275 TLS / Load the TTO from the content of AC4 @@1477=6046 D1500, 7200 / CLA JMP I C1473 / long jump to L1444 @@1501=5673 C1502, 7771 / CLA MQA SCA MQL NMI D1503, 0000 / AND L0000 D1504, 0000 / AND L0000 D1505, 0000 / AND L0000 C1506, 1516 / TAD I C0116 C1507, 0260 / AND C1460 C1510, 7760 / SMA SZA SNL CLA C1511, 0015 / AND AI5 D1512, 7777 / CLA MQA SCA MQL LSR + D1513, 7777 / CLA MQA SCA MQL LSR + D1514, 0000 / AND L0000 D1515, 7777 / CLA MQA SCA MQL LSR + D1516, 0061 / AND D0061 C1517, 7413 / SHL + KCLR / Clear All; clear the status A and B @@1520=6700 C1521, 7747 / CLA MQA SCA DVI + C1522, 4540 / JMS I C0140 C1523, 7775 / CLA MQA SCA MQL ASR + C1524, 4360 / JMS C1560 C1525, 7777 / CLA MQA SCA MQL LSR + C1526, 6030 / 6030 C1527, 7777 / CLA MQA SCA MQL LSR + SZL CLA OSR / @@1530=7634 C1531, 7777 / CLA MQA SCA MQL LSR + SMA SZA SNL CLA OSR HLT / @@1532=7766 C1533, 7777 / CLA MQA SCA MQL LSR + C1534, 7777 / CLA MQA SCA MQL LSR + AND I D1400 / @@1535=0600 RSF / Skip if reader flag is a 1. @@1536=6011 ISZ D1422 / @@1537=2222 AND D1400 / @@1540=0200 RFB / Read the content of the reader buffe @@1541=6012 ISZ D1406 / @@1542=2206 AND D1500 / @@1543=0300 RFC / Clear reader flag and reader buffer, @@1544=6014 ISZ D0023 / @@1545=2023 AND I D1400 / @@1546=0600 PSF / Skip if punch flag is a 1 @@1547=6021 ISZ D0003 / @@1550=2003 AND I D1400 / @@1551=0600 PCF / Clear punch flag and punch buffer. @@1552=6022 ISZ D0020 / @@1553=2020 AND D1500 / @@1554=0300 PPC / Load the punch buffer from bits 4 th @@1555=6024 ISZ AI4 / AUTO INDEX REGISTER @@1556=2014 ISZ D1500 / @@1557=2300 PLS / Clear the punch flag, clear the bunc @@1560=6026 AND I C0030 / @@1561=0430 C1562, 1400 / TAD I L0000 DXL / Clear and load X coordinate buffer. @@1563=6053 AND I C0031 / @@1564=0431 C1565, 1400 / TAD I L0000 DYL / Clear and load Y coordinate buffer. @@1566=6063 AND I C0030 / @@1567=0430 ISZ D1500 / @@1570=2300 DXS / Executes the combined functions of D @@1571=6057 AND I C0031 / @@1572=0431 ISZ D1500 / @@1573=2300 DYS / Executes the combined functions of D @@1574=6067 AND I AI1 / AUTO INDEX REGISTER @@1575=0411 DCA D0100 / @@1576=3100 DIY / Intensify the point defined by the c @@1577=6064 C1600, 0000 / AND L0000 $