|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 16384 (0x4000)
Types: TextFile
Names: »LNKP0.PRN«
└─⟦91467e717⟧ Bits:30009789/_.ft.Ibm2.50007348.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »LNKP0.PRN«
Pro Pascal Compiler - Version zz 2.1
Compilation of: B:LNKP0.PAS
Options: LNIAG
1 0000 (******************************************************************************)
2 0000 (* *)
3 0000 (* Copyright (1985) by Metanic Aps., Denmark *)
4 0000 (* *)
5 0000 (* Author: Lars Gregers Jakobsen. *)
6 0000 (* *)
7 0000 (******************************************************************************)
8 0000
9 0000 SEGMENT SetUp;
10 0000
11 0000 (*
12 0000 This prospero Pascal segment holds the declarations for the setup
13 0000 procedure for Metanic linker.
14 0000 *)
15 0000
16 0000 (*$I B:lnkDC0.pas Declarations of global constants, types, and commons *)
17 0000 (******************************************************************************)
18 0000 (* *)
19 0000 (* Copyright (1985) by Metanic Aps., Denmark *)
20 0000 (* *)
21 0000 (* Author: Lars Gregers Jakobsen. *)
22 0000 (* *)
23 0000 (******************************************************************************)
24 0000
25 0000 CONST (*LINK*)
26 0000 FileNameLength = 14;
27 0000 MaxSymbolNameIndex = 2; (*?*)
28 0000 MaxNooInputFiles = 2; (*?*)
29 0000 MaxNooModules = 2; (*?*)
30 0000 MaxNooSections = 2; (*?*)
31 0000 MaxNooSegments = 3; (*?*)
32 0000 MaxNooSymbols = 5; (*?*)
33 0000 MaxNooExternalImportSymbols = 2; (*?*)
34 0000 MaxNooInternalImportSymbols = 2; (*?*)
35 0000 MaxObjectRecordIndex = 31; (*?*)
36 0000 MaxSectorIndex = 1023;
37 0000 MaxNameTableIndex = 17; (*?*)
38 0000 OM_Format1 = 1;
39 0000 OF_Format1 = 1;
40 0000 LogFilePageSize = 65; (*First line is #1. Last line is #65*)
41 0000
42 0000 (*$I A:PrTstCon.pas Declarations of constants for PrTst package *)
43 0000 (* $I A:PrTstCon.pas Declarations of constants for PrTst package *)
44 0000
45 0000 (* This file is part of the ProPascal test option package. Se file
46 0000 PrTst.pas for further explanations of usage
47 0000 *)
48 0000
49 0000 max_test_option_number = 31;
50 0000
51 0000
52 0000
53 0000
54 0000 TYPE (*LINK*)
55 0000
56 0000 (* General Types *)
57 0000
58 0000 i8 = 0..255;
59 0000 byte = i8;
60 0000 i16 = 0..65535;
61 0000 i32 = integer;
62 0000 i32IndexType = (bs0, bs1, bs2, bs3);
63 0000 i32ArrayType = ARRAY (.i32IndexType.) OF i8;
64 0000 CharSetType = SET OF char;
65 0000
66 0000 (* Basic Types *)
67 0000
68 0000 StatusBaseType =
69 0000 (success
70 0000 ,badfileformat
71 0000 ,badmoduleformat
72 0000 ,unexpectedeof
73 0000 ,NotFound
74 0000 ,DuplicateModuleName
75 0000 ,NameTableOverFlow
76 0000 ,ModuleTableOverFlow
77 0000 ,SectionTableOverFlow
78 0000 ,FileNameTableOverFlow
79 0000 ,SymbolTableOverFlow
80 0000 ,ExternalImportTableOverFlow
81 0000 ,InternalImportTableOverFlow
82 0000 ,ValueTableOverFlow
83 0000 ,NoSuchFile
84 0000 ,NotFinished
85 0000 ,BadLogFileName
86 0000 ,BadTargetFileName
87 0000 ,BadSymbolName
88 0000 ,NoInputFiles
89 0000 ,BadOption
90 0000 ,BadFileName
91 0000 ,AmbiguousName
92 0000 ,DuplicateExportSymbol
93 0000 ,HeapEmpty
94 0000 ,NotUsed
95 0000 ,error
96 0000 );
97 0000
98 0000 StatusType = SET OF StatusBaseType;
99 0000
100 0000 OF_FormatType = i32;
101 0000 OM_FormatType = i32;
102 0000 FileKindBaseType = (explicit, implicit, none);
103 0000 LogFileKindType = explicit..none;
104 0000 TargetFileKindType = explicit..implicit;
105 0000
106 0000 SegmentNoType = 0..MaxNooSegments;
107 0000 RelocationIndicatorType = SegmentNoType;
108 0000 FileAddressType = 0..MaxInt;
109 0000 SizeType = FileAddressType;
110 0000
111 0000
112 0000
113 0000 SymbolNameIndexType = 0..MaxSymbolNameIndex;
114 0000 SymbolNameSubIndexType = 1..MaxSymbolNameIndex;
115 0000 SymbolNameType = RECORD
116 0000 Length: SymbolNameIndexType;
117 0000 Name: ARRAY (.SymbolNameSubIndexType.) OF i8;
118 0000 END;
119 0000 ModuleNameType = SymbolNameType;
120 0000 FileNameType = STRING(.FileNameLength.);
121 0000
122 0000 (*
123 0000 SectorIndexType = 0..MaxSectorIndex;
124 0000 SectorType = ARRAY (.SectorIndexType.) OF byte;
125 0000 FileType = RECORD
126 0000 F: File OF SectorType; (* File system file * )
127 0000 S: i32; (* Current sector number * )
128 0000 P: SectorIndexType (* Current index into current sector * )
129 0000 END;
130 0000 *)
131 0000 FileType = RECORD
132 0000 F: FILE OF i8; (* File systeme file *)
133 0000 P: FileAddressType (* Current file address.
134 0000 NOT defined when eof(F) = true *)
135 0000 END;
136 0000
137 0000 PageNoType = i32;
138 0000 LineNoType = 0..255;
139 0000 LogFileType = RECORD
140 0000 F: text; (* File system file *)
141 0000 P: PageNoType; (* No of page started upon *)
142 0000 L: LineNoType; (* No of line just printed within current page *)
143 0000 END;
144 0000
145 0000 (* Table Index Types *)
146 0000
147 0000 ExternalImportTableIndexType = 0..MaxNooExternalImportSymbols;
148 0000 FileNameTableIndexType = -1..MaxNooInputFiles;
149 0000 InternalImportTableIndexType = 0..MaxNooInternalImportSymbols;
150 0000 ModuleTableIndexType = 0..MaxNooModules;
151 0000 NameTableIndexType = 0..MaxNameTableIndex;
152 0000 SectionTableIndexType = 0..MaxNooSections;
153 0000 SymbolTableIndexType = 0..MaxNooSymbols;
154 0000
155 0000 (* Table Sub Index Types *)
156 0000
157 0000 ExternalImportTableSubIndexType = 1..MaxNooExternalImportSymbols;
158 0000 InternalImportTableSubIndexType = 1..MaxNooInternalImportSymbols;
159 0000 ModuleTableSubIndexType = 1..MaxNooModules;
160 0000 NameTableSubIndexType = 1..MaxNameTableIndex;
161 0000 SectionTableSubIndexType = 1..MaxNooSections;
162 0000 SymbolTableSubIndexType = 1..MaxNooSymbols;
163 0000
164 0000
165 0000
166 0000 (* Table Record Types *)
167 0000
168 0000 ExternalImportTableRecordType = RECORD
169 0000 SymbolNo: SymbolTableIndexType
170 0000 END;
171 0000
172 0000 FileNameTableRecordType = FileNameType;
173 0000
174 0000 InternalImportTableRecordType = RECORD
175 0000 ModificationAddress: FileAddressType;
176 0000 SymbolIndex: ExternalImportTableIndexType
177 0000 END;
178 0000
179 0000 ModuleTableRecordType = RECORD
180 0000 ModuleNameReference: SymbolTableIndexType; (* Reference to symbol
181 0000 table entry holding
182 0000 module name*)
183 0000 FileNameReference: FileNameTableIndexType; (* *)
184 0000 CurrentFileAddress: FileAddressType; (* Offset relative to
185 0000 start of file *)
186 0000 Referenced: Boolean; (* True if module referenced *)
187 0000 NooSegments: SegmentNoType; (* Noo Segments in module *)
188 0000 NooExternalImportSymbols: ExternalImportTableIndexType;
189 0000 EITOffset: ExternalImportTableIndexType;
190 0000 SBTLinkHead: SymbolTableIndexType
191 0000 END;
192 0000
193 0000 SectionTableRecordType = RECORD
194 0000 ModuleNo: ModuleTableIndexType;
195 0000 SegmentNo: SegmentNoType;
196 0000 ImageSize,
197 0000 RldSize: FileAddressType;
198 0000 NooInternalImportSymbols: InternalImportTableIndexType;
199 0000 RelocationConstant: SizeType;
200 0000 END;
201 0000
202 0000 SymbolTableRecordType = RECORD
203 0000 Section: SectionTableIndexType;
204 0000 NameReference: NameTableIndexType;
205 0000 SortLink: SymbolTableIndexType
206 0000 END;
207 0000
208 0000 ValueTableRecordType = RECORD
209 0000 Resolved: Boolean;
210 0000 Value: i32
211 0000 END;
212 0000
213 0000 (* Table Types *)
214 0000
215 0000
216 0000 ExternalImportTableType = ARRAY (.ExternalImportTableSubIndexType.) OF
217 0000 ExternalImportTableRecordType;
218 0000
219 0000 FileNameTableType = ARRAY (.FileNameTableIndexType.) OF
220 0000 FileNameTableRecordType;
221 0000
222 0000 InternalImportTableType = ARRAY (.InternalImportTableSubIndexType.) OF
223 0000 InternalImportTableRecordType;
224 0000
225 0000 ModuleTableType = ARRAY (.ModuleTableSubIndexType.) OF
226 0000 ModuleTableRecordType;
227 0000
228 0000 OptionTableType = RECORD
229 0000 LogFileKind: LogFileKindType;
230 0000 TargetFileKind: TargetFileKindType
231 0000 END;
232 0000
233 0000 NameTableType = ARRAY (.NameTableSubIndexType.) OF i8;
234 0000
235 0000 SectionTableType = ARRAY (.SectionTableSubIndexType.) OF
236 0000 SectionTableRecordType;
237 0000
238 0000 SymbolTableType = ARRAY (.SymbolTableSubIndexType.) OF
239 0000 SymbolTableRecordType;
240 0000
241 0000 ValueTableType = ARRAY (.SymbolTableSubIndexType.) OF
242 0000 ValueTableRecordType;
243 0000
244 0000
245 0000
246 0000
247 0000 ObjectRecordKindType = (OFF_Kind,
248 0000 OMF_Kind,
249 0000 OMH_Kind,
250 0000 SGD_Kind,
251 0000 EXP_Kind,
252 0000 EXI_Kind,
253 0000 IMG_Kind,
254 0000 RLD_Kind,
255 0000 INI_Kind,
256 0000 SYM_Kind,
257 0000 IndexableKind
258 0000 );
259 0000
260 0000 ObjectRecordIndexType = 0..MaxObjectRecordIndex;
261 0000
262 0000 ObjectRecordType = RECORD
263 0000 CASE ObjectRecordKind: ObjectRecordKindType OF
264 0000 OFF_Kind:
265 0000 (OF_Format: OF_FormatType);
266 0000 OMF_Kind:
267 0000 (OM_Format: OM_FormatType);
268 0000 OMH_Kind:
269 0000 (OMH_Module
270 0000 ,OMH_NooSegments
271 0000 ,OMH_NooExportSymbols
272 0000 ,OMH_NooExtImportSymbols
273 0000 : i32
274 0000 ;OMH_ModuleName
275 0000 : ModuleNameType
276 0000 );
277 0000 SGD_Kind:
278 0000 (SGD_Image
279 0000 ,SGD_Rld
280 0000 ,SGD_IntImport
281 0000 ,SGD_NooIntImportSymbols: i32
282 0000 );
283 0000 EXP_Kind:
284 0000 (EXP_RelocationIndicator: RelocationIndicatorType
285 0000 ;EXP_Item: i32
286 0000 ;EXP_SymbolName: SymbolNameType
287 0000 );
288 0000 EXI_Kind:
289 0000 (EXI_SymbolName: SymbolNameType
290 0000 );
291 0000 IMG_Kind:
292 0000 (IMG_SectionImageUnit: i8
293 0000 );
294 0000 RLD_Kind:
295 0000 (RLD_RelocationIndicator: RelocationIndicatorType
296 0000 );
297 0000 INI_Kind:
298 0000 (INI_ModificationAddress: FileAddressType
299 0000 ;INI_SymbolIndex: ExternalImportTableIndexType
300 0000 );
301 0000 SYM_Kind:
302 0000 (SYM_SymbolName: SymbolNameType
303 0000 );
304 0000 IndexableKind:
305 0000 (N: ARRAY (.ObjectRecordIndexType.) OF i8)
306 0000 END; (*RECORD CASE*)
307 0000
308 0000 (*$I A:PrTstTyp.pas Declarations of types for PrTst package *)
309 0000 (* $I A:PrTstTyp.pas Declarations of types for PrTst package *)
310 0000
311 0000 (* This file is part of the ProPascal test option package. Se file
312 0000 PrTst.pas for further explanations of usage
313 0000 *)
314 0000
315 0000 test_option_type = 0..max_test_option_number;
316 0000 test_option_set_type = SET OF test_option_type;
317 0000
318 0000
319 0000
320 0000
321 0000 COMMON (*LINK*)
322 0000
323 0000 (* Permanent Tables *)
324 0000
325 0000 OptionTable: OptionTableType;
326 0000
327 0000 FileNameTable: FilenameTableType;
328 0000 CurFileNo: FileNameTableIndexType;
329 0000
330 0000 ModuleTable: ModuleTableType;
331 0000 CurModuleNo: ModuleTableIndexType;
332 0000
333 0000