;******************************************************************************
;                   RUTINAS ARITMETICAS
;------------------------------------------------------------------------------
;	RUTINA QUE CONVIERTE BINARIO EN BCD
; Carga el valor a convertir en UNIDAD y llama a DECIMAL
; Maneja numeros desde 0 a 255 y los saca en UNIDAD, DECENA y CENTENA
;---------------------------------------------------------------------------				
aDECIMAL
	bcf	GIE
	CLRF	DECENA		;BORRAR REGISTROS DE TRABAJO
	CLRF	CENTENA
	MOVLW	D'100'
OTRA	SUBWF	UNIDAD,1	;RESTA 100 AL VALOR INICIAL
	BTFSS 	CARRY		;VERIFICA EL CARRY
	GOTO 	SUM		;SI ES CERO DEJA DE RESTAR 100
	INCF	CENTENA,1	;SI ES 1 INCREMENTA CENTENA
	GOTO 	OTRA		;VOLVER A RESTAR
SUM	ADDWF	UNIDAD,1	;SUMARLE 100
	MOVLW	D'10'
REPITE	SUBWF	UNIDAD,1	;RESTAR 10 AL VALOR
	BTFSS	CARRY		;VERIFICA EL CARRY
	GOTO	SUM1		;SI ES 0 DEJA DE RESTAR
	INCF	DECENA,1	;SI ES 1 INDREMENTA DECENA
	GOTO	REPITE
SUM1	ADDWF	UNIDAD,1	;SUMARLE 10 AL VALOR
				;EL RESULTADO QUEDA EN CENTENA,DECENA Y UNIDAD.
	bsf	GIE
	RETURN
;-----------------------------------------------------------------------------