Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ассемблер _ как передать массив в асм модуль ?

Автор: kile 5.06.2004 23:55

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

ЗЫ: однако если в самой процедуре описать массив, то ассебмлер будет его обрабатывать!!!!!! <_< ... это меня смущает...

ЗЫ2: как передавать массив в процедуру - я знаю (пишу на всякий случай, чтобы вы это не писали).

если есть какие-нить предположения, то напишите мне.

спасибо ;)smile.gif.

Автор: GLuk 6.06.2004 1:07

Дык может все-таки передавать не массив, а ссылочку на него (тип Pointer)??
Которая будет валяться в стеке и занимать всего 4 б.

Автор: kile 6.06.2004 3:25

не-а, именно сам массив !!!
массив не надо размещать в динамической памяти.

Автор: GLuk 6.06.2004 10:23

Да какая разница, он все равно должен быть в стеке.
Разве что описалово процедуры реализуется с VAR, типа (procedure OldDood(var a:array[1..21] of Char);)

Цитата
Массив не надо размещать в динамической памяти

Он у тебя изначально по дефолту там...
добавлено позже
А что это за извращение-то такое, когда по ссылке нельзя передавать, а весь массив можно и даже нужно, преподы болеют??

Автор: kile 6.06.2004 16:04

это не извращение, просто тема : связь ассемблера с языками высокого уровня.

если не сложно, напиши код smile.gif.

Автор: BlackShadow 11.06.2004 16:52

Должно быть где-то так:

Procedure ProcessArray(Var A:TMyArray);External;

Var
 a:TMyArray;

Begin
 ...
 ProcessArray(a);
 ...
End.

В саой процедуре надо работать примерно так:

LES DI,[a]
...

И через ES:DI к массиву и обращаться. Естественно A[i] это [SOMETYPE PTR (ES:DI)+i*SIZE SOMETYPE]