BCDCHG:
MOV R7,A
MOV R6,B
LCALL HB2
MOV A,R5
ANL A,#0FH
MOV 60H,A
MOV A,R5
SWAP A
ANL A,#0FH
MOV 61H,A
MOV A,R4
ANL A,#0FH
MOV 62H,A
MOV A,R4
SWAP A
ANL A,#0FH
MOV 63H,A
RET
HB2:
CLR A ;BCD码初始化
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 ;BCD码带进位自身相加,相当于乘2
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 ;双字节十六进制数的万位数不超过6,不用调整
DJNZ R2,HB3 ;处理完16bit
RET