Rs485 Using Hserin/hserout

[koossa]

Skimask

Thank you for your reply!

Whith the following code I only get..
<b>
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
WAITING FOR REPLY..
</b>


SLAVE
<hr>
<CODE>
&nbsp;Include "Modedefs.bas"

&nbsp;DEFINE&nbsp;&nbsp; OSC 4

&nbsp;DE_OR_RE&nbsp;&nbsp;VAR PORTC.5&nbsp;&nbsp; ' DE and RE Pin of SN75176
&nbsp;LEDPIN&nbsp;&nbsp; VAR PORTD.2&nbsp;&nbsp; ' LED to confirm PIC is running
&nbsp;DATARECEIVED&nbsp;VAR BYTE
&nbsp;
&nbsp;'======== HSEROUT, HSERIN SETTINGS ==========
&nbsp;DEFINE HSER_RCSTA 90h
&nbsp;define HSER_TXSTA 24h
&nbsp;define HSER_SPBRG 103
&nbsp;DEFINE HSER_CLROERR 1
&nbsp;RCIF&nbsp;&nbsp;VAR PIR1.5
&nbsp;TXIF&nbsp;&nbsp;VAR PIR1.4

&nbsp;ADCON1 = 7
&nbsp;TRISC = %10000000
&nbsp;
&nbsp;pause 200
&nbsp;HIGH LEDPIN
Main:
&nbsp;LOW DE_OR_RE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;' Make ready for RX
&nbsp;PAUSE 4
&nbsp;hserin 100,Main,[WAIT ("S"),DATARECEIVED] ' Looking for "S0"
&nbsp;IF DATARECEIVED = "0" THEN
&nbsp;&nbsp;&nbsp;&nbsp;HIGH DE_OR_RE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' Make ready for RX
&nbsp;&nbsp;&nbsp;&nbsp;PAUSE 4
&nbsp;&nbsp;&nbsp;&nbsp;HSEROUT ["R1"]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' Send R1
&nbsp;ENDIF
&nbsp;GOTO MAIN

END
</CODE>
<hr>

MASTER
<hr>
<CODE>
&nbsp;Include "Modedefs.bas"
&nbsp;&nbsp;
&nbsp;DEFINE&nbsp;&nbsp; OSC 4

&nbsp;DE_OR_RE&nbsp;&nbsp;VAR PORTC.5&nbsp;&nbsp; ' DE and RE Pin of SN75176
&nbsp;RS232_DEBUG_PIN VAR PORTB.5&nbsp;&nbsp; ' Debugging to PC
&nbsp;LEDPIN&nbsp;&nbsp; VAR PORTD.2&nbsp;&nbsp; ' LED to confirm PIC is running
&nbsp;DATARECEIVED&nbsp;VAR BYTE

&nbsp;'======== HSEROUT, HSERIN SETTINGS ==========&nbsp;
&nbsp;DEFINE HSER_RCSTA 90h
&nbsp;define HSER_TXSTA 24h
&nbsp;define HSER_SPBRG 103
&nbsp;DEFINE HSER_CLROERR 1
&nbsp;RCIF&nbsp;&nbsp;VAR PIR1.5
&nbsp;TXIF&nbsp;&nbsp;VAR PIR1.4
&nbsp;
&nbsp;ADCON1 = 7
&nbsp;TRISC = %10000000

&nbsp;PAUSE 200
&nbsp;HIGH LEDPIN
&nbsp;
Main:
&nbsp;HIGH DE_OR_RE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; ' Make ready for TX
&nbsp;PAUSE 4
&nbsp;HSEROUT ["S0"]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ; ' Send "S0"
&nbsp;LOW DE_OR_RE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;' Make ready for RX
&nbsp;PAUSE 4
&nbsp;SEROUT RS232_DEBUG_PIN,N2400,["WAITING FOR REPLY..", 13, 10] ' DEBUG TO PC
&nbsp;hserin 100,Main,[WAIT ("R"),DATARECEIVED]
&nbsp;SEROUT RS232_DEBUG_PIN,N2400,["REC:",DATARECEIVED, 13, 10] ' DEBUG TO PC
GOTO Main
END
</CODE>
<hr>


Any idea what I am doing wrong?

Thank you very much!!!!
Koossa