Serielle Daten auswerten (Bascom 2.0.7.1)

[dj (Gast)]

Hallo,
folgendes Programm (Teile davon habe ich mal weggelassen, da die 
funktionieren) lässt den Prozessor bei einem bestimmten empfangenen 
Zeichen 14 Bytes mittels UART einlesen.
Diese Zeichenkette wird anschließend zerlegt, das klappt leider nur 
teilweise.
Aus irgend einem Grund ist der Inhalt von Sb3 und Sb4 immer 0, auch wenn 
der UART etwas anderes zu sehen bekommt.
Sb1 und Sb2 lassen sich problemlos auslesen.
Dem Stck habe ich mal sicherheitshalber so viel Platz zugewiesen, aber 
das ändert nichts an dem Fehler.

$regfile = "m16def.dat"                                     ' Atmega 16
$crystal = 8000000                                          ' 8 MHz Takt
$hwstack = 165                                              'Stackdimensionierung
$swstack = 150
$framesize = 150

$baud = 2400                                                ' 2400 Baud

'Watchdog

Config Watchdog = 2048                                      ' watchdog auf 2048 mSec setzten
                                                              ' Watchdog starten
Start Watchdog

Config Serialin = Buffered , Size = 15 , Bytematch = 013    'Serielles Input
' Variablen
Dim Zifptr As Byte                                          'Ziffer-Pointer
Dim Bcd_aus As Byte                                         'enthält den Wert der dez zahl die ausgegeben werden soll

Dim Ausgang As Byte                                         'Segmentfolge die Ausgegeben wird aus Segmentcode - Tabelle

Dim Z1 As Byte                                              'Anzeigevariablen
Dim Z2 As Byte
Dim Z3 As Byte
Dim Z4 As Byte
Dim Z5 As Byte
Dim Z6 As Byte
Dim Z11 As String * 3
Dim Z11_h As Byte
Dim Z12 As String * 3
Dim Z13 As String * 3
Dim Z14 As String * 3
Dim Z15 As String * 3
Dim Z16 As String * 3

Dim Sb1 As Byte
Dim Sb2 As Byte
Dim Sb3 As Byte
Dim Sb4 As Byte

Dim Ssb1 As String * 1
Dim Ssb2 As String * 1
Dim Ssb3 As String * 1
Dim Ssb4 As String * 1

Dim D As String * 15                                        ' Serielles Input
Dim A As Bit                                                ' Meßeinstellungen
Dim V As Bit
Dim M As Bit
Dim K As Bit
Dim Mi As Bit
Dim R As Bit

' Ein-/Ausgänge
Config Portc = Output                                       'Port B als Ausgang
Config Porta = Output                                       '1 Ausgang, 0 Eingang


'Ausgänge:
Segment_a Alias Portc.7
Segment_b Alias Portc.6
Segment_c Alias Portc.5
Segment_d Alias Portc.4
Segment_e Alias Portc.3
Segment_f Alias Portc.2
Segment_g Alias Portc.1

Dp Alias Portc.0

Ziffer_6 Alias Porta.0
Ziffer_5 Alias Porta.1
Ziffer_4 Alias Porta.2
Ziffer_3 Alias Porta.3
Ziffer_2 Alias Porta.4
Ziffer_1 Alias Porta.5

Dim Dp1 As Bit
Dim Dp2 As Bit
Dim Dp3 As Bit
Dim Dp4 As Bit
Dim Dezpkt As Byte



'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' Timer0 für Multiplexausgabe
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

On Timer0 7segment                                          'Interrupt-Routine für Timer0-Overflow
Config Timer0 = Timer , Prescale = 64                       'Takt: Quarz/Prescale  (möglich: 1, 8, 64, 256, 1024)
Enable Timer0                                               'Timer0-Overflow-Interrupt einschalten
Enable Interrupts


'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' Hauptprogramm
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Z1 = 0
Z2 = 0
Z3 = 0
Z4 = 0
Z5 = 0
Z6 = 0


Do                                                          'Start Hauptschleife


Z11 = Mid(d , 2 , 1)
Z12 = Mid(d , 3 , 1)
Z13 = Mid(d , 4 , 1)
Z14 = Mid(d , 5 , 1)
Z15 = Mid(d , 6 , 1)
Z16 = Mid(d , 8 , 1)

Ssb1 = Mid(d , 9 , 1)
Ssb2 = Mid(d , 10 , 1)
Ssb3 = Mid(d , 11 , 1)
Ssb4 = Mid(d , 12 , 1)

Sb1 = Ssb1
Sb2 = Ssb2
Sb3 = Ssb3
Sb4 = Ssb4



'Ergebniss setzen
Z11_h = Z11
'AC / DC                                                 'neg Vorzeichen
If Sb1.4 = 1 And Z11_h = 45 Then
         Z1 = 44                                            'DC-neg
Elseif Sb1.4 = 1 Then
         Z1 = 46                                            'DC-pos
Elseif Sb1.3 = 1 Then
         Z1 = 47                                            'AC
'Ohm
Elseif Sb4.5 = 1 Then
         Z1 = 48                                            'Ohm
'Z3 -> EF
Elseif Sb2.0 = 1 Then
         Z1 = 49                                            'ef
Else
   Z1 = Z11
End If

'Z2 = Sb4.3
'Z3 = Sb4.2
'Z4 = Sb4.1
'Z5 = Sb4.0



Z2 = Val(z12)                                               ' Messwerte ausgeben
Z3 = Val(z13)
Z4 = Val(z14)
Z5 = Val(z15 )
Z6 = Dp4 And &B10000000H

Dezpkt = Val(z16)





Reset Watchdog

Loop                                                        'Ende Hauptschleife

End                                                         'Programm Ende

Serial0charmatch:                                           ' Wartet auf den Dezimapwert 13 für Serielle Eingabe
Input D                                                     ' schreibe den Input in D
Return

Weiß jemand weiter?
Danke im Voraus!

[Paul B. (paul_baumann)]

Ist bei "Config SerialIn" der Puffer mit "Size=15" nicht zu klein?

MfG Paul

[dj (Gast)]

Wir hatten das auch schon auf 25 erweitert. Hat leider nichts gebracht.
Und nach dem Datenblatt 
(http://www.ic-fortune.com/upload/Download/FS9922-DMM3-DS-10_EN.pdf) 
reicht das

[MWS (Gast)]

When using the BYTEMATCH option, you must preserve the registers you 
alter. If you do not know which one, use PUSHALL and POPALL.

[dj (Gast)]

Wo sollte das am besten hin ?

[dj (Gast)]

Serial0charmatch:                                           ' Wartet auf den Dezimapwert 13 für Serielle Eingabe

Pushall

   Input D
                                                     ' schreibe den Input in D
Popall

Das hilft leider auch nicht weiter...

[Ohm (Gast)]

Das ist nicht gut durchdacht.

Deine zeitkritischen Anforderungen liegen beim UART Empfang und der 
sollte dann auch mittels Interrupt sauber aufgesetzt werden.

Displayausgaben sind "sekundär".

Schau Dir dazu mal Kapitel 6 an.

http://www.rowalt.de/mc/index.htm

[dj (Gast)]

Da sieht man wieder, wie lange ich nicht mehr mit Bascom gearbeitet habe 
;)
Ich wollte die UART-Geschichte interruptgesteuert ablaufen lassen und 
dachte, Bytematch würde eben einen sowas nutzen.
Wieder was gelernt^^
Die Displayausgabe würde ich gerne weiterhin interruptgesteuert arbeiten 
lassen, ich weiß nicht wie sich das sonst auf das Aussehen der geMUXten 
Siebensegmetanzeigen auswirken würde.
Ich sollte vielleicht noch erwähnen, dass die Datenpakete immer gleich 
lang sind und dazwischen immer eine Pause von knapp einer Sekunde ist.
Nur in extrem seltenen Fällen kann diese Pause kürzer sein, dann ist 
aber keine kontinuierliche Anzeige nötig und der Watchdogreset aus 
Nutzersicht okay.

[dj (Gast)]

Ich habe nun mal



Src:                                                        ' Wartet auf 
den Dezimalwert 13 für Serielle Eingabe

Pushall
 If Udr = 43 Or Udr = 45 Then
   Input D
 End If                                                     ' schreibe 
den Input in D
Popall

Return

[Ohm (Gast)]

Da wird sich überhaupt nichts auf Deine Muxerei auswirken.

Die ISR wird in ein paar us abgearbeitet.

Lass die Displayroutine einfach permanent im Hauptprogramm per do loop 
laufen.

In der ISR nur das Nötigste machen und fertig.

DS

[dj (Gast)]

^Das war wohl nix -.-
Das da oben führt der Controller aus, wenn ein Zeichen empfangen wurde.
Lässt die Anzeige aber übelst flackern, die Werte stimmen nicht mehr 
(okay, er fängt ja auch woanders an)
Die 13 steht weiter hinten im String, ist aber konstant, im Gegensatz zu 
dessen Anfang, an dem 45 oder 43 steht.
arbeite ich damit, fehlt natürlich immer der Rest vom Paket, der vom 
nächsten nachgeholt werden muss.
Das führt zu einer periodisch für locker ne Sekunde einfrierenden 
Anzeige.
Jetzt lassen sich die Interrupts ja anscheinend nicht priorisieren... 
verdammt -.-

[dj (Gast)]

In die Loop gepackt flackerts schon mal nicht mehr.

[dj (Gast)]

...nimmt aber keine Werte mehr an.