Use actual Delete key for delete (too).

This commit is contained in:
Oliver Schmidt 2017-05-12 13:30:02 +02:00
parent 2566a26253
commit 3193774a31

View File

@ -35,11 +35,15 @@ get_filtered_input:
; Wait for a character.
@input_get:
jsr get_key
; convert to standard ASCII by turning off high bit
; Convert to standard ASCII by turning off high bit
and #$7f
sta LASTCHAR
cmp #$08 ; Delete
cmp #$7f ; Delete
beq @delete
; The ][ doesn't have a Delete key
cmp #$08 ; Backspace
beq @delete
cmp #$0d ; Return