Ich habe dein Programm nicht genauer angeschaut aber vielleicht kannst du etwas mit dieser Lösung von Claus Kühnel anfangen:

Code:
$regfile = "m8def.dat"                                      ' ATmega8
$crystal = 3690000                                          ' für STK500
$baud = 19200

Config Portb = Output
Portb = 255

Dim I As Byte

Dim X(16) As Byte

Restore Value_table

For I = 1 To 16                                             ' Lade Tabelle in Bytearray
   Read X(i)
Next

Do                                                          ' Ausgabe von 0 bis F über PortB

   For I = 1 To 16
      Portb = X(i)

   Waitms 500
   Print Hex(portb)
   Next


Loop

End

Value_table:
'      0       1     2       3     4      5      6       7
Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78
'       8      9     A       B     C      D      E       F
Data &H00 , &H10 , &H08 , &H03 , &H46 , &H21 , &H06 , &H0E
Mfg Nico