TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhkea-a-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhkea-a-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 / / 3510 locations used, 2612 code and 0676 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, C0001, 5001 / JMP L0001 D0002, 0002 / AND D0002 D0003, 0003 / AND D0003 D0004, 0004 / AND D0004 D0005, 0005 / AND D0005 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0006 / / Called from: / 2501 2563 7225 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0006, 0 / return area D0007, 0000 / AND L0000 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 AI1, 5406 / AUTO-INDEX REGISTER JMP I S0006 AI2, 0000 / AUTO-INDEX REGISTER AND L0000 AI3, 0000 / AUTO-INDEX REGISTER AND L0000 L0014, AI4, 0000 / AUTO-INDEX REGISTER AND L0000 L0015, AI5, 0000 / AUTO-INDEX REGISTER AND L0000 AI6, 0000 / AUTO-INDEX REGISTER AND L0000 AI7, 0000 / AUTO-INDEX REGISTER AND L0000 D0020, 0000 / AND L0000 D0021, 0000 / AND L0000 D0022, 0000 / AND L0000 D0023, 0000 / AND L0000 D0024, 0000 / AND L0000 D0025, 0000 / AND L0000 D0026, 0000 / AND L0000 D0027, 0000 / AND L0000 D0030, 0000 / AND L0000 D0031, 0000 / AND L0000 D0032, 0000 / AND L0000 D0033, 0000 / AND L0000 D0034, 0000 / AND L0000 D0035, 0000 / AND L0000 D0036, 0000 / AND L0000 D0037, 0000 / AND L0000 D0040, 0000 / AND L0000 D0041, 0000 / AND L0000 D0042, 0000 / AND L0000 C0043, 0000 / AND L0000 D0044, 0000 / AND L0000 D0045, 0000 / AND L0000 D0046, 0000 / AND L0000 D0047, 0000 / AND L0000 *0116 C0116, C0116, 1725 / TAD I C0125 C0117, C0117, 2345 / ISZ D0145 D0120, 3377 / DCA D0177 C0121, 4777 / JMS I D0177 C0122, 4400 / JMS I L0000 C0123, C0123, 2437 / ISZ I D0037 C0124, 0207 / AND D0007 C0125, 6600 / 6600 C0126, C0126, 2074 / ISZ C0074 D0127, 0060 / AND C0060 C0130, 0077 / AND C0077 C0131, 6202 / CIF0 C0132, 0200 / AND L0000 C0133, 6201 / CDF0 C0134, 0010 / AND AI0 D0135, 7407 / DVI + C0136, 5000 / JMP L0000 C0137, 4377 / JMS D0177 D0140, 7425 / MQL MUY + C0141, 1021 / TAD D0021 C0142, C0142, 1525 / TAD I C0125 C0143, 6402 / TTI C0144, 6401 / TTINCR D0145, 1400 / TAD I L0000 C0146, 7400 / C0147, 3400 / DCA I L0000 C0150, 0706 / AND I C0106 D0151, 7445 / SCA MUY + C0152, 0600 / AND I L0000 C0153, 0501 / AND I C0101 C0154, C0154, 2127 / ISZ D0127 C0155, 2777 / ISZ I D0177 C0156, C0156, 6000 / 6000 C0157, 5001 / JMP L0001 C0160, 1000 / TAD L0000 C0161, C0161, 2064 / ISZ C0064 C0162, 2002 / ISZ D0002 C0163, C0163, 2046 / ISZ D0046 C0164, C0164, 2040 / ISZ D0040 C0165, C0165, 2055 / ISZ C0055 C0166, C0166, 1760 / TAD I C0160 C0167, C0167, 2111 / ISZ C0111 C0170, 3000 / DCA L0000 C0171, C0171, 2145 / ISZ D0145 C0172, C0172, 2120 / ISZ D0120 C0173, 0007 / AND D0007 C0174, C0174, 1752 / TAD I C0152 C0175, C0175, 1735 / TAD I D0135 C0176, C0176, 1715 / TAD I C0115 D0177, 1600 / TAD I L0000 L0200, C0200, 6007 / 6007 TAD C0377 / @@0201=1377 DCA D0042 / @@0202=3042 RIF / Same as RDF except reads the instruc @@0203=6224 DCA D0027 / @@0204=3027 LAS / @@0205=7604 AND C0173 / @@0206=0173 C0207, 7104 / CLL RAL RTL / @@0210=7006 DCA D0030 / @@0211=3030 JMS I C0172 / long call to S2120 @@0212=4572 RIF / Same as RDF except reads the instruc @@0213=6224 DCA D0031 / @@0214=3031 TAD D0030 / @@0215=1030 DCA D0032 / @@0216=3032 JMS I C0376 / long call to S2000 @@0217=4776 TAD D0026 / @@0220=1026 CLL CMA / @@0221=7140 TAD D0030 / @@0222=1030 SNL CLA / @@0223=7620 JMP I C0375 / long jump to L2074 @@0224=5775 HLT / @@0225=7402 JMP L0200 / @@0226=5200 JMS I C0171 / long call to S2145 @@0227=4571 NOP / @@0230=7000 TAD C0374 / @@0231=1374 DCA D0042 / @@0232=3042 C0233, 7431 / MQL NMI TAD C0170 / @@0234=1170 L0235, DCA D0245 / @@0235=3245 L0236, TAD D0245 / @@0236=1245 MQL / @@0237=7421 JMS I C0167 / long call to S2111 @@0240=4567 MQA / @@0241=7501 CLL IAC / @@0242=7101 C0243, 7575 / MQA SCA MQL ASR + C0244, 7443 / SCA SCL + D0245, 0000 / AND L0000 C0246, 7451 / SCA NMI JMP L0252 / @@0247=5252 SZL / @@0250=7430 JMP L0257 / @@0251=5257 L0252, JMS I C0166 / long call to S1760 @@0252=4566 JMS I C0165 / long call to S2055 @@0253=4565 JMS S0300 / @@0254=4300 JMS I C0164 / long call to S2040 @@0255=4564 HLT / @@0256=7402 L0257, JMS I C0172 / long call to S2120 @@0257=4572 JMS I C0163 / long call to S2046 @@0260=4563 JMP L0236 / @@0261=5236 TAD D0245 / @@0262=1245 TAD C0162 / @@0263=1162 SNA CLA / @@0264=7650 JMP I C0161 / long jump to L2064 @@0265=5561 TAD D0245 / @@0266=1245 TAD C0160 / @@0267=1160 DCA D0245 / @@0270=3245 TAD D0245 / @@0271=1245 CLL RAL / @@0272=7104 SMA CLA / @@0273=7700 JMP L0236 / @@0274=5236 TAD D0245 / @@0275=1245 TAD C0157 / @@0276=1157 JMP L0235 / @@0277=5235 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0300 / / Called from: / 0254 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0300, 0 / return area TAD D0245 / @@0301=1245 JMS I C0156 / long call to S6000 @@0302=4556 C0303, 6755 / 6755 TAD D0245 / @@0304=1245 JMS I C0373 / long call to S6033 @@0305=4773 JMP I S0300 / return @@0306=5700 C0307, 4571 / JMS I C0171 NOP / @@0310=7000 TAD C0372 / @@0311=1372 DCA D0042 / @@0312=3042 TAD C0371 / @@0313=1371 DCA D0007 / @@0314=3007 TAD C0155 / @@0315=1155 DCA AI0 / AUTO INDEX REGISTER @@0316=3010 TAD C0157 / @@0317=1157 DCA D0041 / @@0320=3041 C0321, 7431 / MQL NMI L0322, TAD AI0 / AUTO INDEX REGISTER @@0322=1010 IAC / @@0323=7001 MQL / @@0324=7421 JMS I C0167 / long call to S2111 @@0325=4567 MQA / @@0326=7501 IAC / @@0327=7001 C0330, 7575 / MQA SCA MQL ASR + JMS I C0370 / long call to S2474 @@0331=4770 C0332, 6760 / 6760 C0333, 7451 / SCA NMI JMP L0337 / @@0334=5337 SZL / @@0335=7430 JMP L0344 / @@0336=5344 L0337, JMS I C0166 / long call to S1760 @@0337=4566 JMS I C0165 / long call to S2055 @@0340=4565 JMS S0352 / @@0341=4352 JMS I C0164 / long call to S2040 @@0342=4564 HLT / @@0343=7402 L0344, JMS I C0172 / long call to S2120 @@0344=4572 JMS I C0163 / long call to S2046 @@0345=4563 JMS I C0154 / long call to S2127 @@0346=4554 ISZ D0041 / @@0347=2041 JMP L0322 / @@0350=5322 JMP I C0161 / long jump to L2064 @@0351=5561 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0352 / / Called from: / 0341 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0352, 0 / return area TAD AI0 / AUTO INDEX REGISTER @@0353=1010 JMS I C0156 / long call to S6000 @@0354=4556 C0355, 6760 / 6760 TAD AI0 / AUTO INDEX REGISTER @@0356=1010 JMS I C0373 / long call to S6033 @@0357=4773 JMP I S0352 / return @@0360=5752 *0370 C0370, C0370, 2474 / ISZ I C0074 C0371, 7443 / SCA SCL + C0372, 0400 / AND I L0000 C0373, C0373, 6033 / 6033 C0374, 0307 / AND C0307 C0375, C0375, 2074 / ISZ C0074 C0376, C0376, 2000 / ISZ L0000 C0377, 0227 / AND C0227 JMS I C0171 / long call to S2145 @@0400=4571 CLL CMA / @@0401=7140 TAD C0153 / @@0402=1153 DCA D0042 / @@0403=3042 C0404, 7431 / MQL NMI TAD C0170 / @@0405=1170 L0406, DCA D0415 / @@0406=3215 L0407, TAD D0415 / @@0407=1215 MQL / @@0410=7421 JMS I C0167 / long call to S2111 @@0411=4567 MQA / @@0412=7501 CLL IAC / @@0413=7101 C0414, 7445 / SCA MUY + D0415, 0000 / AND L0000 JMS I C0166 / long call to S1760 @@0416=4566 TAD D0415 / @@0417=1215 MQA MQL / @@0420=7521 C0421, 7457 / SCA LSR + SZA CLA / @@0422=7640 JMP L0444 / @@0423=5244 JMS I C0167 / long call to S2111 @@0424=4567 TAD I D0415 / @@0425=1615 C0426, 7457 / SCA LSR + SZA CLA / @@0427=7640 JMP L0444 / @@0430=5244 C0431, 7573 / MQA SCA MQL SHL + TAD D0022 / @@0432=1022 C0433, 7457 / SCA LSR + SZA CLA / @@0434=7640 JMP L0444 / @@0435=5244 MQA / @@0436=7501 DCA D0033 / @@0437=3033 TAD I D0033 / @@0440=1433 C0441, 7457 / SCA LSR + SNA CLA / @@0442=7650 JMP L0451 / @@0443=5251 L0444, JMS I C0172 / long call to S2120 @@0444=4572 JMS I C0165 / long call to S2055 @@0445=4565 JMS S0472 / @@0446=4272 JMS I C0164 / long call to S2040 @@0447=4564 HLT / @@0450=7402 L0451, JMS I C0172 / long call to S2120 @@0451=4572 JMS I C0163 / long call to S2046 @@0452=4563 JMP L0407 / @@0453=5207 TAD D0415 / @@0454=1215 TAD C0162 / @@0455=1162 SNA CLA / @@0456=7650 JMP I C0161 / long jump to L2064 @@0457=5561 TAD D0415 / @@0460=1215 TAD C0160 / @@0461=1160 DCA D0415 / @@0462=3215 TAD D0415 / @@0463=1215 CLL RAL / @@0464=7104 SMA CLA / @@0465=7700 JMP L0407 / @@0466=5207 TAD D0415 / @@0467=1215 TAD C0157 / @@0470=1157 JMP L0406 / @@0471=5206 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0472 / / Called from: / 0446 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0472, 0 / return area TAD D0415 / @@0473=1215 JMS I C0156 / long call to S6000 @@0474=4556 DTSF / Skip if error flag is a 1 or if DECt @@0475=6771 TAD D0415 / @@0476=1215 JMS I C0577 / long call to S6200 @@0477=4777 JMP I S0472 / return @@0500=5672 JMS I C0171 / long call to S2145 @@0501=4571 CLL CMA / @@0502=7140 TAD C0152 / @@0503=1152 DCA D0042 / @@0504=3042 TAD D0151 / @@0505=1151 DCA D0007 / @@0506=3007 TAD C0155 / @@0507=1155 DCA AI0 / AUTO INDEX REGISTER @@0510=3010 TAD C0157 / @@0511=1157 DCA D0041 / @@0512=3041 C0513, 7431 / MQL NMI L0514, TAD AI0 / AUTO INDEX REGISTER @@0514=1010 IAC / @@0515=7001 MQL / @@0516=7421 JMS I C0167 / long call to S2111 @@0517=4567 MQA / @@0520=7501 IAC / @@0521=7001 JMS I C0576 / long call to S2474 @@0522=4776 DTLB / The memory field portion of status r @@0523=6774 JMS I C0166 / long call to S1760 @@0524=4566 TAD AI0 / AUTO INDEX REGISTER @@0525=1010 DCA D0033 / @@0526=3033 TAD D0033 / @@0527=1033 MQA MQL / @@0530=7521 C0531, 7457 / SCA LSR + SZA CLA / @@0532=7640 JMP L0554 / @@0533=5354 JMS I C0167 / long call to S2111 @@0534=4567 TAD I D0033 / @@0535=1433 C0536, 7457 / SCA LSR + SZA CLA / @@0537=7640 JMP L0554 / @@0540=5354 C0541, 7573 / MQA SCA MQL SHL + TAD D0022 / @@0542=1022 C0543, 7457 / SCA LSR + SZA CLA / @@0544=7640 JMP L0554 / @@0545=5354 MQA / @@0546=7501 DCA D0033 / @@0547=3033 TAD I D0033 / @@0550=1433 C0551, 7457 / SCA LSR + SNA CLA / @@0552=7650 JMP L0561 / @@0553=5361 L0554, JMS I C0172 / long call to S2120 @@0554=4572 JMS I C0165 / long call to S2055 @@0555=4565 JMS S0567 / @@0556=4367 JMS I C0164 / long call to S2040 @@0557=4564 HLT / @@0560=7402 L0561, JMS I C0172 / long call to S2120 @@0561=4572 JMS I C0163 / long call to S2046 @@0562=4563 JMS I C0154 / long call to S2127 @@0563=4554 ISZ D0041 / @@0564=2041 JMP L0514 / @@0565=5314 JMP I C0161 / long jump to L2064 @@0566=5561 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0567 / / Called from: / 0556 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0567, 0 / return area TAD AI0 / AUTO INDEX REGISTER @@0570=1010 JMS I C0156 / long call to S6000 @@0571=4556 DTLB / The memory field portion of status r @@0572=6774 TAD AI0 / AUTO INDEX REGISTER @@0573=1010 JMS I C0577 / long call to S6200 @@0574=4777 JMP I S0567 / return @@0575=5767 C0576, C0576, 2474 / ISZ I C0074 C0577, C0577, 6200 / 6200 D0600, 4571 / JMS I C0171 CLL CMA / @@0601=7140 TAD C0150 / @@0602=1150 DCA D0042 / @@0603=3042 JMS I C0777 / long call to S2200 @@0604=4777 CLA CLL / AC = 0000 @@0605=7300 TAD C0170 / @@0606=1170 DCA D0623 / @@0607=3223 TAD C0147 / @@0610=1147 DCA D0630 / @@0611=3230 TAD C0146 / @@0612=1146 DCA D0041 / @@0613=3041 C0614, 7431 / MQL NMI L0615, CLA CLL CMA RAL / AC = 7776 (-0002) @@0615=7344 DCA D0040 / @@0616=3040 L0617, JMS I C0167 / long call to S2111 @@0617=4567 TAD D0623 / @@0620=1223 CLL / @@0621=7100 C0622, 7425 / MQL MUY + D0623, 0000 / AND L0000 JMS I C0166 / long call to S1760 @@0624=4566 TAD D0022 / @@0625=1022 C0626, 7575 / MQA SCA MQL ASR + C0627, 7443 / SCA SCL + D0630, 0000 / AND L0000 C0631, 7451 / SCA NMI SKP CLA / @@0632=7610 JMP L0640 / @@0633=5240 JMS I C0165 / long call to S2055 @@0634=4565 JMS S0665 / @@0635=4265 JMS I C0164 / long call to S2040 @@0636=4564 HLT / @@0637=7402 L0640, JMS I C0163 / long call to S2046 @@0640=4563 JMP L0617 / @@0641=5217 ISZ D0040 / @@0642=2040 SKP CLA / @@0643=7610 JMP L0654 / @@0644=5254 TAD D0145 / @@0645=1145 TAD D0623 / @@0646=1223 DCA D0623 / @@0647=3223 TAD D0145 / @@0650=1145 TAD D0630 / @@0651=1230 DCA D0630 / @@0652=3230 JMP L0617 / @@0653=5217 L0654, TAD C0144 / @@0654=1144 TAD D0623 / @@0655=1223 DCA D0623 / @@0656=3223 TAD C0143 / @@0657=1143 TAD D0630 / @@0660=1230 DCA D0630 / @@0661=3230 ISZ D0041 / @@0662=2041 JMP L0615 / @@0663=5215 JMP I C0161 / long jump to L2064 @@0664=5561 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0665 / / Called from: / 0635 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0665, 0 / return area TAD D0623 / @@0666=1223 DCA D0033 / @@0667=3033 JMS I C0142 / long call to S1525 @@0670=4542 AND D0033 / @@0671=0033 C0672, 7156 / CLL CMA RTR RTL JMS I C0142 / long call to S1525 @@0673=4542 AND C0043 / @@0674=0043 CLL CMA RTR / @@0675=7152 TAD D0623 / @@0676=1223 JMS I C0776 / long call to S6400 @@0677=4776 IAC RAL / @@0700=7005 CLA CMA CML RAL / @@0701=7264 CLA CMA / @@0702=7242 AND I D0630 / @@0703=0630 CLA CLL IAC RTL / AC = 0004 @@0704=7307 JMP I S0665 / return @@0705=5665 JMS I C0171 / long call to S2145 @@0706=4571 CLL CMA / @@0707=7140 TAD C0141 / @@0710=1141 DCA D0042 / @@0711=3042 TAD C0155 / @@0712=1155 DCA AI0 / AUTO INDEX REGISTER @@0713=3010 TAD C0147 / @@0714=1147 DCA D0737 / @@0715=3337 C0716, 7431 / MQL NMI JMS I C0777 / long call to S2200 @@0717=4777 CLA CLL CMA RAL / AC = 7776 (-0002) @@0720=7344 DCA D0040 / @@0721=3040 TAD D0140 / @@0722=1140 DCA D0007 / @@0723=3007 L0724, TAD C0146 / @@0724=1146 DCA D0041 / @@0725=3041 L0726, JMS I C0167 / long call to S2111 @@0726=4567 TAD AI0 / AUTO INDEX REGISTER @@0727=1010 CLL IAC / @@0730=7101 JMS I C0775 / long call to S2474 @@0731=4775 RAR / @@0732=7010 JMS I C0166 / long call to S1760 @@0733=4566 TAD D0022 / @@0734=1022 C0735, 7575 / MQA SCA MQL ASR + C0736, 7443 / SCA SCL + D0737, 0000 / AND L0000 C0740, 7451 / SCA NMI SKP CLA / @@0741=7610 JMP L0747 / @@0742=5347 JMS I C0165 / long call to S2055 @@0743=4565 JMS I C0774 / long call to S1000 @@0744=4774 JMS I C0164 / long call to S2040 @@0745=4564 HLT / @@0746=7402 L0747, JMS I C0163 / long call to S2046 @@0747=4563 SKP CLA / @@0750=7610 JMP L0756 / @@0751=5356 STA / AC = 7777 (-0001) @@0752=7240 TAD AI0 / AUTO INDEX REGISTER @@0753=1010 DCA AI0 / AUTO INDEX REGISTER @@0754=3010 JMP L0726 / @@0755=5326 L0756, ISZ D0737 / @@0756=2337 ISZ D0737 / @@0757=2337 ISZ D0041 / @@0760=2041 JMP L0726 / @@0761=5326 ISZ D0040 / @@0762=2040 JMP L0765 / @@0763=5365 JMP I C0161 / long jump to L2064 @@0764=5561 L0765, TAD C0137 / @@0765=1137 DCA AI0 / AUTO INDEX REGISTER @@0766=3010 TAD C0136 / @@0767=1136 DCA D0737 / @@0770=3337 JMP L0724 / @@0771=5324 *0774 C0774, C0774, 1000 / TAD L0000 C0775, C0775, 2474 / ISZ I C0074 C0776, C0776, 6400 / 6400 C0777, C0777, 2200 / ISZ D0600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / Called from: / 0744 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1000, 0 / return area TAD AI0 / AUTO INDEX REGISTER @@1001=1010 DCA D0033 / @@1002=3033 JMS I C0142 / long call to S1525 @@1003=4542 AND D0033 / @@1004=0033 D1005, 7156 / CLL CMA RTR RTL JMS I C0142 / long call to S1525 @@1006=4542 AND C0043 / @@1007=0043 CLL CMA RTR / @@1010=7152 TAD AI0 / AUTO INDEX REGISTER @@1011=1010 JMS I C1177 / long call to S6400 @@1012=4777 RAR / @@1013=7010 CLA CMA CML RAL / @@1014=7264 CLA CMA / @@1015=7242 AND I C1137 / @@1016=0737 CLA CLL IAC RTL / AC = 0004 @@1017=7307 JMP I S1000 / return @@1020=5600 JMS I C0171 / long call to S2145 @@1021=4571 CLL CMA / @@1022=7140 TAD C1176 / @@1023=1376 DCA D0042 / @@1024=3042 JMS I C1175 / long call to S2242 @@1025=4775 TAD C0170 / @@1026=1170 DCA D1047 / @@1027=3247 TAD C0147 / @@1030=1147 DCA D1057 / @@1031=3257 TAD C0146 / @@1032=1146 DCA D0041 / @@1033=3041 C1034, 7431 / MQL NMI L1035, CLA CLL CMA RAL / AC = 7776 (-0002) @@1035=7344 DCA D0040 / @@1036=3040 L1037, JMS I C0167 / long call to S2111 @@1037=4567 TAD D1047 / @@1040=1247 IAC / @@1041=7001 D1042, 7421 / MQL MQA / @@1043=7501 CLL CMA RAR / @@1044=7150 CLL / @@1045=7100 C1046, 7407 / DVI + D1047, 0000 / AND L0000 JMS I C0166 / long call to S1760 @@1050=4566 TAD D0020 / @@1051=1020 SPA CLA / @@1052=7710 JMP L1063 / @@1053=5263 TAD D0022 / @@1054=1022 C1055, 7575 / MQA SCA MQL ASR + C1056, 7443 / SCA SCL + D1057, 0000 / AND L0000 C1060, 7451 / SCA NMI SKP CLA / @@1061=7610 JMP L1067 / @@1062=5267 L1063, JMS I C0165 / long call to S2055 @@1063=4565 JMS S1114 / @@1064=4314 JMS I C0164 / long call to S2040 @@1065=4564 HLT / @@1066=7402 L1067, JMS I C0163 / long call to S2046 @@1067=4563 JMP L1037 / @@1070=5237 ISZ D0040 / @@1071=2040 SKP CLA / @@1072=7610 JMP L1103 / @@1073=5303 TAD D0145 / @@1074=1145 TAD D1047 / @@1075=1247 DCA D1047 / @@1076=3247 TAD D0145 / @@1077=1145 TAD D1057 / @@1100=1257 DCA D1057 / @@1101=3257 JMP L1037 / @@1102=5237 L1103, TAD C0144 / @@1103=1144 TAD D1047 / @@1104=1247 DCA D1047 / @@1105=3247 TAD C0143 / @@1106=1143 TAD D1057 / @@1107=1257 DCA D1057 / @@1110=3257 ISZ D0041 / @@1111=2041 JMP L1035 / @@1112=5235 JMP I C0161 / long jump to L2064 @@1113=5561 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1114 / / Called from: / 1064 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1114, 0 / return area TAD D1047 / @@1115=1247 CIA / @@1116=7041 DCA D0033 / @@1117=3033 JMS I C0142 / long call to S1525 @@1120=4542 AND D0033 / @@1121=0033 C1122, 7156 / CLL CMA RTR RTL TAD D0033 / @@1123=1033 CLL CMA RAR / @@1124=7150 DCA D0033 / @@1125=3033 JMS I C0142 / long call to S1525 @@1126=4542 AND D0033 / @@1127=0033 CLL CMA RTR / @@1130=7152 TAD D1047 / @@1131=1247 JMS I C1177 / long call to S6400 @@1132=4777 CML IAC / @@1133=7021 C1134, 7274 / CLA CMA CML RAR RAL CLA CMA RTL / @@1135=7246 C1136, 1057 / TAD C0057 C1137, 7313 / CLA CLL IAC RTR JMP I S1114 / return @@1140=5714 *1175 C1175, C1175, 2242 / ISZ D1042 C1176, 1200 / TAD S1000 C1177, C1177, 6400 / 6400 JMS I C0171 / long call to S2145 @@1200=4571 CLL CMA / @@1201=7140 TAD C1377 / @@1202=1377 DCA D0042 / @@1203=3042 JMS I C1376 / long call to S2242 @@1204=4776 TAD C0155 / @@1205=1155 DCA AI0 / AUTO INDEX REGISTER @@1206=3010 TAD C0147 / @@1207=1147 DCA D1241 / @@1210=3241 C1211, 7431 / MQL NMI CLA CLL CMA RAL / AC = 7776 (-0002) @@1212=7344 DCA D0040 / @@1213=3040 TAD D0135 / @@1214=1135 DCA D0007 / @@1215=3007 L1216, TAD C0146 / @@1216=1146 DCA D0041 / @@1217=3041 L1220, JMS I C0167 / long call to S2111 @@1220=4567 CLL IAC / @@1221=7101 IAC / @@1222=7001 TAD AI0 / AUTO INDEX REGISTER @@1223=1010 MQL / @@1224=7421 MQA / @@1225=7501 CLL CMA RAR / @@1226=7150 CLL / @@1227=7100 JMS I C1375 / long call to S2474 @@1230=4775 CML RAL / @@1231=7024 JMS I C0166 / long call to S1760 @@1232=4566 TAD D0020 / @@1233=1020 SPA CLA / @@1234=7710 JMP L1245 / @@1235=5245 TAD D0022 / @@1236=1022 C1237, 7575 / MQA SCA MQL ASR + C1240, 7443 / SCA SCL + D1241, 0000 / AND L0000 D1242, 7451 / SCA NMI SKP CLA / @@1243=7610 JMP L1251 / @@1244=5251 L1245, JMS I C0165 / long call to S2055 @@1245=4565 JMS S1274 / @@1246=4274 JMS I C0164 / long call to S2040 @@1247=4564 HLT / @@1250=7402 L1251, JMS I C0163 / long call to S2046 @@1251=4563 SKP CLA / @@1252=7610 JMP L1260 / @@1253=5260 STA / AC = 7777 (-0001) @@1254=7240 TAD AI0 / AUTO INDEX REGISTER @@1255=1010 DCA AI0 / AUTO INDEX REGISTER @@1256=3010 JMP L1220 / @@1257=5220 L1260, ISZ D1241 / @@1260=2241 ISZ D1241 / @@1261=2241 ISZ D0041 / @@1262=2041 JMP L1220 / @@1263=5220 ISZ D0040 / @@1264=2040 JMP L1267 / @@1265=5267 JMP I C0161 / long jump to L2064 @@1266=5561 L1267, TAD C0137 / @@1267=1137 DCA AI0 / AUTO INDEX REGISTER @@1270=3010 TAD C0136 / @@1271=1136 DCA D1241 / @@1272=3241 JMP L1216 / @@1273=5216 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1274 / / Called from: / 1246 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1274, 0 / return area TAD AI0 / AUTO INDEX REGISTER @@1275=1010 CIA / @@1276=7041 DCA D0033 / @@1277=3033 JMS I C0142 / long call to S1525 @@1300=4542 AND D0033 / @@1301=0033 C1302, 7156 / CLL CMA RTR RTL TAD D0033 / @@1303=1033 CLL CMA RAR / @@1304=7150 DCA D0033 / @@1305=3033 JMS I C0142 / long call to S1525 @@1306=4542 AND D0033 / @@1307=0033 CLL CMA RTR / @@1310=7152 TAD AI0 / AUTO INDEX REGISTER @@1311=1010 JMS I C1374 / long call to S6400 @@1312=4774 CML RAL / @@1313=7024 C1314, 7274 / CLA CMA CML RAR RAL CLA CMA RTL / @@1315=7246 TAD D1241 / @@1316=1241 CLA CLL IAC RTR / @@1317=7313 JMP I S1274 / return @@1320=5674 *1374 C1374, C1374, 6400 / 6400 C1375, C1375, 2474 / ISZ I C0074 C1376, C1376, 2242 / ISZ D1242 C1377, 1400 / TAD I L0000 CLA CLL / AC = 0000 @@1400=7300 TAD C1577 / @@1401=1377 DCA D0042 / @@1402=3042 LAS / @@1403=7604 CLL RTR / @@1404=7112 RTR / @@1405=7012 SZL / @@1406=7430 JMP I C1576 / long jump to L2074 @@1407=5776 AND C1575 / @@1410=0375 SZA CLA / @@1411=7640 JMP I C1576 / long jump to L2074 @@1412=5776 TAD D0026 / @@1413=1026 SNA CLA / @@1414=7650 JMP I C1574 / long jump to L2135 @@1415=5774 TAD D0032 / @@1416=1032 TAD C0134 / @@1417=1134 MQL / @@1420=7421 MQA / @@1421=7501 CIA / @@1422=7041 TAD D0026 / @@1423=1026 SPA CLA / @@1424=7710 CAM / @@1425=7621 MQA / @@1426=7501 CIA / @@1427=7041 TAD D0030 / @@1430=1030 SNA CLA / @@1431=7650 JMP L1436 / @@1432=5236 L1433, MQA / @@1433=7501 DCA D0032 / @@1434=3032 JMP I C1576 / long jump to L2074 @@1435=5776 L1436, LAS / @@1436=7604 CLL / @@1437=7102 RTL / @@1440=7006 SZL CLA / @@1441=7630 JMP L1433 / @@1442=5233 MQA / @@1443=7501 DCA D0032 / @@1444=3032 TAD D0031 / @@1445=1031 TAD C0134 / @@1446=1134 MQL / @@1447=7421 MQA / @@1450=7501 CIA / @@1451=7041 TAD D0026 / @@1452=1026 SPA CLA / @@1453=7710 CAM / @@1454=7621 MQA / @@1455=7501 TAD C0133 / @@1456=1133 DCA D1476 / @@1457=3276 MQA / @@1460=7501 DCA D0031 / @@1461=3031 DCA L5 / @@1462=3015 DCA AI6 / AUTO INDEX REGISTER @@1463=3016 DCA AI7 / AUTO INDEX REGISTER @@1464=3017 TAD C0132 / @@1465=1132 DCA D0033 / @@1466=3033 L1467, RIF / Same as RDF except reads the instruc @@1467=6224 TAD C0133 / @@1470=1133 DCA D1472 / @@1471=3272 D1472, 0000 / AND L0000 TAD I AI6 / AUTO INDEX REGISTER @@1473=1416 DCA D0037 / @@1474=3037 TAD D0037 / @@1475=1037 D1476, 0000 / AND L0000 DCA I AI7 / AUTO INDEX REGISTER @@1477=3417 TAD I L5 / @@1500=1415 CIA / @@1501=7041 TAD D0037 / @@1502=1037 SNA CLA / @@1503=7650 JMP L1507 / @@1504=5307 L1505, HLT / @@1505=7402 JMP L1505 / @@1506=5305 L1507, ISZ D0033 / @@1507=2033 JMP L1467 / @@1510=5267 MQA / @@1511=7501 TAD C0131 / @@1512=1131 DCA D1514 / @@1513=3314 D1514, 0000 / AND L0000 JMP L1516 / @@1515=5316 L1516, JMS I C0172 / long call to S2120 @@1516=4572 MQA / @@1517=7501 CIA / @@1520=7041 TAD D0027 / @@1521=1027 SNA CLA / @@1522=7650 JMP I C1574 / long jump to L2135 @@1523=5774 JMP I C1576 / long jump to L2074 @@1524=5776 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1525 / / Called from: / 0670 0673 1003 1006 1120 1126 1300 1306 2526 2533 6002 6006 6050 6053 6073 / 6076 6115 6120 6233 6236 6257 6271 6274 6315 6411 6443 6477 6502 6516 6521 / 6524 / Total 0037 (31) calls //////////////////////////////////////////////////////////////////////////////// S1525, 0 / return area CLA / @@1526=7200 TAD I S1525 / @@1527=1725 DCA D1562 / @@1530=3362 ISZ S1525 / @@1531=2325 TAD I S1525 / @@1532=1725 DCA D1563 / @@1533=3363 ISZ S1525 / @@1534=2325 TAD C1565 / @@1535=1365 AND I D1562 / @@1536=0762 CLL / @@1537=7102 JMS S1547 / @@1540=4347 ISZ D1563 / @@1541=2363 TAD C1565 / @@1542=1365 CMA / @@1543=7040 AND I D1562 / @@1544=0762 JMS S1547 / @@1545=4347 JMP I S1525 / return @@1546=5725 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1547 / / Called from: / 1540 1545 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1547, 0 / return area DCA D1564 / @@1550=3364 TAD D1564 / @@1551=1364 RTL / @@1552=7006 RAL / @@1553=7004 AND C1566 / @@1554=0366 TAD D1564 / @@1555=1364 AND C1566 / @@1556=0366 TAD C1567 / @@1557=1367 DCA I D1563 / @@1560=3763 JMP I S1547 / return @@1561=5747 D1562, 0000 / AND L0000 D1563, 0000 / AND L0000 D1564, 0000 / AND L0000 C1565, 7700 / SMA CLA C1566, 0707 / AND I L1507 C1567, 6060 / 6060 *1574 C1574, C1574, 2135 / ISZ D0135 C1575, 0020 / AND D0020 C1576, C1576, 2074 / ISZ C0074 C1577, 0227 / AND C1427 D1600, 0000 / AND L0000 CLA / @@1601=7200 TAD I D1600 / @@1602=1600 DCA D1666 / @@1603=3266 DCA D1670 / @@1604=3270 ISZ D1600 / @@1605=2200 L1606, TAD I D1666 / @@1606=1666 BSW / @@1607=7002 JMS S1615 / @@1610=4215 TAD I D1666 / @@1611=1666 JMS S1615 / @@1612=4215 ISZ D1666 / @@1613=2266 JMP L1606 / @@1614=5206 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1615 / / Called from: / 1610 1612 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1615, 0 / return area AND C0130 / @@1616=0130 DCA D1667 / @@1617=3267 TAD D1670 / @@1620=1270 SZA CLA / @@1621=7640 JMP L1632 / @@1622=5232 TAD D1667 / @@1623=1267 SNA / @@1624=7450 JMP L1630 / @@1625=5230 L1626, JMS S1643 / @@1626=4243 JMP I S1615 / return @@1627=5615 L1630, ISZ D1670 / @@1630=2270 JMP I S1615 / return @@1631=5615 L1632, DCA D1670 / @@1632=3270 TAD D1667 / @@1633=1267 SNA / @@1634=7450 JMP I S1615 / return @@1635=5615 TAD C1672 / @@1636=1272 SNA CLA / @@1637=7650 JMP I D1600 / long jump to L0000 @@1640=5600 TAD D1667 / @@1641=1267 JMP L1626 / @@1642=5226 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1643 / / Called from: / 1626 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1643, 0 / return area TAD C1673 / @@1644=1273 SZA CLA / @@1645=7640 JMP L1652 / @@1646=5252 TAD C1700 / @@1647=1300 L1650, JMS S1702 / @@1650=4302 JMP I S1643 / return @@1651=5643 L1652, TAD D1667 / @@1652=1267 TAD C1674 / @@1653=1274 SZA CLA / @@1654=7640 JMP L1660 / @@1655=5260 TAD C1677 / @@1656=1277 JMP L1650 / @@1657=5250 L1660, TAD D1667 / @@1660=1267 TAD C1675 / @@1661=1275 SPA / @@1662=7510 TAD C1676 / @@1663=1276 TAD C1701 / @@1664=1301 JMP L1650 / @@1665=5250 D1666, 0000 / AND L0000 D1667, 0000 / AND L0000 D1670, 0000 / AND L0000 AND L0000 / @@1671=0000 C1672, 7701 / CLA MQA C1673, 7733 / CLA MQA MQL SHL + C1674, 7735 / CLA MQA MQL ASR + C1675, 7740 / SMA SZA CLA C1676, 0100 / AND C0100 C1677, 0212 / AND C1612 C1700, 0215 / AND S1615 C1701, 0240 / AND C1640 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1702 / / Called from: / 1650 2024 2140 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1702, 0 / return area TLS / Load the TTO from the content of AC4 @@1703=6046 L1704, TSF / Skip if teleprinter flag is a 1. @@1704=6041 JMP L1704 / @@1705=5304 TCF / Clear teleprinter flag. @@1706=6042 CLA CLL / AC = 0000 @@1707=7300 JMP I S1702 / return @@1710=5702 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1711 / / Called from: / 1721 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1711, 0 / return area JMS I D0177 / long call to S1600 @@1712=4577 LSD / Skip if the printer done flag is a 1 @@1713=6661 JMP I S1711 / return @@1714=5711 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1715 / / Called from: / 2551 6035 6204 6217 6223 6231 6243 6251 6266 6301 6307 6432 6460 6514 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S1715, 0 / return area TAD I S1715 / @@1716=1715 CIA / @@1717=7041 DCA D0037 / @@1720=3037 L1721, JMS S1711 / @@1721=4311 ISZ D0037 / @@1722=2037 JMP L1721 / @@1723=5321 JMP I S1715 / return @@1724=5715 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1725 / / Called from: / 6114 6226 6513 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1725, 0 / return area SZA CLA / @@1726=7640 IAC / @@1727=7001 TAD D0127 / @@1730=1127 DCA I C1777 / @@1731=3777 JMS I D0177 / long call to S1600 @@1732=4577 CLL CMA / @@1733=7142 JMP I S1725 / return @@1734=5725 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1735 / / Called from: / 2536 6015 6056 6101 6123 6206 6245 6262 6303 6414 6446 6505 6527 / Total 0015 (13) calls //////////////////////////////////////////////////////////////////////////////// S1735, 0 / return area TAD I S1735 / @@1736=1735 CIA / @@1737=7041 DCA S1752 / @@1740=3352 L1741, ISZ S1735 / @@1741=2335 TAD I S1735 / @@1742=1735 DCA D1745 / @@1743=3345 JMS I D0177 / long call to S1600 @@1744=4577 D1745, 0000 / AND L0000 ISZ S1752 / @@1746=2352 JMP L1741 / @@1747=5341 ISZ S1735 / @@1750=2335 JMP I S1735 / return @@1751=5735 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1752 / / Called from: / 2003 2025 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1752, 0 / return area KCC / Clear AC and clear keyboard flag. @@1753=6032 L1754, KSF / Skip if keyboard flag is a 1. @@1754=6031 JMP L1754 / @@1755=5354 KRB / Clear AC, clear keyboard flag, and r @@1756=6036 JMP I S1752 / return @@1757=5752 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1760 / / Called from: / 0252 0337 0416 0524 0624 0733 1050 1232 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S1760, 0 / return area DCA D0022 / @@1761=3022 RAR / @@1762=7010 DCA D0020 / @@1763=3020 MQA / @@1764=7501 DCA D0021 / @@1765=3021 RDF / Read data field into AC6-8. Bit 0-5 @@1766=6214 DCA D0024 / @@1767=3024 RIF / Same as RDF except reads the instruc @@1770=6224 DCA D0025 / @@1771=3025 C1772, 7441 / SCA DCA D0023 / @@1773=3023 JMS I C0172 / long call to S2120 @@1774=4572 JMP I S1760 / return @@1775=5760 *1777 C1777, 7142 / CLL CMA //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2000 / / Called from: / 0217 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2000, 0 / return area L2001, JMS I D0177 / long call to S1600 @@2001=4577 CLA CML / @@2002=7220 JMS I C0174 / long call to S1752 @@2003=4574 TAD C2177 / @@2004=1377 SPA CLA / @@2005=7710 JMP L2001 / @@2006=5201 KRS / Read keyboard buffer static. This is @@2007=6034 TAD C2176 / @@2010=1376 SMA CLA / @@2011=7700 JMP L2001 / @@2012=5201 KRS / Read keyboard buffer static. This is @@2013=6034 AND C0173 / @@2014=0173 CLL RTL / @@2015=7106 RAL / @@2016=7004 DCA D0026 / @@2017=3026 TAD D0026 / @@2020=1026 CLL RTR / @@2021=7112 RAR / @@2022=7010 TAD D0127 / @@2023=1127 JMS I C2175 / long call to S1702 @@2024=4775 L2025, JMS I C0174 / long call to S1752 @@2025=4574 TAD C2174 / @@2026=1374 SNA CLA / @@2027=7650 JMP L2001 / @@2030=5201 KRB / Clear AC, clear keyboard flag, and r @@2031=6036 TAD C2173 / @@2032=1373 SZA CLA / @@2033=7640 JMP L2025 / @@2034=5225 JMS I D0177 / long call to S1600 @@2035=4577 C2036, 6610 / 6610 JMP I S2000 / return @@2037=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2040 / / Called from: / 0255 0342 0447 0557 0636 0745 1065 1247 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S2040, 0 / return area LAS / @@2041=7604 SMA CLA / @@2042=7700 JMP I S2040 / return @@2043=5640 ISZ S2040 / @@2044=2240 JMP I S2040 / return @@2045=5640 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2046 / / Called from: / 0260 0345 0452 0562 0640 0747 1067 1251 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S2046, 0 / return area LAS / @@2047=7604 CLL RAL / @@2050=7104 SPA CLA / @@2051=7710 JMP I S2046 / return @@2052=5646 ISZ S2046 / @@2053=2246 JMP I S2046 / return @@2054=5646 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2055 / / Called from: / 0253 0340 0445 0555 0634 0743 1063 1245 2135 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S2055, 0 / return area LAS / @@2056=7604 CLL RTL / @@2057=7106 SMA CLA / @@2060=7700 JMP I S2055 / return @@2061=5655 ISZ S2055 / @@2062=2255 JMP I S2055 / return @@2063=5655 L2064, LAS / @@2064=7604 AND C2172 / @@2065=0372 SZA CLA / @@2066=7640 JMP I C0126 / long jump to L2074 @@2067=5526 TAD D0042 / @@2070=1042 DCA D2073 / @@2071=3273 JMP I D2073 / long jump to L0000 @@2072=5673 D2073, 0000 / AND L0000 L2074, LAS / @@2074=7604 CLL RTL / @@2075=7106 RAL / @@2076=7004 SMA / @@2077=7500 JMP L2064 / @@2100=5264 CLL / @@2101=7102 C2102, 7012 / RTR AND C0173 / @@2103=0173 TAD C0125 / @@2104=1125 DCA D0037 / @@2105=3037 TAD I D0037 / @@2106=1437 DCA D0037 / @@2107=3037 JMP I D0037 / long jump to L0000 @@2110=5437 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2111 / / Called from: / 0240 0325 0411 0424 0517 0534 0617 0726 1037 1220 2156 2455 2556 6037 6253 / 6311 6437 / Total 0021 (17) calls //////////////////////////////////////////////////////////////////////////////// S2111, 0 / return area CLA CLL / AC = 0000 @@2112=7300 TAD D0032 / @@2113=1032 TAD C0133 / @@2114=1133 DCA D2116 / @@2115=3316 D2116, 0000 / AND L0000 JMP I S2111 / return @@2117=5711 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2120 / / Called from: / 0212 0257 0344 0444 0451 0554 0561 1516 1774 2165 2472 2517 6047 6256 6314 / 6442 / Total 0020 (16) calls //////////////////////////////////////////////////////////////////////////////// S2120, 0 / return area CLA / @@2121=7200 RIF / Same as RDF except reads the instruc @@2122=6224 TAD C0133 / @@2123=1133 DCA D2125 / @@2124=3325 D2125, 0000 / AND L0000 JMP I S2120 / return @@2126=5720 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2127 / / Called from: / 0346 0563 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2127, 0 / return area STA / AC = 7777 (-0001) @@2130=7240 TAD AI0 / AUTO INDEX REGISTER @@2131=1010 DCA AI0 / AUTO INDEX REGISTER @@2132=3010 ISZ S2127 / @@2133=2327 JMP I S2127 / return @@2134=5727 L2135, JMS I C0165 / long call to S2055 @@2135=4565 JMP L2142 / @@2136=5342 TAD C0124 / @@2137=1124 JMS I C2175 / long call to S1702 @@2140=4775 JMP L2064 / @@2141=5264 L2142, JMS I D0177 / long call to S1600 @@2142=4577 CLA RTR / @@2143=7212 JMP L2064 / @@2144=5264 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2145 / / Called from: / 0227 0400 0501 0706 1021 1200 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S2145, 0 / return area CLA CLL / AC = 0000 @@2146=7300 JMS I C0123 / long call to S2437 @@2147=4523 TAD C0136 / @@2150=1136 DCA D0041 / @@2151=3041 TAD I S2145 / @@2152=1745 DCA D2161 / @@2153=3361 TAD C2171 / @@2154=1371 DCA AI6 / AUTO INDEX REGISTER @@2155=3016 JMS I C0167 / long call to S2111 @@2156=4567 L2157, TAD AI6 / AUTO INDEX REGISTER @@2157=1016 IAC / @@2160=7001 D2161, 0000 / AND L0000 DCA I AI6 / AUTO INDEX REGISTER @@2162=3416 ISZ D0041 / @@2163=2041 JMP L2157 / @@2164=5357 JMS I C0172 / long call to S2120 @@2165=4572 ISZ S2145 / @@2166=2345 JMP I S2145 / return @@2167=5745 *2171 C2171, 2777 / ISZ I C2177 C2172, 0400 / AND I L0000 C2173, 7563 / MQA SCA MQL SCL + C2174, 7401 / NOP C2175, C2175, 1702 / TAD I C2102 C2176, 7510 / SPA C2177, 7520 / SMA SNL //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2200 / / Called from: / 0604 0717 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2200, 0 / return area C2201, 7431 / MQL NMI CLA CLL / AC = 0000 @@2202=7300 TAD C0170 / @@2203=1170 DCA D2217 / @@2204=3217 TAD C0147 / @@2205=1147 DCA D2221 / @@2206=3221 CLA CLL CMA RAL / AC = 7776 (-0002) @@2207=7344 DCA D0040 / @@2210=3040 L2211, TAD C0146 / @@2211=1146 DCA D0041 / @@2212=3041 L2213, CLA CLL / AC = 0000 @@2213=7300 TAD D2217 / @@2214=1217 CLL CMA / @@2215=7140 JMS D2306 / @@2216=4306 D2217, 0000 / AND L0000 C2220, 7445 / SCA MUY + D2221, 0000 / AND L0000 ISZ D2217 / @@2222=2217 ISZ D2221 / @@2223=2221 ISZ D2221 / @@2224=2221 ISZ D0041 / @@2225=2041 JMP L2213 / @@2226=5213 ISZ D0040 / @@2227=2040 SKP CLA / @@2230=7610 JMP I S2200 / return @@2231=5600 TAD C0122 / @@2232=1122 DCA D2217 / @@2233=3217 TAD C0136 / @@2234=1136 DCA D2221 / @@2235=3221 JMP L2211 / @@2236=5211 D2237, 0000 / AND L0000 D2240, 0000 / AND L0000 AND L0000 / @@2241=0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2242 / / Called from: / 1025 1204 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2242, 0 / return area C2243, 7431 / MQL NMI CLA CLL / AC = 0000 @@2244=7300 TAD C0121 / @@2245=1121 DCA D2264 / @@2246=3264 TAD C0147 / @@2247=1147 DCA D2266 / @@2250=3266 CLA CLL CMA RAL / AC = 7776 (-0002) @@2251=7344 DCA D0040 / @@2252=3040 L2253, TAD C0146 / @@2253=1146 DCA D0041 / @@2254=3041 L2255, CLA CLL / AC = 0000 @@2255=7300 TAD D2264 / @@2256=1264 CIA / @@2257=7041 DCA D2237 / @@2260=3237 TAD D2237 / @@2261=1237 CLL CMA RAR / @@2262=7150 JMS I C2377 / long call to S2400 @@2263=4777 D2264, 0000 / AND L0000 C2265, 7445 / SCA MUY + D2266, 0000 / AND L0000 CLA CLL CMA / AC = 7777 (-0001) @@2267=7340 TAD D2264 / @@2270=1264 DCA D2264 / @@2271=3264 ISZ D2266 / @@2272=2266 ISZ D2266 / @@2273=2266 ISZ D0041 / @@2274=2041 JMP L2255 / @@2275=5255 ISZ D0040 / @@2276=2040 SKP CLA / @@2277=7610 JMP I S2242 / return @@2300=5642 TAD D0120 / @@2301=1120 DCA D2264 / @@2302=3264 TAD C0136 / @@2303=1136 DCA D2266 / @@2304=3266 JMP L2253 / @@2305=5253 D2306, 0000 / AND L0000 DCA D2237 / @@2307=3237 TAD D2306 / @@2310=1306 DCA D2313 / @@2311=3313 JMP L2314 / @@2312=5314 D2313, 0000 / AND L0000 L2314, DCA D2240 / @@2314=3240 TAD C2376 / @@2315=1376 DCA D2343 / @@2316=3343 TAD I D2313 / @@2317=1713 DCA D2344 / @@2320=3344 ISZ D2313 / @@2321=2313 JMP L2332 / @@2322=5332 L2323, TAD D2240 / @@2323=1240 SNL / @@2324=7420 JMP L2330 / @@2325=5330 CLL / @@2326=7100 TAD D2344 / @@2327=1344 L2330, RAR / @@2330=7010 DCA D2240 / @@2331=3240 L2332, TAD D2237 / @@2332=1237 RAR / @@2333=7010 DCA D2237 / @@2334=3237 ISZ D2343 / @@2335=2343 JMP L2323 / @@2336=5323 TAD D2237 / @@2337=1237 MQL / @@2340=7421 TAD D2240 / @@2341=1240 JMP I D2313 / long jump to L0000 @@2342=5713 D2343, 0000 / AND L0000 D2344, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2345 / / Called from: / 2520 6011 6405 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S2345, 0 / return area TAD D0032 / @@2346=1032 CLL RAR / @@2347=7110 RTR / @@2350=7012 TAD D0127 / @@2351=1127 DCA I C2375 / @@2352=3775 TAD D0031 / @@2353=1031 CLL RAR / @@2354=7110 RTR / @@2355=7012 TAD D0127 / @@2356=1127 DCA I C2374 / @@2357=3774 JMP I S2345 / return @@2360=5745 *2374 C2374, 7114 / CLL RAR RAL C2375, 7117 / CLL IAC RTR RTL C2376, 7763 / CLA MQA SCA MQL SCL + C2377, C2377, 2400 / ISZ I L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2400 / / Called from: / 2263 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2400, 0 / return area DCA D2436 / @@2401=3236 TAD I S2400 / @@2402=1600 ISZ S2400 / @@2403=2200 CLL CMA IAC / @@2404=7141 DCA I C2577 / @@2405=3777 TAD D2436 / @@2406=1236 TAD I C2577 / @@2407=1777 SZL CLA / @@2410=7630 HLT / @@2411=7402 TAD C2576 / @@2412=1376 DCA I C2575 / @@2413=3775 JMP L2425 / @@2414=5225 L2415, TAD D2436 / @@2415=1236 RAL / @@2416=7004 DCA D2436 / @@2417=3236 TAD D2436 / @@2420=1236 TAD I C2577 / @@2421=1777 SZL / @@2422=7430 DCA D2436 / @@2423=3236 CLA / @@2424=7200 L2425, TAD I C2574 / @@2425=1774 RAL / @@2426=7004 DCA I C2574 / @@2427=3774 ISZ I C2575 / @@2430=2775 JMP L2415 / @@2431=5215 TAD I C2574 / @@2432=1774 MQL / @@2433=7421 TAD D2436 / @@2434=1236 JMP I S2400 / return @@2435=5600 D2436, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2437 / / Called from: / 2147 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2437, 0 / return area CLA CLL / AC = 0000 @@2440=7300 TAD D0032 / @@2441=1032 DCA D0033 / @@2442=3033 DCA D0032 / @@2443=3032 TAD D0026 / @@2444=1026 CLL RTR / @@2445=7112 RAR / @@2446=7010 CMA / @@2447=7040 DCA D0034 / @@2450=3034 L2451, TAD C0136 / @@2451=1136 DCA D0041 / @@2452=3041 TAD C0155 / @@2453=1155 DCA AI6 / AUTO INDEX REGISTER @@2454=3016 JMS I C0167 / long call to S2111 @@2455=4567 L2456, DCA I AI6 / AUTO INDEX REGISTER @@2456=3416 ISZ D0041 / @@2457=2041 JMP L2456 / @@2460=5256 ISZ D0034 / @@2461=2034 SKP CLA / @@2462=7610 JMP L2470 / @@2463=5270 TAD D0032 / @@2464=1032 TAD C0134 / @@2465=1134 DCA D0032 / @@2466=3032 JMP L2451 / @@2467=5251 L2470, TAD D0033 / @@2470=1033 DCA D0032 / @@2471=3032 JMS I C0172 / long call to S2120 @@2472=4572 JMP I S2437 / return @@2473=5637 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2474 / / Called from: / 0331 0522 0731 1230 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S2474, 0 / return area DCA D0044 / @@2475=3044 TAD AI0 / AUTO INDEX REGISTER @@2476=1010 DCA D0045 / @@2477=3045 TAD D0044 / @@2500=1044 JMS S0006 / @@2501=4006 DCA D0046 / @@2502=3046 RAR / @@2503=7010 DCA D0047 / @@2504=3047 TAD D0045 / @@2505=1045 CMA / @@2506=7040 TAD AI0 / AUTO INDEX REGISTER @@2507=1010 SZA CLA / @@2510=7640 JMP L2517 / @@2511=5317 ISZ S2474 / @@2512=2274 TAD D0047 / @@2513=1047 CLL RAL / @@2514=7104 TAD D0046 / @@2515=1046 JMP I S2474 / return @@2516=5674 L2517, JMS I C0172 / long call to S2120 @@2517=4572 JMS I C0117 / long call to S2345 @@2520=4517 TAD I S2474 / @@2521=1674 DCA D2541 / @@2522=3341 TAD D0045 / @@2523=1045 IAC / @@2524=7001 DCA D0034 / @@2525=3034 JMS I C0142 / long call to S1525 @@2526=4542 AND D0034 / @@2527=0034 CLA / @@2530=7200 TAD AI0 / AUTO INDEX REGISTER @@2531=1010 DCA D0034 / @@2532=3034 JMS I C0142 / long call to S1525 @@2533=4542 AND D0034 / @@2534=0034 CLL CMA CML IAC / @@2535=7163 JMS I C0175 / long call to S1735 @@2536=4575 AND AI1 / AUTO INDEX REGISTER @@2537=0011 C2540, 6613 / 6613 D2541, 0000 / AND L0000 DFSE / Skip next instruction if the complet @@2542=6621 C2543, 6613 / 6613 C2544, 6637 / 6637 C2545, 7114 / CLL RAR RAL C2546, 6643 / 6643 C2547, 7117 / CLL IAC RTR RTL CLL CMA CML IAC RTL / @@2550=7167 JMS I C0176 / long call to S1715 @@2551=4576 AND AI1 / AUTO INDEX REGISTER @@2552=0011 JMS I D0177 / long call to S1600 @@2553=4577 CLL CMA CML IAC / @@2554=7163 HLT / @@2555=7402 JMS I C0167 / long call to S2111 @@2556=4567 L2557, CLA CLL / AC = 0000 @@2557=7300 TAD D0045 / @@2560=1045 DCA AI0 / AUTO INDEX REGISTER @@2561=3010 TAD D0044 / @@2562=1044 JMS S0006 / @@2563=4006 JMP L2557 / @@2564=5357 *2574 C2574, 2237 / ISZ S2437 C2575, 2343 / ISZ C2543 C2576, 7763 / CLA MQA SCA MQL SCL + C2577, 2306 / ISZ C2506 *6000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6000 / / Called from: / 0302 0354 0474 0571 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S6000, 0 / return area DCA D0033 / @@6001=3033 JMS I C0142 / long call to S1525 @@6002=4542 AND D0033 / @@6003=0033 C6004, 6647 / 6647 ISZ D0033 / @@6005=2033 JMS I C0142 / long call to S1525 @@6006=4542 AND D0033 / @@6007=0033 CLL CML IAC / @@6010=7123 JMS I C0117 / long call to S2345 @@6011=4517 TAD I S6000 / @@6012=1600 DCA D6020 / @@6013=3220 ISZ S6000 / @@6014=2200 JMS I C0175 / long call to S1735 @@6015=4575 AND AI3 / AUTO INDEX REGISTER @@6016=0013 C6017, 6613 / 6613 D6020, 0000 / AND L0000 DFSE / Skip next instruction if the complet @@6021=6621 C6022, 6613 / 6613 C6023, 6637 / 6637 C6024, 7114 / CLL RAR RAL C6025, 6643 / 6643 C6026, 7117 / CLL IAC RTR RTL C6027, 6630 / 6630 C6030, 6647 / 6647 CLL CML IAC / @@6031=7123 JMP I S6000 / return @@6032=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6033 / / Called from: / 0305 0357 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S6033, 0 / return area DCA D0033 / @@6034=3033 JMS I C0176 / long call to S1715 @@6035=4576 AND L5 / @@6036=0015 JMS I C0167 / long call to S2111 @@6037=4567 TAD I D0033 / @@6040=1433 CIA / @@6041=7041 DCA D0034 / @@6042=3034 ISZ D0033 / @@6043=2033 TAD I D0033 / @@6044=1433 CMA / @@6045=7040 DCA D0035 / @@6046=3035 JMS I C0172 / long call to S2120 @@6047=4572 JMS I C0142 / long call to S1525 @@6050=4542 AND D0034 / @@6051=0034 C6052, 7135 / CLL CML IAC RAR RAL JMS I C0142 / long call to S1525 @@6053=4542 AND D0035 / @@6054=0035 CLL CML RAR / @@6055=7130 JMS I C0175 / long call to S1735 @@6056=4575 AND D0005 / @@6057=0005 KCLR / Clear All; clear the status A and B @@6060=6700 C6061, 6663 / 6663 C6062, 6675 / 6675 CLL CML RAR / @@6063=7130 C6064, 7135 / CLL CML IAC RAR RAL TAD D0034 / @@6065=1034 CIA / @@6066=7041 DCA D0034 / @@6067=3034 TAD D0035 / @@6070=1035 CMA / @@6071=7040 DCA D0035 / @@6072=3035 JMS I C0142 / long call to S1525 @@6073=4542 AND D0034 / @@6074=0034 C6075, 7135 / CLL CML IAC RAR RAL JMS I C0142 / long call to S1525 @@6076=4542 AND D0035 / @@6077=0035 CLL CML RAR / @@6100=7130 JMS I C0175 / long call to S1735 @@6101=4575 AND AI0 / AUTO INDEX REGISTER @@6102=0010 C6103, 6710 / 6710 CLL CML RAR / @@6104=7130 C6105, 7135 / CLL CML IAC RAR RAL C6106, 6723 / 6723 C6107, 6741 / 6741 C6110, 6734 / 6734 C6111, 6734 / 6734 C6112, 6744 / 6744 TAD D0020 / @@6113=1020 JMS I C0116 / long call to S1725 @@6114=4516 JMS I C0142 / long call to S1525 @@6115=4542 AND D0022 / @@6116=0022 CLL CML RAR / @@6117=7130 JMS I C0142 / long call to S1525 @@6120=4542 AND D0021 / @@6121=0021 C6122, 7135 / CLL CML IAC RAR RAL JMS I C0175 / long call to S1735 @@6123=4575 AND D0002 / @@6124=0002 CLL CML RAR / @@6125=7130 C6126, 7135 / CLL CML IAC RAR RAL JMP I S6033 / return @@6127=5633 *6200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6200 / / Called from: / 0477 0574 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S6200, 0 / return area DCA D0033 / @@6201=3033 JMS I D0177 / long call to S1600 @@6202=4577 C6203, 7035 / CML IAC RAR RAL JMS I C0176 / long call to S1715 @@6204=4576 AND AI0 / AUTO INDEX REGISTER @@6205=0010 JMS I C0175 / long call to S1735 @@6206=4575 AND D0007 / @@6207=0007 CIA / @@6210=7041 DTSF / Skip if error flag is a 1 or if DECt @@6211=6771 DEAC / Clear the AC then loads the contents @@6212=6616 CMA RTL / @@6213=7046 DTSF / Skip if error flag is a 1 or if DECt @@6214=6771 C6215, 6610 / 6610 CMA IAC RTR / @@6216=7053 JMS I C0176 / long call to S1715 @@6217=4576 AND AI2 / AUTO INDEX REGISTER @@6220=0012 JMS I D0177 / long call to S1600 @@6221=4577 C6222, 6675 / 6675 JMS I C0176 / long call to S1715 @@6223=4576 AND AI2 / AUTO INDEX REGISTER @@6224=0012 TAD D0020 / @@6225=1020 JMS I C0116 / long call to S1725 @@6226=4516 JMS I D0177 / long call to S1600 @@6227=4577 CMA CML / @@6230=7060 JMS I C0176 / long call to S1715 @@6231=4576 AND AI1 / AUTO INDEX REGISTER @@6232=0011 JMS I C0142 / long call to S1525 @@6233=4542 AND D0033 / @@6234=0033 CLL CML RAR / @@6235=7130 JMS I C0142 / long call to S1525 @@6236=4542 AND D0021 / @@6237=0021 C6240, 7135 / CLL CML IAC RAR RAL JMS I D0177 / long call to S1600 @@6241=4577 CLL CML RAR / @@6242=7130 JMS I C0176 / long call to S1715 @@6243=4576 AND D0007 / @@6244=0007 JMS I C0175 / long call to S1735 @@6245=4575 AND D0002 / @@6246=0002 C6247, 7135 / CLL CML IAC RAR RAL CMA CML RTL / @@6250=7066 JMS I C0176 / long call to S1715 @@6251=4576 AND D0021 / @@6252=0021 JMS I C0167 / long call to S2111 @@6253=4567 TAD I D0033 / @@6254=1433 DCA D0035 / @@6255=3035 JMS I C0172 / long call to S2120 @@6256=4572 JMS I C0142 / long call to S1525 @@6257=4542 AND D0035 / @@6260=0035 C6261, 7135 / CLL CML IAC RAR RAL JMS I C0175 / long call to S1735 @@6262=4575 AND D0002 / @@6263=0002 C6264, 7135 / CLL CML IAC RAR RAL C6265, 7076 / CMA CML RTR RTL JMS I C0176 / long call to S1715 @@6266=4576 AND AI1 / AUTO INDEX REGISTER @@6267=0011 ISZ D0033 / @@6270=2033 JMS I C0142 / long call to S1525 @@6271=4542 AND D0033 / @@6272=0033 C6273, 7135 / CLL CML IAC RAR RAL JMS I C0142 / long call to S1525 @@6274=4542 AND D0022 / @@6275=0022 CLL CML RAR / @@6276=7130 JMS I D0177 / long call to S1600 @@6277=4577 C6300, 7135 / CLL CML IAC RAR RAL JMS I C0176 / long call to S1715 @@6301=4576 AND D0007 / @@6302=0007 JMS I C0175 / long call to S1735 @@6303=4575 AND D0002 / @@6304=0002 CLL CML RAR / @@6305=7130 CLL RAL / @@6306=7104 JMS I C0176 / long call to S1715 @@6307=4576 AND D0021 / @@6310=0021 JMS I C0167 / long call to S2111 @@6311=4567 TAD I D0033 / @@6312=1433 DCA D0034 / @@6313=3034 JMS I C0172 / long call to S2120 @@6314=4572 JMS I C0142 / long call to S1525 @@6315=4542 AND D0034 / @@6316=0034 CLL CML RAR / @@6317=7130 JMS I D0177 / long call to S1600 @@6320=4577 CLL CML RAR / @@6321=7130 JMP I S6200 / return @@6322=5600 *6400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6400 / / Called from: / 0677 1012 1132 1312 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S6400, 0 / return area DCA D0033 / @@6401=3033 TAD I S6400 / @@6402=1600 ISZ S6400 / @@6403=2200 DCA D6417 / @@6404=3217 JMS I C0117 / long call to S2345 @@6405=4517 TAD I S6400 / @@6406=1600 ISZ S6400 / @@6407=2200 DCA D6426 / @@6410=3226 JMS I C0142 / long call to S1525 @@6411=4542 AND D0033 / @@6412=0033 C6413, 7135 / CLL CML IAC RAR RAL JMS I C0175 / long call to S1735 @@6414=4575 AND L4 / @@6415=0014 C6416, 6613 / 6613 D6417, 0000 / AND L0000 DFSE / Skip next instruction if the complet @@6420=6621 C6421, 6613 / 6613 C6422, 6637 / 6637 C6423, 7114 / CLL RAR RAL C6424, 6643 / 6643 C6425, 7117 / CLL IAC RTR RTL D6426, 0000 / AND L0000 CLA IAC BSW / AC = 0100 (64) @@6427=7302 C6430, 7135 / CLL CML IAC RAR RAL C6431, 6610 / 6610 JMS I C0176 / long call to S1715 @@6432=4576 AND L5 / @@6433=0015 TAD I S6400 / @@6434=1600 DCA D6451 / @@6435=3251 ISZ S6400 / @@6436=2200 JMS I C0167 / long call to S2111 @@6437=4567 TAD I D0033 / @@6440=1433 DCA D0033 / @@6441=3033 JMS I C0172 / long call to S2120 @@6442=4572 JMS I C0142 / long call to S1525 @@6443=4542 AND D0033 / @@6444=0033 CLL CMA RTL / @@6445=7146 JMS I C0175 / long call to S1735 @@6446=4575 AND AI0 / AUTO INDEX REGISTER @@6447=0010 C6450, 7236 / CLA CML RTR RTL D6451, 0000 / AND L0000 CLA CMA RTR / @@6452=7252 C6453, 6663 / 6663 C6454, 6675 / 6675 CLL CMA RTL / @@6455=7146 C6456, 6723 / 6723 C6457, 6675 / 6675 JMS I C0176 / long call to S1715 @@6460=4576 AND S0006 / @@6461=0006 TAD I S6400 / @@6462=1600 ISZ S6400 / @@6463=2200 DCA D0034 / @@6464=3034 TAD I D0034 / @@6465=1434 DCA D0034 / @@6466=3034 TAD I D0034 / @@6467=1434 DCA D0035 / @@6470=3035 ISZ D0034 / @@6471=2034 TAD I D0034 / @@6472=1434 DCA D0036 / @@6473=3036 TAD I S6400 / @@6474=1600 DCA D6510 / @@6475=3310 ISZ S6400 / @@6476=2200 JMS I C0142 / long call to S1525 @@6477=4542 AND D0035 / @@6500=0035 C6501, 7156 / CLL CMA RTR RTL JMS I C0142 / long call to S1525 @@6502=4542 AND D0036 / @@6503=0036 CLL CMA RTR / @@6504=7152 JMS I C0175 / long call to S1735 @@6505=4575 AND D0003 / @@6506=0003 CLL CMA RTR / @@6507=7152 D6510, 0000 / AND L0000 C6511, 6744 / 6744 TAD D0020 / @@6512=1020 JMS I C0116 / long call to S1725 @@6513=4516 JMS I C0176 / long call to S1715 @@6514=4576 AND S0006 / @@6515=0006 JMS I C0142 / long call to S1525 @@6516=4542 AND D0022 / @@6517=0022 CLL CMA RTR / @@6520=7152 JMS I C0142 / long call to S1525 @@6521=4542 AND D0021 / @@6522=0021 C6523, 7156 / CLL CMA RTR RTL JMS I C0142 / long call to S1525 @@6524=4542 AND D0023 / @@6525=0023 CLL CMA CML IAC / @@6526=7163 JMS I C0175 / long call to S1735 @@6527=4575 AND D0002 / @@6530=0002 CLL CMA RTR / @@6531=7152 CLL CMA CML IAC / @@6532=7163 JMP I S6400 / return @@6533=5600 *6600 D6600, 0227 / AND C6627 AND I L0000 / @@6601=0400 AND I D6600 / @@6602=0600 TAD D0021 / @@6603=1021 C6604, 0307 / AND C6707 C6605, 0501 / AND I C0101 AND I C6706 / @@6606=0706 TAD D6600 / @@6607=1200 C6610, 4543 / JMS I C0143 C6611, 0077 / AND C0077 AND L0000 / @@6612=0000 C6613, 4543 / JMS I C0143 C6614, 4300 / JMS C6700 SMA CLA / @@6615=7700 JMS D0040 / @@6616=4040 D6617, 0077 / AND C0077 AND L0000 / @@6620=0000 JMS D0024 / @@6621=4024 AND I C0123 / @@6622=0523 ISZ I D0040 / @@6623=2440 AND I C0122 / @@6624=0522 ISZ D6617 / @@6625=2217 ISZ D6600 / @@6626=2200 C6627, 7700 / SMA CLA JMS L5 / @@6630=4015 ISZ D0140 / @@6631=2140 C6632, 0104 / AND C0104 AND I D0022 / @@6633=0422 JMS D0040 / @@6634=4040 C6635, 0077 / AND C0077 AND L0000 / @@6636=0000 C6637, 4011 / JMS AI1 C6640, 0640 / AND I C6640 C6641, 0077 / AND C0077 AND L0000 / @@6642=0000 JMS D0040 / @@6643=4040 AND I S0006 / @@6644=0406 JMS L0000 / @@6645=4000 SMA CLA / @@6646=7700 DCA D0030 / @@6647=3030 DCA D0030 / @@6650=3030 C6651, 4543 / JMS I C0143 C6652, 4001 / JMS L0001 AND D6740 / @@6653=0340 C6654, 0104 / AND C0104 AND I D0022 / @@6655=0422 JMS D0040 / @@6656=4040 C6657, 0077 / AND C0077 AND L0000 / @@6660=0000 JMS L0000 / @@6661=4000 SMA CLA / @@6662=7700 C6663, 4543 / JMS I C0143 JMS D6740 / @@6664=4340 TAD I C6722 / @@6665=1722 C6666, 1107 / TAD C0107 TAD C0116 / @@6667=1116 C6670, 0114 / AND C0114 JMS D0040 / @@6671=4040 JMS D0040 / @@6672=4040 C6673, 0077 / AND C0077 AND L0000 / @@6674=0000 C6675, 6040 / 6040 JMS L0000 / @@6676=4000 SMA CLA / @@6677=7700 TAD I D0040 / @@6700=1440 JMS D0040 / @@6701=4040 C6702, 0103 / AND C0103 JMS D0040 / @@6703=4040 JMS D0040 / @@6704=4040 TAD I C0121 / @@6705=1521 C6706, 0077 / AND C0077 C6707, 0000 / AND L0000 C6710, 4543 / JMS I C0143 JMS D0024 / @@6711=4024 TAD I D6740 / @@6712=1740 AND C6605 / @@6713=0205 C6714, 4001 / JMS L0001 AND I D0004 / @@6715=0404 C6716, 0504 / AND I C0104 JMS D0040 / @@6717=4040 JMS D0040 / @@6720=4040 C6721, 0077 / AND C0077 C6722, 0000 / AND L0000 C6723, 4543 / JMS I C0143 C6724, 4023 / JMS D0023 C6725, 1115 / TAD C0115 C6726, 2514 / ISZ I C0114 AND C0124 / @@6727=0124 C6730, 0504 / AND I C0104 JMS D0040 / @@6731=4040 JMS L0000 / @@6732=4000 SMA CLA / @@6733=7700 C6734, 6060 / 6060 C6735, 6060 / 6060 JMS D0040 / @@6736=4040 C6737, 0077 / AND C0077 D6740, 0000 / AND L0000 C6741, 6140 / 6140 JMS L0000 / @@6742=4000 SMA CLA / @@6743=7700 C6744, 4543 / JMS I C0143 C6745, 4001 / JMS L0001 AND C6724 / @@6746=0324 C6747, 2501 / ISZ I C0101 TAD I D0040 / @@6750=1440 JMS D0040 / @@6751=4040 JMS D0040 / @@6752=4040 JMS L0000 / @@6753=4000 SMA CLA / @@6754=7700 AND I L0001 / @@6755=0401 AND I L0000 / @@6756=0400 SMA CLA / @@6757=7700 AND I L0001 / @@6760=0401 AND I D0040 / @@6761=0440 AND C0125 / @@6762=0125 ISZ I AI7 / AUTO INDEX REGISTER @@6763=2417 C6764, 4011 / JMS AI1 TAD I C6604 / @@6765=1604 AND I C0130 / @@6766=0530 C6767, 0077 / AND C0077 AND L0000 / @@6770=0000 AND I D0023 / @@6771=0423 ISZ I L0000 / @@6772=2400 SMA CLA / @@6773=7700 AND I D0023 / @@6774=0423 ISZ I D0040 / @@6775=2440 AND C0125 / @@6776=0125 ISZ I AI7 / AUTO INDEX REGISTER @@6777=2417 C7000, 4011 / JMS AI1 TAD I C7004 / @@7001=1604 AND I C0130 / @@7002=0530 C7003, 0077 / AND C0077 C7004, 0000 / AND L0000 D7005, 1525 / TAD I C0125 C7006, 3100 / DCA C0100 SMA CLA / @@7007=7700 TAD I C0125 / @@7010=1525 DCA D0140 / @@7011=3140 AND C0125 / @@7012=0125 ISZ I AI7 / AUTO INDEX REGISTER @@7013=2417 C7014, 4011 / JMS AI1 TAD I C7004 / @@7015=1604 AND I C0130 / @@7016=0530 C7017, 0077 / AND C0077 AND L0000 / @@7020=0000 AND I AI1 / AUTO INDEX REGISTER @@7021=0411 ISZ I C7000 / @@7022=2600 SMA CLA / @@7023=7700 AND I AI1 / AUTO INDEX REGISTER @@7024=0411 ISZ I D7040 / @@7025=2640 AND C0125 / @@7026=0125 ISZ I AI7 / AUTO INDEX REGISTER @@7027=2417 C7030, 4011 / JMS AI1 TAD I C7004 / @@7031=1604 AND I C0130 / @@7032=0530 C7033, 0077 / AND C0077 AND L0000 / @@7034=0000 JMS D0022 / @@7035=4022 C7036, 0507 / AND I C0107 C7037, 0077 / AND C0077 D7040, 0000 / AND L0000 AND D7005 / @@7041=0205 AND I C7017 / @@7042=0617 ISZ D7005 / @@7043=2205 JMS L0000 / @@7044=4000 SMA CLA / @@7045=7700 C7046, 0106 / AND C0106 ISZ I D0005 / @@7047=2405 ISZ D7040 / @@7050=2240 C7051, 0077 / AND C0077 AND L0000 / @@7052=0000 C7053, 4543 / JMS I C0143 JMS D0003 / @@7054=4003 JMP L4 / @@7055=5014 C7056, 5100 / JMP C0100 SMA CLA / @@7057=7700 C7060, 4543 / JMS I C0143 JMS D0003 / @@7061=4003 JMP L5 / @@7062=5015 ISZ D0151 / @@7063=2151 C7064, 0077 / AND C0077 AND L0000 / @@7065=0000 C7066, 4543 / JMS I C0143 JMS D0003 / @@7067=4003 JMP L5 / @@7070=5015 ISZ D0140 / @@7071=2140 C7072, 0104 / AND C0104 AND I D0022 / @@7073=0422 C7074, 5100 / JMP C0100 SMA CLA / @@7075=7700 C7076, 4543 / JMS I C0143 JMS D0003 / @@7077=4003 JMP L0001 / @@7100=5001 AND C7151 / @@7101=0351 C7102, 0077 / AND C0077 AND L0000 / @@7103=0000 C7104, 4543 / JMS I C0143 JMS D0003 / @@7105=4003 JMP L0001 / @@7106=5001 AND C7140 / @@7107=0340 D7110, 0104 / AND C0104 AND I D0022 / @@7111=0422 C7112, 5100 / JMP C0100 SMA CLA / @@7113=7700 D7114, 3030 / DCA D0030 C7115, 0077 / AND C0077 AND L0000 / @@7116=0000 D7117, 3030 / DCA D0030 C7120, 4543 / JMS I C0143 C7121, 4300 / JMS C7100 SMA CLA / @@7122=7700 DCA D0030 / @@7123=3030 DCA D0030 / @@7124=3030 C7125, 4543 / JMS I C0143 C7126, 4300 / JMS C7100 SMA CLA / @@7127=7700 DCA D0030 / @@7130=3030 DCA D0030 / @@7131=3030 JMS D0040 / @@7132=4040 C7133, 0077 / AND C0077 AND L0000 / @@7134=0000 DCA D0030 / @@7135=3030 DCA D0030 / @@7136=3030 JMS D0040 / @@7137=4040 C7140, 0077 / AND C0077 AND L0000 / @@7141=0000 D7142, 3030 / DCA D0030 JMS D0040 / @@7143=4040 C7144, 0077 / AND C0077 AND L0000 / @@7145=0000 DCA D0030 / @@7146=3030 DCA D0030 / @@7147=3030 JMS D0040 / @@7150=4040 C7151, 0000 / AND L0000 DCA D0030 / @@7152=3030 DCA D0030 / @@7153=3030 JMS D0040 / @@7154=4040 AND L0000 / @@7155=0000 DCA D0030 / @@7156=3030 DCA D0030 / @@7157=3030 JMS D0040 / @@7160=4040 C7161, 0077 / AND C0077 AND L0000 / @@7162=0000 DCA D0030 / @@7163=3030 DCA D0030 / @@7164=3030 C7165, 0077 / AND C0077 AND L0000 / @@7166=0000 C7167, 4001 / JMS L0001 TAD C0161 / @@7170=1161 C7171, 6040 / 6040 ISZ D7110 / @@7172=2310 TAD I C7125 / @@7173=1725 TAD I D0004 / @@7174=1404 JMS D0002 / @@7175=4002 AND I D0140 / @@7176=0540 JMS L0000 / @@7177=4000 DCA D0030 / @@7200=3030 DCA D0030 / @@7201=3030 C7202, 4543 / JMS I C0143 AND L0000 / @@7203=0000 C7204, 4001 / JMS L0001 TAD C0161 / @@7205=1161 C7206, 6040 / 6040 TAD C0123 / @@7207=1123 C7210, 0077 / AND C0077 AND L0000 / @@7211=0000 C7212, 4543 / JMS I C0143 TAD C7305 / @@7213=1305 CMA / @@7214=7040 C7215, 0515 / AND I C0115 C7216, 0500 / AND I C0100 SMA CLA / @@7217=7700 C7220, 4543 / JMS I C0143 C7221, 4310 / JMS C7310 C7222, 1107 / TAD C0107 C7223, 1005 / TAD D0005 C7224, 2324 / ISZ C7324 JMS S0006 / @@7225=4006 C7226, 1105 / TAD C0105 TAD I D0004 / @@7227=1404 C7230, 4050 / JMS C0050 C7231, 6055 / 6055 C7232, 6751 / 6751 SMA SZA CLA / @@7233=7740 JMS L0000 / @@7234=4000 SMA CLA / @@7235=7700 C7236, 4314 / JMS C7314 JMS D0040 / @@7237=4040 D7240, 0077 / AND C0077 AND L0000 / @@7241=0000 TAD I C0124 / @@7242=1524 ISZ L4 / @@7243=2014 C7244, 0077 / AND C0077 AND L0000 / @@7245=0000 AND I AI1 / AUTO INDEX REGISTER @@7246=0411 ISZ I C7223 / @@7247=2623 C7250, 0077 / AND C0077 AND L0000 / @@7251=0000 JMS D0040 / @@7252=4040 C7253, 4001 / JMS L0001 C7254, 0340 / AND C7340 JMS D0040 / @@7255=4040 JMS L5 / @@7256=4015 ISZ D0140 / @@7257=2140 JMS D0040 / @@7260=4040 JMS D0023 / @@7261=4023 AND C7300 / @@7262=0300 SMA CLA / @@7263=7700 JMS L5 / @@7264=4015 C7265, 2514 / ISZ I C0114 ISZ I AI1 / AUTO INDEX REGISTER @@7266=2411 ISZ L4 / @@7267=2014 C7270, 1103 / TAD C0103 AND C0116 / @@7271=0116 AND I L0000 / @@7272=0400 SMA CLA / @@7273=7700 JMS D0004 / @@7274=4004 TAD C0126 / @@7275=1126 TAD C0123 / @@7276=1123 C7277, 1722 / TAD I C7322 C7300, 0077 / AND C0077 AND L0000 / @@7301=0000 C7302, 4001 / JMS L0001 AND I D0004 / @@7303=0404 ISZ D7240 / @@7304=2240 C7305, 4000 / JMS L0000 SMA CLA / @@7306=7700 C7307, 6060 / 6060 C7310, 6164 / 6164 C7311, 0077 / AND C0077 AND L0000 / @@7312=0000 C7313, 6060 / 6060 C7314, 6165 / 6165 C7315, 0077 / AND C0077 AND L0000 / @@7316=0000 $