empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libsrc/atmos/cputc.s
View file

@ -7,7 +7,7 @@
;
.export _cputcxy, _cputc
.export setscrptr, putchar
.export setscrptr, cputdirect, putchar
.constructor initcputc
.import rvs
.import popax
@ -32,13 +32,13 @@ _cputc: cmp #$0D ; CR?
rts
L1: cmp #$0A ; LF?
bne output
bne cputdirect
inc CURS_Y ; Newline
rts
; Output the character, then advance the cursor position
output:
cputdirect:
jsr putchar
advance:

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