  PROCEDURE [INLINE] dfp$fetch_queue_entry
    (    p_queue_interface_table: dft$p_queue_interface_table;
         queue_index: dft$queue_index;
         queue_entry_index: dft$queue_entry_index;
     VAR p_driver_queue_entry: ^dft$driver_queue_entry;
     VAR p_cpu_queue_entry: ^dft$cpu_queue_entry);


    p_driver_queue_entry := ^p_queue_interface_table^.queue_directory.
          driver_queue_pva_directory [queue_index].p_driver_queue^.
          queue_entries [queue_entry_index];

    p_cpu_queue_entry := ^p_queue_interface_table^.queue_directory.
          cpu_queue_pva_directory [queue_index].
          p_cpu_queue^.queue_entries [queue_entry_index];
  PROCEND dfp$fetch_queue_entry;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc dft$cpu_queue
*copyc dft$queue_index
?? POP ??
