USART in Assembler

[Phillip P. (cptzero)]

Guten Abend,

ich möchte/muss eine USART Schnittstelle in Assembler programmieren, als 
IDE wird Eclipse verwendet.
Der Code steht bereits doch ich erhalte keine Ausgabe.
Zum Überprüfen lasse ich das Programm über den avrora Simulator laufen, 
der mir eigentlich den Wert im Datenregister ausgibt (UDR1).
Wäre super wenn ihr mir weiterhelfen könntet.

 #include <avr/io.h>

#ifndef F_CPU
#define F_CPU 4000000
#endif


.text
.global main
.global init_USART1



.set BAUD_RATE, 9600
.set UBRR_VAL, (F_CPU/16/BAUD_RATE)-1

 main:

    ; Stack einrichten
  ldi r17, lo8(RAMEND)
  sts  SPL, r17         ; Lade direkt Stack-Pointer-Low, r16
  ldi r17, hi8(RAMEND)
  sts  SPH, r17      ; Stack-Pointer-High

  ; Baudrate einstellen
  ldi    r17, hi8(UBRR_VAL)
  sts    UBRR1H, r17
  ldi    r17, lo8(UBRR_VAL)
  sts    UBRR1L, r17

   call init_USART1   ; Initialisierung USART


  call main_01    // Funktion zum Senden



 donothing:
   jmp donothing



init_USART1:
    push r17 ; Inhalt lokal genutzter Register retten
    push r18




    ; Sender und Empfänger einschalten
    ldi   r17, (1 << RXEN1)|(1<<TXEN1)  ; Empfänger=1, Sender=1

    // 2 Stop-Bits einrichten
    ldi r17, (1 << USBS1)
    lds r18, UCSR1C
    or r17, r18
    sts UCSR1C, r17

    pop r18 ; Inhalt lokal genutzter Register wiederherstellen
    pop r17
    ret ; return

 main_01:


   ldi r24, 0x65      // ASCII Wert für 'A' in Register r24 schreiben


while1:          // Endlosschleife!!
   call putc_USART1  // Läd 'A' aus Register 24 und verschickt es
jmp while1

   ret



putc_USART1:
  ; Sendet ein Byte (ASCII-Zeichen) über USART1.
  ; lokal genutze Register:
  ; r24
  ; Rückgabewert in Register: keiner
  push   r18
  push  r17        ; Inhalt von r17 auf dem Stack speichern
  lds    r17, SREG    ; Flag-Register einlesen
  push  r17        ; Flag-Register auf dem Stack speichern


wait_send:            ; auf freies Senderegister warten
  lds    r18, UCSR1A      ; Schreibe Inhalt von UCSR1A in r18
  andi   r18, (1 << UDRE1)   ; solange DataRegisterEmpty nicht 0 ist 
(nicht leer)
  breq   wait_send        ;


  sts   UDR1, r24    ; Daten senden - Lade Inhalt von r24 in UDR1

  pop   r17
  sts    SREG, r17    ; Lade Inhalt von r24 in SREG
  pop    r17        ; Inhalt von r24 wieder herstellen - aus Stack lesen
  pop   r18

  ret            ; return

[Spess53 (Gast)]

Hi

Und um welchen Controller geht es?

MfG Spess

[r. (Gast)]

Schau ...
http://www.ibrtses.com/embedded/avrasmuartint.html

[Phillip P. (cptzero)]

Das Programm soll später mal auf einen ATMega128 aufgespielt werden, 
sofern es mit dem Simulator Avrora erfolgreich getestet wurde.

[Karl H. (kbuchegg)]

>    ; Stack einrichten
>  ldi r17, lo8(RAMEND)
>  sts  SPL, r17         ; Lade direkt Stack-Pointer-Low, r16
>  ldi r17, hi8(RAMEND)
>  sts  SPH, r17      ; Stack-Pointer-High

Erst High, dann Low.

[Phillip P. (cptzero)]

r. schrieb:
> Schau ...
> http://www.ibrtses.com/embedded/avrasmuartint.html

wie du an meinem Programmier-Stil oben sehen solltest, bin ich ein 
Assembler Anfänger und kann mit deinem Link relativ wenig anfangen ; )

[Karl H. (kbuchegg)]

Hä?

  sts    SPL, r17
  sts    UBRR1H, r17
  sts    SREG, r17


ist es bei deinem Assembler wirklich so, dass du alle Register mit ihrem 
Namen über sts erreichen kannst? Unabhängig davon, ob sie mit out 
erreichbar wären oder nicht?

Das kommt mir jetzt ehrlich gesagt ein bischen komisch vor. Denn 
normalerweise muss man da höllisch aufpassen, welche Register per OUT 
angesprochen werden und welche per STS. Denn je nachdem ist die 
Adresslage eine andere.

[Phillip P. (cptzero)]

Karl Heinz Buchegger schrieb:
> Hä?
>
>   sts    UBRR1H, r17
>
>
> ist es bei deinem Assembler wirklich so, dass du alle Register mit ihrem
> Namen über sts erreichen kannst? Unabhängig davon, ob sie mit out
> erreichbar wären oder nicht?
>
> Das kommt mir jetzt ehrlich gesagt ein bischen komisch vor. Denn
> normalerweise muss man da höllisch aufpassen, welche Register per OUT
> angesprochen werden und welche per STS. Denn je nachdem ist die
> Adresslage eine andere.

Laut Prof. ist das so möglich.
Die Teile Stack einrichten, Baudrate einstellen und Sender und Empfänger 
einschalten wurden von einem funktionierenden Programm kopiert. Hier 
sollte also kein Fehler liegen.

[Phillip P. (cptzero)]

Das Projekt hat sich soeben erledigt, desweiteren befinden sich nn 
meinem Beitrag / Code viele Fehler!


Bitte schließen bzw. löschen!!

[Jörg W. (dl8dtl) (Moderator)]

Phillip Pressol schrieb:
> Bitte schließen bzw. löschen!!

Gelöscht wird hier nicht, und geschlossen hast du ihn mit diesem
Schlusswort ja selbst.