Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X

.model small
.stack
.data
 
x dw 1,4,-2,5,3,-6 ; массив из 6 элементов
y dw 0
z dw 0
.code
 
mass proc
mov bx, 0
mov bx, 1
mov cx, 6
cyc:
mov ax, x[bx]
cmp ax,bx
 
 jl m2
 
cmp ax,bx
jg br2
m2: mov ax, x[bx]
mov y, ax
br2:
mov ax, x[bx]
mov z,ax
 
loop cyc
 ret 
 
begin:
mov ax, @data
mov ds, ax
xor ax, ax
call br2
call m2
mov ah, 4ch
int 21h
end begin

.model small
.stack
.data
x dw 1,4,-2,5,3,-6 ; массив из 6 элементов
y dw 6 dup(?)
z dw 6 dup(?)
.code
begin: mov ax,data@
      mov ds,ax; позиционируем DS на сегмент данных
      mov es,ax; ES=DS для команды STOSW
      mov si,offset x
      mov di,offset y
      mov bx,offset z
      mov cx,6; количество элементов в массиве Х
a0: lodsw; получили в АХ очередной элемент из массива Х
      test ax,ax; сравнили содержимое АХ с нулем
      js a1; если АХ <0 перейдем на a1
      stosw; если АХ > 0 или АХ = 0 пересылаем содержимое АХ в массив Y и увеличим DI на 2
      jmp a2
a1: mov [bx],ax;пересылаем содержимое АХ в массив Z 
      add bx,2; увеличим BX на 2
a2: loop a0; если проверили не все элементы перейти на начало цикла
  . . . <-- здесь должен быть фрагмент программы для перевода чисел из массивов Y и Z в ASCII-символы
      mov ah, 4ch; выходим из программы
      int 21h
end begin

mov si,offset x
mov di,offset y
mov ah, 9 ;выводит содержание   offset х и у
 
int 21h