Warum legst Du die LED's nicht gegen Masse?
Für eine normale LED reicht der Portstrom aus.


Hier die Umkehrung:
Code:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600                                                ' Serrielle Schnittstelle definieren

Config Portb = Output
Config Portc = Output


Dim X As Byte
Dim Y As Byte
Dim Z As Byte

Do
   For X = 0 To 7
      Y = 2 ^ X     ' Y = 1 aus 8 - Lauflicht
      Z = Not Y     ' <- Invertiert Y

      Portb = Y
      Portc = Z
      Waitms 200
   Next X
Loop