
  PROCEDURE [XREF] pmp$load_from_library (name: pmt$program_name;
        ring: ost$ring;
        global_key: ost$key_lock_value;
        kind: pmt$loaded_address_kind;
        library: ^SEQ ( * );
        library_name: amt$local_file_name;
    VAR address: pmt$loaded_address;
    VAR status: ost$status);

*copyc PMT$PROGRAM_NAME
*copyc OSD$VIRTUAL_ADDRESS
*copyc PMT$LOADED_ADDRESS
*copyc AMT$LOCAL_FILE_NAME
*copyc LLE$LOADER_STATUS_CONDITIONS
*copyc OST$STATUS
