Не могу получить адрес массива :( Опции

[-Shaienn-]

Здравствуйте, есть

программа

{в ней}

функция, которая работает с массивом и в этой функции
я пытаюсь сделать такую вещь:

asm    
lea si,d
lodsw
cmp ax,3
je @m
jmp @exit
@m :
	push si
	lea si,e
	lodsw
	mov bx,ax
	lodsw
	mul bx
	mov di,si
	sub di,4
	stosw
	mov ax,0
	stosw
@exit:
end;

т.е на паскале:

case d[i] of
3: begin e[i]:=e[i]*e[i+1];
	 e[i+1]:=0; end;
end;

проблема в том, что я с адреса, полученного командой lea, командой lodsw не получаю число из массива (массив integer), но если пишу на тот же адрес, то в массив все записывается

отдельным куском данный код на ассемблере работает... Где может быть косяк?
Могу дать файл программы, но она большая.... Но все равно, может кто поможет.
Ассемблер изучаю один день, так что нужна помощь.

Сообщение отредактировано: volvo - 10.11.2006 16:49

[Виталий Шевченко]

а можно еще вопрос, как мне из real массива вытащить вещественное число и загнать его в st(0)?

[Malice]

а можно еще вопрос, как мне из real массива вытащить вещественное число и загнать его в st(0)?

Думаю его надо сначала преобразовать из REAL в DOUBLE, a потом FLD ..

[Виталий Шевченко]

Думаю его надо сначала преобразовать из REAL в DOUBLE, a потом FLD ..

{$N+}
program as3;
var d: array [1..100] of integer;
    e: array [1..100] of double;
    r:integer;
begin
r:=10;
d[1]:=3;
e[2]:=4.4;
e[1]:=2.3;
asm
mov dx,0
lea si,d
lodsw
cmp ax,3
je @m
jmp @exit
@m :

	finit
	lea si,e
	fld dword ptr[si]
	fld dword ptr[si+8]     {double в памяти 8 байт?}
	fmul
	lea di,d
	fstp dword ptr[di]
@exit:
end;
writeln(e[1]);
writeln(2*4.4);
readln;
end.

он в массив записывает чушь какую-то, подскажите, что я неправильно делаю?

Сообщение отредактировано: volvo - 11.11.2006 15:36