AVR-ASM Anfänger

[Hansi (Gast)]

Hallo zusammen,

bin ganz neu in der AVR-ASM-Programmierung und mein erstes kleines 
Programm läuft auf dem ATmega8 und macht sogar das, was es soll ;-).
Das Programm macht nix anderes als die ganze Zeit 5 LEDs nach der Reihe 
ein und wieder auszuschalten.

Jetzt ist das doch ein schöner Brocken Code...besonders mit der 
Programmierung zum Ausschalten der LEDs bin ich noch nicht ganz 
zufrieden (ist das Einschalten über Bitshifting in Ordnung?).

Kann mir jemand dazu einen Tipp geben? Auch allgemein zu dem Programm, 
ich möchte mir nämlich da nicht was "falsches" angewöhnen...Danke 
schonmal.

.NOLIST
.INCLUDE "m8def.inc"         ; Definitionsdatei für ATmega8
.LIST
Loop:
       ldi r16, LOW(RAMEND)    ;Initialisierung Stackpointer
       out SPL, r16
       ldi r16, HIGH(RAMEND)  
       out SPH, r16
schleife:
         ldi r16, 0x3F       ; lade 0x3F in r16
         out DDRB, r16       ; Inhalt von r16 in DDRB ausgeben
         ldi r16,0b00111111  ; Alle LEDs aus

            
ein:     lsr r16      ;LEDs werden der Reihe nach durch rechts-shift eingeschaltet
     out PORTB,r16    ;Ausgabe über PORTB
     BREQ aus      ;wenn Z-Flag (alle LEDs an) gesetzt, spring raus.
        rcall WARTEN    ;Warteschleife
     rjmp ein      


aus:
     ldi r16,0x01    ;Lade 0x01 in r16, letze LED aus
     out PORTB, r16;  
     rcall WARTEN;

     ldi r17,0x02    ;Lade 0x02 in r17
     MOV r16,r17    ;Kopiere r17 in r16
     out PORTB, r16;
     rcall WARTEN;

     ldi r17,0x04    ;Addiere zu r17 0x04
     ADD r16,r17;    ;Kopiere neuen Wert in r16 usw.
     out PORTB, r16;
     rcall WARTEN;

     ldi r17,0x08;
     ADD r16,r17;
     out PORTB, r16;
     rcall WARTEN;
     
     ldi r17,0x10;
     ADD r16,r17;
     out PORTB, r16;
     rcall WARTEN;

     ldi r17,0x20;
     ADD r16,r17;
     out PORTB, r16;
     rcall WARTEN;

     rjmp Loop;
          
; =============================
;    delay loop generator
;     wait 0,25 s at 4 MHz
;     1000000 cycles:
; -----------------------------
; delaying 999998 cycles:
WARTEN:
          ldi  R17, $09;
WGLOOP0:  ldi  R18, $BC;
WGLOOP1:  ldi  R19, $C4;
WGLOOP2:  dec  R19;
          brne WGLOOP2;
          dec  R18;
          brne WGLOOP1;
          dec  R17;
          brne WGLOOP0;
; -----------------------------
; delaying 1 cycle:
          nop
          ret
; =============================

[jaja (Gast)]

Aus'm Gedächnis müsste das (der?) passende Mnemonic LSL sein: Logical 
Shift Left. Guck mal ins Instruction Set.

[jaja (Gast)]

ldi r17,0x02    ;Lade 0x02 in r17
MOV r16,r17    ;Kopiere r17 in r16

Warum nicht direkt ldi r16? Und die Mnemonics entweder groß oder 
kleinschreiben, aber nicht beides gleichzeitig.

[Hansi (Gast)]

LSL funktioniert leider nicht (zumindest bekomm ichs nicht hin). r16 ist 
ja 0, wenn ich da dann einen Linksshift mache, bleibts weiterhin 0.

Die Addition war eigentlich nur eine Rechenerleichterung für mich ;-)

[spess53 (Gast)]

Hi

>        ldi r16, 0x3F       ; lade 0x3F in r16
>        out DDRB, r16       ; Inhalt von r16 in DDRB ausgeben
>        ldi r16,0b00111111  ; Alle LEDs aus

Hast du nun 5 oder 6 LEDs?


>ist das Einschalten über Bitshifting in Ordnung?

>ein:     lsr r16
>         out PORTB,r16    ;Ausgabe über PORTB
>         BREQ aus      ;

Das funktioniert nur, weil 'out' keine Flags beeinflußt. Glück gehabt. 
Außerdem shiftest du weiter als du must. Besser wäre

ein:     lsr r16 
         out PORTB,r16    ;Ausgabe über PORTB
         andi r16,0b00111111
         BREQ aus

Deine Aus-Routine lässt sich auch durch Schieben realisieren:

[avrasm]
aus:     clr r16       ; r16 = $00
aus10:   sec           ; Carry-Flag setzen
         rol r16       ; nach r16 schieben
         out PORTB,r16
         rcall WARTEN    ;Warteschleife
         cpi r16,0b00111111
         BREQ loop
         rjmp aus10
[avrasm]

MfG Spess

[Jürgen W. (juergen_w)]

Alternativ

ldi r16,1
out PORTB,r16
add r16,r16
cpi r16,0b00111111
breq ...

spart das sec

Gruss und viel Spass beim austesten

[Hansi (Gast)]

Danke für die Tipps...es funktioniert und ich kapier zum Glück auch, 
warum :-)

ich hab 5 LEDs, nur an PB1 bis PB5 angeschlossen. Hab ich vorhin 
vergessen, sorry.

[Jürgen W. (juergen_w)]

Ups, ich meinte

ldi r16,1
out PORTB,r16
add r16,r16
inc r16
cpi r16,0b00111111
breq ...