-- 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)
]