Локальная переменная в 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;

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

[BlackShadow]

FreeMan, надо просто по-осторожнее это делать, а по возможности вообще избегать.
И в "АЗАХ", единственная функция, которая должна работать нормально (быстро и качественно) - StrLen, сохраняет DS.
DS хранит то значение, от которого отталкивается компилятор при адресации глобальных переменных. Т. е. сбив его, всепопытки изменить какую-нибудь твою переменную приведёт к изменению данных где-то там.
Далее. Параметры функций адресуются по SS, который далеко не обязательно совпадает с DS => смещение переменной Str надо отсчитывать от SS, поэтому и меняется DS (хотя PUSH SS/POP DS по-моему шустрее и не сбивает AX, но это так, на будующее).