Работа с 64-битными числами происходит через
связку регистров
edx+eax
Код:
function AsmXor(n:int64):int64;
asm
xor eax, $0000ff00 // младшие 32 бита
xor edx, $00000000 // старшие 32 бита
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b:int64;
begin
a := StrToInt64(Edit1.Text);
b := AsmXor(a);
Edit2.Text := IntToStr(b);
end;