.MACRO Spin_Loop ARGS XCOUNT

ldx #XCOUNT
lvl3\@:
    lda #$ff
    lvl2\@:
        xba
        lda #$ff
        lvl1\@:
            dea
            cmp #$00
            bne lvl1\@
        xba
        dea
        cmp #$00
        bne lvl2\@
    dex
    txa
    cmp #$00
    bne lvl3\@
.ENDM


.MACRO Reset_Palette_Offset
stz $2121
.ENDM

.MACRO Load_Palette_Color ARGS BYTE1 BYTE2

lda #BYTE1
sta $2122
;lda #BYTE2
;sta $2122

.ENDM