1 parent
343b6f11e0
commit
84b1577883
1 file changed
+1
-12
@@ -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
|
||||
|
||||
Reference in new issue
Block a user