1 byte code size donation for Fabrizio ;)

diff --git a/libsrc/vic20/cgetc.s b/libsrc/vic20/cgetc.s
index 4d3a30ea2ad05359f2ceb1504bcfbc2c235780a1..9371805d2e9ba7ee83d120c4b92c57a6e701e3e8 100644 (file)
--- a/libsrc/vic20/cgetc.s
+++ b/libsrc/vic20/cgetc.s
@@ -40,8 +40,8 @@ L3:     jsr     KBDREAD         ; Read char and return in A
         bne     seton           ; Go set it on
         lda     CURS_FLAG       ; Is the cursor currently off?
         bne     crs9            ; Jump if yes
-        lda     #1
-        sta     CURS_FLAG       ; Mark it as off
+        inx                     ; X is now 1     
+        stx     CURS_FLAG       ; Mark it as off
         lda     CURS_STATE      ; Cursor currently displayed?
         beq     crs8            ; Jump if no
         ldy     CURS_X          ; Get the character column