-- Lister.Model, 20-Sep-82 15:21:58 PDT OPEN @BasicPilot.Model!2565894086; Ascii: TYPE == @Ascii.bcd; Frame: TYPE == @Frame.bcd; KernelFile: TYPE == @KernelFile.bcd; LongStorage: TYPE == @LongStorage.bcd; Mopcodes: TYPE == @Mopcodes.bcd; ProcessorFace: TYPE == @ProcessorFace.bcd; Segments: TYPE == @Segments.bcd; Storage: TYPE == @Storage.bcd; Streams: TYPE == @Streams.bcd; System: TYPE == @System.bcd; Lister: PROC [ExecImpl: Exec, FileImpl: File, FileStreamImpl: FileStream, FrameImpl: Frame, HeapImpl: Heap, InlineImpl: Inline, KernelFileImpl: KernelFile, LongStorageImpl: LongStorage, LongStringImpl: LongString, RuntimeImpl: Runtime, SegmentsImpl: Segments, SpaceImpl: Space, StorageImpl: Storage, StreamImpl: Stream, StreamsImpl: Streams, StringImpl: String, StringsImpl: Strings, TimeImpl: Time, TransactionImpl: Transaction, TTYImpl: TTY, UserTerminalImpl: UserTerminal, DirectoryImpl: Directory, ProcessorFaceImpl: ProcessorFace] RETURNS [] [ Alloc: TYPE == @Alloc.mesa!2548347750; CBinary: TYPE == @CBinary.mesa!2465269358; CharIO: TYPE == @CharIO.mesa!2557696230[Format, Stream, Strings]; FileSegment: TYPE == @FileSegment.mesa!2550689766[File]; FileParms: TYPE == @FileParms.mesa!2563230620[FileSegment, Strings, TimeStamp]; CompilerOps: TYPE == @CompilerOps.mesa!2551033901[File, FileParms, Stream, Strings, TimeStamp]; Table: TYPE == @Table.mesa!2577115106; Symbols: TYPE == @Symbols.mesa!2565302638[PrincOps, Table, TimeStamp]; Literals: TYPE == @Literals.mesa!2550173704[Symbols, Table]; Tree: TYPE == @Tree.mesa!2558456374[Table, Literals, Symbols]; CompilerUtil: TYPE == @CompilerUtil.mesa!2560979721[Alloc, CompilerOps, FileStream, Stream, Strings, Tree]; BcdDefs: TYPE == @BcdDefs.mesa!2565550795[PrincOps, Table, TimeStamp]; RCMap: TYPE == @RCMap.mesa!2542132963; RTBcd: TYPE == @RTBcd.mesa!2562263325[BcdDefs, RCMap, Symbols]; SymbolTable: TYPE == @SymbolTable.mesa!2568557625[FileSegment, SymbolPack]; OSMiscOps: TYPE == @OSMiscOps.mesa!2570646172[Environment, File, Strings, TimeStamp]; OSMiscOpsImpl: OSMiscOps == @OSMiscOpsImpl.mesa!2576702530[DCSFileTypes, Directory, File, Inline, KernelFile, OSMiscOps, ProcessorFace, Runtime, Space, Time, TimeStamp, "-b-cj-ns", DirectoryImpl, InlineImpl, KernelFileImpl, ProcessorFaceImpl, RuntimeImpl, SpaceImpl, TimeImpl]; ListerDefs: TYPE == @ListerDefs.mesa!2554747517[Alloc, BcdDefs, FileSegment, RTBcd, Space, Symbols, SymbolTable, Table]; OutputDefs: TYPE == @OutputDefs.mesa!2575575394[Format, LongString, Streams, String, Time]; TreeOps: TYPE == @TreeOps.mesa!2566506225[Alloc, Literals, Symbols, Tree]; CBinaryImpl: CBinary == @DebugTab.bcd; OutputDefsImpl: OutputDefs == @Output.mesa!2575574907[Ascii, Format, LongString, OutputDefs, Segments, Streams, String, Time, "-b-cj-ns", SegmentsImpl, StreamsImpl, StringImpl, TimeImpl]; LET [ListerRoutines: CONTROL, ListerDefsImpl1: ListerDefs] == @ListerRoutines.mesa!2578854938[ Alloc, BcdDefs, BcdOps, CommanderOps, Environment, Exec, File, FileSegment, Format, Heap, ListerDefs, OSMiscOps, OutputDefs, Space, Strings, Symbols, SymbolSegment, SymbolTable, Time, TTY, "-b-cj-ns", CommanderOpsImpl, ExecImpl, HeapImpl, OSMiscOpsImpl, OutputDefsImpl, SpaceImpl, StringsImpl, TimeImpl, TTYImpl]; LET [CompilerUtilImpl1: CompilerUtil, CharIOImpl: CharIO, AllocImpl: Alloc, TreeOpsImpl: TreeOps] == @FakeCompiler.mesa!2566939838[Alloc, CBinary, CharIO, CompilerUtil, ListerDefs, OutputDefs, Runtime, Stream, Strings, Tree, TreeOps, "-b-cj-ns", CBinaryImpl, ListerDefsImpl, OutputDefsImpl, RuntimeImpl]; BcdOps: TYPE == @BcdOps.mesa!2563405009[BcdDefs]; SymbolSegment: TYPE == @SymbolSegment.mesa!2548600256[Literals, Symbols, Table, TimeStamp, Tree]; LET [ComData: FRAMEPTRTYPE, ComDataImpl: ComData] == @ComData.mesa!2551117122[ Alloc, BcdDefs, BcdOps, FileParms, OSMiscOps, Symbols, SymbolSegment, SymbolTable, Strings, Tree, "-b-cj-ns"]; DebugTable: TYPE == @DebugTable.mesa!2550173137[Symbols, Tree]; LiteralOps: TYPE == @LiteralOps.mesa!2559577737[Alloc, Literals, Strings, Symbols]; SymbolOps: TYPE == @SymbolOps.mesa!2559578970[Alloc, Strings, Symbols, TimeStamp, Tree]; LiteralOpsImpl: LiteralOps == @LiteralPack.mesa!2559577707[Alloc, Literals, LiteralOps, Strings, Symbols, "-b-cj-ns", AllocImpl, StringsImpl]; LET [SymbolPack: FRAMEPTRTYPE, SymbolPackImpl: SymbolPack, SymbolOpsImpl: SymbolOps] == @SymbolPack.mesa!2559578211[ Inline, Literals, Strings, Symbols, SymbolOps, SymbolSegment, TimeStamp, Tree, "-b-cj-ns", InlineImpl, StringsImpl]; CompilerUtilImpl2: CompilerUtil == @Debug.mesa!2571086886[Alloc, BcdDefs, CharIO, CompilerUtil, DebugTable, Literals, LiteralOps, Strings, Stream, Symbols, SymbolOps, Tree, TreeOps, "-b-cj-ns", AllocImpl, CharIOImpl, CompilerUtilImpl, LiteralOpsImpl, SymbolOpsImpl, TreeOpsImpl]; SymbolTableImpl: SymbolTable == @SymbolCache.mesa!2568562284[ Environment, File, FileSegment, Heap, Space, Symbols, SymbolPack, SymbolSegment, SymbolTable, "-b-cj-ns", SymbolPackImpl, FileImpl, HeapImpl, SpaceImpl]; CommanderOps: TYPE == @CommanderOps.mesa!2578854755; CommanderOpsImpl: CommanderOps == @CommanderImpl.mesa!2578854817[ Ascii, CommanderOps, Exec, Frame, Inline, PrincOps, Runtime, Storage, String, Time, TTY, UserTerminal, "-b-cj-ns", ExecImpl, FrameImpl, InlineImpl, RuntimeImpl, StorageImpl, StringImpl, TimeImpl, TTYImpl, UserTerminalImpl]; GSort: TYPE == @GSort.mesa!2575575044; GSortImpl: GSort == @GSortImpl.mesa!2531688961[Heap, GSort, Inline, Segments, Streams, "-b-cj-ns", HeapImpl, InlineImpl, SegmentsImpl, StreamsImpl]; TypeStrings: TYPE == @TypeStrings.mesa!2556570241[Symbols, SymbolTable]; ListBcd: CONTROL == @ListBcd.mesa!2578854985[BcdDefs, BcdOps, CommanderOps, Environment, FileSegment, ListerDefs, OSMiscOps, OutputDefs, RTBcd, Space, Strings, Time, "-b-cj-ns", CommanderOpsImpl, ListerDefsImpl, OSMiscOpsImpl, OutputDefsImpl, SpaceImpl, StringsImpl, TimeImpl]; ListerDefsImpl2: ListerDefs == @ListRTBcd.mesa!2566844592[BcdDefs, Environment, Inline, ListerDefs, OutputDefs, RCMap, RTBcd, TypeStrings, "-b-cj-ns", InlineImpl, ListerDefsImpl, OutputDefsImpl]; OpTableDefs: TYPE == @OpTableDefs.mesa!2533681377[Environment]; LET [MopcodeNames: FRAMEPTRTYPE, MopcodeNamesImpl: MopcodeNames] == @MopcodeNames.bcd; ListCode: CONTROL == @ListCode.mesa!2578855024[BcdDefs, BcdOps, CommanderOps, Environment, FileSegment, FileStream, Format, Heap, Inline, ListerDefs, Mopcodes, OpTableDefs, OSMiscOps, OutputDefs, PrincOps, Space, Stream, Strings, Symbols, SymbolSegment, SymbolTable, "-b-cj-ns", CommanderOpsImpl, FileStreamImpl, HeapImpl, InlineImpl, ListerDefsImpl, OpTableDefsImpl, OSMiscOpsImpl, OutputDefsImpl, SpaceImpl, StreamImpl, StringsImpl, SymbolTableImpl]; ListFGT: CONTROL == @ListFGT.mesa!2578855094[Ascii, BcdDefs, BcdOps, CommanderOps, FileSegment, Format, Heap, ListerDefs, OutputDefs, PrincOps, Space, Strings, Symbols, SymbolTable, "-b-cj-ns", CommanderOpsImpl, HeapImpl, ListerDefsImpl, OutputDefsImpl, SpaceImpl, StringsImpl, SymbolTableImpl]; ListImpl: CONTROL == @ListImpl.mesa!2578855168[Ascii, BcdDefs, BcdOps, CommanderOps, FileStream, FileSegment, GSort, ListerDefs, LongString, OSMiscOps, OutputDefs, Space, Stream, Symbols, SymbolTable, "-b-cj-ns", CommanderOpsImpl, FileStreamImpl, GSortImpl, ListerDefsImpl, LongStringImpl, OSMiscOpsImpl, OutputDefsImpl, SpaceImpl, StreamImpl, SymbolTableImpl]; ListInterface: CONTROL == @ListInterface.mesa!2578855198[Ascii, CommanderOps, FileSegment, ListerDefs, OutputDefs, Strings, Symbols, SymbolTable, "-b-cj-ns", CommanderOpsImpl, ListerDefsImpl, OutputDefsImpl, StringsImpl, SymbolTableImpl]; PackageSymbols: TYPE == @PackageSymbols.mesa!2513695236[PrincOps, Symbols, SymbolSegment, Table]; ListPackageInfo: CONTROL == @ListPackageInfo.mesa!2578855228[ Ascii, BcdDefs, BcdOps, CommanderOps, FileSegment, ListerDefs, LongStorage, OutputDefs, PackageSymbols, PrincOps, Space, Strings, Symbols, SymbolTable, "-b-cj-ns", CommanderOpsImpl, ListerDefsImpl, LongStorageImpl, OutputDefsImpl, SpaceImpl, StringsImpl, SymbolTableImpl]; ListSymbols: CONTROL == @ListSymbols.mesa!2578855261[BcdDefs, CommanderOps, CompilerUtil, Environment, FileSegment, Heap, ListerDefs, LiteralOps, OSMiscOps, OutputDefs, Strings, SymbolTable, TreeOps, "-b-cj-ns", CommanderOpsImpl, CompilerUtilImpl, ListerDefsImpl, HeapImpl, LiteralOpsImpl, OSMiscOpsImpl, OutputDefsImpl, StringsImpl, SymbolTableImpl, TreeOpsImpl]; ListUsing: CONTROL == @ListUsing.mesa!2578855312[Ascii, CommanderOps, File, FileSegment, FileStream, Heap, ListerDefs, LongString, OSMiscOps, OutputDefs, Stream, Symbols, SymbolTable, "-b-cj-ns", CommanderOpsImpl, FileStreamImpl, HeapImpl, ListerDefsImpl, LongStringImpl, OutputDefsImpl, OSMiscOpsImpl, StreamImpl, SymbolTableImpl]; ListUnbound: CONTROL == @ListUnbound.mesa!2578855353[BcdDefs, BcdOps, CommanderOps, FileSegment, ListerDefs, OSMiscOps, OutputDefs, Space, Strings, Symbols, SymbolTable, "-b-cj-ns", CommanderOpsImpl, ListerDefsImpl, StringsImpl, OSMiscOpsImpl, OutputDefsImpl, SpaceImpl, SymbolTableImpl]; ListXref: CONTROL == @ListXref.mesa!2578855392[Ascii, BcdDefs, BcdOps, CommanderOps, FileSegment, FileStream, Format, GSort, Heap, ListerDefs, LongString, Mopcodes, OpTableDefs, OSMiscOps, OutputDefs, PrincOps, Space, Stream, Symbols, SymbolTable, "-b-cj-ns", CommanderOpsImpl, FileStreamImpl, GSortImpl, HeapImpl, ListerDefsImpl, LongStringImpl, OpTableDefsImpl, OSMiscOpsImpl, OutputDefsImpl, SpaceImpl, StreamImpl, SymbolTableImpl]; OpTableDefsImpl1: OpTableDefs == @OpNames.mesa!2539382116[Environment, MopcodeNames, OpTableDefs, Runtime, Strings, "-b-cj-ns", MopcodeNamesImpl, RuntimeImpl, StringsImpl]; OpTableDefsImpl2: OpTableDefs == @OpTable.mesa!2548283498[OpTableDefs, "-b-cj-ns"]; ListerDefsImpl: ListerDefs == (ListerDefsImpl1) PLUS (ListerDefsImpl2); CompilerUtilImpl: CompilerUtil == (CompilerUtilImpl1) PLUS (CompilerUtilImpl2); OpTableDefsImpl: OpTableDefs == (OpTableDefsImpl1) PLUS (OpTableDefsImpl2) ]