 TYPE
    ctt$c170_address = 0 .. 777777(8),
    ctt$c170_char = 0 .. 77(8),
    ctt$two_c170_chars = packed array [1 .. 2] of ctt$c170_char,
    ctt$three_c170_chars = packed array [1 .. 3] of ctt$c170_char,
    ctt$five_c170_chars = packed array [1 .. 5] of ctt$c170_char,
    ctt$c170_name = packed array [1 .. 7] of ctt$c170_char,
    ctt$nine_c170_chars = packed array [1 .. 9] of ctt$c170_char,
    ctt$ten_c170_chars = packed array [1 .. 10] of ctt$c170_char,
    ctt$c170_byte = 0 .. 7777(8),
    ctt$c170_parcel = 0 .. 77777(8),
    ctt$6_bits = 0 .. 77(8),
    ctt$12_bits = 0 .. 7777(8),
    ctt$15_bits = 0 .. 77777(8),
    ctt$18_bits = 0 .. 777777(8),
    ctt$24_bits = 0 .. 77777777(8),
    ctt$30_bits = 0 .. 7777777777(8),
    ctt$36_bits = 0 .. 777777777777(8),
    ctt$48_bits = 0 .. 7777777777777777(8);

  TYPE
    ctt$c170_prefix_table = packed record
      name: ctt$12_bits,
      length: ctt$12_bits,
      unused: ctt$36_bits,
      module_name: ctt$c170_name,
      fill2: ctt$c170_address,
      date,
      time: ctt$ten_c170_chars,
      operating_system_id: ctt$ten_c170_chars,
      processor_name: ctt$c170_name,
      processor_version: ctt$three_c170_chars,
      processor_mod_level: ctt$five_c170_chars,
      target_processor,
      valid_processors: ctt$two_c170_chars,
      compass_flag: ctt$c170_char,
      program_type: ctt$c170_char,
      hardware_requirements: ctt$nine_c170_chars,
      comments: packed array [1 .. 70] of ctt$c170_char,
    recend;

  TYPE
    ctt$c170_ascm_table = packed record
      name: ctt$12_bits,
      l1,
      l2: ctt$6_bits,
      fwa,
      lwa: ctt$c170_address,
    recend;
