BASCOM simple Uhr

[runner02]

Auf der Steckplatine klappt es leider noch nicht...

If Pind.2 = 1 Then                                          'korrigiert PIND.2 nicht PIND.b

sollte b2 sein.


Aber nach 1 Minute leuchtet d1 noch nicht. Dafür leuchtet d4 nach 2 sek und hört nicht mehr auf...

Ich seh schon, da kommt noch was auf mich zu

[runner02]

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

 
'############################ 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?