PROCESSOR 12F675
#include "CONFIG.inc"
#include <xc.inc>
;psect nombre, tipo(linker class), ubicacion, spacio de memoria, defecto
PSECT udata_bank0
delay: DS 1
;CODIGO************************************
PSECT resetVec,class=CODE,delta=2
resetVec:
BANKSEL CMCON ;bank0
bsf CMCON,2
bsf CMCON,1
bsf CMCON,0
BANKSEL VRCON ;bank1
bcf VRCON,7
movlw 00010001B
movwf ANSEL
movlw 00000001B
movwf TRISIO
BANKSEL GPIO ;bank0
clrf GPIO
Principal:
movlw 00000001B
movwf ADCON0
movlw 7
movwf delay
Ret_30us:
nop
decfsz delay,f
goto Ret_30us
bsf ADCON0,1
Conv: nop
btfsc ADCON0,1
goto Conv
movf ADRESH,W
sublw 190 ;3.72V-ADC
btfsc STATUS,0
goto pin4
goto pin5
pin4: movlw 00010000B
movwf GPIO
goto Principal
pin5: movlw 00100000B
movwf GPIO
goto Principal
END resetVec