单片机子程序.pdf

说明 1．凡查到‘ ’请补为完整根号。 2.与书中清单有出入，以此为准。 程序清单：清单1 ORG 2000H ADD0：CLR C；双精度加法子程序 ADC0：XCH A，R7；双精度带进位位加法子程序 ADDC A，R3 XCH A，R7 XCH A，R6 ADDC A，R2 XCH A，R6 RET ADD1：CLR C；双精度加法子程序 ADC1：XCH A，R7；双精度带进位位加法子程序 ADDC A，R5 XCH A，R7 XCH A，R6 ADDC A，R4 XCH A，R6 RET ADD2：CLR C；双精度加法子程序 ADD2：XCH A，R7；双精度带进位位加法子程序 RLC A XCH A，R7 XCH A，R6 RLC A XCH A，R6 RET SUBO：CLR C；双精度减法子程序 SBCO：XCH A，R7；双精度带进位位减法子程序 SUBB A，R3 XCH A，R7 XCH A，R6 SUBB A，R2 XCH A，R6 RET SUB1：CLR C；双精度减法子程序 SBC1：XCH A，R7；双精度带进位位减法子程序 SUBB A，R5 XCH A，R7 XCH A，R6 SUBB A，R2 XCH A，R6 RET EX：XCH A，R0；两浮点数交换子程序 XCH A，R4 XCH A，R0 EXT：XCH A，R1；两浮点数的尾数交换子程序 XCH A，R5 XCH A，R1 EXX: XCH A，R2；双字节交换 XCH A，R6 XCH A，R2 XCH A，R3 XCH A，R7 XCH A，R3 RET SAVO：MOV R4，08H；第1 操作数（浮点数）装入0CH～0FH 中 SAVT：MOV R5，09H MOV R6，0AH MOV R7，0BH RET DP：MOV A，R5；取存积（商）数符，计算积 （商）的阶码子程序 XRL A，R1 RLC A MOV 7EH，C；存积 （商）数符 MOV A，R0 ADD A，R4；阶码相加（除数阶码已变为补码） JNC DP1 ADD A，＃80H；有进位，和再加上80H，如有进位，为溢出 MOV R4，A RET DP1：SUBB A，＃80H；无进位，和减去80H，如有借位或差等于0，也为溢出 MOV R4，A RET SHIF：CLR C；尾数算术左移1位子程序 H0：XCH A，R7；尾数带进位左移1 位 RLC A XCH A，R7 XCH A，R6 RLC A XCH A，R6 XCH A，R5 RLC A XCH A，R5 RET LR0：XCH A，R3；尾数带进位位左移1位子程序 RLC A XCH A，R3 XCH A，R2 RLC A XCH A，R2 XCH A，R1 RLC A XCH A，R1 RET SRA0：CLR C；尾数逻辑右移1位子程序 SRA：XCH A，R5；尾数带进位位右移1位 SRA1：RRC A；A R6 R7 带进位位右移1位，结果在R5 R6 R7 中 XCH A，R5 XCH A，R6 RRC A XCH A，R6 XCH A，R7 RRC A XCH A，R7 RET RRO：XCH A，R1；尾数带进位位右移1位子程序 RRC A XCH A，R1 XCH A，R2 RRC A XCH A，R2 XCH A，R3 RRC A XCH A，R3 RET INC3：INC R7；尾数增1 子程序 CJNE R7，＃0，RET0 INC R6 CJNE R6，＃0，RET0 INC R5 RET0：RET 清单2 FPCP：MOV A，R1；被减数x1 与减数x2 比较大小子程序