16位二进制转换为BCD码的C51汇编程序

16位二进制转BCD码的程序算法及51汇编实现：
n=b15~b0
n=[b15~b8]*256+[b7~b0]
=[b15~b12]*4096+[b11~b0]
,高四位[b15~b12]取值范围为0~15，代表了4096的个数
n=[b15~b12]*4000+{[b15~b12]*(100-4)+[b11~b0]}
用x 代表[b15~b12]，有：
n=x*4000+{x*(100-4)+[b11~b0]

即：n=4*x(千位）+x(百位）+[b11~b0]-4*x
上式中后面的位：[b11~b0]-4*x，如果小于356，就直接转换成BCD码，如果
数值较大，就要把11~7位看成128的个数y,在百位中加上y，在十位加上3*y，并在
[b6~b0]中减去2*y
就有：
n=n=4*x(千位）+(x+y)(百位）+3*y(十位）+[b6~b0]-2*y
由此，就可以明确由高9位[b15~b7]变换出来十进制的各个位的数值，可能大于9，到最后整理一下即可。
剩下的低7位变成BCD 码已经很简单了。
这是别人的思路，容易理解，但用汇编也不太好写，期待有人能写出来，下面是我同学的一个算法：
高八位减一，让第八位加上256,（存放压缩BCD码的三个字节百位加2，十位加5，各位加6）
ORG 0000H
AJMP MAIN
ORG 0003H
AJMP int0
ORG 0100H
MAIN: MOV SP,#60H
MOV R4,#30
MOV TMOD,#01H
MOV TH0,#00H
MOV TL0,#00H
MOV IE,#81H
SETB TR0
SETB IT0

LOOP: LCALL BCD
LCALL UBCD
LOOP1: LCALL XIANSHI
LCALL DELAY
DJNZ R4,LOOP1
AJMP LOOP

BCD: MOV A,#00H
MOV 38H,41H
MOV 37H,40H
MOV 34H,A
MOV 35H,A
MOV 36H,A

MOV A,37H
MOV B,#100
DIV AB
MOV 35H,A
MOV A,B
MOV B,#10
DIV AB
SWAP A
ADD A,B
MOV 36H,A


MOV R3,38H
CJNE R3,#0,JIA
AJMP RETURN

JIA: CLR C
MOV A,36H
ADDC A,#56H
DA A
MOV 36H,A


MOV A,35H
ADDC A,#02H
DA A
MOV 35H,A

MOV A,34H
ADDC A,#0
MOV 34H,A
DJNZ R3,JIA
RETURN:RET





UBCD: MOV A,34H
CJNE A,#00H,WUWEI
MOV R1,#35H
MOV R0,#36H
MOV A,#00H
XCHD A,@R0
MOV 30H,A
MOV A,@R0
SWAP A
MOV 31H,A
MOV A,#00H
XCHD A,@R1
MOV 32H,A
MOV A,@R1
SWAP A
ADD A,#10
MOV 33H,A
RET
WUWEI: MOV R1,#34H
MOV R0,#35H
MOV A,#00H
XCHD A,@R0
MOV 31H,A
MOV A,@R0
SWAP A
ADD A,#10
MOV 32H,A
MOV A,#00H
XCHD A,@R1
MOV 33H,A
MOV A,@R1
SWAP A
ANL 36H,#0F0H
MOV A,36H
SWAP A
MOV 30H,A

RET

XIANSHI:MOV DPTR,#TAB
MOV A,33H
MOVC A,@A+DPTR
MOV P0,A
MOV A,#0F7H
MOV P1,A
LCALL DELAY

MOV DPTR,#TAB
MOV A,32H
MOVC A,@A+DPTR
MOV P0,A
MOV A,#0FBH
MOV P1,A
LCALL DELAY

MOV DPTR,#TAB
MOV A,31H
MOVC A,@A+DPTR
MOV P0,A
MOV A,#0FDH
MOV P1,A
LCALL DELAY

MOV DPTR,#TAB
MOV A,30H
MOVC A,@A+DPTR
MOV P0,A
MOV A,#0FEH
MOV P1,A
LCALL DELAY
RET

int0: MOV 41H,TH0
MOV 40H,TL0
MOV TH0,#00H
MOV TL0,#00H
RETI

DELAY: MOV R7,#05H
DE: MOV R6,#0FFH
DJNZ R6,$
DJNZ R7,DE
RET






TAB:DB 3FH,05H,5BH,4FH,65H,6EH,7EH,07H,7FH,6FH
DB 0BFH,85H,0DBH,0CFH,0E5H,0EEH,0FEH,87H,0FFH,0EFH
end