Здравствуйте, есть
программа
{в ней}
функция, которая работает с массивом и в этой функции
я пытаюсь сделать такую вещь:
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;
d: array [1..100] of integer
e: array [1..100] of integer
прога смешанная, паскаль и асм
Так и не смог я под своим нормальным именем зарегистрироваться, чего-то накосячил (модераторы, может сотрете из базы ник Shaienn)
Вот прога, основная суть - интерпретатор команд, пишешь ручками функцию, прога рисует график.
Данный кусок кода в функции xvalue
xvalue вычисляет значение для функции, т.е. я задаю например cos(2*x), и функция xvalue "распознает" эти 2*x и вычисляет.
Прикрепленные файлы
CURVE.PAS ( 8.16 килобайт )
Кол-во скачиваний: 294
asm
push ds {Запомним ds, вдруг он паскалю нужен был}
push es
pop ds {ds=es}
.... твой код
pop ds {Восстановим ds}
...
end;
asm
push ds {Запомним ds, вдруг он паскалю нужен был}
push es
pop ds {ds=es}
.... твой код
pop ds {Восстановим ds}
...
end;
а можно еще вопрос, как мне из real массива вытащить вещественное число и загнать его в st(0)?
{$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.
хм. практически все
во первых - сам написал, что double 8байт, а пишем dword ptr, а не qword ptr. дальше - результат записываешь в массив d, а выводишь число из массива е...
finit
lea si,e
fld qword ptr[si]
fld qword ptr[si+8] {double в памяти 8 байт?}
fmul
lea di,d
fstp qword ptr[si]
я вас, наверное, уже достал глупыми вопросами, но можно ли обнулить ячейку массива более простым способом?
asm
push es
pop ds
lea si,d
lodsw
cmp ax,3
je @m
jmp @exit
@m :
finit
lea si,e
fld qword ptr[si]
fld qword ptr[si+8]
fmul
fstp qword ptr[si]
push ds --------- вот я ее обнуляю
pop es
lea di,e
add di,8
mov ax,0
mov cx,4
rep stosw ---------вот ноль в ячейке
@exit:
end;
Написал я ассемблерную часть, но криво, у меня паскаль вылетает в винду с недопустимой операцией...
Посмотрите плиз, в чем дело... Очень надо...
Прикрепленные файлы
CURVE.PAS ( 8.95 килобайт )
Кол-во скачиваний: 296
Ну сначала
asm
lea di,s
mov cx,100
mov ax,0
rep stosw
lea di,t
mov cx,100;еще на 4 умножить тогда в самый раз, думаю
mov ax,0
rep stosw;массив s вроде double, а это значит, что ты его не совсем до конца обнуляешь.
;но в принципе можно нулями и не забивать, обычно там и так нули
end;
И все же, есть какие-нить нюансы добавления ассемблерных вставок?
Просто, если я ставлю {$R+}, то паскаль пишет Range check error и вылетает....
Без ассемблерной части все работает, так что вывод - косяк в ассемблере. Проверьте плиз.
e: array [1..100] of double;
d: array [1..100] of integer;
asm
mov mm,0
lea si,d
@beg:
add mm,1
push ss
pop ds
lodsw
cmp ax,0
je @exit
cmp ax,1
je @beg
cmp ax,2
je @beg
push ax
push si
pop di
push ds
pop es
sub di,2
mov ax,0
stosw
mov cx,100
sub di,2
rep movsw
finit
lea si,e
mov ax,mm
mov bx,8
mul bx
mov bx,si
add bx,ax
fld qword ptr[bx-8]
fld qword ptr[bx]
pop ax
cmp ax,3
je @m
cmp ax,4
je @d
@m:
fmul
jmp @c
@d:
fdiv
jmp @c
@c:
fstp qword ptr[bx-8]
push ds
pop es
push bx
pop di
mov ax,0
mov cx,4
rep stosw
mov cx,400
push di
pop si
sub di,8
rep movsw
jmp @beg
@exit:
lea si,d
push es
pop ds
lodsw
cmp ax,0
je @end
push ax
push si
pop di
sub di,2
mov ax,0
stosw
mov cx,100
sub di,2
rep movsw
finit
lea si,e
fld qword ptr[si]
fld qword ptr[si+8]
pop ax
cmp ax,1
je @a
cmp ax,2
je @s
@a:
fadd
jmp @con
@s:
fsub
jmp @con
@con:
fstp qword ptr[si]
push ds
pop es
push si
pop di
mov ax,0
mov cx,4
rep stosw
mov cx,400
push di
pop si
sub di,8
rep movsw
jmp @exit
@end:
end;
Асм вставка это часть процедуры ? Приведи полный код, а то мне не понятны такие моменты:
push ss {испортил ds, или прочитал параметр из стека..}Т.е. в прошлый раз комбинация push ds/pop es помогла т.к. в ds уже был загружен (паскалем) нужный сегмент, это не значит, что если ты ее повторяешь, то опять все будет хорошо.
pop ds
lodsw
....
push ds {теперь es тоже равен ss}
pop es
push ds {зачемто опять..}
pop es
{
в функцию передается значение переменной x, строка с
функцией и позиция, с которой распознаем
}
function xvalue(x:double;i:integer;s1:string):double;
var
j,mm,x3,code:integer;
c:char;
s2:string;
e: array [1..100] of double;
d: array [1..100] of integer;
begin
asm
lea di,d
mov cx,100
mov ax,0
rep stosw
lea di,e
mov cx,400
mov ax,0
rep stosw
end;
mm:=1;
x3:=1;
repeat
i:=i+3;
{эта программа вычисляет значение аргумента функции, т.е если, например,
sin(2*x+2) то именно эта часть распознает и вычисляет значение в скобках,
а i:=i+3 это три буквы функции s,i и n в строке s1, в которой хранится вся функция}
c:=s1[i];
until c=#40; {(}
repeat
i:=i+1;
c:=s1[i];
if (c<=#57) and (c>=#47) then
begin
j:=i;
repeat
i:=i+1;
c:=s1[i];
until (c>#57) or (c<#48) or (c=' ');
s2:=copy(s1,j,i-j);
val(s2,e[mm],code);
mm:=mm+1;
c:=s1[i];
end;
if (c<=#47) and (c>=#42) then
begin
case c of
'+':d[x3]:=1;
'-':d[x3]:=2;
'*':d[x3]:=3;
'/':d[x3]:=4;
end;
x3:=x3+1;
end;
if c='x' then
begin
e[mm]:=x;
mm:=mm+1;
end
until c=#41; {)}
asm
mov mm,0
lea si,d
@beg:
add mm,1
push ss
pop ds
lodsw
cmp ax,0
je @exit
cmp ax,1
je @beg
cmp ax,2
je @beg
push ax
push si
pop di
push ds
pop es
sub di,2
mov ax,0
stosw
mov cx,100
sub di,2
rep movsw
finit
lea si,e
mov ax,mm
mov bx,8
mul bx
mov bx,si
add bx,ax
fld qword ptr[bx-8]
fld qword ptr[bx]
pop ax
cmp ax,3
je @m
cmp ax,4
je @d
@m:
fmul
jmp @c
@d:
fdiv
jmp @c
@c:
fstp qword ptr[bx-8]
push ds
pop es
push bx
pop di
mov ax,0
mov cx,4
rep stosw
mov cx,400
push di
pop si
sub di,8
rep movsw
jmp @beg
@exit:
lea si,d
push es
pop ds
lodsw
cmp ax,0
je @end
push ax
push si
pop di
sub di,2
mov ax,0
stosw
mov cx,100
sub di,2
rep movsw
finit
lea si,e
fld qword ptr[si]
fld qword ptr[si+8]
pop ax
cmp ax,1
je @a
cmp ax,2
je @s
@a:
fadd
jmp @con
@s:
fsub
jmp @con
@con:
fstp qword ptr[si]
push ds
pop es
push si
pop di
mov ax,0
mov cx,4
rep stosw
mov cx,400
push di
pop si
sub di,8
rep movsw
jmp @exit
@end:
end;
xvalue:=e[1];
end;
ты вот всякою фигню с ds, es мутишь, а восстанавливать сегментные регистры - одно из правил кодинга на асме.