Вывести на экран элементы массива, кратные 5

cseg segment
assume cs:cseg,ds:cseg,es:cseg,ss:cseg
org 100h
 
start:  mov ah,09h
    mov dx,offset msg
    int 21h
        mov si,offset array
    mov bx,5
    mov cx,l_arr
srch:   mov ax,[si]
    xor dx,dx
    div bx
    cmp dx,0 
    jnz nxt
    mov ax,[si] 
    call OutInt
    mov al,','
    int 29h
    inc cnt
nxt:    add si,2
    loop srch
    mov ah,09h
    mov dx,offset mes_cnt
    int 21h
    xor ax,ax
    mov al,cnt
    call OutInt
    ret
 
array dw 1,15,25,134,7,50,83,250,65535,54,325,34,45
l_arr=($-array)/2
msg db 'Элементы массива, кратные пяти:$'
mes_cnt db 13,10,'Число элементов массива, кратных пяти:$'
cnt db 0
 
cseg ends
end start

cseg segment
assume cs:cseg,ds:cseg,es:cseg,ss:cseg
org 100h
 
start:  mov ah,09h
        mov dx,offset msg
        int 21h
        mov si,offset array
        mov bx,5
        mov cx,l_arr
srch:   mov ax,[si]
        xor dx,dx
        div bx
        cmp dx,0 
        jnz nxt
        mov ax,[si]     
        call OutInt
        mov al,','
        int 29h
        inc cnt
nxt:    add si,2
        loop srch
        mov ah,09h
        mov dx,offset mes_cnt
        int 21h
        xor ax,ax
        mov al,cnt
        call OutInt
        ret
 
OutInt proc
        
;; если число знаковое, то необходимо расскоментировать следующие строки
;; Проверяем число на знак.
;       test    ax, ax
;       jns     oi1
;
;; Если оно отрицательное, выведем минус и оставим его модуль.
;       mov  cx, ax
;       mov     ah, 02h
;       mov     dl, '-'
;       int     21h
;       mov  ax, cx
;       neg     ax
;; Количество цифр будем держать в CX.
;oi1:  
        xor     cx, cx
        mov     bx, 10 ; основание сс. 10 для десятеричной и т.п.
oi2:
        xor             dx,dx
        div     bx
; Делим число на основание сс. В остатке получается последняя цифра.
; Сразу выводить её нельзя, поэтому сохраним её в стэке.
        push    dx
        inc     cx
; А с частным повторяем то же самое, отделяя от него очередную
; цифру справа, пока не останется ноль, что значит, что дальше
; слева только нули.
        test    ax, ax
        jnz     oi2
; Теперь приступим к выводу.
        mov     ah, 02h
oi3:
        pop     dx
; Извлекаем очередную цифру, переводим её в символ и выводим.
;; раскоментировать если основание сс > 10, т.е. для вывода требуются буквы
;       cmp             dl,9
;       jbe             oi4
;       add             dl,7
;oi4:
        add     dl, '0'
        int     21h
; Повторим ровно столько раз, сколько цифр насчитали.
        loop    oi3
        
        ret
 
OutInt endp 
 
array dw 1,15,25,134,7,50,83,250,65535,54,325,34,45
l_arr=($-array)/2
msg db 'Элементы массива, кратные пяти:$'
mes_cnt db 13,10,'Число элементов массива, кратных пяти:$'
cnt db 0
 
cseg ends
end start

OutInt proc
    push ax
    push bx
    push cx
    push dx
        
        xor     cx, cx
        mov     bx, 10 ; основание сс. 10 для десятеричной и т.п.
oi2:
        xor     dx,dx
        div     bx
        push    dx
        inc     cx
        test    ax, ax
        jnz     oi2
        mov     ah, 02h
oi3:
        pop     dx
        add     dl, '0'
        int     21h
        loop    oi3
 
    pop dx
    pop cx
    pop bx
    pop ax
        
        ret
 
OutInt endp