Как написать это на паскале с ассемблерной вставкой?

Question

[luxurypluxury]

Как написать это на паскале с ассемблерной вставкой?

Comments

[mayton2019]

Тут ... с хитростью подойти надо.

Тебе размер этой вставке не сообщали? Значит может быть любая. Напиши на паскале эту формулу как есть. И приаттачь сюда. И дальше уже на ассемблере мы придумаем что приклеить сбоку.

[Василий Банников]

С чем именно у тебя возникает сложность? Как ты уже пробовал?

[ZERGeich]

begin
//Тут код который ты набираешь на паскале
 asm
  //Тут код который ты набираешь на асме
 end;
end.

[luxurypluxury]

mayton2019,
program Hello;

var a, b, result : real;
begin
writeln('Enter a: '); readln(a);
writeln('Enter b: '); readln(b);

result = (sqr(a) + (2 * b * sqr(c) * c) - 10) / a - 3 * b;
writeln(result:2:4);readln();
end.

[mayton2019]

luxurypluxury, я погуглил. Что-то не нахожу хороших примеров. Мой опыт - релевантен к старому MS-DOS Turbo-Pascal. Какой сейчас в моде - я ХЗ.

Какой у тебя? Free-Pacsal? Gnu-Pascal?

[mayton2019]

luxurypluxury, если собрать подобный исходник через fpc с опцией -al то получается примерно такой фрагмент.

# [11] result := (sqr(a) + (2 * b * sqr(c) * c) - 10) / a - 3 * b;
        movsd   U_$P$DEMO_$$_A,%xmm2
        mulsd   %xmm2,%xmm2
        movsd   _$DEMO$_Ld2,%xmm1
        mulsd   U_$P$DEMO_$$_B,%xmm1
        movsd   U_$P$DEMO_$$_C,%xmm0
        mulsd   %xmm0,%xmm0
        mulsd   %xmm1,%xmm0
        mulsd   U_$P$DEMO_$$_C,%xmm0
        addsd   %xmm2,%xmm0
        subsd   _$DEMO$_Ld4,%xmm0
        divsd   U_$P$DEMO_$$_A,%xmm0
        movsd   _$DEMO$_Ld3,%xmm1
        mulsd   U_$P$DEMO_$$_B,%xmm1
        subsd   %xmm1,%xmm0
        movsd   %xmm0,U_$P$DEMO_$$_RESULT
# [12] End.

Я не даю это как решение. Просто как способ куда еще можно посмотреть. Тем более что у меня Linux,
и синтаксис AT&T (операнды свапнуты наоборот). Вобщем это подсказка.

И не создавай форков. Это некрасиво.

Answer 1

[Hemul GM]

Запиши решение обычным способом и в отладке забери сгенерированный асм. Debug -> CPU Window