Moved initcgetc to initcputc

diff --git a/libsrc/atmos/cgetc.s b/libsrc/atmos/cgetc.s
index f1d727a50e7ed00149cbe472aa2c0d089caa82f4..72cd9407ac5d04deb850509d98c2bacef25efe2b 100644 (file)
--- a/libsrc/atmos/cgetc.s
+++ b/libsrc/atmos/cgetc.s
@@ -6,7 +6,6 @@
 ;
 
         .export         _cgetc
-        .constructor    initcgetc
 
         .import         cursor
         .forceimport    disable_caps
@@ -53,14 +52,3 @@
 @L3:    rts
 
 .endproc
-
-; ------------------------------------------------------------------------
-; Switch the cursor off. Code goes into the ONCE segment,
-; which will be reused after it is run.
-
-.segment        "ONCE"
-
-initcgetc:
-        lsr     STATUS
-        asl     STATUS          ; Clear bit zero
-        rts

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