  PROCEDURE [INLINE] dmp$get_level_1_ptr
    (    p_dfd: ^dmt$disk_file_descriptor;
     VAR ptr_level_1: ^dmt$level_1_table);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

    IF p_dfd^.file_allocation_table <> NIL THEN
      ptr_level_1 := #ADDRESS (1, #SEGMENT (p_dfd), #OFFSET (p_dfd^.file_allocation_table));
    ELSE
      ptr_level_1 := NIL;
    IFEND;

  PROCEND dmp$get_level_1_ptr;

*copyc dmt$disk_file_descriptor
*copyc dmt$sparse_allocation
?? POP ??
