MCS-51子程序库（二）

（１６） 标号：ＨＢＣＤ功能：单字节十六进制整数转换成单字节ＢＣＤ码整数

入口条件：待转换的单字节十六进制整数在累加器A中。
出口信息：转换后的ＢＣＤ码整数（十位和个位）仍在累加器A中，百位在R3中。
影响资源：PSW、A、B、R3 堆栈需求： ２字节

HBCD: MOV B,#100 ；分离出百位，存放在R3中
DIV AB
MOV R3,A
MOV A,#10 ；余数继续分离十位和个位
XCH A,B
DIV AB
SWAP A
ORL A,B ；将十位和个位拼装成ＢＣＤ码
RET

（１７） 标号： ＨＢ２功能：双字节十六进制整数转换成双字节ＢＣＤ码整数

入口条件：待转换的双字节十六进制整数在R6、R7中。
出口信息：转换后的三字节ＢＣＤ码整数在R3、R4、R5中。
影响资源：PSW、A、R2～R7 堆栈需求： ２字节

HB2: CLR A ；ＢＣＤ码初始化
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 ；ＢＣＤ码带进位自身相加，相当于乘２
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 ；双字节十六进制数的万位数不超过６，不用调整
DJNZ R2,HB3 ；处理完１６ｂｉｔ
RET

（１８） 标号： ＨＢＤ功能：单字节十六进制小数转换成单字节ＢＣＤ码小数

入口条件：待转换的单字节十六进制小数在累加器A中。
出口信息：CY=0时转换后的ＢＣＤ码小数仍在A中。CY=1时原小数接近整数１。
影响资源：PSW、A、B 堆栈需求： ２字节

HBD: MOV B,#100 ；原小数扩大一百倍
MUL AB
RLC A ；余数部分四舍五入
CLR A
ADDC A,B
MOV B,#10 ；分离出十分位和百分位
DIV AB
SWAP A
ADD A,B ；拼装成单字节ＢＣＤ码小数
DA A ；调整后若有进位，原小数接近整数１
RET

（１９） 标号： ＨＢＤ２功能：双字节十六进制小数转换成双字节ＢＣＤ码小数

入口条件：待转换的双字节十六进制小数在R2、R3中。
出口信息：转换后的双字节ＢＣＤ码小数仍在R2、R3中。
影响资源：PSW、A、B、R2、R3、R4、R5 堆栈需求：６字节

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 ；拼装成低字节ＢＣＤ码小数
MOV R3,A
POP ACC ；取出百分位
MOV R2,A
POP ACC ；取出十分位
SWAP A
ORL A,R2 ；拼装成高字节ＢＣＤ码小数
MOV R2,A
RET
（２０）标号：ＢＣＤＨ功能：单字节ＢＣＤ码整数转换成单字节十六进制整数

入口条件：待转换的单字节ＢＣＤ码整数在累加器A中。
出口信息：转换后的单字节十六进制整数仍在累加器A中。
影响资源：PSW、A、B、R4 堆栈需求： ２字节

BCDH: MOV B,#10H ；分离十位和个位
DIV AB
MOV R4,B ；暂存个位
MOV B,#10 ；将十位转换成十六进制
MUL AB
ADD A,R4 ；按十六进制加上个位
RET

（２１）标号： ＢＨ２功能：双字节ＢＣＤ码整数转换成双字节十六进制整数

入口条件：待转换的双字节ＢＣＤ码整数在R2、R3中。
出口信息：转换后的双字节十六进制整数仍在R2、R3中。
影响资源：PSW、A、B、R2、R3、R4 堆栈需求：４字节

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

（２２）标号： ＢＨＤ功能：单字节ＢＣＤ码小数转换成单字节十六进制小数

入口条件：待转换的单字节ＢＣＤ码数在累加器A中。
出口信息：转换后的单字节十六进制小数仍在累加器A中。
影响资源：PSW、A、R2、R3 堆栈需求： ２字节

BHD: MOV R2,#8 ；准备计算一个字节小数
BHD0: ADD A,ACC ；按十进制倍增
DA A
XCH A,R3
RLC A ；将进位标志移入结果中
XCH A,R3
DJNZ R2,BHD0 ；共计算８ｂｉｔ小数
ADD A,#0B0H ；剩余部分达到０．５０否？
JNC BHD1 ；四舍
INC R3 ；五入
BHD1: MOV A,R3 ；取结果
RET

（２３）标号： ＢＨＤ２功能：双字节ＢＣＤ码小数转换成双字节十六进制小数

入口条件：待转换的双字节ＢＣＤ码小数在R4、R5中。
出口信息：转换后的双字节十六进制小数在R2、R3中。*
影响资源：PSW、A、R2～R6 堆栈需求： ２字节

BHD2: MOV R6,#10H ；准备计算两个字节小数
BHD3: MOV A,R5 ；按十进制倍增
ADD A,R5
DA A
MOV R5,A
MOV A,R4
ADDC A,R4
DA A
MOV R4,A
MOV A,R3 ；将进位标志移入结果中
RLC A
MOV R3,A
MOV A,R2
RLC A
MOV R2,A
DJNZ R6,BHD3 ；共计算１６ｂｉｔ小数
MOV A,R4
ADD A,#0B0H ；剩余部分达到０．５０否？
JNC BHD4 ；四舍
INC R3 ；五入
MOV A,R3
JNZ BHD4
INC R2
BHD4: RET
（２４） 标号： ＭＭ功能：求单字节十六进制无符号数据块的极值

入口条件：数据块的首址在DPTR中，数据个数在R7中。
出口信息：最大值在R6中，地址在R2R3中；最小值在R7中，地址在R4R5中。
影响资源：PSW、A、B、R1～R7 堆栈需求： ４字节

MM: MOV B,R7 ；保存数据个数
MOVX A,@DPTR ；读取第一个数据
MOV R6,A ；作为最大值的初始值
MOV R7,A ；也作为最小值的初始值
MOV A,DPL ；取第一个数据的地址
MOV R3,A ；作为最大值存放地址的初始值
MOV R5,A ；也作为最小值存放地址的初始值
MOV A,DPH
MOV R2,A
MOV R4,A
MOV A,B ；取数据个数
DEC A ；减一，得到需要比较的次数
JZ MME ；只有一个数据，不需要比较
MOV R1,A ；保存比较次数
PUSH DPL ；保护数据块的首址
PUSH DPH
MM1: INC DPTR ；指向一个新的数据
MOVX A,@DPTR ；读取这个数据
MOV B,A ；保存
SETB C ；与最大值比较
SUBB A,R6
JC MM2 ；不超过当前最大值，保持当前最大值
MOV R6,B ；超过当前最大值，更新最大值存放地址
MOV R2,DPH ；同时更新最大值存放地址
MOV R3,DPL
SJMP MM3
MM2: MOV A,B ；与最小值比较
CLR C
SUBB A,R7
JNC MM3 ；大于或等于当前最小值，保持当前最小值
MOV R7,B ；更新最小值
MOV R4,DPH ；更新最小值存放地址
MOV R5,DPL
MM3: DJNZ R1,MM1 ；处理完全部数据
POP DPH ；恢复数据首址
POP DPL
MME: RET

（２５） 标号： ＭＭＳ功能：求单字节十六进制有符号数据块的极值

入口条件：数据块的首址在DPTR中，数据个数在R7中。
出口信息：最大值在R6中， 地址在R2R3中；最小值在R7中，地址在R4R5中。
影响资源：PSW、A、B、R1～R7 堆栈需求： ４字节

MMS: MOV B,R7 ；保存数据个数
MOVX A,@DPTR ；读取第一个数据
MOV R6,A ；作为最大值的初始值
MOV R7,A ；也作为最小值的初始值
MOV A,DPL ；取第一个数据的地址
MOV R3,A ；作为最大值存放地址的初始值
MOV R5,A ；也作为最小值存放地址的初始值
MOV A,DPH
MOV R2,A
MOV R4,A
MOV A,B ；取数据个数
DEC A ；减一，得到需要比较的次数
JZ MMSE ；只有一个数据，不需要比较
MOV R1,A ；保存比较次数
PUSH DPL ；保护数据块的首址
PUSH DPH
MMS1: INC DPTR ；调整数据指针
MOVX A,@DPTR ；读取一个数据
MOV B,A ；保存
SETB C ；与最大值比较
SUBB A,R6
JZ MMS4 ；相同，不更新最大值
JNB OV,MMS2 ；差未溢出，符号位有效
CPL ACC.7 ；差溢出，符号位取反
MMS2: JB ACC.7,MMS4；差为负，不更新最大值
MOV R6,B ；更新最大值
MOV R2,DPH ；更新最大值存放地址
MOV R3,DPL
SJMP MMS7
MMS4: MOV A,B ；与最小值比较
CLR C
SUBB A,R7
JNB OV,MMS6 ；差未溢出，符号位有效
CPL ACC.7 ；差溢出，符号位取反
MMS6: JNB ACC.7,MMS7；差为正，不更新最小值
MOV R7,B ；更新最小值
MOV R4,DPH ；更新最小值存放地址
MOV R5,DPL
MMS7: DJNZ R1,MMS1 ；处理完全部数据
POP DPH ；恢复数据首址
POP DPL
MMSE: RET
（２６） 标号： ＦＤＳ１功能：顺序查找（ＲＯＭ）单字节表格

入口条件：待查找的内容在A中，表格首址在DPTR中，表格的字节数在R7中。
出口信息：OV=0时，顺序号在累加器A中；OV=1时，未找到。
影响资源：PSW、A、B、R2、R6 堆栈需求： ２字节

FDS1: MOV B,A ；保存待查找的内容
MOV R2,#0 ；顺序号初始化（指向表首）
MOV A,R7 ；保存表格的长度
MOV R6,A
FD11: MOV A,R2 ；按顺序号读取表格内容
MOVC A,@A+DPTR
CJNE A,B,FD12；与待查找的内容比较
CLR OV ；相同，查找成功
MOV A,R2 ；取对应的顺序号
RET
FD12: INC R2 ；指向表格中的下一个内容
DJNZ R6,FD11 ；查完全部表格内容
SETB OV ；未查找到，失败
RET

（２７） 标号： ＦＤＳ２功能：顺序查找（ＲＯＭ）双字节表格

入口条件：查找内容在R4、R5中，表格首址在DPTR中，数据总个数在R7中。
出口信息：OV=0时顺序号在累加器A中，地址在DPTR中；OV=1时未找到。
影响资源：PSW、A、R2、R6、DPTR 堆栈需求： ２字节

FDS2: MOV A,R7 ；保存表格中数据的个数
MOV R6,A
MOV R2,#0 ；顺序号初始化（指向表首）
FD21: CLR A ；读取表格内容的高字节
MOVC A,@A+DPTR
XRL A,R4 ；与待查找内容的高字节比较
JNZ FD22
MOV A,#1 ；读取表格内容的低字节
MOVC A,@A+DPTR
XRL A,R5 ；与待查找内容的低字节比较
JNZ FD22
CLR OV ；相同，查找成功
MOV A,R2 ；取对应的顺序号
RET
FD22: INC DPTR ；指向下一个数据
INC DPTR
INC R2 ；顺序号加一
DJNZ R6,FD21 ；查完全部数据
SETB OV ；未查找到，失败
RET

（２８） 标号：ＦＤＤ１功能：对分查找（ＲＯＭ）单字节无符号增序数据表格

入口条件：待查找的内容在累加器A中，表格首址在DPTR中，字节数在R7中。
出口信息：OV=0 时，顺序号在累加器A中；OV=1 时，未找到。
影响资源：PSW、A、B、R2、R3、R4 堆栈需求：２字节

FDD1: MOV B,A ；保存待查找的内容
MOV R2,#0 ；区间低端指针初始化（指向第一个数据）
MOV A,R7
DEC A
MOV R3,A ；区间高端指针初始化（指向最后一个数据）
FD61: CLR C ；判断区间大小
MOV A,R3
SUBB A,R2
JC FD69 ；区间消失，查找失败
RRC A ；取区间大小的一半
ADD A,R2 ；加上区间的低端
MOV R4,A ；得到区间的中心
MOVC A,@A+DPTR；读取该点的内容
CJNE A,B,FD65；与待查找的内容比较
CLR OV ；相同，查找成功
MOV A,R4 ；取顺序号
RET
FD65: JC FD68 ；该点的内容比待查找的内容大否？
MOV A,R4 ；偏大，取该点位置
DEC A ；减一
MOV R3,A ；作为新的区间高端
SJMP FD61 ；继续查找
FD68: MOV A,R4 ；偏小，取该点位置
INC A ；加一
MOV R2,A ；作为新的区间低端
SJMP FD61 ；继续查找
FD69: SETB OV ；查找失败
RET
（２９） 标号：ＦＤＤ２功能：对分查找（ＲＯＭ）双字节无符号增序数据表格

入口条件：查找内容在R4、R5中，表格首址在DPTR中，数据个数在R7中。
出口信息：OV=0 时顺序号在累加器A中，址在DPTR中；OV=1 时未找到。
影响资源：PSW、A、B、R1～R7、DPTR 堆栈需求：２字节

FDD2: MOV R2,#0 ；区间低端指针初始化（指向第一个数据）
MOV A,R7
DEC A
MOV R3,A ；区间高端指针初始化，指向最后一个数据
MOV R6,DPH ；保存表格首址
MOV R7,DPL
FD81: CLR C ；判断区间大小
MOV A,R3
SUBB A,R2
JC FD89 ；区间消失，查找失败
RRC A ；取区间大小的一半
ADD A,R2 ；加上区间的低端
MOV R1,A ；得到区间的中心
MOV DPH,R6
CLR C ；计算区间中心的地址
RLC A
JNC FD82
INC DPH
FD82: ADD A,R7
MOV DPL,A
JNC FD83
INC DPH
FD83: CLR A ；读取该点的内容的高字节
MOVC A,@A+DPTR
MOV B,R4 ；与待查找内容的高字节比较
CJNE A,B,FD84；不相同
MOV A,#1 ；读取该点的内容的低字节
MOVC A,@A+DPTR
MOV B,R5
CJNE A,B,FD84；与待查找内容的低字节比较
MOV A,R1 ；取顺序号
CLR OV ；查找成功
RET
FD84: JC FD86 ；该点的内容比待查找的内容大否？
MOV A,R1 ；偏大，取该点位置
DEC A ；减一
MOV R3,A ；作为新的区间高端
SJMP FD81 ；继续查找
FD86: MOV A,R1 ；偏小，取该点位置
INC A ；加一
MOV R2,A ；作为新的区间低端
SJMP FD81 ；继续查找
FD89: MOV DPH,R6 ；相同，恢复首址
MOV DPL,R7
SETB OV ；查找失败
RET


（３０） 标号： ＤＤＭ１功能：求单字节十六进制无符号数据块的平均值

入口条件：数据块的首址在DPTR中，数据个数在R7中。
出口信息：平均值在累加器A中。
影响资源：PSW、A、R2～R6 堆栈需求： ４字节

DDM1: MOV A,R7 ；保存数据个数
MOV R2,A
PUSH DPH
PUSH DPL
CLR A ；初始化累加和
MOV R4,A
MOV R5,A
DM11: MOVX A,@DPTR ；读取一个数据
ADD A,R5 ；累加到累加和中
MOV R5,A
JNC DM12
INC R4
DM12: INC DPTR ；调整指针
DJNZ R2,DM11 ；累加完全部数据
LCALL D457 ；求平均值（R4R5／R7－→R3）
MOV A,R3 ；取平均值
POP DPL
POP DPH
RET

（３１） 标号： ＤＤＭ２功能：求双字节十六进制无符号数据块的平均值

入口条件：数据块的首址在DPTR中，双字节数据总个数在R7中。
出口信息：平均值在R4、R5中。
影响资源：PSW、A、R2～R6 堆栈需求： ４字节

DDM2: MOV A,R7 ；保存数据个数
MOV R2,A ；初始化数据指针
PUSH DPL ；保持首址
PUSH DPH
CLR A ；初始化累加和
MOV R3,A
MOV R4,A
MOV R5,A
DM20: MOVX A,@DPTR ；读取一个数据的高字节
MOV B,A
INC DPTR
MOVX A,@DPTR ；读取一个数据的低字节
INC DPTR
ADD A,R5 ；累加到累加和中
MOV R5,A
MOV A,B
ADDC A,R4
MOV R4,A
JNC DM21
INC R3
DM21: DJNZ R2,DM20 ；累加完全部数据
POP DPH ；恢复首址
POP DPL
LJMP DV31 ；求R3R4R5／R7－→R4R5，得到平均值

（３２） 标号： ＸＲ１功能：求单字节数据块的（异或）校验和

入口条件：数据块的首址在DPTR中，数据的个数在R6、R7中。
出口信息：校验和在累加器A中。
影响资源：PSW、A、B、R4～R7 堆栈需求： ２字节

XR1: MOV R4,DPH ；保存数据块的首址
MOV R5,DPL
MOV A,R7 ；双字节计数器调整
JZ XR10
INC R6
XR10: MOV B,#0 ；校验和初始化
XR11: MOVX A,@DPTR ；读取一个数据
XRL B,A ；异或运算
INC DPTR ；指向下一个数据
DJNZ R7,XR11 ；双字节计数器减一
DJNZ R6,XR11
MOV DPH,R4 ；恢复数据首址
MOV DPL,R5
MOV A,B ；取校验和
RET

（３３） 标号： ＸＲ２功能：求双字节数据块的（异或）校验和

入口条件：数据块的首址在DPTR中，双字节数据总个数在R6、R7中。
出口信息：校验和在R2、R3中。
影响资源：PSW、A、R2～R7 堆栈需求： ２字节

XR2: MOV R4,DPH ；保存数据块的首址
MOV R5,DPL
MOV A,R7 ；双字节计数器调整
JZ XR20
INC R6
XR20: CLR A ；校验和初始化
MOV R2,A
MOV R3,A
XR21: MOVX A,@DPTR ；读取一个数据的高字节
XRL A,R2 ；异或运算
MOV R2,A
INC DPTR
MOVX A,@DPTR ；读取一个数据的低字节
XRL A,R3 ；异或运算
MOV R3,A
INC DPTR ；指向下一个数据
DJNZ R7,XR21 ；双字节计数器减一
DJNZ R6,XR21
MOV DPH,R4 ；恢复数据首址
MOV DPL,R5
RET

（３４） 标号： ＳＯＲＴ功能：单字节无符号数据块排序（增序）

入口条件：数据块的首址在R0中，字节数在R7中。
出口信息：完成排序（增序）
影响资源：PSW、A、R2～R6 堆栈需求： ２字节

SORT: MOV A,R7
MOV R5,A ；比较次数初始化
SRT1: CLR F0 ；交换标志初始化
MOV A,R5 ；取上遍比较次数
DEC A ；本遍比上遍减少一次
MOV R5,A ；保存本遍次数
MOV R2,A ；复制到计数器中
JZ SRT5 ；若为零，排序结束
MOV A,R0 ；保存数据指针
MOV R6,A
SRT2: MOV A,@R0 ；读取一个数据
MOV R3,A
INC R0 ；指向下一个数据
MOV A,@R0 ；再读取一个数据
MOV R4,A
CLR C
SUBB A,R3 ；比较两个数据的大小
JNC SRT4 ；顺序正确（增序或相同），不必交换
SETB F0 ；设立交换标志
MOV A,R3 ；将两个数据交换位置
MOV @R0,A
DEC R0
MOV A,R4
MOV @R0,A
INC R0 ；指向下一个数据
SRT4: DJNZ R2,SRT2 ；完成本遍的比较次数
MOV A,R6 ；恢复数据首址
MOV R0,A
JB F0,SRT1 ；本遍若进行过交换，则需继续排序
SRT5: RET ；排序结束
END