void BIN_TO_BCD (uint32_t* bcd)
//==============================================================================
// Подпрограмма преобразования 64-х разрядного двоичного (BIN) числа в
// упакованный двоично-десятичный (BCD) формат.
//==============================================================================
#define _tetrad_mask (0x0000000Fu)
#define _tetrad_lmt (0x00000004u)
#define _tetrad_crrctn (0x00000003u)
{
uint32_t shift_rg[5] = {bcd[0], bcd[1], 0, 0, 0},
i = 0x00000040,// счетчик цикла по входному регистру
t, t_l, t_c;
int32_t j;// счетчик цикла по тетрадам BCD-регистра
do {
j = 0x0000001C;
do {
t = (_tetrad_mask << j);
t_l = (_tetrad_lmt << j);
t_c = (_tetrad_crrctn << j);
if ((shift_rg[2] & t) > t_l) {
shift_rg[2] = shift_rg[2] + t_c;
};
if ((shift_rg[3] & t) > t_l) {
shift_rg[3] = shift_rg[3] + t_c;
};
if ((shift_rg[4] & t) > t_l) {
shift_rg[4] = shift_rg[4] + t_c;
};
j =j - 4;
} while (j >= 0);

shift_rg[4] = shift_rg[4] << 1;
if (shift_rg[3] & 0x80000000) {
shift_rg[4] = (shift_rg[4] | 0x00000001);
};
shift_rg[3] = shift_rg[3] << 1;
if (shift_rg[2] & 0x80000000) {
shift_rg[3] = (shift_rg[3] | 0x00000001);
};
shift_rg[2] = shift_rg[2] << 1;
if (shift_rg[1] & 0x80000000) {
shift_rg[2] = (shift_rg[2] | 0x00000001);
};
shift_rg[1] = shift_rg[1] << 1;
if (shift_rg[0] & 0x80000000) {
shift_rg[1] = (shift_rg[1] | 0x00000001);
};
shift_rg[0] = shift_rg[0] << 1;

i = i - 1;
} while (i != 0);

bcd[2] = shift_rg[2];
bcd[3] = shift_rg[3];
bcd[4] = shift_rg[4];
}