
{ Constants that pertain to both the object and load module.

  CONST
    llc$max_adr_items = 0ffff(16),
    llc$max_deferred_common_blocks = 0ffff(16),
    llc$max_deferred_entry_points = 0ffff(16),
    llc$max_ext_items = 0ffff(16),
    llc$max_libraries = 0ffff(16),
    llc$max_rel_items = 0ffff(16);

  TYPE
    llt$object_text_descriptor = record
      case kind: llt$object_record_kind of
      = llc$identification, llc$section_definition, llc$bit_string_insertion,
            llc$entry_definition, llc$binding_template, llc$transfer_symbol,
            llc$obsolete_segment_definition, llc$unallocated_common_block,
            llc$application_identifier, llc$segment_definition =
        unused: llt$section_length, {must be zero}
      = llc$libraries =
        number_of_libraries: 1 .. llc$max_libraries,
      = llc$text, llc$replication =
        number_of_bytes: 1 .. llc$max_section_length,
      = llc$relocation =
        number_of_rel_items: 1 .. llc$max_rel_items,
      = llc$address_formulation =
        number_of_adr_items: 1 .. llc$max_adr_items,
      = llc$external_linkage =
        number_of_ext_items: 1 .. llc$max_ext_items,
      = llc$obsolete_formal_parameters, llc$actual_parameters,
            llc$cybil_symbol_table_fragment, llc$symbol_table,
            llc$line_table_fragment, llc$symbol_table_fragment,
            llc$formal_parameters, llc$form_definition,
            llc$supplemental_debug_tables =
        sequence_length: llt$section_length, {REP sequence_length OF CELL}
      = llc$ppu_absolute =
        number_of_words: llt$ppu_address,
      = llc$allotted_section_definition =
        allotted_section: ost$relative_pointer, { REL ^seq(*) }
      = llc$allotted_segment_definition, llc$obsolete_allotted_seg_def =
        allotted_segment_length: ost$segment_length, { Shadow size }
        allotted_segment: ost$segment_length, { REL ^seq(*) }
      = llc$deferred_entry_points =
        number_of_entry_points: 1 .. llc$max_deferred_entry_points,
      = llc$deferred_common_blocks =
        number_of_common_blocks: 1 .. llc$max_deferred_common_blocks,
      = llc$68000_absolute =
        number_of_68000_bytes: 1 .. llc$maximum_68000_address,
      = llc$line_table, llc$obsolete_line_table =
        number_of_line_items: 1 .. llc$max_line_adr_table_size,
      casend,
    recend;

*copyc llt$68000_address
*copyc llt$line_address_table_size
*copyc llt$object_record_kind
*copyc llt$section_address
*copyc osd$virtual_address
*copyc pmd$ppu_characteristics
