Hallo,

was mache ich da eigentlch falsch?

Der Zähler müsste doch im Sekundentakt hochzählen, oder?

Code:
 $regfile = "m32def.dat"
 $framesize = 40
 $swstack = 10
 $hwstack = 32
 $crystal = 8000000
 $baud = 9600

Config Portc.2 = Output                                     'definiert Portd als Output
Dim Zaehler As Byte
Zaehler = 0


Config Timer1 = Timer , Prescale = 256    'Konfiguriere Timer1
Enable Timer1                             'schalte den Timer1 ein
On Timer1 Isr_von_timer1                  'verzweige bei Timer1 überlauf zu   Isr_von_Timer1
Enable Interrupts
Timer1 = 34285                            'Timer1 soll schon von 34285 wegzählen

Do

Print "Zaehler =" ; Zaehler

If Zaehler = 2 Then
Goto Uhrzeit
End If


If Zaehler = 4 Then
Goto Datum
End If


If Zaehler = 6 Then
Goto Temperatur
End If


Loop
End

Isr_von_timer1:                            'ISR von Timer1
Timer1 = 34285                                              'Timer1 soll wieder von 34285 wegzählen
On Timer1                                                   'schaltet Portd.0 im Sekundentakt
Incr Zaehler

                                           'EIN und AUS
'....oder z.B. incr Variable

Uhrzeit:
Print "Uhrzeit"

Datum:
Print "Datum"

Temperatur:
Print "Temperatur"
Gruß

Richad