Не совсем понятно какие нужны ассемблерные вставки в функциях.
Если нужно обе функции полностью написать на встроенном ассемблере паскаля, то, наверное, будет проще и быстрее проанализировать листинг дизассемблера и внести желаемые поправки.
Например в функции min3 можно отказаться от локальной переменной Result и переписать функцию так:
function min3(a,b,c:integer):integer;
begin
asm
mov ax,a
cmp ax,b
jl cmp_c
mov ax,b
cmp_c:
cmp ax,c
jl ret_ax
mov ax,c
ret_ax:
mov [bp-2],ax
end;
end;
Текст дизассемблированных функций в приложении.
Приложение:
Ответ отправил: Trulala (статус: 1-ый класс)
Ответ отправлен: 24.03.2008, 23:29 Оценка за ответ: 5