Subrutina para adquirir datos por medio del CAD en PIC16

;Para la configuracion anterior, tenemos la subrutina de adquisicion tambien.

ADQUI: ;SUBRUTINA PARA ESPERAR LA CONVERSION
;-----------mexatronica.blogspot.com------------------
;;;;;;;;;;;;ADQUISISCION DE DATOS ANALOGICOS;;;;;;;;;;

;SUBRUTINA QUE TOMA DATOS DEL CAD EN EL CANAL 0
;Y DEJA LA PARTE ALTA DEL RESULTADO EN EN REGISTRO
;DATOH Y LA PARTE BAJA DEL RESULTADO EN EL REGISTRO
;DATOL
;COMPATIBLE CON PIC16F877,PIC16F876
;PIC16F874,PIC16F873 Y ALGUNOS OTROS


MOVLW b'11000001' ;COLOCAMOS EL CANAL A CONVERTIR
MOVWF ADCON0 ;EN EL REGISTRO ADCON0
CALL RETARDO100uS ;ESPERAMOS EL TIEMPO DE CARGA
;DEL CAPACITOR s/h

BSF ADCON0,2 ;INICIAMOS LA CONVERSION CON EL BIT
;GO/DONE

WAIT: BTFSC ADCON0,2 ;ESPERAMOS A QUESE TERMINE LA CONVERSION
GOTO WAIT ;EN EL BIT GO/DONE

MOVF ADRESH,W ;MOVEMOS EL CONTENIDO DE ADRESH
MOVWF DATOH ;AL REGISTRO DATOH

BSF STATUS,RP0 ;ADRESL ESTA EN EL BANCO1
;ASI QUE NOS CAMBIAMOS DE BANCO

MOVF ADRESL,W ;MOVEMOS EL CONTENIDO DE ADRESL
MOVWF DATOL ;AL REGISTRO DATOL

BCF STATUS,RP0 ;REGRESAMOS AL BANCO 0

RETURN ;FINAL DE SUBRUTINA
;-----------mexatronica.blogspot.com------------------
;:::::::::::::::::::::::::::::::::::::::::::::::::::::