برنامه برای روشن و خاموش شدن led با یک کلید

[mehdi parsafar]

سلام
من یه برنامه نوشتم واسه avr mega8 که با یک کلید led هم روشن شه و هم خاموش
لطفا بگین که این برنامه درسته یا نه
و در عمل کار میکنه یا نه


$regfile = "M8def.dat"
$crystal = 8000000
Config Portb.0 = Output
Config Pind.3 = Input
Config Pind.3 = Input
Config Debounce = 30
Do
Debounce Pind.3 , 1 , Roshan , Sub
Debounce Pind.3 , 1 , Khamosh , Sub
Loop
End

Roshan:
Set Portb.0
Return
Khamosh:
Reset Portb.0
Return

[KhepeleSibilo]

بهترين روش براي تست برنامه هاي ساده كه نياز به سخت افزار خواص كه گرون باشه يا بسوزه ندارن، تست عملي اونها هست
پيشنهادي كه دارم عدم استفاده از دستورات پيشفرض ايم قبيل كامپايلر ها براي كارهايي هست كه نوشتن اون ساده هست