
  PROCEDURE [XREF] lop$load_entry_point (name: pmt$program_name;
        reference_ring: ost$valid_ring;
        reference_global_key: ost$key_lock_value;
        kind: pmt$loaded_address_kind;
    VAR address: pmt$loaded_address;
    VAR status {control} : ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc PMT$PROGRAM_NAME
*copyc OSD$VIRTUAL_ADDRESS
*copyc PMT$LOADED_ADDRESS
*copyc OST$STATUS
?? POP ??
