
  PROCEDURE [INLINE] dmp$search_avt_by_lun
    (    logical_unit_number: iot$logical_unit;
     VAR avt_index: dmt$active_volume_table_index;
     VAR found: boolean);

?? PUSH (LISTEXT := ON) ??

    VAR
      avt_entry_p: ^dmt$active_volume_table_entry,
      search_index: dmt$active_volume_table_index;

    avt_index := 0;
    found := FALSE;

    FOR search_index := LOWERBOUND (dmv$active_volume_table.table_p^)
          TO UPPERBOUND (dmv$active_volume_table.table_p^) DO
      avt_entry_p := ^dmv$active_volume_table.table_p^ [search_index];
      IF (NOT avt_entry_p^.entry_available)
{   } AND (avt_entry_p^.logical_unit_number = logical_unit_number) THEN
        found := TRUE;
        avt_index := search_index;
        RETURN; {----->
      IFEND;
    FOREND;

  PROCEND dmp$search_avt_by_lun;

*copyc dmt$active_volume_table_index
*copyc dmv$active_volume_table
?? POP ??
