function PrevBP: Word;
inline(
$8B/ $46/ $00 { mov ax, [bp] }
);
procedure call_DrawVisLocal(local: pointer);
begin
{ ... }
DrawVisLocal({...}, local, PrevBP)
{ ... }
end;
procedure caller;
procedure local; far;
begin
{ ... }
end;
begin
call_DrawVisLocal(local)
end;