
    PROCEDURE [INLINE] dfp$incr_monitor_io_stats (
      queue_entry_location: dft$queue_entry_location);


      VAR
        current_time: integer,
        p_cpu_queue_entry: ^dft$cpu_queue_entry,
        p_queue_interface_table: dft$p_queue_interface_table;

      dfp$get_qit_p_from_direct_index (queue_entry_location.directory_index,
            p_queue_interface_table);
      p_cpu_queue_entry := ^p_queue_interface_table^.
            queue_directory.cpu_queue_pva_directory [queue_entry_location.
            queue_index].p_cpu_queue^.queue_entries [queue_entry_location.
            queue_entry_index];
      current_time := #free_running_clock (0);
      p_cpu_queue_entry^.current_request_time :=
            p_cpu_queue_entry^.current_request_time + current_time
            - dfv$monitor_io_start_time;
      dfv$monitor_io_start_time := current_time;

    PROCEND dfp$incr_monitor_io_stats;

?? PUSH (LISTEXT := ON) ??
*copyc dft$cpu_queue
*copyc dft$queue_entry_location
*copyc dfv$monitor_io_start_time
*copyc dfp$get_qit_p_from_direct_index
?? POP ??
