
  PROCEDURE [XREF] pmp$load (name: pmt$program_name;
        kind: pmt$loaded_address_kind;
    VAR address: pmt$loaded_address;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc PMT$PROGRAM_NAME
*copyc PMT$LOADED_ADDRESS
*copyc OST$STATUS
*copyc LLE$LOADER_STATUS_CONDITIONS
?? POP ??
