Hallo ich möchte in Bascom eine Zeitsteuerung umsetzen. Das klappt vom Grundprinzip auch. Nur aus irgendeinem Grund geht der Zähler um 1 sek vor.

Code(aufs wichtige reduziert):

Code:
$crystal = 16000000
.....
Config Portb.3 = Input
.....
Dim Minuten As Byte
Dim Sekunden As Byte
.....
Config Timer1 = Timer , Prescale = 256
Const Timervorgabe = 3036
On Timer1 Timer_irq
Enable Interrupts
..... 
Minuten = 0
Sekunden = 0
.....
Do
If Pinb.3 = 1 Then
   Gosub Automodus
End If
Loop 
.....
Automodus:
Enable Timer1
Do
Locate 2 , 1
Lcd Sekunden
If Minuten = 0 And Sekunden = 10 Then
"Mach was"
End If
Loop
..... 
Timer_irq:
  Timer1 = Timervorgabe
  Incr Sekunden
  If Sekunden = 60 Then
    Incr Minuten
    Sekunden = 0
  End If
Return
Jemand eine Idee wodran das liegen kann ?

mfg Blamaster