TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-d8sc-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-d8sc-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 / / 3137 locations used, 2222 code and 0715 data //////////////////////////////////////////////////////////////////////////////// *0001 C0001, 5402 / JMP I C0002 C0002, 2600 / ISZ I L0000 C0003, C0003, 2321 / ISZ D0121 C0004, C0004, 2254 / ISZ D0054 D0005, 2400 / ISZ I L0000 C0006, C0006, 2554 / ISZ I C0154 C0007, 2726 / ISZ I C0126 *0020 D0020, 0000 / AND L0000 D0021, 0000 / AND L0000 D0022, 0000 / AND L0000 C0023, C0023, 2630 / ISZ I C0030 C0024, C0024, 2654 / ISZ I D0054 D0025, 2720 / ISZ I C0120 TAD I C0101 / @@0026=1501 C0027, 1461 / TAD I C0061 C0030, 1416 / TAD I AI6 C0031, 1400 / TAD I L0000 C0032, C0032, 2643 / ISZ I C0043 AND I C0135 / @@0033=0735 C0034, 0755 / AND I C0155 C0035, C0035, 2637 / ISZ I C0037 C0036, C0036, 2112 / ISZ D0112 C0037, C0037, 2641 / ISZ I C0041 D0040, 1240 / TAD D0040 C0041, C0041, 1255 / TAD D0055 C0042, C0042, 2444 / ISZ I C0044 C0043, C0043, 1067 / TAD C0067 C0044, C0044, 1047 / TAD C0047 C0045, C0045, 2277 / ISZ D0077 D0046, 2645 / ISZ I C0045 C0047, C0047, 1266 / TAD C0066 C0050, C0050, 2363 / ISZ D0163 C0051, 0600 / AND I L0000 C0052, 0610 / AND I AI0 AND I C0027 / @@0053=0627 D0054, 0644 / AND I C0044 D0055, 0662 / AND I C0062 C0056, 2634 / ISZ I C0034 C0057, C0057, 1331 / TAD C0131 C0060, C0060, 1343 / TAD C0143 C0061, 0345 / AND D0145 AND C0165 / @@0062=0365 C0063, 3000 / DCA L0000 C0064, 1565 / TAD I C0165 C0065, 2171 / ISZ D0171 C0066, 2371 / ISZ D0171 C0067, 1770 / TAD I D0170 C0070, 2565 / ISZ I C0165 C0071, 3040 / DCA D0040 C0072, 3046 / DCA D0046 C0073, 3055 / DCA D0055 C0074, 3132 / DCA D0132 C0075, 7750 / SPA SNA CLA C0076, 7751 / CLA MQA SCA NMI D0077, 7752 / SPA SNA CLA HLT C0100, 7753 / CLA MQA SCA SHL + C0101, 7754 / SPA SNA CLA OSR C0102, 7755 / CLA MQA SCA ASR + C0103, 0400 / AND I L0000 C0104, 0200 / AND L0000 C0105, 7200 / CLA C0106, 3177 / DCA C0177 D0107, 5377 / JMP C0177 C0110, 0014 / AND AI4 C0111, 6177 / 6177 D0112, 3777 / DCA I C0177 C0113, 6777 / 6777 C0114, 4577 / JMS I C0177 C0115, 7775 / CLA MQA SCA MQL ASR + C0116, C0116, 7462 / SZA SNL HLT C0117, 7447 / SCA DVI + C0120, 5100 / JMP C0100 D0121, 7774 / SPA SNA SZL CLA OSR C0122, 3000 / DCA L0000 C0123, 0070 / AND C0070 C0124, 0040 / AND D0040 C0125, 0240 / AND D0040 C0126, 0215 / AND AI5 C0127, 0212 / AND AI2 C0130, 0007 / AND C0007 C0131, C0131, 7740 / SMA SZA CLA D0132, 0100 / AND C0100 C0133, 7610 / SKP CLA C0134, 0020 / AND D0020 C0135, 0010 / AND AI0 C0136, 1000 / TAD L0000 C0137, 0700 / AND I C0100 C0140, 7177 / CLL CMA CML IAC RTR RTL C0141, 7750 / SPA SNA CLA C0142, 0077 / AND D0077 C0143, 0500 / AND I C0100 D0144, 0000 / AND L0000 D0145, 0000 / AND L0000 D0146, 0000 / AND L0000 D0147, 0000 / AND L0000 D0150, 0000 / AND L0000 D0151, 0000 / AND L0000 C0152, 0000 / AND L0000 D0153, 0000 / AND L0000 C0154, 5451 / JMP I C0051 C0155, 5452 / JMP I C0052 C0156, 5453 / JMP I C0053 C0157, 5454 / JMP I D0054 C0160, 5455 / JMP I D0055 C0161, 5462 / JMP I C0062 D0162, 0000 / AND L0000 D0163, 1600 / TAD I L0000 C0164, 2000 / ISZ L0000 C0165, 0510 / AND I C0110 C0166, 0526 / AND I C0126 C0167, 0517 / AND I C0117 D0170, 0000 / AND L0000 D0171, 0000 / AND L0000 D0172, 0000 / AND L0000 D0173, 0000 / AND L0000 D0174, 0000 / AND L0000 D0175, 0000 / AND L0000 *0200 JMP L0207 / @@0200=5207 L0201, D0201, 0000 / AND L0000 L0202, D0202, 0000 / AND L0000 L0203, D0203, 0000 / AND L0000 L0204, D0204, 0000 / AND L0000 L0205, ION / Enable Interrupts @@0205=6001 L0206, JMP L0206 / @@0206=5206 L0207, CLA / @@0207=7200 DCA L0201 / @@0210=3201 DCA L0202 / @@0211=3202 DCA L0203 / @@0212=3203 DCA L0204 / @@0213=3204 TAD C0063 / @@0214=1063 C0215, 4403 / JMS I C0003 L0216, TAD C0064 / @@0216=1064 JMS I C0003 / long call to S2321 @@0217=4403 JMS S0327 / @@0220=4327 JMP L0225 / @@0221=5225 JMP L0216 / @@0222=5216 TAD C0154 / @@0223=1154 DCA L0201 / @@0224=3201 L0225, TAD C0066 / @@0225=1066 JMS I C0003 / long call to S2321 @@0226=4403 JMS S0327 / @@0227=4327 JMP L0234 / @@0230=5234 JMP L0225 / @@0231=5225 TAD C0155 / @@0232=1155 DCA L0202 / @@0233=3202 L0234, TAD C0065 / @@0234=1065 JMS I C0003 / long call to S2321 @@0235=4403 JMS S0327 / @@0236=4327 JMP L0243 / @@0237=5243 C0240, 5234 / JMP L0234 TAD C0161 / @@0241=1161 DCA L0204 / @@0242=3204 L0243, TAD C0067 / @@0243=1067 JMS I C0003 / long call to S2321 @@0244=4403 JMS S0327 / @@0245=4327 JMP L0253 / @@0246=5253 JMP L0243 / @@0247=5243 TAD C0156 / @@0250=1156 DCA L0203 / @@0251=3203 JMP L0272 / @@0252=5272 L0253, TAD C0070 / @@0253=1070 JMS I C0003 / long call to S2321 @@0254=4403 JMS S0327 / @@0255=4327 JMP L0263 / @@0256=5263 JMP L0253 / @@0257=5253 TAD C0157 / @@0260=1157 DCA L0203 / @@0261=3203 JMP L0272 / @@0262=5272 L0263, TAD C0071 / @@0263=1071 JMS I C0003 / long call to S2321 @@0264=4403 JMS S0327 / @@0265=4327 JMP L0272 / @@0266=5272 JMP L0263 / @@0267=5263 TAD C0160 / @@0270=1160 DCA L0203 / @@0271=3203 L0272, TAD C0072 / @@0272=1072 JMS I C0003 / long call to S2321 @@0273=4403 JMS S0327 / @@0274=4327 JMP L0303 / @@0275=5303 JMP L0272 / @@0276=5272 L0277, TAD C0073 / @@0277=1073 JMS I C0003 / long call to S2321 @@0300=4403 JMS I C0004 / long call to S2254 @@0301=4404 JMP L0277 / @@0302=5277 L0303, CLL RAL / @@0303=7104 RTL / @@0304=7006 DCA D0162 / @@0305=3162 JMS I C0050 / long call to S2363 @@0306=4450 TAD C0134 / @@0307=1134 C0310, 3000 / DCA L0000 TAD C0115 / @@0311=1115 C0312, 3010 / DCA AI0 L0313, JMS I D0005 / long call to S2400 @@0313=4405 AND C0123 / @@0314=0123 C0315, 3400 / DCA I L0000 TAD D0162 / @@0316=1162 CIA / @@0317=7041 C0320, 1400 / TAD I L0000 SMA SZA CLA / @@0321=7740 JMP L0313 / @@0322=5313 C0323, 2000 / ISZ L0000 C0324, 2010 / ISZ AI0 JMP L0313 / @@0325=5313 JMP L0201 / @@0326=5201 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0327 / / Called from: / 0220 0227 0236 0245 0255 0265 0274 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S0327, 0 / return area KCC / Clear AC and clear keyboard flag. @@0330=6032 JMS I C0006 / long call to S2554 @@0331=4406 DCA D0153 / @@0332=3153 TAD D0153 / @@0333=1153 TAD C0116 / @@0334=1116 SNA CLA / @@0335=7650 JMP I S0327 / return @@0336=5727 ISZ S0327 / @@0337=2327 TAD D0153 / @@0340=1153 TAD C0117 / @@0341=1117 SNA CLA / @@0342=7650 ISZ S0327 / @@0343=2327 JMP I S0327 / return @@0344=5727 CLA / @@0345=7200 DEAC / Clear the AC then loads the contents @@0346=6616 NOP / @@0347=7000 DCA D0151 / @@0350=3151 TAD D0151 / @@0351=1151 RTR / @@0352=7012 SNL CLA / @@0353=7620 JMP I C0023 / long jump to L2630 @@0354=5423 TAD C0364 / @@0355=1364 JMS I C0003 / long call to S2321 @@0356=4403 TAD D0151 / @@0357=1151 JMS I C0045 / long call to S2277 @@0360=4445 JMS I C0050 / long call to S2363 @@0361=4450 L0362, HLT / @@0362=7402 JMP L0362 / @@0363=5362 C0364, 3062 / DCA C0062 CLA / @@0365=7200 C0366, 6145 / 6145 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@0367=7330 C0370, 6155 / 6155 CLA / @@0371=7200 TAD C0376 / @@0372=1376 C0373, 6165 / 6165 CLA / @@0374=7200 JMP L0205 / @@0375=5205 C0376, 3161 / DCA C0161 *0400 L0400, C0400, 7200 / CLA DCMA / Clears memory address register, pari @@0401=6601 TAD C0133 / @@0402=1133 DCA I C0007 / @@0403=3407 LAS / @@0404=7604 AND C0135 / @@0405=0135 C0406, 7640 / SZA CLA JMP I C0023 / long jump to L2630 @@0407=5423 LAS / @@0410=7604 AND C0104 / @@0411=0104 SZA CLA / @@0412=7640 JMP L0565 / @@0413=5365 JMS S0535 / @@0414=4335 ION / Enable Interrupts @@0415=6001 TAD C0105 / @@0416=1105 L0417, D0417, 3015 / DCA AI5 TAD C0114 / @@0420=1114 C0421, 3014 / DCA AI4 TAD C0430 / @@0422=1230 TAD D0022 / @@0423=1022 DCA D0426 / @@0424=3226 L0425, JMS I C0024 / long call to S2654 @@0425=4424 D0426, 6201 / CDF0 C0427, 3414 / DCA I AI4 C0430, 6201 / CDF0 C0431, 2015 / ISZ AI5 JMP L0425 / @@0432=5225 IOF / Disable Interrupts @@0433=6002 JMS S0547 / @@0434=4347 L0435, D0435, 5235 / JMP L0435 DCMA / Clears memory address register, pari @@0436=6601 LAS / @@0437=7604 AND C0135 / @@0440=0135 SZA CLA / @@0441=7640 JMP I C0023 / long jump to L2630 @@0442=5423 L0443, D0443, 5243 / JMP L0443 DCMA / Clears memory address register, pari @@0444=6601 JMS S0535 / @@0445=4335 ION / Enable Interrupts @@0446=6001 TAD C0114 / @@0447=1114 C0450, 3014 / DCA AI4 TAD C0113 / @@0451=1113 C0452, 3015 / DCA AI5 TAD C0105 / @@0453=1105 DCA D0174 / @@0454=3174 TAD C0464 / @@0455=1264 TAD D0022 / @@0456=1022 DCA L0460 / @@0457=3260 L0460, D0460, 6201 / CDF0 C0461, 1414 / TAD I AI4 CIA / @@0462=7041 C0463, 1415 / TAD I AI5 C0464, 6201 / CDF0 SZA / @@0465=7440 JMS I D0025 / long call to S2720 @@0466=4425 ISZ D0174 / @@0467=2174 JMP L0460 / @@0470=5260 LAS / @@0471=7604 RAR / @@0472=7010 SZL CLA / @@0473=7630 JMP L0505 / @@0474=5305 L0475, JMS I C0024 / long call to S2654 @@0475=4424 AND C0123 / @@0476=0123 DCA D0022 / @@0477=3022 TAD D0162 / @@0500=1162 CIA / @@0501=7041 TAD D0022 / @@0502=1022 SMA SZA CLA / @@0503=7740 JMP L0475 / @@0504=5275 L0505, IOF / Disable Interrupts @@0505=6002 JMS S0547 / @@0506=4347 JMP L0400 / @@0507=5200 TAD C0515 / @@0510=1315 DCA L0435 / @@0511=3235 TAD C0516 / @@0512=1316 DCA L0443 / @@0513=3243 JMP L0400 / @@0514=5200 C0515, 4430 / JMS I C0030 C0516, 4431 / JMS I C0031 TAD C0524 / @@0517=1324 DCA L0435 / @@0520=3235 TAD C0525 / @@0521=1325 C0522, 3243 / DCA L0443 JMP L0400 / @@0523=5200 C0524, 4426 / JMS I C0026 C0525, 4427 / JMS I C0027 TAD C0533 / @@0526=1333 DCA L0435 / @@0527=3235 TAD C0534 / @@0530=1334 DCA L0443 / @@0531=3243 JMP L0400 / @@0532=5200 C0533, 4433 / JMS I C0033 C0534, 4434 / JMS I C0034 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0535 / / Called from: / 0414 0445 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0535, 0 / return area TAD D0144 / @@0536=1144 DCA D0561 / @@0537=3361 TAD D0145 / @@0540=1145 DCA D0562 / @@0541=3362 TAD I C0056 / @@0542=1456 DCA D0563 / @@0543=3363 C0544, 1000 / TAD L0000 DCA D0564 / @@0545=3364 JMP I S0535 / return @@0546=5735 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0547 / / Called from: / 0434 0506 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0547, 0 / return area TAD D0561 / @@0550=1361 DCA D0144 / @@0551=3144 TAD D0562 / @@0552=1362 DCA D0145 / @@0553=3145 TAD D0563 / @@0554=1363 DCA I C0056 / @@0555=3456 TAD D0564 / @@0556=1364 C0557, 3000 / DCA L0000 JMP I S0547 / return @@0560=5747 D0561, 0000 / AND L0000 D0562, 0000 / AND L0000 D0563, 0000 / AND L0000 D0564, 0000 / AND L0000 L0565, LAS / @@0565=7604 AND D0132 / @@0566=0132 SZA CLA / @@0567=7640 JMP L0573 / @@0570=5373 TAD L0443 / @@0571=1243 SKP / @@0572=7410 L0573, TAD L0435 / @@0573=1235 DCA D0575 / @@0574=3375 D0575, 7402 / HLT JMP L0400 / @@0576=5200 *0600 CLA / @@0600=7200 DCA D0175 / @@0601=3175 C0602, 1376 / TAD C0776 C0603, 6766 / 6766 C0604, 1163 / TAD D0163 DCA I C0035 / @@0605=3435 JMP I C0607 / long jump to L0202 @@0606=5607 C0607, C0607, 0202 / AND C0602 CLA / @@0610=7200 DCA D0150 / @@0611=3150 TAD C0110 / @@0612=1110 C0613, 6711 / 6711 HLT / @@0614=7402 C0615, 6716 / 6716 C0616, 6721 / 6721 HLT / @@0617=7402 CLA / @@0620=7200 C0621, 6722 / 6722 TAD C0164 / @@0622=1164 DCA I C0037 / @@0623=3437 JMP I C0625 / long jump to L0203 @@0624=5625 C0625, C0625, 0203 / AND C0603 C0626, C0626, 0204 / AND C0604 CLA IAC / @@0627=7201 C0630, 6624 / 6624 TAD C0114 / @@0631=1114 DMAW / The contents of the AC are loaded in @@0632=6605 TAD C0141 / @@0633=1141 DEAL / The disk extended-address extension @@0634=6615 TAD C0165 / @@0635=1165 DCA I C0032 / @@0636=3432 TAD C0105 / @@0637=1105 DCA I C0704 / @@0640=3704 L0641, TAD I C0705 / @@0641=1705 DCA I C0703 / @@0642=3703 JMP I C0626 / long jump to L0204 @@0643=5626 CLA CMA RAL / @@0644=7244 DCA I C0075 / @@0645=3475 TAD C0114 / @@0646=1114 DCA I C0076 / @@0647=3476 TAD C0137 / @@0650=1137 DEAL / The disk extended-address extension @@0651=6615 CLA / @@0652=7200 TAD C0140 / @@0653=1140 DMAW / The contents of the AC are loaded in @@0654=6605 TAD C0166 / @@0655=1166 DCA I C0032 / @@0656=3432 TAD C0706 / @@0657=1306 DCA I C0704 / @@0660=3704 JMP L0641 / @@0661=5241 CLA CMA RAL / @@0662=7244 DCA I C0075 / @@0663=3475 TAD C0114 / @@0664=1114 DCA I C0076 / @@0665=3476 TAD C0143 / @@0666=1143 DEAL / The disk extended-address extension @@0667=6615 TAD C0142 / @@0670=1142 C0671, 6643 / 6643 TAD C0140 / @@0672=1140 DMAW / The contents of the AC are loaded in @@0673=6605 TAD C0167 / @@0674=1167 DCA I C0032 / @@0675=3432 TAD C0133 / @@0676=1133 DCA I C0703 / @@0677=3703 TAD I C0705 / @@0700=1705 DCA I C0704 / @@0701=3704 JMP I C0626 / long jump to L0204 @@0702=5626 C0703, 2626 / ISZ I C0626 C0704, 2627 / ISZ I C0627 C0705, 2624 / ISZ I C0624 C0706, 5461 / JMP I C0061 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0707 / / Called from: / 0751 0771 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0707, 0 / return area JMS I C0032 / long call to S2643 @@0710=4432 DFSE / Skip next instruction if the complet @@0711=6621 SKP / @@0712=7410 JMP I S0707 / return @@0713=5707 L0714, LAS / @@0714=7604 RTL / @@0715=7006 SPA / @@0716=7510 JMP L0731 / @@0717=5331 CLA / @@0720=7200 DEAC / Clear the AC then loads the contents @@0721=6616 NOP / @@0722=7000 DCA D0151 / @@0723=3151 TAD C0775 / @@0724=1375 JMS I C0003 / long call to S2321 @@0725=4403 TAD D0151 / @@0726=1151 JMS I C0045 / long call to S2277 @@0727=4445 JMS I C0050 / long call to S2363 @@0730=4450 L0731, LAS / @@0731=7604 SMA CLA / @@0732=7700 HLT / @@0733=7402 JMP I S0707 / return @@0734=5707 C0735, C0735, 0000 / AND L0000 L0736, CLA / @@0736=7200 TAD C0105 / @@0737=1105 DCA I C0075 / @@0740=3475 TAD C0114 / @@0741=1114 DCA I C0076 / @@0742=3476 TAD D0022 / @@0743=1022 TAD C0137 / @@0744=1137 DEAL / The disk extended-address extension @@0745=6615 CLA / @@0746=7200 TAD C0140 / @@0747=1140 DMAW / The contents of the AC are loaded in @@0750=6605 JMS S0707 / @@0751=4307 DFSE / Skip next instruction if the complet @@0752=6621 JMP L0736 / @@0753=5336 JMP I C0735 / long jump to L0000 @@0754=5735 C0755, C0755, 0000 / AND L0000 L0756, CLA / @@0756=7200 TAD C0105 / @@0757=1105 DCA I C0075 / @@0760=3475 TAD C0113 / @@0761=1113 DCA I C0076 / @@0762=3476 TAD D0022 / @@0763=1022 TAD C0137 / @@0764=1137 DEAL / The disk extended-address extension @@0765=6615 CLA / @@0766=7200 TAD C0140 / @@0767=1140 DMAR / The contents of the AC are loaded in @@0770=6603 JMS S0707 / @@0771=4307 DFSE / Skip next instruction if the complet @@0772=6621 JMP L0756 / @@0773=5356 JMP I C0755 / long jump to L0000 @@0774=5755 C0775, 3062 / DCA C0062 C0776, 0604 / AND I C0604 *1000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / Called from: / 1050 1070 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1000, 0 / return area TAD C1146 / @@1001=1346 DCA I C0102 / @@1002=3502 L1003, TAD C1155 / @@1003=1355 C1004, 6766 / 6766 DTLB / The memory field portion of status r @@1005=6774 L1006, JMS I C0035 / long call to S2637 @@1006=4435 DTRB / The content of status register B is @@1007=6772 RTL / @@1010=7006 SMA CLA / @@1011=7700 JMP L1016 / @@1012=5216 TAD C1154 / @@1013=1354 DTXA / Status register A is loaded by an ex @@1014=6764 JMP L1006 / @@1015=5206 L1016, DTRB / The content of status register B is @@1016=6772 D1017, 7700 / SMA CLA JMP L1023 / @@1020=5223 JMS S1107 / @@1021=4307 JMP L1003 / @@1022=5203 L1023, DTRA / The content of status register A is @@1023=6761 RTL / @@1024=7006 RTL / @@1025=7006 CLA / @@1026=7200 TAD C1145 / @@1027=1345 CIA / @@1030=7041 TAD D0175 / @@1031=1175 SNA / @@1032=7450 JMP L1043 / @@1033=5243 CIA / @@1034=7041 SNL / @@1035=7420 TAD C1152 / @@1036=1352 SNL CLA / @@1037=7620 D1040, 1103 / TAD C0103 L1041, DTXA / Status register A is loaded by an ex @@1041=6764 JMP L1006 / @@1042=5206 L1043, SNL CLA / @@1043=7620 JMP L1041 / @@1044=5241 DTXA / Status register A is loaded by an ex @@1045=6764 JMP I S1000 / return @@1046=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1047 / / Called from: / 1643 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1047, 0 / return area L1050, JMS S1000 / @@1050=4200 JMS S1137 / @@1051=4337 JMP L1050 / @@1052=5250 TAD D0020 / @@1053=1020 DTLB / The memory field portion of status r @@1054=6774 TAD C1150 / @@1055=1350 DTXA / Status register A is loaded by an ex @@1056=6764 TAD C0105 / @@1057=1105 DCA I C0101 / @@1060=3501 TAD D0107 / @@1061=1107 DCA I C0102 / @@1062=3502 JMS S1107 / @@1063=4307 JMS S1137 / @@1064=4337 JMP L1050 / @@1065=5250 JMP I S1047 / return @@1066=5647 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1067 / / Called from: / 1641 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1067, 0 / return area L1070, JMS S1000 / @@1070=4200 JMS S1137 / @@1071=4337 JMP L1070 / @@1072=5270 TAD D0020 / @@1073=1020 DTLB / The memory field portion of status r @@1074=6774 TAD C1151 / @@1075=1351 DTXA / Status register A is loaded by an ex @@1076=6764 TAD C0105 / @@1077=1105 DCA I C0101 / @@1100=3501 TAD C0106 / @@1101=1106 DCA I C0102 / @@1102=3502 JMS S1107 / @@1103=4307 JMS S1137 / @@1104=4337 JMP L1070 / @@1105=5270 JMP I S1067 / return @@1106=5667 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1107 / / Called from: / 1021 1063 1103 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1107, 0 / return area JMS I C0035 / long call to S2637 @@1110=4435 DTRA / The content of status register A is @@1111=6761 AND C0104 / @@1112=0104 TAD C1153 / @@1113=1353 DTXA / Status register A is loaded by an ex @@1114=6764 DTRB / The content of status register B is @@1115=6772 SMA CLA / @@1116=7700 JMP I S1107 / return @@1117=5707 LAS / @@1120=7604 RTL / @@1121=7006 SPA CLA / @@1122=7710 JMP L1133 / @@1123=5333 DTRB / The content of status register B is @@1124=6772 DCA D0146 / @@1125=3146 TAD C1147 / @@1126=1347 JMS I C0003 / long call to S2321 @@1127=4403 TAD D0146 / @@1130=1146 JMS I C0045 / long call to S2277 @@1131=4445 JMS I C0050 / long call to S2363 @@1132=4450 L1133, LAS / @@1133=7604 SMA CLA / @@1134=7700 HLT / @@1135=7402 JMP I S1107 / return @@1136=5707 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1137 / / Called from: / 1051 1064 1071 1104 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1137, 0 / return area C1140, 7200 / CLA DTRB / The content of status register B is @@1141=6772 SMA CLA / @@1142=7700 ISZ S1137 / @@1143=2337 JMP I S1137 / return @@1144=5737 C1145, 0000 / AND L0000 C1146, 1145 / TAD D0145 C1147, 3074 / DCA C0074 C1150, 0130 / AND C0130 C1151, 0150 / AND D0150 C1152, 0002 / AND C0002 C1153, 0003 / AND C0003 C1154, 0600 / AND I S1000 C1155, 0614 / AND I C1014 ISZ I C0003 / @@1156=2403 C1157, 6570 / 6570 C1160, 4004 / JMS C0004 AND C0124 / @@1161=0124 AND C0140 / @@1162=0140 AND I C0122 / @@1163=0522 ISZ D1017 / @@1164=2217 ISZ D1040 / @@1165=2240 TAD C0116 / @@1166=1116 C1167, 4002 / JMS C0002 AND C0116 / @@1170=0116 TAD C1140 / @@1171=1340 C1172, 4000 / JMS L0000 *1200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / Called from: / 2043 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1200, 0 / return area L1201, JMS S1240 / @@1201=4240 JMS I C0036 / long call to S2112 @@1202=4436 TAD C1356 / @@1203=1356 C1204, 6716 / 6716 CLA / @@1205=7200 TAD C0105 / @@1206=1105 DCA I D0077 / @@1207=3477 TAD C0111 / @@1210=1111 DCA I C0100 / @@1211=3500 TAD D0021 / @@1212=1021 C1213, 6722 / 6722 JMS S1266 / @@1214=4266 JMS S1255 / @@1215=4255 JMP L1201 / @@1216=5201 D1217, 5600 / JMP I S1200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1220 / / Called from: / 2073 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1220, 0 / return area L1221, JMS S1240 / @@1221=4240 JMS I C0036 / long call to S2112 @@1222=4436 TAD C1355 / @@1223=1355 C1224, 6716 / 6716 CLA / @@1225=7200 TAD C0105 / @@1226=1105 DCA I D0077 / @@1227=3477 TAD D0112 / @@1230=1112 DCA I C0100 / @@1231=3500 TAD D0021 / @@1232=1021 C1233, 6722 / 6722 JMS S1266 / @@1234=4266 JMS S1255 / @@1235=4255 JMP L1221 / @@1236=5221 JMP I S1220 / return @@1237=5620 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1240 / / Called from: / 1201 1221 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1240, 0 / return area L1241, TAD C1254 / @@1241=1254 C1242, 6716 / 6716 CLA / @@1243=7200 C1244, 6722 / 6722 DCA I D0077 / @@1245=3477 JMS S1266 / @@1246=4266 KGOA / Assert the contents of the status A @@1247=6706 RTL / @@1250=7006 SMA CLA / @@1251=7700 JMP L1241 / @@1252=5241 JMP I S1240 / return @@1253=5640 C1254, 0676 / AND I C1276 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1255 / / Called from: / 1215 1235 1270 1552 2125 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S1255, 0 / return area KGOA / Assert the contents of the status A @@1256=6706 SMA / @@1257=7500 JMP L1263 / @@1260=5263 AND C0136 / @@1261=0136 SZA CLA / @@1262=7640 L1263, ISZ S1255 / @@1263=2255 CLA / @@1264=7200 JMP I S1255 / return @@1265=5655 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1266 / / Called from: / 1214 1234 1246 1545 2124 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S1266, 0 / return area JMS I C0037 / long call to S2641 @@1267=4437 JMS S1255 / @@1270=4255 SKP / @@1271=7410 JMP L1312 / @@1272=5312 LAS / @@1273=7604 RTL / @@1274=7006 SPA CLA / @@1275=7710 JMP L1306 / @@1276=5306 KGOA / Assert the contents of the status A @@1277=6706 DCA D0147 / @@1300=3147 TAD C1326 / @@1301=1326 JMS I C0003 / long call to S2321 @@1302=4403 D1303, 1147 / TAD D0147 JMS I C0045 / long call to S2277 @@1304=4445 JMS I C0050 / long call to S2363 @@1305=4450 L1306, LAS / @@1306=7604 SMA CLA / @@1307=7700 HLT / @@1310=7402 JMP I S1266 / return @@1311=5666 L1312, C1312, 6712 / 6712 JMS I C1327 / long call to S2132 @@1313=4727 ION / Enable Interrupts @@1314=6001 L1315, C1315, 6721 / 6721 JMP L1315 / @@1316=5315 IOF / Disable Interrupts @@1317=6002 JMS I C1330 / long call to S2144 @@1320=4730 JMP I S1266 / return @@1321=5666 D1322, 0000 / AND L0000 D1323, 0000 / AND L0000 D1324, 0000 / AND L0000 D1325, 0000 / AND L0000 C1326, 3106 / DCA C0106 C1327, C1327, 2132 / ISZ D0132 C1330, C1330, 2144 / ISZ D0144 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1331 / / Called from: / 1610 1646 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1331, 0 / return area TAD D0144 / @@1332=1144 DCA D1322 / @@1333=3322 TAD D0145 / @@1334=1145 DCA D1323 / @@1335=3323 TAD I C0056 / @@1336=1456 DCA D1324 / @@1337=3324 C1340, 1000 / TAD L0000 DCA D1325 / @@1341=3325 JMP I S1331 / return @@1342=5731 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1343 / / Called from: / 1640 1673 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1343, 0 / return area TAD D1322 / @@1344=1322 DCA D0144 / @@1345=3144 TAD D1323 / @@1346=1323 DCA D0145 / @@1347=3145 TAD D1324 / @@1350=1324 DCA I C0056 / @@1351=3456 TAD D1325 / @@1352=1325 C1353, 3000 / DCA L0000 JMP I S1343 / return @@1354=5743 C1355, 0636 / AND I C1236 C1356, 0626 / AND I C1226 C1357, 0411 / AND I AI1 ISZ D1303 / @@1360=2303 C1361, 4017 / JMS AI7 ISZ S1240 / @@1362=2240 AND I D0022 / @@1363=0422 ISZ I C0115 / @@1364=2515 C1365, 4004 / JMS C0004 AND C0124 / @@1366=0124 AND C0140 / @@1367=0140 AND I C0122 / @@1370=0522 ISZ D1217 / @@1371=2217 ISZ S1240 / @@1372=2240 TAD C0116 / @@1373=1116 C1374, 4002 / JMS C0002 AND C0116 / @@1375=0116 TAD C1340 / @@1376=1340 C1377, 4000 / JMS L0000 C1400, D1400, 0000 / AND L0000 L1401, CLA / @@1401=7200 TAD D0022 / @@1402=1022 TAD C0122 / @@1403=1122 C1404, 6624 / 6624 CLA IAC / @@1405=7201 TAD C0113 / @@1406=1113 DMAR / The contents of the AC are loaded in @@1407=6603 TAD C0141 / @@1410=1141 DEAL / The disk extended-address extension @@1411=6615 JMS S1434 / @@1412=4234 DFSE / Skip next instruction if the complet @@1413=6621 JMP L1401 / @@1414=5201 JMP I D1400 / long jump to L0000 @@1415=5600 D1416, 0000 / AND L0000 L1417, CLA / @@1417=7200 TAD D0022 / @@1420=1022 TAD C0122 / @@1421=1122 C1422, 6624 / 6624 CLA IAC / @@1423=7201 TAD C0114 / @@1424=1114 DMAW / The contents of the AC are loaded in @@1425=6605 TAD C0141 / @@1426=1141 DEAL / The disk extended-address extension @@1427=6615 JMS S1434 / @@1430=4234 DFSE / Skip next instruction if the complet @@1431=6621 JMP L1417 / @@1432=5217 JMP I D1416 / long jump to L0000 @@1433=5616 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1434 / / Called from: / 1412 1430 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1434, 0 / return area JMS I C0032 / long call to S2643 @@1435=4432 DFSE / Skip next instruction if the complet @@1436=6621 SKP / @@1437=7410 JMP I S1434 / return @@1440=5634 LAS / @@1441=7604 RTL / @@1442=7006 SPA / @@1443=7510 JMP L1455 / @@1444=5255 CLA / @@1445=7200 DSAC / Skips next instruction if address co @@1446=6612 DCA D0151 / @@1447=3151 TAD C1563 / @@1450=1363 JMS I C0003 / long call to S2321 @@1451=4403 TAD D0151 / @@1452=1151 JMS I C0045 / long call to S2277 @@1453=4445 JMS I C0050 / long call to S2363 @@1454=4450 L1455, LAS / @@1455=7604 SMA CLA / @@1456=7700 HLT / @@1457=7402 JMP I S1434 / return @@1460=5634 C1461, C1461, 0000 / AND L0000 L1462, TAD C0105 / @@1462=1105 DCA I C0075 / @@1463=3475 TAD C0113 / @@1464=1113 DCA I C0076 / @@1465=3476 TAD D0022 / @@1466=1022 TAD C0143 / @@1467=1143 DEAL / The disk extended-address extension @@1470=6615 TAD C0142 / @@1471=1142 C1472, 6643 / 6643 TAD C0140 / @@1473=1140 DMAR / The contents of the AC are loaded in @@1474=6603 JMS S1521 / @@1475=4321 DFSE / Skip next instruction if the complet @@1476=6621 JMP I C1461 / long jump to L0000 @@1477=5661 JMP L1462 / @@1500=5262 C1501, C1501, 0000 / AND L0000 L1502, TAD C0105 / @@1502=1105 DCA I C0075 / @@1503=3475 TAD C0114 / @@1504=1114 DCA I C0076 / @@1505=3476 TAD D0022 / @@1506=1022 TAD C0143 / @@1507=1143 DEAL / The disk extended-address extension @@1510=6615 TAD C0142 / @@1511=1142 C1512, 6643 / 6643 TAD C0140 / @@1513=1140 C1514, 6605 / DMAW JMS S1521 / @@1515=4321 DFSE / Skip next instruction if the complet @@1516=6621 JMP I C1501 / long jump to L0000 @@1517=5701 JMP L1502 / @@1520=5302 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1521 / / Called from: / 1475 1515 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1521, 0 / return area JMS I C0032 / long call to S2643 @@1522=4432 DFSE / Skip next instruction if the complet @@1523=6621 JMP I S1521 / return @@1524=5721 TAD S1521 / @@1525=1321 DCA I C1531 / @@1526=3731 JMP I C1530 / long jump to L0714 @@1527=5730 C1530, C1530, 0714 / AND I C1514 C1531, 0707 / AND I C1507 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1532 / / Called from: / 2035 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1532, 0 / return area L1533, CLA / @@1533=7200 L1534, TAD C1564 / @@1534=1364 C1535, 6716 / 6716 CLA / @@1536=7200 TAD C0105 / @@1537=1105 DCA I D0077 / @@1540=3477 TAD D0112 / @@1541=1112 DCA I C0100 / @@1542=3500 TAD D0021 / @@1543=1021 C1544, 6722 / 6722 JMS I C0047 / long call to S1266 @@1545=4447 ISZ D0150 / @@1546=2150 JMP L1552 / @@1547=5352 JMS I D0040 / long call to S1240 @@1550=4440 JMP L1533 / @@1551=5333 L1552, JMS I C0041 / long call to S1255 @@1552=4441 SKP / @@1553=7410 JMP I S1532 / return @@1554=5732 JMS I D0040 / long call to S1240 @@1555=4440 JMS I C0036 / long call to S2112 @@1556=4436 STA / AC = 7777 (-0001) @@1557=7240 TAD D0150 / @@1560=1150 DCA D0150 / @@1561=3150 JMP L1534 / @@1562=5334 C1563, 3120 / DCA C0120 C1564, 0746 / AND I C1546 ISZ I C0003 / @@1565=2403 DCY / Clear Y coordinate buffer @@1566=6061 C1567, 4004 / JMS C0004 AND I C0103 / @@1570=0503 ISZ I C0001 / @@1571=2401 ISZ D0005 / @@1572=2005 SMA CLA / @@1573=7700 *1600 L1600, CLA / @@1600=7200 DTXA / Status register A is loaded by an ex @@1601=6764 TAD C0133 / @@1602=1133 DCA D1720 / @@1603=3320 LAS / @@1604=7604 AND C0124 / @@1605=0124 SZA CLA / @@1606=7640 JMP I C0023 / long jump to L2630 @@1607=5423 JMS I C0057 / long call to S1331 @@1610=4457 ION / Enable Interrupts @@1611=6001 TAD C0105 / @@1612=1105 C1613, 3011 / DCA AI1 TAD C0106 / @@1614=1106 D1615, 3010 / DCA AI0 TAD C1624 / @@1616=1224 TAD D0020 / @@1617=1020 DCA D1622 / @@1620=3222 L1621, JMS I C0042 / long call to S2444 @@1621=4442 D1622, 6201 / CDF0 C1623, 3410 / DCA I AI0 C1624, 6201 / CDF0 D1625, 2011 / ISZ AI1 JMP L1621 / @@1626=5221 TAD D0175 / @@1627=1175 TAD C1711 / @@1630=1311 L1631, DCA D0175 / @@1631=3175 CLA CLL / AC = 0000 @@1632=7300 TAD D0175 / @@1633=1175 TAD C0120 / @@1634=1120 SZL CLA / @@1635=7630 JMP L1631 / @@1636=5231 IOF / Disable Interrupts @@1637=6002 JMS I C0060 / long call to S1343 @@1640=4460 JMS I C0043 / long call to S1067 @@1641=4443 DTXA / Status register A is loaded by an ex @@1642=6764 JMS I C0044 / long call to S1047 @@1643=4444 TAD C1767 / @@1644=1367 DTXA / Status register A is loaded by an ex @@1645=6764 JMS I C0057 / long call to S1331 @@1646=4457 ION / Enable Interrupts @@1647=6001 TAD C0106 / @@1650=1106 C1651, 3010 / DCA AI0 TAD D0107 / @@1652=1107 C1653, 3011 / DCA AI1 TAD C0105 / @@1654=1105 DCA D0170 / @@1655=3170 TAD C1665 / @@1656=1265 TAD D0020 / @@1657=1020 DCA L1661 / @@1660=3261 L1661, D1661, 6201 / CDF0 C1662, 1410 / TAD I AI0 CIA / @@1663=7041 C1664, 1411 / TAD I AI1 C1665, 6201 / CDF0 SZA / @@1666=7440 JMS S1712 / @@1667=4312 ISZ D0170 / @@1670=2170 JMP L1661 / @@1671=5261 IOF / Disable Interrupts @@1672=6002 JMS I C0060 / long call to S1343 @@1673=4460 LAS / @@1674=7604 RAR / @@1675=7010 SZL CLA / @@1676=7630 JMP L1600 / @@1677=5200 L1700, JMS I C0042 / long call to S2444 @@1700=4442 AND C0123 / @@1701=0123 DCA D0020 / @@1702=3020 TAD D0162 / @@1703=1162 CIA / @@1704=7041 TAD D0020 / @@1705=1020 SMA SZA CLA / @@1706=7740 JMP L1700 / @@1707=5300 JMP L1600 / @@1710=5200 C1711, 0003 / AND C0003 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1712 / / Called from: / 1667 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1712, 0 / return area LAS / @@1713=7604 AND C0103 / @@1714=0103 D1715, 7640 / SZA CLA JMP L1761 / @@1716=5361 IOF / Disable Interrupts @@1717=6002 D1720, 7610 / SKP CLA JMP L1735 / @@1721=5335 TAD C1766 / @@1722=1366 JMS I C0003 / long call to S2321 @@1723=4403 TAD D0020 / @@1724=1020 CLL RAR / @@1725=7110 RTR / @@1726=7012 JMS I C0045 / long call to S2277 @@1727=4445 TAD C0074 / @@1730=1074 JMS I C0003 / long call to S2321 @@1731=4403 TAD C0105 / @@1732=1105 DCA D1720 / @@1733=3320 JMS I C0050 / long call to S2363 @@1734=4450 L1735, TAD D0020 / @@1735=1020 TAD C1760 / @@1736=1360 DCA D1740 / @@1737=3340 D1740, 6201 / CDF0 C1741, 1010 / TAD AI0 JMS I C0045 / long call to S2277 @@1742=4445 TAD C0125 / @@1743=1125 JMS I D0046 / long call to S2645 @@1744=4446 TAD I D0171 / @@1745=1571 JMS I C0045 / long call to S2277 @@1746=4445 TAD C0125 / @@1747=1125 JMS I D0046 / long call to S2645 @@1750=4446 C1751, 1011 / TAD AI1 JMS I C0045 / long call to S2277 @@1752=4445 TAD C0125 / @@1753=1125 JMS I D0046 / long call to S2645 @@1754=4446 TAD I D0171 / @@1755=1571 JMS I C0045 / long call to S2277 @@1756=4445 JMS I C0050 / long call to S2363 @@1757=4450 C1760, 6201 / CDF0 L1761, LAS / @@1761=7604 RAL / @@1762=7004 SMA CLA / @@1763=7700 HLT / @@1764=7402 JMP I S1712 / return @@1765=5712 C1766, 3144 / DCA D0144 C1767, 0004 / AND C0004 ISZ D1615 / @@1770=2215 C1771, 6070 / 6070 C1772, 4004 / JMS C0004 ISZ D1625 / @@1773=2225 C1774, 1577 / TAD I C0177 C1775, 0000 / AND L0000 *2000 L2000, D2000, 7200 / CLA C2001, 6712 / 6712 TAD C0133 / @@2002=1133 DCA I C2162 / @@2003=3762 LAS / @@2004=7604 AND C0134 / @@2005=0134 SZA CLA / @@2006=7640 JMP I C0023 / long jump to L2630 @@2007=5423 LAS / @@2010=7604 AND C0104 / @@2011=0104 SZA CLA / @@2012=7640 NOP / @@2013=7000 JMS S2132 / @@2014=4332 ION / Enable Interrupts @@2015=6001 TAD C0105 / @@2016=1105 C2017, 3013 / DCA AI3 C2020, 1112 / TAD D0112 C2021, 3012 / DCA AI2 TAD C2030 / @@2022=1230 TAD D0021 / @@2023=1021 DCA D2026 / @@2024=3226 L2025, JMS I C2163 / long call to S2510 @@2025=4763 D2026, 6201 / CDF0 C2027, 3412 / DCA I AI2 C2030, 6201 / CDF0 C2031, 2013 / ISZ AI3 JMP L2025 / @@2032=5225 IOF / Disable Interrupts @@2033=6002 JMS S2144 / @@2034=4344 JMS I C2164 / long call to S1532 @@2035=4764 C2036, 6712 / 6712 LAS / @@2037=7604 AND C0134 / @@2040=0134 SZA CLA / @@2041=7640 JMP I C0023 / long jump to L2630 @@2042=5423 JMS I C2165 / long call to S1200 @@2043=4765 C2044, 6712 / 6712 JMS S2132 / @@2045=4332 ION / Enable Interrupts @@2046=6001 TAD D0112 / @@2047=1112 C2050, 3012 / DCA AI2 TAD C0111 / @@2051=1111 C2052, 3013 / DCA AI3 TAD C0105 / @@2053=1105 DCA D0173 / @@2054=3173 TAD C2064 / @@2055=1264 TAD D0021 / @@2056=1021 DCA L2060 / @@2057=3260 L2060, D2060, 6201 / CDF0 C2061, 1412 / TAD I AI2 CIA / @@2062=7041 C2063, 1413 / TAD I AI3 C2064, 6201 / CDF0 SZA / @@2065=7440 JMS I C2167 / long call to S2200 @@2066=4767 ISZ D0173 / @@2067=2173 JMP L2060 / @@2070=5260 IOF / Disable Interrupts @@2071=6002 JMS S2144 / @@2072=4344 JMS I C2166 / long call to S1220 @@2073=4766 C2074, 6712 / 6712 LAS / @@2075=7604 RAR / @@2076=7010 SZL CLA / @@2077=7630 JMP L2000 / @@2100=5200 L2101, JMS I C2163 / long call to S2510 @@2101=4763 AND C0123 / @@2102=0123 DCA D0021 / @@2103=3021 TAD D0162 / @@2104=1162 CIA / @@2105=7041 TAD D0021 / @@2106=1021 SMA SZA CLA / @@2107=7740 JMP L2101 / @@2110=5301 JMP L2000 / @@2111=5200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2112 / / Called from: / 1202 1222 1556 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S2112, 0 / return area L2113, TAD C2170 / @@2113=1370 C2114, 6716 / 6716 STA / AC = 7777 (-0001) @@2115=7240 TAD D0150 / @@2116=1150 SNA / @@2117=7450 D2120, 5712 / JMP I S2112 CIA / @@2121=7041 DCA I D0077 / @@2122=3477 C2123, 6722 / 6722 JMS I C0047 / long call to S1266 @@2124=4447 JMS I C0041 / long call to S1255 @@2125=4441 SKP CLA / @@2126=7610 JMP I S2112 / return @@2127=5712 JMS I D0040 / long call to S1240 @@2130=4440 JMP L2113 / @@2131=5313 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2132 / / Called from: / 1313 2014 2045 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S2132, 0 / return area TAD D0144 / @@2133=1144 DCA D2156 / @@2134=3356 TAD D0145 / @@2135=1145 DCA D2157 / @@2136=3357 TAD I C0056 / @@2137=1456 DCA D2160 / @@2140=3360 C2141, 1000 / TAD L0000 DCA D2161 / @@2142=3361 JMP I S2132 / return @@2143=5732 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2144 / / Called from: / 1320 2034 2072 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S2144, 0 / return area TAD D2156 / @@2145=1356 DCA D0144 / @@2146=3144 TAD D2157 / @@2147=1357 DCA D0145 / @@2150=3145 TAD D2160 / @@2151=1360 DCA I C0056 / @@2152=3456 TAD D2161 / @@2153=1361 C2154, 3000 / DCA L0000 JMP I S2144 / return @@2155=5744 D2156, 0000 / AND L0000 D2157, 0000 / AND L0000 D2160, 0000 / AND L0000 D2161, 0000 / AND L0000 C2162, 2206 / ISZ C2006 C2163, C2163, 2510 / ISZ I C0110 C2164, C2164, 1532 / TAD I D0132 C2165, C2165, 1200 / TAD L2000 C2166, C2166, 1220 / TAD C2020 C2167, C2167, 2200 / ISZ L2000 C2170, 0666 / AND I C2066 C2171, 6363 / 6363 CMA / @@2172=7040 C2173, 0411 / AND I AI1 ISZ D2120 / @@2174=2320 TAD I C0001 / @@2175=1401 C2176, 3177 / DCA C0177 C2177, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2200 / / Called from: / 2066 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2200, 0 / return area LAS / @@2201=7604 AND C0103 / @@2202=0103 SZA CLA / @@2203=7640 JMP L2247 / @@2204=5247 IOF / Disable Interrupts @@2205=6002 D2206, 7610 / SKP CLA JMP L2223 / @@2207=5223 TAD C2356 / @@2210=1356 JMS I C0003 / long call to S2321 @@2211=4403 TAD D0021 / @@2212=1021 CLL RAR / @@2213=7110 RTR / @@2214=7012 JMS I C0045 / long call to S2277 @@2215=4445 TAD C0074 / @@2216=1074 JMS I C0003 / long call to S2321 @@2217=4403 TAD C0105 / @@2220=1105 DCA D2206 / @@2221=3206 D2222, 4450 / JMS I C0050 L2223, TAD D0021 / @@2223=1021 TAD C2246 / @@2224=1246 DCA D2226 / @@2225=3226 D2226, 6201 / CDF0 C2227, 1012 / TAD AI2 JMS I C0045 / long call to S2277 @@2230=4445 TAD C0125 / @@2231=1125 JMS I D0046 / long call to S2645 @@2232=4446 TAD I D0171 / @@2233=1571 JMS I C0045 / long call to S2277 @@2234=4445 TAD C0125 / @@2235=1125 JMS I D0046 / long call to S2645 @@2236=4446 C2237, 1013 / TAD AI3 JMS I C0045 / long call to S2277 @@2240=4445 TAD C0125 / @@2241=1125 JMS I D0046 / long call to S2645 @@2242=4446 TAD I D0171 / @@2243=1571 JMS I C0045 / long call to S2277 @@2244=4445 JMS I C0050 / long call to S2363 @@2245=4450 C2246, 6201 / CDF0 L2247, LAS / @@2247=7604 RAL / @@2250=7004 SMA CLA / @@2251=7700 HLT / @@2252=7402 JMP I S2200 / return @@2253=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2254 / / Called from: / 0301 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2254, 0 / return area JMS I C0006 / long call to S2554 @@2255=4406 DCA D0153 / @@2256=3153 TAD D0153 / @@2257=1153 CIA / @@2260=7041 TAD C2360 / @@2261=1360 SMA SZA / @@2262=7540 JMP L2273 / @@2263=5273 TAD C0135 / @@2264=1135 SPA CLA / @@2265=7710 JMP L2273 / @@2266=5273 TAD D0153 / @@2267=1153 AND C0130 / @@2270=0130 ISZ S2254 / @@2271=2254 JMP I S2254 / return @@2272=5654 L2273, TAD C2357 / @@2273=1357 JMS I D0046 / long call to S2645 @@2274=4446 JMS I C0050 / long call to S2363 @@2275=4450 JMP I S2254 / return @@2276=5654 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2277 / / Called from: / 0360 0727 1131 1304 1453 1727 1742 1746 1752 1756 2215 2230 2234 2240 2244 / 2735 2750 2754 2760 2764 / Total 0024 (20) calls //////////////////////////////////////////////////////////////////////////////// S2277, 0 / return area DCA D0171 / @@2300=3171 TAD D0121 / @@2301=1121 DCA D0172 / @@2302=3172 TAD D0171 / @@2303=1171 CLL RAL / @@2304=7104 L2305, RAL / @@2305=7004 RTL / @@2306=7006 DCA D0171 / @@2307=3171 TAD D0171 / @@2310=1171 AND C0130 / @@2311=0130 TAD C2360 / @@2312=1360 JMS I D0046 / long call to S2645 @@2313=4446 TAD D0171 / @@2314=1171 ISZ D0172 / @@2315=2172 JMP L2305 / @@2316=5305 CLA / @@2317=7200 JMP I S2277 / return @@2320=5677 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2321 / / Called from: / 0217 0226 0235 0244 0254 0264 0273 0300 0356 0725 1127 1302 1451 1723 1731 / 2211 2217 2731 2737 / Total 0023 (19) calls //////////////////////////////////////////////////////////////////////////////// S2321, 0 / return area DCA D0171 / @@2322=3171 JMS I C0050 / long call to S2363 @@2323=4450 L2324, TAD I D0171 / @@2324=1571 AND C2362 / @@2325=0362 SNA / @@2326=7450 JMP I S2321 / return @@2327=5721 CLL RAR / @@2330=7110 RAR / @@2331=7010 RTR / @@2332=7012 RTR / @@2333=7012 JMS S2344 / @@2334=4344 TAD I D0171 / @@2335=1571 AND C2361 / @@2336=0361 SNA / @@2337=7450 JMP I S2321 / return @@2340=5721 JMS S2344 / @@2341=4344 ISZ D0171 / @@2342=2171 JMP L2324 / @@2343=5324 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2344 / / Called from: / 2334 2341 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2344, 0 / return area DCA D0172 / @@2345=3172 TAD D0172 / @@2346=1172 TAD C0131 / @@2347=1131 SPA CLA / @@2350=7710 TAD D0132 / @@2351=1132 TAD C0104 / @@2352=1104 TAD D0172 / @@2353=1172 JMS I D0046 / long call to S2645 @@2354=4446 JMP I S2344 / return @@2355=5744 C2356, 1156 / TAD C0156 C2357, 0277 / AND S2277 C2360, 0260 / AND C2260 C2361, 0077 / AND D0077 C2362, 7700 / SMA CLA //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2363 / / Called from: / 0306 0361 0730 1132 1305 1454 1734 1757 2245 2275 2323 2742 / Total 0014 (12) calls //////////////////////////////////////////////////////////////////////////////// S2363, 0 / return area TAD C0126 / @@2364=1126 JMS I D0046 / long call to S2645 @@2365=4446 TAD C0127 / @@2366=1127 JMS I D0046 / long call to S2645 @@2367=4446 JMP I S2363 / return @@2370=5763 ISZ I C0003 / @@2371=2403 C2372, 6570 / 6570 C2373, 4015 / JMS AI5 AND D0107 / @@2374=0107 ISZ I C0001 / @@2375=2401 ISZ D0005 / @@2376=2005 SMA CLA / @@2377=7700 C2400, C2400, 0000 / AND L0000 C2401, 7200 / CLA TAD C2442 / @@2402=1242 TAD D2427 / @@2403=1227 SZA CLA / @@2404=7640 C2405, 5215 / JMP L2415 TAD C2431 / @@2406=1231 DCA D2427 / @@2407=3227 D2410, 1230 / TAD D2430 CLL RAL / @@2411=7104 SZL / @@2412=7430 IAC / @@2413=7001 DCA D2430 / @@2414=3230 L2415, TAD D2430 / @@2415=1230 TAD I D2427 / @@2416=1627 DCA I D2427 / @@2417=3627 TAD D2443 / @@2420=1243 RAR / @@2421=7010 TAD I D2427 / @@2422=1627 ISZ D2427 / @@2423=2227 DCA D2443 / @@2424=3243 TAD D2443 / @@2425=1243 JMP I C2400 / long jump to L0000 @@2426=5600 D2427, 2442 / ISZ I C0042 D2430, 6543 / 6543 C2431, 2432 / ISZ I C0032 C2432, 6543 / 6543 DCA D2410 / @@2433=3210 AND I C2565 / @@2434=0765 JMP I C0032 / long jump to L2643 @@2435=5432 ISZ D0107 / @@2436=2107 SNA CLA OSR / @@2437=7654 C2440, 4321 / JMS C2521 TAD C0076 / @@2441=1076 C2442, 5336 / JMP C2536 D2443, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2444 / / Called from: / 1621 1700 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2444, 0 / return area CLA / @@2445=7200 TAD C2506 / @@2446=1306 TAD D2473 / @@2447=1273 SZA CLA / @@2450=7640 JMP L2461 / @@2451=5261 TAD C2475 / @@2452=1275 DCA D2473 / @@2453=3273 TAD D2474 / @@2454=1274 CLL RAL / @@2455=7104 SZL / @@2456=7430 IAC / @@2457=7001 DCA D2474 / @@2460=3274 L2461, TAD D2474 / @@2461=1274 TAD I D2473 / @@2462=1673 DCA I D2473 / @@2463=3673 TAD C2477 / @@2464=1277 RAR / @@2465=7010 TAD I D2473 / @@2466=1673 ISZ D2473 / @@2467=2273 DCA D2507 / @@2470=3307 TAD D2507 / @@2471=1307 JMP I S2444 / return @@2472=5644 D2473, 2506 / ISZ I C0106 D2474, 6543 / 6543 C2475, 2476 / ISZ I C0076 TAD C0076 / @@2476=1076 C2477, 7654 / SNA CLA OSR JMP I C0032 / long jump to L2643 @@2500=5432 DCA D2410 / @@2501=3210 C2502, 6543 / 6543 AND I C2565 / @@2503=0765 ISZ D0107 / @@2504=2107 C2505, 4321 / JMS C2521 C2506, 5272 / JMP C2472 D2507, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2510 / / Called from: / 2025 2101 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2510, 0 / return area CLA / @@2511=7200 TAD C2552 / @@2512=1352 TAD D2537 / @@2513=1337 SZA CLA / @@2514=7640 JMP L2525 / @@2515=5325 TAD C2541 / @@2516=1341 DCA D2537 / @@2517=3337 TAD D2540 / @@2520=1340 CLL RAL / @@2521=7104 SZL / @@2522=7430 IAC / @@2523=7001 DCA D2540 / @@2524=3340 L2525, TAD D2540 / @@2525=1340 TAD I D2537 / @@2526=1737 DCA I D2537 / @@2527=3737 TAD C2543 / @@2530=1343 RAR / @@2531=7010 TAD I D2537 / @@2532=1737 ISZ D2537 / @@2533=2337 DCA D2553 / @@2534=3353 TAD D2553 / @@2535=1353 JMP I S2510 / return @@2536=5710 D2537, 2552 / ISZ I C0152 D2540, 6543 / 6543 C2541, 2542 / ISZ I C0142 C2542, 6543 / 6543 C2543, 0765 / AND I C2565 ISZ D0107 / @@2544=2107 C2545, 4321 / JMS C2521 TAD C0076 / @@2546=1076 SNA CLA OSR / @@2547=7654 JMP I C0032 / long jump to L2643 @@2550=5432 DCA D2410 / @@2551=3210 C2552, 5226 / JMP C2426 D2553, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2554 / / Called from: / 0331 2255 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2554, 0 / return area L2555, KSF / Skip if keyboard flag is a 1. @@2555=6031 JMP L2555 / @@2556=5355 KRB / Clear AC, clear keyboard flag, and r @@2557=6036 TLS / Load the TTO from the content of AC4 @@2560=6046 L2561, TSF / Skip if teleprinter flag is a 1. @@2561=6041 JMP L2561 / @@2562=5361 TCF / Clear teleprinter flag. @@2563=6042 JMP I S2554 / return @@2564=5754 C2565, 0406 / AND I C0006 C2566, 6362 / 6362 C2567, 4004 / JMS C0004 TAD C0123 / @@2570=1123 C2571, 0377 / AND C2577 C2572, 0000 / AND L0000 *2600 DCA D0144 / @@2600=3144 RAL / @@2601=7004 DCA D0145 / @@2602=3145 RIB / Read interrupt buffer. The instruct @@2603=6234 CLL RAL / @@2604=7104 RTL / @@2605=7006 AND C0123 / @@2606=0123 TAD C2766 / @@2607=1366 D2610, 3234 / DCA D2634 KSF / Skip if keyboard flag is a 1. @@2611=6031 SKP / @@2612=7410 JMP L2630 / @@2613=5230 DTSF / Skip if error flag is a 1 or if DECt @@2614=6771 SKP / @@2615=7410 JMP I D2637 / long jump to L0000 @@2616=5637 KSDR / Skip the next instruction if the dat @@2617=6701 SKP / @@2620=7410 JMP I D2641 / long jump to L0000 @@2621=5641 C2622, 6622 / 6622 SKP / @@2623=7410 C2624, 5643 / JMP I L2643 DFSE / Skip next instruction if the complet @@2625=6621 D2626, 7200 / CLA D2627, 7200 / CLA L2630, KCC / Clear AC and clear keyboard flag. @@2630=6032 TAD D0145 / @@2631=1145 CLL RAR / @@2632=7110 TAD D0144 / @@2633=1144 D2634, 6201 / CDF0 ION / Enable Interrupts @@2635=6001 C2636, 5400 / JMP I L0000 D2637, 0000 / AND L0000 JMP L2630 / @@2640=5230 D2641, 0000 / AND L0000 JMP L2630 / @@2642=5230 L2643, D2643, 0000 / AND L0000 JMP L2630 / @@2644=5230 C2645, C2645, 0000 / AND L0000 TLS / Load the TTO from the content of AC4 @@2646=6046 L2647, TSF / Skip if teleprinter flag is a 1. @@2647=6041 JMP L2647 / @@2650=5247 TCF / Clear teleprinter flag. @@2651=6042 CLA / @@2652=7200 JMP I C2645 / long jump to L0000 @@2653=5645 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2654 / / Called from: / 0425 0475 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2654, 0 / return area CLA / @@2655=7200 TAD C2716 / @@2656=1316 TAD D2703 / @@2657=1303 SZA CLA / @@2660=7640 JMP L2671 / @@2661=5271 TAD C2705 / @@2662=1305 DCA D2703 / @@2663=3303 TAD D2704 / @@2664=1304 CLL RAL / @@2665=7104 SZL / @@2666=7430 IAC / @@2667=7001 DCA D2704 / @@2670=3304 L2671, TAD D2704 / @@2671=1304 TAD I D2703 / @@2672=1703 DCA I D2703 / @@2673=3703 TAD C2707 / @@2674=1307 RAR / @@2675=7010 TAD I D2703 / @@2676=1703 ISZ D2703 / @@2677=2303 DCA D2717 / @@2700=3317 TAD D2717 / @@2701=1317 JMP I S2654 / return @@2702=5654 D2703, 2716 / ISZ I C2716 D2704, 6543 / 6543 C2705, 2706 / ISZ I C2706 ISZ D0107 / @@2706=2107 C2707, 5432 / JMP I C0032 SNA CLA OSR / @@2710=7654 AND I C2765 / @@2711=0765 C2712, 4321 / JMS C2721 DCA D2610 / @@2713=3210 TAD C0076 / @@2714=1076 C2715, 6543 / 6543 C2716, 5062 / JMP C0062 D2717, 0000 / AND L0000 C2720, C2720, 0000 / AND L0000 LAS / @@2721=7604 AND C0103 / @@2722=0103 SZA CLA / @@2723=7640 JMP L2767 / @@2724=5367 IOF / Disable Interrupts @@2725=6002 D2726, 7610 / SKP CLA JMP L2743 / @@2727=5343 TAD C2774 / @@2730=1374 JMS I C0003 / long call to S2321 @@2731=4403 TAD D0022 / @@2732=1022 CLL RAR / @@2733=7110 RTR / @@2734=7012 JMS I C0045 / long call to S2277 @@2735=4445 TAD C0074 / @@2736=1074 JMS I C0003 / long call to S2321 @@2737=4403 TAD C0105 / @@2740=1105 DCA D2726 / @@2741=3326 JMS I C0050 / long call to S2363 @@2742=4450 L2743, TAD D0022 / @@2743=1022 TAD C2766 / @@2744=1366 DCA D2746 / @@2745=3346 D2746, 6201 / CDF0 C2747, 1014 / TAD AI4 JMS I C0045 / long call to S2277 @@2750=4445 TAD C0125 / @@2751=1125 JMS I D0046 / long call to S2645 @@2752=4446 TAD I D0171 / @@2753=1571 JMS I C0045 / long call to S2277 @@2754=4445 TAD C0125 / @@2755=1125 JMS I D0046 / long call to S2645 @@2756=4446 C2757, 1015 / TAD AI5 JMS I C0045 / long call to S2277 @@2760=4445 TAD C0125 / @@2761=1125 JMS I D0046 / long call to S2645 @@2762=4446 TAD I D0171 / @@2763=1571 JMS I C0045 / long call to S2277 @@2764=4445 C2765, 4450 / JMS I C0050 C2766, 6201 / CDF0 L2767, LAS / @@2767=7604 RAL / @@2770=7004 SMA CLA / @@2771=7700 HLT / @@2772=7402 JMP I C2720 / long jump to L0000 @@2773=5720 C2774, 1357 / TAD C2757 *3000 C3000, C3000, 0417 / AND I AI7 C3001, 0523 / AND I C0123 C3002, 4024 / JMS C0024 TAD D0005 / @@3003=1005 C3004, 4003 / JMS C0003 C3005, 1715 / TAD I C3115 ISZ D0025 / @@3006=2025 C3007, 2405 / ISZ I D0005 ISZ D3040 / @@3010=2240 TAD C0001 / @@3011=1001 ISZ I C3005 / @@3012=2605 C3013, 4024 / JMS C0024 TAD D0005 / @@3014=1005 C3015, 4006 / JMS C0006 TAD I C3114 / @@3016=1714 D3017, 1417 / TAD I AI7 ISZ I C3111 / @@3020=2711 TAD I C3007 / @@3021=1607 D3022, 4004 / JMS C0004 AND I C0126 / @@3023=0526 TAD C0103 / @@3024=1103 AND I C0123 / @@3025=0523 C3026, 4050 / JMS C0050 ISZ I C0031 / @@3027=2431 ISZ D0005 / @@3030=2005 D3031, 4031 / JMS C0031 JMP I C0131 / long jump to L7740 @@3032=5531 AND I C0123 / @@3033=0523 C3034, 4016 / JMS AI6 JMP I C0116 / long jump to L7462 @@3035=5516 TAD I C3151 / @@3036=1751 C3037, 0000 / AND L0000 D3040, 2206 / ISZ C3006 C3041, 6070 / 6070 C3042, 4004 / JMS C0004 TAD C0123 / @@3043=1123 AND C3177 / @@3044=0377 C3045, 0000 / AND L0000 AND I C0130 / @@3046=0530 ISZ I D0022 / @@3047=2422 AND C0140 / @@3050=0140 TAD I C0105 / @@3051=1505 TAD I C0117 / @@3052=1517 ISZ D3031 / @@3053=2231 SMA CLA / @@3054=7700 C3055, 1017 / TAD AI7 ISZ I D3140 / @@3056=2740 TAD I C0125 / @@3057=1525 AND C3110 / @@3060=0310 SMA CLA / @@3061=7700 C3062, 0411 / AND I AI1 ISZ D3103 / @@3063=2303 C3064, 4005 / JMS D0005 ISZ D3022 / @@3065=2222 TAD I C3122 / @@3066=1722 C3067, 4023 / JMS C0023 ISZ I C0001 / @@3070=2401 ISZ I D0025 / @@3071=2425 ISZ D3140 / @@3072=2340 C3073, 4000 / JMS L0000 ISZ I C0003 / @@3074=2403 DCY / Clear Y coordinate buffer @@3075=6061 C3076, 4005 / JMS D0005 ISZ D3022 / @@3077=2222 TAD I C3122 / @@3100=1722 C3101, 4023 / JMS C0023 ISZ I C0001 / @@3102=2401 D3103, 2425 / ISZ I D0025 ISZ D3140 / @@3104=2340 C3105, 4000 / JMS L0000 ISZ I C0003 / @@3106=2403 C3107, 6570 / 6570 C3110, 4005 / JMS D0005 C3111, 2222 / ISZ D3022 TAD I C3122 / @@3112=1722 C3113, 4023 / JMS C0023 C3114, 2401 / ISZ I C0001 C3115, 2425 / ISZ I D0025 ISZ D3140 / @@3116=2340 C3117, 4000 / JMS L0000 AND I D0022 / @@3120=0422 ISZ I C0115 / @@3121=2515 C3122, 4005 / JMS D0005 ISZ D3022 / @@3123=2222 TAD I C3122 / @@3124=1722 C3125, 4023 / JMS C0023 ISZ I C0001 / @@3126=2401 ISZ I D0025 / @@3127=2425 ISZ D3140 / @@3130=2340 C3131, 4000 / JMS L0000 AND I C3101 / @@3132=0701 AND I C0004 / @@3133=0404 C3134, 4007 / JMS C0007 AND I C0001 / @@3135=0401 ISZ I D0040 / @@3136=2440 AND C3001 / @@3137=0201 D3140, 0404 / AND I C0004 C3141, 4002 / JMS C0002 AND I C0001 / @@3142=0401 C3143, 2400 / ISZ I L0000 ISZ I C0003 / @@3144=2403 DCY / Clear Y coordinate buffer @@3145=6061 C3146, 4004 / JMS C0004 AND C0124 / @@3147=0124 AND C0140 / @@3150=0140 C3151, 0522 / AND I C0122 ISZ D3017 / @@3152=2217 ISZ D3040 / @@3153=2240 TAD C0116 / @@3154=1116 C3155, 4002 / JMS C0002 AND C0116 / @@3156=0116 TAD D3140 / @@3157=1340 C3160, 4000 / JMS L0000 C3161, 0414 / AND I AI4 TAD D0107 / @@3162=1107 AND C0100 / @@3163=0100 C3164, 4100 / JMS C0100 TAD D0121 / @@3165=1121 C3166, 4000 / JMS L0000 TAD I C3000 / @@3167=1600 JMP I C3000 / long jump to L0417 @@3170=5600 C3171, 0000 / AND L0000 C3172, 4000 / JMS L0000 DCA I C3000 / @@3173=3600 7600 / AKA "CLA" @@3174=7600 C3175, 4000 / JMS L0000 C3176, 2000 / ISZ L0000 C3177, 3165 / DCA C0165 $