ATmega328P UART in Assembler

[Holger (Gast)]

Moin,

aus dem Turorial habe ich den nachfolgenden Quellcode weitestgehend 
übernommen und für den ATmega328P angepasst. Aber es kommt absolut 
nichts raus. Ich verwende einen USB-RS232-Adapter. Wenn ich das RX und 
TX verbinde, und mittels HTERM etwas ausgebe, dann erscheint es im RX 
Fenster. Also der Adapter geht und richtig verkabelt ist auch alles 
korrekt. Wo mag der Fehler liegen?


Holger

;
; ATmega328_Hardware_UART.asm
;
; Created: 07.11.2015 16:23:15
; Author : Holger
;

.include "m328Pdef.inc"

.DEF temp = r16

 
.equ F_CPU = 10000000

.equ BAUD  = 9600                               ;Baudrate
 
; Berechnungen
.equ UBRR_VAL   = ((F_CPU+BAUD*8)/(BAUD*16)-1)  ;clever runden
.equ BAUD_REAL  = (F_CPU/(16*(UBRR_VAL+1)))     ;Reale Baudrate
.equ BAUD_ERROR = ((BAUD_REAL*1000)/BAUD-1000)  ;Fehler in Promille
 
.if ((BAUD_ERROR>10) || (BAUD_ERROR<-10))       ;max. +/-10 Promille Fehler
  .error "Systematischer Fehler der Baudrate grösser 1 Prozent und damit zu hoch!"
.endif
 
.org 0x000
     rjmp    start
   

start:
    ;Stackpointer initialisieren 
    ldi     temp, HIGH(RAMEND)
    out     SPH, temp
    ldi     temp, LOW(RAMEND)
    out     SPL, temp
 
    ;Baudrate einstellen
    ldi     temp, HIGH(UBRR_VAL)
    sts     UBRR0H, temp
    ldi     temp, LOW(UBRR_VAL)
    sts     UBRR0L, temp
 
    ;Frame-Format: 8 Bit
    ldi     temp, (1<<USBS0)|(3<<UCSZ00)
    sts     UCSR0C, temp
 
    ldi     temp, (1<<TXEN0)        ;TX aktivieren
  sts     UCSR0B, temp
 
loop:
    ldi     zl,low(my_string*2);            ;Z Pointer laden
    ldi     zh,high(my_string*2);
    rcall   serout_string
    rjmp    loop
 
;Ausgabe eines Strings aus dem Flash
 
serout_string:
    lpm                    ;nächstes Byte aus dem Flash laden
    and     r0,r0              ;= Null? 
    breq    serout_string_ende        ;wenn ja, -> Ende
serout_string_wait:
  lds    temp, UCSR0A          ;Warten bis UDRE0 für das nächste
                      ;Byte bereit ist
  sbrs  temp, UDRE0  
            
    rjmp    serout_string_wait
    out     UDRE0, r0
    adiw    zl:zh,1              ;Zeiger erhöhen
    rjmp    serout_string          ;nächstes Zeichen bearbeiten
serout_string_ende:
    ret                    ;zurück zum Hauptprogramm
 
; Hier wird jetzt der String definiert und im Flash gespeichert
 
my_string:  .db "Test!",10,13,0

[spess53 (Gast)]

Hi

>Wo mag der Fehler liegen?

Bei 1MHz Takt hast du bei 9600Bd schon 7% Fehler. Mit internem 
RC-Oszillator kann es noch mehr werden. Gehe mal auf 4800Bd runter.

MfG Spess

[holger (Gast)]

out     UDRE0, r0

Es gibt kein Register mit diesem Namen;)

[holger (Gast)]

>Bei 1MHz Takt hast

>.equ F_CPU = 10000000

Ich sehe 10MHz.

[Holger (Gast)]

holger schrieb:
> Es gibt kein Register mit diesem Namen;)

Danke!!! Es sind übrigens 10 MHz.



Holger

[J. P. (Gast)]

Wenn das ein echter USB-RS232-Adapter ist, wird es in nahezu allen 
Fällen sowieso nicht funktionieren, weil die Pegel nicht zueinander 
passen. Bei den USB-RS232-Adaptern ist meist ein FT232R und ein MAX232 
verbaut:
(USB) |--[FT232R]---[MAX232]--| (D-Sub DE-9)
wobei zwischen FT232R und MAX232 5-V-Pegel vorliegen, an der D-Sub DE-9 
aber die für diese Adapter typischen Werte über und unter der 
Signalmasse.

Entweder man nimmt einen weiteren MAX232 um wieder auf 5-V-Logikpegel zu 
kommen, oder man weicht auf einen USB-UART-Adapter aus, bei dem kein 
MAX232 nachgeschaltet ist und die 5-V-Pegel des FT232R direkt zugänglich 
sind.

[Pastor Braune (Gast)]

"out" durch "sts" ersetzen da extended I/O

[Pastor Braune (Gast)]

out     UDRE0, r0  --> sts UDR0,r0  ; UDRE0 ist ein Bit im reg. UCSR0A
                                      UDR0 ist das Datenregister