;
- .export _textcolor, _bgcolor, _bordercolor
- .import return0, ppubuf_put
+ .export _textcolor, _bgcolor, _bordercolor
+ .import return0, ppubuf_put
- .include "nes.inc"
+ .include "nes.inc"
_textcolor = return0
_bordercolor = return0
.proc _bgcolor
- tax
- lda BGCOLOR ; get old value
- stx BGCOLOR ; set new value
- pha
+ tax
+ lda BGCOLOR ; get old value
+ stx BGCOLOR ; set new value
+ pha
- lda colors,x
- pha
- ldy #$3F
- ldx #0
- jsr ppubuf_put
- pla
- pha
- ldy #$3F
- ldx #4
- jsr ppubuf_put
- pla
- pha
- ldy #$3F
- ldx #8
- jsr ppubuf_put
- pla
- ldy #$3F
- ldx #12
- jsr ppubuf_put
+ lda colors,x
+ pha
+ ldy #$3F
+ ldx #0
+ jsr ppubuf_put
+ pla
+ pha
+ ldy #$3F
+ ldx #4
+ jsr ppubuf_put
+ pla
+ pha
+ ldy #$3F
+ ldx #8
+ jsr ppubuf_put
+ pla
+ ldy #$3F
+ ldx #12
+ jsr ppubuf_put
- pla
- rts
+ pla
+ rts
.endproc
.rodata
colors: .byte $0f ; 0 black
- .byte $3d ; 1 white
- .byte $04 ; 2 red
- .byte $3b ; 3 cyan
- .byte $14 ; 4 violett
- .byte $1a ; 5 green
- .byte $01 ; 6 blue
- .byte $38 ; 7 yellow
- .byte $18 ; 8 orange
- .byte $08 ; 9 brown
- .byte $35 ; a light red
- .byte $2d ; b dark grey
- .byte $10 ; c middle grey
- .byte $2b ; d light green
- .byte $22 ; e light blue
- .byte $3d ; f light gray
+ .byte $3d ; 1 white
+ .byte $04 ; 2 red
+ .byte $3b ; 3 cyan
+ .byte $14 ; 4 violett
+ .byte $1a ; 5 green
+ .byte $01 ; 6 blue
+ .byte $38 ; 7 yellow
+ .byte $18 ; 8 orange
+ .byte $08 ; 9 brown
+ .byte $35 ; a light red
+ .byte $2d ; b dark grey
+ .byte $10 ; c middle grey
+ .byte $2b ; d light green
+ .byte $22 ; e light blue
+ .byte $3d ; f light gray