51单片机汇编2进制转BCD码，程序有疑问

Question

以下是我再网上找到的转换程序，下面注释处，乘2加b后经十进制调整转，R2，R2，R4不是上面已经清0了，怎么运算A都是0，我程序调试也是这个结果，我哪里出错了，还是网上人云亦云，根本大家都没试过就在发表高论，请高手帮忙点评下
;设R6、R7中存放16位二进制数，要求转换结果存入R2、R3、R4中。
ORG 00H
BCDT: MOV R5,#16 ;设置计数值
CLR A
MOV R2,A ;存放结果寄存器清零
MOV R3,A
MOV R4,A
MOV R6,#13
MOV R7,#34
LOOP: CLR C

MOV A,R7 ;取被转换二进制数乘二
RLC A
MOV R7,A

MOV A,R6
RLC A
MOV R6,A

MOV A,R4 ;乘2加b后经十进制调整转
ADDC A,R4 ;换成BCD码存入R2R3R4
DA A
MOV R4,A

MOV A,R3
ADDC A,R3
DA A
MOV R3,A

MOV A,R2
ADDC A,R2
DA A
MOV R2,A

DJNZ R5,LOOP
RET
END

Answer 1

这段程序是正确的，我已经验证过了
R6=13=0x0d,R7=34=0x22，所以在R6R7中保存的是0x0d22，转换成10进制就是3362，而程序结束时，R2R3R4中保存的就是0x003362。
总的思路就是R6R7中16进制数左移，将最高位推入R2R3R4的最低位，然后将R4进行DA，如果超过了99就会有进位，将R3自加倍再加进位后DA，依此类推。

Answer 2

程序有点乱。