Codigo para tomar datos del CAD y visualizarlos en leds

;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;-----------mexatronica.blogspot.com------------------
;Este codigo, toma en cuenta las subrutinas que hemos publicado anteriormente
;configura el CAD, lee el dato actual y lo muestra por el puerto b y puertod

;DECLARAMOS LA LIBRERIA QUE CORRESPONDA A NUESTRO
;MICROCONTROLADOR

#INCLUDE

;DECLARAMOS LOS REGISTROS QUE OCUPAREMOS

CBLOCK 0X20

NUM1 ;REGSTRO PARA EL RETARDO
DATOL, DATOH; REGISTROS DONDE ALMACENAMOS
;EL RESULTADO DE LAS CONVERCIONES

ENDC

0RG 0X00

BSF STATUS,RP0 ;CAMBIAMOS A BANCO 1
CLRF TRISB;CONFIGURAMOS PORTB COMO SALIDA
BCF STATUS,RP0 ;REGRESAMOS A BANCO 0

CALL INIT_ADC ; INICIALIZAMOS EL CAD

INICIO: CALL ADQUI ; HACEMOS UNA CONVERSION
MOVF DATOH,W; MOVEMOS EL RESULTADO DE LA
;CONVERSION A PORTB
MOVWF PORTB ;PARA QUE SE MUESTRE
GOTO INICIO ;VOLVEMOS A HACER UNA CONVERSION
; A PARTIR DE AQUI SE AGREGAN LAS SUBRUTINAS NECESARIAS
;INIT_ADC, ADQUI Y EL RETARDO
;Y SE TERMINA EL PROGRAMA CON
END

;SALUDOS!!!!!!


;-----------mexatronica.blogspot.com------------------
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

click aqui para el codigo completo

;favor de enviar sus dudas a: dudas@mexatronica.com