TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhklc-b-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhklc-b-pb.bin / Generated 2010 02 19 00:10:24 / 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 / / 2262 locations used, 1523 code and 0537 data //////////////////////////////////////////////////////////////////////////////// *0001 JMP I D0002 / long jump to L0000 @@0001=5402 D0002, 0000 / AND L0000 *0020 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0020 / / Called from: / 1407 1430 1456 1465 1507 1626 1652 1735 2007 2016 2041 2211 2226 2242 2253 / 2752 / Total 0020 (16) calls //////////////////////////////////////////////////////////////////////////////// S0020, 0 / return area CLA CLL / AC = 0000 @@0021=7300 D0022, 1124 / TAD D0124 DCA D0125 / @@0023=3125 L0024, C0024, 1126 / TAD C0126 DCA D0127 / @@0025=3127 L0026, D0026, 2127 / ISZ D0127 JMP L0026 / @@0027=5026 D0030, 7200 / CLA CLA / @@0031=7200 C0032, 7200 / CLA C0033, 7200 / CLA C0034, 2125 / ISZ D0125 SKP CLA / @@0035=7610 D0036, 5420 / JMP I S0020 AND I S0020 / @@0037=0420 AND I S0020 / @@0040=0420 AND S0020 / @@0041=0020 C0042, 5024 / JMP L0024 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0043 / / Called from: / 1200 1442 1600 1723 2454 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S0043, 0 / return area D0044, 7200 / CLA TAD D0146 / @@0045=1146 TAD C0177 / @@0046=1177 DCA D0140 / @@0047=3140 C0050, 1540 / TAD I D0140 DCA D0132 / @@0051=3132 D0052, 5443 / JMP I S0043 D0053, 3000 / DCA L0000 C0054, 3006 / DCA C0006 C0055, 3014 / DCA AI4 DCA D0022 / @@0056=3022 DCA D0030 / @@0057=3030 D0060, 3036 / DCA D0036 DCA D0044 / @@0061=3044 C0062, 3052 / DCA D0052 DCA D0060 / @@0063=3060 DCA D0066 / @@0064=3066 DCA D0074 / @@0065=3074 D0066, 3102 / DCA C0102 DCA D0110 / @@0067=3110 C0070, 3116 / DCA D0116 DCA D0124 / @@0071=3124 DCA D0132 / @@0072=3132 C0073, C0073, 0600 / AND I L0000 D0074, 0604 / AND I C0004 C0075, C0075, 0612 / AND I AI2 C0076, 0616 / AND I AI6 C0077, C0077, 0622 / AND I D0022 C0100, C0100, 0626 / AND I L0026 C0101, C0101, 0632 / AND I C0032 C0102, C0102, 0636 / AND I D0036 C0103, C0103, 0644 / AND I D0044 C0104, C0104, 0650 / AND I C0050 C0105, C0105, 0654 / AND I C0054 C0106, C0106, 0662 / AND I C0062 C0107, C0107, 0666 / AND I D0066 D0110, 1000 / TAD L0000 C0111, C0111, 1010 / TAD AI0 C0112, C0112, 1016 / TAD AI6 C0113, C0113, 1024 / TAD L0024 C0114, C0114, 1034 / TAD C0034 C0115, C0115, 1044 / TAD D0044 D0116, 1050 / TAD C0050 C0117, C0117, 1062 / TAD C0062 C0120, C0120, 1070 / TAD C0070 C0121, C0121, 1074 / TAD D0074 C0122, C0122, 1104 / TAD C0104 C0123, C0123, 1116 / TAD D0116 D0124, 0000 / AND L0000 D0125, 0000 / AND L0000 C0126, 7754 / SPA SNA CLA OSR D0127, 0000 / AND L0000 D0130, 0000 / AND L0000 D0131, 0000 / AND L0000 D0132, 0000 / AND L0000 D0133, 0000 / AND L0000 D0134, 0000 / AND L0000 D0135, 1233 / TAD C0033 D0136, 7622 / SNL CLA HLT D0137, 0000 / AND L0000 D0140, 0000 / AND L0000 C0141, 0000 / AND L0000 D0142, 0000 / AND L0000 D0143, 0000 / AND L0000 C0144, C0144, 0312 / AND C0112 C0145, C0145, 0332 / AND D0132 D0146, 0000 / AND L0000 *0177 C0177, 0302 / AND C0102 D0200, 7300 / CLA CLL C0201, 6007 / 6007 HLT / @@0202=7402 JMS I C0377 / long call to S0400 @@0203=4777 HLT / @@0204=7402 L0205, LAS / @@0205=7604 DCA D0134 / @@0206=3134 HLT / @@0207=7402 JMS S0250 / @@0210=4250 TAD D0146 / @@0211=1146 TAD C0376 / @@0212=1376 DCA D0140 / @@0213=3140 TAD I D0140 / @@0214=1540 TAD D0275 / @@0215=1275 DCA D0140 / @@0216=3140 TAD I D0140 / @@0217=1540 DCA D0277 / @@0220=3277 TAD D0277 / @@0221=1277 TAD D0277 / @@0222=1277 DCA D0301 / @@0223=3301 TAD D0146 / @@0224=1146 TAD C0375 / @@0225=1375 DCA D0140 / @@0226=3140 TAD I D0140 / @@0227=1540 TAD D0275 / @@0230=1275 DCA D0140 / @@0231=3140 TAD I D0140 / @@0232=1540 DCA D0300 / @@0233=3300 TAD D0276 / @@0234=1276 TAD C0374 / @@0235=1374 DCA D0237 / @@0236=3237 D0237, 0000 / AND L0000 TAD D0200 / @@0240=1200 TAD D0200 / @@0241=1200 C0242, 1400 / TAD I L0000 TAD I D0200 / @@0243=1600 C0244, 2000 / ISZ L0000 ISZ D0200 / @@0245=2200 C0246, 2400 / ISZ I L0000 ISZ I D0200 / @@0247=2600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0250 / / Called from: / 0210 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0250, 0 / return area CLA CLL / AC = 0000 @@0251=7300 LAS / @@0252=7604 DCA D0274 / @@0253=3274 TAD D0274 / @@0254=1274 AND I C0373 / @@0255=0773 DCA D0146 / @@0256=3146 TAD D0274 / @@0257=1274 RTR / @@0260=7012 RAR / @@0261=7010 AND I C0373 / @@0262=0773 DCA D0275 / @@0263=3275 TAD D0274 / @@0264=1274 RTR / @@0265=7012 RTR / @@0266=7012 RTR / @@0267=7012 RTR / @@0270=7012 AND I C0373 / @@0271=0773 DCA D0276 / @@0272=3276 JMP I S0250 / return @@0273=5650 D0274, 0000 / AND L0000 D0275, 0000 / AND L0000 D0276, 0000 / AND L0000 D0277, 0000 / AND L0000 D0300, 0000 / AND L0000 D0301, 0000 / AND L0000 NOP / @@0302=7000 NOP / @@0303=7000 NOP / @@0304=7000 C0305, 6300 / 6300 C0306, 6000 / 6000 C0307, 5000 / JMP L0000 C0310, 4000 / JMS L0000 C0311, 3000 / DCA L0000 D0312, 0000 / AND L0000 CLA CLL CMA RAL / AC = 7776 (-0002) @@0313=7344 TAD D0312 / @@0314=1312 DCA D0140 / @@0315=3140 TAD C0372 / @@0316=1372 DCA I D0140 / @@0317=3540 TAD I D0312 / @@0320=1712 DCA D0130 / @@0321=3130 ISZ D0312 / @@0322=2312 TAD I D0312 / @@0323=1712 DCA D0131 / @@0324=3131 LAS / @@0325=7604 AND C0371 / @@0326=0371 SNA CLA / @@0327=7650 JMP I D0130 / long jump to L0000 @@0330=5530 JMP I D0131 / long jump to L0000 @@0331=5531 C0332, 0000 / AND L0000 JMS I C0106 / long call to S0662 @@0333=4506 L0334, JMS I D0074 / long call to S0604 @@0334=4474 SKP / @@0335=7410 JMP L0344 / @@0336=5344 CLA CLL / AC = 0000 @@0337=7300 TAD D0142 / @@0340=1142 JMS I C0106 / long call to S0662 @@0341=4506 CLA / @@0342=7200 JMP L0334 / @@0343=5334 L0344, JMS I C0100 / long call to S0626 @@0344=4500 LAS / @@0345=7604 AND C0371 / @@0346=0371 SNA CLA / @@0347=7650 JMP L0334 / @@0350=5334 JMP L0205 / @@0351=5205 *0371 C0371, 4000 / JMS L0000 C0372, 7000 / NOP C0373, 0466 / AND I D0066 C0374, 5640 / JMP I C0240 C0375, 0063 / AND C0063 C0376, 0053 / AND D0053 C0377, C0377, 0400 / AND I L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0400 / / Called from: / 0203 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0400, 0 / return area LAS / @@0401=7604 DCA D0140 / @@0402=3140 TAD D0140 / @@0403=1140 AND C0577 / @@0404=0377 RTR / @@0405=7012 RAR / @@0406=7010 DCA D0470 / @@0407=3270 TAD D0470 / @@0410=1270 TAD C0576 / @@0411=1376 DCA I C0575 / @@0412=3775 TAD D0470 / @@0413=1270 TAD C0574 / @@0414=1374 DCA I C0573 / @@0415=3773 TAD D0470 / @@0416=1270 TAD C0572 / @@0417=1372 DCA I C0571 / @@0420=3771 TAD D0470 / @@0421=1270 TAD C0570 / @@0422=1370 DCA I C0567 / @@0423=3767 TAD D0470 / @@0424=1270 TAD C0566 / @@0425=1366 DCA I C0565 / @@0426=3765 TAD D0470 / @@0427=1270 TAD C0564 / @@0430=1364 DCA I C0563 / @@0431=3763 CLL / @@0432=7100 TAD D0140 / @@0433=1140 AND C0562 / @@0434=0362 RTL / @@0435=7006 RAL / @@0436=7004 DCA D0467 / @@0437=3267 TAD D0467 / @@0440=1267 TAD C0576 / @@0441=1376 DCA I C0561 / @@0442=3761 TAD D0467 / @@0443=1267 TAD C0574 / @@0444=1374 DCA I C0560 / @@0445=3760 TAD D0467 / @@0446=1267 TAD C0572 / @@0447=1372 DCA I C0557 / @@0450=3757 TAD D0467 / @@0451=1267 TAD C0570 / @@0452=1370 DCA I C0556 / @@0453=3756 TAD D0467 / @@0454=1267 TAD C0566 / @@0455=1366 DCA I C0555 / @@0456=3755 TAD D0467 / @@0457=1267 TAD C0564 / @@0460=1364 DCA I C0554 / @@0461=3754 TAD D0467 / @@0462=1267 TAD C0553 / @@0463=1353 DCA I C0552 / @@0464=3752 JMP I S0400 / return @@0465=5600 C0466, 0007 / AND C0007 D0467, 0000 / AND L0000 D0470, 0000 / AND L0000 *0552 C0552, 0667 / AND I D0467 C0553, 6007 / 6007 C0554, 0663 / AND I C0463 C0555, 0655 / AND I C0455 C0556, 0651 / AND I C0451 C0557, 0645 / AND I C0445 C0560, 0637 / AND I C0437 C0561, 0633 / AND I C0433 C0562, 0077 / AND C0077 C0563, 0627 / AND I C0427 C0564, 6006 / 6006 C0565, 0623 / AND I C0423 C0566, 6005 / 6005 C0567, 0617 / AND I C0417 C0570, 6004 / 6004 C0571, 0613 / AND I C0413 C0572, 6002 / IOF C0573, 0605 / AND I C0405 C0574, 6001 / ION C0575, 0601 / AND I C0401 C0576, 6000 / 6000 C0577, 7700 / SMA CLA //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0600 / / Called from: / 1662 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0600, 0 / return area D0601, 0000 / AND L0000 JMP I S0600 / return @@0602=5600 HLT / @@0603=7402 D0604, 0000 / AND L0000 D0605, 0000 / AND L0000 SKP / @@0606=7410 ISZ D0604 / @@0607=2204 JMP I D0604 / long jump to L0000 @@0610=5604 HLT / @@0611=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0612 / / Called from: / 1603 1640 1650 2005 2037 2401 2461 2602 2653 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S0612, 0 / return area D0613, 0000 / AND L0000 JMP I S0612 / return @@0614=5612 HLT / @@0615=7402 C0616, C0616, 0000 / AND L0000 D0617, 0000 / AND L0000 JMP I C0616 / long jump to L0000 @@0620=5616 HLT / @@0621=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0622 / / Called from: / 1677 1710 2604 2652 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0622, 0 / return area D0623, 0000 / AND L0000 JMP I S0622 / return @@0624=5622 HLT / @@0625=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0626 / / Called from: / 0344 2426 2475 2621 2700 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S0626, 0 / return area D0627, 0000 / AND L0000 JMP I S0626 / return @@0630=5626 HLT / @@0631=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0632 / / Called from: / 1203 1252 1270 1420 1700 1711 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S0632, 0 / return area D0633, 0000 / AND L0000 JMP I S0632 / return @@0634=5632 HLT / @@0635=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0636 / / Called from: / 1204 1214 1224 1410 1422 1431 1450 1453 1457 1466 1501 1504 1510 1623 1627 / 1732 1736 2032 2035 2212 2227 2243 2254 2411 2467 2611 2614 2617 2663 / Total 0035 (29) calls //////////////////////////////////////////////////////////////////////////////// S0636, 0 / return area D0637, 0000 / AND L0000 SKP / @@0640=7410 ISZ S0636 / @@0641=2236 JMP I S0636 / return @@0642=5636 HLT / @@0643=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0644 / / Called from: / 1223 1405 1740 2207 2224 2240 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S0644, 0 / return area D0645, 0000 / AND L0000 JMP I S0644 / return @@0646=5644 HLT / @@0647=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0650 / / Called from: / 1406 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0650, 0 / return area D0651, 0000 / AND L0000 JMP I S0650 / return @@0652=5650 HLT / @@0653=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0654 / / Called from: / 1240 1271 1701 1712 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0654, 0 / return area D0655, 0000 / AND L0000 SKP / @@0656=7410 ISZ S0654 / @@0657=2254 JMP I S0654 / return @@0660=5654 HLT / @@0661=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0662 / / Called from: / 0333 0341 1421 1447 1452 1455 1500 1503 1506 1622 1625 1651 1731 1734 2006 / 2031 2034 2040 2405 2423 2463 2472 2610 2613 2616 2657 2675 / Total 0033 (27) calls //////////////////////////////////////////////////////////////////////////////// S0662, 0 / return area D0663, 0000 / AND L0000 JMP I S0662 / return @@0664=5662 HLT / @@0665=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0666 / / Called from: / 2210 2225 2241 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0666, 0 / return area D0667, 0000 / AND L0000 JMP I S0666 / return @@0670=5666 HLT / @@0671=7402 *1000 C1000, C1000, 0000 / AND L0000 TAD C1177 / @@1001=1377 DCA I C1176 / @@1002=3776 TAD C1177 / @@1003=1377 DCA I C1175 / @@1004=3775 TAD C1177 / @@1005=1377 DCA I C1174 / @@1006=3774 JMP I C1000 / long jump to L0000 @@1007=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1010 / / Called from: / 1235 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1010, 0 / return area TAD C1177 / @@1011=1377 DCA I C1173 / @@1012=3773 TAD C1177 / @@1013=1377 DCA I C1172 / @@1014=3772 JMP I S1010 / return @@1015=5610 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1016 / / Called from: / 1265 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1016, 0 / return area TAD C1177 / @@1017=1377 DCA I C1171 / @@1020=3771 TAD C1177 / @@1021=1377 DCA I C1170 / @@1022=3770 JMP I S1016 / return @@1023=5616 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1024 / / Called from: / 1401 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1024, 0 / return area TAD C1177 / @@1025=1377 DCA I C1167 / @@1026=3767 TAD C1177 / @@1027=1377 DCA I C1166 / @@1030=3766 TAD C1177 / @@1031=1377 DCA I C1165 / @@1032=3765 JMP I S1024 / return @@1033=5624 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1034 / / Called from: / 1443 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1034, 0 / return area TAD C1177 / @@1035=1377 DCA I C1164 / @@1036=3764 TAD C1177 / @@1037=1377 DCA I C1163 / @@1040=3763 TAD C1177 / @@1041=1377 DCA I C1162 / @@1042=3762 JMP I S1034 / return @@1043=5634 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1044 / / Called from: / 1601 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1044, 0 / return area TAD C1177 / @@1045=1377 DCA I C1161 / @@1046=3761 JMP I S1044 / return @@1047=5644 C1050, C1050, 0000 / AND L0000 TAD C1177 / @@1051=1377 DCA I C1160 / @@1052=3760 TAD C1177 / @@1053=1377 DCA I C1157 / @@1054=3757 TAD C1177 / @@1055=1377 DCA I C1156 / @@1056=3756 TAD C1177 / @@1057=1377 DCA I C1155 / @@1060=3755 JMP I C1050 / long jump to L0000 @@1061=5650 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1062 / / Called from: / 1674 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1062, 0 / return area TAD C1177 / @@1063=1377 DCA I C1154 / @@1064=3754 TAD C1177 / @@1065=1377 DCA I C1153 / @@1066=3753 JMP I S1062 / return @@1067=5662 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1070 / / Called from: / 1724 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1070, 0 / return area TAD C1177 / @@1071=1377 DCA I C1152 / @@1072=3752 JMP I S1070 / return @@1073=5670 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1074 / / Called from: / 2001 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1074, 0 / return area TAD C1177 / @@1075=1377 DCA I C1151 / @@1076=3751 TAD C1177 / @@1077=1377 DCA I C1150 / @@1100=3750 TAD C1177 / @@1101=1377 DCA I C1147 / @@1102=3747 JMP I S1074 / return @@1103=5674 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1104 / / Called from: / 2203 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1104, 0 / return area TAD C1177 / @@1105=1377 DCA I C1146 / @@1106=3746 TAD C1177 / @@1107=1377 DCA I C1145 / @@1110=3745 TAD C1177 / @@1111=1377 DCA I C1144 / @@1112=3744 TAD C1177 / @@1113=1377 DCA I C1143 / @@1114=3743 JMP I S1104 / return @@1115=5704 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1116 / / Called from: / 2601 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1116, 0 / return area TAD C1177 / @@1117=1377 DCA I C1142 / @@1120=3742 TAD C1177 / @@1121=1377 DCA I C1141 / @@1122=3741 JMP I S1116 / return @@1123=5716 *1141 C1141, 2642 / ISZ I C1042 C1142, 2631 / ISZ I C1031 C1143, 2256 / ISZ C1056 C1144, 2246 / ISZ C1046 C1145, 2231 / ISZ C1031 C1146, 2215 / ISZ C1015 C1147, 2045 / ISZ C0045 C1150, 2022 / ISZ D0022 C1151, 2012 / ISZ AI2 C1152, 1744 / TAD I C1144 C1153, 1715 / TAD I C1115 C1154, 1703 / TAD I C1103 C1155, 1665 / TAD I C1065 C1156, 1656 / TAD I C1056 C1157, 1643 / TAD I C1043 C1160, 1634 / TAD I S1034 C1161, 1606 / TAD I C1006 C1162, 1513 / TAD I C0113 C1163, 1471 / TAD I C0071 C1164, 1461 / TAD I C0061 C1165, 1434 / TAD I C0034 C1166, 1424 / TAD I L0024 C1167, 1413 / TAD I AI3 C1170, 1310 / TAD C1110 C1171, 1274 / TAD S1074 C1172, 1256 / TAD C1056 C1173, 1242 / TAD C1042 C1174, 1226 / TAD C1026 C1175, 1216 / TAD S1016 C1176, 1207 / TAD C1007 C1177, 7402 / HLT L1200, JMS S0043 / @@1200=4043 JMS I D0110 / long call to S1000 @@1201=4510 L1202, C1202, 7300 / CLA CLL JMS I C0101 / long call to S0632 @@1203=4501 JMS I C0102 / long call to S0636 @@1204=4502 SKP CLA / @@1205=7610 JMP L1213 / @@1206=5213 D1207, 7402 / HLT JMS I C0144 / long call to S0312 @@1210=4544 TAD L1202 / @@1211=1202 TAD L1222 / @@1212=1222 L1213, C1213, 6007 / 6007 JMS I C0102 / long call to S0636 @@1214=4502 JMP L1222 / @@1215=5222 D1216, 7402 / HLT JMS I C0144 / long call to S0312 @@1217=4544 TAD L1202 / @@1220=1202 TAD L1222 / @@1221=1222 L1222, C1222, 4501 / JMS I C0101 JMS I C0103 / long call to S0644 @@1223=4503 JMS I C0102 / long call to S0636 @@1224=4502 JMP L1232 / @@1225=5232 D1226, 7402 / HLT JMS I C0144 / long call to S0312 @@1227=4544 TAD L1222 / @@1230=1222 TAD C1234 / @@1231=1234 L1232, ISZ D0132 / @@1232=2132 JMP L1202 / @@1233=5202 C1234, 4043 / JMS S0043 JMS I C0111 / long call to S1010 @@1235=4511 L1236, C1236, 7300 / CLA CLL C1237, 6007 / 6007 JMS I C0105 / long call to S0654 @@1240=4505 JMP L1246 / @@1241=5246 D1242, 7402 / HLT JMS I C0144 / long call to S0312 @@1243=4544 TAD L1236 / @@1244=1236 TAD L1246 / @@1245=1246 L1246, C1246, 7300 / CLA CLL C1247, 6007 / 6007 TAD C1377 / @@1250=1377 DCA D0002 / @@1251=3002 JMS I C0101 / long call to S0632 @@1252=4501 ION / Enable Interrupts @@1253=6001 NOP / @@1254=7000 IOF / Disable Interrupts @@1255=6002 D1256, 7402 / HLT JMS I C0144 / long call to S0312 @@1257=4544 TAD L1246 / @@1260=1246 TAD C1264 / @@1261=1264 ISZ D0132 / @@1262=2132 JMP L1236 / @@1263=5236 C1264, 4043 / JMS S0043 JMS I C0112 / long call to S1016 @@1265=4512 L1266, C1266, 7300 / CLA CLL C1267, 6007 / 6007 JMS I C0101 / long call to S0632 @@1270=4501 JMS I C0105 / long call to S0654 @@1271=4505 SKP / @@1272=7410 JMP L1300 / @@1273=5300 D1274, 7402 / HLT JMS I C0144 / long call to S0312 @@1275=4544 TAD L1266 / @@1276=1266 TAD L1300 / @@1277=1300 L1300, C1300, 7300 / CLA CLL TAD C1376 / @@1301=1376 DCA D0002 / @@1302=3002 C1303, 6007 / 6007 ION / Enable Interrupts @@1304=6001 NOP / @@1305=7000 IOF / Disable Interrupts @@1306=6002 JMP L1314 / @@1307=5314 D1310, 7402 / HLT JMS I C0144 / long call to S0312 @@1311=4544 TAD L1300 / @@1312=1300 TAD C1316 / @@1313=1316 L1314, ISZ D0132 / @@1314=2132 JMP L1266 / @@1315=5266 C1316, 7200 / CLA TAD C1375 / @@1317=1375 MQL / @@1320=7421 TAD I C1374 / @@1321=1774 SZA CLA / @@1322=7640 JMP L1200 / @@1323=5200 JMP I C1373 / long jump to L1400 @@1324=5773 *1373 C1373, C1373, 1400 / TAD I L0000 C1374, 0276 / AND C1276 C1375, 0001 / AND C0001 C1376, 1310 / TAD D1310 C1377, 1262 / TAD C1262 L1400, C1400, 4043 / JMS S0043 JMS I C0113 / long call to S1024 @@1401=4513 L1402, CLA CLL / AC = 0000 @@1402=7300 TAD I C1577 / @@1403=1777 DCA D0124 / @@1404=3124 JMS I C0103 / long call to S0644 @@1405=4503 JMS I C0104 / long call to S0650 @@1406=4504 JMS S0020 / @@1407=4020 JMS I C0102 / long call to S0636 @@1410=4502 SKP / @@1411=7410 JMP L1417 / @@1412=5217 D1413, 7402 / HLT JMS I C0144 / long call to S0312 @@1414=4544 TAD I D0002 / @@1415=1402 C1416, 1417 / TAD I AI7 L1417, CLA CLL / AC = 0000 @@1417=7300 JMS I C0101 / long call to S0632 @@1420=4501 JMS I C0106 / long call to S0662 @@1421=4506 JMS I C0102 / long call to S0636 @@1422=4502 JMP L1430 / @@1423=5230 D1424, 7402 / HLT JMS I C0144 / long call to S0312 @@1425=4544 C1426, 1417 / TAD I AI7 TAD I C0042 / @@1427=1442 L1430, JMS S0020 / @@1430=4020 JMS I C0102 / long call to S0636 @@1431=4502 SKP / @@1432=7410 JMP L1440 / @@1433=5240 D1434, 7402 / HLT JMS I C0144 / long call to S0312 @@1435=4544 C1436, 1417 / TAD I AI7 TAD I C0042 / @@1437=1442 L1440, ISZ D0132 / @@1440=2132 JMP L1402 / @@1441=5202 JMS S0043 / @@1442=4043 JMS I C0114 / long call to S1034 @@1443=4514 L1444, CLA CLL / AC = 0000 @@1444=7300 TAD I C1576 / @@1445=1776 DCA D0124 / @@1446=3124 JMS I C0106 / long call to S0662 @@1447=4506 L1450, JMS I C0102 / long call to S0636 @@1450=4502 JMP L1450 / @@1451=5250 JMS I C0106 / long call to S0662 @@1452=4506 L1453, JMS I C0102 / long call to S0636 @@1453=4502 JMP L1453 / @@1454=5253 JMS I C0106 / long call to S0662 @@1455=4506 JMS S0020 / @@1456=4020 JMS I C0102 / long call to S0636 @@1457=4502 JMP L1465 / @@1460=5265 D1461, 7402 / HLT JMS I C0144 / long call to S0312 @@1462=4544 TAD I D0044 / @@1463=1444 TAD I C0075 / @@1464=1475 L1465, JMS S0020 / @@1465=4020 JMS I C0102 / long call to S0636 @@1466=4502 SKP / @@1467=7410 JMP L1475 / @@1470=5275 D1471, 7402 / HLT JMS I C0144 / long call to S0312 @@1472=4544 TAD I D0044 / @@1473=1444 TAD I C0075 / @@1474=1475 L1475, CLA CLL / AC = 0000 @@1475=7300 TAD I C1575 / @@1476=1775 DCA D0124 / @@1477=3124 JMS I C0106 / long call to S0662 @@1500=4506 L1501, JMS I C0102 / long call to S0636 @@1501=4502 JMP L1501 / @@1502=5301 JMS I C0106 / long call to S0662 @@1503=4506 L1504, JMS I C0102 / long call to S0636 @@1504=4502 JMP L1504 / @@1505=5304 JMS I C0106 / long call to S0662 @@1506=4506 JMS S0020 / @@1507=4020 JMS I C0102 / long call to S0636 @@1510=4502 SKP / @@1511=7410 JMP L1517 / @@1512=5317 D1513, 7402 / HLT JMS I C0144 / long call to S0312 @@1514=4544 TAD I C0075 / @@1515=1475 TAD I C0121 / @@1516=1521 L1517, ISZ D0132 / @@1517=2132 JMP L1444 / @@1520=5244 CLA / @@1521=7200 TAD C1574 / @@1522=1374 MQL / @@1523=7421 TAD I C1573 / @@1524=1773 SZA CLA / @@1525=7640 JMP L1400 / @@1526=5200 JMP I C1572 / long jump to L1600 @@1527=5772 *1572 C1572, C1572, 1600 / TAD I L1400 C1573, 0276 / AND C1476 C1574, 0002 / AND D0002 C1575, 0277 / AND C1477 C1576, 0300 / AND C1500 C1577, 0301 / AND L1501 L1600, JMS S0043 / @@1600=4043 JMS I C0115 / long call to S1044 @@1601=4515 L1602, C1602, 7240 / STA JMS I C0075 / long call to S0612 @@1603=4475 SNA / @@1604=7450 JMP L1612 / @@1605=5212 D1606, 7402 / HLT JMS I C0144 / long call to S0312 @@1607=4544 TAD I L1602 / @@1610=1602 TAD I C1614 / @@1611=1614 L1612, ISZ D0132 / @@1612=2132 JMP L1602 / @@1613=5202 C1614, 4043 / JMS S0043 JMS I D0116 / long call to S1050 @@1615=4516 L1616, C1616, 7300 / CLA CLL TAD I C1777 / @@1617=1777 DCA D0124 / @@1620=3124 C1621, 6007 / 6007 JMS I C0106 / long call to S0662 @@1622=4506 L1623, JMS I C0102 / long call to S0636 @@1623=4502 JMP L1623 / @@1624=5223 JMS I C0106 / long call to S0662 @@1625=4506 JMS S0020 / @@1626=4020 L1627, JMS I C0102 / long call to S0636 @@1627=4502 JMP L1627 / @@1630=5227 JMS I D0074 / long call to S0604 @@1631=4474 SKP / @@1632=7410 JMP L1640 / @@1633=5240 D1634, 7402 / HLT JMS I C0144 / long call to S0312 @@1635=4544 TAD I L1616 / @@1636=1616 TAD I L1647 / @@1637=1647 L1640, JMS I C0075 / long call to S0612 @@1640=4475 JMS I D0074 / long call to S0604 @@1641=4474 JMP L1647 / @@1642=5247 D1643, 7402 / HLT JMS I C0144 / long call to S0312 @@1644=4544 TAD I L1616 / @@1645=1616 TAD I L1647 / @@1646=1647 L1647, C1647, 7300 / CLA CLL JMS I C0075 / long call to S0612 @@1650=4475 JMS I C0106 / long call to S0662 @@1651=4506 JMS S0020 / @@1652=4020 JMS I D0074 / long call to S0604 @@1653=4474 SKP / @@1654=7410 JMP L1662 / @@1655=5262 D1656, 7402 / HLT JMS I C0144 / long call to S0312 @@1657=4544 TAD I L1647 / @@1660=1647 TAD I C1673 / @@1661=1673 L1662, JMS I C0073 / long call to S0600 @@1662=4473 JMS I D0074 / long call to S0604 @@1663=4474 JMP L1671 / @@1664=5271 D1665, 7402 / HLT JMS I C0144 / long call to S0312 @@1666=4544 TAD I L1647 / @@1667=1647 TAD I C1673 / @@1670=1673 L1671, ISZ D0132 / @@1671=2132 JMP L1616 / @@1672=5216 C1673, 4043 / JMS S0043 JMS I C0117 / long call to S1062 @@1674=4517 L1675, C1675, 7300 / CLA CLL C1676, 6007 / 6007 JMS I C0077 / long call to S0622 @@1677=4477 JMS I C0101 / long call to S0632 @@1700=4501 JMS I C0105 / long call to S0654 @@1701=4505 JMP L1707 / @@1702=5307 D1703, 7402 / HLT JMS I C0144 / long call to S0312 @@1704=4544 TAD I L1675 / @@1705=1675 TAD I L1707 / @@1706=1707 L1707, C1707, 7201 / CLA IAC JMS I C0077 / long call to S0622 @@1710=4477 JMS I C0101 / long call to S0632 @@1711=4501 JMS I C0105 / long call to S0654 @@1712=4505 SKP / @@1713=7410 JMP L1721 / @@1714=5321 D1715, 7402 / HLT JMS I C0144 / long call to S0312 @@1716=4544 TAD I L1707 / @@1717=1707 TAD I L1725 / @@1720=1725 L1721, ISZ D0132 / @@1721=2132 JMP L1675 / @@1722=5275 JMS S0043 / @@1723=4043 JMS I C0120 / long call to S1070 @@1724=4520 L1725, C1725, 7300 / CLA CLL C1726, 6007 / 6007 TAD C1776 / @@1727=1376 DCA D0002 / @@1730=3002 JMS I C0106 / long call to S0662 @@1731=4506 L1732, JMS I C0102 / long call to S0636 @@1732=4502 JMP L1732 / @@1733=5332 JMS I C0106 / long call to S0662 @@1734=4506 JMS S0020 / @@1735=4020 L1736, JMS I C0102 / long call to S0636 @@1736=4502 JMP L1736 / @@1737=5336 JMS I C0103 / long call to S0644 @@1740=4503 ION / Enable Interrupts @@1741=6001 NOP / @@1742=7000 IOF / Disable Interrupts @@1743=6002 D1744, 7402 / HLT JMS I C0144 / long call to S0312 @@1745=4544 TAD I L1725 / @@1746=1725 TAD I C1752 / @@1747=1752 ISZ D0132 / @@1750=2132 JMP L1725 / @@1751=5325 C1752, 7200 / CLA TAD C1775 / @@1753=1375 MQL / @@1754=7421 TAD I C1774 / @@1755=1774 SZA CLA / @@1756=7640 JMP L1600 / @@1757=5200 JMP I C1773 / long jump to L2000 @@1760=5773 *1773 C1773, C1773, 2000 / ISZ L0000 C1774, 0276 / AND C1676 C1775, 0003 / AND C0003 C1776, 1750 / TAD I C1750 C1777, 0301 / AND C1701 L2000, D2000, 4043 / JMS S0043 JMS I C0121 / long call to S1074 @@2001=4521 L2002, CLA CLL / AC = 0000 @@2002=7300 TAD I C2177 / @@2003=1777 DCA D0124 / @@2004=3124 JMS I C0075 / long call to S0612 @@2005=4475 JMS I C0106 / long call to S0662 @@2006=4506 JMS S0020 / @@2007=4020 JMS I D0074 / long call to S0604 @@2010=4474 JMP L2016 / @@2011=5216 D2012, 7402 / HLT JMS I C0144 / long call to S0312 @@2013=4544 ISZ D0002 / @@2014=2002 ISZ L0026 / @@2015=2026 L2016, JMS S0020 / @@2016=4020 JMS I D0074 / long call to S0604 @@2017=4474 SKP / @@2020=7410 JMP L2026 / @@2021=5226 D2022, 7402 / HLT JMS I C0144 / long call to S0312 @@2023=4544 ISZ D0002 / @@2024=2002 ISZ L0026 / @@2025=2026 L2026, CLA CLL / AC = 0000 @@2026=7300 TAD I C2176 / @@2027=1776 DCA D0124 / @@2030=3124 JMS I C0106 / long call to S0662 @@2031=4506 L2032, JMS I C0102 / long call to S0636 @@2032=4502 JMP L2032 / @@2033=5232 JMS I C0106 / long call to S0662 @@2034=4506 L2035, JMS I C0102 / long call to S0636 @@2035=4502 JMP L2035 / @@2036=5235 JMS I C0075 / long call to S0612 @@2037=4475 JMS I C0106 / long call to S0662 @@2040=4506 JMS S0020 / @@2041=4020 JMS I D0074 / long call to S0604 @@2042=4474 SKP / @@2043=7410 JMP L2051 / @@2044=5251 D2045, 7402 / HLT JMS I C0144 / long call to S0312 @@2046=4544 ISZ L0026 / @@2047=2026 ISZ D0053 / @@2050=2053 L2051, ISZ D0132 / @@2051=2132 JMP L2002 / @@2052=5202 CLA / @@2053=7200 TAD C2175 / @@2054=1375 MQL / @@2055=7421 TAD I C2174 / @@2056=1774 SZA CLA / @@2057=7640 JMP L2000 / @@2060=5200 JMP I C2173 / long jump to L2200 @@2061=5773 *2173 C2173, C2173, 2200 / ISZ L2000 C2174, 0276 / AND C2076 C2175, 0004 / AND C0004 C2176, 0277 / AND C2077 C2177, 0300 / AND C2100 L2200, CLA CLL / AC = 0000 @@2200=7300 TAD C2377 / @@2201=1377 L2202, DCA D0132 / @@2202=3132 JMS I C0122 / long call to S1104 @@2203=4522 L2204, D2204, 7300 / CLA CLL TAD C2273 / @@2205=1273 DCA D0124 / @@2206=3124 JMS I C0103 / long call to S0644 @@2207=4503 JMS I C0107 / long call to S0666 @@2210=4507 JMS S0020 / @@2211=4020 JMS I C0102 / long call to S0636 @@2212=4502 SKP / @@2213=7410 JMP L2221 / @@2214=5221 D2215, 7402 / HLT JMS I C0144 / long call to S0312 @@2216=4544 ISZ L2204 / @@2217=2204 ISZ L2221 / @@2220=2221 L2221, D2221, 7300 / CLA CLL TAD C2274 / @@2222=1274 DCA D0124 / @@2223=3124 JMS I C0103 / long call to S0644 @@2224=4503 JMS I C0107 / long call to S0666 @@2225=4507 JMS S0020 / @@2226=4020 JMS I C0102 / long call to S0636 @@2227=4502 JMP L2235 / @@2230=5235 D2231, 7402 / HLT JMS I C0144 / long call to S0312 @@2232=4544 ISZ L2221 / @@2233=2221 ISZ L2235 / @@2234=2235 L2235, D2235, 7300 / CLA CLL TAD C2275 / @@2236=1275 DCA D0124 / @@2237=3124 JMS I C0103 / long call to S0644 @@2240=4503 JMS I C0107 / long call to S0666 @@2241=4507 JMS S0020 / @@2242=4020 JMS I C0102 / long call to S0636 @@2243=4502 SKP / @@2244=7410 JMP L2252 / @@2245=5252 D2246, 7402 / HLT JMS I C0144 / long call to S0312 @@2247=4544 ISZ L2235 / @@2250=2235 ISZ L2252 / @@2251=2252 L2252, D2252, 4503 / JMS I C0103 JMS S0020 / @@2253=4020 JMS I C0102 / long call to S0636 @@2254=4502 JMP L2262 / @@2255=5262 D2256, 7402 / HLT JMS I C0144 / long call to S0312 @@2257=4544 ISZ L2235 / @@2260=2235 ISZ D2264 / @@2261=2264 L2262, ISZ D0132 / @@2262=2132 JMP L2204 / @@2263=5204 D2264, 7200 / CLA TAD C2376 / @@2265=1376 MQL / @@2266=7421 TAD I C2375 / @@2267=1775 SZA CLA / @@2270=7640 JMP L2202 / @@2271=5202 JMP I C2374 / long jump to L2400 @@2272=5774 C2273, 1000 / TAD L0000 C2274, 5060 / JMP D0060 C2275, 2564 / ISZ I C0164 *2374 C2374, C2374, 2400 / ISZ I L0000 C2375, 0276 / AND C2276 C2376, 0005 / AND C0005 C2377, 7773 / CLA MQA SCA MQL SHL + L2400, C2400, 4043 / JMS S0043 JMS I C0075 / long call to S0612 @@2401=4475 DCA D0133 / @@2402=3133 DCA D0142 / @@2403=3142 DCA D0143 / @@2404=3143 JMS I C0106 / long call to S0662 @@2405=4506 L2406, JMS I D0074 / long call to S0604 @@2406=4474 SKP / @@2407=7410 JMP L2426 / @@2410=5226 JMS I C0102 / long call to S0636 @@2411=4502 JMP L2406 / @@2412=5206 CLA CLL / AC = 0000 @@2413=7300 TAD D0143 / @@2414=1143 DCA D0142 / @@2415=3142 ISZ D0133 / @@2416=2133 NOP / @@2417=7000 TAD D0133 / @@2420=1133 DCA D0143 / @@2421=3143 TAD D0143 / @@2422=1143 JMS I C0106 / long call to S0662 @@2423=4506 CLA / @@2424=7200 JMP L2406 / @@2425=5206 L2426, JMS I C0100 / long call to S0626 @@2426=4500 AND D0134 / @@2427=0134 DCA D0140 / @@2430=3140 TAD D0140 / @@2431=1140 CIA / @@2432=7041 DCA D0137 / @@2433=3137 TAD D0142 / @@2434=1142 AND D0134 / @@2435=0134 TAD D0137 / @@2436=1137 SNA CLA / @@2437=7650 JMP L2450 / @@2440=5250 TAD D0140 / @@2441=1140 HLT / @@2442=7402 CLA / @@2443=7200 TAD D0142 / @@2444=1142 AND D0134 / @@2445=0134 HLT / @@2446=7402 JMS I C0145 / long call to S0332 @@2447=4545 L2450, ISZ D0132 / @@2450=2132 JMP L2406 / @@2451=5206 L2452, JMS I D0074 / long call to S0604 @@2452=4474 JMP L2452 / @@2453=5252 JMS S0043 / @@2454=4043 TAD C2577 / @@2455=1377 DCA D0135 / @@2456=3135 TAD C2576 / @@2457=1376 DCA D0136 / @@2460=3136 JMS I C0075 / long call to S0612 @@2461=4475 JMS S2524 / @@2462=4324 JMS I C0106 / long call to S0662 @@2463=4506 L2464, JMS I D0074 / long call to S0604 @@2464=4474 SKP / @@2465=7410 JMP L2475 / @@2466=5275 JMS I C0102 / long call to S0636 @@2467=4502 JMP L2464 / @@2470=5264 JMS S2524 / @@2471=4324 JMS I C0106 / long call to S0662 @@2472=4506 CLA / @@2473=7200 JMP L2464 / @@2474=5264 L2475, JMS I C0100 / long call to S0626 @@2475=4500 AND D0134 / @@2476=0134 DCA D0140 / @@2477=3140 TAD D0140 / @@2500=1140 CIA / @@2501=7041 TAD D0142 / @@2502=1142 SNA CLA / @@2503=7650 JMP L2513 / @@2504=5313 TAD D0140 / @@2505=1140 HLT / @@2506=7402 CLA / @@2507=7200 TAD D0142 / @@2510=1142 HLT / @@2511=7402 JMS I C0145 / long call to S0332 @@2512=4545 L2513, ISZ D0132 / @@2513=2132 JMP L2464 / @@2514=5264 CLA / @@2515=7200 TAD C2575 / @@2516=1375 MQL / @@2517=7421 TAD I C2574 / @@2520=1774 SZA CLA / @@2521=7640 JMP L2400 / @@2522=5200 JMP I C2573 / long jump to L2600 @@2523=5773 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2524 / / Called from: / 2462 2471 2605 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S2524, 0 / return area CLA CLL / AC = 0000 @@2525=7300 TAD D0142 / @@2526=1142 DCA D0143 / @@2527=3143 TAD D2550 / @@2530=1350 DCA D0142 / @@2531=3142 TAD D0135 / @@2532=1135 RTL / @@2533=7006 TAD D0136 / @@2534=1136 DCA D0135 / @@2535=3135 TAD D0135 / @@2536=1135 RTL / @@2537=7006 TAD D0136 / @@2540=1136 RTL / @@2541=7006 DCA D0136 / @@2542=3136 TAD D0135 / @@2543=1135 AND D0134 / @@2544=0134 DCA D2550 / @@2545=3350 TAD D2550 / @@2546=1350 JMP I S2524 / return @@2547=5724 D2550, 0000 / AND L0000 *2573 C2573, C2573, 2600 / ISZ I L2400 C2574, 0276 / AND C2476 C2575, 0006 / AND C0006 C2576, 7622 / SNL CLA HLT C2577, 1233 / TAD C2433 L2600, C2600, 4043 / JMS S0043 JMS I C0123 / long call to S1116 @@2601=4523 L2602, JMS I C0075 / long call to S0612 @@2602=4475 TAD C2777 / @@2603=1377 JMS I C0077 / long call to S0622 @@2604=4477 JMS I C2754 / long call to S2524 @@2605=4754 DCA D0140 / @@2606=3140 C2607, 1140 / TAD D0140 JMS I C0106 / long call to S0662 @@2610=4506 L2611, JMS I C0102 / long call to S0636 @@2611=4502 JMP L2611 / @@2612=5211 JMS I C0106 / long call to S0662 @@2613=4506 L2614, JMS I C0102 / long call to S0636 @@2614=4502 JMP L2614 / @@2615=5214 JMS I C0106 / long call to S0662 @@2616=4506 L2617, JMS I C0102 / long call to S0636 @@2617=4502 JMP L2617 / @@2620=5217 JMS I C0100 / long call to S0626 @@2621=4500 AND C2776 / @@2622=0376 DCA D0137 / @@2623=3137 TAD D0137 / @@2624=1137 AND C2775 / @@2625=0375 SZA CLA / @@2626=7640 SKP / @@2627=7410 JMP L2635 / @@2630=5235 D2631, 7402 / HLT JMS I C0144 / long call to S0312 @@2632=4544 ISZ I C2607 / @@2633=2607 ISZ I C2650 / @@2634=2650 L2635, TAD D0137 / @@2635=1137 AND C2774 / @@2636=0374 SNA CLA / @@2637=7650 SKP / @@2640=7410 JMP L2646 / @@2641=5246 D2642, 7402 / HLT JMS I C0144 / long call to S0312 @@2643=4544 ISZ I C2607 / @@2644=2607 ISZ I C2650 / @@2645=2650 L2646, ISZ D0132 / @@2646=2132 JMP L2602 / @@2647=5202 C2650, 4043 / JMS S0043 TAD C2777 / @@2651=1377 JMS I C0077 / long call to S0622 @@2652=4477 JMS I C0075 / long call to S0612 @@2653=4475 DCA D0133 / @@2654=3133 DCA D0142 / @@2655=3142 DCA D0143 / @@2656=3143 JMS I C0106 / long call to S0662 @@2657=4506 L2660, JMS I D0074 / long call to S0604 @@2660=4474 SKP / @@2661=7410 JMP L2700 / @@2662=5300 JMS I C0102 / long call to S0636 @@2663=4502 JMP L2660 / @@2664=5260 CLA CLL / AC = 0000 @@2665=7300 TAD D0143 / @@2666=1143 DCA D0142 / @@2667=3142 ISZ D0133 / @@2670=2133 NOP / @@2671=7000 TAD D0133 / @@2672=1133 DCA D0143 / @@2673=3143 TAD D0143 / @@2674=1143 JMS I C0106 / long call to S0662 @@2675=4506 CLA / @@2676=7200 JMP L2660 / @@2677=5260 L2700, JMS I C0100 / long call to S0626 @@2700=4500 DCA D0140 / @@2701=3140 TAD D0140 / @@2702=1140 AND C2773 / @@2703=0373 SZA CLA / @@2704=7640 SKP / @@2705=7410 JMP L2712 / @@2706=5312 TAD D0140 / @@2707=1140 HLT / @@2710=7402 JMS I C0145 / long call to S0332 @@2711=4545 L2712, TAD D0140 / @@2712=1140 AND C2775 / @@2713=0375 SZA CLA / @@2714=7640 SKP / @@2715=7410 JMP L2722 / @@2716=5322 TAD D0140 / @@2717=1140 HLT / @@2720=7402 JMS I C0145 / long call to S0332 @@2721=4545 L2722, TAD D0140 / @@2722=1140 AND C2772 / @@2723=0372 SZA CLA / @@2724=7640 SKP / @@2725=7410 JMP L2732 / @@2726=5332 TAD D0140 / @@2727=1140 HLT / @@2730=7402 JMS I C0145 / long call to S0332 @@2731=4545 L2732, TAD D0140 / @@2732=1140 AND C2774 / @@2733=0374 SZA CLA / @@2734=7640 SKP / @@2735=7410 JMP L2742 / @@2736=5342 TAD D0140 / @@2737=1140 HLT / @@2740=7402 JMS I C0145 / long call to S0332 @@2741=4545 L2742, ISZ D0132 / @@2742=2132 JMP L2660 / @@2743=5260 CLA / @@2744=7200 TAD C2771 / @@2745=1371 MQL / @@2746=7421 TAD I C2770 / @@2747=1770 SZA CLA / @@2750=7640 JMP L2600 / @@2751=5200 JMS S0020 / @@2752=4020 JMP I C2767 / long jump to L1200 @@2753=5767 C2754, C2754, 2524 / ISZ I D0124 *2767 C2767, C2767, 1200 / TAD L2600 C2770, 0276 / AND C2676 C2771, 0007 / AND C0007 C2772, 0400 / AND I L0000 C2773, 2000 / ISZ L0000 C2774, 4000 / JMS L0000 C2775, 1000 / TAD L0000 C2776, 5000 / JMP L0000 C2777, 0002 / AND D0002 ADIC / Index multiplexer channel address (p @@3000=6544 C3001, 6405 / 6405 C3002, 6245 / 6245 C3003, 6106 / 6106 C3004, 5746 / JMP I C3146 JMP I C3006 / long jump to L6737 @@3005=5606 C3006, C3006, 6737 / 6737 C3007, 6620 / 6620 PLCF / Clear plotter flag. @@3010=6502 C3011, 6364 / 6364 C3012, 6246 / 6246 MTRS / Trasnfer the status of the selection @@3013=6127 CML IAC RTL / @@3014=7027 C3015, 6720 / 6720 C3016, 6613 / 6613 C3017, 6505 / 6505 C3020, 6376 / 6376 CDF0 / Change to data field 7. The data fie @@3021=6271 C3022, 7413 / SHL + CLA CLL CMA IAC RAR / @@3023=7351 CLA CLL IAC RAL / AC = 0002 @@3024=7305 CLA CMA / @@3025=7242 CLA / @@3026=7200 C3027, 7134 / CLL CML RAR RAL CLA OSR HLT / @@3030=7606 SMA SZA SNL OSR / @@3031=7564 SMA SZA OSR / @@3032=7544 SMA SNL HLT / @@3033=7522 SMA / @@3034=7500 C3035, 7457 / SCA LSR + C3036, 7703 / CLA MQA SCL + SNA SZL CLA HLT / @@3037=7672 C3040, 7661 / CLA SCA MQL C3041, 7651 / CLA SCA NMI C3042, 7637 / CLA MQL LSR + C3043, 7627 / CLA MQL DVI + C3044, 7727 / CLA MQA MQL DVI + SMA SNL CLA HLT / @@3045=7722 C3046, 7713 / CLA MQA SHL + C3047, 7705 / CLA MQA MUY + SMA CLA / @@3050=7700 SNA SZL CLA HLT / @@3051=7672 C3052, 7742 / SMA SZA CLA HLT C3053, 7735 / CLA MQA MQL ASR + C3054, 7731 / CLA MQA MQL NMI SMA SNL CLA OSR / @@3055=7724 SMA SNL CLA / @@3056=7720 C3057, 7713 / CLA MQA SHL + IAC / @@3060=7003 RCSE / Generates an IOP pulse (IOP 2) to ad @@3061=6672 LDAR / (AA05/AA07) The buffer (input buffer @@3062=6562 C3063, 6451 / 6451 C3064, 6340 / 6340 C3065, 6227 / 6227 CLL CMA IAC / @@3066=7141 CMA IAC RAL / @@3067=7045 C3070, 6751 / 6751 C3071, 6656 / 6656 LDAR / (AA05/AA07) The buffer (input buffer @@3072=6562 C3073, 6466 / 6466 CLA IAC RTR / @@3074=7213 CLL CML RTL / @@3075=7126 CIA / @@3076=7041 C3077, 6753 / 6753 C3100, 6666 / 6666 DCMA / Clears memory address register, pari @@3101=6601 C3102, 7505 / MQA MUY + C3103, 7453 / SCA SHL + SNL / @@3104=7420 CLA CLL CMA CML RTL / @@3105=7366 CLA CLL CML IAC RTL / AC = 6000 (-2000 = -1024 dec) @@3106=7333 CLA CLL / AC = 0000 @@3107=7300 C3110, 7643 / CLA SCA SCL + SNL CLA OSR HLT / @@3111=7626 C3112, 7611 / CLA NMI C3113, 7573 / MQA SCA MQL SHL + SPA SNA OSR HLT / @@3114=7556 C3115, 7541 / MQA SCA SMA SNL CLA HLT / @@3116=7722 SPA CLA HLT / @@3117=7712 SMA CLA OSR / @@3120=7704 SNA SZL CLA OSR HLT / @@3121=7676 SZA SNL CLA OSR HLT / @@3122=7666 SZA SNL CLA / @@3123=7660 C3124, 7741 / CLA MQA SCA C3125, 7735 / CLA MQA MQL ASR + SPA SZL CLA / @@3126=7730 C3127, 7723 / CLA MQA MQL SCL + C3130, 7717 / CLA MQA LSR + SPA CLA HLT / @@3131=7712 C3132, 7751 / CLA MQA SCA NMI SMA SZA CLA OSR HLT / @@3133=7746 SMA SZA CLA HLT / @@3134=7742 SPA SZL CLA OSR HLT / @@3135=7736 C3136, 7733 / CLA MQA MQL SHL + SPA SZL CLA / @@3137=7730 $