;
; Oleg A. Odintsov, Moscow, 2024
;
; unsigned char __fastcall__ textcolor (unsigned char color);
;


    .export     _textcolor
    .include    "agat.inc"


_textcolor:
    ldx    TATTR
    eor    TATTR
    and    #$07
    eor    TATTR
    sta    TATTR
    txa
    and    #$0F
    rts
