... wenn ich das Programm umschreibe habe ich doch immer noch das Problem, dass die Variable SEC nicht auf 0 gesetzt wird.
Ich weiß nicht genau, warum das nicht klappt.
Allerdings kann dein Prog erstaunliche Effekte produzieren:
Stell dir vor, der Interrupt würde in eine dieser Schleifen ...
Code:
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
... reinhauen.
Der Effekt wäre, dass sehr merkwürdige Dinge angezeigt würden, weil der Sec-Wert in der Schleife geändert (inkrementiert) wird.

Oder:
Wenn er hier reinhauen würde...
Flag = 0
==> Interrupt haut HIER rein!
If Flag = 0 Then
If Sec > 59 Then
Sec = 0
Incr Minu
End If
... dann ist ja Flag = 1 und der Sec-Überlauf fände nicht statt.

Also: Umschreiben!

Gruß Dirk