futz
Active Member
Here's the same code with 8MHz clock for better debugging speed. It has been tested and works perfect.
Code:
LIST p=16F88
include "P16F88.inc"
__config _CONFIG1, _WDT_OFF & _INTRC_IO & _MCLR_ON & _LVP_OFF
ERRORLEVEL 0, -302
cblock 0x20
count
endc
banksel TRISA ;bank 1
movlw 0x70 ;8MHz clock
movwf OSCCON
movlw B'00000010'
movwf TRISA ;all outputs except RA1
movwf ANSEL
movlw b'11000000'
movwf ADCON1
banksel PORTA ;bank 0
movlw B'01001001'
movwf ADCON0 ; channel 0, FOSC/8, enable A/D
bsf STATUS,RP0
movlw 0x70
movwf OSCCON
bcf STATUS,RP0
bleh 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
goto bleh
end
Last edited: