cblock 0ch
cont
endc
include "[Link]"
org 0
bsf
movlw
movwf
STATUS,RP0 ;JUSTIFICAMOS A LA DERECHA
B'10001110' ;Y CONFIGURAMOS A RA0 COMO ENTRADA ANALOGICA
ADCON1
bsf
TRISA,0 ;CONFIGURAMOS COMO ENTRADA EL RA0
clrf
TRISD ;CONFIGURAMOS COMO SALIDA EL PUERTO D
bcf
bcf
TRISE,0 ;CONFIGURAMOS EL RE0 Y EL RE1 COMO SALIDA
TRISE,1
bcf
movlw
movwf
STATUS,RP0
B'00000001' ;OSCILADOR FOSC/8, CANAL ANALOGICO RA0
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
rep
esc
end
movlw 0x23
movwf cont
DECFSZ cont,1
goto rep
return