;---------subrutina de converion a decimal
	 CBLOCK 
	VAR1
	 ORIGINAL
	 CENTENAS
	 DECENAS
	 UNIDADES
	 ENDC
	
 LCD_Dec		
	 CLRF CENTENAS
	 CLRF DECENAS
	 CLRF UNIDADES

	 MOVWF VAR1
	 MOVWF ORIGINAL

ANALIZA_CENTENAS
	 MOVLW .100
	 SUBWF VAR1,1
	 BTFSC STATUS,0
	 GOTO INCREMENTA_CENTENAS
	 GOTO ANALIZA_DECENAS
	
 INCREMENTA_CENTENAS
	 INCF CENTENAS
	 GOTO ANALIZA_CENTENAS	
		
 ANALIZA_DECENAS
	 MOVLW .100		 ;le sumo los ultimos 100 restados
	 ADDWF VAR1,1	 ;y en VAR1 me queda el resto

OTRA
	 MOVLW .10
	 SUBWF VAR1,1
	 BTFSC STATUS,0
	 GOTO INCREMENTA_DECENAS
	 GOTO ANALIZA_UNIDADES
	
 INCREMENTA_DECENAS
	 INCF DECENAS
	 GOTO OTRA
	
 ANALIZA_UNIDADES
	 MOVLW .10		 ;le sumo las ultimas 10 restadas
	 ADDWF VAR1,1	 ;y en VAR1 me queda el resto (las unidades)

	 MOVF VAR1,0
	 MOVWF UNIDADES
		
 ;devuelvo el WREG a su valor original
	 MOVF ORIGINAL,0		
	 RETURN