;;; BACKGROUND PAL ;;;
LDX #$00
doFadeCurrentBckPal:
LDA bckPal,x
CMP #$10
BCC +
SEC
SBC #$10
STA bckPal,x
JMP goNextBckPal
+
LDA #$0F
STA bckPal,x
goNextBckPal:
INX
CPX #4
BEQ goNextBckPal
CPX #8
BEQ goNextBckPal
CPX #12
BEQ goNextBckPal
CPX #16
BCC doFadeCurrentBckPal
LDA #$01
STA updateScreenData
;;; SPRITE PAL ;;;
LDX #$00
doFadeCurrentSpritePal:
LDA sprPal,x
CMP #$10
BCC +
SEC
SBC #$10
STA sprPal,x
JMP goNextSpritePal
+
LDA #$0F
STA sprPal,x
goNextSpritePal:
INX
CPX #4
BEQ goNextSpritePal
CPX #8
BEQ goNextSpritePal
CPX #12
BEQ goNextSpritePal
CPX #16
BCC doFadeCurrentSpritePal
LDA #$01
STA updateScreenData
RTS