Hallo
er benutzt den Interrupt ja nicht probieres einfach so

A = 0
Do
If Pind.3 = 0 Then
Bitwait Pind.3, Set ' die zeile musst du einfügen
A = A + 1
Cls
Lcd " " ; A
Loop
Das Programm wartet solange bis Pind.3 wieder High ist.