
  PROCEDURE [INLINE] pfp$build_amd_locator
    (    p_physical_amd: pft$p_physical_amd;
         p_catalog_file: pft$p_catalog_file;
     VAR amd_locator: pft$amd_locator);

?? PUSH (LISTEXT := ON) ??

    VAR
      p_cell: ^cell;

    IF p_physical_amd = NIL THEN
      amd_locator.amd_size := 0;
    ELSE
      amd_locator.amd_size := #SIZE (p_physical_amd^.amd);
      p_cell := #LOC (p_physical_amd^);
      amd_locator.relative_cell_pointer := #REL (p_cell, p_catalog_file^);
    IFEND;

  PROCEND pfp$build_amd_locator;

*copyc pft$amd_locator
*copyc pft$p_catalog_file
*copyc pft$p_physical_amd
?? POP ??
