单片机实用程序.docVIP

单片机实用程序 tamsex 发表于 2006-4-10 19:43:00 ＭＣＳ－５１单片机实用子程序(1)（一）ｍｃｓ－５１定点运算子程序库及其使用说明定点运算子程序库文件名为dq51.asm，为便于使用，先将有关约定说明如下：１．多字节定点操作数：用[r0]或[r1]来表示存放在由r0或r1指示的连续单元中的数据。地址小的单元存放数据的高字节。例如：[r0]=123456h，若(r0)=30h，则(30h)=12h，(31h)=34h，(32h)=56h。２．运算精度：单次定点运算精度为结果最低位的当量值。３．工作区：数据工作区固定在psw、a、b、r2～r7，用户只要不在工作区中存放无关的或非消耗性的信息，程序就具有较好的透明性。 （１） 标号： ｂｃｄａ功能：多字节ｂｃｄ码加法 入口条件：字节数在r7中，被加数在[r0]中，加数在[r1]中。出口信息：和在[r0]中，最高位进位在cy中。影响资源：psw、a、r2 堆栈需求： ２字节 bcda: mov a,r7 ；取字节数至r2中mov r2,aadd a,r0 ；初始化数据指针mov r0,amov a,r2add a,r1mov r1,aclr cbcd1: dec r0 ；调整数据指针dec r1mov a,@r0addc a,@r1 ；按字节相加da a ；十进制调整mov @r0,a ；和存回[r0]中djnz r2,bcd1 ；处理完所有字节ret （２） 标号： ｂｃｄｂ功能：多字节ｂｃｄ码减法 入口条件：字节数在r7中，被减数在[r0]中，减数在[r1]中。出口信息：差在[r0]中，最高位借位在cy中。影响资源：psw、a、r2、r3 堆栈需求： ６字节 bcdb: lcall neg1 ；减数[r1]十进制取补lcall bcda ；按多字节ｂｃｄ码加法处理cpl c ；将补码加法的进位标志转换成借位标志mov f0,c ；保护借位标志lcall neg1 ；恢复减数[r1]的原始值mov c,f0 ；恢复借位标志retneg1: mov a,r0 ；[r1]十进制取补子程序入口xch a,r1 ；交换指针xch a,r0lcall neg ；通过[r0]实现[r1]取补mov a,r0xch a,r1 ；换回指针xch a,r0ret （３） 标号： ｎｅｇ功能：多字节ｂｃｄ码取补 入口条件：字节数在r7中，操作数在[r0]中。出口信息：结果仍在[r0]中。影响资源：psw、a、r2、r3 堆栈需求： ２字节 neg: mov a,r7 ；取（字节数减一）至r2中dec amov r2,amov a,r0 ；保护指针mov r3,aneg0: clr cmov a,#99hsubb a,@r0 ；按字节十进制取补mov @r0,a ；存回[r0]中inc r0 ；调整数据指针djnz r2,neg0 ；处理完（r2）字节mov a,#9ah ；最低字节单独取补subb a,@r0mov @r0,amov a,r3 ；恢复指针mov r0,aret （４） 标号： ｂｒｌｎ功能：多字节ｂｃｄ码左移十进制一位（乘十） 入口条件：字节数在r7中，操作数在[r0]中。出口信息：结果仍在[r0]中，移出的十进制最高位在r3中。影响资源：psw、a、r2、r3 堆栈需求： ２字节 brln: mov a,r7 ；取字节数至r2中mov r2,aadd a,r0 ；初始化数据指针mov r0,amov r3,#0 ；工作单元初始化brl1: dec r0 ；调整数据指针mov a,@r0 ；取一字节swap a ；交换十进制高低位mov @r0,a ；存回mov a,r3 ；取低字节移出的十进制高位xchd a,@r0 ；换出本字节的十进制高位mov r3,a ；保存本字节的十进制高位djnz r2,brl1 ；处理完所有字节ret （５） 标号： ｍｕｌｄ功能：双字节二进制无符号数乘法 入口条件：被乘数在r2、r3中，乘数在r6、r7中。出口信息：乘积在r2、r3、r4、r5中。影响资源：psw、a、b、r2～r7 堆栈需求： ２字节 muld: mov a,r3 ；计算r3乘r7mov b,r7mul abmov r4,b ；暂存部分积mov r5,amov a,r3 ；计算r3乘r6mov b,r6mul abadd a,r4 ；累加部分积mov r4,aclr aaddc a,bmov r3,amov a,r2 ；计算r2乘r7mov b,r7mul abadd a