DEBOUNCE.I

[Table of Contents]

The DEBOUNCE.I include file resides on the Kyan Pascal 2.x Utilities Disk 1. It contains three procedures for changing the debounce rate of the keyboard.

• PROCEDURE Fast_Key_Debounce;
• PROCEDURE Normal_Key_Debounce;
• PROCEDURE Slow_Key_Debounce;

Source Code

PROCEDURE Fast_Key_Debounce;
BEGIN
#A
  LDA #$06 ;poke 6 into
  STA $2D9 ;...(729)
#
END;(* Fast Debounce procedure*)



PROCEDURE Normal_Key_Debounce;
BEGIN
#A
  LDA #$30 ;poke 48 into
  STA $2D9 ;...(729)
#
END;(* Normal Debounce procedure *)



PROCEDURE Slow_Key_Debounce;
BEGIN
#A
  LDA #$78 ;poke 120 into
  STA $2D9 ;...(729)
#
END;(* Slow Debounce procedure *)