From 84b1577883ba13d073c01a20f3bded3511f2592a Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Wed, 24 Apr 2019 07:43:58 +0930
Subject: [PATCH] fix major remaining key repeat problem. Issue #4. Issue #6.

---
 c64/kernal/scan_keyboard.s | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/c64/kernal/scan_keyboard.s b/c64/kernal/scan_keyboard.s
index 6720b704..a2cfad77 100644
--- a/c64/kernal/scan_keyboard.s
+++ b/c64/kernal/scan_keyboard.s
@@ -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