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

    CONST
      { Time in milliseconds
      expected_time =  100;

    REPEAT
      #SPOIL (p_driver_queue_entry^);
      syp$wait (expected_time);
      #SPOIL (p_driver_queue_entry^);
    UNTIL p_driver_queue_entry^.flags.subsystem_action;

  PROCEND dfp$await_subsystem_action;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc dft$queue_index
*copyc syp$wait
?? POP ??
