help me please

[MICOCALI]

i write this code
but the program run in loop why


'************************************************* ******************************
@ device WDT_OFF, MCLR_OFF, HS_OSC, BOD_OFF, PWRT_ON, CPD_OFF, LVP_OFF
'************************************************* ******************************
INCLUDE "modedefs.bas"
DEFINE OSC 20
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1

CMCON = 7
VRCON = 0



' ************************************************** ****************************
INIT:
Pause 2000

LOOP:
Pause 500
HSerout ["AT*EIPS=1,1",13]
Pause 500

HSerin 2000,APRI,[WAIT ("*ELIP:")]

APRI:
High PORTB.4
Pause 1000
Low PORTB.4
Pause 15000
GoTo LOOP


End

[Bruce]

Goto Loop causes your program to run in a continuous loop.

This line; HSerin 2000,APRI,[WAIT ("*ELIP:")] will WAIT for 2 seconds,
then jump to the APRI sub-routine if ASCII chars *ELIP: are not received
within the timeout period.

Execution will also "fall-through" to APRI even if these characters "are"
received - so you have a continuous loop no matter what happens.

If you prefer to only enter the APRI sub-routine once these characters
are received, then change the timeout "label" from APRI to Loop.

INIT:
   Pause 2000

LOOP: 
   Pause 500
   HSerout ["AT*EIPS=1,1",13]
   Pause 500

   HSerin 2000,LOOP,[WAIT ("*ELIP:")]

APRI: ' Land here only when characters are received.
   High PORTB.4
   Pause 1000
   Low PORTB.4
   Pause 15000
   Goto LOOP

Or or use a local label something like this;

INIT:
   Pause 2000

LOOP: 
   Pause 500
   HSerout ["AT*EIPS=1,1",13]
   Pause 500

Loop2: ' Loop to here until characters are received
   HSerin 2000,Loop2,[WAIT ("*ELIP:")]

APRI: 
   High PORTB.4
   Pause 1000
   Low PORTB.4
   Pause 15000
   Goto LOOP

[MICOCALI]

thank you for reply but i have one problem:

HSerin 2000,LOOP,[WAIT ("*ELIP:")] is true when i receve all caracter?(*elip

if yes what is the command for receve only two caracter for example *e
thank you carlo

[Bruce]

HSerin 2000,LOOP,[WAIT ("*ELIP:")] is going to wait until *ELIP: is received.
If *elip: (note it's in lower case) is received, it will not match.

If you need to wait for 2 characters, then only use 2 characters.

HSerin 2000,LOOP,[WAIT ("*E")]

[MICOCALI]

the telefone send *elip i confirm with hyper terminal ,i write
HSerin 2000,LOOP,[WAIT ("*E")] in the pic 16f628 but the pin portb4 not
on.
wy for you?

[Bruce]

the telefone send *elip i confirm with hyper terminal

If you are seeing *elip in hyperterminal, then wait for *e. Not *E.

i write HSerin 2000,LOOP,[WAIT ("*E")]

Have you tried this?

HSERIN 2000,LOOP,[WAIT("*e")]