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

15. Задан байтовый массив из N элементов. Написать процедуру, определяющую номер максимального элемента. Если максимум не единственный, процедура должна выдавать номера всех элементов, совпадающих с максимальным.
model small
data_sg segment
max db 0
a db 4,1,2,5,2,1,5
n=$-a
b dw n dup(0)
.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 max,al
inc si
m2:
mov al,a[si]
cmp al,max
jle m1
mov max,al
m1:
inc si
cmp si,n
jl m2
xor si,si
xor di,di
m4:
mov al,a[si]
cmp max,al
jne m3
mov bx,si
inc bx
mov b[di],bx
inc di
m3:
inc si
cmp si,n
jl m4
ret
gulko endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start