achso ok. des mit den variablen habe ich jetzt verstanden aber des mit dem schalter klappt irgendwie net ganz.
so hab ichs jetzt aber ich muss immernoch drauf bleiben.
Code:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Timer0 = Timer , Prescale = 64
Config Portb.0 = Output
Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input

Portc = &B00000111

Led1 Alias Portb.0
Led2 Alias Portb.1
Led3 Alias Portb.2
Dim Intzaehler As Integer
Dim Zehntelsek As Integer
Dim Sekunde As Integer
Dim Minute As Integer
Dim Sec_vorgabe As Integer
Dim Taste as Bit
Taste = 0

Start Timer0
Enable Timer0
Enable Interrupts
On Timer0 Timer0_isr


Do
If Pinc.0 = 1 Then
  Taste = 1
End If
Loop
End

Timer0_isr:
Tcnt0 = 26

If Pinc.0 = 1 Then

  Incr Intzaehler

  If Intzaehler = 25 Then
    Intzaehler = 0
    Incr Zehntelsek
  End If

  If Zehntelsek = 10 Then
    If Minute < 5 Then
      Toggle Led1
    End If
    Incr Sekunde
    Zehntelsek = 0
  End If

  If Sekunde = 60 Then
    Incr Minute
  End If

End If

Return