;;Przykład 9.3. Wywoływanie w języku asemblera funkcji napisanej w ję-zyku C++
//plik w języku C++
extern "C" InicBufor2(__int32 *bufor);
extern "C" void CyklSpac(__int32 *bufor,__int16 rozmiar); 
__int32 bufor[0x2000];
void __fastcall TForm1::StartClick(TObject *Sender)
{
 InicBufor2(bufor);
}
void CyklSpac(__int32 *bufor,__int16 rozmiar)
{
 for (int i=0;i<rozmiar;i++) bufor[i]=0x20202020L;
}
;;plik w języku asemblera
.386
.MODEL  SMALL
EXTRN  _CyklSpac:PROC
.CODE   USE32
EXTRN _CyklSpac:PROC
PUBLIC  _InicBufor2
_InicBufor2 PROC NEAR C
ARG tabl:DWORD
  push  EBP
  mov   EBP,ESP
  push  ECX
  push  EBX
  mov    ECX, 2000h      ;; ilość powtórzeń cyklu
  push  ECX ;ostatni argument podprogramu _CyklSpac 
  mov   EBX, DWORD PTR tabl
  push  EBX ;pierwszy argument podprogramu _CyklSpac
  call  _CyklSpac
  add   ESP,8 ;przesuwanie na stosie o argumenty _CyklSpac
  pop   EBX
  pop   ECX
  mov   ESP,EBP
  pop  EBP
  ret
_InicBufor2 ENDP
END