
  PROCEDURE [INLINE] dfp$fetch_server_iocb
    (    queue_entry_location: dft$queue_entry_location;
     VAR p_server_iocb: ^mmt$server_iocb_entry);

    VAR
      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_server_iocb := 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].
          p_server_iocb;

  PROCEND dfp$fetch_server_iocb;
?? PUSH (LISTEXT := ON) ??
*copyc dfp$get_qit_p_from_direct_index
*copyc dft$queue_entry_location
*copyc mmt$server_io_control_block
?? POP ??



