Hersin quick question

[andybarrett1]

Well

Out of desperation.... Swapped to using Serin as opposed to Hserin.

All is working as I thought... So pins are right and drivers etc etc

Can only be Config ...(I Think)

But what and where ?

Andy

[richard]

its not in the code you have posted
this code as suggested by henrik works as expected

#CONFIG
  __config   _HS_OSC & _WDT_ON & _PWRTE_OFF & _MCLRE_ON & _BODEN_ON & _LVP_OFF & DATA_CP_OFF & _CP_OFF
#ENDCONFIG


DEFINE OSC 8
DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 20h ' Enable transmit, BRGH = 0
DEFINE HSER_SPBRG 12  ' 9600 Baud @ 8MHz, 0.16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
TRISB=%11111111 'Make RB0 input
char var byte

CMCON=7


Main:
  HSERIN 5000, Timeout, [char]
  IF (char="A") THEN
    GOSUB somewhere
  ENDIF
Goto Main

Somewhere:
   HSEROUT["I got an A", 13]
RETURN

Timeout:
   HSEROUT["Nothing for the last 5 seconds, I'll just restart and wait 5 more....",13]
Goto Main

[andybarrett1]

Hi all

Have opted for easy way out

Using Serin no problems ....I still don't know what I was getting wrong

Thank you for all the help

Andy