this my working serial com project : ( I'm test it )

transmitter :

@ device XT_osc
INCLUDE "modedefs.bas"
baslangicdatasi var byte
TRISB=%01000000
PORTB=0
baslangicdatasi=65

gonder:
PAUSE 1000
SEROUT PORTB.7,N2400,["protocol",baslangicdatasi] ' SEND BEFORE "protocol" AFTER SEND baslangicdatasi

son:
END


receiver :

INCLUDE "modedefs.bas"

TRISA=%00000000
TRISB=%00000011
B0 var byte
B1 var byte
B3 var byte
B0=0
PORTA=0
B3=2
LOW PORTB.3
LOW PORTA.2
HIGH PORTA.0
start:
B0=0
' IF PORTB.0=0 THEN bekle
' GOTO start

bekle:
SERIN PORTB.1, N2400, ["protocol"],B0 ' wait "protocol" after write receive baslangicdatasi and insert in B0

IF B0=65 then kontrol
GOTO bekle

kontrol:
IF B3=2 then ac
IF B3=1 then kapat
GOTO kontrol