mirror of
https://github.com/Michaelangel007/apple2_russian_peasant_multiplication.git
synced 2024-12-13 23:29:55 +00:00
Cleanup bad Vim remove trailing whitespace
This commit is contained in:
parent
514dec7aa9
commit
9018bf2f78
@ -1,274 +1,274 @@
|
||||
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$
|
||||
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$
|
||||
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}$
|
||||
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$
|
||||
002D 00202D: 20 D1 20 JSR L0020D1
|
||||
0030 002030: 4C 00 00 JMP $0000
|
||||
0033 002033:
|
||||
0033 **--------------------------------------------------------------$
|
||||
0033 **--------------------------------------------------------------
|
||||
0033 _L002033
|
||||
0033 002033: 20 A4 20 JSR L0020A4$
|
||||
0036 002036: 20 85 20 JSR L002085$
|
||||
0039 002039: D0 06 BNE L002041 ; {+06}$
|
||||
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$
|
||||
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$
|
||||
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}$
|
||||
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}$
|
||||
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}$
|
||||
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$
|
||||
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$
|
||||
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$
|
||||
00AA 0020AA: D0 0A BNE L0020B6 ; {+0A}
|
||||
00AC _L0020AC
|
||||
00AC 0020AC: A0 54 LDY #$54 ; "= "
|
||||
00AE 0020AE: D0 06 BNE L0020B6 ; {+06}$
|
||||
00B0 _L0020B0$
|
||||
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$
|
||||
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$
|
||||
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 _L002175
|
||||
0175 002175: D2 D5 D3 C9 ASC "RUSSIAN PEASANT MULTIPLICATION"
|
||||
0179 00217A: C1 CE A0 D0
|
||||
017E 00217E: C5 C1 D3 C1
|
||||
|
@ -1,317 +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$
|
||||
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 **--------------------------------------------------------------
|
||||
< |