generic
   Gen_Obj : in out Integer;
package Addr13 is
   procedure Overlay;
end Addr13;