mcs-51单片机实用子程序库.htm

MCS-51单片机实用子程序库,希望交流学习。

            B,#0B2H ；第二区间的斜率<BR>MOV R4,#0A0H；第二区间的平方根基数<BR>SJMP SQR3<BR>SQR2: 
            MOV B,#8DH ；第三区间的斜率<BR>MOV R4,#0D0H；第三区间的平方根基数<BR>SQR3: MUL AB 
            ；与区间基点的偏移量乘区间斜率<BR>MOV A,B<BR>ADD A,R4 ；累加到平方根的基数上<BR>MOV 
            R4,A<BR>MOV B,A<BR>MUL AB ；求当前平方根的幂<BR>XCH A,R3 
            ；求偏移量（存放在R2R3中）<BR>CLR C<BR>SUBB A,R3<BR>MOV R3,A<BR>MOV 
            A,R2<BR>SUBB A,B<BR>MOV R2,A<BR>SQR4: SETB C ；用减奇数法校正一个字节的平方根<BR>MOV 
            A,R4 ；当前平方根的两倍加一存入R5R6中<BR>RLC A<BR>MOV R6,A<BR>CLR A<BR>RLC 
            A<BR>MOV R5,A<BR>MOV A,R3 ；偏移量小于该奇数否？<BR>SUBB A,R6<BR>MOV B,A<BR>MOV 
            A,R2<BR>SUBB A,R5<BR>JC SQR5 ；小于，校正结束，已达到一个字节的精度<BR>INC R4 
            ；不小于，平方根加一<BR>MOV R2,A ；保存新的偏移量<BR>MOV R3,B<BR>SJMP SQR4 
            ；继续校正<BR>SQR5: MOV A,R4 ；将一个字节精度的根存入R2<BR>XCH A,R2<BR>RRC A<BR>MOV 
            F0,C ；保存最终偏移量的最高位<BR>MOV A,R3<BR>MOV R5,A ；将最终偏移量的低八位存入R5中<BR>MOV 
            R4,#8 ；通过（R5R6／R2）求根的低字节<BR>SQR6: CLR C<BR>MOV A,R3<BR>RLC A<BR>MOV 
            R3,A<BR>CLR C<BR>MOV A,R5<BR>SUBB A,R2<BR>JB F0,SQR7<BR>JC 
            SQR8<BR>SQR7: MOV R5,A<BR>INC R3<BR>SQR8: CLR C<BR>MOV A,R5<BR>RLC 
            A<BR>MOV R5,A<BR>MOV F0,C<BR>DJNZ R4,SQR6 ；根的第二字节计算完，在R3中<BR>MOV 
            A,R7 ；取原被开方数的左规次数<BR>JZ SQRE ；未左规，开方结束<BR>SQR9: CLR C 
            ；按左规次数右移平方根，得到实际根<BR>MOV A,R2<BR>RRC A<BR>MOV R2,A<BR>MOV 
            A,R3<BR>RRC A<BR>MOV R3,A<BR>DJNZ R7,SQR9<BR>SQRE: RET<BR>　<BR>（１４） 
            标号： ＨＡＳＣ 
            功能：单字节十六进制数转换成双字节ASCII码<BR><BR>入口条件：待转换的单字节十六进制数在累加器A中。<BR>出口信息：高四位的ASCII码在A中，低四位的ASCII码在B中。<BR>影响资源：PSW、A、B 
            堆栈需求： ４字节<BR>HASC: MOV B,A ；暂存待转换的单字节十六进制数<BR>LCALL HAS1 
            ；转换低四位<BR>XCH A,B ；存放低四位的ASCII码<BR>SWAP A ；准备转换高四位<BR>HAS1: ANL 
            A,#0FH ；将累加器的低四位转换成ASCII码<BR>ADD A,#90H<BR>DA A<BR>ADDC A,#40H<BR>DA 
            A<BR>RET<BR>　<BR>（１５） 标号： ＡＳＣＨ 
            功能：ASCII码转换成十六进制数<BR><BR>入口条件：待转换的ASCII码（30H～39H或41H～46H）在A中。<BR>出口信息：转换后的十六进制数（00H～0FH）仍在累加器A中。<BR>影响资源：PSW、A 
            堆栈需求： ２字节<BR>ASCH: CLR C<BR>SUBB A,#30H<BR>JNB ACC.4,ASH1<BR>SUBB 
            A,#7<BR>ASH1: RET<BR>　<BR>（１６） 标号：ＨＢＣＤ 
            功能：单字节十六进制整数转换成单字节ＢＣＤ码整数<BR><BR>入口条件：待转换的单字节十六进制整数在累加器A中。<BR>出口信息：转换后的ＢＣＤ码整数（十位和个位）仍在累加器A中，百位在R3中。<BR>影响资源：PSW、A、B、R3 
            堆栈需求： ２字节<BR>HBCD: MOV B,#100 ；分离出百位，存放在R3中<BR>DIV AB<BR>MOV 
            R3,A<BR>MOV A,#10 ；余数继续分离十位和个位<BR>XCH A,B<BR>DIV AB<BR>SWAP A<BR>ORL 
            A,B ；将十位和个位拼装成ＢＣＤ码<BR>RET<BR>　<BR>（１７） 标号： ＨＢ２ 
            功能：双字节十六进制整数转换成双字节ＢＣＤ码整数<BR><BR>入口条件：待转换的双字节十六进制整数在R6、R7中。<BR>出口信息：转换后的三字节ＢＣＤ码整数在R3、R4、R5中。<BR>影响资源：PSW、A、R2～R7 
            堆栈需求： ２字节<BR>HB2: CLR A ；ＢＣＤ码初始化<BR>MOV R3,A<BR>MOV R4,A<BR>MOV 
            R5,A<BR>MOV R2,#10H ；转换双字节十六进制整数<BR>HB3: MOV A,R7 
            ；从高端移出待转换数的一位到CY中<BR>RLC A<BR>MOV R7,A<BR>MOV A,R6<BR>RLC A<BR>MOV 
            R6,A<BR>MOV A,R5 ；ＢＣＤ码带进位自身相加，相当于乘２<BR>ADDC A,R5<BR>DA A 
            ；十进制调整<BR>MOV R5,A<BR>MOV A,R4<BR>ADDC A,R4<BR>DA A<BR>MOV 
            R4,A<BR>MOV A,R3<BR>ADDC A,R3<BR>MOV R3,A 
            ；双字节十六进制数的万位数不超过６，不用调整<BR>DJNZ R2,HB3 ；处理完１６ｂｉｔ<BR>RET <BR>　<BR>（１８） 
            标号： ＨＢＤ 
            功能：单字节十六进制小数转换成单字节ＢＣＤ码小数<BR><BR>入口条件：待转换的单字节十六进制小数在累加器A中。<BR>出口信息：CY=0时转换后的ＢＣＤ码小数仍在A中。CY=1时原小数接近整数１。<BR>影响资源：PSW、A、B 
            堆栈需求： ２字节<BR>HBD: MOV B,#100 ；原小数扩大一百倍<BR>MUL AB<BR>RLC A 
            ；余数部分四舍五入<BR>CLR A<BR>ADDC A,B<BR>MOV B,#10 ；分离出十分位和百分位<BR>DIV 
            AB<BR>SWAP A<BR>ADD A,B ；拼装成单字节ＢＣＤ码小数<BR>DA A 
            ；调整后若有进位，原小数接近整数１<BR>RET<BR>　<BR>（１９） 标号： ＨＢＤ２ 
            功能：双字节十六进制小数转换成双字节ＢＣＤ码小数<BR><BR>入口条件：待转换的双字节十六进制小数在R2、R3中。<BR>出口信息：转换后的双字节ＢＣＤ码小数仍在R2、R3中。<BR>影响资源：PSW、A、B、R2、R3、R4、R5 
            堆栈需求： ６字节<BR>HBD2: MOV R4,#4 ；四位十进制码<BR>HBD3: MOV A,R3 
            ；原小数扩大十倍<BR>MOV B,#10<BR>MUL AB<BR>MOV R3,A<BR>MOV R5,B<BR>MOV 
            A,R2<BR>MOV B,#10<BR>MUL AB<BR>ADD A,R5<BR>MOV R2,A<BR>CLR A<BR>ADDC 
            A,B<BR>PUSH ACC ；保存溢出的一位十进制码<BR>DJNZ R4,HBD3 ；计算完四位十进制码<BR>POP ACC 
            ；取出万分位<BR>MOV R3,A<BR>POP ACC ；取出千分位<BR>SWAP A<BR>ORL A,R3 
            ；拼装成低字节ＢＣＤ码小数<BR>MOV R3,A<BR>POP ACC ；取出百分位<BR>MOV R2,A<BR>POP ACC 
            ；取出十分位<BR>SWAP A<BR>ORL A,R2 ；拼装成高字节ＢＣＤ码小数<BR>MOV R2,A 
            <BR>RET<BR>　<BR>（２０）标号：ＢＣＤＨ 
            功能：单字节ＢＣＤ码整数转换成单字节十六进制整数<BR><BR>入口条件：待转换的单字节ＢＣＤ码整数在累加器A中。<BR>出口信息：转换后的单字节十六进制整数仍在累加器A中。<BR>影响资源：PSW、A、B、R4 
            堆栈需求： ２字节<BR>BCDH: MOV B,#10H ；分离十位和个位<BR>DIV AB<BR>MOV R4,B 
            ；暂存个位<BR>MOV B,#10 ；将十位转换成十六进制<BR>MUL AB<BR>ADD A,R4 
            ；按十六进制加上个位<BR>RET<BR>　<BR>（２１）标号： ＢＨ２ 
            功能：双字节ＢＣＤ码整数转换成双字节十六进制整数<BR><BR>入口条件：待转换的双字节ＢＣＤ码整数在R2、R3中。<BR>出口信息：转换后的双字节十六进制整数仍在R2、R3中。<BR>影响资源：PSW、A、B、R2、R3、R4 
            堆栈需求： ４字节<BR>BH2: MOV A,R3 ；将低字节转换成十六进制<BR>LCALL BCDH<BR>MOV 
            R3,A<BR>MOV A,R2 ；将高字节转换成十六进制<BR>LCALL BCDH<BR>MOV B,#100 
            ；扩大一百倍<BR>MUL AB<BR>ADD A,R3 ；和低字节按十六进制相加<BR>MOV R3,A<BR>CLR 
            A<BR>ADDC A,B<BR>MOV R2,A<BR>RET<BR>　<BR>(２２）标号： ＢＨＤ 
            功能：单字节ＢＣＤ码小数转换成单字节十六进制小数<BR><BR>入口条件：待转换的单字节ＢＣＤ码数在累加器A中。<BR>出口信息：转换后的单字节十六进制小数仍在累加器A中。<BR>影响资源：PSW、A、R2、R3 
            堆栈需求： ２字节<BR>BHD: MOV R2,#8 ；准备计算一个字节小数<BR>BHD0: ADD A,ACC 
            ；按十进制倍增<BR>DA A<BR>XCH A,R3<BR>RLC A ；将进位标志移入结果中<BR>XCH A,R3<BR>DJNZ 
            R2,BHD0 ；共计算８ｂｉｔ小数<BR>ADD A,#0B0H ；剩余部分达到０．５０否？<BR>JNC BHD1 
            ；四舍<BR>INC R3 ；五入<BR>BHD1: MOV A,R3 ；取结果<BR>RET<BR>　<BR>（２３）标号： ＢＨＤ２ 
            功能：双字节ＢＣＤ码小数转换成双字节十六进制小数<BR><BR>入口条件：待转换的双字节ＢＣＤ码小数在R4、R5中。<BR>出口信息：转换后的双字节十六进制小数在R2、R3中。*<BR>影响资源：PSW、A、R2～R6 
            堆栈需求： ２字节<BR>BHD2: MOV R6,#10H ；准备计算两个字节小数<BR>BHD3: MOV A,R5 
            ；按十进制倍增<BR>ADD A,R5<BR>DA A<BR>MOV R5,A<BR>MOV A,R4<BR>ADDC 
            A,R4<BR>DA A<BR>MOV R4,A<BR>MOV A,R3 ；将进位标志移入结果中<BR>RLC A<BR>MOV 
            R3,A<BR>MOV A,R2<BR>RLC A<BR>MOV R2,A<BR>DJNZ R6,BHD3 
            ；共计算１６ｂｉｔ小数<BR>MOV A,R4<BR>ADD A,#0B0H ；剩余部分达到０．５０否？<BR>JNC BHD4 
            ；四舍<BR>INC R3 ；五入<BR>MOV A,R3<BR>JNZ BHD4<BR>INC R2<BR>BHD4: 
            RET<BR>　<BR>（２４） 标号： ＭＭ 
            功能：求单字节十六进制无符号数据块的极值<BR><BR>入口条件：数据块的首址在DPTR中，数据个数在R7中。<BR>出口信息：最大值在R6中，地址在R2R3中；最小值在R7中，地址在R4R5中。<BR>影响资源：PSW、A、B、R1～R7 
            堆栈需求： ４字节<BR>MM: 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 MME ；只有一个数据，不需要比较<BR>MOV R1,A 
            ；保存比较次数<BR>PUSH DPL ；保护数据块的首址<BR>PUSH DPH<BR>MM1: INC DPTR 
            ；指向一个新的数据<BR>MOVX A,@DPTR ；读取这个数据<BR>MOV B,A ；保存<BR>SETB C 
            ；与最大值比较<BR>SUBB A,R6<BR>JC MM2 ；不超过当前最大值，保持当前最大值<BR>MOV R6,B 
            ；超过当前最大值，更新最大值存放地址<BR>MOV R2,DPH ；同时更新最大值存放地址<BR>MOV R3,DPL<BR>SJMP 
            MM3<BR>MM2: MOV A,B ；与最小值比较<BR>CLR C<BR>SUBB A,R7<BR>JNC MM3 
            ；大于或等于当前最小值，保持当前最小值<BR>MOV R7,B ；更新最小值<BR>MOV R4,DPH 
            ；更新最小值存放地址<BR>MOV R5,DPL<BR>MM3: DJNZ R1,MM1 ；处理完全部数据<BR>POP DPH 
            ；恢复数据首址<BR>POP DPL<BR>MME: RET<BR>　<BR>（２５） 标号： ＭＭＳ 
            功能：求单字节十六进制有符号数据块的极值<BR><BR>入口条件：数据块的首址在DPTR中，数据个数在R7中。<BR>出口信息：最大值在R6中， 
            地址在R2R3中；最小值在R7中，地址在R4R5中。<BR>影响资源：PSW、A、B、R1～R7 堆栈需求： ４字节<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><BR>入口条件：待查找的内容在A中，表格首址在DPTR中，表格的字节数在R7中。<BR>出口信息：OV=0时，顺序号在累加器A中；OV=1时，未找到。<BR>影响资源：PSW、A、B、R2、R6 
            堆栈需求： ２字节<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>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>（２８） 标号：ＦＤＤ１