okay mein code sieht jetzt so aus:

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

Config Portc = Output
Config Portb = Output

Dim Col As Integer
Dim Row As Integer

Do

  For Col = 0 To 8

    Config Porta = Input
    Portc = 0
    Portb = 0
    Portc.col = 1
    If Col = 8 Then
      Portb.7 = 1
    End If

    For Row = 0 To 3
       Config Porta = Input
       DDRA.row = 1

    Next

  Next

Loop
Was kann ich jetzt noch machen?