Поиск максимального четного и нечетного элемента в массиве - Assembler

.model small
.386
 
.data
        db  'Begin Of Data',0
arr     db  1,2,-3,-4,5,7,6,-8,9,0
max     db  ?
        db  'End Of Data',0
        
.stack
        db  256 dup ('?') 
        
.code
start:
    mov ax,@data
    mov ds,ax
    
    xor si,si
    xor di,di
    mov al,arr[si]
    mov cx,0Ah
    shr cx,1
    dec cx
    push cx
 
    find_max1:
        add si,2
        cmp al,arr[si]
        jg  skip1
        mov al,arr[si]
        mov di,si
        skip1:      
    loop find_max1
    
    mov max,al
    mov bx,di
    
    mov si,1
    mov di,1
    mov al,arr[si]
    pop cx
    
    find_max2:
        add si,2
        cmp al,arr[si]
        jg  skip2
        mov al,arr[si]
        mov di,si
        skip2:      
    loop find_max2
    
    mov arr[bx],al
    mov al,max
    mov arr[di],al
    
    mov ah,4Ch
    int 21h
end start