
  PROCEDURE [INLINE] nap$initiate_task_switch
    (    flag_id: ost$system_flag;
         taskid: ost$global_task_id;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
    pmp$set_system_flag (flag_id, taskid, status);

  PROCEND nap$initiate_task_switch;

*copyc pmp$set_system_flag
?? POP ??
