Okay...da hast du natürlich Recht. Ich habe den Code abgeändert und siehe da...ebenfalls werden die Variablen nicht resettet.

Code:
$regfile "m8def.dat"
$crystal = 16000000
$sim
Dim Sec As Byte
Dim Minu As Byte
Dim Hour As Byte
Dim Flag As Bit
Dim X As Byte
Dim Y As Byte
Sec = 0
Minu = 0
Hour = 0

Config Portd = Output
Config Portc = Output
Config Portb = Output

Config Timer1 = Timer , Prescale = 256
Load Timer1 , 62500

Enable Timer1

On Timer1 Timer_interrupt
Enable Interrupts


Do
Loop

Timer_interrupt:

Incr Sec

If Sec > 59 Then
 Minu = Minu + 1
 Sec  = 0


 If Minu > 59 Then
 Minu = 0
 Hour = Hour + 1


  If Hour > 23 Then
 Hour = 0
 End If
 End If
 End If

For X = 0 To 2
Y = X + 3
Portb.y = Sec.x
Next

X = 0
Y = 0

For X = 3 To 5
Y = X - 3
Portc.y = Sec.x
Next

X = 0
Y = 0

For X = 3 To 5
Y = X - 3
Portb.y = Minu.x
Next

X = 0
Y = 0

For X = 0 To 2
Y = X + 5
Portd.y = Minu.x
Next

X = 0
Y = 0

For X = 0 To 4
Portd.x = Hour.x
Next

X = 0
Y = 0

Load Timer1 , 62500
Return
Langsam wirds merkwürdig.

MfG DaRe