.include "2313def.inc"

.set DIPGPin=PinB    ;Port mit Drehimpulsgeber
.set DIPGChA=4       ;Pin mit Channel A
.set DIPGChB=3       ;Pin mit Channel B
.set DIPGBT=2        ;Pin mit Button
.def DIPGAlt=r4      ;Vorriger Zustand von Channel A
.def DIPG=r5         ;Drehimpulsgeber-Aktion. Nach Abfrage löschen
.def ButtonAlt=r6    ;Vorriger Zustand des Buttons

 ldi r16, RAMEND  ;Stackpointer initialisieren
 out SPL, r16

 ldi r24, 0xff
 out DDRD, r24

 ldi r24, 0x00
 out PORTD, r24

 ldi r24, 0xff
 out DDRb, r24

main:

 in r17,DIPGPin      ;1   Drehimpulsgeber lesen
 mov r18,r17         ;1   und in die Working-Register
 mov r19,r17         ;1   kopieren

 andi r18,1<<DIPGChA ;1   Channel A des Drehgebers ausmaskieren.
 cp r18,DIPGAlt      ;1   Hat es sich verändert?
 breq DrButton       ;1/2 Wenn nicht, dann Button prüfen.
 mov DIPGAlt,r18     ;1   Aktuellen Zustand von Channel A sichern
 lsl r19             ;1   Aus der Kopie des Drehgeberports
 andi r19,1<<DIPGChA ;1   Channel B ausmaskieren.
 cp r18,r19          ;1   Ist Channel A = Channel B?
 breq DrLinks        ;1/2 Wenn ja, dann wurde nach links gedreht
DrRechts:
 rcall rechts
 rjmp DrButton
DrLinks:
 rcall links
 rjmp DrButton
DrButton:

 tst DIPG           ;Wurde vorher abgeholt?
 brne main        ;Wenn nicht, dann Ende
 mov DIPG,r16
 rjmp main

links:
 sbi PORTD,0
 rcall pause
 cbi PORTD,0
 ret

rechts:
 sbi PORTD,1
 rcall pause
 cbi PORTD,1
 ret

pause:

          
          ldi  R21, 0x72
schleife1:ldi  R22, 0xF2
schleife2:dec  R22
          brne schleife2
          dec  R21
          brne schleife1
          
      ret