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
;; Decrement key repeat timeout if non-zero
inc $0423
ldx key_repeat_counter
beq sk_start
dec key_repeat_counter
@@ -407,12 +406,6 @@ AcceptKeyEvent:
iny
sty BufferQuantity
;; Set initial key repeat delay
lda key_first_repeat_delay
sta key_repeat_counter
inc $0427
ConsiderNextKey:
dex
bpl ProcessPressedKeys
@@ -453,16 +446,13 @@ KeyHeld:
pha
lda key_first_repeat_delay
sta key_repeat_counter
inc $0426
pla
BuckyHeld:
jmp ConsiderNextKey
SameKeyHeld:
inc $0425
pha
lda key_repeat_counter
sta $0420
bmi KeyCanRepeat
bne KeyRepeatWait
;; Count down ended, so repeat key now
@@ -471,11 +461,10 @@ KeyCanRepeat:
;; (Compute's Mapping the 64 p58)
pha
lda #6-2 ; Fudge factor to match speed
inc $0424
sta key_repeat_counter
pla
pla
jmp RecordKeypress
KeyRepeatWait:
pla