MCS-51单片机实用子程序

1、MCS51单片机实用子程序(1) 标号: BCDA 功能:多字节BCD码加法(2) 标号: BCDB 功能:多字节BCD码减法(3) 标号: NEG 功能:多字节BCD码取补(4) 标号:BRLN 功能:多字节BCD码左移十进制一位(乘十)(5) 标号: MULD 功能:双字节二进制无符号数乘法(6) 标号: MUL2 功能:双字节二进制无符号数平方(7) 标号: DIVD 功能:双字节二进制无符号数除法(8)标号:D457功能:双字节二进制无符号数除以单字节二进制数(9)标号: DV31功能:三字节二进制无符号数除以单字节二进制数(10) 标号: MULS 功能:双字节二进制有符号数乘法(补

2、码)(11) 标号: DIVS 功能:双字节二进制有符号数除法(补码)(12) 标号: SH2 功能:双字节二进制无符号数开平方(快速)(13) 标号: SH4 功能:四字节二进制无符号数开平方(快速)(14) 标号: HASC 功能:单字节十六进制数转换成双字节ASCII码(15) 标号: ASCH 功能:ASCII码转换成十六进制数(16) 标号:HBCD 功能:单字节十六进制整数转换成单字节BCD码整数(17) 标号: HB2 功能:双字节十六进制整数转换成双字节BCD码整数(18) 标号: HBD 功能:单字节十六进制小数转换成单字节BCD码小数(19) 标号: HBD2 功能:双字节

3、十六进制小数转换成双字节BCD码小数(20) 标号: BCDH 功能:单字节BCD码整数转换成单字节十六进制整数(21)标号: BH2 功能:双字节BCD码整数转换成双字节十六进制整数(22) 标号: BHD 功能:单字节BCD码小数转换成单字节十六进制小数(23)标号: BHD2 功能:双字节BCD码小数转换成双字节十六进制小数(24) 标号: MM 功能:求单字节十六进制无符号数据块的极值(25)标号: MMS 功能:求单字节十六进制有符号数据块的极值(26) 标号: FDS1 功能:顺序查找(ROM)单字节表格(27) 标号: FDS2 功能:顺序查找(ROM)双字节表格(28) 标号:

4、FDD1 功能:对分查找(ROM)单字节无符号增序数据表格(29)标号:FDD2功能:对分查找(ROM)双字节无符号增序数据表格(30)标号: DDM1 功能:求单字节十六进制无符号数据块的平均值(31)标号: DDM2 功能:求双字节十六进制无符号数据块的平均值(32) 标号: XR1 功能:求单字节数据块的(异或)校验和(33) 标号: XR2 功能:求双字节数据块的(异或)校验和(34) 标号: SORT 功能:单字节无符号数据块排序(增序)(1) 标号: BCDA 功能:多字节BCD码加法入口条件:字节数在R7中，被加数在R0中，加数在R1中。出口信息:和在R0中，最高位进位在CY中。

5、影响资源:PSW、A、R2 堆栈需求: 字节BCDA:MOVA,R7；取字节数至R2中MOVR2,AADDA,R0；初始化数据指针MOVR0,AMOVA,R2ADDA,R1MOVR1,ACLRCBCD1:DECR0；调整数据指针DECR1MOVA,R0ADDCA,R1；按字节相加DAA；十进制调整MOVR0,A；和存回R0中DJNZR2,BCD1；处理完所有字节RET(2) 标号: BCDB 功能:多字节BCD码减法入口条件:字节数在R7中，被减数在R0中，减数在R1中。出口信息:差在R0中，最高位借位在CY中。影响资源:PSW、A、R2、R3 堆栈需求: 字节BCDB:LCALLNEG1；减

6、数R1十进制取补LCALLBCDA；按多字节BCD码加法处理CPLC；将补码加法的进位标志转换成借位标志MOVF0,C；保护借位标志LCALLNEG1；恢复减数R1的原始值MOVC,F0；恢复借位标志RETNEG1:MOVA,R0；R1十进制取补子程序入口XCHA,R1；交换指针XCHA,R0LCALLNEG；通过R0实现R1取补MOVA,R0XCHA,R1；换回指针XCHA,R0RET(3) 标号: NEG 功能:多字节BCD码取补入口条件:字节数在R7中，操作数在R0中。出口信息:结果仍在R0中。影响资源:PSW、A、R2、R3 堆栈需求: 字节NEG:MOVA,R7；取(字节数减一)至R

7、2中DECAMOVR2,AMOVA,R0；保护指针MOVR3,ANEG0:CLRCMOVA,#99HSUBBA,R0；按字节十进制取补MOVR0,A；存回R0中INCR0；调整数据指针DJNZR2,NEG0；处理完(R2)字节MOVA,#9AH；最低字节单独取补SUBBA,R0MOVR0,AMOVA,R3；恢复指针MOVR0,ARET(4) 标号:BRLN 功能:多字节BCD码左移十进制一位(乘十)入口条件:字节数在R7中，操作数在R0中。出口信息:结果仍在R0中，移出的十进制最高位在R3中。影响资源:PSW、A、R2、R3 堆栈需求: 字节BRLN:MOVA,R7；取字节数至R2中 MOVR

8、2,AADDA,R0；初始化数据指针MOVR0,AMOVR3,#0；工作单元初始化BRL1:DECR0；调整数据指针MOVA,R0；取一字节SWAPA；交换十进制高低位MOVR0,A；存回MOVA,R3；取低字节移出的十进制高位XCHDA,R0；换出本字节的十进制高位MOVR3,A；保存本字节的十进制高位DJNZR2,BRL1；处理完所有字节RET(5) 标号: MULD 功能:双字节二进制无符号数乘法入口条件:被乘数在R2、R3中，乘数在R6、R7中。出口信息:乘积在R2、R3、R4、R5中。影响资源:PSW、A、B、R2R7 堆栈需求: 字节MULD:MOVA,R3；计算R3乘R7MOVB

9、,R7MULABMOVR4,B；暂存部分积MOVR5,AMOVA,R3；计算R3乘R6MOVB,R6MULABADDA,R4；累加部分积MOVR4,ACLRAADDCA,BMOVR3,AMOVA,R2；计算R2乘R7MOVB,R7MULABADDA,R4；累加部分积MOVR4,AMOVA,R3ADDCA,BMOVR3,ACLRARLCAXCHA,R2；计算R2乘R6MOVB,R6MULABADDA,R3；累加部分积MOVR3,AMOVA,R2ADDCA,BMOVR2,ARET(6) 标号: MUL2 功能:双字节二进制无符号数平方入口条件:待平方数在R2、R3中。出口信息:结果在R2、R3、R

10、4、R5中。影响资源:PSW、A、B、R2R5 堆栈需求: 字节MUL2:MOVA,R3；计算R3平方MOVB,AMULABMOVR4,B；暂存部分积MOVR5,AMOVA,R2；计算R2平方MOVB,AMULABXCHA,R3；暂存部分积，并换出R2和R3XCHA,BXCHA,R2MULAB；计算2R2R3CLRCRLCAXCHA,BRLCAJNCMU20INCR2；累加溢出量MU20:XCHA,B；累加部分积ADDA,R4MOVR4,AMOVA,R3ADDCA,BMOVR3,ACLRAADDCA,R2MOVR2,ARET(7) 标号: DIVD 功能:双字节二进制无符号数除法入口条件:被除

11、数在R2、R3、R4、R5中，除数在R6、R7中。出口信息:OV=0 时，双字节商在R2、R3中，OV=1 时溢出。影响资源:PSW、A、B、R1R7 堆栈需求: 字节DIVD:CLRC；比较被除数和除数MOVA,R3SUBBA,R7MOVA,R2SUBBA,R6JCDVD1SETBOV；溢出RETDVD1:MOVB,#10H；计算双字节商DVD2:CLRC；部分商和余数同时左移一位MOVA,R5RLCAMOVR5,AMOVA,R4RLCAMOVR4,AMOVA,R3RLCAMOVR3,AXCHA,R2RLCAXCHA,R2MOVF0,C；保存溢出位CLRCSUBBA,R7；计算(R2R3R6

12、R7)MOVR1,AMOVA,R2SUBBA,R6ANLC,/F0；结果判断JCDVD3MOVR2,A；够减，存放新的余数MOVA,R1MOVR3,AINCR5；商的低位置1DVD3:DJNZB,DVD2；计算完十六位商(R4R5)MOVA,R4；将商移到R2R3中MOVR2,AMOVA,R5MOVR3,ACLROV；设立成功标志RET(8)标号:D457功能:双字节二进制无符号数除以单字节二进制数入口条件:被除数在R4、R5中,除数在R7中。出口信息:OV=0 时,单字节商在R3中，OV=1 时溢出。影响资源:PSW、A、R3R7 堆栈需求: 字节D457:CLRCMOVA,R4SUBBA,

13、R7JCDV50SETBOV；商溢出RETDV50:MOVR6,#8；求平均值(R4R5R7R3)DV51:MOVA,R5RLCAMOVR5,AMOVA,R4RLCAMOVR4,AMOVF0,CCLRCSUBBA,R7ANLC,/F0JCDV52MOVR4,ADV52:CPLCMOVA,R3RLCAMOVR3,ADJNZR6,DV51MOVA,R4；四舍五入ADDA,R4JCDV53SUBBA,R7JCDV54DV53:INCR3DV54:CLROVRET(9)标号: DV31功能:三字节二进制无符号数除以单字节二进制数入口条件:被除数在R3、R4、R5中，除数在R7中。出口信息:OV=0 时

14、，双字节商在R4、R5中，OV=1 时溢出。影响资源:PSW、A、B、R2R7 堆栈需求: 字节DV31:CLRCMOVA,R3SUBBA,R7JCDV30SETBOV；商溢出RETDV30:MOVR2,#10H；求R3R4R5R7R4R5DM23:CLRCMOVA,R5RLCAMOVR5,AMOVA,R4RLCAMOVR4,AMOVA,R3RLCAMOVR3,AMOVF0,CCLRCSUBBA,R7ANLC,/F0JCDM24MOVR3,AINCR5DM24:DJNZR2,DM23MOVA,R3；四舍五入ADDA,R3JCDM25SUBBA,R7JCDM26DM25:INCR5MOVA,R5

15、JNZDM26INCR4DM26:CLROVRET ；商在R4R5中 (10) 标号: MULS 功能:双字节二进制有符号数乘法(补码)入口条件:被乘数在R2、R3中,乘数在R6、R7中。出口信息:乘积在R2、R3、R4、R5中。影响资源:PSW、A、B、R2R7 堆栈需求: 字节MULS:MOVR4,#0；清零R4R5MOVR5,#0LCALLMDS；计算结果的符号和两个操作数的绝对值LCALLMULD；计算两个绝对值的乘积SJMPMDSE；用补码表示结果(11) 标号: DIVS 功能:双字节二进制有符号数除法(补码)入口条件:被除数在R2、R3、R4、R5中，除数在R6、R7中。出口信息

16、:OV=0时商在R2、R3中，OV=1时溢出。影响资源:PSW、A、B、R1R7 堆栈需求: 字节DIVS:LCALLMDS；计算结果的符号和两个操作数的绝对值PUSHPSW；保存结果的符号LCALLDIVD；计算两个绝对值的商JNBOV,DVS1；溢出否？POPACC；溢出,放去结果的符号,保留溢出标志RETDVS1:POPPSW；未溢出，取出结果的符号MOVR4,#0MOVR5,#0MDSE:JBF0,MDS2；用补码表示结果CLROV；结果为正,原码即补码,计算成功RETMDS:CLRF0；结果符号初始化MOVA,R6；判断第二操作数的符号JNBACC.7,MDS1；为正,不必处理CPL

17、F0；为负,结果符号取反XCHA,R7；第二操作数取补,得到其绝对值CPLAADDA,#1XCHA,R7CPLAADDCA,#0MOVR6,AMDS1:MOVA,R2；判断第一操作数或运算结果的符号JNBACC.7,MDS3；为正，不必处理CPLF0；为负，结果符号取反MDS2:MOV A,R5；求第一操作数的绝对值或运算结果的补码CPLAADDA,#1MOVR5,AMOVA,R4CPLAADDCA,#0MOVR4,AMOVA,R3CPLAADDCA,#0MOVR3,AMOVA,R2CPLAADDCA,#0MOVR2,AMDS3:CLROV；运算成功RET(12) 标号: SH2 功能:双字节

18、二进制无符号数开平方(快速)入口条件:被开方数在R2、R3中。出口信息:平方根仍在R2、R3中,整数部分的位数为原数的一半,其余为小数。影响资源:PSW、A、B、R2R7 堆栈需求: 字节SH2:MOVA,R2ORLA,R3JNZSH20RET；被开方数为零，不必运算SH20:MOVR7,#0；左规次数初始化MOVA,R2SH22:ANLA,#0C0H；被开方数高字节小于40H否？JNZSQRH；不小于40H，左规格化完成，转开方过程CLRC；每左规一次，被开方数左移两位MOVA,R3RLCAMOVF0,CCLRCRLCAMOVR3,AMOVA,R2MOVACC.7,CMOVC,F0RLCAR

19、LCAMOVR2,AINCR7；左规次数加1SJMPSH22；继续左移(13) 标号: SH4 功能:四字节二进制无符号数开平方(快速)入口条件:被开方数在R2、R3、R4、R5中。出口信息:平方根在R2、R3中，整数部分的位数为原数的一半，其余为小数。影响资源:PSW、A、B、R2R7 堆栈需求: 字节SH4:MOVA,R2ORLA,R3ORLA,R4ORLA,R5JNZSH40RET；被开方数为零，不必运算SH40:MOVR7,#0；左规次数初始化MOVA,R2SH41:ANLA,#0C0H；被开方数高字节小于40H否？JNZSQRH；不小于40H，左规格化完成MOVR6,#2；每左规一次

20、，被开方数左移两位SH42:CLRC；被开方数左移一位MOVA,R5RLCAMOVR5,AMOVA,R4RLCAMOVR4,AMOVA,R3RLCAMOVR3,AMOVA,R2RLCAMOVR2,ADJNZR6,SH42；被开方数左移完两位INCR7；左移次数加1SJMPSH41；继续左移SQRH:MOVA,R2 ；规格化后高字节按折线法分为三个区间ADDA,#57HJCSQR2ADDA,#45HJCSQR1ADDA,#24HMOVB,#0E3H；第一区间的斜率MOVR4,#80H；第一区间的平方根基数SJMPSQR3SQR1:MOVB,#0B2H；第二区间的斜率MOVR4,#0A0H；第二区

21、间的平方根基数SJMPSQR3SQR2:MOVB,#8DH；第三区间的斜率MOVR4,#0D0H；第三区间的平方根基数SQR3:MULAB；与区间基点的偏移量乘区间斜率MOVA,BADDA,R4；累加到平方根的基数上MOVR4,AMOVB,AMULAB；求当前平方根的幂XCHA,R3；求偏移量(存放在R2R3中)CLRCSUBBA,R3MOVR3,AMOVA,R2SUBBA,BMOVR2,ASQR4:SETBC；用减奇数法校正一个字节的平方根MOVA,R4；当前平方根的两倍加1存入R5R6中RLCAMOVR6,ACLRARLCAMOVR5,AMOVA,R3；偏移量小于该奇数否？SUBBA,R6

22、MOVB,AMOVA,R2SUBBA,R5JCSQR5；小于,校正结束,已达到一个字节的精度INCR4；不小于，平方根加1MOVR2,A；保存新的偏移量MOVR3,BSJMPSQR4；继续校正SQR5:MOVA,R4；将一个字节精度的根存入R2XCHA,R2RRCAMOVF0,C；保存最终偏移量的最高位MOVA,R3MOVR5,A；将最终偏移量的低八位存入R5中MOVR4,#8；通过(R5R6R2)求根的低字节SQR6:CLRCMOVA,R3RLCAMOVR3,ACLRCMOVA,R5SUBBA,R2JBF0,SQR7JCSQR8SQR7:MOVR5,AINCR3SQR8:CLRCMOVA,R

23、5RLCAMOVR5,AMOVF0,CDJNZR4,SQR6；根的第二字节计算完，在R3中MOVA,R7；取原被开方数的左规次数JZSQRE；未左移，开方结束SQR9:CLRC；按左移次数右移平方根,得到实际根MOVA,R2RRCAMOVR2,AMOVA,R3RRCAMOVR3,ADJNZR7,SQR9SQRE:RET(14) 标号: HASC 功能:单字节十六进制数转换成双字节ASCII码入口条件:待转换的单字节十六进制数在累加器A中。出口信息:高四位的ASCII码在A中，低四位的ASCII码在B中。影响资源:PSW、A、B 堆栈需求: 字节HASC:MOVB,A；暂存待转换的单字节十六进制

24、数LCALLHAS1；转换低四位XCHA,B；存放低四位的ASCII码SWAPA；准备转换高四位HAS1:ANLA,#0FH；将累加器的低四位转换成ASCII码ADDA,#90HDAAADDCA,#40HDAARET(15) 标号: ASCH 功能:ASCII码转换成十六进制数入口条件:待转换的ASCII码(30H39H或41H46H)在A中。出口信息:转换后的十六进制数(00H0FH)仍在累加器A中。影响资源:PSW、A 堆栈需求: 字节ASCH:CLRCSUBBA,#30HJNBACC.4,ASH1SUBBA,#7ASH1:RET(16) 标号:HBCD 功能:单字节十六进制整数转换成单字

25、节BCD码整数入口条件:待转换的单字节十六进制整数在累加器A中。出口信息:转换后的BCD码整数(十位和个位)仍在累加器A中，百位在R3中。影响资源:PSW、A、B、R3 堆栈需求: 字节HBCD:MOVB,#100；分离出百位，存放在R3中DIVABMOVR3,AMOVA,#10；余数继续分离十位和个位XCHA,BDIVABSWAPAORLA,B；将十位和个位拼装成BCD码RET(17) 标号: HB2 功能:双字节十六进制整数转换成双字节BCD码整数入口条件:待转换的双字节十六进制整数在R6、R7中。出口信息:转换后的三字节BCD码整数在R3、R4、R5中。影响资源:PSW、A、R2R7 堆

26、栈需求: 字节HB2:CLRA；BCD码初始化MOVR3,AMOVR4,AMOVR5,AMOVR2,#10H；转换双字节十六进制整数HB3:MOVA,R7；从高端移出待转换数的一位到CY中RLCAMOVR7,AMOVA,R6RLCAMOVR6,AMOVA,R5；BCD码带进位自身相加,相当于乘ADDCA,R5DAA；十进制调整MOVR5,AMOVA,R4ADDCA,R4DAAMOVR4,AMOVA,R3ADDCA,R3MOVR3,A；双字节十六进制数的万位数不超过,不用调整DJNZR2,HB3；处理完bitRET (18) 标号: HBD 功能:单字节十六进制小数转换成单字节BCD码小数入口条

27、件:待转换的单字节十六进制小数在累加器A中。出口信息:CY=0时转换后的BCD码小数仍在A中。CY=1时原小数接近整数。影响资源:PSW、A、B 堆栈需求: 字节HBD:MOVB,#100；原小数扩大一百倍MULABRLCA；余数部分四舍五入CLRAADDCA,BMOVB,#10；分离出十分位和百分位DIVABSWAPAADDA,B；拼装成单字节BCD码小数DAA；调整后若有进位,原小数接近整数RET(19) 标号: HBD2 功能:双字节十六进制小数转换成双字节BCD码小数入口条件:待转换的双字节十六进制小数在R2、R3中。出口信息:转换后的双字节BCD码小数仍在R2、R3中。影响资源:PS

28、W、A、B、R2、R3、R4、R5 堆栈需求: 字节HBD2:MOVR4,#4；四位十进制码HBD3:MOVA,R3；原小数扩大十倍MOVB,#10MULABMOVR3,AMOVR5,BMOVA,R2MOVB,#10MULABADDA,R5MOVR2,ACLRAADDCA,BPUSHACC；保存溢出的一位十进制码DJNZR4,HBD3；计算完四位十进制码POPACC；取出万分位MOVR3,APOPACC；取出千分位SWAPAORLA,R3；拼装成低字节BCD码小数MOVR3,APOPACC；取出百分位MOVR2,APOPACC；取出十分位SWAPAORLA,R2；拼装成高字节BCD码小数MOV

29、R2,ARET(20) 标号: BCDH 功能:单字节BCD码整数转换成单字节十六进制整数入口条件:待转换的单字节BCD码整数在累加器A中。出口信息:转换后的单字节十六进制整数仍在累加器A中。影响资源:PSW、A、B、R4 堆栈需求: 字节BCDH:MOVB,#10H；分离十位和个位DIVABMOVR4,B；暂存个位MOVB,#10；将十位转换成十六进制MULABADDA,R4；按十六进制加上个位RET(21)标号: BH2 功能:双字节BCD码整数转换成双字节十六进制整数入口条件:待转换的双字节BCD码整数在R2、R3中。出口信息:转换后的双字节十六进制整数仍在R2、R3中。影响资源:PSW

30、、A、B、R2、R3、R4 堆栈需求: 字节BH2:MOVA,R3；将低字节转换成十六进制LCALLBCDHMOVR3,AMOVA,R2；将高字节转换成十六进制LCALLBCDHMOVB,#100；扩大一百倍MULABADDA,R3；和低字节按十六进制相加MOVR3,ACLRAADDCA,BMOVR2,ARET(22) 标号: BHD 功能:单字节BCD码小数转换成单字节十六进制小数入口条件:待转换的单字节BCD码数在累加器A中。出口信息:转换后的单字节十六进制小数仍在累加器A中。影响资源:PSW、A、R2、R3 堆栈需求: 字节BHD:MOVR2,#8；准备计算一个字节小数BHD0:ADDA

31、,ACC；按十进制倍增DAAXCHA,R3RLCA；将进位标志移入结果中XCHA,R3DJNZR2,BHD0；共计算bit小数ADDA,#0B0H；剩余部分达到0.50否？JNCBHD1；四舍INCR3；五入BHD1:MOVA,R3；取结果RET(23)标号: BHD2 功能:双字节BCD码小数转换成双字节十六进制小数入口条件:待转换的双字节BCD码小数在R4、R5中。出口信息:转换后的双字节十六进制小数在R2、R3中。影响资源:PSW、A、R2R6 堆栈需求: 字节BHD2:MOVR6,#10H；准备计算两个字节小数BHD3:MOVA,R5；按十进制倍增ADDA,R5DAAMOVR5,AMO

32、VA,R4ADDCA,R4DAAMOVR4,AMOVA,R3；将进位标志移入结果中RLCAMOVR3,AMOVA,R2RLCAMOVR2,ADJNZR6,BHD3；共计算bit小数MOVA,R4ADDA,#0B0H；剩余部分达到0.50否？JNCBHD4；四舍INCR3；五入MOVA,R3JNZBHD4INCR2BHD4:RET(24) 标号: MM 功能:求单字节十六进制无符号数据块的极值入口条件:数据块的首址在DPTR中，数据个数在R7中。出口信息:最大值在R6中,地址在R2R3中；最小值在R7中,地址在R4R5中。影响资源:PSW、A、B、R1R7 堆栈需求: 字节MM:MOVB,R7；

33、保存数据个数MOVXA,DPTR；读取第一个数据MOVR6,A；作为最大值的初始值MOVR7,A；也作为最小值的初始值MOVA,DPL；取第一个数据的地址MOVR3,A；作为最大值存放地址的初始值MOVR5,A；也作为最小值存放地址的初始值MOVA,DPHMOVR2,AMOVR4,AMOVA,B；取数据个数DECA；减1，得到需要比较的次数JZMME；只有一个数据，不需要比较MOVR1,A；保存比较次数PUSHDPL；保护数据块的首址PUSHDPHMM1:INCDPTR；指向一个新的数据MOVXA,DPTR；读取这个数据MOVB,A；保存SETBC；与最大值比较SUBBA,R6JCMM2；不超

34、过当前最大值,保持当前最大值MOVR6,B；超过当前最大值,更新最大值存放地址MOVR2,DPH；同时更新最大值存放地址MOVR3,DPLSJMPMM3MM2:MOVA,B；与最小值比较CLRCSUBBA,R7JNCMM3；大于或等于当前最小值,保持当前最小值MOVR7,B；更新最小值MOVR4,DPH；更新最小值存放地址MOVR5,DPLMM3:DJNZR1,MM1；处理完全部数据POPDPH；恢复数据首址POPDPLMME:RET(25)标号: MMS 功能:求单字节十六进制有符号数据块的极值入口条件:数据块的首址在DPTR中，数据个数在R7中。出口信息:最大值在R6中， 地址在R2R3中

35、；最小值在R7中，地址在R4R5中。影响资源:PSW、A、B、R1R7 堆栈需求: 字节MMS:MOVB,R7；保存数据个数MOVXA,DPTR；读取第一个数据MOVR6,A；作为最大值的初始值MOVR7,A；也作为最小值的初始值MOVA,DPL；取第一个数据的地址MOVR3,A；作为最大值存放地址的初始值MOVR5,A；也作为最小值存放地址的初始值MOVA,DPHMOVR2,AMOVR4,AMOVA,B；取数据个数DECA；减1，得到需要比较的次数JZMMSE；只有一个数据，不需要比较MOVR1,A；保存比较次数PUSHDPL；保护数据块的首址PUSHDPHMMS1:INCDPTR；调整数据

36、指针MOVXA,DPTR；读取一个数据MOVB,A；保存SETBC；与最大值比较SUBBA,R6JZMMS4；相同，不更新最大值JNBOV,MMS2；差未溢出，符号位有效CPLACC.7；差溢出，符号位取反MMS2:JBACC.7,MMS4；差为负，不更新最大值MOVR6,B；更新最大值MOVR2,DPH；更新最大值存放地址MOVR3,DPLSJMPMMS7MMS4:MOVA,B；与最小值比较CLRCSUBBA,R7JNBOV,MMS6；差未溢出，符号位有效CPLACC.7；差溢出，符号位取反MMS6: JNBACC.7,MMS7；差为正，不更新最小值MOVR7,B；更新最小值MOVR4,DP

37、H；更新最小值存放地址MOVR5,DPLMMS7: DJNZR1,MMS1；处理完全部数据POPDPH；恢复数据首址POPDPLMMSE:RET (26) 标号: FDS1 功能:顺序查找(ROM)单字节表格入口条件:待查找的内容在A中，表格首址在DPTR中，表格的字节数在R7中。出口信息:OV=0时，顺序号在累加器A中；OV=1时，未找到。影响资源:PSW、A、B、R2、R6 堆栈需求: 字节FDS1:MOVB,A；保存待查找的内容MOVR2,#0；顺序号初始化(指向表首)MOVA,R7；保存表格的长度MOVR6,AFD11:MOVA,R2；按顺序号读取表格内容MOVCA,A+DPTRCJN

38、EA,B,FD12；与待查找的内容比较CLROV；相同，查找成功MOVA,R2；取对应的顺序号RETFD12:INCR2；指向表格中的下一个内容DJNZR6,FD11；查完全部表格内容SETBOV；未查找到，失败RET(27) 标号: FDS2 功能:顺序查找(ROM)双字节表格入口条件:查找内容在R4、R5中,表格首址在DPTR中,数据总个数在R7中。出口信息:OV=0时顺序号在累加器A中,地址在DPTR中；OV=1时未找到。影响资源:PSW、A、R2、R6、DPTR 堆栈需求: 字节FDS2:MOVA,R7；保存表格中数据的个数MOVR6,AMOVR2,#0；顺序号初始化(指向表首)FD21:CLRA；读取表格内容的高字节MOVCA,A+DPTRXRLA,R4；与待查找内容的高字节比较JNZFD22MOVA,#1；读取表格内容的低字节MOVCA,A+DPTRXRLA,R5；与待查找内容的低字节比较JNZFD22CLROV；相同，查找成功MOVA,R2；取对应的顺序号RET FD22:INCDPTR；指向下一