Bascom Rotate & Shiftout

[Jan H. (janiiix3)]

Hallo,

ich möchte eine Porterweiterung mit dem 74HC595 herstellen,

ich kann meine Bits & Bytes auch schon sehen wie sie durch "flutschen"

nun wollte ich mit dem Rotate Befehl die Variable "Gelb" immer um ein 
Bit verschrieben.... nur leider funktioniert das nicht...

ist bestimmt ein programmfehler

$regfile = "m168pdef.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32



Config Portc = Output


Dim Modus1 As Byte
Daten Alias Portc.3
Clock Alias Portc.4

Dim Gelb As Byte
Dim Rot As Byte
Dim Gruen As Byte

Main:

Do


Gelb = &B00000001

Rotate Gelb , Left

Shiftout Daten , Clock , Gelb , 1 , 8 , 3000

Portc.5 = 1
Waitms 100
Portc.5 = 0


Loop
End

[BASIC-Fan (Gast)]

Ohne Kenntnisse von BASCOM fällt mir folgendes auf:

Du initialisierst die Variable Gelb in der Do .. LOOP Schleife.

Gelb = &B00000001

Mach das mal vor dem DO, sonst hat es immer den gleichen Wert.

Ob der Rest in Ordnung ist, weiß ich nicht.