计算器设计.docx
《计算器设计.docx》由会员分享，可在线阅读，更多相关《计算器设计.docx（16页珍藏版）》请在冰豆网上搜索。
计算器设计
DATASEGMENT
XDB?
?
?
?
;存放数据的每一位
X1DW?
;存放第一个数据值
X2DW?
;存放第二个数据值
YDW?
;存放运算结果
SDB?
;存放运算符号值
EDB?
;按下等号键标记
CCDB?
;存放运算数据位数
HDB0;存放按键行号
LDB0;存放按键列号
Z1DB?
Z2DB?
Z3DB?
Z4DB?
DISCODEDB3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77H,7CH,39H,5EH,79H,71H;段码表
DATAENDS
CODESEGMENT
ASSUMECS:
CODE,DS:
DATA
START:
MOVAX,DATA
MOVDS,AX
MOVAL,90H;设置为A口输入，B口输出,C口输出
OUT46H,AL
MOVDI,OFFSETX+3;DI指向X的高位
KKK:
CALLKEY;扫描按键
JMPKKK
;以下为按键扫描子程序，程序返回后，在变量H和L中存放当前按键的行列号
KEYPROC
CHECK:
CALLDISP;等待按键按下的同时进行显示
MOVAL,0F0H;所有行输出低电平
OUT44H,AL
INAL,40H
CMPAL,0FFH;读列值
JZCHECK;若都为高电平则无键按下，等待
MOVCX,100
LOOP$;延时消抖
INAL,DX;重读列值
CMPAL,0FFH
JZCHECK;无键按下一直等待
MOVH,0;有键按下，先把行列号变量清0
MOVL,0
MOVBL,01H
MOVBH,0FEH;扫描法读键值：
从第一行开始测试，即PC0输出低电平
NEXT:
MOVAL,BH
OUT44H,AL
NEXTH:
INAL,40H;读列值，判断是第几列有键按下
TESTAL,BL;从第一列开始判断
JZWAIT0
ROLBL,1
CMPBL,80H;当前行状态下没有任何列有键按下，则转为对下一行的测试
JZNEXTL
INCH;每判断一列，列号加1
JMPNEXTH;再对下一列进行判断
NEXTL:
MOVH,0
MOVBL,01H
ROLBH,1;对下一行测试，让下一个PC口输出低电平
CMPBH,0EFH
JZEXIT
INCL
JMPNEXT
WAIT0:
INAL,40H;若有键按下，则等该按键松开后再计算键值
CMPAL,0FFH
JNZWAIT0
MOVCX,100
LOOP$;延时消抖
INAL,40H
CMPAL,0FFH
JNZWAIT0
CALLKEYVALUE;调计算键值子程序
EXIT:
RET
KEYENDP
;以下为计算键值子程序,通过行列号计算键值（键值=列号*4+行号）
;键值存放在DL寄存器中
KEYVALUEPROC
MOVDL,L
MOVDH,H
SHLDL,1
SHLDL,1;列号乘4
ADDDL,DH
CMPDL,9;按下的是数字键
JNGNUM_CALL
CMPDL,16
JLCONT_CALL;按下的是运算键
CMPDL,16
JZOUTP_CALL;按下的是等于键
CMPDL,17
JZCLR_CALL;按下的是清除键
NUM_CALL:
CALLNUMBER;调数字键处理子程序
JMPEXIT1
CONT_CALL:
MOVS,DL;存放运算键的键值
MOVE,0
CALLCOUNT;调运算键处理子程序，计算第一个加数
JMPEXIT1
OUTP_CALL:
CALLOUTP;调等号键处理子程序
JMPEXIT1
CLR_CALL:
CALLCLEAR;调清除键处理子程序
EXIT1:
RET
KEYVALUEENDP
;以下为清除键处理子程序，按下清除键后，X变量全部清0
CLEARPROC
MOVX[3],0
MOVX[2],0
MOVX[1],0
MOVX[0],0
CALLBITP
RET
CLEARENDP
;以下为等号键处理子程序，该子程序负责将第二个运算数据的数值计算出来存入X2变量
;并根据运算符号，调用相应的运算子程序
OUTPPROC
PUSHAX
PUSHDX
PUSHBX
INCE
CALLCOUNT;调运算键处理子程序，计算第二个运算数据
CMPS,10
JZADD_CALL;运算符为加号，则调用加法子程序
CMPS,11
JZLOG_CALL;运算符为减号，则调用减法子程序
CMPS,12
JZJCE_CALL;运算符为乘号，则调用乘法子程序
CMPS,13
JZDIVP_CALL;运算符为除号，则调用除法子程序
CMPS,14
JZK_CALL
CMPS,15
CALLER
JMPSTORE1
ADD_CALL:
CALLADDP
JMPSTORE1
LOG_CALL:
CALLLOG
JMPSTORE1
JCE_CALL:
CALLJCE
JMPSTORE1
DIVP_CALL:
CALLDIVP
JMPSTORE1
K_CALL:
CALLK
STORE1:
MOVAX,Y;以下程序将各运算子程序返回的运算结果，按位分解，送入X变量
MOVDX,0
MOVBX,1000
DIVBX
MOVX[0],AL
MOVAX,DX
MOVBL,100
DIVBL
MOVX[1],AL
MOVAL,AH
MOVAH,0
MOVBL,10
DIVBL
MOVX[2],AL
MOVX[3],AH
POPBX
POPDX
POPAX
RET
OUTPENDP
;以下为运算键处理子程序，该程序将第一个运算数据的数值计算出来并存入X1变量
;或者将第二个运算数据的数值计算出来并存入X2变量
;将运算符的值存入S变量
COUNTPROC
PUSHAX
PUSHBX
PUSHDX
MOVDX,0
CALLBITP;测试X中的数据是多少位
CMPCC,4;输入的数据是4位数？
JZC4
CMPCC,3;输入的数据是3位数？
JZC3
CMPCC,2;输入的数据是2位数？
JZC2
JMPC1;输入的数据是1位数？
C4:
MOVAX,0
MOVAL,X[0]
MOVBX,1000
MULBX
MOVDX,AX
C3:
MOVAL,X[1]
MOVBL,100
MULBL
ADDDX,AX
C2:
MOVAL,X[2]
MOVBL,10
MULBL
ADDDX,AX
C1:
MOVAL,X[3]
MOVAH,0
ADDDX,AX
CMPE,1
JNZX1_S
MOVX2,DX;按下的是等号，则将第二个运算数据的值存入X2变量
JMPEXIT3
X1_S:
MOVX1,DX;按下的是运算符号，则将第一个运算数据的值存X1变量
MOVX[3],0;清空X变量
MOVX[2],0
MOVX[1],0
MOVX[0],0
EXIT3:
POPDX
POPBX
POPAX
RET
COUNTENDP
;以下为数字键处理子程序
;该程序，将输入的数据按位存放在X变量中，并由CC记录数据的位数
NUMBERPROC
CMPE,1
JNZCONTINUE
MOVE,0
CALLCLEAR
CONTINUE:
CMPCC,0;目前数据为0位，即没有数据，则转到SSS
JZSSS
;若已有数据，以下程序将X左移8位。
;例如：
先输入“1”，当再输入2时，
;先要将“1”从个位移到十位，然后再将“2”存放到个位
PUSHAX
PUSHDX
MOVAL,X[3]
MOVAH,X[2]
MOVDL,X[1]
MOVDH,X[0]
MOVCX,8
LL:
SHLAX,1
RCLDX,1
LOOPLL
MOVX[3],AL
MOVX[2],AH
MOVZ3,AH
MOVX[1],DL
MOVZ2,DL
MOVX[0],DH
MOVZ1,DH
POPDX
POPAX
SSS:
MOV[DI],DL;将当前键入的数据存放到X的最低位
MOVZ4,DL
INCCC;数据位数加1
CMPCC,4;判断数据位数
JNGEXIT2
MOVCC,0;如果数据超过4位，重新从最低位开始存放
MOVX[2],0
MOVX[1],0
MOVX[0],0
EXIT2:
CALLDISP;调显示子程序，显示输入的数据
RET
NUMBERENDP
;n次方子程序
ADDPPROC
PUSHAX
PUSHDX
PUSHCX
MOVCX,X2
DECCX
MOVAX,X1
AGAIN:
MOVDX,X1
MULDX
LOOPAGAIN
MOVY,AX
POPAX
POPDX
POPAX
RET
ADDPENDP
;对数子程序
LOGPROC
PUSHAX
PUSHBX
PUSHCX
PUSHDX
MOVAX,X1
MOVBX,0
MOVCX,2
MOVDX,0
LO:
DIVCX
CMPAX,0
JZG2
INCBX
JMPLO
G2:
MOVY,BX
POPDX
POPCX
POPBX
POPAX
RET
LOGENDP
;阶乘子程序
JCEPROC
PUSHAX
PUSHBX
PUSHCX
PUSHDX
MOVAX,X1
MOVDX,AX
SUBDX,1
MOVCX,DX
MOVBX,DX
CHENG:
MULDX
DECBX
MOVDX,BX
LOOPCHENG
MOVY,AX
POPDX
POPCX
POPBX
POPAX
RET
JCEENDP
;平方子程序
DIVPPROC
PUSHAX
PUSHDX
MOVAX,X1
MOVDX,X1
MULDX
MOVY,AX
POPDX
POPAX
RET
DIVPENDP
;取余子程序
KPROC
PUSHAX
PUSHBX
PUSHDX
MOVDX,0
MOVAX,X1
MOVBX,X2
DIVBX
MOVY,DX
POPDX
POPBX
POPAX
RET
KENDP
;二进制转换成十进制子程序
ERPROC
PUSHAX
PUSHBX
PUSHCX
MOVBL,8
MOVAL,Z1
MULBL
MOVCX,AX
MOVBL,4
MOVAL,Z2
MULBL
ADDCX,AX
MOVBL,2
MOVAL,Z3
MULBL
ADDCX,AX
MOVAL,Z4
MOVBL,1
MULBL
ADDCX,AX
MOVY,CX
POPCX
POPBX
POPAX
RET
ERENDP
;显示子程序，将X中的数值按位显示出来
DISPPROC
PUSHBX
PUSHAX
MOVBH,0
LEASI,DISCODE
CALLBITP;测试X位数
CMPCC,4
JZQIAN
CMPCC,3
JZBAI
CMPCC,2
JZSHI
CMPCC,1
JMPG
JMPNONE
QIAN:
MOVAH,11100000B;从第4位开始显示
MOVAL,AH
OUT44H,AL
MOVBL,X[0]
MOVAL,[SI+BX]
OUT42H,AL
CALLDELY
MOVAL,0
OUT42H,AL
BAI:
MOVAH,11010000B;从第3位开始显示
MOVAL,AH
OUT44H,AL
MOVBL,X[1]
MOVAL,[SI+BX]
OUT42H,AL
CALLDELY
MOVAL,0
OUT42H,AL
SHI:
MOVAH,10110000B;从第2位开始显示
MOVAL,AH
OUT44H,AL
MOVBL,X[2]
MOVAL,[SI+BX]
OUT42H,AL
CALLDELY
MOVAL,0
OUT42H,AL
G:
MOVAH,01110000B;从第1位开始显示
MOVAL,AH
OUT44H,AL
MOVBL,X[3]
MOVAL,[SI+BX]
OUT42H,AL
CALLDELY
JMPEXIT4
NONE:
MOVAL,0;X中没有数据，不显示
OUT42H,AL
EXIT4:
POPAX
POPBX
RET
DISPENDP
;分析数据位数子程序
BITPPROC
CMPX[0],0;如果X[0]不为0，则数据为4位数
JNZFOURBIT
CMPX[1],0;如果X[1]不为0，则数据为3位数
JNZTHREEBIT
CMPX[2],0;如果X[2]不为0，则数据为2位数
JNZTOWBIT
CMPX[3],0;如果X[3]不为0，则数据为1位数
JNZONEBIT
JMPZER0BIT;否则，没有数据
FOURBIT:
MOVCC,4
JMPEXIT5
THREEBIT:
MOVCC,3
JMPEXIT5
TOWBIT:
MOVCC,2
JMPEXIT5
ONEBIT:
MOVCC,1
JMPEXIT5
ZER0BIT:
MOVCC,0
EXIT5:
RET
BITPENDP
;延时子程序
DELYPROC
PUSHCX
MOVCX,100
LOOP$
POPCX
RET
DELYENDP
CODEENDS
ENDSTART
升级会员 