ايران ويج

سلام به همگي
اين برنامه براي ارتباط بين دو ميكرو است ولي كار نميكنه نميدونم مشكل كجاست اگه ممكنه كمكم كنيد
فرستنده(كه داخل آن از sleep استفاده كرده ام:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Print "start"
Config Int0 = Falling
Config Portc = Input
Enable Int0
Enable Interrupts
On Int0 Int0_isr
Print "power down"
Dim B As Byte , A As Byte , S As String * 5
Do
Powerdown
Loop
Int0_isr:
B =10
For A = 1 To 10
Print B
Next A
Return
گيرنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Config Portc = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , _
Db7 = Portc.0 , Rs = Portc.5 , E = Portc.4
Dim S As Byte , Ss As String * 5 , B As Byte
Dim P As Byte , X As String * 5
Cls
Do
Input S
Locate 1 , 1
Lcd S
Loop