Немного о вещественном асме., нубский вопрос Опции

[TarasBer]

У меня вопрос - почему не компилируется этот кусок кода?

procedure SinCos(var d, c, s: extended); assembler;
asm
  fld d
  fsincos
  fstp c
  fstp s
end;

И как его правильно переписать. Компилятор говорит что инвалид комбинатион оф опкоде энд операндс. Вот глобальные переменные можно передавать, локальные можно, а передаваемые в процедуру - нельзя! Что за странное ограничение?

[volvo]

У меня не говорит, что неправильные операнды, жалуется, что не знает такой инструкции FSINCOS... Компилятор какой? Я вот это откомпилировал и выполнил на TP7 без проблем:

{ Код от Merlyn-а }
procedure FSinCos(var S, C : extended ; A : extended) ; assembler ;
asm
  fld [A] ; db $CD,$35,$FB
  les di,[C] ; fstp es:tbyte ptr[di] ;
  les di,[S] ; fstp es:tbyte ptr[di] ;
end {FSinCos} ;


var Rad, _Sin, _Cos: extended;
begin
  Rad := Pi / 4;
  FSinCos(_Sin, _Cos, Rad);
  writeln(_Sin, ' ', _Cos);
end.

Вот результат:

 7.07106781186548E-0001  7.07106781186548E-0001

... По-моему, все правильно.