rc5

[infom]

برنامه ای برای خواندن کد کنترل نوشتم داخل Proteus کارمیکن اما فقط در لحظه ran یکبار نشان میده تنها مشکل اینکه Getrc5(address , Commandبرای بار دوم در DOLOOP اجرا نمیشه .لطفا کمک کنید
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.7 , Db5 = Portc.6 , Db6 = Portc.5 , Db7 = Portc.4 , E = Porta.6 , Rs = Porta.4
Config Portb.7 = Input
Config Pind.0 = Output
Config Rc5 = Pind.0
Enable Interrupts
Dim Address As Byte
Dim Command As Byte
Do
Getrc5(address , Command)
If Address = 0 Then
Lcd "0,"
Wait 1
End If
If Address = 1 Then
Lcd "rc5 Receiver"
Lcd "1,"
Wait 1
End If
...
...
...
If Address = 30 Then
Lcd "30,"
Wait 1
End If
If Address = 31 Then
Lcd "31,"
Wait 1
End If
If Command = 0 Then
Lcd "0"
Bitwait Pinb.7 , Reset
End If
If Command = 1 Then
Lcd "1"
Bitwait Pinb.7 , Reset
End If
If Command = 2 Then
Lcd "2"
Bitwait Pinb.7 , Reset
End If
...
...
If Command = 62 Then
Lcd "62"
Bitwait Pinb.7 , Reset
End If
If Command = 63 Then
Lcd "63"
Bitwait Pinb.7 , Reset
End If
Loop
End