Копирование чётных чисел из заданного массива

.model small
.stack 100h
.data
    arr db 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26
    len dw 26
    res db len dup (?)
.code 
begin:
    mov ax, data
    mov ds, ax
    mov es, ax
    
    xor si, si  
    xor di, di ; индекс заполняемого массива
    mov cx, len
for:
    mov al, arr[si] ; загружаем в al очередной эл-т
    inc si
    test al, 1 ; AND без сохранения результата (чтобы повлиять на флаги)
    jnz lp ; если Zero flag = 0
    mov res[di],al ; пишем элемент в результирующий массив  
    inc di
lp: loop for
 
nxt:mov ah, 1
    int 21h
    
    mov ax, 4c00h
    int 21h    
ends
 
end begin

.model small
.stack 100h
.data
    arr db 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26
    len dw 26
    res db 255 dup (?)
.code 
begin:
    mov ax, @data
    mov ds, ax
    mov es, ax
    
    xor si, si  
    xor di, di ; индекс заполняемого массива
    mov cx, len
for:
    mov al, arr[si] ; загружаем в al очередной эл-т
    inc si
    test al, 1 ; AND без сохранения результата (чтобы повлиять на флаги)
    jnz lp ; если Zero flag = 0
    mov res[di],al ; пишем элемент в результирующий массив  
    inc di
lp: loop for
 
nxt:mov ah, 1
    int 21h
    
    mov ax, 4c00h
    int 21h    
ends
 
end begin

.model small
.stack 100h
.data
    arr db 1,2,3,4,5,6,7,8,9,2,8,5,3,4,6,7,8,1,3,2,0,2,8,6,5,4
    len dw 26
    res db 255 dup (?)  
    arr_lbl db 'Array = $'
    res_lbl db 'Result = $'
    endl db 13,10,'$'
.code 
begin:
    mov ax, @data
    mov ds, ax
    mov es, ax
    lea dx, arr_lbl
    mov ah, 9
    int 21h
    mov cx, len
    xor si, si 
    mov ah, 2
sa: mov dl, arr[si]    
    add dl ,'0'
    int 21h   
    inc si
    loop sa
    lea dx, endl
    mov ah, 9
    int 21h
    
    xor si, si  
    xor di, di 
    mov cx, len
for:
    mov al, arr[si] 
    inc si
    test al, 1 
    jnz lp 
    mov res[di],al  
    inc di
lp: loop for
    lea dx, res_lbl
    mov ah, 9
    int 21h
nxt:   
    mov cx, di
    xor si, si
    mov ah, 2
prt:        
    mov dl, res[si]
    add dl, '0'
    int 21h    
    inc si
    loop prt    
    
    mov ax, 4c00h
    int 21h    
ends
 
end begin