Codigo de configuracion del CAD en PIC16 en lenguaje ensamblador

INIT_ADC:
;-----------mexatronica.blogspot.com------------------
;::::::SUBRUTINA DE CONFIGURACION DEL CAD:::::::::::::
;;;;;;;;;;;;ADQUISISCION DE DATOS ANALOGICOS;;;;;;;;;;
;SUBRUTINA QUE CONFIGURA EL CAD DEL MICROCONTROLADOR
;PARA ADQUIRIR DATOS POR EL CANAL 0 DEL MISMO.
;
;COMPATIBLE CON PIC16F877,PIC16F876
;PIC16F874,PIC16F873 Y ALGUNOS OTROS

BSF STATUS,RP0 ;CAMBIO A BANCO A 1
BSF TRISA,0 ;CONFIGURO PORTA,0
;COMO ENTRADA
;QUE ES DONDE ESTA AN0


;BITS DEL REGISTRO ADCON1 DONDE SE CONFIGURA EL
;ADC DEL MICRO


;BIT7 |BIT6 |BIT5 |BIT4 |BIT3 |BIT2 |BIT1 |BIT0 |
;ADFM |ADCS2|----- |----- |PCFG3|PCFG2|PCFG1|PCFG0|


;-ADFM LO PONEMOS A 0 PARA ALINEAR EL RESULTADO A LA IZQUIERDA

;-PCFG3:PCFG0 LO DEJAMOS CON LA COMBINACION DE 0000
;PARA DEJAR TODOS LOS PINES AN COMO CANALES ANALOGICOS

CLRF ADCON1
BCF STATUS,RP0

;BITS DEL REGISTRO ADCON0 DONDE SE CONFIGURA EL
;ADC DEL MICRO

;BIT7 |BIT6 |BIT5 |BIT4 |BIT3 |BIT2 |BIT1 |BIT0 |
;ADCS1|ADCS0|CHS2 |CHS1 |CHS0 |GO/DONE|---- |ADON |

;-ADCS1:ADCS0 LOS PONEMOS A 1 PARA SELECCIONAR EL
;OSCILADOR INTERNO R/C DEL CAD

;-CHS2:CHS0 LOS PONEMOS A 0 PARA SELECCIONAR EL CANAL 0

;-GO/DONE LO PONEMOS A CERO (SE PONDRA A 1 CUANDO SE
;REQUIERA UNA CONVERSION

;-ADON SE PONE A 1 PARA ENCENDER EL CAD

MOVLW b'11000001'
MOVWF ADCON0
;-----------mexatronica.blogspot.com------------------
;:::::::::::::::::::::::::::::::::::::::::::::::::::::
RETURN ;FINAL DE SUBRUTINA