初学Delphi嵌入汇编[5]

//测试寄存器: 如果只有两个参数, 看看 ECX EDX 谁来接受第二个参数

procedure Proc(x,y: Integer);
var
　a,b: Integer;
begin
　asm
　　MOV a,ECX
　　MOV b,EDX
　end;
　ShowMessage(IntToStr(a) + #44 + IntToStr(b));
end;

//测试

procedure TForm1.Button1Click(Sender: TObject);
begin
　Proc(11,22); {显示: 0,22}

{看来是 EDX 一直接受第二个值; 那么 ECX 肯定接受第三个值了}

end;