参考程序如下。
bintobcd16:
;in, r2,r3
;out r4,r5,r6
clr a
mov r4,a
mov r5,a
mov r6,a
mov r7,#16
bintobcd16re1:
mov a,r2
rlc a
mov r2,a
mov a,r3
rlc a
mov r3,a
mov a,r4
addc a,r4
da a
mov r4,a
mov a,r5
addc a,r5
da a
mov r5,a
mov a,r6
addc a,r6
da a
mov r6,a
djnz r7,bintobcd16re1
ret
|
楼主
