Transmitter ...
receiver...Code: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
Code: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
Bookmarks