Побитовые операции с памятью

function FindInRegionMod(Src:HBitmap; _x,_y,dx,dy: Integer; Sample:HBitmap):TPoint;stdcall;
label
  _exit, notfound;
var
  x, y, i,j,k, width, height, delta: integer;
  smp:                               array of record
                                              color,i: dword;
                                              end;
  pixels:                            array of dword;
  _Src,_Sample:                      BITMAP;
begin
  GetObject(Src,sizeof(BITMAP),@_Src);
  GetObject(Sample,sizeof(BITMAP),@_Sample);
  i:=_Sample.bmHeight*_Sample.bmWidth;
  j:=0;
  k:=(_Sample.bmHeight-1)*_Src.bmWidth+_Sample.bmWidth-1 + (_Src.bmHeight-dy-1)*_Src.bmWidth+_x;
  x:=_Sample.bmWidth;
  Width:=_Src.bmWidth-_Sample.bmWidth;
  SetLength(smp,i);
  pointer(pixels):=_Sample.bmBits;
  for i:=i-1 downto 0 do
  begin
    smp[j].color:=pixels[i];
    smp[j].i    :=k;
    dec(j,shortint(PansiChar(@pixels[i])[3]));
    dec(k);
    dec(x);
    if x=0 then
    begin
      x:=_Sample.bmWidth;
      dec(k,Width);
    end;
  end;
  SetLength(smp, j);
  pointer(pixels):=_Src.bmBits;
  Width :=dx-_x-_Sample.bmWidth+1;
  Height:=dy-_y-_Sample.bmHeight+1;
  k:=0;
  delta :=_Src.bmWidth-Width-1;
  y     :=Height;
  repeat
    x:=Width;
    repeat
      i:=j-1;
      repeat
        if pixels[k+smp[i].i]<>smp[i].color then
          goto notfound;
        dec(i);
      until i<0;
      goto _exit;
      notfound:
      inc(k);
      dec(x);
    until x<0;
    inc(k,delta);
    dec(y);
  until y<0;
  Result.x:=-1;
  Result.Y:=-1;
  dword(pixels):=0;
  exit;
  _exit:
  Result.x:=Width-x+_x;
  Result.y:=y+_y;
  dword(pixels):=0;
end;

function FindInRegionASM(Src:HBitmap; _x,_y,_dx,_dy: Integer; Sample:HBitmap):TPoint;stdcall;assembler;
asm
  //push ebp
  //mov  ebp,esp
  pushad
  sub   esp,64
  push  esp                               //_Src
  push  24
  push  dword[esp+116]                    //Src
  call  GetObject
  lea   eax,[esp+24]                      //_Sample
  push  eax
  push  24
  push  dword[esp+136]                    //Sample
  call  GetObject
  add   esp,64
  mov   eax,[esp-40+BITMAP.bmWidth]       //[_Sample.bmWidth]
  mul   [esp-40+BITMAP.bmHeight]          //[_Sample.bmHeight]
  neg   eax
  lea   ebx,[esp+eax*8-64]
  neg   eax
  xor   edi,edi //j:=0??
  mov   esi,[esp-40+BITMAP.bmBits]        //[_Sample.bmBits]
  // k
  mov   ecx,[esp-40+BITMAP.bmHeight]      //[_Sample.bmHeight]
  dec   ecx
  imul  ecx,[esp-64+BITMAP.bmWidth]       //[_Src.bmWidth]
  add   ecx,[esp-40+BITMAP.bmWidth]       //[_Sample.bmWidth]
  dec   ecx
  // My k part
  add ecx,[esp+48] //+_x
  mov edx,[esp-64+BITMAP.bmHeight] //[_Src.Height]
  sub edx,[esp+60] //-dy
  dec edx //-1
  imul  edx,[esp-64+BITMAP.bmWidth] //*_Src.bmWidth
  add ecx,edx //+(_Src.bmHeight-dy-1)*_Src.bmWidth
  //
  mov   edx,[esp-64+BITMAP.bmWidth]       //[_Src.bmWidth]
  sub   edx,[esp-40+BITMAP.bmWidth]       //[_Sample.bmWidth]
  mov   [esp-4],edx
  mov   ebp,[esp-40+BITMAP.bmWidth]       //[_Sample.bmWidth]
  @prep:mov  edx,[esi+eax*4-4]
        mov  [ebx+edi*8],ecx
        mov  [ebx+edi*8+4],edx
        sar  edx,31
        sub  edi,edx
        dec  ecx
        dec  ebp
        jne @next
          mov ebp,[esp-40+BITMAP.bmWidth] //[_Sample.bmWidth]
          sub ecx,[esp-4]
        @next:
        dec eax
  jne @prep
  movq  mm0,[esp+56]                      //_dx/_dy
  psubd mm0,[esp+48]                      //_x/_y
  psubd mm0,[esp-40+BITMAP.bmWidth]       //qword[_Sample.bmWidth]
  movq  [esp-8],mm0                       //width/height
  inc [esp-4]
  inc [esp-8]
  emms
  mov   eax,[esp-64+BITMAP.bmWidth]       //[_Src.bmWidth]
  sub   eax,[esp-8]                       //width
  dec eax
  mov   [esp-16],eax                      //delta
  shl   [esp-16],2
  xor eax,eax //k:=0; ^old k
  add   eax,[esp-64+BITMAP.bmBits]        //[_Src.bmBits]
  mov   ebp,[esp-4]
  @row:mov esi,[esp-8]                    //Width
       @col:mov ecx,edi                   //smpllen
            @b:mov edx,[ebx+ecx*8-8]
               mov edx,[eax+edx*4]
               cmp edx,[ebx+ecx*8-4]
               jne @notfound
               dec ecx
            jne @b
            jmp @exit
            @notfound:
            add eax,4
            dec esi
       jnl @col
       add eax,[esp-16]                   //delta
       dec ebp
  jge @row
  mov eax,[esp+40]                        //result
  mov dword[eax],-1
  mov dword[eax+4],-1
  popad
  pop ebp
  ret 24
  @exit:
  mov eax,[esp+40]                        //result
  neg esi
  add esi,[esp-8]                         //Width
  add esi,[esp+48]                        //_x
  mov [eax],esi
  add ebp,[esp+52]                        //_y
  mov [eax+4],ebp
  popad
end;