Lauflicht mit ATmega8 und Assembler

[Nikolaus J. (Firma: 88Airbrush88) (jungertnik)]

Hallo,

ich bräuchte eure Hilfe
Ich möchte ein Lauflicht nach links u. rechts mit je einem Taster laufen 
lassen....siehe CODE aber es klappt nicht so recht.
begin:
    rjmp    main                        ; RESET External Pin, Power-on 
Reset, Brown-out Reset and Watchdog Reset
    reti                                ; INT0 External Interrupt 
Request 0
    reti                                ; INT1 External Interrupt 
Request 1
    reti                                ; TIMER2 COMP Timer/Counter2 
Compare Match
    reti                                ; TIMER2 OVF Timer/Counter2 
Overflow
    reti                                ; TIMER1 CAPT Timer/Counter1 
Capture Event
    reti                                ; TIMER1 COMPA Timer/Counter1 
Compare Match A
    reti                                ; TIMER1 COMPB Timer/Counter1 
Compare Match B
    reti                                ; TIMER1 OVF Timer/Counter1 
Overflow
    reti                                ; TIMER0 OVF Timer/Counter0 
Overflow
    reti                                ; SPI, STC Serial Transfer 
Complete
    reti                                ; USART, RXC USART, Rx Complete
    reti                                ; USART, UDRE USART Data 
Register Empty
    reti                                ; USART, TXC USART, Tx Complete
    reti                                ; ADC ADC Conversion Complete
    reti                                ; EE_RDY EEPROM Ready
    reti                                ; ANA_COMP Analog Comparator
    reti                                ; TWI 2-wire Serial Interface
    reti                                ; SPM_RDY Store Program Memory 
Ready
;----------------------------------------------------------------------- 
-------
main:
    ldi r16,lo8(RAMEND)                ; Main program start
    out SPL,r16                        ; Set Stack Pointer to top of RAM
    ldi r16,hi8(RAMEND)
    out SPH,r16
    ldi r16 , 0b11111111
    out DDRB , r16
    cbi DDRD , 2
    ldi r16 , 0b00000100
    out PORTD , r16
    ldi r16 , 0b00000000
    ldi r17 , 0b00000000
    ldi r18 , 0b00000001

    ldi r16 , 0b11111111
    out DDRB , r16
    cbi DDRC , 0
    cbi DDRC , 1
    sbi DDRC, 1
    ldi r16 , 0b00000001
    out PORTC , r16
;----------------------------------------------------------------------- 
-------
mainloop:  ;Eingabe
getKey:     in r24 , PIND
      sbrc r24 , 2
      rjmp getKey
  ;warten
  inc r16
  brne warte
  inc r17
  brne warte
  ;Verarbeitung
  rol r18
  ;Ausgabe
  out PORTB , r18
warte:  rjmp mainloop
getKey2:  in r24 , PINC
  sbrc r24 , 0
  rjmp getKey2
  ;warten
  inc r16
  brne warte
  inc r17
  brne warte
  ;
  ror r18
  ;
  out PORTB , r18
  rjmp  getKey2
;----------------------------------------------------------------------- 
-------

[S. Landolt (Gast)]

Ich habe das Programm nur grob überflogen, zwei Punkte fielen mir auf:
- getKey2: wird nie erreicht
- die Befehle ror und rol sind etwas irreführend, eigentlich wird 
nicht rotiert, das herausgeschobene Bit bleibt 'im Carry stecken', siehe 
das "Instruction Set Manual"; könnte bei Ihnen aber noch halbwegs 
funktionieren, da das Carry sonst nirgendwo angefasst wird.

[Carlos (Gast)]

man kann auch in Assembler strukturiert programmieren!!!

Welcher Controller ist es?

[JungertNik (Gast)]

Bin ein Neuling habe mir das myAVR mk2 set für den einstieg gekauft

[JungertNik (Gast)]

@ S. Landold
Die Grundaufgabe im Lehrbuch gibt nur eine Richtung des Lauflichts vor 
eben mit dem Befehl rol .... danach sollte man mit dem 2ten Taster ein 
lauflicht in die andere richtung schalten ohne Vorgabe deshalb hab ich 
mir das mir ror mal so überlegt....klappt aber nicht so

[S. Landolt (Gast)]

Was genau klappt nicht?
Der Taster an PC0 bewirkt nichts, da, wie schon gesagt, getKey2 nie 
erreicht wird. Wenn aber die Hardware stimmt, d.h. der Taster an PD2 
gegen GND schließt und auch die "Lauflichter" (LEDs mit Vorwiderstand, 
nehme ich an) richtig angeschlossen sind, dann sollte da doch etwas 
laufen, solange der Taster gedrückt wird.
Natürlich enthält das Programm noch etliche Anfängerfehler, aber das ist 
ja erstmal nicht das Thema.

[JungertNik (Gast)]

Ja, die Seite mit dem PortD läuft ja auch doch wie bekomme ich mein 
lauflicht in die andere richtung gedreht mit PortC .... da blicke ich 
noch nicht durch

[S. Landolt (Gast)]

Nun, erstmal muss getKey2 überhaupt angesprungen werden, d.h. in Block 
getKey muss es statt rjmp getKey heißen rjmp getKey2. Und dann muss 
der Block getKey2 analog zu getKey aufgebaut sein, etwa so:

getKey2:     in r24 , PINC
      sbrc r24 , 0
      rjmp getKey
  ;warten
  inc r16
  brne warte2
  inc r17
  brne warte2
  ;Verarbeitung
  ror r18
  ;Ausgabe
  out PORTB , r18
warte2: rjmp mainloop

Schön ist es nicht, aber mein erstes Programm sah wohl auch nicht 
besser aus.

[Nikolaus J. (Firma: 88Airbrush88) (jungertnik)]

Bin gerade draufgekommen wie es klappt:

mainloop:  ;Eingabe
getKey:     in r24 , PIND
      sbrc r24 , 2
      rjmp getKey2
  ;warten
  inc r16
  brne warte
  inc r17
  brne warte
  ;Verarbeitung
  rol r18
  ;Ausgabe
  out PORTB , r18

getKey2:  in r24 , PINC
  sbrc r24 , 0
  rjmp mainloop
  ;warten
  inc r16
  brne warte
  inc r17
  brne warte
  ;
  ror r18
  ;
  out PORTB , r18
  rjmp getKey
warte:  rjmp mainloop

[Marc V. (Firma: Vescomp) (logarithmus)]

Nikolaus J. schrieb:
> Bin gerade draufgekommen wie es klappt:

 Und immer noch mit Fehlern - Lauflicht kann am Anfang nicht nach
 rechts laufen.
 Ausserdem kann man mit rol und ror einen bit nicht rotieren,
 sondern nur um eine Stelle nach links oder rechts verschieben.
 Bei bit7 oder bit0 ist auf jeden Fall Schluss und jede weitere
 logische Operation verändert Carry Flag - der alte Wert ist
 verloren.

 Hier:

begin:
    rjmp    main                        ; RESET External Pin, Power-on 
-------
main:
  ldi  r16,lo8(RAMEND)                ; Main program start
  out  SPL,r16                        ; Set Stack Pointer to top of RAM
  ldi  r16,hi8(RAMEND)
  out  SPH,r16

  ldi  r16 , 0b11111111    ;* LED Ausgabe
  out  DDRB , r16

  cbi  DDRC, 0        ;* Lauflicht rechts
  ldi  r16 , 0b00000001
  out  PORTC , r16

  cbi  DDRD , 2      ;* Lauflicht links
  ldi  r16 , 0b00000100
  out  PORTD , r16

  ldi  r18 , 0b00000001    ;* Anfangszustand
  out  PORTB, r18

;----------------------------------------------------------------------- 
getKey1:
  in  r24, PIND
  sbrc  r24, 2
  rjmp  getKey2
  lsl  r18
  brcc  gK1
  ldi  r18, 0x01      ;* Anfangszustand
gK1:
  rcall  OutPort

getKey2:
  in  r24, PINC
  sbrc  r24, 0
  rjmp  getKey1
  lsr  r18
  brcc  gK2
  ldi  r18, 0x80      ;* Anfangszustand
gK2:
  rcall  OutPort

  rjmp  getKey1      ;* Und wieder von vorne

OutPort:
  out  PORTB, r18
  clr  r16
  clr  r17
warte:
  inc r16
  brne warte
  inc r17
  brne warte
  ret