Oh mein Fehler.
Programm Nr Zwei sollte natürlich so aussehen:

$regfile = "m16def.dat"
$crystal = 16000000

Ddra = &B11111111

Mosi Alias Porta.0
Sck Alias Porta.1
Ss Alias Porta.2

Dim Daten As Byte



Daten = &B01010101

Do

Shiftout Mosi , Sck , Daten
Set Ss
Reset Ss

Loop


End

Sorry

Also wenn ich das aufspiele dann sollte doch jedes zweite LED an sein.
Es blinkt aber nur QA also die erste LED.

Grüße Flo