123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505 |
- ("cs" 0x0
- (("size") (1 byte) ("size"))
- (("hd") (1 byte) ("hd"))
- (("hs") (1 byte) ("hs"))
- (("un") (1 byte) ("un"))
- (("us") (1 byte) ("us"))
- (("sc") (1 byte) ("sc"))
- (("ss") (1 byte) ("ss"))
- (("er") (1 byte) ("er"))
- (("ed") (1 byte) ("ed"))
- (("sh") (1 byte) ("sh"))
- (("ob") (1 byte) ("ob"))
- (("rl") (1 byte) ("rl"))
- (("du") (1 byte) ("du"))
- (("dps") (1 byte) ("dps"))
- (("dsy") (1 byte) ("dsy"))
- (("dty") (1 byte) ("dty"))
- (("dln") (1 byte) ("dln"))
- (("dso") (1 byte) ("dso"))
- (("dus") (1 byte) ("dus"))
- (("dss") (1 byte) ("dss"))
- (("dbt") (1 byte) ("dbt"))
- (("dpp") (1 byte) ("dpp"))
- (("dfp") (1 byte) ("dfp"))
- (("den") (1 byte) ("den"))
- (("dds") (1 byte) ("dds"))
- (("dar") (1 byte) ("dar"))
- (("dpt") (1 byte) ("dpt"))
- (("dul") (1 byte) ("dul"))
- (("dse") (1 byte) ("dse"))
- (("dot") (1 byte) ("dot")))
- ("hd" 0x04
- (("module type") (4 bits) ("mt")
- (("MTYPE_ABS_LM" "0")
- ("MTYPE_REL_LM" "1")
- ("MTYPE_OMS_OR_LMS" "2")
- ("MTYPE_UNSPEC" "0xf")))
- (("spare")(4 bits) ("spare1"))
- (("creation date")( chars 12 bytes)( "cd"))
- (("number of units") (2 bytes) ("nu"))
- (("code") (1 byte) ("code"))
- (("version") (chars 4 bytes) ("ver"))
- (("address update") (1 byte) ("au"))
- (("segment identifier") (1 bit) ("si"))
- (("address field length") (4 bits) ("afl"))
- (("spare")(3 bits) ("spare2"))
- (("space size within segment") (1 byte) ("spcsz"))
- (("segment size") (1 byte) ("segsz"))
- (("segment shift") (1 byte) ("segsh"))
- (("entry point") (1 byte) ("ep"))
- (cond "ptr->ep"
- (cond "ptr->mt != MTYPE_ABS_LM"
- (("unit appearance number") (2 bytes) ("uan"))
- (("section appearance number") (2 bytes) ("sa")))
- (cond "segmented_p"
- (("segment address") (segsize bytes) ("sad")))
- (("address") (addrsize bytes) ("address")))
- (("os name") (chars variable bytes) ("os"))
- (("sys name") (chars variable bytes) ("sys"))
- (("module name") (chars variable bytes) ("mn"))
- (("cpu") (chars variable bytes) ("cpu")))
- ("hs" 0x05
- (("neg number") (2 bytes) ("neg")))
- ("un" 0x06
- (("format") (2 bits) ("format")
- (("FORMAT_LM" "0")
- ("FORMAT_OM" "1")
- ("FORMAT_OMS_OR_LMS" "2")))
- (("spare") (6 bits) ("spare1"))
- (("number of sections") (2 bytes) ("nsections"))
- (("number of external refs") (2 bytes) ("nextrefs"))
- (("number of external defs") (2 bytes) ("nextdefs"))
- (("unit name") (chars variable byte) ("name"))
- (("tool name") (chars variable byte) ("tool"))
- (("creation date") (chars 12 bytes) ("tcd"))
- (("linker name") (chars variable byte) ("linker"))
- (("creation date") (chars 12 bytes) ("lcd")))
- ("us" 0x07
- (("negotiation number") (2 bytes) ("neg")))
- ("sc" 0x08
- (("format") (2 bits) ("format"))
- (("spare") (6 bits) ("spare"))
- (("segment address") (segsize bytes) ("segadd"))
- (("address") (addrsize bytes) ("addr"))
- (("length") (addrsize bytes) ("length"))
- (("alignment") (addrsize bytes) ("align"))
- (("contents") (4 bits) ("contents")
- (("CONTENTS_CODE" "0")
- ("CONTENTS_DATA" "1")
- ("CONTENTS_STACK" "2")
- ("CONTENTS_DUMMY" "3")
- ("CONTENTS_SPECIAL" "4")
- ("CONTENTS_NONSPEC" "0xf")))
- (("concat") (4 bits) ("concat")
- (("CONCAT_SIMPLE" "0")
- ("CONCAT_SHAREDC" "1")
- ("CONCAT_DUMMY" "2")
- ("CONCAT_GROUP" "3")
- ("CONCAT_SHARED" "4")
- ("CONCAT_PRIVATE" "5")
- ("CONCAT_UNSPEC" "0xf")))
- (("read") (2 bits) ("read"))
- (("write") (2 bits) ("write"))
- (("exec") (2 bits) ("exec"))
- (("initialized") (2 bits) ("init"))
- (("mode") (2 bits) ("mode"))
- (("spare") (6 bits) ("spare1"))
- (("name") (chars variable byte) ("name")))
- ("ss" 0x09
- (("neg number") (2 bytes) ("neg")))
- ("er" 0x0c
- (("symbol type") (2 bits) ("type")
- (("ER_ENTRY" "0")
- ("ER_DATA" "1")
- ("ER_NOTDEF" "2")
- ("ER_NOTSPEC" "3")))
- (("spare") (6 bits) ("spare"))
- (("symbol name") (chars variable byte) ("name")))
- ("ed" 0x14
- (("section appearance number") (2 bytes) ("section"))
- (("symbol type") (3 bits) ("type")
- (("ED_TYPE_ENTRY" "0")
- ("ED_TYPE_DATA" "1")
- ("ED_TYPE_CONST" "2")
- ("ED_TYPE_NOTSPEC" "7")))
- (("spare") (5 bits) ("spare"))
- (cond "ptr->type==ED_TYPE_ENTRY || ptr->type==ED_TYPE_DATA"
- (("symbol address") (addrsize bytes) ("address")))
- (cond "ptr->type==ED_TYPE_CONST"
- (("constant value") (addrsize bytes) ("constant")))
- (("symbol name") (chars variable byte) ("name")))
- ("sh" 0x1a
- (("unit appearance number") (2 bytes) ("unit"))
- (("section appearance number") (2 bytes) ("section")))
- ("ob" 0x1c
- (("starting address flag") (1 bit) ("saf"))
- (("compression flag") (1 bit) ("cpf"))
- (("spare") (6 bits) ("spare"))
- (cond "ptr->saf"
- ( ("starting address") (addrsize bytes) ("address")))
- (cond "ptr->cpf"
- (("comp reps") (addrsize bytes) ("compreps")))
- (("data") (barray counted byte) ("data")))
- ("rl" 0x20
- (("boundary of relocatable area") (4 bits) ("boundary"))
- (("address polarity") (1 bit) ("apol"))
- (("segment number") (1 bit) ("segment"))
- (("sign of relocation") (1 bit) ("sign"))
- (("check range") (1 bit) ("check"))
- (("reloc address") (addrsize bytes) ("addr"))
- (("bit loc") (1 byte) ("bitloc"))
- (("field length") (1 byte) ("flen"))
- (("bcount") (1 byte) ("bcount"))
- (("operator") (1 byte) ("op")
- (("OP_RELOC_ADDR" "1")
- ("OP_SEC_REF" "0")
- ("OP_EXT_REF" "2")))
- (cond "ptr->op == OP_EXT_REF"
- (("symbol number") (2 bytes) ("symn")) )
- (cond "ptr->op == OP_SEC_REF"
- (("section number") (2 bytes) ("secn"))
- (("const opcode") (1 byte) ("copcode_is_3"))
- (("addend length") (1 byte) ("alength_is_4"))
- (("addend") (4 byte) ("addend"))
- (("plus opcode") (1 byte) ("aopcode_is_0x20")))
- (cond "ptr->op == OP_RELOC_ADDR"
- (("dunno") (2 bytes) ("dunno")))
- (("end") (1 byte) ("end")))
- ("du" 0x30
- (("format") (2 bits) ("format"))
- (("optimized") (1 bit) ("optimized"))
- (("stackfrmt") (2 bits) ("stackfrmt"))
- (("spare") (3 bits) ("spare"))
- (("unit number") (2 bytes) ("unit"))
- (("sections") (2 bytes) ("sections"))
- (repeat "ptr->sections"
- (("section appearance number") (2 bytes) ("san"))
- (("address") (addrsize bytes) ("address"))
- (("section length") (addrsize bytes) ("length")))
- (("tool name") (chars variable byte) ("tool"))
- (("creation date") (chars 12 bytes) ("date")))
- ("dsy" 0x34
- (("symbol type") (7 bits) ("type")
- (("STYPE_VAR" "0")
- ("STYPE_LAB" "1")
- ("STYPE_PROC" "2")
- ("STYPE_FUNC" "3")
- ("STYPE_TYPE" "4")
- ("STYPE_CONST" "5")
- ("STYPE_ENTRY" "6")
- ("STYPE_MEMBER" "7")
- ("STYPE_ENUM" "8")
- ("STYPE_TAG" "9")
- ("STYPE_PACKAGE" "10")
- ("STYPE_GENERIC" "11")
- ("STYPE_TASK" "12")
- ("STYPE_EXCEPTION" "13")
- ("STYPE_PARAMETER" "14")
- ("STYPE_EQUATE" "15")
- ("STYPE_UNSPEC" "0x7f")))
- (("assignment info") (1 bit) ("assign"))
- (("symbol id") (2 bytes) ("snumber"))
- (("symbol name") (chars variable bytes) ("sname"))
- (("nesting level") (2 bytes) ("nesting"))
- (cond "ptr->assign"
- (("assignment type") (1 byte) ("ainfo")
- (("AINFO_REG" "1")
- ("AINFO_STATIC_EXT_DEF" "2")
- ("AINFO_STATIC_EXT_REF" "3")
- ("AINFO_STATIC_INT" "4")
- ("AINFO_STATIC_COM" "5")
- ("AINFO_AUTO" "6")
- ("AINFO_CONST" "7")
- ("AINFO_UNSPEC" "0xff")))
- (("data length") (addrsize bytes) ("dlength"))
- (cond "ptr->ainfo == AINFO_STATIC_EXT_DEF
- || ptr->ainfo == AINFO_STATIC_INT
- || ptr->ainfo == AINFO_STATIC_COM"
- (("section number") (2 bytes) ("section")))
- (cond "ptr->ainfo == AINFO_STATIC_EXT_DEF
- || ptr->ainfo == AINFO_STATIC_INT
- || ptr->ainfo == AINFO_STATIC_COM
- || ptr->ainfo == AINFO_AUTO"
- (("address") (addrsize bytes) ("address")))
- (cond "ptr->ainfo == AINFO_REG"
- (("register name") (chars variable bytes) ("reg")))
- (cond "ptr->ainfo == AINFO_STATIC_EXT_DEF
- || ptr->ainfo == AINFO_STATIC_EXT_REF"
- (("external name") (chars variable bytes) ("ename")))
- (cond "ptr->ainfo == AINFO_CONST"
- (("constant") (chars variable bytes) ("constant"))))
- (cond "ptr->type == STYPE_MEMBER"
- (("assignment unit") (1 bit) ("bitunit"))
- (("spare") (7 bits) ("spare2"))
- (("field length") (addrsize bytes) ("field_len"))
- (("field offset") (addrsize bytes) ("field_off"))
- (cond "ptr->bitunit"
- (("bit offset") (addrsize bytes) ("field_bitoff"))))
- (cond "ptr->type== STYPE_ENUM"
- (("value length") (1 byte) ("evallen"))
- (("value") (4 bytes) ("evalue")))
- (cond "ptr->type == STYPE_CONST"
- (("value") (chars variable bytes) ("cvalue")))
- (cond "ptr->type == STYPE_EQUATE"
- (("value length") (1 byte) ("qvallen"))
- (("value") (4 bytes) ("qvalue"))
- (("basic type") (1 byte) ("btype"))
- (("size information") (addrsize bytes) ("sizeinfo"))
- (("sign") (2 bits) ("sign"))
- (("floating point type") (6 bits) ("flt_type")))
- (("source file number") (2 bytes) ("sfn"))
- (("source line number") (2 bytes) ("sln"))
- (("negotiation number") (2 bytes) ("neg"))
- (cond "ptr->type == STYPE_TAG"
- (("magic") (1 byte) ("magic"))))
- ("dul" 0x52
- (("max declaration type flag") (1 bit) ("max_variable"))
- (("max spare") (7 bits) ("maxspare"))
- (cond "ptr->max_variable == 0"
- (("maximum") (addrsize bytes) ("max"))
- (("max mode") (chars variable bytes) ("maxmode")))
- (("min declaration type flag") (1 bit) ("min_variable"))
- (("min spare") (7 bits) ("minspare"))
- (cond "ptr->min_variable == 0"
- (("minimum") (addrsize bytes) ("min"))
- (("min mode") (chars variable bytes) ("minmode"))))
- ("dty" 0x36
- (("end flag") (1 bit) ("end"))
- (("spare") (7 bits) ("spare"))
- (cond "!ptr->end"
- (("negotiation") (2 bytes) ("neg"))))
- ("dbt" 0x44
- (("basic type") (1 byte) ("btype")
- (("BTYPE_VOID" "0")
- ("BTYPE_UNDEF" "1")
- ("BTYPE_CHAR" "2")
- ("BTYPE_INT" "3")
- ("BTYPE_FLOAT" "4")
- ("BTYPE_BIT" "5")
- ("BTYPE_STRING" "6")
- ("BTYPE_DECIMAL" "7")
- ("BTYPE_ENUM" "8")
- ("BTYPE_STRUCT" "9")
- ("BTYPE_TYPE" "10")
- ("BTYPE_TAG" "11")
- ("BTYPE_UNSPEC" "0xff")))
- (("size info") (addrsize bytes) ("bitsize"))
- (("sign") (2 bits) ("sign")
- (("SIGN_SIGNED" "0")
- ("SIGN_UNSIGNED" "1")
- ("SIGN_UNSPEC" "3")))
- (("floating point type") (6 bits) ("fptype")
- (("FPTYPE_SINGLE" "0")
- ("FPTYPE_DOUBLE" "1")
- ("FPTYPE_EXTENDED" "2")
- ("FPTYPE_NOTSPEC" "0x3f")))
- (cond "ptr->btype==BTYPE_TAG || ptr->btype == BTYPE_TYPE"
- (("symbol id") (2 bytes) ("sid")))
- (("negotiation") (2 bytes) ("neg")))
- ("dar" 0x4e
- (("element length" ) (addrsize bytes) ("length"))
- (("dims") (1 byte) ("dims"))
- (repeat "ptr->dims"
- (("variable flag") (1 bit) ("variable")
- (("VARIABLE_FIXED" "0")
- ("VARIABLE_VARIABLE" "1")))
- (("subscript type") (1 bit) ("subtype")
- (("SUB_INTEGER" "0")
- ("SUB_TYPE" "1")))
- (("spare") (6 bits) ("spare"))
- (cond "ptr->subtype[n] == SUB_TYPE"
- (("sub symbol id") (2 bytes) ("sid")))
- (cond "ptr->subtype[n] == SUB_INTEGER"
- (("max declaration type flag") (1 bit) ("max_variable"))
- (("max spare") (7 bits) ("maxspare"))
- ;; FIXME: next field should be conditional on max_variable,
- (("maximum") (addrsize bytes) ("max"))
- (("min declaration type flag") (1 bit) ("min_variable"))
- (("min spare") (7 bits) ("minspare"))
- ;; FIXME: next field should be conditional on min_variable
- (("minimum") (addrsize bytes) ("min"))))
- (("negotiation") (2 bytes) ("neg")))
- ("dso" 0x3a
- (("function name") (2 bytes) ("sid"))
- (("sp update count") (4 bytes) ("spupdates"))
- (repeat "ptr->spupdates"
- (("update address") (addrsize bytes) ("address"))
- (("offset") (addrsize bytes) ("offset"))))
- ("dln" 0x38
- (("number of lines") (2 bytes) ("nln"))
- (repeat "ptr->nln"
- (("source file number") (2 bytes) ("sfn"))
- (("source line number") (2 bytes) ("sln"))
- (("section number") (2 bytes) ("section"))
- (("from address") (addrsize bytes) ("from_address"))
- (("to address") (addrsize bytes) ("to_address"))
- (("call count") (2 bytes) ("cc"))
- )
- (("neg") (2 bytes) ("neg")))
- ("dpp" 0x46
- (("start/end") (1 bit) ("end"))
- (("spare") (7 bits) ("spare"))
- (cond "!ptr->end"
- (("params") (1 byte) ("params"))
- (("neg number") (2 bytes) ("neg"))))
- ("den" 0x4a
- (("start/end") (1 bit) ("end"))
- (("spare") (7 bits) ("spare"))
- (cond "!ptr->end"
- (("neg number") (2 bytes) ("neg"))))
- ("dfp" 0x48
- (("start/end flag") (1 bit) ("end"))
- (("spare") (7 bits) ("spare"))
- (cond "!ptr->end"
- (("number of parameters") (1 byte) ("nparams"))
- (("neg number") (2 bytes) ("neg"))))
- ("dds" 0x4c
- (("start/end") (1 bit) ("end"))
- (("spare") (7 bits) ("spare"))
- (cond "!ptr->end"
- (("neg number") (2 bytes) ("neg"))))
- ("dpt" 0x50
- (("neg number") (2 bytes) ("neg"))
- (("dunno") (1 byte) ("dunno")))
- ("dse" 0x54
- (("neg number") (2 bytes) ("neg"))
- (("dunno") (1 byte) ("dunno")))
- ("dot" 0x56
- (("unknown") (1 byte) ("unknown")))
- ; FIXME: unknown field should be repeated symbol number?
- ("dss" 0x42
- (("type") (1 byte) ("type"))
- (("external/internal") (1 bit) ("internal"))
- (("spare") (7 bits) ("spare"))
- (cond "!ptr->internal"
- ( ("package name") (chars variable byte) ("package")))
- (cond "ptr->internal"
- (("symbol id") (2 bytes) ("id")))
- (("record type") (2 bytes) ("record"))
- (("rules") (chars variable byte) ("rules"))
- (("number of symbols") (2 bytes) ("nsymbols"))
- (("unknown" ) (2 bytes) ("fixme")))
- ("pss" 0x40
- (("negotiation number") (2 bytes) ("efn"))
- (("number of source files") (2 bytes) ("ns"))
- (repeat "ptr->ns"
- (("directory reference bit") (1 bit) ("drb"))
- (("spare") (7 bits) ("spare"))
- (("completed file name") (chars variable byte) ("fname"))
- (cond "ptr->drb[n]"
- (("directory apperance number") (2 bytes) ("dan"))))
- (("number of directories") (2 bytes) ("ndir"))
- (repeat "ptr->ndir"
- (("directory name") (chars variable bytes) ("dname"))))
- ; FIXME: the tr block has no contents. sysinfo, etc. aren't prepared
- ; to deal with that.
- ; ("tr" 0x7f)
- ("dus" 0x40
- (("negotiation number") (2 bytes) ("efn"))
- (("number of source files") (2 bytes) ("ns"))
- (repeat "ptr->ns"
- (("directory reference bit") (1 bit) ("drb"))
- (("spare") (7 bits) ("spare"))
- (("completed file name") (chars variable byte) ("fname"))
- (cond "ptr->drb[n]"
- (("directory apperance number") (2 bytes) ("dan"))))
- (("number of directories") (2 bytes) ("ndir"))
- (repeat "ptr->ndir"
- (("directory name") (chars variable bytes) ("dname"))))
- ("dps" 0x32
- (("start/end flag") (1 bit) ("end"))
- (("block type") (7 bits) ("type")
- (("BLOCK_TYPE_COMPUNIT" "0")
- ("BLOCK_TYPE_PROCEDURE" "2")
- ("BLOCK_TYPE_FUNCTION" "3")
- ("BLOCK_TYPE_BLOCK" "4")
- ("BLOCK_TYPE_BASIC" "9")))
- (cond "!ptr->end"
- (("optimization") (1 byte) ("opt"))
- (("section number") (2 bytes) ("san"))
- (("address") (addrsize bytes) ("address"))
- (("block size") (addrsize bytes) ("block_size"))
- (("nesting") (1 byte) ("nesting"))
- (cond "ptr->type == BLOCK_TYPE_PROCEDURE
- || ptr->type == BLOCK_TYPE_FUNCTION"
- (("return address") (1 bit) ("retaddr"))
- (("interrupt function flag") (1 bit) ("intrflag"))
- (("stack update flag") (1 bit) ("stackflag"))
- (("intra page JMP") (1 bit) ("intrpagejmp"))
- (("spare") (4 bits) ("spare")))
- (("neg number") (2 bytes) ("neg"))))
|