Pic To Pic

[Tomexx]

Hi,
I'd like to send a word from one pic and receive it on another using Serin & Serout ...I guess. Could anyone provide an example, please?


Thanks,
Tom

[mister_e]

Transmitter ...



SerPinOut VAR PORTB.0
Serdata VAR WORD
MSB VAR BYTE
LSB VAR BYTE

SerData=65000
MSB=SerData.HighByte
LSB=SerData.LowByte
SerPinOut=1
pause 20

start:
serout SerPinOut,4,["ok",MSB,LSB]
pause 1000
goto start



receiver...


SerPinInput VAR PORTB.0
Led VAR PORTB.1
SerData VAR WORD
MSB VAR BYTE
LSB VAR BYTE
Led=0

Start:

Serin SerPinInput,4,["ok"],MSB,LSB
Serdata.HighByte=MSB
SerData.LowByte=LSB
If Serdata=6500 then
Led=1
Pause 200
led=0
endif

Goto Start