Одномерный массив

[Katya25]

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

не могу разобраться с массивом, правильно ли сделала?

.model small
.stack
.data

MAS dw 1,4,2,-5,3,-1; массив из 6 элементов
y dw 6
z dw 6
.code

mas proc
mov ax, 0
lea bx, MAS
lea si, y
lea di, z
mov cx, 6количество элементов в массиве Х
CYCL: lodsb; получили в АХ очередной элемент из массива Х
mov ax, '0'; сравнили содержимое АХ с нулем
js bm ; если АХ <0 перейдем на bm
mov ax, '0';сравнили содержимое АХ с нулем
jnl am; если АХ > 0 или АХ = 0 пересылаем содержимое АХ в массив Y
bm: mov[di],ax; ;пересылаем содержимое АХ в массив Z
am: mov [si],ax ;пересылаем содержимое АХ в массив y
loop CYCL ; если проверили не все элементы перейти на начало цикла
ret
summas endp
begin:
mov ax, @data
mov ds, ax
xor ax, ax


call z ; вывод z
call y; вывод y

mov ah, 4ch ; выходим из программы
int 21h
end begin

[Mikl___]

Katya25
Так как похожую задачу я выложил день назад на http://www.cyberforum.ru/assembler в Массив(положительные и отрицательные элементы) могу сказать что переписано с моей и при этом с кучей ошибок
1) lea bx, MAS а содержимое MAS загружаешь командой lodsb
должно быть lea si,MAS и размерность массива WORD поэтому должно быть LODSW
2) mov ax, '0' сравниваешь не с нулем, а пересылаешь в ах символом нуля, значение которого 30h в оригинале было test ax,ax на худой конец CMP AX,0
3) y dw 6 / z dw 6 объявляются не массивы а переменные со значением y=6 z=6 должно быть y dw 6 dup(?) / z dw 6 dup(?)
4) вместо STOSW появилось mov[di],ax а где add DI,2 ? пересылка все время будет идти в одну и туже ячейку
Даже с готового проблема переписать, а включить сообразительность -- об этом даже и речи не идет