Hallo Kampi u. Sauerbruch,
wieder vielen Dank für eure Antworten.
Die Beispiele sind wirklich sehr gut erklärt, sie funktionieren und das hilft mir schon weiter.
Mit "Shift u. Rotate" habe ich auch schon experimentiert, nur weiß ich noch nicht, wie ich das von "PortB.0 bis PortB.4" einschränke.
Vielen Dank für die Hilfe. MfG

HTML-Code:
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 32
$framesize = 60

Ddrb = &B1111_11111
Portb = &B0000_0000

Dim A As Byte

A = 1

Do

Waitms 200

Portb = A

Rotate A , Left , 1

Loop

End