[Sindy]

Здравствуйте!У меня есть код задачи рабочий:

Код:

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

и учитель сказал сделать ассемблерную вставку чтобы и на ASMe работал!Но вот я не знаю как)Вставка должна быть буквально 5 строчек)Посмотрите кому не лень)

[lmikle]

Ну, надо проверять, но что-то типа:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var n1,n2:int64;
begin
n1 := StrToInt64(Edit1.Text);
asm
push eax;
push ebx
mov eax, n1
mov ebx, $0000FF00
xor eax,ebx
mov n2, eax;
pop ebx;
pop eax;
end;
Edit2.Text := IntToStr(n2);
end;

PS. Еще раз без тегов напишешь - получишь бан на неделю.

[Sindy]

Ой прости я забыла про теги!А код твой не работает)Ошибка в строке mov eax, n1 перед n1 !пишет Operand size mismatch)

[lmikle]

Странно, по размеру как раз совпадает - DWORD.
А на другие строки не ругается?

[Sindy]

Ну до Этой строки все чисто))а потом не знаю)

[lmikle]

Короче, да, я не прав. eax это 32 бита, а надо 64. Ты точно 32 битами не обойдешься?
В общем, придется делать по частям, что бы нормально работало на процах без поддержки 64бит. сейчас подумаю что можно сделать, но это уже не 2 строчки. Там дофига будет.

[Sindy]

Нужно точно через EAX делать)потому что кроме этого мы ничего не проходили)

[Rokuell]

Работа с 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;

[lmikle]

Rokuell, ну да, если маска является константой.

Я сделал вот так:

Код:

function AsmXOR64(N, M : Int64) : Int64;
asm
  mov eax, dword ptr [N]
  xor eax, dword ptr [M]

  mov edx,dword ptr [N+4]
  xor edx, dword ptr [M+4]

  mov dword ptr [Result],eax
  mov dword ptr [Result+4],edx
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  N, M, Res : Int64;
begin
  N := $0000000000000000;
  M := $FF0000FFFF0000FF;
  Res := AsmXOR64(N,M);
  ShowMessage(IntToHex(Res,16));
end;

[Sindy]

Это очень большой код))у меня его не примут)Ты же мне сначала написал замечательнуя вставку))правда какая то там глупая ошибка возникает)

[lmikle]

вообще-то в первом варианте было 8 строк, а в последнем - 6.
Имеется в виду значимых. Ну и в отдельную процку я это вытащил. Так что второй вариант гораздо короче - на 25% на самом деле. Можно просто "засунуть" это все внутрь обработчика, но это "некомильфо". Лучше как раз выносить такие вещи в отдельные процки, т.к. в 2009ой там можно сделать inline.

Меньше 6 строк все-равно не получится. На чистом асме можно было бы сделать и короче, но тут такая фигня, что в Дельфином асме у любой команды один оператор всегда д.б. регистром.

[Sindy]

так ему и скажу))спасибо за потраченное на меня время)