โปรแกรมที่เขียนด้วย Delphi เพื่อกลับลำดับของ 4 ไบต์ที่ชี้โดยตัวชี้ x:
ฟังก์ชั่นตูลอง (x: pchar): longWord;
เริ่ม
ผลลัพธ์ := (คำยาว(x^) shl 24) หรือ
(คำยาว((x + 1)^) shl 16) หรือ
(คำยาว((x + 2)^) shl 8) หรือ
(คำยาว((x + 3)^));
จบ;
ต่อไปนี้เป็นวิธีการประกอบแบบฝังโดยใช้ Delphi:
ฟังก์ชั่นตูลอง (x: pchar): คำยาว;
asm
mov esi,eax
ขวาน mov,[esi]
xchg อ่าอัล
จริงสิ,16
ขวาน mov,[esi+2]
xchg อ่าอัล
จบ;
หมายเหตุ: ตามค่าเริ่มต้น Delphi จะใช้วิธี "register" หากพารามิเตอร์อยู่ภายใน 3
eax, edx และ ecx จะถูกใช้ตามลำดับ และ stack จะถูกใช้สำหรับพารามิเตอร์มากกว่า 3 ตัว ส่งคืนพารามิเตอร์
หน่วยเก็บข้อมูลขึ้นอยู่กับความยาว ตัวอย่างเช่น 8 บิตใช้ al เพื่อส่งคืน 16 บิตใช้ ax 32 บิตใช้ eax และ 64 บิตใช้สอง
รีจิสเตอร์ 32 บิต edx:eax โดยที่ eax เป็นบิตต่ำ
ประสิทธิภาพ: ในตัวอย่างนี้ ASM เร็วกว่า Delphi หรือ C ประมาณ 50%