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

It now is available in all libraries that have cputc().
2020-11-15 11:44:12 -05:00
parent 2d7777b604
commit 5f65252fa6
2 changed files with 9 additions and 7 deletions
--- a/libsrc/atmos/cputc.s
+++ b/libsrc/atmos/cputc.s
@@ -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: