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

11.задан байтовый массив из N элементов. Написать процедуру сортировки этого массива по убыванию значений его элементов.
model small
data_sg segment
k db 0
m db 0
a db 3,7,1,4,3,2,9,5
n=$-a
.stack 100h
data_sg ends
code_sg segment
assume cs:code_sg, ds:data_sg
gulko proc
xor si,si
mov di,n
dec di
xor dx,dx
m4:
mov al,a[si]
cmp al,a[si+1]
jge m1
mov bl,a[si]
mov cl,a[si+1]
xchg bl,cl
mov a[si],bl
mov a[si+1],cl
mov dx,1
m1:
inc si
cmp si,di
jne m2
cmp dx,1
jne m2
xor si,si
xor dx,dx
m2:
cmp si,di
jne m3
cmp dx,0
jne m3
mov bl,1
mov m,bl
m3:
mov bl,m
cmp bl,1
jne 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