OPTION EXPLICIT
OPTION DEFAULT NONE
'
' AD9833 Control Bits
'
CONST B28%=&H2000
CONST HLB%=&H1000
CONST FSELECT%=&H800
CONST PSELECT%=&H400
CONST RESET%=&H100
CONST SLEEP1%=&H80
CONST SLEEP12%=&H40
CONST OPBITEN%=&H20
CONST DEV2%=8
CONST MODE%=2
'
' Micromite pin allocation
'
CONST CS%=24 ' pin for MCP41010 chip select (CS) pin on module
CONST FSY%=23 ' pin for AD9833 chip select(FSY) pin on module
'
' Output modes
'
CONST TRIANGLE%=1
CONST SINE%=0
CONST SQUARE%=-1
'
pin(CS%)=1
PIN(FSY%)=1
setpin CS%,dout
setpin FSY%,dout
spi open 1000000,2,16 'has to be mode 2 for AD9833, MCP41010 doesn't seem to mind
'
updateamplitude(255) 'scale output 100%
DO
updatefrequency(20000,SQUARE%) '20KHz square wave
pause 2000
updatefrequency(10000,TRIANGLE%) '10KHz triangle wave
pause 2000
updatefrequency(40000,SINE%) '40KHz sine wave
PAUSE 2000
LOOP
end
'
sub updateamplitude(i%) ' Sets the output of the MCP41010 digital potentiometer (0-255)
local j%=&H1100 OR (i% AND 255)
pin(CS%)=0
spi write 1,j%
PIN(CS%)=1
end sub
'
sub updatefrequency(fin%, wave%) 'Sets the frequency (Hz) and waveform of the AD9833 (Sine:wave%=0, Triangle:wave%=1, Square:wave%=-1)
local oscillator%=25000000 'Crystal frequency
local twoby28%=268435456 '2^28
local f%=(fin%*twoby28%)\oscillator%
LOCAL c%=0
local f1%=(f% and &H3FFF) OR &H4000
local f2%=(f%>>14) OR &H4000
LOCAL p%=&B1100000000000000
if wave% =1 then c%=c% OR MODE%
if WAVE%=-1 then c%=c% OR SLEEP12% OR OPBITEN% OR DEV2%
pin(FSY%)=0
spi write 5,c% OR RESET% OR B28%,f1%,f2%,p%,c%
' print bin$(c% OR RESET% OR B28%,16)," ",bin$(f1%,16)," ",bin$(f2%,16)," ",bin$(p%,16)," ",bin$(c%,16)
PIN(FSY%)=1
end sub

option EXPLICIT
OPTION DEFAULT NONE
const false=0
const true=1
const in0=113 'encoder pins pulled high so should be reading high in detent positions, centre pin connected to ground
const in1=102 'swap the pin definitions as required to get the correct sense of rotation
DIM INTEGER rotatedright, rotatedleft, value, lastvalue, resetenc, pin0, pin1
'
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
'
MAIN:
Do
if value <> lastvalue then
Print value
lastvalue=value
endif
Loop
end
'
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

SETPIN RotEncB,DIN 'RotencB as an input
SETPIN RotEncA,INTH,ISRRotenc 'RotEncA as interrupt on high

...


SUB ISRRotenc
'ISR for RotencA - we are turning, RotencB is the direction
'PRINT "isr telltale"
LOCAL INTEGER v,t,q
q=PIN(RotEncB)
t=Timer 'how long (in mS)since the last click?
Timer=0 'clear the time between clicks
SETTICK 1000,SetFG,4 'time-out For no more rotations

SELECT CASE t
CASE 0 TO 5:v=1000000 'fast turn (5mS or less between clicks)
CASE 6 TO 20:v=100000
CASE 21 TO 50:v=10000
CASE 51 TO 200:v=1000
CASE 201 TO 500:v=100
CASE 501 TO 800:v=10
CASE ELSE:v=1 'Slowest turn, almost a second between clicks
END SELECT

IF q=1 THEN
FGSet%=FGSet%-v
IF FGSet%<1 THEN FGSet%=1
ELSE
FGSet%=FGSet%+v
IF FGSet%>83886080 THEN FGSet%=83886080
END IF

FlagX%=BitSet(FlagX%,fgFGAdj)
FlagX%=BitSet(FlagX%,fgFGLast)
END SUB