MCS-51单片机实用子程序库2 下载本文

入口条件:待转换的单字节十六进制整数在累加器A中。

出口信息:转换后的BCD码整数(十位和个位)仍在累加器A中,百位在R3中。 影响资源:PSW、A、B、R3 堆栈需求: 2字节 HBCD: MOV B,#100 ;分离出百位,存放在R3中 DIV AB MOV R3,A

MOV A,#10 ;余数继续分离十位和个位 XCH A,B DIV AB SWAP A

ORL A,B ;将十位和个位拼装成BCD码 RET

(17) 标号: HB2 功能:双字节十六进制整数转换成双字节BCD码整数 入口条件:待转换的双字节十六进制整数在R6、R7中。 出口信息:转换后的三字节BCD码整数在R3、R4、R5中。 影响资源:PSW、A、R2~R7 堆栈需求: 2字节 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

(18) 标号: HBD 功能:单字节十六进制小数转换成单字节BCD码小数

入口条件:待转换的单字节十六进制小数在累加器A中。

出口信息:CY=0时转换后的BCD码小数仍在A中。CY=1时原小数接近整数1。 影响资源:PSW、A、B 堆栈需求: 2字节 HBD: MOV B,#100 ;原小数扩大一百倍 MUL AB

RLC A ;余数部分四舍五入 CLR A ADDC A,B

MOV B,#10 ;分离出十分位和百分位 DIV AB SWAP A

ADD A,B ;拼装成单字节BCD码小数 DA A ;调整后若有进位,原小数接近整数1 RET

(19) 标号: HBD2 功能:双字节十六进制小数转换成双字节BCD码小数 入口条件:待转换的双字节十六进制小数在R2、R3中。 出口信息:转换后的双字节BCD码小数仍在R2、R3中。 影响资源:PSW、A、B、R2、R3、R4、R5 堆栈需求: 6字节 HBD2: MOV R4,#4 ;四位十进制码 HBD3: MOV A,R3 ;原小数扩大十倍 MOV B,#10 MUL AB MOV R3,A MOV R5,B MOV A,R2 MOV B,#10 MUL AB ADD A,R5 MOV R2,A CLR A ADDC A,B

PUSH ACC ;保存溢出的一位十进制码 DJNZ R4,HBD3 ;计算完四位十进制码 POP ACC ;取出万分位 MOV R3,A

POP ACC ;取出千分位 SWAP A

ORL A,R3 ;拼装成低字节BCD码小数 MOV R3,A

POP ACC ;取出百分位 MOV R2,A

POP ACC ;取出十分位 SWAP A

ORL A,R2 ;拼装成高字节BCD码小数 MOV R2,A RET

(20)标号:BCDH 功能:单字节BCD码整数转换成单字节十六进制整数 入口条件:待转换的单字节BCD码整数在累加器A中。 出口信息:转换后的单字节十六进制整数仍在累加器A中。 影响资源:PSW、A、B、R4 堆栈需求: 2字节 BCDH: MOV B,#10H ;分离十位和个位 DIV AB

MOV R4,B ;暂存个位

MOV B,#10 ;将十位转换成十六进制 MUL AB

ADD A,R4 ;按十六进制加上个位 RET

(21)标号: BH2 功能:双字节BCD码整数转换成双字节十六进制整数 入口条件:待转换的双字节BCD码整数在R2、R3中。 出口信息:转换后的双字节十六进制整数仍在R2、R3中。 影响资源:PSW、A、B、R2、R3、R4 堆栈需求: 4字节 BH2: MOV A,R3 ;将低字节转换成十六进制 LCALL BCDH MOV R3,A

MOV A,R2 ;将高字节转换成十六进制 LCALL BCDH

MOV B,#100 ;扩大一百倍 MUL AB

ADD A,R3 ;和低字节按十六进制相加 MOV R3,A CLR A ADDC A,B MOV R2,A RET

(22)标号: BHD 功能:单字节BCD码小数转换成单字节十六进制小数 入口条件:待转换的单字节BCD码数在累加器A中。 出口信息:转换后的单字节十六进制小数仍在累加器A中。 影响资源:PSW、A、R2、R3 堆栈需求: 2字节 BHD: MOV R2,#8 ;准备计算一个字节小数 BHD0: ADD A,ACC ;按十进制倍增 DA A XCH A,R3

RLC A ;将进位标志移入结果中 XCH A,R3

DJNZ R2,BHD0 ;共计算8bit小数 ADD A,#0B0H ;剩余部分达到0.50否? JNC BHD1 ;四舍 INC R3 ;五入

BHD1: MOV A,R3 ;取结果 RET