Code:
w0 var word:trisa.0=1:trisa.1=0:porta.1=0:adcon0=1:adcon1=14:adcon2=$90
DEFINE OSC 4
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 1
DEFINE ADC_SAMPLEUS 11
Conversion:
ADCON0.1 = 1:PAUSEUS 50 :IF ADCON0.1 = 0 THEN ADC_BIT_RECEIVING
IF ADCON0.1 = 1 THEN Conversion
ADC_BIT_RECEIVING:
adcin 0,w0:w0.0=porta.1:pausus 10:w0.1=porta.1:pausus 10:w0.2=porta.1:pausus 10
w0.3=porta.1:pausus 10:w0.4=porta.1:pausus 10:wo.5=porta.1:pausus 10
w0.6=porta.1:pausus 10:w0.7=porta.1:pausus 10:w0.8=porta.1:pauseus 10
w0.9=porta.1
END
What is this program supposed to do anyways?
Might help if we saw the whole thing...
Bookmarks