-- PrincOpsRuntime.Mesa  Edited by Sandman on June 30, 1980  3:00 PM

DIRECTORY
  PrincOps USING [GFTIndex, GlobalFrameHandle];

PrincOpsRuntime: DEFINITIONS =
  BEGIN
  
  -- Global Frame Table definitions
  
  GFTHandle: TYPE = POINTER TO ARRAY [0..0) OF GFTItem;
  GFT: GFTHandle = LOOPHOLE[1400B];
  
  GFTItem: TYPE = MACHINE DEPENDENT RECORD [
    SELECT OVERLAID * FROM
    frame => [frame: PrincOps.GlobalFrameHandle],
      ep => [data: [0..37777B], epbias: [0..3]],
      ENDCASE];
  
  EmptyGFTItem: GFTItem = [ep[data: 0, epbias: 0]];
  FreedGFTItem: GFTItem = [ep[data: 0, epbias: 3]];
  
  MaxGFTSize: CARDINAL = (LAST[PrincOps.GFTIndex] + 1)*SIZE[GFTItem];
  
  END.