Commit | Line | Data |
---|---|---|
252b5132 RH |
1 | ("cs" 0x0 |
2 | (("size") (1 byte) ("size")) | |
3 | ||
4 | (("hd") (1 byte) ("hd")) | |
5 | (("hs") (1 byte) ("hs")) | |
6 | (("un") (1 byte) ("un")) | |
7 | (("us") (1 byte) ("us")) | |
8 | ||
9 | (("sc") (1 byte) ("sc")) | |
10 | (("ss") (1 byte) ("ss")) | |
11 | (("er") (1 byte) ("er")) | |
12 | (("ed") (1 byte) ("ed")) | |
13 | ||
14 | (("sh") (1 byte) ("sh")) | |
15 | (("ob") (1 byte) ("ob")) | |
16 | (("rl") (1 byte) ("rl")) | |
17 | (("du") (1 byte) ("du")) | |
18 | ||
19 | (("dps") (1 byte) ("dps")) | |
20 | (("dsy") (1 byte) ("dsy")) | |
21 | (("dty") (1 byte) ("dty")) | |
22 | (("dln") (1 byte) ("dln")) | |
23 | ||
24 | (("dso") (1 byte) ("dso")) | |
25 | (("dus") (1 byte) ("dus")) | |
26 | (("dss") (1 byte) ("dss")) | |
27 | (("dbt") (1 byte) ("dbt")) | |
28 | ||
29 | (("dpp") (1 byte) ("dpp")) | |
30 | (("dfp") (1 byte) ("dfp")) | |
31 | (("den") (1 byte) ("den")) | |
32 | (("dds") (1 byte) ("dds")) | |
33 | ||
34 | (("dar") (1 byte) ("dar")) | |
35 | (("dpt") (1 byte) ("dpt")) | |
36 | (("dul") (1 byte) ("dul")) | |
37 | (("dse") (1 byte) ("dse")) | |
38 | ||
39 | (("dot") (1 byte) ("dot"))) | |
40 | ||
41 | ||
42 | ("hd" 0x04 | |
43 | (("module type") (4 bits) ("mt") | |
44 | (("MTYPE_ABS_LM" "0") | |
45 | ("MTYPE_REL_LM" "1") | |
46 | ("MTYPE_OMS_OR_LMS" "2") | |
47 | ("MTYPE_UNSPEC" "0xf"))) | |
48 | (("spare")(4 bits) ("spare1")) | |
49 | (("creation date")( chars 12 bytes)( "cd")) | |
50 | (("number of units") (2 bytes) ("nu")) | |
51 | (("code") (1 byte) ("code")) | |
52 | (("version") (chars 4 bytes) ("ver")) | |
53 | (("address update") (1 byte) ("au")) | |
54 | (("segment identifier") (1 bit) ("si")) | |
55 | (("address field length") (4 bits) ("afl")) | |
56 | (("spare")(3 bits) ("spare2")) | |
57 | (("space size within segment") (1 byte) ("spcsz")) | |
58 | (("segment size") (1 byte) ("segsz")) | |
59 | (("segment shift") (1 byte) ("segsh")) | |
60 | (("entry point") (1 byte) ("ep")) | |
61 | (cond "ptr->ep" | |
62 | (cond "ptr->mt != MTYPE_ABS_LM" | |
63 | (("unit appearance number") (2 bytes) ("uan")) | |
64 | (("section appearance number") (2 bytes) ("sa"))) | |
65 | (cond "segmented_p" | |
66 | (("segment address") (segsize bytes) ("sad"))) | |
67 | (("address") (addrsize bytes) ("address"))) | |
68 | (("os name") (chars variable bytes) ("os")) | |
69 | (("sys name") (chars variable bytes) ("sys")) | |
70 | (("module name") (chars variable bytes) ("mn")) | |
71 | (("cpu") (chars variable bytes) ("cpu"))) | |
72 | ||
73 | ||
74 | ("hs" 0x05 | |
75 | (("neg number") (2 bytes) ("neg"))) | |
76 | ||
77 | ||
78 | ("un" 0x06 | |
79 | (("format") (2 bits) ("format") | |
80 | (("FORMAT_LM" "0") | |
81 | ("FORMAT_OM" "1") | |
82 | ("FORMAT_OMS_OR_LMS" "2"))) | |
83 | (("spare") (6 bits) ("spare1")) | |
84 | (("number of sections") (2 bytes) ("nsections")) | |
85 | (("number of external refs") (2 bytes) ("nextrefs")) | |
86 | (("number of external defs") (2 bytes) ("nextdefs")) | |
87 | (("unit name") (chars variable byte) ("name")) | |
88 | (("tool name") (chars variable byte) ("tool")) | |
89 | (("creation date") (chars 12 bytes) ("tcd")) | |
90 | (("linker name") (chars variable byte) ("linker")) | |
91 | (("creation date") (chars 12 bytes) ("lcd"))) | |
92 | ||
93 | ||
94 | ("us" 0x07 | |
95 | (("negotiation number") (2 bytes) ("neg"))) | |
96 | ||
97 | ||
98 | ("sc" 0x08 | |
99 | (("format") (2 bits) ("format")) | |
100 | (("spare") (6 bits) ("spare")) | |
101 | (("segment address") (segsize bytes) ("segadd")) | |
102 | (("address") (addrsize bytes) ("addr")) | |
103 | (("length") (addrsize bytes) ("length")) | |
104 | (("alignment") (addrsize bytes) ("align")) | |
105 | (("contents") (4 bits) ("contents") | |
106 | (("CONTENTS_CODE" "0") | |
107 | ("CONTENTS_DATA" "1") | |
108 | ("CONTENTS_STACK" "2") | |
109 | ("CONTENTS_DUMMY" "3") | |
110 | ("CONTENTS_SPECIAL" "4") | |
111 | ("CONTENTS_NONSPEC" "0xf"))) | |
112 | (("concat") (4 bits) ("concat") | |
113 | (("CONCAT_SIMPLE" "0") | |
114 | ("CONCAT_SHAREDC" "1") | |
115 | ("CONCAT_DUMMY" "2") | |
116 | ("CONCAT_GROUP" "3") | |
117 | ("CONCAT_SHARED" "4") | |
118 | ("CONCAT_PRIVATE" "5") | |
119 | ("CONCAT_UNSPEC" "0xf"))) | |
120 | (("read") (2 bits) ("read")) | |
121 | (("write") (2 bits) ("write")) | |
122 | (("exec") (2 bits) ("exec")) | |
123 | (("initialized") (2 bits) ("init")) | |
124 | (("mode") (2 bits) ("mode")) | |
125 | (("spare") (6 bits) ("spare1")) | |
126 | (("name") (chars variable byte) ("name"))) | |
127 | ||
128 | ||
129 | ("ss" 0x09 | |
130 | (("neg number") (2 bytes) ("neg"))) | |
131 | ||
132 | ||
133 | ("er" 0x0c | |
134 | (("symbol type") (2 bits) ("type") | |
135 | (("ER_ENTRY" "0") | |
136 | ("ER_DATA" "1") | |
137 | ("ER_NOTDEF" "2") | |
138 | ("ER_NOTSPEC" "3"))) | |
139 | (("spare") (6 bits) ("spare")) | |
140 | (("symbol name") (chars variable byte) ("name"))) | |
141 | ||
142 | ||
143 | ("ed" 0x14 | |
144 | (("section appearance number") (2 bytes) ("section")) | |
145 | (("symbol type") (3 bits) ("type") | |
146 | (("ED_TYPE_ENTRY" "0") | |
147 | ("ED_TYPE_DATA" "1") | |
148 | ("ED_TYPE_CONST" "2") | |
149 | ("ED_TYPE_NOTSPEC" "7"))) | |
150 | (("spare") (5 bits) ("spare")) | |
151 | (cond "ptr->type==ED_TYPE_ENTRY || ptr->type==ED_TYPE_DATA" | |
152 | (("symbol address") (addrsize bytes) ("address"))) | |
153 | (cond "ptr->type==ED_TYPE_CONST" | |
154 | (("constant value") (addrsize bytes) ("constant"))) | |
155 | (("symbol name") (chars variable byte) ("name"))) | |
156 | ||
157 | ||
158 | ("sh" 0x1a | |
159 | (("unit appearance number") (2 bytes) ("unit")) | |
160 | (("section appearance number") (2 bytes) ("section"))) | |
161 | ||
162 | ||
163 | ("ob" 0x1c | |
164 | (("starting address flag") (1 bit) ("saf")) | |
165 | (("compression flag") (1 bit) ("cpf")) | |
166 | (("spare") (6 bits) ("spare")) | |
167 | (cond "ptr->saf" | |
168 | ( ("starting address") (addrsize bytes) ("address"))) | |
169 | (cond "ptr->cpf" | |
170 | (("comp reps") (addrsize bytes) ("compreps"))) | |
171 | (("data") (barray counted byte) ("data"))) | |
172 | ||
173 | ||
174 | ("rl" 0x20 | |
1049f94e | 175 | (("boundary of relocatable area") (4 bits) ("boundary")) |
252b5132 RH |
176 | (("address polarity") (1 bit) ("apol")) |
177 | (("segment number") (1 bit) ("segment")) | |
178 | (("sign of relocation") (1 bit) ("sign")) | |
179 | (("check range") (1 bit) ("check")) | |
180 | (("reloc address") (addrsize bytes) ("addr")) | |
181 | ||
182 | (("bit loc") (1 byte) ("bitloc")) | |
183 | (("field length") (1 byte) ("flen")) | |
184 | (("bcount") (1 byte) ("bcount")) | |
185 | (("operator") (1 byte) ("op") | |
186 | (("OP_RELOC_ADDR" "1") | |
187 | ("OP_SEC_REF" "0") | |
188 | ("OP_EXT_REF" "2"))) | |
189 | (cond "ptr->op == OP_EXT_REF" | |
190 | (("symbol number") (2 bytes) ("symn")) ) | |
191 | ||
192 | (cond "ptr->op == OP_SEC_REF" | |
193 | (("section number") (2 bytes) ("secn")) | |
194 | (("const opcode") (1 byte) ("copcode_is_3")) | |
195 | (("addend length") (1 byte) ("alength_is_4")) | |
196 | (("addend") (4 byte) ("addend")) | |
197 | (("plus opcode") (1 byte) ("aopcode_is_0x20"))) | |
198 | ||
199 | (cond "ptr->op == OP_RELOC_ADDR" | |
200 | (("dunno") (2 bytes) ("dunno"))) | |
201 | ||
202 | (("end") (1 byte) ("end"))) | |
203 | ||
204 | ||
205 | ("du" 0x30 | |
206 | (("format") (2 bits) ("format")) | |
207 | (("optimized") (1 bit) ("optimized")) | |
208 | (("stackfrmt") (2 bits) ("stackfrmt")) | |
209 | (("spare") (3 bits) ("spare")) | |
210 | (("unit number") (2 bytes) ("unit")) | |
211 | (("sections") (2 bytes) ("sections")) | |
212 | (repeat "ptr->sections" | |
213 | (("section appearance number") (2 bytes) ("san")) | |
214 | (("address") (addrsize bytes) ("address")) | |
215 | (("section length") (addrsize bytes) ("length"))) | |
216 | (("tool name") (chars variable byte) ("tool")) | |
217 | (("creation date") (chars 12 bytes) ("date"))) | |
218 | ||
219 | ||
220 | ("dsy" 0x34 | |
221 | (("symbol type") (7 bits) ("type") | |
222 | (("STYPE_VAR" "0") | |
223 | ("STYPE_LAB" "1") | |
224 | ("STYPE_PROC" "2") | |
225 | ("STYPE_FUNC" "3") | |
226 | ("STYPE_TYPE" "4") | |
227 | ("STYPE_CONST" "5") | |
228 | ("STYPE_ENTRY" "6") | |
229 | ("STYPE_MEMBER" "7") | |
230 | ("STYPE_ENUM" "8") | |
231 | ("STYPE_TAG" "9") | |
232 | ("STYPE_PACKAGE" "10") | |
233 | ("STYPE_GENERIC" "11") | |
234 | ("STYPE_TASK" "12") | |
235 | ("STYPE_EXCEPTION" "13") | |
236 | ("STYPE_PARAMETER" "14") | |
237 | ("STYPE_EQUATE" "15") | |
238 | ("STYPE_UNSPEC" "0x7f"))) | |
239 | (("assignment info") (1 bit) ("assign")) | |
240 | (("symbol id") (2 bytes) ("snumber")) | |
241 | (("symbol name") (chars variable bytes) ("sname")) | |
242 | (("nesting level") (2 bytes) ("nesting")) | |
243 | (cond "ptr->assign" | |
244 | (("assignment type") (1 byte) ("ainfo") | |
245 | (("AINFO_REG" "1") | |
246 | ("AINFO_STATIC_EXT_DEF" "2") | |
247 | ("AINFO_STATIC_EXT_REF" "3") | |
248 | ("AINFO_STATIC_INT" "4") | |
249 | ("AINFO_STATIC_COM" "5") | |
250 | ("AINFO_AUTO" "6") | |
251 | ("AINFO_CONST" "7") | |
252 | ("AINFO_UNSPEC" "0xff"))) | |
253 | (("data length") (addrsize bytes) ("dlength")) | |
254 | (cond "ptr->ainfo == AINFO_STATIC_EXT_DEF | |
255 | || ptr->ainfo == AINFO_STATIC_INT | |
256 | || ptr->ainfo == AINFO_STATIC_COM" | |
257 | (("section number") (2 bytes) ("section"))) | |
258 | (cond "ptr->ainfo == AINFO_STATIC_EXT_DEF | |
259 | || ptr->ainfo == AINFO_STATIC_INT | |
260 | || ptr->ainfo == AINFO_STATIC_COM | |
261 | || ptr->ainfo == AINFO_AUTO" | |
262 | (("address") (addrsize bytes) ("address"))) | |
263 | (cond "ptr->ainfo == AINFO_REG" | |
264 | (("register name") (chars variable bytes) ("reg"))) | |
265 | (cond "ptr->ainfo == AINFO_STATIC_EXT_DEF | |
266 | || ptr->ainfo == AINFO_STATIC_EXT_REF" | |
267 | (("external name") (chars variable bytes) ("ename"))) | |
268 | (cond "ptr->ainfo == AINFO_CONST" | |
269 | (("constant") (chars variable bytes) ("constant")))) | |
270 | (cond "ptr->type == STYPE_MEMBER" | |
271 | (("assignment unit") (1 bit) ("bitunit")) | |
272 | (("spare") (7 bits) ("spare2")) | |
273 | (("field length") (addrsize bytes) ("field_len")) | |
274 | (("field offset") (addrsize bytes) ("field_off")) | |
275 | (cond "ptr->bitunit" | |
276 | (("bit offset") (addrsize bytes) ("field_bitoff")))) | |
277 | (cond "ptr->type== STYPE_ENUM" | |
278 | (("value length") (1 byte) ("evallen")) | |
279 | (("value") (4 bytes) ("evalue"))) | |
280 | (cond "ptr->type == STYPE_CONST" | |
281 | (("value") (chars variable bytes) ("cvalue"))) | |
282 | (cond "ptr->type == STYPE_EQUATE" | |
283 | (("value length") (1 byte) ("qvallen")) | |
284 | (("value") (4 bytes) ("qvalue")) | |
285 | (("basic type") (1 byte) ("btype")) | |
286 | (("size information") (addrsize bytes) ("sizeinfo")) | |
287 | (("sign") (2 bits) ("sign")) | |
288 | (("floating point type") (6 bits) ("flt_type"))) | |
289 | (("source file number") (2 bytes) ("sfn")) | |
290 | (("source line number") (2 bytes) ("sln")) | |
291 | (("negotiation number") (2 bytes) ("neg")) | |
292 | (cond "ptr->type == STYPE_TAG" | |
293 | (("magic") (1 byte) ("magic")))) | |
294 | ||
295 | ||
296 | ||
297 | ("dul" 0x52 | |
298 | (("max declaration type flag") (1 bit) ("max_variable")) | |
299 | (("max spare") (7 bits) ("maxspare")) | |
300 | (cond "ptr->max_variable == 0" | |
301 | (("maximum") (addrsize bytes) ("max")) | |
302 | (("max mode") (chars variable bytes) ("maxmode"))) | |
303 | ||
304 | (("min declaration type flag") (1 bit) ("min_variable")) | |
305 | (("min spare") (7 bits) ("minspare")) | |
306 | (cond "ptr->min_variable == 0" | |
307 | (("minimum") (addrsize bytes) ("min")) | |
308 | (("min mode") (chars variable bytes) ("minmode")))) | |
309 | ||
310 | ||
311 | ("dty" 0x36 | |
312 | (("end flag") (1 bit) ("end")) | |
313 | (("spare") (7 bits) ("spare")) | |
314 | (cond "!ptr->end" | |
315 | (("negotiation") (2 bytes) ("neg")))) | |
316 | ||
317 | ||
318 | ("dbt" 0x44 | |
319 | (("basic type") (1 byte) ("btype") | |
320 | (("BTYPE_VOID" "0") | |
321 | ("BTYPE_UNDEF" "1") | |
322 | ("BTYPE_CHAR" "2") | |
323 | ("BTYPE_INT" "3") | |
324 | ("BTYPE_FLOAT" "4") | |
325 | ("BTYPE_BIT" "5") | |
326 | ("BTYPE_STRING" "6") | |
327 | ("BTYPE_DECIMAL" "7") | |
328 | ("BTYPE_ENUM" "8") | |
329 | ("BTYPE_STRUCT" "9") | |
330 | ("BTYPE_TYPE" "10") | |
331 | ("BTYPE_TAG" "11") | |
332 | ("BTYPE_UNSPEC" "0xff"))) | |
333 | (("size info") (addrsize bytes) ("bitsize")) | |
334 | (("sign") (2 bits) ("sign") | |
335 | (("SIGN_SIGNED" "0") | |
336 | ("SIGN_UNSIGNED" "1") | |
337 | ("SIGN_UNSPEC" "3"))) | |
338 | (("floating point type") (6 bits) ("fptype") | |
339 | (("FPTYPE_SINGLE" "0") | |
340 | ("FPTYPE_DOUBLE" "1") | |
341 | ("FPTYPE_EXTENDED" "2") | |
342 | ("FPTYPE_NOTSPEC" "0x3f"))) | |
343 | (cond "ptr->btype==BTYPE_TAG || ptr->btype == BTYPE_TYPE" | |
344 | (("symbol id") (2 bytes) ("sid"))) | |
345 | (("negotiation") (2 bytes) ("neg"))) | |
346 | ||
347 | ("dar" 0x4e | |
348 | (("element length" ) (addrsize bytes) ("length")) | |
349 | (("dims") (1 byte) ("dims")) | |
350 | (repeat "ptr->dims" | |
351 | (("variable flag") (1 bit) ("variable") | |
352 | (("VARIABLE_FIXED" "0") | |
353 | ("VARIABLE_VARIABLE" "1"))) | |
354 | ||
355 | (("subscript type") (1 bit) ("subtype") | |
356 | (("SUB_INTEGER" "0") | |
357 | ("SUB_TYPE" "1"))) | |
358 | ||
359 | (("spare") (6 bits) ("spare")) | |
360 | ||
361 | (cond "ptr->subtype[n] == SUB_TYPE" | |
362 | (("sub symbol id") (2 bytes) ("sid"))) | |
363 | ||
364 | (cond "ptr->subtype[n] == SUB_INTEGER" | |
365 | (("max declaration type flag") (1 bit) ("max_variable")) | |
366 | (("max spare") (7 bits) ("maxspare")) | |
367 | ;; FIXME: next field should be conditional on max_variable, | |
368 | (("maximum") (addrsize bytes) ("max")) | |
369 | ||
370 | (("min declaration type flag") (1 bit) ("min_variable")) | |
371 | (("min spare") (7 bits) ("minspare")) | |
372 | ;; FIXME: next field should be conditional on min_variable | |
373 | (("minimum") (addrsize bytes) ("min")))) | |
374 | (("negotiation") (2 bytes) ("neg"))) | |
375 | ||
376 | ||
377 | ("dso" 0x3a | |
378 | (("function name") (2 bytes) ("sid")) | |
379 | (("sp update count") (4 bytes) ("spupdates")) | |
380 | (repeat "ptr->spupdates" | |
381 | (("update address") (addrsize bytes) ("address")) | |
382 | (("offset") (addrsize bytes) ("offset")))) | |
383 | ||
384 | ("dln" 0x38 | |
385 | (("number of lines") (2 bytes) ("nln")) | |
386 | (repeat "ptr->nln" | |
387 | (("source file number") (2 bytes) ("sfn")) | |
388 | (("source line number") (2 bytes) ("sln")) | |
389 | (("section number") (2 bytes) ("section")) | |
390 | (("from address") (addrsize bytes) ("from_address")) | |
391 | (("to address") (addrsize bytes) ("to_address")) | |
392 | (("call count") (2 bytes) ("cc")) | |
393 | ) | |
394 | (("neg") (2 bytes) ("neg"))) | |
395 | ||
396 | ("dpp" 0x46 | |
397 | (("start/end") (1 bit) ("end")) | |
398 | (("spare") (7 bits) ("spare")) | |
399 | (cond "!ptr->end" | |
400 | (("params") (1 byte) ("params")) | |
401 | (("neg number") (2 bytes) ("neg")))) | |
402 | ||
403 | ("den" 0x4a | |
404 | (("start/end") (1 bit) ("end")) | |
405 | (("spare") (7 bits) ("spare")) | |
406 | (cond "!ptr->end" | |
407 | (("neg number") (2 bytes) ("neg")))) | |
408 | ||
409 | ("dfp" 0x48 | |
410 | (("start/end flag") (1 bit) ("end")) | |
411 | (("spare") (7 bits) ("spare")) | |
412 | (cond "!ptr->end" | |
413 | (("number of parameters") (1 byte) ("nparams")) | |
414 | (("neg number") (2 bytes) ("neg")))) | |
415 | ||
416 | ("dds" 0x4c | |
417 | (("start/end") (1 bit) ("end")) | |
418 | (("spare") (7 bits) ("spare")) | |
419 | (cond "!ptr->end" | |
420 | (("neg number") (2 bytes) ("neg")))) | |
421 | ||
422 | ("dpt" 0x50 | |
423 | (("neg number") (2 bytes) ("neg")) | |
424 | (("dunno") (1 byte) ("dunno"))) | |
425 | ||
426 | ("dse" 0x54 | |
427 | (("neg number") (2 bytes) ("neg")) | |
428 | (("dunno") (1 byte) ("dunno"))) | |
429 | ||
430 | ("dot" 0x56 | |
431 | (("unknown") (1 byte) ("unknown"))) | |
432 | ; FIXME: unknown field should be repeated symbol number? | |
433 | ||
434 | ||
435 | ("dss" 0x42 | |
436 | (("type") (1 byte) ("type")) | |
437 | (("external/internal") (1 bit) ("internal")) | |
438 | (("spare") (7 bits) ("spare")) | |
439 | (cond "!ptr->internal" | |
440 | ( ("package name") (chars variable byte) ("package"))) | |
441 | (cond "ptr->internal" | |
442 | (("symbol id") (2 bytes) ("id"))) | |
443 | (("record type") (2 bytes) ("record")) | |
444 | (("rules") (chars variable byte) ("rules")) | |
445 | (("number of symbols") (2 bytes) ("nsymbols")) | |
446 | (("unknown" ) (2 bytes) ("fixme"))) | |
447 | ||
448 | ("pss" 0x40 | |
449 | (("negotiation number") (2 bytes) ("efn")) | |
450 | (("number of source files") (2 bytes) ("ns")) | |
451 | (repeat "ptr->ns" | |
452 | (("directory reference bit") (1 bit) ("drb")) | |
453 | (("spare") (7 bits) ("spare")) | |
454 | (("completed file name") (chars variable byte) ("fname")) | |
455 | (cond "ptr->drb[n]" | |
456 | (("directory apperance number") (2 bytes) ("dan")))) | |
457 | ||
458 | (("number of directories") (2 bytes) ("ndir")) | |
459 | (repeat "ptr->ndir" | |
460 | (("directory name") (chars variable bytes) ("dname")))) | |
461 | ||
462 | ||
463 | ; FIXME: the tr block has no contents. sysinfo, etc. aren't prepared | |
464 | ; to deal with that. | |
465 | ; ("tr" 0x7f) | |
466 | ||
467 | ||
468 | ("dus" 0x40 | |
469 | (("negotiation number") (2 bytes) ("efn")) | |
470 | (("number of source files") (2 bytes) ("ns")) | |
471 | (repeat "ptr->ns" | |
472 | (("directory reference bit") (1 bit) ("drb")) | |
473 | (("spare") (7 bits) ("spare")) | |
474 | (("completed file name") (chars variable byte) ("fname")) | |
475 | (cond "ptr->drb[n]" | |
476 | (("directory apperance number") (2 bytes) ("dan")))) | |
477 | (("number of directories") (2 bytes) ("ndir")) | |
478 | (repeat "ptr->ndir" | |
479 | (("directory name") (chars variable bytes) ("dname")))) | |
480 | ||
481 | ||
482 | ("dps" 0x32 | |
483 | (("start/end flag") (1 bit) ("end")) | |
484 | (("block type") (7 bits) ("type") | |
485 | (("BLOCK_TYPE_COMPUNIT" "0") | |
486 | ("BLOCK_TYPE_PROCEDURE" "2") | |
487 | ("BLOCK_TYPE_FUNCTION" "3") | |
488 | ("BLOCK_TYPE_BLOCK" "4") | |
489 | ("BLOCK_TYPE_BASIC" "9"))) | |
490 | (cond "!ptr->end" | |
491 | (("optimization") (1 byte) ("opt")) | |
492 | (("section number") (2 bytes) ("san")) | |
493 | (("address") (addrsize bytes) ("address")) | |
494 | (("block size") (addrsize bytes) ("block_size")) | |
495 | (("nesting") (1 byte) ("nesting")) | |
496 | (cond "ptr->type == BLOCK_TYPE_PROCEDURE | |
497 | || ptr->type == BLOCK_TYPE_FUNCTION" | |
498 | (("return address") (1 bit) ("retaddr")) | |
499 | (("interrupt function flag") (1 bit) ("intrflag")) | |
500 | (("stack update flag") (1 bit) ("stackflag")) | |
501 | (("intra page JMP") (1 bit) ("intrpagejmp")) | |
502 | (("spare") (4 bits) ("spare"))) | |
503 | (("neg number") (2 bytes) ("neg")))) | |
504 |