HSERIN with a WAIT

[mel4853]

Trying to get 3 different HSERIN to work. The 3 different ones come in at different times & will never effect the other.If I put the wait statements in there nothing happens, take the first one out & I pull in all 9 DEC4. Am I using this wrong?Using a PIC16F690


define OSC 4
INCLUDE "DT_INTS-14.bas" ' Base Interrupt System
include "ReEnterPBP.bas"
@ ERRORLEVEL -306 ; turn off crossing page boundary message

'-----------------------Enable EUSART------------------------------------
DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 20h ' Enable transmit, BRGH = 0
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
DEFINE HSER_SPBRG 51 ' 4800 Baud @ 4MHz, 0.17%
SPBRGH = 0
BAUDCTL.3 = 1 ' Enable 16 bit baudrate generator
'-----------------------REGISTERS----------------------------------------

TRISA=%001000 ' RA0,RA3,RA4,RA5 inputs
ANSEL=%00000000 ' All digital
TRISC=%00000000 ' RC5 input
CMCON0=%111 ' Shut off comparators
OPTION_REG.7=0
WPUA=%001000 ' Weak Pull Ups Enabled

rottime var word[10]
rot1time var rottime[0]
rot2time var rottime[1]
rot3time var rottime[2]
rot4time var rottime[3]
rot5time var rottime[4]
rot6time var rottime[5]
rot7time var rottime[6]
rot8time var rottime[7]
rot9time var rottime[8]
rot10time var rottime[9]
runtim var word [2]
runtime var runtim[0]
runbacktime var runtim[1]
time var word
RE var byte
i var word
DE_RE var PORTC.3

'Interrupt---------------------------------------------------------------------
ASM
INT_LIST macro ; IntSource, Label, Type, ResetFlag?
INT_Handler RX_INT, _Receive, PBP, yes
endm
INT_CREATE ; Creates the interrupt processor

INT_ENABLE RX_INT ; enable external (INT) interrupts
ENDASM

Main:
high PORTC.0
pause 500
low PORTC.0
pause 500
goto main

Receive:
for i=0 to 9
hserin 100,Receive2,[WAIT("&"),dec4 rottime[I]]
next
for i = 0 to 9
hserout [dec4 rottime[I],13,10]
next
hserout [dec4 rot3time]

Receive2:
for i = 0 to 1
hserin 100,Receive3,[wait(":"),dec4 runtim[i]]
next
for i = 0 to 1
hserout [dec4 runtim[i]]
next

Receive3:
hserin 100,moveon,[wait("*"),dec4 time]

Moveon:
@ INT_RETURN

[aerostar]

for i=0 to 9
hserin 100,Receive2,[WAIT("&"),dec4 rottime[I]]
next


Does each value have "&" as the character before the rottime,? if not then it will not work as you have told the program to wait for "&" prior to every rottime value.

[mel4853]

I get it now will try something different, thanks.