Ne, ich meinte diesen hier von oben:

Code:
$regfile = "m16DEF.DAT"
$crystal = 16000000
Config Porta = Input
Config Portb = Output
Config Portc = Output
Config Portd = Output

Dim Offset As Word                                          'kann auch byte sein, wenn du nicht mehr als 50 Zeichen brauchst
Dim Zeichen As Byte
Dim Spalte As Byte
Dim Werte As Byte
Dim Display_off As Byte , Max_display_off As Byte
Dim Blinken As Byte

Max_display_off = 1                                         'diesen Wert noch ausprobieren

Config Dcf77 = Pind.2 , Check = 2 , Timer = 1 , Timer1sec = 1 , Debug = 1 , Sectic = 1

Config Timer0 = Timer , Prescale = 64                       'timer läuft alle 16.000.000/256/256=250.stel Sekunde über, also etwa alle 4ms
On Timer0 Timer0_isr
Enable Timer0
Enable Interrupts
Spalte = 0
Do
   Zeichen = Asc( "2")
Loop

Timer0_isr:
   Offset = Zeichen - 49                                    'sucht Werte für Zeichen "1" ab EEProm Adresse 1
   Offset = Offset * 5                                      'immer 5 Werte pro Zeichen
   If Spalte = 6 Then
      Spalte = 1
   End If
   Offset = Offset + Spalte
   Werte = Lookup(offset , Zeichen_data)
   Incr Display_off
   Portd = 0                                                'zum Verhindern von Geisterbildern
   If Display_off > Max_display_off And Blinken = 0 Then    'damit bleibt das Zeichen immer für eine bestimmte Zeit aus
      Display_off = 0
      Portc = Werte                                         'lädt die Werte
      Portd.spalte = 1                                      'Gibt die Spalte frei
      Incr Spalte
   End If
Return

Sectic:
   Toggle Blinken
Return


Zeichen_data:
Data &B11111111 , &B10111101 , &B10000000 , &B10111111 , &B11111111       '1
Data &B10111101 , &B10011110 , &B10101110 , &B10110110 , &B10111001       '2
Gruß

Rolf