17

;====== Программа 16. Файл z5_pr16.asm ====================

MASM
MODEL small
STACK 256

.data


array dw 32760;,151,3078,526,61,8;,1,443,9,11,12,13,0
len     equ $-array

failed      db  0ah,0dh,'В массиве нет четных чисел!$'
success     db  0ah,0dh,'Четные числа обнаружены: $'
fnd         db  ' раз(а)',0ah,0dh,'$'
foundtime   db  0

.code

main:

    mov ax,@data
    mov ds,ax
    xor ax,ax

    mov cx,len
    mov bx,0
.lp:
    test array[bx], 1
    jnz .endl
    inc foundtime

.endl:
    add bx,2
    loop .lp


    cmp foundtime,0h
    ja eql

not_equal:
    mov ah,09h
    lea dx, failed
    int 21h
    jmp exit

eql:
    mov ah,09h
    lea dx, success
    int 21h
    mov ah,02h
    mov dl,foundtime
    add dl,30h
    int 21h
    mov ah,09h
    lea dx, fnd
    int 21h

exit:
    mov ax,4c00h
    int 21h

end main