function CurBP: Word; inline( $8B/ $C5 { mov ax, bp } );
procedure caller; procedure local; far; begin { ... } end; begin DrawVisLocal({ ... }local, CurBP) end;