New approach to Rotary Encoder

[fratello]

This routine should do "Track+" /"Track-" :

UpOrDn:
if dir=1 then
    PortB.4 = 0
    pauseus 3850
    PortB.4 = 1
    pauseus 3850
    PortB.4 = 0
    pauseus 660
    PortB.4 = 1
endif

if dir=0 then
    PortB.4 = 0
    pauseus 4450
    PortB.4 = 1
    pauseus 4400
    PortB.4 = 0
    pauseus 660
    PortB.4 = 1
endif    
return