Ich habe den Code nochmal vereinfacht bzw. habe ich mein erstes Exempel herausgepickt und will es schrittweise auf die Uhr erweitern - bis alles klappt.



Code:
 
'############################ Definitionen #######

 $regfile = "m8def.dat"
 $crystal = 1000000
 $hwstack = 130
 $swstack = 130

 Config Portd = Output
 Config Portc = Output
 Config Timer1 = Timer , Prescale = 64
 Enable Timer1
 Dim Sekunden As Byte

 On Timer1 Isr_von_timer1

 Enable Interrupts
 Timer1 = 49910


 '##################### Hauptprogramm ############


 Do
 Portc.4 = 1
 Waitms 200
 Portc.4 = 0
 Waitms 200
 Loop
 End


 '############################ ISR ################

 Isr_von_timer1:

 Timer1 = 49910

 Portc.1 = 1
 Waitms 40
 Portc.1 = 0
 Waitms 40

 Sekunden = Sekunden + 1

 If Sekunden = 60 Then
 Sekunden = 0
 End If

 Portd = Bin(sekunden)

 Return


Portc.4 blinkt immer. Wie gedacht
Portc.1 blinkt nur einmal, dann nicht mehr -> Timer Interrupt wird nur einmal ausgeführt!!

Jemand zufällig ne Idee, woran dass liegen könnte?