repe     bsf      adcon,2              ;Inicia la conversion A/D
va        btfsc    adcon,2              ;Espera que termine de convertir
           goto     va	
           bsf      3,5          ;Pasa a pagina 1 (para acceder a los ocho bits bajos del resultado)
           movf     adres,0      ;Resultado de conversion 
           bcf      3,5              
          movwf    buffer              ;Guarda el el valor de adres  
          call     dcm          
          call     tabla
          goto     repe             ;Vuelve y repite

dcm      movf     buffer,0
            movwf    uni         ;Convierte el dato presente en W en UNI, DEC y CEN
            clrf         dec	
           clrf        cen
           movlw    d'100'              ; cantidad de centenas
cente    subwf    uni, 1
            btfss    3,0
           goto     cien
           incf     cen, 1
          goto     cente
cien     addwf    uni, 1
          movlw    d'10'               ; cantidad de decenas
dece     subwf    uni, 1
          btfss    3,0
         goto     diez
	incf	dec, 1
         goto     dece
diez     addwf    uni, 1             ; queda con la cantidad de unidades 

         return