ok men ya entendi incluso yo le quite el [6,6,-----] y en la simulacion de proteus no me funcionava y se lo volvi a colocar y funciona bien,
otra cosa yo quiero q el pic que funciona como RX tambien trasnmita y el pic q funciona como TX tambien reciva pero no me funciona aqui te dejo el codigo para que le des una mirada parar ver en que estoy fallando.
TRANSMISOR.
INCLUDE "modedefs.bas" ' se define la librería donde se encuentran los operadores para puerto serial
DEFINE OSC 4 'se define el oscilador en MHz
TRISA = %00001111 'RA0 COMO TX
TRISB = %00000000
PORTA=0
PORTB=0
TRAM VAR WORD
loop: IF PORTA.1 = 1 THEN
SEROUt PORTB.1,N2400,[6,6,"TX",29]
ENDIF
IF PORTA.2 = 1 THEN
SEROUT PORTB.1,N2400,[6,6,"TX",87]
ENDIF
IF PORTA.3 = 1 THEN
SEROUT PORTB.1,N2400,[6,6,"TX",53]
ENDIF
SERIN PORTA.0,N2400,["RX"],TRAM
if tram = 64 then ALAR
LOW PORTB.7
GOTO loop
ALAR: HIGH PORTB.7
GOTO loop
end
RECEPTOR....................
NCLUDE "modedefs.bas" ' se define la librería donde se encuentran los operadores para puerto serial
DEFINE OSC 4 'se define el oscilador en MHz
TRISA = %00000001 'RA0 COMO RX
TRISB = %10000000
PORTA=0
PORTB=0
TRAMA VAR WORD
loop: SERIN PORTA.0,N2400,["TX"],TRAMA
if trama = 29 then act
if trama = 87 then des
if trama = 53 then malt
if PORTB.7 = 1 THEN
SEROUt PORTB.6,N2400,[5,5,"RX",64]
ENDIF
goto loop
act: high PORTB.1
GOTO loop
des: low PORTB.1
GOTO loop
malt: HIGH PORTB.2
PAUSE 1000
LOW PORTB.2
GOTO loop
END