  TYPE
    oct$code_section_directory = array [1 .. *] of oct$code_directory_item,

    oct$code_directory_item = record
      first_entry_number: llt$section_ordinal,
      last_entry_number: llt$section_ordinal,
    recend;

  TYPE
    oct$module_code_sections = array [1 .. *] of oct$code_section_item,

    oct$code_section_item = record
      section_ordinal: llt$section_ordinal,
      start_of_section: ^cell,
    recend;

  TYPE
    oct$q_field = -7fff(16) .. 7fff(16);

*copyc llt$section_address

