مشكل در برنامه sleep

[hossein6355]

سلام به همگي
اين برنامه براي ارتباط بين دو ميكرو است ولي كار نميكنه نميدونم مشكل كجاست اگه ممكنه كمكم كنيد
فرستنده(كه داخل آن از 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