;***************************
;*** Binario 8bits a BCD ***
;***************************

; REGISTROS USADOS PARA LA CONVERSION
	;Num_Binario
	;Centena
	;Decena
	;Unidad

;Rutina de Conversion............
Binario_BCD
	movf	Num_Binario,W	;Num_Binario ---> W
	movwf	Unidad          ;W ---> Unidad
	clrf	Decena          ;Borramos Decena
	clrf	Centena         ;Borramos Centena
BCD_0
	movlw	d'10'           ;Movemos .10 ---> W
	subwf	Unidad,W        ;Restamos Unidad - W y guardamos en W
	btfss	STATUS,C        ;Preguntamos por el estado del bit Carry
	goto	BCD_Fin         ;Si es 0 salimos de la Rutina
BCD_1
	movwf	Unidad          ;Guardamos el valor de la resta en Unidad
	incf	Decena,f        ;Incrementamos Decena y guardamos en Decena
	movlw	d'10'           ;Movemos .10 ---> W
	subwf	Decena,W        ;Restamos Decena - W y guardamos en W
	btfss	STATUS,C        ;Preguntamos por el estado del bit Carry
	goto	BCD_0
BCD_2
    clrf	Decena          ;Borramos Decena
	incf	Centena,f       ;Incrementamos Centena y guardamos en Centena
	goto	BCD_0
BCD_Fin
	
	return