1;
2; Ullrich von Bassewitz, 06.08.1998
3;
4; unsigned char __fastcall__ textcolor (unsigned char color);
5; unsigned char __fastcall__ bgcolor (unsigned char color);
6; unsigned char __fastcall__ bordercolor (unsigned char color);
7;
8
9        .export         _textcolor, _bgcolor, _bordercolor
10
11        .include        "plus4.inc"
12
13_textcolor:
14        ldx     CHARCOLOR       ; get old value
15        sta     CHARCOLOR       ; set new value
16        txa
17        rts
18
19
20_bgcolor:
21        ldx     TED_BGCOLOR     ; get old value
22        sta     TED_BGCOLOR     ; set new value
23        txa
24        rts
25
26
27_bordercolor:
28        ldx     TED_BORDERCOLOR ; get old value
29        sta     TED_BORDERCOLOR ; set new value
30        txa
31        rts
32
33
34