{
{  This procedure determines the assignment status of the specified entry.
{

 PROCEDURE [INLINE] dfp$check_queue_entry_assigned
    (    entry_index: integer;
     VAR queue_assignment_string {input, output} : string ( * <=  dfc$queue_assignment_strng_size);
     VAR queue_entry_assigned: boolean);

    VAR
      actual_string: string (8),
      entry_word_starting_char: integer,
      word_index: integer;

    entry_word_starting_char := ((entry_index - 1) DIV 8) * 8 + 1;
    word_index := (entry_index MOD 8);
    IF word_index = 0 THEN
      word_index := 8;
    IFEND;

    osp$fetch_locked_string (queue_assignment_string (entry_word_starting_char, 8), actual_string);

    queue_entry_assigned := actual_string (word_index) = dfc$assigned_entry_char;

  PROCEND dfp$check_queue_entry_assigned;

?? PUSH (LISTEXT := ON) ??
*copyc dft$cpu_queue
*copyc dft$entry_type
*copyc osp$fetch_locked_string
?? POP ??
