Advertisement
Guest User

Untitled

a guest
Jan 30th, 2017
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  .386
  2.  .model flat, stdcall
  3.  option casemap :none
  4.  include \masm32\include\windows.inc
  5.  include \masm32\include\user32.inc
  6.  include \masm32\include\kernel32.inc
  7.  includelib \masm32\lib\user32.lib
  8.  includelib \masm32\lib\kernel32.lib
  9.  
  10.   .data
  11.     A DD -1, -2, -3, -4, 1, 2, 0, 4, 2000, 4096, 65535, 0
  12.     k_str dD 3
  13.     k_stolb dD 4
  14.     KOL_ZERO Dd 0
  15.     Zagolovok db "programm result",0
  16.     sResult byte 50 dup (?)
  17.     sfc db "в массиве А нулевых элементов - %.1li шт.",0
  18. ;------------------------------------------------
  19.  .code
  20.     start:
  21.    
  22.     MOV ECX,k_str ;счётчик циклов по строкам
  23.     for_STR:
  24.         XOR EBX,EBX ;обнуление счетчика суммы
  25.    
  26.         XCHG ECX,EDX ;перенастройка ЕСХ на счётчик столбцов
  27.         MOV ECX,k_stolb ;счётчик циклов по столбцам
  28.    
  29.         for_STOLB:
  30.         MOV ESI, ECX
  31.         DEC ESI ; индекс в столбце
  32.        
  33.         MOV EDI, EDX
  34.         DEC EDI ; индекс в строке
  35.        
  36.         MUL
  37.        
  38.         LOOP for_STOLB
  39.         ADD EBX, 16
  40.         XCHG ECX,EDX ;перенастройка ЕСХ на счётчик строк
  41.     LOOP for_STR
  42.    
  43.    
  44.     invoke wsprintf, ADDR sResult, ADDR sfc, KOL_ZERO
  45.     invoke MessageBox, NULL, ADDR sResult, addr Zagolovok, MB_OK
  46.     invoke ExitProcess, NULL
  47. end start ;Конец программы
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement