Programm und Timer vertragen sich nicht

Hallo Bascom-Fans,

ich hätte da mal 'ne Frage. Ich bin noch etwas neu in der Branche und habe nun endlcih mal ein etwas umfangreiches Programm zum laufen gebracht. Nun sollte zum Schluss nur noch eine Blinkfunktion eingebaut werden. Dazu habe ich einen Timer aktiviert nach dem Vorbild wie es in jedem Toutorial angezeigt ist.

Config Timer1 = Timer , Prescale = 8
Enable Timer1
On Timer1 Timer1_isr
Enable Interrupts
Const Timer1startwert = 49911
Timer1 = Timer1startwert

Programm...

Timer1_isr:
Timer1 = Timer1startwert
Toggle Leds_reset
Return

Probehalber habe ich hier erst einmal einen Ausgang mit LED blinken lassen. Das funktioniert auch gut. Doch leider sind keine Taster mehr bedienbar und das Programm rührt sich nicht mehr. Wenn ich "Enable Interrupts" herauskommentiere geht alles ganz normal.
Ich habe keine Ahnung wo der Fehler liegen könnte und bitte mal um Hilfe.

Moin Behri!

Dazu müssten wir mal wissen was die Taster mit dem Controller überhaupt machen, was es für ein Controller ist, etc., etc. Am besten postest Du mal den ganzen (!) Code, dann lässt sich der Fehler schon viel einfacher finden als wenn wir die berühmte Glaskugel verwenden müssen :-)

Und wenn Du vor den Code das Steuerzeichen CODE in eckigen Klammern schreibst, und nach dem Code [/CODE], wird das Programm auch viel besser lesbar, weil man es rauf- und runterscrollen kann!

Danke dass Ihr Euch der Sache annehmt.
Das ganze soll eine Spielsstandsanzeige für Tischtennis sein.
Es ist ein ATMega8.Takterzeugung intern. Programmiert habe ich über die SPI-Schnittstelle. An ihr befindet sich auch ein Portexpander mit 74HC595 für die 7-Segmentanzeigen. Die LEDs befinden sich in den Tastern und sollen signalisieren welche Taster gerade zu bedienen sind. es funktioniert alles sehr gut und es soll nur das blinken mit "waitms" durch einen Timer ersetzt werden. Die Leds_reset blinken zu lassen ist nur der Versuch den Timer generell zu testen. Ich will später stattdessen eine bit-Variable toggeln und die im Code verarbeiten.

Code:

' '$sim $regfile = "m8def.dat" $crystal = 1000000 Config Timer1 = Timer , Prescale = 8 Enable Timer1 On Timer1 Timer1_isr Enable Interrupts Const Timer1startwert = 49911 Timer1 = Timer1startwert Config Portc.0 = Output Config Portc.1 = Output Config Portc.2 = Output Config Portc.3 = Output Config Portc.4 = Output Config Pinb.0 = Input Config Pinb.1 = Input Portb.0 = 1 Portb.1 = 1 Ddrd = &B00000011 Portd = &B11111100 Ddrc = &B00011111 Leds_zaehlen Alias Portc.0 Led_rueckwaerts Alias Portc.1 Leds_wahl Alias Portc.2 Led_weiter Alias Portc.3 Leds_reset Alias Portc.4 Poti Alias Portc.5 Ta_reset Alias Pind.2 Ta_weiter Alias Pind.3 Ta_wahl_gs Alias Pind.4 Ta_wahl_seite_aufschl Alias Pind.5 Ta_wahl_seite_gast Alias Pind.6 Ta_rueckwaerts Alias Pind.7 Ta_baelle_li Alias Pinb.0 Ta_baelle_re Alias Pinb.1 Dim Var_hauptschleife As Byte Const Const_anz_start = 0 Const Const_anz_wahl = 1 Const Const_anz_00 = 2 Const Const_anz_01 = 3 Const Const_anz_satzende = 4 Const Const_anz_satzpause = 5 Const Const_anz_seitenwechsel = 6 Const Const_anz_spielende_1 = 7 Const Const_anz_spielende_2 = 8 Const Ein = 1 Const Aus = 0 Const Ja = 1 Const Nein = 0 Dim Var_ausgabearray(8) As Byte Dim Flag_aufschlagseite_gewaehlt As Bit Dim Flag_gast_gewaehlt As Bit Dim Flag_ende As Bit Dim Flag_heim_gewaehlt As Bit Dim Var_anzahl_der_gewinnsaetze As Byte Var_anzahl_der_gewinnsaetze = 3 Dim Flag_satzende As Bit Dim Flag_spielende As Bit Dim Flag_gh As Bit Dim Flag_hg As Bit Dim Flag_gh_start As Bit Dim Flag_hg_start As Bit Dim Flag_aufschlag As Bit Dim Flag_aufschlag_li As Bit Dim Flag_aufschlag_re As Bit Dim Var_baelle_li As Byte Dim Var_baelle_re As Byte Dim Var_saetze_li As Byte Dim Var_saetze_li_2 As Byte 'nur für spielendeprüfung Dim Var_saetze_re As Byte Dim Var_saetze_re_2 As Byte 'nur für spielendeprüfung 'Dim Var_ziffer_baelle_li As Word 'At Var_baelle_li_ziffer Overlay 'Dim Var_ziffer_baelle_re As Word 'At Var_baelle_re_ziffer Overlay Dim Var_baelle_li_ziffer_e As Byte 'At Var_ziffer_baelle_li Overlay Dim Var_baelle_li_ziffer_z As Byte 'At Var_ziffer_baelle_li + 1 Overlay Dim Var_baelle_re_ziffer_e As Byte 'At Var_ziffer_baelle_re Overlay Dim Var_baelle_re_ziffer_z As Byte 'At Var_ziffer_baelle_re + 1 Overlay Dim Var_saetze_li_ziffer As Byte Dim Var_saetze_re_ziffer As Byte Dim Var_einer_baelle_li As Byte Dim Var_zehner_baelle_li As Byte Dim Var_einer_baelle_re As Byte Dim Var_zehner_baelle_re As Byte Dim Var_ziffernwahl As Byte Dim Var_ziffernwahl_baelle_li As Byte Dim Var_ziffernwahl_baelle_re As Byte Dim Var_ziffer As Byte Dim Var_betaetigt_gh As Bit Dim Var_betaetigt_aufschlagwahl As Bit Dim Var_alles_gewaehlt__weiter_moegl As Byte Dim Var_summe_baelle As Byte Dim Var_differenz_baelle As Integer Dim Var_summe_gs As Byte Dim Flag_seitenwechsel_erfolgt As Bit Dim Var_seite_im_spiel_vor_sw_ent As Byte Dim Var_seite_im_spiel_nach_sw_ent As Byte Dim Flag_aufschlag_2 As Byte Dim Flag_rw_gezaehlt As Bit Dim A As Byte Dim B As Byte Dim C As Byte Dim D As Byte Dim E As Word Dim F As Byte Dim G As Byte Dim H As Byte Declare Sub Sub_ausgabe_anzeige 'gibt die aktuellen Bytes aus ohne sie zu verändern Declare Sub Sub_ausgabe_anzeige_00 Declare Sub Sub_ausgabe_anzeige_satzpause Declare Sub Sub_schleife_anz_start Declare Sub Sub_schleife_anz_wahl Declare Sub Sub_schleife_anz_00 Declare Sub Sub_schleife_anz_satzende Declare Sub Sub_schleife_anz_satzpause Declare Sub Sub_schleife_anz_spielende Declare Sub Sub_gewinnsaetze_festlegen Declare Sub Sub_seitenwahl_1 Declare Sub Sub_seitenwahl_2 Declare Sub Sub_aufschlagwahl_1 Declare Sub Sub_aufschlagwahl_2 Declare Sub Sub_zaehlen_li Declare Sub Sub_zaehlen_re Declare Sub Sub_ziffernwahl Declare Sub Sub_ziffernwahl_baelle_li Declare Sub Sub_ziffernwahl_baelle_re Declare Sub Sub_rechnung_aufschlag Declare Sub Sub_seitenwechsel_satzende Declare Sub Sub_seitenwechsel_entscheid_1 Declare Sub Sub_seitenwechsel_entscheid_2 Declare Sub Sub_seitenwechsel_entscheid_3 Declare Sub Sub_saetze_hochzaehlen Declare Sub Sub_saetze_hochzaehlen_2 Config Spi = Hard , Interrupt = On , Data Order = Lsb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 Spiinit Config Debounce = 50 Hauptschleife: Do Select Case Var_hauptschleife Case Const_anz_start : Goto Schleife_anz_start Case Const_anz_wahl : Goto Schleife_anz_wahl Case Const_anz_00 : Goto Schleife_anz_00 Case Const_anz_satzende : Goto Schleife_anz_satzende Case Const_anz_satzpause : Goto Schleife_anz_satzpause Case Const_anz_spielende_1 : Goto Schleife_anz_spielende_1 Case Const_anz_spielende_2 : Goto Schleife_anz_spielende_2 End Select Loop Schleife_anz_start: Do Var_ausgabearray(1) = 0 'ev.LED's Tablau -gfedcba Var_ausgabearray(2) = 0 'rechts Sätze Var_ausgabearray(3) = 0 'Bälle rechts Einer Var_ausgabearray(4) = 0 'Bälle rechts Zehner Var_ausgabearray(5) = 0 'G/H + Satzende + Aufschlaganzeige Var_ausgabearray(6) = 0 'Bälle links Einer Var_ausgabearray(7) = 0 'Bälle links Zehner Var_ausgabearray(8) = 0 'links Sätze Leds_zaehlen = 0 'Tableau Bedienung Led_rueckwaerts = 0 'Tableau Bedienung Leds_wahl = 0 'Tableau Bedienung Led_weiter = 1 'Tableau Bedienung Leds_reset = 0 'Tableau Bedienung Gosub Sub_ausgabe_anzeige Debounce Ta_weiter , 0 , Sub_schleife_anz_wahl , Sub Goto Hauptschleife Loop Schleife_anz_wahl: Do Var_ausgabearray(1) = 0 'ev.LED's Tablau -gfedcba Var_ausgabearray(2) = 0 'rechts Sätze Var_ziffernwahl = Var_anzahl_der_gewinnsaetze Gosub Sub_ziffernwahl Var_ausgabearray(3) = Var_ziffer 'Bälle rechts Einer Var_ausgabearray(4) = 0 'Bälle rechts Zehner Var_ausgabearray(5) = &B00000000 '0=heim.1=gast/.2=AUF-re/.3=Ende/.4=AUF-li . Var_ausgabearray(5).0 = Flag_gh 'Flag_gh Var_ausgabearray(5).1 = Flag_hg 'Flag_hg Var_ausgabearray(5).2 = Flag_aufschlag_li Var_ausgabearray(5).3 = Flag_ende Var_ausgabearray(5).4 = Flag_aufschlag_re Var_ausgabearray(6) = &B01101101 'Bälle links Einer Var_ausgabearray(7) = &B00111101 'Bälle links Zehner Var_ausgabearray(8) = 0 'links Sätze Leds_zaehlen = 0 'Tableau Bedienung Led_rueckwaerts = 1 'Tableau Bedienung Leds_wahl = 1 'Tableau Bedienung Led_weiter = 0 'Tableau Bedienung Leds_reset = 0 'Tableau Bedienung Gosub Sub_ausgabe_anzeige If Var_alles_gewaehlt__weiter_moegl = 2 Then Led_weiter = 1 Debounce Ta_weiter , 0 , Sub_schleife_anz_satzpause , Sub End If Debounce Ta_wahl_gs , 0 , Sub_gewinnsaetze_festlegen , Sub If Var_betaetigt_gh = 0 Then Debounce Ta_wahl_seite_gast , 0 , Sub_seitenwahl_1 , Sub Else Debounce Ta_wahl_seite_gast , 0 , Sub_seitenwahl_2 , Sub End If If Var_betaetigt_aufschlagwahl = 0 Then Debounce Ta_wahl_seite_aufschl , 0 , Sub_aufschlagwahl_1 , Sub Else Debounce Ta_wahl_seite_aufschl , 0 , Sub_aufschlagwahl_2 , Sub End If Goto Hauptschleife Loop Schleife_anz_00: Do Flag_satzende = 0 Flag_ende = 0 Debounce Ta_baelle_li , 0 , Sub_zaehlen_li , Sub Debounce Ta_baelle_re , 0 , Sub_zaehlen_re , Sub Gosub Sub_rechnung_aufschlag Gosub Sub_ausgabe_anzeige_00 Leds_zaehlen = 1 'Tableau Bedienung Led_rueckwaerts = 0 'Tableau Bedienung Leds_wahl = 0 'Tableau Bedienung Led_weiter = 0 'Tableau Bedienung Leds_reset = 0 'Tableau Bedienung Pruefung_sw_vorwaerts: A = Var_saetze_li + 1 B = Var_saetze_re + 1 If A < Var_anzahl_der_gewinnsaetze Then Goto Kein_seitenwechsel Else If B < Var_anzahl_der_gewinnsaetze Then Goto Kein_seitenwechsel Else If Flag_seitenwechsel_erfolgt = 1 Then Goto Kein_seitenwechsel Else If Var_baelle_li = 5 Then Zurueck1: Leds_zaehlen = 0 'Tableau Bedienung Led_rueckwaerts = 0 'Tableau Bedienung Leds_wahl = 0 'Tableau Bedienung Led_weiter = 1 'Tableau Bedienung Leds_reset = 0 'Tableau Bedienung Debounce Ta_weiter , 0 , Sub_seitenwechsel_entscheid_1 , Sub Var_ausgabearray(6) = 0 'Blinken der"5" Gosub Sub_ausgabe_anzeige ' Waitms 30 ' Var_ziffernwahl = Var_baelle_li ' Gosub Sub_ziffernwahl_baelle_li ' Gosub Sub_ausgabe_anzeige_00 ' Waitms 30 ' Select Case C Case 1 : Flag_seitenwechsel_erfolgt = 1 Sub_seitenwechsel_entscheid_2 Case 0 : Goto Zurueck1 End Select C = 0 Leds_zaehlen = 1 'Tableau Bedienung Led_rueckwaerts = 0 'Tableau Bedienung Leds_wahl = 0 'Tableau Bedienung Led_weiter = 0 'Tableau Bedienung Leds_reset = 0 'Tableau Bedienung Else If Var_baelle_re = 5 Then Zurueck2: Leds_zaehlen = 0 'Tableau Bedienung Led_rueckwaerts = 0 'Tableau Bedienung Leds_wahl = 0 'Tableau Bedienung Led_weiter = 1 'Tableau Bedienung Leds_reset = 0 'Tableau Bedienung Debounce Ta_weiter , 0 , Sub_seitenwechsel_entscheid_1 , Sub Var_ausgabearray(4) = 0 'Blinken der"5" Gosub Sub_ausgabe_anzeige ' Waitms 30 ' Var_ziffernwahl = Var_baelle_re ' Gosub Sub_ziffernwahl_baelle_re ' Gosub Sub_ausgabe_anzeige_00 ' Waitms 30 Select Case C Case 1 : Flag_seitenwechsel_erfolgt = 1 Sub_seitenwechsel_entscheid_2 Case 0 : Goto Zurueck2 End Select C = 0 Leds_zaehlen = 1 'Tableau Bedienung Led_rueckwaerts = 0 'Tableau Bedienung Leds_wahl = 0 'Tableau Bedienung Led_weiter = 0 'Tableau Bedienung Leds_reset = 0 'Tableau Bedienung End If End If End If End If End If A = 0 B = 0 Kein_seitenwechsel: 'Sub_satzendepruefung Var_differenz_baelle = Var_baelle_li - Var_baelle_re If Var_baelle_li > 10 Then Goto Differenztest End If If Var_baelle_re > 10 Then Goto Differenztest Else Goto Kein_satzende End If Differenztest: If Var_differenz_baelle > 1 Then Flag_satzende = 1 Var_hauptschleife = Const_anz_satzende Gosub Sub_saetze_hochzaehlen_2 Else If Var_differenz_baelle < -1 Then Flag_satzende = 1 Var_hauptschleife = Const_anz_satzende Gosub Sub_saetze_hochzaehlen_2 Else Goto Kein_satzende End If End If Kein_satzende: 'spielendepruefung: If Var_anzahl_der_gewinnsaetze = Var_saetze_li_2 Then Var_hauptschleife = Const_anz_spielende_1 Flag_spielende = 1 End If If Var_anzahl_der_gewinnsaetze = Var_saetze_re_2 Then Var_hauptschleife = Const_anz_spielende_1 Flag_spielende = 1 End If 'Gosub Sub_satzendepruefung 'Gosub Sub_spielendepruefung Flag_ende = Flag_satzende Goto Hauptschleife Loop Schleife_anz_satzende: Do Flag_ende = 1 Flag_aufschlag_li = 0 Flag_aufschlag_re = 0 Leds_zaehlen = 0 'Tableau Bedienung Led_rueckwaerts = 0 'Tableau Bedienung Leds_wahl = 0 'Tableau Bedienung Led_weiter = 1 'Tableau Bedienung Leds_reset = 0 'Tableau Bedienung Gosub Sub_ausgabe_anzeige_00 If Flag_spielende = 1 Then Debounce Ta_weiter , 0 , Sub_schleife_anz_spielende_1 , Sub Else Debounce Ta_weiter , 0 , Sub_seitenwechsel_satzende , Sub End If Goto Hauptschleife Loop Schleife_anz_satzpause: Do Gosub Sub_ausgabe_anzeige_satzpause Leds_zaehlen = 0 'Tableau Bedienung Led_rueckwaerts = 0 'Tableau Bedienung Leds_wahl = 0 'Tableau Bedienung Led_weiter = 1 'Tableau Bedienung Leds_reset = 0 'Tableau Bedienung Debounce Ta_weiter , 0 , Sub_schleife_anz_00 , Sub Goto Hauptschleife Loop Schleife_anz_spielende_1: Do Flag_ende = 1 Flag_aufschlag_li = 0 Flag_aufschlag_re = 0 Leds_zaehlen = 0 'Tableau Bedienung Led_rueckwaerts = 0 'Tableau Bedienung Leds_wahl = 0 'Tableau Bedienung Led_weiter = 1 'Tableau Bedienung Leds_reset = 0 'Tableau Bedienung Gosub Sub_ausgabe_anzeige_00 Debounce Ta_weiter , 0 , Sub_schleife_anz_spielende_2 , Sub 'Goto Hauptschleife If Var_hauptschleife = Const_anz_spielende_2 Then Goto Schleife_anz_spielende_2 End If Loop Schleife_anz_spielende_2: Gosub Sub_saetze_hochzaehlen Do Gosub Sub_ausgabe_anzeige_satzpause Leds_zaehlen = 0 'Tableau Bedienung Led_rueckwaerts = 0 'Tableau Bedienung Leds_wahl = 0 'Tableau Bedienung Led_weiter = 0 'Tableau Bedienung Leds_reset = 1 'Tableau Bedienung 'Debounce Ta_weiter , 0 , Sub_reset , Sub If Var_hauptschleife = Const_anz_start Then Goto Hauptschleife End If Loop End '_____________________________________________________________________________________________________________________ Sub_ausgabe_anzeige: Spiout Var_ausgabearray(1) , 8 Return '_______________________________________________________________________________ Sub_ausgabe_anzeige_satzpause: Var_ziffernwahl = Var_baelle_li Gosub Sub_ziffernwahl_baelle_li Var_ziffernwahl = Var_baelle_re Gosub Sub_ziffernwahl_baelle_re Var_ziffernwahl = Var_saetze_li Gosub Sub_ziffernwahl Var_saetze_li_ziffer = Var_ziffer Var_ziffernwahl = Var_saetze_re Gosub Sub_ziffernwahl Var_saetze_re_ziffer = Var_ziffer Flag_ende = 1 Var_ausgabearray(1) = 0 'ev.LED's -gfedcba Var_ausgabearray(2) = Var_saetze_re_ziffer 'rechts Sätze Var_ausgabearray(3) = 0 'Bälle rechts Einer Var_ausgabearray(4) = 0 'Bälle rechts Zehner Var_ausgabearray(5) = 0 '0=heim.1=gast/.2=AUF-re/.3=Ende/.4=AUF-li) Var_ausgabearray(5).0 = Flag_gh 'Flag_gh Var_ausgabearray(5).1 = Flag_hg 'Flag_hg Var_ausgabearray(5).2 = 0 Var_ausgabearray(5).3 = Flag_ende Var_ausgabearray(5).4 = 0 Var_ausgabearray(6) = 0 'Bälle links Einer Var_ausgabearray(7) = 0 'Bälle links Zehner Var_ausgabearray(8) = Var_saetze_li_ziffer 'links Sätze Spiout Var_ausgabearray(1) , 8 Return Sub_ausgabe_anzeige_00: Var_ziffernwahl = Var_baelle_li Gosub Sub_ziffernwahl_baelle_li Var_ziffernwahl = Var_baelle_re Gosub Sub_ziffernwahl_baelle_re Var_ziffernwahl = Var_saetze_li Gosub Sub_ziffernwahl Var_saetze_li_ziffer = Var_ziffer Var_ziffernwahl = Var_saetze_re Gosub Sub_ziffernwahl Var_saetze_re_ziffer = Var_ziffer Var_ausgabearray(1) = 0 'ev.LED's -gfedcba Var_ausgabearray(2) = Var_saetze_re_ziffer 'rechts Sätze Var_ausgabearray(3) = Var_einer_baelle_re 'Bälle rechts Einer Var_ausgabearray(4) = Var_zehner_baelle_re 'Bälle rechts Zehner Var_ausgabearray(5) = 0 '0=heim.1=gast/.2=AUF-re/.3=Ende/.4=AUF-li) Var_ausgabearray(5).0 = Flag_gh 'Flag_gh Var_ausgabearray(5).1 = Flag_hg 'Flag_hg Var_ausgabearray(5).2 = Flag_aufschlag_li Var_ausgabearray(5).3 = Flag_ende Var_ausgabearray(5).4 = Flag_aufschlag_re Var_ausgabearray(6) = Var_einer_baelle_li 'Bälle links Einer Var_ausgabearray(7) = Var_zehner_baelle_li 'Bälle links Zehner Var_ausgabearray(8) = Var_saetze_li_ziffer 'links Sätze Spiout Var_ausgabearray(1) , 8 Return 'Subs für den Taster "Weiter"__________________ Sub_schleife_anz_start: Var_hauptschleife = Const_anz_start Return Sub_schleife_anz_wahl: Var_hauptschleife = Const_anz_wahl Return Sub_schleife_anz_00: Var_hauptschleife = Const_anz_00 Return Sub_schleife_anz_01: Var_hauptschleife = Const_anz_01 Return Sub_schleife_anz_satzende: Var_hauptschleife = Const_anz_satzende Return Sub_schleife_anz_satzpause: Var_hauptschleife = Const_anz_satzpause Return Sub_schleife_anz_seitenwechsel: Var_hauptschleife = Const_anz_seitenwechsel Return Sub_schleife_anz_spielende_1: Var_hauptschleife = Const_anz_spielende_1 Return Sub_schleife_anz_spielende_2: Var_hauptschleife = Const_anz_spielende_2 Return 'Subs "Wahl"______________ Sub_gewinnsaetze_festlegen: If Ta_rueckwaerts = 0 Then If Var_anzahl_der_gewinnsaetze > 1 Then Var_anzahl_der_gewinnsaetze = Var_anzahl_der_gewinnsaetze - 1 End If End If If Ta_rueckwaerts = 1 Then If Var_anzahl_der_gewinnsaetze < 9 Then Var_anzahl_der_gewinnsaetze = Var_anzahl_der_gewinnsaetze + 1 End If End If Return Sub_seitenwahl_1: 'wenn die Seitenwahl noch nicht betätigt wurde Var_betaetigt_gh = 1 'Flag_gh_start = 1 Var_summe_gs = Var_saetze_li + Var_saetze_re Flag_gh = Var_summe_gs.0 Flag_hg = Not Flag_gh Var_alles_gewaehlt__weiter_moegl = Var_betaetigt_gh + Var_betaetigt_aufschlagwahl Return Sub_seitenwahl_2: 'wenn die Seitenwahl schon einmal erfolgt ist Var_betaetigt_gh = 1 Var_alles_gewaehlt__weiter_moegl = Var_betaetigt_gh + Var_betaetigt_aufschlagwahl Toggle Flag_gh_start 'Toggle Flag_hg_start Var_summe_gs = Var_saetze_li + Var_saetze_re Var_seite_im_spiel_vor_sw_ent = Var_summe_gs + Flag_gh_start Var_seite_im_spiel_nach_sw_ent = Var_seite_im_spiel_vor_sw_ent + Flag_seitenwechsel_erfolgt Flag_gh = Var_seite_im_spiel_nach_sw_ent.0 Flag_hg = Not Flag_gh Return Sub_aufschlagwahl_1: Var_betaetigt_aufschlagwahl = 1 Flag_aufschlag = 1 Flag_aufschlag_li = Flag_aufschlag Var_alles_gewaehlt__weiter_moegl = Var_betaetigt_gh + Var_betaetigt_aufschlagwahl Return Sub_aufschlagwahl_2: Var_betaetigt_aufschlagwahl = 1 Var_alles_gewaehlt__weiter_moegl = Var_betaetigt_gh + Var_betaetigt_aufschlagwahl Toggle Flag_aufschlag Flag_aufschlag_li = Flag_aufschlag Flag_aufschlag_re = Not Flag_aufschlag_li 'Toggle Flag_aufschlag_re Return Sub_ziffernwahl: Select Case Var_ziffernwahl Case 0 : Var_ziffer = &B00111111 Case 1 : Var_ziffer = &B00000110 Case 2 : Var_ziffer = &B01011011 Case 3 : Var_ziffer = &B01001111 Case 4 : Var_ziffer = &B01100110 Case 5 : Var_ziffer = &B01101101 Case 6 : Var_ziffer = &B01111101 Case 7 : Var_ziffer = &B00000111 Case 8 : Var_ziffer = &B01111111 Case 9 : Var_ziffer = &B01101111 Case Else : Var_ziffer = &B01000000 End Select Return Sub_ziffernwahl_baelle_li: Var_einer_baelle_li = Var_ziffernwahl Mod 10 Var_ziffernwahl = Var_ziffernwahl - Var_einer_baelle_li Var_ziffernwahl = Var_ziffernwahl / 10 Var_zehner_baelle_li = Var_ziffernwahl Mod 10 Var_ziffernwahl = Var_ziffernwahl - Var_zehner_baelle_li Var_ziffernwahl = Var_ziffernwahl / 10 If Var_baelle_li < 10 Then Select Case Var_einer_baelle_li Case 0 : Var_einer_baelle_li = &B00111111 Case 1 : Var_einer_baelle_li = &B00000110 Case 2 : Var_einer_baelle_li = &B01011011 Case 3 : Var_einer_baelle_li = &B01001111 Case 4 : Var_einer_baelle_li = &B01100110 Case 5 : Var_einer_baelle_li = &B01101101 Case 6 : Var_einer_baelle_li = &B01111101 Case 7 : Var_einer_baelle_li = &B00000111 Case 8 : Var_einer_baelle_li = &B01111111 Case 9 : Var_einer_baelle_li = &B01101111 Case Else : Var_einer_baelle_li = &B01000000 End Select Var_zehner_baelle_li = 0 Else Select Case Var_einer_baelle_li Case 0 : Var_einer_baelle_li = &B00111111 Case 1 : Var_einer_baelle_li = &B00000110 Case 2 : Var_einer_baelle_li = &B01011011 Case 3 : Var_einer_baelle_li = &B01001111 Case 4 : Var_einer_baelle_li = &B01100110 Case 5 : Var_einer_baelle_li = &B01101101 Case 6 : Var_einer_baelle_li = &B01111101 Case 7 : Var_einer_baelle_li = &B00000111 Case 8 : Var_einer_baelle_li = &B01111111 Case 9 : Var_einer_baelle_li = &B01101111 Case Else : Var_einer_baelle_li = &B01000000 End Select Select Case Var_zehner_baelle_li Case 0 : Var_zehner_baelle_li = &B00111111 Case 1 : Var_zehner_baelle_li = &B00000110 Case 2 : Var_zehner_baelle_li = &B01011011 Case 3 : Var_zehner_baelle_li = &B01001111 Case 4 : Var_zehner_baelle_li = &B01100110 Case 5 : Var_zehner_baelle_li = &B01101101 Case 6 : Var_zehner_baelle_li = &B01111101 Case 7 : Var_zehner_baelle_li = &B00000111 Case 8 : Var_zehner_baelle_li = &B01111111 Case 9 : Var_zehner_baelle_li = &B01101111 Case Else : Var_zehner_baelle_li = &B01000000 End Select End If Return Sub_ziffernwahl_baelle_re: Var_einer_baelle_re = Var_ziffernwahl Mod 10 Var_ziffernwahl = Var_ziffernwahl - Var_einer_baelle_re Var_ziffernwahl = Var_ziffernwahl / 10 Var_zehner_baelle_re = Var_ziffernwahl Mod 10 Var_ziffernwahl = Var_ziffernwahl - Var_zehner_baelle_re Var_ziffernwahl = Var_ziffernwahl / 10 If Var_baelle_re < 10 Then Select Case Var_einer_baelle_re Case 0 : Var_zehner_baelle_re = &B00111111 Case 1 : Var_zehner_baelle_re = &B00000110 Case 2 : Var_zehner_baelle_re = &B01011011 Case 3 : Var_zehner_baelle_re = &B01001111 Case 4 : Var_zehner_baelle_re = &B01100110 Case 5 : Var_zehner_baelle_re = &B01101101 Case 6 : Var_zehner_baelle_re = &B01111101 Case 7 : Var_zehner_baelle_re = &B00000111 Case 8 : Var_zehner_baelle_re = &B01111111 Case 9 : Var_zehner_baelle_re = &B01101111 Case Else : Var_zehner_baelle_re = &B01000000 End Select Var_einer_baelle_re = 0 Else Select Case Var_einer_baelle_re Case 0 : Var_einer_baelle_re = &B00111111 Case 1 : Var_einer_baelle_re = &B00000110 Case 2 : Var_einer_baelle_re = &B01011011 Case 3 : Var_einer_baelle_re = &B01001111 Case 4 : Var_einer_baelle_re = &B01100110 Case 5 : Var_einer_baelle_re = &B01101101 Case 6 : Var_einer_baelle_re = &B01111101 Case 7 : Var_einer_baelle_re = &B00000111 Case 8 : Var_einer_baelle_re = &B01111111 Case 9 : Var_einer_baelle_re = &B01101111 Case Else : Var_einer_baelle_re = &B01000000 End Select Select Case Var_zehner_baelle_re Case 0 : Var_zehner_baelle_re = &B00111111 Case 1 : Var_zehner_baelle_re = &B00000110 Case 2 : Var_zehner_baelle_re = &B01011011 Case 3 : Var_zehner_baelle_re = &B01001111 Case 4 : Var_zehner_baelle_re = &B01100110 Case 5 : Var_zehner_baelle_re = &B01101101 Case 6 : Var_zehner_baelle_re = &B01111101 Case 7 : Var_zehner_baelle_re = &B00000111 Case 8 : Var_zehner_baelle_re = &B01111111 Case 9 : Var_zehner_baelle_re = &B01101111 Case Else : Var_zehner_baelle_re = &B01000000 End Select End If Return Sub_zaehlen_li: If Ta_rueckwaerts = 0 Then If Var_baelle_li > 0 Then Decr Var_baelle_li Flag_rw_gezaehlt = 1 End If End If If Ta_rueckwaerts = 1 Then Incr Var_baelle_li Flag_rw_gezaehlt = 0 End If Return Sub_zaehlen_re: If Ta_rueckwaerts = 0 Then If Var_baelle_re > 0 Then Decr Var_baelle_re Flag_rw_gezaehlt = 1 End If End If If Ta_rueckwaerts = 1 Then Incr Var_baelle_re Flag_rw_gezaehlt = 0 End If Return Sub_rechnung_aufschlag: Var_summe_baelle = Var_baelle_li + Var_baelle_re Flag_aufschlag_2 = Flag_aufschlag + Flag_seitenwechsel_erfolgt If Var_summe_baelle > 19 Then Goto Satzverlaengerung Else If Flag_aufschlag_2.0 = 0 Then Flag_aufschlag_li = Var_summe_baelle.1 Flag_aufschlag_re = Not Flag_aufschlag_li Goto Ende_aufschlagrechnung Else If Flag_aufschlag_2.0 = 1 Then Flag_aufschlag_re = Var_summe_baelle.1 Flag_aufschlag_li = Not Flag_aufschlag_re Goto Ende_aufschlagrechnung End If End If End If Satzverlaengerung: If Flag_aufschlag_2.0 = 0 Then Flag_aufschlag_li = Var_summe_baelle.0 Flag_aufschlag_re = Not Flag_aufschlag_li End If If Flag_aufschlag_2.0 = 1 Then Flag_aufschlag_re = Var_summe_baelle.0 Flag_aufschlag_li = Not Flag_aufschlag_re End If Ende_aufschlagrechnung: Return Sub_seitenwechsel_satzende: 'If Var_baelle_li > Var_baelle_re Then 'Incr Var_saetze_li 'End If 'If Var_baelle_re > Var_baelle_li Then 'Incr Var_saetze_re 'End If 'Return Gosub Sub_saetze_hochzaehlen A = Var_saetze_li 'Sätze Tauschen B = Var_saetze_re Var_saetze_li = B Var_saetze_re = A A = 0 B = 0 A = Var_saetze_li_2 'Sätze Tauschen_2 B = Var_saetze_re_2 Var_saetze_li_2 = B Var_saetze_re_2 = A A = 0 B = 0 'Toggle Flag_gh 'Heim/Gast tauschen 'Toggle Flag_hg Var_summe_gs = Var_saetze_li + Var_saetze_re Var_seite_im_spiel_vor_sw_ent = Var_summe_gs + Flag_gh_start Var_seite_im_spiel_nach_sw_ent = Var_seite_im_spiel_vor_sw_ent + Flag_seitenwechsel_erfolgt Flag_gh = Var_seite_im_spiel_nach_sw_ent.0 Flag_hg = Not Flag_gh Var_baelle_li = 0 Var_baelle_re = 0 Var_hauptschleife = Const_anz_satzpause Return Sub_saetze_hochzaehlen: If Var_baelle_li > Var_baelle_re Then 'Sätze weiterzählen Incr Var_saetze_li End If If Var_baelle_re > Var_baelle_li Then Incr Var_saetze_re End If Return Sub_saetze_hochzaehlen_2: If Var_baelle_li > Var_baelle_re Then 'Sätze weiterzählen Incr Var_saetze_li_2 End If If Var_baelle_re > Var_baelle_li Then Incr Var_saetze_re_2 End If Return Sub_seitenwechsel_entscheid_1: C = 1 Return Sub_seitenwechsel_entscheid_2: 'Flag_seitenwechsel_erfolgt = 1 Var_summe_gs = Var_saetze_li + Var_saetze_re Var_seite_im_spiel_vor_sw_ent = Var_summe_gs + Flag_gh_start Var_seite_im_spiel_nach_sw_ent = Var_seite_im_spiel_vor_sw_ent + Flag_seitenwechsel_erfolgt Flag_gh = Var_seite_im_spiel_nach_sw_ent.0 Flag_hg = Not Flag_gh A = Var_baelle_li 'Bälle Tauschen B = Var_baelle_re Var_baelle_li = B Var_baelle_re = A A = 0 B = 0 Return Sub_seitenwechsel_entscheid_3: 'Flag_seitenwechsel_erfolgt = 1 Var_summe_gs = Var_saetze_li + Var_saetze_re Var_seite_im_spiel_vor_sw_ent = Var_summe_gs + Flag_gh_start Var_seite_im_spiel_nach_sw_ent = Var_seite_im_spiel_vor_sw_ent - Flag_seitenwechsel_erfolgt Flag_gh = Var_seite_im_spiel_nach_sw_ent.0 Flag_hg = Not Flag_gh A = Var_baelle_li 'Bälle Tauschen B = Var_baelle_re Var_baelle_li = B Var_baelle_re = A A = 0 B = 0 Return Timer1_isr: 'nop Timer1 = Timer1startwert Toggle Leds_reset Return

O-kay - durch DIESEN Code werde ich so schnell nicht durchsteigen.... :shock:

Macht aber fast nix. Du beschreibst ja zwei Dinge: Erstens steht und fällt das Problem mit dem Freigeben der Interrupts, und zweitens führt das Problem dazu, dass der Controller "stehenbleibt". Das ganze klingt ein bisschen nach einem Stack-Overflow, d.h. der Speicherbereich, in dem alle möglichen Register bei Interrupts, Subs und ähnlichem abgelegt werden, reicht nicht aus. Ist das der Fall, hängt sich der Controller auf.

Um zu verifizieren ob es tatsächlich der Timer1-Interrupt ist, könntest Du ja mal das Enable Interrupts stehen lassen, und stattdessen "Enable Timer1" aus dem Code löschen. Wenn der Fehler sich dann genauso verhält, kann es eigentlich nur mit dem Timer1-Interrupt zu tun haben.

Du könntest dann mal versuchen, den Hardware- und Software-Stack zu vergrößern. Wenn nichts anderes definiert wird, legt Bascom sie beim Mega8 m.W. mit je 32 Bytes an. Probier doch mal z.B. 40:

$hwstack = 40
$swstack = 40

Zitat:

Zitat von sauerbruch

o-kay - durch diesen code werde ich so schnell nicht durchsteigen.... :shock:

hatte ich schon fast geahnt. Deshalb war auch der code nicht im ersten beitrag. Ich will von niemandem verlangen, sich den code zu verinnerlichen. Ich musste auch ein paar kommentare löschen, damit es in den beitrag passt. Ich bin guter dinge, dass wir weiterhin nach dem ausschlussverfahren der sache auf dem grund kommen.

Zitat:

Zitat von sauerbruch

Um zu verifizieren ob es tatsächlich der timer1-interrupt ist, könntest du ja mal das enable interrupts stehen lassen, und stattdessen "enable timer1" aus dem code löschen. Wenn der fehler sich dann genauso verhält, kann es eigentlich nur mit dem timer1-interrupt zu tun haben.

das hatte keinen Erfolg

Zitat:

Zitat von sauerbruch

Du könntest dann mal versuchen, den hardware- und software-stack zu vergrößern. Wenn nichts anderes definiert wird, legt bascom sie beim mega8 m.w. Mit je 32 bytes an. Probier doch mal z.b. 40:

$hwstack = 40
$swstack = 40

Ich hab's auch noch mal verdoppelt (ob auch immer das Sinn macht) es tat sich nichts.

Ich hatte auch mal statt Timer1 den Timer0 verwendet. es war das gleiche Spiel.

Es scheint als ob es etwas mit den Interrupts zu tun hat. Wenn ich nur die Interrups einschalte um sie im Timer zu verwenden muss ich doch nicht die Interrupts ausschalten die sonst durch PINs ausgelöst werden, oder? Es ist doch auch egal, ob solche PINs Ein- oder Ausgänge sind, oder?

Eine Sache die ich beobachte habe und die vielleicht wichtig sein könnte:
Wenn ich die Reset-Taste betätige (PIN1) und unmittelbar hinterher die anderen Tasten, dann funktioniert das Programm für eine Sekunde für 1 bis drei Schritte und bleibt dann erst stehen.
Das Compiliern zeigt mir 67% Speicheauslastung (weis nicht ob diese Info gebraucht wird).

Behri

Zitat:

Wenn ich die Reset-Taste betätige (PIN1) und unmittelbar hinterher die anderen Tasten, dann funktioniert das Programm für eine Sekunde für 1 bis drei Schritte und bleibt dann erst stehen.

Dann wäre doch mal interessant, ob diese Zeit sich deutlich verlängert, wenn Du den Timer ordentlich langsamer machst. Nimm doch mal einem Prescaler von 64 und keinen Timerstartwert, dann sollte Timer1 alle ca. 4 Sekunden überlaufen anstatt alle 125 ms wie bisher.

(*im-trüben-rumstocher...)

P.S.: Und es ist absolut richtig, dass man all die anderen Interrupts nicht extra "ausschalten" muss. Das sind sie ganz von alleine nach dem Power-On-Reset, und nur die explizit aktivierten Interrupts (enable...) werden ausgeführt.

Danke für die Tips.
Nun, solange man gerne fischen geht, hat das Fischen im trüben Wasser seinen besonderen Reiz. Denn man sieht den Fisch erst wenn man ihn gefangen hat und man hatte vorher nicht die geringste Ahnung wie das Prachtstück aussieht.
Jedenfalls glaube ich, dass wir das Tierchen schon ein bischen in die Enge getrieben haben.
folgende aktuelle Einstellungen:

Code:

$hwstack = 40 $swstack = 40 . . . prescale = 64 Const Timer1startwert = 5

folgende sonderbare Erscheinung:
das Programm läuft erst mal und die LED blitzt kaum sichtbar aller 4 Sekunden.
manchmal fängt sie auch an ordentlich zu zu toggeln und dann steht das Programm wieder wie angenagelt.

Behri

Ich hab gerade noch mal gelesen, Du meintest "keinen" Timerstartwert.
Einstellung:

Code:

'Keinen Timerstartwert Prescale = 8

die LED "blitzt" 8 mal (immer wenn das umschalten beim toggeln dran wäre). Dann Toggelt die LED (nach ca. 4 Sekunden, ca im Sekunden-Takt).
Wenn die LED dann das erste mal geleuchtet hat, steht das Programm. In der "Blitzphase" läuft das Programm. Wenn ich in dieser Phase schnell und viele andere Tasten betätige, kann ich das Toggeln - und somit das Stoppen des Programmes um ein paar Sekunden rausgezögert werden. ???

Behri

Also, ob Du nun gar keinen Timer-Vorladewert nimmst oder ihn aber von 5 starten lässt, dürfte beim 16-Bit-Timer absolut keinen Unterschied machen. Er zählt ja immerhin bis 65535... Dass die LED "blitzt" und nicht blinkt, ist ja aber schon mal sehr suspekt, da Du sie in der Timer-ISR ja toggelst.

Und wenn der Timer1-Interrupt nicht aktiviert ist, läuft das Programm ordnungsgemäß - habe ich das richtig verstanden?

Ja, richtig verstanden.
oft steckt der Teufel ja im Detail. Deshalb noch mal von 5 auf nichts. Das war nun mein erster Versuch mit einem Timer zu arbeiten und lt. der Bücher die ich vorher studiert hatte schien es nicht so schwer zu sein. Das mit dem "Blitzen" erscheint mir auch suspekt. Aber ich mit meinen Kenntnissen kann nichts daraus schließen. Ich weiß nicht wie der Bascom-Code im µC so abläuft und wie das ist mit Registern, Speicherbereichen, Zeigern... . Vieleicht braucht das ein Timer um zu starten, sowas wie "Vorglühen" :-). (Nein, natürlich nicht, ich denke da collidiert irgendwo etwas)
Was könnte ich noch so probieren?