５１单片机实用子程序库.htm

51 single slice the practical procedure database of the machine, can let the raw recruit convenient

DPL<BR>MME: RET<BR><BR>（２５） 标号： 
ＭＭＳ功能：求单字节十六进制有符号数据块的极值<BR><BR>入口条件：数据块的首址在DPTR中，数据个数在R7中。<BR>出口信息：最大值在R6中， 
地址在R2R3中；最小值在R7中，地址在R4R5中。<BR>影响资源：PSW、A、B、R1～R7 堆栈需求： ４字节<BR><BR>MMS: MOV B,R7 
；保存数据个数<BR>MOVX A,@DPTR ；读取第一个数据<BR>MOV R6,A ；作为最大值的初始值<BR>MOV R7,A 
；也作为最小值的初始值<BR>MOV A,DPL ；取第一个数据的地址<BR>MOV R3,A ；作为最大值存放地址的初始值<BR>MOV R5,A 
；也作为最小值存放地址的初始值<BR>MOV A,DPH<BR>MOV R2,A<BR>MOV R4,A<BR>MOV A,B ；取数据个数<BR>DEC A 
；减一，得到需要比较的次数<BR>JZ MMSE ；只有一个数据，不需要比较<BR>MOV R1,A ；保存比较次数<BR>PUSH DPL 
；保护数据块的首址<BR>PUSH DPH<BR>MMS1: INC DPTR ；调整数据指针<BR>MOVX A,@DPTR ；读取一个数据<BR>MOV 
B,A ；保存<BR>SETB C ；与最大值比较<BR>SUBB A,R6<BR>JZ MMS4 ；相同，不更新最大值<BR>JNB OV,MMS2 
；差未溢出，符号位有效<BR>CPL ACC.7 ；差溢出，符号位取反<BR>MMS2: JB ACC.7,MMS4；差为负，不更新最大值<BR>MOV 
R6,B ；更新最大值<BR>MOV R2,DPH ；更新最大值存放地址<BR>MOV R3,DPL<BR>SJMP MMS7<BR>MMS4: MOV A,B 
；与最小值比较<BR>CLR C<BR>SUBB A,R7<BR>JNB OV,MMS6 ；差未溢出，符号位有效<BR>CPL ACC.7 
；差溢出，符号位取反<BR>MMS6: JNB ACC.7,MMS7；差为正，不更新最小值<BR>MOV R7,B ；更新最小值<BR>MOV R4,DPH 
；更新最小值存放地址<BR>MOV R5,DPL<BR>MMS7: DJNZ R1,MMS1 ；处理完全部数据<BR>POP DPH 
；恢复数据首址<BR>POP DPL<BR>MMSE: RET <BR>（２６） 标号： 
ＦＤＳ１功能：顺序查找（ＲＯＭ）单字节表格<BR><BR>入口条件：待查找的内容在A中，表格首址在DPTR中，表格的字节数在R7中。<BR>出口信息：OV=0时，顺序号在累加器A中；OV=1时，未找到。<BR>影响资源：PSW、A、B、R2、R6 
堆栈需求： ２字节<BR><BR>FDS1: MOV B,A ；保存待查找的内容<BR>MOV R2,#0 ；顺序号初始化（指向表首）<BR>MOV A,R7 
；保存表格的长度<BR>MOV R6,A<BR>FD11: MOV A,R2 ；按顺序号读取表格内容<BR>MOVC A,@A+DPTR<BR>CJNE 
A,B,FD12；与待查找的内容比较<BR>CLR OV ；相同，查找成功<BR>MOV A,R2 ；取对应的顺序号<BR>RET <BR>FD12: INC 
R2 ；指向表格中的下一个内容<BR>DJNZ R6,FD11 ；查完全部表格内容<BR>SETB OV ；未查找到，失败<BR>RET<BR><BR>（２７） 
标号： 
ＦＤＳ２功能：顺序查找（ＲＯＭ）双字节表格<BR><BR>入口条件：查找内容在R4、R5中，表格首址在DPTR中，数据总个数在R7中。<BR>出口信息：OV=0时顺序号在累加器A中，地址在DPTR中；OV=1时未找到。<BR>影响资源：PSW、A、R2、R6、DPTR 
堆栈需求： ２字节<BR><BR>FDS2: MOV A,R7 ；保存表格中数据的个数<BR>MOV R6,A<BR>MOV R2,#0 
；顺序号初始化（指向表首）<BR>FD21: CLR A ；读取表格内容的高字节<BR>MOVC A,@A+DPTR<BR>XRL A,R4 
；与待查找内容的高字节比较<BR>JNZ FD22<BR>MOV A,#1 ；读取表格内容的低字节<BR>MOVC A,@A+DPTR<BR>XRL A,R5 
；与待查找内容的低字节比较<BR>JNZ FD22<BR>CLR OV ；相同，查找成功<BR>MOV A,R2 ；取对应的顺序号<BR>RET 
<BR>FD22: INC DPTR ；指向下一个数据<BR>INC DPTR<BR>INC R2 ；顺序号加一<BR>DJNZ R6,FD21 
；查完全部数据<BR>SETB OV ；未查找到，失败<BR>RET<BR><BR>（２８） 
标号：ＦＤＤ１功能：对分查找（ＲＯＭ）单字节无符号增序数据表格<BR><BR>入口条件：待查找的内容在累加器A中，表格首址在DPTR中，字节数在R7中。<BR>出口信息：OV=0 
时，顺序号在累加器A中；OV=1 时，未找到。<BR>影响资源：PSW、A、B、R2、R3、R4 堆栈需求：２字节<BR><BR>FDD1: MOV B,A 
；保存待查找的内容<BR>MOV R2,#0 ；区间低端指针初始化（指向第一个数据）<BR>MOV A,R7<BR>DEC A<BR>MOV R3,A 
；区间高端指针初始化（指向最后一个数据）<BR>FD61: CLR C ；判断区间大小<BR>MOV A,R3<BR>SUBB A,R2<BR>JC FD69 
；区间消失，查找失败<BR>RRC A ；取区间大小的一半<BR>ADD A,R2 ；加上区间的低端<BR>MOV R4,A ；得到区间的中心<BR>MOVC 
A,@A+DPTR；读取该点的内容<BR>CJNE A,B,FD65；与待查找的内容比较<BR>CLR OV ；相同，查找成功<BR>MOV A,R4 
；取顺序号<BR>RET <BR>FD65: JC FD68 ；该点的内容比待查找的内容大否？<BR>MOV A,R4 ；偏大，取该点位置<BR>DEC A 
；减一<BR>MOV R3,A ；作为新的区间高端<BR>SJMP FD61 ；继续查找<BR>FD68: MOV A,R4 ；偏小，取该点位置<BR>INC 
A ；加一<BR>MOV R2,A ；作为新的区间低端<BR>SJMP FD61 ；继续查找<BR>FD69: SETB OV 
；查找失败<BR>RET<BR>（２９） 
标号：ＦＤＤ２功能：对分查找（ＲＯＭ）双字节无符号增序数据表格<BR><BR>入口条件：查找内容在R4、R5中，表格首址在DPTR中，数据个数在R7中。<BR>出口信息：OV=0 
时顺序号在累加器A中，址在DPTR中；OV=1 时未找到。<BR>影响资源：PSW、A、B、R1～R7、DPTR 堆栈需求：２字节<BR><BR>FDD2: 
MOV R2,#0 ；区间低端指针初始化（指向第一个数据）<BR>MOV A,R7<BR>DEC A<BR>MOV R3,A 
；区间高端指针初始化，指向最后一个数据<BR>MOV R6,DPH ；保存表格首址<BR>MOV R7,DPL<BR>FD81: CLR C 
；判断区间大小<BR>MOV A,R3<BR>SUBB A,R2<BR>JC FD89 ；区间消失，查找失败<BR>RRC A ；取区间大小的一半<BR>ADD 
A,R2 ；加上区间的低端<BR>MOV R1,A ；得到区间的中心<BR>MOV DPH,R6<BR>CLR C ；计算区间中心的地址<BR>RLC 
A<BR>JNC FD82<BR>INC DPH<BR>FD82: ADD A,R7<BR>MOV DPL,A<BR>JNC FD83<BR>INC 
DPH<BR>FD83: CLR A ；读取该点的内容的高字节<BR>MOVC A,@A+DPTR<BR>MOV B,R4 
；与待查找内容的高字节比较<BR>CJNE A,B,FD84；不相同<BR>MOV A,#1 ；读取该点的内容的低字节<BR>MOVC 
A,@A+DPTR<BR>MOV B,R5<BR>CJNE A,B,FD84；与待查找内容的低字节比较<BR>MOV A,R1 ；取顺序号<BR>CLR OV 
；查找成功<BR>RET<BR>FD84: JC FD86 ；该点的内容比待查找的内容大否？<BR>MOV A,R1 ；偏大，取该点位置<BR>DEC A 
；减一<BR>MOV R3,A ；作为新的区间高端<BR>SJMP FD81 ；继续查找<BR>FD86: MOV A,R1 ；偏小，取该点位置<BR>INC 
A ；加一<BR>MOV R2,A ；作为新的区间低端<BR>SJMP FD81 ；继续查找<BR>FD89: MOV DPH,R6 
；相同，恢复首址<BR>MOV DPL,R7<BR>SETB OV ；查找失败<BR>RET<BR><BR><BR>（３０） 标号： 
ＤＤＭ１功能：求单字节十六进制无符号数据块的平均值<BR><BR>入口条件：数据块的首址在DPTR中，数据个数在R7中。<BR>出口信息：平均值在累加器A中。<BR>影响资源：PSW、A、R2～R6 
堆栈需求： ４字节<BR><BR>DDM1: MOV A,R7 ；保存数据个数<BR>MOV R2,A<BR>PUSH DPH<BR>PUSH 
DPL<BR>CLR A ；初始化累加和<BR>MOV R4,A<BR>MOV R5,A<BR>DM11: MOVX A,@DPTR 
；读取一个数据<BR>ADD A,R5 ；累加到累加和中<BR>MOV R5,A<BR>JNC DM12<BR>INC R4<BR>DM12: INC DPTR 
；调整指针<BR>DJNZ R2,DM11 ；累加完全部数据<BR>LCALL D457 ；求平均值（R4R5／R7－→R3）<BR>MOV A,R3 
；取平均值<BR>POP DPL<BR>POP DPH<BR>RET<BR><BR>（３１） 标号： 
ＤＤＭ２功能：求双字节十六进制无符号数据块的平均值<BR><BR>入口条件：数据块的首址在DPTR中，双字节数据总个数在R7中。<BR>出口信息：平均值在R4、R5中。<BR>影响资源：PSW、A、R2～R6 
堆栈需求： ４字节<BR><BR>DDM2: MOV A,R7 ；保存数据个数<BR>MOV R2,A ；初始化数据指针<BR>PUSH DPL 
；保持首址<BR>PUSH DPH<BR>CLR A ；初始化累加和<BR>MOV R3,A<BR>MOV R4,A<BR>MOV R5,A<BR>DM20: 
MOVX A,@DPTR ；读取一个数据的高字节<BR>MOV B,A<BR>INC DPTR<BR>MOVX A,@DPTR 
；读取一个数据的低字节<BR>INC DPTR<BR>ADD A,R5 ；累加到累加和中<BR>MOV R5,A<BR>MOV A,B<BR>ADDC 
A,R4<BR>MOV R4,A<BR>JNC DM21<BR>INC R3<BR>DM21: DJNZ R2,DM20 ；累加完全部数据<BR>POP DPH 
；恢复首址<BR>POP DPL<BR>LJMP DV31 ；求R3R4R5／R7－→R4R5，得到平均值<BR><BR>（３２） 标号： 
ＸＲ１功能：求单字节数据块的（异或）校验和<BR><BR>入口条件：数据块的首址在DPTR中，数据的个数在R6、R7中。<BR>出口信息：校验和在累加器A中。<BR>影响资源：PSW、A、B、R4～R7 
堆栈需求： ２字节<BR><BR>XR1: MOV R4,DPH ；保存数据块的首址<BR>MOV R5,DPL<BR>MOV A,R7 
；双字节计数器调整<BR>JZ XR10<BR>INC R6<BR>XR10: MOV B,#0 ；校验和初始化<BR>XR11: MOVX A,@DPTR 
；读取一个数据<BR>XRL B,A ；异或运算<BR>INC DPTR ；指向下一个数据<BR>DJNZ R7,XR11 ；双字节计数器减一<BR>DJNZ 
R6,XR11<BR>MOV DPH,R4 ；恢复数据首址<BR>MOV DPL,R5<BR>MOV A,B ；取校验和<BR>RET<BR><BR>（３３） 
标号： 
ＸＲ２功能：求双字节数据块的（异或）校验和<BR><BR>入口条件：数据块的首址在DPTR中，双字节数据总个数在R6、R7中。<BR>出口信息：校验和在R2、R3中。<BR>影响资源：PSW、A、R2～R7 
堆栈需求： ２字节<BR><BR>XR2: MOV R4,DPH ；保存数据块的首址<BR>MOV R5,DPL<BR>MOV A,R7 
；双字节计数器调整<BR>JZ XR20<BR>INC R6<BR>XR20: CLR A ；校验和初始化<BR>MOV R2,A<BR>MOV 
R3,A<BR>XR21: MOVX A,@DPTR ；读取一个数据的高字节<BR>XRL A,R2 ；异或运算<BR>MOV R2,A<BR>INC 
DPTR<BR>MOVX A,@DPTR ；读取一个数据的低字节<BR>XRL A,R3 ；异或运算<BR>MOV R3,A<BR>INC DPTR 
；指向下一个数据<BR>DJNZ R7,XR21 ；双字节计数器减一<BR>DJNZ R6,XR21<BR>MOV DPH,R4 ；恢复数据首址<BR>MOV 
DPL,R5<BR>RET<BR><BR>（３４） 标号： 
ＳＯＲＴ功能：单字节无符号数据块排序（增序）<BR><BR>入口条件：数据块的首址在R0中，字节数在R7中。<BR>出口信息：完成排序（增序）<BR>影响资源：PSW、A、R2～R6 
堆栈需求： ２字节<BR><BR>SORT: MOV A,R7<BR>MOV R5,A ；比较次数初始化<BR>SRT1: CLR F0 
；交换标志初始化<BR>MOV A,R5 ；取上遍比较次数<BR>DEC A ；本遍比上遍减少一次<BR>MOV R5,A ；保存本遍次数<BR>MOV 
R2,A ；复制到计数器中<BR>JZ SRT5 ；若为零，排序结束<BR>MOV A,R0 ；保存数据指针<BR>MOV R6,A<BR>SRT2: MOV 
A,@R0 ；读取一个数据<BR>MOV R3,A<BR>INC R0 ；指向下一个数据<BR>MOV A,@R0 ；再读取一个数据<BR>MOV 
R4,A<BR>CLR C<BR>SUBB A,R3 ；比较两个数据的大小<BR>JNC SRT4 ；顺序正确（增序或相同），不必交换<BR>SETB F0 
；设立交换标志<BR>MOV A,R3 ；将两个数据交换位置<BR>MOV @R0,A<BR>DEC R0<BR>MOV A,R4<BR>MOV 
@R0,A<BR>INC R0 ；指向下一个数据<BR>SRT4: DJNZ R2,SRT2 ；完成本遍的比较次数<BR>MOV A,R6 
；恢复数据首址<BR>MOV R0,A<BR>JB F0,SRT1 ；本遍若进行过交换，则需继续排序<BR>SRT5: RET 
；排序结束<BR>END<BR><BR></P>
<SCRIPT language=vbscript></SCRIPT>

<SCRIPT language=vbscript></SCRIPT>
</BODY></HTML>