
  CONST
    dsc$text_table = 0,
    dsc$3400_table = 3400(8),
    dsc$5000_table = 5000(8),
    dsc$5100_table = 5100(8),
    dsc$5200_table = 5200(8),
    dsc$5300_table = 5300(8),
    dsc$5400_table = 5400(8),
    dsc$proc_table = 5720(8),
    dsc$6000_table = 6000(8),
    dsc$6100_table = 6100(8),
    dsc$7000_table = 7000(8),
    dsc$7001_table = 7001(8),
    dsc$7002_table = 7002(8),
    dsc$7600_table = 7600(8),
    dsc$word_table = 7777(8);

  TYPE
    dst$table_id = 0 .. 0fff(16);

  TYPE
    dst$c170_77_table = PACKED RECORD
      name: 0 .. 7700(8),
      length: 0 .. 7700(8),
      unused: 0 .. 777777777777(8),
      module_name: 0 .. 77777777777777(8),
      fill: 0 .. 777777(8),
      date_fill: 0 .. 77(8),
      date: PACKED ARRAY [1 .. 9] OF 0 .. 77(8),
      time_fill: 0 .. 77(8),
      time: PACKED ARRAY [1 .. 9] OF 0 .. 77(8),
      operating_system_id_1: 0 .. 7777777777(8),
      operating_system_id_2: 0 .. 7777777777(8),
      processor_name: 0 .. 77777777777777(8),
      processor_version: 0 .. 777777(8),
      mod_level: 0 .. 7777777777(8),
      target_processor: 0 .. 0fff(16),
      valid_processor: 0 .. 0fff(16),
      compass_flag: 0 .. 77(8),
      program_flag: 0 .. 77(8),
      hardware_requirements_1: 0 .. 7777777777(8),
      hardware_requirements_2: 0 .. 77777777(8),
      comments: PACKED ARRAY [1 .. 69] OF 0 .. 77(8),
      comment_fill: 0 .. 17(8),
      CASE table_type: dst$table_id OF
      = dsc$5000_table =
        l1: 0 .. 77(8),
        l2: 0 .. 77(8),
        fwa: 0 .. 777777(8),
        lwa: 0 .. 777777(8),
      = dsc$6100_table =
        first_word_address: 0 .. 0ffff(16),
        load_address: 0 .. 0ffff(16),
        code_length: 0 .. 0ffff(16),
      = dsc$proc_table =
        proc_header: 0 .. 777777(8),
        unused1: 0 .. 7777777777(8),
      = dsc$text_table =
        nos_byte_1a: 0 .. 77(8),
        nos_byte_1b: 0 .. 77(8),
        nos_byte_2: 0 .. 7777(8),
        nos_byte_3: 0 .. 7777(8),
        nos_byte_4: 0 .. 7777(8),
      = dsc$word_table =
        table_type_word: 0 .. 7777777777777777(8),
      CASEND,
    RECEND,

    dst$c170_unpacked_77_table = PACKED RECORD
      first_word_fill: dst$c170_unpacked_word_fill,
      name: 0 .. 7700(8),
      length: 0 .. 7700(8),
      unused: 0 .. 777777777777(8),
      second_word_fill: dst$c170_unpacked_word_fill,
      module_name: 0 .. 77777777777777(8),
      fill: 0 .. 777777(8),
      third_word_fill: dst$c170_unpacked_word_fill,
      datefill: 0 .. 77(8),
      date: PACKED ARRAY [1 .. 9] OF 0 .. 77(8),
      fourth_word_fill: dst$c170_unpacked_word_fill,
      timefill: 0 .. 77(8),
      time: PACKED ARRAY [1 .. 9] OF 0 .. 77(8),
      fifth_word_fill: dst$c170_unpacked_word_fill,
      operating_system_id_1: 0 .. 7777777777(8),
      operating_system_id_2: 0 .. 7777777777(8),
      sixth_word_fill: dst$c170_unpacked_word_fill,
      processor_name: 0 .. 77777777777777(8),
      processor_version: 0 .. 777777(8),
      seventh_word_fill: dst$c170_unpacked_word_fill,
      mod_level: 0 .. 7777777777(8),
      target_processor: 0 .. 0fff(16),
      valid_processor: 0 .. 0fff(16),
      compass_flag: 0 .. 77(8),
      eigth_word_fill: dst$c170_unpacked_word_fill,
      program_flag: 0 .. 77(8),
      hardware_requirements_1: 0 .. 7777777777(8),
      hardware_requirements_2: 0 .. 77777777(8),
      comments: PACKED ARRAY [1 .. 7] OF dst$c170_unpacked_comment,
      sixteenth_word_fill: dst$c170_unpacked_word_fill,
      table_type: dst$table_id,
      first_word_address: 0 .. 0ffff(16),
      load_address: 0 .. 0ffff(16),
      code_length: 0 .. 0ffff(16),
    RECEND,

    dst$c170_unpacked_word_fill = 0 .. 0f(16),

    dst$c170_unpacked_comment = PACKED RECORD
      comment_word_fill: dst$c170_unpacked_word_fill,
      character_1: 0 .. 77(8),
      character_2: 0 .. 77(8),
      character_3: 0 .. 77(8),
      character_4: 0 .. 77(8),
      character_5: 0 .. 77(8),
      character_6: 0 .. 77(8),
      character_7: 0 .. 77(8),
      character_8: 0 .. 77(8),
      character_9: 0 .. 77(8),
      character_10: 0 .. 77(8),
    RECEND;
