HSerin

[GatorGuy]

I have a pic connected through a RS232 and the transmit seems to be working fine but I am having issues with sending the pic commands(at least its not doing what I want it to).

:SetTxRx                ' Set receive register to receiver enabled
	DEFINE HSER_RCSTA	90h


	' Set transmit register to transmitter enabled
	DEFINE HSER_TXSTA	20h


	' Set baud rate
	DEFINE HSER_BAUD	2400


	' Set SPBRG directly (normally set by HSER_BAUD)
	DEFINE HSER_SPBRG	25


                ' Use only if even parity desired
	'DEFINE HSER_EVEN	1


:SendOnline




	HSEROUT ["I am online.", 10, 13]


:Online
High Porta.6


:Listen
HSerin [INC]
HSerout ["You entered: ", INC, 10, 13]
IF INC = 1 THEN Think
IF INC = 2 THEN TURNON
IF INC = 3 THEN TURNOFF
GOTO Listen


:TURNON
HIGH Porta.7
GOTO Listen


:TURNOFF
LOW Porta.7
GOTO Listen

When the pic powers up, I get the "I am online." message.

When I send a 1 the pic responds properly with the "You entered: 1" back.

Same with 2 and whatever number I send.

The issue is that It is not running the IF commands.

I also want to make the incoming data a bit longer such as A123. When I try that, I get:

You entered: A
You entered: 1
You entered: 2

and so on.

Any help would be great.

[GatorGuy]

Anther issue I am having is that the pic will hang up after sending data now and then. It almost always hangs if I send something like 12345.

[GatorGuy]

Hserin [DEC3 INC]
HSerout ["You entered: ", INC, 10, 13]
IF INC = 111 THEN GOTO Think
IF INC = 222 THEN GOTO TURNON
IF INC = 333 THEN GOTO TURNOFF

This worked great. However, it is sending odd chars back. Am I formatting the HSerout wrong?

[mackrackit]

Maybe?

HSerout ["You entered: ",DEC INC, 10, 13]