-- RTBasic.Mesa
-- last edited May 25, 1982 2:30 pm by Paul Rovner

RTBasic: DEFINITIONS
= BEGIN

  Type: TYPE = RECORD[TypeIndex];
    nullType: Type = [0];
 
  TypeIndex: TYPE = [0..LAST[CARDINAL]/4];  -- 14 bits

  TypedVariable: TYPE = REF ANY;
  
  TV: TYPE = TypedVariable;
  
  Index: TYPE = NAT;

  Base: TYPE = RECORD[REF ANY];
    nullBase: Base = [NIL];

  Pointer: TYPE = LONG POINTER;  -- beware: referent is assumed one word!!

  Address: TYPE = LONG CARDINAL;
          -- numeric representation of a pointer. Should be a subrange of LONG CARDINAL.

END.