unsigned char bcd[5];
__flash unsigned short dec[5]={1, 10, 100, 1000, 10000};
unsigned short BcdToBin(unsigned char *bcd_ptr)
{
    unsigned short bin=0;
    
    for (i=0; i<5; i++)
        bin+=dec[i]*bcd_ptr[i];

    return bin;
}

ldi  MUL_TEN,10
BCD2BIN16:
;/Перевод упакованного  5 символьного ВСD в 16 BIN

  andi fBCD2,0x0F
  clr  TbinH
  mov  tBINL,fBCD2
  mov  adder,fBCD1
  rcall mul10a
  mov  adder,fBCD1
  rcall mul10b
  mov  adder,fBCD0
  rcall mul10a
  mov  adder,fBCD0
  rcall mul10b
check: rjmp check

mul10a:
   swap adder
mul10b:
  mul  tbinH,MUL_TEN
   mov  tbinH,R0
  mul  tBINL,MUL_TEN
   mov  tbinL,R0
  add  tbinH,R1
  andi adder,0x0F
  add  tBINL,adder
  brcc m10_1
  inc  tBINH
m10_1:
ret