Вывод на экран массив (ассемблер)

[Стас_с]

весь вечер мучаюсь с этим заданием, да может и лёгкое для многих
но уже две недели подряд практика в универе с 8 утра и до 5вечера каждый день опрос и лабы сдавать , устал уже
* выговорился теперь за дело

вот в чём суть:
нужно сделать вывод на экран массива y

вот код:

   Лабораторна робота №3
; Преобразовать массив X, расположив вначале его  отрицатель-
;ные, а затем неотрицательные элементы, сохранив в каждой из  двух
;групп исходный относительный порядок элементов. Оценить, как  при
;этом изменилось положение максимального по модулю элемента масси-
;ва X.
sseg segment stack 'stack'
     db        64 dup (?)
sseg ends
  data segment
     max dw       ? 
     x   dw 1, -2, 6,9, -3, 2, 7 	;исходный массив
	 n   dw 7
	 y   dw 7 Dup (?)
	 buf 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
;--------------------------------
       lea  di,x
	   mov  cx,n 	   
       mov  bx,[di]
	   mov dx,di
;========================
c4: 
     mov ax,[di]
     cmp ax, bx
     jle m4
     mov bx,ax
     mov dx,di
  m4:	 
	 add di,2
     loop c4
     push dx	 
;------посмотрим что получится----
     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 с2
;---------------------------
       lea si,y
	   mov cx,n
	   mov bx, [si]
	   mov dx,si
	   c5: 
     mov ax,[si]
     cmp ax, bx
     jle m5
     mov bx,ax
     mov dx,si
  m5:	 
	 add di,2
     loop c5    
;---------------------------
     lea ax,y 
	 sub ax,dx
	 mov bx, 2
	 cwd 
	 idiv bx
	 mov cx,ax
	 pop dx
	 lea ax,x
	 sub ax,dx
	 mov bx, 2
	 cwd 
	 idiv bx
	 sub ax,cx
	 mov max,ax
;============================
;--------------------------------------------------------

		  
ret
start	endp
code    ends
        end     start

помогите а?))

[Ulex]

Таки в цикле и надо вывести.
Процедура IntegerOut - не помню откуда, может и не моя даже.