
  PROCEDURE [INLINE] dfp$await_core_subsystem_action
    (    p_driver_queue_entry: ^dft$driver_queue_entry);

    VAR
      ignore_status: ost$status;

    REPEAT
      #SPOIL (p_driver_queue_entry^);
      pmp$cycle (ignore_status);
      #SPOIL (p_driver_queue_entry^);
    UNTIL p_driver_queue_entry^.flags.subsystem_action;

  PROCEND dfp$await_core_subsystem_action;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc pmp$cycle
*copyc ost$status
?? POP ??
