New approach to Rotary Encoder

[fratello]

Thanks to Mr.Henrik Olsson this code work PERFECT !!! I'm sure I would not have done it without his help !

Main:
    PortA.1 = 0
    newState = PortA & 011100        
    PortA.1 = 1

    If newState <> 28 THEN
        If newState <> oldState THEN
              
            Select Case oldState
                Case 12
                If NewState = 20 THEN dir=up       
                If NewState = 24 THEn dir=dn
                
                Case 20
                If NewState = 24 THEN dir=up               
                If NewState = 12 THEN dir=dn
               
                Case 24
                If NewState = 12 THEN dir=up                       
                If NewState = 20 THEN dir=dn
            END SELECT

            GOSUB UpOrDn 

    PortA.1 = 0
    OldState = PortA & 011100         
    PortA.1 = 1
               
       endif          
    ENDIF
Goto Main