
  PROCEDURE [XREF] osp$set_status_from_condition (identifier:
    ost$status_identifier,
    condition: pmt$condition;
    save_area: ^ost$stack_frame_save_area;
    VAR condition_status: ost$status;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc OST$STATUS_IDENTIFIER
*copyc PMT$CONDITION
*copyc OST$STACK_FRAME_SAVE_AREA
*copyc OST$STATUS
*copyc OSE$CONDITION_EXCEPTIONS
?? POP ??
