ostapdontstop

17

Jan 8th, 2021
1,790
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;====== Программа 16. Файл z5_pr16.asm ====================
  2.  
  3. MASM
  4. MODEL small
  5. STACK 256
  6.  
  7. .data
  8.  
  9.  
  10. array dw 32760;,151,3078,526,61,8;,1,443,9,11,12,13,0
  11. len     equ $-array
  12.  
  13. failed      db  0ah,0dh,'В массиве нет четных чисел!$'
  14. success     db  0ah,0dh,'Четные числа обнаружены: $'
  15. fnd         db  ' раз(а)',0ah,0dh,'$'
  16. foundtime   db  0
  17.  
  18. .code
  19.  
  20. main:
  21.  
  22.     mov ax,@data
  23.     mov ds,ax
  24.     xor ax,ax
  25.  
  26.     mov cx,len
  27.     mov bx,0
  28. .lp:
  29.     test array[bx], 1
  30.     jnz .endl
  31.     inc foundtime
  32.  
  33. .endl:
  34.     add bx,2
  35.     loop .lp
  36.  
  37.  
  38.     cmp foundtime,0h
  39.     ja eql
  40.  
  41. not_equal:
  42.     mov ah,09h
  43.     lea dx, failed
  44.     int 21h
  45.     jmp exit
  46.  
  47. eql:
  48.     mov ah,09h
  49.     lea dx, success
  50.     int 21h
  51.     mov ah,02h
  52.     mov dl,foundtime
  53.     add dl,30h
  54.     int 21h
  55.     mov ah,09h
  56.     lea dx, fnd
  57.     int 21h
  58.  
  59. exit:
  60.     mov ax,4c00h
  61.     int 21h
  62.  
  63. end main
RAW Paste Data