-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy path3lab.asm
446 lines (367 loc) · 8.27 KB
/
3lab.asm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
.model small
.stack 100h
.data
.386
MaxArrayLength equ 30
ArrayLength dw ?
InputArrayLengthMsgStr db 'Input array length: $'
maxNull db 0Ah,0Dh,'All infinity','$',0Ah,0Dh
ErrorInputMsgStr db 0Ah,0Dh,'Incorrect value!',0Ah,0Dh, '$'
ErrorInputArrayLengthMsgStr db 0Ah,0Dh,'Array length should be not less than 0 and not bigger than 30!', '$'
InputMsgStr db 0Ah, 0Dh,'Input element (-32 768..32 767) : $'
CurrentEl db 2 dup(0)
Answer db 20 dup('$'), 0Ah,0Dh, '$'
NumBuffer dw 0
NumLength db 7
EnterredNum db 9 dup('$')
nextStr db 0Ah,0Dh,'$'
ten dw 10
two dw 2
precision db 5
minus db 0
Max dw 0
MaxTemp dw 0
Array dw MaxArrayLength dup (0)
Temp dd 0
OutputArray dd MaxArrayLength dup(0)
.code
start: ;
mov ax,@data ;
mov ds,ax ;
;
xor ax,ax ;
;
call inputMas ;
call FindMax ;
call MakeNormal
;
inputMas proc
call inputArrayLength ;
call inputArray ;
ret ;
endp
inputArrayLength proc near
mov cx, 1
inputArrayLengthLoop:
call ShowInputArrayLengthMsg
push cx ;
call inputElementBuff
pop cx
mov ArrayLength,ax
cmp ArrayLength,0
jle lengthError
cmp ArrayLength,30
jg lengthError
loop inputArrayLengthLoop
ret
endp
lengthError:
call ErrorInput
jmp inputArrayLengthLoop
inputArray proc
xor di,di
mov cx,ArrayLength
inputArrayLoop:
call ShowInputMsg
push cx ;
call inputElementBuff
pop cx
mov Array[di], ax
add di,2
loop inputArrayLoop
ret
endp
resetNumBuffer proc
mov NumBuffer, 0
ret
endp
inputElementBuff proc
xor ax,ax
xor cx,cx
mov al,NumLength
mov [EnterredNum],al
mov [EnterredNum+1],0
lea dx,EnterredNum
call input
mov cl,[EnterredNum+1]
lea si,EnterredNum
add si,2
xor ax,ax
xor bx,bx
xor dx,dx
mov dx,10
NextSym:
xor ax,ax
lodsb
cmp bl,0
je checkMinus
checkSym:
cmp al,'0'
jl badNum
cmp al,'9'
jg badNum
sub ax,'0'
mov bx,ax
xor ax,ax
mov ax,NumBuffer
imul dx
jo badNum
cmp minus,1
je doSub
add ax, bx
comeBack:
jo badNum
mov NumBuffer,ax
mov bx,1
mov dx,10
loop NextSym
mov ax,NumBuffer
;cmp minus,0
;je finish
;mov dx,-1
;mul dx
mov minus,0
finish:
call resetNumBuffer
ret
doSub:
sub ax,bx
jmp comeBack
checkMinus:
inc bl
cmp al, '-'
je SetMinus
jmp checkSym
SetMinus:
mov minus,1
dec cx
cmp cx,0
je badNum
jmp NextSym
badNum:
clc
mov minus,0
call ErrorInput
call resetNumBuffer
jmp inputElementBuff
endp
input proc near
mov ah,0Ah
int 21h
ret
input endp
ErrorInput proc ;
lea dx, ErrorInputMsgStr ;
mov ah, 09h ;
int 21h ;
ret ;
endp ;
ShowInputArrayLengthMsg proc
push ax
push dx
mov ah,09h
lea dx, InputArrayLengthMsgStr
int 21h
pop dx
pop ax
ret
endp
;
ShowInputMsg proc ;
push ax
push dx ;
;
mov ah,09h ;output command
lea dx, InputMsgStr ;show input msg to user
int 21h
pop dx
pop ax
ret
endp
;
FindMax proc near
xor di,di
mov cx, ArrayLength
mov ax,Array[di]
add di,2
dec cx
cmp cx,0
je endFind
find:
cmp cx,0
je endFind
mov dx,Array[di]
cmp ax,dx
jl saveMax
add di,2
loop find
jmp endFind
saveMax:
mov ax,dx
add di,2
dec cx
jmp find
endFind:
mov Max,ax
mov MaxTemp,ax
ret ;
endp ;
MakeNormal proc near
cmp Max,0
je divNull
xor cx,cx
mov cl,byte ptr [ArrayLength]
xor di,di
xor si,si
xor ax,ax
xor dx,dx
make:
mov ax,MaxTemp
mov Max,ax
mov minus,0
cmp cl,0
je goEnd
xor dx,dx
mov ax, Array[si]
xor ch,ch
lea di,Answer
cmp Max,0
jg setZnak
cmp Max,0
jl setPlus
return2:
mov [di],'+'
inc di
makeNum:
cmp ch,precision
jg saveNum
mov bx,ax
idiv Max
cmp minus,0
jne jump
call makeMainPart
cmp minus,1
je incMinus
jump:
cmp ax,0
je increase
add al,'0'
mov [di],al
inc di
mov ax,dx
imul ten
inc ch
jmp makeNum
incMinus:
mov ax,dx
mul ten
inc minus
jmp makeNum
increase:
add al,'0'
mov [di],al
inc di
cmp minus,0
je firstSymbol
return:
inc ch
mov ax,bx
imul ten
jmp makeNum
saveNum:
call output
add si,2
jmp make
goEnd:
mov ax,4c00h
int 21h
ret
endp
makeMainPart proc near
push dx
push cx
push bx
xor cx,cx
st:
xor dx,dx
idiv ten
cmp ax,0
jnz go1
cmp dx,0
jnz go1
jmp fin
go1:
inc cx
push dx
jmp st
fin:
loop1:
cmp cx,0
jz ifNoMainPart
pop bx
add bx,'0'
mov [di],bx
inc di
loop loop1
mov [di],'.'
inc di
jmp fin2
ifNoMainPart:
mov [di],'0'
inc di
mov [di],'.'
inc di
fin2:
mov minus,1
pop bx
pop cx
pop dx
ret
endp
setPlus:
push ax
mov ax,Max
mov bx,-1
imul bx
mov Max,ax
pop ax
imul bx
jmp return2
setZnak:
cmp ax,0
jge return2
mov [di],'-'
inc di
mov bx,-1
imul bx
jmp makeNum
;firstSymbol1:
; mov al,'.'
; mov [di],al
; inc di
; jmp return1
firstSymbol:
mov al,'.'
mov [di],al
inc di
mov minus,1
jmp return
;
output proc
lea dx,nextStr
mov ah,09h
int 21h ;
lea dx, Answer
mov ah,09h
int 21h
dec cl
ret ;
endp ;
divNull:
lea dx,maxNull
mov ah,09h
int 21h
mov ax,4c00h
int 21h
ret ;
end start ;