Совместное использование паскаля и ассемблера. Опции

[GErM]

Создаются две программы: одна в паскале - в ней задается массив из 50 случайно сгенерированных чисел, другая в ассемблере - там должна происходить выборка из этих чисел наибольшего значения и наименьшего и их сложение. Вот как из паскаля вызвать вторую прогу и передать ей этот массив чисел?

[volvo]

Что именно непонятно? Смотри: пишем программу на Паскале, в которой будет собственно массив и его заполнение, и куда потом передадим результат:

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.

Теперь пишем ASM-функцию, которая и будет получать указатель на массив и делать с ним все, что нужно:

.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

За основу ассемблерной функции взята программа xds: Массив целых цисел

Компилируешь программу TASM-ом, и линкуешь OBJ-файл к паскаль-программе... Запускаешь, смотришь, что непонятно - спрашиваешь

Добавлено через 1 мин.
P.S. Может, тему лучше в ASM двинуть? В любом случае она не для "Теоретических вопросов"...