89s51zichengxu.txt

这是一个单片机实用子程序集

RLC A 
MOV R3,A 
CLR C 
MOV A,R5 
SUBB A,R2 
JB F0,SQR7 
JC SQR8 
SQR7: MOV R5,A 
INC R3 
SQR8: CLR C 
MOV A,R5 
RLC A 
MOV R5,A 
MOV F0,C 
DJNZ R4,SQR6 ；根的第二字节计算完，在R3中 
MOV A,R7 ；取原被开方数的左规次数 
JZ SQRE ；未左规，开方结束 
SQR9: CLR C ；按左规次数右移平方根，得到实际根 
MOV A,R2 
RRC A 
MOV R2,A 
MOV A,R3 
RRC A 
MOV R3,A 
DJNZ R7,SQR9 
SQRE: RET 
　 
（１４） 标号： ＨＡＳＣ 功能：单字节十六进制数转换成双字节ASCII码 

入口条件：待转换的单字节十六进制数在累加器A中。 
出口信息：高四位的ASCII码在A中，低四位的ASCII码在B中。 
影响资源：PSW、A、B 堆栈需求： ４字节 
HASC: MOV B,A ；暂存待转换的单字节十六进制数 
LCALL HAS1 ；转换低四位 
XCH A,B ；存放低四位的ASCII码 
SWAP A ；准备转换高四位 
HAS1: ANL A,#0FH ；将累加器的低四位转换成ASCII码 
ADD A,#90H 
DA A 
ADDC A,#40H 
DA A 
RET 
　 
（１５） 标号： ＡＳＣＨ 功能：ASCII码转换成十六进制数 

入口条件：待转换的ASCII码（30H～39H或41H～46H）在A中。 
出口信息：转换后的十六进制数（00H～0FH）仍在累加器A中。 
影响资源：PSW、A 堆栈需求： ２字节 
ASCH: CLR C 
SUBB A,#30H 
JNB ACC.4,ASH1 
SUBB A,#7 
ASH1: RET 
　 
（１６） 标号：ＨＢＣＤ 功能：单字节十六进制整数转换成单字节ＢＣＤ码整数 

入口条件：待转换的单字节十六进制整数在累加器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 ；初始化累加和