?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE: Await Activity User Ring Interfaces', EJECT ??
MODULE osm$i_await_activity_complete;
{   PURPOSE:
{     The purpose of this module is to support the osp$i_await_activity_completion
{     request.

{   DESIGN:
{     The procedure contained in this module has an execution bracket of 1, 13.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc ost$i_wait
*copyc ost$status
?? POP ??
*copyc osp$i_await_activity
?? OLDTITLE ??
?? NEWTITLE := '[XDCL, #GATE] osp$i_await_activity_completion', EJECT ??
*copy osh$i_await_activity_completion

  PROCEDURE [XDCL, #GATE] osp$i_await_activity_completion
    (    wait_list: ost$i_wait_list;
     VAR ready_index: integer;
     VAR status: ost$status);

    VAR
      wait_complete: boolean;

    ready_index := 0;
    status.normal := TRUE;
    wait_complete := FALSE;
    REPEAT
      osp$i_await_activity (wait_list, ready_index, wait_complete, status);
    UNTIL wait_complete OR NOT status.normal;
  PROCEND osp$i_await_activity_completion;
?? OLDTITLE ??
MODEND osm$i_await_activity_complete;
