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

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

[Guest]

Можно так:

program Hello;

procedure Print(const s: String);
var
  ts: String;
begin
  ts := s + '$';
  asm
    push ds
    mov ax,ss
    mov ds,ax
    lea dx,ts[1]
    mov ah,9
    int 21h
    pop ds
  end;
end;

begin
  Print('Hello, World!'#13#10);
  asm
    xor ax,ax
    int 16h
  end;
end.

...а можно и так:

program Hello;

procedure Print(const s: String); assembler;
asm
  push ds
  lds dx,s
  inc dx
  mov ah,9
  int 21h
  pop ds
end;

begin
  Print('Hello, World!'#13#10'$');
  asm
    xor ax,ax
    int 16h
  end;
end.