
  TYPE
    b60_get_file_fill = 0..0f(16);

  TYPE
    b60_get_file_comment = packed record
      b60_comment_fill : b60_get_file_fill,
      dc_char1,
      dc_char2,
      dc_char3,
      dc_char4,
      dc_char5,
      dc_char6,
      dc_char7,
      dc_char8,
      dc_char9,
      dc_char10 : 0..77(8),
    recend;

{Any changes made to the type DST$B60_GET_C170_77_TABLE must
{also be made to the type DST$C170_77_TABLE.  Any changes made
{to the CASE statement must also be made to the type C170_TABLE_WORD
{in the module DSM$PROCESS_NOS_FILES.}

  TYPE
    dst$b60_get_c170_77_table = packed record
      first_word_fill : b60_get_file_fill,
      name,
      length : 0..7700(8),
      unused : 0..777777777777(8),
      second_word_fill : b60_get_file_fill,
      module_name : 0..77777777777777(8),
      fill : 0..777777(8),
      third_word_fill : b60_get_file_fill,
      date : packed array [1..9] of 0..77(8),
      datefill : 0..77(8),
      forth_word_fill : b60_get_file_fill,
      time : packed array [1..9] of 0..77(8),
      timefill : 0..77(8),
      fifth_word_fill : b60_get_file_fill,
      op_sys_id_1 : 0..7777777777(8),
      op_sys_id_2 : 0..7777777777(8),
      sixth_word_fill : b60_get_file_fill,
      processor_name : 0..77777777777777(8),
      processor_vers : 0..777777(8),
      seventh_word_fill : b60_get_file_fill,
      mod_level : 0..7777777777(8),
      target_processor,
      valid_processor : 0..0fff(16),
      compass_flag : 0..77(8),
      eigth_word_fill : b60_get_file_fill,
      program_flag : 0..77(8),
      hardware_requirements_1 : 0..7777777777(8),
      hardware_requirements_2 : 0..77777777(8),
      comments : packed array [1..7] of b60_get_file_comment,
      sixteenth_word_fill : b60_get_file_fill,
      CASE table_type : dst$table_id of
      = dsc$5000_table =
        l1,l2 : 0..77(8),
        fwa, lwa : 0..777777(8),
      = dsc$6100_table =
        first_word_address,
        load_address,
        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;
