1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
cc65/libsrc/cx16/bordercolor.s

18 lines
462 B
ArmAsm

;
; 2020-05-02, Greg King
;
; unsigned char __fastcall__ bordercolor (unsigned char color);
; /* Set the color for the border. The old color setting is returned. */
;
.export _bordercolor
.include "cx16.inc"
_bordercolor:
tax
stz VERA::CTRL ; Use display register bank 0
lda VERA::DISP::FRAME ; get old value
stx VERA::DISP::FRAME ; set new value
rts