APEARLIU 

 
送你一个A51的：;************************************************************************
;双字节HEX转换为三位压缩BCD
;入口(R2R3)为双字节的 HEX
;转换结果存放在 (R4R5R6)中
hex2_bcd3:
        CLR     A
        MOV     R4,A
        MOV     R5,A
        MOV     R6,A
        MOV     R7,#10H
LOOPHB: CLR     C
        MOV     A,R3
        RLC     A
        MOV     R3,A
        MOV     A,R2
        RLC     A
        MOV     R2,A
        MOV     A,R6
        ADDC    A,R6
        DA      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
        DJNZ    R7,LOOPHB
        RET
;**********************************

发表时间:2003年5月26日13:11:09