Hilferuf Debounce

Hallo zäme,

ich han en Frag zum Debounce Befehl. Und zwar habe ich folgendes kleine 
Programm.

1

Do 

2

Config Debounce = 25

3

Debounce PIND.5, 0 , down, Sub

4

5

6

Loop

7

8

9

Down:

10

keypress_down = 0 ' zum entscheiden ob lang oder kurz gedrückt

11

Config Debounce = 2000

12

Debounce PIND.5, 1, down_long, Sub

13

if keypress_down = 0 then 

14

'ereignisse beim kurzen tastendruck

15

call decrement

16

call save

17

End If

18

Return

19

20

Down_long:

21

keypress_down = 1

22

return

Dies funktioniert überhaupt nicht. Wenn ich nun die taste drücke, fährt 
der im eiltempo die Zahl runter die mit decrement vermindert wird, egal 
ob ich lange oder kurz darauf drücke. Ich denke, dass es damit zu tun 
hat,  dass Debounce dass Programm nicht anhält, sonder nach 2sekunden 
wieder nachschaut, bis dahin läuft das Programm aber wieder 1000 mal 
durch den Debounce im Loop. Bitte gebt mir einen Anstoss in welche 
Richtung ich weitersuchen soll.

grüsse sascha