assem / задачи на экзамен / 8

8. Задан байтовый массив из N элементов. Написать процедуру, отыскивающую: номер максимального и минимального элементов, а также разность между максимальным и минимальным элементами.
model small
data_sg segment
min db 0
max db 0
n_min dw 1
n_max dw 1
raz db 0
a db 2,6,4,2,1,9,3
n=$-a
.stack 100h
data_sg ends
code_sg segment
assume cs:code_sg, ds:data_sg
gulko proc
xor si,si
mov al,a[si]
mov min,al
mov max,al
inc si
m3:
mov al,a[si]
cmp al,max
jle m1
mov max,al
mov bx,si
inc bx
mov n_max,bx
m1:
cmp al,min
jge m2
mov min,al
mov bx,si
inc bx
mov n_min,bx
m2:
inc si
cmp si,n
jl m3
mov al,max
sub al,min
mov raz,al
mov ax,n_min
mov bx,n_max
mov cl,raz
ret
gulko endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start