; Change foreground palette
; !wl 7f9f00 00 00 00 00 00 00 00 00 00 00



!palettebuffer = $0682

!palstart = $9efe

!bgplen = $7f9efe
!bgpidx = $7f9eff
!bgpalette = $9e00   ; $7f9f00
!bgpend = $7f9f0a


lda !carl_initialized
beq init

!goaltimer = $7e1493
lda !goaltimer
bne end


lda $7f9efe
sta $7e0682

lda $7f9eff
sta $7e0683

lda $7f9f00
sta $7e0684

lda $7f9f01
sta $7e0685

lda $7f9f02
sta $7e0686

lda $7f9f03
sta $7e0687

lda $7f9f04
sta $7e0688

lda $7f9f05
sta $7e0689

lda $7f9f06
sta $7e068a

lda $7f9f07
sta $7e068b

lda $7f9f08
sta $7e068c

lda $7f9f09
sta $7e068d

lda $7f9f0a
sta $7e068e

rtl

end:

rtl

init:

lda #$0a    ; ten bytes (five colors)
sta !bgplen

lda #$23    ; bg palette index
sta !bgpidx

lda #$00
sta !bgpend

lda #$01
sta !carl_initialized
rtl

back to listings