2003-05-02 13:40:01 +00:00
|
|
|
;
|
|
|
|
|
; Written by Groepaz/Hitmen <groepaz@gmx.net>
|
|
|
|
|
; Cleanup by Ullrich von Bassewitz <uz@cc65.org>
|
|
|
|
|
;
|
|
|
|
|
; unsigned char __fastcall__ textcolor (unsigned char color);
|
|
|
|
|
; unsigned char __fastcall__ bgcolor (unsigned char color);
|
|
|
|
|
; unsigned char __fastcall__ bordercolor (unsigned char color);
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export _textcolor, _bgcolor, _bordercolor
|
|
|
|
|
.import return0, ppubuf_put
|
2003-05-02 13:40:01 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.include "nes.inc"
|
2003-05-02 13:40:01 +00:00
|
|
|
|
|
|
|
|
_textcolor = return0
|
|
|
|
|
_bordercolor = return0
|
|
|
|
|
|
|
|
|
|
.proc _bgcolor
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
tax
|
|
|
|
|
lda BGCOLOR ; get old value
|
|
|
|
|
stx BGCOLOR ; set new value
|
|
|
|
|
pha
|
2003-05-02 13:40:01 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
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
|
2003-05-02 13:40:01 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
pla
|
|
|
|
|
rts
|
2003-05-02 13:40:01 +00:00
|
|
|
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.rodata
|
|
|
|
|
|
|
|
|
|
colors: .byte $0f ; 0 black
|
2013-05-09 11:56:54 +00:00
|
|
|
.byte $3d ; 1 white
|
|
|
|
|
.byte $04 ; 2 red
|
|
|
|
|
.byte $3b ; 3 cyan
|
2022-02-01 23:58:50 +00:00
|
|
|
.byte $14 ; 4 violet
|
2013-05-09 11:56:54 +00:00
|
|
|
.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
|
