PIC HANGS with SERIN and Timeout?

[koossa]

I'm struggling for hours now.
I use the following code and added an LED Blink for debug purposes,
but only gets one blink and then it hangs (on the serin2).
I have also tried serin.
Using Pic16F877 and have 2 PIR Sensors,
one on SENSORPIN1 and one on SENSORPIN2.

Any ideas?

<code>


&nbsp;&nbsp;&nbsp;Include "Modedefs.bas"

&nbsp;&nbsp;&nbsp;DEFINE&nbsp;&nbsp;&nbsp;OSC 4 ' Set the Xtal frequency

&nbsp;&nbsp;&nbsp;N2400&nbsp;&nbsp;&nbsp;CON 16780
&nbsp;&nbsp;&nbsp;P0&nbsp;&nbsp;&nbsp;VAR PORTB.6
&nbsp;&nbsp;&nbsp;P1&nbsp;&nbsp;&nbsp;VAR PORTB.7
&nbsp;&nbsp;&nbsp;SENSORNUMBER&nbsp;&nbsp;&nbsp;CO N 0
&nbsp;&nbsp;&nbsp;SENSORPIN1&nbsp;&nbsp;&nbsp;V AR PORTB.4
&nbsp;&nbsp;&nbsp;SENSORPIN2&nbsp;&nbsp;&nbsp;V AR PORTB.5
&nbsp;&nbsp;&nbsp;LEDPIN&nbsp;&nbsp;&nbsp;VAR PORTD.1
&nbsp;&nbsp;&nbsp;SENSORSTATUS&nbsp;&nbsp;&nbsp;VA R BYTE
&nbsp;&nbsp;&nbsp;DATARECEIVED&nbsp;&nbsp;&nbsp;va r byte
&nbsp;&nbsp;&nbsp;CCP1CON = 0
&nbsp;&nbsp;&nbsp;ADCON1 = 7

Main:
&nbsp;&nbsp;&nbsp;OUTPUT LEDPIN
&nbsp;&nbsp;&nbsp;input SENSORPIN1
&nbsp;&nbsp;&nbsp;input SENSORPIN2
Loop:
&nbsp;&nbsp;&nbsp;IF (SENSORPIN1 = 1) OR (SENSORPIN2 = 1) THEN
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SENSORSTATU S = "1"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;HIGH LEDPIN
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PAUSE 1000
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;LOW LEDPIN
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PAUSE 1000
&nbsp;&nbsp;&nbsp;ENDIF

&nbsp;&nbsp;&nbsp;OUTPUT P0
&nbsp;&nbsp;&nbsp;INPUT P1
&nbsp;&nbsp;&nbsp;LOW P0

&nbsp;&nbsp;&nbsp;' ============ LED BLINK FOR DEBUG PURPOSES =================
&nbsp;&nbsp;&nbsp;HIGH LEDPIN
&nbsp;&nbsp;&nbsp;PAUSE 100
&nbsp;&nbsp;&nbsp;LOW LEDPIN
&nbsp;&nbsp;&nbsp;PAUSE 100
&nbsp;&nbsp;&nbsp;' ================================================== =========

&nbsp;&nbsp;&nbsp;SERIN2 P1, N2400, 10, Loop,[wait("T"),DATARECEIVED]

&nbsp;&nbsp;&nbsp;' ============ LED BLINK FOR DEBUG PURPOSES =================
&nbsp;&nbsp;&nbsp;HIGH LEDPIN
&nbsp;&nbsp;&nbsp;PAUSE 100
&nbsp;&nbsp;&nbsp;LOW LEDPIN
&nbsp;&nbsp;&nbsp;PAUSE 100
&nbsp;&nbsp;&nbsp;' ================================================== =========

&nbsp;&nbsp;&nbsp;if (DATARECEIVED = SENSORNUMBER) then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;OUTPUT P1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SEROUT2 P1, N2400, ["R",SENSORSTATUS]
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SENSORSTATU S = "0"
&nbsp;&nbsp;&nbsp;endif

&nbsp;&nbsp;&nbsp;' ============ LED BLINK FOR DEBUG PURPOSES =================
&nbsp;&nbsp;&nbsp;HIGH LEDPIN
&nbsp;&nbsp;&nbsp;PAUSE 100
&nbsp;&nbsp;&nbsp;LOW LEDPIN
&nbsp;&nbsp;&nbsp;PAUSE 100
&nbsp;&nbsp;&nbsp;' ================================================== =========

&nbsp;&nbsp;&nbsp;Goto Loop
end
</code>

Thank you!!
koossa

[skimask]

I'm struggling for hours now.
I use the following code and added an LED Blink for debug purposes,
but only gets one blink and then it hangs (on the serin2).
I have also tried serin.
Using Pic16F877 and have 2 PIR Sensors,
one on SENSORPIN1 and one on SENSORPIN2.
Any ideas?
koossa

I think this is going to tie back into that IDLE state thing, not sure off the top of my head.
Do a search on the IDLE. Seems to me, if the pin is IDLING in the wrong state, SERIN will hangout waiting for something that ain't comin...

In the meanwhile, try using a timeout in the SERIN command and see what happens.

[koossa]

Skimask, thank you very much for your feedback.

I have taken a look at the idling thing, but don't understand it.

I have also tried both SERIN and SERIN2 with timeout (10 milliseconds)

Koossa

[skimask]

I have taken a look at the idling thing, but don't understand it.
I have also tried both SERIN and SERIN2 with timeout (10 milliseconds)
Koossa

Well, I've never had the idling problem myself, so I can't really comment.
About all I can suggest is to read the threads again (there's one by Melanie that's especially long and useful) and you're answer will be in there somewhere.
If I would have to guess, I would say that your input pin is just sitting there at a low logic level. If it is, pull it high and see if the timeout works.
If it's sitting high, pull it low and see if the timeout works.

[mackrackit]

I do not use spaces in the SERIN2. Try:

SERIN2 P1,N2400,10,Loop,[wait("T"),DATARECEIVED]

And maybe use 16780 instead of N2400? And DEC before DATARECEIVED.

Maybe

[skimask]

I do not use spaces in the SERIN2. Try:

SERIN2 P1,N2400,10,Loop,[wait("T"),DATARECEIVED]

And maybe use 16780 instead of N2400? And DEC before DATARECEIVED.

Maybe

I haven't had a problem with spaces in PBP2.50, had problems back in 2.42 I think it was.
I've got a program that has about 50-60 different SERIN2 lines and they all look like:

SERIN2 serialinpin , 84 , 5000 , baddata , [ WAIT ( ">" ) , STR string\255 ]

Lots of spaces, etc.etc.etc...like I said, the older PBP, broke, newer, good.

[mackrackit]

COOL ,Now I need to upgrade. I am still at 2.47.

[Ron Marcus]

I haven't had a problem with spaces in PBP2.50, had problems back in 2.42 I think it was.
I've got a program that has about 50-60 different SERIN2 lines and they all look like:

SERIN2 serialinpin , 84 , 5000 , baddata , [ WAIT ( ">" ) , STR string\255 ]

Lots of spaces, etc.etc.etc...like I said, the older PBP, broke, newer, good.

This may be a moot point, but, I recently had the hang situation with a GPS unit interface. The unit's serial output would go to ground when the unit was put into sleep. I did a little loop that would sense if the line went high at all over a hundred mS period. If not,I would skip the Serin line. It works quite well without any hardware changes.
Ron