2 ; Written by Groepaz/Hitmen <groepaz@gmx.net>
3 ; Cleanup by Ullrich von Bassewitz <uz@cc65.org>
5 ; unsigned char __fastcall__ textcolor (unsigned char color);
6 ; unsigned char __fastcall__ bgcolor (unsigned char color);
7 ; unsigned char __fastcall__ bordercolor (unsigned char color);
11 .export _textcolor, _bgcolor, _bordercolor
12 .import return0, ppubuf_put
17 _bordercolor = return0
22 lda BGCOLOR ; get old value
23 stx BGCOLOR ; set new value
53 colors: .byte $0f ; 0 black
63 .byte $35 ; a light red
64 .byte $2d ; b dark grey
65 .byte $10 ; c middle grey
66 .byte $2b ; d light green
67 .byte $22 ; e light blue
68 .byte $3d ; f light gray