передача параметров в функцию (STDCALL)

[Женька Good]

Здравствуйте, есть программа и библиотека. В библиотеке есть функция, которая ищет кол-во вхождений подстроки в строке. Но эти строки объявлены в библиотеке. Помогите доделать программу, чтобы строки передавались в функцию из основной согласно конвенции STDCALL.
библиотека

.386
.model flat, stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
.data
str1	db "six little rat cubs, big rat and three old rats",0
str2	db "rat",0
count dd 0

.code
DllEntry proc hInstance:HINSTANCE, reason:DWORD, reserved1:DWORD
	mov eax,TRUE
	ret
DllEntry endp
strfind proc
	push ebx
	push esi
	push edi
	invoke lstrlen, addr str2
	dec eax
	mov ebx,eax
	invoke lstrlen, addr str1
	mov ecx,eax
	mov edi,offset str1
a2:	mov al,str2[0]
	repne scasb
	jecxz exit
	push ecx
	mov esi,offset str2+1
	mov ecx,ebx
	repe cmpsb
	jne a1
	inc count
	sub [esp],ebx
a1:	pop ecx
	or ecx,ecx
	jne a2
exit:	mov eax,count
	pop edi
	pop esi
	pop ebx
	ret
strfind endp
end DllEntry

основная прога:

.386
.model flat, stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
.data
MsgCaption      db "поиск подстроки в строке",0
buffer      db 100 dup (0)
template db "найдено %d вхождения подстроки str1 в строку str2",0
LibName db "3.dll",0
FunctionName db "strfind",0
DllNotFound db "Cannot load library",0
AppName db "Load Library",0
FunctionNotFound db "strfind function not found",0
str1	db "six little rat cubs, big rat and three old rats",0
str2	db "rat",0
.data?
hLib dd ?
strfind dd ?
.code
start:
	invoke LoadLibrary,addr LibName
   
        .if eax==NULL
                invoke MessageBox,NULL,addr DllNotFound,addr AppName,MB_OK
        .else
                mov hLib,eax
                invoke GetProcAddress,hLib,addr FunctionName
   

                .if eax==NULL
                        invoke MessageBox,NULL,addr FunctionNotFound,addr AppName,MB_OK
                .else
                        mov strfind,eax
                        call [strfind]
   
	invoke wsprintf,addr buffer,addr template,eax
	invoke MessageBox, NULL,addr buffer, addr MsgCaption, MB_OK
                .endif
                invoke FreeLibrary,hLib
  
        .endif
	invoke ExitProcess,NULL
end start

[Mikl___]

Женька Good,
это что за болезнь такая плодить дублирующиеся топики?