fix major remaining key repeat problem. Issue #4. Issue #6.

This commit is contained in:
Paul Gardner-Stephen committed 2019-04-24 07:43:58 +09:30
1 parent 343b6f11e0
commit 84b1577883
1 file changed
+1 -12
+1 -12
View File
@@ -65,7 +65,6 @@ scan_keyboard:
sta BufferQuantity sta BufferQuantity
;; Decrement key repeat timeout if non-zero ;; Decrement key repeat timeout if non-zero
inc $0423
ldx key_repeat_counter ldx key_repeat_counter
beq sk_start beq sk_start
dec key_repeat_counter dec key_repeat_counter
@@ -407,12 +406,6 @@ AcceptKeyEvent:
iny iny
sty BufferQuantity sty BufferQuantity
;; Set initial key repeat delay
lda key_first_repeat_delay
sta key_repeat_counter
inc $0427
ConsiderNextKey: ConsiderNextKey:
dex dex
bpl ProcessPressedKeys bpl ProcessPressedKeys
@@ -453,16 +446,13 @@ KeyHeld:
pha pha
lda key_first_repeat_delay lda key_first_repeat_delay
sta key_repeat_counter sta key_repeat_counter
inc $0426
pla pla
BuckyHeld: BuckyHeld:
jmp ConsiderNextKey jmp ConsiderNextKey
SameKeyHeld: SameKeyHeld:
inc $0425
pha pha
lda key_repeat_counter lda key_repeat_counter
sta $0420
bmi KeyCanRepeat bmi KeyCanRepeat
bne KeyRepeatWait bne KeyRepeatWait
;; Count down ended, so repeat key now ;; Count down ended, so repeat key now
@@ -471,11 +461,10 @@ KeyCanRepeat:
;; (Compute's Mapping the 64 p58) ;; (Compute's Mapping the 64 p58)
pha pha
lda #6-2 ; Fudge factor to match speed lda #6-2 ; Fudge factor to match speed
inc $0424
sta key_repeat_counter sta key_repeat_counter
pla pla
pla pla
jmp RecordKeypress jmp RecordKeypress
KeyRepeatWait: KeyRepeatWait:
pla pla