TITLE "AUTOMATIC DISASSEMBLY OF maindec-8i-d5bb-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8i-d5bb-pb.bin / Generated 2010 02 19 00:10:31 / 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 / / 2365 locations used, 1363 code and 1002 data //////////////////////////////////////////////////////////////////////////////// *0076 JMP L0124 / @@0076=5124 C0077, 4116 / JMS C0116 L0100, C0100, 5777 / JMP I C0177 JMP I C0176 / long jump to L1421 @@0101=5776 JMP I C0175 / long jump to L1471 @@0102=5775 JMP I C0174 / long jump to L2005 @@0103=5774 JMP I C0173 / long jump to L2011 @@0104=5773 JMP I C0172 / long jump to L2001 @@0105=5772 JMP I C0171 / long jump to L3200 @@0106=5771 JMP I C0170 / long jump to L3205 @@0107=5770 JMP I C0167 / long jump to L3210 @@0110=5767 C0111, 5766 / JMP I C0166 JMP I C0165 / long jump to L3216 @@0112=5765 JMP I C0164 / long jump to L3221 @@0113=5764 JMP I C0163 / long jump to L3224 @@0114=5763 JMP I C0162 / long jump to L3237 @@0115=5762 C0116, C0116, 7402 / HLT TAD C0161 / @@0117=1161 DCA I C0160 / @@0120=3760 TAD C0161 / @@0121=1161 DCA I C0157 / @@0122=3757 JMP I C0116 / long jump to L7402 @@0123=5516 L0124, D0124, 6605 / DMAW DMAW / The contents of the AC are loaded in @@0125=6605 JMP L0100 / @@0126=5100 *0157 C0157, 2620 / ISZ I C0020 C0160, 3113 / DCA C0113 C0161, 7000 / NOP C0162, C0162, 3237 / DCA C0037 C0163, C0163, 3224 / DCA C0024 C0164, C0164, 3221 / DCA C0021 C0165, C0165, 3216 / DCA AI6 C0166, 3213 / DCA AI3 C0167, C0167, 3210 / DCA AI0 C0170, C0170, 3205 / DCA C0005 C0171, C0171, 3200 / DCA C0000 C0172, C0172, 2001 / ISZ C0001 C0173, C0173, 2011 / ISZ AI1 C0174, C0174, 2005 / ISZ C0005 C0175, C0175, 1471 / TAD I C0071 C0176, C0176, 1421 / TAD I C0021 C0177, 0600 / AND I C0000 C0200, 0000 / AND C0000 STA / AC = 7777 (-0001) @@0201=7240 TAD C0200 / @@0202=1200 C0203, 3010 / DCA AI0 L0204, C0204, 1410 / TAD I AI0 DCA D0216 / @@0205=3216 TAD D0216 / @@0206=1216 RTR / @@0207=7012 RTR / @@0210=7012 RTR / @@0211=7012 JMS S0217 / @@0212=4217 TAD D0216 / @@0213=1216 JMS S0217 / @@0214=4217 JMP L0204 / @@0215=5204 D0216, 0000 / AND C0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0217 / / Called from: / 0212 0214 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0217, 0 / return area AND C0250 / @@0220=0250 SNA / @@0221=7450 C0222, 5410 / JMP I AI0 TAD C0251 / @@0223=1251 SMA / @@0224=7500 JMP L0230 / @@0225=5230 TAD C0252 / @@0226=1252 JMP L0243 / @@0227=5243 L0230, TAD C0253 / @@0230=1253 SZA / @@0231=7440 JMP L0235 / @@0232=5235 TAD C0254 / @@0233=1254 JMP L0243 / @@0234=5243 L0235, TAD C0255 / @@0235=1255 SZA / @@0236=7440 JMP L0242 / @@0237=5242 TAD C0256 / @@0240=1256 JMP L0243 / @@0241=5243 L0242, TAD C0257 / @@0242=1257 L0243, TLS / Load the TTO from the content of AC4 @@0243=6046 L0244, TSF / Skip if teleprinter flag is a 1. @@0244=6041 JMP L0244 / @@0245=5244 CLA / @@0246=7200 JMP I S0217 / return @@0247=5617 C0250, 0077 / AND C0077 C0251, 7740 / SMA SZA CLA C0252, 0340 / AND D0340 C0253, 7775 / CLA MQA SCA MQL ASR + C0254, 0212 / AND C0212 C0255, 7776 / SPA SNA SZL CLA OSR HLT C0256, 0215 / AND C0215 C0257, 0245 / AND C0245 D0260, 7402 / HLT NOP / @@0261=7000 NOP / @@0262=7000 L0263, CLA / @@0263=7200 TAD I D0260 / @@0264=1660 DCA D0267 / @@0265=3267 JMP I D0270 / long jump to L0272 @@0266=5670 D0267, 0000 / AND C0000 D0270, 0272 / AND C0272 JMP L0263 / @@0271=5263 C0272, 1667 / TAD I D0267 AND C0377 / @@0273=0377 DCA D0340 / @@0274=3340 TAD I D0267 / @@0275=1667 AND C0376 / @@0276=0376 DCA D0341 / @@0277=3341 TAD I D0267 / @@0300=1667 AND C0375 / @@0301=0375 DCA D0342 / @@0302=3342 TAD I D0267 / @@0303=1667 AND C0374 / @@0304=0374 DCA D0343 / @@0305=3343 TAD D0342 / @@0306=1342 CLL RTR / @@0307=7112 RAR / @@0310=7010 TAD D0343 / @@0311=1343 RTR / @@0312=7012 RAR / @@0313=7010 TAD C0344 / @@0314=1344 DCA D0342 / @@0315=3342 ISZ D0260 / @@0316=2260 C0317, 4270 / JMS D0270 TAD D0342 / @@0320=1342 DCA I D0267 / @@0321=3667 TAD D0341 / @@0322=1341 RAL / @@0323=7004 RTL / @@0324=7006 TAD D0340 / @@0325=1340 TAD C0344 / @@0326=1344 DCA D0343 / @@0327=3343 ISZ D0260 / @@0330=2260 C0331, 4270 / JMS D0270 TAD D0343 / @@0332=1343 DCA I D0267 / @@0333=3667 TAD C0373 / @@0334=1373 DCA D0270 / @@0335=3270 ISZ D0260 / @@0336=2260 JMP I D0260 / long jump to L7402 @@0337=5660 D0340, 0000 / AND C0000 D0341, 0000 / AND C0000 D0342, 0000 / AND C0000 D0343, 0000 / AND C0000 C0344, 6060 / 6060 *0373 C0373, 0272 / AND C0272 C0374, 7000 / NOP C0375, 0700 / AND I C0300 C0376, 0070 / AND C0070 C0377, 0007 / AND C0007 C0400, C0400, 7402 / HLT C0401, 4777 / JMS I C0577 IOF / Disable Interrupts @@0402=6002 C0403, 4776 / JMS I C0576 C0404, 0400 / AND I C0000 C0405, 0411 / AND I AI1 C0406, 0412 / AND I AI2 JMS I C0575 / long call to S0200 @@0407=4775 C0410, 4543 / JMS I C0143 C0411, 6060 / 6060 C0412, 6060 / 6060 C0413, 4000 / JMS C0000 C0414, 4776 / JMS I C0576 C0415, 3404 / DCA I C0004 C0416, 0422 / AND I C0022 C0417, 0423 / AND I C0023 JMS I C0575 / long call to S0200 @@0420=4775 C0421, 4040 / JMS C0040 C0422, 6060 / 6060 C0423, 6060 / 6060 C0424, 0000 / AND C0000 LAS / @@0425=7604 AND C0574 / @@0426=0374 SNA CLA / @@0427=7650 JMP I C0400 / long jump to L7402 @@0430=5600 TAD I C0573 / @@0431=1773 HLT / @@0432=7402 JMP I C0400 / long jump to L7402 @@0433=5600 C0434, C0434, 7402 / HLT C0435, 4777 / JMS I C0577 C0436, 4776 / JMS I C0576 C0437, 0434 / AND I C0034 C0440, 0444 / AND I C0044 C0441, 0445 / AND I C0045 JMS I C0575 / long call to S0200 @@0442=4775 C0443, 4543 / JMS I C0143 C0444, 6060 / 6060 C0445, 6060 / 6060 C0446, 0000 / AND C0000 C0447, 4776 / JMS I C0576 C0450, 3420 / DCA I C0020 C0451, 0463 / AND I C0063 C0452, 0464 / AND I C0064 C0453, 4776 / JMS I C0576 C0454, 3417 / DCA I AI7 C0455, 0467 / AND I C0067 C0456, 0470 / AND I C0070 JMS I C0575 / long call to S0200 @@0457=4775 C0460, 4040 / JMS C0040 AND I C0504 / @@0461=0704 C0462, 4040 / JMS C0040 C0463, 6060 / 6060 C0464, 6060 / 6060 C0465, 4002 / JMS C0002 C0466, 0440 / AND I C0040 C0467, 6060 / 6060 C0470, 6060 / 6060 C0471, 0000 / AND C0000 LAS / @@0472=7604 AND C0574 / @@0473=0374 SNA CLA / @@0474=7650 SKP / @@0475=7410 HLT / @@0476=7402 JMP I C0434 / long jump to L7402 @@0477=5634 C0500, C0500, 7402 / HLT C0501, 4777 / JMS I C0577 C0502, 4776 / JMS I C0576 AND I L0100 / @@0503=0500 C0504, 0510 / AND I C0110 AND I C0111 / @@0505=0511 JMS I C0575 / long call to S0200 @@0506=4775 C0507, 4543 / JMS I C0143 C0510, 6060 / 6060 C0511, 6060 / 6060 C0512, 0000 / AND C0000 C0513, 4776 / JMS I C0576 C0514, 3416 / DCA I AI6 C0515, 0527 / AND I C0127 C0516, 0530 / AND I C0130 C0517, 4776 / JMS I C0576 C0520, 3415 / DCA I AI5 C0521, 0533 / AND I C0133 C0522, 0534 / AND I C0134 JMS I C0575 / long call to S0200 @@0523=4775 C0524, 4040 / JMS C0040 AND I C0501 / @@0525=0701 C0526, 4040 / JMS C0040 C0527, 6060 / 6060 C0530, 6060 / 6060 C0531, 4002 / JMS C0002 C0532, 0140 / AND C0140 C0533, 6060 / 6060 C0534, 6060 / 6060 C0535, 0000 / AND C0000 LAS / @@0536=7604 AND C0574 / @@0537=0374 SNA CLA / @@0540=7650 SKP / @@0541=7410 HLT / @@0542=7402 JMP I C0500 / long jump to L7402 @@0543=5700 C0544, 0000 / AND C0000 *0573 C0573, 3404 / DCA I C0004 C0574, 2000 / ISZ C0000 C0575, C0575, 0200 / AND C0400 AND C0460 / @@0576=0260 DCA L0124 / @@0577=3124 L0600, C0600, 6622 / 6622 SKP / @@0601=7410 C0602, 4777 / JMS I C0777 C0603, 4776 / JMS I C0776 STA / AC = 7777 (-0001) @@0604=7240 DSAC / Skips next instruction if address co @@0605=6612 NOP / @@0606=7000 SZA / @@0607=7440 C0610, 4777 / JMS I C0777 C0611, 4776 / JMS I C0776 DSAC / Skips next instruction if address co @@0612=6612 SKP / @@0613=7410 C0614, 4777 / JMS I C0777 C0615, 4776 / JMS I C0776 C0616, 6614 / 6614 AND C0775 / @@0617=0375 SZA / @@0620=7440 C0621, 4777 / JMS I C0777 C0622, 4776 / JMS I C0776 C0623, 6614 / 6614 AND C0774 / @@0624=0374 SZA / @@0625=7440 C0626, 4777 / JMS I C0777 C0627, 4776 / JMS I C0776 STA / AC = 7777 (-0001) @@0630=7240 DCA I C0773 / @@0631=3773 STA / AC = 7777 (-0001) @@0632=7240 DCA I C0772 / @@0633=3772 DMAW / The contents of the AC are loaded in @@0634=6605 CLA / @@0635=7200 TAD I C0773 / @@0636=1773 SZA / @@0637=7440 C0640, 4777 / JMS I C0777 CLA / @@0641=7200 D0642, 1772 / TAD I C0772 SZA / @@0643=7440 C0644, 4777 / JMS I C0777 C0645, 4776 / JMS I C0776 STA / AC = 7777 (-0001) @@0646=7240 DCA I C0773 / @@0647=3773 STA / AC = 7777 (-0001) @@0650=7240 DMAW / The contents of the AC are loaded in @@0651=6605 SZA / @@0652=7440 C0653, 4777 / JMS I C0777 C0654, 4776 / JMS I C0776 STA / AC = 7777 (-0001) @@0655=7240 DCA I C0773 / @@0656=3773 STA / AC = 7777 (-0001) @@0657=7240 DMAR / The contents of the AC are loaded in @@0660=6603 SZA / @@0661=7440 C0662, 4777 / JMS I C0777 C0663, 4776 / JMS I C0776 DCEA / Clears the disk extended address and @@0664=6611 DMAC / Clear the AC then loads contents of @@0665=6626 SKP / @@0666=7410 C0667, 4777 / JMS I C0777 C0670, 4776 / JMS I C0776 DCMA / Clears memory address register, pari @@0671=6601 STA / AC = 7777 (-0001) @@0672=7240 DMAC / Clear the AC then loads contents of @@0673=6626 SZA / @@0674=7440 C0675, 4777 / JMS I C0777 C0676, 4776 / JMS I C0776 DCEA / Clears the disk extended address and @@0677=6611 DEAC / Clear the AC then loads the contents @@0700=6616 AND C0771 / @@0701=0371 SZA / @@0702=7440 C0703, 4777 / JMS I C0777 C0704, 4776 / JMS I C0776 DCEA / Clears the disk extended address and @@0705=6611 DEAC / Clear the AC then loads the contents @@0706=6616 AND C0770 / @@0707=0370 SZA / @@0710=7440 C0711, 4777 / JMS I C0777 C0712, 4776 / JMS I C0776 STA / AC = 7777 (-0001) @@0713=7240 DCA I C0772 / @@0714=3772 STA / AC = 7777 (-0001) @@0715=7240 DCA I C0773 / @@0716=3773 DMAW / The contents of the AC are loaded in @@0717=6605 C0720, 6622 / 6622 SKP / @@0721=7410 C0722, 4777 / JMS I C0777 C0723, 6622 / 6622 SKP / @@0724=7410 C0725, 4777 / JMS I C0777 C0726, 4776 / JMS I C0776 DMAW / The contents of the AC are loaded in @@0727=6605 CLA / @@0730=7200 DCA I C0773 / @@0731=3773 DCA I C0772 / @@0732=3772 DMAR / The contents of the AC are loaded in @@0733=6603 NOP / @@0734=7000 TAD I C0773 / @@0735=1773 SZA / @@0736=7440 C0737, 4777 / JMS I C0777 CLA / @@0740=7200 TAD I C0772 / @@0741=1772 SZA / @@0742=7440 C0743, 4777 / JMS I C0777 C0744, 4776 / JMS I C0776 JMP I C0767 / long jump to L1000 @@0745=5767 *0767 C0767, C0767, 1000 / TAD C0000 C0770, 0002 / AND C0002 C0771, 0004 / AND C0004 C0772, 7751 / CLA MQA SCA NMI C0773, 7750 / SPA SNA CLA C0774, 0070 / AND C0070 C0775, 3700 / DCA I C0700 DCA D0642 / @@0776=3242 C0777, 0400 / AND I C0000 L1000, C1000, 7240 / STA DCA I C1177 / @@1001=3777 STA / AC = 7777 (-0001) @@1002=7240 DCA I C1176 / @@1003=3776 DMAR / The contents of the AC are loaded in @@1004=6603 C1005, 6622 / 6622 SKP / @@1006=7410 C1007, 4775 / JMS I C1175 C1010, 6622 / 6622 SKP / @@1011=7410 C1012, 4775 / JMS I C1175 C1013, 4774 / JMS I C1174 CLA / @@1014=7200 DEAL / The disk extended-address extension @@1015=6615 CLA / @@1016=7200 DEAC / Clear the AC then loads the contents @@1017=6616 AND C1173 / @@1020=0373 SZA / @@1021=7440 C1022, 4775 / JMS I C1175 DEAC / Clear the AC then loads the contents @@1023=6616 AND C1172 / @@1024=0372 SZA / @@1025=7440 C1026, 4775 / JMS I C1175 C1027, 4774 / JMS I C1174 CLA CLL / AC = 0000 @@1030=7300 DCA I C1171 / @@1031=3771 L1032, DEAC / Clear the AC then loads the contents @@1032=6616 NOP / @@1033=7000 SMA / @@1034=7500 SKP / @@1035=7410 JMP L1042 / @@1036=5242 ISZ I C1171 / @@1037=2771 JMP L1032 / @@1040=5232 SKP / @@1041=7410 L1042, D1042, 4775 / JMS I C1175 C1043, 4774 / JMS I C1174 DEAC / Clear the AC then loads the contents @@1044=6616 AND C1170 / @@1045=0370 SZA / @@1046=7440 C1047, 4775 / JMS I C1175 C1050, 4774 / JMS I C1174 JMP I C1167 / long jump to L1200 @@1051=5767 *1167 C1167, C1167, 1200 / TAD L1000 C1170, 0001 / AND C0001 C1171, 3412 / DCA I AI2 C1172, 0070 / AND C0070 C1173, 3700 / DCA I C1100 DCA L1042 / @@1174=3242 C1175, 0400 / AND I C0000 C1176, 7751 / CLA MQA SCA NMI C1177, 7750 / SPA SNA CLA L1200, C1200, 6602 / 6602 DEAC / Clear the AC then loads the contents @@1201=6616 RTR / @@1202=7012 SZL / @@1203=7430 C1204, 4777 / JMS I C1377 C1205, 4776 / JMS I C1376 C1206, 6604 / 6604 DEAC / Clear the AC then loads the contents @@1207=6616 NOP / @@1210=7000 RTR / @@1211=7012 SZL / @@1212=7430 C1213, 4777 / JMS I C1377 C1214, 4776 / JMS I C1376 TAD C1377 / @@1215=1377 DEAL / The disk extended-address extension @@1216=6615 C1217, 6604 / 6604 DEAC / Clear the AC then loads the contents @@1220=6616 NOP / @@1221=7000 RTR / @@1222=7012 SZL / @@1223=7430 C1224, 4777 / JMS I C1377 C1225, 4776 / JMS I C1376 TAD C1375 / @@1226=1375 DEAL / The disk extended-address extension @@1227=6615 DEAC / Clear the AC then loads the contents @@1230=6616 NOP / @@1231=7000 SMA / @@1232=7500 C1233, 4777 / JMS I C1377 C1234, 4776 / JMS I C1376 TAD C1374 / @@1235=1374 DEAL / The disk extended-address extension @@1236=6615 DEAC / Clear the AC then loads the contents @@1237=6616 NOP / @@1240=7000 SMA / @@1241=7500 D1242, 4777 / JMS I C1377 C1243, 4776 / JMS I C1376 TAD C1373 / @@1244=1373 DEAL / The disk extended-address extension @@1245=6615 DEAC / Clear the AC then loads the contents @@1246=6616 NOP / @@1247=7000 SMA / @@1250=7500 C1251, 4777 / JMS I C1377 C1252, 4776 / JMS I C1376 DCEA / Clears the disk extended address and @@1253=6611 STA / AC = 7777 (-0001) @@1254=7240 DEAL / The disk extended-address extension @@1255=6615 AND C1372 / @@1256=0372 DCA I C1371 / @@1257=3771 TAD I C1371 / @@1260=1771 CIA / @@1261=7041 TAD C1372 / @@1262=1372 SNA CLA / @@1263=7650 JMP L1267 / @@1264=5267 TAD I C1371 / @@1265=1771 C1266, 4777 / JMS I C1377 L1267, NOP / @@1267=7000 STA / AC = 7777 (-0001) @@1270=7240 DEAL / The disk extended-address extension @@1271=6615 AND C1370 / @@1272=0370 DCA I C1371 / @@1273=3771 TAD I C1371 / @@1274=1771 CIA / @@1275=7041 TAD C1370 / @@1276=1370 SNA CLA / @@1277=7650 JMP L1303 / @@1300=5303 TAD I C1371 / @@1301=1771 C1302, 4777 / JMS I C1377 L1303, C1303, 4776 / JMS I C1376 DCEA / Clears the disk extended address and @@1304=6611 DMAR / The contents of the AC are loaded in @@1305=6603 DFSE / Skip next instruction if the complet @@1306=6621 C1307, 4777 / JMS I C1377 C1310, 4776 / JMS I C1376 C1311, 4340 / JMS C1340 CLA / @@1312=7200 TAD C1367 / @@1313=1367 C1314, 3001 / DCA C0001 TAD C1366 / @@1315=1366 C1316, 3002 / DCA C0002 TAD C1365 / @@1317=1365 C1320, 3003 / DCA C0003 STA / AC = 7777 (-0001) @@1321=7240 DCA I C1364 / @@1322=3764 DMAW / The contents of the AC are loaded in @@1323=6605 ION / Enable Interrupts @@1324=6001 SKP / @@1325=7410 C1326, 4777 / JMS I C1377 IOF / Disable Interrupts @@1327=6002 C1330, 4776 / JMS I C1376 DCEA / Clears the disk extended address and @@1331=6611 DCMA / Clears memory address register, pari @@1332=6601 LAS / @@1333=7604 AND C1377 / @@1334=0377 SZA / @@1335=7440 JMP I C1363 / long jump to L0600 @@1336=5763 JMP I C1362 / long jump to L1400 @@1337=5762 C1340, C1340, 7402 / HLT DCMA / Clears memory address register, pari @@1341=6601 IOF / Disable Interrupts @@1342=6002 PCF / Clear punch flag and punch buffer. @@1343=6022 TCF / Clear teleprinter flag. @@1344=6042 RFB / Read the content of the reader buffe @@1345=6012 DCF / (Light Pen Type 370) Clear the displ @@1346=6072 PLCF / Clear plotter flag. @@1347=6502 KCC / Clear AC and clear keyboard flag. @@1350=6032 DCTA / Clear status register A. All flags @@1351=6762 JMP I C1340 / long jump to L7402 @@1352=5740 C1353, C1353, 7402 / HLT ISZ I C1361 / @@1354=2761 CLA / @@1355=7200 TAD I C1361 / @@1356=1761 JMP I C1353 / long jump to L7402 @@1357=5753 *1361 C1361, 3412 / DCA I AI2 C1362, C1362, 1400 / TAD I C0000 C1363, C1363, 0600 / AND I L1200 C1364, 7750 / SPA SNA CLA C1365, 1326 / TAD C1326 C1366, 5403 / JMP I C0003 C1367, 6002 / IOF C1370, 0070 / AND C0070 C1371, 3415 / DCA I AI5 C1372, 3700 / DCA I C1300 C1373, 1000 / TAD C0000 C1374, 2000 / ISZ C0000 C1375, 3000 / DCA C0000 DCA D1242 / @@1376=3242 C1377, 0400 / AND I C0000 L1400, C1400, 6603 / DMAR C1401, 1377 / TAD C1577 DEAL / The disk extended-address extension @@1402=6615 DFSE / Skip next instruction if the complet @@1403=6621 C1404, 4777 / JMS I C1577 C1405, 4776 / JMS I C1576 DMAW / The contents of the AC are loaded in @@1406=6605 TAD C1577 / @@1407=1377 DEAL / The disk extended-address extension @@1410=6615 DFSE / Skip next instruction if the complet @@1411=6621 C1412, 4777 / JMS I C1577 C1413, 4776 / JMS I C1576 DCEA / Clears the disk extended address and @@1414=6611 DMAW / The contents of the AC are loaded in @@1415=6605 DFSE / Skip next instruction if the complet @@1416=6621 C1417, 4777 / JMS I C1577 C1420, 4776 / JMS I C1576 L1421, CLA / @@1421=7200 IOF / Disable Interrupts @@1422=6002 DCA I C1575 / @@1423=3775 C1424, 4774 / JMS I C1574 STA / AC = 7777 (-0001) @@1425=7240 C1426, 4774 / JMS I C1574 L1427, C1427, 4773 / JMS I C1573 C1430, 4774 / JMS I C1574 ISZ I C1575 / @@1431=2775 JMP L1427 / @@1432=5227 C1433, 4776 / JMS I C1576 STA / AC = 7777 (-0001) @@1434=7240 DEAL / The disk extended-address extension @@1435=6615 NOP / @@1436=7000 NOP / @@1437=7000 C1440, 7000 / NOP CLA / @@1441=7200 D1442, 3775 / DCA I C1575 C1443, 4772 / JMS I C1572 STA / AC = 7777 (-0001) @@1444=7240 L1445, C1445, 4772 / JMS I C1572 C1446, 4773 / JMS I C1573 ISZ I C1575 / @@1447=2775 JMP L1445 / @@1450=5245 C1451, 4776 / JMS I C1576 CLA / @@1452=7200 DCEA / Clears the disk extended address and @@1453=6611 DCA I C1575 / @@1454=3775 C1455, 4771 / JMS I C1571 STA / AC = 7777 (-0001) @@1456=7240 C1457, 4771 / JMS I C1571 L1460, C1460, 4773 / JMS I C1573 C1461, 4771 / JMS I C1571 ISZ I C1575 / @@1462=2775 JMP L1460 / @@1463=5260 C1464, 4776 / JMS I C1576 LAS / @@1465=7604 AND C1577 / @@1466=0377 SZA / @@1467=7440 JMP L1421 / @@1470=5221 L1471, CLA / @@1471=7200 TAD C1570 / @@1472=1370 DEAL / The disk extended-address extension @@1473=6615 RCSF / Generates an IOP pulse (IOP 1) to te @@1474=6631 DEAC / Clear the AC then loads the contents @@1475=6616 AND C1567 / @@1476=0367 TAD C1566 / @@1477=1366 SNA / @@1500=7450 JMP L1504 / @@1501=5304 DEAC / Clear the AC then loads the contents @@1502=6616 C1503, 4777 / JMS I C1577 L1504, CLA / @@1504=7200 DEAL / The disk extended-address extension @@1505=6615 C1506, 4776 / JMS I C1576 CLA / @@1507=7200 TAD C1565 / @@1510=1365 C1511, 3001 / DCA C0001 TAD C1564 / @@1512=1364 C1513, 3002 / DCA C0002 TAD C1570 / @@1514=1370 DEAL / The disk extended-address extension @@1515=6615 ION / Enable Interrupts @@1516=6001 NOP / @@1517=7000 IOF / Disable Interrupts @@1520=6002 C1521, 4777 / JMS I C1577 CLA / @@1522=7200 C1523, 4776 / JMS I C1576 DCMA / Clears memory address register, pari @@1524=6601 RCRA / Generates an IOP pulse (IOP 2) to re @@1525=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@1526=6632 TAD C1570 / @@1527=1370 DEAL / The disk extended-address extension @@1530=6615 RCSF / Generates an IOP pulse (IOP 1) to te @@1531=6631 DFSE / Skip next instruction if the complet @@1532=6621 C1533, 4777 / JMS I C1577 C1534, 4776 / JMS I C1576 DCEA / Clears the disk extended address and @@1535=6611 DCMA / Clears memory address register, pari @@1536=6601 STA / AC = 7777 (-0001) @@1537=7240 DCA I C1563 / @@1540=3763 DMAW / The contents of the AC are loaded in @@1541=6605 TAD C1570 / @@1542=1370 DEAL / The disk extended-address extension @@1543=6615 RCSF / Generates an IOP pulse (IOP 1) to te @@1544=6631 DEAC / Clear the AC then loads the contents @@1545=6616 NOP / @@1546=7000 C1547, 6622 / 6622 C1550, 4777 / JMS I C1577 C1551, 4776 / JMS I C1576 JMP I C1562 / long jump to L1600 @@1552=5762 *1562 C1562, C1562, 1600 / TAD I L1400 C1563, 7750 / SPA SNA CLA C1564, 1523 / TAD I C0123 C1565, 5402 / JMP I C0002 C1566, 7776 / SPA SNA SZL CLA OSR HLT C1567, 0002 / AND C0002 C1570, 3000 / DCA C0000 TAD I C1440 / @@1571=1640 TAD I C1420 / @@1572=1620 C1573, 1353 / TAD C1553 TAD I C1401 / @@1574=1601 C1575, 3411 / DCA I AI1 DCA D1442 / @@1576=3242 C1577, 0400 / AND I C0000 L1600, JMP I C1777 / long jump to L2000 @@1600=5777 C1601, C1601, 7402 / HLT DCA I C1776 / @@1602=3776 DCA I C1775 / @@1603=3775 TAD I C1776 / @@1604=1776 DMAR / The contents of the AC are loaded in @@1605=6603 CLA / @@1606=7200 C1607, 6624 / 6624 DCA I C1774 / @@1610=3774 TAD I C1774 / @@1611=1774 CIA / @@1612=7041 TAD I C1776 / @@1613=1776 SZA / @@1614=7440 C1615, 4773 / JMS I C1773 CLA / @@1616=7200 JMP I C1601 / long jump to L7402 @@1617=5601 C1620, C1620, 7402 / HLT AND C1772 / @@1621=0372 DCA I C1776 / @@1622=3776 TAD I C1776 / @@1623=1776 DEAL / The disk extended-address extension @@1624=6615 CLA / @@1625=7200 C1626, 6614 / 6614 AND C1772 / @@1627=0372 DCA I C1774 / @@1630=3774 TAD I C1774 / @@1631=1774 CIA / @@1632=7041 TAD I C1776 / @@1633=1776 SZA / @@1634=7440 C1635, 4773 / JMS I C1773 CLA / @@1636=7200 JMP I C1620 / long jump to L7402 @@1637=5620 C1640, C1640, 7402 / HLT DCA I C1771 / @@1641=3771 STA / AC = 7777 (-0001) @@1642=7240 DCA I C1770 / @@1643=3770 TAD C1767 / @@1644=1367 DCA I C1775 / @@1645=3775 C1646, 6604 / 6604 STA / AC = 7777 (-0001) @@1647=7240 DCA I C1770 / @@1650=3770 TAD C1776 / @@1651=1376 DCA I C1775 / @@1652=3775 C1653, 6602 / 6602 RCRB / Generates an IOP pulse (IOP 4) to re @@1654=6634 CLA / @@1655=7200 TAD I C1771 / @@1656=1771 CIA / @@1657=7041 TAD I C1767 / @@1660=1767 SZA / @@1661=7440 C1662, 4766 / JMS I C1766 CLA / @@1663=7200 JMP I C1640 / long jump to L7402 @@1664=5640 *1766 C1766, 0434 / AND I C0034 C1767, 3417 / DCA I AI7 C1770, 7750 / SPA SNA CLA C1771, 3420 / DCA I C0020 C1772, 3770 / DCA I C1770 AND I L0100 / @@1773=0500 C1774, 3415 / DCA I AI5 C1775, 7751 / CLA MQA SCA NMI C1776, 3416 / DCA I AI6 C1777, C1777, 2000 / ISZ C0000 L2000, D2000, 5215 / JMP L2015 L2001, C2001, 7200 / CLA LAS / @@2002=7604 C2003, 4777 / JMS I C2177 JMP L2001 / @@2004=5201 L2005, CLA / @@2005=7200 LAS / @@2006=7604 C2007, 4776 / JMS I C2176 JMP L2005 / @@2010=5205 L2011, CLA / @@2011=7200 LAS / @@2012=7604 C2013, 4775 / JMS I C2175 C2014, 4211 / JMS L2011 L2015, JMP I C2174 / long jump to L2200 @@2015=5774 *2174 C2174, C2174, 2200 / ISZ L2000 C2175, 1620 / TAD I C2020 TAD I L2001 / @@2176=1601 C2177, 1640 / TAD I C2040 L2200, C2200, 4777 / JMS I C2377 DCMA / Clears memory address register, pari @@2201=6601 DCEA / Clears the disk extended address and @@2202=6611 C2203, 4776 / JMS I C2376 CLA / @@2204=7200 TAD C2375 / @@2205=1375 DMAW / The contents of the AC are loaded in @@2206=6605 RCRA / Generates an IOP pulse (IOP 2) to re @@2207=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@2210=6632 C2211, 4774 / JMS I C2374 DMAC / Clear the AC then loads contents of @@2212=6626 DCA I C2373 / @@2213=3773 TAD C2372 / @@2214=1372 CIA / @@2215=7041 TAD I C2373 / @@2216=1773 SNA CLA / @@2217=7650 JMP L2223 / @@2220=5223 TAD I C2373 / @@2221=1773 C2222, 4771 / JMS I C2371 L2223, C2223, 4777 / JMS I C2377 C2224, 4776 / JMS I C2376 CLA / @@2225=7200 TAD C2370 / @@2226=1370 DMAW / The contents of the AC are loaded in @@2227=6605 RCRA / Generates an IOP pulse (IOP 2) to re @@2230=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@2231=6632 C2232, 4774 / JMS I C2374 DMAC / Clear the AC then loads contents of @@2233=6626 DCA I C2373 / @@2234=3773 TAD C2367 / @@2235=1367 CIA / @@2236=7041 TAD I C2373 / @@2237=1773 SNA CLA / @@2240=7650 JMP L2244 / @@2241=5244 D2242, 1773 / TAD I C2373 C2243, 4771 / JMS I C2371 L2244, C2244, 4777 / JMS I C2377 TAD C2366 / @@2245=1366 DCA I C2365 / @@2246=3765 RCSF / Generates an IOP pulse (IOP 1) to te @@2247=6631 DMAC / Clear the AC then loads contents of @@2250=6626 DCA I C2373 / @@2251=3773 TAD I C2373 / @@2252=1773 D2253, 7041 / CIA TAD I C2365 / @@2254=1765 SNA CLA / @@2255=7650 JMP L2261 / @@2256=5261 TAD I C2373 / @@2257=1773 C2260, 4771 / JMS I C2371 L2261, LAS / @@2261=7604 AND C2364 / @@2262=0364 SZA CLA / @@2263=7640 JMP I C2363 / long jump to L3253 @@2264=5763 TAD C2362 / @@2265=1362 DCA I C2365 / @@2266=3765 RCSF / Generates an IOP pulse (IOP 1) to te @@2267=6631 DMAC / Clear the AC then loads contents of @@2270=6626 DCA I C2373 / @@2271=3773 TAD I C2373 / @@2272=1773 CIA / @@2273=7041 TAD I C2365 / @@2274=1765 SNA CLA / @@2275=7650 JMP L2301 / @@2276=5301 TAD I C2373 / @@2277=1773 C2300, 4771 / JMS I C2371 L2301, LAS / @@2301=7604 AND C2364 / @@2302=0364 SZA CLA / @@2303=7640 JMP I C2363 / long jump to L3253 @@2304=5763 C2305, 4761 / JMS I C2361 DSAC / Skips next instruction if address co @@2306=6612 C2307, 4771 / JMS I C2371 C2310, 4777 / JMS I C2377 DCMA / Clears memory address register, pari @@2311=6601 DCEA / Clears the disk extended address and @@2312=6611 STA / AC = 7777 (-0001) @@2313=7240 DCA I C2360 / @@2314=3760 STA / AC = 7777 (-0001) @@2315=7240 DCA I C2357 / @@2316=3757 TAD C2356 / @@2317=1356 DCA I C2355 / @@2320=3755 C2321, 4754 / JMS I C2354 STA / AC = 7777 (-0001) @@2322=7240 DCA I C2357 / @@2323=3757 TAD C2365 / @@2324=1365 DCA I C2355 / @@2325=3755 C2326, 4753 / JMS I C2353 C2327, 6602 / 6602 RCRB / Generates an IOP pulse (IOP 4) to re @@2330=6634 CLA / @@2331=7200 TAD C2352 / @@2332=1352 CIA / @@2333=7041 TAD I C2356 / @@2334=1756 SNA CLA / @@2335=7650 JMP L2341 / @@2336=5341 TAD I C2356 / @@2337=1756 C2340, 4771 / JMS I C2371 L2341, C2341, 4777 / JMS I C2377 JMP I C2351 / long jump to L2400 @@2342=5751 *2351 C2351, C2351, 2400 / ISZ I C0000 C2352, 7777 / CLA MQA SCA MQL LSR + C2353, 3030 / DCA C0030 C2354, 3024 / DCA C0024 C2355, 7751 / CLA MQA SCA NMI C2356, 3417 / DCA I AI7 C2357, 7750 / SPA SNA CLA C2360, 3420 / DCA I C0020 C2361, 3017 / DCA AI7 C2362, 5525 / JMP I C0125 C2363, C2363, 3253 / DCA D2253 C2364, 1000 / TAD C0000 C2365, 3416 / DCA I AI6 C2366, 7252 / CLA CMA RTR C2367, 6525 / 6525 C2370, 5252 / JMP C2252 C2371, 0400 / AND I C0000 C2372, 1252 / TAD C2252 C2373, 3415 / DCA I AI5 C2374, 3013 / DCA AI3 C2375, 2525 / ISZ I C0125 C2376, 3000 / DCA C0000 DCA D2242 / @@2377=3242 L2400, C2400, 6601 / DCMA DCEA / Clears the disk extended address and @@2401=6611 CLA / @@2402=7200 DCA I C2577 / @@2403=3777 STA / AC = 7777 (-0001) @@2404=7240 DCA I C2576 / @@2405=3776 TAD C2575 / @@2406=1375 DCA I C2574 / @@2407=3774 C2410, 4773 / JMS I C2573 STA / AC = 7777 (-0001) @@2411=7240 DCA I C2576 / @@2412=3776 TAD C2572 / @@2413=1372 DCA I C2574 / @@2414=3774 C2415, 4771 / JMS I C2571 C2416, 6602 / 6602 RCRB / Generates an IOP pulse (IOP 4) to re @@2417=6634 CLA / @@2420=7200 TAD C2570 / @@2421=1370 CIA / @@2422=7041 TAD I C2575 / @@2423=1775 SNA CLA / @@2424=7650 JMP L2430 / @@2425=5230 TAD I C2575 / @@2426=1775 C2427, 4767 / JMS I C2567 L2430, C2430, 4766 / JMS I C2566 CLA / @@2431=7200 DCMA / Clears memory address register, pari @@2432=6601 DCEA / Clears the disk extended address and @@2433=6611 TAD C2565 / @@2434=1365 DCA I C2577 / @@2435=3777 STA / AC = 7777 (-0001) @@2436=7240 DCA I C2576 / @@2437=3776 TAD C2575 / @@2440=1375 DCA I C2574 / @@2441=3774 D2442, 4773 / JMS I C2573 STA / AC = 7777 (-0001) @@2443=7240 DCA I C2576 / @@2444=3776 TAD C2572 / @@2445=1372 DCA I C2574 / @@2446=3774 C2447, 4771 / JMS I C2571 C2450, 6602 / 6602 RCRB / Generates an IOP pulse (IOP 4) to re @@2451=6634 CLA / @@2452=7200 TAD C2564 / @@2453=1364 CIA / @@2454=7041 TAD I C2575 / @@2455=1775 SNA CLA / @@2456=7650 JMP L2462 / @@2457=5262 TAD I C2575 / @@2460=1775 C2461, 4767 / JMS I C2567 L2462, C2462, 4766 / JMS I C2566 DCMA / Clears memory address register, pari @@2463=6601 DCEA / Clears the disk extended address and @@2464=6611 CLA / @@2465=7200 TAD C2565 / @@2466=1365 DCA I C2577 / @@2467=3777 STA / AC = 7777 (-0001) @@2470=7240 DCA I C2576 / @@2471=3776 TAD C2575 / @@2472=1375 DCA I C2574 / @@2473=3774 C2474, 4773 / JMS I C2573 RCSF / Generates an IOP pulse (IOP 1) to te @@2475=6631 STA / AC = 7777 (-0001) @@2476=7240 DCA I C2576 / @@2477=3776 TAD C2572 / @@2500=1372 DCA I C2574 / @@2501=3774 C2502, 4771 / JMS I C2571 C2503, 6602 / 6602 RCRB / Generates an IOP pulse (IOP 4) to re @@2504=6634 CLA / @@2505=7200 TAD C2565 / @@2506=1365 CIA / @@2507=7041 TAD I C2575 / @@2510=1775 SNA CLA / @@2511=7650 JMP L2515 / @@2512=5315 TAD I C2575 / @@2513=1775 C2514, 4767 / JMS I C2567 L2515, C2515, 4766 / JMS I C2566 JMP I C2563 / long jump to L2600 @@2516=5763 *2563 C2563, C2563, 2600 / ISZ I L2400 C2564, 5252 / JMP C2452 C2565, 2525 / ISZ I C0125 DCA D2442 / @@2566=3242 C2567, 0400 / AND I C0000 C2570, 4000 / JMS C0000 C2571, 3030 / DCA C0030 C2572, 3416 / DCA I AI6 C2573, 3024 / DCA C0024 C2574, 7751 / CLA MQA SCA NMI C2575, 3417 / DCA I AI7 C2576, 7750 / SPA SNA CLA C2577, 3420 / DCA I C0020 L2600, C2600, 7200 / CLA DMAW / The contents of the AC are loaded in @@2601=6605 C2602, 4777 / JMS I C2777 STA / AC = 7777 (-0001) @@2603=7240 DMAW / The contents of the AC are loaded in @@2604=6605 C2605, 4777 / JMS I C2777 DMAC / Clear the AC then loads contents of @@2606=6626 DCA I C2776 / @@2607=3776 TAD C2775 / @@2610=1375 CIA / @@2611=7041 TAD I C2776 / @@2612=1776 SNA CLA / @@2613=7650 JMP L2617 / @@2614=5217 TAD I C2776 / @@2615=1776 C2616, 4774 / JMS I C2774 L2617, C2617, 4773 / JMS I C2773 D2620, 7410 / SKP JMP L2635 / @@2621=5235 DCMA / Clears memory address register, pari @@2622=6601 C2623, 4772 / JMS I C2772 C2624, 6604 / 6604 RCRA / Generates an IOP pulse (IOP 2) to re @@2625=6632 DEAC / Clear the AC then loads the contents @@2626=6616 AND C2771 / @@2627=0371 SNA / @@2630=7450 C2631, 4774 / JMS I C2774 DFSE / Skip next instruction if the complet @@2632=6621 SKP / @@2633=7410 C2634, 4774 / JMS I C2774 L2635, C2635, 4773 / JMS I C2773 C2636, 4770 / JMS I C2770 C2637, 6622 / 6622 C2640, 4774 / JMS I C2774 C2641, 4773 / JMS I C2773 D2642, 7200 / CLA TAD C2767 / @@2643=1367 C2644, 3001 / DCA C0001 TAD C2766 / @@2645=1366 C2646, 3002 / DCA C0002 C2647, 4770 / JMS I C2770 ION / Enable Interrupts @@2650=6001 NOP / @@2651=7000 C2652, 4774 / JMS I C2774 C2653, 4773 / JMS I C2773 DCEA / Clears the disk extended address and @@2654=6611 CLA / @@2655=7200 TAD C2765 / @@2656=1365 DCA D2764 / @@2657=3364 DEAL / The disk extended-address extension @@2660=6615 L2661, STA / AC = 7777 (-0001) @@2661=7240 C2662, 4763 / JMS I C2763 DCMA / Clears memory address register, pari @@2663=6601 ISZ D2764 / @@2664=2364 JMP L2661 / @@2665=5261 DEAC / Clear the AC then loads the contents @@2666=6616 AND C2762 / @@2667=0362 TAD C2761 / @@2670=1361 SNA / @@2671=7450 JMP L2675 / @@2672=5275 DEAC / Clear the AC then loads the contents @@2673=6616 C2674, 4774 / JMS I C2774 L2675, C2675, 4773 / JMS I C2773 STA / AC = 7777 (-0001) @@2676=7240 C2677, 4763 / JMS I C2763 DCMA / Clears memory address register, pari @@2700=6601 DEAC / Clear the AC then loads the contents @@2701=6616 AND C2762 / @@2702=0362 SZA / @@2703=7440 C2704, 4774 / JMS I C2774 C2705, 4773 / JMS I C2773 C2706, 4760 / JMS I C2760 LAS / @@2707=7604 AND C2774 / @@2710=0374 SZA CLA / @@2711=7640 JMP I C2757 / long jump to L1471 @@2712=5757 C2713, 4760 / JMS I C2760 DCEA / Clears the disk extended address and @@2714=6611 DCMA / Clears memory address register, pari @@2715=6601 LAS / @@2716=7604 AND C2756 / @@2717=0356 SZA CLA / @@2720=7640 JMP I C2755 / long jump to L0600 @@2721=5755 CLA / @@2722=7200 DCEA / Clears the disk extended address and @@2723=6611 TAD C2754 / @@2724=1354 DCA I C2753 / @@2725=3753 DCA I C2752 / @@2726=3752 L2727, C2727, 4751 / JMS I C2751 ISZ I C2752 / @@2730=2752 CLA / @@2731=7200 TAD I C2750 / @@2732=1750 ISZ I C2747 / @@2733=2747 JMP L2727 / @@2734=5327 DCEA / Clears the disk extended address and @@2735=6611 DCMA / Clears memory address register, pari @@2736=6601 C2737, 4746 / JMS I C2746 C2740, 4745 / JMS I C2745 JMP I C2744 / long jump to L0600 @@2741=5744 *2744 C2744, C2744, 0600 / AND I L2600 C2745, 3030 / DCA C0030 DCA D2642 / @@2746=3242 C2747, 3411 / DCA I AI1 C2750, 3400 / DCA I C0000 C2751, 3051 / DCA C0051 C2752, 3400 / DCA I C0000 C2753, 3411 / DCA I AI1 C2754, 7760 / SMA SZA SNL CLA C2755, C2755, 0600 / AND I L2600 C2756, 0200 / AND L2600 C2757, C2757, 1471 / TAD I C0071 C2760, 3030 / DCA C0030 C2761, 4100 / JMS L0100 C2762, 3700 / DCA I C2700 C2763, 3044 / DCA C0044 D2764, 7402 / HLT C2765, 7741 / CLA MQA SCA C2766, 2653 / ISZ I C2653 C2767, 5402 / JMP I C0002 C2770, 3034 / DCA C0034 C2771, 0004 / AND C0004 C2772, 3017 / DCA AI7 DCA D2642 / @@2773=3242 C2774, 0400 / AND I C0000 C2775, 5777 / JMP I C2777 C2776, 3415 / DCA I AI5 C2777, 3013 / DCA AI3 C3000, C3000, 7402 / HLT C3001, 6606 / 6606 RCRA / Generates an IOP pulse (IOP 2) to re @@3002=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@3003=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@3004=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@3005=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@3006=6632 RCSF / Generates an IOP pulse (IOP 1) to te @@3007=6631 RCRA / Generates an IOP pulse (IOP 2) to re @@3010=6632 RCSF / Generates an IOP pulse (IOP 1) to te @@3011=6631 JMP I C3000 / long jump to L7402 @@3012=5600 C3013, C3013, 7402 / HLT C3014, 4200 / JMS C3000 RCSF / Generates an IOP pulse (IOP 1) to te @@3015=6631 JMP I C3013 / long jump to L7402 @@3016=5613 C3017, C3017, 7402 / HLT C3020, 4200 / JMS C3000 RCRA / Generates an IOP pulse (IOP 2) to re @@3021=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@3022=6632 JMP I C3017 / long jump to L7402 @@3023=5617 C3024, C3024, 7402 / HLT C3025, 4217 / JMS C3017 RCSF / Generates an IOP pulse (IOP 1) to te @@3026=6631 JMP I C3024 / long jump to L7402 @@3027=5624 C3030, C3030, 7402 / HLT RCRA / Generates an IOP pulse (IOP 2) to re @@3031=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@3032=6632 JMP I C3030 / long jump to L7402 @@3033=5630 C3034, C3034, 7402 / HLT DCMA / Clears memory address register, pari @@3035=6601 STA / AC = 7777 (-0001) @@3036=7240 DCA I C3177 / @@3037=3777 STA / AC = 7777 (-0001) @@3040=7240 DCA I C3176 / @@3041=3776 C3042, 4244 / JMS C3044 JMP I C3034 / long jump to L7402 @@3043=5634 C3044, C3044, 7402 / HLT C3045, 4217 / JMS C3017 RCRA / Generates an IOP pulse (IOP 2) to re @@3046=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@3047=6632 JMP I C3044 / long jump to L7402 @@3050=5644 C3051, C3051, 7402 / HLT DCMA / Clears memory address register, pari @@3052=6601 DCA D3175 / @@3053=3375 TAD D3175 / @@3054=1375 AND C3174 / @@3055=0374 SNA / @@3056=7450 JMP L3064 / @@3057=5264 C3060, 4267 / JMS C3067 RCSF / Generates an IOP pulse (IOP 1) to te @@3061=6631 C3062, 4311 / JMS C3111 JMP I C3051 / long jump to L7402 @@3063=5651 L3064, C3064, 4267 / JMS C3067 C3065, 4311 / JMS C3111 JMP I C3051 / long jump to L7402 @@3066=5651 C3067, C3067, 7402 / HLT CLA / @@3070=7200 TAD C3173 / @@3071=1373 DCA I C3172 / @@3072=3772 TAD C3171 / @@3073=1371 DCA I C3176 / @@3074=3776 TAD D3175 / @@3075=1375 RTR / @@3076=7012 DCEA / Clears the disk extended address and @@3077=6611 RCSF / Generates an IOP pulse (IOP 1) to te @@3100=6631 RCRA / Generates an IOP pulse (IOP 2) to re @@3101=6632 C3102, 4217 / JMS C3017 TAD D3175 / @@3103=1375 CLL RAL / @@3104=7104 RTL / @@3105=7006 RTL / @@3106=7006 DEAL / The disk extended-address extension @@3107=6615 JMP I C3067 / long jump to L7402 @@3110=5667 C3111, C3111, 7402 / HLT STA / AC = 7777 (-0001) @@3112=7240 D3113, 1370 / TAD C3170 DCA D3122 / @@3114=3322 L3115, ISZ D3123 / @@3115=2323 JMP L3115 / @@3116=5315 ISZ D3122 / @@3117=2322 JMP L3115 / @@3120=5315 JMP I C3111 / long jump to L7402 @@3121=5711 D3122, 0000 / AND C0000 D3123, 0000 / AND C0000 D3124, 7402 / HLT DCA I C3167 / @@3125=3767 LAS / @@3126=7604 AND C3166 / @@3127=0366 SNA CLA / @@3130=7650 JMP L3137 / @@3131=5337 TAD D3124 / @@3132=1324 TAD C3165 / @@3133=1365 DCA D3124 / @@3134=3324 TAD I D3124 / @@3135=1724 DCA D3124 / @@3136=3324 L3137, TAD I C3167 / @@3137=1767 JMP I D3124 / long jump to L7402 @@3140=5724 *3165 C3165, 7776 / SPA SNA SZL CLA OSR HLT C3166, 4000 / JMS C0000 C3167, 3404 / DCA I C0004 C3170, 7740 / SMA SZA CLA C3171, 3417 / DCA I AI7 C3172, 3420 / DCA I C0020 C3173, 7777 / CLA MQA SCA MQL LSR + C3174, 0004 / AND C0004 D3175, 7402 / HLT C3176, 7751 / CLA MQA SCA NMI C3177, 7750 / SPA SNA CLA L3200, C3200, 6611 / DCEA C3201, 4777 / JMS I C3377 RCRA / Generates an IOP pulse (IOP 2) to re @@3202=6632 RCRA / Generates an IOP pulse (IOP 2) to re @@3203=6632 JMP L3200 / @@3204=5200 L3205, DCEA / Clears the disk extended address and @@3205=6611 C3206, 4776 / JMS I C3376 JMP L3205 / @@3207=5205 L3210, DCEA / Clears the disk extended address and @@3210=6611 C3211, 4775 / JMS I C3375 JMP L3210 / @@3212=5210 L3213, DCEA / Clears the disk extended address and @@3213=6611 C3214, 4774 / JMS I C3374 JMP L3213 / @@3215=5213 L3216, DCEA / Clears the disk extended address and @@3216=6611 C3217, 4773 / JMS I C3373 JMP L3216 / @@3220=5216 L3221, DCEA / Clears the disk extended address and @@3221=6611 C3222, 4772 / JMS I C3372 JMP L3221 / @@3223=5221 L3224, NOP / @@3224=7000 L3225, CLA / @@3225=7200 DCA I C3371 / @@3226=3771 DCA I C3370 / @@3227=3770 LAS / @@3230=7604 AND C3367 / @@3231=0367 TAD C3366 / @@3232=1366 DCA D3234 / @@3233=3234 D3234, 7402 / HLT NOP / @@3235=7000 JMP L3225 / @@3236=5225 L3237, LAS / @@3237=7604 C3240, 4765 / JMS I C3365 JMP L3237 / @@3241=5237 C3242, C3242, 7402 / HLT LAS / @@3243=7604 AND C3364 / @@3244=0364 SZA CLA / @@3245=7640 JMP I D3252 / long jump to L3363 @@3246=5652 TAD C3242 / @@3247=1242 DCA D3252 / @@3250=3252 JMP I C3242 / long jump to L7402 @@3251=5642 D3252, 3363 / DCA C3363 L3253, JMP I D3252 / long jump to L3363 @@3253=5652 *3363 AND I L3200 / @@3363=0600 C3364, 1000 / TAD C0000 C3365, 3051 / DCA C0051 C3366, 6600 / 6600 C3367, 0037 / AND C0037 C3370, 7751 / CLA MQA SCA NMI C3371, 7750 / SPA SNA CLA C3372, 3034 / DCA C0034 C3373, 3044 / DCA C0044 C3374, 3024 / DCA C0024 C3375, 3017 / DCA AI7 C3376, 3013 / DCA AI3 C3377, 3000 / DCA C0000 D3400, 0000 / AND C0000 C3401, 0000 / AND C0000 C3402, 0000 / AND C0000 C3403, 0000 / AND C0000 D3404, 0000 / AND C0000 C3405, 0000 / AND C0000 C3406, 0000 / AND C0000 C3407, 0000 / AND C0000 C3410, 0001 / AND C0001 D3411, 0000 / AND C0000 D3412, 0000 / AND C0000 C3413, 0000 / AND C0000 C3414, 0000 / AND C0000 D3415, 0000 / AND C0000 D3416, 0000 / AND C0000 C3417, 0000 / AND C0000 D3420, 0000 / AND C0000 *3600 C3600, 0000 / AND C0000 *4000 C4000, 0000 / AND C0000 $