43 lines
488 B
NASM
43 lines
488 B
NASM
|
|
.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
|