DT Ints on 18F (First time user problem)

[richard]

I count two whiles but one wend

WHILE 1
A:		' CHECK IF MODEM IS WORKING OK AND SET ECHO OFF
			HSEROUT2 ["SENDING AT",13,10]
			HSEROUT ["AT",13,10]
			GoSub GetResponse			

			HSEROUT ["ATE0",13,10]
			GoSub GetResponse	
			HSEROUT2 ["ATE0 RESULT=OK",STR MESS\500,13,10]

WHILE 1
			HSEROUT2 ["SEND COMMAND",13,10]
			HSERIN2 [STR MESS\500\13]
			HSEROUT2 ["SENDING-",STR MESS,13,10]
			HSEROUT [STR MESS,13,10]
			GoSub GetResponse
WEND

[financecatalyst]

;WHILE 1
A: ' CHECK IF MODEM IS WORKING OK AND SET ECHO OFF
HSEROUT2 ["SENDING AT",13,10]
HSEROUT ["AT",13,10]
GoSub GetResponse

HSEROUT ["ATE0",13,10]
GoSub GetResponse
HSEROUT2 ["ATE0 RESULT=OK",STR MESS\500,13,10]

WHILE 1
HSEROUT2 ["SEND COMMAND",13,10]
HSERIN2 [STR MESS\500\13]
HSEROUT2 ["SENDING-",STR MESS,13,10]
HSEROUT [STR MESS,13,10]
GoSub GetResponse
WEND

Ignore the first While1 please.

[HenrikOlsson]

As I said, commenting out any of the WHILE 1 statements makes it compile just fine for the 18LF45K22 at my end - with or without the ReEnterPBP-18LP.bas file included.
What version of MPASM are you using? (I'm using 5.45)

/Henrik.

[richard]

not sure its a good practice to use hersin and hserout in an isr either
b_c var word ; buffer count
PIE3.5 I ASSUME IS RXINT ENABLE OR use
@ INT_ENABLE RX1_INT


GetData:

mess[B_C]=RCREG
if ( b_c > 499) OR ( MESS[B_C]=10) then
bity=1
PIE3.5=0 ; BUFFER FULL TAKE NO MORE or @ INT_DISABLE RX1_INT

ENDIF
B_C=B_C+1


@ INT_RETURN


PIE3.5=0 might be wrong the example I was drawing from uses two euarts

[financecatalyst]

I am using PBP3 with MPLAB v8.90.

@Richard - Tried taking everything out of the ISR except Bity=1. Problem stays the same.

[richard]

I concur with henrik it compiles for me with the bogus while removed

[financecatalyst]

Would it be possible if one of you guys can upload your copy of DT INT and REEnter. I will try compiling with them. It compiles fine if I remove the Interrupts!

[Demon]

Yup, you want to keep the isr as short as possible; set only the flag.

Then, back in main, check the flag, do the hser, then reset flag.

Also, try adding a label to the main loop and a goto at the bottom.

Robert

[financecatalyst]

Thanks Demon, this is just a trial program and I wanted to set the PIC up properly before arranging the code nicely with labels etc.

[richard]

I can't guarantee I have not fiddled with these but here they are

[financecatalyst]

Nops the same error still exists.
BTW if its not too much to ask, can you also upload the compiled HEX file so I can get some results in the mean time someone helps to resolve the problem.

[richard]

rename it back to . hex