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

9. Задан байтовый массив из N элементов. Написать процедуру, отыскивающую номер элемент массива, ближайшего по величине к заданному значению Х.
model small
data_sg segment
x db 5
k dw 1
razn db ?
a db 2,1,9,7,9,14
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]
sub al,x
cmp al,0
jge m1
neg al
m1:
mov razn,al
inc si
m4:
mov bl,a[si]
sub bl,x
cmp bl,0
jge m2
neg bl
m2:
cmp bl,razn
jge m3
mov razn,bl
mov cx,si
inc cx
mov k,cx
m3:
inc si
cmp si,n
jl m4
mov ax,k
ret
gulko endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start