Moved initcgetc to initcputc

2018-01-23 13:02:47 +01:00
parent 98e2b79ef4
commit caa40866c3
2 changed files with 11 additions and 12 deletions
--- 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