Problem with WHILE - WEND

[Acetronics2]

Try ( to understand ) this ...

'device: 16F627A master clear is on pin#4 (RA5)
TRISA = %00010000 ' port A all outputs, except MCLR is input
TRISB = %00111111 'PORT B ALL INPUT, EXCEPT 6 & 7 OUTPUT
option_REG = %01111111 'enable weak pullups on port B
FOOTSW var portb.5 'Foot switch OR CCREADY must be high
READY var portb.4 'at start

T var word
J VAR WORD


RENCA var portb.7 'FREQUENCY OUTPUT TO J1 PIN 13
EJECT var portb.6 '100 mS PULSE TO J1 PIN 21
on interrupt goto poo


START:
LOW RENCA : LOW EJECT

WHILE READY = 0

'zzzzzzzzzzzzzzzzzzzz ... waiting !!!
WEND

GOTO what to do if not ready ???


DISABLE INTERRUPT
poo:
T = 1 '1mS AT 4 mHZ

freq:

TOGGLE RENCA
PAUSE T 'frequency should be 500 Hz (2mS period)

GOTO freq

RESUME
ENABLE INTERRUPT

end

NOTE : RESUME and ENABLE INTERRUPT are not compulsory here as program enters an endless loop ...

Alain