Moved initcgetc to initcputc

[cc65] / libsrc / atmos / cputc.s

diff --git a/libsrc/atmos/cputc.s b/libsrc/atmos/cputc.s
index a0ef14b7023e171ea76ade49a7eac996de38d58c..f1ce5f2b75894872f099d255f3e48bf363093c56 100644 (file)
--- a/libsrc/atmos/cputc.s
+++ b/libsrc/atmos/cputc.s
@@ -8,6 +8,7 @@
 
         .export         _cputcxy, _cputc
         .export         setscrptr, putchar
+        .constructor    initcputc
         .import         rvs
         .import         popax
         .importzp       ptr2
@@ -95,3 +96,13 @@ ScrTabHi:
                 .byte   >(SCREEN + Line * SCREEN_XSIZE)
         .endrep
 
+; ------------------------------------------------------------------------
+; Switch the cursor off. Code goes into the ONCE segment,
+; which will be reused after it is run.
+
+.segment        "ONCE"
+
+initcputc:
+        lsr     STATUS
+        asl     STATUS          ; Clear bit zero
+        rts