LIST p=16F88
include "P16F88.inc"
__config _CONFIG1, _WDT_OFF & _INTRC_IO & _MCLR_ON & _LVP_OFF
count equ 0x22
bsf STATUS,5
movlw B'00000010'
movwf TRISA ;all outputs except RA1
movwf ANSEL
movlw 0x2
movwf ADCON1
bcf STATUS,5
movlw B'10001001'
movwf ADCON0 ; channel 0, FOSC/8, enable A/D
bsf STATUS,RP0
movlw 0x70
movwf OSCCON
bcf STATUS,RP0
movlw 0x06
movwf count ;initialize count
loop
decfsz count,F
goto loop ;until finished
bsf ADCON0,GO ;initiate conversion
test
btfsc ADCON0,GO ;conversion done?
goto test ;not finished
end