SETPIN 42, INTH, Spbtn1
...
do
..
loop

sub Spbtn1

end sub

Invalid configuraton

option default integer
const false=0
const true=1
const in0=3 'encoder pins pulled high so should be reading high in detent positions, centre pin connected to ground
const in1=2 'swap the pin definitions as required to get the correct sense of rotation
'
init:
setpin in0,intB,rint 'enable interrupts on both edges of both pins
setpin in1,intB,rint
rotatedright=false
rotatedleft=false
resetenc=true
value=0
lastvalue=0
print value
'
MAIN:
Do
if value <> lastvalue then
print value
lastvalue=value
endif
Loop
end
'
sub rint:
pin0=NOT pin(in0) 'reverse sense to get positive logic
pin1=NOT pin(in1)
if pin0 then
if pin1 and not resetenc then 'in0 and in1 both active
if rotatedleft and not rotatedright then
value=value-1
rotatedleft=false
endif
if rotatedright and not rotatedleft then
value=value+1
rotatedright=false
endif
else 'only in0 active
if resetenc and not rotatedleft then
rotatedright=true
resetenc=false
endif
endif
else
if pin1 then 'only in1 active
if resetenc and not rotatedright then
rotatedleft=true
resetenc=false
endif
else 'both off so reset
rotatedleft=false
rotatedright=false
resetenc=true
endif
endif
if pin(in0)=pin0 or pin(in1)=pin1 then goto rint 're-enter if another change has happened almost immediately
ireturn

sub rint
rint2:
pin0=NOT pin(in0) 'reverse sense to get positive logic
pin1=NOT pin(in1)
if pin0 then
if pin1 and not resetenc then 'in0 and in1 both active
if rotatedleft and not rotatedright then
value=value-1
rotatedleft=false
endif
if rotatedright and not rotatedleft then
value=value+1
rotatedright=false
endif
else 'only in0 active
if resetenc and not rotatedleft then
rotatedright=true
resetenc=false
endif
endif
else
if pin1 then 'only in1 active
if resetenc and not rotatedright then
rotatedleft=true
resetenc=false
endif
else 'both off so reset
rotatedleft=false
rotatedright=false
resetenc=true
endif
endif
if pin(in0)=pin0 or pin(in1)=pin1 then goto rint2 're-enter if another change has happened almost immediately
end sub

option default integer
const false=0
const true=1
const in0=49
const in1=50
'

Dim integer protb 'lecture pin 3 avec antirebond
Dim integer valrot 'valeur codeur rotatif
dim integer lastvalue
Dim integer vrot
Dim integer vrotsens 'sens de rotation 0=positif, 1=negatif


init:
setpin in0,intH,rint3 'enable interrupts on high of rot A pin
setpin in1,DIN
Protb=(Pin(in1) xor 1) 'to define first state of pin "B"
value=0
print value
'
MAIN:
Do
'--- need 2 pass minimum with same value to confirm
Protb=((Protb*2) And 3) Or (Pin(in1) xor 1)
'----
if valrot<> lastvalue then
print valrot
lastvalue=value
endif
Loop
end
'
'------- interrupt proc ----
rint3:
If Protb=3 Then 'state 1 confirm
valrot=valrot+1
'vrotsens=0
End If
If protb=0 Then 'state zero confirm
valrot=valrot-1
'vrotsens=2
End If
valrot
'Print valrot
IReturn