哪位朋友有关于双字节16进制整数转换成双字节BCD码整数的源程序？？？？ [复制链接]

哪位朋友有关于双字节16进制整数转换成双字节bcd码整数的源程序？？？？

待转换的双字节十六进制整数在r6、r7中。
转换后的三字节ＢＣＤ码整数在r3、r4、r5中。


hb2:clr a；ＢＣＤ码初始化
mov r3,a
mov r4,a
mov r5,a
mov r2,#10h；转换双字节十六进制整数
hb3:mov a,r7；从高端移出待转换数的一位到cy中
rlc a
mov r7,a
mov a,r6
rlc a
mov r6,a
mov a,r5；ＢＣＤ码带进位自身相加，相当于乘２
addc a,r5
da a；十进制调整
mov r5,a
mov a,r4
addc a,r4
da a
mov r4,a
mov a,r3
addc a,r3
mov r3,a；双字节十六进制数的万位数不超过６，不用调整
djnz r2,hb3；处理完１６ｂｉｔ
ret

'

哪位朋友有关于双字节16进制整数转换成双字节bcd码整数的源程序？？？？

'

c的：

输入16bit的16进制数，输出16bit的bcd码(即4位10进数)。注意，结果中丢掉了万位数，只留了4位，如果需要万位，请自己改一下。

unsigned int hex2bcd(unsigned int hex_data)
{
     unsigned int bcd_data=0;
     unsigned int temp;
     temp=hex_data%10000;
     bcd_data=bcd_data|temp/1000<<12;
     temp=temp%1000;
     bcd_data=bcd_data|temp/100<<8;
     temp=temp%100;
     bcd_data=bcd_data|temp/10<<4;
     bcd_data=bcd_data|temp%10;
     return bcd_data;
}