diff --git a/libsrc/vic20/cgetc.s b/libsrc/vic20/cgetc.s index 4d3a30ea2..9371805d2 100644 --- 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