neoborg, задействуй Y или X в своих процедурах
уже
04:A006:60 RTS -----------------------------------------
>04:A007:8A TXA
04:A008:48 PHA
04:A009:98 TYA
04:A00A:48 PHA
04:A00B:A5 BF LDA $00BF = #$00
04:A00D:C9 B4 CMP #$B4
04:A00F:F0 40 BEQ $A051
04:A011:2C 02 20 BIT $2002 = #$08
04:A014:A0 00 LDY #$00
04:A016:A2 10 LDX #$10
04:A018:A5 BC LDA $00BC = #$00
04:A01A:D0 04 BNE $A020
04:A01C:A9 20 LDA #$20
04:A01E:85 BC STA $00BC = #$00
04:A020:8D 06 20 STA $2006 = #$40
04:A023:A5 BD LDA $00BD = #$00
04:A025:8D 06 20 STA $2006 = #$40
04:A028:A5 BF LDA $00BF = #$00
04:A02A:D0 04 BNE $A030
04:A02C:A9 B0 LDA #$B0
04:A02E:85 BF STA $00BF = #$00
04:A030:B1 BE LDA ($BE),Y @ $003C = #$00
04:A032:8D 07 20 STA $2007 = #$00
04:A035:C8 INY
04:A036:CA DEX
04:A037:D0 F7 BNE $A030
04:A039:A5 BD LDA $00BD = #$00
04:A03B:69 10 ADC #$10
04:A03D:85 BD STA $00BD = #$00
04:A03F:A5 BD LDA $00BD = #$00
04:A041:D0 02 BNE $A045
04:A043:E6 BC INC $00BC = #$00
04:A045:A5 BE LDA $00BE = #$00
04:A047:69 10 ADC #$10
04:A049:85 BE STA $00BE = #$00
04:A04B:A5 BE LDA $00BE = #$00
04:A04D:D0 02 BNE $A051
04:A04F:E6 BF INC $00BF = #$00
04:A051:68 PLA
04:A052:A8 TAY
04:A053:68 PLA
04:A054:AA TAX
04:A055:60 RTS -----------------------------------------
Добавлено позже: 07:C064:A9 3F LDA #$3F - пишешь нужные значения в 2006, только помни что если хочешь записать в 2000,
сначала пиши 00, затем 20
вообще-то в регистр 2006 сначала пишется старший байт, затем младший. так что для 2000 сначала писать 20, затем 00.