Hi

This is what I have but dont see any light in "my" tunnel

OSCCON = $60
DEFINE OSC 4
DEFINE adc_bits 10
DEFINE adc_clock 3
DEFINE adc_sampleus 50

adcresult VAR WORD
dummy var word
adcon1=%100000010
maxvalue var word
minvalue var word
scale var word
result_64 var word

init:
maxvalue = 64000 'this is 359,8 degrees
minvalue = 2200 ' this is equal to 0 degrees

loop:
gosub readadc
Scale = MaxValue - MinValue
dummy = (AdcResult - MinValue) * 64
dummy = dummy * 360
Result_64 = DIV32 Scale
SerOut 6,6,["adc=",#adcresult," scale=",#scale," dummy=",#dummy," res64=",result_64,10,13]
goto loop


readADC:
ADCIN 0, adcresult
return