
  PROCEDURE [XREF] pmp$get_debug_id
    (    debug_index: 0 .. 63;
     VAR debug_id: pmt$debug_identifier;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc pmd$debug
*copyc pme$debug_exceptions
?? POP ??
