加减乘除计算器设计.docx

加减乘除计算器设计.docx

《加减乘除计算器设计.docx》由会员分享，可在线阅读，更多相关《加减乘除计算器设计.docx（16页珍藏版）》请在冰豆网上搜索。

加减乘除计算器设计

DATASEGMENT

XDB?

?

?

?

;存放数据的每一位

X1DW?

;存放第一个数据值

X2DW?

;存放第二个数据值

YDW?

;存放运算结果

SDB?

;存放运算符号值

EDB?

;按下等号键标记

CCDB?

;存放运算数据位数

HDB0;存放按键行号

LDB0;存放按键列号

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,50

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,10H;当前行状态下没有任何列有键按下，则转为对下一行的测试

JZNEXTL

INCH;每判断一列，列号加1

JMPNEXTH;再对下一列进行判断

NEXTL:

MOVH,0

MOVBL,01H

ROLBH,1;对下一行测试，让下一个PC口输出低电平

CMPBH,0EFH

JZEXIT

INCL

JMPNEXT

WAIT0:

INAL,40H;若有键按下，则等该按键松开后再计算键值

CMPAL,0FFH

JNZWAIT0

MOVCX,50

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,0

JZNUM_CALL;按下的是数字键

CMPDL,1

JZNUM_CALL;按下的是数字键

CMPDL,2

JZNUM_CALL;按下的是数字键

CMPDL,4

JZNUM_CALL;按下的是数字键

CMPDL,5

JZNUM_CALL;按下的是数字键

CMPDL,6

JZNUM_CALL;按下的是数字键

CMPDL,8

JZNUM_CALL;按下的是数字键

CMPDL,9

JZNUM_CALL;按下的是数字键

CMPDL,10

JZNUM_CALL;按下的是数字键

CMPDL,13

JZNUM_CALL;按下的是数字键

CMPDL,3

JZCONT_CALL;按下的是运算键

CMPDL,7

JZCONT_CALL;按下的是运算键

CMPDL,11

JZCONT_CALL;按下的是运算键

CMPDL,15

JZCONT_CALL;按下的是运算键

CMPDL,14

JZOUTP_CALL;按下的是等于键

CMPDL,12

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,15

JZADD_CALL;运算符为加号，则调用加法子程序

CMPS,11

JZSUB_CALL;运算符为减号，则调用减法子程序

CMPS,7

JZMUL_CALL;运算符为乘号，则调用乘法子程序

CMPS,3

CALLDIVP;运算符为除号，则调用除法子程序

JMPSTORE1

ADD_CALL:

CALLADDP

JMPSTORE1

SUB_CALL:

CALLSUBP

JMPSTORE1

MUL_CALL:

CALLMULP

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

CMPDL,8

JZK1

CMPDL,9

JZK2

CMPDL,10

JZK3

CMPDL,4

JZK4

CMPDL,5

JZK5

CMPDL,6

JZK6

CMPDL,0

JZK7

CMPDL,1

JZK8

CMPDL,2

JZK9

CMPDL,13

JZK0

K1:

MOVDL,1

JMPN1

K2:

MOVDL,2

JMPN1

K3:

MOVDL,3

JMPN1

K4:

MOVDL,4

JMPN1

K5:

MOVDL,5

JMPN1

K6:

MOVDL,6

JMPN1

K7:

MOVDL,7

JMPN1

K8:

MOVDL,8

JMPN1

K9:

MOVDL,9

JMPN1

K0:

MOVDL,0

N1:

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

MOVX[1],DL

MOVX[0],DH

POPDX

POPAX

SSS:

MOV[DI],DL

INCCC;数据位数加1

CMPCC,4;判断数据位数

JNGEXIT2

MOVCC,0;如果数据超过4位，重新从最低位开始存放

MOVX[2],0

MOVX[1],0

MOVX[0],0

EXIT2:

CALLDISP;调显示子程序，显示输入的数据

RET

NUMBERENDP

;加法子程序

ADDPPROC

PUSHAX

MOVAX,X1

ADDAX,X2

MOVY,AX

POPAX

RET

ADDPENDP

;减法子程序

SUBPPROC

PUSHAX

MOVAX,X1

SUBAX,X2

MOVY,AX

POPAX

RET

SUBPENDP

;乘法子程序

MULPPROC

PUSHAX

PUSHDX

MOVAX,X1

MOVDX,X2

MULDX

MOVY,AX

POPDX

POPAX

RET

MULPENDP

;除法子程序

DIVPPROC

PUSHAX

PUSHBX

PUSHDX

MOVDX,0

MOVAX,X1

MOVBX,X2

DIVBX

MOVY,AX

POPDX

POPBX

POPAX

RET

DIVPENDP

;显示子程序，将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

（注：

可编辑下载，若有不当之处，请指正，谢谢!

）