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

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

；求第一操作数的绝对值或运算结果的补码<BR>CPL A<BR>ADD A,#1<BR>MOV R5,A<BR>MOV A,R4<BR>CPL 
A<BR>ADDC A,#0<BR>MOV R4,A<BR>MOV A,R3<BR>CPL A<BR>ADDC A,#0<BR>MOV R3,A<BR>MOV 
A,R2<BR>CPL A<BR>ADDC A,#0<BR>MOV R2,A<BR>MDS3: CLR OV ；运算成功<BR>RET<BR><BR>（１２） 
标号： 
ＳＨ２功能：双字节二进制无符号数开平方（快速）<BR><BR>入口条件：被开方数在R2、R3中。<BR>出口信息：平方根仍在R2、R3中，整数部分的位数为原数的一半，其余为小数。<BR>影响资源：PSW、A、B、R2～R7 
堆栈需求： ２字节<BR><BR>SH2: MOV A,R2<BR>ORL A,R3<BR>JNZ SH20<BR>RET 
；被开方数为零，不必运算<BR>SH20: MOV R7,#0 ；左规次数初始化<BR>MOV A,R2<BR>SH22: ANL A,#0C0H 
；被开方数高字节小于４０Ｈ否？<BR>JNZ SQRH ；不小于４０Ｈ，左规格化完成，转开方过程<BR>CLR C ；每左规一次，被开方数左移两位<BR>MOV 
A,R3<BR>RLC A<BR>MOV F0,C<BR>CLR C<BR>RLC A<BR>MOV R3,A<BR>MOV A,R2<BR>MOV 
ACC.7,C<BR>MOV C,F0<BR>RLC A<BR>RLC A<BR>MOV R2,A<BR>INC R7 ；左规次数加一<BR>SJMP SH22 
；继续左规<BR><BR>（１３） 标号： 
ＳＨ４功能：四字节二进制无符号数开平方（快速）<BR><BR>入口条件：被开方数在R2、R3、R4、R5中。<BR>出口信息：平方根在R2、R3中，整数部分的位数为原数的一半，其余为小数。<BR>影响资源：PSW、A、B、R2～R7 
堆栈需求： ２字节<BR><BR>SH4: MOV A,R2<BR>ORL A,R3<BR>ORL A,R4<BR>ORL A,R5<BR>JNZ 
SH40<BR>RET ；被开方数为零，不必运算<BR>SH40: MOV R7,#0 ；左规次数初始化<BR>MOV A,R2<BR>SH41: ANL 
A,#0C0H ；被开方数高字节小于４０Ｈ否？<BR>JNZ SQRH ；不小于４０Ｈ，左规格化完成<BR>MOV R6,#2 
；每左规一次，被开方数左移两位<BR>SH42: CLR C ；被开方数左移一位<BR>MOV A,R5<BR>RLC A<BR>MOV R5,A<BR>MOV 
A,R4<BR>RLC 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,SH42 ；被开方数左移完两位<BR>INC R7 ；左规次数加一<BR>SJMP SH41 
；继续左规<BR>SQRH: MOV A,R2 ；规格化后高字节按折线法分为三个区间<BR>ADD A,#57H<BR>JC SQR2<BR>ADD 
A,#45H<BR>JC SQR1<BR>ADD A,#24H<BR>MOV B,#0E3H ；第一区间的斜率<BR>MOV R4,#80H 
；第一区间的平方根基数<BR>SJMP SQR3<BR>SQR1: MOV 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>（１４） 标号： 
ＨＡＳＣ功能：单字节十六进制数转换成双字节ASCII码<BR><BR>入口条件：待转换的单字节十六进制数在累加器A中。<BR>出口信息：高四位的ASCII码在A中，低四位的ASCII码在B中。<BR>影响资源：PSW、A、B 
堆栈需求： ４字节<BR><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><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><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><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><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><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>入口条件：待转换的单字节ＢＣＤ码整数在累加器A中。<BR>出口信息：转换后的单字节十六进制整数仍在累加器A中。<BR>影响资源：PSW、A、B、R4 
堆栈需求： ２字节<BR><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><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><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><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>入口条件：数据块的首址在DPTR中，数据个数在R7中。<BR>出口信息：最大值在R6中，地址在R2R3中；最小值在R7中，地址在R4R5中。<BR>影响资源：PSW、A、B、R1～R7 
堆栈需求： ４字节<BR><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