کمک در مورد hmt و hmr

[hossein-ab]

سلام این برنامه فرستنده منه برای اینکه پورت a را بخونه و بفرسته:

کد:

$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Config Portb.0 = Input
Config Porta = Input
Ddrb.0 = 0 : Portb.0 = 1
Dim B As Byte , S As String * 8 , A As String * 1
A = "h"
Do
Debounce Pinb.0 , 0 , Ersal
Loop
Ersal:
B = Pina
S = Str(b)
S = S + A
Do
Print S
Waitms 75
Loop
End

میخواستم ببینم در گیرنده باید چه برنامه ای بنویسم؟
ممنون میشم