Определяет кол-во вхождений одной Паскаль-строки в другую Паскаль-строку.

// Pos standard function
// function Pos(SubStr: String; S: String): Byte;
// RETURNS:     eax     = Index of the first char of SubStr within S or 0 if SubStr is not found
 
procedure _StrPos(SubStr,S: Pointer); {&USES ebx,ecx,edx,esi,edi} {&FRAME-}
asm
                cld
                mov     esi,SubStr
                movzx   eax,[esi].Byte
                inc     esi
                test    al,al                   // If SubStr = '' then Pos := 0
                jz      @@Not_Found             // (Not found)
                mov     edx,eax                 // edx := Length(SubStr)
                mov     edi,S                   // If Length(SubStr) > Length(S)
                movzx   ecx,Byte Ptr [edi]      // then Pos := 0 (Not found)
                sub     ecx,edx                 // ******************** <=S
                jb      @@Not_Found             // *********            <=SubStr
                inc     ecx                     // ecx := <-Б---------Щ
                inc     edi                     // edi := @S[1]
              @@1:
                mov     al,[esi]                // Search SubStr[1] in S
                inc     esi
                repne   scasb
                jne     @@Not_Found
                mov     eax,edi                 // Compare other characters
                mov     ebx,ecx
                lea     ecx,[edx-1]
                shr     ecx,2                   // FAST String compare
                repe    cmpsd                   // if ecx = 0 then ZF = 1
                jne     @@2
                lea     ecx,[edx-1]
                and     ecx,11b
                repe    cmpsb
                je      @@Found
              @@2:
                mov     edi,eax                 // Restore edi, ecx
                mov     ecx,ebx
                mov     esi,SubStr
                inc     esi                     // esi := @SubStr[1]
                jmp     @@1
 
              @@Not_Found:
                xor     eax,eax                 // Pos := 0
                jmp     @@RET
 
              @@Found:
                dec     eax
                sub     eax,S
              @@RET:
end;