Локальная переменная в Pas, доступ к ней Опции

[Local]

Привет!!

Procedure Pr(Str : String);
  begin
     Str:=Str+'$';
    asm
       mov ax,seg(@Data)
       mov ds,ax
       xor ax,ax       
       mov ah,9
       mov dx,offset Str
       int 21h
    end;
  end;
BEGIN
 Pr('Hello');
  asm
    mov ah,0
    int 16h
  end;
End;

Вот объясните почему Я промахиваюсь при вызове локальной перменной в
процедуре с параметрами
заранее спасибо

[Dark]

Все очень просто, твоя строка хранится встеке, а переменная @Data хранит Data сегмент паскалевской проги(заметь, не ПРОЦЕДУРЫ!)

Большая просьба - востанавливать DS, а то иначе ты изменяешь адрес расположения данных ВСЕЙ программы!!!!

Procedure Pr(Str : String);
 begin
    Str:=Str+'$';
   asm
      push ds
      mov ax,ss
      mov ds,ax
      xor ax,ax
      mov ah,9
      lea dx, Str {грузим смещение - Load Effective Address}
      inc dx {тожеобрати внимание - Str[0] содержит размер строки, поэтому его вывод нам не интересен}
      int 21h
      pop ds
   end;
 end;