[lmikle]

Открой сырцы VCL и посмотри примеры. Только тут такой вопрос - а зачем??? Код на Дельфи работает достаточно быстро и тут просто не имеет смысла потимизировать, перекладывая на асемблер.

Что типа того:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var n1,n2:int64;
begin
  n1 := StrToInt64(Edit1.Text);
  asm
        MOV     EAX,n1
        MOV     EBX,$0000FF00
        XOR      EAX,EBX
        MOV     n2,EAX
  end;
  Edit2.Text := IntToStr(n2);
end;