Есть два 32двух разрядных числа. Старшие 1байт этих чисел всегда 00. Суть, такова, надо найти евклидово расстояние этих чисел побайтно. Ну допустим эти два числа $050703 и $060401. sqrt(($03-$01)^2+($07-$04)^2+($05-$06)^2).
Я написал вот такую функцию:
function test(a,b:integer):double; register;
var d:integer;
asm
mov eax,a
and eax,$FF
mov d,eax
fild d
mov eax,b
and eax,$FF
mov d,eax
fild d
fsub
fld st(0)
fmul
mov eax,a
shr eax,8
and eax,$FF
mov d,eax
fild d
mov eax,b
shr eax,8
and eax,$FF
mov d,eax
fild d
fsub
fld st(0)
fmul
fadd
mov eax,a
shr eax,16
and eax,$FF
mov d,eax
fild d
mov eax,b
shr eax,16
and eax,$FF
mov d,eax
fild d
fsub
fld st(0)
fmul
fadd
fsqrt
end;
Сдается мне можно было сделать попроще. Буду благодарен за любые советы.