diff --git a/c64/kernal/blink_cursor.s b/c64/kernal/blink_cursor.s index 025f333c..b000b3c2 100644 --- a/c64/kernal/blink_cursor.s +++ b/c64/kernal/blink_cursor.s @@ -70,7 +70,17 @@ no_blink_cursor: rts +disable_cursor: + lda #$ff + sta cursor_blink_disable + ;; FALL THROUGH hide_cursor_if_visible: bit cursor_is_visible bpl undraw_cursor rts + +enable_cursor: + lda #$00 + sta cursor_blink_disable + rts + diff --git a/c64/kernal/chrin.s b/c64/kernal/chrin.s index 090ce071..dfdd9465 100644 --- a/c64/kernal/chrin.s +++ b/c64/kernal/chrin.s @@ -45,6 +45,8 @@ not_end_of_input: read_from_keyboard: + jsr enable_cursor + ;; Wait for a key lda keys_in_key_buffer beq chrin_repeat @@ -53,6 +55,8 @@ read_from_keyboard: cmp #$0d bne not_enter + jsr disable_cursor + jsr pop_keyboard_buffer jsr hide_cursor_if_visible