Problem mit URAT ATMega8

DL3AD · 19. Juli 2011

Hallo OMs,

ich habe ein Problem mit der Configuration der URAT beim Mega8 in Bascom.
Definiere ich einen Mega128 dann läuft der Code ohne Fehler durch.
Wo liegt der Fehler ?

Code

'***************************************************************
'* Steuerung der RX_Box über RS-485                        *
'* Version V2.51                                           *
'***************************************************************
'$sim                                                    'Aktivieren zur Simulation
$regfile = "m8def.dat"                                  'ATmega8
$crystal = 16000000                                     'X-TAL = 16 MHz
$baud = 9600                                            ' use baud rate
$hwstack = 100                                          ' default use 32 for the hardware stack
$swstack = 100                                          ' default use 10 for the SW stack
$framesize = 100                                        ' default use 40 for the frame space


'Configuration Hardware =======================================================================
Config Serialin = Buffered , Size = 32
Enable Interrupts
Config Print = Portd.2 , Mode = Set                     'Umschaltpin RS485 konfigurieren
Config Pind.2 = Output                                  'Umschaltpin als Ausgang
Config Portc = Output                                   'Port C schaltet die Relais


'Variablen ====================================================================================
Dim R_wert As Byte                                      'Hilfsvariable zur Portausgabe
Dim Rwert As String * 5                                 'Eingangswert


'Hauptprogramm ================================================================================
Portc = 0
Do
Input Rwert Noecho                                      ' auf Eingabe warten
If Left(rwert , 1) = "R" Then                           'Befehl L_Bank auswerten
Rwert = Mid(rwert , 2 , 3)                              'Wert für L ausschneiden
R_wert = Val(rwert)                                     'Wert konvertieren
Portc = R_wert                                          'Ausgabe auf dem Port
End If
Loop


End                                                     'Ende Hauptprogramm

Alles anzeigen

Unknown Interrupt source [COUNT<>3]
Unknown Interrupt source [URXC]

Sind die Fehlermeldungen

73, Frank
DL3AD

DC5PI · 19. Juli 2011

Hallo Frank,

ich habe mir das Programm / Syntax angesehen und es auch unter Bascom 1.11.9.8. für beide AVR m8 und m128 übersetzen können OHNE Fehler.

16 MHz sind für diese einfachen Aufgabe viel zu schnell.

16 MHz sind für 9600 Baud nicht optimal, da gibt es einen kleinen Fehler:

16 MHz / 16 / 104 = 9615,4 Baud
Fehler = 9615,4 / 9600 = 0,16%
Man sagt alles unter 1% ist ok, also immer darauf achten.

Nachtrag:
Ich habe noch eine Update auf Bascom 2.0.5.0 gemacht und damit läuft dein Code auch durch.
Also tippe ich auf einen alten Compiler.

.

DB1BKA · 20. Juli 2011

Hallo Frank, Hallo Uwe,

die asynchrone serielle Datenübertragung kann eine ganze Menge an Frequenzabweichung verkraften!
Es wird nach der fallenden Flanke des Startbits eine halbe Bitzeit gewartet und dann immer in der Mitte eines Bits abgetastet. Dadurch ist es möglich, am Ende eines Bytes (nach 10 Bits: Start- Daten- Stoppbit) knapp eine halbe Bitzeit daneben zu liegen. Das sind immerhin 5% Abweichung, ohne dass daurch ein Übertragungsfehler zustande kommt.

Also keine Panik bei allem, was unter einem Prozent liegt.

DL3AD · 20. Juli 2011

Hallo Uwe,

danke für den Test und den Hinweis mit dem Compiler.
Ja, ich habe noch eine ältere Version von Bascom, werde heute mal updaten.
Und ja 16MHz sind viel zu veil - aber ich hatte keine anderen Quarze.
Der Fehler sollte alledings gegen null sein weil alle µC bei mir mit 16 MHz laufen.

Nachtrag: Es lag am Compiler und ich dachte schon ich bin zu blöd.

vy 73, Frank
DL3AD