fix comments

[cc65] / libsrc / atmos / cgetc.s

diff --git a/libsrc/atmos/cgetc.s b/libsrc/atmos/cgetc.s
index e8f96abb32381ef50c8108212138e6198f9bf192..e6473471906357cccbc7fb57bc49c7e491ebce17 100644 (file)
--- a/libsrc/atmos/cgetc.s
+++ b/libsrc/atmos/cgetc.s
@@ -41,15 +41,22 @@
 
 @L2:    and     #$7F            ; Mask out avail flag
         sta     KEYBUF
+        ldy     $209
+        cpy     #$A5
+        bne     @L3
+        ora     #$80            ; FUNCT pressed
 
 ; Done
 
-        rts
+@L3:    rts
 
 .endproc
 
 ; ------------------------------------------------------------------------
-; Switch the cursor off, disable capslock
+; Switch the cursor off, disable capslock. Code goes into the INIT segment
+; which may be reused after it is run.
+
+.segment        "INIT"
 
 initcgetc:
         lda     STATUS