while wend problem

[sougata]

WHILE PORTA.1 = 0 PAUSE 1 'WHY DOES THIS NOT WORK?
WEND

Hi,

You can also use a : to use multiple statements on the same line.
Thus your code should be

WHILE PORTA.1 = 0 :PAUSE 1 'THIS WORKs !!!
WEND

[Russ Kincaid]

Thanks. I am so used to GWBASIC that I expected PICBASIC to be the same.

I don't know why I need an ENABLE or DISABLE, can't I just eliminate both?

Russ

[rhino]

Darrel has made working with interrupts so much easier with his Instant Interrupts. You might try this method.

[Russ Kincaid]

Thanks Ryan, I downloaded the files and it looks interesting but I don't have a clue what to do with them. Right now I need an interrupt and am looking for an easy fix. This is my program, it is a sequencer and the sequence works ok as long as the interrupt routine is not there. When the interrupt routine is there (ON INTERRUPT commented out), all the portb outputs are stuck low.

REM PORT B ARE OUTPUT, INTERCEPT ON PORTA.1
CMCON = %00001101 'COMPARATOR 2 USED, C1 DISABLED
VRCON = %11101100 'VREF ENABLED, OUTPUT ON RA2(PIN1), V = 2.5V

TRISA = %00000010 'PORTA.1 IS STOP INPUT
TRISB = %00000000 'ALL OUTPUTS

'ON INTERRUPT GOTO STOPSUB
STOPSUB:
WHILE PORTA.1 = 0 : STOP : WEND
RESUME

REM SET OUTPUTS HIGH INITIALLY
HIGH PORTB.0 : HIGH PORTB.1 : HIGH PORTB.2 : HIGH PORTB.3
HIGH PORTB.4 : HIGH PORTB.5 : HIGH PORTB.6 : HIGH PORTB.7

START:
LOW PORTB.0 : PAUSE 5000 : HIGH PORTB.0
LOW PORTB.1 : PAUSE 5000 : HIGH PORTB.1
LOW PORTB.2 : PAUSE 5000 : HIGH PORTB.2
LOW PORTB.3 : PAUSE 5000 : HIGH PORTB.3
LOW PORTB.4 : PAUSE 5000 : HIGH PORTB.4
LOW PORTB.5 : PAUSE 5000 : HIGH PORTB.5
LOW PORTB.6 : PAUSE 5000 : HIGH PORTB.6
LOW PORTB.7 : PAUSE 5000 : HIGH PORTB.7
GOTO START
END

[rhino]

Hey Russ -
Either I'm blind, or you don't have any interrupts enabled. Read through the threads on Darrel's instant interrupt routines. It's well documented, and there are plenty of examples. If I'm blind.... please point out where you are INTCON register. To be honest... I haven't played around with them much, but I'll try to help if I can.

[Archangel]

Hi Russ,
If stopsub is activated, will not all useful activity cease due to the STOP command ? As I see it the program will never WEND or RESUME, unless I misunderstand page 152 of TFM.

[rhino]

Good point Joe... I didn't even see that.