.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 .MACRO Set_Screen_Brightness lda #\1 sta $2100 .ENDM