Pic16f886 adc okuma yardım

[secretagent]

yazdığım kodda AN0 kanalındaki gelen bilgiyi lcd ekranda göstermeye çalışıyorum fakat lcd ekranda birşey ortaya çıkmıyor. Easypic v.7 deneme kartı kullanıyorum.

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2014 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 17.04.2014                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
@ __config _CONFIG1, _INTRC_OSC_NOCLKOUT & _WDT_OFF & _MCLRE_OFF & _LVP_OFF & _CP_OFF
SAYI VAR WORD
OPTION_REG.7=1
ANSEL=%11111111
ANSELH=%00111111
OSCCON=%01100111
CM1CON0.7=0
CM2CON0.7=0
ADCON0=%10000001
ADCON1=%10000000

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 500
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 2
DEFINE ADC_SAMPLEUS 100
HAM VAR WORD

TRISB=0
TRISA.0=1
TRISA.1=1
PORTB=0
SAYI=0
PAUSE 100
LCDOUT $FE,1

BASLA: 
      ADCIN 0,HAM
      KONTROL: IF ADCON0.1=1 THEN KONTROL
      LCDOUT $FE,$80,"HAM","=", #HAM
      PAUSE 200
    GOTO BASLA
 END

[secretagent]

sorunu gördüm gözümden kaçmış yanlışlıkla b portunuda analog yapmışım.