  PROCEDURE [XREF] pmp$save_program_state
    (VAR p_state_container: ^SEQ ( * );
     VAR original_program: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc pme$program_state_exceptions
?? POP ??
