
  PROCEDURE [XREF] pmp$get_current_environ_r2
    (   condition_ring: ost$ring;
     VAR environment: pmt$condition_environment;
     VAR environment_present: boolean;
     VAR status: ost$status);

*copyc osd$virtual_address
*copyc pmt$condition_environment
*copyc ost$status
