Atmega: Sekunden in Takt umrechnen

[Wombatz]

Ich benutze den Atmega8 und hier ist der code. Den Printbefehl habe ich nur zur Kontrolle eingefügt.

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 57600

Tccr0 = &B00000001
Timsk.toie0 = 1

Ddrb = &B00000001

On Timer0 Zaehler

   Dim Count As Word
   Dim Sekunde As Byte
   Dim Minute As Byte
   Dim Stunde As Byte

   Count = 0
   Sekunde = 0
   Minute = 0
   Stunde = 0

Tcnt0 = 55

Sreg.7 = 1

Do

   If Count = 5000 Then
         Sekunde = Sekunde + 1
         Count = 0
         Portb.0 = Not Portb.0

       If Sekunde = 60 Then
            Sekunde = 0
            Minute = Minute + 1
               If Minute = 60 Then
                  Minute = 0
                  Stunde = Stunde + 1
                     If Stunde = 24 Then
                        Stunde = 0
                     End If
               End If
         End If
    End If

   'Print Stunde ; ":" ; Minute ; ":" ; Sekunde
Loop

Zaehler:

   Count = Count + 1
   Tcnt0 = 55

Return

Danke für die schnellen Antworten...