
  PROCEDURE [XREF] clp$load_system_entry_point
    (    name: pmt$program_name;
         kind: pmt$loaded_address_kind;
     VAR loaded_address: pmt$loaded_address;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc pmt$loaded_address
*copyc pmt$program_name
?? POP ??

