计算器.txt

在５１单片机上实现４Ｘ４键盘控制的简易计算器功能．能实现加减乘除功能

CLR C 
RRC A 
SUBB A,R3 
CLR A 
ADDC A,R1 ; 将结果存回R3R4 
MOV R4,A 
CLR A 
ADDC A,R0 
MOV R3,A 
POP ACC ; 恢复R0R1R2 
MOV R2,A 
POP ACC 
MOV R1,A 
POP ACC 
MOV R0,A 
MOV A,R2 ; 计算商的阶码 
CLR C 
SUBB A,R5 
LCALL MD ; 阶码检验 
LJMP RLN ; 规格化 

;（６） 标号： ＦＣＬＲ 功能：浮点数清零 

;入口条件：操作数在[R0]中。 
;出口信息：操作数被清零。 
;影响资源：A 堆栈需求： ２字节 
FCLR: INC R0 
INC R0 
CLR A 
MOV @R0,A 
DEC R0 
MOV @R0,A 
DEC R0 
MOV @R0, #41H
RET 

;（７） 标号： ＦＺＥＲ 功能：浮点数判零 

;入口条件：操作数在[R0]中。 
;出口信息：若累加器A为零，则操作数[R0]为零，否则不为零。 
;影响资源：A 堆栈需求： ２字节 
FZER: INC R0 
INC R0 
MOV A,@R0 
DEC R0 
ORL A,@R0 
DEC R0 
JNZ ZERO
MOV @R0,#41H 
ZERO: RET 

;（８） 标号： ＦＭＯＶ 功能：浮点数传送 

;入口条件：源操作数在[R1]中，目标地址为[R0]。 
;出口信息：[R0]=[R1]，[R1]不变。 
;影响资源：A 堆栈需求： ２字节 
FMOV: INC R0 
INC R0 
INC R1 
INC R1 
MOV A,@R1 
MOV @R0,A 
DEC R0 
DEC R1 
MOV A,@R1 
MOV @R0,A 
DEC R0 
DEC R1 
MOV A,@R1 
MOV @R0,A 
RET 

;（９） 标号： ＦＰＵＳ 功能：浮点数压栈 

;入口条件：操作数在[R0]中。 
;出口信息：操作数压入栈顶。 
;影响资源：A、R2、R3 堆栈需求： ５字节 
FPUS: POP ACC ; 将返回地址保存在R2R3中 
MOV R2,A 
POP ACC 
MOV R3,A 
MOV A,@R0 ; 将操作数压入堆栈 
PUSH ACC 
INC R0 
MOV A,@R0 
PUSH ACC 
INC R0 
MOV A,@R0 
PUSH ACC 
DEC R0 
DEC R0 
MOV A,R3 ; 将返回地址压入堆栈 
PUSH ACC 
MOV A,R2 
PUSH ACC 
RET ; 返回主程序 

;（１０） 标号： ＦＰＯＰ 功能：浮点数出栈 

;入口条件：操作数处于栈顶。 
;出口信息：操作数弹至[R0]中。 
;影响资源：A、R2、R3 堆栈需求： ２字节 
FPOP: POP ACC ; 将返回地址保存在R2R3中 
MOV R2,A 
POP ACC 
MOV R3,A 
INC R0 
INC R0 
POP ACC ; 将操作数弹出堆栈，传送到[R0]中 
MOV @R0,A 
DEC R0 
POP ACC 
MOV @R0,A 
DEC R0 
POP ACC 
MOV @R0,A 
MOV A,R3 ; 将返回地址压入堆栈 
PUSH ACC 
MOV A,R2 
PUSH ACC 
RET ; 返回主程序 

;（１１） 标号： ＦＣＭＰ 功能：浮点数代数值比较（不影响待比较操作数） 

;入口条件：待比较操作数分别在[R0]和[R1]中。 
;出口信息：若CY=1，则[R0] < [R1]，若CY=0且A=0则 [R0] = [R1]，否则[R0] > [R1]。 
;影响资源：A、B、PSW 堆栈需求： ２字节 
FCMP: MOV A,@R0 ; 数符比较 
XRL A,@R1 
JNB ACC.7,CMP2 
MOV A,@R0 ; 两数异号，以[R0]数符为准 
RLC A 
MOV A,#0FFH 
RET 
CMP2: MOV A,@R1 ; 两数同号，准备比较阶码 
MOV C,ACC.6 
MOV ACC.7,C 
MOV B,A 
MOV A,@R0 
MOV C,ACC.7 
MOV F0,C ; 保存[R0]的数符 
MOV C,ACC.6 
MOV ACC.7,C 
CLR C ; 比较阶码 
SUBB A,B 
JZ CMP6 
RLC A ; 取阶码之差的符号 
JNB F0,CMP5 
CPL C ; [R0]为负时，结果取反 
CMP5: MOV A,#0FFH ; 两数不相等 
RET 
CMP6: INC R0 ; 阶码相同时，准备比较尾数 
INC R0 
INC R1 
INC R1 
CLR C 
MOV A,@R0 
SUBB A,@R1 
MOV B,A ; 保存部分差 
DEC R0 
DEC R1 
MOV A,@R0 
SUBB A,@R1 
DEC R0 
DEC R1 
ORL A,B ; 生成是否相等信息 
JZ CMP7 
JNB F0,CMP7 
CPL C ; [R0]为负时，结果取反 
CMP7: RET 

;（１２） 标号： ＦＡＢＳ 功能：浮点绝对值函数 

;入口条件：操作数在[R0]中。 
;出口信息：结果仍在[R0]中。 
;影响资源：A 堆栈需求： ２字节 
;FABS: MOV A,@R0 ; 读取操作数的阶码 
CLR ACC.7 ; 清除数符 
MOV @R0,A ; 回传阶码 
RET 

;（１３） 标号： ＦＳＧＮ 功能：浮点符号函数 

;入口条件：操作数在[R0]中。 
;出口信息：累加器 A=1 时为正数，A=0FFH时为负数，A=0 时为零。 
;影响资源：PSW、A 堆栈需求： ２字节 
FSGN: INC R0 ; 读尾数 
MOV A,@R0 
INC R0 
ORL A,@R0 
DEC R0 
DEC R0 
JNZ SGN 
RET ; 尾数为零，结束 
SGN: MOV A,@R0 ; 读取操作数的阶码 
RLC A ; 取数符 
MOV A,#1 ; 按正数初始化 
JNC SGN1 ; 是正数，结束 
MOV A,#0FFH ; 是负数，改变标志 
SGN1: RET 

;（１４） 标号： ＦＩＮＴ 功能：浮点取整函数 

;入口条件：操作数在[R0]中。 
;出口信息：结果仍在[R0]中。 
;影响资源：PSW、A、R2、R3、R4、位1FH 堆栈需求： ６字节 
FINT: LCALL MVR0 ; 将[R0]传送到第一工作区中 
LCALL INT ; 在工作寄存器中完成取整运算 
LJMP MOV0 ; 将结果传回到[R0]中 
INT: MOV A,R3 
ORL A,R4 
JNZ INTA 
CLR 1FH ; 尾数为零，阶码也清零，结束取整 
MOV R2,#41H 
RET 
INTA: MOV A,R2 
JZ INTB ; 阶码为零否？ 
JB ACC.7,INTB; 阶符为负否？ 
CLR C 
SUBB A,#10H ; 阶码小于１６否？ 
JC INTD 
RET ; 阶码大于１６，已经是整数 
INTB: CLR A ; 绝对值小于一，取整后正数为零，负数为负一 
MOV R4,A 
MOV C,1FH 
RRC A 
MOV R3,A 
RL A 
MOV R2,A 
JNZ INTC 
MOV R2,#41H 
INTC: RET 
INTD: CLR F0 ; 舍尾标志初始化 
INTE: CLR C 
LCALL RR1 ; 右规一次 
ORL C,F0 ; 记忆舍尾情况 
MOV F0,C 
CJNE R2,#10H,INTE; 阶码达到１６（尾数完全为整数）否？ 
JNB F0,INTF ; 舍去部分为零否？ 
JNB 1FH,INTF; 操作数为正数否？ 
INC R4 ; 对于带小数的负数，向下取整 
MOV A,R4 
JNZ INTF 
INC R3 
INTF: LJMP RLN ; 将结果规格化 

; ------------------------------------------------------

;（２６） 标号： ＢＴＯＦ 功能：
; 浮点ＢＣＤ码转换成格式化浮点数 

; 入口条件：浮点ＢＣＤ码操作数在[R0]中。 
; 出口信息：转换成的格式化浮点数仍在[R0]中。 
; 影响资源：PSW、A、B、R2～R7、位1DH～1FH
; 堆栈需求：６字节 

BTOF: INC R0 ; 判断是否为零。 
INC R0 
MOV A,@R0 
MOV R7,A 
DEC R0 
MOV A,@R0 
MOV R6,A 
DEC R0 
ORL A,R7 
JNZ BTF0 
MOV @R0,#41H; 为零，转换结束。 
RET 
BTF0: MOV A,@R0 
MOV C,ACC.7 
MOV 1DH,C ; 保存数符。 
CLR 1FH ; 以绝对值进行转换。 
MOV C,ACC.6 ; 扩充阶码为八位。 
MOV ACC.7,C 
MOV @R0,A 
JNC BTF1 
ADD A,#19 ; 是否小于１Ｅ－１９？ 
JC BTF2 
MOV @R0,#41H; 小于１Ｅ－１９时以０计。 
INC R0 
MOV @R0,#0 
INC R0 
MOV @R0,#0 
DEC R0 
DEC R0 
RET 
BTF1: SUBB A,#19 
JC BTF2 
MOV A,#3FH ; 大于１Ｅ１９时封顶。 
MOV C,1DH 
MOV ACC.7,C 
MOV @R0,A 
INC R0 
MOV @R0,#0FFH 
INC R0 
MOV @R0,#0FFH 
DEC R0 
DEC R0 
RET 
BTF2: CLR A ; 准备将ＢＣＤ码尾数转换成十六进制浮点数。 
MOV R4,A 
MOV R3,A 
MOV R2,#10H ; 至少两个字节。 
BTF3: MOV A,R7 
ADD A,R7 
DA A 
MOV R7,A 
MOV A,R6 
ADDC A,R6 
DA A 
MOV R6,A 
MOV A,R4 
RLC A 
MOV R4,A 
MOV A,R3 
RLC A 
MOV R3,A 
DEC R2 
JNB ACC.7,BTF3; 直到尾数规格化。 
MOV A,R6 ; 四舍五入。 
ADD A,#0B0H 
CLR A 
ADDC A,R4 
MOV R4,A 
CLR A 
ADDC A,R3 
MOV R3,A 
JNC BTF4 
MOV R3,#80H 
INC R2 
BTF4: MOV DPTR,#BTFL; 准备查表得到十进制阶码对应的浮点数。 
MOV A,@R0 
ADD A,#19 ; 计算表格偏移量。 
MOV B,#3 
MUL AB 
ADD A,DPL 
MOV DPL,A 
JNC BTF5 
INC DPH 
BTF5: CLR A ; 查表。 
MOVC A,@A+DPTR 
MOV C,ACC.6 
MOV ACC.7,C 
MOV R5,A 
MOV A,#1 
MOVC A,@A+DPTR 
MOV R6,A 
MOV A,#2 
MOVC A,@A+DPTR 
MOV R7,A 
LCALL MUL1 ; 将阶码对应的浮点数和尾数对应的浮点数相乘。 
MOV C,1DH ; 取出数符。 
MOV 1FH,C 
LJMP MOV0 ; 传送转换结果。 

;（２７） 标号： ＦＴＯＢ
; 功能：格式化浮点数转换成浮点ＢＣＤ码 

; 入口条件：格式化浮点操作数在[R0]中。 
; 出口信息：转换成的浮点ＢＣＤ码仍在[R0]中。 
; 影响资源：PSW、A、B、R2～R7、位1DH～1FH
; 堆栈需求：６字节 
FTOB: INC R0 
MOV A,@R0 
INC R0 
ORL A,@R0 
DEC R0 
DEC R0 
JNZ FTB0 
MOV @R0,#41H 
RET 
FTB0: MOV A,@R0 
MOV C,ACC.7 
MOV 1DH,C 
CLR ACC.7 
MOV @R0,A 
LCALL MVR0 
MOV DPTR,#BFL0; 绝对值大于或等于１时的查表起点。 
MOV B,#0 ; 十的０次幂。 
MOV A,R2 
JNB ACC.7,FTB1 
MOV DPTR,#BTFL; 绝对值小于１Ｅ－６时的查表起点。 
MOV B,#0EDH ; 十的－１９次幂。 
ADD A,#16 
JNC FTB1 
MOV DPTR,#BFLN; 绝对值大于或等于１Ｅ－６时的查表起点。 
MOV B,#0FAH ; 十的－６次幂。 
FTB1: CLR A ; 查表，找到一个比待转换浮点数大的整数幂。 
MOVC A,@A+DPTR 
MOV C,ACC.6 
MOV ACC.7,C 
MOV R5,A 
MOV A,#1 
MOVC A,@A+DPTR 
MOV R6,A 
MOV A,#2 
MOVC A,@A+DPTR 
MOV R7,A 
MOV A,R5 ; 和待转换浮点数比较。 
CLR C 
SUBB A,R2 
JB ACC.7,FTB2; 差为负数。 
JNZ FTB3 
MOV A,R6 
CLR C 
SUBB A,R3 
JC FTB2 
JNZ FTB3 
MOV A,R7 
CLR C 
SUBB A,R4 
JC FTB2 
JNZ FTB3 
MOV R5,B ; 正好是表格中的数。 
INC R5 ; 幂加一。 
MOV R6,#10H ; 尾数为０·１０００。 
MOV R7,#0 
SJMP FTB6 ; 传送转换结果。 
FTB2: INC DPTR ; 准备表格下一项。 
INC DPTR 
INC DPTR 
INC B ; 幂加一。 
SJMP FTB1 ;  
FTB3: PUSH B ; 保存幂值。 
LCALL DIV3 ; 相除，得到一个二进制浮点数的纯小数。 
FTB4: MOV A,R2 ; 取阶码。 
JZ FTB5 ; 为零吗？ 
CLR C 
LCALL RR1 ; 右规。 
SJMP FTB4 
FTB5: POP ACC ; 取出幂值。 
MOV R5,A ; 作为十进制浮点数的阶码。 
LCALL HB2 ; 转换尾数的十分位和百分位。 
MOV R6,A 
LCALL HB2 ; 转换尾数的千分位和万分位。 
MOV R7,A 
MOV A,R3 ; 四舍五入。 
RLC A 
CLR A 
ADDC A,R7 
DA A 
MOV R7,A 
CLR A 
ADDC A,R6 
DA A 
MOV R6,A 
JNC FTB6 
MOV R6,#10H 
INC R5 
FTB6: INC R0 ; 存放转换结果。 
INC R0 
MOV A,R7 
MOV @R0,A 
DEC R0 
MOV A,R6 
MOV @R0,A 
DEC R0 
MOV A,R5 
MOV C,1DH ; 取出数符。 
MOV ACC.7,C 
MOV @R0,A 
RET 
HB2: MOV A,R4 ; 尾数扩大１００倍。 
MOV B,#100 
MUL AB 
MOV R4,A 
MOV A,B 
XCH A,R3 
MOV B,#100 
MUL AB 
ADD A,R3 
MOV R3,A 
JNC HB21 
INC B 
HB21: MOV A,B ; 将整数部分转换成ＢＣＤ码。 
MOV B,#10 
DIV AB 
SWAP A 
ORL A,B 
RET 
BTFL: DB 41H,0ECH,1EH ; 1.0000E-19 
DB 45H,93H,93H ; 1.0000E-18 
DB 48H,0B8H,78H ; 1.0000E-17 
DB 4BH,0E6H,96H ; 1.0000E-16 
DB 4FH,90H,1DH ; 1.0000E-15 
DB 52H,0B4H,25H ; 1.0000E-14 
DB 55H,0E1H,2EH ; 1.0000E-13 
DB 59H,8CH,0BDH ; 1.0000E-12 
DB 5CH,0AFH,0ECH ; 1.0000E-11 
DB 5FH,0DBH,0E7H ; 1.0000E-10 
DB 63H,89H,70H ; 1.0000E-9 
DB 66H,0ABH,0CCH ; 1.0000E-8 
DB 69H,0D6H,0C0H ; 1.0000E-7 
BFLN: DB 6DH,86H,38H ; 1.0000E-6 
DB 70H,0A7H,0C6H ; 1.0000E-5 
DB 73H,0D1H,0B7H ; 1.0000E-4 
DB 77H,83H,12H ; 1.0000E-3 
DB 7AH,0A3H,0D7H ; 1.0000E-2 
DB 7DH,0CCH,0CDH ; 1.0000E-1 
BFL0: DB 1,80H,00H ; 1.0000 
DB 4,0A0H,00H ; 1.0000E1 
DB 7,0C8H,00H ; 1.0000E2 
DB 0AH,0FAH,00H ; 1.0000E3 
DB 0EH,9CH,40H ; 1.0000E4 
DB 11H,0C3H,50H ; 1.0000E5 
DB 14H,0F4H,24H ; 1.0000E6 
DB 18H,98H,97H ; 1.0000E7 
DB 1BH,0BEH,0BCH ; 1.0000E8 
DB 1EH,0EEH,6BH ; 1.0000E9 
DB 22H,95H,03H ; 1.0000E10 
DB 25H,0BAH,44H ; 1.0000E11 
DB 28H,0E8H,0D5H ; 1.0000E12 
DB 2CH,91H,85H ; 1.0000E13 
DB 2FH,0B5H,0E6H ; 1.0000E14 
DB 32H,0E3H,60H ; 1.0000E15 
DB 36H,8EH,1CH ; 1.0000E16 
DB 39H,31H,0A3H ; 1.0000E17 
DB 3CH,0DEH,0BH ; 1.0000E18 
DB 40H,8AH,0C7H ; 1.0000E19 

; ////////////////////////////////////////////////////////////////

END

-=-=-=-=-=-=-=-=-=-=-=-=-=   END   =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-