cblock 0ch
cont
endc
include "p16f877.inc"
org 0
bsf STATUS,RP0 ;JUSTIFICAMOS A LA DERECHA
movlw B'10001110' ;Y CONFIGURAMOS A RA0 COMO ENTRADA ANALOGICA
movwf ADCON1
bsf TRISA,0 ;CONFIGURAMOS COMO ENTRADA EL RA0
clrf TRISD ;CONFIGURAMOS COMO SALIDA EL PUERTO D
bcf TRISE,0 ;CONFIGURAMOS EL RE0 Y EL RE1 COMO SALIDA
bcf TRISE,1
bcf STATUS,RP0
movlw B'00000001' ;OSCILADOR FOSC/8, CANAL ANALOGICO RA0
movwf ADCON0 ; Y ENCENDEMOS EL CONVERTIDOR
iniciar call pausa ; TIEMPO DE ESPERA DE 30 MILISEGUNDOS
bsf ADCON0,2 ;INICIA LA VONVERCION
espera btfsc ADCON0,2 ;ESPERAMOS A QUE TERMINE LA CONVERCION
goto espera
movf ADRESL,W ;MANDAMOS EL LOS PRIMEROS 8 BITS AL PORTD
movwf PORTD
movf ADRESH,W ;MANDAMOS LOS ULTIMOS 2 BITS AL PORTE
movwf PORTE
goto iniciar
pausa movlw 0x23
movwf cont
rep DECFSZ cont,1
goto rep
esc return
end