2000-05-28 13:40:48 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 06.08.1998
|
|
|
|
|
;
|
|
|
|
|
; unsigned char __fastcall__ textcolor (unsigned char color);
|
|
|
|
|
; unsigned char __fastcall__ bgcolor (unsigned char color);
|
|
|
|
|
; unsigned char __fastcall__ bordercolor (unsigned char color);
|
|
|
|
|
;
|
|
|
|
|
|
2005-04-20 16:52:10 +00:00
|
|
|
.export _textcolor, _bgcolor, _bordercolor
|
2008-03-25 19:08:26 +00:00
|
|
|
.import return0
|
2000-05-28 13:40:48 +00:00
|
|
|
|
2008-03-25 19:08:26 +00:00
|
|
|
_bgcolor := return0
|
|
|
|
|
|
|
|
|
|
_bordercolor := return0
|
|
|
|
|
|
|
|
|
|
_textcolor:
|
|
|
|
|
ldx #$00
|
|
|
|
|
lda #$03 ; COLOR_WHITE
|
|
|
|
|
rts
|
2000-05-28 13:40:48 +00:00
|
|
|
|
|
|
|
|
|
