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

[GErM]

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

[klem4]

используй ассемблерные вставки в паскале, он это допускает.

[GErM]

используй ассемблерные вставки в паскале, он это допускает.

В самом паскале писать ассемблерную часть? А как в ней указать на массив из паскаля? Ведь асм должен как-то брать числа для обработки.

[klem4]

ну примерно так:

procedure P(var arr: TArray); // передаешь массив
begin
  asm
  // обработка на  asm
  end;
end;

[volvo]

используй ассемблерные вставки в паскале

Собственно, Паскаль позволяет и линковать OBJ-файлы, скомпилированные в TASM, так что можно и без вставок...

[spill]

Пишешь процедуру на асме:

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

Компилируешь TASM.
Потом пишешь на паскале:

{Здесь описываешь переменные, проседуры ввода-вывода итд}
{$L M1.obj}
Procedure Name; External;
Begin
  Name
End.

Должно работать..

[volvo]

Должно работать..

Вполне возможно, что ЭТО работать и будет, но вот с массивами у тебя (а задача была именно на работу с массивами, если ты не соизволил этого заметить) подобным образом получится облом... Через параметры работаем с массивами...

P.S. не пользуйся никогда именем Name для чего-то своего, TASM этого не прощает.
P.P.S - открой для себя .DATA/.CODE

[GErM]

Все равно я ни че не пойму как делать Может кто-нить даст ссылку на подобную тему?

[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 двинуть? В любом случае она не для "Теоретических вопросов"...

[GErM]

2volvo: Большое спасибо! Я уже раз 10 читал про это линкование, но никак ни мог врубиться. Сейчас часть программы маленько переделал "под себя" и встал перед другим вопросом: у меня результат должен выводиться еще ассемблером, т.е. появляется окно и в нем тупо пишется "rezultat = ...". Как выводить текст в асме я знаю, но вот как реализовать вызов самого асма что бы он уже выводил текст?

P.S. Ну мне, если честно, не принципиально где тема будет.

[volvo]

Как выводить текст в асме я знаю, но вот как реализовать вызов самого асма что бы он уже выводил текст?

Точно так же, как это делается сейчас... Только перед RET в ассемблерной функции добавить еще и вывод результата (ну, и поскольку это все-таки функция, то вернуть результат через AX, но в паскале ничего с ним не делать).