Создаются две программы: одна в паскале - в ней задается массив из 50 случайно сгенерированных чисел, другая в ассемблере - там должна происходить выборка из этих чисел наибольшего значения и наименьшего и их сложение. Вот как из паскаля вызвать вторую прогу и передать ей этот массив чисел?
используй ассемблерные вставки в паскале, он это допускает.
ну примерно так:
procedure P(var arr: TArray); // передаешь массив
begin
asm
// обработка на asm
end;
end;
Пишешь процедуру на асме:
M1.ASM:
Data Segment
Extrn Mass: Byte ;Word, DWord - в зависимости от задачи
Data EndS
Code Segment Public
assume CS: Code
Public Name
Name Proc
;Процедура на асме
ret
Name EndP
Code EndS
{Здесь описываешь переменные, проседуры ввода-вывода итд}
{$L M1.obj}
Procedure Name; External;
Begin
Name
End.
Все равно я ни че не пойму как делать Может кто-нить даст ссылку на подобную тему?
Что именно непонятно? Смотри: пишем программу на Паскале, в которой будет собственно массив и его заполнение, и куда потом передадим результат:
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 := 1 to 10 do write(myarray[i]:4);
writeln;
writeln('asm');
r := process(MyArray, 10);
writeln('min + max = ', r);
end.
.MODEL large, PASCAL
.DATA
;
.CODE
Process PROC FAR ; function process(var pasArray: arr; count: word): word;
ARG pasArray: DWORD, count: WORD returns result: WORD
PUBLIC 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 ENDP
END
2volvo: Большое спасибо! Я уже раз 10 читал про это линкование, но никак ни мог врубиться. Сейчас часть программы маленько переделал "под себя" и встал перед другим вопросом: у меня результат должен выводиться еще ассемблером, т.е. появляется окно и в нем тупо пишется "rezultat = ...". Как выводить текст в асме я знаю, но вот как реализовать вызов самого асма что бы он уже выводил текст?
P.S. Ну мне, если честно, не принципиально где тема будет.