16f877 with LM335 problem

[flotulopex]

So this is where I am right now.

First, here's my hardware. What you won't see on the schema is the serial comm lead connected to PIC's PORTB.7 .


Here's the code:

' PIC 16F690 Fuses
@ __config _FCMEN_OFF &_IESO_OFF &_CPD_OFF &_WDT_OFF &_HS_OSC &_BOR_OFF &_CP_OFF &_PWRTE_OFF &_MCLRE_OFF

'_______________________________________________________________________________
' Registers   76543210
OPTION_REG = %10000000 'OPTION REGISTER
ANSEL      = %00000100 'Select analog inputs Channels 0 to 7
ANSELH     = %00000010 'Select analog inputs Channels 8 to 11
ADCON0     = %00000001 'A/D control register
ADCON1     = %00000000 'A/D control register
CM1CON0    = %00000000 'Comparator1 Module
CM2CON0    = %00000000 'Comparator2 Module
INTCON     = %00000000 'INTerrupts CONtrol
TRISA      = %00000100 'Set Input/Output (0 to 5)
PORTA      = %00000000 'Ports High/Low (0 to 5)
TRISB      = %00000000 'Set Input/Output (4 to 7)
PORTB      = %00000000 'Ports High/Low (4 to 7)
TRISC      = %10000000 'Set Input/Output (0 to 7)
PORTC      = %00000000 'Ports High/Low (0 to 7)

'_______________________________________________________________________________
' Defines
DEFINE OSC 4
DEFINE ADC_BITS 10

'_______________________________________________________________________________
' Variables
LM35_Vout       var word ' AN2 PORTA.2
LM35_VGND       var word ' AN9 PORTC.7
Temperature     var word
DataVar         VAR WORD(12)
DataTemp        var WORD
Counter_A       var WORD

'_______________________________________________________________________________
' Program

MAIN:
    ' LM35_Vout
    FOR counter_A = 0 to 11
        adcin 2, DataVar(counter_A)
    next counter_A
    Counter_a = 0
    GOSUB SORT
    LM35_Vout = DataTemp
    
    
    ' LM35_VGND
    FOR counter_A = 0 to 11
        adcin 9, DataVar(counter_A)
    next counter_A
    Counter_a = 0
    GOSUB SORT
    LM35_VGND = DataTemp

    Temperature = (LM35_Vout - LM35_VGND) * 100

    GOSUB DISPLAY

    pause 1000
    
Goto main:


'_______________________________________________________________________________
' Subroutine

DISPLAY:
    Serout2 PORTB.7,84,["Temp.: ", dec4 temperature,"  LM35_Vout: ", dec4 LM35_Vout,"  LM35_VGND: ", dec4 LM35_VGND,13]
RETURN

'_______________________________________________________________________________
' Subroutine

SORT:
' Melanie NEWMAN's array sorting routine
'    Aquire 12 values, delete 4 lower and 4 top values, average 4 remaining values

    If DataVar(counter_A + 1) < DataVar(counter_A) then
        DataTemp = DataVar(counter_A)
        DataVar(counter_A) = DataVar(counter_A + 1)
        DataVar(counter_A + 1) = DataTemp
        If Counter_A > 0 then Counter_A = Counter_A - 2
    endif
    Counter_A = Counter_A + 1
    If Counter_A < 11 then GOTO SORT
    
    ' Average four middle values
    DataTemp = 0
    For Counter_A = 4 to 7
        DataTemp = DataTemp + DataVar(counter_A)
    next Counter_A
    
    DataTemp = DataTemp / 4

Return

And here is the reading I get right now, knowing the temperature sensor is on my desk close to three other thermometers showing 21°C. Promised, I won't forget to format the "Temp." display in the final version (i.e. "9456" => "94,56°C")





What's wrong with it?

I have set and defined a 10 bits ADC result. How can I get values over 1023?

I might be wrong with the ADCON0.7 setting but I'm not used to modify it so I'm not sure about that.

Any other idea?