не работает проверка на чётность

[Стас_с]

посмотрите пожалуйста код, не работает проверка на чётность, почему

stack   segment         STACK
        db      64 dup(?)
stack   ends
data    segment
         x   dw 1, -2, 7, -3, 2, 9, 8, 2, 3, 	;исходный массив
		y   dw 9 dup(?)
		n   dw 9
data    ends
code    SEGMENT
assume ss:stack,ds:data,cs:code
start   proc    far
;--------------Возврат в dos
        push    ds
        sub     ax,ax
        push    ax
;--Занесение в регистр ds адреса сегмента данных
        mov     ax,data
        mov     ds,ax
;--------------Начало программы
          mov cx,n
		  lea dx,x	   
          lea bx,y
      
c1:		  
		  mov ax, x[di]
		  test ax,1
		  add di,2
		  jz c2
		  jmp endk
c2:
         mov y[si],ax
         add si,2 
endk:
          loop c1
          
          		  
st_ret: ret
start   endp
code    ends
        end     start

[netrino]

Инструкция add модифицирует флаг нуля (ZF), потому результат предыдущей операции затирается. Поменяйте их местами, тогда будет работать как запланировано.

[mss]

mov ax, x[di]

Отсутствует инициализация di

[asmars]

могу написать код проверки числа на четность.. надо?

____________________________
все мы когда то с чего то начинали.
irc полезная штука или нет?

[Goodwin98]

asmars, с этим уже, как видно из кода, вполне справились ))
Человек не разобрался только с деталями.

[asmars]

эх, хотел хоть в чем то помочь)