Создаются две программы: одна в паскале - в ней задается массив из 50 случайно сгенерированных чисел, другая в ассемблере - там должна происходить выборка из этих чисел наибольшего значения и наименьшего и их сложение. Вот как из паскаля вызвать вторую прогу и передать ей этот массив чисел?
klem4
25.03.2008 9:19
используй ассемблерные вставки в паскале, он это допускает.
GErM
25.03.2008 9:59
Цитата(klem4 @ 25.03.2008 10:19)
используй ассемблерные вставки в паскале, он это допускает.
В самом паскале писать ассемблерную часть? А как в ней указать на массив из паскаля? Ведь асм должен как-то брать числа для обработки.
Собственно, Паскаль позволяет и линковать OBJ-файлы, скомпилированные в TASM, так что можно и без вставок...
spill
25.03.2008 13:14
Пишешь процедуру на асме:
M1.ASM:
DataSegmentExtrn Mass: Byte;Word, DWord - в зависимости от задачи
DataEndSCodeSegmentPublicassumeCS: CodePublicName
Name Proc;Процедура на асме
retName EndPCodeEndS
Вполне возможно, что ЭТО работать и будет, но вот с массивами у тебя (а задача была именно на работу с массивами, если ты не соизволил этого заметить) подобным образом получится облом... Через параметры работаем с массивами...
P.S. не пользуйся никогда именем Name для чего-то своего, TASM этого не прощает. P.P.S - открой для себя .DATA/.CODE
GErM
25.03.2008 18:43
Все равно я ни че не пойму как делать Может кто-нить даст ссылку на подобную тему?
volvo
26.03.2008 0:40
Что именно непонятно? Смотри: пишем программу на Паскале, в которой будет собственно массив и его заполнение, и куда потом передадим результат:
program pasm;
type
arr = array[1 .. 10] of word;
{$F+}function process(var a: arr; count: word): word; external;
{$F-}{$L pasm.OBJ}const
myArray: arr = (22, 23, 4, 5, 6, 7, 8, 9, 4, 15);
var
i: integer;
r: word;
begin
writeln('pascal');
for i := 1to10dowrite(myarray[i]:4);
writeln;
writeln('asm');
r := process(MyArray, 10);
writeln('min + max = ', r);
end.
Теперь пишем ASM-функцию, которая и будет получать указатель на массив и делать с ним все, что нужно:
.MODELlarge, PASCAL.DATA;
.CODE
Process PROCFAR; function process(var pasArray: arr; count: word): word;
ARG pasArray: DWORD, count: WORDreturns result: WORDPUBLIC Process
lds si, [pasArray] ;si = адрес (смещение) массива
cld
lodsw ;ax = первый элемент массива
mov bx,ax;в bx будет минимум, для начала - первый
mov dx,ax;в dx будет максимум, для начала - первый
mov cx, count ;цикл на Count - 1 итераций
dec cx
minmax:
lodsw ;ax = очередной элемент массива
cmp ax,bx;поиск минимума: если ax < bx, то bx = ax
jge minmax1
mov bx,ax
minmax1:
cmp ax,dx;поиск максимума: если ax > dx, то dx = ax
jle minmax2
mov dx,ax
minmax2:
loop minmax ;повторять с метки minmax Count - 1 раз
add dx, bx;dx = dx + bx = максимум + минимум
mov ax, dx; result = dx
ret
Process ENDPEND
Компилируешь программу TASM-ом, и линкуешь OBJ-файл к паскаль-программе... Запускаешь, смотришь, что непонятно - спрашиваешь
Добавлено через 1 мин. P.S. Может, тему лучше в ASM двинуть? В любом случае она не для "Теоретических вопросов"...
GErM
26.03.2008 2:32
2volvo: Большое спасибо! Я уже раз 10 читал про это линкование, но никак ни мог врубиться. Сейчас часть программы маленько переделал "под себя" и встал перед другим вопросом: у меня результат должен выводиться еще ассемблером, т.е. появляется окно и в нем тупо пишется "rezultat = ...". Как выводить текст в асме я знаю, но вот как реализовать вызов самого асма что бы он уже выводил текст?
P.S. Ну мне, если честно, не принципиально где тема будет.
volvo
26.03.2008 8:48
Цитата
Как выводить текст в асме я знаю, но вот как реализовать вызов самого асма что бы он уже выводил текст?
Точно так же, как это делается сейчас... Только перед RET в ассемблерной функции добавить еще и вывод результата (ну, и поскольку это все-таки функция, то вернуть результат через AX, но в паскале ничего с ним не делать).
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.