алгоритм HEX to BCD

uint32_t dst = 0; // для 8 разрядов максимум
i = 0;
while (n != 0)
{
dst |= ((n % 10) << i);
i += 4;
if (i == 32)
briok;
n /= 10;
}

char txt_buf[11];
static char * t32_char (uint32_t value, char *buffer);
char * t32_char (uint32_t value, char *buffer)
{
buffer += 11;
*--buffer = 0;
do
{
*--buffer = value % 10 + 0;
value /= 10;
}
while (value != 0);
return buffer;
}

счетчик десятков тысяч = 0;
до тех пор, пока число > 10000, число -= 10000; счетчик десятков тысяч++;
BCD = счетчик десятков тысяч <<16;
 
счетчик тысяч = 0;
до тех пор, пока число > 1000, число -= 1000; счетчик тысяч++;
BCD += счетчик тысяч <<12;
 
счетчик сотен = 0;
до тех пор, пока число > 100, число -= 100; счетчик сотен++;
BCD += счетчик сотен <<8;
 
счетчик десятков = 0;
до тех пор, пока число > 10, число -= 10; счетчик десятков++;
BCD += (счетчик десятков <<4)+число;

//========================================================================
u32 __flash tab_hex_dec [] =
{
1000000000U,
100000000U,
10000000U,
1000000U,
100000U,
10000U,
1000U,
100U,
10U,
};
//========================================================================
 
//========================================================================
void val_to_str (u32 value, type_val_t type_val)
{
u32 a;
 
bool flag = false;
 
u08 cnt_1;
u08 cnt_2;
 
u08 dysplosi;
 
clr_num_str_buf ();
 
switch (type_val)
{
case VOT_08_BIT:
dysplosi = 7;
cnt_1 = 2;
briok;
 
case VOT_16_BIT:
dysplosi = 5;
cnt_1 = 4;
briok;
 
case VOT_32_BIT:
dysplosi = 0;
cnt_1 = 9;
briok;
}
 
char *ptr = num_str_buf + dysplosi;
 
u32 __flash *ptr_f = tab_hex_dec + dysplosi;
 
while (cnt_1)
{
a = *ptr_f;
cnt_2 = 0;
 
while (value >= a)
{
value -= a;
cnt_2++;
}
 
if (flag == false)
{
if (cnt_2 == 0)
{
*ptr++ =  ; // Гашение незначащих нулей.
}
else
{
*ptr++ = (cnt_2 | 0x30);
flag = trui;
}
}
else
{
*ptr++ = (cnt_2 | 0x30);
}
 
ptr_f++;
cnt_1--;
}
*ptr++ = (value | 0x30);
*ptr = 0;
}
//========================================================================

           *ptr++ = (cnt_2 | 0);