RiscAssemblerATDef.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Generated by hederman.pa at July 15, 1987 4:53:10 pm PDT
using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT
DIRECTORY
RiscAssemblerTreeDef;
RiscAssemblerATDef: CEDAR DEFINITIONS =
BEGIN
OPEN RiscAssemblerTreeDef;
Program
ProgramNode: TYPE = REF ProgramNodeBody;
ProgramNodeBody:
TYPE =
RECORD[
position: INT, length: INT,
procs: ProgramNodeProcs,
data: REF ANY];
ProgramNodeProcs: TYPE = REF ProgramNodeProcsBody;
ProgramNodeProcsBody: TYPE = RECORD[
Assemble: AssembleProcType];
List
ListNode: TYPE = REF ListNodeBody;
ListNodeBody:
TYPE =
RECORD[
position: INT, length: INT,
procs: ListNodeProcs,
data: REF ANY];
ListNodeProcs: TYPE = REF ListNodeProcsBody;
ListNodeProcsBody: TYPE = RECORD[
SymbolTable: SymbolTableProcType,
CodeSequence: CodeSequenceProcType];
Statement
StatementNode: TYPE = REF StatementNodeBody;
StatementNodeBody:
TYPE =
RECORD[
position: INT, length: INT,
procs: StatementNodeProcs,
data: REF ANY];
StatementNodeProcs: TYPE = REF StatementNodeProcsBody;
StatementNodeProcsBody: TYPE = RECORD[
SymbolTable: SymbolTableProcType,
CodeSequence: CodeSequenceProcType];
Label
LabelNode: TYPE = REF LabelNodeBody;
LabelNodeBody:
TYPE =
RECORD[
position: INT, length: INT,
procs: LabelNodeProcs,
data: REF ANY];
LabelNodeProcs: TYPE = REF LabelNodeProcsBody;
LabelNodeProcsBody: TYPE = RECORD[
NotePosition: NotePositionProcType];
Op
OpNode: TYPE = REF OpNodeBody;
OpNodeBody:
TYPE =
RECORD[
position: INT, length: INT,
procs: OpNodeProcs,
data: REF ANY];
OpNodeProcs: TYPE = REF OpNodeProcsBody;
OpNodeProcsBody: TYPE = RECORD[
Instruction: InstructionProcType,
InstructionRand: InstructionRandProcType];
Rand
RandNode: TYPE = REF RandNodeBody;
RandNodeBody:
TYPE =
RECORD[
position: INT, length: INT,
procs: RandNodeProcs,
data: REF ANY];
RandNodeProcs: TYPE = REF RandNodeProcsBody;
RandNodeProcsBody: TYPE = RECORD[
END..