Sebuah program yang ditulis dalam Delphi untuk membalik urutan 4 byte yang ditunjuk oleh penunjuk x:
fungsi toulong(x: pchar): longWord;
mulai
hasil := (kata panjang(x^) shl 24) atau
(kata panjang((x + 1)^) shl 16) atau
(kata panjang((x + 2)^) shl 8) atau
(kata panjang((x + 3)^));
akhir;
Berikut ini adalah metode perakitan tertanam menggunakan Delphi:
fungsi toulong(x: pchar): kata panjang;
asm
pindah esi, eax
gerakkan kapak,[esi]
xchg ah, al
apa yang harus dilakukan,16
gerakkan kapak,[esi+2]
xchg ah, al
akhir;
Catatan: Secara default, Delphi menggunakan metode "daftar". Jika parameternya berada dalam 3,
eax, edx dan ecx akan digunakan masing-masing, dan tumpukan akan digunakan untuk lebih dari 3 parameter. parameter kembali
Penyimpanannya bergantung pada panjangnya. Misalnya, 8-bit menggunakan al untuk kembali, 16-bit menggunakan ax, 32-bit menggunakan eax, dan 64-bit menggunakan dua.
Register 32-bit edx:eax, dengan eax adalah bit rendah.
Efisiensi: Dalam contoh ini, ASM sekitar 50% lebih cepat dibandingkan Delphi atau C.