I already got the whole circuit working, I already tried turn on a led and it worked, so I need some help with this code, hope anyone can help me, thanks


DEVICE = 16F873A
CONFIG WDT_OFF, XT_OSC, CP_OFF, PWRTE_ON, BODEN_OFF , LVP_OFF , DEBUG_OFF
XTAL = 4
SYMBOL LED = PORTA.2
'SYMBOL DIRECTION = PORTB
DIM TEMPERATURE AS BYTE
DIM READ AS BYTE
DIM DIR0 AS BIT
DIM DIR1 AS BIT
DIM DIR2 AS BIT
TRISA=%00000001 'make in porta.0
ADCON1=%00001010 'analogic porta.0 y digital porta.2

ADIN_RES = 8 'bits to take un count
ADIN_TAD = FRC 'oscilator frecuency
ADIN_STIME = 50 'capacitor's charge time


DECLARE HSERIAL_BAUD =2400
DECLARE HSERIAL_RCSTA =%10010000
DECLARE HSERIAL_TXSTA = %00100010
DECLARE HSERIAL_CLEAR = ON
'DECLARE HSERIAL_PARITY = OFF

TEMPERATURE = ADIN 0
'HSERIN [DEC READ]
DELAYMS 600
WHILE 1
'HSERIN [DEC READ]
HSEROUT ["T"]
HSEROUT [DEC TEMPERATURE]
HSEROUT ["D"]
DIR0 = PORTB.0
DIR1 = PORTB.1
DIR2 = PORTB.2
IF DIR0=0 AND DIR1=0 AND DIR2=0 THEN HSEROUT [0]
IF DIR0=0 AND DIR1=0 AND DIR2=1 THEN HSEROUT [1]
IF DIR0=0 AND DIR1=1 AND DIR2=0 THEN HSEROUT [2]
IF DIR0=0 AND DIR1=1 AND DIR2=1 THEN HSEROUT [3]
IF DIR0=1 AND DIR1=0 AND DIR2=0 THEN HSEROUT [4]
IF DIR0=1 AND DIR1=0 AND DIR2=1 THEN HSEROUT [5]
IF DIR0=1 AND DIR1=1 AND DIR2=0 THEN HSEROUT [6]
IF DIR0=1 AND DIR1=1 AND DIR2=1 THEN HSEROUT [7]
HSERIN [WAIT(","),DEC LEER]
DELAYMS 500
HSEROUT [LEER]
'IF LEER=1 THEN LED=1 GOTO NEXT
'SIG:
'IF LEER=0 THEN LED=0 GOTO NEXT2:
'SIG2:
WEND
END


I'm having some issues reading temp, can anyone give me some help i dont know what to do now