计算器设计。在PC机上实现从键盘读入数据,并完成加、减、乘、除的计算。要求:1)屏幕上显示一个主菜单,提示用户输入相应的数字键,分别执行加、减、乘、除4种计算功能和结束程序的功能。若按其他键,则显示提示输入出错并要求重新输入,并继续显示主菜单。分别按数字键“1”、“2”、“3”,则执行相应子模块1、2、3,进行两个字节与两个字节的加法、减法和乘法运算,并在屏幕上显示运算结果。按数字键“4”,执行模块4,进行两字节除一个字节的除法运算。按数字键“5”,程序退出,返回DOS;2)要使用到子程序。
1 enterline macro ;定义回车换行的宏指令
2 mov dl,13
3 mov ah,2
4 int 21h
5 mov dl,10
6 mov ah,2
7 int 21h
8 endm
9
10 DATAS SEGMENT
11 menus db' MENU$'
12 input db' Please select a function!$'
13 number db' 1-add, 2-sub, 3-mult, 4-div, 5-exit$'
14 a db'You are adding. Please enter two numbers separated by a space$'
15 s db'You are subtracting. Please enter two numbers separated by a space$'
16 m db'You are in the process of multiplication. Please enter two numbers separated by a space$'
17 d db'You are in the process of division.Please enter two numbers separated by a space$'
18 e db'Exiting program$'
19
20 err db 'Illegal input! Please Try Again$'
21 again db'Invalid input, try again.$'
22 overout db'The number overflowed, try again$'
23 err1 db'The result is overflowed, try again$'
24 command db ?
25 flag db ?
26 temp dw 0
27 buf db 20,?,20 dup(0) ;定义键盘接收字符缓冲区，最多接收19个字符
28 ff db ? ;输出的判断前导0的标志
29
30 op1 dw ? ;定义两个操作数(16位)
31 op2 dw ?
32
33 hex_buf db 4 dup(30h),'H'
34 crlf db '$' ;这是一个字符串的结尾符号,紧跟在缓冲区后可形成字符串,丢失后会产生
35 DATAS ENDS
36
37 STACKS SEGMENT
38 ;此处输入堆栈段代码
39 STACKS ENDS
40
41 CODES SEGMENT
42 ASSUME CS:CODES,DS:DATAS,SS:STACKS
43 START:
44 MOV AX,DATAS
45 MOV DS,AX
46 ;此处输入代码段代码
47
48 ;注意每次做完了计算都要回到主菜单
49 menu: ;菜单部分
50 lea dx,menus
51 mov ah,9
52 int 21h
53 enterline
54
55 lea dx,input
56 mov ah,9
57 int 21h
58 enterline
59
60 lea dx,number
61 mov ah,9
62 int 21h
63 enterline
64
65 mov ah,1 ;字符存在AL里面
66 int 21h
67
68 judge: ;判断执行哪个功能
69 cmp al,'1'
70 je a1
71
72 cmp al,'2'
73 je a2
74
75 cmp al,'3'
76 je a3
77
78 cmp al,'4'
79 je a4
80
81 cmp al,'5'
82 je stop
83
84 ;上面匹配都不成功，则把输入当成无效的输入，要求重新输入
85 enterline
86 lea dx,again
87 mov ah,9
88 int 21h
89 enterline
90 jmp menu
91
92 a1: ;加法模块 ;设计完加法子程序后把下面这部分也封装进去
93 enterline ;这部分是输出提示性语句
94 lea dx,a
95 mov ah,9
96 int 21h
97 enterline
98
99 call inputi ;调用输入的子程序
100 cmp flag,1
101 je a1 ;由于错误输入跳回a1重新进行加法操作
102 cmp flag,2
103 je a1 ;由于溢出跳回a1重新输入
104
105 call addi ;调用加法子程序
106 cmp flag,2
107 je over
108 call outi
109 jmp menu ;执行完后跳回主菜单
110
111 over:
112 mov ax,op1
113 call to16str;将十进制转化为十六进制
114 mov dx,offset hex_buf
115 mov ah,9
116 int 21h
117
118 mov ax,op2
119 call to16str;将十进制转化为十六进制
120 mov dx,offset hex_buf
121 mov ah,9
122 int 21h
123 enterline
124 jmp menu ;执行完后跳回主菜单
125 a2: ;减法模块
126 enterline
127 lea dx,s
128 mov ah,9
129 int 21h
130 enterline
131
132 call inputi ;调用输入的子程序
133 cmp flag,1
134 je a2 ;由于错误输入跳回a1重新进行加法操作
135 cmp flag,2
136 je a2 ;由于溢出跳回a1重新输入
137
138 call subi
139 call outi
140 jmp menu ;执行完后跳回主菜单
141
142 a3: ;乘法模块
143 enterline
144 lea dx,m
145 mov ah,9
146 int 21h
147 enterline
148
149 call inputi ;调用输入的子程序
150 cmp flag,1
151 je a3 ;由于错误输入跳回a1重新进行加法操作
152 cmp flag,2
153 je a3 ;由于溢出跳回a1重新输入
154
155 call multi
156
157 mov ax,op1
158 call to16str;将十进制转化为十六进制
159 mov dx,offset hex_buf
160 mov ah,9
161 int 21h
162
163 mov ax,op2
164 call to16str;将十进制转化为十六进制
165 mov dx,offset hex_buf
166 mov ah,9
167 int 21h
168 enterline
169
170 jmp menu ;执行完后跳回主菜单
171
172 a4: ;除法模块
173 enterline
174 lea dx,d
175 mov ah,9
176 int 21h
177 enterline
178
179 call inputi ;调用输入的子程序
180 cmp flag,1
181 je a4 ;由于错误输入跳回a1重新进行加法操作
182 cmp flag,2
183 je a4 ;由于溢出跳回a1重新输入
184
185 call divi
186 cmp flag,1
187 je a4 ;由于除数可能输0导致重新输入
188 call outi
189 jmp menu ;执行完后跳回主菜单
190
191 stop: ;程序的结束
192 enterline
193 lea dx,e
194 mov ah,9
195 int 21h
196
197 MOV AH,4CH
198 INT 21H
199
200
201 inputi proc ;输入子程序如下
202 mov flag,0 ;初始化flag
203
204 lea dx,buf ;从键盘接收输入数值放入buf缓冲区(输入操作)
205 mov ah,10
206 int 21h
207 enterline ;回车换行
208
209
210 mov cl,buf+1 ;获取实际键入字符数，置于CX寄存器中
211 xor ch,ch ;ch清0
212
213 xor di,di ;累加器清0
214 xor dx,dx ;dX寄存器清0
215 mov bx,1 ;由于从个位数开始算起，因而将所乘权值设为1
216
217 lea si,buf+2 ;将si指向接收到的第1个字符位置
218 add si,cx ;因为从个位算起，所以将si指向最后1个接收到的个位数
219 dec si ;往回减1使其指向字串最后一个元素
220
221 ;cov是检测并生成第一个数字的步骤
222 cov:mov al,[si] ;取出个位数给al
223 cmp al,' '
224 jz next1 ;遇见空格则跳转
225
226 cmp al,'0' ;边界检查：如果输入不是0-9的数字，就报错
227 jb wrong
228 cmp al,'9'
229 ja wrong
230
231 sub al,30h ;将al中的ascii码转为数字
232 xor ah,ah
233 mul bx ;乘以所处数位的权值
234 cmp dx,0 ;判断结果是否超出16位数范围，如超出则报错
235 jne yichu
236
237 add di,ax ;将形成的数值叠加放在累加器di中
238 jc yichu ;CF是进位标志
239
240 mov ax,bx ;将BX中的数位权值扩大10倍,此处需要借助ax来实现
241 mov bx,10
242 mul bx
243 mov bx,ax
244
245 dec si ;si指针减1，指向前一数位
246 loop cov ;按CX中的字符个数计数循环
247
248 ;跳到次处表明第一个数字已经生成，接着去检测第二个数字
249 next1:
250 mov op1,di ;将结果储存在op1中4
251 xor ax,ax
252 xor di,di ;累加器清0
253 xor bx,bx
254 mov bx,1 ;由于从个位数开始算起，因而将所乘权值设为1
255 dec si ;向前移动一格位置
256 dec cx ;遇到空格cx相应的减少1
257
258
259 ;cov2是检测并生成第2个数字
260 cov2:
261 mov al,[si] ;取出个位数给al
262
263 cmp al,'0' ;边界检查：如果输入不是0-9的数字，就报错
264 jb wrong
265 cmp al,'9'
266 ja wrong
267
268 sub al,30h ;将al中的ascii码转为数字
269 xor ah,ah
270 mul bx ;乘以所处数位的权值
271 cmp dx,0 ;判断结果是否超出16位数范围，如超出则报错
272 jne yichu
273
274 add di,ax ;将形成的数值放在累加器di中
275 jc yichu ;CF是进位标志
276
277 mov ax,bx ;将BX中的数位权值扩大10倍,此处需要借助ax来实现
278 mov bx,10
279 mul bx
280 mov bx,ax
281
282 dec si ;si指针减1，指向前一数位
283 loop cov2 ;按CX中的字符个数计数循环
284
285 next2:
286 mov op2,di ;将结果储存在op2中
287 jmp return ;结束后跳到return部分
288
289 wrong:
290 lea dx,err
291 mov ah,9
292 int 21h
293 mov flag,1
294 jmp return
295
296 yichu:
297 mov flag,2
298 lea dx,overout
299 mov ah,9
300 int 21h
301
302 return:
303 ret
304 inputi endp
305
306 addi proc ;加法子程序（16位数相加）
307 xor bx,bx
308 xor cx,cx
309 mov bx,op2
310 mov cx,op1
311 add bx,cx
312 cmp bx,op1
313 jb ex
314 cmp bx,op2
315 jb ex
316 jmp addret
317 ex: ;表示结果高于16位的加法操作
318 mov flag,2
319 mov op2,bx
320 mov op1,1 ;表示进位
321
322 addret:
323 ret
324 addi endp
325
326 subi proc ;减法子程序（16位数相减）
327 xor bx,bx
328 xor cx,cx
329 mov bx,op2
330 mov cx,op1
331 cmp bx,cx ;比较大小
332 jb fuhao
333 sub bx,cx ;结果储存在bx中
334 jmp subret
335 fuhao:
336 mov dx,'-'
337 mov ah,2
338 int 21h
339 sub cx,bx
340 mov bx,cx
341 subret:
342 ret
343 subi endp
344
345 multi proc ;乘法子程序（16位数相乘）
346 xor ax,ax
347 xor cx,cx
348 mov ax,op2
349 mov cx,op1
350 mul cx ;结果存在dx:ax里面
351 mov op1,dx
352 mov op2,ax ;暂存在op1和op2
353 ret
354 multi endp
355
356 divi proc ;除法子程序（16位数除以8位数）
357 xor bx,bx ;注意 该程序的除数不能超过255 并且商也不能超过255 他们的承载能力只有8位
358 xor cx,cx
359 xor ax,ax
360 mov cx,op1 ;实际上存在cl中
361 cmp cx,255 ;让cx的值处于0~255之间（因为寄存器是8位的）
362 ja divwrong
363 cmp cl,0
364 je divwrong
365 mov al,255 ;让255和op1相乘，与op2比较，若小于op2则会发生divide error因此判断非法
366 mul cl
367 cmp ax,op2
368 jb overflow
369
370 mov ax,op2
371 div cl ;字除以1字节型除法,商存在al中
372 mov ah,0 ;清除ah中的内容
373 mov bx,ax
374 jmp divret
375 divwrong:
376 lea dx,err
377 mov ah,9
378 int 21h
379 mov flag,1
380 overflow:
381 lea dx,err1
382 mov ah,9
383 int 21h
384 mov flag,1
385 divret:
386 ret
387 divi endp
388
389 outi proc
390 mov ax,bx ;待输出的数先存在bx里面，在给ax
391 mov bx,10000 ;初始数位权值为10000
392 mov ff,0 ;每次都赋初值0
393
394 cov1:xor dx,dx ;将dx:ax中的数值除以权值
395 div bx
396 mov cx,dx ;余数备份到CX寄存器中
397
398 cmp ff,0 ;检测是否曾遇到非0商值
399 jne nor1 ;如遇到过，则不管商是否为0都输出显示
400 cmp ax,0 ;如未遇到过，则检测商是否为0
401 je cont ;为0则不输出显示
402 nor1:
403 mov dl,al ;将商转换为ascii码输出显示
404 add dl,30h
405 mov ah,2
406 int 21h
407
408 mov ff,1 ;曾遇到非0商，则将标志置1
409 cont:
410 cmp bx,10 ;检测权值是否已经修改到十位了
411 je outer ;如果相等，则完成最后的个位数输出显示
412
413 xor dx,dx ;将数位权值除以10
414 mov ax,bx
415 mov bx,10
416 div bx
417 mov bx,ax
418
419 mov ax,cx ;将备份的余数送入AX
420 jmp cov1 ;继续循环
421 outer:
422 mov dl,cl ;最后的个位数变为ascii码输出显示
423 add dl,30h
424 mov ah,2
425 int 21h
426 enterline
427 ret
428 outi endp
429
430 to16str proc;功能：将十进制转化为十六进制
431 mov bx,ax;将带转换的十进制数赋值给bx
432 mov si,offset hex_buf ;将字符串的首地址赋值给si
433
434 mov ch,4 ;将10进制转为4位16进制数，每次操作1位,ch为当前还需要转换的位数
435 loop_trans:
436 mov cl,4
437 rol bx,cl;此处cl的值为4，代表将BX中的值循环左移4位，bx中做该4位移动到最低4位
438
439 mov al,bl;从高到低提取四位二进制数送入al,和0fh进行与操作得bl中低4位
440 and al,0fh
441
442 add al,30h;al=0~9,加30h转化为ascii码
443 cmp al,3ah
444 jl next_trans
445 add al,7 ;al>9,加37h转化为ascii码，转换为字母A~F
446
447 next_trans:
448 mov [si],al ;将转换好的ascii码赋值给字符串的si位置处
449 inc si ;si向后移动一位
450 dec ch ;代表还需转换的位数减1
451 jnz loop_trans;注意，这儿只能用dec运算对标志位的设置来判断循环与否
452 ;因为cl被用来存放位移数了
453 ret
454 to16str endp
455 CODES ENDS
456 END START
发表于 2020-4-7 19:44:00
