-- file Bases.Mesa
-- last modified by Satterthwaite, July 30, 1980  10:32 AM
-- Copyright  Xerox Corporation 1980

Bases: DEFINITIONS =
  BEGIN

  Base: TYPE = ORDERED BASE POINTER;
  Finger: TYPE = POINTER TO Base;
  Limit: CARDINAL = 40000B;
  Index: TYPE = Base RELATIVE POINTER [0..Limit);
  OrderedIndex: TYPE = Base RELATIVE ORDERED POINTER [0..Limit);

  IPointer: TYPE = POINTER;

  BaseDescriptor: TYPE = DESCRIPTOR FOR ARRAY OF Base;
  SizeDescriptor: TYPE = DESCRIPTOR FOR ARRAY OF CARDINAL;

  END.