Rs485 Using Hserin/hserout

[koossa]

Don't know if I understand you correctly, but here is my new code

MASTER PIC
<HR>
<p>&nbsp;&nbsp; Include &quot;Modedefs.bas&quot;&nbsp;&nbsp;
&nbsp;&nbsp;
&nbsp;&nbsp; DEFINE OSC 4&nbsp;&nbsp;
&nbsp;&nbsp;
&nbsp;&nbsp; DE_OR_RE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; VAR&nbsp;&nbsp;&nbsp;&nbsp; PORTC.5&nbsp;&nbsp;&nbsp;&nbsp; ' DE and RE Pin of SN75176&nbsp;&nbsp;
&nbsp;&nbsp; RS232_DEBUG_PIN&nbsp;&nbsp;&nbsp;&nbsp; VAR&nbsp;&nbsp;&nbsp;&nbsp; PORTB.5&nbsp;&nbsp;&nbsp;&nbsp; ' Debugging to PC
&nbsp;&nbsp; LEDPIN&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp; VAR&nbsp;&nbsp;&nbsp;&nbsp; PORTD.2&nbsp;&nbsp;&nbsp;&nbsp;' LED to confirm PIC is running&nbsp;&nbsp;
&nbsp;&nbsp; DATARECEIVED&nbsp;&nbsp;&nbsp;&nbsp; VAR&nbsp;&nbsp;&nbsp;&nbsp; BYTE&nbsp;&nbsp;
&nbsp;&nbsp;
&nbsp;&nbsp; '======== HSEROUT, HSERIN SETTINGS ========== &nbsp;&nbsp;
&nbsp;&nbsp; DEFINE&nbsp;&nbsp;&nbsp;&nbsp; HSER_RCSTA&nbsp;&nbsp;&nbsp; 90h&nbsp;&nbsp;
&nbsp;&nbsp; define&nbsp;&nbsp;&nbsp;&nbsp; HSER_TXSTA&nbsp;&nbsp;&nbsp; 20h&nbsp;&nbsp;
&nbsp;&nbsp; define&nbsp;&nbsp;&nbsp;&nbsp; HSER_SPBRG&nbsp;&nbsp;&nbsp; 103&nbsp;&nbsp;
&nbsp;&nbsp; DEFINE&nbsp;&nbsp;&nbsp;&nbsp; HSER_CLOERR&nbsp;&nbsp;&nbsp; 1&nbsp;&nbsp;
&nbsp;&nbsp; RCIF&nbsp;&nbsp;&nbsp;&nbsp; VAR&nbsp;&nbsp;&nbsp;&nbsp; PIR1.5&nbsp;&nbsp;
&nbsp;&nbsp; TXIF&nbsp;&nbsp;&nbsp;&nbsp; VAR&nbsp;&nbsp;&nbsp;&nbsp; PIR1.4&nbsp;&nbsp;
&nbsp;&nbsp;
&nbsp;&nbsp; ADCON1 = 7&nbsp;&nbsp;
&nbsp;&nbsp; TRISC = %10000000&nbsp;&nbsp;
&nbsp;&nbsp;
Main:&nbsp;&nbsp;
&nbsp;&nbsp; HIGH LEDPIN ' Indicate PIC is running&nbsp;&nbsp;
&nbsp;&nbsp; HIGH DE_OR_RE ' Make ready for TX&nbsp;&nbsp;
&nbsp;&nbsp; PAUSE 4&nbsp;&nbsp;
&nbsp;&nbsp; HSEROUT [&quot;S0&quot;] ' Send &quot;S0&quot;&nbsp;&nbsp;
&nbsp;&nbsp; LOW LEDPIN&nbsp;&nbsp;
&nbsp;&nbsp; LOW DE_OR_RE ' Make ready for RX&nbsp;&nbsp;
&nbsp;&nbsp; PAUSE 4&nbsp;&nbsp;
&nbsp;&nbsp; SEROUT RS232_DEBUG_PIN,N2400,[&quot;WAITING FOR REPLY..&quot;, 13, 10] ' DEBUG TO PC&nbsp;&nbsp;
&nbsp;&nbsp; if RCIF then&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; hserin 100,Main,[WAIT (&quot;R&quot,DATARECEIVED]&nbsp;&nbsp;
&nbsp;&nbsp; ENDIF&nbsp;&nbsp;
&nbsp;&nbsp; SEROUT RS232_DEBUG_PIN,N2400,[&quot;REC:&quot;,DATARECEIVED, 13, 10] 'DEBUG TO PC&nbsp;&nbsp;
&nbsp;&nbsp;
&nbsp;&nbsp; GOTO Main&nbsp;&nbsp;
&nbsp;&nbsp;
END</p>

<HR>




SLAVE PIC
<hr>
<p>&nbsp;&nbsp; Include &quot;Modedefs.bas&quot;&nbsp;&nbsp;
&nbsp;&nbsp;
&nbsp;&nbsp; DEFINE OSC 4&nbsp;&nbsp;
&nbsp;&nbsp;
&nbsp;&nbsp; DE_OR_RE&nbsp;&nbsp;&nbsp;&nbsp; VAR&nbsp;&nbsp;&nbsp;&nbsp; PORTC.5&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' DE and RE Pin of SN75176&nbsp;&nbsp;
&nbsp;&nbsp; LEDPIN&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp; VAR&nbsp;&nbsp;&nbsp;&nbsp; PORTD.2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' LED to confirm PIC is running&nbsp;&nbsp;
&nbsp;&nbsp; DATARECEIVED&nbsp; VAR&nbsp;&nbsp;&nbsp;&nbsp; BYTE&nbsp;&nbsp;
&nbsp;&nbsp;
&nbsp;&nbsp; '======== HSEROUT, HSERIN SETTINGS ==========&nbsp;&nbsp;
&nbsp;&nbsp; DEFINE HSER_RCSTA 90h&nbsp;&nbsp;
&nbsp;&nbsp; define HSER_TXSTA 20h&nbsp;&nbsp;
&nbsp;&nbsp; define HSER_SPBRG 103&nbsp;&nbsp;
&nbsp;&nbsp; DEFINE HSER_CLOERR 1&nbsp;&nbsp;
&nbsp;&nbsp; RCIF VAR PIR1.5&nbsp;&nbsp;
&nbsp;&nbsp; TXIF VAR PIR1.4&nbsp;&nbsp;
&nbsp;&nbsp;
&nbsp;&nbsp; ADCON1 = 7&nbsp;&nbsp;
&nbsp;&nbsp; TRISC = %10000000&nbsp;&nbsp;
&nbsp;&nbsp;
Main:&nbsp;&nbsp;
&nbsp;&nbsp;
&nbsp;&nbsp; HIGH LEDPIN ' Indicate PIC is running&nbsp;&nbsp;
&nbsp;&nbsp; LOW DE_OR_RE ' Make ready for RX&nbsp;&nbsp;
&nbsp;&nbsp; PAUSE 4 &nbsp;&nbsp;
&nbsp;&nbsp; LOW LEDPIN&nbsp;&nbsp;
&nbsp;&nbsp; if RCIF then&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; hserin 100,Main,[WAIT (&quot;S&quot,DATARECEIVED] ' Looking for &quot;S0&quot;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF DATARECEIVED = &quot;0&quot; THEN&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp; HIGH DE_OR_RE ' Make ready for RX&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp; PAUSE 4&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp; HSEROUT [&quot;R1&quot;] ' Send R1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENDIF&nbsp;&nbsp;
&nbsp;&nbsp; endif&nbsp;&nbsp;
&nbsp;&nbsp; GOTO MAIN&nbsp;&nbsp;
&nbsp;&nbsp;
END</p>
<hr>


As soon as I connect the Master pic to the power I get the following, does not matter if the Slave pic is running or not, it return the same data.

<b>
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
REC:ÿ
WAITING FOR REPLY..
</b>

Thank you
Koossa