ассемблерная вставка в Delphi, макросы Опции

[marwell]

доброго дня
необходимо вычислить интеграл методом прямоугольников (ассемблерная вставка в Delphi или в паскаль)
сам метод мне понятен
но, на каждом шаге мне нужно будет вычислять значение функции в определенной точке. хотел было использовать макросы
но не тут то было, ни паскаль ни Delphi макросы не принимают
может я неправильно описываю эти макросы?

var n,a,b: integer;
    res, h, x: real;
begin
readln(n);
a:=0;
b:=1;
asm
 fild b
 fisub a
 fidiv n
 call funct
 funct proc
...

[Error] Project1.dpr(18): Undeclared identifier: 'funct'
думал что макросы описываются след образом:
<имя> macro парам1, парам2... парам N
...
...набор команд
...
endm

[IUnknown]

Функция какая у тебя, тангенс или котенгенс? Если тангенс - то вот так:

   asm
      fild b
      fisub a
      fidiv n
      fst h

      mov ecx, n
      fld x
   @m:
      fadd st(1)
      fld st(0) // Дублируем значение Х
      fptan
      fdivp st(1),st
      fadd res
      fstp res
      loop @m;
   end;
   writeln(res:5:4);

(логика очень проста: в стеке держим только приращение в ST1, и текущее значение X в ST0, все остальное сразу после вычисления убираем). Если функция - КОтангенс - поменяй fdivp на fdivrp

[marwell]

Функция какая у тебя, тангенс или котенгенс? Если тангенс - то вот так:

   asm
      fild b
      fisub a
      fidiv n
      fst h

      mov ecx, n
      fld x
   @m:
      fadd st(1)
      fld st(0) // Дублируем значение Х
      fptan
      fdivp st(1),st
      fadd res
      fstp res
      loop @m;
   end;
   writeln(res:5:4);

(логика очень проста: в стеке держим только приращение в ST1, и текущее значение X в ST0, все остальное сразу после вычисления убираем). Если функция - КОтангенс - поменяй fdivp на fdivrp

спасибо! да, тангенс нужен. И логика понятна.
Только Delphi ругается на эту строчку

fadd st(1)

говорит [Error] Project1.dpr(25): Invalid combination of opcode and operands