راهنمایی در باره rc5

[s.h.h]

سلام دوستان
من مدار فرستنده و گیرنده rc5رو می خوام.
و در باره برنامه زیر اگر ایرادی دارد لطفا دوسات راهنامیی کنن.
خروجی فرستنده به تایمر میکرو وصل می شود یا که نه.
گیرنده:

کد:

$regfile = "m16def.dat"
$crystal = 1000000
Config Portb = Output
Config Rc5 = Pind.7
Enable Interrupts
Dim Adress As Byte , Comand As Byte
Do
Getrc5(adress , Comand)
If Comand = 12 Then
Set Portb.0
Reset Portb.1
End If
If Comand = 11 Then
Set Portb.0
Reset Portb.1
End If
Loop
End

فرستنده

کد:

$regfile = "m16def.dat"
$crystal = 1000000
Config Portb = Input
Do
Debounce Pind.0 , 0 , Q
   Debounce Pind.1 , 0 , W
   Loop
   Q:
   Rc5send 32 , 0 , 11
   Wait 1
   Return
   W:
   Rc5send 32 , 0 , 12
   Wait 1
   Return
   End