de binario a bcd¿?

[Gokuden]

tengo un registro binario de 0 hasta el 66, voy a usar el pic 16f84a.
necesito convertirlo en bcd para tenerlo en dos registros separados .. alguien sabe esa rutina¿?

[fenix_jn]

bueno, en el manual del Curso Avanzado de Microntroladores PIC, de la editorial Cekit existe una rutina convertidora BIN2BCD bastante simple:

unidad es el registro que contiene el valor BIN, ese mismo registro lo usaras como unidad en BCD al finalizar la rutina.

con_BCD   clrf   decena   ;Sub convertidor de Binario a BCD
   movlw   .10
repite   subwf   unidad, f
   btfss   status, c
   goto   sum1
   incf   decena, f
   goto   repite

sum1   addwf   unidad, f
   return                        ;Este return si estas llamando usando call, debes
                                                  ;kitarlo si usas goto