单片机实现简易计算器源代码Word文档下载推荐.docx
《单片机实现简易计算器源代码Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《单片机实现简易计算器源代码Word文档下载推荐.docx（55页珍藏版）》请在冰点文库上搜索。
SOURCECODE=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
;
显示程序符号定义
COM
EQU
45H
DAT
46H
CW_ADD
5FFCH
CR_ADD
5FFDH
DW_ADD
5FFEH
DR_ADD
5FFFH
子程序说明：
寄存器工作组使用
WAITKEY,00
KEYPRESSED,MAKENUM,RES2RAW等子程序,01
FLOATINGLIB,10
CALCULATE使用01,当调用浮点程序库时10
显示子程序，11
======================================================================
工作区使用注意：
-=-=1.位寻址区=-=-=-
20H-21H两个字用作位状态（位地址00H-0FH）
23H-27H
NOTUSE!
ESP.23H
28H-2FH为显示区域与记录输入数字所用,RAWIN
PNTB
BIT10H;
小数点位指示（位地址,POINTBIT）
POSB
BIT11H;
位置位，POSB=1表示创建BCD低位，POSB=0表示创建BCD高位
DPB
BIT12H
大于1的浮点数MAKENUM时，指示小数点是否已经加入
04H-08H,ARBITRARYUSE
BYTE2
BIT14H
SEEBYTE2USAGE（CTRL+F,FINDIT.）
STAT保存整个计算器的运行状态！
BITASSIGNMENT:
.7:
ERROR
.6:
FLOAT
.5&
.4:
OPERATOR
VALUEMEANING:
00:
ADD
01:
SUB
10:
MUL
11:
DIV
.3:
OPERATORPRESSED
.2:
CONSTRUCTINGNUM2
.1:
CONSTRUCTINGNUM1
.0:
EQUALSIGNPRESSED
STAT
EQU20H
DCOUNT
EQU21H
数字位数计数（DIGITCOUNT），只是RAWIN中有效字节
INPUT
EQU2AH
键盘输入暂存
RAWPTR
EQU2BH
显示缓冲区指针
NUMPTR
EQU2CH
当前组建数字的指针
TEMP1
EQU2DH
临时存储，一般用于临时保存R0,R1
TEMP2
EQU2EH
以切换寄存器组,UNUNSED...07.25.NIGHT
-=-=2.IRAM=-=-
30H-33H为第一个操作数
34H-37H为第二个操作数
38H-3FH为显示区域
48H-4FH为临时存储区域
结果则存储在第一个操作数位置
NUM1
EQU30H
NUM2
EQU34H
RAWIN
EQU38H
TEMP
EQU48H
-=-=-=3.REGISTERS=-=-=-
键盘扫描使用寄存器组0，浮点程序使用寄存器组2
其余数字组合部分用寄存器组1
测试程序使用寄存器组3
ASCIITABLE
'
.'
->
2EH
+'
2BH
-'
2DH
*'
2AH
/'
2FH
='
3DH
////////////////////////////////////////////////////////////////////
///
///
THE
[MAIN]
PROGRAM
ZEROX@2005.7.14
ORG0000H
LJMPMAIN
ORG0030H
MAIN:
全局初始化
MOVSP,#60H
堆栈
MOVIE,#00H
禁止所有中断
寄存器组00
CLRRS1
CLRRS0
工作区IRAM（20H-5FH）默认全为0
INIT20TO5F:
MOVR0,#20H
STARTAT20H
MOVR7,#40H
64BYTESTOZERO
LOOP20TO5F:
MOV@R0,#00H
INCR0
DJNZR7,LOOP20TO5F
---------------------------------
SETBSTAT.0
初始状态为等号状态
MOVR7,#00H
MOVSCON,#00H;
串行工作方式0
-------------------------------------
DISPLAYINIT
LCALL
LCDINIT
MOV
COM,#06H
PR1
COM,#0C0H
MAIN_LOOP:
键盘输入
获取键盘输入，使用寄存器组00
获取输入
MOVA,#0F0H
WAITKEY:
NOP
CJNEA,#0F0H,WAITKEY_OK
LCALLKEY
SJMPWAITKEY
WAITKEY_OK:
MOVA,R7
MOVINPUT,A
保存键盘输入到INPUT
按键响应（内部处理）
处理键盘输入，使用寄存器组01
SETBRS0
LCALLKEYPRESSED
显
示
LCALLDISPLAY
SJMPMAIN_LOOP
========================================================
==
==
SUBROUTINES
KEYPRESSED:
键盘输入保存在A中，同时也保存在INPUT中
ANLA,#0F0H
屏闭低4位字节
JNZNONDIGIT
高位非零，不是数字
=========================================
按键为数字
否则按下的是数字，添加到显示缓冲区
MOVA,INPUT
取回数字，高位已经是0
如果之前处于“等号”状态，则此为NUM1
JBSTAT.0,NEWNUM1
如果之前处于运算符状态，则此为NUM2
JBSTAT.3,NEWNUM2
如果处于第一个数字状态
JBSTAT.1,INNUM1
如果处于第二个数字状态
JBSTAT.2,INNUM2
否则出错！
！
SETBSTAT.7
ERRORBIT
RET
KEYPRESSED直接结束
--------------------------
NEWNUM1:
ANLSTAT,#0F0H
操作状态清零（低4位）
SETBSTAT.1
计算器状态改为NUM1
同时清除浮点运算状态
CLRSTAT.6
STAT.6->
FLOATINGPOINT
SJMPNEWNUM
NEWNUM2:
SETBSTAT.2
计算器状态改为NUM2
NEWNUM:
准备开始一个新的操作数，首先清除显示缓冲区
MOVRAWPTR,#RAWIN;
指向开始
清除小数点标志位
CLRPNTB
MOVDCOUNT,#00H
数字个数清零
判断数字是否为0，0则忽略
JZIGNORE0
非零数字，保存
MOVRAWIN,A
此时RAWPTR单元的值，也就是地址
就是RAWIN
INCRAWPTR
数字位数增1
INCDCOUNT
IGNORE0:
RET
INNUM1:
INNUM2:
MOVR2,DCOUNT
CJNER2,#08H,INNUM_OK
数字个数已经达到最大值，忽略本次输入
INNUM_OK:
MOVR0,RAWPTR
使用R0间接寻址
MOV@R0,A
按键非数字
NONDIGIT:
恢复A
INCA
用0FFH表示，加1后为0
JZDECPNT
DECIMALPOINTPRESSED
DECA
否则不是小数点，减一恢复之
非数字的情况:
1.加,减,乘,除:
高4位应该分别为0001,0010,0011,0100
2.小数点:
代码为0FFH,前面已经考虑
3.等号:
10000000（80H）
首先检查是否是等号（最高位为1）
JBACC.7,KEYEQU
否则作为运算符对待
LJMPKEYOP
ERRORND:
ERROROFNON-DIGIT
出错…………
SETBSTAT.7
LJMPEXIT
=======================================================
DECPNT:
根据计算器状态进行操作
JBSTAT.1,DP1
JBSTAT.2,DP2
JBSTAT.3,DP3
JBSTAT.0,DP0
LCALLEXIT
DP1:
DP2:
在数字输入状态下下按下了小数点，如果之前已经按过小数点
则忽略此次输入，计算器状态字无需修改
JBPNTB,DP_DONE;
小数点已经按下
否则，这是本次操作数输入第一次按下小数点
首先设置小数点已经按下标志位
SETBPNTB
否则添加小数点到输入区，也就是显示区
首先判断第一个数字是不是0
获取指针用于比较
如果当前输入位置不是开始（前面已有非零数字存储），直接添加小数点
CJNER0,#RAWIN,DP_ADD
否则，RAWPTR还是指向RAWIN位置，第一个数字设置为0，
后再添加小数点
用R0间接寻址
DP_ADD:
R0间接寻址
MOV@R0,#0FFH
DECIMALPOINT
DP_DONE:
--------------------
DP0:
之前的状态为等号，按下小数点后因该开始第一个操作数输入
设置状态
ANLSTAT,#0F0H
SETBSTAT.1
SJMPDP_NEW
DP3:
之前处于操作符状态，按下小数点则应该开始第二个操作数输入
SETBSTAT.2
新的操作数开始
DP_NEW:
小数点开始的新的操作数，添加'
0'
两个输入
初始化
MOVRAWPTR,#RAWIN
MOVDCOUNT,#00H
MOVRAWIN,#00H
第一个数字，0
使用R0间接寻址来存储小数点
小数点使用0FFH表示
KEYEQU:
保存原来的状态
MOVB,STAT
设置现在的状态为EQU
清楚低4位状态
EQUSTATBIT
根据原来的状态采取相应的操作
JBB.1,EQU1
原来处于第一个数的输入状态
JBB.2,EQU2
原来处于第二个数的输入状态（NORMAL）
JBB.3,EQU3
原来处于操作符状态
JBB.0,EQU0
原来处于等号状态
EQU1:
在第一个数的状态下按了等号，那么第一个数不需要进计算
直接作为结果显示，实际上RAWIN就是当前的操作数的显示格式
因此只需要将第一个数转换成浮点数存储于NUM1
MOVR0,#RAWIN
SOURCE
MOVR1,#NUM1
DESTINATION
LCALLMAKENUM
NOTE:
MAKENUM!
!
EQU2:
在第二个数的状态下按了等号，这是最普通的操作
首先转换操作数二到NUM2位置，然后计算结果
并将结果转化为RAWIN形式，供DISPLAY显示
MOVR0,#RAWIN
MOVR1,#NUM2
MAKENUM..
计算结果，结果放在NUM1
LCALLCALCULATE
CALCULATE!
结果转换为RAWIN，即从NUM1到RAWIN
LCALLRES2RAW
RES2RAW
EQU3:
原来状态为操作符，然后直接按了等号
本程序采取的措施为：
等1号覆盖前面的操作符
因此不需要采取任何措施，直接同按下了第一个
操作数后直接按等号相同，由于按下操作符的时候
已经处理了第一个操作数，因此这里直接返回
EQU0:
SYSTEMRESET
原来状态为等号，然后又按了等号
第一次按等号的时候已经处理好，这里只需返回
07.24修改，连续两次等号相当于清0
首先清除错误状态位
CLRSTAT.7
DCOUNT设置为0，显示就为0
操作符处理，注意：
前面已经判断不是等号
KEYOP:
保存操作符号:
给定的是10H,20H,30H,40H
转换为00H,10H,20H,30H.即,减去10H
DEBUGHERE
CLRC
SUBBA,#10H
INVARIANT:
除了4,5位,其他位不可能为1
KEYOP_NE:
KEYOPERATOR,NOERROR
如果是第一个数之后按的运算符
JBSTAT.1,KOP1
如果是第二个数之后按的运算符
JBSTAT.2,KOP2
如果是一个运算符之后按的运算符
JBSTAT.3,KOP3
如果是按了等号后按的运算符
JBSTAT.0,KOP0
------------------
KO_NE_DONE:
KEYOPERATOR,NOTEQUAL,DONE
完成相应的操作后，更新STAT到当前状态
取回INPUT，并减去10H，成为STAT要求的操作符表示
MOVA,INPUT
运算符信息保存在STAT的4,5位
先将4，5位清0
ANLSTAT,#0CFH
#11001111B
ORLSTAT,A
设置4，5位
设置新的计算器状态
清除状态（低4位）
SETBSTAT.3
操作符号状态
KEYPRESSED返回
--------
KOP1:
如果按了第一个数字之后按了操作符
则首先将当前显示缓冲区里的数字
拼合为3字节浮点数
保存在NUM1位置
RAWIN保持不变，因此计算器显示的仍然为
第一个操作数
需要进行拼凑的数字
目的
LCALLMAKENUM
SJMPKO_NE_DONE
KOP2:
如果按了第二个数字之后按了操作符,
首先计算前面的结果,然后结果作为
第一个数,并设置状态为操作符
显示区域的数据为前面操作的结果
即：
需要将3字节的浮点数结果转化
为可以显示的RAWIN格式。
创建第二个操作数
MOVR1,#NUM2
执行计算
LCALLCALCULATE
结果默认已经存储于到NUM1位置
但是需要将其转换为RAWIN形式用于DISPLAY子程序的显示
KOP3:
按了
升级会员 