Обработка массивов на Ассемблере

[Mr.BL@CK]

Обработать последовательно 2 массива, описанных в сегменте данных. Обработка должна быть оформлена в процедуру.
В процедуру должны быть переданы параметры через регистры.

И нужно сделать 2 разных задания - удалить максимальный отрицательный элемент и отдельно - сортировать массивы по возрастанию
Я первое сделал вроде,но оно при просмотре в дебаггере зависает
Пользуюсь ТАСМом.

sseg segment stack 'stack'
     db        64 dup (?)
sseg ends
data    segment
a       dw     -13,-4,2,5,8,1
na      dw       6
Maxnega dw       ?
b       dw       8,-2,-5,-9,4
nb      dw       5
Maxnegb dw       ?
data    ends
code    SEGMENT  'code'
assume ss:sseg,ds:data,cs:code
start   proc    far
;--------------Возврат в dos
        push    ds
        xor     ax,ax
        push    ax
;--Занесение в регистр ds адреса сегмента данных
        mov     ax,data
        mov     ds,ax
		;Начало программы
		Lea Bx,A
		mov Cx,nA
		Lea si,MaxnegA
		call maxneg_el
		
		Maxneg_el proc near 
		Push Ax 
		Push di
		Mov Di,0
		Mov ax,[bx]
	c1: cmp ax,[bx+di]
		jge m1
		mov ax,[bx+di]
		m1: 
		inc di
		inc di
		Loop C1
		Mov [si],Ax
		Pop Ax
		pop di
		ret
		Maxneg_el  endp
		
		Lea Bx,B
		Mov Cx,nb
		Lea si,MaxnegB
		Call maxneg_el
		
		st_ret: ret
		start   endp
code    ends
        end     start

И если можно,подскажите хоть,как вторую часть начать делать
А то с этой передачей я запутался (