.equ tap=pina           ;Tastenport
    .equ dimplus     = 0      ;Taste Dimmen plus  
    .equ dimminus    = 1      ;Taste Dimmen minus
    .equ MEN_PLUS    = 2      ;Taste MENÜ PLUS
    .equ MEN_MINUS   = 3      ;Taste MENÜ MINUS
    .equ U_MEN_PLUS  = 4      ;Taste UNTER MENÜ PLUS
    .equ U_MEN_MINUS = 5      ;Taste UNTER MENÜ MINUS     

;Maske der tasten mit repeat funkition 
.equ dimtast=(1<<dimplus)|(1<<dimminus) ;|(1<<dimplus_2)|(1<<dimminus_2)
;Maske der tasten ohne repeat funkition 
.equ alltast=dimtast|(1<<MEN_PLUS)|(1<<MEN_MINUS)|(1<<U_MEN_PLUS)|(1<<U_MEN_MINUS)

    .equ dgprell=0b00010101     ;Maske auf Togglebits (Drehgeber)
;*********************************************************************
;*********************************************************************


in temp,tap                 ;Drehgeber-Port einlesen
 andi temp,(1<<MEN_PLUS)|(1<<MEN_MINUS)   ;nur Drehgeber-Bits (Bit 3:2)
 swap temp                    ;nach oben (Bit 7:6)
 or tfl,temp                  ;neuen Zustand übernehmen
 mov pwz,tfl                 ;Bitmuster merken (neu, alt, älter, uralt)
 lsr tfl                    ;Bitmuster nach unten schieben
 lsr tfl                    ;(leer, neu, alt, älter)
 eor temp,tfl                 ;Änderungen erfassen
 andi temp,dgprell            ;nur Änderungsbits stehen lassen
 cpi temp,1                   ;nur ältestes Änderungsbit gesetzt?
 brne drehgeber2;3            ;nein, kein neuer stabiler (entprellter) Zustand...
;*******************************************************
 ldi temp,1                  ;ja, Geräte-Schrittweite
 sbrs tfl,0                 ;steigende Flanke? - ja...
 rjmp drehgeber1            ;nein...
 sbrs tfl,1                 ;Richtung 1? nein...
 add tz0,temp            ;ja, adieren
 sbrc tfl,1                 ;Richtung 2? nein...
 sub tz0,temp            ;ja, subtrahieren
drehgeber1:
 sbrc tfl,0                 ;fallende Flanke? - ja...
 rjmp drehgeber2            ;nein...
 sbrs tfl,1                 ;Richtung 1? nein...
 sub tz0,temp             ;ja, subtrahieren
 sbrc tfl,1                 ;Richtung 2? nein...
 add tz0,temp             ;ja, adieren
drehgeber2:
drehgeber3:
sts enc0, tz0          ;Drehgeber wert speichern wird in der mainloop ausgewertet