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

;<Binario>=><Centena, Decena,Unidad>

; REGISTROS
Binario

Centena
Decena
Unidad

;Rutina
Binario_BCD
	movfw	Binario
	movwf	Unidad
	clrf	Decena
	clrf	Centena
BCD_0
	movlw	d'10'
	subwf	Unidad,W
	btfss	STATUS,C
	goto	BCD_Fin
BCD_1
	movwf	Unidad
	incf	Decena,f
	movlw	d'10'
	subwf	Decena,W
	btfss	STATUS,C
	goto	BCD_0
BCD_2	clrf	Decena
	incf	Centena,f
	goto	BCD_0
BCD_Fin