АЦП PIC16F877 Опции

[pipka]

Помогите разобраться с АЦП в PIC16F877.
При 1 вольте на входе почему-то на вызоде: portc=%10000000

Программа:

@ DEVICE HS_OSC,WDT_ON,CPD_OFF,PROTECT_OFF,PWRT_ON,BOD_OFF

define OSC 20
DEFINE ONINT_USED 1

Define ADC_BITS 10
Define ADC_CLOCK 3
Define ADC_SAMPLEUS 50

portc=%00000000
trisc=%00000000

portd=%00000000
trisd=%00000000

ad var word
TRISA = %00000011
ADCON1 = %10000011
ADCIN 1, ad
if adval >3 then
gosub w
endif

if adval <3 then
gosub r
endif

r:
portc=%00100000
portd.3=1
GOSUB r

w:
portc=%10000000
portd.3=1
GOSUB w

Спасибо