
    <<P5S.mesa >>
        <<Copyright © 1985 by Xerox Corporation.  All rights reserved.>>
        <<Sweet, May 28, 1986 11:30:00 am PDT>>
        <<Satterthwaite, 31-Dec-81 10:40:31>>
        <<Russ Atkinson (RRA) March 6, 1985 11:06:54 pm PST>>

    DIRECTORY
        IntCodeDefs USING [Node],
        Tree USING [Index];

    P5S: DEFINITIONS = BEGIN OPEN IntCodeDefs;

        <<from Address>>
            DIndex: PROC [node: Tree.Index] RETURNS [Node];
            Index: PROC [node: Tree.Index] RETURNS [Node];
            SeqIndex: PUBLIC PROC [node: Tree.Index] RETURNS [Node];

        <<from Calls>>
            Bind: PROC [node: Tree.Index] RETURNS [Node];
            Call: PROC [node: Tree.Index] RETURNS [Node];
            CallExp: PUBLIC PROC [node: Tree.Index] RETURNS [Node];
            Create: PROC [node: Tree.Index] RETURNS[Node];
            ErrExp: PROC [node: Tree.Index] RETURNS [Node];
            ForkExp: PROC [node: Tree.Index] RETURNS [Node];
            Free: PROC [node: Tree.Index] RETURNS [Node];
            InlineCall: PROC [node: Tree.Index] RETURNS [Node];
            InlineCallExp: PROC [node: Tree.Index] RETURNS [Node];
            JoinExp: PROC [node: Tree.Index] RETURNS [Node];
            Join: PROC [node: Tree.Index] RETURNS [Node];
            ProcCheck: PROC [node: Tree.Index] RETURNS [Node];
            Restart: PROC [node: Tree.Index] RETURNS [Node];
            RetWithError: PROC [node: Tree.Index] RETURNS [Node];
            SigErr: PROC [node: Tree.Index] RETURNS [Node];
            SigExp: PROC [node: Tree.Index] RETURNS [Node];
            Start: PROC [node: Tree.Index] RETURNS [Node];
            StartExp: PROC [node: Tree.Index] RETURNS [Node];
            Stop: PROC [node: Tree.Index] RETURNS [Node];
            SysErrExp: PROC [node: Tree.Index] RETURNS [Node];
            Unlock: PROC [node: Tree.Index] RETURNS [Node];
            Wait: PROC [node: Tree.Index] RETURNS [Node];

        <<from Driver>>
            Lock: PROC [node: Tree.Index] RETURNS [Node];
            Result: PROC [node: Tree.Index] RETURNS [Node];
            Resume: PROC [node: Tree.Index] RETURNS [Node];
            Return: PROC [node: Tree.Index] RETURNS [Node];
            StringInit: PROC [node: Tree.Index] RETURNS [Node];
            Subst: PROC [node: Tree.Index] RETURNS [Node];
            SubstExp: PROC [node: Tree.Index] RETURNS [Node];

        <<from Flow>>
            CatchMark: PROC [node: Tree.Index] RETURNS [Node];
            Continue: PROC RETURNS [Node];
            Exit: PROC RETURNS [Node];
            GoTo: PROC [node: Tree.Index] RETURNS [Node];
            LabelStmt: PROC [node: Tree.Index] RETURNS [Node];
            Loop: PROC RETURNS [Node];
            Retry: PROC RETURNS [Node];

        <<from Store>>
            Assign: PROC [node: Tree.Index] RETURNS [Node];
            AssignExp: PROC [node: Tree.Index] RETURNS [Node];
            BodyInit: PROC [node: Tree.Index] RETURNS [Node];
            Extract: PROC [node: Tree.Index] RETURNS [Node];
            ExtractExp: PROC [node: Tree.Index] RETURNS [Node];
            ProcInit: PROC [node: Tree.Index] RETURNS [Node];

            END.