Не отрабатывает дробное число в сопроцессоре. Delphi+Assembler

@1963Victor · Регистрация: 29.10.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте. Косвенная адресация с целыми числами получается, не получается с дробными. Заранее благодарю.

Delphi

unit Assembler;
 
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
a:array [0..3{200}] of real; 
n,u,w:real;
 
begin
 
a[0]:=1;
a[1]:=2;
a[2]:=3;
a[3]:=4;
 
asm
 
finit
lea eax,a
push [eax+12]
fld dword ptr [esp] 
fstp w
 
end;
ListBox1.Items.Add(FloatToStr(w)+' Содержимое ячейки ');
 
end;

@FIL · 29.07.2015, 17:18

Delphi

asm
 
  finit
//  lea eax, a
  fld qword[a + 3*8] // a[3]
  fstp w
 
end;

@mss · 29.07.2015, 17:51

С какого потолка свалилось число 12 ?

@1963Victor · 29.07.2015, 18:21 **[ТС]**

Спасибо большое, а 12 =3*4, не правильно считал.

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	29.07.2015, 17:51	3
	С какого потолка свалилось число 12 ? 0

@1963Victor 0 / 0 / 0 Регистрация: 29.10.2014 Сообщений: 134
	29.07.2015, 18:21 [ТС]	4
	Спасибо большое, а 12 =3*4, не правильно считал. 0