left shift help Plz

[janosandi]

hello Guys
I have 1 7segment display which i want the segments to lit one bye one like a running wheel
this is the code i've tried:


segRoutine:
low PORTC.5
PORTD = $FE '11111110
Pause 1000
PORTD = PORTD << 1 '11111100
pause 1000
PORTD = PORTD << 1 '11111000
pause 1000
PORTD = PORTD << 1 '11110000
pause 1000
PORTD = PORTD << 1 '11100000
pause 1000
PORTD = PORTD << 1 '11000000
pause 1000
goto segRoutine



it works but the segments lit like A > A+B > A+B+C > A+B+C+D >.......
i want it to run one by one A > B > C > D > E > F.
any idea?


thx Guys
John

[Sherbrook]

Try
PORTD = (PORTD << 1) + 1
Phil

[Heckler]

there are many ways to accomplish this...

one that I can think of is to use the LOOKUP statement...

NextSeg:
FOR x = 0 to 7
LOOKUP x,[254,253,251,247,239,223,191,127],display
GOSUB segRoutine
PAUSE 1000
GOTO NextSeg

In the lookup statement above you can choose to also represent the lookup table in $Hex or %Binary
like this... %01111111,%10111111,%11011111 etc.
or $FE,$FD,$FB, etc