org $008A01 ; 0xA01 - Bank00.asm (LDA.b #$10 : STA $4304 : STA $4314 : STA $4324)
LDA $BC

org $1BEDF9
JSL Palette_ArmorAndGloves ;4bytes
RTL ;1byte 
NOP #$01

org $1BEE1B
JSL Palette_ArmorAndGloves_part_two
RTL

!SPRITE_SWAP = "$7F50CD"
;!STABLE_SCRATCH = "$7EC178"

org $BF8000
Palette_ArmorAndGloves:
{
    ;DEDF9
    LDA !SPRITE_SWAP : BNE .continue
        LDA.b #$10 : STA $BC ; Load Original Sprite Location
        REP #$21
        LDA $7EF35B
        JSL $1BEDFF ; Read Original Palette Code
    RTL
    .part_two
    SEP #$30
    LDA !SPRITE_SWAP : BNE .continue
        REP #$30
        LDA $7EF354 
        JSL $1BEE21 ; Read Original Palette Code
    RTL

    .continue

    PHX : PHY : PHA
    ; Load armor palette
        PHB : PHK : PLB
    REP #$20
    
    ; Check what Link's armor value is.
    LDA $7EF35B : AND.w #$00FF : TAX
    
    ; (DEC06, X)
    
    LDA $1BEC06, X : AND.w #$00FF : ASL A : ADC.w #$F000 : STA $00
    ;replace D308 by 7000 and search
    REP #$10
    
    LDA.w #$01E2 ; Target SP-7 (sprite palette 6)
    LDX.w #$000E ; Palette has 15 colors
    
    TXY : TAX
    
    ;LDA !STABLE_SCRATCH : AND #$00FF : STA $02
    LDA.b $BC : AND #$00FF : STA $02

.loop

    LDA [$00] : STA $7EC300, X : STA $7EC500, X
    
    INC $00 : INC $00
    
    INX #2
    
    DEY : BPL .loop

    SEP #$30
    
    
    PLB
    INC $15
    PLA : PLY : PLX
    RTL
}

SpriteSwap_SetSprite:
{
    ;LDA $BC : CLC : ADC #$32 : STA !STABLE_SCRATCH
    JSL Palette_ArmorAndGloves
    STZ $0710 ; Set Normal Sprite NMI
    RTL
}