; Assumes 8_bit mem, 16-Bit index
; COLOR		= 8-bit color to change
; ATTR		= 16-Bit color definition value
;
;##############################
; Palette color changeroutine #
;##############################
Color_1 .macro (COLOR,ATTR)

 pha
 php
 sep #$20
 
 lda COLOR
 sta $2121		;Store the color to change
 lda ATTR		; 8-Bits at a time
 sta $2122		;store it into CGDATA
 lda ATTR+1		;last 8-Bits 
 sta $2122		;store it into CGDATA

 plp
 pla
.endm
;/* END OF SUB */