bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Added the cputdirect entry point to the cputc() functions in the two Oric libraries.

Browse Source 
It now is available in all libraries that have cputc().
This commit is contained in:
Greg King
2020-11-15 11:44:12 -05:00
parent 2d7777b604
commit 5f65252fa6
2 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
libsrc/telestrat/cputc.s
View File

@@ -4,15 +4,17 @@
; void cputc (char c);
;
.export _cputc, CHARCOLOR, OLD_CHARCOLOR, BGCOLOR, OLD_BGCOLOR
.export _cputc, cputdirect
.export CHARCOLOR, OLD_CHARCOLOR, BGCOLOR, OLD_BGCOLOR
.include "telestrat.inc"
cputdirect:
.proc _cputc
ldx CHARCOLOR
cpx OLD_CHARCOLOR
beq do_not_change_color_foreground
stx OLD_CHARCOLOR ; Store CHARCOLOR into OLD_CHARCOLOR
dec SCRX
@@ -47,8 +49,8 @@ do_not_change_color:
CHARCOLOR:
.res 1
OLD_CHARCOLOR:
.res 1
.res 1
BGCOLOR:
.res 1
.res 1
OLD_BGCOLOR:
.res 1