
<<RiscAssemblerAGDef.mesa>>
<<Copyright Ó 1987 by Xerox Corporation.  All rights reserved.>>
<<Generated by hederman.pa at July 15, 1987 4:53:07 pm PDT>>
<<using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT>>

DIRECTORY
RiscAssemblerATDef,
RiscAssemblerTreeDef,
RiscAssemblerTokenDef;

RiscAssemblerAGDef: CEDAR DEFINITIONS = 
BEGIN
OPEN RiscAssemblerATDef, RiscAssemblerTreeDef, RiscAssemblerTokenDef;

<<ProgramlistProd>>

ProgramlistProdData:    TYPE = REF ProgramlistProdDataBody;
ProgramlistProdDataBody:    TYPE = RECORD[
List: ListNode];

ProgramlistProdProcs:    ProgramNodeProcs;

BuildProgramlistProdNode:    PROC[position: INT, length: INT, List: ListNode]
RETURNS[ProgramNode];

ProgramlistProdAssemble:    AssembleProcType;

<<ListstatementProd>>

ListstatementProdData:    TYPE = REF ListstatementProdDataBody;
ListstatementProdDataBody:    TYPE = RECORD[
Statement: StatementNode];

ListstatementProdProcs:    ListNodeProcs;

BuildListstatementProdNode:    PROC[position: INT, length: INT, Statement: StatementNode]
RETURNS[ListNode];

ListstatementProdSymbolTable:    SymbolTableProcType;
ListstatementProdCodeSequence:    CodeSequenceProcType;

<<ListdangleProd>>

ListdangleProdData:    TYPE = REF ListdangleProdDataBody;
ListdangleProdDataBody:    TYPE = RECORD[
Statement: StatementNode];

ListdangleProdProcs:    ListNodeProcs;

BuildListdangleProdNode:    PROC[position: INT, length: INT, Statement: StatementNode]
RETURNS[ListNode];

ListdangleProdSymbolTable:    SymbolTableProcType;
ListdangleProdCodeSequence:    CodeSequenceProcType;

<<ListconsProd>>

ListconsProdData:    TYPE = REF ListconsProdDataBody;
ListconsProdDataBody:    TYPE = RECORD[
Statement: StatementNode, List: ListNode];

ListconsProdProcs:    ListNodeProcs;

BuildListconsProdNode:    PROC[position: INT, length: INT, Statement: StatementNode, List: ListNode]
RETURNS[ListNode];

ListconsProdSymbolTable:    SymbolTableProcType;
ListconsProdCodeSequence:    CodeSequenceProcType;

<<StatementlabelProd>>

StatementlabelProdData:    TYPE = REF StatementlabelProdDataBody;
StatementlabelProdDataBody:    TYPE = RECORD[
Label: LabelNode, Statement: StatementNode];

StatementlabelProdProcs:    StatementNodeProcs;

BuildStatementlabelProdNode:    PROC[position: INT, length: INT, Label: LabelNode, Statement: StatementNode]
RETURNS[StatementNode];

StatementlabelProdSymbolTable:    SymbolTableProcType;
StatementlabelProdCodeSequence:    CodeSequenceProcType;

<<StatementopProd>>

StatementopProdData:    TYPE = REF StatementopProdDataBody;
StatementopProdDataBody:    TYPE = RECORD[
Op: OpNode];

StatementopProdProcs:    StatementNodeProcs;

BuildStatementopProdNode:    PROC[position: INT, length: INT, Op: OpNode]
RETURNS[StatementNode];

StatementopProdSymbolTable:    SymbolTableProcType;
StatementopProdCodeSequence:    CodeSequenceProcType;

<<StatementoprandProd>>

StatementoprandProdData:    TYPE = REF StatementoprandProdDataBody;
StatementoprandProdDataBody:    TYPE = RECORD[
Op: OpNode, Rand: RandNode];

StatementoprandProdProcs:    StatementNodeProcs;

BuildStatementoprandProdNode:    PROC[position: INT, length: INT, Op: OpNode, Rand: RandNode]
RETURNS[StatementNode];

StatementoprandProdSymbolTable:    SymbolTableProcType;
StatementoprandProdCodeSequence:    CodeSequenceProcType;

<<LabelidProd>>

LabelidProdData:    TYPE = REF LabelidProdDataBody;
LabelidProdDataBody:    TYPE = RECORD[
id: idNode];

LabelidProdProcs:    LabelNodeProcs;

BuildLabelidProdNode:    PROC[position: INT, length: INT, id: idNode]
RETURNS[LabelNode];

LabelidProdNotePosition:    NotePositionProcType;

<<OpnoopProd>>

OpnoopProdData:    TYPE = REF OpnoopProdDataBody;
OpnoopProdDataBody:    TYPE = RECORD[
];

OpnoopProdProcs:    OpNodeProcs;

BuildOpnoopProdNode:    PROC[position: INT, length: INT]
RETURNS[OpNode];

OpnoopProdInstruction:    InstructionProcType;
OpnoopProdInstructionRand:    InstructionRandProcType;

<<OpgotoProd>>

OpgotoProdData:    TYPE = REF OpgotoProdDataBody;
OpgotoProdDataBody:    TYPE = RECORD[
];

OpgotoProdProcs:    OpNodeProcs;

BuildOpgotoProdNode:    PROC[position: INT, length: INT]
RETURNS[OpNode];

OpgotoProdInstruction:    InstructionProcType;
OpgotoProdInstructionRand:    InstructionRandProcType;

<<RandidProd>>

RandidProdData:    TYPE = REF RandidProdDataBody;
RandidProdDataBody:    TYPE = RECORD[
id: idNode];

RandidProdProcs:    RandNodeProcs;

BuildRandidProdNode:    PROC[position: INT, length: INT, id: idNode]
RETURNS[RandNode];

RandidProdIndex:    IndexProcType;
END..