22 lines
234 B
ArmAsm
22 lines
234 B
ArmAsm
;
|
|
; 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
|
|
|