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

[hossein-ab]

سلام من میخوام اطلاعات روی پورت A رو بفرستم و در گیرنده روی LCD نشون بدم این برنامم هستش:
فرستنده:

کد:

$regfile = "m16def.dat"
Config Portb.0 = Input
Config Porta = Input
Ddrb.0 = 0 : Portb.0 = 1
Dim B As Byte
Do
Debounce Pinb.0 , 0 , Ersal
Loop
Ersal:
B = Pina
Do
Print B
Waitms 75
Loop
End
گیرنده:
$regfile = "m16def.dat"
$baud = 9600
Config Porta = Output
Dim B As Byte
Cls
Do
Input B
Home
Lcd B
Loop
End

ولی کار نمیکنه؟ و در گیرنده چیزهای عجیب غریب (نویز) نشون میده.
اگه ممکنه کمکم کنید
ممنون میشم