optimized pop_keyboard_buffer

c64/kernal/chrin_real.s

@@ -149,21 +149,3 @@ not_enter:
 
 	// Keep looking for input from keyboard until carriage return
 	jmp chrin_repeat
-
-pop_keyboard_buffer:
-	// Pop key out of keyboard buffer
-	// Disable interrupts while reading from keyboard buffer
-	// so that no race conditions can occur
-	sei
-	ldx #$00
-	ldy #$01
-!:	lda KEYD,y
-	sta KEYD,x
-	inx
-	iny
-	cpy XMAX
-	bne !-
-	dec NDX
-	cli
-
-	rts

c64/kernal/keyboard/pop_keyboard_buffer.s

@@ -0,0 +1,20 @@
+
+// Pop key out of keyboard buffer
+// Disable interrupts while reading from keyboard buffer
+// so that no race conditions can occur
+
+
+pop_keyboard_buffer:
+
+	ldy #$01
+
+	sei
+!:	lda KEYD,y
+	sta KEYD-1,y
+	iny
+	cpy XMAX
+	bne !-
+	dec NDX
+	cli
+
+	rts