mirror of
https://github.com/cc65/cc65.git
synced 2026-04-20 17:20:49 +00:00
Konstantin
21 lines
287 B
ArmAsm
21 lines
287 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
|