[Sindy]

Вот у меня есть код :

Код:

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

Admin: Последнее предупреждение по оформлению кода! При рецедиве БАН.

И учитель сказал сделать чтобы этот код в Asme работал)не поможете?)в Asmе я не бум бум((