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.. ô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 Program List Statement Label Op Rand Ę…˜šœ™Jšœ<™