Bug in Bascom?

[Alex A. (Gast)]

Hallo,
ich habe ein seltsames Problem.
Hier ist der Codeschnipsel:

X= &HB0

Senden3 &HA0 , &H09 , &H00

Abfrage:

Do
Waitms 1
Loop

Int_mcp:
Gosub Lesen
Return

Lesen:
Disable Interrupts


Mcp2515_read_register Rxb0d0
Wert1 = Canin
Mcp2515_read_register Rxb0d1
Wert2 = Canin
Mcp2515_read_register Rxb0d2
Wert3 = Canin


If Wert1 = &H10 And Wert2 = &H00 And Wert3 = &H01 Then
Gosub Bestaetigen
End If
Enable Interrupts
Goto Abfrage

Bestaetigen:
If X = &HBF Then
X = &HB0
End If
X = X + 1
Senden1 X
Return

und zwar soll da folgendes passieren:
erst mal werden 3 Bytes "A0 09 00" gesendet
(Senden1 bzw.3 ist ein Subprogram, das sauber funktioniert. 1 bzw. 3 
nach dem "Senden" ist die Datenlänge)

wenn ein Interrupt auftritt sollen die Daten ausgelesen werden.
Dann werden die verglichen. Wenn alles passt, geht das Programm nach 
"Bestätigen"

Das funktioniert aber nicht ganz.
Siehe Screenshot 1


Wenn ich aber

Senden3 &HA0 , &H09 , &H00
gosub Bestaetigung
Abfrage:

schreibe dann kommt das Richtige raus.

Das heisst, ich empfange zuerst
A0 09 00 dann
B1
wie es auch sein soll.

Verstehe nicht, wieso das mit dem ersten Code nicht klappt.
Kann das ein Bug von Bascom sein?

Danke
Gruss Alex S.

[Karl H. (kbuchegg)]

Alex S. schrieb:

> Do
> Waitms 1
> Loop
>
> Int_mcp:

Ich gehe mal davon aus, dass es sich hierbei um eine Interrupt Service 
Routine handelt

> Gosub Lesen
> Return
>
> Lesen:
> Disable Interrupts

Lass die Interrupts in Ruhe. Du bist schon in einer INterrupt Service 
Routine. Interrupts sind da sowieso gesperrt.
>
>
> Mcp2515_read_register Rxb0d0
> Wert1 = Canin
> Mcp2515_read_register Rxb0d1
> Wert2 = Canin
> Mcp2515_read_register Rxb0d2
> Wert3 = Canin
>
>
> If Wert1 = &H10 And Wert2 = &H00 And Wert3 = &H01 Then
> Gosub Bestaetigen
> End If
> Enable Interrupts

Gaaaaanz schlecht.
Du bist in einer ISR. Wenn du jetzt die Interrupts frei gibst kann es 
sein, dass sofort die ISR schon wieder aufgerufen wird

> Goto Abfrage

Noch viiiel schlechter.
AUs einer ISR geht es niemals mit einem GOTO raus. Du musst aus einer 
ISR mit einem Return aussteigen!

> Kann das ein Bug von Bascom sein?

Als Faustregel kannst du dir merken.
Da muss noch viel Wasser die Donau runterfliessen, ehe du zum ersten mal 
auch nur in die Nähe der Entdeckung eines Bugs in deinem Compiler 
kommst. In 80% aller Fehlerfälle sitzt das Problem vor dem Bildschirm. 
Bei Anfängern kann man diese Zahl getrost auf 99% erhöhen.

Und als allererstes solltest du dir selber ein generelles GOTO Verbot 
auferlegen. Zumindest solange bis du mehr Erfahrung hast und die 
tatsächlichen Einsatzfälle eines GOTO kennst. Viel mehr Erfahrung. Ganz 
viel mehr Erfahrung.

[Alex A. (Gast)]

Danke.
Es ist immer ein Genuss Deine Beiträge zu lesen.
Das Problem scheint aber irgendwo anders zu sein.
Wenn ich das ausführe:

Abfrage:

Do
Waitms 1
Loop

Int_mcp:
Senden1 &HB1
Gosub Lesen
Mcp2515_write_register Canintf , &B00000000       'interrupt zuruecksetzen
Return

Lesen:
Return

funktioniert alles.


ABER so funktioniert das NICHT

Abfrage:

Do
Waitms 1
Loop

Int_mcp:
Gosub Lesen
Mcp2515_write_register Canintf , &B00000000       'interrupt zuruecksetzen
Return

Lesen:
Senden1 &HB1
Return

Was könnte das zum Teufel sein?

Danke
Gruss Alex S.

[Alex A. (Gast)]

Ach ja, mit "Funktioniert nicht" meine ich, dass ich die falschen Daten 
bekomme zum Beispiel
00 statt B1
oder 03.

Total komisch.

Gruss Alex

[Alex A. (Gast)]

Problem durch wildes Ausprobieren gefunden.
$hwstack = 40 auf 400 erweitert.

So ein Mist, halben Tag dafür gebraucht.

Gruss Alex S.

[keks (Gast)]

Nicht nur Du :-)), aber nach 8 Jahren Bascom kann ich nicht klagen und 
ich habe kein Bug gefunden...