Файл mydll.asm

.686

.model flat,stdcall

option casemap:none

include masm32includewindows.inc

include masm32includekernel32.inc

include masm32includeuser32.inc

includelib masm32libkernel32.lib

includelib masm32libuser32.lib

includelib masm32binmyio.lib

FindMas proto :BYTE,:BYTE,:BYTE,:BYTE ;масив,L,M,N

BSIZE equ 32

.data

st1 db "DLL-файлы",0

masA db 5,56,14,8,1,3,16

st2 db "Исходный массив:",0ah

st3 db "5,56,14,8,1,3,16",0ah,0ah

st4 db "Условие: 5<=Ai<15",0ah,0ah

buf db BSIZE dup(?)

frmt db "количество элементов",0ah

st5 db "удовлетворяюших условие = %d",0ah,0ah

st6 db "Богаевский А. КиТ-18б",0

N db 7

L db 5

M db 15

.code

_st:

invoke FindMas,masA,L,M,N

; ebx - лічильнік

invoke wsprintf,ADDR buf,ADDR frmt, ebx

invoke MessageBox,0,ADDR st2,ADDR st1,MB_OK

invoke ExitProcess,0

end _st