Getting Stuck in loop

[Frozen001]

I have the following code for an 18f8722:

Low PortF.3
Low PortF.6
REPEAT
UNTIL PortA.5 = 0
High PortF.6
REPEAT
UNTIL PortA.5 = 0
        Pauseus 1
		Location1=PortJ
REPEAT
UNTIL PortA.5 =0
        pauseus 1
		CharLow=PortJ
REPEAT
UNTIL PortA.5 = 0
        pauseus 1
		CharHigh=PortJ

Occasionally it will randomly get stuck in one of the repeat-until loops. Any ideas on how to prevent this??
I have tried to add in a counter to jup out after so many loops, but that slows my code down so much that I miss the data on PortA.5.

Also if I use while:wend instead of the repeat:until this code does not work.

[mister_e]

Could you explain what you need to do and post your whole setup code?

[mackrackit]

There is more to the code..correct?
It will help to see it all.

[mister_e]

There's a strong smells of ...
http://www.picbasic.co.uk/forum/showthread.php?t=561

[Frozen001]

The complete code is pretty long.... but here are the settings I am using. The code I posted prior is first few lines I have to run in the code. After that is is just decoding the data so I can send it to a display. The 3 8-bits of data that I read from PortJ are characters that used to be sent to a 16segment display, which I am working to replace with a modern dot-matrix dispaly.

' Genenal Register Settings, Port Settings and System Definitions



CMCON = 7								' Disables the Comparitor Pins
ADCON1 = 15								' Disables the A/D Converter Pins
TRISA = $FF							' Define Port A(0-7) as Input 
										'      (Host TTL inputs, RA7 unused) 
TRISB = $E0								' Define Port B(0-4) as Output
										'      (RB0-4 Character Output; RB5-7 are programming port)                                                 
TRISC = $00								' Define Port C(0-2) as Outputs 
										'      (Left=C0; Middle=C1; Right=C2 displays)
TRISD = $00								' Define Port D(0-7) as Output 
										'      (Character Data Outputs)
TRISE = $FF								' Define Port E(0-7) as Inputs 
										'      (Ext. Keyboard Inputs)
TRISF = $F0						' Define Port F(0-3) as LED Outputs, F(4-5) as 
										'       Test SW inputs and F(6-7) as Display Int and Kbd Int I/O
TRISG = $F0								' Define Port G0 as I/O for Reset, G1-3 as Rd/Wr/Fl Outputs
TRISH = $FF								' Define Port H(0-7) as Inputs
TRISJ = $FF								' Define Port J(0-7) as Inputs (Host TTL inputs)                        
                                                                         
Define OSC 20							' Sets Oscillator Speed at 20Mhz
Define BUTTON_PAUSE 100					' Sets Button Debounce time to 100 ms
Define I2C_SLOW 1						' Sets I2C Speed to 100KHz

[Bruce]

Stuff you want to REPEAT needs to be in between the REPEAT
UNTIL.

Like

REPEAT
this
UNTIL this

Not

REPEAT
UNTIL this
do this

[Frozen001]

Stuff you want to REPEAT needs to be in between the REPEAT
UNTIL.

Like

REPEAT
this
UNTIL this

Not

REPEAT
UNTIL this
do this

I am using the repeats as delays so the pic waits for the data basically. The data being sent comes in as 3 seperate 8-bits in sequence. The data is read off of PortJ. The data always comes after PortA.5 goes low. Ant it is always in a specific order. If I miss any 1 of the three I cannot tell what the actuall character is.