
  FUNCTION [INLINE] dmf$level_2_ptr
    (    p_offset: ^amt$file_byte_address): ^dmt$level_2_table;

?? PUSH (LISTEXT := ON) ??

    IF p_offset^ <> 0 THEN
      dmf$level_2_ptr := #ADDRESS (1, #SEGMENT (p_offset), p_offset^);
    ELSE
      dmf$level_2_ptr := NIL;
    IFEND;

  FUNCEND dmf$level_2_ptr;

*copyc amt$file_byte_address
*copyc dmt$sparse_allocation
?? POP ??
