ok ich hab das jetzt ein bischen geändert und mal den LS verwendet (ist das richtig?) Bild  

Code:
$regfile = "m128def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000

Config Pine.0 = Output
Config Pine.1 = Output
Config Pine.2 = Output


Dim Register As Word
Dim Registerwert As Long


Do
'Hauptprogramm
Loop


Register:

Porte.1 = 0
Porte.2 = 0

Shiftout Porte.0 , Porte.1 , Registerwert , 3 [ , 24 , 1000]

Porte.2 = 1
Porte.2 = 0

Return
Der Code ist ja mal wirklich supigeil kurz geworden Bild  

Ich habe mal 1000µs als Delay eingestellt. Kann ja nicht schaden.