msg(strstr("Assembler is the best language", "best", 1))
strstr proc pszHaystack:PTR BYTE, pszNeedle:PTR BYTE, dwCaseSensitive:DWORD
	push	esi
	push	edi
	xor	eax, eax
	xor	ecx, ecx
	xor	edx, edx
	mov	esi, [pszHaystack]
	mov	edi, [pszNeedle]
@@char:	mov	al, byte ptr [esi]
	mov	ah, byte ptr [edi]
	cmp	byte ptr [dwCaseSensitive], 0
	jne	@@cmp1
	cmp	al, "Z"
	ja	@@cmp0
	cmp	al, "A"
	jb	@@cmp0
	add	al, 32
@@cmp0:	cmp	byte ptr [dwCaseSensitive], 0
	jne	@@cmp1
	cmp	ah, "Z"
	ja	@@cmp1
	cmp	ah, "A"
	jb	@@cmp1
	add	ah, 32
@@cmp1:	cmp	al, ah
	jne	@@next
	inc	ecx
	mov	eax, esi
	inc	edi
	inc	esi
	cmp	byte ptr [esi], 0
	je	@@quit
	inc	eax
	cmp	byte ptr [edi], 0
	je	@@quit
	jmp	@@char
@@next:	mov	edi, [pszNeedle]
	test	ecx, ecx
	setz	dl
	add	esi, edx
	xor	ecx, ecx
	xor	eax, eax
	cmp	byte ptr [esi], 0
	jne	@@char
@@quit:	sub	eax, ecx
	pop	edi
	pop	esi
	ret
strstr endp

//mona #include<stdio.h>toda budet C
 //no ya nachinal na C 
 /*если не поленишься  организуй   рекурсию ,будет any word naxodit.......*/                
#include<iostream.h>
#include<conio.h>
int main()
{
 char* answer=new(char);
 char* message="Assembler is the best language";
 int i=0;
 while(message[i])
 {
  if (message[i]==' ')
  {
   if(message[i+1]=='b')
   {
    if(message[i+2]=='e')
    {
     if(message[i+3]=='s')
     {
      if(message[i+4]=='t')
      {
       if(message[i+5]==' ')
       {
        answer="best";
       }
      }
     }
    }
   }
  }
  i++;
 }
 cout<<answer<<"\n";//a tut printf("%s",answer);
 getch();
}

; Check whether str1 is a substring of str2:
; str1 should always be in uppercase
; ---------------------------------
; Returns: No  - 0
;          Yes - other
; ESI points to substring
; =================================
IsSubStr PROC str1:DWORD,str2:DWORD
 mov esi,str2
 mov edi,str1
 xor eax,eax
 xor ecx,ecx
 cld
@@:
 lodsb
 test eax,eax
 jz _endloop            ; no match
 mov cl,BYTE PTR [edi]
 jecxz _endloop         ; match!
 inc edi
 cmp eax,ecx
 je @B
 add al,32
 cmp eax,ecx
 je @B
 mov edi,str1
 jmp @B
_endloop:
 sub edi,str1
 sub esi,edi
 ret
IsSubStr ENDP