From 974e59fa40ccfb3abdbc9f1984308c5e14578b65 Mon Sep 17 00:00:00 2001 From: Michaelangel007 Date: Mon, 29 Aug 2016 07:48:32 -0600 Subject: [PATCH] Added TASC disasm versions --- tasc_disasm_clean.s | 304 ++++++++++++++++++++++++++++++++++++++++++ tasc_disasm_org.s | 317 ++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 621 insertions(+) create mode 100644 tasc_disasm_clean.s create mode 100644 tasc_disasm_org.s diff --git a/tasc_disasm_clean.s b/tasc_disasm_clean.s new file mode 100644 index 0000000..de2b90f --- /dev/null +++ b/tasc_disasm_clean.s @@ -0,0 +1,304 @@ +0000 **--------------------------------------------------------------$ +0000 002000: A9 07 LDA #$07$ +0002 002002: 20 2F FB JSR INIT$ +0005 002005: 20 58 FC JSR HOME$ +0008 002008: 20 94 20 JSR L002094$ +000B 00200B: 20 B4 20 JSR L0020B4$ +000E 00200E: 20 33 20 JSR L002033$ +0011 002011: 20 3B 20 JSR L00203B$ +0014 002014: 20 AC 20 JSR L0020AC$ +0017 _L002017 +0017 002017: 20 1D 21 JSR L00211D$ +001A 00201A: B0 11 BCS L00202D ; {+11}$ +001C 00201C: 20 12 21 JSR L002112$ +001F 00201F: 90 03 BCC L002024 ; {+03}$ +0021 002021: 20 FC 20 JSR L0020FC$ +0024 _L002024 +0024 002024: 20 2B 21 JSR L00212B$ +0027 002027: 20 42 21 JSR L002142$ +002A 00202A: 18 CLC$ +002B 00202B: 90 EA BCC L002017 ; {-16}$ +002D _L00202D +002D 00202D: 20 D1 20 JSR L0020D1$ +0030 002030: 4C 00 00 JMP $0000$ +0033 002033: +0033 **--------------------------------------------------------------$ +0033 _L002033 +0033 002033: 20 A4 20 JSR L0020A4$ +0036 002036: 20 85 20 JSR L002085$ +0039 002039: D0 06 BNE L002041 ; {+06}$ +003B _L00203B +003B 00203B: 20 A8 20 JSR L0020A8$ +003E 00203E: 20 8A 20 JSR L00208A$ +0041 _L002041 +0041 002041: 86 FA STX $FA$ +0043 002043: 84 FB STY $FB$ +0045 002045: A2 00 LDX #False$ +0047 _L002047 +0047 002047: 20 6C 20 JSR L00206C$ +004A 00204A: B0 0D BCS L002059 ; {+0D}$ +004C 00204C: 20 ED FD JSR COUT$ +004F 00204F: 29 0F AND #$0F$ +0051 002051: 9D 00 25 STA $2500,x$ +0054 002054: E8 INX$ +0055 002055: 10 F0 BPL L002047 ; {-10}$ +0057 002057: 30 57 BMI L0020B0 ; {+57}$ +0059 _L002059 +0059 002059: A0 00 LDY #False$ +005B 00205B: E0 00 CPX #False$ +005D 00205D: F0 0B BEQ L00206A ; {+0B}$ +005F _L00205F +005F 00205F: CA DEX$ +0060 002060: BD 00 25 LDA $2500,x$ +0063 002063: 91 FA STA ($FA),y$ +0065 002065: C8 INY$ +0066 002066: E0 00 CPX #False$ +0068 002068: D0 F5 BNE L00205F ; {-0B}$ +006A _L00206A +006A 00206A: F0 56 BEQ L0020C2 ; {+56}$ +006C _L00206C$ +006C 00206C: 20 0C FD JSR RDKEY$ +006F 00206F: C9 8D CMP #$8D$ +0071 002071: F0 0D BEQ L002080 ; {+0D}$ +0073 002073: C9 9B CMP #$9B$ +0075 002075: F0 0B BEQ L002082 ; {+0B}$ +0077 002077: C9 B0 CMP #$B0$ +0079 002079: 90 F1 BCC L00206C ; {-0F}$ +007B 00207B: C9 BA CMP #$BA$ +007D 00207D: B0 ED BCS L00206C ; {-13}$ +007F 00207F: 60 RTS$ +0080 002080:$ +0080 **--------------------------------------------------------------$ +0080 _L002080$ +0080 002080: 38 SEC$ +0081 002081: 60 RTS$ +0082 002082:$ +0082 **--------------------------------------------------------------$ +0082 _L002082$ +0082 002082: 68 PLA$ +0083 002083: 68 PLA$ +0084 002084: 60 RTS$ +0085 002085:$ +0085 **--------------------------------------------------------------$ +0085 _L002085$ +0085 002085: A2 00 LDX #False$ +0087 002087: A0 22 LDY #$22$ +0089 002089: 60 RTS$ +008A 00208A:$ +008A **--------------------------------------------------------------$ +008A _L00208A$ +008A 00208A: A2 00 LDX #False$ +008C 00208C: A0 23 LDY #$23$ +008E 00208E: 60 RTS$ +008F 00208F:$ +008F **--------------------------------------------------------------$ +008F _L00208F$ +008F 00208F: A2 00 LDX #False$ +0091 002091: A0 24 LDY #$24$ +0093 002093: 60 RTS$ +0094 002094:$ +0094 **--------------------------------------------------------------$ +0094 _L002094$ +0094 002094: A9 00 LDA #False$ +0096 002096: AA TAX$ +0097 _L002097$ +0097 002097: 9D 00 22 STA $2200,x$ +009A 00209A: 9D 00 23 STA $2300,x$ +009D 00209D: 9D 00 24 STA $2400,x$ +00A0 0020A0: E8 INX$ +00A1 0020A1: D0 F4 BNE L002097 ; {-0C}$ +00A3 0020A3: 60 RTS$ +00A4 0020A4:$ +00A4 **--------------------------------------------------------------$ +00A4 _L0020A4$ +00A4 0020A4: A0 21 LDY #$21 ; "INPUT A?" +00A6 0020A6: D0 0E BNE L0020B6 ; {+0E}$ +00A8 _L0020A8$ +00A8 0020A8: A0 2B LDY #$2B ; "INPUT B?" +00AA 0020AA: D0 0A BNE L0020B6 ; {+0A}$ +00AC _L0020AC$ +00AC 0020AC: A0 54 LDY #$54 ; "= " +00AE 0020AE: D0 06 BNE L0020B6 ; {+06}$ +00B0 _L0020B0$ +00B0 0020B0: A0 35 LDY #$35 ; "WARNING: ..." +00B2 0020B2: D0 02 BNE L0020B6 ; {+02}$ +00B4 _L0020B4$ +00B4 0020B4: A0 00 LDY #0 ; "RUSSIAN PEASANT MULTIPLICATION" +00B6 _L0020B6$ +00B6 0020B6: B9 75 21 LDA L002175,y$ +00B9 0020B9: F0 06 BEQ L0020C1 ; {+06}$ +00BB 0020BB: 20 ED FD JSR COUT$ +00BE 0020BE: C8 INY$ +00BF 0020BF: D0 F5 BNE L0020B6 ; {-0B}$ +00C1 _L0020C1$ +00C1 0020C1: 60 RTS$ +00C2 0020C2:$ +00C2 **--------------------------------------------------------------$ +00C2 _L0020C2$ +00C2 0020C2: A9 8D LDA #$8D$ +00C4 0020C4: 4C ED FD JMP COUT$ +00C7 0020C7:$ +00C7 **--------------------------------------------------------------$ +00C7 0020C7: 20 85 20 JSR L002085$ +00CA 0020CA: D0 08 BNE L0020D4 ; {+08}$ +00CC 0020CC: 20 8A 20 JSR L00208A$ +00CF 0020CF: D0 03 BNE L0020D4 ; {+03}$ +00D1 _L0020D1$ +00D1 0020D1: 20 8F 20 JSR L00208F$ +00D4 _L0020D4$ +00D4 0020D4: 8E DF 20 STX L0020DF$ +00D7 0020D7: 8C E0 20 STY L0020E0$ +00DA 0020DA: A2 00 LDX #False$ +00DC 0020DC: A0 FF LDY #$FF$ +00DE _L0020DE$ +00DE 0020DE: B9 FF FF LDA $FFFF,y$ +00E1 _L0020DF$ +00E1 _L0020E0$ +00E1 0020E1: D0 04 BNE L0020E7 ; {+04}$ +00E3 0020E3: E0 00 CPX #False$ +00E5 0020E5: F0 07 BEQ L0020EE ; {+07}$ +00E7 _L0020E7$ +00E7 0020E7: 18 CLC$ +00E8 0020E8: 69 B0 ADC #$B0$ +00EA 0020EA: AA TAX$ +00EB 0020EB: 20 ED FD JSR COUT$ +00EE _L0020EE$ +00EE 0020EE: 88 DEY$ +00EF 0020EF: C0 FF CPY #$FF$ +00F1 0020F1: D0 EB BNE L0020DE ; {-15}$ +00F3 0020F3: A9 00 LDA #False$ +00F5 0020F5: A8 TAY$ +00F6 0020F6: E0 00 CPX #False$ +00F8 0020F8: F0 ED BEQ L0020E7 ; {-13}$ +00FA 0020FA: D0 C6 BNE L0020C2 ; {-3A}$ +00FC _L0020FC$ +00FC 0020FC: A0 00 LDY #False$ +00FE 0020FE: 18 CLC$ +00FF _L0020FF$ +00FF 0020FF: B9 00 24 LDA $2400,y$ +0102 002102: 79 00 22 ADC $2200,y$ +0105 002105: C9 0A CMP #$0A$ +0107 002107: 90 02 BCC L00210B ; {+02}$ +0109 002109: E9 0A SBC #$0A$ +010B _L00210B$ +010B 00210B: 99 00 24 STA $2400,y$ +010E 00210E: C8 INY$ +010F 00210F: D0 EE BNE L0020FF ; {-12}$ +0111 002111: 60 RTS$ +0112 002112:$ +0112 **--------------------------------------------------------------$ +0112 _L002112$ +0112 002112: A0 00 LDY #False$ +0114 002114: B9 00 23 LDA $2300,y$ +0117 002117: 29 01 AND #$01$ +0119 002119: F0 0E BEQ L002129 ; {+0E}$ +011B 00211B: D0 0A BNE L002127 ; {+0A}$ +011D _L00211D$ +011D 00211D: A0 00 LDY #False$ +011F _L00211F$ +011F 00211F: B9 00 23 LDA $2300,y$ +0122 002122: D0 05 BNE L002129 ; {+05}$ +0124 002124: C8 INY$ +0125 002125: D0 F8 BNE L00211F ; {-08}$ +0127 _L002127$ +0127 002127: 38 SEC$ +0128 002128: 60 RTS$ +0129 002129:$ +0129 **--------------------------------------------------------------$ +0129 _L002129$ +0129 002129: 18 CLC$ +012A 00212A: 60 RTS$ +012B 00212B:$ +012B **--------------------------------------------------------------$ +012B _L00212B$ +012B 00212B: A0 00 LDY #False$ +012D 00212D: 18 CLC$ +012E _L00212E$ +012E 00212E: B9 00 22 LDA $2200,y$ +0131 002131: AA TAX$ +0132 002132: BD 61 21 LDA L002161,x$ +0135 002135: 69 00 ADC #False$ +0137 002137: 99 00 22 STA $2200,y$ +013A 00213A: BD 6B 21 LDA L00216B,x$ +013D 00213D: 6A ROR A$ +013E 00213E: C8 INY$ +013F 00213F: D0 ED BNE L00212E ; {-13}$ +0141 002141: 60 RTS$ +0142 002142:$ +0142 **--------------------------------------------------------------$ +0142 _L002142$ +0142 002142: A0 FF LDY #$FF$ +0144 002144: A2 00 LDX #False$ +0146 002146: 86 FC STX $FC$ +0148 _L002148$ +0148 002148: 18 CLC$ +0149 002149: B9 00 23 LDA $2300,y$ +014C 00214C: 65 FC ADC $FC$ +014E 00214E: 6A ROR A$ +014F 00214F: 29 0F AND #$0F$ +0151 002151: 99 00 23 STA $2300,y$ +0154 002154: A9 00 LDA #False$ +0156 002156: 90 02 BCC L00215A ; {+02}$ +0158 002158: A9 0A LDA #$0A$ +015A _L00215A$ +015A 00215A: 85 FC STA $FC$ +015C 00215C: 88 DEY$ +015D 00215D: E8 INX$ +015E 00215E: D0 E8 BNE L002148 ; {-18}$ +0160 002160: 60 RTS$ +0161 002161:$ +0161 **--------------------------------------------------------------$ +0161 _L002161$ +0161 002161: 00 BRK$ +0162 002162: 02 DC I1'$02'$ +0163 002163: 04 06 TSB $06$ +0165 002165: 08 PHP$ +0166 002166: 00 BRK$ +0167 002167: 02 DC I1'$02'$ +0168 002168: 04 06 TSB $06$ +016A 00216A: 08 PHP$ +016B _L00216B$ +016B 00216B: 00 BRK$ +016C 00216C: 00 BRK$ +016D 00216D: 00 BRK$ +016E 00216E: 00 BRK$ +016F 00216F: 00 BRK$ +0170 002170: 01 DFB 1 +0171 002171: 01 DFB 1 +0172 002172: 01 DFB 1 +0173 002173: 01 DFB 1 +0174 002174: 01 DFB 1 +0175 _L002175$ +0175 002175: D2 D5 D3 C9 ASC "RUSSIAN PEASANT MULTIPLICATION" +0179 00217A: C1 CE A0 D0 +017E 00217E: C5 C1 D3 C1 +0181 002182: CE D4 A0 CD +0186 002186: D5 CC D4 C9 +0189 00218A: D0 CC C9 C3 +018E 00218E: C1 D4 C9 CF +0192 002192: CE +0193 002193: 8D 8D DFB $8D, $8D +0195 002195: 00 DFB 0 +0196 002196: C9 CE D0 D5 ASC "INPUT A" +019A 00219A: D4 A0 C1 +019D 00219D: 8D DFB $8D +019E 00219E: BF ASC "?" +019F 00219F: 00 +01A0 0021A0: C9 CE D0 D5 ASC "INPUT B" +01A4 0021A4: D4 A0 C2 +01A7 0021A7: 8D DFB $8D +01A8 0021A8: BF ASC "?" +01A9 0021A9: 00 +01AA 0021AA: 8D DFB $8D +01AB 0021AB: D7 C1 D2 CE ASC "WARNING: MORE THAN 127 CHARS" +01AF 0021AF: C9 CE C7 BA +01B3 0021B3: A0 CD CF D2 +01B6 0021B7: C5 A0 D4 C8 +01BB 0021BB: C1 CE A0 B1 +01BF 0021BF: B2 B7 A0 C3 +01C3 0021C3: C8 C1 D2 D3 +01C7 0021C7: 8D DFB $8D +01C8 0021C8: 00 DFB 0 +01C8 0021C9: BD A0 ASC " +01CB 0021CB: 00 DFB 0 + diff --git a/tasc_disasm_org.s b/tasc_disasm_org.s new file mode 100644 index 0000000..0e54967 --- /dev/null +++ b/tasc_disasm_org.s @@ -0,0 +1,317 @@ +0000 **--------------------------------------------------------------$ +0000 002000: A9 07 LDA #$07$ +0002 002002: 20 2F FB JSR INIT$ +0005 002005: 20 58 FC JSR HOME$ +0008 002008: 20 94 20 JSR L002094$ +000B 00200B: 20 B4 20 JSR L0020B4$ +000E 00200E: 20 33 20 JSR L002033$ +0011 002011: 20 3B 20 JSR L00203B$ +0014 002014: 20 AC 20 JSR L0020AC$ +0017 _L002017 entry$ +0017 002017: 20 1D 21 JSR L00211D$ +001A 00201A: B0 11 BCS L00202D ; {+11}$ +001C 00201C: 20 12 21 JSR L002112$ +001F 00201F: 90 03 BCC L002024 ; {+03}$ +0021 002021: 20 FC 20 JSR L0020FC$ +0024 _L002024 entry$ +0024 002024: 20 2B 21 JSR L00212B$ +0027 002027: 20 42 21 JSR L002142$ +002A 00202A: 18 CLC$ +002B 00202B: 90 EA BCC L002017 ; {-16}$ +002D _L00202D entry$ +002D 00202D: 20 D1 20 JSR L0020D1$ +0030 002030: 4C 00 00 JMP $0000$ +0033 002033:$ +0033 **--------------------------------------------------------------$ +0033 _L002033 entry$ +0033 002033: 20 A4 20 JSR L0020A4$ +0036 002036: 20 85 20 JSR L002085$ +0039 002039: D0 06 BNE L002041 ; {+06}$ +003B _L00203B entry$ +003B 00203B: 20 A8 20 JSR L0020A8$ +003E 00203E: 20 8A 20 JSR L00208A$ +0041 _L002041 entry$ +0041 002041: 86 FA STX $FA$ +0043 002043: 84 FB STY $FB$ +0045 002045: A2 00 LDX #False$ +0047 _L002047 entry$ +0047 002047: 20 6C 20 JSR L00206C$ +004A 00204A: B0 0D BCS L002059 ; {+0D}$ +004C 00204C: 20 ED FD JSR COUT$ +004F 00204F: 29 0F AND #$0F$ +0051 002051: 9D 00 25 STA $2500,x$ +0054 002054: E8 INX$ +0055 002055: 10 F0 BPL L002047 ; {-10}$ +0057 002057: 30 57 BMI L0020B0 ; {+57}$ +0059 _L002059 entry$ +0059 002059: A0 00 LDY #False$ +005B 00205B: E0 00 CPX #False$ +005D 00205D: F0 0B BEQ L00206A ; {+0B}$ +005F _L00205F entry$ +005F 00205F: CA DEX$ +0060 002060: BD 00 25 LDA $2500,x$ +0063 002063: 91 FA STA ($FA),y$ +0065 002065: C8 INY$ +0066 002066: E0 00 CPX #False$ +0068 002068: D0 F5 BNE L00205F ; {-0B}$ +006A _L00206A entry$ +006A 00206A: F0 56 BEQ L0020C2 ; {+56}$ +006C _L00206C entry$ +006C 00206C: 20 0C FD JSR RDKEY$ +006F 00206F: C9 8D CMP #$8D$ +0071 002071: F0 0D BEQ L002080 ; {+0D}$ +0073 002073: C9 9B CMP #$9B$ +0075 002075: F0 0B BEQ L002082 ; {+0B}$ +0077 002077: C9 B0 CMP #$B0$ +0079 002079: 90 F1 BCC L00206C ; {-0F}$ +007B 00207B: C9 BA CMP #$BA$ +007D 00207D: B0 ED BCS L00206C ; {-13}$ +007F 00207F: 60 RTS$ +0080 002080:$ +0080 **--------------------------------------------------------------$ +0080 _L002080 entry$ +0080 002080: 38 SEC$ +0081 002081: 60 RTS$ +0082 002082:$ +0082 **--------------------------------------------------------------$ +0082 _L002082 entry$ +0082 002082: 68 PLA$ +0083 002083: 68 PLA$ +0084 002084: 60 RTS$ +0085 002085:$ +0085 **--------------------------------------------------------------$ +0085 _L002085 entry$ +0085 002085: A2 00 LDX #False$ +0087 002087: A0 22 LDY #$22$ +0089 002089: 60 RTS$ +008A 00208A:$ +008A **--------------------------------------------------------------$ +008A _L00208A entry$ +008A 00208A: A2 00 LDX #False$ +008C 00208C: A0 23 LDY #$23$ +008E 00208E: 60 RTS$ +008F 00208F:$ +008F **--------------------------------------------------------------$ +008F _L00208F entry$ +008F 00208F: A2 00 LDX #False$ +0091 002091: A0 24 LDY #$24$ +0093 002093: 60 RTS$ +0094 002094:$ +0094 **--------------------------------------------------------------$ +0094 _L002094 entry$ +0094 002094: A9 00 LDA #False$ +0096 002096: AA TAX$ +0097 _L002097 entry$ +0097 002097: 9D 00 22 STA $2200,x$ +009A 00209A: 9D 00 23 STA $2300,x$ +009D 00209D: 9D 00 24 STA $2400,x$ +00A0 0020A0: E8 INX$ +00A1 0020A1: D0 F4 BNE L002097 ; {-0C}$ +00A3 0020A3: 60 RTS$ +00A4 0020A4:$ +00A4 **--------------------------------------------------------------$ +00A4 _L0020A4 entry$ +00A4 0020A4: A0 21 LDY #$21$ +00A6 0020A6: D0 0E BNE L0020B6 ; {+0E}$ +00A8 _L0020A8 entry$ +00A8 0020A8: A0 2B LDY #$2B$ +00AA 0020AA: D0 0A BNE L0020B6 ; {+0A}$ +00AC _L0020AC entry$ +00AC 0020AC: A0 54 LDY #$54$ +00AE 0020AE: D0 06 BNE L0020B6 ; {+06}$ +00B0 _L0020B0 entry$ +00B0 0020B0: A0 35 LDY #$35$ +00B2 0020B2: D0 02 BNE L0020B6 ; {+02}$ +00B4 _L0020B4 entry$ +00B4 0020B4: A0 00 LDY #False$ +00B6 _L0020B6 entry$ +00B6 0020B6: B9 75 21 LDA L002175,y$ +00B9 0020B9: F0 06 BEQ L0020C1 ; {+06}$ +00BB 0020BB: 20 ED FD JSR COUT$ +00BE 0020BE: C8 INY$ +00BF 0020BF: D0 F5 BNE L0020B6 ; {-0B}$ +00C1 _L0020C1 entry$ +00C1 0020C1: 60 RTS$ +00C2 0020C2:$ +00C2 **--------------------------------------------------------------$ +00C2 _L0020C2 entry$ +00C2 0020C2: A9 8D LDA #$8D$ +00C4 0020C4: 4C ED FD JMP COUT$ +00C7 0020C7:$ +00C7 **--------------------------------------------------------------$ +00C7 0020C7: 20 85 20 JSR L002085$ +00CA 0020CA: D0 08 BNE L0020D4 ; {+08}$ +00CC 0020CC: 20 8A 20 JSR L00208A$ +00CF 0020CF: D0 03 BNE L0020D4 ; {+03}$ +00D1 _L0020D1 entry$ +00D1 0020D1: 20 8F 20 JSR L00208F$ +00D4 _L0020D4 entry$ +00D4 0020D4: 8E DF 20 STX L0020DF$ +00D7 0020D7: 8C E0 20 STY L0020E0$ +00DA 0020DA: A2 00 LDX #False$ +00DC 0020DC: A0 FF LDY #$FF$ +00DE _L0020DE entry$ +00DE 0020DE: B9 FF FF LDA $FFFF,y$ +00E1 _L0020DF entry$ +00E1 _L0020E0 entry$ +00E1 0020E1: D0 04 BNE L0020E7 ; {+04}$ +00E3 0020E3: E0 00 CPX #False$ +00E5 0020E5: F0 07 BEQ L0020EE ; {+07}$ +00E7 _L0020E7 entry$ +00E7 0020E7: 18 CLC$ +00E8 0020E8: 69 B0 ADC #$B0$ +00EA 0020EA: AA TAX$ +00EB 0020EB: 20 ED FD JSR COUT$ +00EE _L0020EE entry$ +00EE 0020EE: 88 DEY$ +00EF 0020EF: C0 FF CPY #$FF$ +00F1 0020F1: D0 EB BNE L0020DE ; {-15}$ +00F3 0020F3: A9 00 LDA #False$ +00F5 0020F5: A8 TAY$ +00F6 0020F6: E0 00 CPX #False$ +00F8 0020F8: F0 ED BEQ L0020E7 ; {-13}$ +00FA 0020FA: D0 C6 BNE L0020C2 ; {-3A}$ +00FC _L0020FC entry$ +00FC 0020FC: A0 00 LDY #False$ +00FE 0020FE: 18 CLC$ +00FF _L0020FF entry$ +00FF 0020FF: B9 00 24 LDA $2400,y$ +0102 002102: 79 00 22 ADC $2200,y$ +0105 002105: C9 0A CMP #$0A$ +0107 002107: 90 02 BCC L00210B ; {+02}$ +0109 002109: E9 0A SBC #$0A$ +010B _L00210B entry$ +010B 00210B: 99 00 24 STA $2400,y$ +010E 00210E: C8 INY$ +010F 00210F: D0 EE BNE L0020FF ; {-12}$ +0111 002111: 60 RTS$ +0112 002112:$ +0112 **--------------------------------------------------------------$ +0112 _L002112 entry$ +0112 002112: A0 00 LDY #False$ +0114 002114: B9 00 23 LDA $2300,y$ +0117 002117: 29 01 AND #$01$ +0119 002119: F0 0E BEQ L002129 ; {+0E}$ +011B 00211B: D0 0A BNE L002127 ; {+0A}$ +011D _L00211D entry$ +011D 00211D: A0 00 LDY #False$ +011F _L00211F entry$ +011F 00211F: B9 00 23 LDA $2300,y$ +0122 002122: D0 05 BNE L002129 ; {+05}$ +0124 002124: C8 INY$ +0125 002125: D0 F8 BNE L00211F ; {-08}$ +0127 _L002127 entry$ +0127 002127: 38 SEC$ +0128 002128: 60 RTS$ +0129 002129:$ +0129 **--------------------------------------------------------------$ +0129 _L002129 entry$ +0129 002129: 18 CLC$ +012A 00212A: 60 RTS$ +012B 00212B:$ +012B **--------------------------------------------------------------$ +012B _L00212B entry$ +012B 00212B: A0 00 LDY #False$ +012D 00212D: 18 CLC$ +012E _L00212E entry$ +012E 00212E: B9 00 22 LDA $2200,y$ +0131 002131: AA TAX$ +0132 002132: BD 61 21 LDA L002161,x$ +0135 002135: 69 00 ADC #False$ +0137 002137: 99 00 22 STA $2200,y$ +013A 00213A: BD 6B 21 LDA L00216B,x$ +013D 00213D: 6A ROR A$ +013E 00213E: C8 INY$ +013F 00213F: D0 ED BNE L00212E ; {-13}$ +0141 002141: 60 RTS$ +0142 002142:$ +0142 **--------------------------------------------------------------$ +0142 _L002142 entry$ +0142 002142: A0 FF LDY #$FF$ +0144 002144: A2 00 LDX #False$ +0146 002146: 86 FC STX $FC$ +0148 _L002148 entry$ +0148 002148: 18 CLC$ +0149 002149: B9 00 23 LDA $2300,y$ +014C 00214C: 65 FC ADC $FC$ +014E 00214E: 6A ROR A$ +014F 00214F: 29 0F AND #$0F$ +0151 002151: 99 00 23 STA $2300,y$ +0154 002154: A9 00 LDA #False$ +0156 002156: 90 02 BCC L00215A ; {+02}$ +0158 002158: A9 0A LDA #$0A$ +015A _L00215A entry$ +015A 00215A: 85 FC STA $FC$ +015C 00215C: 88 DEY$ +015D 00215D: E8 INX$ +015E 00215E: D0 E8 BNE L002148 ; {-18}$ +0160 002160: 60 RTS$ +0161 002161:$ +0161 **--------------------------------------------------------------$ +0161 _L002161 entry$ +0161 002161: 00 BRK$ +0162 002162: 02 DC I1'$02'$ +0163 002163: 04 06 TSB $06$ +0165 002165: 08 PHP$ +0166 002166: 00 BRK$ +0167 002167: 02 DC I1'$02'$ +0168 002168: 04 06 TSB $06$ +016A 00216A: 08 PHP$ +016B _L00216B entry$ +016B 00216B: 00 BRK$ +016C 00216C: 00 BRK$ +016D 00216D: 00 BRK$ +016E 00216E: 00 BRK$ +016F _L00216F entry$ +016F 00216F: 00 BRK$ +0170 002170: 01 01 ORA ($01,x)$ +0172 002172: 01 01 ORA ($01,x)$ +0174 002174: 01 D2 ORA ($D2,x)$ +0176 _L002175 entry$ +0176 002176: D5 D3 CMP $D3,x$ +0178 002178: D3 DC I1'$D3'$ +0179 _L002179 entry$ +0179 002179: C9 C1 CMP #$C1$ +017B 00217B: CE A0 D0 DEC $D0A0$ +017E 00217E: C5 C1 CMP $C1$ +0180 002180: D3 DC I1'$D3'$ +0181 002181: C1 CE CMP ($CE,x)$ +0183 002183: D4 DC I1'$D4'$ +0184 002184: A0 CD LDY #$CD$ +0186 002186: D5 CC CMP $CC,x$ +0188 002188: D4 DC I1'$D4'$ +0189 002189: C9 D0 CMP #$D0$ +018B 00218B: CC C9 C3 CPY $C3C9$ +018E 00218E: C1 D4 CMP ($D4,x)$ +0190 002190: C9 CF CMP #$CF$ +0192 002192: CE 8D 8D DEC $8D8D$ +0195 002195: 00 BRK$ +0196 002196: C9 CE CMP #$CE$ +0198 002198: D0 D5 BNE L00216F ; {-2B}$ +019A 00219A: D4 DC I1'$D4'$ +019B 00219B: A0 C1 LDY #$C1$ +019D 00219D: 8D BF 00 STA $00BF$ +01A0 0021A0: C9 CE CMP #$CE$ +01A2 0021A2: D0 D5 BNE L002179 ; {-2B}$ +01A4 0021A4: D4 DC I1'$D4'$ +01A5 0021A5: A0 C2 LDY #$C2$ +01A7 0021A7: 8D BF 00 STA $00BF$ +01AA 0021AA: 8D D7 C1 STA $C1D7$ +01AD 0021AD: D2 CE CMP ($CE)$ +01AF 0021AF: C9 CE CMP #$CE$ +01B1 0021B1: C7 DC I1'$C7'$ +01B2 0021B2: BA TSX$ +01B3 0021B3: A0 CD LDY #$CD$ +01B5 0021B5: CF DC I1'$CF'$ +01B6 0021B6: D2 C5 CMP ($C5)$ +01B8 0021B8: A0 D4 LDY #$D4$ +01BA 0021BA: C8 INY$ +01BB 0021BB: C1 CE CMP ($CE,x)$ +01BD 0021BD: A0 B1 LDY #$B1$ +01BF 0021BF: B2 B7 LDA ($B7)$ +01C1 0021C1: A0 C3 LDY #$C3$ +01C3 0021C3: C8 INY$ +01C4 0021C4: C1 D2 CMP ($D2,x)$ +01C6 0021C6: D3 DC I1'$D3'$ +01C7 0021C7: 8D 00 BD STA $BD00$ +01CA 0021CA: A0 00 LDY #False$