
{ pdt define_remote_nad     (nad, n : name = $required
{                            address, a : integer 1..0ff(16) = $required
{                            host_connection_0, hc0 : string 3 = $optional
{                            host_connection_1, hc1 : string 3 = $optional
{                            host_connection_2, hc2 : string 3 = $optional
{                            host_connection_3, hc3 : string 3 = $optional
{                            trunk_control_unit_0, tcu0 : name = $optional
{                            trunk_control_unit_1, tcu1 : name = $optional
{                            trunk_control_unit_2, tcu2 : name = $optional
{                            trunk_control_unit_3, tcu3 : name = $optional
{                            nad_type, nt : key C170,C180,IBM,VAX,C200,NTN,INET = C180
{                            tcu_access_code_0, tac0 : integer 0..0ffff(16) = 0
{                            tcu_access_code_1, tac1 : integer 0..0ffff(16) = 0
{                            tcu_access_code_2, tac2 : integer 0..0ffff(16) = 0
{                            tcu_access_code_3, tac3 : integer 0..0ffff(16) = 0)

?? PUSH (LISTEXT := ON) ??

  VAR
    define_remote_nad: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [^define_remote_nad_names,
      ^define_remote_nad_params];

  VAR
    define_remote_nad_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 30] of
      clt$parameter_name_descriptor := [['NAD', 1], ['N', 1], ['ADDRESS', 2], ['A', 2], ['HOST_CONNECTION_0',
      3], ['HC0', 3], ['HOST_CONNECTION_1', 4], ['HC1', 4], ['HOST_CONNECTION_2', 5], ['HC2', 5], [
      'HOST_CONNECTION_3', 6], ['HC3', 6], ['TRUNK_CONTROL_UNIT_0', 7], ['TCU0', 7], ['TRUNK_CONTROL_UNIT_1',
      8], ['TCU1', 8], ['TRUNK_CONTROL_UNIT_2', 9], ['TCU2', 9], ['TRUNK_CONTROL_UNIT_3', 10], ['TCU3', 10], [
      'NAD_TYPE', 11], ['NT', 11], ['TCU_ACCESS_CODE_0', 12], ['TAC0', 12], ['TCU_ACCESS_CODE_1', 13], ['TAC1'
      , 13], ['TCU_ACCESS_CODE_2', 14], ['TAC2', 14], ['TCU_ACCESS_CODE_3', 15], ['TAC3', 15]];

  VAR
    define_remote_nad_params: [STATIC, READ, cls$pdt_parameters] array [1 .. 15] of clt$parameter_descriptor
      := [

{ NAD N }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, osc$max_name_size]],

{ ADDRESS A }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$integer_value, 1, 0ff(16)]],

{ HOST_CONNECTION_0 HC0 }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$string_value, 3, 3]],

{ HOST_CONNECTION_1 HC1 }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$string_value, 3, 3]],

{ HOST_CONNECTION_2 HC2 }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$string_value, 3, 3]],

{ HOST_CONNECTION_3 HC3 }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$string_value, 3, 3]],

{ TRUNK_CONTROL_UNIT_0 TCU0 }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, osc$max_name_size]],

{ TRUNK_CONTROL_UNIT_1 TCU1 }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, osc$max_name_size]],

{ TRUNK_CONTROL_UNIT_2 TCU2 }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, osc$max_name_size]],

{ TRUNK_CONTROL_UNIT_3 TCU3 }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, osc$max_name_size]],

{ NAD_TYPE NT }
    [[clc$optional_with_default, ^define_remote_nad_dv11], 1, 1, 1, 1, clc$value_range_not_allowed, [^
      define_remote_nad_kv11, clc$keyword_value]],

{ TCU_ACCESS_CODE_0 TAC0 }
    [[clc$optional_with_default, ^define_remote_nad_dv12], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$integer_value, 0, 0ffff(16)]],

{ TCU_ACCESS_CODE_1 TAC1 }
    [[clc$optional_with_default, ^define_remote_nad_dv13], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$integer_value, 0, 0ffff(16)]],

{ TCU_ACCESS_CODE_2 TAC2 }
    [[clc$optional_with_default, ^define_remote_nad_dv14], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$integer_value, 0, 0ffff(16)]],

{ TCU_ACCESS_CODE_3 TAC3 }
    [[clc$optional_with_default, ^define_remote_nad_dv15], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$integer_value, 0, 0ffff(16)]]];

  VAR
    define_remote_nad_kv11: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 7] of ost$name := ['C170',
      'C180','IBM','VAX','C200','NTN','INET'];

  VAR
    define_remote_nad_dv11: [STATIC, READ, cls$pdt_names_and_defaults] string (4) := 'C180';

  VAR
    define_remote_nad_dv12: [STATIC, READ, cls$pdt_names_and_defaults] string (1) := '0';

  VAR
    define_remote_nad_dv13: [STATIC, READ, cls$pdt_names_and_defaults] string (1) := '0';

  VAR
    define_remote_nad_dv14: [STATIC, READ, cls$pdt_names_and_defaults] string (1) := '0';

  VAR
    define_remote_nad_dv15: [STATIC, READ, cls$pdt_names_and_defaults] string (1) := '0';

?? POP ??
