<> <> <> <> DIRECTORY RiscAssemblerTreeDef; RiscAssemblerATDef: CEDAR DEFINITIONS = BEGIN OPEN RiscAssemblerTreeDef; <> 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]; <> 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]; <> 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]; <> 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]; <> 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]; <> RandNode: TYPE = REF RandNodeBody; RandNodeBody: TYPE = RECORD[ position: INT, length: INT, procs: RandNodeProcs, data: REF ANY]; RandNodeProcs: TYPE = REF RandNodeProcsBody; RandNodeProcsBody: TYPE = RECORD[ Index: IndexProcType]; END..