Ассемблер и Паскаль

[maziLa]

Я хочу передать параметры через стек в процедуру а также из процедуры в главную программу, как мне это реализовать?
Есть интерфейс написанный на Паскале :

{$L C:\LR.OBJ}
uses crt;
var
	s1, s2: string;
	d, e  : word;

procedure WordMaxZ; far; external;

begin
  clrscr;
  Write('Введите вашу строку :');
  ReadLn(s1);

  writeln;
  d:=length(s1);
  WordMaxZ;
  
  Write('Самое длинное слово:');
  Write(s2);
  WriteLn;
  Write('Количество букв <Z> в нём: ');
  WriteLN(e);
	
  ReadLn;
end.

и есть ассемблерный модуль:

.model large,pascal

           
extrn	s1: byte, d: word , s2: byte, e: word
.data                                        
.code
;Процедура WordMaxZ - Входные данные - Строка
;		    - Выходные данн. - Слово(макс)
public WordMaxZ                
WordMaxZ proc far 
  lea si, s1
  mov cx, d
  add cx, 1
  lea di, s2
  mov bx, cx
  add bx, 1    
  mov al, ' '
  xor dx, dx

  m1:
  xor bx, bx
  m2:
  inc bx
  inc si
  cmp [si], al  
  je m3
  loop m2
  jmp m4


  m3:
  cmp dx, bx
  jge m1

  push si
  push cx

  sub si, bx
  mov cx, bx
  lea di, s2

  cld
  rep movsb

  pop cx
  pop si
  mov dx, bx

  jmp m1
  m4:
  mov cx, dx
  xor dx, dx
  mov al, 'Z'
  mov ah, 'z'
  lea di, s2
  m6:
  cmp [di], al
  je m5
  cmp [di], ah
  je m5
  inc di
  loop m6
  jmp m7
  m5:
  inc dx
  inc di
  jmp m6

  m7:
  mov e, dx
  lea di, s2
  ret
WordMaxZ endp 
                
end

d, s1 передаются в процедуру
e, s2 возвращаются из процедуры

[alexcoder]

Во вложении пример сопряжения паскаля и асма через линковку. Рекомендую сначала ассемблерный код оформить в виде процедуры в паскале, отладить, а только потом выносить его в ассемблерный файл.
И отладчик Вам в помошь!

[maziLa]

Это уже готовая рабочая программа, мне просто надо её переделать под стек.
Я пробовал мне пример не оч помог я всё равно не могу толково передать строку в стек и из него взять.

[alexcoder]

А никто и не говорил, что будет просто.
Для начала правильно вызовите функцию из паскаля. На этом этапе ассемблерный модуль может вообще ничего не брать из стека и ничего не возвращать в стек!
Откройте в Турбо Дебаггере файл, найдите этот вызов и посмотрите в каком порядке паскаль передает аргументы и сколько они занимают места в стеке. Вы получите соответствие s1 - [bp+xx], s2 - [bp+yy] и т.д.
и замените в ассемблерном тексте символьные переменные на переменные в кадре стека. Что тут сложного?