6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-09 02:30:42 +00:00
Code Issues Projects Releases Wiki Activity

moved bordercolor function into a seperate file

Browse Source
This commit is contained in:
mrdudz 2015-10-12 15:18:36 +02:00
parent 7f2df8e8e6
commit 2a0f6c420b
3 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libsrc/c64/extra/soft80.s
View File

@ -17,9 +17,11 @@
; soft80_color.s ; soft80_color.s
.import soft80_textcolor .import soft80_textcolor
.import soft80_bgcolor .import soft80_bgcolor
.import soft80_bordercolor
.export _textcolor := soft80_textcolor .export _textcolor := soft80_textcolor
.export _bgcolor := soft80_bgcolor .export _bgcolor := soft80_bgcolor
; soft80_bordercolor.s
.import soft80_bordercolor
.export _bordercolor := soft80_bordercolor .export _bordercolor := soft80_bordercolor
; soft80_cputc.s ; soft80_cputc.s

17
libsrc/c64/soft80_bordercolor.s Normal file
View File

@ -0,0 +1,17 @@
;
; Groepaz/Hitmen, 12.10.2015
;
; unsigned char __fastcall__ bordercolor (unsigned char color);
;
.export soft80_bordercolor
.include "c64.inc"
; FIXME: if we'd move this function into a seperate file in the regular
; conio lib, then we dont need this override at all.
soft80_bordercolor:
ldx VIC_BORDERCOLOR ; get old value
sta VIC_BORDERCOLOR ; set new value
txa
rts

9
libsrc/c64/soft80_color.s
View File

@ -3,10 +3,9 @@
; ;
; unsigned char __fastcall__ textcolor (unsigned char color); ; unsigned char __fastcall__ textcolor (unsigned char color);
; unsigned char __fastcall__ bgcolor (unsigned char color); ; unsigned char __fastcall__ bgcolor (unsigned char color);
; unsigned char __fastcall__ bordercolor (unsigned char color);
; ;
.export soft80_textcolor, soft80_bgcolor, soft80_bordercolor .export soft80_textcolor, soft80_bgcolor
.import soft80_internal_textcolor, soft80_internal_bgcolor .import soft80_internal_textcolor, soft80_internal_bgcolor
.importzp tmp1, tmp2 .importzp tmp1, tmp2
@ -96,12 +95,6 @@ mkcharcolor:
sta CHARCOLOR ; text/bg combo for new chars sta CHARCOLOR ; text/bg combo for new chars
rts rts
soft80_bordercolor:
ldx VIC_BORDERCOLOR ; get old value
sta VIC_BORDERCOLOR ; set new value
txa
rts
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
; force the init constructor to be imported ; force the init constructor to be imported