Преобразовать массив X,расположив в начале отрицательные, а затем неотрицательные элементы (Ассемблер)

[Стас_с]

; Преобразовать массив X, расположив вначале его отрицатель-
;ные, а затем неотрицательные элементы, сохранив в каждой из двух
;групп исходный относительный порядок элементов. Оценить, как при
;этом изменилось положение максимального по модулю элемента масси-
;ва X.

ну вот как-то так , есть наброски но где-то явно ошибаюсь.
помогите)


______________
Хорошо, что привели свои наработки, иначе я бы грохнул Вашу тему!
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Стас_с]

sseg segment stack 'stack'
     db        64 dup (?)
sseg ends
  data segment
     x   dw 1, -2, 7, -3, 2, 9 	;исходный массив
	 n   dw 6
	 y   dw 6 Dup (?)
	 max dw ?
  data ends 
;
code segment
start   proc    far
assume  ss:sseg,ds:data,cs:code
        push    ds
        xor     ax,ax
        push    ax
        mov     ax,data
        mov     ds,ax
;--------------------Nachalo---------------------------------------------
     lea di,x
	 lea si,y
     mov cx,n
   c1:
      mov ax,[di]
      cmp ax,0
      jge m1
      mov [si],ax
      add si,2
   m1:
      add di,2
	  loop c1
	  lea di,x
	  mov cx,n
   c2:  
	  mov ax,[di]
	  cmp ax,0
	   jl m2
	  mov [si],ax
      add si,2
	m2:  
      add di,2
	  loop m2

; --------------------------------------------------------

	push cx
; Проверяем число на знак.
        test    ax, ax
        jns     @oi1

; Если оно отрицательное, выведем минус и оставим его модуль.
	  push ax
        mov     ah, 02h
        mov     dl, '-'
        int     21h
        pop ax
        neg ax
        
; Количество цифр будем держать в CX.
@oi1:  
        xor     cx, cx
        mov     bx, 10
@oi2:   
       ;cwd
       xor dx,dx
       div bx
; Делим число на десять. В остатке получается последняя цифра.
; Сразу выводить её нельзя, поэтому сохраним её в стэке.
        push    dx
        inc     cx
; А с частным повторяем то же самое, отделяя от него очередную
; цифру справа, пока не останется ноль, что значит, что дальше
; слева только нули.
        test    ax, ax
        jnz     @oi2
; Теперь приступим к выводу.
        mov     ah, 02h
@oi3:   pop     dx
; Извлекаем очередную цифру, переводим её в символ и выводим.
        add     dl, 30h
        int     21h
; Повторим ровно столько раз, сколько цифр насчитали.
        loop    @oi3
     	pop cx
	mov dx," "
	mov ah,02h
	int 21h

;---------------------------------------------------------	  
ret

code    ends
        end     start

[VadikV]

обрами код соответствующими тэгами, что бы можно было его нормально читать

[Стас_с]

Гляньте если не сложно может что-то где-то не то написал=\

*с оцениванием положения максимального элемента сейчас тружусь

[Стас_с]

push ds
       xor  ax,ax
       push ax
       mov  ax,data
       mov  ds,ax
;
       lea  si,x
       lea  di,y
       mov  dx,di
       push di
       mov  cx,n
       dec  cx
       mov  bx,[si]
 это в начале
 jg   iter_end
       mov  bx,[si]
       push cx
       mov  dx,di
       sub  dx,2
 pop  cx
       mov  bx,dx
       pop  dx
       sub  dx,bx
       mov  ax,dx
       mov  bx,2
       cwd
       idiv bx
       sub  cx,n
       neg  cx
       sub  ax,cx
       mov  max_pd,ax

вот то что придумал по оцениванию положения макс элемента , помогите пожалуйста уже мозги просто после 3-х лаб не работают.