Added SER_ prefix. Whitespace cleanup

[cc65] / libsrc / c16 / cgetc.s

diff --git a/libsrc/c16/cgetc.s b/libsrc/c16/cgetc.s
index 3ee31a757faf653086fe4ab28de0a412392dfaae..52d985caffb9df4860c67951b549571dd9e4364a 100644 (file)
--- a/libsrc/c16/cgetc.s
+++ b/libsrc/c16/cgetc.s
@@ -7,6 +7,7 @@
         .export         _cgetc
         .import         cursor
 
+        .include        "cbm_kernal.inc"
         .include        "plus4.inc"
 
 
@@ -60,8 +61,10 @@ L2:     jsr     KBDREAD         ; Read char and return in A
 
 .proc   initkbd
 
-        ldy     #15
+        ldy     #7
 @L1:    lda     fnkeys,y
+        sta     FKEY_SPACE+8,y
+        lda     #$01            ; Lower 8 places are all $01
         sta     FKEY_SPACE,y
         dey
         bpl     @L1
@@ -69,8 +72,7 @@ L2:     jsr     KBDREAD         ; Read char and return in A
 
 .endproc
 
-fnkeys: .byte   $01, $01, $01, $01, $01, $01, $01, $01
-        .byte   133, 137, 134, 138, 135, 139, 136, 140
+fnkeys: .byte   133, 137, 134, 138, 135, 139, 136, 140
 
 
 .code