Mal schnell zusammengeklatscht:

Code:
$regfile = "m16def.dat"
$crystal = 8000000

Ddra = &B0000010
Porta = &B0000001

Do
Debounce Pina.0 , 1 , Label

Label:
Toggle Porta.1
loop
PinA.1 wird entprellt und sobald der Taster gedrück wurde (=High) springt das Programm zum Label und geht durch den Loop zurück zum Debounce