Was kann ich jetzt noch machen?
Ich würde es so machen:

Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1600000
$baud = 9600

Config Porta = Input
Config Portb = Output
Config Portc = Output

Dim Col As Byte
Dim Row As Byte
Dim Time as Byte

Porta=0
Portb=0
Portc=0
Time=1
Do
    For Row = 0 To 2
       DDRA.Row = 1
       For Col = 0 To 7
          Portc.Col = 1
          Waitms Time
          Portc.Col = 0
       Next Col
       Portb.7 = 1
       Waitms Time
       Portb.7 = 0
       DDRA.Row=0
    Next Row
Loop
Annahme ist, dass immer nur eine LED an sein soll, nicht mehrere gleichzeitig.
Die LEDs sind praktisch zwischen den PINs angeschlossen, d.h. 5V an Portc (und Portb.7), dann die LED, dann ein Vorwiderstand, dann in Porta.
An jedem Pin von Portc sind 3 LEDs angeschlossen, an jedem Vorwiderstand 9.

Gruß

Rolf