
{ PROCEDURE int6_pdt (
{   p1: integer 0..0FFFFFFFFFFFF(16) = 1
{   p2: integer 0..0FFFFFFFFFFFF(16) = 1
{   p3: integer 0..0FFFFFFFFFFFF(16) = 1
{   p4: integer 0..0FFFFFFFFFFFF(16) = 1
{   p5: integer 0..0FFFFFFFFFFFF(16) = 1
{   p6: integer 0..0FFFFFFFFFFFF(16) = 1
{   status)

?? PUSH (LISTEXT := ON) ??
?? FMT (FORMAT := OFF) ??

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 7] of clt$pdt_parameter_name,
      parameters: array [1 .. 7] of clt$pdt_parameter,
      type1: record
        header: clt$type_specification_header,
        qualifier: clt$integer_type_qualifier,
        default_value: string (1),
      recend,
      type2: record
        header: clt$type_specification_header,
        qualifier: clt$integer_type_qualifier,
        default_value: string (1),
      recend,
      type3: record
        header: clt$type_specification_header,
        qualifier: clt$integer_type_qualifier,
        default_value: string (1),
      recend,
      type4: record
        header: clt$type_specification_header,
        qualifier: clt$integer_type_qualifier,
        default_value: string (1),
      recend,
      type5: record
        header: clt$type_specification_header,
        qualifier: clt$integer_type_qualifier,
        default_value: string (1),
      recend,
      type6: record
        header: clt$type_specification_header,
        qualifier: clt$integer_type_qualifier,
        default_value: string (1),
      recend,
      type7: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [91, 8, 21, 7, 11, 10, 771],
    clc$command, 7, 7, 0, 0, 0, 0, 7, ''], [
    ['P1                             ',clc$nominal_entry, 1],
    ['P2                             ',clc$nominal_entry, 2],
    ['P3                             ',clc$nominal_entry, 3],
    ['P4                             ',clc$nominal_entry, 4],
    ['P5                             ',clc$nominal_entry, 5],
    ['P6                             ',clc$nominal_entry, 6],
    ['STATUS                         ',clc$nominal_entry, 7]],
    [
{ PARAMETER 1
    [1, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 20,
  clc$optional_default_parameter, 0, 1],
{ PARAMETER 2
    [2, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 20,
  clc$optional_default_parameter, 0, 1],
{ PARAMETER 3
    [3, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 20,
  clc$optional_default_parameter, 0, 1],
{ PARAMETER 4
    [4, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 20,
  clc$optional_default_parameter, 0, 1],
{ PARAMETER 5
    [5, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 20,
  clc$optional_default_parameter, 0, 1],
{ PARAMETER 6
    [6, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 20,
  clc$optional_default_parameter, 0, 1],
{ PARAMETER 7
    [7, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name],
    clc$pass_by_reference, clc$immediate_evaluation, clc$standard_parameter_checking, 3,
  clc$optional_parameter, 0, 0]],
{ PARAMETER 1
    [[1, 0, clc$integer_type], [0, 0FFFFFFFFFFFF(16), 10],
    '1'],
{ PARAMETER 2
    [[1, 0, clc$integer_type], [0, 0FFFFFFFFFFFF(16), 10],
    '1'],
{ PARAMETER 3
    [[1, 0, clc$integer_type], [0, 0FFFFFFFFFFFF(16), 10],
    '1'],
{ PARAMETER 4
    [[1, 0, clc$integer_type], [0, 0FFFFFFFFFFFF(16), 10],
    '1'],
{ PARAMETER 5
    [[1, 0, clc$integer_type], [0, 0FFFFFFFFFFFF(16), 10],
    '1'],
{ PARAMETER 6
    [[1, 0, clc$integer_type], [0, 0FFFFFFFFFFFF(16), 10],
    '1'],
{ PARAMETER 7
    [[1, 0, clc$status_type]]];

?? FMT (FORMAT := ON) ??
?? POP ??

    CONST
      p$p1 = 1,
      p$p2 = 2,
      p$p3 = 3,
      p$p4 = 4,
      p$p5 = 5,
      p$p6 = 6,
      p$status = 7;

    VAR
      pvt: array [1 .. 7] of clt$parameter_value;
