How to use For Next Loop to run sequence light ?

[Acetronics2]

Thanks.

Ok Now all the LEDs light up.

BUT only PortB.0 and PortB.1 Blinks.

Again, this the code:

@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT, MCLR_OFF
CMCON = 7
TRISA = 0 ' Make them all outputs
TRISB = 0
 
Counter var Byte
 
SubRoutine:
 
For Counter = 0 to 2
high PortB.0[Counter]
high PortA.0[Counter]
Next Counter
 
Pause 600
 
For Counter = 0 to 2
Low PortB.0[Counter]
Low PortA.0[Counter]
Next Counter
 
pause 100
Goto SubRoutine

Hi, Bracer

I suspect a RMW issue ... as HIGH and LOW already cares of driving inputs and outputs

How much current do you send to your Leds ???

try to limit it to 5 mA per Led ... as a first try.

as a second try ...

@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT, MCLR_OFF
CMCON = 7
TRISA = 0 ' Make them all outputs
TRISB = 0
 
Counter var Byte
 
SubRoutine:
 
PORTA = PORTA | % 00000111
PORTB = PORTB | % 00000111
Pause 600
 
PORTA = PORTA & % 11111000
PORTB = PORTB & % 11111000
 
pause 100
 
Goto SubRoutine

a scheme of your circuit really would be welcome ...

Alain