Lauflicht 2 Taster für rechts und links

[Linda K. (linda_k)]

Hallo,

habe mir von myAVR einen µkontroller und das entsprechende Lehrbuch dazu 
geholt. Einziges Problem ist, dass es keine Lösungen zu den Aufgaben 
gibt.

Ich wollte einen Lauflicht Programmieren, welches ich mit 2 Taster nach 
links und nach rechts schiebe.

ich bekomme leider nur die eine Richtung hin, ich denke ich habe iwo 
einen Denkfehler.

; Start, Power ON, Reset
main:    ldi     r16, lo8(RAMEND)
         out     SPL, r16
         ldi     r16, hi8(RAMEND)
         out     SPH, r16
         ; Hier Init-Code eintragen.
         ldi r16,0b11111111    ; High in r16 Laden
         out DDRB, r16      ; PINS PortB als Ausgang
         cbi DDRD, 2         ;PD.2 wird als Eingang
         cbi DDRD, 3
         ldi r16, 0b00001100  ;PULL UP 
         out PORTD, r16      ;PD.2 Wird auf High gesetzt  
         ldi r16, 0b00000000
         ldi r17, 0b00000000
         ldi r18, 0b10000001
;---------------------------------------------------------------------------
mainloop: ; Eingabe
getkey:    in   r24, PIND
           sbrc  r24, 2        ;Überspringt wenn GEDRÜCKT wird bzw wenn NULL
           rjmp  getkey
    ;warten...........
            inc r16
            brne warte
            inc r17
            brne warte
          ; Verarbeitung
            rol r18
          ; AUSAGABE
          
          
          
          out PORTB, r18  
                   
                     
warte:     rjmp mainloop

Mein Ansatz:

; Start, Power ON, Reset
main:    ldi     r16, lo8(RAMEND)
         out     SPL, r16
         ldi     r16, hi8(RAMEND)
         out     SPH, r16
         ; Hier Init-Code eintragen.
         ldi r16,0b11111111    ; High in r16 Laden
         out DDRB, r16      ; PINS PortB als Ausgang
         cbi DDRD, 2         ;PD.2 wird als Eingang
         cbi DDRD, 3
         ldi r16, 0b00001100  ;PULL UP 
         out PORTD, r16      ;PD.2 Wird auf High gesetzt  
         ldi r16, 0b00000000
         ldi r17, 0b00000000
         ldi r18, 0b10000001
;---------------------------------------------------------------------------
mainloop: ; Eingabe
getkey:    in   r24, PIND
    sbrc  r24, 2        ;Überspringt wenn GEDRÜCKT wird bzw wenn NULL
    rjmp  getkey
  ;warten...........
            inc r16
            brne warte
            inc r17
            brne warte
          ; Verarbeitung
            rol r18
          ; AUSAGABE
          
          
          
          out PORTB, r18  
          
         
getkey1:  in   r24, PIND
    sbrc  r24, 3        ;Überspringt wenn GEDRÜCKT wird bzw wenn NULL
    rjmp  getkey1
  ;warten...........
            inc r16
            brne warte
            inc r17
            brne warte
          ; Verarbeitung
            ror r18
          ; AUSAGABE
          
          
          
          out PORTB, r18

                     
warte:     rjmp mainloop

Leider ohne Erfolg.

Ich hoffe ihr könnt mir helfen.


Gruß

Linda

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

Linda K. schrieb:
> Ich hoffe ihr könnt mir helfen.

 Hier:

; Start, Power ON, Reset
main:    ldi     r16, lo8(RAMEND)
         out     SPL, r16
         ldi     r16, hi8(RAMEND)
         out     SPH, r16
         ; Hier Init-Code eintragen.
         ldi r16,0b11111111    ; High in r16 Laden
         out DDRB, r16      ; PINS PortB als Ausgang
         cbi DDRD, 2         ;PD.2 wird als Eingang
         cbi DDRD, 3
         ldi r16, 0b00001100  ;PULL UP 
         out PORTD, r16      ;PD.2 Wird auf High gesetzt  
         ldi r16, 0b00000000
         ldi r17, 0b00000000
         ldi r18, 0b10000001
;---------------------------------------------------------------------------

GetKey:         in      r24, PIND
                sbrs    r24, 2        ;Überspringt wenn NICHT GEDRÜCKT
                rjmp    GoLeft          ;* Gedrueckt, Left Shift
                sbrc    r24, 3        ;Überspringt wenn GEDRÜCKT
                rjmp    GetKey
GoRight:        ror     r18             ;* Right Shift
                rjmp    OutPort
GoLeft:         rol     r18
OutPort:        out     PORTB, r18
Delay:          inc     r16
                brne    Delay
                inc     r17
                brne    Delay
                rjmp    GetKey

[Linda K. (linda_k)]

Vielen dank, das ging sehr schnell.

Ich hatte einen Denkfehler.


Ab jetzt werde ich evtl öfters nerven ;)


Gruß

Linda

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

Linda K. schrieb:
> Ab jetzt werde ich evtl öfters nerven ;)

 Tu das.
 Und nein, normales fragen nervt hier keinen.