汇编语言实现简单的计算器运算
DA TAS SEGMENT
x dw 0
op db 0
DIV ARRAY dw 10000,1000,100,10,1
DA TAS ENDS
stack segment
db 100 dup(?)
stack ends
CODES SEGMENT
ASSUME CS:CODES,DS:DA TAS,ss:stack START:
MOV AX,DATAS
MOV DS,AX
next:
call do_cal ;输入第一个表达式如：5+3=
call show ;输出表达式结果
mov dl,0dh
mov ah,02h
int 21h
mov dl,0ah
mov ah,02h
int 21h ;回车换行
jmp next ;跳回输入第二个表达式
do_cal: ;输入表达式
call input ;输入数
cmp al,'e'
jz exit
MOV OP,AL
CMP OP,'+'
jnz next1
call do_add
jmp next5
next1:
CMP OP,'-'
JNZ NEXT2
CALL DO_SUB
JMP NEXT5
NEXT2:
CMP OP,'*'
JNZ NEXT3
CALL DO_MUL
JMP NEXT5
NEXT3:
CMP OP,'/'
JNZ NEXT4
CALL DO_DIV
jmp next5
NEXT4:
cmp op,'='
call show
next5:ret ;判断运算符input: ;输入数字xor bx,bx
mov cx,10
skip: MOV AH,1
INT 21H
cmp al,'0'
jl skip1
cmp al,'9'
jg skip1
push ax
mov ax,bx
mul cx
mov bx,ax
pop ax
and al,0fh
xor ah,ah
add bx,ax
jmp skip
skip1:ret
do_add: ;加法
mov x,bx
call input ;输入第二个数
add bx,x
ret
do_sub: ;减法
mov x,bx
call input ;输入第二个数
sub x,bx
mov bx,x
ret
do_mul: ;乘法
mov x,bx
call input ;输入第二个数
mov ax,bx
mul x
mov bx,ax
ret
do_div: ;除法
mov x,bx
xor dx,dx
call input ;输入第二个数
mov ax,x
cwd
div bx
mov bx,ax
ret
show: ;显示输出
MOV CX,5
MOV AX,bx
MOV SI,OFFSET DIV ARRAY LP1: mov dx,0
DIV WORD PTR [SI]
PUSH DX
ADD AL,30H
MOV DL,AL
MOV AH,2
INT 21H
add si,2
POP AX
LOOP LP1
ret
exit: MOV AH,4CH
INT 21H
CODES ENDS
END START。