Removed obsolete object files

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8057 8c9fc860-2736-0410-a75d-ab315db34111

Linux32/bin/BootShell.SymU

@@ -1,121 +0,0 @@
-MODULE BootShell;
-	IMPORT SYSTEM, KernelLog, Machine, Modules, Streams, Commands, Inputs, Strings, Locks;
-CONST 
-	Version = \"A2 Bootshell v1.0"\; 
-	LineWidth = 80; 
-	TraceHeight = 25; 
-	TraceBase = 753664; 
-	BufferHeight = 2048; 
-	BufferSize = (BufferHeight * LineWidth); 
-	TAB = 9X; 
-	CR = 0DX; 
-	LF = 0AX; 
-	SPACE = \" "\; 
-	Mode_Insert = 0; 
-	Mode_Overwrite = 1; 
-	Black = 0; 
-	Blue = 1; 
-	Green = 2; 
-	Cyan = 3; 
-	Red = 4; 
-	Magenta = 5; 
-	Brown = 6; 
-	White = 7; 
-	Gray = 8; 
-	LightBlue = 9; 
-	LightGreen = 10; 
-	LightCyan = 11; 
-	LightRed = 12; 
-	LightMagenta = 13; 
-	Yellow = 14; 
-	BrightWhite = 15; 
-TYPE 
-	CommandsString = POINTER TO RECORD 
-		prev, next: CommandsString; 
-		string: Strings.String; 
-	END; 
-
-	CommandHistoryObject = OBJECT 
-	VAR 
-		first, current: CommandsString; 
-
-		PROCEDURE ^ GetNextCommand(): Strings.String; 
-		PROCEDURE ^ GetPreviousCommand(): Strings.String; 
-		PROCEDURE ^ AddCommand(string: Strings.String); 
-		PROCEDURE ^  & Init*; 
-	END CommandHistoryObject; 
-
-	Character = RECORD 
-		ch: CHAR; 
-		color: SHORTINT; 
-	END; 
-
-	Line = ARRAY LineWidth OF Character; 
-
-	TextBuffer = OBJECT 
-	VAR 
-		defaultColor: SHORTINT; 
-		currentColor: SHORTINT; 
-		lines: ARRAY BufferHeight OF Line; 
-		firstLine, lastLine: LONGINT; 
-		firstLineShown: LONGINT; 
-		editStartPosition, editEndPosition: LONGINT; 
-		cursorPosition: LONGINT; 
-		mode: LONGINT; 
-		lock: Locks.RecursiveLock; 
-
-		PROCEDURE ^  & Init*; 
-		PROCEDURE ^ Clear; 
-		PROCEDURE ^ SetColor(foreground, background: SHORTINT); 
-		PROCEDURE ^ SetEditStart; 
-		PROCEDURE ^ Send(CONST data: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT); 
-		PROCEDURE ^ String(CONST string: ARRAY OF CHAR); 
-		PROCEDURE ^ Char(ch: CHAR); 
-		PROCEDURE ^ CheckVisibility; 
-		PROCEDURE ^ NextLine; 
-		PROCEDURE ^ MoveCharactersToRight; 
-		PROCEDURE ^ MoveCharactersToLeft; 
-		PROCEDURE ^ CharInternal(ch: CHAR); 
-		PROCEDURE ^ DeleteCurrentLine; 
-		PROCEDURE ^ GetCurrentLine(): Strings.String; 
-		PROCEDURE ^ Home; 
-		PROCEDURE ^ End; 
-		PROCEDURE ^ Backspace; 
-		PROCEDURE ^ Delete; 
-		PROCEDURE ^ ScrollUp(nofLines: LONGINT); 
-		PROCEDURE ^ ScrollDown(nofLines: LONGINT); 
-		PROCEDURE ^ CursorLeft; 
-		PROCEDURE ^ CursorRight; 
-		PROCEDURE ^ Dump(out: Streams.Writer); 
-	END TextBuffer; 
-
-	Shell = OBJECT (Inputs.Sink)
-	VAR 
-		textBuffer: TextBuffer; 
-		history: CommandHistoryObject; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Handle*(VAR msg: Inputs.Message); 
-		PROCEDURE ^ CommandHistory(next: BOOLEAN); 
-		PROCEDURE ^ Prompt; 
-		PROCEDURE ^ Execute; 
-		PROCEDURE ^ Quit; 
-	END Shell; 
-VAR 
-	shell: Shell; 
-
-	PROCEDURE ^ Subtract(position, value, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ Add(position, value, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ Difference(end, start, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ ClearLine(VAR line: Line; from, to: LONGINT; color: SHORTINT); 
-	PROCEDURE ^ IsWhitespace(ch: CHAR): BOOLEAN; 
-	PROCEDURE ^ Min(a, b: LONGINT): LONGINT; 
-	PROCEDURE ^ Invalidate(textBuffer: TextBuffer); 
-	PROCEDURE ^ Open*; 
-	PROCEDURE ^ Close*; 
-	PROCEDURE ^ Dump*(context: Commands.Context); 
-	PROCEDURE ^ UpdateCursor(textBuffer: TextBuffer); 
-	PROCEDURE ^ Cleanup; 
-	PROCEDURE ^ Init; 
-BEGIN
-END BootShell.

Linux32/bin/FoxBinaryObjectFile.SymU

@@ -1,97 +0,0 @@
-MODULE FoxBinaryObjectFile;
-	IMPORT Scanner := FoxScanner, Basic := FoxBasic, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, SemanticChecker := FoxSemanticChecker, FingerPrinter := FoxFingerPrinter, Sections := FoxSections, Streams, D := Debugging, Files, SYSTEM, Strings, BinaryCode := FoxBinaryCode, Log := KernelLog, Diagnostics, SymbolFileFormat := FoxBinarySymbolFile, Options, Formats := FoxFormats, IntermediateCode := FoxIntermediateCode, Machine;
-CONST 
-	ofFileTag = 0BBX; 
-	ofNoZeroCompress = 0ADX; 
-	ofFileVersion = SymbolFileFormat.FileVersionCurrent; 
-	ofEUEnd = 0X; 
-	ofEURecord = 1X; 
-	ofEUProcFlag = LONGINT(2147483648); 
-	DefaultNofSysCalls = 12; 
-	NewRec = 0; 
-	NewArr = 1; 
-	NewSys = 2; 
-	CaseTable = 3; 
-	ProcAddr = 4; 
-	Lock = 5; 
-	Unlock = 6; 
-	Start = 7; 
-	Await = 8; 
-	InterfaceLookup = 9; 
-	RegisterInterface = 10; 
-	GetProcedure = 11; 
-	Trace = FALSE; 
-TYPE 
-	Name = ARRAY 256 OF CHAR; 
-
-	ByteArray = POINTER TO ARRAY OF CHAR; 
-
-	ObjectFileFormat* = OBJECT (Formats.ObjectFileFormat)
-
-		PROCEDURE ^  & InitObjectFileFormat; 
-		PROCEDURE ^ Export*(module: Formats.GeneratedModule; symbolFileFormat: Formats.SymbolFileFormat): BOOLEAN; 
-		PROCEDURE ^ DefineOptions*(options: Options.Options); 
-		PROCEDURE ^ GetOptions*(options: Options.Options); 
-		PROCEDURE ^ DefaultSymbolFileFormat*(): Formats.SymbolFileFormat; 
-		PROCEDURE ^ ForceModuleBodies*(): BOOLEAN; 
-	END ObjectFileFormat; 
-
-	Fixup = OBJECT 
-	VAR 
-		nextFixup: Fixup; 
-		fixup: BinaryCode.Fixup; 
-		fixupSection: Sections.Section; 
-	END Fixup; 
-
-	Section = OBJECT 
-	VAR 
-		name: Basic.SegmentedName; 
-		symbol: SyntaxTree.Symbol; 
-		entryNumber: LONGINT; 
-		offset: LONGINT; 
-		fixups: Fixup; 
-		numberFixups: LONGINT; 
-		type: LONGINT; 
-		resolved: BinaryCode.Section; 
-		isCaseTable: BOOLEAN; 
-		referenced: BOOLEAN; 
-
-		PROCEDURE ^ SetEntryNumber(num: LONGINT); 
-		PROCEDURE ^ SetSymbol(s: SyntaxTree.Symbol); 
-		PROCEDURE ^  & Init(CONST name: Basic.SegmentedName); 
-		PROCEDURE ^ AddFixup(fixup: BinaryCode.Fixup; fixupSection: Sections.Section); 
-		PROCEDURE ^ Dump(w: Streams.Writer); 
-	END Section; 
-
-	SectionNameLookup = OBJECT (Basic.HashTableSegmentedName)
-
-		PROCEDURE ^ GetSection(CONST name: Basic.SegmentedName): Section; 
-		PROCEDURE ^ PutSection(CONST name: Basic.SegmentedName; section: Section); 
-	END SectionNameLookup; 
-
-	SymbolLookup = OBJECT (Basic.HashTable)
-
-		PROCEDURE ^ GetSection(s: SyntaxTree.Symbol): Section; 
-		PROCEDURE ^ PutSection(symbol: SyntaxTree.Symbol; section: Section); 
-	END SymbolLookup; 
-
-	SectionList = OBJECT (Basic.List)
-	VAR 
-		lookup: SectionNameLookup; 
-		symbolLookup: SymbolLookup; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ AddSection(name: Basic.SegmentedName): Section; 
-		PROCEDURE ^ BySymbol(symbol: SyntaxTree.Symbol): Section; 
-		PROCEDURE ^ GetSection(i: LONGINT): Section; 
-		PROCEDURE ^ Dump(w: Streams.Writer); 
-	END SectionList; 
-VAR 
-	SysCallMap: ARRAY DefaultNofSysCalls OF CHAR; 
-
-	PROCEDURE ^ FindPC(pc: LONGINT; module: Sections.Module; diagnostics: Diagnostics.Diagnostics): BOOLEAN; 
-	PROCEDURE ^ MakeSectionOffsets(module: Sections.Module; VAR constSize, varSize, codeSize, caseTableSize: LONGINT; VAR const, code: ByteArray); 
-	PROCEDURE ^ WriteObjectFile*(w: Streams.Writer; module: Sections.Module; symbolFile: Files.File); 
-	PROCEDURE ^ Get*(): Formats.ObjectFileFormat; 
-BEGIN
-END FoxBinaryObjectFile.

Linux32/bin/FoxBinarySymbolFile.SymU

@@ -1,192 +0,0 @@
-MODULE FoxBinarySymbolFile;
-	IMPORT Basic := FoxBasic, Scanner := FoxScanner, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Files, Streams, Kernel, SYSTEM, D := Debugging, Diagnostics, Options, Formats := FoxFormats, InterfaceComparison := FoxInterfaceComparison, Commands, Printout := FoxPrintout, SemanticChecker := FoxSemanticChecker, Machine;
-CONST 
-	TraceImport = 0; 
-	TraceExport = 1; 
-	Trace = {}; 
-	sfTypeBoolean = 1; 
-	sfTypeChar8 = 2; 
-	sfTypeChar16 = 3; 
-	sfTypeChar32 = 4; 
-	sfTypeShortint = 5; 
-	sfTypeInteger = 6; 
-	sfTypeLongint = 7; 
-	sfTypeHugeint = 8; 
-	sfTypeReal = 9; 
-	sfTypeLongreal = 10; 
-	sfTypeSet = 11; 
-	sfTypeString = 12; 
-	sfTypeNoType = 13; 
-	sfTypeNilType = 14; 
-	sfTypeByte = 15; 
-	sfTypeAny = 16; 
-	sfTypeObject = 17; 
-	sfTypeAddress = 18; 
-	sfTypeSize = 19; 
-	sfTypeUnsigned8 = 20; 
-	sfTypeUnsigned16 = 21; 
-	sfTypeUnsigned32 = 22; 
-	sfTypeUnsigned64 = 23; 
-	sfLastType = 23; 
-	sfMod1 = (sfLastType + 1); 
-	sfModOther = 45; 
-	sfTypeOpenArray = 46; 
-	sfTypeStaticArray = 48; 
-	sfTypePointer = 49; 
-	sfTypeRecord = 50; 
-	sfTypeProcedure = 51; 
-	sfSysFlag = 52; 
-	sfInvisible = 53; 
-	sfHidden = 172; 
-	sfReadOnly = 54; 
-	sfObjFlag = 55; 
-	sfConst = 55; 
-	sfVar = 56; 
-	sfTypeEnumeration = 57; 
-	sfXProcedure = 58; 
-	sfOperator = 59; 
-	sfTProcedure = 60; 
-	sfCProcedure = sfTProcedure; 
-	sfAlias = 61; 
-	sfType = 62; 
-	sfEnd = 63; 
-	sfTypeOpenMathArray = 64; 
-	sfTypeTensor = 66; 
-	sfTypeStaticMathArray = 67; 
-	sfTypeAll = 68; 
-	sfTypeRange = 69; 
-	sfTypeComplex = 70; 
-	sfTypeLongcomplex = 71; 
-	sfInline = 171; 
-	sfProtected = 0; 
-	sfActive = 1; 
-	sfSafe = 2; 
-	sfClass = 16; 
-	sfDelegate = 5; 
-	sfUntraced = 4; 
-	sfWinAPIParam = 13; 
-	sfCParam = 14; 
-	sfDarwinCParam = 15; 
-	sfRealtime = 21; 
-	sfDynamic = 22; 
-	sfUnsafe = 23; 
-	sfDisposable = 24; 
-	sfFictive = 25; 
-	Undef = MIN(LONGINT); 
-	FileTag = 0BBX; 
-	NoZeroCompress = 0ADX; 
-	FileVersion* = 0B1X; 
-	FileVersionOC* = 0B2X; 
-	FileVersionCurrent* = 0B4X; 
-TYPE 
-	TypeReference = OBJECT (SyntaxTree.Type)
-	VAR 
-		nr: LONGINT; 
-
-		PROCEDURE ^  & InitTypeReference(nr: LONGINT); 
-	END TypeReference; 
-
-	IndexToType = OBJECT (Basic.List)
-
-		PROCEDURE ^ PutType(nr: LONGINT; type: SyntaxTree.Type); 
-		PROCEDURE ^ GetType(nr: LONGINT): SyntaxTree.Type; 
-	END IndexToType; 
-
-	LateFix = POINTER TO RECORD 
-		p: ANY; 
-		next: LateFix; 
-	END; 
-
-	LateFixList = OBJECT 
-	VAR 
-		first, last: LateFix; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Get(): ANY; 
-		PROCEDURE ^ Add(p: ANY); 
-	END LateFixList; 
-
-	Resolver = OBJECT (SyntaxTree.Visitor)
-	VAR 
-		typeList: IndexToType; 
-		system: Global.System; 
-		typeFixes: LateFixList; 
-		checker: SemanticChecker.Checker; 
-
-		PROCEDURE ^  & Init(system: Global.System; symbolFile: BinarySymbolFile; importCache: SyntaxTree.ModuleScope); 
-		PROCEDURE ^ VisitType*(x: SyntaxTree.Type); 
-		PROCEDURE ^ VisitBasicType*(x: SyntaxTree.BasicType); 
-		PROCEDURE ^ VisitByteType*(x: SyntaxTree.ByteType); 
-		PROCEDURE ^ VisitBooleanType*(x: SyntaxTree.BooleanType); 
-		PROCEDURE ^ VisitSetType*(x: SyntaxTree.SetType); 
-		PROCEDURE ^ VisitAddressType*(x: SyntaxTree.AddressType); 
-		PROCEDURE ^ VisitSizeType*(x: SyntaxTree.SizeType); 
-		PROCEDURE ^ VisitAnyType*(x: SyntaxTree.AnyType); 
-		PROCEDURE ^ VisitObjectType*(x: SyntaxTree.ObjectType); 
-		PROCEDURE ^ VisitNilType*(x: SyntaxTree.NilType); 
-		PROCEDURE ^ VisitCharacterType*(x: SyntaxTree.CharacterType); 
-		PROCEDURE ^ VisitIntegerType*(x: SyntaxTree.IntegerType); 
-		PROCEDURE ^ VisitFloatType*(x: SyntaxTree.FloatType); 
-		PROCEDURE ^ VisitComplexType*(x: SyntaxTree.ComplexType); 
-		PROCEDURE ^ VisitQualifiedType*(x: SyntaxTree.QualifiedType); 
-		PROCEDURE ^ VisitStringType*(x: SyntaxTree.StringType); 
-		PROCEDURE ^ VisitRangeType*(x: SyntaxTree.RangeType); 
-		PROCEDURE ^ CheckEnumerationScope(x: SyntaxTree.EnumerationScope); 
-		PROCEDURE ^ VisitEnumerationType*(x: SyntaxTree.EnumerationType); 
-		PROCEDURE ^ VisitArrayType*(arrayType: SyntaxTree.ArrayType); 
-		PROCEDURE ^ VisitMathArrayType*(arrayType: SyntaxTree.MathArrayType); 
-		PROCEDURE ^ VisitPointerType*(pointerType: SyntaxTree.PointerType); 
-		PROCEDURE ^ FixPointerType(pointerType: SyntaxTree.PointerType); 
-		PROCEDURE ^ VisitRecordType*(recordType: SyntaxTree.RecordType); 
-		PROCEDURE ^ VisitProcedureType*(procedureType: SyntaxTree.ProcedureType); 
-		PROCEDURE ^ FixProcedureType(procedureType: SyntaxTree.ProcedureType); 
-		PROCEDURE ^ ResolveType(type: SyntaxTree.Type): SyntaxTree.Type; 
-		PROCEDURE ^ FixTypes; 
-		PROCEDURE ^ Scope(scope: SyntaxTree.Scope); 
-		PROCEDURE ^ Resolve(module: SyntaxTree.Module; typeList: IndexToType); 
-	END Resolver; 
-
-	Index = POINTER TO RECORD 
-		tag: LONGINT; 
-	END; 
-
-	TypeToIndex = OBJECT (Basic.HashTable)
-
-		PROCEDURE ^ GetIndex(type: SyntaxTree.Type): LONGINT; 
-		PROCEDURE ^ PutIndex(type: SyntaxTree.Type; nr: LONGINT); 
-	END TypeToIndex; 
-
-	Attribute = OBJECT 
-	VAR 
-		numberTypes: LONGINT; 
-		indexToType: IndexToType; 
-		typeToIndex: TypeToIndex; 
-
-		PROCEDURE ^  & Init; 
-	END Attribute; 
-
-	IndexToAttribute = OBJECT (Basic.List)
-
-		PROCEDURE ^ PutAttribute(nr: LONGINT; attribute: Attribute); 
-		PROCEDURE ^ GetAttribute(nr: LONGINT): Attribute; 
-	END IndexToAttribute; 
-
-	BinarySymbolFile* = OBJECT (Formats.SymbolFileFormat)
-	VAR 
-		file-: Files.File; 
-		extension-: Basic.FileName; 
-		noRedefinition, noModification, noInterfaceCheck: BOOLEAN; 
-		version: CHAR; 
-
-		PROCEDURE ^ Import*(CONST moduleName: ARRAY OF CHAR; importCache: SyntaxTree.ModuleScope): SyntaxTree.Module; 
-		PROCEDURE ^ Export*(module: SyntaxTree.Module; importCache: SyntaxTree.ModuleScope): BOOLEAN; 
-		PROCEDURE ^ DefineOptions*(options: Options.Options); 
-		PROCEDURE ^ GetOptions*(options: Options.Options); 
-	END BinarySymbolFile; 
-
-	PROCEDURE ^ MakeFileName(VAR file: ARRAY OF CHAR; CONST name, prefix, suffix: ARRAY OF CHAR); 
-	PROCEDURE ^ OpenSymFile(CONST name, prefix, suffix: ARRAY OF CHAR; VAR r: Streams.Reader; VAR version: CHAR): BOOLEAN; 
-	PROCEDURE ^ Get*(): Formats.SymbolFileFormat; 
-	PROCEDURE ^ Test*(context: Commands.Context); 
-BEGIN
-END FoxBinarySymbolFile.

Linux32/bin/GenericLoader.SymU

@@ -1,109 +0,0 @@
-MODULE GenericLoader;
-	IMPORT SYSTEM, KernelLog, Modules, Streams, Files, D := KernelLog, GenericLinker, ObjectFile, Diagnostics, Strings, StringPool, Trace, Machine;
-CONST 
-	Ok = 0; 
-	LinkerError = 3400; 
-	FileNotFound = 3401; 
-	CommandTrapped* = 3904; 
-	SupportOldObjectFileFormat = FALSE; 
-	TraceLoading = FALSE; 
-TYPE 
-	HashEntryIntInt = RECORD 
-		key, value: SIZE; 
-	END; 
-
-	HashIntArray = POINTER TO ARRAY OF HashEntryIntInt; 
-
-	HashEntryIntAny = RECORD 
-		key: SIZE; 
-		value: ANY; 
-	END; 
-
-	HashIntAnyArray = POINTER TO ARRAY OF HashEntryIntAny; 
-
-	HashTableInt = OBJECT 
-	VAR 
-		table: HashIntArray; 
-		size: LONGINT; 
-		used-: LONGINT; 
-		maxLoadFactor: REAL; 
-
-		PROCEDURE ^  & Init*(initialSize: LONGINT); 
-		PROCEDURE ^ Put*(key: SIZE; value: SIZE); 
-		PROCEDURE ^ Get*(key: SIZE): SIZE; 
-		PROCEDURE ^ Has*(key: SIZE): BOOLEAN; 
-		PROCEDURE ^ Length*(): LONGINT; 
-		PROCEDURE ^ Clear*; 
-		PROCEDURE ^ HashValue(key: SIZE): SIZE; 
-		PROCEDURE ^ Grow; 
-	END HashTableInt; 
-
-	HashTableIntAny* = OBJECT 
-	VAR 
-		table: HashIntAnyArray; 
-		size: LONGINT; 
-		used-: LONGINT; 
-		maxLoadFactor: REAL; 
-
-		PROCEDURE ^  & Init*(initialSize: LONGINT); 
-		PROCEDURE ^ Put*(key: SIZE; value: ANY); 
-		PROCEDURE ^ Get*(key: LONGINT): ANY; 
-		PROCEDURE ^ Has*(key: LONGINT): BOOLEAN; 
-		PROCEDURE ^ Length*(): LONGINT; 
-		PROCEDURE ^ Clear*; 
-		PROCEDURE ^ HashValue(key: SIZE): SIZE; 
-		PROCEDURE ^ Grow; 
-	END HashTableIntAny; 
-
-	Data = RECORD 
-		size, pos: LONGINT; 
-		bytes: Modules.Bytes; 
-		firstAddress: ADDRESS; 
-	END; 
-
-	Arrangement* = OBJECT (GenericLinker.Arrangement)
-	VAR 
-		code, data: Data; 
-		hasBody: BOOLEAN; 
-		bodyAddress: ADDRESS; 
-
-		PROCEDURE ^  & InitArrangement; 
-		PROCEDURE ^ Preallocate*(CONST section: ObjectFile.Section); 
-		PROCEDURE ^ Allocate*(CONST section: ObjectFile.Section): GenericLinker.Address; 
-		PROCEDURE ^ Patch*(pos, value: GenericLinker.Address; offset, bits, unit: ObjectFile.Bits); 
-	END Arrangement; 
-
-	ModuleList = OBJECT {EXCLUSIVE} 
-	VAR 
-		hash: HashTableIntAny; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ ThisModule(module: Modules.Module): HashTableInt; 
-	END ModuleList; 
-
-	Linker = OBJECT (GenericLinker.Linker)
-	VAR 
-		moduleName: ObjectFile.SegmentedName; 
-		importBlock: GenericLinker.Block; 
-		hash: HashTableIntAny; 
-		moduleBlock: GenericLinker.Block; 
-
-		PROCEDURE ^  & InitLinkerX*(diagnostics: Diagnostics.Diagnostics; log: Streams.Writer; code, data: GenericLinker.Arrangement; CONST name: ARRAY OF CHAR); 
-		PROCEDURE ^ FindBlock*(CONST identifier: ObjectFile.Identifier): GenericLinker.Block; 
-		PROCEDURE ^ ExportBlock*(block: GenericLinker.Block); 
-		PROCEDURE ^ ImportBlock*(CONST fixup: ObjectFile.Fixup): GenericLinker.Block; 
-	END Linker; 
-VAR 
-	moduleList: ModuleList; 
-	testTypeDescs: Modules.Bytes; 
-	InternalModuleName: StringPool.Index; 
-
-	PROCEDURE ^ InitData(VAR data: Data); 
-	PROCEDURE ^ IsPrefix(CONST prefix, of: ObjectFile.SegmentedName): BOOLEAN; 
-	PROCEDURE ^ DoPreallocate(CONST section: ObjectFile.Section; VAR data: Data); 
-	PROCEDURE ^ DoAllocate(CONST section: ObjectFile.Section; VAR data: Data): ADDRESS; 
-	PROCEDURE ^ LoadObj*(CONST name, fileName: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): Modules.Module; 
-	PROCEDURE ^ Install*; 
-	PROCEDURE ^ Remove*; 
-BEGIN
-END GenericLoader.

Linux32/bin/Linker0.SymU

@@ -1,312 +0,0 @@
-MODULE Linker0;
-	IMPORT SYSTEM, Streams, Files, KernelLog;
-CONST 
-	DefaultExtension = \".Obx"\; 
-	HeapSize = (1024 * 1024); 
-	AddressSize = SIZEOF(ADDRESS); 
-	LenOfs = (3 * AddressSize); 
-	Unmarked = 0; 
-	MemBlockDescModule = \"Machine"\; 
-	MemBlockDescType = \"MemoryBlockDesc"\; 
-	ModDescModule = \"Modules"\; 
-	ModDescType = \"Module"\; 
-	TypeDescModule = \"Modules"\; 
-	TypeDescType = \"TypeDesc"\; 
-	HdPtrDescModule = \"Loader"\; 
-	HdPtrDescType = \"@HdPtrDesc"\; 
-	ExportDescModule = \"Modules"\; 
-	ExportDescType = \"ExportDesc"\; 
-	InitPtrModule = \"Modules"\; 
-	InitPtrName = \"initBlock"\; 
-	ModRootModule = \"Modules"\; 
-	ModRootName = \"root"\; 
-	ProcOffsetsName = \"procOffsets"\; 
-	NumProcsName = \"numProcs"\; 
-	PtrOffsetsName = \"ptrOffsets"\; 
-	NumPtrsName = \"numPtrs"\; 
-	HeapModule = \"Heaps"\; 
-	FreeBlockDescType = \"FreeBlockDesc"\; 
-	SystemBlockDescType = \"SystemBlockDesc"\; 
-	RecordBlockDescType = \"RecordBlockDesc"\; 
-	ProtRecBlockDescType = \"ProtRecBlockDesc"\; 
-	ArrayBlockDescType = \"ArrayBlockDesc"\; 
-	FreeBlockTagPtrName = \"freeBlockTagPtr"\; 
-	SystemBlockTagPtrName = \"systemBlockTagPtr"\; 
-	RecordBlockTagPtrName = \"recordBlockTagPtr"\; 
-	ProtRecBlockTagPtrName = \"protRecBlockTagPtr"\; 
-	ArrayBlockTagPtrName = \"arrayBlockTagPtr"\; 
-	CurrentMarkValueName = \"currentMarkValue"\; 
-	StartModule = \"Objects"\; 
-	StartCommand = \"Terminate"\; 
-	MainModule = \"BootConsole"\; 
-	FreeBlockId = 0; 
-	SystemBlockId = 1; 
-	RecordBlockId = 2; 
-	ProtRecBlockId = 3; 
-	ArrayBlockId = 4; 
-	ProtectedModule = TRUE; 
-	TraceDump = FALSE; 
-	TraceRefs = (TRUE & TraceDump); 
-	TraceDuplicates = (FALSE & TraceDump); 
-	LogName = \"Linker.Log"\; 
-	HeaderSize = 64; 
-	EndBlockOfs = 56; 
-	NumPriorities* = 6; 
-	MaxTags* = 16; 
-	Tag0Ofs* =  -(2 * AddressSize); 
-	Mth0Ofs* = (Tag0Ofs - (AddressSize * MaxTags)); 
-	Ptr0Ofs* = AddressSize; 
-	ProtTypeBit* = 31; 
-	BlockSize = 32; 
-	ArrayAlignment = 8; 
-	BlockHeaderSize = (2 * AddressSize); 
-	HeapBlockOffset =  -(2 * AddressSize); 
-	TypeDescOffset =  -AddressSize; 
-	MinPtrOfs =  -1073741824; 
-	MethodEndMarker* = MinPtrOfs; 
-	InitTableLen = (2048 + 256); 
-	InitPtrTableLen = 2048; 
-	TypeDescRecSize* = ((5 * AddressSize) + 32); 
-	NilVal* = 0; 
-TYPE 
-	AdrTable = POINTER TO ARRAY OF ADDRESS; 
-
-	RootObject* = OBJECT 
-	VAR 
-		nextRoot: RootObject; 
-
-		PROCEDURE ^ FindRoots*; 
-	END RootObject; 
-
-	ProcessLink* = OBJECT (RootObject)
-	VAR 
-		next*, prev*: ProcessLink; 
-	END ProcessLink; 
-
-	ProcessQueue* = RECORD 
-		head*, tail*: ProcessLink; 
-	END; 
-
-	MemoryBlock = POINTER TO MemoryBlockDesc; 
-
-	MemoryBlockDesc = RECORD 
-		next{UNTRACED} : MemoryBlock; 
-		startAdr: ADDRESS; 
-		size: SIZE; 
-		beginBlockAdr, endBlockAdr: ADDRESS; 
-	END; 
-
-	HeapBlock = POINTER TO HeapBlockDesc; 
-
-	HeapBlockDesc = RECORD 
-		mark: LONGINT; 
-		dataAdr: ADDRESS; 
-		size: SIZE; 
-		nextRealtime: HeapBlock; 
-	END; 
-
-	FreeBlock = POINTER TO FreeBlockDesc; 
-
-	FreeBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	SystemBlock = POINTER TO SystemBlockDesc; 
-
-	SystemBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	RecordBlock = POINTER TO RecordBlockDesc; 
-
-	RecordBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	ProtRecBlock* = POINTER TO ProtRecBlockDesc; 
-
-	ProtRecBlockDesc* = RECORD (RecordBlockDesc)
-		count*: LONGINT; 
-		locked*: BOOLEAN; 
-		awaitingLock*: ProcessQueue; 
-		awaitingCond*: ProcessQueue; 
-		lockedBy*: ANY; 
-		lock*: ANY; 
-		waitingPriorities*: ARRAY NumPriorities OF LONGINT; 
-	END; 
-
-	ArrayBlock = POINTER TO ArrayBlockDesc; 
-
-	ArrayBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	StaticTypeBlock* = POINTER TO StaticTypeDesc; 
-
-	StaticTypeDesc* = RECORD 
-		recSize: SIZE; 
-		pointerOffsets*{UNTRACED} : PointerOffsets; 
-	END; 
-
-	PointerOffsets = POINTER TO ARRAY OF SIZE; 
-
-	Name* = ARRAY 32 OF CHAR; 
-
-	CommandProc* = PROCEDURE ; 
-
-	CommandParProc* = PROCEDURE (par: ANY):ANY; 
-
-	Command* = RECORD 
-		name*: Name; 
-		argTdAdr*, retTdAdr*: ADDRESS; 
-		entryAdr*: ADDRESS; 
-	END; 
-
-	ExportDesc* = RECORD 
-		fp*: ADDRESS; 
-		adr*: ADDRESS; 
-		exports*: LONGINT; 
-		dsc*: ExportArray; 
-	END; 
-
-	ExportArray* = POINTER TO ARRAY OF ExportDesc; 
-
-	Bytes* = POINTER TO ARRAY OF CHAR; 
-
-	TerminationHandler* = PROCEDURE ; 
-
-	ExceptionTableEntry* = RECORD 
-		pcFrom*: ADDRESS; 
-		pcTo*: ADDRESS; 
-		pcHandler*: ADDRESS; 
-	END; 
-
-	ExceptionTable* = POINTER TO ARRAY OF ExceptionTableEntry; 
-
-	ProcTableEntry* = RECORD 
-		pcFrom*, pcLimit*, pcStatementBegin*, pcStatementEnd*: ADDRESS; 
-		noPtr*: LONGINT; 
-	END; 
-
-	ProcTable* = POINTER TO ARRAY OF ProcTableEntry; 
-
-	PtrTable* = POINTER TO ARRAY OF SIZE; 
-
-	ProcOffsetEntry* = RECORD 
-		data*: ProcTableEntry; 
-		startIndex: LONGINT; 
-	END; 
-
-	ProcOffsetTable* = POINTER TO ARRAY OF ProcOffsetEntry; 
-
-	Module* = OBJECT (RootObject)
-	VAR 
-		next*: Module; 
-		name*: Name; 
-		init, published: BOOLEAN; 
-		refcnt*: LONGINT; 
-		sb*: ADDRESS; 
-		entry*: POINTER TO ARRAY OF ADDRESS; 
-		command*: POINTER TO ARRAY OF Command; 
-		ptrAdr*: POINTER TO ARRAY OF ADDRESS; 
-		typeInfo*: POINTER TO ARRAY OF TypeDesc; 
-		module*: POINTER TO ARRAY OF Module; 
-		procTable*: ProcTable; 
-		ptrTable*: PtrTable; 
-		data*, code*, staticTypeDescs*, refs*: Bytes; 
-		export*: ExportDesc; 
-		term*: TerminationHandler; 
-		exTable*: ExceptionTable; 
-		noProcs*: LONGINT; 
-		firstProc*: ADDRESS; 
-		maxPtrs*: LONGINT; 
-		crc*: LONGINT; 
-	END Module; 
-
-	TypeDesc* = POINTER TO RECORD 
-		descSize: LONGINT; 
-		sentinel: LONGINT; 
-		tag*: ADDRESS; 
-		flags*: SET; 
-		mod*: Module; 
-		name*: Name; 
-	END; 
-VAR 
-	logWriter: Streams.Writer; 
-	logFile: Files.File; 
-	root-: ADDRESS; 
-	procOffsets{UNTRACED} : ProcOffsetTable; 
-	numProcs: LONGINT; 
-	ptrOffsets{UNTRACED} : PtrTable; 
-	numPtrs: LONGINT; 
-	heap-: ANY; 
-	memBlock{UNTRACED} : MemoryBlock; 
-	beginMemBlockAdr, endMemBlockAdr: ADDRESS; 
-	beginAdr, freeAdr, baseAdr: ADDRESS; 
-	heapOfs: SIZE; 
-	exportTags, relocates: LONGINT; 
-	exportTagAdr: AdrTable; 
-	relocateAdr: AdrTable; 
-	curRelocate: LONGINT; 
-	refsMissed: LONGINT; 
-	prefix, suffix: Files.FileName; 
-	loadObj*: PROCEDURE (name, fileName: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR):Module; 
-	getProcs: ARRAY 9 OF BOOLEAN; 
-	freeBlockTag, systemBlockTag, recordBlockTag, protRecBlockTag, arrayBlockTag: ADDRESS; 
-	initBlock{UNTRACED} : ANY; 
-	currentMarkValue: LONGINT; 
-
-	PROCEDURE ^ Fill4(destAdr: ADDRESS; size: SIZE; filler: LONGINT); 
-	PROCEDURE ^ Char*(c: CHAR); 
-	PROCEDURE ^ String*(CONST s: ARRAY OF CHAR); 
-	PROCEDURE ^ Ln*; 
-	PROCEDURE ^ Int*(x, w: LONGINT); 
-	PROCEDURE ^ Hex*(x: SIZE; w: LONGINT); 
-	PROCEDURE ^ Address*(x: ADDRESS); 
-	PROCEDURE ^ Memory*(adr: ADDRESS; size: SIZE); 
-	PROCEDURE ^ Bits*(x: SET; ofs, n: LONGINT); 
-	PROCEDURE ^ Enter*; 
-	PROCEDURE ^ Exit*; 
-	PROCEDURE ^ InitFreeBlock(freeBlock: FreeBlock; mark: LONGINT; dataAdr: ADDRESS; size: SIZE); 
-	PROCEDURE ^ NewBlock(size: SIZE): ADDRESS; 
-	PROCEDURE ^ NewSys*(VAR p: ANY; size: SIZE); 
-	PROCEDURE ^ NewRealArr*(VAR p: ANY; numElems, elemSize: SIZE; numDims: LONGINT); 
-	PROCEDURE ^ NewTypeDesc*(VAR p: ANY; recSize: SIZE); 
-	PROCEDURE ^ FillStaticType*(VAR staticTypeAddr: ADDRESS; startAddr, typeInfoAdr: ADDRESS; size, recSize: SIZE; numPtrs, numSlots: LONGINT); 
-	PROCEDURE ^ Append*(CONST from: ARRAY OF CHAR; VAR to: ARRAY OF CHAR); 
-	PROCEDURE ^ Publish(VAR m: Module; VAR new: BOOLEAN); 
-	PROCEDURE ^ ModuleByName(CONST name: ARRAY OF CHAR): Module; 
-	PROCEDURE ^ GetFileName(CONST name: ARRAY OF CHAR; VAR fileName: ARRAY OF CHAR); 
-	PROCEDURE ^ ThisModule*(CONST name: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): Module; 
-	PROCEDURE ^ ThisType*(m: Module; CONST name: ARRAY OF CHAR): TypeDesc; 
-	PROCEDURE ^ WriteType(t: ADDRESS); 
-	PROCEDURE ^ FindInsertionPos(VAR entry: ProcTableEntry; VAR pos: LONGINT): BOOLEAN; 
-	PROCEDURE ^ NumTotalPtrs(procTable: ProcTable): LONGINT; 
-	PROCEDURE ^ InsertProcOffsets*(procTable: ProcTable; ptrTable: PtrTable; maxPtr: LONGINT); 
-	PROCEDURE ^ GrowTable(VAR table: AdrTable); 
-	PROCEDURE ^ Relocate*(adr: ADDRESS); 
-	PROCEDURE ^ Open*(CONST namePrefix, nameSuffix: ARRAY OF CHAR; base: ADDRESS; log: Streams.Writer); 
-	PROCEDURE ^ RelocateModules; 
-	PROCEDURE ^ RelocateArrayFields(tagAdr: ADDRESS); 
-	PROCEDURE ^ RelocateExports; 
-	PROCEDURE ^ RelocateProcOffsets; 
-	PROCEDURE ^ FixupTypeDescTags; 
-	PROCEDURE ^ FixupHeapBlockTags; 
-	PROCEDURE ^ SortRelocates; 
-	PROCEDURE ^ GetNum(refs: Bytes; VAR i, num: LONGINT); 
-	PROCEDURE ^ VarByName(refs: Bytes; i: LONGINT; CONST name: ARRAY OF CHAR): SIZE; 
-	PROCEDURE ^ InitTable(diff: SIZE; baseAdr, loadAdr: ADDRESS); 
-	PROCEDURE ^ RootGlobals; 
-	PROCEDURE ^ ScopeInfo(diff: SIZE; baseAdr: ADDRESS; root: Module); 
-	PROCEDURE ^ CheckLinkerHeap; 
-	PROCEDURE ^ Close*(w: Files.Writer; loadAdr: ADDRESS; res: LONGINT; CONST msg: ARRAY OF CHAR; log: Streams.Writer); 
-	PROCEDURE ^ NewModule*(VAR m: Module); 
-	PROCEDURE ^ NewExportDesc*(VAR p: ExportArray; numElems: LONGINT); 
-	PROCEDURE ^ ArraySize*(numElems, elemSize: SIZE; numDims: LONGINT): SIZE; 
-	PROCEDURE ^ NewProcOffsets(VAR p: ProcOffsetTable; numElems: LONGINT); 
-	PROCEDURE ^ NewPtrOffsets(VAR p: PtrTable; numElems: LONGINT); 
-	PROCEDURE ^ FitMemoryBlock(startAdr: ADDRESS; size: SIZE; VAR memBlock: MemoryBlock); 
-	PROCEDURE ^ RelocateMemoryBlock; 
-	PROCEDURE ^ InitHeap; 
-	PROCEDURE ^ ProcByName(refs: Bytes; CONST name: ARRAY OF CHAR): SIZE; 
-	PROCEDURE ^ GetProc(m: Module; i: LONGINT; CONST mod, proc: ARRAY OF CHAR): ADDRESS; 
-	PROCEDURE ^ GetKernelProc*(m: Module; num: LONGINT): ADDRESS; 
-	PROCEDURE ^ WriteLog*; 
-BEGIN
-END Linker0.

Linux32/bin/Linker1.SymU

@@ -1,76 +0,0 @@
-MODULE Linker1;
-	IMPORT SYSTEM, Streams, Files, Commands, KernelLog := Linker0, Heaps := Linker0, Modules := Linker0, Linker0;
-CONST 
-	Ok* = 0; 
-	FileNotFound = 1; 
-	TagInvalid = 2; 
-	FileCorrupt = 3; 
-	FileTooShort = 4; 
-	IncompatibleImport = 5; 
-	AddressSize = SIZEOF(ADDRESS); 
-	FileTag = 0BBX; 
-	NoZeroCompress = 0ADX; 
-	FileVersion = 0B1X; 
-	FileVersionOC = 0B2X; 
-	CurrentVersion = 0B4X; 
-	MaxStructs = 1024; 
-	EUEnd = 0; 
-	EURecord = 1; 
-	EUobjScope = 0; 
-	EUrecScope = 1; 
-	EUerrScope =  -1; 
-	EUProcFlagBit = 31; 
-	Sentinel = LONGINT(4294967295); 
-TYPE 
-	ObjHeader = RECORD 
-		entries, commands, pointers, types, modules, links, dataLinks: LONGINT; 
-		codeSize, dataSize, refSize, constSize, exTableLen, procs, maxPtrs, crc: LONGINT; 
-		staticTdSize: LONGINT; 
-		name: Modules.Name; 
-	END; 
-
-	DataLinkRec = RECORD 
-		mod: LONGINT; 
-		entry: LONGINT; 
-		fixups: LONGINT; 
-		ofs: POINTER TO ARRAY OF SIZE; 
-	END; 
-
-	LinkRec = RECORD 
-		mod: LONGINT; 
-		entry: LONGINT; 
-		link: SIZE; 
-	END; 
-
-	TypeRec = RECORD 
-		init: BOOLEAN; 
-		entry, methods, inhMethods, baseMod: LONGINT; 
-		baseEntry: ADDRESS; 
-	END; 
-VAR 
-	trace: BOOLEAN; 
-
-	PROCEDURE ^ ReadHeader(r: Streams.Reader; VAR h: ObjHeader; VAR res: LONGINT); 
-	PROCEDURE ^ ReadString8(r: Streams.Reader; VAR str: ARRAY OF CHAR); 
-	PROCEDURE ^ AllocateModule(m: Modules.Module; h: ObjHeader); 
-	PROCEDURE ^ ReadEntryBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadCommandBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadPointerBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadImportBlock(r: Streams.Reader; m: Modules.Module; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): BOOLEAN; 
-	PROCEDURE ^ ReadDataLinkBlock(r: Streams.Reader; dataLinks: LONGINT; VAR d: ARRAY OF DataLinkRec): BOOLEAN; 
-	PROCEDURE ^ ReadLinkBlock(r: Streams.Reader; links, entries: LONGINT; VAR l: ARRAY OF LinkRec; VAR f: ARRAY OF LONGINT; VAR caseTableSize: LONGINT): BOOLEAN; 
-	PROCEDURE ^ ReadConstBlock(r: Streams.Reader; m: Modules.Module; h: ObjHeader): BOOLEAN; 
-	PROCEDURE ^ ReadExportBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadCodeBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadUseBlock(r: Streams.Reader; m: Modules.Module; VAR dataLink: ARRAY OF DataLinkRec; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): BOOLEAN; 
-	PROCEDURE ^ ReadTypeBlock(r: Streams.Reader; m: Modules.Module; VAR type: ARRAY OF TypeRec): BOOLEAN; 
-	PROCEDURE ^ ReadRefBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ FixupGlobals(m: Modules.Module; VAR dataLink: ARRAY OF DataLinkRec); 
-	PROCEDURE ^ FixupLinks(m: Modules.Module; VAR link: ARRAY OF LinkRec; VAR fixupCounts: ARRAY OF LONGINT; caseTableSize: LONGINT; VAR res: LONGINT); 
-	PROCEDURE ^ FixupCommands(m: Modules.Module); 
-	PROCEDURE ^ InitType(m: Modules.Module; VAR type: ARRAY OF TypeRec; i: LONGINT); 
-	PROCEDURE ^ ReadExTableBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadPtrsInProcs(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ LoadObj*(name, fileName: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): Modules.Module; 
-BEGIN
-END Linker1.

Linux32/bin/Runtime.SymU

@@ -1,27 +0,0 @@
-MODULE Runtime;
-	IMPORT SYSTEM;
-VAR 
-	kernelModule-: ARRAY 32 OF ADDRESS; 
-	modules-: LONGINT; 
-
-	PROCEDURE ^ InsertModule*(a: ADDRESS): BOOLEAN; 
-	PROCEDURE ^ DivHA(l, r: HUGEINT): HUGEINT; 
-	PROCEDURE ^ DivH*(l, r: HUGEINT): HUGEINT; 
-	PROCEDURE ^ MulH*(l, r: HUGEINT): HUGEINT; 
-	PROCEDURE ^ ModHA(l, r: HUGEINT): HUGEINT; 
-	PROCEDURE ^ ModH*(l, r: HUGEINT): HUGEINT; 
-	PROCEDURE ^ AbsH*(l: HUGEINT): HUGEINT; 
-	PROCEDURE ^ AslH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ LslH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ AsrH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ LsrH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ RorH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ RolH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ CasH*(VAR value: HUGEINT; old, new: HUGEINT): HUGEINT; 
-	PROCEDURE ^ EntierXH*(x: LONGREAL): HUGEINT; 
-	PROCEDURE ^ EntierRH*(x: REAL): HUGEINT; 
-	PROCEDURE ^ CompareString*(CONST left, right: ARRAY OF CHAR): SHORTINT; 
-	PROCEDURE ^ CopyString*(VAR dest: ARRAY OF CHAR; CONST src: ARRAY OF CHAR); 
-	PROCEDURE ^ EnsureAllocatedStack*(size: SIZE); 
-BEGIN
-END Runtime.

Linux32/bin/StaticLinker.SymU

@@ -1,85 +0,0 @@
-MODULE StaticLinker;
-	IMPORT Commands, Options, Diagnostics, Files, GenericLinker, ObjectFile, BitSets, Strings, Streams;
-CONST 
-TYPE 
-	ExportName = ARRAY 128 OF CHAR; 
-
-	PatchBlock* = POINTER TO RECORD 
-		baseAdr: LONGINT; 
-		addresses: LONGINT; 
-		address: ARRAY 1024 OF LONGINT; 
-		next: PatchBlock; 
-	END; 
-
-	RelocationInfo = OBJECT 
-	CONST 
-		blockSize = 4096; 
-	VAR 
-		patchBlock: PatchBlock; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ GetPatchBlock(adr: LONGINT): PatchBlock; 
-		PROCEDURE ^ AddReloc(adr: LONGINT); 
-	END RelocationInfo; 
-
-	ExportInfo = OBJECT 
-	VAR 
-		exports: LONGINT; 
-		name: ExportName; 
-		symbolNames: POINTER TO ARRAY OF ExportName; 
-		exportNames: POINTER TO ARRAY OF ExportName; 
-		exportAddresses: POINTER TO ARRAY OF GenericLinker.Address; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Swap(i, j: LONGINT); 
-		PROCEDURE ^ QuickSort(lo, hi: LONGINT); 
-		PROCEDURE ^ Sort; 
-	END ExportInfo; 
-
-	Arrangement* = OBJECT (GenericLinker.Arrangement)
-	VAR 
-		displacement: GenericLinker.Address; 
-		bits: BitSets.BitSet; 
-		maxUnitSize: ObjectFile.Bits; 
-		exportInfo: ExportInfo; 
-		relocInfo: RelocationInfo; 
-
-		PROCEDURE ^  & InitArrangement*(displacement: GenericLinker.Address); 
-		PROCEDURE ^ Allocate*(CONST section: ObjectFile.Section): GenericLinker.Address; 
-		PROCEDURE ^ SizeInBits*(): LONGINT; 
-		PROCEDURE ^ Patch*(pos, value: GenericLinker.Address; offset, bits, unit: ObjectFile.Bits); 
-		PROCEDURE ^ CheckReloc*(target: GenericLinker.Address; pattern: ObjectFile.Pattern; CONST patch: ObjectFile.Patch); 
-	END Arrangement; 
-
-	FileFormat = PROCEDURE (linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-VAR 
-	defaults: Options.Defaults; 
-	processing, finished: GenericLinker.Block; 
-
-	PROCEDURE ^ Align(this, to: LONGINT): LONGINT; 
-	PROCEDURE ^ ReadObjectFile*(CONST moduleName, path, extension: ARRAY OF CHAR; linker: GenericLinker.Linker; moduleList: GenericLinker.HashTableSegmentedName); 
-	PROCEDURE ^ WriteRelocations(arr: Arrangement; w: Files.Writer); 
-	PROCEDURE ^ WriteOutputFile*(arrangement: Arrangement; CONST fileName: Files.FileName; linker: GenericLinker.Linker; fileFormat: FileFormat); 
-	PROCEDURE ^ WriteBinaryFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteUnixBinaryFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteTRMFile(arrangement: Arrangement; writer: Files.Writer; bitsPerLine, lines: LONGINT); 
-	PROCEDURE ^ WriteTRMCodeFile*(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteTRMDataFile*(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WritePEFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer; bitmode, subSystem: INTEGER; isDLL: BOOLEAN); 
-	PROCEDURE ^ WriteDLL32File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteDLL64File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WritePE32File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WritePE64File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WritePE32CUIFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WritePE64CUIFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteEFI32File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteEFI64File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteELFFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteMachOFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ GetFileFormat(options: Options.Options; CONST name: Options.Name; default: FileFormat): FileFormat; 
-	PROCEDURE ^ ParseExports(CONST names: ARRAY OF CHAR): ExportInfo; 
-	PROCEDURE ^ CheckExports(info: ExportInfo; error: Streams.Writer): BOOLEAN; 
-	PROCEDURE ^ Link*(context: Commands.Context); 
-	PROCEDURE ^ ShowDefaults*(context: Commands.Context); 
-BEGIN
-END StaticLinker.

Linux32/bin/SystemTools.SymU

@@ -1,60 +0,0 @@
-MODULE SystemTools;
-	IMPORT Machine, Modules, Objects, Commands, Options, ProcessInfo, Kernel, Streams, Dates, Strings, Plugins, Files, SystemVersion, Heaps, Reflection;
-CONST 
-	MaxTimers = 16; 
-	DateTimeFormat = \"dd.mm.yyyy hh:nn:ss"\; 
-	CR = 0DX; 
-	LF = 0AX; 
-	TAB = 9X; 
-	TraceCommands = 1; 
-	TraceFreeDownTo = 2; 
-	Trace = {}; 
-	OberonKernel = \"Oberon-Kernel"\; 
-TYPE 
-	Module = POINTER TO RECORD 
-		next: Module; 
-		checked, imports: BOOLEAN; 
-		m: Modules.Module; 
-	END; 
-VAR 
-	timers: ARRAY MaxTimers OF Dates.DateTime; 
-
-	PROCEDURE ^ Find(root: Module; m: Modules.Module): Module; 
-	PROCEDURE ^ CopyModules(): Module; 
-	PROCEDURE ^ Imports(root, m: Module; CONST name: ARRAY OF CHAR): BOOLEAN; 
-	PROCEDURE ^ LockOberon; 
-	PROCEDURE ^ UnlockOberon; 
-	PROCEDURE ^ ListModules*(context: Commands.Context); 
-	PROCEDURE ^ ListPlugins*(context: Commands.Context); 
-	PROCEDURE ^ ListCommands*(context: Commands.Context); 
-	PROCEDURE ^ List*(context: Commands.Context); 
-	PROCEDURE ^ ModuleIsLoaded(CONST name: Modules.Name): BOOLEAN; 
-	PROCEDURE ^ WhoImports*(context: Commands.Context); 
-	PROCEDURE ^ IsLoaded*(context: Commands.Context); 
-	PROCEDURE ^ ModuleState*(context: Commands.Context); 
-	PROCEDURE ^ Load*(context: Commands.Context); 
-	PROCEDURE ^ FreeDownTo*(context: Commands.Context); 
-	PROCEDURE ^ Free*(context: Commands.Context); 
-	PROCEDURE ^ Kill*(context: Commands.Context); 
-	PROCEDURE ^ ShowProcesses*(context: Commands.Context); 
-	PROCEDURE ^ ShowStacks*(context: Commands.Context); 
-	PROCEDURE ^ ShowStack*(context: Commands.Context); 
-	PROCEDURE ^ Watch*(context: Commands.Context); 
-	PROCEDURE ^ RenameExtension*(context: Commands.Context); 
-	PROCEDURE ^ IsDelimiter(ch: CHAR): BOOLEAN; 
-	PROCEDURE ^ DoFile*(context: Commands.Context); 
-	PROCEDURE ^ DoCommands*(context: Commands.Context); 
-	PROCEDURE ^ RemoveComments(VAR string: ARRAY OF CHAR; length: LONGINT); 
-	PROCEDURE ^ Repeat*(context: Commands.Context); 
-	PROCEDURE ^ Timer*(context: Commands.Context); 
-	PROCEDURE ^ Time*(context: Commands.Context); 
-	PROCEDURE ^ ShowFile*(context: Commands.Context); 
-	PROCEDURE ^ Show*(context: Commands.Context); 
-	PROCEDURE ^ Ln*(context: Commands.Context); 
-	PROCEDURE ^ Wait*(context: Commands.Context); 
-	PROCEDURE ^ Reboot*; 
-	PROCEDURE ^ PowerDown*; 
-	PROCEDURE ^ CollectGarbage*(context: Commands.Context); 
-	PROCEDURE ^ Version*(context: Commands.Context); 
-BEGIN
-END SystemTools.

Linux64/bin/BootShell.SymUu

@@ -1,121 +0,0 @@
-MODULE BootShell;
-	IMPORT SYSTEM, KernelLog, Machine, Modules, Streams, Commands, Inputs, Strings, Locks;
-CONST 
-	Version = \"A2 Bootshell v1.0"\; 
-	LineWidth = 80; 
-	TraceHeight = 25; 
-	TraceBase = 753664; 
-	BufferHeight = 2048; 
-	BufferSize = (BufferHeight * LineWidth); 
-	TAB = 9X; 
-	CR = 0DX; 
-	LF = 0AX; 
-	SPACE = \" "\; 
-	Mode_Insert = 0; 
-	Mode_Overwrite = 1; 
-	Black = 0; 
-	Blue = 1; 
-	Green = 2; 
-	Cyan = 3; 
-	Red = 4; 
-	Magenta = 5; 
-	Brown = 6; 
-	White = 7; 
-	Gray = 8; 
-	LightBlue = 9; 
-	LightGreen = 10; 
-	LightCyan = 11; 
-	LightRed = 12; 
-	LightMagenta = 13; 
-	Yellow = 14; 
-	BrightWhite = 15; 
-TYPE 
-	CommandsString = POINTER TO RECORD 
-		prev, next: CommandsString; 
-		string: Strings.String; 
-	END; 
-
-	CommandHistoryObject = OBJECT 
-	VAR 
-		first, current: CommandsString; 
-
-		PROCEDURE ^ GetNextCommand(): Strings.String; 
-		PROCEDURE ^ GetPreviousCommand(): Strings.String; 
-		PROCEDURE ^ AddCommand(string: Strings.String); 
-		PROCEDURE ^  & Init*; 
-	END CommandHistoryObject; 
-
-	Character = RECORD 
-		ch: CHAR; 
-		color: SHORTINT; 
-	END; 
-
-	Line = ARRAY LineWidth OF Character; 
-
-	TextBuffer = OBJECT 
-	VAR 
-		defaultColor: SHORTINT; 
-		currentColor: SHORTINT; 
-		lines: ARRAY BufferHeight OF Line; 
-		firstLine, lastLine: LONGINT; 
-		firstLineShown: LONGINT; 
-		editStartPosition, editEndPosition: LONGINT; 
-		cursorPosition: LONGINT; 
-		mode: LONGINT; 
-		lock: Locks.RecursiveLock; 
-
-		PROCEDURE ^  & Init*; 
-		PROCEDURE ^ Clear; 
-		PROCEDURE ^ SetColor(foreground, background: SHORTINT); 
-		PROCEDURE ^ SetEditStart; 
-		PROCEDURE ^ Send(CONST data: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT); 
-		PROCEDURE ^ String(CONST string: ARRAY OF CHAR); 
-		PROCEDURE ^ Char(ch: CHAR); 
-		PROCEDURE ^ CheckVisibility; 
-		PROCEDURE ^ NextLine; 
-		PROCEDURE ^ MoveCharactersToRight; 
-		PROCEDURE ^ MoveCharactersToLeft; 
-		PROCEDURE ^ CharInternal(ch: CHAR); 
-		PROCEDURE ^ DeleteCurrentLine; 
-		PROCEDURE ^ GetCurrentLine(): Strings.String; 
-		PROCEDURE ^ Home; 
-		PROCEDURE ^ End; 
-		PROCEDURE ^ Backspace; 
-		PROCEDURE ^ Delete; 
-		PROCEDURE ^ ScrollUp(nofLines: LONGINT); 
-		PROCEDURE ^ ScrollDown(nofLines: LONGINT); 
-		PROCEDURE ^ CursorLeft; 
-		PROCEDURE ^ CursorRight; 
-		PROCEDURE ^ Dump(out: Streams.Writer); 
-	END TextBuffer; 
-
-	Shell = OBJECT (Inputs.Sink)
-	VAR 
-		textBuffer: TextBuffer; 
-		history: CommandHistoryObject; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Handle*(VAR msg: Inputs.Message); 
-		PROCEDURE ^ CommandHistory(next: BOOLEAN); 
-		PROCEDURE ^ Prompt; 
-		PROCEDURE ^ Execute; 
-		PROCEDURE ^ Quit; 
-	END Shell; 
-VAR 
-	shell: Shell; 
-
-	PROCEDURE ^ Subtract(position, value, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ Add(position, value, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ Difference(end, start, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ ClearLine(VAR line: Line; from, to: LONGINT; color: SHORTINT); 
-	PROCEDURE ^ IsWhitespace(ch: CHAR): BOOLEAN; 
-	PROCEDURE ^ Min(a, b: LONGINT): LONGINT; 
-	PROCEDURE ^ Invalidate(textBuffer: TextBuffer); 
-	PROCEDURE ^ Open*; 
-	PROCEDURE ^ Close*; 
-	PROCEDURE ^ Dump*(context: Commands.Context); 
-	PROCEDURE ^ UpdateCursor(textBuffer: TextBuffer); 
-	PROCEDURE ^ Cleanup; 
-	PROCEDURE ^ Init; 
-BEGIN
-END BootShell.

Linux64/bin/FoxBinaryObjectFile.SymUu

@@ -1,97 +0,0 @@
-MODULE FoxBinaryObjectFile;
-	IMPORT Scanner := FoxScanner, Basic := FoxBasic, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, SemanticChecker := FoxSemanticChecker, FingerPrinter := FoxFingerPrinter, Sections := FoxSections, Streams, D := Debugging, Files, SYSTEM, Strings, BinaryCode := FoxBinaryCode, Log := KernelLog, Diagnostics, SymbolFileFormat := FoxBinarySymbolFile, Options, Formats := FoxFormats, IntermediateCode := FoxIntermediateCode, Machine;
-CONST 
-	ofFileTag = 0BBX; 
-	ofNoZeroCompress = 0ADX; 
-	ofFileVersion = SymbolFileFormat.FileVersionCurrent; 
-	ofEUEnd = 0X; 
-	ofEURecord = 1X; 
-	ofEUProcFlag = LONGINT(2147483648); 
-	DefaultNofSysCalls = 12; 
-	NewRec = 0; 
-	NewArr = 1; 
-	NewSys = 2; 
-	CaseTable = 3; 
-	ProcAddr = 4; 
-	Lock = 5; 
-	Unlock = 6; 
-	Start = 7; 
-	Await = 8; 
-	InterfaceLookup = 9; 
-	RegisterInterface = 10; 
-	GetProcedure = 11; 
-	Trace = FALSE; 
-TYPE 
-	Name = ARRAY 256 OF CHAR; 
-
-	ByteArray = POINTER TO ARRAY OF CHAR; 
-
-	ObjectFileFormat* = OBJECT (Formats.ObjectFileFormat)
-
-		PROCEDURE ^  & InitObjectFileFormat; 
-		PROCEDURE ^ Export*(module: Formats.GeneratedModule; symbolFileFormat: Formats.SymbolFileFormat): BOOLEAN; 
-		PROCEDURE ^ DefineOptions*(options: Options.Options); 
-		PROCEDURE ^ GetOptions*(options: Options.Options); 
-		PROCEDURE ^ DefaultSymbolFileFormat*(): Formats.SymbolFileFormat; 
-		PROCEDURE ^ ForceModuleBodies*(): BOOLEAN; 
-	END ObjectFileFormat; 
-
-	Fixup = OBJECT 
-	VAR 
-		nextFixup: Fixup; 
-		fixup: BinaryCode.Fixup; 
-		fixupSection: Sections.Section; 
-	END Fixup; 
-
-	Section = OBJECT 
-	VAR 
-		name: Basic.SegmentedName; 
-		symbol: SyntaxTree.Symbol; 
-		entryNumber: LONGINT; 
-		offset: LONGINT; 
-		fixups: Fixup; 
-		numberFixups: LONGINT; 
-		type: LONGINT; 
-		resolved: BinaryCode.Section; 
-		isCaseTable: BOOLEAN; 
-		referenced: BOOLEAN; 
-
-		PROCEDURE ^ SetEntryNumber(num: LONGINT); 
-		PROCEDURE ^ SetSymbol(s: SyntaxTree.Symbol); 
-		PROCEDURE ^  & Init(CONST name: Basic.SegmentedName); 
-		PROCEDURE ^ AddFixup(fixup: BinaryCode.Fixup; fixupSection: Sections.Section); 
-		PROCEDURE ^ Dump(w: Streams.Writer); 
-	END Section; 
-
-	SectionNameLookup = OBJECT (Basic.HashTableSegmentedName)
-
-		PROCEDURE ^ GetSection(CONST name: Basic.SegmentedName): Section; 
-		PROCEDURE ^ PutSection(CONST name: Basic.SegmentedName; section: Section); 
-	END SectionNameLookup; 
-
-	SymbolLookup = OBJECT (Basic.HashTable)
-
-		PROCEDURE ^ GetSection(s: SyntaxTree.Symbol): Section; 
-		PROCEDURE ^ PutSection(symbol: SyntaxTree.Symbol; section: Section); 
-	END SymbolLookup; 
-
-	SectionList = OBJECT (Basic.List)
-	VAR 
-		lookup: SectionNameLookup; 
-		symbolLookup: SymbolLookup; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ AddSection(name: Basic.SegmentedName): Section; 
-		PROCEDURE ^ BySymbol(symbol: SyntaxTree.Symbol): Section; 
-		PROCEDURE ^ GetSection(i: LONGINT): Section; 
-		PROCEDURE ^ Dump(w: Streams.Writer); 
-	END SectionList; 
-VAR 
-	SysCallMap: ARRAY DefaultNofSysCalls OF CHAR; 
-
-	PROCEDURE ^ FindPC(pc: LONGINT; module: Sections.Module; diagnostics: Diagnostics.Diagnostics): BOOLEAN; 
-	PROCEDURE ^ MakeSectionOffsets(module: Sections.Module; VAR constSize, varSize, codeSize, caseTableSize: LONGINT; VAR const, code: ByteArray); 
-	PROCEDURE ^ WriteObjectFile*(w: Streams.Writer; module: Sections.Module; symbolFile: Files.File); 
-	PROCEDURE ^ Get*(): Formats.ObjectFileFormat; 
-BEGIN
-END FoxBinaryObjectFile.

Linux64/bin/FoxBinarySymbolFile.SymUu

@@ -1,192 +0,0 @@
-MODULE FoxBinarySymbolFile;
-	IMPORT Basic := FoxBasic, Scanner := FoxScanner, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Files, Streams, Kernel, SYSTEM, D := Debugging, Diagnostics, Options, Formats := FoxFormats, InterfaceComparison := FoxInterfaceComparison, Commands, Printout := FoxPrintout, SemanticChecker := FoxSemanticChecker, Machine;
-CONST 
-	TraceImport = 0; 
-	TraceExport = 1; 
-	Trace = {}; 
-	sfTypeBoolean = 1; 
-	sfTypeChar8 = 2; 
-	sfTypeChar16 = 3; 
-	sfTypeChar32 = 4; 
-	sfTypeShortint = 5; 
-	sfTypeInteger = 6; 
-	sfTypeLongint = 7; 
-	sfTypeHugeint = 8; 
-	sfTypeReal = 9; 
-	sfTypeLongreal = 10; 
-	sfTypeSet = 11; 
-	sfTypeString = 12; 
-	sfTypeNoType = 13; 
-	sfTypeNilType = 14; 
-	sfTypeByte = 15; 
-	sfTypeAny = 16; 
-	sfTypeObject = 17; 
-	sfTypeAddress = 18; 
-	sfTypeSize = 19; 
-	sfTypeUnsigned8 = 20; 
-	sfTypeUnsigned16 = 21; 
-	sfTypeUnsigned32 = 22; 
-	sfTypeUnsigned64 = 23; 
-	sfLastType = 23; 
-	sfMod1 = (sfLastType + 1); 
-	sfModOther = 45; 
-	sfTypeOpenArray = 46; 
-	sfTypeStaticArray = 48; 
-	sfTypePointer = 49; 
-	sfTypeRecord = 50; 
-	sfTypeProcedure = 51; 
-	sfSysFlag = 52; 
-	sfInvisible = 53; 
-	sfHidden = 172; 
-	sfReadOnly = 54; 
-	sfObjFlag = 55; 
-	sfConst = 55; 
-	sfVar = 56; 
-	sfTypeEnumeration = 57; 
-	sfXProcedure = 58; 
-	sfOperator = 59; 
-	sfTProcedure = 60; 
-	sfCProcedure = sfTProcedure; 
-	sfAlias = 61; 
-	sfType = 62; 
-	sfEnd = 63; 
-	sfTypeOpenMathArray = 64; 
-	sfTypeTensor = 66; 
-	sfTypeStaticMathArray = 67; 
-	sfTypeAll = 68; 
-	sfTypeRange = 69; 
-	sfTypeComplex = 70; 
-	sfTypeLongcomplex = 71; 
-	sfInline = 171; 
-	sfProtected = 0; 
-	sfActive = 1; 
-	sfSafe = 2; 
-	sfClass = 16; 
-	sfDelegate = 5; 
-	sfUntraced = 4; 
-	sfWinAPIParam = 13; 
-	sfCParam = 14; 
-	sfDarwinCParam = 15; 
-	sfRealtime = 21; 
-	sfDynamic = 22; 
-	sfUnsafe = 23; 
-	sfDisposable = 24; 
-	sfFictive = 25; 
-	Undef = MIN(LONGINT); 
-	FileTag = 0BBX; 
-	NoZeroCompress = 0ADX; 
-	FileVersion* = 0B1X; 
-	FileVersionOC* = 0B2X; 
-	FileVersionCurrent* = 0B4X; 
-TYPE 
-	TypeReference = OBJECT (SyntaxTree.Type)
-	VAR 
-		nr: LONGINT; 
-
-		PROCEDURE ^  & InitTypeReference(nr: LONGINT); 
-	END TypeReference; 
-
-	IndexToType = OBJECT (Basic.List)
-
-		PROCEDURE ^ PutType(nr: LONGINT; type: SyntaxTree.Type); 
-		PROCEDURE ^ GetType(nr: LONGINT): SyntaxTree.Type; 
-	END IndexToType; 
-
-	LateFix = POINTER TO RECORD 
-		p: ANY; 
-		next: LateFix; 
-	END; 
-
-	LateFixList = OBJECT 
-	VAR 
-		first, last: LateFix; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Get(): ANY; 
-		PROCEDURE ^ Add(p: ANY); 
-	END LateFixList; 
-
-	Resolver = OBJECT (SyntaxTree.Visitor)
-	VAR 
-		typeList: IndexToType; 
-		system: Global.System; 
-		typeFixes: LateFixList; 
-		checker: SemanticChecker.Checker; 
-
-		PROCEDURE ^  & Init(system: Global.System; symbolFile: BinarySymbolFile; importCache: SyntaxTree.ModuleScope); 
-		PROCEDURE ^ VisitType*(x: SyntaxTree.Type); 
-		PROCEDURE ^ VisitBasicType*(x: SyntaxTree.BasicType); 
-		PROCEDURE ^ VisitByteType*(x: SyntaxTree.ByteType); 
-		PROCEDURE ^ VisitBooleanType*(x: SyntaxTree.BooleanType); 
-		PROCEDURE ^ VisitSetType*(x: SyntaxTree.SetType); 
-		PROCEDURE ^ VisitAddressType*(x: SyntaxTree.AddressType); 
-		PROCEDURE ^ VisitSizeType*(x: SyntaxTree.SizeType); 
-		PROCEDURE ^ VisitAnyType*(x: SyntaxTree.AnyType); 
-		PROCEDURE ^ VisitObjectType*(x: SyntaxTree.ObjectType); 
-		PROCEDURE ^ VisitNilType*(x: SyntaxTree.NilType); 
-		PROCEDURE ^ VisitCharacterType*(x: SyntaxTree.CharacterType); 
-		PROCEDURE ^ VisitIntegerType*(x: SyntaxTree.IntegerType); 
-		PROCEDURE ^ VisitFloatType*(x: SyntaxTree.FloatType); 
-		PROCEDURE ^ VisitComplexType*(x: SyntaxTree.ComplexType); 
-		PROCEDURE ^ VisitQualifiedType*(x: SyntaxTree.QualifiedType); 
-		PROCEDURE ^ VisitStringType*(x: SyntaxTree.StringType); 
-		PROCEDURE ^ VisitRangeType*(x: SyntaxTree.RangeType); 
-		PROCEDURE ^ CheckEnumerationScope(x: SyntaxTree.EnumerationScope); 
-		PROCEDURE ^ VisitEnumerationType*(x: SyntaxTree.EnumerationType); 
-		PROCEDURE ^ VisitArrayType*(arrayType: SyntaxTree.ArrayType); 
-		PROCEDURE ^ VisitMathArrayType*(arrayType: SyntaxTree.MathArrayType); 
-		PROCEDURE ^ VisitPointerType*(pointerType: SyntaxTree.PointerType); 
-		PROCEDURE ^ FixPointerType(pointerType: SyntaxTree.PointerType); 
-		PROCEDURE ^ VisitRecordType*(recordType: SyntaxTree.RecordType); 
-		PROCEDURE ^ VisitProcedureType*(procedureType: SyntaxTree.ProcedureType); 
-		PROCEDURE ^ FixProcedureType(procedureType: SyntaxTree.ProcedureType); 
-		PROCEDURE ^ ResolveType(type: SyntaxTree.Type): SyntaxTree.Type; 
-		PROCEDURE ^ FixTypes; 
-		PROCEDURE ^ Scope(scope: SyntaxTree.Scope); 
-		PROCEDURE ^ Resolve(module: SyntaxTree.Module; typeList: IndexToType); 
-	END Resolver; 
-
-	Index = POINTER TO RECORD 
-		tag: LONGINT; 
-	END; 
-
-	TypeToIndex = OBJECT (Basic.HashTable)
-
-		PROCEDURE ^ GetIndex(type: SyntaxTree.Type): LONGINT; 
-		PROCEDURE ^ PutIndex(type: SyntaxTree.Type; nr: LONGINT); 
-	END TypeToIndex; 
-
-	Attribute = OBJECT 
-	VAR 
-		numberTypes: LONGINT; 
-		indexToType: IndexToType; 
-		typeToIndex: TypeToIndex; 
-
-		PROCEDURE ^  & Init; 
-	END Attribute; 
-
-	IndexToAttribute = OBJECT (Basic.List)
-
-		PROCEDURE ^ PutAttribute(nr: LONGINT; attribute: Attribute); 
-		PROCEDURE ^ GetAttribute(nr: LONGINT): Attribute; 
-	END IndexToAttribute; 
-
-	BinarySymbolFile* = OBJECT (Formats.SymbolFileFormat)
-	VAR 
-		file-: Files.File; 
-		extension-: Basic.FileName; 
-		noRedefinition, noModification, noInterfaceCheck: BOOLEAN; 
-		version: CHAR; 
-
-		PROCEDURE ^ Import*(CONST moduleName: ARRAY OF CHAR; importCache: SyntaxTree.ModuleScope): SyntaxTree.Module; 
-		PROCEDURE ^ Export*(module: SyntaxTree.Module; importCache: SyntaxTree.ModuleScope): BOOLEAN; 
-		PROCEDURE ^ DefineOptions*(options: Options.Options); 
-		PROCEDURE ^ GetOptions*(options: Options.Options); 
-	END BinarySymbolFile; 
-
-	PROCEDURE ^ MakeFileName(VAR file: ARRAY OF CHAR; CONST name, prefix, suffix: ARRAY OF CHAR); 
-	PROCEDURE ^ OpenSymFile(CONST name, prefix, suffix: ARRAY OF CHAR; VAR r: Streams.Reader; VAR version: CHAR): BOOLEAN; 
-	PROCEDURE ^ Get*(): Formats.SymbolFileFormat; 
-	PROCEDURE ^ Test*(context: Commands.Context); 
-BEGIN
-END FoxBinarySymbolFile.

Linux64/bin/GenericLoader.SymUu

@@ -1,109 +0,0 @@
-MODULE GenericLoader;
-	IMPORT SYSTEM, KernelLog, Modules, Streams, Files, D := KernelLog, GenericLinker, ObjectFile, Diagnostics, Strings, StringPool, Trace, Machine;
-CONST 
-	Ok = 0; 
-	LinkerError = 3400; 
-	FileNotFound = 3401; 
-	CommandTrapped* = 3904; 
-	SupportOldObjectFileFormat = FALSE; 
-	TraceLoading = FALSE; 
-TYPE 
-	HashEntryIntInt = RECORD 
-		key, value: SIZE; 
-	END; 
-
-	HashIntArray = POINTER TO ARRAY OF HashEntryIntInt; 
-
-	HashEntryIntAny = RECORD 
-		key: SIZE; 
-		value: ANY; 
-	END; 
-
-	HashIntAnyArray = POINTER TO ARRAY OF HashEntryIntAny; 
-
-	HashTableInt = OBJECT 
-	VAR 
-		table: HashIntArray; 
-		size: LONGINT; 
-		used-: LONGINT; 
-		maxLoadFactor: REAL; 
-
-		PROCEDURE ^  & Init*(initialSize: LONGINT); 
-		PROCEDURE ^ Put*(key: SIZE; value: SIZE); 
-		PROCEDURE ^ Get*(key: SIZE): SIZE; 
-		PROCEDURE ^ Has*(key: SIZE): BOOLEAN; 
-		PROCEDURE ^ Length*(): LONGINT; 
-		PROCEDURE ^ Clear*; 
-		PROCEDURE ^ HashValue(key: SIZE): SIZE; 
-		PROCEDURE ^ Grow; 
-	END HashTableInt; 
-
-	HashTableIntAny* = OBJECT 
-	VAR 
-		table: HashIntAnyArray; 
-		size: LONGINT; 
-		used-: LONGINT; 
-		maxLoadFactor: REAL; 
-
-		PROCEDURE ^  & Init*(initialSize: LONGINT); 
-		PROCEDURE ^ Put*(key: SIZE; value: ANY); 
-		PROCEDURE ^ Get*(key: LONGINT): ANY; 
-		PROCEDURE ^ Has*(key: LONGINT): BOOLEAN; 
-		PROCEDURE ^ Length*(): LONGINT; 
-		PROCEDURE ^ Clear*; 
-		PROCEDURE ^ HashValue(key: SIZE): SIZE; 
-		PROCEDURE ^ Grow; 
-	END HashTableIntAny; 
-
-	Data = RECORD 
-		size, pos: LONGINT; 
-		bytes: Modules.Bytes; 
-		firstAddress: ADDRESS; 
-	END; 
-
-	Arrangement* = OBJECT (GenericLinker.Arrangement)
-	VAR 
-		code, data: Data; 
-		hasBody: BOOLEAN; 
-		bodyAddress: ADDRESS; 
-
-		PROCEDURE ^  & InitArrangement; 
-		PROCEDURE ^ Preallocate*(CONST section: ObjectFile.Section); 
-		PROCEDURE ^ Allocate*(CONST section: ObjectFile.Section): GenericLinker.Address; 
-		PROCEDURE ^ Patch*(pos, value: GenericLinker.Address; offset, bits, unit: ObjectFile.Bits); 
-	END Arrangement; 
-
-	ModuleList = OBJECT {EXCLUSIVE} 
-	VAR 
-		hash: HashTableIntAny; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ ThisModule(module: Modules.Module): HashTableInt; 
-	END ModuleList; 
-
-	Linker = OBJECT (GenericLinker.Linker)
-	VAR 
-		moduleName: ObjectFile.SegmentedName; 
-		importBlock: GenericLinker.Block; 
-		hash: HashTableIntAny; 
-		moduleBlock: GenericLinker.Block; 
-
-		PROCEDURE ^  & InitLinkerX*(diagnostics: Diagnostics.Diagnostics; log: Streams.Writer; code, data: GenericLinker.Arrangement; CONST name: ARRAY OF CHAR); 
-		PROCEDURE ^ FindBlock*(CONST identifier: ObjectFile.Identifier): GenericLinker.Block; 
-		PROCEDURE ^ ExportBlock*(block: GenericLinker.Block); 
-		PROCEDURE ^ ImportBlock*(CONST fixup: ObjectFile.Fixup): GenericLinker.Block; 
-	END Linker; 
-VAR 
-	moduleList: ModuleList; 
-	testTypeDescs: Modules.Bytes; 
-	InternalModuleName: StringPool.Index; 
-
-	PROCEDURE ^ InitData(VAR data: Data); 
-	PROCEDURE ^ IsPrefix(CONST prefix, of: ObjectFile.SegmentedName): BOOLEAN; 
-	PROCEDURE ^ DoPreallocate(CONST section: ObjectFile.Section; VAR data: Data); 
-	PROCEDURE ^ DoAllocate(CONST section: ObjectFile.Section; VAR data: Data): ADDRESS; 
-	PROCEDURE ^ LoadObj*(CONST name, fileName: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): Modules.Module; 
-	PROCEDURE ^ Install*; 
-	PROCEDURE ^ Remove*; 
-BEGIN
-END GenericLoader.

Linux64/bin/Linker0.SymUu

@@ -1,312 +0,0 @@
-MODULE Linker0;
-	IMPORT SYSTEM, Streams, Files, KernelLog;
-CONST 
-	DefaultExtension = \".Obx"\; 
-	HeapSize = (1024 * 1024); 
-	AddressSize = SIZEOF(ADDRESS); 
-	LenOfs = (3 * AddressSize); 
-	Unmarked = 0; 
-	MemBlockDescModule = \"Machine"\; 
-	MemBlockDescType = \"MemoryBlockDesc"\; 
-	ModDescModule = \"Modules"\; 
-	ModDescType = \"Module"\; 
-	TypeDescModule = \"Modules"\; 
-	TypeDescType = \"TypeDesc"\; 
-	HdPtrDescModule = \"Loader"\; 
-	HdPtrDescType = \"@HdPtrDesc"\; 
-	ExportDescModule = \"Modules"\; 
-	ExportDescType = \"ExportDesc"\; 
-	InitPtrModule = \"Modules"\; 
-	InitPtrName = \"initBlock"\; 
-	ModRootModule = \"Modules"\; 
-	ModRootName = \"root"\; 
-	ProcOffsetsName = \"procOffsets"\; 
-	NumProcsName = \"numProcs"\; 
-	PtrOffsetsName = \"ptrOffsets"\; 
-	NumPtrsName = \"numPtrs"\; 
-	HeapModule = \"Heaps"\; 
-	FreeBlockDescType = \"FreeBlockDesc"\; 
-	SystemBlockDescType = \"SystemBlockDesc"\; 
-	RecordBlockDescType = \"RecordBlockDesc"\; 
-	ProtRecBlockDescType = \"ProtRecBlockDesc"\; 
-	ArrayBlockDescType = \"ArrayBlockDesc"\; 
-	FreeBlockTagPtrName = \"freeBlockTagPtr"\; 
-	SystemBlockTagPtrName = \"systemBlockTagPtr"\; 
-	RecordBlockTagPtrName = \"recordBlockTagPtr"\; 
-	ProtRecBlockTagPtrName = \"protRecBlockTagPtr"\; 
-	ArrayBlockTagPtrName = \"arrayBlockTagPtr"\; 
-	CurrentMarkValueName = \"currentMarkValue"\; 
-	StartModule = \"Objects"\; 
-	StartCommand = \"Terminate"\; 
-	MainModule = \"BootConsole"\; 
-	FreeBlockId = 0; 
-	SystemBlockId = 1; 
-	RecordBlockId = 2; 
-	ProtRecBlockId = 3; 
-	ArrayBlockId = 4; 
-	ProtectedModule = TRUE; 
-	TraceDump = FALSE; 
-	TraceRefs = (TRUE & TraceDump); 
-	TraceDuplicates = (FALSE & TraceDump); 
-	LogName = \"Linker.Log"\; 
-	HeaderSize = 64; 
-	EndBlockOfs = 56; 
-	NumPriorities* = 6; 
-	MaxTags* = 16; 
-	Tag0Ofs* =  -(2 * AddressSize); 
-	Mth0Ofs* = (Tag0Ofs - (AddressSize * MaxTags)); 
-	Ptr0Ofs* = AddressSize; 
-	ProtTypeBit* = 31; 
-	BlockSize = 32; 
-	ArrayAlignment = 8; 
-	BlockHeaderSize = (2 * AddressSize); 
-	HeapBlockOffset =  -(2 * AddressSize); 
-	TypeDescOffset =  -AddressSize; 
-	MinPtrOfs =  -1073741824; 
-	MethodEndMarker* = MinPtrOfs; 
-	InitTableLen = (2048 + 256); 
-	InitPtrTableLen = 2048; 
-	TypeDescRecSize* = ((5 * AddressSize) + 32); 
-	NilVal* = 0; 
-TYPE 
-	AdrTable = POINTER TO ARRAY OF ADDRESS; 
-
-	RootObject* = OBJECT 
-	VAR 
-		nextRoot: RootObject; 
-
-		PROCEDURE ^ FindRoots*; 
-	END RootObject; 
-
-	ProcessLink* = OBJECT (RootObject)
-	VAR 
-		next*, prev*: ProcessLink; 
-	END ProcessLink; 
-
-	ProcessQueue* = RECORD 
-		head*, tail*: ProcessLink; 
-	END; 
-
-	MemoryBlock = POINTER TO MemoryBlockDesc; 
-
-	MemoryBlockDesc = RECORD 
-		next{UNTRACED} : MemoryBlock; 
-		startAdr: ADDRESS; 
-		size: SIZE; 
-		beginBlockAdr, endBlockAdr: ADDRESS; 
-	END; 
-
-	HeapBlock = POINTER TO HeapBlockDesc; 
-
-	HeapBlockDesc = RECORD 
-		mark: LONGINT; 
-		dataAdr: ADDRESS; 
-		size: SIZE; 
-		nextRealtime: HeapBlock; 
-	END; 
-
-	FreeBlock = POINTER TO FreeBlockDesc; 
-
-	FreeBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	SystemBlock = POINTER TO SystemBlockDesc; 
-
-	SystemBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	RecordBlock = POINTER TO RecordBlockDesc; 
-
-	RecordBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	ProtRecBlock* = POINTER TO ProtRecBlockDesc; 
-
-	ProtRecBlockDesc* = RECORD (RecordBlockDesc)
-		count*: LONGINT; 
-		locked*: BOOLEAN; 
-		awaitingLock*: ProcessQueue; 
-		awaitingCond*: ProcessQueue; 
-		lockedBy*: ANY; 
-		lock*: ANY; 
-		waitingPriorities*: ARRAY NumPriorities OF LONGINT; 
-	END; 
-
-	ArrayBlock = POINTER TO ArrayBlockDesc; 
-
-	ArrayBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	StaticTypeBlock* = POINTER TO StaticTypeDesc; 
-
-	StaticTypeDesc* = RECORD 
-		recSize: SIZE; 
-		pointerOffsets*{UNTRACED} : PointerOffsets; 
-	END; 
-
-	PointerOffsets = POINTER TO ARRAY OF SIZE; 
-
-	Name* = ARRAY 32 OF CHAR; 
-
-	CommandProc* = PROCEDURE ; 
-
-	CommandParProc* = PROCEDURE (par: ANY):ANY; 
-
-	Command* = RECORD 
-		name*: Name; 
-		argTdAdr*, retTdAdr*: ADDRESS; 
-		entryAdr*: ADDRESS; 
-	END; 
-
-	ExportDesc* = RECORD 
-		fp*: ADDRESS; 
-		adr*: ADDRESS; 
-		exports*: LONGINT; 
-		dsc*: ExportArray; 
-	END; 
-
-	ExportArray* = POINTER TO ARRAY OF ExportDesc; 
-
-	Bytes* = POINTER TO ARRAY OF CHAR; 
-
-	TerminationHandler* = PROCEDURE ; 
-
-	ExceptionTableEntry* = RECORD 
-		pcFrom*: ADDRESS; 
-		pcTo*: ADDRESS; 
-		pcHandler*: ADDRESS; 
-	END; 
-
-	ExceptionTable* = POINTER TO ARRAY OF ExceptionTableEntry; 
-
-	ProcTableEntry* = RECORD 
-		pcFrom*, pcLimit*, pcStatementBegin*, pcStatementEnd*: ADDRESS; 
-		noPtr*: LONGINT; 
-	END; 
-
-	ProcTable* = POINTER TO ARRAY OF ProcTableEntry; 
-
-	PtrTable* = POINTER TO ARRAY OF SIZE; 
-
-	ProcOffsetEntry* = RECORD 
-		data*: ProcTableEntry; 
-		startIndex: LONGINT; 
-	END; 
-
-	ProcOffsetTable* = POINTER TO ARRAY OF ProcOffsetEntry; 
-
-	Module* = OBJECT (RootObject)
-	VAR 
-		next*: Module; 
-		name*: Name; 
-		init, published: BOOLEAN; 
-		refcnt*: LONGINT; 
-		sb*: ADDRESS; 
-		entry*: POINTER TO ARRAY OF ADDRESS; 
-		command*: POINTER TO ARRAY OF Command; 
-		ptrAdr*: POINTER TO ARRAY OF ADDRESS; 
-		typeInfo*: POINTER TO ARRAY OF TypeDesc; 
-		module*: POINTER TO ARRAY OF Module; 
-		procTable*: ProcTable; 
-		ptrTable*: PtrTable; 
-		data*, code*, staticTypeDescs*, refs*: Bytes; 
-		export*: ExportDesc; 
-		term*: TerminationHandler; 
-		exTable*: ExceptionTable; 
-		noProcs*: LONGINT; 
-		firstProc*: ADDRESS; 
-		maxPtrs*: LONGINT; 
-		crc*: LONGINT; 
-	END Module; 
-
-	TypeDesc* = POINTER TO RECORD 
-		descSize: LONGINT; 
-		sentinel: LONGINT; 
-		tag*: ADDRESS; 
-		flags*: SET; 
-		mod*: Module; 
-		name*: Name; 
-	END; 
-VAR 
-	logWriter: Streams.Writer; 
-	logFile: Files.File; 
-	root-: ADDRESS; 
-	procOffsets{UNTRACED} : ProcOffsetTable; 
-	numProcs: LONGINT; 
-	ptrOffsets{UNTRACED} : PtrTable; 
-	numPtrs: LONGINT; 
-	heap-: ANY; 
-	memBlock{UNTRACED} : MemoryBlock; 
-	beginMemBlockAdr, endMemBlockAdr: ADDRESS; 
-	beginAdr, freeAdr, baseAdr: ADDRESS; 
-	heapOfs: SIZE; 
-	exportTags, relocates: LONGINT; 
-	exportTagAdr: AdrTable; 
-	relocateAdr: AdrTable; 
-	curRelocate: LONGINT; 
-	refsMissed: LONGINT; 
-	prefix, suffix: Files.FileName; 
-	loadObj*: PROCEDURE (name, fileName: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR):Module; 
-	getProcs: ARRAY 9 OF BOOLEAN; 
-	freeBlockTag, systemBlockTag, recordBlockTag, protRecBlockTag, arrayBlockTag: ADDRESS; 
-	initBlock{UNTRACED} : ANY; 
-	currentMarkValue: LONGINT; 
-
-	PROCEDURE ^ Fill4(destAdr: ADDRESS; size: SIZE; filler: LONGINT); 
-	PROCEDURE ^ Char*(c: CHAR); 
-	PROCEDURE ^ String*(CONST s: ARRAY OF CHAR); 
-	PROCEDURE ^ Ln*; 
-	PROCEDURE ^ Int*(x, w: LONGINT); 
-	PROCEDURE ^ Hex*(x: SIZE; w: LONGINT); 
-	PROCEDURE ^ Address*(x: ADDRESS); 
-	PROCEDURE ^ Memory*(adr: ADDRESS; size: SIZE); 
-	PROCEDURE ^ Bits*(x: SET; ofs, n: LONGINT); 
-	PROCEDURE ^ Enter*; 
-	PROCEDURE ^ Exit*; 
-	PROCEDURE ^ InitFreeBlock(freeBlock: FreeBlock; mark: LONGINT; dataAdr: ADDRESS; size: SIZE); 
-	PROCEDURE ^ NewBlock(size: SIZE): ADDRESS; 
-	PROCEDURE ^ NewSys*(VAR p: ANY; size: SIZE); 
-	PROCEDURE ^ NewRealArr*(VAR p: ANY; numElems, elemSize: SIZE; numDims: LONGINT); 
-	PROCEDURE ^ NewTypeDesc*(VAR p: ANY; recSize: SIZE); 
-	PROCEDURE ^ FillStaticType*(VAR staticTypeAddr: ADDRESS; startAddr, typeInfoAdr: ADDRESS; size, recSize: SIZE; numPtrs, numSlots: LONGINT); 
-	PROCEDURE ^ Append*(CONST from: ARRAY OF CHAR; VAR to: ARRAY OF CHAR); 
-	PROCEDURE ^ Publish(VAR m: Module; VAR new: BOOLEAN); 
-	PROCEDURE ^ ModuleByName(CONST name: ARRAY OF CHAR): Module; 
-	PROCEDURE ^ GetFileName(CONST name: ARRAY OF CHAR; VAR fileName: ARRAY OF CHAR); 
-	PROCEDURE ^ ThisModule*(CONST name: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): Module; 
-	PROCEDURE ^ ThisType*(m: Module; CONST name: ARRAY OF CHAR): TypeDesc; 
-	PROCEDURE ^ WriteType(t: ADDRESS); 
-	PROCEDURE ^ FindInsertionPos(VAR entry: ProcTableEntry; VAR pos: LONGINT): BOOLEAN; 
-	PROCEDURE ^ NumTotalPtrs(procTable: ProcTable): LONGINT; 
-	PROCEDURE ^ InsertProcOffsets*(procTable: ProcTable; ptrTable: PtrTable; maxPtr: LONGINT); 
-	PROCEDURE ^ GrowTable(VAR table: AdrTable); 
-	PROCEDURE ^ Relocate*(adr: ADDRESS); 
-	PROCEDURE ^ Open*(CONST namePrefix, nameSuffix: ARRAY OF CHAR; base: ADDRESS; log: Streams.Writer); 
-	PROCEDURE ^ RelocateModules; 
-	PROCEDURE ^ RelocateArrayFields(tagAdr: ADDRESS); 
-	PROCEDURE ^ RelocateExports; 
-	PROCEDURE ^ RelocateProcOffsets; 
-	PROCEDURE ^ FixupTypeDescTags; 
-	PROCEDURE ^ FixupHeapBlockTags; 
-	PROCEDURE ^ SortRelocates; 
-	PROCEDURE ^ GetNum(refs: Bytes; VAR i, num: LONGINT); 
-	PROCEDURE ^ VarByName(refs: Bytes; i: LONGINT; CONST name: ARRAY OF CHAR): SIZE; 
-	PROCEDURE ^ InitTable(diff: SIZE; baseAdr, loadAdr: ADDRESS); 
-	PROCEDURE ^ RootGlobals; 
-	PROCEDURE ^ ScopeInfo(diff: SIZE; baseAdr: ADDRESS; root: Module); 
-	PROCEDURE ^ CheckLinkerHeap; 
-	PROCEDURE ^ Close*(w: Files.Writer; loadAdr: ADDRESS; res: LONGINT; CONST msg: ARRAY OF CHAR; log: Streams.Writer); 
-	PROCEDURE ^ NewModule*(VAR m: Module); 
-	PROCEDURE ^ NewExportDesc*(VAR p: ExportArray; numElems: LONGINT); 
-	PROCEDURE ^ ArraySize*(numElems, elemSize: SIZE; numDims: LONGINT): SIZE; 
-	PROCEDURE ^ NewProcOffsets(VAR p: ProcOffsetTable; numElems: LONGINT); 
-	PROCEDURE ^ NewPtrOffsets(VAR p: PtrTable; numElems: LONGINT); 
-	PROCEDURE ^ FitMemoryBlock(startAdr: ADDRESS; size: SIZE; VAR memBlock: MemoryBlock); 
-	PROCEDURE ^ RelocateMemoryBlock; 
-	PROCEDURE ^ InitHeap; 
-	PROCEDURE ^ ProcByName(refs: Bytes; CONST name: ARRAY OF CHAR): SIZE; 
-	PROCEDURE ^ GetProc(m: Module; i: LONGINT; CONST mod, proc: ARRAY OF CHAR): ADDRESS; 
-	PROCEDURE ^ GetKernelProc*(m: Module; num: LONGINT): ADDRESS; 
-	PROCEDURE ^ WriteLog*; 
-BEGIN
-END Linker0.

Linux64/bin/Linker1.SymUu

@@ -1,76 +0,0 @@
-MODULE Linker1;
-	IMPORT SYSTEM, Streams, Files, Commands, KernelLog := Linker0, Heaps := Linker0, Modules := Linker0, Linker0;
-CONST 
-	Ok* = 0; 
-	FileNotFound = 1; 
-	TagInvalid = 2; 
-	FileCorrupt = 3; 
-	FileTooShort = 4; 
-	IncompatibleImport = 5; 
-	AddressSize = SIZEOF(ADDRESS); 
-	FileTag = 0BBX; 
-	NoZeroCompress = 0ADX; 
-	FileVersion = 0B1X; 
-	FileVersionOC = 0B2X; 
-	CurrentVersion = 0B4X; 
-	MaxStructs = 1024; 
-	EUEnd = 0; 
-	EURecord = 1; 
-	EUobjScope = 0; 
-	EUrecScope = 1; 
-	EUerrScope =  -1; 
-	EUProcFlagBit = 31; 
-	Sentinel = LONGINT(4294967295); 
-TYPE 
-	ObjHeader = RECORD 
-		entries, commands, pointers, types, modules, links, dataLinks: LONGINT; 
-		codeSize, dataSize, refSize, constSize, exTableLen, procs, maxPtrs, crc: LONGINT; 
-		staticTdSize: LONGINT; 
-		name: Modules.Name; 
-	END; 
-
-	DataLinkRec = RECORD 
-		mod: LONGINT; 
-		entry: LONGINT; 
-		fixups: LONGINT; 
-		ofs: POINTER TO ARRAY OF SIZE; 
-	END; 
-
-	LinkRec = RECORD 
-		mod: LONGINT; 
-		entry: LONGINT; 
-		link: SIZE; 
-	END; 
-
-	TypeRec = RECORD 
-		init: BOOLEAN; 
-		entry, methods, inhMethods, baseMod: LONGINT; 
-		baseEntry: ADDRESS; 
-	END; 
-VAR 
-	trace: BOOLEAN; 
-
-	PROCEDURE ^ ReadHeader(r: Streams.Reader; VAR h: ObjHeader; VAR res: LONGINT); 
-	PROCEDURE ^ ReadString8(r: Streams.Reader; VAR str: ARRAY OF CHAR); 
-	PROCEDURE ^ AllocateModule(m: Modules.Module; h: ObjHeader); 
-	PROCEDURE ^ ReadEntryBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadCommandBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadPointerBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadImportBlock(r: Streams.Reader; m: Modules.Module; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): BOOLEAN; 
-	PROCEDURE ^ ReadDataLinkBlock(r: Streams.Reader; dataLinks: LONGINT; VAR d: ARRAY OF DataLinkRec): BOOLEAN; 
-	PROCEDURE ^ ReadLinkBlock(r: Streams.Reader; links, entries: LONGINT; VAR l: ARRAY OF LinkRec; VAR f: ARRAY OF LONGINT; VAR caseTableSize: LONGINT): BOOLEAN; 
-	PROCEDURE ^ ReadConstBlock(r: Streams.Reader; m: Modules.Module; h: ObjHeader): BOOLEAN; 
-	PROCEDURE ^ ReadExportBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadCodeBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadUseBlock(r: Streams.Reader; m: Modules.Module; VAR dataLink: ARRAY OF DataLinkRec; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): BOOLEAN; 
-	PROCEDURE ^ ReadTypeBlock(r: Streams.Reader; m: Modules.Module; VAR type: ARRAY OF TypeRec): BOOLEAN; 
-	PROCEDURE ^ ReadRefBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ FixupGlobals(m: Modules.Module; VAR dataLink: ARRAY OF DataLinkRec); 
-	PROCEDURE ^ FixupLinks(m: Modules.Module; VAR link: ARRAY OF LinkRec; VAR fixupCounts: ARRAY OF LONGINT; caseTableSize: LONGINT; VAR res: LONGINT); 
-	PROCEDURE ^ FixupCommands(m: Modules.Module); 
-	PROCEDURE ^ InitType(m: Modules.Module; VAR type: ARRAY OF TypeRec; i: LONGINT); 
-	PROCEDURE ^ ReadExTableBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadPtrsInProcs(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ LoadObj*(name, fileName: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): Modules.Module; 
-BEGIN
-END Linker1.

Linux64/bin/Runtime.SymUu

@@ -1,11 +0,0 @@
-MODULE Runtime;
-	IMPORT SYSTEM;
-VAR 
-	kernelModule-: ARRAY 32 OF ADDRESS; 
-	modules-: LONGINT; 
-
-	PROCEDURE ^ InsertModule*(a: ADDRESS): BOOLEAN; 
-	PROCEDURE ^ CompareString*(CONST left, right: ARRAY OF CHAR): SHORTINT; 
-	PROCEDURE ^ CopyString*(VAR dest: ARRAY OF CHAR; CONST src: ARRAY OF CHAR); 
-BEGIN
-END Runtime.

Linux64/bin/StaticLinker.SymUu

@@ -1,85 +0,0 @@
-MODULE StaticLinker;
-	IMPORT Commands, Options, Diagnostics, Files, GenericLinker, ObjectFile, BitSets, Strings, Streams;
-CONST 
-TYPE 
-	ExportName = ARRAY 128 OF CHAR; 
-
-	PatchBlock* = POINTER TO RECORD 
-		baseAdr: LONGINT; 
-		addresses: LONGINT; 
-		address: ARRAY 1024 OF LONGINT; 
-		next: PatchBlock; 
-	END; 
-
-	RelocationInfo = OBJECT 
-	CONST 
-		blockSize = 4096; 
-	VAR 
-		patchBlock: PatchBlock; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ GetPatchBlock(adr: LONGINT): PatchBlock; 
-		PROCEDURE ^ AddReloc(adr: LONGINT); 
-	END RelocationInfo; 
-
-	ExportInfo = OBJECT 
-	VAR 
-		exports: LONGINT; 
-		name: ExportName; 
-		symbolNames: POINTER TO ARRAY OF ExportName; 
-		exportNames: POINTER TO ARRAY OF ExportName; 
-		exportAddresses: POINTER TO ARRAY OF GenericLinker.Address; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Swap(i, j: LONGINT); 
-		PROCEDURE ^ QuickSort(lo, hi: LONGINT); 
-		PROCEDURE ^ Sort; 
-	END ExportInfo; 
-
-	Arrangement* = OBJECT (GenericLinker.Arrangement)
-	VAR 
-		displacement: GenericLinker.Address; 
-		bits: BitSets.BitSet; 
-		maxUnitSize: ObjectFile.Bits; 
-		exportInfo: ExportInfo; 
-		relocInfo: RelocationInfo; 
-
-		PROCEDURE ^  & InitArrangement*(displacement: GenericLinker.Address); 
-		PROCEDURE ^ Allocate*(CONST section: ObjectFile.Section): GenericLinker.Address; 
-		PROCEDURE ^ SizeInBits*(): LONGINT; 
-		PROCEDURE ^ Patch*(pos, value: GenericLinker.Address; offset, bits, unit: ObjectFile.Bits); 
-		PROCEDURE ^ CheckReloc*(target: GenericLinker.Address; pattern: ObjectFile.Pattern; CONST patch: ObjectFile.Patch); 
-	END Arrangement; 
-
-	FileFormat = PROCEDURE (linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-VAR 
-	defaults: Options.Defaults; 
-	processing, finished: GenericLinker.Block; 
-
-	PROCEDURE ^ Align(this, to: LONGINT): LONGINT; 
-	PROCEDURE ^ ReadObjectFile*(CONST moduleName, path, extension: ARRAY OF CHAR; linker: GenericLinker.Linker; moduleList: GenericLinker.HashTableSegmentedName); 
-	PROCEDURE ^ WriteRelocations(arr: Arrangement; w: Files.Writer); 
-	PROCEDURE ^ WriteOutputFile*(arrangement: Arrangement; CONST fileName: Files.FileName; linker: GenericLinker.Linker; fileFormat: FileFormat); 
-	PROCEDURE ^ WriteBinaryFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteUnixBinaryFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteTRMFile(arrangement: Arrangement; writer: Files.Writer; bitsPerLine, lines: LONGINT); 
-	PROCEDURE ^ WriteTRMCodeFile*(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteTRMDataFile*(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WritePEFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer; bitmode, subSystem: INTEGER; isDLL: BOOLEAN); 
-	PROCEDURE ^ WriteDLL32File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteDLL64File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WritePE32File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WritePE64File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WritePE32CUIFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WritePE64CUIFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteEFI32File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteEFI64File(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteELFFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ WriteMachOFile(linker: GenericLinker.Linker; arrangement: Arrangement; writer: Files.Writer); 
-	PROCEDURE ^ GetFileFormat(options: Options.Options; CONST name: Options.Name; default: FileFormat): FileFormat; 
-	PROCEDURE ^ ParseExports(CONST names: ARRAY OF CHAR): ExportInfo; 
-	PROCEDURE ^ CheckExports(info: ExportInfo; error: Streams.Writer): BOOLEAN; 
-	PROCEDURE ^ Link*(context: Commands.Context); 
-	PROCEDURE ^ ShowDefaults*(context: Commands.Context); 
-BEGIN
-END StaticLinker.

Linux64/bin/SystemTools.SymUu

@@ -1,60 +0,0 @@
-MODULE SystemTools;
-	IMPORT Machine, Modules, Objects, Commands, Options, ProcessInfo, Kernel, Streams, Dates, Strings, Plugins, Files, SystemVersion, Heaps, Reflection;
-CONST 
-	MaxTimers = 16; 
-	DateTimeFormat = \"dd.mm.yyyy hh:nn:ss"\; 
-	CR = 0DX; 
-	LF = 0AX; 
-	TAB = 9X; 
-	TraceCommands = 1; 
-	TraceFreeDownTo = 2; 
-	Trace = {}; 
-	OberonKernel = \"Oberon-Kernel"\; 
-TYPE 
-	Module = POINTER TO RECORD 
-		next: Module; 
-		checked, imports: BOOLEAN; 
-		m: Modules.Module; 
-	END; 
-VAR 
-	timers: ARRAY MaxTimers OF Dates.DateTime; 
-
-	PROCEDURE ^ Find(root: Module; m: Modules.Module): Module; 
-	PROCEDURE ^ CopyModules(): Module; 
-	PROCEDURE ^ Imports(root, m: Module; CONST name: ARRAY OF CHAR): BOOLEAN; 
-	PROCEDURE ^ LockOberon; 
-	PROCEDURE ^ UnlockOberon; 
-	PROCEDURE ^ ListModules*(context: Commands.Context); 
-	PROCEDURE ^ ListPlugins*(context: Commands.Context); 
-	PROCEDURE ^ ListCommands*(context: Commands.Context); 
-	PROCEDURE ^ List*(context: Commands.Context); 
-	PROCEDURE ^ ModuleIsLoaded(CONST name: Modules.Name): BOOLEAN; 
-	PROCEDURE ^ WhoImports*(context: Commands.Context); 
-	PROCEDURE ^ IsLoaded*(context: Commands.Context); 
-	PROCEDURE ^ ModuleState*(context: Commands.Context); 
-	PROCEDURE ^ Load*(context: Commands.Context); 
-	PROCEDURE ^ FreeDownTo*(context: Commands.Context); 
-	PROCEDURE ^ Free*(context: Commands.Context); 
-	PROCEDURE ^ Kill*(context: Commands.Context); 
-	PROCEDURE ^ ShowProcesses*(context: Commands.Context); 
-	PROCEDURE ^ ShowStacks*(context: Commands.Context); 
-	PROCEDURE ^ ShowStack*(context: Commands.Context); 
-	PROCEDURE ^ Watch*(context: Commands.Context); 
-	PROCEDURE ^ RenameExtension*(context: Commands.Context); 
-	PROCEDURE ^ IsDelimiter(ch: CHAR): BOOLEAN; 
-	PROCEDURE ^ DoFile*(context: Commands.Context); 
-	PROCEDURE ^ DoCommands*(context: Commands.Context); 
-	PROCEDURE ^ RemoveComments(VAR string: ARRAY OF CHAR; length: LONGINT); 
-	PROCEDURE ^ Repeat*(context: Commands.Context); 
-	PROCEDURE ^ Timer*(context: Commands.Context); 
-	PROCEDURE ^ Time*(context: Commands.Context); 
-	PROCEDURE ^ ShowFile*(context: Commands.Context); 
-	PROCEDURE ^ Show*(context: Commands.Context); 
-	PROCEDURE ^ Ln*(context: Commands.Context); 
-	PROCEDURE ^ Wait*(context: Commands.Context); 
-	PROCEDURE ^ Reboot*; 
-	PROCEDURE ^ PowerDown*; 
-	PROCEDURE ^ CollectGarbage*(context: Commands.Context); 
-	PROCEDURE ^ Version*(context: Commands.Context); 
-BEGIN
-END SystemTools.

Win32/bin/BootShell.SymW

@@ -1,121 +0,0 @@
-MODULE BootShell;
-	IMPORT SYSTEM, KernelLog, Machine, Modules, Streams, Commands, Inputs, Strings, Locks;
-CONST 
-	Version = \"A2 Bootshell v1.0"\; 
-	LineWidth = 80; 
-	TraceHeight = 25; 
-	TraceBase = 753664; 
-	BufferHeight = 2048; 
-	BufferSize = (BufferHeight * LineWidth); 
-	TAB = 9X; 
-	CR = 0DX; 
-	LF = 0AX; 
-	SPACE = \" "\; 
-	Mode_Insert = 0; 
-	Mode_Overwrite = 1; 
-	Black = 0; 
-	Blue = 1; 
-	Green = 2; 
-	Cyan = 3; 
-	Red = 4; 
-	Magenta = 5; 
-	Brown = 6; 
-	White = 7; 
-	Gray = 8; 
-	LightBlue = 9; 
-	LightGreen = 10; 
-	LightCyan = 11; 
-	LightRed = 12; 
-	LightMagenta = 13; 
-	Yellow = 14; 
-	BrightWhite = 15; 
-TYPE 
-	CommandsString = POINTER TO RECORD 
-		prev, next: CommandsString; 
-		string: Strings.String; 
-	END; 
-
-	CommandHistoryObject = OBJECT 
-	VAR 
-		first, current: CommandsString; 
-
-		PROCEDURE ^ GetNextCommand(): Strings.String; 
-		PROCEDURE ^ GetPreviousCommand(): Strings.String; 
-		PROCEDURE ^ AddCommand(string: Strings.String); 
-		PROCEDURE ^  & Init*; 
-	END CommandHistoryObject; 
-
-	Character = RECORD 
-		ch: CHAR; 
-		color: SHORTINT; 
-	END; 
-
-	Line = ARRAY LineWidth OF Character; 
-
-	TextBuffer = OBJECT 
-	VAR 
-		defaultColor: SHORTINT; 
-		currentColor: SHORTINT; 
-		lines: ARRAY BufferHeight OF Line; 
-		firstLine, lastLine: LONGINT; 
-		firstLineShown: LONGINT; 
-		editStartPosition, editEndPosition: LONGINT; 
-		cursorPosition: LONGINT; 
-		mode: LONGINT; 
-		lock: Locks.RecursiveLock; 
-
-		PROCEDURE ^  & Init*; 
-		PROCEDURE ^ Clear; 
-		PROCEDURE ^ SetColor(foreground, background: SHORTINT); 
-		PROCEDURE ^ SetEditStart; 
-		PROCEDURE ^ Send(CONST data: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD); 
-		PROCEDURE ^ String(CONST string: ARRAY OF CHAR); 
-		PROCEDURE ^ Char(ch: CHAR); 
-		PROCEDURE ^ CheckVisibility; 
-		PROCEDURE ^ NextLine; 
-		PROCEDURE ^ MoveCharactersToRight; 
-		PROCEDURE ^ MoveCharactersToLeft; 
-		PROCEDURE ^ CharInternal(ch: CHAR); 
-		PROCEDURE ^ DeleteCurrentLine; 
-		PROCEDURE ^ GetCurrentLine(): Strings.String; 
-		PROCEDURE ^ Home; 
-		PROCEDURE ^ End; 
-		PROCEDURE ^ Backspace; 
-		PROCEDURE ^ Delete; 
-		PROCEDURE ^ ScrollUp(nofLines: LONGINT); 
-		PROCEDURE ^ ScrollDown(nofLines: LONGINT); 
-		PROCEDURE ^ CursorLeft; 
-		PROCEDURE ^ CursorRight; 
-		PROCEDURE ^ Dump(out: Streams.Writer); 
-	END TextBuffer; 
-
-	Shell = OBJECT (Inputs.Sink)
-	VAR 
-		textBuffer: TextBuffer; 
-		history: CommandHistoryObject; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Handle*(VAR msg: Inputs.Message); 
-		PROCEDURE ^ CommandHistory(next: BOOLEAN); 
-		PROCEDURE ^ Prompt; 
-		PROCEDURE ^ Execute; 
-		PROCEDURE ^ Quit; 
-	END Shell; 
-VAR 
-	shell: Shell; 
-
-	PROCEDURE ^ Subtract(position, value, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ Add(position, value, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ Difference(end, start, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ ClearLine(VAR line: Line; from, to: LONGINT; color: SHORTINT); 
-	PROCEDURE ^ IsWhitespace(ch: CHAR): BOOLEAN; 
-	PROCEDURE ^ Min(a, b: LONGINT): LONGINT; 
-	PROCEDURE ^ Invalidate(textBuffer: TextBuffer); 
-	PROCEDURE ^ Open*; 
-	PROCEDURE ^ Close*; 
-	PROCEDURE ^ Dump*(context: Commands.Context); 
-	PROCEDURE ^ UpdateCursor(textBuffer: TextBuffer); 
-	PROCEDURE ^ Cleanup; 
-	PROCEDURE ^ Init; 
-BEGIN
-END BootShell.

Win32/bin/Oberon-Centronics.SymW

@@ -1,24 +0,0 @@
-MODULE Centronics IN Oberon;
-	IMPORT SYSTEM, Kernel IN A2, Machine IN A2;
-CONST 
-	LPT1* = 0; 
-	LPT2* = 1; 
-	LPT3* = 2; 
-	Timeout = 0; 
-VAR 
-	adr: ARRAY 3 OF INTEGER; 
-	num: INTEGER; 
-
-	PROCEDURE ^ Halt(msg: ARRAY OF CHAR); 
-	PROCEDURE ^ Wait; 
-	PROCEDURE ^ Start*(port: INTEGER); 
-	PROCEDURE ^ Reset*(port: INTEGER); 
-	PROCEDURE ^ Stop*(port: INTEGER); 
-	PROCEDURE ^ Send*(port: INTEGER; x: CHAR); 
-	PROCEDURE ^ SendPoll*(port: INTEGER; x: CHAR; VAR done: BOOLEAN); 
-	PROCEDURE ^ Available*(port: INTEGER): LONGINT; 
-	PROCEDURE ^ Receive*(port: INTEGER; VAR x: CHAR); 
-	PROCEDURE ^ Detected(adr: INTEGER): BOOLEAN; 
-	PROCEDURE ^ Init; 
-BEGIN
-END Centronics.

Win32/bin/Oberon-Miscellaneous.SymW

@@ -1,36 +0,0 @@
-MODULE Miscellaneous IN Oberon;
-	IMPORT Files, Fonts, Texts, Oberon, Centronics, V24, Strings;
-CONST 
-	TAB = 9X; 
-	CR = 0DX; 
-	LF = 0AX; 
-	BitmapId = 39X; 
-	StandardMenu = \"System.Close System.Copy System.Grow Edit.Search Edit.Store"\; 
-	xOn = 11X; 
-	xOff = 13X; 
-TYPE 
-	FileName = ARRAY 32 OF CHAR; 
-VAR 
-	W: Texts.Writer; 
-	port: INTEGER; 
-
-	PROCEDURE ^ OpenScanner(VAR S: Texts.Scanner); 
-	PROCEDURE ^ Count(name: ARRAY OF CHAR; VAR nofLines: LONGINT; what: CHAR); 
-	PROCEDURE ^ CountLines*; 
-	PROCEDURE ^ GetSize(VAR name: ARRAY OF CHAR; VAR varSize: LONGINT; VAR constSize: LONGINT; VAR codeSize: LONGINT; T: Texts.Text); 
-	PROCEDURE ^ GetObjSize*; 
-	PROCEDURE ^ MakeAscii*; 
-	PROCEDURE ^ DOSRead(VAR R: Files.Rider; VAR ch: CHAR); 
-	PROCEDURE ^ MakeOberonText*; 
-	PROCEDURE ^ OberonRead(VAR R: Texts.Reader; VAR ch: CHAR); 
-	PROCEDURE ^ MakeDOSText*; 
-	PROCEDURE ^ V24Write(ch: CHAR); 
-	PROCEDURE ^ PrintFiles*; 
-	PROCEDURE ^ ExtName(i: INTEGER; VAR org, new: ARRAY OF CHAR); 
-	PROCEDURE ^ SplitFile*; 
-	PROCEDURE ^ JoinFiles*; 
-	PROCEDURE ^ ShowMod*; 
-	PROCEDURE ^ EqualFiles(f1, f2: Files.File): BOOLEAN; 
-	PROCEDURE ^ CompareFiles*; 
-BEGIN
-END Miscellaneous.

Win32/bin/Runtime.SymW

@@ -1,27 +0,0 @@
-MODULE Runtime;
-	IMPORT SYSTEM;
-VAR 
-	kernelModule-: ARRAY 32 OF ADDRESS; 
-	modules-: LONGINT; 
-
-	PROCEDURE ^ InsertModule*(a: ADDRESS): BOOLEAN; 
-	PROCEDURE ^ DivHA(l, r: HUGEINT): HUGEINT; 
-	PROCEDURE ^ DivH*(l, r: HUGEINT): HUGEINT; 
-	PROCEDURE ^ MulH*(l, r: HUGEINT): HUGEINT; 
-	PROCEDURE ^ ModHA(l, r: HUGEINT): HUGEINT; 
-	PROCEDURE ^ ModH*(l, r: HUGEINT): HUGEINT; 
-	PROCEDURE ^ AbsH*(l: HUGEINT): HUGEINT; 
-	PROCEDURE ^ AslH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ LslH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ AsrH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ LsrH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ RorH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ RolH*(l: HUGEINT; r: LONGINT): HUGEINT; 
-	PROCEDURE ^ CasH*(VAR value: HUGEINT; old, new: HUGEINT): HUGEINT; 
-	PROCEDURE ^ EntierXH*(x: LONGREAL): HUGEINT; 
-	PROCEDURE ^ EntierRH*(x: REAL): HUGEINT; 
-	PROCEDURE ^ CompareString*(CONST left, right: ARRAY OF CHAR): SHORTINT; 
-	PROCEDURE ^ CopyString*(VAR dest: ARRAY OF CHAR; CONST src: ARRAY OF CHAR); 
-	PROCEDURE ^ EnsureAllocatedStack*(size: SIZE); 
-BEGIN
-END Runtime.

Win32/bin/SystemTools.SymW

@@ -1,60 +0,0 @@
-MODULE SystemTools;
-	IMPORT Machine, Modules, Objects, Commands, Options, ProcessInfo, Kernel, Streams, Dates, Strings, Plugins, Files, SystemVersion, Heaps, Reflection;
-CONST 
-	MaxTimers = 16; 
-	DateTimeFormat = \"dd.mm.yyyy hh:nn:ss"\; 
-	CR = 0DX; 
-	LF = 0AX; 
-	TAB = 9X; 
-	TraceCommands = 1; 
-	TraceFreeDownTo = 2; 
-	Trace = {}; 
-	OberonKernel = \"Oberon-Kernel"\; 
-TYPE 
-	Module = POINTER TO RECORD 
-		next: Module; 
-		checked, imports: BOOLEAN; 
-		m: Modules.Module; 
-	END; 
-VAR 
-	timers: ARRAY MaxTimers OF Dates.DateTime; 
-
-	PROCEDURE ^ Find(root: Module; m: Modules.Module): Module; 
-	PROCEDURE ^ CopyModules(): Module; 
-	PROCEDURE ^ Imports(root, m: Module; CONST name: ARRAY OF CHAR): BOOLEAN; 
-	PROCEDURE ^ LockOberon; 
-	PROCEDURE ^ UnlockOberon; 
-	PROCEDURE ^ ListModules*(context: Commands.Context); 
-	PROCEDURE ^ ListPlugins*(context: Commands.Context); 
-	PROCEDURE ^ ListCommands*(context: Commands.Context); 
-	PROCEDURE ^ List*(context: Commands.Context); 
-	PROCEDURE ^ ModuleIsLoaded(CONST name: Modules.Name): BOOLEAN; 
-	PROCEDURE ^ WhoImports*(context: Commands.Context); 
-	PROCEDURE ^ IsLoaded*(context: Commands.Context); 
-	PROCEDURE ^ ModuleState*(context: Commands.Context); 
-	PROCEDURE ^ Load*(context: Commands.Context); 
-	PROCEDURE ^ FreeDownTo*(context: Commands.Context); 
-	PROCEDURE ^ Free*(context: Commands.Context); 
-	PROCEDURE ^ Kill*(context: Commands.Context); 
-	PROCEDURE ^ ShowProcesses*(context: Commands.Context); 
-	PROCEDURE ^ ShowStacks*(context: Commands.Context); 
-	PROCEDURE ^ ShowStack*(context: Commands.Context); 
-	PROCEDURE ^ Watch*(context: Commands.Context); 
-	PROCEDURE ^ RenameExtension*(context: Commands.Context); 
-	PROCEDURE ^ IsDelimiter(ch: CHAR): BOOLEAN; 
-	PROCEDURE ^ DoFile*(context: Commands.Context); 
-	PROCEDURE ^ DoCommands*(context: Commands.Context); 
-	PROCEDURE ^ RemoveComments(VAR string: ARRAY OF CHAR; length: LONGINT); 
-	PROCEDURE ^ Repeat*(context: Commands.Context); 
-	PROCEDURE ^ Timer*(context: Commands.Context); 
-	PROCEDURE ^ Time*(context: Commands.Context); 
-	PROCEDURE ^ ShowFile*(context: Commands.Context); 
-	PROCEDURE ^ Show*(context: Commands.Context); 
-	PROCEDURE ^ Ln*(context: Commands.Context); 
-	PROCEDURE ^ Wait*(context: Commands.Context); 
-	PROCEDURE ^ Reboot*; 
-	PROCEDURE ^ PowerDown*; 
-	PROCEDURE ^ CollectGarbage*(context: Commands.Context); 
-	PROCEDURE ^ Version*(context: Commands.Context); 
-BEGIN
-END SystemTools.

Win64/bin/ActiveCellsRunner.SymWw

@@ -1,64 +0,0 @@
-module ActiveCellsRunner;
-	import system, ActiveCellsRuntime, Commands, Modules, D := Diagnostics;
-const 
-	DefaultChanDepth* = 2048; 
-	EnableTrace* = false; 
-type 
-	Cell = object 
-	var 
-		isCellnet: boolean; 
-	end Cell; 
-
-	Fifo = object {EXCLUSIVE} 
-	var 
-		data: pointer to array of system.byte; 
-		length: longint; 
-		rdPos, numEle: longint; 
-		inPort: Port; 
-		outPort: Port; 
-
-		procedure ^  & Init(outP: Port; inP: Port; length: longint); 
-		procedure ^ Put(value: longint); 
-		procedure ^ Get(var value: longint); 
-		procedure ^ BulkPut(const value: array of system.byte); 
-		procedure ^ BulkGet(var value: array of system.byte); 
-		procedure ^ BulkGetNonBlocking(var value: array of system.byte): boolean; 
-	end Fifo; 
-
-	Port = object 
-	var 
-		fifo-: Fifo; 
-		delegatedTo-: Port; 
-		inout-: set; 
-		owner: Cell; 
-
-		procedure ^  & InitPort(inout: set; width: longint); 
-		procedure ^ Delegate(toPort: Port); 
-		procedure ^ SetFifo(f: Fifo); 
-		procedure ^ Send(value: longint); 
-		procedure ^ BulkSend(const value: array of system.byte); 
-		procedure ^ Receive(var value: longint); 
-		procedure ^ ReceiveNonBlocking(var value: longint): boolean; 
-		procedure ^ BulkReceive(var value: array of system.byte); 
-	end Port; 
-
-	Context* = object {EXCLUSIVE} (ActiveCellsRuntime.Context)
-
-		procedure ^ Allocate*(scope: any; var c: any; t: Modules.TypeDesc; const name: array of char; isCellnet, isEngine: boolean); 
-		procedure ^ AddPort*(c: any; var p: any; const name: array of char; inout: set; width: longint); 
-		procedure ^ AddPortArray*(c: any; var ports: any; const name: array of char; inout: set; width: longint; const lens: array of longint); 
-		procedure ^ AddStaticPortArray*(c: any; var ports: array of any; const name: array of char; inout: set; width: longint); 
-		procedure ^ Connect*(outPort, inPort: any; depth: longint); 
-		procedure ^ Delegate*(netPort: any; cellPort: any); 
-		procedure ^ Start*(c: any; proc: procedure {DELEGATE}); 
-		procedure ^ Send*(p: any; value: longint); 
-		procedure ^ BulkSend*(p: any; const value: array of system.byte); 
-		procedure ^ Receive*(p: any; var value: longint); 
-		procedure ^ ReceiveNonBlocking*(p: any; var value: longint): boolean; 
-		procedure ^ BulkReceive*(p: any; var value: array of system.byte); 
-	end Context; 
-
-	procedure ^ Execute*(context: Commands.Context); 
-	procedure ^ Stop*(context: Commands.Context); 
-begin
-end ActiveCellsRunner.

Win64/bin/ActiveCellsRuntime.SymWw

@@ -1,108 +0,0 @@
-module ActiveCellsRuntime;
-	import system, Heaps, Modules, Diagnostics, Strings, Objects, Reflection, Commands;
-const 
-	EnableTrace* = false; 
-type 
-	Cell* = object 
-	var 
-		c: any; 
-	end Cell; 
-
-	Context* = object {EXCLUSIVE} 
-	var 
-		topNet-: any; 
-		finishedAssembly-: boolean; 
-		res*: longint; 
-
-		procedure ^ Allocate*(scope: any; var c: any; t: Modules.TypeDesc; const name: array of char; isCellNet, isEngine: boolean); 
-		procedure ^ AddPort*(c: any; var p: any; const name: array of char; inout: set; width: longint); 
-		procedure ^ AddPortArray*(c: any; var ports: any; const name: array of char; inout: set; width: longint; const lens: array of longint); 
-		procedure ^ AddStaticPortArray*(c: any; var ports: array of any; const name: array of char; inout: set; width: longint); 
-		procedure ^ AddPortIntegerProperty*(p: any; const name: array of char; value: longint); 
-		procedure ^ AddFlagProperty*(c: any; const name: array of char); 
-		procedure ^ AddStringProperty*(c: any; const name: array of char; const value: array of char); 
-		procedure ^ AddIntegerProperty*(c: any; const name: array of char; value: longint); 
-		procedure ^ AddBooleanProperty*(c: any; const name: array of char; value: boolean); 
-		procedure ^ AddRealProperty*(c: any; const name: array of char; value: longreal); 
-		procedure ^ AddSetProperty*(c: any; const name: array of char; s: set); 
-		procedure ^ FinishedProperties*(var c: any); 
-		procedure ^ Connect*(outPort, inPort: any; depth: longint); 
-		procedure ^ Delegate*(netPort: any; cellPort: any); 
-		procedure ^ Start*(c: any; proc: procedure {DELEGATE}); 
-		procedure ^ Send*(p: any; value: longint); 
-		procedure ^ BulkSend*(p: any; const value: array of system.byte); 
-		procedure ^ SendNonBlocking*(p: any; value: longint): boolean; 
-		procedure ^ Receive*(p: any; var value: longint); 
-		procedure ^ BulkReceive*(p: any; var value: array of system.byte); 
-		procedure ^ ReceiveNonBlocking*(p: any; var value: longint): boolean; 
-		procedure ^ FinishedAssembly; 
-		procedure ^ WaitUntilFinishedAssembly; 
-	end Context; 
-
-	Launcher* = object {EXCLUSIVE} 
-	var 
-		proc: procedure {DELEGATE}; 
-		context: Context; 
-		finished, delayedStart: boolean; 
-		error-: boolean; 
-
-		procedure ^  & Init*(context: Context); 
-		procedure ^ Start*(p: procedure {DELEGATE}; doWait: boolean); 
-	begin{ACTIVE} 
-	end Launcher; 
-
-	Module = pointer to record 
-		next: Module; 
-		checked, imports: boolean; 
-		m: Modules.Module; 
-	end; 
-
-	bytearray = array of system.byte; 
-
-	longintSpecial = longint; 
-
-	realSpecial = real; 
-
-	Pin = port in; 
-
-	Pout = port out; 
-
-	procedure ^ GetContext(): Context; 
-	procedure ^ AllocateOnContext(context: Context; scope: Cell; var c: Cell; tag: address; const name: array of char; isCellnet, isEngine: boolean); 
-	procedure ^ Allocate*(scope: Cell; var c: Cell; tag: address; const name: array of char; isCellnet, isEngine: boolean); 
-	procedure ^ AddPort*(c: Cell; var p: any; const name: array of char; inout: set; width: longint); 
-	procedure ^ AddPortArray*(c: Cell; var ports: any; const name: array of char; inout: set; width: longint; const lens: array of longint); 
-	procedure ^ AddStaticPortArray*(c: Cell; var ports: array of any; const name: array of char; inout: set; width: longint); 
-	procedure ^ AddPortIntegerProperty*(p: any; const name: array of char; value: longint); 
-	procedure ^ AddFlagProperty*(c: Cell; const name: array of char); 
-	procedure ^ AddStringProperty*(c: Cell; const name: array of char; var newValue: array of char; const value: array of char); 
-	procedure ^ AddIntegerProperty*(c: Cell; const name: array of char; var newValue: longint; value: longint); 
-	procedure ^ AddBooleanProperty*(c: Cell; const name: array of char; var newValue: boolean; value: boolean); 
-	procedure ^ AddRealProperty*(c: Cell; const name: array of char; var newValue: longreal; value: longreal); 
-	procedure ^ AddSetProperty*(c: Cell; const name: array of char; var newValue: set; value: set); 
-	procedure ^ FinishedProperties*(c: Cell); 
-	procedure ^ Connect*(outPort, inPort: any; depth: longint); 
-	procedure ^ Delegate*(netPort: any; cellPort: any); 
-	procedure ^ Start*(c: Cell; proc: procedure {DELEGATE}); 
-	procedure ^ Send*(p: any; value: longint); 
-	procedure ^ BulkSend*(p: any; const value: array of system.byte); 
-	procedure ^ SendNonBlocking*(p: any; value: longint): boolean; 
-	procedure ^ Receive*(p: any; var value: longint); 
-	procedure ^ BulkReceive*(p: any; var value: array of system.byte); 
-	procedure ^ ReceiveNonBlocking*(p: any; var value: longint): boolean; 
-	procedure ^ Find(root: Module; m: Modules.Module): Module; 
-	procedure ^ Imports(root, m: Module; const name: array of char): boolean; 
-	procedure ^ CopyModules(): Module; 
-	procedure ^ FreeDownTo(const modulename: array of char): longint; 
-	procedure ^ Execute*(const cellNet: array of char; context: Context; diagnostics: Diagnostics.Diagnostics); 
-	operator ^ "<<"-(p: port out; const a: bytearray); 
-	operator ^ "<<"-(var a: bytearray; p: port in); 
-	operator ^ "<<"-(p: port out; a: longintSpecial); 
-	operator ^ "<<"-(var a: longintSpecial; p: port in); 
-	operator ^ "<<"-(p: port out; a: realSpecial); 
-	operator ^ "<<"-(var a: realSpecial; p: port in); 
-	operator ^ ">>"-(pout: Pout; pin: Pin); 
-	operator ^ ">>"-(cellPort: Pout; netPort: Pout); 
-	operator ^ ">>"-(netPort: Pin; cellPort: Pin); 
-begin
-end ActiveCellsRuntime.

Win64/bin/Array1dBytes.SymWw

@@ -1,188 +0,0 @@
-MODULE Array1dBytes;
-	IMPORT SYSTEM;
-TYPE 
-	Bytes* = POINTER TO ARRAY OF SYSTEM.BYTE; 
-
-	Byte* = SYSTEM.BYTE; 
-
-	Word* = ARRAY 2 OF SYSTEM.BYTE; 
-
-	DWord* = ARRAY 4 OF SYSTEM.BYTE; 
-
-	QWord* = ARRAY 8 OF SYSTEM.BYTE; 
-
-	PROCEDURE {FingerPrint(-1917569187)}  - AdrCheck*(adr, lower, size: LONGINT);
-	CODE {SYSTEM.i386}
-		MOV	ECX, [ESP]	;  upper
-		MOV	EBX, [ESP+4]	;  lower
-		MOV	EAX, [ESP+8]	;  adr
-		CMP	EAX, EBX
-		JAE	lowerok	;  offset >= adr?
-		PUSH	7
-		INT	3
-		lowerok: ;  offset >= adr
-		ADD	ECX, EBX
-		CMP	EAX, ECX
-		JB	upperok	;  offset < upper?
-		PUSH	7
-		INT	3
-		upperok: ;  offset < upper
-		ADD	ESP, 12	;  adjust stack pointer(inline procedure!)
-	
-	END AdrCheck; 
-	PROCEDURE {FingerPrint(-195154503)}  - RangeCheck*(offset, len, upper: LONGINT);
-	CODE {SYSTEM.i386}
-		MOV	ECX, [ESP]	;  upper
-		MOV	EBX, [ESP+4]	;  len
-		MOV	EAX, [ESP+8]	;  offset
-		CMP	EAX, 0
-		JAE	lowerok	;  offset >= 0?
-		PUSH	7
-		INT	3
-		lowerok: ;  offset >= 0
-		CMP	EBX, 0
-		JAE	lenok	;  len >= 0?
-		PUSH	7
-		INT	3
-		lenok: ;  len >= 0
-		ADD	EAX, EBX
-		CMP	EAX, ECX
-		JBE	upperok	;  offset+len <= upper?
-		PUSH	7
-		INT	3
-		upperok: ;  offset+len <= upper
-		ADD	ESP, 12	;  adjust stack pointer(inline procedure!)
-	
-	END RangeCheck; 
-	PROCEDURE {FingerPrint(-1234722257)}  - RangeCheck2*(x, y, w, h, width, height: LONGINT);
-	CODE {SYSTEM.i386}
-		MOV	ECX, [ESP]	;  upper = height
-		MOV	EBX, [ESP+8]	;  len = h
-		MOV	EAX, [ESP+16]	;  offset = y
-		CMP	EAX, 0
-		JAE	lowerok	;  offset >= 0?
-		PUSH	7
-		INT	3
-		lowerok: ;  offset >= 0
-		CMP	EBX, 0
-		JAE	lenok	;  len >= 0?
-		PUSH	7
-		INT	3
-		lenok: ;  len >= 0
-		ADD	EAX, EBX
-		CMP	EAX, ECX
-		JBE	upperok	;  offset+len <= upper?
-		PUSH	7
-		INT	3
-		upperok: ;  offset+len <= upper
-		MOV	ECX, [ESP+4]	;  upper = width
-		MOV	EBX, [ESP+12]	;  len = w
-		MOV	EAX, [ESP+20]	;  offset = x
-		CMP	EAX, 0
-		JAE	lowerok2	;  offset >= 0?
-		PUSH	7
-		INT	3
-		lowerok2: ;  offset >= 0
-		CMP	EBX, 0
-		JAE	lenok2	;  len >= 0?
-		PUSH	7
-		INT	3
-		lenok2: ;  len >= 0
-		ADD	EAX, EBX
-		CMP	EAX, ECX
-		JBE	upperok2	;  offset+len <= upper?
-		PUSH	7
-		INT	3
-		upperok2: ;  offset+len <= upper
-		ADD	ESP, 24	;  adjust stack pointer(inline procedure!)
-	
-	END RangeCheck2; 
-	PROCEDURE {FingerPrint(1324527634)}  - PatRangeCheck*(offset, step, piecelen, pieces, upper: LONGINT);
-	CODE {SYSTEM.i386}
-		MOV	EDI, [ESP]	;  upper
-		MOV	EDX, [ESP+4]	;  pieces
-		MOV	ECX, [ESP+8]	;  piecelen
-		MOV	EBX, [ESP+12]	;  step
-		MOV	EAX, [ESP+16]	;  offset
-		CMP	EBX, 0
-		JAE	piecesok	;  pieces >= 0?
-		PUSH	7
-		INT	3
-		piecesok: ;  pieces >= 0
-		CMP	ECX, 0
-		JA	piecelenok	;  piecelen > 0?
-		PUSH	7
-		INT	3
-		piecelenok: ;  piecelen > 0
-		CMP	EBX, ECX
-		JAE	stepok	;  step >= piecelen?
-		PUSH	7
-		INT	3
-		stepok: ;  step >= piecelen > 0
-		CMP	EAX, 0
-		JAE	lowerok	;  offset >= 0?
-		PUSH	7
-		INT	3
-		lowerok: ;  offset >= 0
-		CMP	EDX, 0
-		JE	nocalc	;  pieces = 0?
-		DEC	EDX
-		IMUL	EDX, EBX	;  EDX := (pieces-1)*step	;
-		ADD	EDX, ECX	;  INC(EDX, piecelen)
-		ADD	EDX, EAX	;  INC(EDX, offset)
-		nocalc:
-		CMP	EDX, EDI
-		JBE	upperok	;  offset+(pieces-1)*step+piecelen <= upper?
-		PUSH	7
-		INT	3
-		upperok:
-		ADD	ESP, 20	;  adjust stack pointer(inline procedure!)
-	
-	END PatRangeCheck; 
-	PROCEDURE {FingerPrint(1857348743)}  - MoveB*(srcadr, destadr, len: LONGINT);
-	CODE {SYSTEM.i386}
-		MOV	ECX, [ESP]	;  len
-		MOV	EDI, [ESP+4]	;  destadr
-		MOV	ESI, [ESP+8]	;  srcadr
-		CMP	ESI, EDI
-		JAE	moveup	;  src adr greater then dest adr, no problem with moving up
-		MOV	EAX, ESI
-		ADD	EAX, ECX
-		CMP	EAX, EDI
-		JBE	moveup	;  no overlap, no problem, move up
-		MOV	ESI, EAX
-		ADD	EDI, ECX
-		DEC	ESI
-		DEC	EDI
-		STD	;  move down since overlap occured
-		REP
-		MOVSB
-		JMP	done
-		moveup:
-		CLD
-		MOV	BL, CL
-		SHR	ECX, 2
-		AND	BL, 00000003H	;  rest to move after 4 byte move
-		REP
-		MOVSD	;  move 4 bytes each step
-		MOV	CL, BL
-		REP
-		MOVSB	;  move rest in one byte steps
-		done:
-		ADD	ESP, 12	;  adjust stack pointer(inline procedure!)
-	
-	END MoveB; 
-	PROCEDURE ^ MoveBPat*(srcadr, destadr, srcstep, deststep, piecelen, pieces: LONGINT); 
-	PROCEDURE ^ FillB*(adr: LONGINT; byte: SYSTEM.BYTE; count: LONGINT); 
-	PROCEDURE ^ FillBPat*(adr: LONGINT; byte: SYSTEM.BYTE; step, piecelen, pieces: LONGINT); 
-	PROCEDURE ^ FillW*(adr: LONGINT; word: Word; count: LONGINT); 
-	PROCEDURE ^ FillWPat*(adr: LONGINT; word: Word; step, piecelen, pieces: LONGINT); 
-	PROCEDURE ^ FillD*(adr: LONGINT; dword: DWord; count: LONGINT); 
-	PROCEDURE ^ FillDPat*(adr: LONGINT; dword: DWord; step, piecelen, pieces: LONGINT); 
-	PROCEDURE ^ FillQ*(adr: LONGINT; qword: QWord; count: LONGINT); 
-	PROCEDURE ^ FillG*(adr: LONGINT; VAR data: ARRAY OF SYSTEM.BYTE; count: LONGINT); 
-	PROCEDURE ^ FillGPat*(adr: LONGINT; VAR data: ARRAY OF SYSTEM.BYTE; step, piecelen, pieces: LONGINT); 
-	PROCEDURE ^ Fill*(adr: LONGINT; VAR data: ARRAY OF SYSTEM.BYTE; len: LONGINT); 
-	PROCEDURE ^ FillPat*(adr: LONGINT; VAR data: ARRAY OF SYSTEM.BYTE; step, piecelen, pieces: LONGINT); 
-BEGIN
-END Array1dBytes.

Win64/bin/B.SymWw

@@ -1,3 +0,0 @@
-MODULE B;
-BEGIN
-END B.

Win64/bin/BootShell.SymWw

@@ -1,121 +0,0 @@
-MODULE BootShell;
-	IMPORT SYSTEM, KernelLog, Machine, Modules, Streams, Commands, Inputs, Strings, Locks;
-CONST 
-	Version = \"A2 Bootshell v1.0"\; 
-	LineWidth = 80; 
-	TraceHeight = 25; 
-	TraceBase = 753664; 
-	BufferHeight = 2048; 
-	BufferSize = (BufferHeight * LineWidth); 
-	TAB = 9X; 
-	CR = 0DX; 
-	LF = 0AX; 
-	SPACE = \" "\; 
-	Mode_Insert = 0; 
-	Mode_Overwrite = 1; 
-	Black = 0; 
-	Blue = 1; 
-	Green = 2; 
-	Cyan = 3; 
-	Red = 4; 
-	Magenta = 5; 
-	Brown = 6; 
-	White = 7; 
-	Gray = 8; 
-	LightBlue = 9; 
-	LightGreen = 10; 
-	LightCyan = 11; 
-	LightRed = 12; 
-	LightMagenta = 13; 
-	Yellow = 14; 
-	BrightWhite = 15; 
-TYPE 
-	CommandsString = POINTER TO RECORD 
-		prev, next: CommandsString; 
-		string: Strings.String; 
-	END; 
-
-	CommandHistoryObject = OBJECT 
-	VAR 
-		first, current: CommandsString; 
-
-		PROCEDURE ^ GetNextCommand(): Strings.String; 
-		PROCEDURE ^ GetPreviousCommand(): Strings.String; 
-		PROCEDURE ^ AddCommand(string: Strings.String); 
-		PROCEDURE ^  & Init*; 
-	END CommandHistoryObject; 
-
-	Character = RECORD 
-		ch: CHAR; 
-		color: SHORTINT; 
-	END; 
-
-	Line = ARRAY LineWidth OF Character; 
-
-	TextBuffer = OBJECT 
-	VAR 
-		defaultColor: SHORTINT; 
-		currentColor: SHORTINT; 
-		lines: ARRAY BufferHeight OF Line; 
-		firstLine, lastLine: LONGINT; 
-		firstLineShown: LONGINT; 
-		editStartPosition, editEndPosition: LONGINT; 
-		cursorPosition: LONGINT; 
-		mode: LONGINT; 
-		lock: Locks.RecursiveLock; 
-
-		PROCEDURE ^  & Init*; 
-		PROCEDURE ^ Clear; 
-		PROCEDURE ^ SetColor(foreground, background: SHORTINT); 
-		PROCEDURE ^ SetEditStart; 
-		PROCEDURE ^ Send(CONST data: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT); 
-		PROCEDURE ^ String(CONST string: ARRAY OF CHAR); 
-		PROCEDURE ^ Char(ch: CHAR); 
-		PROCEDURE ^ CheckVisibility; 
-		PROCEDURE ^ NextLine; 
-		PROCEDURE ^ MoveCharactersToRight; 
-		PROCEDURE ^ MoveCharactersToLeft; 
-		PROCEDURE ^ CharInternal(ch: CHAR); 
-		PROCEDURE ^ DeleteCurrentLine; 
-		PROCEDURE ^ GetCurrentLine(): Strings.String; 
-		PROCEDURE ^ Home; 
-		PROCEDURE ^ End; 
-		PROCEDURE ^ Backspace; 
-		PROCEDURE ^ Delete; 
-		PROCEDURE ^ ScrollUp(nofLines: LONGINT); 
-		PROCEDURE ^ ScrollDown(nofLines: LONGINT); 
-		PROCEDURE ^ CursorLeft; 
-		PROCEDURE ^ CursorRight; 
-		PROCEDURE ^ Dump(out: Streams.Writer); 
-	END TextBuffer; 
-
-	Shell = OBJECT (Inputs.Sink)
-	VAR 
-		textBuffer: TextBuffer; 
-		history: CommandHistoryObject; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Handle*(VAR msg: Inputs.Message); 
-		PROCEDURE ^ CommandHistory(next: BOOLEAN); 
-		PROCEDURE ^ Prompt; 
-		PROCEDURE ^ Execute; 
-		PROCEDURE ^ Quit; 
-	END Shell; 
-VAR 
-	shell: Shell; 
-
-	PROCEDURE ^ Subtract(position, value, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ Add(position, value, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ Difference(end, start, bufferSize: LONGINT): LONGINT; 
-	PROCEDURE ^ ClearLine(VAR line: Line; from, to: LONGINT; color: SHORTINT); 
-	PROCEDURE ^ IsWhitespace(ch: CHAR): BOOLEAN; 
-	PROCEDURE ^ Min(a, b: LONGINT): LONGINT; 
-	PROCEDURE ^ Invalidate(textBuffer: TextBuffer); 
-	PROCEDURE ^ Open*; 
-	PROCEDURE ^ Close*; 
-	PROCEDURE ^ Dump*(context: Commands.Context); 
-	PROCEDURE ^ UpdateCursor(textBuffer: TextBuffer); 
-	PROCEDURE ^ Cleanup; 
-	PROCEDURE ^ Init; 
-BEGIN
-END BootShell.

Win64/bin/ConsumerProducer.SymWw

@@ -1,41 +0,0 @@
-MODULE ConsumerProducer;
-CONST 
-	N = 16; 
-TYPE 
-	Ring = OBJECT {EXCLUSIVE} 
-	VAR 
-		head, tail, available, free: LONGINT; 
-		buf: ARRAY N OF LONGINT; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Produce(x: LONGINT); 
-		PROCEDURE ^ Consume(): LONGINT; 
-	END Ring; 
-
-	Consumer = OBJECT {EXCLUSIVE} 
-	VAR 
-		r: Ring; 
-		sum, i: LONGINT; 
-		done: BOOLEAN; 
-
-		PROCEDURE ^  & Init(r: Ring); 
-		PROCEDURE ^ AwaitDone; 
-	BEGIN{ACTIVE, EXCLUSIVE} 
-	END Consumer; 
-
-	Producer = OBJECT {EXCLUSIVE} 
-	VAR 
-		r: Ring; 
-		i: LONGINT; 
-		done: BOOLEAN; 
-
-		PROCEDURE ^  & Init(r: Ring); 
-	BEGIN{ACTIVE} 
-	END Producer; 
-VAR 
-	s: LONGINT; 
-
-	PROCEDURE ^ Report(sum: LONGINT); 
-	PROCEDURE ^ Test*; 
-BEGIN
-END ConsumerProducer.

Win64/bin/FoxBinaryObjectFile.SymWw

@@ -1,97 +0,0 @@
-MODULE FoxBinaryObjectFile;
-	IMPORT Scanner := FoxScanner, Basic := FoxBasic, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, SemanticChecker := FoxSemanticChecker, FingerPrinter := FoxFingerPrinter, Sections := FoxSections, Streams, D := Debugging, Files, SYSTEM, Strings, BinaryCode := FoxBinaryCode, Log := KernelLog, Diagnostics, SymbolFileFormat := FoxBinarySymbolFile, Options, Formats := FoxFormats, IntermediateCode := FoxIntermediateCode, Machine;
-CONST 
-	ofFileTag = 0BBX; 
-	ofNoZeroCompress = 0ADX; 
-	ofFileVersion = SymbolFileFormat.FileVersionCurrent; 
-	ofEUEnd = 0X; 
-	ofEURecord = 1X; 
-	ofEUProcFlag = LONGINT(2147483648); 
-	DefaultNofSysCalls = 12; 
-	NewRec = 0; 
-	NewArr = 1; 
-	NewSys = 2; 
-	CaseTable = 3; 
-	ProcAddr = 4; 
-	Lock = 5; 
-	Unlock = 6; 
-	Start = 7; 
-	Await = 8; 
-	InterfaceLookup = 9; 
-	RegisterInterface = 10; 
-	GetProcedure = 11; 
-	Trace = FALSE; 
-TYPE 
-	Name = ARRAY 256 OF CHAR; 
-
-	ByteArray = POINTER TO ARRAY OF CHAR; 
-
-	ObjectFileFormat* = OBJECT (Formats.ObjectFileFormat)
-
-		PROCEDURE ^  & InitObjectFileFormat; 
-		PROCEDURE ^ Export*(module: Formats.GeneratedModule; symbolFileFormat: Formats.SymbolFileFormat): BOOLEAN; 
-		PROCEDURE ^ DefineOptions*(options: Options.Options); 
-		PROCEDURE ^ GetOptions*(options: Options.Options); 
-		PROCEDURE ^ DefaultSymbolFileFormat*(): Formats.SymbolFileFormat; 
-		PROCEDURE ^ ForceModuleBodies*(): BOOLEAN; 
-	END ObjectFileFormat; 
-
-	Fixup = OBJECT 
-	VAR 
-		nextFixup: Fixup; 
-		fixup: BinaryCode.Fixup; 
-		fixupSection: Sections.Section; 
-	END Fixup; 
-
-	Section = OBJECT 
-	VAR 
-		name: Basic.SegmentedName; 
-		symbol: SyntaxTree.Symbol; 
-		entryNumber: LONGINT; 
-		offset: LONGINT; 
-		fixups: Fixup; 
-		numberFixups: LONGINT; 
-		type: LONGINT; 
-		resolved: BinaryCode.Section; 
-		isCaseTable: BOOLEAN; 
-		referenced: BOOLEAN; 
-
-		PROCEDURE ^ SetEntryNumber(num: LONGINT); 
-		PROCEDURE ^ SetSymbol(s: SyntaxTree.Symbol); 
-		PROCEDURE ^  & Init(CONST name: Basic.SegmentedName); 
-		PROCEDURE ^ AddFixup(fixup: BinaryCode.Fixup; fixupSection: Sections.Section); 
-		PROCEDURE ^ Dump(w: Streams.Writer); 
-	END Section; 
-
-	SectionNameLookup = OBJECT (Basic.HashTableSegmentedName)
-
-		PROCEDURE ^ GetSection(CONST name: Basic.SegmentedName): Section; 
-		PROCEDURE ^ PutSection(CONST name: Basic.SegmentedName; section: Section); 
-	END SectionNameLookup; 
-
-	SymbolLookup = OBJECT (Basic.HashTable)
-
-		PROCEDURE ^ GetSection(s: SyntaxTree.Symbol): Section; 
-		PROCEDURE ^ PutSection(symbol: SyntaxTree.Symbol; section: Section); 
-	END SymbolLookup; 
-
-	SectionList = OBJECT (Basic.List)
-	VAR 
-		lookup: SectionNameLookup; 
-		symbolLookup: SymbolLookup; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ AddSection(name: Basic.SegmentedName): Section; 
-		PROCEDURE ^ BySymbol(symbol: SyntaxTree.Symbol): Section; 
-		PROCEDURE ^ GetSection(i: LONGINT): Section; 
-		PROCEDURE ^ Dump(w: Streams.Writer); 
-	END SectionList; 
-VAR 
-	SysCallMap: ARRAY DefaultNofSysCalls OF CHAR; 
-
-	PROCEDURE ^ FindPC(pc: LONGINT; module: Sections.Module; diagnostics: Diagnostics.Diagnostics): BOOLEAN; 
-	PROCEDURE ^ MakeSectionOffsets(module: Sections.Module; VAR constSize, varSize, codeSize, caseTableSize: LONGINT; VAR const, code: ByteArray); 
-	PROCEDURE ^ WriteObjectFile*(w: Streams.Writer; module: Sections.Module; symbolFile: Files.File); 
-	PROCEDURE ^ Get*(): Formats.ObjectFileFormat; 
-BEGIN
-END FoxBinaryObjectFile.

Win64/bin/FoxBinarySymbolFile.SymWw

@@ -1,192 +0,0 @@
-MODULE FoxBinarySymbolFile;
-	IMPORT Basic := FoxBasic, Scanner := FoxScanner, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Files, Streams, Kernel, SYSTEM, D := Debugging, Diagnostics, Options, Formats := FoxFormats, InterfaceComparison := FoxInterfaceComparison, Commands, Printout := FoxPrintout, SemanticChecker := FoxSemanticChecker, Machine;
-CONST 
-	TraceImport = 0; 
-	TraceExport = 1; 
-	Trace = {}; 
-	sfTypeBoolean = 1; 
-	sfTypeChar8 = 2; 
-	sfTypeChar16 = 3; 
-	sfTypeChar32 = 4; 
-	sfTypeShortint = 5; 
-	sfTypeInteger = 6; 
-	sfTypeLongint = 7; 
-	sfTypeHugeint = 8; 
-	sfTypeReal = 9; 
-	sfTypeLongreal = 10; 
-	sfTypeSet = 11; 
-	sfTypeString = 12; 
-	sfTypeNoType = 13; 
-	sfTypeNilType = 14; 
-	sfTypeByte = 15; 
-	sfTypeAny = 16; 
-	sfTypeObject = 17; 
-	sfTypeAddress = 18; 
-	sfTypeSize = 19; 
-	sfTypeUnsigned8 = 20; 
-	sfTypeUnsigned16 = 21; 
-	sfTypeUnsigned32 = 22; 
-	sfTypeUnsigned64 = 23; 
-	sfLastType = 23; 
-	sfMod1 = (sfLastType + 1); 
-	sfModOther = 45; 
-	sfTypeOpenArray = 46; 
-	sfTypeStaticArray = 48; 
-	sfTypePointer = 49; 
-	sfTypeRecord = 50; 
-	sfTypeProcedure = 51; 
-	sfSysFlag = 52; 
-	sfInvisible = 53; 
-	sfHidden = 172; 
-	sfReadOnly = 54; 
-	sfObjFlag = 55; 
-	sfConst = 55; 
-	sfVar = 56; 
-	sfTypeEnumeration = 57; 
-	sfXProcedure = 58; 
-	sfOperator = 59; 
-	sfTProcedure = 60; 
-	sfCProcedure = sfTProcedure; 
-	sfAlias = 61; 
-	sfType = 62; 
-	sfEnd = 63; 
-	sfTypeOpenMathArray = 64; 
-	sfTypeTensor = 66; 
-	sfTypeStaticMathArray = 67; 
-	sfTypeAll = 68; 
-	sfTypeRange = 69; 
-	sfTypeComplex = 70; 
-	sfTypeLongcomplex = 71; 
-	sfInline = 171; 
-	sfProtected = 0; 
-	sfActive = 1; 
-	sfSafe = 2; 
-	sfClass = 16; 
-	sfDelegate = 5; 
-	sfUntraced = 4; 
-	sfWinAPIParam = 13; 
-	sfCParam = 14; 
-	sfDarwinCParam = 15; 
-	sfRealtime = 21; 
-	sfDynamic = 22; 
-	sfUnsafe = 23; 
-	sfDisposable = 24; 
-	sfFictive = 25; 
-	Undef = MIN(LONGINT); 
-	FileTag = 0BBX; 
-	NoZeroCompress = 0ADX; 
-	FileVersion* = 0B1X; 
-	FileVersionOC* = 0B2X; 
-	FileVersionCurrent* = 0B4X; 
-TYPE 
-	TypeReference = OBJECT (SyntaxTree.Type)
-	VAR 
-		nr: LONGINT; 
-
-		PROCEDURE ^  & InitTypeReference(nr: LONGINT); 
-	END TypeReference; 
-
-	IndexToType = OBJECT (Basic.List)
-
-		PROCEDURE ^ PutType(nr: LONGINT; type: SyntaxTree.Type); 
-		PROCEDURE ^ GetType(nr: LONGINT): SyntaxTree.Type; 
-	END IndexToType; 
-
-	LateFix = POINTER TO RECORD 
-		p: ANY; 
-		next: LateFix; 
-	END; 
-
-	LateFixList = OBJECT 
-	VAR 
-		first, last: LateFix; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Get(): ANY; 
-		PROCEDURE ^ Add(p: ANY); 
-	END LateFixList; 
-
-	Resolver = OBJECT (SyntaxTree.Visitor)
-	VAR 
-		typeList: IndexToType; 
-		system: Global.System; 
-		typeFixes: LateFixList; 
-		checker: SemanticChecker.Checker; 
-
-		PROCEDURE ^  & Init(system: Global.System; symbolFile: BinarySymbolFile; importCache: SyntaxTree.ModuleScope); 
-		PROCEDURE ^ VisitType*(x: SyntaxTree.Type); 
-		PROCEDURE ^ VisitBasicType*(x: SyntaxTree.BasicType); 
-		PROCEDURE ^ VisitByteType*(x: SyntaxTree.ByteType); 
-		PROCEDURE ^ VisitBooleanType*(x: SyntaxTree.BooleanType); 
-		PROCEDURE ^ VisitSetType*(x: SyntaxTree.SetType); 
-		PROCEDURE ^ VisitAddressType*(x: SyntaxTree.AddressType); 
-		PROCEDURE ^ VisitSizeType*(x: SyntaxTree.SizeType); 
-		PROCEDURE ^ VisitAnyType*(x: SyntaxTree.AnyType); 
-		PROCEDURE ^ VisitObjectType*(x: SyntaxTree.ObjectType); 
-		PROCEDURE ^ VisitNilType*(x: SyntaxTree.NilType); 
-		PROCEDURE ^ VisitCharacterType*(x: SyntaxTree.CharacterType); 
-		PROCEDURE ^ VisitIntegerType*(x: SyntaxTree.IntegerType); 
-		PROCEDURE ^ VisitFloatType*(x: SyntaxTree.FloatType); 
-		PROCEDURE ^ VisitComplexType*(x: SyntaxTree.ComplexType); 
-		PROCEDURE ^ VisitQualifiedType*(x: SyntaxTree.QualifiedType); 
-		PROCEDURE ^ VisitStringType*(x: SyntaxTree.StringType); 
-		PROCEDURE ^ VisitRangeType*(x: SyntaxTree.RangeType); 
-		PROCEDURE ^ CheckEnumerationScope(x: SyntaxTree.EnumerationScope); 
-		PROCEDURE ^ VisitEnumerationType*(x: SyntaxTree.EnumerationType); 
-		PROCEDURE ^ VisitArrayType*(arrayType: SyntaxTree.ArrayType); 
-		PROCEDURE ^ VisitMathArrayType*(arrayType: SyntaxTree.MathArrayType); 
-		PROCEDURE ^ VisitPointerType*(pointerType: SyntaxTree.PointerType); 
-		PROCEDURE ^ FixPointerType(pointerType: SyntaxTree.PointerType); 
-		PROCEDURE ^ VisitRecordType*(recordType: SyntaxTree.RecordType); 
-		PROCEDURE ^ VisitProcedureType*(procedureType: SyntaxTree.ProcedureType); 
-		PROCEDURE ^ FixProcedureType(procedureType: SyntaxTree.ProcedureType); 
-		PROCEDURE ^ ResolveType(type: SyntaxTree.Type): SyntaxTree.Type; 
-		PROCEDURE ^ FixTypes; 
-		PROCEDURE ^ Scope(scope: SyntaxTree.Scope); 
-		PROCEDURE ^ Resolve(module: SyntaxTree.Module; typeList: IndexToType); 
-	END Resolver; 
-
-	Index = POINTER TO RECORD 
-		tag: LONGINT; 
-	END; 
-
-	TypeToIndex = OBJECT (Basic.HashTable)
-
-		PROCEDURE ^ GetIndex(type: SyntaxTree.Type): LONGINT; 
-		PROCEDURE ^ PutIndex(type: SyntaxTree.Type; nr: LONGINT); 
-	END TypeToIndex; 
-
-	Attribute = OBJECT 
-	VAR 
-		numberTypes: LONGINT; 
-		indexToType: IndexToType; 
-		typeToIndex: TypeToIndex; 
-
-		PROCEDURE ^  & Init; 
-	END Attribute; 
-
-	IndexToAttribute = OBJECT (Basic.List)
-
-		PROCEDURE ^ PutAttribute(nr: LONGINT; attribute: Attribute); 
-		PROCEDURE ^ GetAttribute(nr: LONGINT): Attribute; 
-	END IndexToAttribute; 
-
-	BinarySymbolFile* = OBJECT (Formats.SymbolFileFormat)
-	VAR 
-		file-: Files.File; 
-		extension-: Basic.FileName; 
-		noRedefinition, noModification, noInterfaceCheck: BOOLEAN; 
-		version: CHAR; 
-
-		PROCEDURE ^ Import*(CONST moduleName: ARRAY OF CHAR; importCache: SyntaxTree.ModuleScope): SyntaxTree.Module; 
-		PROCEDURE ^ Export*(module: SyntaxTree.Module; importCache: SyntaxTree.ModuleScope): BOOLEAN; 
-		PROCEDURE ^ DefineOptions*(options: Options.Options); 
-		PROCEDURE ^ GetOptions*(options: Options.Options); 
-	END BinarySymbolFile; 
-
-	PROCEDURE ^ MakeFileName(VAR file: ARRAY OF CHAR; CONST name, prefix, suffix: ARRAY OF CHAR); 
-	PROCEDURE ^ OpenSymFile(CONST name, prefix, suffix: ARRAY OF CHAR; VAR r: Streams.Reader; VAR version: CHAR): BOOLEAN; 
-	PROCEDURE ^ Get*(): Formats.SymbolFileFormat; 
-	PROCEDURE ^ Test*(context: Commands.Context); 
-BEGIN
-END FoxBinarySymbolFile.

Win64/bin/FoxInterpreter.SymWw

@@ -1,205 +0,0 @@
-MODULE FoxInterpreter;
-	IMPORT Scanner := FoxScanner, FoxParser, SyntaxTree := FoxSyntaxTree, Printout := FoxPrintout, Commands, Diagnostics, StringPool, InterpreterSymbols := FoxInterpreterSymbols, D := Debugging, Strings, Streams, Modules, PersistentObjects, Basic := FoxBasic, SYSTEM, Machine, Global := FoxGlobal, Heaps;
-CONST 
-	EnableTrace = FALSE; 
-	MaxIndex = 8; 
-TYPE 
-	Result* = InterpreterSymbols.Result; 
-
-	Value* = InterpreterSymbols.Value; 
-
-	Integer* = InterpreterSymbols.IntegerValue; 
-
-	Real* = InterpreterSymbols.RealValue; 
-
-	String* = InterpreterSymbols.StringValue; 
-
-	Boolean* = InterpreterSymbols.BooleanValue; 
-
-	Set* = InterpreterSymbols.SetValue; 
-
-	Range* = InterpreterSymbols.RangeValue; 
-
-	Char* = InterpreterSymbols.CharValue; 
-
-	Any* = InterpreterSymbols.AnyValue; 
-
-	MathArrayValue* = InterpreterSymbols.MathArrayValue; 
-
-	Scope* = InterpreterSymbols.Scope; 
-
-	Container* = InterpreterSymbols.Container; 
-
-	Builtin* = OBJECT (InterpreterSymbols.Object)
-	VAR 
-		id: LONGINT; 
-	END Builtin; 
-
-	Item* = RECORD 
-		object*: InterpreterSymbols.Item; 
-		in*: InterpreterSymbols.Item; 
-		name*: StringPool.Index; 
-		i*: ARRAY MaxIndex OF LONGINT; 
-	END; 
-
-	CommandStatement = OBJECT (SyntaxTree.Statement)
-	VAR 
-		command: Strings.String; 
-
-		PROCEDURE ^  & InitCommandStatement(s: Strings.String); 
-	END CommandStatement; 
-
-	PrintStatement = OBJECT (SyntaxTree.Statement)
-	VAR 
-		expression: SyntaxTree.Expression; 
-
-		PROCEDURE ^  & InitPrintStatement(e: SyntaxTree.Expression); 
-	END PrintStatement; 
-
-	Parser* = OBJECT (FoxParser.Parser)
-
-		PROCEDURE ^ Statement*(statements: SyntaxTree.StatementSequence; outer: SyntaxTree.Statement): BOOLEAN; 
-		PROCEDURE ^ Cmd(): SyntaxTree.Statement; 
-		PROCEDURE ^ Print(): SyntaxTree.Statement; 
-	END Parser; 
-
-	Interpreter* = OBJECT (SyntaxTree.Visitor)
-	VAR 
-		value: BOOLEAN; 
-		item-: Item; 
-		module-: Modules.Module; 
-		typeDesc-: Modules.TypeDesc; 
-		scope-: Scope; 
-		exit: BOOLEAN; 
-		error-: BOOLEAN; 
-		diagnostics: Diagnostics.Diagnostics; 
-		context-: Commands.Context; 
-
-		PROCEDURE ^  & Init*(scope: Scope; diagnostics: Diagnostics.Diagnostics; context: Commands.Context); 
-		PROCEDURE ^ SetScope*(s: Scope); 
-		PROCEDURE ^ Reset*; 
-		PROCEDURE ^ Error(CONST msg: ARRAY OF CHAR); 
-		PROCEDURE ^ ErrorSS(CONST msg: ARRAY OF CHAR; id: StringPool.Index); 
-		PROCEDURE ^ VisitSet*(x: SyntaxTree.Set); 
-		PROCEDURE ^ VisitMathArrayExpression*(x: SyntaxTree.MathArrayExpression); 
-		PROCEDURE ^ NewInt(i: HUGEINT); 
-		PROCEDURE ^ NewReal(i: LONGREAL); 
-		PROCEDURE ^ NewBool(b: BOOLEAN); 
-		PROCEDURE ^ NewSet(s: SET); 
-		PROCEDURE ^ NewString(CONST s: ARRAY OF CHAR); 
-		PROCEDURE ^ NewRange(r: RANGE); 
-		PROCEDURE ^ NewChar(c: CHAR); 
-		PROCEDURE ^ VisitUnaryExpression*(x: SyntaxTree.UnaryExpression); 
-		PROCEDURE ^ VisitBinaryExpression*(x: SyntaxTree.BinaryExpression); 
-		PROCEDURE ^ VisitRangeExpression*(x: SyntaxTree.RangeExpression); 
-		PROCEDURE ^ VisitTensorRangeExpression*(x: SyntaxTree.TensorRangeExpression); 
-		PROCEDURE ^ VisitConversion*(x: SyntaxTree.Conversion); 
-		PROCEDURE ^ VisitDesignator*(x: SyntaxTree.Designator); 
-		PROCEDURE ^ VisitQualifiedType*(x: SyntaxTree.QualifiedType); 
-		PROCEDURE ^ VisitIdentifierDesignator*(x: SyntaxTree.IdentifierDesignator); 
-		PROCEDURE ^ VisitSelectorDesignator*(x: SyntaxTree.SelectorDesignator); 
-		PROCEDURE ^ VisitParameterDesignator*(x: SyntaxTree.ParameterDesignator); 
-		PROCEDURE ^ VisitArrowDesignator*(x: SyntaxTree.ArrowDesignator); 
-		PROCEDURE ^ VisitBracketDesignator*(x: SyntaxTree.BracketDesignator); 
-		PROCEDURE ^ VisitSymbolDesignator*(x: SyntaxTree.SymbolDesignator); 
-		PROCEDURE ^ VisitIndexDesignator*(x: SyntaxTree.IndexDesignator); 
-		PROCEDURE ^ VisitProcedureCallDesignator*(x: SyntaxTree.ProcedureCallDesignator); 
-		PROCEDURE ^ SystemTrace(x: SyntaxTree.ExpressionList); 
-		PROCEDURE ^ FindType(type: SyntaxTree.Type): Result; 
-		PROCEDURE ^ VisitBuiltinCallDesignator*(x: SyntaxTree.BuiltinCallDesignator); 
-		PROCEDURE ^ VisitTypeGuardDesignator*(x: SyntaxTree.TypeGuardDesignator); 
-		PROCEDURE ^ VisitDereferenceDesignator*(x: SyntaxTree.DereferenceDesignator); 
-		PROCEDURE ^ VisitSupercallDesignator*(x: SyntaxTree.SupercallDesignator); 
-		PROCEDURE ^ VisitSelfDesignator*(x: SyntaxTree.SelfDesignator); 
-		PROCEDURE ^ VisitResultDesignator*(x: SyntaxTree.ResultDesignator); 
-		PROCEDURE ^ VisitValue*(x: SyntaxTree.Value); 
-		PROCEDURE ^ VisitBooleanValue*(x: SyntaxTree.BooleanValue); 
-		PROCEDURE ^ VisitIntegerValue*(x: SyntaxTree.IntegerValue); 
-		PROCEDURE ^ VisitCharacterValue*(x: SyntaxTree.CharacterValue); 
-		PROCEDURE ^ VisitSetValue*(x: SyntaxTree.SetValue); 
-		PROCEDURE ^ VisitMathArrayValue*(x: SyntaxTree.MathArrayValue); 
-		PROCEDURE ^ VisitRealValue*(x: SyntaxTree.RealValue); 
-		PROCEDURE ^ VisitComplexValue*(x: SyntaxTree.ComplexValue); 
-		PROCEDURE ^ VisitStringValue*(x: SyntaxTree.StringValue); 
-		PROCEDURE ^ VisitNilValue*(x: SyntaxTree.NilValue); 
-		PROCEDURE ^ VisitEnumerationValue*(x: SyntaxTree.EnumerationValue); 
-		PROCEDURE ^ VisitSymbol*(x: SyntaxTree.Symbol); 
-		PROCEDURE ^ VisitTypeDeclaration*(x: SyntaxTree.TypeDeclaration); 
-		PROCEDURE ^ VisitConstant*(x: SyntaxTree.Constant); 
-		PROCEDURE ^ VisitVariable*(x: SyntaxTree.Variable); 
-		PROCEDURE ^ VisitParameter*(x: SyntaxTree.Parameter); 
-		PROCEDURE ^ VisitProcedure*(x: SyntaxTree.Procedure); 
-		PROCEDURE ^ VisitBuiltin*(x: SyntaxTree.Builtin); 
-		PROCEDURE ^ VisitOperator*(x: SyntaxTree.Operator); 
-		PROCEDURE ^ VisitImport*(x: SyntaxTree.Import); 
-		PROCEDURE ^ TranslateString*(cmd: CHAR; CONST str: ARRAY OF CHAR; VAR dest: Strings.String): BOOLEAN; 
-		PROCEDURE ^ VisitCommandStatement(x: CommandStatement); 
-		PROCEDURE ^ VisitPrintStatement(x: PrintStatement); 
-		PROCEDURE ^ VisitStatement*(x: SyntaxTree.Statement); 
-		PROCEDURE ^ VisitProcedureCallStatement*(x: SyntaxTree.ProcedureCallStatement); 
-		PROCEDURE ^ LoadValue; 
-		PROCEDURE ^ GetValue*(x: SyntaxTree.Expression; VAR w: Value): BOOLEAN; 
-		PROCEDURE ^ Designate(x: SyntaxTree.Expression): Result; 
-		PROCEDURE ^ Evaluate(x: SyntaxTree.Expression): Value; 
-		PROCEDURE ^ GetInteger(x: SyntaxTree.Expression; VAR i: Integer): BOOLEAN; 
-		PROCEDURE ^ ExpectInteger(x: SyntaxTree.Expression; VAR i: Integer): BOOLEAN; 
-		PROCEDURE ^ GetBoolean(x: SyntaxTree.Expression; VAR i: Boolean): BOOLEAN; 
-		PROCEDURE ^ ExpectBoolean(x: SyntaxTree.Expression; VAR b: Boolean): BOOLEAN; 
-		PROCEDURE ^ PutValue(x: SyntaxTree.Designator; v: Value); 
-		PROCEDURE ^ VisitAssignment*(x: SyntaxTree.Assignment); 
-		PROCEDURE ^ IfPart(ifPart: SyntaxTree.IfPart): BOOLEAN; 
-		PROCEDURE ^ VisitIfStatement*(x: SyntaxTree.IfStatement); 
-		PROCEDURE ^ VisitWithStatement*(x: SyntaxTree.WithStatement); 
-		PROCEDURE ^ CasePart(x: SyntaxTree.CasePart; b: SyntaxTree.BinaryExpression): BOOLEAN; 
-		PROCEDURE ^ VisitCaseStatement*(x: SyntaxTree.CaseStatement); 
-		PROCEDURE ^ VisitWhileStatement*(x: SyntaxTree.WhileStatement); 
-		PROCEDURE ^ VisitRepeatStatement*(x: SyntaxTree.RepeatStatement); 
-		PROCEDURE ^ VisitForStatement*(x: SyntaxTree.ForStatement); 
-		PROCEDURE ^ VisitLoopStatement*(x: SyntaxTree.LoopStatement); 
-		PROCEDURE ^ VisitExitStatement*(x: SyntaxTree.ExitStatement); 
-		PROCEDURE ^ VisitReturnStatement*(x: SyntaxTree.ReturnStatement); 
-		PROCEDURE ^ VisitAwaitStatement*(x: SyntaxTree.AwaitStatement); 
-		PROCEDURE ^ VisitStatementBlock*(x: SyntaxTree.StatementBlock); 
-		PROCEDURE ^ VisitCode*(x: SyntaxTree.Code); 
-		PROCEDURE ^ Expression(x: SyntaxTree.Expression); 
-		PROCEDURE ^ Statement*(x: SyntaxTree.Statement); 
-		PROCEDURE ^ StatementSequence*(x: SyntaxTree.StatementSequence); 
-	END Interpreter; 
-
-	Resolver* = OBJECT 
-	VAR 
-		interpreter: Interpreter; 
-		content: PersistentObjects.Content; 
-		resolved: Basic.HashTable; 
-		current: Scope; 
-		changed: BOOLEAN; 
-
-		PROCEDURE ^  & InitResolver*; 
-		PROCEDURE ^ Traverse(CONST name: ARRAY OF CHAR; array: BOOLEAN); 
-		PROCEDURE ^ DoResolve*(scope: Scope); 
-		PROCEDURE ^ Resolve*(scope: Scope); 
-	END Resolver; 
-
-	TestO = OBJECT 
-	VAR 
-		i: LONGINT; 
-
-		PROCEDURE ^  & P(s: SHORTINT); 
-	END TestO; 
-
-	; 
-VAR 
-	global-: Scope; 
-	c: LONGINT; 
-	d: RECORD 
-		e: LONGINT; 
-	END; 
-
-	PROCEDURE ^ Statements*(context: Commands.Context); 
-	PROCEDURE ^ Expression*(context: Commands.Context); 
-	PROCEDURE ^ TranslateString*(context: Commands.Context); 
-	PROCEDURE ^ InitGlobalScope; 
-	PROCEDURE ^ Getter(): LONGINT; 
-	PROCEDURE ^ Setter(a: LONGINT): LONGINT; 
-BEGIN
-END FoxInterpreter.

Win64/bin/FoxInterpreterSymbols.SymWw

@@ -1,351 +0,0 @@
-MODULE FoxInterpreterSymbols;
-	IMPORT Strings, Basic := FoxBasic, StringPool, Streams, Commands, PersistentObjects, Modules, Machine, SyntaxTree := FoxSyntaxTree, SYSTEM, Reflection;
-CONST 
-	TAB = 9X; 
-	StrValue = \"value"\; 
-TYPE 
-	Item* = PersistentObjects.Object; 
-
-	Object* = PersistentObjects.Object; 
-
-	Content* = PersistentObjects.Content; 
-
-	Name* = ARRAY 128 OF CHAR; 
-
-	Meta* = RECORD 
-		module*: Modules.Module; 
-		refs*: Modules.Bytes; 
-		offset*: SIZE; 
-	END; 
-
-	Result* = OBJECT (Item)
-
-		PROCEDURE ^ Evaluate*(): Value; 
-		PROCEDURE ^ SetV*(v: Value): BOOLEAN; 
-		PROCEDURE ^ Find*(CONST name: ARRAY OF CHAR): Result; 
-		PROCEDURE ^ Address*(): ADDRESS; 
-		PROCEDURE ^ Trace*; 
-	END Result; 
-
-	SymbolResult* = OBJECT (Result)
-	VAR 
-		name: ARRAY 32 OF CHAR; 
-
-		PROCEDURE ^ InitSymbol(CONST n: ARRAY OF CHAR); 
-	END SymbolResult; 
-
-	TypeResult* = OBJECT (SymbolResult)
-	VAR 
-		type-: Meta; 
-		address: ADDRESS; 
-
-		PROCEDURE ^  & InitType(CONST name: ARRAY OF CHAR; t: Meta); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-		PROCEDURE ^ Constructor*(): ProcedureResult; 
-	END TypeResult; 
-
-	ModuleResult* = OBJECT (SymbolResult)
-	VAR 
-		self: Meta; 
-
-		PROCEDURE ^  & InitModule(CONST name: ARRAY OF CHAR; m: Meta); 
-		PROCEDURE ^ Find*(CONST name: ARRAY OF CHAR): Result; 
-	END ModuleResult; 
-
-	Callstack = OBJECT 
-	VAR 
-		data: ARRAY 1024 OF CHAR; 
-		pos: SIZE; 
-		size: SIZE; 
-		H: HUGEINT; 
-		pPos: LONGINT; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ Next(s: SIZE): ADDRESS; 
-		PROCEDURE ^ PushH(h: HUGEINT); 
-		PROCEDURE ^ PushL(i: LONGINT); 
-		PROCEDURE ^ PushI(i: INTEGER); 
-		PROCEDURE ^ PushS(i: SHORTINT); 
-		PROCEDURE ^ PushB(b: BOOLEAN); 
-		PROCEDURE ^ PushC(c: CHAR); 
-		PROCEDURE ^ PushSet(set: SET); 
-		PROCEDURE ^ PushR(r: REAL); 
-		PROCEDURE ^ PushX(x: LONGREAL); 
-		PROCEDURE ^ PushA(a: ADDRESS); 
-		PROCEDURE ^ PushSz(s: SIZE); 
-		PROCEDURE ^ Call(adr: ADDRESS); 
-		PROCEDURE ^ CallH(adr: ADDRESS): HUGEINT; 
-		PROCEDURE ^ CallR(adr: ADDRESS): REAL; 
-		PROCEDURE ^ CallX(adr: ADDRESS): LONGREAL; 
-	END Callstack; 
-
-	ProcedureResult* = OBJECT (SymbolResult)
-	VAR 
-		meta: Meta; 
-		address: ADDRESS; 
-		stack: Callstack; 
-		index: LONGINT; 
-		caller-: Result; 
-		parameters: Meta; 
-		flags: SET; 
-
-		PROCEDURE ^ Parameters(): Meta; 
-		PROCEDURE ^ ReturnType(): Meta; 
-		PROCEDURE ^ ReturnsPointer*(): BOOLEAN; 
-		PROCEDURE ^ Address*(): ADDRESS; 
-		PROCEDURE ^  & InitProcedure(c: Result; CONST name: ARRAY OF CHAR; m: Meta); 
-		PROCEDURE ^ Pars*; 
-		PROCEDURE ^ PushAddress*(adr: ADDRESS); 
-		PROCEDURE ^ PushTyped*(o: Result; mode: CHAR; refs: Modules.Bytes; VAR offset: SIZE): BOOLEAN; 
-		PROCEDURE ^ Push*(o: Result): BOOLEAN; 
-		PROCEDURE ^ Check*(): BOOLEAN; 
-		PROCEDURE ^ Evaluate*(): Value; 
-	END ProcedureResult; 
-
-	FieldResult* = OBJECT (SymbolResult)
-	VAR 
-		address: ADDRESS; 
-		meta: Meta; 
-
-		PROCEDURE ^  & InitField(CONST name: ARRAY OF CHAR; meta: Meta; base: ADDRESS); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-		PROCEDURE ^ Evaluate*(): Value; 
-		PROCEDURE ^ SetV*(v: Value): BOOLEAN; 
-		PROCEDURE ^ Find*(CONST name: ARRAY OF CHAR): Result; 
-	END FieldResult; 
-
-	Value* = OBJECT (Result)
-
-		PROCEDURE ^  & InitValue; 
-		PROCEDURE ^ Evaluate*(): Value; 
-		PROCEDURE ^ GetInt*(VAR h: HUGEINT): BOOLEAN; 
-		PROCEDURE ^ GetAddress*(VAR a: ADDRESS): BOOLEAN; 
-		PROCEDURE ^ GetReal*(VAR x: LONGREAL): BOOLEAN; 
-		PROCEDURE ^ GetBoolean*(VAR x: BOOLEAN): BOOLEAN; 
-		PROCEDURE ^ GetSet*(VAR x: SET): BOOLEAN; 
-		PROCEDURE ^ GetChar*(VAR x: CHAR): BOOLEAN; 
-		PROCEDURE ^ GetRange*(VAR x: RANGE): BOOLEAN; 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ GetString*(VAR w: ARRAY OF CHAR); 
-	END Value; 
-
-	AnyValue* = OBJECT (Value)
-	VAR 
-		value*: ANY; 
-
-		PROCEDURE ^  & InitAny*(value: ANY); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ GetAddress*(VAR a: ADDRESS): BOOLEAN; 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-		PROCEDURE ^ Find*(CONST name: ARRAY OF CHAR): Result; 
-	END AnyValue; 
-
-	AddressValue* = OBJECT (Value)
-	VAR 
-		value*: ADDRESS; 
-
-		PROCEDURE ^  & InitAny*(value: ADDRESS); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ GetAddress*(VAR a: ADDRESS): BOOLEAN; 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-	END AddressValue; 
-
-	IntegerValue* = OBJECT (Value)
-	VAR 
-		value*: HUGEINT; 
-
-		PROCEDURE ^  & InitInteger*(value: HUGEINT); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ GetInt*(VAR v: HUGEINT): BOOLEAN; 
-		PROCEDURE ^ GetReal*(VAR x: LONGREAL): BOOLEAN; 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-	END IntegerValue; 
-
-	RealValue* = OBJECT (Value)
-	VAR 
-		value*: LONGREAL; 
-
-		PROCEDURE ^  & InitReal*(value: LONGREAL); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ GetReal*(VAR x: LONGREAL): BOOLEAN; 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-	END RealValue; 
-
-	BooleanValue* = OBJECT (Value)
-	VAR 
-		value*: BOOLEAN; 
-
-		PROCEDURE ^  & InitBoolean*(value: BOOLEAN); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ GetBoolean*(VAR x: BOOLEAN): BOOLEAN; 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-	END BooleanValue; 
-
-	StringValue* = OBJECT (Value)
-	VAR 
-		value*: Strings.String; 
-
-		PROCEDURE ^  & InitString*(CONST value: ARRAY OF CHAR); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-	END StringValue; 
-
-	SetValue* = OBJECT (Value)
-	VAR 
-		value*: SET; 
-
-		PROCEDURE ^  & InitSet*(value: SET); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ GetSet*(VAR x: SET): BOOLEAN; 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-	END SetValue; 
-
-	RangeValue* = OBJECT (Value)
-	VAR 
-		value*: RANGE; 
-
-		PROCEDURE ^  & InitRange*(r: RANGE); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ GetRange*(VAR x: RANGE): BOOLEAN; 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-	END RangeValue; 
-
-	CharValue* = OBJECT (Value)
-	VAR 
-		value: CHAR; 
-
-		PROCEDURE ^  & InitChar*(c: CHAR); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ GetChar*(VAR c: CHAR): BOOLEAN; 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-	END CharValue; 
-
-	EnumValue* = OBJECT (Value)
-	VAR 
-		value: HUGEINT; 
-		translation: PersistentObjects.Translation; 
-
-		PROCEDURE ^  & InitEnumValue*(trans: PersistentObjects.Translation; v: HUGEINT); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-		PROCEDURE ^ Address*(): ADDRESS; 
-	END EnumValue; 
-
-	MathArrayValue* = OBJECT (Value)
-	VAR 
-		values: ARRAY [*] OF Value; 
-
-		PROCEDURE ^  & InitMathArrayValue*(len: LONGINT); 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ SetValue*(at: LONGINT; value: Value); 
-		PROCEDURE ^ GetValue*(at: LONGINT): Value; 
-		PROCEDURE ^ WriteValue*(w: Streams.Writer); 
-	END MathArrayValue; 
-
-	Symbol* = OBJECT 
-	VAR 
-		name: StringPool.Index; 
-		item-: Item; 
-
-		PROCEDURE ^  & InitSymbol(name: StringPool.Index; index: LONGINT); 
-		PROCEDURE ^ GetName(VAR name: ARRAY OF CHAR); 
-	END Symbol; 
-
-	Container* = OBJECT (Item)
-	VAR 
-		symbols-: Basic.List; 
-		lookup-: Basic.HashTableInt; 
-
-		PROCEDURE ^  & InitContainer*; 
-		PROCEDURE ^ Enumerate*(enum: PersistentObjects.Enumerator); 
-		PROCEDURE ^ Set*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ Get*(CONST name: ARRAY OF CHAR; index: LONGINT; c: Content); 
-		PROCEDURE ^ GetItem*(index: LONGINT): Item; 
-		PROCEDURE ^ Enter1*(item: Item; name: StringPool.Index); 
-		PROCEDURE ^ Enter*(item: Item; CONST name: ARRAY OF CHAR); 
-		PROCEDURE ^ Find1*(id: LONGINT): Item; 
-		PROCEDURE ^ Find*(CONST name: ARRAY OF CHAR): Item; 
-	END Container; 
-
-	Scope* = OBJECT 
-	VAR 
-		outer-: Scope; 
-		object-: Object; 
-		level: LONGINT; 
-
-		PROCEDURE ^  & InitScope*(outer: Scope; object: Object); 
-		PROCEDURE ^ Enter*(object: Object): Scope; 
-		PROCEDURE ^ FindObject*(CONST name: ARRAY OF CHAR; index: LONGINT; VAR in: Object): Object; 
-		PROCEDURE ^ FindObject1*(name: StringPool.Index; index: LONGINT; VAR in: Object): Object; 
-		PROCEDURE ^ Leave*(): Scope; 
-		PROCEDURE ^ Dump*(log: Streams.Writer); 
-	END Scope; 
-
-	ObjectFilter* = OBJECT 
-	VAR 
-		content: Content; 
-		object: Object; 
-		found: Container; 
-		attribute, value: ARRAY 256 OF CHAR; 
-
-		PROCEDURE ^  & InitObjectFilter*; 
-		PROCEDURE ^ AddFiltered(obj: Object); 
-		PROCEDURE ^ Enumerate(CONST name: ARRAY OF CHAR; array: BOOLEAN); 
-		PROCEDURE ^ Filter*(obj: Object; attribute, value: ARRAY OF CHAR): Container; 
-	END ObjectFilter; 
-
-	PROCEDURE ^ FindSymbol*(CONST name: ARRAY OF CHAR; meta: Meta): Meta; 
-	PROCEDURE ^ SymbolKind*(meta: Meta): CHAR; 
-	PROCEDURE ^ SymbolParent*(meta: Meta): Meta; 
-	PROCEDURE ^ SymbolName*(meta: Meta; VAR name: ARRAY OF CHAR); 
-	PROCEDURE ^ VariableMode*(meta: Meta): Meta; 
-	PROCEDURE ^ VariableType*(meta: Meta): Meta; 
-	PROCEDURE ^ SymbolAddress*(meta: Meta; base: ADDRESS): ADDRESS; 
-	PROCEDURE ^ FindInType(scope: Result; address: ADDRESS; type: ADDRESS; CONST name: ARRAY OF CHAR): Result; 
-	PROCEDURE ^ FindConstructor(scope: Result; type: ADDRESS): ProcedureResult; 
-	PROCEDURE ^ Indent(w: Streams.Writer; level: LONGINT); 
-	PROCEDURE ^ Test*(context: Commands.Context); 
-	PROCEDURE ^ ContentGetValue(c: Content): Value; 
-	PROCEDURE ^ NewIntegerValue(value: HUGEINT): IntegerValue; 
-	PROCEDURE ^ NewFloatValue(value: LONGREAL): RealValue; 
-	PROCEDURE ^ NewBooleanValue(value: BOOLEAN): BooleanValue; 
-	PROCEDURE ^ NewStringValue(CONST value: ARRAY OF CHAR): StringValue; 
-	PROCEDURE ^ NewNameValue(CONST value: ARRAY OF CHAR): StringValue; 
-	PROCEDURE ^ NewRangeValue(value: RANGE): RangeValue; 
-	PROCEDURE ^ NewCharValue(value: CHAR): CharValue; 
-	PROCEDURE ^ NewSetValue(value: SET): SetValue; 
-	PROCEDURE ^ NewEnumValue(translation: PersistentObjects.Translation; value: HUGEINT): EnumValue; 
-	PROCEDURE ^ FindInObject*(in: Object; CONST name: ARRAY OF CHAR; index: LONGINT): Object; 
-	PROCEDURE ^ GetModule*(CONST name: ARRAY OF CHAR): ModuleResult; 
-	PROCEDURE ^ FindInObject1*(in: Object; name: StringPool.Index; index: LONGINT): Object; 
-BEGIN
-END FoxInterpreterSymbols.

Win64/bin/FoxTRMTools.SymWw

@@ -1,12 +0,0 @@
-MODULE FoxTRMTools;
-	IMPORT Files, Commands, Options, Strings, Basic := FoxBasic, Diagnostics, BitSets, ObjectFile;
-CONST 
-
-	PROCEDURE ^ PatchSpartan6(CONST this: ARRAY OF CHAR; VAR result: ARRAY OF CHAR; line: LONGINT); 
-	PROCEDURE ^ SplitColumns*(CONST source, target: ARRAY OF CHAR; instructionWidth, numBase, baseDiv: LONGINT; diagnostics: Diagnostics.Diagnostics): BOOLEAN; 
-	PROCEDURE ^ DoSplitFiles*(CONST source, dest, extension: ARRAY OF CHAR; blocks, blockSize: LONGINT; verbose, strided, patchSpartan6: BOOLEAN; diagnostics: Diagnostics.Diagnostics): BOOLEAN; 
-	PROCEDURE ^ SplitFiles*(context: Commands.Context); 
-	PROCEDURE ^ SplitColumnsCmd*(context: Commands.Context); 
-	PROCEDURE ^ CompareFiles*(context: Commands.Context); 
-BEGIN
-END FoxTRMTools.

Win64/bin/GenericLoader.SymWw

@@ -1,109 +0,0 @@
-MODULE GenericLoader;
-	IMPORT SYSTEM, KernelLog, Modules, Streams, Files, D := KernelLog, GenericLinker, ObjectFile, Diagnostics, Strings, StringPool, Trace, Machine;
-CONST 
-	Ok = 0; 
-	LinkerError = 3400; 
-	FileNotFound = 3401; 
-	CommandTrapped* = 3904; 
-	SupportOldObjectFileFormat = FALSE; 
-	TraceLoading = FALSE; 
-TYPE 
-	HashEntryIntInt = RECORD 
-		key, value: SIZE; 
-	END; 
-
-	HashIntArray = POINTER TO ARRAY OF HashEntryIntInt; 
-
-	HashEntryIntAny = RECORD 
-		key: SIZE; 
-		value: ANY; 
-	END; 
-
-	HashIntAnyArray = POINTER TO ARRAY OF HashEntryIntAny; 
-
-	HashTableInt = OBJECT 
-	VAR 
-		table: HashIntArray; 
-		size: LONGINT; 
-		used-: LONGINT; 
-		maxLoadFactor: REAL; 
-
-		PROCEDURE ^  & Init*(initialSize: LONGINT); 
-		PROCEDURE ^ Put*(key: SIZE; value: SIZE); 
-		PROCEDURE ^ Get*(key: SIZE): SIZE; 
-		PROCEDURE ^ Has*(key: SIZE): BOOLEAN; 
-		PROCEDURE ^ Length*(): LONGINT; 
-		PROCEDURE ^ Clear*; 
-		PROCEDURE ^ HashValue(key: SIZE): SIZE; 
-		PROCEDURE ^ Grow; 
-	END HashTableInt; 
-
-	HashTableIntAny* = OBJECT 
-	VAR 
-		table: HashIntAnyArray; 
-		size: LONGINT; 
-		used-: LONGINT; 
-		maxLoadFactor: REAL; 
-
-		PROCEDURE ^  & Init*(initialSize: LONGINT); 
-		PROCEDURE ^ Put*(key: SIZE; value: ANY); 
-		PROCEDURE ^ Get*(key: LONGINT): ANY; 
-		PROCEDURE ^ Has*(key: LONGINT): BOOLEAN; 
-		PROCEDURE ^ Length*(): LONGINT; 
-		PROCEDURE ^ Clear*; 
-		PROCEDURE ^ HashValue(key: SIZE): SIZE; 
-		PROCEDURE ^ Grow; 
-	END HashTableIntAny; 
-
-	Data = RECORD 
-		size, pos: LONGINT; 
-		bytes: Modules.Bytes; 
-		firstAddress: ADDRESS; 
-	END; 
-
-	Arrangement* = OBJECT (GenericLinker.Arrangement)
-	VAR 
-		code, data: Data; 
-		hasBody: BOOLEAN; 
-		bodyAddress: ADDRESS; 
-
-		PROCEDURE ^  & InitArrangement; 
-		PROCEDURE ^ Preallocate*(CONST section: ObjectFile.Section); 
-		PROCEDURE ^ Allocate*(CONST section: ObjectFile.Section): GenericLinker.Address; 
-		PROCEDURE ^ Patch*(pos, value: GenericLinker.Address; offset, bits, unit: ObjectFile.Bits); 
-	END Arrangement; 
-
-	ModuleList = OBJECT {EXCLUSIVE} 
-	VAR 
-		hash: HashTableIntAny; 
-
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ ThisModule(module: Modules.Module): HashTableInt; 
-	END ModuleList; 
-
-	Linker = OBJECT (GenericLinker.Linker)
-	VAR 
-		moduleName: ObjectFile.SegmentedName; 
-		importBlock: GenericLinker.Block; 
-		hash: HashTableIntAny; 
-		moduleBlock: GenericLinker.Block; 
-
-		PROCEDURE ^  & InitLinkerX*(diagnostics: Diagnostics.Diagnostics; log: Streams.Writer; code, data: GenericLinker.Arrangement; CONST name: ARRAY OF CHAR); 
-		PROCEDURE ^ FindBlock*(CONST identifier: ObjectFile.Identifier): GenericLinker.Block; 
-		PROCEDURE ^ ExportBlock*(block: GenericLinker.Block); 
-		PROCEDURE ^ ImportBlock*(CONST fixup: ObjectFile.Fixup): GenericLinker.Block; 
-	END Linker; 
-VAR 
-	moduleList: ModuleList; 
-	testTypeDescs: Modules.Bytes; 
-	InternalModuleName: StringPool.Index; 
-
-	PROCEDURE ^ InitData(VAR data: Data); 
-	PROCEDURE ^ IsPrefix(CONST prefix, of: ObjectFile.SegmentedName): BOOLEAN; 
-	PROCEDURE ^ DoPreallocate(CONST section: ObjectFile.Section; VAR data: Data); 
-	PROCEDURE ^ DoAllocate(CONST section: ObjectFile.Section; VAR data: Data): ADDRESS; 
-	PROCEDURE ^ LoadObj*(CONST name, fileName: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): Modules.Module; 
-	PROCEDURE ^ Install*; 
-	PROCEDURE ^ Remove*; 
-BEGIN
-END GenericLoader.

Win64/bin/InterpreterShell.SymWw

@@ -1,112 +0,0 @@
-MODULE InterpreterShell;
-	IMPORT Modules, Commands, Streams, Pipes, Strings, Files, Interpreter := FoxInterpreter, Diagnostics, Scanner := FoxScanner, SyntaxTree := FoxSyntaxTree, Printout := FoxPrintout, InterpreterSymbols := FoxInterpreterSymbols;
-CONST 
-	ExitShell* = 1; 
-	Clear* = 2; 
-	Version = \"InterpreterShell v1.0"\; 
-	DefaultAliasFile = \"Shell.Alias"\; 
-	NestingLevelIndicator = \">"\; 
-	MaxLen = 512; 
-	CmdLen = 64; 
-	ParamLen = MaxLen; 
-	CR = 0DX; 
-	LF = 0AX; 
-	TAB = 9X; 
-	Backspace = 8X; 
-	Space = 20X; 
-	Delete = 7FX; 
-	Escape = 1BX; 
-	EscapeChar1 = Escape; 
-	EscapeChar2 = \"["\; 
-	CursorUp = 0C1X; 
-	CursorDown = 0C2X; 
-	start = {}; 
-	inputFile = {0}; 
-	pipe = {1}; 
-	outputFile = {2}; 
-	outputFileAppend = {3}; 
-	ampersand = {4}; 
-	whitespace = {5}; 
-	eoln = {6}; 
-	char = {7}; 
-	EndOfParam = (((((pipe + inputFile) + outputFile) + outputFileAppend) + ampersand) + eoln); 
-	ErrFileNotFound = 1; 
-	ErrInvalidFilename = 2; 
-	ErrAlreadyPiped = 3; 
-	ErrPipeAtBeginning = 4; 
-	ErrInvalidCommand = 5; 
-	ErrEolnExpected = 6; 
-TYPE 
-	CommandsString = POINTER TO RECORD 
-		prev, next: CommandsString; 
-		string: ARRAY MaxLen OF CHAR; 
-	END; 
-
-	CommandHistory = OBJECT 
-	VAR 
-		first, current: CommandsString; 
-
-		PROCEDURE ^ GetNextCommand(VAR cmd: ARRAY OF CHAR); 
-		PROCEDURE ^ GetPreviousCommand(VAR cmd: ARRAY OF CHAR); 
-		PROCEDURE ^ AddCommand(CONST cmd: ARRAY OF CHAR); 
-		PROCEDURE ^  & Init*; 
-	END CommandHistory; 
-
-	Command = POINTER TO RECORD 
-		command: ARRAY CmdLen OF CHAR; 
-		parameters: ARRAY ParamLen OF CHAR; 
-		context: Commands.Context; 
-		pipe: Pipes.Pipe; 
-		next: Command; 
-	END; 
-
-	Alias = POINTER TO RECORD 
-		alias, command: ARRAY CmdLen OF CHAR; 
-		parameters: ARRAY ParamLen OF CHAR; 
-		next: Alias; 
-	END; 
-
-	NotifyProcedure* = PROCEDURE {DELEGATE}(command: LONGINT); 
-
-	Shell* = OBJECT {EXCLUSIVE} 
-	TYPE 
-		StringType = POINTER TO ARRAY OF CHAR; 
-
-		Reader* = OBJECT {EXCLUSIVE} (Streams.Reader)
-		VAR 
-			length: LONGINT; 
-			data: StringType; 
-			rofs: LONGINT; 
-
-			PROCEDURE ^  & Init*(initialSize: LONGINT); 
-			PROCEDURE ^ Add*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT); 
-			PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
-		END Reader; 
-	VAR 
-		echo, dead, close: BOOLEAN; 
-		context: Commands.Context; 
-		command: ARRAY MaxLen OF CHAR; 
-		res: LONGINT; 
-		nestingLevel: LONGINT; 
-		aliases: Alias; 
-		prompt: ARRAY 32 OF CHAR; 
-		seenCR: CHAR; 
-		upcall: NotifyProcedure; 
-		commandHistory: CommandHistory; 
-
-		PROCEDURE ^  & Init*(in: Streams.Reader; out, err: Streams.Writer; echo: BOOLEAN; CONST prompt: ARRAY OF CHAR); 
-		PROCEDURE ^ Exit*; 
-		PROCEDURE ^ DeleteStringFromDisplay(CONST x: ARRAY OF CHAR); 
-		PROCEDURE ^ ReadCommand(w: Streams.Writer); 
-		PROCEDURE ^ ReadAlias(cmd: Command; verbose: BOOLEAN); 
-		PROCEDURE ^ Run; 
-		PROCEDURE ^ AwaitDeath*; 
-		PROCEDURE ^ SetUpcall*(proc: NotifyProcedure); 
-		PROCEDURE ^ ParseAliases(r: Files.Reader); 
-		PROCEDURE ^ LoadAliasesFromFile(filename: ARRAY OF CHAR); 
-	BEGIN{ACTIVE, SAFE} 
-	END Shell; 
-
-	PROCEDURE ^ Start*(context: Commands.Context); 
-BEGIN
-END InterpreterShell.

Win64/bin/Kernel64.SymWw

@@ -1,487 +0,0 @@
-MODULE Kernel64;
-	IMPORT SYSTEM;
-CONST 
-	Generic* = TRUE; 
-	NULL* = 0; 
-	False* = NULL; 
-	True* = 1; 
-	InvalidHandleValue* =  -1; 
-	STDInput* =  -10; 
-	STDOutput* =  -11; 
-	STDError* =  -12; 
-	GenericWrite* = 30; 
-	GenericRead* = 31; 
-	FileShareRead* = 0; 
-	FileShareWrite* = 1; 
-	FileShareDelete* = 2; 
-	CreateAlways* = 2; 
-	OpenExisting* = 3; 
-	FileAttributeReadonly* = 0; 
-	FileAttributeHidden* = 1; 
-	FileAttributeSystem* = 2; 
-	FileAttributeDirectory* = 4; 
-	FileAttributeArchive* = 5; 
-	FileAttributeEncrypted* = 6; 
-	FileAttributeNormal* = 7; 
-	FileAttributeTemporary* = 8; 
-	FileAttributeSparseFILE* = 9; 
-	FileAttributeReparsePoint* = 10; 
-	FileAttributeCompressed* = 11; 
-	FileAttributeOffline* = 12; 
-	FileAttributeNotContentIndexed* = 13; 
-	FileFlagDeleteOnClose* = 26; 
-	FileFlagRandomAccess* = 28; 
-	FileFlagOverlapped* = 30; 
-	FileFlagWriteThrough* = 31; 
-	FileBegin* = 0; 
-	MoveFileReplaceExisting* = 0; 
-	MoveFileCopyAllowed* = 1; 
-	MoveFileWriteThrough* = 3; 
-	MEMCommit* = 12; 
-	MEMReserve* = 13; 
-	MEMDecommit* = 14; 
-	MEMRelease* = 15; 
-	CreateSuspended* = 2; 
-	TLSOutOfIndexes* =  -1; 
-	HeapNoSerialize* = 2; 
-	HeapGenerateExceptions* = 4; 
-	HeapZeroMemory* = 8; 
-	PageReadWrite* = 2; 
-	PageExecuteReadWrite* = 6; 
-	GMemMoveable* = 1; 
-	GMemShare* = 13; 
-	GMemDDEShare* = GMemShare; 
-	MaxPath* = 260; 
-	DriveUnknown* = 0; 
-	DriveNoRootDir* = 1; 
-	DriveRemovable* = 2; 
-	DriveFixed* = 3; 
-	DriveRemote* = 4; 
-	DriveCDRom* = 5; 
-	DriveRamDisk* = 6; 
-	Infinite* =  -1; 
-	WaitObject0* = 0; 
-	SizeOf80387Registers* = 80; 
-	ExceptionMaximumParameters* = 15; 
-	ExceptionGuardPage* = LONGINT(80000001H); 
-	ExceptionBreakPoint* = LONGINT(80000003H); 
-	ExceptionSingleStep* = LONGINT(80000004H); 
-	ExceptionAccessViolation* = LONGINT(0C0000005H); 
-	ExceptionIllegalInstruction* = LONGINT(0C000001DH); 
-	ExceptionArrayBoundsExceeded* = LONGINT(0C000008CH); 
-	ExceptionFltDenormalOperand* = LONGINT(0C000008DH); 
-	ExceptionFltDivideByZero* = LONGINT(0C000008EH); 
-	ExceptionFltInexactResult* = LONGINT(0C000008FH); 
-	ExceptionFltInvalidOperation* = LONGINT(0C0000090H); 
-	ExceptionFltOverflow* = LONGINT(0C0000091H); 
-	ExceptionFltStackCheck* = LONGINT(0C0000092H); 
-	ExceptionFltUndeflow* = LONGINT(0C0000093H); 
-	ExceptionIntDivideByZero* = LONGINT(0C0000094H); 
-	ExceptionIntOverflow* = LONGINT(0C0000095H); 
-	ExceptionPrivInstruction* = LONGINT(0C0000096H); 
-	ExceptionStackOverflow* = LONGINT(0C00000FDH); 
-	ContextIntel = 16; 
-	ContextControl* = {0, ContextIntel}; 
-	ContextInteger* = {1, ContextIntel}; 
-	ContextSegments* = {2, ContextIntel}; 
-	ContextFloatingPoint* = {3, ContextIntel}; 
-	ContextDebugRegisters* = {4, ContextIntel}; 
-	ContextFull* = ((ContextControl + ContextInteger) + ContextSegments); 
-	ExceptionContinueExecution* =  -1; 
-	ExceptionContinueSearch* = 0; 
-	ExceptionExecuteHandler* = 1; 
-	ThreadPriorityIdle* =  -15; 
-	ThreadPriorityBelowNormal* =  -1; 
-	ThreadPriorityNormal* = 0; 
-	ThreadPriorityAboveNormal* = 1; 
-	ThreadPriorityHighest* = 2; 
-	ThreadPriorityTimeCritical* = 15; 
-	ThreadPriorityErrorReturn* = MAX(LONGINT); 
-	WaitTimeout* = 258; 
-	SEMFailCriticalErrors* = 0; 
-	DuplicateCloseSource* = 0; 
-	DuplicateSameAccess* = 1; 
-	StartFUseShowWindow* = 0; 
-	StartFUseSize* = 1; 
-	StartFUsePosition* = 2; 
-	VerPlatformWin32s* = 0; 
-	VerPlatformWin32Windows* = 1; 
-	VerPlatformWin32NT* = 2; 
-	SETXOFF* = 1; 
-	SETXON* = 2; 
-	SETRTS* = 3; 
-	CLRRTS* = 4; 
-	SETDTR* = 5; 
-	CLRDTR* = 6; 
-	RESETDEV* = 7; 
-	SETBREAK* = 8; 
-	CLRBREAK* = 9; 
-	PurgeTXAbort* = 0; 
-	PurgeRXAbort* = 1; 
-	PurgeTXClear* = 2; 
-	PurgeRXClear* = 3; 
-	EVRXChar* = 0; 
-	EVRXFlag* = 1; 
-	EVTXEmpty* = 2; 
-	EVCTS* = 3; 
-	EVDSR* = 4; 
-	EVRLSD* = 5; 
-	EVBreak* = 6; 
-	EVErr* = 7; 
-	EVRing* = 8; 
-	EVPErr* = 9; 
-	EVRX80Full* = 10; 
-	EVEvent1* = 11; 
-	EVEvent2* = 12; 
-	MSCTSOn* = 4; 
-	MSDSROn* = 5; 
-	MSRingOn* = 6; 
-	MSRLSDOn* = 7; 
-	NoParity* = 0X; 
-	OddParity* = 1X; 
-	EvenParity* = 2X; 
-	MarkParity* = 3X; 
-	SpaceParity* = 4X; 
-	OneStopBit* = 0X; 
-	One5StopBits* = 1X; 
-	TwoStopBits* = 2X; 
-	ErrorSuccess* = 0; 
-	ErrorFileNotFound* = 2; 
-	ErrorAccessDenied* = 5; 
-	ErrorInvalidParameter* = 87; 
-	ErrorIoPending* = 997; 
-TYPE 
-	BOOL* = LONGINT; 
-
-	HANDLE* = ADDRESS; 
-
-	HMODULE* = ADDRESS; 
-
-	HINSTANCE* = ADDRESS; 
-
-	ATOM* = INTEGER; 
-
-	HGLOBAL* = HANDLE; 
-
-	LPSTR* = ADDRESS; 
-
-	FileTime* = RECORD 
-		dwLowDateTime*, dwHighDateTime*: LONGINT; 
-	END; 
-
-	FindData* = RECORD 
-		dwFileAttributes*: SET; 
-		ftCreationTime*, ftLastAccessTime*, ftLastWriteTime*: FileTime; 
-		nFileSizeHigh*, nFileSizeLow*: LONGINT; 
-		dwReserved0*, dwReserved1*: LONGINT; 
-		cFileName*: ARRAY MaxPath OF CHAR; 
-		cAlternateFileName*: ARRAY 14 OF CHAR; 
-	END; 
-
-	SystemTime* = RECORD 
-		wYear*, wMonth*, wDayOfWeek*, wDay*: INTEGER; 
-		wHour*, wMinute*, wSecond*, wMilliseconds*: INTEGER; 
-	END; 
-
-	SmallRect* = RECORD 
-		left*, top*, right*, bottom*: INTEGER; 
-	END; 
-
-	CriticalSection* = RECORD 
-		a, b, c, d, e, f: LONGINT; 
-	END; 
-
-	FloatingSaveArea* = RECORD 
-		ControlWord*, StatusWord*, TagWord*, ErrorOffset*, ErrorSelector*, DataOffset*, DataSelector*: LONGINT; 
-		RegisterArea*: ARRAY SizeOf80387Registers OF SYSTEM.BYTE; 
-		Cr0NpxState*: LONGINT; 
-	END; 
-
-	Context* = RECORD 
-		ContextFlags*: SET; 
-		DR0*, DR1*, DR2*, DR3*, DR6*, DR7*: LONGINT; 
-		FloatSave*: FloatingSaveArea; 
-		GS*, FS*, ES*, DS*: LONGINT; 
-		EDI*, ESI*, EBX*, EDX*, ECX*, EAX*: LONGINT; 
-		BP*, PC*, CS*, FLAGS*, SP*, SS*: LONGINT; 
-	END; 
-
-	Wow64Context* = RECORD (Context)
-		extension: ARRAY 512 OF CHAR; 
-	END; 
-
-	ExceptionRecordPtr* = POINTER TO ExceptionRecord; 
-
-	ExceptionRecord* = RECORD 
-		ExceptionCode*, ExceptionFlags*: LONGINT; 
-		nextExceptionRecord*: ExceptionRecordPtr; 
-		ExceptionAddress*: ADDRESS; 
-		NumberParameters*: LONGINT; 
-		ExceptionInformation*: ARRAY ExceptionMaximumParameters OF LONGINT; 
-	END; 
-
-	ExcpFrmPtr* = ADDRESS; 
-
-	ExcpFrmHandler* = PROCEDURE {WINAPI}(VAR excpRec: ExceptionRecord; excpFrame: ExcpFrmPtr; VAR context: Context; dispatch: LONGINT):LONGINT; 
-
-	ExcpFrm* = RECORD 
-		link*: ExcpFrmPtr; 
-		handler*: ExcpFrmHandler; 
-	END; 
-
-	Object* = POINTER TO RECORD 
-		handle*: HANDLE; 
-	END; 
-
-	LargeInteger* = RECORD 
-		LowPart*, HighPart*: LONGINT; 
-	END; 
-
-	ULargeInteger* = LargeInteger; 
-
-	MemoryStatusEx* = RECORD 
-		dwLength*: LONGINT; 
-		dwMemoryLoad*: LONGINT; 
-		ullTotalPhys*: HUGEINT; 
-		ullAvailPhys*: HUGEINT; 
-		ullTotalPageFile*: HUGEINT; 
-		ullAvailPageFile*: HUGEINT; 
-		ullTotalVirtual*: HUGEINT; 
-		ullAvailVirtual*: HUGEINT; 
-		ullAvailExtendedVirtual*: HUGEINT; 
-	END; 
-
-	ThreadProc* = PROCEDURE {WINAPI}(lpParameter: ANY):LONGINT; 
-
-	ProcessInformation* = RECORD 
-		hProcess*, hThread*: HANDLE; 
-		dwProcessId*, dwThreadId*: LONGINT; 
-	END; 
-
-	StartupInfo* = RECORD 
-		cb*: LONGINT; 
-		lpReserved*, lpDesktop*, lpTitle*: LPSTR; 
-		dwX*, dwY*, dwXSize*, dwYSize*: LONGINT; 
-		dwXCountChars*, dwYCountChars*: LONGINT; 
-		dwFillAttribute*: LONGINT; 
-		dwFlags*: SET; 
-		wShowWindow*, cbReserved2*: INTEGER; 
-		lpReserved2*: ADDRESS; 
-		hStdInput*, hStdOutput*, hStdError*: HANDLE; 
-	END; 
-
-	OSVersionInfo* = RECORD 
-		dwOSVersionInfoSize*, dwMajorVersion*, dwMinorVersion*, dwBuildNumber*, dwPlatformId*: LONGINT; 
-		szCSDVersion*: ARRAY 128 OF CHAR; 
-	END; 
-
-	Exception* = RECORD 
-		exc*: ExceptionRecord; 
-		cont*: Context; 
-	END; 
-
-	CommTimeouts* = RECORD 
-		ReadIntervalTimeout*, ReadTotalTimeoutMultiplier*, ReadTotalTimeoutConstant*, WriteTotalTimeoutMultiplier*, WriteTotalTimeoutConstant*: LONGINT; 
-	END; 
-
-	DCB* = RECORD 
-		DCBlength*, BaudRate*: LONGINT; 
-		flags*: SET; 
-		wReserved*, XonLim*, XoffLim*: INTEGER; 
-		ByteSize*, Parity*, StopBits*, XonChar*, XoffChar*, ErrorChar*, EofChar*, EvtChar*: CHAR; 
-		wReserved1*: INTEGER; 
-	END; 
-
-	ComStat* = RECORD 
-		status*: SET; 
-		cbInQue*, cbOutQue*: LONGINT; 
-	END; 
-
-	SystemInfo* = RECORD 
-		wProcessorArchitecture*: INTEGER; 
-		wReserved: INTEGER; 
-		dwPageSize*: LONGINT; 
-		lpMinimumApplicationAddress*: LONGINT; 
-		lpMaximumApplicationAddress*: LONGINT; 
-		dwActiveProcessorMask*: LONGINT; 
-		dwNumberOfProcessors*: LONGINT; 
-		dwProcessorType*: LONGINT; 
-		dwAllocationGranularity*: LONGINT; 
-		wProcessorLevel*: INTEGER; 
-		wProcessorRevision*: INTEGER; 
-	END; 
-
-	TimeZoneInformation* = RECORD 
-		Bias*: LONGINT; 
-		StandardName*: ARRAY 32 OF INTEGER; 
-		StandardDate*: SystemTime; 
-		StandardBias*: LONGINT; 
-		DaylightName*: ARRAY 32 OF INTEGER; 
-		DaylightDate*: SystemTime; 
-		DaylightBias*: LONGINT; 
-	END; 
-
-	Overlapped* = RECORD 
-		Internal*: LONGINT; 
-		InternalHigh*: LONGINT; 
-		Offset*: LONGINT; 
-		OffsetHigh*: LONGINT; 
-		hEvent*: HANDLE; 
-	END; 
-VAR 
-	hInstance-: HINSTANCE; 
-	isEXE-: BOOLEAN; 
-	getProcAddress-: PROCEDURE {WINAPI}(hModule: HMODULE; CONST lpProcName: ARRAY OF CHAR):ADDRESS; 
-	LoadLibrary-: PROCEDURE {WINAPI}(CONST lpLibFileName: ARRAY OF CHAR):HINSTANCE; 
-	AllocConsole-: PROCEDURE {WINAPI}():BOOL; 
-	AttachConsole-: PROCEDURE {WINAPI}(in: LONGINT):BOOL; 
-	Beep-: PROCEDURE {WINAPI}(dwFreq, dwDuration: LONGINT):BOOL; 
-	ClearCommBreak-: PROCEDURE {WINAPI}(hFile: HANDLE):BOOL; 
-	ClearCommError-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpErrors: SET; VAR lpStat: ComStat):BOOL; 
-	CloseHandle-: PROCEDURE {WINAPI}(hObject: HANDLE):BOOL; 
-	CopyFile-: PROCEDURE {WINAPI}(VAR lpExistingFileName, lpNewFileName: ARRAY OF CHAR; bFailIfExists: BOOL):BOOL; 
-	CreateDirectory-: PROCEDURE {WINAPI}(VAR lpPathName: ARRAY OF CHAR; lpSecurityAttributes: ANY):BOOL; 
-	CreateEvent-: PROCEDURE {WINAPI}(lpEventAttributes: ANY; bManualReset, bInitialState: BOOL; CONST lpName: ARRAY OF CHAR):HANDLE; 
-	CreateFile-: PROCEDURE {WINAPI}(CONST lpFileName: ARRAY OF CHAR; dwDesiredAccess, dwShareMode: SET; lpSecurityAttributes: ANY; dwCreationDistribution: LONGINT; dwFlagsAndAttributes: SET; hTemplateFile: HANDLE):HANDLE; 
-	CreateProcess-: PROCEDURE {WINAPI}(CONST lpApplicationName, lpCommandLine: ARRAY OF CHAR; lpProcessAttributes, lpThreadAttributes: ANY; bInheritHandles: BOOL; dwCreationFlags: LONGINT; lpEnvironment: ANY; VAR lpCurrentDirectory: ARRAY OF CHAR; VAR lpStartupInfo: StartupInfo; VAR lpProcessInformation: ProcessInformation):BOOL; 
-	CreateSemaphore-: PROCEDURE {WINAPI}(lpThreadAttributes: ADDRESS; lInitialCount: LONGINT; lMaximumCount: LONGINT; lpName: LPSTR):HANDLE; 
-	CreateThread-: PROCEDURE {WINAPI}(lpThreadAttributes: ADDRESS; dwStackSize: LONGINT; lpStartAddress: ThreadProc; lpParameter: ANY; dwCreationFlags: SET; VAR lpThreadId: LONGINT):HANDLE; 
-	DeleteCriticalSection-: PROCEDURE {WINAPI}(VAR lpCriticalSection: CriticalSection); 
-	DeleteFile-: PROCEDURE {WINAPI}(VAR lpFileName: ARRAY OF CHAR):BOOL; 
-	DisableThreadLibraryCalls-: PROCEDURE {WINAPI}(hLibModule: HMODULE):BOOL; 
-	DuplicateHandle-: PROCEDURE {WINAPI}(hSourceProcessHandle, hSourceHandle, hTargetProcessHandle: HANDLE; VAR lpTargetHandle: HANDLE; dwDesiredAccess: SET; bInheritHandle: BOOL; dwOptions: SET):BOOL; 
-	EnterCriticalSection-: PROCEDURE {WINAPI}(VAR lpCriticalSection: CriticalSection); 
-	EscapeCommFunction-: PROCEDURE {WINAPI}(hFile: HANDLE; dwFunc: LONGINT):BOOL; 
-	ExitProcess-: PROCEDURE {WINAPI}(uExitCode: LONGINT); 
-	ExitThread-: PROCEDURE {WINAPI}(dwExitCode: LONGINT); 
-	FileTimeToLocalFileTime-: PROCEDURE {WINAPI}(VAR lpFileTime: FileTime; VAR lpLocalFileTime: FileTime):BOOL; 
-	FileTimeToSystemTime-: PROCEDURE {WINAPI}(VAR lpFileTime: FileTime; VAR lpSystemTime: SystemTime):BOOL; 
-	FindClose-: PROCEDURE {WINAPI}(hFindFile: HANDLE):BOOL; 
-	FindFirstFile-: PROCEDURE {WINAPI}(VAR lpFileName: ARRAY OF CHAR; VAR lpFindFileDate: FindData):HANDLE; 
-	FindNextFile-: PROCEDURE {WINAPI}(hFindFile: HANDLE; VAR lpFindFileDate: FindData):BOOL; 
-	FlushFileBuffers-: PROCEDURE {WINAPI}(hFile: HANDLE):BOOL; 
-	FreeConsole-: PROCEDURE {WINAPI}():BOOL; 
-	FreeLibrary-: PROCEDURE {WINAPI}(hLibModule: HMODULE):BOOL; 
-	GetCommandLine-: PROCEDURE {WINAPI}():LPSTR; 
-	GetCommModemStatus-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpModemStat: SET):BOOL; 
-	GetCommState-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpDCB: DCB):BOOL; 
-	GetComputerName-: PROCEDURE {WINAPI}(VAR lpBuffer: ARRAY OF CHAR; VAR lpnSize: LONGINT):BOOL; 
-	GetCurrentDirectory-: PROCEDURE {WINAPI}(nBufferLength: LONGINT; VAR lpBuffer: ARRAY OF CHAR):LONGINT; 
-	GetCurrentProcess-: PROCEDURE {WINAPI}():HANDLE; 
-	GetCurrentProcessId-: PROCEDURE {WINAPI}():LONGINT; 
-	GetCurrentThread-: PROCEDURE {WINAPI}():HANDLE; 
-	GetCurrentThreadId-: PROCEDURE {WINAPI}():LONGINT; 
-	GetDiskFreeSpace-: PROCEDURE {WINAPI}(VAR lpRootPathName: ARRAY OF CHAR; VAR lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: LONGINT):BOOL; 
-	GetDriveType-: PROCEDURE {WINAPI}(VAR lpRootPathName: ARRAY OF CHAR):LONGINT; 
-	GetExitCodeProcess-: PROCEDURE {WINAPI}(hProcess: HANDLE; VAR lpExitCode: LONGINT):BOOL; 
-	GetFileAttributes-: PROCEDURE {WINAPI}(VAR lpFileName: ARRAY OF CHAR):SET; 
-	GetFileSize-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpFileSizeHigh: LONGINT):LONGINT; 
-	GetFileSizeEx-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpFileSize: HUGEINT):BOOL; 
-	GetFileTime-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpCreationTime, lpLastAccessTime, lpLastWriteTime: FileTime):BOOL; 
-	GetFullPathName-: PROCEDURE {WINAPI}(CONST lpFileName: ARRAY OF CHAR; nBufferLength: LONGINT; VAR lpBuffer: ARRAY OF CHAR; lpFilePart: LPSTR):LONGINT; 
-	GetLastError-: PROCEDURE {WINAPI}():LONGINT; 
-	GetLocalTime-: PROCEDURE {WINAPI}(VAR lpSystemTime: SystemTime); 
-	GetLogicalDriveStrings-: PROCEDURE {WINAPI}(nBufferLength: LONGINT; VAR lpBuffer: ARRAY OF CHAR):LONGINT; 
-	GetLogicalDrives-: PROCEDURE {WINAPI}():SET; 
-	GetModuleFileName-: PROCEDURE {WINAPI}(hModule: HMODULE; VAR lpFileName: ARRAY OF CHAR; nSize: LONGINT):LONGINT; 
-	GetModuleHandle-: PROCEDURE {WINAPI}(CONST lpModuleName: ARRAY OF CHAR):HMODULE; 
-	GetOverlappedResult-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpOverlapped: Overlapped; VAR lpNumberOfBytesTransferred: LONGINT; bWait: BOOL):BOOL; 
-	GetPrivateProfileString-: PROCEDURE {WINAPI}(CONST lpAppName: ARRAY OF CHAR; CONST lpKeyName: ARRAY OF CHAR; CONST lpDefault: ARRAY OF CHAR; CONST lpReturnedString: ARRAY OF CHAR; nSize: LONGINT; CONST lpFileName: ARRAY OF CHAR):LONGINT; 
-	GetProcessAffinityMask-: PROCEDURE {WINAPI}(hProcess: HANDLE; lpProcessAffinityMask: ADDRESS; lpSystemAffinityMask: ADDRESS):BOOL; 
-	GetProcessHeap-: PROCEDURE {WINAPI}():HANDLE; 
-	GetProcessTimes-: PROCEDURE {WINAPI}(CONST hProcess: HANDLE; VAR lpCreationTime, lpExitTime, lpKernelTime, lpUserTime: FileTime):LONGINT; 
-	GetStartupInfo-: PROCEDURE {WINAPI}(VAR lpStartupInfo: StartupInfo); 
-	GetSystemInfo-: PROCEDURE {WINAPI}(VAR lpSystemInfo: SystemInfo); 
-	GetStdHandle-: PROCEDURE {WINAPI}(nStdHandle: LONGINT):HANDLE; 
-	GetSystemTime-: PROCEDURE {WINAPI}(VAR lpSystemTime: SystemTime); 
-	GetTempFileName-: PROCEDURE {WINAPI}(VAR lpPathName, lpPrefixName: ARRAY OF CHAR; uUnique: LONGINT; VAR lpTempFileName: ARRAY OF CHAR):LONGINT; 
-	GetTempPath-: PROCEDURE {WINAPI}(nBufferLength: LONGINT; VAR lpBuffer: ARRAY OF CHAR):LONGINT; 
-	GetThreadContext-: PROCEDURE {WINAPI}(hThread: HANDLE; VAR lpContext: Context):BOOL; 
-	Wow64GetThreadContext-: PROCEDURE {WINAPI}(hThread: HANDLE; VAR lpContext: Wow64Context):BOOL; 
-	GetThreadPriority-: PROCEDURE {WINAPI}(hThread: HANDLE):LONGINT; 
-	GetThreadTimes-: PROCEDURE {WINAPI}(hThread: HANDLE; VAR lpCreationTime, lpExitTime, lpKernelTime, lpUserTime: FileTime):LONGINT; 
-	GetTickCount-: PROCEDURE {WINAPI}():LONGINT; 
-	GetTimeZoneInformation-: PROCEDURE {WINAPI}(VAR lpTimeZoneInformation: TimeZoneInformation):LONGINT; 
-	GetWindowsDirectory-: PROCEDURE {WINAPI}(VAR lpBuffer: ARRAY OF CHAR; nBufferLength: LONGINT):LONGINT; 
-	GetVersion-: PROCEDURE {WINAPI}():LONGINT; 
-	GetVersionEx-: PROCEDURE {WINAPI}(VAR lpVersionInfo: OSVersionInfo):BOOL; 
-	GetVolumeInformation-: PROCEDURE {WINAPI}(VAR lpRootPathName: ARRAY OF CHAR; VAR lpVolumeNameBuffer: ARRAY OF CHAR; nVolumeNameSize: LONGINT; VAR lpVolumeSerialNumber: LONGINT; VAR lpMaximumComponentLength: LONGINT; VAR lpFileSystemFlags: LONGINT; VAR lpFileSystemNameBuffer: ARRAY OF CHAR; nFileSystemNameSize: LONGINT):LONGINT; 
-	GlobalAddAtom-: PROCEDURE {WINAPI}(VAR lpString: ARRAY OF CHAR):ATOM; 
-	GlobalAlloc-: PROCEDURE {WINAPI}(uFlags: SET; dwBytes: LONGINT):HGLOBAL; 
-	GlobalDeleteAtom-: PROCEDURE {WINAPI}(nAtom: ATOM):ATOM; 
-	GlobalLock-: PROCEDURE {WINAPI}(hMem: HGLOBAL):ADDRESS; 
-	GlobalMemoryStatusEx-: PROCEDURE {WINAPI}(VAR lpBuffer: MemoryStatusEx):BOOL; 
-	GlobalReAlloc-: PROCEDURE {WINAPI}(hMem: HGLOBAL; dwBytes: LONGINT; uFlags: SET):HGLOBAL; 
-	GlobalSize-: PROCEDURE {WINAPI}(hMem: HGLOBAL):LONGINT; 
-	GlobalUnlock-: PROCEDURE {WINAPI}(hMem: HGLOBAL):BOOL; 
-	HeapAlloc-: PROCEDURE {WINAPI}(hHeap: HANDLE; dwFlags: LONGINT; size: SIZE):ADDRESS; 
-	HeapFree-: PROCEDURE {WINAPI}(hHeap: HANDLE; dwFlags: LONGINT; lpMem: ADDRESS):ADDRESS; 
-	InitializeCriticalSection-: PROCEDURE {WINAPI}(VAR lpCriticalSection: CriticalSection); 
-	InterlockedDecrement-: PROCEDURE {WINAPI}(VAR lpAddend: LONGINT):LONGINT; 
-	InterlockedIncrement-: PROCEDURE {WINAPI}(VAR lpAddend: LONGINT):LONGINT; 
-	LeaveCriticalSection-: PROCEDURE {WINAPI}(VAR lpCriticalSection: CriticalSection); 
-	LocalFileTimeToFileTime-: PROCEDURE {WINAPI}(VAR lpLocalFileTime: FileTime; VAR lpFileTime: FileTime):BOOL; 
-	MoveFileEx-: PROCEDURE {WINAPI}(VAR lpExistingFileName, lpNewFileName: ARRAY OF CHAR; dwFlags: SET):BOOL; 
-	outputDebugString-: PROCEDURE {WINAPI}(CONST lpOutputString: ARRAY OF CHAR); 
-	IsDebuggerPresent-: PROCEDURE {WINAPI}():BOOL; 
-	PurgeComm-: PROCEDURE {WINAPI}(hFile: HANDLE; dwFlags: SET):BOOL; 
-	QueryDosDevice-: PROCEDURE {WINAPI}(lpDeviceName: ARRAY OF CHAR; VAR lpTargetPath: ARRAY OF CHAR; ucchMax: LONGINT):LONGINT; 
-	QueryPerformanceCounter-: PROCEDURE {WINAPI}(VAR lpPerformaceCount: LargeInteger):BOOL; 
-	QueryPerformanceFrequency-: PROCEDURE {WINAPI}(VAR lpFrequency: LargeInteger):BOOL; 
-	QueryThreadCycleTime-: PROCEDURE {WINAPI}(hThread: HANDLE; VAR cycleTime: HUGEINT):BOOL; 
-	ReadFile-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpBuffer: ARRAY OF SYSTEM.BYTE; nNumberOfBytesToRead: LONGINT; VAR lpNumberOfBytesRead: LONGINT; lpOverlapped: ADDRESS):BOOL; 
-	ReadProcessMemory-: PROCEDURE {WINAPI}(hProcess: HANDLE; lpBaseAddress: ADDRESS; VAR lpBuffer: ARRAY OF SYSTEM.BYTE; nSize: LONGINT; VAR lpNumberOfBytesRead: LONGINT):BOOL; 
-	ReleaseSemaphore-: PROCEDURE {WINAPI}(hSemaphore: HANDLE; lReleaseCount: LONGINT; lpPreviousCount: ADDRESS):BOOL; 
-	RemoveDirectory-: PROCEDURE {WINAPI}(VAR lpPathName: ARRAY OF CHAR):BOOL; 
-	ResetEvent-: PROCEDURE {WINAPI}(hEvent: HANDLE):BOOL; 
-	ResumeThread-: PROCEDURE {WINAPI}(hThread: HANDLE):LONGINT; 
-	SearchPath-: PROCEDURE {WINAPI}(CONST lpPath, lpFileName, lpExtension: ARRAY OF CHAR; nBufferLength: LONGINT; VAR lpBuffer: ARRAY OF CHAR; VAR lpFilePart: LPSTR):LONGINT; 
-	SetCommBreak-: PROCEDURE {WINAPI}(hFile: HANDLE):BOOL; 
-	SetCommMask-: PROCEDURE {WINAPI}(hFile: HANDLE; dwEvtMask: SET):BOOL; 
-	SetCommState-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpDCB: DCB):BOOL; 
-	SetCommTimeouts-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpCommTimeouts: CommTimeouts):BOOL; 
-	SetConsoleCursorPosition-: PROCEDURE {WINAPI}(hConsoleOutput: HANDLE; dwCursorPosition: LONGINT):BOOL; 
-	SetConsoleScreenBufferSize-: PROCEDURE {WINAPI}(hConsoleOuput: HANDLE; dwSize: LONGINT):BOOL; 
-	SetConsoleTextAttribute-: PROCEDURE {WINAPI}(hConsoleOutput: HANDLE; wAttributes: LONGINT):BOOL; 
-	SetConsoleTitle-: PROCEDURE {WINAPI}(VAR lpConsoleTitle: ARRAY OF CHAR):BOOL; 
-	SetConsoleWindowInfo-: PROCEDURE {WINAPI}(hConsoleOuput: HANDLE; bAbsolute: BOOL; VAR lpConsoleWindow: SmallRect):BOOL; 
-	SetCurrentDirectory-: PROCEDURE {WINAPI}(VAR lpPathName: ARRAY OF CHAR):BOOL; 
-	SetErrorMode-: PROCEDURE {WINAPI}(uMode: SET):SET; 
-	SetEndOfFile-: PROCEDURE {WINAPI}(hFile: HANDLE):BOOL; 
-	SetEvent-: PROCEDURE {WINAPI}(hEvent: HANDLE):BOOL; 
-	SetFileAttributes-: PROCEDURE {WINAPI}(VAR lpFileName: ARRAY OF CHAR; dwFileAttributes: SET):BOOL; 
-	SetFilePointer-: PROCEDURE {WINAPI}(hFile: HANDLE; lDistanceToMove: LONGINT; VAR lpDistanceToMoveHigh: LONGINT; dwMoveMethod: LONGINT):LONGINT; 
-	SetFilePointerEx-: PROCEDURE {WINAPI}(hFile: HANDLE; lDistanceToMove: HUGEINT; VAR lpNewFilePointer: HUGEINT; dwMoveMethod: LONGINT):BOOL; 
-	SetFileTime-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpCreationTime, lpLastAccessTime, lpLastWriteTime: FileTime):BOOL; 
-	SetLocalTime-: PROCEDURE {WINAPI}(VAR lpSystemTime: SystemTime):BOOL; 
-	SetThreadAffinityMask-: PROCEDURE {WINAPI}(hThread: HANDLE; dwThreadAffinityMask: SET):SET; 
-	SetThreadContext-: PROCEDURE {WINAPI}(hThread: HANDLE; VAR lpContext: Context):BOOL; 
-	SetThreadPriority-: PROCEDURE {WINAPI}(hThread: HANDLE; nPriority: LONGINT):BOOL; 
-	SetupComm-: PROCEDURE {WINAPI}(hFile: HANDLE; dwInQueue, dwOutQueue: LONGINT):BOOL; 
-	Sleep-: PROCEDURE {WINAPI}(dwMilliseconds: LONGINT); 
-	SuspendThread-: PROCEDURE {WINAPI}(hThread: HANDLE):LONGINT; 
-	Wow64SuspendThread-: PROCEDURE {WINAPI}(hThread: HANDLE):LONGINT; 
-	SystemTimeToFileTime-: PROCEDURE {WINAPI}(VAR lpSystemTime: SystemTime; VAR lpFileTime: FileTime):BOOL; 
-	TerminateThread-: PROCEDURE {WINAPI}(hThread: HANDLE; dwExitCode: LONGINT):BOOL; 
-	TlsAlloc-: PROCEDURE {WINAPI}():LONGINT; 
-	TlsFree-: PROCEDURE {WINAPI}(dwTlsIndex: LONGINT):BOOL; 
-	TlsGetValue-: PROCEDURE {WINAPI}(dwTlsIndex: LONGINT):LONGINT; 
-	TlsSetValue-: PROCEDURE {WINAPI}(dwTlsIndex, lpTlsValue: LONGINT):BOOL; 
-	TryEnterCriticalSection-: PROCEDURE {WINAPI}(VAR lpCriticalSection: CriticalSection):BOOL; 
-	VirtualAlloc-: PROCEDURE {WINAPI}(lpAddress: ADDRESS; dwSize: LONGINT; flAllocationType, flProtect: SET):ADDRESS; 
-	VirtualFree-: PROCEDURE {WINAPI}(lpAddress: ADDRESS; dwSize: LONGINT; dwFreeType: SET):BOOL; 
-	WaitForSingleObject-: PROCEDURE {WINAPI}(hHandle: HANDLE; dwMilliseconds: LONGINT):LONGINT; 
-	WriteFile-: PROCEDURE {WINAPI}(hFile: HANDLE; CONST lpBuffer: ARRAY OF SYSTEM.BYTE; nNumberOfBytesToWrite: LONGINT; VAR lpNumberOfBytesWritten: LONGINT; lpOverlapped: ADDRESS):BOOL; 
-	OutputString*: PROCEDURE (CONST a: ARRAY OF CHAR); 
-	Shutdown*: PROCEDURE (code: LONGINT); 
-
-	PROCEDURE ^ GetProcAddress*(hModule: HMODULE; CONST procName: ARRAY OF CHAR; VAR adr: ADDRESS); 
-	PROCEDURE ^ CopyString*(lpString: LPSTR; VAR str: ARRAY OF CHAR); 
-	PROCEDURE ^ OutputDebugString*(CONST str: ARRAY OF CHAR); 
-	PROCEDURE ^ NoOutputString(CONST str: ARRAY OF CHAR); 
-	PROCEDURE ^ SendToDebugger*(CONST str: ARRAY OF CHAR; x: LONGINT); 
-	PROCEDURE ^ ShutdownP(l: LONGINT); 
-	PROCEDURE ^ Init*; 
-	PROCEDURE ^ {FIXED(4198400)} EntryPoint; 
-BEGIN
-END Kernel64.

Win64/bin/Linker0.SymWw

@@ -1,312 +0,0 @@
-MODULE Linker0;
-	IMPORT SYSTEM, Streams, Files, KernelLog;
-CONST 
-	DefaultExtension = \".Obx"\; 
-	HeapSize = (1024 * 1024); 
-	AddressSize = SIZEOF(ADDRESS); 
-	LenOfs = (3 * AddressSize); 
-	Unmarked = 0; 
-	MemBlockDescModule = \"Machine"\; 
-	MemBlockDescType = \"MemoryBlockDesc"\; 
-	ModDescModule = \"Modules"\; 
-	ModDescType = \"Module"\; 
-	TypeDescModule = \"Modules"\; 
-	TypeDescType = \"TypeDesc"\; 
-	HdPtrDescModule = \"Loader"\; 
-	HdPtrDescType = \"@HdPtrDesc"\; 
-	ExportDescModule = \"Modules"\; 
-	ExportDescType = \"ExportDesc"\; 
-	InitPtrModule = \"Modules"\; 
-	InitPtrName = \"initBlock"\; 
-	ModRootModule = \"Modules"\; 
-	ModRootName = \"root"\; 
-	ProcOffsetsName = \"procOffsets"\; 
-	NumProcsName = \"numProcs"\; 
-	PtrOffsetsName = \"ptrOffsets"\; 
-	NumPtrsName = \"numPtrs"\; 
-	HeapModule = \"Heaps"\; 
-	FreeBlockDescType = \"FreeBlockDesc"\; 
-	SystemBlockDescType = \"SystemBlockDesc"\; 
-	RecordBlockDescType = \"RecordBlockDesc"\; 
-	ProtRecBlockDescType = \"ProtRecBlockDesc"\; 
-	ArrayBlockDescType = \"ArrayBlockDesc"\; 
-	FreeBlockTagPtrName = \"freeBlockTagPtr"\; 
-	SystemBlockTagPtrName = \"systemBlockTagPtr"\; 
-	RecordBlockTagPtrName = \"recordBlockTagPtr"\; 
-	ProtRecBlockTagPtrName = \"protRecBlockTagPtr"\; 
-	ArrayBlockTagPtrName = \"arrayBlockTagPtr"\; 
-	CurrentMarkValueName = \"currentMarkValue"\; 
-	StartModule = \"Objects"\; 
-	StartCommand = \"Terminate"\; 
-	MainModule = \"BootConsole"\; 
-	FreeBlockId = 0; 
-	SystemBlockId = 1; 
-	RecordBlockId = 2; 
-	ProtRecBlockId = 3; 
-	ArrayBlockId = 4; 
-	ProtectedModule = TRUE; 
-	TraceDump = FALSE; 
-	TraceRefs = (TRUE & TraceDump); 
-	TraceDuplicates = (FALSE & TraceDump); 
-	LogName = \"Linker.Log"\; 
-	HeaderSize = 64; 
-	EndBlockOfs = 56; 
-	NumPriorities* = 6; 
-	MaxTags* = 16; 
-	Tag0Ofs* =  -(2 * AddressSize); 
-	Mth0Ofs* = (Tag0Ofs - (AddressSize * MaxTags)); 
-	Ptr0Ofs* = AddressSize; 
-	ProtTypeBit* = 31; 
-	BlockSize = 32; 
-	ArrayAlignment = 8; 
-	BlockHeaderSize = (2 * AddressSize); 
-	HeapBlockOffset =  -(2 * AddressSize); 
-	TypeDescOffset =  -AddressSize; 
-	MinPtrOfs =  -1073741824; 
-	MethodEndMarker* = MinPtrOfs; 
-	InitTableLen = (2048 + 256); 
-	InitPtrTableLen = 2048; 
-	TypeDescRecSize* = ((5 * AddressSize) + 32); 
-	NilVal* = 0; 
-TYPE 
-	AdrTable = POINTER TO ARRAY OF ADDRESS; 
-
-	RootObject* = OBJECT 
-	VAR 
-		nextRoot: RootObject; 
-
-		PROCEDURE ^ FindRoots*; 
-	END RootObject; 
-
-	ProcessLink* = OBJECT (RootObject)
-	VAR 
-		next*, prev*: ProcessLink; 
-	END ProcessLink; 
-
-	ProcessQueue* = RECORD 
-		head*, tail*: ProcessLink; 
-	END; 
-
-	MemoryBlock = POINTER TO MemoryBlockDesc; 
-
-	MemoryBlockDesc = RECORD 
-		next{UNTRACED} : MemoryBlock; 
-		startAdr: ADDRESS; 
-		size: SIZE; 
-		beginBlockAdr, endBlockAdr: ADDRESS; 
-	END; 
-
-	HeapBlock = POINTER TO HeapBlockDesc; 
-
-	HeapBlockDesc = RECORD 
-		mark: LONGINT; 
-		dataAdr: ADDRESS; 
-		size: SIZE; 
-		nextRealtime: HeapBlock; 
-	END; 
-
-	FreeBlock = POINTER TO FreeBlockDesc; 
-
-	FreeBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	SystemBlock = POINTER TO SystemBlockDesc; 
-
-	SystemBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	RecordBlock = POINTER TO RecordBlockDesc; 
-
-	RecordBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	ProtRecBlock* = POINTER TO ProtRecBlockDesc; 
-
-	ProtRecBlockDesc* = RECORD (RecordBlockDesc)
-		count*: LONGINT; 
-		locked*: BOOLEAN; 
-		awaitingLock*: ProcessQueue; 
-		awaitingCond*: ProcessQueue; 
-		lockedBy*: ANY; 
-		lock*: ANY; 
-		waitingPriorities*: ARRAY NumPriorities OF LONGINT; 
-	END; 
-
-	ArrayBlock = POINTER TO ArrayBlockDesc; 
-
-	ArrayBlockDesc = RECORD (HeapBlockDesc)
-	END; 
-
-	StaticTypeBlock* = POINTER TO StaticTypeDesc; 
-
-	StaticTypeDesc* = RECORD 
-		recSize: SIZE; 
-		pointerOffsets*{UNTRACED} : PointerOffsets; 
-	END; 
-
-	PointerOffsets = POINTER TO ARRAY OF SIZE; 
-
-	Name* = ARRAY 32 OF CHAR; 
-
-	CommandProc* = PROCEDURE ; 
-
-	CommandParProc* = PROCEDURE (par: ANY):ANY; 
-
-	Command* = RECORD 
-		name*: Name; 
-		argTdAdr*, retTdAdr*: ADDRESS; 
-		entryAdr*: ADDRESS; 
-	END; 
-
-	ExportDesc* = RECORD 
-		fp*: ADDRESS; 
-		adr*: ADDRESS; 
-		exports*: LONGINT; 
-		dsc*: ExportArray; 
-	END; 
-
-	ExportArray* = POINTER TO ARRAY OF ExportDesc; 
-
-	Bytes* = POINTER TO ARRAY OF CHAR; 
-
-	TerminationHandler* = PROCEDURE ; 
-
-	ExceptionTableEntry* = RECORD 
-		pcFrom*: ADDRESS; 
-		pcTo*: ADDRESS; 
-		pcHandler*: ADDRESS; 
-	END; 
-
-	ExceptionTable* = POINTER TO ARRAY OF ExceptionTableEntry; 
-
-	ProcTableEntry* = RECORD 
-		pcFrom*, pcLimit*, pcStatementBegin*, pcStatementEnd*: ADDRESS; 
-		noPtr*: LONGINT; 
-	END; 
-
-	ProcTable* = POINTER TO ARRAY OF ProcTableEntry; 
-
-	PtrTable* = POINTER TO ARRAY OF SIZE; 
-
-	ProcOffsetEntry* = RECORD 
-		data*: ProcTableEntry; 
-		startIndex: LONGINT; 
-	END; 
-
-	ProcOffsetTable* = POINTER TO ARRAY OF ProcOffsetEntry; 
-
-	Module* = OBJECT (RootObject)
-	VAR 
-		next*: Module; 
-		name*: Name; 
-		init, published: BOOLEAN; 
-		refcnt*: LONGINT; 
-		sb*: ADDRESS; 
-		entry*: POINTER TO ARRAY OF ADDRESS; 
-		command*: POINTER TO ARRAY OF Command; 
-		ptrAdr*: POINTER TO ARRAY OF ADDRESS; 
-		typeInfo*: POINTER TO ARRAY OF TypeDesc; 
-		module*: POINTER TO ARRAY OF Module; 
-		procTable*: ProcTable; 
-		ptrTable*: PtrTable; 
-		data*, code*, staticTypeDescs*, refs*: Bytes; 
-		export*: ExportDesc; 
-		term*: TerminationHandler; 
-		exTable*: ExceptionTable; 
-		noProcs*: LONGINT; 
-		firstProc*: ADDRESS; 
-		maxPtrs*: LONGINT; 
-		crc*: LONGINT; 
-	END Module; 
-
-	TypeDesc* = POINTER TO RECORD 
-		descSize: LONGINT; 
-		sentinel: LONGINT; 
-		tag*: ADDRESS; 
-		flags*: SET; 
-		mod*: Module; 
-		name*: Name; 
-	END; 
-VAR 
-	logWriter: Streams.Writer; 
-	logFile: Files.File; 
-	root-: ADDRESS; 
-	procOffsets{UNTRACED} : ProcOffsetTable; 
-	numProcs: LONGINT; 
-	ptrOffsets{UNTRACED} : PtrTable; 
-	numPtrs: LONGINT; 
-	heap-: ANY; 
-	memBlock{UNTRACED} : MemoryBlock; 
-	beginMemBlockAdr, endMemBlockAdr: ADDRESS; 
-	beginAdr, freeAdr, baseAdr: ADDRESS; 
-	heapOfs: SIZE; 
-	exportTags, relocates: LONGINT; 
-	exportTagAdr: AdrTable; 
-	relocateAdr: AdrTable; 
-	curRelocate: LONGINT; 
-	refsMissed: LONGINT; 
-	prefix, suffix: Files.FileName; 
-	loadObj*: PROCEDURE (name, fileName: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR):Module; 
-	getProcs: ARRAY 9 OF BOOLEAN; 
-	freeBlockTag, systemBlockTag, recordBlockTag, protRecBlockTag, arrayBlockTag: ADDRESS; 
-	initBlock{UNTRACED} : ANY; 
-	currentMarkValue: LONGINT; 
-
-	PROCEDURE ^ Fill4(destAdr: ADDRESS; size: SIZE; filler: LONGINT); 
-	PROCEDURE ^ Char*(c: CHAR); 
-	PROCEDURE ^ String*(CONST s: ARRAY OF CHAR); 
-	PROCEDURE ^ Ln*; 
-	PROCEDURE ^ Int*(x, w: LONGINT); 
-	PROCEDURE ^ Hex*(x: SIZE; w: LONGINT); 
-	PROCEDURE ^ Address*(x: ADDRESS); 
-	PROCEDURE ^ Memory*(adr: ADDRESS; size: SIZE); 
-	PROCEDURE ^ Bits*(x: SET; ofs, n: LONGINT); 
-	PROCEDURE ^ Enter*; 
-	PROCEDURE ^ Exit*; 
-	PROCEDURE ^ InitFreeBlock(freeBlock: FreeBlock; mark: LONGINT; dataAdr: ADDRESS; size: SIZE); 
-	PROCEDURE ^ NewBlock(size: SIZE): ADDRESS; 
-	PROCEDURE ^ NewSys*(VAR p: ANY; size: SIZE); 
-	PROCEDURE ^ NewRealArr*(VAR p: ANY; numElems, elemSize: SIZE; numDims: LONGINT); 
-	PROCEDURE ^ NewTypeDesc*(VAR p: ANY; recSize: SIZE); 
-	PROCEDURE ^ FillStaticType*(VAR staticTypeAddr: ADDRESS; startAddr, typeInfoAdr: ADDRESS; size, recSize: SIZE; numPtrs, numSlots: LONGINT); 
-	PROCEDURE ^ Append*(CONST from: ARRAY OF CHAR; VAR to: ARRAY OF CHAR); 
-	PROCEDURE ^ Publish(VAR m: Module; VAR new: BOOLEAN); 
-	PROCEDURE ^ ModuleByName(CONST name: ARRAY OF CHAR): Module; 
-	PROCEDURE ^ GetFileName(CONST name: ARRAY OF CHAR; VAR fileName: ARRAY OF CHAR); 
-	PROCEDURE ^ ThisModule*(CONST name: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): Module; 
-	PROCEDURE ^ ThisType*(m: Module; CONST name: ARRAY OF CHAR): TypeDesc; 
-	PROCEDURE ^ WriteType(t: ADDRESS); 
-	PROCEDURE ^ FindInsertionPos(VAR entry: ProcTableEntry; VAR pos: LONGINT): BOOLEAN; 
-	PROCEDURE ^ NumTotalPtrs(procTable: ProcTable): LONGINT; 
-	PROCEDURE ^ InsertProcOffsets*(procTable: ProcTable; ptrTable: PtrTable; maxPtr: LONGINT); 
-	PROCEDURE ^ GrowTable(VAR table: AdrTable); 
-	PROCEDURE ^ Relocate*(adr: ADDRESS); 
-	PROCEDURE ^ Open*(CONST namePrefix, nameSuffix: ARRAY OF CHAR; base: ADDRESS; log: Streams.Writer); 
-	PROCEDURE ^ RelocateModules; 
-	PROCEDURE ^ RelocateArrayFields(tagAdr: ADDRESS); 
-	PROCEDURE ^ RelocateExports; 
-	PROCEDURE ^ RelocateProcOffsets; 
-	PROCEDURE ^ FixupTypeDescTags; 
-	PROCEDURE ^ FixupHeapBlockTags; 
-	PROCEDURE ^ SortRelocates; 
-	PROCEDURE ^ GetNum(refs: Bytes; VAR i, num: LONGINT); 
-	PROCEDURE ^ VarByName(refs: Bytes; i: LONGINT; CONST name: ARRAY OF CHAR): SIZE; 
-	PROCEDURE ^ InitTable(diff: SIZE; baseAdr, loadAdr: ADDRESS); 
-	PROCEDURE ^ RootGlobals; 
-	PROCEDURE ^ ScopeInfo(diff: SIZE; baseAdr: ADDRESS; root: Module); 
-	PROCEDURE ^ CheckLinkerHeap; 
-	PROCEDURE ^ Close*(w: Files.Writer; loadAdr: ADDRESS; res: LONGINT; CONST msg: ARRAY OF CHAR; log: Streams.Writer); 
-	PROCEDURE ^ NewModule*(VAR m: Module); 
-	PROCEDURE ^ NewExportDesc*(VAR p: ExportArray; numElems: LONGINT); 
-	PROCEDURE ^ ArraySize*(numElems, elemSize: SIZE; numDims: LONGINT): SIZE; 
-	PROCEDURE ^ NewProcOffsets(VAR p: ProcOffsetTable; numElems: LONGINT); 
-	PROCEDURE ^ NewPtrOffsets(VAR p: PtrTable; numElems: LONGINT); 
-	PROCEDURE ^ FitMemoryBlock(startAdr: ADDRESS; size: SIZE; VAR memBlock: MemoryBlock); 
-	PROCEDURE ^ RelocateMemoryBlock; 
-	PROCEDURE ^ InitHeap; 
-	PROCEDURE ^ ProcByName(refs: Bytes; CONST name: ARRAY OF CHAR): SIZE; 
-	PROCEDURE ^ GetProc(m: Module; i: LONGINT; CONST mod, proc: ARRAY OF CHAR): ADDRESS; 
-	PROCEDURE ^ GetKernelProc*(m: Module; num: LONGINT): ADDRESS; 
-	PROCEDURE ^ WriteLog*; 
-BEGIN
-END Linker0.

Win64/bin/Linker1.SymWw

@@ -1,76 +0,0 @@
-MODULE Linker1;
-	IMPORT SYSTEM, Streams, Files, Commands, KernelLog := Linker0, Heaps := Linker0, Modules := Linker0, Linker0;
-CONST 
-	Ok* = 0; 
-	FileNotFound = 1; 
-	TagInvalid = 2; 
-	FileCorrupt = 3; 
-	FileTooShort = 4; 
-	IncompatibleImport = 5; 
-	AddressSize = SIZEOF(ADDRESS); 
-	FileTag = 0BBX; 
-	NoZeroCompress = 0ADX; 
-	FileVersion = 0B1X; 
-	FileVersionOC = 0B2X; 
-	CurrentVersion = 0B4X; 
-	MaxStructs = 1024; 
-	EUEnd = 0; 
-	EURecord = 1; 
-	EUobjScope = 0; 
-	EUrecScope = 1; 
-	EUerrScope =  -1; 
-	EUProcFlagBit = 31; 
-	Sentinel = LONGINT(4294967295); 
-TYPE 
-	ObjHeader = RECORD 
-		entries, commands, pointers, types, modules, links, dataLinks: LONGINT; 
-		codeSize, dataSize, refSize, constSize, exTableLen, procs, maxPtrs, crc: LONGINT; 
-		staticTdSize: LONGINT; 
-		name: Modules.Name; 
-	END; 
-
-	DataLinkRec = RECORD 
-		mod: LONGINT; 
-		entry: LONGINT; 
-		fixups: LONGINT; 
-		ofs: POINTER TO ARRAY OF SIZE; 
-	END; 
-
-	LinkRec = RECORD 
-		mod: LONGINT; 
-		entry: LONGINT; 
-		link: SIZE; 
-	END; 
-
-	TypeRec = RECORD 
-		init: BOOLEAN; 
-		entry, methods, inhMethods, baseMod: LONGINT; 
-		baseEntry: ADDRESS; 
-	END; 
-VAR 
-	trace: BOOLEAN; 
-
-	PROCEDURE ^ ReadHeader(r: Streams.Reader; VAR h: ObjHeader; VAR res: LONGINT); 
-	PROCEDURE ^ ReadString8(r: Streams.Reader; VAR str: ARRAY OF CHAR); 
-	PROCEDURE ^ AllocateModule(m: Modules.Module; h: ObjHeader); 
-	PROCEDURE ^ ReadEntryBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadCommandBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadPointerBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadImportBlock(r: Streams.Reader; m: Modules.Module; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): BOOLEAN; 
-	PROCEDURE ^ ReadDataLinkBlock(r: Streams.Reader; dataLinks: LONGINT; VAR d: ARRAY OF DataLinkRec): BOOLEAN; 
-	PROCEDURE ^ ReadLinkBlock(r: Streams.Reader; links, entries: LONGINT; VAR l: ARRAY OF LinkRec; VAR f: ARRAY OF LONGINT; VAR caseTableSize: LONGINT): BOOLEAN; 
-	PROCEDURE ^ ReadConstBlock(r: Streams.Reader; m: Modules.Module; h: ObjHeader): BOOLEAN; 
-	PROCEDURE ^ ReadExportBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadCodeBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadUseBlock(r: Streams.Reader; m: Modules.Module; VAR dataLink: ARRAY OF DataLinkRec; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): BOOLEAN; 
-	PROCEDURE ^ ReadTypeBlock(r: Streams.Reader; m: Modules.Module; VAR type: ARRAY OF TypeRec): BOOLEAN; 
-	PROCEDURE ^ ReadRefBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ FixupGlobals(m: Modules.Module; VAR dataLink: ARRAY OF DataLinkRec); 
-	PROCEDURE ^ FixupLinks(m: Modules.Module; VAR link: ARRAY OF LinkRec; VAR fixupCounts: ARRAY OF LONGINT; caseTableSize: LONGINT; VAR res: LONGINT); 
-	PROCEDURE ^ FixupCommands(m: Modules.Module); 
-	PROCEDURE ^ InitType(m: Modules.Module; VAR type: ARRAY OF TypeRec; i: LONGINT); 
-	PROCEDURE ^ ReadExTableBlock(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ ReadPtrsInProcs(r: Streams.Reader; m: Modules.Module): BOOLEAN; 
-	PROCEDURE ^ LoadObj*(name, fileName: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): Modules.Module; 
-BEGIN
-END Linker1.

Win64/bin/Oberon-Centronics.SymWw

@@ -1,24 +0,0 @@
-MODULE Centronics IN Oberon;
-	IMPORT SYSTEM, Kernel IN A2, Machine IN A2;
-CONST 
-	LPT1* = 0; 
-	LPT2* = 1; 
-	LPT3* = 2; 
-	Timeout = 0; 
-VAR 
-	adr: ARRAY 3 OF INTEGER; 
-	num: INTEGER; 
-
-	PROCEDURE ^ Halt(msg: ARRAY OF CHAR); 
-	PROCEDURE ^ Wait; 
-	PROCEDURE ^ Start*(port: INTEGER); 
-	PROCEDURE ^ Reset*(port: INTEGER); 
-	PROCEDURE ^ Stop*(port: INTEGER); 
-	PROCEDURE ^ Send*(port: INTEGER; x: CHAR); 
-	PROCEDURE ^ SendPoll*(port: INTEGER; x: CHAR; VAR done: BOOLEAN); 
-	PROCEDURE ^ Available*(port: INTEGER): LONGINT; 
-	PROCEDURE ^ Receive*(port: INTEGER; VAR x: CHAR); 
-	PROCEDURE ^ Detected(adr: INTEGER): BOOLEAN; 
-	PROCEDURE ^ Init; 
-BEGIN
-END Centronics.

Win64/bin/Oberon-Miscellaneous.SymWw

@@ -1,36 +0,0 @@
-MODULE Miscellaneous IN Oberon;
-	IMPORT Files, Fonts, Texts, Oberon, Centronics, V24, Strings;
-CONST 
-	TAB = 9X; 
-	CR = 0DX; 
-	LF = 0AX; 
-	BitmapId = 39X; 
-	StandardMenu = \"System.Close System.Copy System.Grow Edit.Search Edit.Store"\; 
-	xOn = 11X; 
-	xOff = 13X; 
-TYPE 
-	FileName = ARRAY 32 OF CHAR; 
-VAR 
-	W: Texts.Writer; 
-	port: INTEGER; 
-
-	PROCEDURE ^ OpenScanner(VAR S: Texts.Scanner); 
-	PROCEDURE ^ Count(name: ARRAY OF CHAR; VAR nofLines: LONGINT; what: CHAR); 
-	PROCEDURE ^ CountLines*; 
-	PROCEDURE ^ GetSize(VAR name: ARRAY OF CHAR; VAR varSize: LONGINT; VAR constSize: LONGINT; VAR codeSize: LONGINT; T: Texts.Text); 
-	PROCEDURE ^ GetObjSize*; 
-	PROCEDURE ^ MakeAscii*; 
-	PROCEDURE ^ DOSRead(VAR R: Files.Rider; VAR ch: CHAR); 
-	PROCEDURE ^ MakeOberonText*; 
-	PROCEDURE ^ OberonRead(VAR R: Texts.Reader; VAR ch: CHAR); 
-	PROCEDURE ^ MakeDOSText*; 
-	PROCEDURE ^ V24Write(ch: CHAR); 
-	PROCEDURE ^ PrintFiles*; 
-	PROCEDURE ^ ExtName(i: INTEGER; VAR org, new: ARRAY OF CHAR); 
-	PROCEDURE ^ SplitFile*; 
-	PROCEDURE ^ JoinFiles*; 
-	PROCEDURE ^ ShowMod*; 
-	PROCEDURE ^ EqualFiles(f1, f2: Files.File): BOOLEAN; 
-	PROCEDURE ^ CompareFiles*; 
-BEGIN
-END Miscellaneous.

Win64/bin/Oberon-vyBase.SymWw

@@ -1,388 +0,0 @@
-MODULE vyBase IN Oberon;
-	IMPORT SYSTEM, Oberon, Texts, Files, vyLinks, vyOOPT := OPT, Objects, Display, Attributes, Links, Display3, Gadgets, Fonts, BasicGadgets, vyHost, vyHostTexts, Strings, vyHostStrings;
-CONST 
-	idversion* = \"vy0.0a5"\; 
-	idname* = \"VoyagerBase"\; 
-	cprofileversion* = 1X; 
-	minVersion = 0; 
-	maxVersion = 0; 
-	vy* = \"vy"\; 
-	charset* = \"Oberon"\; 
-	TextElemCode* = 1CX; 
-	precc* = 100; 
-	postcc* = 120; 
-	notyetcc* = 99; 
-	fatalcc* = 98; 
-	rightKey* = 0; 
-	middleKey* = 1; 
-	leftKey* = 2; 
-	cnonumber* = 1; 
-	Var* = 1; 
-	VarPar* = 2; 
-	Con* = 3; 
-	Fld* = 4; 
-	Typ* = 5; 
-	LProc* = 6; 
-	XProc* = 7; 
-	SProc* = 8; 
-	CProc* = 9; 
-	Mod* = 11; 
-	Head* = 12; 
-	TProc* = 13; 
-	Alias* = 14; 
-	cUndef* = 0; 
-	cByte* = 1; 
-	cBool* = 2; 
-	cChar* = 3; 
-	cSInt* = 4; 
-	cInt* = 5; 
-	cLInt* = 6; 
-	cReal* = 7; 
-	cLReal* = 8; 
-	cSet* = 9; 
-	cString* = 10; 
-	cNilTyp* = 11; 
-	cNoTyp* = 12; 
-	cPointer* = 13; 
-	cProcTyp* = 14; 
-	cComp* = 15; 
-	Basic* = 1; 
-	Array* = 2; 
-	DynArr* = 3; 
-	Record* = 4; 
-	cNotYetImplemented* = 0; 
-	cBadType* = 1; 
-	cBadLen* = 2; 
-	cOK* = {}; 
-	cpurgable = 1; 
-TYPE 
-	Index* = LONGINT; 
-
-	Real* = LONGREAL; 
-
-	Text* = Texts.Text; 
-
-	TextElemBaseType* = Objects.Object; 
-
-	TextElemType* = Gadgets.FrameDesc; 
-
-	TextsWriter* = Texts.Writer; 
-
-	TextsReader* = Texts.Reader; 
-
-	TextsScanner* = Texts.Scanner; 
-
-	FilesReader* = Files.Rider; 
-
-	FilesWriter* = Files.Rider; 
-
-	OPTConst* = vyOOPT.Const; 
-
-	OPTModule* = vyOOPT.Module; 
-
-	OPTNode* = vyOOPT.Node; 
-
-	OPTObject* = vyOOPT.Object; 
-
-	OPTStruct* = vyOOPT.Struct; 
-
-	TickMsg* = RECORD (Display.FrameMsg)
-	END; 
-
-	RecursiveMsg = RECORD (Objects.ObjMsg)
-	END; 
-
-	tName* = POINTER TO tNameDesc; 
-
-	tKey* = Objects.Object; 
-
-	tKeyDesc* = Objects.ObjDesc; 
-
-	tAction* = POINTER TO tActionDesc; 
-
-	tActionProc* = PROCEDURE (action: tAction; VAR failed: BOOLEAN); 
-
-	tActionDesc* = RECORD (Oberon.TaskDesc)
-		Do*: tActionProc; 
-		failed-: BOOLEAN; 
-		todoCount-: LONGINT; 
-		preAction-: tAction; 
-		TickDelta: LONGINT; 
-		termination: tAction; 
-		Input*, Output*: vyLinks.Link; 
-		ControlPar*: vyLinks.Link; 
-	END; 
-
-	tCache* = POINTER TO tCacheDesc; 
-
-	tCacheDesc* = RECORD 
-		nextcache*: tCache; 
-	END; 
-
-	Object* = POINTER TO ObjDesc; 
-
-	ObjDesc* = RECORD (Gadgets.ObjDesc)
-		ObjectId-: LONGINT; 
-		Name-: tName; 
-		createdT-, createdD-: LONGINT; 
-		modifiedT-, modifiedD-: LONGINT; 
-		key: tKey; 
-		struct-: OPTStruct; 
-		disposition-: SET; 
-		cache*: tCache; 
-		users*, sources*: vyLinks.Link; 
-	END; 
-
-	UpdateMessage* = RECORD (Objects.ObjMsg)
-	END; 
-
-	SubscrBroadcastMsg* = RECORD (Objects.ObjMsg)
-	END; 
-
-	NewSimMsg* = RECORD (SubscrBroadcastMsg)
-	END; 
-
-	ReadMessage* = RECORD (Objects.ObjMsg)
-	END; 
-
-	DumpMessage* = RECORD (Objects.ObjMsg)
-	END; 
-
-	tStatus* = SET; 
-
-	tData* = POINTER TO tDataDesc; 
-
-	tDataDesc* = RECORD (ObjDesc)
-		status*: tStatus; 
-		type*: OPTStruct; 
-		storagetype*: OPTStruct; 
-		cacheHighlight*: Object; 
-	END; 
-
-	tOp1* = PROCEDURE (VAR arg: tData); 
-
-	tOp2* = PROCEDURE (VAR arg1, arg2: tData); 
-
-	tOp3* = PROCEDURE (VAR arg1, arg2, arg3: tData); 
-
-	tBuf* = POINTER TO tBufDesc; 
-
-	tBufDesc* = RECORD 
-		str*: OPTStruct; 
-		len*: LONGINT; 
-		usedentries*: LONGINT; 
-		aux*: tBuf; 
-		cache*: tCache; 
-		next*: tBuf; 
-	END; 
-
-	tSBLProc* = PROCEDURE (buf1, buf2: tBuf):BOOLEAN; 
-
-	tLenArray* = POINTER TO tLenArrayDesc; 
-
-	tLenArrayDesc = ARRAY OF LONGINT; 
-
-	tLayout* = POINTER TO tLayoutDesc; 
-
-	tLayoutDesc* = RECORD 
-		dim*: INTEGER; 
-		transposed*: BOOLEAN; 
-	END; 
-
-	tArray* = POINTER TO tArrayDesc; 
-
-	tArrayDesc* = RECORD (tLayoutDesc)
-		lens*: tLenArray; 
-	END; 
-
-	tVector* = POINTER TO tVectorDesc; 
-
-	tVectorDesc* = RECORD (tDataDesc)
-		Layout*: tLayout; 
-		nrData*: LONGINT; 
-		buf*: tBuf; 
-	END; 
-
-	tThread = POINTER TO tThreadDesc; 
-
-	tThreadDesc = RECORD (ObjDesc)
-		lastObject: vyLinks.Link; 
-	END; 
-
-	tTransformation* = POINTER TO tTransDesc; 
-
-	tTransDesc* = RECORD (ObjDesc)
-		input-: vyLinks.Link; 
-		output-: vyLinks.Link; 
-		controlpars-: vyLinks.Link; 
-	END; 
-
-	tNameDesc* = Gadgets.ObjDesc; 
-
-	TickProc* = PROCEDURE ; 
-
-	ProcQPtr = POINTER TO ProcQElem; 
-
-	ProcQElem = RECORD 
-		Proc: TickProc; 
-		TickDelta: LONGINT; 
-		NextTime: LONGINT; 
-		next: ProcQPtr; 
-	END; 
-
-	Frame* = POINTER TO FrameDesc; 
-
-	FrameObject = POINTER TO FrameObjDesc; 
-
-	FrameObjDesc = RECORD (ObjDesc)
-		gadget: Frame; 
-	END; 
-
-	FrameDesc* = RECORD (Gadgets.FrameDesc)
-		borderW*: INTEGER; 
-		hotupdate*: BOOLEAN; 
-		vyobj: FrameObject; 
-		vylinks*: vyLinks.Link; 
-	END; 
-VAR 
-	undftyp*, bytetyp*, booltyp*, chartyp*, sinttyp*, inttyp*, linttyp*, realtyp*, lrltyp*, settyp*, stringtyp*, niltyp*, notyp*, ptrtyp*: OPTStruct; 
-	dynboolarray*, dynintarray*, dynlintarray*, dynrealarray*, dynlrlarray*: OPTStruct; 
-	hd: ARRAY 17 OF CHAR; 
-	Context-: tThread; 
-	currentThread-: tThread; 
-	lastThread-: tThread; 
-	Trash-: tThread; 
-	objcount-: LONGINT; 
-	objecthandle*: Objects.Handler; 
-	framehandle*: Objects.Handler; 
-	w*: TextsWriter; 
-	werr*: TextsWriter; 
-	Log*: Text; 
-	slow*: INTEGER; 
-	lastmsg-: Objects.ObjMsg; 
-	ProcToCall: ProcQPtr; 
-	countTask: Oberon.Task; 
-	ticks-: LONGINT; 
-	showParameter*: vyLinks.Link; 
-	parameterCount*: INTEGER; 
-	recurse: BOOLEAN; 
-	Register*: PROCEDURE (ob: Object); 
-	DeRegister*: PROCEDURE (ob: Object); 
-
-	PROCEDURE ^ AppendToLog*(VAR w: TextsWriter); 
-	PROCEDURE ^ NextIdCount(): LONGINT; 
-	PROCEDURE ^ DoHandle*(o: vyLinks.Link; VAR m: Objects.ObjMsg); 
-	PROCEDURE ^ DumpItem*(item: vyLinks.Link); 
-	PROCEDURE ^ Write*(VAR w: TextsWriter; ob: Object); 
-	PROCEDURE ^ DebugDump*(VAR w: TextsWriter; ob: Object); 
-	PROCEDURE ^ Purge*(ob: Object); 
-	PROCEDURE ^ Update*(ob: Objects.Object); 
-	PROCEDURE ^ ForUsersHandle*(ob: Object; VAR msg: Objects.ObjMsg); 
-	PROCEDURE ^ GetKey*(ob: Object): tKey; 
-	PROCEDURE ^ SetKey*(ob: Object; key: tKey); 
-	PROCEDURE ^ register*(ob: Object); 
-	PROCEDURE ^ GetLastInThread*(t: tThread): vyLinks.Link; 
-	PROCEDURE ^ deRegister*(ob: Object); 
-	PROCEDURE ^ Name*(ob: Object; VAR name: tName); 
-	PROCEDURE ^ RegisterNamed*(ob: Object; name: tName); 
-	PROCEDURE ^ EffObject(o: Objects.Object): Object; 
-	PROCEDURE ^ RecursiveHandler(obj: Objects.Object; VAR M: Objects.ObjMsg); 
-	PROCEDURE ^ Recursive*(parent, newchild: Objects.Object): BOOLEAN; 
-	PROCEDURE ^ Subscribe*(o: Objects.Object; subscriber: Objects.Object); 
-	PROCEDURE ^ UnSubscribe*(o, subscriber: Objects.Object); 
-	PROCEDURE ^ StoreObject0*(ob: Object; VAR M: Objects.FileMsg); 
-	PROCEDURE ^ LoadObject0*(ob: Object; VAR M: Objects.FileMsg); 
-	PROCEDURE ^ CopyObject*(VAR M: Objects.CopyMsg; src, dest: Object); 
-	PROCEDURE ^ SetCurrentThread*(thread: tThread); 
-	PROCEDURE ^ GetCurrentThread*(): tThread; 
-	PROCEDURE ^ Report*(VAR w: TextsWriter); 
-	PROCEDURE ^ WriteVS*(VAR w: TextsWriter; name, vs: ARRAY OF CHAR); 
-	PROCEDURE ^ Dump*; 
-	PROCEDURE ^ GetUsers*(o: Object): vyLinks.Link; 
-	PROCEDURE ^ GetSources*(o: Object): vyLinks.Link; 
-	PROCEDURE ^ Test*; 
-	PROCEDURE ^ DateTimeString(d, t: LONGINT; VAR s: ARRAY OF CHAR); 
-	PROCEDURE ^ HandleObjectAttributes(obj: Object; VAR M: Objects.AttrMsg); 
-	PROCEDURE ^ HandleObjectLinks(obj: Object; VAR M: Objects.LinkMsg); 
-	PROCEDURE ^ HandleObjectFind(obj: Object; VAR M: Objects.FindMsg); 
-	PROCEDURE ^ ObjectHandler*(obj: Objects.Object; VAR M: Objects.ObjMsg); 
-	PROCEDURE ^ InitObj(obj: Object); 
-	PROCEDURE ^ NewObj*; 
-	PROCEDURE ^ HandleFrameAttributes(obj: Frame; VAR M: Objects.AttrMsg); 
-	PROCEDURE ^ HandleFrameFileMsg(obj: Frame; VAR M: Objects.FileMsg); 
-	PROCEDURE ^ CopyFrame*(VAR M: Objects.CopyMsg; src, dest: Frame); 
-	PROCEDURE ^ FrameHandler*(obj: Objects.Object; VAR M: Objects.ObjMsg); 
-	PROCEDURE ^ FrameObjHandler*(obj: Objects.Object; VAR M: Objects.ObjMsg); 
-	PROCEDURE ^ InitFrameObj(obj: FrameObject); 
-	PROCEDURE ^ NewFrameObj*; 
-	PROCEDURE ^ NewFrame*; 
-	PROCEDURE ^ DebugObjectHandler*(o: Objects.Object; VAR M: Objects.ObjMsg); 
-	PROCEDURE ^ HandleDataAttributes(obj: Object; VAR M: Objects.AttrMsg); 
-	PROCEDURE ^ DataHandler*(obj: Objects.Object; VAR M: Objects.ObjMsg); 
-	PROCEDURE ^ InitData(obj: Object); 
-	PROCEDURE ^ NewData*; 
-	PROCEDURE ^ HandleVectorAttributes(obj: tVector; VAR M: Objects.AttrMsg); 
-	PROCEDURE ^ VectorHandler*(obj: Objects.Object; VAR M: Objects.ObjMsg); 
-	PROCEDURE ^ InitVector(obj: Object); 
-	PROCEDURE ^ NewVec*; 
-	PROCEDURE ^ FindAllocLen*(v: tVector; VAR l, freetrail: LONGINT; VAR firstfree: tBuf); 
-	PROCEDURE ^ MarkUsed*(count: LONGINT; v: tVector); 
-	PROCEDURE ^ Loc*(i: LONGINT; v: tVector; VAR chunk: tBuf; VAR loc: LONGINT); 
-	PROCEDURE ^ Pos*(v: tVector; chunk: tBuf; loc: LONGINT): LONGINT; 
-	PROCEDURE ^ Len*(v: tData; dim: INTEGER): LONGINT; 
-	PROCEDURE ^ CloneLayout*(model: tData): tLayout; 
-	PROCEDURE ^ VecIndex*(VAR lens, indices: ARRAY OF Index): Index; 
-	PROCEDURE ^ VecIndexT*(VAR lens, indices: ARRAY OF Index): Index; 
-	PROCEDURE ^ VecIndex2*(len0, len1, index0, index1: Index): Index; 
-	PROCEDURE ^ VecIndex2T*(len0, len1, index0, index1: Index): Index; 
-	PROCEDURE ^ GC*(count: LONGINT; v: tData; pos: LONGINT); 
-	PROCEDURE ^ FlushCaches*(data: tData); 
-	PROCEDURE ^ DoToAllChunks*(src: tData; action: PROCEDURE (VAR buf: tBuf)); 
-	PROCEDURE ^ Piece*(VAR count: LONGINT; src: tVector; srcpos: LONGINT; dest: tVector; destpos: LONGINT; VAR piececount: LONGINT; VAR srcchunk: tBuf; VAR srcloc: LONGINT; VAR destchunk: tBuf; VAR destloc: LONGINT); 
-	PROCEDURE ^ DoToAllPieces*(src, dest: tData; action: PROCEDURE (VAR piececount: LONGINT; VAR srcchunk: tBuf; VAR srcloc: LONGINT; VAR destchunk: tBuf; VAR destloc: LONGINT)); 
-	PROCEDURE ^ ApndChunks*(chunk: tBuf; o: tVector); 
-	PROCEDURE ^ SortBufferList*(VAR chunk: tBuf; ordered: tSBLProc); 
-	PROCEDURE ^ HandletOp1*(VAR arg: tData; t: tOp1); 
-	PROCEDURE ^ HandletOp2*(VAR arg1, arg2: tData; t: tOp1); 
-	PROCEDURE ^ HandletOp3*(VAR arg1, arg2, arg3: tData; t: tOp1); 
-	PROCEDURE ^ GenericCatBuf*(ch: tBuf; len: LONGINT; VAR size: LONGINT; VAR first, last: tBuf); 
-	PROCEDURE ^ NextBuf*(c: tBuf): tBuf; 
-	PROCEDURE ^ GetUsedEntries*(c: tBuf): LONGINT; 
-	PROCEDURE ^ MatrixLayout*(rows, columns: LONGINT): tArray; 
-	PROCEDURE ^ SetArrayLayout*(sizes: ARRAY OF LONGINT; v: tVector; VAR total: LONGINT); 
-	PROCEDURE ^ Clear*(v: tData); 
-	PROCEDURE ^ HexToStr(pre: ARRAY OF CHAR; i: LONGINT; VAR s: ARRAY OF CHAR); 
-	PROCEDURE ^ StringSize(s: ARRAY OF CHAR; VAR w, h: INTEGER); 
-	PROCEDURE ^ ButtonHandler*(F: Objects.Object; VAR M: Objects.ObjMsg); 
-	PROCEDURE ^ InitButton(F: Objects.Object); 
-	PROCEDURE ^ NewButton*; 
-	PROCEDURE ^ Slow*; 
-	PROCEDURE ^ ActionReset*; 
-	PROCEDURE ^ Stop*; 
-	PROCEDURE ^ Step*; 
-	PROCEDURE ^ ActionRegister*(p: TickProc; delta: LONGINT); 
-	PROCEDURE ^ ActionDeRegister*(p: TickProc); 
-	PROCEDURE ^ Tick(me: Oberon.Task); 
-	PROCEDURE ^ NewCountTask(VAR T: Oberon.Task); 
-	PROCEDURE ^ Run*; 
-	PROCEDURE ^ AppendAction*(newaction, prevaction: tAction); 
-	PROCEDURE ^ DoAction*(action: tAction); 
-	PROCEDURE ^ TerminateAction*(action: tAction); 
-	PROCEDURE ^ Suspend*(action: tAction); 
-	PROCEDURE ^ Resume*(action: tAction); 
-	PROCEDURE ^ DoRunAction(action: Oberon.Task); 
-	PROCEDURE ^ RunAction*(action: tAction; requcount: LONGINT; delay: LONGINT; termination: tAction); 
-	PROCEDURE ^ COPYB*(VAR src: ARRAY OF BOOLEAN; srcoffs, len: LONGINT; VAR dest: ARRAY OF BOOLEAN; destoffs: LONGINT); 
-	PROCEDURE ^ COPYCHAR*(VAR src: ARRAY OF CHAR; srcoffs, len: LONGINT; VAR dest: ARRAY OF CHAR; destoffs: LONGINT); 
-	PROCEDURE ^ COPYSHORT*(VAR src: ARRAY OF SHORTINT; srcoffs, len: LONGINT; VAR dest: ARRAY OF SHORTINT; destoffs: LONGINT); 
-	PROCEDURE ^ COPYI*(VAR src: ARRAY OF INTEGER; srcoffs, len: LONGINT; VAR dest: ARRAY OF INTEGER; destoffs: LONGINT); 
-	PROCEDURE ^ COPYL*(VAR src: ARRAY OF LONGINT; srcoffs, len: LONGINT; VAR dest: ARRAY OF LONGINT; destoffs: LONGINT); 
-	PROCEDURE ^ COPYR*(VAR src: ARRAY OF REAL; srcoffs, len: LONGINT; VAR dest: ARRAY OF REAL; destoffs: LONGINT); 
-	PROCEDURE ^ COPYX*(VAR src: ARRAY OF LONGREAL; srcoffs, len: LONGINT; VAR dest: ARRAY OF LONGREAL; destoffs: LONGINT); 
-	PROCEDURE ^ COPYSET*(VAR src: ARRAY OF SET; srcoffs, len: LONGINT; VAR dest: ARRAY OF SET; destoffs: LONGINT); 
-	PROCEDURE ^ CallWString*(caller, name, pars: ARRAY OF CHAR; new: BOOLEAN; VAR res: INTEGER); 
-	PROCEDURE ^ GetVFromObj*(obj: Objects.Object): tVector; 
-	PROCEDURE ^ Show*(list: vyLinks.Link; obCount: INTEGER; as: ARRAY OF CHAR); 
-	PROCEDURE ^ NextParObj*(): Objects.Object; 
-BEGIN
-END vyBase.

Win64/bin/Oberon-vyBit.SymWw

@@ -1,30 +0,0 @@
-MODULE vyBit IN Oberon;
-	IMPORT Files, vyBase;
-CONST 
-	idversion* = \" v0r0a2"\; 
-	fmtany* = 0; 
-	fmtend* = 0; 
-	fmtplain* = 1; 
-	fmtpacked* = 2; 
-
-	PROCEDURE ^ Write*(VAR R: Files.Rider; count: LONGINT; VAR x: ARRAY OF BOOLEAN; start: LONGINT); 
-	PROCEDURE ^ Read*(VAR R: Files.Rider; count: LONGINT; VAR x: ARRAY OF BOOLEAN; start: LONGINT); 
-	PROCEDURE ^ WriteFmt*(prefform: LONGINT; VAR R: Files.Rider; count: LONGINT; VAR x: ARRAY OF BOOLEAN; start: LONGINT); 
-	PROCEDURE ^ ReadFmt*(VAR form: LONGINT; VAR R: Files.Rider; count: LONGINT; VAR x: ARRAY OF BOOLEAN; start: LONGINT); 
-	PROCEDURE ^ Fill*(len: LONGINT; VAR x: ARRAY OF BOOLEAN; start: LONGINT; val: BOOLEAN); 
-	PROCEDURE ^ FillPat*(count: LONGINT; VAR x: ARRAY OF BOOLEAN; start, step: LONGINT; val: BOOLEAN); 
-	PROCEDURE ^ Copy*(len: LONGINT; VAR src: ARRAY OF BOOLEAN; srcstart: LONGINT; VAR dest: ARRAY OF BOOLEAN; deststart: LONGINT); 
-	PROCEDURE ^ CopyPat*(count: LONGINT; VAR src: ARRAY OF BOOLEAN; start, step: LONGINT; VAR dest: ARRAY OF BOOLEAN; deststart, deststep: LONGINT); 
-	PROCEDURE ^ Count*(len: LONGINT; VAR x: ARRAY OF BOOLEAN): LONGINT; 
-	PROCEDURE ^ And*(VAR x, y: ARRAY OF BOOLEAN; VAR z: ARRAY OF BOOLEAN; len: LONGINT); 
-	PROCEDURE ^ Or*(VAR x, y: ARRAY OF BOOLEAN; VAR z: ARRAY OF BOOLEAN; len: LONGINT); 
-	PROCEDURE ^ XOr*(VAR x, y: ARRAY OF BOOLEAN; VAR z: ARRAY OF BOOLEAN; len: LONGINT); 
-	PROCEDURE ^ Not*(VAR x: ARRAY OF BOOLEAN; VAR z: ARRAY OF BOOLEAN; len: LONGINT); 
-	PROCEDURE ^ Get2d*(VAR x: ARRAY OF BOOLEAN; rows, row, column: LONGINT): BOOLEAN; 
-	PROCEDURE ^ Set2d*(VAR x: ARRAY OF BOOLEAN; rows, row, column: LONGINT; val: BOOLEAN); 
-	PROCEDURE ^ Get2dM*(VAR x: ARRAY OF BOOLEAN; rowoffset, coloffset, nrrows, nrcolumns: LONGINT; VAR dest: ARRAY OF ARRAY OF BOOLEAN); 
-	PROCEDURE ^ Set2dM*(VAR x: ARRAY OF BOOLEAN; rowoffset, coloffset, nrrows, nrcolumns: LONGINT; VAR src: ARRAY OF ARRAY OF BOOLEAN); 
-	PROCEDURE ^ Get2dF*(VAR x: ARRAY OF BOOLEAN; columns, row, column: LONGINT): BOOLEAN; 
-	PROCEDURE ^ Set2dF*(VAR x: ARRAY OF BOOLEAN; columns, row, column: LONGINT; val: BOOLEAN); 
-BEGIN
-END vyBit.

Win64/bin/Oberon-vyBoolean.SymWw

@@ -1,30 +0,0 @@
-MODULE vyBoolean IN Oberon;
-	IMPORT Files, vyBase;
-CONST 
-	idversion* = \" v0r0a2"\; 
-	fmtany* = 0; 
-	fmtend* = 0; 
-	fmtplain* = 1; 
-	fmtpacked* = 2; 
-
-	PROCEDURE ^ Write*(VAR R: Files.Rider; count: LONGINT; VAR x: ARRAY OF BOOLEAN; start: LONGINT); 
-	PROCEDURE ^ Read*(VAR R: Files.Rider; count: LONGINT; VAR x: ARRAY OF BOOLEAN; start: LONGINT); 
-	PROCEDURE ^ WriteFmt*(prefform: LONGINT; VAR R: Files.Rider; count: LONGINT; VAR x: ARRAY OF BOOLEAN; start: LONGINT); 
-	PROCEDURE ^ ReadFmt*(VAR form: LONGINT; VAR R: Files.Rider; count: LONGINT; VAR x: ARRAY OF BOOLEAN; start: LONGINT); 
-	PROCEDURE ^ Fill*(len: LONGINT; VAR x: ARRAY OF BOOLEAN; start: LONGINT; val: BOOLEAN); 
-	PROCEDURE ^ FillPat*(count: LONGINT; VAR x: ARRAY OF BOOLEAN; start, step: LONGINT; val: BOOLEAN); 
-	PROCEDURE ^ Copy*(len: LONGINT; VAR src: ARRAY OF BOOLEAN; srcstart: LONGINT; VAR dest: ARRAY OF BOOLEAN; deststart: LONGINT); 
-	PROCEDURE ^ CopyPat*(count: LONGINT; VAR src: ARRAY OF BOOLEAN; start, step: LONGINT; VAR dest: ARRAY OF BOOLEAN; deststart, deststep: LONGINT); 
-	PROCEDURE ^ Count*(len: LONGINT; VAR x: ARRAY OF BOOLEAN): LONGINT; 
-	PROCEDURE ^ And*(VAR x, y: ARRAY OF BOOLEAN; VAR z: ARRAY OF BOOLEAN; len: LONGINT); 
-	PROCEDURE ^ Or*(VAR x, y: ARRAY OF BOOLEAN; VAR z: ARRAY OF BOOLEAN; len: LONGINT); 
-	PROCEDURE ^ XOr*(VAR x, y: ARRAY OF BOOLEAN; VAR z: ARRAY OF BOOLEAN; len: LONGINT); 
-	PROCEDURE ^ Not*(VAR x: ARRAY OF BOOLEAN; VAR z: ARRAY OF BOOLEAN; len: LONGINT); 
-	PROCEDURE ^ Get2d*(VAR x: ARRAY OF BOOLEAN; rows, row, column: LONGINT): BOOLEAN; 
-	PROCEDURE ^ Set2d*(VAR x: ARRAY OF BOOLEAN; rows, row, column: LONGINT; val: BOOLEAN); 
-	PROCEDURE ^ Get2dM*(VAR x: ARRAY OF BOOLEAN; rowoffset, coloffset, nrrows, nrcolumns: LONGINT; VAR dest: ARRAY OF ARRAY OF BOOLEAN); 
-	PROCEDURE ^ Set2dM*(VAR x: ARRAY OF BOOLEAN; rowoffset, coloffset, nrrows, nrcolumns: LONGINT; VAR src: ARRAY OF ARRAY OF BOOLEAN); 
-	PROCEDURE ^ Get2dF*(VAR x: ARRAY OF BOOLEAN; columns, row, column: LONGINT): BOOLEAN; 
-	PROCEDURE ^ Set2dF*(VAR x: ARRAY OF BOOLEAN; columns, row, column: LONGINT; val: BOOLEAN); 
-BEGIN
-END vyBoolean.

Win64/bin/Oberon-vyBooleanVec.SymWw

@@ -1,60 +0,0 @@
-MODULE vyBooleanVec IN Oberon;
-	IMPORT Files, Objects, vyBase, vyBoolean, vyHostTexts, vyLongintVec, vyName;
-CONST 
-	idversion* = \"vyBooleanVec 0.0a3"\; 
-TYPE 
-	index* = LONGINT; 
-
-	tVector* = POINTER TO tVectorDesc; 
-
-	tVectorDesc* = RECORD (vyBase.tVectorDesc)
-	END; 
-
-	tBOOLEAN* = POINTER TO tBOOLEANDesc; 
-
-	tBOOLEANDesc* = RECORD (vyBase.tDataDesc)
-		b*: BOOLEAN; 
-	END; 
-
-	tBuf* = POINTER TO tBufDesc; 
-
-	tBufDesc* = RECORD (vyBase.tBufDesc)
-		data: POINTER TO ARRAY OF BOOLEAN; 
-	END; 
-
-	PROCEDURE ^ NewBufs(size: LONGINT): tBuf; 
-	PROCEDURE ^ SetNrData(vec: tVector; size: index); 
-	PROCEDURE ^ Store0(VAR R: Files.Rider; o: tVector); 
-	PROCEDURE ^ Store0BOOLEAN(VAR R: Files.Rider; o: tBOOLEAN); 
-	PROCEDURE ^ Load0(VAR R: Files.Rider; o: tVector); 
-	PROCEDURE ^ Load0BOOLEAN(VAR R: Files.Rider; o: tBOOLEAN); 
-	PROCEDURE ^ HandleAttributes(o: tVector; VAR M: Objects.AttrMsg); 
-	PROCEDURE ^ HandleAttributesBOOLEAN(o: tBOOLEAN; VAR M: Objects.AttrMsg); 
-	PROCEDURE ^ Handler*(o: Objects.Object; VAR M: Objects.ObjMsg); 
-	PROCEDURE ^ Gen*; 
-	PROCEDURE ^ New*(size: LONGINT): tVector; 
-	PROCEDURE ^ GenBooleanObject*; 
-	PROCEDURE ^ NewBooleanObject*(b: BOOLEAN): tBOOLEAN; 
-	PROCEDURE ^ NewBooleanMatrix*(rows, columns: LONGINT): vyBase.tVector; 
-	PROCEDURE ^ NewBooleanArray*(sizes: ARRAY OF LONGINT): vyBase.tVector; 
-	PROCEDURE ^ NewAlikeVector*(model: vyBase.tVector): vyBase.tVector; 
-	PROCEDURE ^ GC*(vec: vyBase.tVector); 
-	PROCEDURE ^ Allocate*(vec: vyBase.tVector; size: index); 
-	PROCEDURE ^ SetLen*(vec: vyBase.tVector; size: index); 
-	PROCEDURE ^ Len*(vec: tVector): LONGINT; 
-	PROCEDURE ^ NewConstVector*(size: LONGINT; val: BOOLEAN): vyBase.tVector; 
-	PROCEDURE ^ Append*(x: BOOLEAN; v: vyBase.tVector); 
-	PROCEDURE ^ Get*(v: vyBase.tVector; i: LONGINT): BOOLEAN; 
-	PROCEDURE ^ Set*(val: BOOLEAN; v: vyBase.tVector; pos: LONGINT); 
-	PROCEDURE ^ GetIndexed*(v: vyBase.tVector; indexvec: vyBase.tVector; pos: index): BOOLEAN; 
-	PROCEDURE ^ SetIndexed*(xval: BOOLEAN; v: vyBase.tVector; indexvec: vyBase.tVector; pos: index); 
-	PROCEDURE ^ CopyToArray*(v: vyBase.tVector; VAR A: ARRAY OF BOOLEAN); 
-	PROCEDURE ^ CopyData*(src, dest: vyBase.tVector); 
-	PROCEDURE ^ CopyToVec*(VAR A: ARRAY OF BOOLEAN; v: vyBase.tVector; len: LONGINT; srcoffs, destoffs: LONGINT); 
-	PROCEDURE ^ Fill*(v: vyBase.tVector; val: BOOLEAN; offs, count: LONGINT); 
-	PROCEDURE ^ NewFilledNamed*(count: LONGINT; val: BOOLEAN; name: ARRAY OF CHAR): tVector; 
-	PROCEDURE ^ WriteChunk*(VAR w: vyBase.TextsWriter; chunk: vyBase.tBuf); 
-	PROCEDURE ^ Write*(VAR w: vyBase.TextsWriter; v: vyBase.tData); 
-	PROCEDURE ^ ChunkSummary*(VAR w: vyBase.TextsWriter; chunk: vyBase.tBuf); 
-BEGIN
-END vyBooleanVec.

Win64/bin/Oberon-vyChiSquare.SymWw

@@ -1,14 +0,0 @@
-MODULE vyChiSquare IN Oberon;
-	IMPORT MathL IN A2;
-CONST 
-	INF = MAX(LONGREAL); 
-TYPE 
-	extended = LONGREAL; 
-
-	integer = LONGINT; 
-
-	PROCEDURE ^ SChiSq*(n: integer; x: extended): extended; 
-	PROCEDURE ^ PFChiSq*(n: integer; x: extended): extended; 
-	PROCEDURE ^ chs1*(bins: ARRAY OF LONGINT; ebins: ARRAY OF LONGREAL; nbins: LONGINT; knstrn: LONGINT; VAR df, chsq, prob: LONGREAL); 
-BEGIN
-END vyChiSquare.

Win64/bin/Oberon-vyConsume.SymWw

@@ -1,19 +0,0 @@
-MODULE vyConsume IN Oberon;
-	IMPORT Display, Objects, TextGadgets, Texts, vyBase, vyLinks, vyName, vyRealVec, vyReadMatrix;
-CONST 
-TYPE 
-	tConvProc* = PROCEDURE (t: Texts.Text):vyLinks.Link; 
-VAR 
-	datafromtext*: tConvProc; 
-
-	PROCEDURE ^ TableFromText(t: Texts.Text): vyLinks.Link; 
-	PROCEDURE ^ VectorFromText(VAR t: Texts.Text): vyLinks.Link; 
-	PROCEDURE ^ DataFromText*(VAR t: Texts.Text): vyLinks.Link; 
-	PROCEDURE ^ SetTableFromText*; 
-	PROCEDURE ^ DataFromTextGadget*(M: Display.ConsumeMsg): Objects.Object; 
-	PROCEDURE ^ DataByNamedGadget*(VAR M: Display.ConsumeMsg): Objects.Object; 
-	PROCEDURE ^ GetText(obj: Objects.Object): Texts.Text; 
-	PROCEDURE ^ DataFromMsg*(VAR M: Display.ConsumeMsg; VAR t: Objects.Object): Objects.Object; 
-	PROCEDURE ^ DataFromObj*(obj: Objects.Object; VAR t: Objects.Object): Objects.Object; 
-BEGIN
-END vyConsume.

Win64/bin/Oberon-vyFiles.SymWw

@@ -1,25 +0,0 @@
-MODULE vyFiles IN Oberon;
-	IMPORT Files;
-CONST 
-	idtag = 0; 
-
-	PROCEDURE ^ ReadArrayDesc*(VAR R: Files.Rider; VAR type, version, dims: LONGINT; VAR len: POINTER TO ARRAY OF LONGINT); 
-	PROCEDURE ^ ReadInt*(VAR R: Files.Rider; VAR x: ARRAY OF INTEGER; start, count: LONGINT); 
-	PROCEDURE ^ ReadLInt*(VAR R: Files.Rider; VAR x: ARRAY OF LONGINT; start, count: LONGINT); 
-	PROCEDURE ^ ReadSet*(VAR R: Files.Rider; VAR x: ARRAY OF SET; start, count: LONGINT); 
-	PROCEDURE ^ ReadBool*(VAR R: Files.Rider; VAR x: ARRAY OF BOOLEAN; start, count: LONGINT); 
-	PROCEDURE ^ ReadReal*(VAR R: Files.Rider; VAR x: ARRAY OF REAL; start, count: LONGINT); 
-	PROCEDURE ^ ReadLReal*(VAR R: Files.Rider; VAR x: ARRAY OF LONGREAL; start, count: LONGINT); 
-	PROCEDURE ^ ReadString*(VAR R: Files.Rider; VAR x: ARRAY OF ARRAY OF CHAR; start, count: LONGINT); 
-	PROCEDURE ^ ReadNum*(VAR R: Files.Rider; VAR x: ARRAY OF LONGINT; start, count: LONGINT); 
-	PROCEDURE ^ WriteArrayDesc*(VAR R: Files.Rider; VAR type, version, dims: LONGINT; VAR len: POINTER TO ARRAY OF LONGINT); 
-	PROCEDURE ^ WriteInt*(VAR R: Files.Rider; VAR x: ARRAY OF INTEGER; start, count: LONGINT); 
-	PROCEDURE ^ WriteLInt*(VAR R: Files.Rider; VAR x: ARRAY OF LONGINT; start, count: LONGINT); 
-	PROCEDURE ^ WriteSet*(VAR R: Files.Rider; VAR x: ARRAY OF SET; start, count: LONGINT); 
-	PROCEDURE ^ WriteBool*(VAR R: Files.Rider; VAR x: ARRAY OF BOOLEAN; start, count: LONGINT); 
-	PROCEDURE ^ WriteReal*(VAR R: Files.Rider; VAR x: ARRAY OF REAL; start, count: LONGINT); 
-	PROCEDURE ^ WriteLReal*(VAR R: Files.Rider; VAR x: ARRAY OF LONGREAL; start, count: LONGINT); 
-	PROCEDURE ^ WriteString*(VAR R: Files.Rider; VAR x: ARRAY OF ARRAY OF CHAR; start, count: LONGINT); 
-	PROCEDURE ^ WriteNum*(VAR R: Files.Rider; VAR x: ARRAY OF LONGINT; start, count: LONGINT); 
-BEGIN
-END vyFiles.

Win64/bin/Oberon-vyHost.SymWw

@@ -1,55 +0,0 @@
-MODULE vyHost IN Oberon;
-	IMPORT SYSTEM, Oberon, Texts, Viewers, Display, TextFrames, Objects, Links;
-CONST 
-	idversion* = \"vyHost Oberon S3 0.1d3"\; 
-	charset* = \"Oberon"\; 
-	TextElemCode* = 1CX; 
-	precc* = 100; 
-	postcc* = 120; 
-	notyetcc* = 99; 
-	fatalcc* = 98; 
-	second* = 300; 
-	slides* = 150; 
-	movie* = 15; 
-	maxdims* = 10; 
-TYPE 
-	Index* = LONGINT; 
-
-	Viewer* = Viewers.Viewer; 
-
-	Frame* = Display.Frame; 
-VAR 
-	ticks-: LONGINT; 
-	w: Texts.Writer; 
-
-	PROCEDURE ^ Addr*(p: ANY): LONGINT; 
-	PROCEDURE ^ GetCaret*(VAR F: Frame; VAR text: Texts.Text; VAR pos: LONGINT); 
-	PROCEDURE ^ GetSelectionText*(VAR text: Texts.Text; VAR beg, end: LONGINT); 
-	PROCEDURE ^ GetPar*; 
-	PROCEDURE ^ GetParText*(VAR text: Texts.Text; VAR pos: LONGINT); 
-	PROCEDURE ^ GetMarkedViewer*; 
-	PROCEDURE ^ GetMarkedText*(VAR text: Texts.Text); 
-	PROCEDURE ^ GetNamedText*(name: ARRAY OF CHAR; VAR text: Texts.Text); 
-	PROCEDURE ^ GetVisibleOutput(VAR F: Frame; VAR text: Texts.Text); 
-	PROCEDURE ^ StringLength*(s: ARRAY OF CHAR): Index; 
-	PROCEDURE ^ StringAppend*(extra: ARRAY OF CHAR; start: Index; VAR dest: ARRAY OF CHAR; VAR pos: Index); 
-	PROCEDURE ^ StringAppendInt*(x, n: LONGINT; VAR dest: ARRAY OF CHAR; VAR pos: Index); 
-	PROCEDURE ^ StringAppendHex*(x: LONGINT; VAR dest: ARRAY OF CHAR; VAR pos: Index); 
-	PROCEDURE ^ StringAppendDate*(t, d: LONGINT; VAR dest: ARRAY OF CHAR; VAR pos: Index); 
-	PROCEDURE ^ CallWString*(name: ARRAY OF CHAR; pars: ARRAY OF CHAR; new: BOOLEAN; VAR res: INTEGER); 
-	PROCEDURE ^ CallWStringX*(name, pre: ARRAY OF CHAR; pars: ARRAY OF CHAR; new: BOOLEAN; VAR res: INTEGER); 
-	PROCEDURE ^ XpwrI*(x: REAL; i: INTEGER): REAL; 
-	PROCEDURE ^ XLpwrIL*(x: LONGREAL; i: LONGINT): LONGREAL; 
-	PROCEDURE ^ Ten*(i: INTEGER): REAL; 
-	PROCEDURE ^ TenL*(i: LONGINT): LONGREAL; 
-	PROCEDURE ^ GetString*(VAR text: Texts.Text; pos: LONGINT; len: INTEGER; VAR s: ARRAY OF CHAR): BOOLEAN; 
-	PROCEDURE ^ GetLInt*(VAR text: Texts.Text; pos: LONGINT; len: INTEGER; VAR x: LONGINT): BOOLEAN; 
-	PROCEDURE ^ GetInt*(VAR text: Texts.Text; pos: LONGINT; len: INTEGER; VAR x: INTEGER): BOOLEAN; 
-	PROCEDURE ^ GetSInt*(VAR text: Texts.Text; pos: LONGINT; len: INTEGER; VAR x: SHORTINT): BOOLEAN; 
-	PROCEDURE ^ GetLReal*(VAR text: Texts.Text; pos: LONGINT; len: INTEGER; VAR x: LONGREAL): BOOLEAN; 
-	PROCEDURE ^ GetReal*(VAR text: Texts.Text; pos: LONGINT; len: INTEGER; VAR x: REAL): BOOLEAN; 
-	PROCEDURE ^ ShowId*; 
-	PROCEDURE ^ DisplayNewPattern*(x, y: INTEGER; VAR img: ARRAY OF SET): ADDRESS; 
-	PROCEDURE ^ StackFrame*(msg: ARRAY OF CHAR); 
-BEGIN
-END vyHost.

Win64/bin/Oberon-vyHostFonts.SymWw

@@ -1,32 +0,0 @@
-MODULE vyHostFonts IN Oberon;
-	IMPORT Fonts, Pictures, Display;
-CONST 
-	MAXCHARS = (ORD(MAX(CHAR)) + 1); 
-	maxW = 80; 
-	maxH = 80; 
-	idversion* = \"0.1d1"\; 
-TYPE 
-	Char* = POINTER TO CharDesc; 
-
-	CharDesc* = RECORD (Fonts.CharDesc)
-		dy*: INTEGER; 
-	END; 
-
-	TheChars = ARRAY MAXCHARS OF Char; 
-
-	Font* = POINTER TO FontDesc; 
-
-	FontDesc* = RECORD (Fonts.FontDesc)
-		f: Fonts.Font; 
-		c: TheChars; 
-		next: Font; 
-	END; 
-VAR 
-	Anchor: Font; 
-	bP: Pictures.Picture; 
-
-	PROCEDURE ^ GetChar*(F: Font; ch: CHAR; VAR dy, x, y, w, h: INTEGER; VAR pat: Display.Pattern); 
-	PROCEDURE ^ NewVerticalFont(vertical: Font; orig: Fonts.Font); 
-	PROCEDURE ^ This*(name: ARRAY OF CHAR): Font; 
-BEGIN
-END vyHostFonts.