  CONST
    nac$max_privilege = 15;

  TYPE
    nat$command_data_unit = record
      header_length: 0 .. 0ff(16) {:=7} ,
      version: 0 .. 0ff(16) {:= 1} ,
      identifier: nat$command_identifier,
      syntax: 0 .. 0ff(16) {:= 0 or 1} ,
      privilege: 0 .. nac$max_privilege,
      {command: string ( * ),}
    recend;

  TYPE
    nat$command_response_data_unit = record
      header_length: 0 .. 0ff(16),
      version: 0 .. 0ff(16) {:= 1} ,
      time_stamp: nat$bcd_time,
      system_address: nat$system_address,
      condition_code: nat$command_response_code,
      command_id: nat$command_identifier,
      flags: packed record
        normal_response: boolean {bit 0 = response normal} ,
        truncated: boolean {bit 1 = truncated} ,
      recend,
      system_title: nat$system_title,
    recend;

*copyc nat$bcd_time
*copyc nat$command_interface
*copyc nat$network_address
*copyc nat$system_title
