Also ich verwende 2 Hardware Uarts. Es ist so das der µC als Buskoppler fungieren soll. d.h. er ist Master und Slave zugleich. UART1 ist die Schnittstelle zum Hauptbus und die UART0 ist die Schnittstelle zum "Kartenbus". Dort sollen bis zu 6 weitere µC angeschlossen werden die dann Zyklisch abgefragt werden. deren Daten sollen dann auf Anfrage vom Hauptbus abgeholt werden können. Ich hoffe ihr versteht was ich meine.
So wie das Program im Moment ist funktioniert es auch. Aber zu langsam. Ich Suche einen Weg wie man es schneller machen kann. Schaut es euch mal an, vielleicht habt ihr eine Idee. Aktuelle Version ist ohne Interrupts mit Zyklischer Bufferabfrage, da es mit Interrupts ja nicht funktioniert hat. Ich hoffe ihr könnt mir helfen.
Code:
'--------------------------------------------------------------
' S-Bus-Koppler
'
'--------------------------------------------------------------
$regfile = "m162def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
' use baud rate (Rackbus)
$baud = 38400
' baud rate for second serial port (Hauptbus)
$baud1 = 38400
$hwstack = 42 ' default use 32 for the hardware stack
$swstack = 40 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
' Lib für die automatische Sende- Empfangsumschaltung
$lib "modbus.lbx"
' Com1 (Rackbus) Schnitstelle auf 9 Bit Modus konfigurieren
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 9 , Clockpol = 0
' Com2 (Hauptbus) Schnitstelle auf 9 Bit Modus konfigurieren
Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 9 , Clockpol = 0
' use OPEN/CLOSE for using the second UART
Open "COM2:" For Binary As #1
Echo Off
Enable Interrupts
' MPCM (MULTI PROCESSOR COMMUNICATION MODE) auf Hauptbus einschalten
Ucsr1a.mpcm = 1
' PORTS DEKLARIEREN
Rs485dir Alias Portd.2
Config Rs485dir = Output
Rs485dir = 0 'Auf Empfangsmodus schalten
' Pin für die Sende-Empfangsumschaltung UART
Config Print = Portd.2 , Mode = Set
Rs485dir1 Alias Portb.1
Config Rs485dir1 = Output
Rs485dir1 = 0 'Auf Empfangsmodus schalten
' Pin für die Sende-Empfangsumschaltung UART1
Config Print1 = Portb.1 , Mode = Set
Declare Function Checksumme_berechnen(byref Datenbereich As Byte) As Byte
' Empfangspuffer UART
Config Serialin = Buffered , Size = 150
' Sendepuffer UART
Config Serialout = Buffered , Size = 150
' Empfangspuffer UART1
Config Serialin1 = Buffered , Size = 150
' Sendepuffer UART1
Config Serialout1 = Buffered , Size = 150
' TIMER
' Watchdog Timer / LED
Config Timer1 = Timer , Prescale = 256 ' Timer konfigurieren
On Timer1 Timerroutine1 ' Timerinterrupt Subroutine zuweisen
Enable Timer1 ' Timer aktivieren
Stop Timer1 ' Timer stoppen
Timer1 = 34286 ' Timer auf neuen Startwert einstellen (1s)
' Timeout Timer
Config Timer3 = Timer , Prescale = 256 ' Timer konfigurieren
On Timer3 Timerroutine3 ' Timerinterrupt Subroutine zuweisen
Enable Timer3 ' Timer aktivieren
Stop Timer3
' VARIABLENDEKLARATION
Dim Koppleradresse As Byte
Dim Empfangeneadresse As Byte
Dim Kopplerstatusbyte As Byte
Dim Kopplersteuerbyte As Byte
Dim Kartenadresse As Byte
Kartenadresse = 255 ' Startwert
Dim Anzahl_karten As Byte
Dim Aktuelle_karte As Byte
Aktuelle_karte = 1
Dim Folge_karte As Byte
' Teilnehmer Speicherbereiche
Dim An_k1 As Word
Dim Von_k1 As Word
Dim An_k2 As Word
Dim Von_k2 As Word
Dim An_k3 As Word
Dim Von_k3 As Word
Dim An_k4 As Word
Dim Von_k4 As Word
Dim An_k5 As Word
Dim Von_k5 As Word
Dim An_k6 As Word
Dim Von_k6 As Word
Dim An_k7 As Word
Dim Von_k7 As Word
Dim Sendeword As Word
Dim Empfangsword As Word
Dim Empfangene_kartenadresse As Byte
Dim Schritt1 As Bit
Schritt1 = 1
Dim Schritt1a As Bit
Dim Schritt2 As Bit
Dim Schritt2a As Bit
Dim Schritt3 As Bit
Dim Sendeschritt1 As Bit
Dim Sendeschritt2 As Bit
Dim Err_falscher_teilnehmer As Bit
Dim Err_fehlende_antwort As Bit
Dim Err_falsche_protokolllaenge As Bit
Dim Rack_bus_error As Bit
Dim Karten_error As Bit
Dim Watch_dog As Bit
Dim Watchdogtimer As Bit
' Variablen zur Datenabwicklung UART / R-Bus
Dim Rs485_count1 As Word
' Variablen zur Datenabwicklung UART1 / S-Hauptbus
Dim Rs485_1_count1 As Word
Dim S_bus_empfangsarray(15) As Byte
Dim S_bus_sendearray(15) As Byte
Dim S_bus_empfangschecksum As Byte
Dim S_bus_sendechecksum As Byte
Dim Datenmodus As Bit
' KOPPLERADRESSE ERRECHNEN
If Code1 = 0 Then
Koppleradresse = Koppleradresse + 1
End If
If Code2 = 0 Then
Koppleradresse = Koppleradresse + 2
End If
If Code3 = 0 Then
Koppleradresse = Koppleradresse + 4
End If
If Code4 = 0 Then
Koppleradresse = Koppleradresse + 8
End If
If Code5 = 0 Then
Koppleradresse = Koppleradresse + 16
End If
If Code6 = 0 Then
Koppleradresse = Koppleradresse + 32
End If
If Code7 = 0 Then
Koppleradresse = Koppleradresse + 64
End If
If Code8 = 0 Then
Koppleradresse = Koppleradresse + 128
End If
' Kopleradresse auf 255 begrenzen
If Koppleradresse >= 255 Then
Koppleradresse = 255
End If
' Koppleradresse für das Sendearray festlegen
S_bus_sendearray(1) = Koppleradresse
' ANZAHL DER ANGESCHLOSSENEN KARTEN ERMITTELN
Ermittlung:
' Restdaten im Eingangspuffer löschen
Clear Serialin
' Gesendete Daten als Adresse deklarieren (TXB8 High = Adresse ; TXB8 Low = Daten)
Ucsr0b.txb8 = 1
' Anfrage an Kartenr. X senden
Printbin Kartenadresse ;
' Die Karte hat 10ms Zeit zu antworten
Waitms 10
' Überprüfen ob ein Zeichen im Empfangspuffer wartet.
' Wenn ja, das Zeichen abrufen und...
If _rs_bufcountr0 > 0 Then
If _rs_bufcountr0 = 1 Then
' Teilnehmer hat seine Adresse korrekt zurück gesendet
Inputbin Empfangene_kartenadresse
' Nur Karten die Ihre Adresse korrekt übermitteln werden Registriert
If Empfangene_kartenadresse = Kartenadresse Then
' ...Eine Karte hinzu addieren
Incr Anzahl_karten
' ...Kartenadresse um eins verringern
Decr Kartenadresse
' Nach einer weiteren Karte suchen
Goto Ermittlung
End If
End If
' wenn keine Rückmeldung, dann keine Karte gefunden...
Else
' Restdaten im Eingangspuffer löschen
Clear Serialin
' ... und Schleife wird verlassen
End If
' HAUPTSCHLEIFE
Do
' RINGABFRAGE DER KARTEN
If Schritt1 = 1 And Anzahl_karten > 0 And Anlaufphase = 0 Then
Clear Serialin
' Watchdogtimer starten
Start Timer1
' Sendedaten und Kartenadresse zuordnen
If Aktuelle_karte = 1 Then
Kartenadresse = 255
Sendeword = An_k1
End If
If Aktuelle_karte = 2 Then
Kartenadresse = 254
Sendeword = An_k2
End If
If Aktuelle_karte = 3 Then
Kartenadresse = 253
Sendeword = An_k3
End If
If Aktuelle_karte = 4 Then
Kartenadresse = 252
Sendeword = An_k4
End If
If Aktuelle_karte = 5 Then
Kartenadresse = 251
Sendeword = An_k5
End If
If Aktuelle_karte = 6 Then
Kartenadresse = 250
Sendeword = An_k6
End If
' Sendedaten als Adresse deklarieren (TXB8 High = Adresse ; TXB8 Low = Daten)
Ucsr0b.txb8 = 1
Schritt1a = 1
Schritt1 = 0
End If
' Warten bis das TXB8 bit gesetzt ist
If Schritt1a = 1 And Ucsr0b.txb8 = 1 Then
' Daten an Karte senden
Printbin Kartenadresse ;
' Schritt2 für das Empfangen freigeben
Schritt1a = 0
Schritt2 = 1
End If
' Auf Rückmeldung der Karte warten
If Schritt2 = 1 Then
' Ein Byte wurde empfangen
If _rs_bufcountr0 > 0 Then
Err_fehlende_antwort = 0
' Quelladresse auslesen und mit gesendeter vergleichen
Inputbin Empfangene_kartenadresse
' Die richtige Karte hat geantwortet
If Empfangene_kartenadresse = Kartenadresse Then
' Sende Daten als Daten deklarieren (TXB8 High = Adresse ; TXB8 Low = Daten)
Ucsr0b.txb8 = 0
Schritt2a = 1
Schritt2 = 0
Else
Schritt2 = 0
Err_falscher_teilnehmer = 1
End If
Else
Err_fehlende_antwort = 1
End If
End If
' Warten bis das TXB8 bit zurückgesetzt ist
If Schritt2a = 1 And Ucsr0b.txb8 = 0 Then
' Daten an Karte senden
Printbin Sendeword ;
Schritt2a = 0
Schritt3 = 1
End If
' Auf Daten von der Karte warten
If Schritt3 = 1 Then
' Wenn erstes Byte der Daten empfangen dann...
If _rs_bufcountr0 > 0 Then
Err_fehlende_antwort = 0
Err_falsche_protokolllaenge = 1
' Sind beide Bytes im Puffer eingegangen, dann...
If _rs_bufcountr0 = 2 Then
' Empfangszähler erhöhen
Incr Rs485_count1
' 5 Zyklen lang warten ob weitere Bytes eingehen...
If Rs485_count1 > 5 Then
Rs485_count1 = 0
' Stimmt die Anzahl an Daten noch überein, dann...
If _rs_bufcountr0 = 2 Then
Err_falsche_protokolllaenge = 0
' Empfangswort auslesen
Inputbin Empfangsword
' Empfangene Daten auf Speicherbereiche verteilen.
If Aktuelle_karte = 1 Then
Von_k1 = Empfangsword
End If
If Aktuelle_karte = 2 Then
Von_k2 = Empfangsword
End If
If Aktuelle_karte = 3 Then
Von_k3 = Empfangsword
End If
If Aktuelle_karte = 4 Then
Von_k4 = Empfangsword
End If
If Aktuelle_karte = 5 Then
Von_k5 = Empfangsword
End If
If Aktuelle_karte = 6 Then
Von_k6 = Empfangsword
End If
' Aktuellen Teilnehmer um eins erhöhen
Incr Aktuelle_karte
' Alle Teilnehmer durchgelaufen, wieder von vorne beginnen
If Aktuelle_karte > Anzahl_karten Then
Aktuelle_karte = 1
End If
' WatschdogTimer zurücksetzen bzw. auf neuen Startwert einstellen (1s)
Timer1 = 34286
' Schritt3 beenden
Schritt3 = 0
' Schritt1 starten
Schritt1 = 1
End If
End If
End If
Else
Err_fehlende_antwort = 1
End If
End If
' BUSKOPPLER WIRD ANGESPROCHEN
' Wenn erstes Byte eines Protokolls empfangen dann...
If _rs_bufcountr1 > 0 Then
' Der Koppler befindet sich im Adressmodus
If Datenmodus = 0 Then
' Adresse auslesen
Inputbin #1 , S_bus_empfangsarray(1) , 1
' Adresse mit eingestellter Koppleradresse vergleichen und prüfen ob Daten für mich.
If S_bus_empfangsarray(1) = Koppleradresse Then
' Weiter mit Sendeschritt1
Sendeschritt1 = 1
End If
End If
' Der Koppler befindet sich im Datenmodus
If Datenmodus = 1 Then
' Sind die geforderten 14 Byte eingetroffen
If _rs_bufcountr1 = 14 Then
Incr Rs485_1_count1
' 10 Zyklen lang warten ob weitere Bytes eingehen.
If Rs485_1_count1 > 10 Then
Rs485_1_count1 = 0
' Ist die Anzahl an Bytes noch korrekt, dann...
If _rs_bufcountr1 = 14 Then
' Lese 14 Bytes aus dem Empfangspuffer und schreibe in Array ab Position 2
Inputbin #1 , S_bus_empfangsarray(2) , 14
' Checksumme der empfangenen Bytes berechnen
S_bus_empfangschecksum = Checksumme_berechnen(s_bus_empfangsarray(1))
' Empfangene Checksumme mit errechneter vergleichen
If S_bus_empfangschecksum = S_bus_empfangsarray(15) Then
' Empfangene Bytes mappen.
Kopplersteuerbyte = S_bus_empfangsarray(2)
An_k1 = Makeint(s_bus_empfangsarray(3) , S_bus_empfangsarray(4))
An_k2 = Makeint(s_bus_empfangsarray(5) , S_bus_empfangsarray(6))
An_k3 = Makeint(s_bus_empfangsarray(7) , S_bus_empfangsarray(8))
An_k4 = Makeint(s_bus_empfangsarray(9) , S_bus_empfangsarray(10))
An_k5 = Makeint(s_bus_empfangsarray(11) , S_bus_empfangsarray(12))
An_k6 = Makeint(s_bus_empfangsarray(13) , S_bus_empfangsarray(14))
' Sende Daten Mappen
S_bus_sendearray(2) = Kopplerstatusbyte
S_bus_sendearray(3) = Low(von_k1)
S_bus_sendearray(4) = High(von_k1)
S_bus_sendearray(5) = Low(von_k2)
S_bus_sendearray(6) = High(von_k2)
S_bus_sendearray(7) = Low(von_k3)
S_bus_sendearray(8) = High(von_k3)
S_bus_sendearray(9) = Low(von_k4)
S_bus_sendearray(10) = High(von_k4)
S_bus_sendearray(11) = Low(von_k5)
S_bus_sendearray(12) = High(von_k5)
S_bus_sendearray(13) = Low(von_k6)
S_bus_sendearray(14) = High(von_k6)
' Checksumme der Sendebytes berechnen
S_bus_sendechecksum = Checksumme_berechnen(s_bus_sendearray(1))
' Checksumme an das Sendearray übergeben
S_bus_sendearray(15) = S_bus_sendechecksum
' Weiter mit Sendeschritt2
Sendeschritt2 = 1
End If
End If
End If
End If
End If
End If
' Prüfen ob der Koppler im Empfangsmodus ist
If Sendeschritt1 = 1 And Rs485dir1 = 0 Then
Waitus 500
' Timeouttimer starten
Start Timer3
' wenn ja, dann Koppleradresse als Antwort senden
Printbin #1 , Koppleradresse ;
' in den Datenmodus schalten
Datenmodus = 1
' MPCM abschalten um Daten empfangen zu können
Ucsr1a.mpcm = 0
' Sendeschritt1 beenden
Sendeschritt1 = 0
End If
' Prüfen ob der Koppler im Empfangsmodus ist
If Sendeschritt2 = 1 And Rs485dir1 = 0 Then
Waitus 500
' Sende 14 Bytes aus dem Bytearray ab Position 2
Printbin #1 , S_bus_sendearray(2) , 14 ;
' in den Datenmodus abschalten
Datenmodus = 0
' MPCM einschalten um Adressen empfangen zu können
Ucsr1a.mpcm = 1
' Sendeschritt2 beenden
Sendeschritt2 = 0
' TimeoutTimer zurücksetzen (Startwert für eine Sekunde)
Timer3 = 34286
End If
'RACK-BUS FEHLER AUSWERTEN UND AUSGEBEN
If Watch_dog = 1 Then
' Kopplerstatus n.i.O.
Kopplerstatusbyte.7 = 0
' Ringabfrage der Karten stoppen
Schritt1 = 0
Schritt2 = 0
Schritt3 = 0
' Teilnehmer hat nicht geantwortet
If Err_fehlende_antwort = 1 And Fehler_erkannt = 0 Then
Fehler_erkannt = 1
' Fehlercode 8: Teilnehmer antwortet nicht
Call Koppler_fehlercode(8)
End If
' Falsche Protokolllänge empfangen
If Err_falsche_protokolllaenge = 1 And Fehler_erkannt = 0 Then
Fehler_erkannt = 1
' Fehlercode 5: Falsche Protokolllänge empfangen
Call Koppler_fehlercode(5)
End If
' Unerwarteter Teilnehmer hat geantwortet
If Err_falscher_teilnehmer = 1 And Fehler_erkannt = 0 Then
Fehler_erkannt = 1
' Fehlercode 7: Unerwarteter Teilnehmer hat geantwortet
Call Koppler_fehlercode(7)
End If
' FEHLER GENAUER DEFINIEREN
If Karten_error = 0 And Rack_bus_error = 0 Then
' Eine Karte hat nicht innerhalb der vorgegebenen Zeit geantwortet
' Überprüfen ob die nächste Karte Antworten würde.
Folge_karte = Aktuelle_karte + 1
If Folge_karte > Anzahl_karten Then
Folge_karte = 1
End If
' Kartenadresse der nachfolgenden Karte ermitteln
If Folge_karte = 1 Then
Kartenadresse = 255
End If
If Folge_karte = 2 Then
Kartenadresse = 254
End If
If Folge_karte = 3 Then
Kartenadresse = 253
End If
If Folge_karte = 4 Then
Kartenadresse = 252
End If
If Folge_karte = 5 Then
Kartenadresse = 251
End If
If Folge_karte = 6 Then
Kartenadresse = 250
End If
' Restdaten im Eingangspuffer löschen
Clear Serialin
' Gesendete Daten als Adresse deklarieren (TXB8 High = Adresse ; TXB8 Low = Daten)
Ucsr0b.txb8 = 1
' Anfrage an Kartenr. X senden
Printbin Kartenadresse ; 'Leerbyte ; Leerbyte;
' Die Karte hat 10ms Zeit zu antworten
Waitms 10
' Ein Zeichen empfangen und...
If _rs_bufcountr0 > 0 Then
'... es bleibt bei einem Kartenfehler.
Karten_error = 1
' An das Statusbyte übergeben um welche Karte es sich handelt.
Kopplerstatusbyte.2 = Aktuelle_karte.2
Kopplerstatusbyte.1 = Aktuelle_karte.1
Kopplerstatusbyte.0 = Aktuelle_karte.0
Else
' Keine Antwort ...
'... es handelt sich um einen Rack-Busfehler
Rack_bus_error = 1
' Fehlercode 9: R-Bus gestört, kein Teilnehmer antwortet mehr
Call Koppler_fehlercode(9)
End If
End If
' KARTENFEHLER AN ERROR LED AUSGEBEN
If Karten_error = 1 Then
Call Blink_code_karten_error
End If
' RACKBUSFEHLER AN ERROR LED AUSGEBEN
If Rack_bus_error = 1 Then
Call Blink_code_rbus_error
End If
End If
Loop
Zitieren
/
Zitat von demmy
Lesezeichen