-- file RTSD.mesa
  -- last modified by Willie-Sue on January 29, 1981  5:25 PM 
  -- last modified by Satterthwaite on 13-Jan-82 15:05:49 
  -- last modified by Paul Rovner on February 17, 1983 3:33 pm 

-- NOTE the compiler and the microcode depend on this, so BEWARE of changing it

DIRECTORY
  SDDefs: TYPE USING [SD];

RTSD: DEFINITIONS = {

 -- the "system data vector"
  SD: POINTER TO ARRAY [0..0) OF UNSPECIFIED = SDDefs.SD;


-- locations 150b thru 207b in SD are for Cedar entries (listed herein)  

  sFirstCedarFree: CARDINAL = 204b;  -- 205b, 206b and 207b are used (see below)

        -- AssignRefTrap: PROC, for AssignRef: PROC[refNew: REF ANY, ptrRef: Pointer];
  sAssignRefTrap: CARDINAL = 151b;

        -- AssignRefNewTrap: PROC, for AssignRefNew: PROC[refNew: REF ANY, ptrRef: Pointer];
  sAssignRefNewTrap: CARDINAL = 152b;

        -- CedarFork: PROC; write around of Pilot's FORK, to register the process
  sFork: CARDINAL = 153b;

        -- ProcCheck: PROC[proc: PROC ANY RETURNS ANY]
    --      RETURNS[PROC ANY RETURNS ANY];
    --check for assignment of nested procs out of scope
  sProcCheck: CARDINAL = 154b;

        -- CheckForNarrowRefFault: PROC[ref: REF ANY] RETURNS[REF ANY];
  sCheckForNarrowRefFault: CARDINAL = 155b;

        -- GetCanonicalReferentTypeD0Trap: PROC (implicit) [ref: REF ANY] RETURNS[Type];
  sGetCanonicalReferentTypeD0Trap: CARDINAL = 156b;

        -- RaiseNarrowFault: PROC;
  sRaiseNarrowFault: CARDINAL = 157b;

        -- RTState: LONG POINTER TO RTRefCounts.AGCState;
  sRTState: CARDINAL = 161b;  -- also 162b

        -- AssignComposite: PROC[rhs, lhs: Pointer, type: Type, nwords: CARDINAL];
  sAssignComposite: CARDINAL = 174b;

        -- AssignCompositeNew:
        --           PROC[rhs, lhs: Pointer, type: Type, nwords: CARDINAL];
  sAssignCompositeNew: CARDINAL = 176b;

        -- GetCanonicalProcType: PROC[proc: PROC ANY RETURNS ANY] RETURNS[Type];
  sGetCanonicalProcType: CARDINAL = 163b;

        -- GetCanonicalSignalType: PROC[sig: SIGNAL ANY RETURNS ANY] RETURNS[Type];
  sGetCanonicalSignalType: CARDINAL = 164b;

        -- GetCanonicalReferentType: PROC[ref: REF ANY] RETURNS[Type];
  sGetCanonicalReferentType: CARDINAL = 165b;

        -- The SystemZone. Collectible, prefixed, in RootBase
  sSystemZone: CARDINAL = 166b;  -- also 167b

        -- CREATEOutOfOverflowTable: PROC[ref: REF ANY, npr: CARDINAL];
  sCREATEOutOfOverflowTable: CARDINAL = 170b;

        -- ClobberedOverflowTable: PROC;
  sClobberedOverflowTable: CARDINAL = 171b;

        -- GetCanonicalReferentTypeTrap: PROC (implicit [ref: REF ANY] RETURNS[Type]);
  sGetCanonicalReferentTypeTrap: CARDINAL = 172b;

        -- FreeCollectibleObject: PROC[refObj: REF ANY]; 
  sFreeCollectibleObject: CARDINAL = 173b;

        -- ASSIGNOutOfOverflowTable: PROC[ref: REF ANY, ptrRef: LONG POINTER TO REF, who: CARDINAL]; 
  sASSIGNOutOfOverflowTable: CARDINAL = 175b;

        -- ALTERCOUNTOutOfOverflowTable: PROC; 
  sALTERCOUNTOutOfOverflowTable: CARDINAL = 177b;

        -- AllocateQuantizedNodeTrap: (implicit)
  -- PROC[zn:PRealZone, size: CARDINAL, type: Type] RETURNS[Pointer];  
  sAllocateQuantizedNodeTrap: CARDINAL = 200b;

        -- AllocateHeapNodeTrap: (implicit)
  -- PROC[zn:PRealZone, size: CARDINAL, type: Type] RETURNS[Pointer];  
  sAllocateHeapNodeTrap: CARDINAL = 201b;

  -- RTTypesBasicPrivate.MapStiStd  
  sMapStiStd: CARDINAL = 202b;  -- also 203b

  -- for AMProcessBasicImpl  
  sFreezer: CARDINAL = 205b;

  -- for AMProcessBasicImpl  
  sFreezees: CARDINAL = 206b;  -- also 207b

}.