

    PROCEDURE [INLINE] dfp$init_monitor_io_stats (
      queue_entry_location: dft$queue_entry_location;
      io_type: dft$monitor_io_types);

      VAR
        p_cpu_queue: ^dft$cpu_queue,
        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 := p_queue_interface_table^
            .queue_directory.cpu_queue_pva_directory
            [queue_entry_location.queue_index].p_cpu_queue;
      p_cpu_queue^.queue_header.monitor_io [io_type].number_of_requests :=
            p_cpu_queue^.queue_header.monitor_io [io_type].number_of_requests + 1;
      p_cpu_queue^.queue_entries [queue_entry_location.queue_entry_index].
            current_request_type := io_type;
      p_cpu_queue^.queue_entries [queue_entry_location.queue_entry_index].
            current_request_time := 0;

    PROCEND dfp$init_monitor_io_stats;

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