
  PROCEDURE [XREF] tmp$save_system_task_id (stid: tmt$system_task_id;
        critical_task: boolean;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc TMT$SYSTEM_TASK_ID
*copyc OST$STATUS
?? POP ??
