实用汇编子程序.doc

ＭＣＳ－５１定点运算子程序库及其使用说明 ???? １．多字节定点操作数：用 [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,A ? ?ADD??A,R0?? ；初始化数据指针 ? ?MOV??R0,A ?? MOV??A,R2 ?? ADD??A,R1 ?? MOV??R1,A ?? CLR??C BCD1:? ?DEC??R0?? ；调整数据指针 ?? DEC??R1 ? ?MOV??A,@R0 ? ?ADDC??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???? ；恢复借位标志 ?? RET NEG1:??MOV??A,R0?? ； [R1] 十进制取补子程序入口 ? ?XCH??A,R1?? ；交换指针 ?? XCH??A,R0 ?? LCALL??NEG?? ；通过 [R0] 实现 [R1] 取补 ?? MOV??A,R0 ?? XCH??A,R1?? ；换回指针 ?? XCH??A,R0 ?? RET ???? （３） ?? 标号： ?? ＮＥＧ ???? 功能：多字节ＢＣＤ码取补 入口条件：字节数在 R7 中，操作数在 [R0] 中。 出口信息：结果仍在 [R0] 中。 影响资源： PSW 、 A 、 R2 、 R3???? 堆栈需求： ?? ２字节 NEG:??MOV??A,R7?? ；取（字节数减一）至 R2 中 ?? DEC??A ?? MOV??R2,A ?? MOV??A,R0?? ；保护指针 ?? MOV??R3,A NEG0:?CLR??C?? ?? MOV??A,#99H ?? SUBB??A,@R0?? ；按字节十进制取补 ?? MOV??@R0,A?? ；存回 [R0] 中 ?? INC??R0?? ；调整数据指针 ?? DJNZ??R2,NEG0?? ；处理完（ R2 ）字节 ?? MOV??A,#9AH?? ；最低字节单独取补 ?? SUBB??A,@R0 ?? MOV??@R0,A ?? MOV??A,R3?? ；恢复指针 ?? MOV??R0,A ?? RET ???? （４） ?? 标号： ?? ＢＲＬＮ ???? 功能：多字节ＢＣＤ码左移十进制一位（乘十） 入口条件：字节数在 R7 中，操作数在 [R0] 中。 出口信息：结果仍在 [R0] 中，移出的十进制最高位在 R3 中。 影响资源： P