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

10. Задан байтовый массив из N элементов и упорядочен по возрастанию значений своих элементов. Написать процедуру вставки заданного значения X в этот массив, не нарушающей его упорядоченности.
model small
data_sg segment
x db 3
a db 1,2,3,4,5,6,7,8,9
n=$-a
.stack 100h
data_sg ends
code_sg segment
assume cs:code_sg, ds:data_sg
gulko proc
xor si,si
m3:
mov al,a[si]
cmp x,al
jg m1
mov di,n
dec di
mov cx,si
inc cx
m2:
mov bl,a[di-1]
mov a[di],bl
dec di
cmp di,cx
jge m2
mov al,x
mov a[si],al
jmp exit
m1:
inc si
cmp si,n
jl m3
exit:
ret
gulko endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start