diff --git a/MTP3asp_CNL113337/MTP3asp_CNL113337.tpd b/MTP3asp_CNL113337/MTP3asp_CNL113337.tpd
new file mode 100644
index 0000000..bc2b89e
--- /dev/null
+++ b/MTP3asp_CNL113337/MTP3asp_CNL113337.tpd
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+ Copyright Test Competence Center (TCC) ETH 2012
+
+  The copyright to the computer  program(s) herein  is the property of TCC.
+  The program(s) may be used and/or copied only with the written permission
+  of TCC or in accordance with  the terms and conditions  stipulated in the
+  agreement/contract under which the program(s) has been supplied.
+
+
+   File:               MTP3asp_CNL113337.tpd
+   Description:        tpd project file
+   Rev:                R11A01
+   Prodnr:             CNL 113 337
+   Updated:            2012-11-23
+   Contact:            http://ttcn.ericsson.se
+
+ -->
+<TITAN_Project_File_Information version="1.0">
+  <ProjectName>MTP3asp_CNL113337</ProjectName>
+  <ReferencedProjects>
+    <ReferencedProject name="Abstract_Socket_CNL113384" projectLocationURI="../Common_Components/Abstract_Socket_CNL113384/Abstract_Socket_CNL113384.tpd"/>
+  </ReferencedProjects>
+  <Folders>
+    <FolderResource projectRelativePath="doc" relativeURI="doc"/>
+    <FolderResource projectRelativePath="src" relativeURI="src"/>
+  </Folders>
+  <Files>
+    <FileResource projectRelativePath="doc/MTP3asp_CNL113337_FS.pdf" relativeURI="doc/MTP3asp_CNL113337_FS.pdf"/>
+    <FileResource projectRelativePath="doc/MTP3asp_CNL113337_PRI.pdf" relativeURI="doc/MTP3asp_CNL113337_PRI.pdf"/>
+    <FileResource projectRelativePath="doc/MTP3asp_CNL113337_UG.pdf" relativeURI="doc/MTP3asp_CNL113337_UG.pdf"/>
+    <FileResource projectRelativePath="src/MTP3asp_EncDec.cc" relativeURI="src/MTP3asp_EncDec.cc"/>
+    <FileResource projectRelativePath="src/MTP3asp_PT.cc" relativeURI="src/MTP3asp_PT.cc"/>
+    <FileResource projectRelativePath="src/MTP3asp_PT.hh" relativeURI="src/MTP3asp_PT.hh"/>
+    <FileResource projectRelativePath="src/MTP3asp_PortType.ttcn" relativeURI="src/MTP3asp_PortType.ttcn"/>
+    <FileResource projectRelativePath="src/MTP3asp_Types.ttcn" relativeURI="src/MTP3asp_Types.ttcn"/>
+  </Files>
+  <ActiveConfiguration>TARGET_TEST</ActiveConfiguration>
+  <Configurations>
+    <Configuration name="Default">
+      <ProjectProperties>
+        <MakefileSettings>
+          <generateInternalMakefile>true</generateInternalMakefile>
+          <GNUMake>true</GNUMake>
+          <incrementalDependencyRefresh>true</incrementalDependencyRefresh>
+          <targetExecutable>bin/MTP3asp_CNL113337</targetExecutable>
+          <preprocessorDefines>
+            <listItem>TARGET_TEST</listItem>
+          </preprocessorDefines>
+          <buildLevel>Level 3 - Creating object files with dependency update</buildLevel>
+        </MakefileSettings>
+        <LocalBuildSettings>
+          <workingDirectory>bin</workingDirectory>
+        </LocalBuildSettings>
+      </ProjectProperties>
+    </Configuration>
+    <Configuration name="TARGET_TEST">
+      <ProjectProperties>
+        <MakefileSettings>
+          <generateInternalMakefile>true</generateInternalMakefile>
+          <GNUMake>true</GNUMake>
+          <incrementalDependencyRefresh>true</incrementalDependencyRefresh>
+          <targetExecutable>bin/MTP3asp_CNL113337</targetExecutable>
+          <preprocessorDefines>
+            <listItem>TARGET_TEST</listItem>
+          </preprocessorDefines>
+          <buildLevel>Level 3 - Creating object files with dependency update</buildLevel>
+        </MakefileSettings>
+        <LocalBuildSettings>
+          <workingDirectory>bin</workingDirectory>
+        </LocalBuildSettings>
+      </ProjectProperties>
+    </Configuration>
+    <Configuration name="NO TARGET_TEST">
+      <ProjectProperties>
+        <MakefileSettings>
+          <generateInternalMakefile>true</generateInternalMakefile>
+          <GNUMake>true</GNUMake>
+          <incrementalDependencyRefresh>true</incrementalDependencyRefresh>
+          <targetExecutable>bin/MTP3asp_CNL113337</targetExecutable>
+          <buildLevel>Level 3 - Creating object files with dependency update</buildLevel>
+        </MakefileSettings>
+        <LocalBuildSettings>
+          <workingDirectory>bin</workingDirectory>
+        </LocalBuildSettings>
+      </ProjectProperties>
+    </Configuration>
+  </Configurations>
+</TITAN_Project_File_Information>
diff --git a/MTP3asp_CNL113337/demo/MTP3asp_PT.cc b/MTP3asp_CNL113337/demo/MTP3asp_PT.cc
new file mode 100644
index 0000000..37bab8f
--- /dev/null
+++ b/MTP3asp_CNL113337/demo/MTP3asp_PT.cc
@@ -0,0 +1,2952 @@
+///////////////////////////////////////////////////////////////////////////////
+//                                                                           //
+// Copyright Test Competence Center (TCC) ETH 2012                           //
+//                                                                           //
+// The copyright to the computer  program(s) herein  is the property of TCC. //
+// The program(s) may be used and/or copied only with the written permission //
+// of TCC or in accordance with  the terms and conditions  stipulated in the //
+// agreement/contract under which the program(s) have been supplied          //
+//                                                                           //
+///////////////////////////////////////////////////////////////////////////////
+//
+//  File:         MTP3asp_PT.cc
+//  Description:  Implementation of port MTP3asp_PT
+//                This test port is written to connect TTCN-3 to SEA according
+//                to specification ITU-T SS7 MTP3, ANSI, TCC, IETF, MPT
+//  Reference:    ITU-T Recommendation Q.704, RFC3332
+//  Rev:          R11A01
+//  Prodnr:       CNL 113 337
+//  Updated:      2012-05-24
+//  Contact:      http://ttcn.ericsson.se
+
+// IMPORTANT MODIFICATION:
+// mtp3_ttc uses ALWAYS 16 bits long SPCs, regardless of mtp3_ni sio
+
+#include "MTP3asp_PT.hh"
+
+#include "MTP3asp_Types.hh"
+#include "MTP3asp_PortType.hh"
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <poll.h>
+#include <errno.h>
+#include <stdarg.h>
+#include <string.h>
+
+
+//  Constans for M3UA, see rfc 3332 and 2/1056-FCPW 101 86/P-1
+// Constants for decoding M3UA common headers
+#define M3UA_VER_OFFS      0
+#define M3UA_CLS_OFFS      2
+#define M3UA_TYP_OFFS      3
+#define M3UA_LGT_OFFS      4
+#define M3UA_MSG_OFFS      8
+#define M3UA_MSG_LENGTH_LENGTH      4
+
+// Constants for M3UA protocol
+//Msg classes
+#define M3UA_MSG_CLS_MGMT 0x00
+#define M3UA_MSG_CLS_TRNSFM 0x01
+#define M3UA_MSG_CLS_SSNM 0x02
+#define M3UA_MSG_CLS_ASPSM 0x03
+#define M3UA_MSG_CLS_ASPTM 0x04
+#define M3UA_MSG_CLS_RKM 0x09
+//Msg types
+#define M3UA_MSG_TYP_MGMT_ERR 0x00
+#define M3UA_MSG_TYP_MGMT_NTFY 0x01
+
+#define M3UA_MSG_TYP_TRSNFM_DATA 0x01
+
+#define M3UA_MSG_TYP_SSNM_DUNA 0x01
+#define M3UA_MSG_TYP_SSNM_DAVA 0x02
+#define M3UA_MSG_TYP_SSNM_DAUD 0x03
+#define M3UA_MSG_TYP_SSNM_SCON 0x04
+#define M3UA_MSG_TYP_SSNM_DUPU 0x05
+#define M3UA_MSG_TYP_SSNM_DRST 0x06
+
+#define M3UA_MSG_TYP_ASPSM_ASPUP 0x01
+#define M3UA_MSG_TYP_ASPSM_ASPDN 0x02
+#define M3UA_MSG_TYP_ASPSM_BEAT 0x03
+#define M3UA_MSG_TYP_ASPSM_ASPUPAck 0x04
+#define M3UA_MSG_TYP_ASPSM_ASPDNAck 0x05
+#define M3UA_MSG_TYP_ASPSM_BEATAck 0x06
+
+#define M3UA_MSG_TYP_ASPTM_ASPAC 0x01
+#define M3UA_MSG_TYP_ASPTM_ASPIA 0x02
+#define M3UA_MSG_TYP_ASPTM_ASPACAck 0x03
+#define M3UA_MSG_TYP_ASPTM_ASPIAAck 0x04
+
+#define M3UA_MSG_TYP_RKM_REGREQ 0x01
+#define M3UA_MSG_TYP_RKM_REGRSP 0x02
+#define M3UA_MSG_TYP_RKM_DEREGREQ 0x03
+#define M3UA_MSG_TYP_RKM_DEREGRESP 0x04
+
+//parameters
+//common for all adaptation layer
+#define PAR_PREFIX_COMMON 0x00
+#define PAR_INFO_STR    0x04
+#define PAR_ROUTING_CTX 0x06
+#define PAR_DIAG_INFO   0x07
+#define PAR_HEART_BEAT  0x09
+#define PAR_TRAFFMODE_T 0x0b
+#define PAR_ERROR_CODE  0x0c
+#define PAR_STATUS      0x0d
+#define PAR_ASP_ID      0x11
+#define PAR_AFFECTED_PC 0x12
+#define PAR_CORREL_ID   0x13
+
+//M3UA specific
+#define PAR_PREFIX_M3UA 0x02
+#define PAR_NETW_APP    0x00
+#define PAR_USR_O_CAUSE 0x04
+#define PAR_CNGST_IND   0x05
+#define PAR_CNCRD_IND   0x06
+#define PAR_ROUTING_KEY 0x07
+#define PAR_REG_RSLT    0x08
+#define PAR_DEREG_RSLT  0x09
+#define PAR_LOC_RK_ID   0x0a
+#define PAR_DPC         0x0b
+#define PAR_SI          0x0c
+#define PAR_OPC_LIST    0x0e
+#define PAR_CIRC_RNG    0x0f
+#define PAR_PROT_DATA   0x10
+#define PAR_REG_STAT    0x12
+#define PAR_DEREG_STAT  0x13
+
+// error codes:
+#define PAR_ERRC_IVER   0x01
+#define PAR_ERRC_UNSMC  0x03
+#define PAR_ERRC_UNSMT  0x04
+#define PAR_ERRC_UNTMT  0x05
+#define PAR_ERRC_UNEM   0x06
+#define PAR_ERRC_PERR   0x07
+#define PAR_ERRC_ISI    0x09
+#define PAR_ERRC_RMB    0x0D
+#define PAR_ERRC_ASPIDR 0x0E
+#define PAR_ERRC_IASPID 0x0F
+#define PAR_ERRC_IPARV  0x11
+#define PAR_ERRC_PARFE  0x12
+#define PAR_ERRC_UPAR   0x13
+#define PAR_ERRC_DSU    0x14
+#define PAR_ERRC_INA    0x15
+#define PAR_ERRC_MP     0x16
+#define PAR_ERRC_IRC    0x19
+#define PAR_ERRC_NCFAS  0x1A
+
+
+// --------------------------
+// Basic Test Port functions
+// --------------------------
+using namespace MTP3asp__Types;
+namespace MTP3asp__PortType {
+
+//external functions
+//##########################################################
+
+//f__MTP3__SEA__connect (for MTP3asp_PT)
+BOOLEAN f__MTP3__SEA__connect(MTP3asp__PT& portRef,
+  const CHARSTRING& Hostname,const INTEGER& Port,const CHARSTRING& EntityName,const BOOLEAN& Http)
+{
+  return f__MTP3__SEA__connect__extern(portRef,Hostname,Port,EntityName,Http);
+}
+//------------
+
+//f__MTP3__SEA__disconnect (for MTP3asp_PT)
+BOOLEAN f__MTP3__SEA__disconnect(MTP3asp__PT& portRef)
+{
+  return f__MTP3__SEA__disconnect__extern(portRef);
+}
+//------------
+
+//f__MTP3__SEA__connect__extern
+BOOLEAN f__MTP3__SEA__connect__extern(MTP3asp__PT_PROVIDER& portRef,
+  const CHARSTRING& Hostname,const INTEGER& Port,const CHARSTRING& EntityName,const BOOLEAN& Http)
+{
+#ifndef TARGET_TEST
+  if (portRef.dynamicConnection && (!(portRef.connectionUp)))
+  {
+    delete [] portRef.hostname;
+    int len = strlen(Hostname);
+    portRef.hostname = new char[len + 1];
+    memcpy(portRef.hostname, Hostname, len + 1);
+
+    portRef.httpport = Port;
+
+    delete [] portRef.entityname;
+    len = strlen(EntityName);
+    portRef.entityname = new char[len + 1];
+    memcpy(portRef.entityname, EntityName, len + 1);
+
+    if(Http)
+      portRef.MTP3_open_channel(TRUE);
+    else
+      portRef.MTP3_open_channel(FALSE);
+
+    if(portRef.wait_for_open())
+    { 
+      portRef.user_connect();
+      portRef.connectionUp = TRUE;
+      return TRUE;
+    }
+  }
+  else
+#endif
+    portRef.log("Dynamic connection feature is not active or already connected.");
+  return FALSE;
+}
+//------------
+
+//f__MTP3__SEA__disconnect__extern
+BOOLEAN f__MTP3__SEA__disconnect__extern(MTP3asp__PT_PROVIDER& portRef)
+{
+#ifndef TARGET_TEST
+  if (portRef.connectionUp)
+  {
+    portRef.MTP3_close_connection();
+    portRef.connectionUp = FALSE;
+    return TRUE;
+  }
+#endif
+  return FALSE;
+}
+//------------
+
+// Test Port constructor
+MTP3asp__PT_PROVIDER::MTP3asp__PT_PROVIDER(const char *par_port_name)
+        : PORT(par_port_name)
+{
+  MTP_fd=-1;
+  httpport=-1;
+  hostname=NULL;
+  destinationname = NULL;
+  dynamicConnection = FALSE;
+
+  const char *str="b303d76a-266c-11d4-b8f5-08002090d3da";
+  int len = strlen(str);
+  iid_string= new char[len + 1];
+  memcpy(iid_string, str, len + 1);
+
+  entityname=NULL;
+  Filter=Loop=-1;
+  Sut_Pc=Tester_Pc=-1;
+  Ni_is_set = FALSE;
+  MTPServiceType = MTP3itu;
+  M3UA_version = 1;
+  M3UAState = AssocDown; // unnecessary...
+  mtp3_ni=0;
+#ifndef TARGET_TEST
+  user_map_p = &MTP3asp__PT_PROVIDER::MTP3_user_map;
+  user_unmap_p = &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+  interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+#endif
+  forward_pause = FALSE;
+  forward_resume = FALSE;
+  forward_status = FALSE;
+}
+//------------
+
+// Test Port destructor
+MTP3asp__PT_PROVIDER::~MTP3asp__PT_PROVIDER()
+{
+  delete [] hostname;
+  delete [] entityname;
+  delete [] iid_string;
+}
+//------------
+
+// set_parameter
+void MTP3asp__PT_PROVIDER::set_parameter(const char *parameter_name,
+        const char *parameter_value)
+{
+  log("set_parameter: %s = %s",parameter_name,parameter_value);
+  if (!strcmp(parameter_name,"Hostname"))
+  {
+    delete [] hostname;
+    int len = strlen(parameter_value);
+    hostname = new char[len + 1];
+    memcpy(hostname, parameter_value, len + 1);
+  }
+  else if (!strcmp(parameter_name, "HttpPort"))
+  {
+    httpport = atoi(parameter_value);
+  }
+  else if (!strcmp(parameter_name,"EntityName"))
+  {
+    delete [] entityname;
+    int len = strlen(parameter_value);
+    entityname= new char[len + 1];
+    memcpy(entityname, parameter_value, len + 1);
+  }
+  else if (!strcmp(parameter_name,"DestinationName"))
+  {
+    delete [] destinationname;
+    int len = strlen(parameter_value);
+    destinationname= new char[len + 1];
+    memcpy(destinationname, parameter_value, len + 1);
+  }
+  else if (!strcmp(parameter_name,"Filter"))
+  {
+    if (!strcmp(parameter_value,"ON")) Filter = MTP3_ON;
+    else Filter = MTP3_OFF;
+  }
+  else if (!strcmp(parameter_name,"Loop"))
+  {
+    if (!strcmp(parameter_value,"ON")) Loop = MTP3_ON;
+    else Loop = MTP3_OFF;
+  }
+  else if (!strcmp(parameter_name,"NI"))
+  {
+    Ni_is_set = TRUE;
+    mtp3_ni = atoi(parameter_value);
+    debuglog("Network indicator is set to %i",mtp3_ni);
+  }
+  else if (!strcmp(parameter_name,"SUT_Pc"))
+  {
+    Sut_Pc = atoi(parameter_value);
+  }
+  else if (!strcmp(parameter_name,"TESTER_Pc"))
+  {
+    Tester_Pc = atoi(parameter_value);
+  }
+  else if (!strcmp(parameter_name,"M3UA_version"))
+  {
+    M3UA_version  = atoi(parameter_value);
+    debuglog("%d",M3UA_version);
+  }
+#ifndef TARGET_TEST
+  else if (!strcmp(parameter_name,"DynamicConnection"))
+  {
+    if (!strcasecmp(parameter_value,"ON"))
+    {
+      dynamicConnection = TRUE;
+    }
+  }
+#endif
+  else if (!strcmp(parameter_name,"MTP3ServiceType"))
+  {
+    if (!strcmp(parameter_value,"TargetM3UA"))
+    {
+#ifndef TARGET_TEST
+      error("TargetM3UA not supported, since TARGET_TEST not in Makefile");
+#else
+      log("MTP3ServiceType is set to TargetM3UA");
+      user_map_p =  &MTP3asp__PT_PROVIDER::Target_user_map;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::Target_user_unmap;
+      MTPServiceType = TargetM3UA;
+#endif
+    }
+    else if (!strcmp(parameter_value,"TargetSTC"))
+    {
+#ifndef TARGET_TEST
+      error("TargetSTC not supported, since TARGET_TEST not in Makefile");
+#else
+      log("MTP3ServiceType is set to TargetSTC");
+      user_map_p =  &MTP3asp__PT_PROVIDER::TargetSTC_user_map;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::Target_user_unmap; //Same as by Target M3UA
+      MTPServiceType = TargetSTC;
+#endif
+    }
+#ifndef TARGET_TEST
+    else if (!strcmp(parameter_value,"M3UA"))
+    { //M3UA
+      log("MTP3ServiceType is set to M3UA");
+      interpreter = &MTP3asp__PT_PROVIDER::M3UA_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::M3UA_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::M3UA_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::M3UA_user_unmap;
+      MTPServiceType = M3UA;
+    }
+    else if (!strcmp(parameter_value,"MTP3itu"))
+    {
+      log("MTP3ServiceType is set to MTP3itu");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3itu;
+    }
+    else if ( !strcmp(parameter_value,"MTP3ansi"))
+    {
+      log("MTP3ServiceType is set to MTP3ansi");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3ansi;
+    }
+    else if ( !strcmp(parameter_value,"MTP3ttc"))
+    {
+      log("MTP3ServiceType is set to MTP3ttc");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3ttc;
+    }
+    else if ( !strcmp(parameter_value,"MTP3mpt"))
+    {
+      log("MTP3ServiceType is set to MTP3mpt");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3mpt;
+    }
+    else if ( !strcmp(parameter_value,"MTP3bttc"))
+    {
+      log("MTP3ServiceType is set to MTP3bttc");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3bttc;
+    }
+    else if ( !strcmp(parameter_value,"MTP3iup"))
+    {
+      log("MTP3ServiceType is set to MTP3iup");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3iup;
+    }
+    else if ( !strcmp(parameter_value,"STC"))
+    {
+      log("MTP3ServiceType is set to STC");
+      interpreter = &MTP3asp__PT_PROVIDER::STC_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::STC_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::STC_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::STC_user_unmap;
+      MTPServiceType = STC;
+    }
+#endif
+    else
+    {
+      log("Unsupported MTP3ServiceType: %s, falling back to MTP3itu",
+          parameter_value);
+    }
+  }
+  else if(strcasecmp(parameter_name, "forward_pause") == 0)
+  {
+    if (strcasecmp(parameter_value,"forward") == 0)
+      forward_pause = TRUE;
+    else if(strcasecmp(parameter_value,"ignore") == 0)
+      forward_pause = FALSE;
+    else
+      error("set_parameter(): Invalid parameter value: %s for parameter %s. Only forward and ignore can be used!" ,
+            parameter_value, parameter_name);
+  }
+  else if(strcasecmp(parameter_name, "forward_resume") == 0)
+  {
+    if (strcasecmp(parameter_value,"forward") == 0)
+      forward_resume = TRUE;
+    else if(strcasecmp(parameter_value,"ignore") == 0)
+      forward_resume = FALSE;
+    else
+      error("set_parameter(): Invalid parameter value: %s for parameter %s. Only forward and ignore can be used!" ,
+            parameter_value, parameter_name);
+  }
+  else if(strcasecmp(parameter_name, "forward_status") == 0)
+  {
+    if (strcasecmp(parameter_value,"forward") == 0)
+      forward_status = TRUE;
+    else if(strcasecmp(parameter_value,"ignore") == 0)
+      forward_status = FALSE;
+    else
+      error("set_parameter(): Invalid parameter value: %s for parameter %s. Only forward and ignore can be used!" ,
+            parameter_value, parameter_name);
+  }
+  else
+#ifdef TARGET_TEST
+  if(!parameter_set(parameter_name ,parameter_value)) //TCP parameters
+#endif
+    log("Unsupported parameter: %s", parameter_name);
+}
+//------------
+
+// User map
+void MTP3asp__PT_PROVIDER::user_map(const char *system_port)
+{
+  if (user_map_p == NULL)
+    error("Parameter MTP3ServiceType should be set to TargetM3UA in TARGET_TEST mode!");
+
+  (this->*user_map_p)(system_port);
+}
+//------------
+
+// User unmap
+void MTP3asp__PT_PROVIDER::user_unmap(const char *system_port)
+{
+  (this->*user_unmap_p)(system_port);
+}
+//------------
+
+#ifndef TARGET_TEST
+// User connect
+void MTP3asp__PT_PROVIDER::user_connect()
+{
+  (this->*user_connect_p)();
+}
+//------------
+#endif
+
+//User start
+void MTP3asp__PT_PROVIDER::user_start()
+{ debuglog("user start ordered");
+}
+//------------
+
+//User stop
+void MTP3asp__PT_PROVIDER::user_stop()
+{ debuglog("User stop ordered");
+}
+//------------
+
+//Event Handler
+void MTP3asp__PT_PROVIDER::Handle_Fd_Event(int fd,
+  boolean is_readable, boolean is_writable, boolean is_error)
+{
+  if (MTPServiceType == TargetM3UA )
+  {
+#ifdef TARGET_TEST
+    //In case of target Abstract Socket handles the received message
+    Handle_Socket_Event(fd, is_readable, is_writable, is_error);
+#endif
+  }
+#ifndef TARGET_TEST
+  else
+  {
+    int result;
+
+    result = MPH_ProcessConnection(myConnection);
+
+    if (result <= 0)
+    {
+      MPH_CloseConnection(myConnection);
+      if (result == 0) log("Connection closed by peer.");
+      else log("Error in incoming message.");
+    }
+  }
+#endif
+}
+
+void MTP3asp__PT_PROVIDER::Handle_Timeout(double time_since_last_call)
+{
+#ifdef TARGET_TEST
+  Handle_Timeout_Event(time_since_last_call);
+#endif
+}
+//------------
+
+//Outgoing send
+void MTP3asp__PT_PROVIDER::outgoing_send(const ASP__MTP3__TRANSFERreq& send_par)
+{
+  MTP3__Field__sio sio_field = send_par.sio();
+#ifndef TARGET_TEST
+  int si=bit2int(sio_field.si());
+#endif
+
+  OCTETSTRING sio_oct = bit2oct(sio_field.ni()+sio_field.prio()+sio_field.si());
+  OCTETSTRING bttc_oct = int2oct(stored_bttc_octet, 1); // additional octet for MTP3bttc
+
+  //Message sending by testing on Target
+  if (MTPServiceType == TargetM3UA)
+  {
+#ifdef TARGET_TEST
+    OCTETSTRING tcpData = int2oct(1,1); //Message type
+    tcpData = tcpData + int2oct(send_par.data().lengthof()+15,4); //Length
+    tcpData = tcpData + sio_oct;
+    tcpData = tcpData + int2oct(send_par.opc(),4);
+    tcpData = tcpData + int2oct(send_par.dpc(),4);
+    tcpData = tcpData + int2oct(send_par.sls(),1);
+    tcpData = tcpData + send_par.data();
+    send_outgoing((const unsigned char*)tcpData,tcpData.lengthof());
+
+    TTCN_Logger::begin_event(TTCN_DEBUG);
+    TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+    TTCN_Logger::log_event_str("Transfer Req message sent: ");
+    tcpData.log();
+    TTCN_Logger::end_event();
+#endif
+    return;
+  }
+  //Message sending by testing on Target
+  if (MTPServiceType == TargetSTC)
+  {
+#ifdef TARGET_TEST
+    OCTETSTRING tcpData = int2oct(1,1); //Message type
+    tcpData = tcpData + int2oct(send_par.data().lengthof()+15,4); //Length
+    tcpData = tcpData + int2oct(0,1);
+    tcpData = tcpData + int2oct(0,4);
+    tcpData = tcpData + int2oct(0,4);
+    tcpData = tcpData + int2oct(0,1);
+    tcpData = tcpData + send_par.data();
+    send_outgoing((const unsigned char*)tcpData,tcpData.lengthof());
+
+    TTCN_Logger::begin_event(TTCN_DEBUG);
+    TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+    TTCN_Logger::log_event_str("Transfer Req (STC) message sent: ");
+    tcpData.log();
+    TTCN_Logger::end_event();
+#endif
+    return;
+  }
+#ifndef TARGET_TEST
+  if (dynamicConnection &&(!connectionUp))
+  {
+    warn("Connection was not activated via function f_M3UA_SEA_connect.");
+    return;
+  }
+
+  unsigned int offset;
+  int MSU_length = send_par.data().lengthof();
+  int M3UA_par_length;
+  int length;
+  int labellen; // sio+routinglabel length
+
+  switch ( MTPServiceType)
+  {
+    case STC:
+      length = MSU_length;
+      memcpy(buffer, send_par.data(), send_par.data().lengthof());
+      break;
+    case MTP3iup:
+      if(si==4)
+      {
+        offset = 0;
+        labellen=6; //ITU-T:sio(1byte) + standard telephony label(5byte)
+        length = MSU_length+labellen;
+        buffer[0] = *((const unsigned char*)sio_oct);
+        SetPointCodesIUP(send_par.sls(), send_par.opc(), send_par.dpc(),
+           buffer + offset + 1);
+        memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      }
+      else
+      {
+        offset = 0;
+        labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+        length = MSU_length + labellen; //SIF+SIO ;
+        //append MTP3 MSU
+        buffer[offset] = *((const unsigned char*)sio_oct);
+        SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+           buffer + offset + 1);
+        memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      }
+      break;
+    case MTP3itu:
+      offset = 0;
+      labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+      length = MSU_length + labellen; //SIF+SIO ;
+      //append MTP3 MSU
+      buffer[offset] = *((const unsigned char*)sio_oct);
+      SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+         buffer + offset + 1);
+      memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      break;
+    case MTP3ansi:
+      offset = 0;
+      labellen=8; //ANSI: sio(1byte) +routing label(7byte) see T1.111.4
+      length = MSU_length + labellen; //SIF+SIO ;
+      //append MTP3 MSU
+      buffer[offset] = *((const unsigned char*)sio_oct);
+      SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+         buffer + offset + 1);
+      memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      break;
+    case MTP3ttc:
+      offset = 0;
+      //if (mtp3_ni==0){ labellen=5;}
+      //else {
+      labellen=6;
+      //} //TTC: sio(1byte) +routing label(6byte) see  ...
+      length = MSU_length + labellen; //SIF+SIO ;
+      //append MTP3 MSU
+      buffer[offset] = *((const unsigned char*)sio_oct);
+      SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+         buffer + offset + 1);
+      memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      break;
+    case MTP3bttc:
+      offset = 0;
+      buffer[offset] = *((const unsigned char*)bttc_oct);
+      offset += 1;
+      labellen=7; //routing label(7byte)
+      length = 1 + MSU_length + labellen; //SIF+SIO ;
+      //append MTP3 MSU
+      buffer[offset] = *((const unsigned char*)sio_oct);
+      SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+         buffer + offset + 1);
+      memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      break;
+    case MTP3mpt:
+      offset = 0;
+      if (mtp3_ni==2)
+      { labellen=8;} //MPT national: sio(1byte) +routing label(7byte)
+      else
+      { labellen=5;} //MPT international: sio(1byte) +routing label(4byte)
+      length = MSU_length + labellen; //SIF+SIO ;
+      //append MTP3 MSU
+      buffer[offset] = *((const unsigned char*)sio_oct);
+      SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+         buffer + offset + 1);
+      memcpy(buffer + offset + labellen,
+             send_par.data(), send_par.data().lengthof());
+      break;
+    case M3UA :
+      TTCN_Logger::begin_event(TTCN_DEBUG);
+      TTCN_Logger::log_event("MTP3 test port debug: Message to be encoded is: {");
+      send_par.data().log();
+      TTCN_Logger::log_event(" ");
+      if( M3UAState != AssocActive )
+      {
+        TTCN_Logger::log_event(" M3UAState is not ready to send data. Its state code: %d",AssocActive);
+        TTCN_Logger::log_event("}");
+        TTCN_Logger::end_event();
+        return;
+      }
+      //calculating lengths
+      M3UA_par_length = MSU_length + 16; // ProtocolData parameter
+                 // header length=16 <== see f
+      TTCN_Logger::log_event(", Adjusted M3UA_par_length to %d to support 16 octets M3UA param header",M3UA_par_length);
+      length = 8 + M3UA_par_length; //msg length = header+par
+      TTCN_Logger::log_event(", M3UA MSU_length is %d ==> there should be %d padding octets", MSU_length, 4-(MSU_length%4));
+      if (MSU_length%4) { //should be padded to be multiple of 4 octets
+        length += 4 - (MSU_length%4); //padding shall be counted in msg
+              //length, but not in par_length
+      }
+      TTCN_Logger::log_event(", Set msg length (which includes 8 octets M3UA hdr) to %d ",length);
+
+      //filling the first part of the buffer
+      //common msg hdr ======================================
+      buffer[0] = M3UA_version;
+      buffer[1] = 0x00; //spare
+      buffer[2] = M3UA_MSG_CLS_TRNSFM; // msg class
+      buffer[3] = M3UA_MSG_TYP_TRSNFM_DATA; // msg type
+      encode_32b_int(buffer+4, length); //msg length, 4 bytes
+      //ProtocolData parameter header=========================
+      //tag
+      buffer[M3UA_MSG_OFFS] = PAR_PREFIX_M3UA; //par. tag 1st octet
+      buffer[M3UA_MSG_OFFS+1] = PAR_PROT_DATA; // par tag 2nd octet
+      //length, NOTE: should not contain the padding bytes!
+      encode_16b_int(buffer+M3UA_MSG_OFFS+2,M3UA_par_length);
+      //OPC,DPC
+      encode_32b_int(buffer+M3UA_MSG_OFFS+4,send_par.opc());
+      encode_32b_int(buffer+M3UA_MSG_OFFS+8,send_par.dpc());
+      //SI, NI, MP, SLS
+      buffer[M3UA_MSG_OFFS+12] = bit2int(sio_field.si()); // SI LSb aligned
+      buffer[M3UA_MSG_OFFS+13] = bit2int(sio_field.ni()); // NI LSb aligned
+      buffer[M3UA_MSG_OFFS+14] = bit2int(sio_field.prio()); //MP LSb
+                //aligned
+      buffer[M3UA_MSG_OFFS+15] = 0xFF & send_par.sls(); //SLS
+      // finally the MTP3 MSU itself....
+      offset =  M3UA_MSG_OFFS + 16;
+      TTCN_Logger::log_event(", buffer offset is now set to %d", offset);
+      TTCN_Logger::log_event("}");
+      TTCN_Logger::end_event();
+      //append MTP3 MSU
+      memcpy(buffer + offset, send_par.data(), send_par.data().lengthof());
+
+      //padding
+      for (int ii = 0; ii< (MSU_length%4); ++ii) buffer[offset+MSU_length+ii]= 0x00;
+      break;
+    default:
+      error("Invalid MTP3ServiceType setting!");
+  }
+  if (TTCN_Logger::log_this_event(TTCN_DEBUG))
+  {
+    TTCN_Logger::begin_event(TTCN_DEBUG);
+    TTCN_Logger::log_event("The encoded buffer is: {");
+    OCTETSTRING(length, buffer).log();
+    TTCN_Logger::log_event("}");
+    TTCN_Logger::end_event();
+  }
+  send_msg(buffer, length);
+#endif
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::log(const char *msg, ...)
+{
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  va_list ap;
+  va_start(ap, msg);
+  TTCN_Logger::log_event_va_list(msg, ap);
+  va_end(ap);
+  TTCN_Logger::end_event();
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::warn(const char *msg, ...)
+{
+  TTCN_Logger::begin_event(TTCN_WARNING);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  va_list ap;
+  va_start(ap, msg);
+  TTCN_Logger::log_event_va_list(msg, ap);
+  va_end(ap);
+  TTCN_Logger::end_event();
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::debuglog(const char *msg, ...)
+{
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  va_list ap;
+  va_start(ap, msg);
+  TTCN_Logger::log_event_va_list(msg, ap);
+  va_end(ap);
+  TTCN_Logger::end_event();
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::error(const char *msg, ...)
+{
+  TTCN_Logger::begin_event(TTCN_ERROR);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  va_list ap;
+  va_start(ap, msg);
+  TTCN_Logger::log_event_va_list(msg, ap);
+  va_end(ap);
+  TTCN_Logger::end_event();
+  TTCN_error("Fatal error in MTP3 Test Port %s.", get_name());
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::close_log_event()
+{
+  TTCN_Logger::log_event("}");
+  TTCN_Logger::end_event();
+}
+//------------
+
+
+#ifndef TARGET_TEST
+// --------------------------------------------
+// Functions and definitions for test with SEA
+// --------------------------------------------
+
+// Functions of MPH toolkit
+// ---------------------------
+void connectCallback(CONNECTION* con, int channel, void *clientData)
+{
+  ((MTP3asp__PT_PROVIDER *)clientData)->log("Opening channel succeeded "
+        "(channel number is %u)", channel);
+  ((MTP3asp__PT_PROVIDER *)clientData)->set_channel(channel);
+  if(((MTP3asp__PT_PROVIDER *)clientData)->dynamicConnection)
+    ((MTP3asp__PT_PROVIDER *)clientData)->conn_state = 1;
+}
+
+void messageCallback(CONNECTION* con, int channel, int length,
+                     unsigned char *msg, void *clientData)
+{
+  ((MTP3asp__PT_PROVIDER *)clientData)->log("Incoming message from channel: %d",channel);
+  ((MTP3asp__PT_PROVIDER *)clientData)->doInterpret(msg,length,channel,con);
+}
+
+void closeCallback(CONNECTION* con, int channel, void *clientData)
+{
+  ((MTP3asp__PT_PROVIDER *)clientData)->log("Closed channel: %d", channel);
+}
+
+void errorCallback(CONNECTION* con, char *name, char *errorMessage,
+                   void *clientData)
+{
+  if(((MTP3asp__PT_PROVIDER *)clientData)->dynamicConnection)
+  {
+    ((MTP3asp__PT_PROVIDER *)clientData)->log("Opening channel %s failed: %s", name, errorMessage);
+    ((MTP3asp__PT_PROVIDER *)clientData)->conn_state = 2;
+  }
+  else
+    ((MTP3asp__PT_PROVIDER *)clientData)->error("Opening channel %s failed: %s",
+        name, errorMessage);
+}
+//------------
+
+//MTP3_open_channel
+void MTP3asp__PT_PROVIDER::MTP3_open_channel(boolean http)
+{
+  int result;
+  int Mphport;
+  char *perrorString;
+  if( Loop == MTP3_ON )
+  {
+    MTP_fd=-1;
+    myConnection = NULL;
+    log("MTP3_open_channel finished for LOOP");
+    return;
+  }
+
+  if(http)
+  {
+    Mphport = MPH_GetMphPort(hostname,httpport,&perrorString);
+  }
+  else
+  {
+    Mphport = httpport;
+  }
+    
+  if (Mphport == -1)
+    error("GetMphPort failed: %s", *perrorString);
+
+  result = MPH_StringToIid(iid_string, &iid);
+  if (result == -1)
+    error("Converting %s to MPH_IID failed.", iid_string);
+
+  myConnection = MPH_OpenConnection(hostname, Mphport);
+  if (myConnection == NULL)
+    error("Opening connection to %s:%d failed.", hostname, Mphport);
+
+  MPH_OpenChannel(myConnection,
+                  entityname,
+                  &iid,
+                  connectCallback,
+                  messageCallback,
+                  closeCallback,
+                  errorCallback,
+                  this);
+
+  MTP_fd = MPH_GetConnectionFd(myConnection);
+  if (MTP_fd != -1)
+    Handler_Add_Fd_Read(MTP_fd);
+  else
+    error("Incorrect file descriptor: %d.", MTP_fd);
+}
+//------------
+
+// MTP3_close_connection
+void MTP3asp__PT_PROVIDER::MTP3_close_connection()
+{
+  MPH_CloseConnection(myConnection);
+  Handler_Remove_Fd_Read(MTP_fd);
+  close( MTP_fd );
+  //Uninstall_Handler(); // Unnecessary if only socket MTP_fd is in use
+}
+//------------
+
+// wait_for_open
+boolean MTP3asp__PT_PROVIDER::wait_for_open()
+{
+  conn_state = 0;
+  while(conn_state==0)
+  {
+    pollfd pollFd = { MTP_fd, POLLIN, 0 };
+    int nEvents = poll(&pollFd, 1, 3000 /* ms */);
+    if (nEvents == 0) {
+      log("MPH channel opening time out");
+      return FALSE;
+    }
+    if (nEvents < 0 || (pollFd.revents & (POLLIN | POLLHUP)) == 0) {
+      log("MPH channel opening error (%d)", (nEvents < 0) ? errno : 0);
+      return FALSE;
+    }
+    Handle_Fd_Event(MTP_fd, TRUE, FALSE, FALSE);
+  }
+  if(conn_state == 1) //connectCallback received
+  {
+    conn_state = 0;
+    return TRUE;
+  }
+  else //errorCallback received
+  {
+    conn_state = 0;
+    return FALSE;
+  }
+}
+//------------
+
+//send msg
+void MTP3asp__PT_PROVIDER::send_msg(unsigned char *outbuff, int length)
+{
+  OCTETSTRING buff(length,outbuff);
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3/M3UA Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("outgoing buffer= ");
+  buff.log();
+  TTCN_Logger::log_event("}");
+  TTCN_Logger::end_event();
+  if (Loop == MTP3_ON)
+  {
+    log("Message looped back");
+    doInterpret(outbuff, length, channel, myConnection);
+  } else
+  {
+    MPH_SendMessage(myConnection,channel,length,outbuff);
+    log("Message sent on channel %d", channel);
+  }
+}
+//------------
+
+//Check TestPortVariables
+void  MTP3asp__PT_PROVIDER::Check_TestPort_Variables()
+{
+  if(!dynamicConnection)
+  {
+    if (httpport==-1) error("Parameter HttpPort is not set.");
+    if (hostname==NULL) error("Parameter Hostname is not set.");
+    if (entityname==NULL) error("Parameter EntityName is not set.");
+  }
+  if (Filter==-1) error("Parameter Filter is not set.");
+  if (Loop==-1) error("Parameter Loop is not set.");
+  if (Sut_Pc==-1) error("Parameter SUT_Pc is not set.");
+  if (Tester_Pc==-1) error("Parameter TESTER_Pc is not set.");
+  if (!Ni_is_set) error("Parameter NI is not set.");
+}
+//------------
+
+// -------------------------------------------------
+// STC Functions and definitions for test with SEA
+// -------------------------------------------------
+void  MTP3asp__PT_PROVIDER::Check_TestPort_Variables_STC()
+{
+  if(!dynamicConnection)
+  {
+    if (httpport==-1) error("Parameter HttpPort is not set.");
+    if (hostname==NULL) error("Parameter Hostname is not set.");
+    if (entityname==NULL) error("Parameter EntityName is not set.");
+  }
+}
+//------------
+
+//STC user map
+void MTP3asp__PT_PROVIDER::STC_user_map(const char *system_port)
+{
+  debuglog("Function STC_user_map started");
+  Check_TestPort_Variables_STC();
+  if(dynamicConnection)
+  {
+    connectionUp = FALSE;
+  }
+  else
+  {
+    MTP3_open_channel(TRUE);
+    STC_user_connect();
+  }
+}
+//------------
+
+//STC user connect
+void MTP3asp__PT_PROVIDER::STC_user_connect()
+{
+}
+
+//STC user unmap
+void MTP3asp__PT_PROVIDER::STC_user_unmap(const char *system_port)
+{
+  MTP3_close_connection();
+  dynamicConnection = FALSE;
+}
+//------------
+
+//STC interpreter
+void MTP3asp__PT_PROVIDER::STC_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con)
+{
+  if ((length==0) || (inbuffer==NULL))
+  {
+    log("0 byte long message received -> packet dropped.");
+    return;
+  }
+
+  if (length==1)
+  {
+    log("1 byte long internal SEA message received -> packet dropped.");
+    return;
+  }
+
+  if ( !strcmp((const char*)inbuffer,"start") )
+  {
+    log("start message received from SEA");
+    return;
+  }
+  else if (!strcmp((const char*)inbuffer,"stop"))
+  {
+    log("stop message received from SEA");
+    return;
+  }
+
+  // writing out the contents of the buffer
+  OCTETSTRING buff(length,inbuffer);
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("incoming buffer: ");
+  buff.log();
+  TTCN_Logger::end_event();
+
+  ASP__MTP3__TRANSFERind recv_msg;
+  MTP3__Field__sio recv_sio;
+  recv_sio.ni()= int2bit(0,2);
+  recv_sio.prio()= int2bit(0,2);
+  recv_sio.si()= int2bit(0,4);
+  recv_msg.sio() = recv_sio;
+  recv_msg.sls() = 0;
+  recv_msg.opc() = 0;
+  recv_msg.dpc() = 0;
+  recv_msg.data() = OCTETSTRING(length, &inbuffer[0]);
+  incoming_message( recv_msg );
+}
+
+// -------------------------------------------------
+// MTP3 Functions and definitions for test with SEA
+// -------------------------------------------------
+
+// SLTM messages for MTP3
+// -----------------------
+unsigned char ttcn_in_sltm[] = {
+  'T','T','C','N','-','3',' ','E','x','e','c','u','t','o','r'};
+
+const int sizeof_ttcn_in_sltm=15;
+
+// ITU:
+unsigned char sltm_msg_itu[] =
+{
+  0x1,  //SIO /'test & maint' see Q.704 /14.2.1 => 0x81 suggested !!!
+  0x0,  0x0, 0x0,  0x0, //4 bytes for label (dpc, opc,sls)
+  0x11, //Heading code ITU, see Q.707/5.4
+  0xF0, //spare+Length of the following string:
+  'T', 'T', 'C', 'N', '-', '3', ' ', 'E', 'x', 'e', 'c', 'u', 't', 'o', 'r'
+};
+const int sizeof_sltm_msg_itu=7+15;
+
+// ANSI:
+unsigned char sltm_msg_ansi[]=
+{
+  0xB1, //SIO
+  0x0,0x0,0x0,0x0,0x0,0x0,0x0, // 7 bytes for label
+  0x11,  // Heading Code ANSI T1.111.7-2001
+  0xF0, // SLC(is 0 OK???)+Length in bytes of the following string:
+  'T', 'T', 'C', 'N', '-', '3', ' ', 'E', 'x', 'e', 'c', 'u', 't', 'o', 'r'
+};
+const int sizeof_sltm_ansi=10+15;
+
+// TTC:
+unsigned char sltm_msg_ttc_national[]=
+{
+  0x81, //SIO
+  0x0,0x0,0x0,0x0,0x0,0x0, // 6 bytes for label TO BE CONT!!!
+  0x11,  // Heading Code
+  0xF0, // SLC(is 0 OK???)+Length in bytes of the following string:
+  'T', 'T', 'C', 'N', '-', '3', ' ', 'E', 'x', 'e', 'c', 'u', 't', 'o', 'r'
+};
+const int sizeof_sltm_msg_ttc_national=9+15;
+
+// BTTC:
+unsigned char sltm_msg_bttc_national[]=
+{
+  0x0, // extra octet, ignored
+  0x81, //SIO
+  0x0,0x0,0x0,0x0,0x0,0x0, // 6 bytes for label TO BE CONT!!!
+  0x23,  // Heading Code
+  'T', 'T'
+};
+const int sizeof_sltm_msg_bttc_national=1+8+2;
+
+// MPT:
+unsigned char sltm_msg_mpt_national[]=
+{
+  0x81, //SIO
+  0x0,0x0,0x0,0x0,0x0,0x0,0x0, // 7 bytes for label
+  0x11,  // Heading Code
+  0xF0, // SLC(is 0 OK???)+Length in bytes of the following string:
+  'T', 'T', 'C', 'N', '-', '3', ' ', 'E', 'x', 'e', 'c', 'u', 't', 'o', 'r'
+};
+const int sizeof_sltm_msg_mpt_national=10+15;
+//------------
+
+
+// coder functions for MTP3
+// -------------------------
+// unsigned int<-> unsigned char array
+// Integer encode/decode functions that will encode/decode from/to
+// Result: Least Significant Byte first (in lowest address) = LSB = Little Endian
+void MTP3asp__PT_PROVIDER::encode_56bLSB_int(unsigned char *to, unsigned long long int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[3] = from & 0xFF;
+  from >>= 8;
+  to[4] = from & 0xFF;
+  from >>= 8;
+  to[5] = from & 0xFF;
+  from >>= 8;
+  to[6] = from & 0xFF;
+}
+//------------
+
+unsigned long long int MTP3asp__PT_PROVIDER::decode_56bLSB_int(const unsigned char *from)
+{
+  typedef unsigned long long int ull;
+  return ((ull) from[0]) |
+         ((ull) from[1] <<8)|
+         ((ull) from[2] << 16)|
+         ((ull) from[3] << 24)|
+         ((ull) from[4] << 32)|
+         ((ull) from[5] << 40)|
+         ((ull) from[6] << 48);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_48bLSB_int(unsigned char *to, unsigned long long int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[3] = from & 0xFF;
+  from >>= 8;
+  to[4] = from & 0xFF;
+  from >>= 8;
+  to[5] = from & 0xFF;
+}
+//------------
+
+unsigned long long int MTP3asp__PT_PROVIDER::decode_48bLSB_int(const unsigned char *from)
+{
+  typedef unsigned long long int ull;
+  return ((ull) from[0]) |
+         ((ull) from[1] <<8)|
+         ((ull) from[2] << 16)|
+         ((ull) from[3] << 24)|
+         ((ull) from[4] << 32)|
+         ((ull) from[5] << 40);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_40bLSB_int(unsigned char *to, unsigned long long int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[3] = from & 0xFF;
+  from >>= 8;
+  to[4] = from & 0xFF;
+}
+//------------
+
+unsigned long long int MTP3asp__PT_PROVIDER::decode_40bLSB_int(const unsigned char *from)
+{
+  typedef unsigned long long int ull;
+  return ((ull) from[0]) |
+         ((ull) from[1] <<8)|
+         ((ull) from[2] << 16)|
+         ((ull) from[3] << 24)|
+         ((ull) from[4] << 32);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_32bLSB_int(unsigned char *to, unsigned int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[3] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_32bLSB_int(const unsigned char *from)
+{
+  return from[0] | (from[1] << 8) | (from[2] << 16) | (from[3] << 24);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_24bLSB_int(unsigned char *to, int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_24bLSB_int(const unsigned char *from)
+{
+  return from[0] | (from[1] << 8) | (from[2] << 16);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_16bLSB_int(unsigned char *to, int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_16bLSB_int(const unsigned char *from)
+{
+  return from[0] | (from[1] << 8);
+}
+//------------
+
+//MTP3 user map
+void MTP3asp__PT_PROVIDER::MTP3_user_map(const char *system_port)
+{
+  debuglog("Function MTP3_user_map started");
+  Check_TestPort_Variables();
+   if(dynamicConnection)
+  {
+    connectionUp = FALSE;
+  }
+  else
+  { 
+    MTP3_open_channel(TRUE);
+    MTP3_user_connect();
+  }
+  debuglog("Function MTP3_user_map finished");
+}
+//------------
+
+//MTP3 user connect
+void MTP3asp__PT_PROVIDER::MTP3_user_connect()
+{
+  // Sending out an SLTM message:
+  unsigned char * sltm_msg;
+  unsigned int offset = 0;
+  int sizeof_msg;
+  switch( MTPServiceType)
+  {
+    case MTP3itu:
+    case MTP3iup:
+      sltm_msg=sltm_msg_itu;
+      sizeof_msg=sizeof_sltm_msg_itu;
+      break;
+    case MTP3ansi:
+      sltm_msg=sltm_msg_ansi;
+      sizeof_msg=sizeof_sltm_ansi;
+      break;
+    case MTP3ttc:
+  /*    if (mtp3_ni == 0){
+      sltm_msg=sltm_msg_itu;
+      sizeof_msg=sizeof_sltm_msg_itu;
+      }
+      else {
+  */
+      sltm_msg=sltm_msg_ttc_national;
+      sizeof_msg=sizeof_sltm_msg_ttc_national;
+  //    }
+      break;
+    case MTP3bttc:
+      sltm_msg=sltm_msg_bttc_national;
+      sizeof_msg=sizeof_sltm_msg_bttc_national;
+      offset = 1;
+      break;
+    case MTP3mpt:
+      if (mtp3_ni == 2)
+      {
+        sltm_msg = sltm_msg_mpt_national;
+        sizeof_msg = sizeof_sltm_msg_mpt_national;
+      } else
+      {
+        sltm_msg = sltm_msg_itu;
+        sizeof_msg = sizeof_sltm_msg_itu;
+      }
+      break;
+    default:
+      sltm_msg=sltm_msg_itu;
+      sizeof_msg=sizeof_sltm_msg_itu;
+      break;
+  }
+  stored_bttc_octet = 0;
+  unsigned char sio = ((unsigned char) mtp3_ni) << 6;
+
+  if (Ni_is_set)
+  { sltm_msg[0+offset] = sio | 0x1; }
+  else
+  { sltm_msg[0+offset] = 0x1; };//SIO /'test & maint' see Q.704 /14.2.1 => 0x81 suggested !!!
+
+  SetPointCodes(0, Tester_Pc, Sut_Pc, sltm_msg + 1 +offset); // common for ITU, ANSI and TTC
+  log("MTP3/SLTM message sending...");
+  send_msg(sltm_msg, sizeof_msg);
+}
+//MTP3 user unmap
+void MTP3asp__PT_PROVIDER::MTP3_user_unmap(const char *system_port)
+{
+  MTP3_close_connection();
+  dynamicConnection = FALSE;
+}
+
+//MTP3 interpreter
+void MTP3asp__PT_PROVIDER::MTP3_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con)
+{
+  if ((length==0) || (inbuffer==NULL))
+  {
+    log("0 byte long message received -> packet dropped.");
+    return;
+  }
+
+  if (length==1)
+  {
+    log("1 byte long internal SEA message received -> packet dropped.");
+    return;
+  }
+
+  if ( !strcmp((const char*)inbuffer,"start") )
+  {
+    log("start message received from SEA");
+    return;
+  }
+  else if (!strcmp((const char*)inbuffer,"stop"))
+  {
+    log("stop message received from SEA");
+    return;
+  }
+
+  // writing out the contents of the buffer
+  OCTETSTRING buff(length,inbuffer);
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("incoming buffer: ");
+  buff.log();
+  TTCN_Logger::end_event();
+
+  unsigned int offset = 0;
+  if ( MTPServiceType==MTP3bttc )
+  {
+    stored_bttc_octet = inbuffer[0];
+    offset = 1;
+  }
+  int labellen; // sio+routinglabel length
+  int rec_ni = (inbuffer[offset]) >> 6;  //network indicator
+  if (rec_ni != mtp3_ni)
+    error("Received NI is different from sent NI.");
+
+  unsigned char sio = inbuffer[offset];
+  unsigned int si = sio&0x0F;
+
+  if ( MTPServiceType==MTP3itu )
+  { labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+  }
+  else if ( MTPServiceType==MTP3iup )
+  { 
+    if(si==4)
+      labellen=6; //ITU-T:sio(1byte) + standard telephony label(5byte)
+    else
+      labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+  }
+  else if ( MTPServiceType==MTP3ansi )
+  { labellen=8; //ANSI: sio(1byte) +routing label(7byte) see T1.111.4
+  }
+  else if (MTPServiceType==MTP3ttc)
+  { labellen=6; //new (2004-03-02): 6= sio(1byte)+ routing label(5bytes)
+  }
+  else if (MTPServiceType==MTP3mpt)
+  {
+     if ( mtp3_ni == 2)
+       {labellen=8;} //MPT national: sio(1byte) +routing label(7byte)
+     else
+       {labellen=5;} //MPT international: sio(1byte) +routing label(4byte)
+  }
+  else if (MTPServiceType==MTP3bttc)
+  { labellen=7; //7= sio(1byte)+ routing label(6bytes)
+  }
+  else
+  { log("incorrect MTPServiceType - programming error-> packet dropped");
+    return;
+  }
+
+  // checking SIO field (first incoming byte) - management or test message
+  switch (si)
+  {
+    case 0: processing_MTP3_management_msg(inbuffer+offset,length-offset);
+      return;
+    case 1:                                                          //MTP3itu
+    case 2: processing_MTP3_test_msg(inbuffer+offset,length-offset); //MTP3ansi
+      return;
+    default:
+      break;
+  }
+
+  // filling up TTCN structure
+  if ((Loop==MTP3_ON) || (!Filter) || (Filter&&Check_PcMatch(Sut_Pc,Tester_Pc,&inbuffer[offset+1])))
+  {
+    ASP__MTP3__TRANSFERind recv_msg;
+    MTP3__Field__sio recv_sio;
+    BITSTRING sio_bit = oct2bit(OCTETSTRING(1,inbuffer+offset));
+    recv_sio.ni()= substr(sio_bit,0,2);
+    recv_sio.prio()= substr(sio_bit,2,2);
+    recv_sio.si()= substr(sio_bit,4,4);
+    recv_msg.sio() = recv_sio;
+    unsigned int sls,opc,dpc;
+    if ( (MTPServiceType==MTP3iup) && (si==4) )
+      GetPointCodesIUP(sls,opc,dpc,&inbuffer[1]);
+    else
+      GetPointCodes(sls,opc,dpc,&inbuffer[offset+1]);
+    recv_msg.sls() = sls;
+    recv_msg.opc() = opc;
+    recv_msg.dpc() = dpc;
+    int len;
+    len= length-labellen-offset; //len= length-labellen;
+    recv_msg.data() = OCTETSTRING(len, &inbuffer[offset+labellen]);
+    incoming_message( recv_msg );
+  }
+  else
+  { log("The rooting label (OPC, DPC) not matched with the filter setting -> packet dropped.");
+    return;
+  }
+}
+
+void MTP3asp__PT_PROVIDER::processing_MTP3_management_msg(unsigned char* inbuff,int len)
+{
+  int outlen=0;
+  int labellen; // sio+routinglabel length
+  int chm_addlen;  // (Changeback) additional length = Heading Code + SLC+ (changeback codes)
+  int mim_addlen;  // (MIM)          -"-
+  unsigned int offset = 0;
+  OCTETSTRING bttc_oct = int2oct(stored_bttc_octet, 1); // additional octet for MTP3bttc
+
+  if ( MTPServiceType==MTP3itu || MTPServiceType==MTP3iup)
+  { labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+    chm_addlen = 2;
+    mim_addlen = 1;
+  }
+  else if ( MTPServiceType==MTP3ansi )
+  { labellen=8; //ANSI: sio(1byte) +routing label(7byte) see T.1.111.4
+    chm_addlen = 3;
+    mim_addlen = 2;
+  }
+  else if (MTPServiceType==MTP3ttc)
+  { //if ( mtp3_ni == 0 ) { labellen=5;} //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+    //else {
+    labellen=6;
+    //} //sio(1byte)+ routing label(6bytes) see 3/15517-FAY 112 011/2 or jt-q704.
+  }
+  else if (MTPServiceType==MTP3mpt)
+  { if ( mtp3_ni == 2 ) { labellen=8; }
+    else { labellen=5; }
+    chm_addlen = 2;
+    mim_addlen = 1;
+  }
+  else if (MTPServiceType==MTP3bttc)
+  { labellen=7;//sio(1byte)+routing label(6bytes) see 3/15517-FAY 112 011/2 or jt-q704
+    offset = 1;
+  }
+  else
+  { log("incorrect MTPServiceType- programming error-> packet dropped");
+    return;
+  }
+
+  if (MTPServiceType==MTP3bttc)
+  {
+    buffer[0]=*((const unsigned char*)bttc_oct); //additional stored octet in front
+    buffer[1]=inbuff[0]; //SIO
+    if (!ChangePointCodes(&buffer[2],&inbuff[1],len))
+    { log("incorrect incoming management message -> packet dropped.");
+      return;
+    }
+  }
+  else
+  {
+    buffer[0]=inbuff[0]; //SIO
+    if (!ChangePointCodes(&buffer[1],&inbuff[1],len))
+    { log("incorrect incoming management message -> packet dropped.");
+      return;
+    }
+  }
+
+  // Changeover & changeback(CHM) see ITU: Q.704/15.4.1  ANSI: T.1.111.4/15.2-4
+  if (inbuff[labellen]==0x51) //CBD
+  {
+    outlen=labellen+chm_addlen;
+    if (len<outlen)
+    { log("incorrect incoming CHM message -> packet dropped.");
+      return;
+    }
+    else
+    { buffer[offset + labellen]= 0x61; // Heading Code <- CBA
+      memcpy(&buffer[offset + labellen+1],&inbuff[labellen+1],len-labellen-1);
+      outlen = len;
+    }
+  }
+  else if (inbuff[labellen]==0x16) //MIM  H0=6=Mgmt inhibit msg, H1=1=LIN
+  {
+    outlen=labellen+mim_addlen;
+    if (len<outlen)
+    { log("incorrect incoming MIM message -> packet dropped.");
+      return;
+    }
+    else
+    {
+      buffer[offset + labellen]= 0x56; // LIN -> LID  ; LID = link inhibit denied
+      memcpy(&buffer[offset + labellen+1],&inbuff[labellen+1],(len-labellen-1)); //SLC+spare+...
+      outlen = len;
+    }
+  }
+  else if (inbuff[labellen]==0x17 && (MTPServiceType==MTP3iup))
+  {
+    if(forward_resume) incoming_message(ASP__MTP3__RESUME(NULL_VALUE));
+    return;
+  }
+
+/*  else if (inbuff[labellen]==0x17 && (MTPServiceType==MTP3iup)) //TRM  H0=7, H1=1 : TRA
+  {
+    outlen=labellen+1;
+    if (len<outlen)
+    { log("incorrect incoming TRA message -> packet dropped.");
+      return;
+    }
+    else
+    {
+      outlen = len;
+    }
+  }*/
+  else
+  { log("This management message type is not supported -> packet dropped.");
+    return;
+  }
+
+  // send message
+  log("function processing_MTP3_management_msg sends a msg");
+  send_msg(buffer, outlen+offset);
+}
+
+// processing MTP3 test msg
+// Signalling link test message handling according to Q.707 (ITU) and T1.111.7-2001 (ANSI)
+void MTP3asp__PT_PROVIDER::processing_MTP3_test_msg(unsigned char* inbuff,int len)
+{
+  int outlen=0;
+  int labellen; // sio+routinglabel length
+  int addlen;   //Heading Code+length indicator
+  //unsigned int ni; //network indicator
+  OCTETSTRING bttc_oct = int2oct(stored_bttc_octet, 1); // additional octet for MTP3bttc
+  unsigned int offset = 0;
+  if ( MTPServiceType==MTP3itu || MTPServiceType==MTP3iup)
+  {
+    labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+    addlen = 2; //HC(1 byte)+length ind(1 byte) see Q.707/5.8
+  }
+  else if ( MTPServiceType==MTP3ansi )
+  {
+    labellen=8; //ANSI: sio(1byte) +routing label(7byte) see T1.111.4
+    addlen = 2; //HC(1byte) +(length ind+SLC(1byte)) see  T1.111.7-2001/5
+  }
+  else if (MTPServiceType==MTP3ttc)
+  {
+  /*  if (mtp3_ni == 0) {
+        debuglog("processing_MTP3_test_msg/TTC (Japanese) international");
+        labellen=5;  //TTC (Japanese) international
+        addlen=2;
+    } else {
+  */
+        labellen=6; // previously 7
+                    // TTC national [ 56bits=sio(1byte)+routing label ]
+                    // r.label= dpc(2bytes)+opc(2bytes)+sls(4bit)+12bits (?)
+        addlen=2;
+    //}
+  }
+  else if (MTPServiceType==MTP3mpt)
+  {
+    if (mtp3_ni == 2)
+    { labellen=8;  //MPT national
+      addlen=2;
+    }
+    else
+    { labellen=5; // MPT international
+      addlen=2;
+    }
+  }
+  else if (MTPServiceType==MTP3bttc)
+  {
+    labellen=7;
+    addlen=2;
+    offset = 1;
+  }
+  else
+  { log("incorrect MTPServiceType - programming error-> packet dropped");
+    return;
+  }
+
+  if (MTPServiceType==MTP3bttc)
+  {
+    buffer[0]=*((const unsigned char*)bttc_oct); //additional stored octet in front
+    buffer[1]=inbuff[0]; //SIO
+    if (!ChangePointCodes(&buffer[2],&inbuff[1],len))
+    {
+      log("incorrect incoming test message -> packet dropped.");
+      return;
+    }
+  }
+  else
+  {
+    buffer[0]=inbuff[0]; //SIO
+    if (!ChangePointCodes(&buffer[1],&inbuff[1],len))
+    {
+      log("incorrect incoming test message -> packet dropped.");
+      return;
+    }
+  }
+
+  // Test message handling: SLTM->SLTA, SRT->SRA, SLTA->TRA, others only logged
+  debuglog("\n==>Test message handling: msg type:%x\n",   inbuff[labellen] ); // temporary
+  switch( inbuff[labellen] )
+  {
+    case 0x11: //SLTM
+      log("MTP3/SLTM message received");
+      outlen=labellen+addlen;
+      if (len<outlen )
+      { log("incorrect incoming MTP3/SLTM message -> packet dropped.");
+        return;
+      }
+      else
+      { buffer[offset + labellen]= 0x21; // SLTA
+        memcpy(&buffer[offset + labellen+1],&inbuff[labellen+1],(len-labellen-1));
+        outlen = len;
+      }
+      break;
+    case 0x21: //SLTA
+      if(!strncmp((const char *)(inbuff+labellen+addlen),(const char *)ttcn_in_sltm,sizeof_ttcn_in_sltm))
+      {
+        log("MTP3/SLTA message received for  SLTM sent by Test Port-> TRA message sent");
+        buffer[offset]--;
+        buffer[offset + labellen]= 0x17; // TRA
+        outlen = labellen+1;
+        return;
+//        if(forward_resume) incoming_message(ASP__MTP3__RESUME(NULL_VALUE));
+      }
+      else
+      {
+        log("MTP3/SLTA message received -> packet dropped");
+        return;
+      }
+      break;
+    case 0x23: // TTC (Japanese) SRT (Signalling Routing Test signal)
+      log("MTP3ttc/SRT message received");
+      outlen=labellen+addlen;
+      if (len<outlen )
+      { log("incorrect incoming MTP3ttc/SRT message (length error)-> packet dropped.");
+        return;
+      }
+      else
+      { buffer[offset + labellen]= 0x84; // TTC (Japanese) SRA
+        memcpy(&buffer[offset + labellen+1],&inbuff[labellen+1],(len-labellen-1));
+        outlen = len;
+      }
+      break;
+    case 0x84: // TTC (Japanese) SRA (Signalling Routing test Ack signal)
+      log("MTP3ttc/SRA message received -> packet dropped");
+      return;
+    default:
+      log("This management message type is not supported -> packet dropped ");
+      return;
+  }
+
+  // send message
+  log("function processing_MTP3_test_msg sends a message");
+  send_msg( buffer,outlen+offset);
+}
+
+// Point Code Manipulation (Get/Set/Change)
+// -------------------------------------------------
+void MTP3asp__PT_PROVIDER::GetPointCodes(unsigned int &sls,unsigned int &opc,unsigned int &dpc, unsigned char* msg)
+{
+  unsigned int label;
+  sls=0; opc=0; dpc=0;
+  unsigned long long int Label;
+
+  switch( MTPServiceType)
+  {
+    case MTP3itu:
+      label= decode_32bLSB_int(msg);
+      sls  = (label>>28)&0xF;    //sls  = (label&0xF0000000)>>28;
+      opc  = (label>>14)&0x3FFF; //opc  = (label&0x0FFFC000)>>14;
+      dpc  = label&0x3FFF;       //dpc  = (label&0x00003FFF);
+      debuglog("Function GetPointCodes called for service type MTP3itu");
+      break;
+    case MTP3iup:
+      label= decode_32bLSB_int(msg);
+      sls  = (label>>28)&0xF;    //sls  = (label&0xF0000000)>>28;
+      opc  = (label>>14)&0x3FFF; //opc  = (label&0x0FFFC000)>>14;
+      dpc  = label&0x3FFF;       //dpc  = (label&0x00003FFF);
+      debuglog("Function GetPointCodes called for service type MTP3iup");
+      break;
+    case MTP3ansi:
+      Label=decode_56bLSB_int(msg);
+      sls  = (Label >> 48) & 0xFF;    //sls  = (Label&0x00FF000000000000)>>48;
+      opc  = (Label >> 24) & 0xFFFFFF;//opc  = (Label&0x0000FFFFFF000000)>>24;
+      dpc  = Label & 0xFFFFFF;        //dpc  = (Label&0x0000000000FFFFFF);
+      debuglog("Function GetPointCodes called for service type MTP3ansi");
+      break;
+    case MTP3ttc:
+    /*
+      if( mtp3_ni == 0)
+      {
+        label= decode_32bLSB_int(msg);
+        sls  = (label>>28)&0xF;     //sls  = (label&0xF0000000)>>28;
+        opc  = (label>>14)&0x3FFF;  //opc  = (label&0x0FFFC000)>>14;
+        dpc  = label&0x3FFF;
+        debuglog("Function GetPointCodes called for service type MTP3ttc/international");
+      } else
+      {*/
+      Label=decode_48bLSB_int(msg);            //0x010203040506
+      sls  = (Label>>32)&0xF;   // sls  = (Label&0x000F00000000)>>32; // only 4 bits!!!
+      opc  = (Label>>16)&0xFFFF;//opc  = (Label&0x0000FFFF0000)>>16;
+      dpc  = Label&0xFFFF;      //dpc  = (Label&0x00000000FFFF);
+      debuglog("Function GetPointCodes called for service type MTP3ttc/national");
+      //}
+      break;
+    case MTP3bttc:
+      Label=decode_48bLSB_int(msg);
+      sls  = (Label>>32)&0xF;   // sls  = (Label&0x000F00000000)>>32; // only 4 bits!!!
+      opc  = (Label>>16)&0xFFFF;//opc  = (Label&0x0000FFFF0000)>>16;
+      dpc  = Label&0xFFFF;      //dpc  = (Label&0x00000000FFFF);
+      debuglog("Function GetPointCodes called for service type MTP3bttc/national");
+      break;
+    case MTP3mpt:
+      if( mtp3_ni == 2)
+      {
+        Label=decode_56bLSB_int(msg);
+        sls  = (Label >> 48) & 0xFF;    //sls  = (Label&0x00FF000000000000)>>48;
+        opc  = (Label >> 24) & 0xFFFFFF;//opc  = (Label&0x0000FFFFFF000000)>>24;
+        dpc  = Label & 0xFFFFFF;        //dpc  = (Label&0x0000000000FFFFFF);
+        debuglog("Function GetPointCodes called for service type MTP3mpt(nat)");
+      }
+      else
+      {
+        label= decode_32bLSB_int(msg);
+        sls  = (label>>28)&0xF;    //sls  = (label&0xF0000000)>>28;
+        opc  = (label>>14)&0x3FFF; //opc  = (label&0x0FFFC000)>>14;
+        dpc  = label&0x3FFF;       //dpc  = (label&0x00003FFF);
+        debuglog("Function GetPointCodes called for service type MTP3mpt(int)");
+      }
+      break;
+    default:
+      break;
+  }
+  debuglog("sls:%u opc:%u, dpc:%u",sls,opc,dpc);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::GetPointCodesIUP(unsigned int &cic,unsigned int &opc,unsigned int &dpc, unsigned char* msg)
+{
+  debuglog("Function GetPointCodesIUP called");
+  cic=0; opc=0; dpc=0;
+  unsigned long long int Label;
+  Label=decode_40bLSB_int(msg);            //0x0102030405
+  cic  = (Label>>28)&0xFFF;  //cic  = (label&0xFFF0000000)>>28;
+  opc  = (Label>>14)&0x3FFF; //opc  = (label&0x000FFFC000)>>14;
+  dpc  = Label&0x3FFF;       //dpc  = (label&0x0000003FFF);
+  debuglog("cic:%u opc:%u, dpc:%u",cic,opc,dpc);
+}
+
+void MTP3asp__PT_PROVIDER::SetPointCodes(unsigned int sls,unsigned int opc,unsigned int dpc, unsigned char* msg)
+{
+  unsigned long long int Sls,Opc,Dpc;
+
+  switch( MTPServiceType)
+  {
+    case MTP3itu:
+      encode_32bLSB_int( msg, ((sls<<28)|(opc<<14)|dpc ));
+      debuglog("Function SetPointCodes called for service type MTP3itu");
+      break;
+    case MTP3iup:
+      encode_32bLSB_int( msg, ((sls<<28)|(opc<<14)|dpc ));
+      debuglog("Function SetPointCodes called for service type MTP3iup");
+      break;
+    case MTP3ansi:
+      Sls=sls; Opc=opc; Dpc=dpc;
+      encode_56bLSB_int( msg, ((Sls<<48)|(Opc<<24)|Dpc));
+      debuglog("Function SetPointCodes called for service type MTP3ansi");
+      break;
+    case MTP3ttc:
+     /* if ( mtp3_ni == 0 ){
+        encode_32bLSB_int( msg, ((sls<<28)|(opc<<14)|dpc ));
+        debuglog("Function SetPointCodes called for service type MTP3ttc/international");
+      } else {
+     */
+        Sls=sls; Opc=opc; Dpc=dpc;
+        encode_48bLSB_int( msg, ((Sls<<32)|(Opc<<16)|Dpc));
+        debuglog("Function SetPointCodes called for service type MTP3ttc/national");
+      //}
+      break;
+    case MTP3bttc:
+        Sls=sls; Opc=opc; Dpc=dpc;
+        encode_48bLSB_int( msg, ((Sls<<32)|(Opc<<16)|Dpc));
+        debuglog("Function SetPointCodes called for service type MTP3bttc/national");
+      break;
+    case MTP3mpt:
+      if ( mtp3_ni == 2 )
+      { Sls=sls; Opc=opc; Dpc=dpc;
+        encode_56bLSB_int( msg, ((Sls<<48)|(Opc<<24)|Dpc));
+        debuglog("Function SetPointCodes called for service type MTP3mpt(nat)");
+      }
+      else
+      { encode_32bLSB_int( msg, ((sls<<28)|(opc<<14)|dpc ));
+        debuglog("Function SetPointCodes called for service type MTP3mpt(int)");
+      }
+      break;
+    default:
+      break;
+  }
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::SetPointCodesIUP(unsigned int cic,unsigned int opc,unsigned int dpc, unsigned char* msg)
+{
+  unsigned long long int Cic,Opc,Dpc;
+  Cic=cic; Opc=opc; Dpc=dpc;
+  debuglog("Function SetPointCodesIUP called");
+  encode_40bLSB_int( msg, ((Cic<<28)|(Opc<<14)|Dpc ));
+}
+
+//Changes the Point  codes: dpc<->opc ie. destination <->orig
+// inbuff starts from dpc i.e doesn't contain sio !!!!
+int MTP3asp__PT_PROVIDER::ChangePointCodes(unsigned char* outbuff, unsigned char *inbuff, int len)
+{
+  switch( MTPServiceType)
+  {
+    case MTP3itu:
+    case MTP3iup:
+      if (len<5)
+      { warn("MTP3itu:len<5. Too short message!"); return 0; };
+      break;
+    case MTP3ansi:
+      if (len<9 ) return 0;
+      break;
+    case MTP3ttc:
+      //if ( mtp3_ni == 0 && len<5)
+      //{ warn("MTP3ttc:len<5. Too short message!"); return 0; }
+      //else
+      if (len<6)
+      { warn("MTP3ttc:len<6. Too short message!"); return 0; }
+      break;
+    case MTP3bttc:
+      if (len<7)
+      { warn("MTP3bttc:len<7. Too short message!"); return 0; }
+      break;
+    case MTP3mpt:
+      if ( mtp3_ni == 2 && len<8)
+      { warn("MTP3mpt:len<8. Too short message!"); return 0; }
+      else if (len<5)
+      { warn("MTP3mpt:len<5. Too short message!"); return 0; }
+      break;
+    default:
+      warn("Unknown MTPServiceType!!!");
+      break;
+  }
+  unsigned int sls,opc,dpc;
+  GetPointCodes(sls,opc,dpc,inbuff);
+  SetPointCodes(sls,dpc,opc,outbuff);
+  return 1;
+}
+//------------
+
+int  MTP3asp__PT_PROVIDER::Check_PcMatch(unsigned int opc, unsigned int dpc, unsigned char *buff)
+{
+  unsigned int temp_opc,temp_dpc,temp_sls;
+
+  GetPointCodes(temp_sls,temp_opc,temp_dpc,buff);
+  if ( (temp_opc == opc) && (temp_dpc == dpc) ) return 1;
+  return 0;
+}
+//------------
+
+
+// -------------------------------------------------
+// M3UA Functions and definitions for test with SEA
+// -------------------------------------------------
+
+// Structures for M3UA
+static unsigned char aspup_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPSM, //Msg class: ASPSM
+  M3UA_MSG_TYP_ASPSM_ASPUP, //Msg type: ASPUP
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+  //      ,PAR_PREFIX_COMMON, //optional Info string tag, in included, then msg
+  //       PAR_INFO_STR            //msg length should be +20, that is 28=0x1c
+  //       0x00,0x0f, // length: "TTCN-3 Executor"  is 15 chars
+  //       'T', 'T', 'C', 'N',
+  //       '-', '3', ' ', 'E',
+  //       'x', 'e', 'c', 'u',
+  //       't', 'o', 'r', 0x00 //las octet is padding
+};
+const int sizeof_aspup_msg = 8;
+
+static unsigned char aspupack_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPSM, //Msg class: ASPSM
+  M3UA_MSG_TYP_ASPSM_ASPUPAck, //Msg type: ASPUP
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+};
+const int sizeof_aspupack_msg = 8;
+
+static unsigned char aspac_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPTM, //Msg class
+  M3UA_MSG_TYP_ASPTM_ASPAC, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+};
+const int sizeof_aspac_msg = 8;
+
+// ASP Active Acknowledge msg:
+static unsigned char aspac_ack_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPTM, //Msg class
+  M3UA_MSG_TYP_ASPTM_ASPACAck, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+};
+const int sizeof_aspac_ack_msg = 8;
+
+static unsigned char aspia_ack_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPTM, //Msg class
+  M3UA_MSG_TYP_ASPTM_ASPIAAck, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+};
+const int sizeof_aspia_ack_msg = 8;
+
+// ASP DOWN Acknowledge msg:
+static unsigned char aspdn_ack_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPSM, //Msg class
+  M3UA_MSG_TYP_ASPSM_ASPDNAck, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+};
+const int sizeof_aspdn_ack_msg = 8;
+
+//ASP Destination Available msg:
+static unsigned char dava_1apc_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  //or updated doc 2/1056-FCPW 101 86/P-1
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_SSNM, //Msg class
+  M3UA_MSG_TYP_SSNM_DAVA, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x10,  // length ends, 16 octets
+  //Affected point code
+  PAR_PREFIX_COMMON,
+  PAR_AFFECTED_PC,
+  0x00, //par length begins (2 octets)
+  0x08, //length ends, 8 octets
+  0x00, // point code placeholder begins
+  0x00, //
+  0x00, //
+  0x00 // point code placeholder ends
+};
+const int sizeof_dava_1apc_msg = 16;
+
+static unsigned char duna_1apc_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_SSNM, //Msg class
+  M3UA_MSG_TYP_SSNM_DUNA, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x10,  // length ends, 16 octets
+  //Affected point code
+  PAR_PREFIX_COMMON,
+  PAR_AFFECTED_PC,
+  0x00, //par length begins (2 octets)
+  0x08, //length ends, 8 octets
+  0x00, // point code placeholder begins
+  0x00, //
+  0x00, //
+  0x00 // point code placeholder ends
+};
+const int sizeof_duna_1apc_msg = 16;
+
+static unsigned char error_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_MGMT, //Msg class
+  M3UA_MSG_TYP_MGMT_ERR, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x18,  // length ends, 16+8 octets
+  // Error code field:
+  PAR_PREFIX_COMMON,
+  PAR_ERROR_CODE,
+  0x00, //par length begins (2 octets)
+  0x08, //length ends, 8 octets
+  0x00, // error code placeholder begins (M3UA_MSG_OFFS+4)
+  0x00, //
+  0x00, //
+  0x00, // error code placeholder ends
+  // additional field:
+  0x00, // M3UA_MSG_OFFS+8
+  0x00, // Routing context or Network Appearanance or APC or DI = error_code_id
+  0x00, // par length begins (2 octets)
+  0x08, // length ends, 8 octets
+  0x00, // value placeholder begins M3UA_MSG_OFFS+12
+  0x00, //
+  0x00, //
+  0x00 // value place holder ends
+};
+const int sizeof_error_msg = 24;
+
+void MTP3asp__PT_PROVIDER::M3UA_user_unmap(const char *system_port)
+{
+  MTP3_close_connection();
+  dynamicConnection = FALSE;
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::M3UA_user_map(const char *system_port)
+{
+  M3UAState = AssocDown;
+  Check_TestPort_Variables();
+  if(dynamicConnection)
+  {
+    connectionUp = FALSE;
+  }
+  else
+  {
+    MTP3_open_channel(TRUE);
+    M3UA_user_connect();
+  }
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::M3UA_user_connect()
+{
+    M3UAState = AssocEstabl;
+    // Sending out an ASPUP message
+    log("Message ASPUP will be sent");
+    send_msg(aspup_msg, sizeof_aspup_msg);
+    // NOTE: the ASPUPAck will be handled by M3UA_interpreter, which
+    // also will take care of sending ASPAC upon receiving the ASPUPAck
+}
+//------------
+
+// M3UA_interpreter
+void MTP3asp__PT_PROVIDER::M3UA_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con)
+{
+  if ((length==0) || (inbuffer==NULL))
+  { warn("0 byte long message received -> packet dropped.");
+    return;
+  }
+
+  if (length==1)
+  {
+    log("1 byte long internal SEA message received -> packet dropped.");
+    return;
+  }
+
+  if ( !strcmp((const char*)inbuffer,"start") )
+  { log("start message received from SEA");
+    return;
+  }
+  else if (!strcmp((const char*)inbuffer,"stop"))
+  { log("stop message received from SEA");
+    return;
+  }
+
+  // writing out the contents of the buffer
+  OCTETSTRING buff(length,inbuffer);
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("incoming buffer: ");
+  buff.log();
+  TTCN_Logger::end_event();
+
+  // version checking
+  if (  inbuffer[M3UA_VER_OFFS]  != M3UA_version )
+  { warn("Incompatible M3UA protocol version in header -> packet dropped");
+    return;
+  }
+
+  //length checking
+  unsigned int indicated_length = decode_32b_int(inbuffer + M3UA_LGT_OFFS );
+  if ( indicated_length  != (unsigned)length)
+    warn("Length in common header (%d) mismatches received  buffer length (%d),"
+         "Assuming that it is because of the omission of final parameter padding"
+         "in indicated length",indicated_length, length);
+
+  // checking MSG class
+  int unprocessed_chars = 0;
+  switch (inbuffer[M3UA_CLS_OFFS])
+  {
+    case M3UA_MSG_CLS_MGMT:
+      unprocessed_chars =  processing_M3UA_MGMT_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_CLS_TRNSFM :
+      unprocessed_chars =  processing_M3UA_Transfer_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_CLS_SSNM :
+      unprocessed_chars = processing_M3UA_SSNM_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_CLS_ASPSM :
+      unprocessed_chars = processing_M3UA_ASPSM_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_CLS_ASPTM :
+      unprocessed_chars = processing_M3UA_ASPTM_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_CLS_RKM :
+      unprocessed_chars = processing_M3UA_RKM_msg(inbuffer, length);
+      break;
+    default:
+      unprocessed_chars = processing_M3UA_unsupported_msg_class(inbuffer, length);
+      break;
+  }
+  debuglog("%d chars remained unprocessed (might be due to padding)",  unprocessed_chars);
+}
+//------------
+
+//processing M3UA MGMT msg
+int MTP3asp__PT_PROVIDER::processing_M3UA_MGMT_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_MGMT_msg");
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("decoded msg class: Mgmt, ");
+  switch (inbuffer[M3UA_TYP_OFFS])//msg type
+  {
+    case M3UA_MSG_TYP_MGMT_ERR:
+      TTCN_Logger::log_event("type: ERROR-> ignored");
+      TTCN_Logger::log_event("}");
+      TTCN_Logger::end_event();
+      break;
+    case M3UA_MSG_TYP_MGMT_NTFY:
+      TTCN_Logger::log_event("type: NOTIFY -> ignored");
+      TTCN_Logger::log_event("}");
+      TTCN_Logger::end_event();
+      break;
+    default:
+      send_M3UA_error_msg( PAR_ERRC_UNSMT,  inbuffer[M3UA_TYP_OFFS]);
+      TTCN_Logger::log_event("Unsupported M3UA msg type %x of class MGMT -> packet dropped.", inbuffer[M3UA_TYP_OFFS]);
+      TTCN_Logger::log_event("}");
+      TTCN_Logger::end_event();
+      break;
+  }
+  return length - offset;
+}
+//------------
+
+//processing M3UA SSNM msg
+int MTP3asp__PT_PROVIDER::processing_M3UA_SSNM_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_SSNM_msg");
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("decoded msg class: SSNM, ");
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+
+  switch (inbuffer[M3UA_TYP_OFFS])
+  {
+    case M3UA_MSG_TYP_SSNM_DAUD:
+      while (offset <= length-8 ) //processing potential params
+      {
+        switch (inbuffer[offset++]) //1st octet of tag
+        {
+        case PAR_PREFIX_COMMON:
+          TTCN_Logger::log_event (" DAUD: COMMON parameter ");
+          switch (inbuffer[offset++]) //2nd octet of COMMON tag
+          {
+            case PAR_ROUTING_CTX:
+              TTCN_Logger::log_event ("Routing Context (unsupported par) -> skipped), ");
+              skip_par_after_tag(inbuffer, offset);
+              break;
+            case PAR_INFO_STR:
+              TTCN_Logger::log_event ("Info String (unsupported par) -> skipped), ");
+              skip_par_after_tag(inbuffer, offset);
+              break;
+            case PAR_AFFECTED_PC:
+              TTCN_Logger::log_event ("Affected Point Code  -> will send DUNA/DAVA, ");
+              TTCN_Logger::log_event("will ignore remainder parameters after APC}");
+              TTCN_Logger::end_event();
+              Send_DAVA_DUNA_to_APCinDAUD(Tester_Pc, inbuffer, offset);
+              return length-offset;
+            default:
+              TTCN_Logger::log_event ("invalid COMMON param tag:0x%02x%02x-> skipped", PAR_PREFIX_COMMON, inbuffer[offset-1]);
+              send_M3UA_error_msg( PAR_ERRC_PARFE, inbuffer[offset-1]);
+              skip_par_after_tag(inbuffer, offset);
+              break;
+          }
+          break;
+        case PAR_PREFIX_M3UA:
+          TTCN_Logger::log_event ("DAUD: M3UA parameter: ");
+          switch (inbuffer[offset++]) //2nd octet of M3UA tag
+          {
+            case PAR_NETW_APP:
+              TTCN_Logger::log_event ("Network Appearance (unsupported par) -> skipped), ");
+              skip_par_after_tag(inbuffer, offset);
+              break;
+            default:
+              TTCN_Logger::log_event ("invalid M3UA  param tag:0x%02x%02x-> skipped",
+              PAR_PREFIX_M3UA, inbuffer[offset-1]);
+              send_M3UA_error_msg( PAR_ERRC_PARFE, inbuffer[offset-1]);
+              skip_par_after_tag(inbuffer, offset);
+          }
+          break;
+        default: //1st octet of tag
+          TTCN_Logger::log_event ("invalid 1st octet param tag:0x%02x in DATA (packet dropped)",inbuffer[offset-1]);
+          close_log_event();
+          return length -offset;
+        break;
+        }
+      }
+      break;
+    case M3UA_MSG_TYP_SSNM_DAVA: // Destination Available // Notification to the user part ?????
+      TTCN_Logger::log_event("type: SSNM_DAVA -> ignored");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_SSNM_DUNA: // Destination Unavailable // Notification to the user part ?????
+      TTCN_Logger::log_event("type: SSNM_DUNA -> ignored");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_SSNM_SCON: // Signalling Congestion  // Notification to the user part ?????
+      TTCN_Logger::log_event("type: SSNM_SCON -> ignored");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_SSNM_DUPU: //Destinationn User Part Unavailable // Notification to the user part ?????
+      TTCN_Logger::log_event("type: SSNM_DUPU -> ignored");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_SSNM_DRST: //Destination Restricted   // Notification to the user part ?????
+      TTCN_Logger::log_event("type: SSNM_DRST -> ignored");
+      close_log_event();
+      break;
+    default: //msg type
+      send_M3UA_error_msg( PAR_ERRC_UNSMT,  inbuffer[M3UA_TYP_OFFS]);
+      TTCN_Logger::log_event("Unsupported M3UA msg type -> packet dropped.");
+      close_log_event();
+      break;
+  }
+  return length - offset;
+}
+//------------
+
+//processing M3UA ASPSM msg
+int MTP3asp__PT_PROVIDER::processing_M3UA_ASPSM_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_ASPSM_msg");
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("decoded msg class: ASPSM, ");
+
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+  switch (inbuffer[M3UA_TYP_OFFS])
+  {
+    case M3UA_MSG_TYP_ASPSM_ASPUP:
+      TTCN_Logger::log_event("type: ASPSM_ASPUP -> ASPUPAck will be sent");
+      close_log_event();
+      send_msg(aspupack_msg, sizeof_aspupack_msg);
+      break;
+    case M3UA_MSG_TYP_ASPSM_ASPDN:
+      TTCN_Logger::log_event("type: ASPSM_ASPDN -> ASPDNAck will be sent");
+      close_log_event();
+      send_msg(aspdn_ack_msg, sizeof_aspdn_ack_msg);
+      break;
+    case M3UA_MSG_TYP_ASPSM_BEAT:
+      TTCN_Logger::log_event("type: ASPSM_BEAT -> ASPSM_BEATAck will be sent");
+      close_log_event();
+      //Sending back the packet as acknowledge:
+      inbuffer[M3UA_TYP_OFFS]= M3UA_MSG_TYP_ASPSM_BEATAck;
+      send_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_TYP_ASPSM_ASPUPAck:
+      TTCN_Logger::log_event("type: ASPSM_ASPUPAck -> ASPAC will be sent");
+      M3UAState = AssocInac;
+      TTCN_Logger::log_event(" M3UAState's been changed to AssocInac");
+      close_log_event();
+      send_msg(aspac_msg, sizeof_aspac_msg );
+      break;
+    case M3UA_MSG_TYP_ASPSM_ASPDNAck:
+      M3UAState = AssocDown;
+      TTCN_Logger::log_event(" M3UAState's been changed to AssocDown");
+      TTCN_Logger::log_event("type: ASPSM_ASPDNAck ->  nothing will be sent");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_ASPSM_BEATAck:
+      TTCN_Logger::log_event("type: ASPSM_BEATAck ->  nothing will be sent");
+      close_log_event();
+      break;
+    default:
+      TTCN_Logger::log_event("Unsupported M3UA msg type %x of class ASPSM-> packet dropped.", (unsigned char)(inbuffer[M3UA_TYP_OFFS]));
+      close_log_event();
+      send_M3UA_error_msg( PAR_ERRC_UNSMT,  inbuffer[M3UA_TYP_OFFS]);
+      break;
+  }
+  return length - offset;
+}
+//------------
+
+//processing M3UA ASPTM msg
+int MTP3asp__PT_PROVIDER::processing_M3UA_ASPTM_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_ASPTM_msg");
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("decoded msg class: ASPTM, ");
+
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+  switch (inbuffer[M3UA_TYP_OFFS])
+  {
+    case M3UA_MSG_TYP_ASPTM_ASPAC: //ASP Active
+      M3UAState = AssocActive;
+      TTCN_Logger::log_event("type: ASPTM_ASPAC -> ASPACAck will be sent");
+      close_log_event();
+      send_msg(aspac_ack_msg, sizeof_aspac_ack_msg);
+      break;
+    case M3UA_MSG_TYP_ASPTM_ASPIA:  //ASP InActive
+      TTCN_Logger::log_event("type: ASPTM_ASPIA -> ASPIAAck will be sent");
+      close_log_event();
+      send_msg(aspia_ack_msg, sizeof_aspia_ack_msg);
+      break;
+    case M3UA_MSG_TYP_ASPTM_ASPACAck:
+      M3UAState = AssocActive;
+      TTCN_Logger::log_event("type: ASPTM_ASPACAck -> nothing will be sent");
+      TTCN_Logger::log_event("M3UAState's been changed to AssocActive.");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_ASPTM_ASPIAAck:
+      TTCN_Logger::log_event("type: ASPTM_ASPIAAck -> nothing will be sent");
+      close_log_event();
+      break;
+    default:
+      TTCN_Logger::log_event("Unsupported M3UA msg type %x of class ASPSM-> packet dropped.", (unsigned char)(inbuffer[M3UA_TYP_OFFS]));
+      close_log_event();
+      send_M3UA_error_msg( PAR_ERRC_UNSMT,  inbuffer[M3UA_TYP_OFFS]);
+      break;
+  }
+  return length - offset;
+}
+//------------
+
+//processing M3UA RKM msg
+int MTP3asp__PT_PROVIDER::processing_M3UA_RKM_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_RKM_msg");
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+  warn("Unsupported M3UA msg class M3UA_RKM -> packet dropped.");
+  return length - offset;
+}
+//------------
+
+//processing M3UA unsupported msg class
+int MTP3asp__PT_PROVIDER::processing_M3UA_unsupported_msg_class(unsigned char* inbuffer,int length)
+{
+  warn("Unsupported M3UA msg class -> packet dropped.");
+  send_M3UA_error_msg( PAR_ERRC_UNSMC, inbuffer[M3UA_CLS_OFFS] );
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+  return length - offset;
+}
+//------------
+
+// processing_M3UA_Transfer_msg  -  called if the msg class is "Transfer" i.e M3UA_MSG_CLS_TRNSFM:
+int MTP3asp__PT_PROVIDER::processing_M3UA_Transfer_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_M3UA_Transfer_msg");
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+  unsigned int recv_opc, recv_dpc,recv_si, recv_ni, recv_mp,recv_sls =0;
+  int param_length = 0;
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("decoded msg class: DataTrnsf, ");
+
+  switch (inbuffer[M3UA_TYP_OFFS]) //msg type
+  {
+    case M3UA_MSG_TYP_TRSNFM_DATA:
+      TTCN_Logger::log_event("msg type DATA, ");
+      while (offset <= length-8) //processing potential params
+      {
+        switch (inbuffer[offset++]) //1st octet of tag. Offset already incremented after the 'case' !
+        {
+          case PAR_PREFIX_COMMON:
+            TTCN_Logger::log_event (" DATA: COMMON parameter, ");
+            switch (inbuffer[offset++]) //2nd octet of tag
+            {
+              case PAR_ROUTING_CTX:
+                TTCN_Logger::log_event ("Routing Context (unsupported par) -> skipped), ");
+                //  Send back an error msg
+                skip_par_after_tag(inbuffer, offset);
+                break;
+              case PAR_CORREL_ID:
+                TTCN_Logger::log_event ("Correlation ID (unsupported par) -> skipped), ");
+                skip_par_after_tag(inbuffer, offset);
+                break;
+              default:
+                TTCN_Logger::log_event ("invalid COMMON param tag:0x%02x%02x -> skipped", PAR_PREFIX_COMMON, inbuffer[offset-1]);
+                skip_par_after_tag(inbuffer, offset);
+                break;
+            }
+          case PAR_PREFIX_M3UA:
+            TTCN_Logger::log_event ("DATA: M3UA parameter: ");
+            switch (inbuffer[offset++]) //2nd octet of M3UA tag
+            {
+              case PAR_PROT_DATA:
+                //---------------------------------------------
+                TTCN_Logger::log_event ("Protocol Data");
+                // retrieving length
+                param_length = decode_16b_int(inbuffer+offset); offset+=2;
+                TTCN_Logger::log_event(", DATA: Length of Protocol Data parameter is %d",param_length);
+                //  retrieving M3UA protocol data paremeter opc, dpc, si, ni, mp,
+                //  sls
+                recv_opc = decode_32b_int(inbuffer+offset); offset +=4;
+                recv_dpc = decode_32b_int(inbuffer+offset); offset +=4;
+                recv_si = (unsigned int)(inbuffer[offset++]);
+                recv_ni = (unsigned int)(inbuffer[offset++]);
+                recv_mp = (unsigned int)(inbuffer[offset++]);
+                recv_sls = (unsigned int)(inbuffer[offset++]);
+                TTCN_Logger::log_event(", DATA: decoded Protocol Data parameter:");
+                // filling up TTCN structure
+                if ((Loop==MTP3_ON) ||
+                    (!Filter) ||
+                    (Filter &&
+                     (recv_opc == (unsigned)Sut_Pc) && (recv_dpc == (unsigned)Tester_Pc) &&
+                     (recv_ni == (unsigned)mtp3_ni)
+                   ))
+                {
+                  ASP__MTP3__TRANSFERind recv_msg;
+                  MTP3__Field__sio recv_sio;
+                  recv_sio.ni()= int2bit(recv_ni,2);
+                  recv_sio.prio()= int2bit(recv_mp,2);
+                  recv_sio.si()= int2bit(recv_si,4);
+                  recv_msg.sio() = recv_sio;
+                  recv_msg.sls() = recv_sls;
+                  recv_msg.opc()= recv_opc;
+                  recv_msg.dpc() = recv_dpc;;
+                  recv_msg.data() = OCTETSTRING(param_length-16, // 16 octet paramheader + 5 routing label
+                  &inbuffer[offset]);
+                  recv_msg.log();
+                  close_log_event();
+                  incoming_message ( recv_msg );
+                  offset += param_length-16;
+                  return  length - offset;
+                }
+                else
+                {
+                  close_log_event();
+                  log("Either the received M3UA(OPC, DPC, SI) fields, or the embedded MTP3 rooting label (OPC, DPC) not matched with the filter setting -> packet dropped.");
+                  return  length - offset;
+                }
+                break;
+              default:
+                TTCN_Logger::log_event ("invalid M3UA  param tag:0x%02x%02x-> skipped", PAR_PREFIX_M3UA, inbuffer[offset-1]);
+                skip_par_after_tag(inbuffer, offset);
+            }
+            break;
+          default:
+            TTCN_Logger::log_event ("invalid 1st octet param tag:0x%02x in DATA (packet dropped)",inbuffer[offset-1]);
+            close_log_event();
+            return length -offset;
+            break;
+        }
+      }// Checking parameter tag (offset <length-8)
+      break;
+    default:
+      TTCN_Logger::log_event("Invalid M3UA msg class TransferMessage msg type %d -> packet dropped",
+                             (unsigned int)(inbuffer[M3UA_TYP_OFFS]));
+      close_log_event();
+      send_M3UA_error_msg( PAR_ERRC_UNSMT,  inbuffer[M3UA_TYP_OFFS]);
+      break;
+  }
+
+  return length -offset;
+}
+
+// Set M3UA SingleAPC -  Stores field Single Affected Point Code
+void MTP3asp__PT_PROVIDER::Set_M3UA_SingleAPC(unsigned int pc, unsigned char* apc_par)
+{
+  //setting par type to APC
+  apc_par[0] = PAR_PREFIX_COMMON;
+  apc_par[1] = PAR_AFFECTED_PC;
+  //setting the length to 4+4 = 8
+  apc_par[2] = 0x00;
+  apc_par[3] = 0x08;
+  //setting the mask
+  apc_par[4] = 0x00;
+  //setting the pc
+  encode_24b_int(apc_par+5,pc);
+}
+
+// Send DAVA DUNA to APCinDAUD
+void MTP3asp__PT_PROVIDER::Send_DAVA_DUNA_to_APCinDAUD(unsigned int dava_sep, unsigned char* inbuffer, int & offset)
+{
+  unsigned int length = decode_16b_int(inbuffer+offset);
+  offset +=2;
+  unsigned int current_pc;
+
+  //checking the length
+  if ((length < 8) || (length%4))
+  { warn("Invalid length in APC parameter -> not processed");
+    return;
+  }
+
+  for (unsigned int i = 4  ; i < length; i += 4)
+  {
+    if (inbuffer[offset++] == 0x00)  // mask===>single pc
+    {
+      current_pc = decode_24b_int(inbuffer+offset);
+      offset +=3;
+      if (dava_sep == current_pc) //dava
+      { Set_M3UA_SingleAPC(dava_sep, dava_1apc_msg+M3UA_MSG_OFFS);
+        log("DAVA will be sent for pc=%d", dava_sep);
+        send_msg(dava_1apc_msg, sizeof_dava_1apc_msg);
+      }
+      else //duna
+      { Set_M3UA_SingleAPC(current_pc, duna_1apc_msg+M3UA_MSG_OFFS);
+        log("DUNA will be sent for pc=%d", current_pc);
+        send_msg(duna_1apc_msg, sizeof_duna_1apc_msg);
+      }
+    }
+    else //masked pc
+    { warn("Unsupported  masking (mask=0x%02x) for PC=%d in APC parameter -> ignored",
+      inbuffer[offset-1], current_pc);
+    }
+  }
+  return;
+}
+
+// send M3UA error msg
+// send an eror msg with error_code. Additional parameter matches to the error code:
+void MTP3asp__PT_PROVIDER::send_M3UA_error_msg(unsigned int error_code, unsigned int add_par )
+{
+  encode_16b_int( error_msg+M3UA_MSG_OFFS+4, error_code);
+  encode_16b_int( error_msg+M3UA_MSG_OFFS+8, add_par);
+  send_msg(error_msg, sizeof_error_msg );
+};
+
+// Coder functions for M3UA:  int -> unsigned char array
+//------------------------------------------------------
+// Result:Less significant byte in highest address
+//        Most Significant Byte first (in lowest address) = MSB = Big Endian = Network Byte Order
+void MTP3asp__PT_PROVIDER::encode_32b_int(unsigned char *to, unsigned int from)
+{
+  to[3] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[0] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_32b_int(const unsigned char *from)
+{
+  return from[3] | (from[2] << 8) | (from[1] << 16) | (from[0] << 24);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_24b_int(unsigned char *to, unsigned int from)
+{
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[0] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_24b_int(const unsigned char *from)
+{
+  return from[2] | (from[1] << 8) | (from[0] << 16);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_16b_int(unsigned char *to, int from)
+{
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[0] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_16b_int(const unsigned char *from)
+{
+  return from[1] | (from[0] << 8);
+}
+//------------
+
+//skip par after tag
+void MTP3asp__PT_PROVIDER::skip_par_after_tag(unsigned char* inbuffer, int &offset)
+{
+  offset += decode_16b_int(inbuffer+offset)-2; //the length contains
+                                               //the param hdr. itself
+  if (offset%4) offset += 4-(offset%4); //skipping padding
+}
+//------------
+#endif
+
+
+
+#ifdef TARGET_TEST
+// --------------------------
+// Functions for Target testing
+// --------------------------
+// In case of target this function handles the received message
+void MTP3asp__PT_PROVIDER::message_incoming(const unsigned char* msg, int messageLength, int)
+{
+  OCTETSTRING rcvData = OCTETSTRING(messageLength, msg);
+
+  int msgType = oct2int(substr(rcvData,0,1));
+  switch (msgType)
+  {
+    case 0: //TRANSFERind message received
+      if(Tcp_is_up) //Registration was already performed
+      {
+        ASP__MTP3__TRANSFERind recv_msg;
+        MTP3__Field__sio recv_sio;
+        BITSTRING sio_bit = oct2bit(substr(rcvData,5,1));
+        recv_sio.ni()= substr(sio_bit,0,2);
+        recv_sio.prio()= substr(sio_bit,2,2);
+        recv_sio.si()= substr(sio_bit,4,4);
+        recv_msg.sio() = recv_sio;
+        recv_msg.opc() = oct2int(substr(rcvData,6,4));
+        recv_msg.dpc() = oct2int(substr(rcvData,10,4));
+        recv_msg.sls() = oct2int(substr(rcvData,14,1));
+        recv_msg.data() = substr(rcvData,15,rcvData.lengthof()-15);
+        if (Tcp_is_up == 1) //No unregistration ongoing
+          incoming_message(recv_msg);
+        else                //Unregistration ongoing
+          log("Received ASP_MTP3_TRANSFERind is ignored since unregistration is started.");
+      }
+      else
+        error("Message was received before successful registration in M3UA server.");
+      break;
+
+    case 4: //Status message received
+      {
+        int status = oct2int(substr(rcvData,5,1));
+        if(Tcp_is_up == 2) // Unregistration ongoing
+        {
+          const char * rcvDat = oct2str(rcvData);
+          log("Message \"%s\" received. Status = %i", rcvDat, status);
+          if (status == 2)
+          {
+            log("Unregistration performed.");
+            Tcp_is_up = 0;
+          }
+          else if (status == 3)
+            error("Unsuccessful unregistration.");
+          else if (status == 5) {
+            if(forward_status) {
+              incoming_message(ASP__MTP3__STATUS(NULL_VALUE));
+            }
+            else {
+              warn("Invalid STATUS message received from M3UA server with status code=%d.", status);
+            }
+          }
+        }
+        else if(Tcp_is_up == 1) // Active state
+        {
+          if (status == 5) {
+            if(forward_status) {
+              incoming_message(ASP__MTP3__STATUS(NULL_VALUE));
+            } 
+          }
+          else {
+            warn("Invalid STATUS message received from M3UA server with status code=%d.", status);
+          }
+        }
+        else // Registration ongoing
+        {
+          const char * rcvDat = oct2str(rcvData);
+          log("Message \"%s\" received. Status = %i", rcvDat, status);
+          if (status == 0)
+          {
+            log("Registration performed.");
+            Tcp_is_up = 1;
+          }
+          else {
+            error("Unsuccessful registration.");
+          }
+        }
+      }
+      break;
+    case 5:
+      {
+        if(forward_pause) incoming_message(ASP__MTP3__PAUSE(NULL_VALUE));
+      }
+      break;
+    case 6:
+      {
+        if(forward_resume) incoming_message(ASP__MTP3__RESUME(NULL_VALUE));
+      }
+      break;
+
+
+    default: //Unexpected message received
+      warn("Invalid message received from M3UA server.");
+  }
+}
+
+void  MTP3asp__PT_PROVIDER::Check_Target_TestPort_Variables()
+{
+  if (Sut_Pc==-1) error("Parameter SUT_Pc is not set.");
+  if (Tester_Pc==-1) error("Parameter TESTER_Pc is not set.");
+  if (!Ni_is_set) error("Parameter NI is not set.");
+  if (M3UA_version==0) error("Parameter M3UA_version cannot be set to 0 in TargetM3UA mode.");
+ 
+//packet header
+  header_descr = new PacketHeaderDescr( 1, 4, PacketHeaderDescr::Header_MSB);
+}
+
+void  MTP3asp__PT_PROVIDER::Check_Target_TestPort_Variables_STC()
+{
+  if( destinationname == NULL) error("Parameter DestinationName is not set in TargetSTC mode.");
+  
+  header_descr = new PacketHeaderDescr( 1, 4, PacketHeaderDescr::Header_MSB);
+}
+
+void MTP3asp__PT_PROVIDER::Target_user_map(const char *system_port)
+{
+  Tcp_is_up = 0;
+  Check_Target_TestPort_Variables();
+  map_user();
+
+  OCTETSTRING tcpData = int2oct(2,1); //Message type
+  if( destinationname == NULL)
+    tcpData = tcpData + int2oct(char2oct(system_port).lengthof()+15,4); //Length
+  else
+    tcpData = tcpData + int2oct(char2oct(destinationname).lengthof()+15,4);
+  tcpData = tcpData + int2oct(mtp3_ni,1);
+  tcpData = tcpData + int2oct(Sut_Pc,4);
+  tcpData = tcpData + int2oct(Tester_Pc,4);
+  tcpData = tcpData + int2oct(M3UA_version,1);
+  if( destinationname == NULL)
+    tcpData = tcpData + char2oct(system_port);
+  else
+    tcpData = tcpData + char2oct(destinationname);
+
+  send_outgoing((const unsigned char*)tcpData,tcpData.lengthof());
+
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  TTCN_Logger::log_event_str("Registration message sent: ");
+  tcpData.log();
+  TTCN_Logger::end_event();
+
+  int fd = get_socket_fd();
+  pollfd pollFd = { fd, POLLIN, 0 };
+  int nEvents = poll(&pollFd, 1, 3000 /* ms */);
+  if (nEvents == 0)
+    error("No response received for REGISTER message. Exiting after timeout.");
+  if (nEvents < 0 || (pollFd.revents & (POLLIN | POLLHUP)) == 0)
+    error("No response received for REGISTER message. Exiting after error (%d)",
+      (nEvents < 0) ? errno : 0);
+  Handle_Fd_Event(fd, TRUE, FALSE, FALSE);
+}
+
+void MTP3asp__PT_PROVIDER::TargetSTC_user_map(const char *system_port)
+{
+  Tcp_is_up = 0;
+  Check_Target_TestPort_Variables_STC();
+  map_user();
+
+  OCTETSTRING tcpData = int2oct(2,1); //Message type
+  tcpData = tcpData + int2oct(char2oct(destinationname).lengthof()+15,4);
+  tcpData = tcpData + int2oct(0,1);
+  tcpData = tcpData + int2oct(0,4);
+  tcpData = tcpData + int2oct(0,4);
+  tcpData = tcpData + int2oct(0,1);
+  tcpData = tcpData + char2oct(destinationname);
+
+  send_outgoing((const unsigned char*)tcpData,tcpData.lengthof());
+
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  TTCN_Logger::log_event_str("Registration message sent: ");
+  tcpData.log();
+  TTCN_Logger::end_event();
+
+  int fd = get_socket_fd();
+  pollfd pollFd = { fd, POLLIN, 0 };
+  int nEvents = poll(&pollFd, 1, 3000 /* ms */);
+  if (nEvents == 0)
+    error("No response received for REGISTER message. Exiting after timeout.");
+  if (nEvents < 0 || (pollFd.revents & (POLLIN | POLLHUP)) == 0)
+    error("No response received for REGISTER message. Exiting after error (%d)",
+      (nEvents < 0) ? errno : 0);
+  Handle_Fd_Event(fd, TRUE, FALSE, FALSE);
+}
+
+void MTP3asp__PT_PROVIDER::Target_user_unmap(const char *system_port)
+{
+  OCTETSTRING tcpData = int2oct(3,1); //Message type
+  tcpData = tcpData + int2oct(6,4); //Length
+  tcpData = tcpData + int2oct(0,1);
+  send_outgoing((const unsigned char*)tcpData,tcpData.lengthof());
+
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  TTCN_Logger::log_event_str("Unregistration message sent: ");
+  tcpData.log();
+  TTCN_Logger::end_event();
+
+  Tcp_is_up = 2; //Unregistration ongoing
+
+  while (Tcp_is_up == 2)
+  {
+    int fd = get_socket_fd();
+    pollfd pollFd = { fd, POLLIN, 0 };
+    int nEvents = poll(&pollFd, 1, 3000 /* ms */);
+    if (nEvents == 0)
+      error("No response received for UNREGISTER message. Exiting after timeout.");
+    if (nEvents < 0 || (pollFd.revents & (POLLIN | POLLHUP)) == 0)
+      error("No response received for UNREGISTER message. Exiting after error (%d)",
+        (nEvents < 0) ? errno : 0);
+    Handle_Fd_Event(fd, TRUE, FALSE, FALSE);
+  }
+  unmap_user();
+}
+#endif
+}
diff --git a/MTP3asp_CNL113337/demo/MTP3asp_PT.hh b/MTP3asp_CNL113337/demo/MTP3asp_PT.hh
new file mode 100644
index 0000000..340f24f
--- /dev/null
+++ b/MTP3asp_CNL113337/demo/MTP3asp_PT.hh
@@ -0,0 +1,249 @@
+///////////////////////////////////////////////////////////////////////////////
+//                                                                           //
+// Copyright Test Competence Center (TCC) ETH 2009                           //
+//                                                                           //
+// The copyright to the computer  program(s) herein  is the property of TCC. //
+// The program(s) may be used and/or copied only with the written permission //
+// of TCC or in accordance with  the terms and conditions  stipulated in the //
+// agreement/contract under which the program(s) have been supplied          //
+//                                                                           //
+///////////////////////////////////////////////////////////////////////////////
+//
+//  File:         MTP3asp_PT.hh
+//  Description:  Implementation of port MTP3asp_PT
+//                This test port is written to connect ttcn to SEA 
+//                according to specification ITU-T SS7 MTP3, ANSI, TCC, MPT, IETF, 
+//  Reference:    ITU-T Recommendation Q.704, RFC3332 
+//  Rev:          R11A01
+//  Prodnr:       CNL 113 337
+//  Updated:      2009-04-03
+//  Contact:      http://ttcn.ericsson.se
+
+
+#ifndef MTP3asp_PT_HH
+#define MTP3asp_PT_HH
+
+#include <TTCN3.hh>
+
+#ifdef TARGET_TEST
+#include "Abstract_Socket.hh"
+#endif
+
+#ifndef TARGET_TEST
+#include "mphclib.h"
+#endif
+
+
+#define MAXSIZE 1532 //+32 needed for M3UA
+#define MTP3_ON  1
+#define MTP3_OFF 0
+namespace MTP3asp__Types {
+  class ASP__MTP3__TRANSFERind;
+  class ASP__MTP3__PAUSE;
+  class ASP__MTP3__RESUME;
+  class ASP__MTP3__STATUS;
+  class ASP__MTP3__TRANSFERreq;
+}
+namespace MTP3asp__PortType {
+
+class MTP3asp__PT_PROVIDER : public PORT
+#ifdef TARGET_TEST
+    , public Abstract_Socket
+#endif
+ {
+protected:
+  // pointer to member: user_map/unmap methods
+  typedef void (MTP3asp__PT_PROVIDER::*usermap_t)(const char *system_port);
+  // pointer to member: user_connect methods
+  typedef void (MTP3asp__PT_PROVIDER::*userconnect_t)();
+  // pointer to member: interpreter methods
+#ifndef TARGET_TEST
+  typedef void (MTP3asp__PT_PROVIDER::*interpreter_t)(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con);
+
+  void M3UA_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con);
+  void M3UA_user_map(const char *system_port);
+  void M3UA_user_connect();
+  void M3UA_user_unmap(const char *system_port);
+  void MTP3_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con);
+  void MTP3_user_map(const char *system_port);  // common for MTP3 ITU and MTP3 ANSI
+  void MTP3_user_connect();
+  void MTP3_user_unmap(const char *system_port);// common for MTP3 ITU and MTP3 ANSI
+  void STC_user_connect();
+  void STC_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con);
+  void STC_user_map(const char *system_port);
+  void STC_user_unmap(const char *system_port);
+#endif
+#ifdef TARGET_TEST
+  //Map and unmap for target
+  void Target_user_map(const char *system_port);
+  void Target_user_unmap(const char *system_port);
+  void TargetSTC_user_map(const char *system_port);
+#endif
+  
+public:
+  MTP3asp__PT_PROVIDER(const char *par_port_name=NULL);
+  ~MTP3asp__PT_PROVIDER();
+  
+  typedef enum { MTP3itu, MTP3ansi, MTP3ttc, MTP3mpt, M3UA, TargetM3UA, MTP3bttc,MTP3iup, STC, TargetSTC } MTPServiceType_t ;
+
+  MTPServiceType_t MTPServiceType ; // ctor default is MTP3itu
+  void set_parameter(const char *parameter_name, const char *parameter_value);
+  void error(const char *msg, ...);
+  void log(const char *msg, ...);
+#ifndef TARGET_TEST
+  void user_connect();
+
+  void set_channel(int chnl) {channel=chnl;};
+  void MTP3_open_channel(boolean http);
+  void MTP3_close_connection();
+
+  boolean wait_for_open();
+  int conn_state;
+
+  interpreter_t interpreter; // pointer to interpreter members, ctor default is MTP3_ITU_interpreter
+  void doInterpret(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con)
+  { (this->*interpreter)(inbuffer,length,from_channel, con); }
+#endif
+  //parameter handling
+  boolean dynamicConnection, connectionUp;
+  char *hostname;
+  int httpport;
+  char *entityname;
+  int MTP_fd;
+
+protected: 
+  void user_map(const char *system_port);
+  void user_unmap(const char *system_port);
+
+  void debuglog(const char *msg, ...);
+  void warn(const char *msg, ...);
+  void close_log_event();
+
+  usermap_t user_map_p ; //  pointer to user_map members, default is MTP3itu
+  usermap_t user_unmap_p; // pointer to user_unmap members, default is MTP3itu
+  userconnect_t user_connect_p;
+
+  void user_start();
+  void user_stop();
+  
+  void outgoing_send(const MTP3asp__Types::ASP__MTP3__TRANSFERreq& send_par);
+  virtual void incoming_message
+    (const MTP3asp__Types::ASP__MTP3__TRANSFERind& incoming_par) = 0;
+  virtual void incoming_message
+    (const MTP3asp__Types::ASP__MTP3__PAUSE& incoming_par) = 0;
+  virtual void incoming_message
+    (const MTP3asp__Types::ASP__MTP3__RESUME& incoming_par) = 0;
+  virtual void incoming_message
+    (const MTP3asp__Types::ASP__MTP3__STATUS& incoming_par) = 0;
+#ifndef TARGET_TEST
+  void encode_56bLSB_int(unsigned char *to, unsigned long long int from);
+  long long unsigned int decode_56bLSB_int(const unsigned char *from);
+  void encode_48bLSB_int(unsigned char *to, unsigned long long int from);
+  long long unsigned int decode_48bLSB_int(const unsigned char *from);
+  void encode_40bLSB_int(unsigned char *to, unsigned long long int from);
+  long long unsigned int decode_40bLSB_int(const unsigned char *from);
+  void encode_32bLSB_int(unsigned char *to, unsigned int from);
+  unsigned int decode_32bLSB_int(const unsigned char *from);
+  void encode_24bLSB_int(unsigned char *to, int from);
+  unsigned int decode_24bLSB_int(const unsigned char *from);
+  void encode_16bLSB_int(unsigned char *to, int from);
+  unsigned int decode_16bLSB_int(const unsigned char *from);
+  void encode_32b_int(unsigned char *to, unsigned int from);
+  unsigned int decode_32b_int(const unsigned char *from);
+  void encode_24b_int(unsigned char *to, unsigned int from);
+  unsigned int decode_24b_int(const unsigned char *from);
+  void encode_16b_int(unsigned char *to, int from);
+  unsigned int decode_16b_int(const unsigned char *from);
+  void skip_par_after_tag(unsigned char* inbuffer, int &offset);
+
+  void GetPointCodes(unsigned int &sls,unsigned int &opc,unsigned int &dpc, unsigned char* msg);
+  void GetPointCodesIUP(unsigned int &cic,unsigned int &opc,unsigned int &dpc, unsigned char* msg);
+  void SetPointCodes(unsigned int sls, unsigned int opc, unsigned int dpc, unsigned char* msg);
+  void SetPointCodesIUP(unsigned int cic, unsigned int opc, unsigned int dpc, unsigned char* msg);
+  int  ChangePointCodes(unsigned char* outbuff, unsigned char *inbuff, int len);
+  void Set_M3UA_SingleAPC(unsigned int pc, unsigned char* apc_par); //for ITU and ANSI
+  bool Check_M3UA_SingleITUAPC(unsigned int pc, unsigned char* apc_par);
+  void Send_DAVA_DUNA_to_APCinDAUD(unsigned int dava_sep, unsigned char* inbuffer, int &offset );
+  void processing_MTP3_management_msg(unsigned char* inbuff,int len);
+  void processing_MTP3_test_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_MGMT_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_Transfer_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_SSNM_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_ASPSM_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_ASPTM_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_RKM_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_unsupported_msg_class(unsigned char* inbuff,int len);
+  int  Check_PcMatch(unsigned int opc, unsigned int dpc, unsigned char *buff);
+  void send_msg(unsigned char *outbuff, int length);
+  void send_M3UA_error_msg(unsigned int error_code, unsigned int add_par );
+  void Check_TestPort_Variables();
+  void Check_TestPort_Variables_STC();
+#endif
+#ifdef TARGET_TEST
+  void Check_Target_TestPort_Variables();
+  void Check_Target_TestPort_Variables_STC();
+
+  //Functions for abstract socket handling
+  void message_incoming(const unsigned char*, int length, int client_id = -1);
+  void Add_Fd_Read_Handler(int fd) { Handler_Add_Fd_Read(fd); }
+  void Add_Fd_Write_Handler(int fd) { Handler_Add_Fd_Write(fd); }
+  void Remove_Fd_Read_Handler(int fd) { Handler_Remove_Fd_Read(fd); }
+  void Remove_Fd_Write_Handler(int fd) { Handler_Remove_Fd_Write(fd); }
+  void Remove_Fd_All_Handlers(int fd) { Handler_Remove_Fd(fd); }
+  void Handler_Uninstall() { Uninstall_Handler(); }
+  void Timer_Set_Handler(double call_interval, boolean is_timeout = TRUE,
+    boolean call_anyway = TRUE, boolean is_periodic = TRUE) {
+    Handler_Set_Timer(call_interval, is_timeout, call_anyway, is_periodic);
+  }
+  const char* local_address_name() { return "localIPAddr";}
+  const char* local_port_name()    { return "localPort";}
+  const char* remote_address_name(){ return "M3UAtarget_TCP_IPAddr";}
+  const char* remote_port_name()   { return "M3UAtarget_TCP_Port";}
+  const char* halt_on_connection_reset_name(){ return "halt_on_connection_reset";}
+  const char* server_mode_name()   { return "client_mode";}
+  const char* socket_debugging_name(){ return "socket_debugging";}
+  const char* nagling_name()       { return "nagling";}
+  const char* server_backlog_name(){ return "server_backlog";}
+  const PacketHeaderDescr* Get_Header_Descriptor() const {return header_descr;}
+#endif
+
+private:
+    void Handle_Fd_Event(int fd, boolean is_readable, boolean is_writable, boolean is_error);
+    void Handle_Timeout(double time_since_last_call);
+
+    unsigned char M3UA_version;
+    int channel;
+    unsigned char buffer[MAXSIZE];
+    char *destinationname;
+    char *iid_string;
+    boolean Ni_is_set;
+    int Loop,Filter,Sut_Pc,Tester_Pc;
+    typedef enum { AssocDown, AssocEstabl, AssocInac, AssocActive} M3UAStateType_t;
+    M3UAStateType_t M3UAState;
+    int mtp3_ni; // network indicator in case of MTP3
+    int stored_bttc_octet; // used for storage of an additional first byte in MTP3bttc
+    
+#ifndef TARGET_TEST
+    MPH_IID iid;
+    CONNECTION *myConnection;
+#endif
+    bool forward_resume, forward_pause, forward_status;
+#ifdef TARGET_TEST
+    int Tcp_is_up;
+    PacketHeaderDescr *header_descr;
+    bool is_packet_hdr_length_offset, is_packet_hdr_nr_bytes_in_length,
+	    is_packet_hdr_byte_order;
+    int packet_hdr_length_offset, packet_hdr_nr_bytes_in_length;
+    PacketHeaderDescr::HeaderByteOrder packet_hdr_byte_order;
+#endif
+};
+
+extern BOOLEAN f__MTP3__SEA__connect__extern
+  (MTP3asp__PT_PROVIDER& portRef, const CHARSTRING& Hostname,
+   const INTEGER& Port, const CHARSTRING& EntityName,const BOOLEAN& Http);
+
+extern BOOLEAN f__MTP3__SEA__disconnect__extern
+  (MTP3asp__PT_PROVIDER& portRef);
+
+}
+#endif
diff --git a/MTP3asp_CNL113337/demo/MTP3asp_PortType.ttcn b/MTP3asp_CNL113337/demo/MTP3asp_PortType.ttcn
new file mode 100644
index 0000000..86b7a83
--- /dev/null
+++ b/MTP3asp_CNL113337/demo/MTP3asp_PortType.ttcn
@@ -0,0 +1,61 @@
+///////////////////////////////////////////////////////////////////////////////
+//                                                                           //
+// Copyright Test Competence Center (TCC) ETH 2008                           //
+//                                                                           //
+// The copyright to the computer  program(s) herein  is the property of TCC. //
+// The program(s) may be used and/or copied only with the written permission //
+// of TCC or in accordance with  the terms and conditions  stipulated in the //
+// agreement/contract under which the program(s) have been supplied          //
+//                                                                           //
+///////////////////////////////////////////////////////////////////////////////
+//
+//  File:         MTP3asp_PortType.ttcn
+//  Reference:    ITU-T Recommendation Q.704, RFC3332 
+//  Rev:          R11A01
+//  Prodnr:       CNL 113 337
+//  Updated:      2008-02-07
+//  Contact:      http://ttcn.ericsson.se
+
+module MTP3asp_PortType
+{
+
+  import from MTP3asp_Types all;
+// *************************************************************************
+// *  MTP3 port type definitions                                           *
+// *************************************************************************
+
+    // MTP3 port type used by the component up to the MTP3 SAP
+    // (eg. any component connected to the MTP3 test port)
+    type port MTP3asp_PT message
+     {
+      in  ASP_MTP3_TRANSFERind;
+      in  ASP_MTP3_PAUSE;
+      in  ASP_MTP3_RESUME;
+      in  ASP_MTP3_STATUS;
+      out ASP_MTP3_TRANSFERreq;
+     } with {extension "provider"}
+
+    // MTP3 port type used by the component up to the MTP3 SAP
+    // (e.g. the distribution component)
+    type port MTP3asp_SP_PT message
+     {
+      in  ASP_MTP3_TRANSFERreq;
+      out ASP_MTP3_TRANSFERind;
+     }
+      with {extension "internal"}
+
+//Connecting functions
+//----------------------------
+external function f_MTP3_SEA_connect
+ ( inout MTP3asp_PT  portRef, 
+   in charstring  Hostname,
+   in integer     Port,
+   in charstring  EntityName,
+   in boolean     Http //or MPH Port is provided  
+ )return boolean;
+
+external function f_MTP3_SEA_disconnect
+ ( inout MTP3asp_PT  portRef
+ )return boolean;
+
+}//eof module
diff --git a/MTP3asp_CNL113337/demo/MTP3asp_Types.ttcn b/MTP3asp_CNL113337/demo/MTP3asp_Types.ttcn
new file mode 100644
index 0000000..e96f420
--- /dev/null
+++ b/MTP3asp_CNL113337/demo/MTP3asp_Types.ttcn
@@ -0,0 +1,324 @@
+///////////////////////////////////////////////////////////////////////////////
+//                                                                           //
+// Copyright Test Competence Center (TCC) ETH 2006                           //
+//                                                                           //
+// The copyright to the computer  program(s) herein  is the property of TCC. //
+// The program(s) may be used and/or copied only with the written permission //
+// of TCC or in accordance with  the terms and conditions  stipulated in the //
+// agreement/contract under which the program(s) have been supplied          //
+//                                                                           //
+///////////////////////////////////////////////////////////////////////////////
+//
+//  File:         MTP3asp_Types.ttcn
+//  Description:  CCSS7 Message Transfer Part primitive (ASP) definitions
+//                according to specification ITU-T SS7 MTP3,
+//  Reference:    ITU-T Recommendation Q.704, RFC3332, ANSI T.1.111.1-2001, TCC 
+//  Rev:          R11A01
+//  Prodnr:       CNL 113 337
+//  Updated:      2007-09-17
+//  Contact:      http://ttcn.ericsson.se
+//
+module MTP3asp_Types.objid 
+  { 
+    itu_t(0) identified_organization (4) etsi(0) reserved(127)
+    etsi_identified_organization(0) ericsson(5) testing (0)
+    generic(0) mtp3(0) v96(3) aspDefinitions(3) patchNo(0)
+  }
+
+{//start of the module
+
+// *************************************************************************
+//  External encoding/decoding functions
+// *************************************************************************
+
+external function enc_MTP3_to_M3UAserver_msg (in MTP3_to_M3UAserver_msg pdu)
+  return octetstring
+  with { extension "prototype(convert)"
+         extension "encode(RAW)"
+       };
+
+external function dec_MTP3_to_M3UAserver_msg(in octetstring stream)
+   return MTP3_to_M3UAserver_msg
+  with { extension "prototype(convert)"
+         extension "decode(RAW)"
+       };
+
+
+// *************************************************************************
+// *  Type Definitions Part                                                *
+// *************************************************************************
+group Types
+{
+  group MessageTypes
+  {
+    group ASPs
+    {
+    //***********************************************************************
+    //*  ASP type definitions                                               *
+    //*          Note, that ASP types shall be TTCN-3 definitions to allow  *
+    //*          the use of anytype in the data field                       *
+    //***********************************************************************
+
+      type record MTP3_Field_sio
+      {
+        bitstring ni   length(2),
+        bitstring prio length(2),
+        bitstring si   length(4)
+      } with { variant "FIELDORDER(msb)";
+             };
+      
+      type record ASP_MTP3_TRANSFERind
+      {
+        MTP3_Field_sio    sio,
+        integer           opc,
+        integer           dpc,
+        integer           sls,
+        octetstring       data
+      } with { variant (opc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (dpc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (sls) "FIELDLENGTH(8)"
+             };
+
+      type record ASP_MTP3_PAUSE {};
+
+      type record ASP_MTP3_RESUME {};
+
+      type record ASP_MTP3_STATUS {};
+
+      type record ASP_MTP3_TRANSFERreq
+      {
+        MTP3_Field_sio    sio,
+        integer           opc,
+        integer           dpc,
+        integer           sls,
+        octetstring       data
+      } with { variant (opc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (dpc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (sls) "FIELDLENGTH(8)"
+             };
+    }//end group ASPs
+
+    //***********************************************************************
+    //* Type definition of the message which is sent between MTP3 test port *
+    //*  and SCTP server over TCP.                                          *
+    //***********************************************************************
+    group MTP3_SCTPserver
+    {
+      type record ASP_REGISTER_M3UA
+      {
+        integer     ni (0..3),
+        integer     sut_pc,
+        integer     tester_pc,
+        integer     m3ua_version,
+        charstring  entity
+      } with { variant (ni) "FIELDLENGTH(8)";
+               variant (sut_pc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (tester_pc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (m3ua_version) "FIELDLENGTH(8)"
+      };
+      
+      
+      // Possible values:
+      // MTP3_to_SCTPserver_data/status:
+      const integer reg_ok_status      := 0;
+      const integer reg_error_status   := 1;
+      const integer unreg_ok_status    := 2;
+      const integer unreg_error_status := 3;
+
+      const integer send_error_status  := 5;
+      const integer kill_status        := 255;
+      
+      // MTP3_to_SCTPserver_data/pause:
+      const integer SCTP_COMLOST_pause := 0;
+      const integer M3UA_ASPDN_pause   := 1;
+      const integer M3UA_ASPIA_pause   := 2;
+      
+      // MTP3_to_SCTPserver_data/resume:
+      const integer ok_resume := 0;
+      
+      type union MTP3_to_SCTPserver_data
+      {
+        ASP_MTP3_TRANSFERind transfer_ind,
+        ASP_MTP3_TRANSFERreq transfer_req,
+        ASP_REGISTER_M3UA    register,
+        integer              unregister (0..255),
+        integer              status (0..255),
+        integer              pause (0..255),
+        integer              resume (0..255)
+      }
+      
+      // MTP3_to_M3UAserver_msg/msgType:
+      const integer transfer_ind_msgType := 0;
+      const integer transfer_req_msgType := 1;
+      const integer register_msgType     := 2;
+      const integer unregister_msgType   := 3;
+      const integer status_msgType       := 4;
+      const integer pause_msgType        := 5;
+      const integer resume_msgType       := 6;
+      
+      type record MTP3_to_M3UAserver_msg
+      {
+        integer                 msgType (0..255),
+        integer                 msgLength,
+        MTP3_to_SCTPserver_data data
+      } with { variant (data) "CROSSTAG(
+                              transfer_ind, msgType = transfer_ind_msgType;
+                              transfer_req, msgType = transfer_req_msgType;
+                              register,     msgType = register_msgType;
+                              unregister,   msgType = unregister_msgType;
+                              status,       msgType = status_msgType;
+                              pause,        msgType = pause_msgType;
+                              resume,       msgType = resume_msgType )";
+               variant (msgLength) "FIELDLENGTH(32)";
+               variant (msgLength) "LENGTHTO(msgType,msgLength,data)";
+               variant (msgLength) "BYTEORDER(last)"
+             };
+    }//end group MTP3_SCTPserver
+  }//end group Messagetypes
+} with {encode "RAW"}//Types
+
+group Templates
+{
+  group MessageTemplates
+  {
+    group ASPtemplates
+    {
+    // *******************************************************************
+    // *   ASP template definitions                                      *
+    // *******************************************************************
+
+    // Base templates 
+    // These general templates can be used as an example or as a base
+    // template for other templates.
+      template ASP_MTP3_TRANSFERind t_ASP_MTP3_TRANSFERind
+      ( 
+        template MTP3_Field_sio pl_SIO,
+        template integer        pl_OPC,
+        template integer        pl_DPC,
+        template integer        pl_SLS,
+        template octetstring    pl_data
+      ):=
+      {
+        sio  := pl_SIO,
+        opc  := pl_OPC,
+        dpc  := pl_DPC,
+        sls  := pl_SLS,
+        data := pl_data 
+      }
+    
+      template ASP_MTP3_TRANSFERind tr_ASP_MTP3_TRANSFERind_sio
+      ( 
+       template bitstring      pl_NI,
+       template bitstring      pl_PRIO,
+       template bitstring      pl_SI,
+       template integer        pl_OPC,
+       template integer        pl_DPC,
+       template integer        pl_SLS,
+       template octetstring    pl_data
+      ):=
+      {
+        sio  := 
+        {
+          ni := pl_NI,
+          prio := pl_PRIO,
+          si := pl_SI
+        },
+        opc  := pl_OPC,
+        dpc  := pl_DPC,
+        sls  := pl_SLS,
+        data := pl_data 
+      }
+    
+      template ASP_MTP3_TRANSFERind tr_ASP_MTP3_TRANSFERind :=
+      {
+        sio  := ?,
+        opc  := ?,
+        dpc  := ?,
+        sls  := ?,
+        data := ?
+      }
+
+      template ASP_MTP3_TRANSFERreq t_ASP_MTP3_TRANSFERreq
+      ( 
+        MTP3_Field_sio pl_SIO,
+        integer        pl_OPC,
+        integer        pl_DPC,
+        integer        pl_SLS,
+        octetstring    pl_data
+      ):=
+      {
+        sio  := pl_SIO,
+        opc  := pl_OPC,
+        dpc  := pl_DPC,
+        sls  := pl_SLS,
+        data := pl_data 
+      }
+
+      template ASP_MTP3_TRANSFERreq tr_ASP_MTP3_TRANSFERreq_sio
+      ( 
+       template bitstring      pl_NI,
+       template bitstring      pl_PRIO,
+       template bitstring      pl_SI,
+       template integer        pl_OPC,
+       template integer        pl_DPC,
+       template integer        pl_SLS,
+       template octetstring    pl_data
+      ):=
+      {
+        sio  := 
+        {
+          ni := pl_NI,
+          prio := pl_PRIO,
+          si := pl_SI
+        },
+        opc  := pl_OPC,
+        dpc  := pl_DPC,
+        sls  := pl_SLS,
+        data := pl_data 
+      }
+
+      template ASP_MTP3_TRANSFERreq tr_ASP_MTP3_TRANSFERreq :=
+      {
+        sio  := ?,
+        opc  := ?,
+        dpc  := ?,
+        sls  := ?,
+        data := ? 
+      }
+    
+      template ASP_MTP3_TRANSFERind tr_ASP_MTP3_TRANSFERind_stc :=
+      {
+        sio  := 
+        {
+          ni := '00'B,
+          prio := '00'B,
+          si := '0000'B
+        },
+        opc  := 0,
+        dpc  := 0,
+        sls  := 0,
+        data := ? 
+      }
+    
+      template ASP_MTP3_TRANSFERreq t_ASP_MTP3_TRANSFERreq_stc
+      ( template octetstring    pl_data ):=
+      {
+        sio  := 
+        {
+          ni := '00'B,
+          prio := '00'B,
+          si := '0000'B
+        },
+        opc  := 0,
+        dpc  := 0,
+        sls  := 0,
+        data := pl_data 
+      }
+    
+    }//end group ASPtemplates
+  }//end group Messagetemplates
+}//end group Templates
+
+}//end module
+
+
diff --git a/MTP3asp_CNL113337/demo/Makefile b/MTP3asp_CNL113337/demo/Makefile
new file mode 100644
index 0000000..53b19d3
--- /dev/null
+++ b/MTP3asp_CNL113337/demo/Makefile
@@ -0,0 +1,353 @@
+# This Makefile was generated by the compiler
+# of the TTCN-3 Test Executor version 1.4.pl3
+# for Attila Balasko (ethbaat@duna199) on Mon Sep 15 15:48:45 2003
+
+# Copyright 2000-2003 Conformance Center, Ericsson R & D, Hungary
+# Please send bug reports and comments to Szabo.Janos@eth.ericsson.se
+
+# The following make commands are available:
+# - make, make all       Builds the executable test suite.
+# - make compile         Translates TTCN-3 and ASN.1 modules to C++.
+# - make clean           Removes all generated files.
+# - make dep             Creates/updates dependency list.
+# - make archive         Archives all source files.
+
+#
+# Set these variables...
+#
+
+# The path of your TTCN-3 Test Executor installation:
+# Uncomment this line to override the environment variable.
+# TTCN3_DIR =
+
+# Your platform: (SOLARIS, LINUX, FREEBSD or WIN32)
+PLATFORM = SOLARIS8
+
+# Your C++ compiler:
+CXX = g++
+
+# Flags for the C++ preprocessor (and makedepend as well):
+CPPFLAGS = -D$(PLATFORM) -I$(TTCN3_DIR)/include -I$(SEA_DIR)/include
+
+# Flags for the C++ compiler:
+CXXFLAGS = -Wall
+
+# Flags for the linker:
+LDFLAGS =
+
+# Flags for the TTCN-3 and ASN.1 compiler:
+COMPILER_FLAGS = -L
+
+# Execution mode: (either ttcn3 or ttcn3-parallel)
+TTCN3_LIB = ttcn3-parallel
+
+# The path of your OpenSSL installation:
+# If you do not have your own one, leave it unchanged.
+OPENSSL_DIR = $(TTCN3_DIR)
+
+# Directory to store the archived source files:
+# Note: you can set any directory except ./archive
+ARCHIVE_DIR = ./backup
+
+SEA_DIR = /vobs/ttcn/TCC_Releases/Other/SEA_LATEST
+#
+# You may change these variables. Add your files if necessary...
+#
+
+# The TTCN-3 modules needed for this project:
+TTCN3_MODULES = mtp3test.ttcn MTP3asp_Types.ttcn MTP3asp_PortType.ttcn
+# The ASN.1 modules needed for this project:
+ASN1_MODULES =
+
+# C++ source & header files generated by TTCN-3 & ASN.1 compilers:
+GENERATED_SOURCES = $(TTCN3_MODULES:.ttcn=.cc)
+GENERATED_HEADERS = $(GENERATED_SOURCES:.cc=.hh)
+# Source & header files of Test Ports and your other modules:
+USER_SOURCES = MTP3asp_PT.cc
+USER_HEADERS = MTP3asp_PT.hh
+
+# All object files needed for the executable test suite:
+#OBJECTS = mtp3test.o MTP3_ASPs.o general_typedefs.o MTP3user_porttype.o
+OBJECTS = $(GENERATED_SOURCES:.cc=.o) $(USER_SOURCES:.cc=.o) 
+# The name of the executable test suite:
+TARGET = mtp3test
+
+#The names of the config files (to archive):
+TARGET_CONFIGS = mtp3test_MTP3_ansi2.cfg
+#
+# Do not modify these unless you know what you are doing...
+#
+SOLARIS_LIBS = -lxnet
+LINUX_LIBS =
+FREEBSD_LIBS =
+WIN32_LIBS =
+
+#
+# Rules for building the executable...
+#
+all: $(TARGET) ;
+
+$(TARGET): $(OBJECTS)
+	$(CXX) $(LDFLAGS) -o $@ $(OBJECTS) \
+        -L$(TTCN3_DIR)/lib -l$(TTCN3_LIB) \
+	-L$(OPENSSL_DIR)/lib -lcrypto $($(PLATFORM)_LIBS) $(SEA_DIR)/lib/libmphclib.a -lxml2
+
+.cc.o .c.o:
+	$(CXX) -c $(CPPFLAGS) $(CXXFLAGS) $<
+
+$(GENERATED_SOURCES) $(GENERATED_HEADERS): compile
+	@if [ ! -f $@ ]; then $(RM) compile; $(MAKE) compile; fi
+
+compile: $(TTCN3_MODULES) $(ASN1_MODULES)
+	$(TTCN3_DIR)/bin/compiler $(COMPILER_FLAGS) $(TTCN3_MODULES) \
+	$(ASN1_MODULES) - $?
+	touch $@
+
+clean:
+	-$(RM) $(TARGET) $(OBJECTS) $(GENERATED_HEADERS) \
+	$(GENERATED_SOURCES) compile *.log
+
+dep: $(GENERATED_SOURCES)
+	makedepend $(CPPFLAGS) $(USER_SOURCES) $(GENERATED_SOURCES)
+
+archive:
+	mkdir -p $(ARCHIVE_DIR)
+	tar -cvhf - $(TTCN3_MODULES) $(ASN1_MODULES) \
+	$(USER_HEADERS) $(USER_SOURCES) $(TARGET_CONFIGS) Makefile \
+	| gzip >$(ARCHIVE_DIR)/$(TARGET)-`date '+%y%m%d-%H%M'`.tgz
+
+#
+# Add your rules here if necessary...
+#
+
+# DO NOT DELETE
+
+MTP3asp_PT.o: /usr/include/stdio.h /usr/include/iso/stdio_iso.h
+MTP3asp_PT.o: /usr/include/sys/feature_tests.h /usr/include/sys/isa_defs.h
+MTP3asp_PT.o: /usr/include/sys/va_list.h /usr/include/stdio_tag.h
+MTP3asp_PT.o: /usr/include/stdio_impl.h /usr/include/stdlib.h
+MTP3asp_PT.o: /usr/include/iso/stdlib_iso.h /usr/include/sys/types.h
+MTP3asp_PT.o: /usr/include/sys/machtypes.h /usr/include/sys/int_types.h
+MTP3asp_PT.o: /usr/include/sys/select.h /usr/include/sys/time.h
+MTP3asp_PT.o: /usr/include/time.h /usr/include/iso/time_iso.h
+MTP3asp_PT.o: /usr/include/netinet/in.h /usr/include/sys/stream.h
+MTP3asp_PT.o: /usr/include/sys/vnode.h /usr/include/sys/t_lock.h
+MTP3asp_PT.o: /usr/include/sys/machlock.h /usr/include/sys/param.h
+MTP3asp_PT.o: /usr/include/sys/unistd.h /usr/include/sys/mutex.h
+MTP3asp_PT.o: /usr/include/sys/rwlock.h /usr/include/sys/semaphore.h
+MTP3asp_PT.o: /usr/include/sys/condvar.h /usr/include/sys/time_impl.h
+MTP3asp_PT.o: /usr/include/sys/cred.h /usr/include/sys/uio.h
+MTP3asp_PT.o: /usr/include/sys/resource.h /usr/include/vm/seg_enum.h
+MTP3asp_PT.o: /usr/include/sys/poll.h /usr/include/sys/strmdep.h
+MTP3asp_PT.o: /usr/include/sys/model.h /usr/include/sys/strft.h
+MTP3asp_PT.o: /usr/include/sys/byteorder.h /usr/include/netdb.h
+MTP3asp_PT.o: /usr/include/sys/socket.h /usr/include/sys/netconfig.h
+MTP3asp_PT.o: /usr/include/sys/un.h /usr/include/net/if_dl.h
+MTP3asp_PT.o: /usr/include/sys/wait.h /usr/include/sys/siginfo.h
+MTP3asp_PT.o: /usr/include/sys/machsig.h /usr/include/sys/procset.h
+MTP3asp_PT.o: /usr/include/unistd.h /usr/include/arpa/inet.h
+MTP3asp_PT.o: /usr/include/stdarg.h /usr/include/iso/stdarg_iso.h
+MTP3asp_PT.o: /usr/include/string.h /usr/include/iso/string_iso.h
+MTP3asp_PT.o: MTP3asp_PT.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/TTCN3.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/version.h
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Basetype.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Types.h
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Encdec.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Template.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Integer.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Optional.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/BER.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Logger.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Textbuf.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Error.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Parameters.h
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Float.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Boolean.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_Null.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Objid.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Verdicttype.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Component.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Bitstring.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/RAW.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Hexstring.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Octetstring.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_Any.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Charstring.hh
+MTP3asp_PT.o: /usr/include/regex.h
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Universal_charstring.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Struct_of.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Array.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_CharacterString.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_External.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_EmbeddedPDV.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Addfunc.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Timer.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Port.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Module_list.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Snapshot.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Default.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Runtime.hh
+MTP3asp_PT.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/TEXT.hh
+MTP3asp_PT.o: /vobs/ttcn/TCC_Releases/Other/SEA_LATEST/include/mphclib.h
+MTP3asp_PT.o: MTP3asp_Types.hh MTP3asp_PortType.hh
+mtp3test.o: mtp3test.hh MTP3asp_PortType.hh MTP3asp_Types.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/TTCN3.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/version.h
+mtp3test.o: /usr/include/string.h /usr/include/iso/string_iso.h
+mtp3test.o: /usr/include/sys/feature_tests.h /usr/include/sys/isa_defs.h
+mtp3test.o: /usr/include/stdio.h /usr/include/iso/stdio_iso.h
+mtp3test.o: /usr/include/sys/va_list.h /usr/include/stdio_tag.h
+mtp3test.o: /usr/include/stdio_impl.h
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Basetype.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Types.h
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Encdec.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Template.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Integer.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Optional.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/BER.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Logger.hh
+mtp3test.o: /usr/include/stdlib.h /usr/include/iso/stdlib_iso.h
+mtp3test.o: /usr/include/stdarg.h /usr/include/iso/stdarg_iso.h
+mtp3test.o: /usr/include/sys/time.h /usr/include/sys/types.h
+mtp3test.o: /usr/include/sys/machtypes.h /usr/include/sys/int_types.h
+mtp3test.o: /usr/include/sys/select.h /usr/include/time.h
+mtp3test.o: /usr/include/iso/time_iso.h
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Textbuf.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Error.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Parameters.h
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Float.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Boolean.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_Null.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Objid.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Verdicttype.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Component.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Bitstring.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/RAW.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Hexstring.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Octetstring.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_Any.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Charstring.hh
+mtp3test.o: /usr/include/regex.h
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Universal_charstring.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Struct_of.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Array.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_CharacterString.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_External.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_EmbeddedPDV.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Addfunc.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Timer.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Port.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Module_list.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Snapshot.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Default.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Runtime.hh
+mtp3test.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/TEXT.hh
+mtp3test.o: MTP3asp_PT.hh
+mtp3test.o: /vobs/ttcn/TCC_Releases/Other/SEA_LATEST/include/mphclib.h
+MTP3asp_Types.o: MTP3asp_Types.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/TTCN3.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/version.h
+MTP3asp_Types.o: /usr/include/string.h /usr/include/iso/string_iso.h
+MTP3asp_Types.o: /usr/include/sys/feature_tests.h /usr/include/sys/isa_defs.h
+MTP3asp_Types.o: /usr/include/stdio.h /usr/include/iso/stdio_iso.h
+MTP3asp_Types.o: /usr/include/sys/va_list.h /usr/include/stdio_tag.h
+MTP3asp_Types.o: /usr/include/stdio_impl.h
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Basetype.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Types.h
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Encdec.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Template.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Integer.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Optional.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/BER.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Logger.hh
+MTP3asp_Types.o: /usr/include/stdlib.h /usr/include/iso/stdlib_iso.h
+MTP3asp_Types.o: /usr/include/stdarg.h /usr/include/iso/stdarg_iso.h
+MTP3asp_Types.o: /usr/include/sys/time.h /usr/include/sys/types.h
+MTP3asp_Types.o: /usr/include/sys/machtypes.h /usr/include/sys/int_types.h
+MTP3asp_Types.o: /usr/include/sys/select.h /usr/include/time.h
+MTP3asp_Types.o: /usr/include/iso/time_iso.h
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Textbuf.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Error.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Parameters.h
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Float.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Boolean.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_Null.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Objid.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Verdicttype.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Component.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Bitstring.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/RAW.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Hexstring.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Octetstring.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_Any.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Charstring.hh
+MTP3asp_Types.o: /usr/include/regex.h
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Universal_charstring.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Struct_of.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Array.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_CharacterString.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_External.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_EmbeddedPDV.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Addfunc.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Timer.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Port.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Module_list.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Snapshot.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Default.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Runtime.hh
+MTP3asp_Types.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/TEXT.hh
+MTP3asp_PortType.o: MTP3asp_PortType.hh MTP3asp_Types.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/TTCN3.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/version.h
+MTP3asp_PortType.o: /usr/include/string.h /usr/include/iso/string_iso.h
+MTP3asp_PortType.o: /usr/include/sys/feature_tests.h
+MTP3asp_PortType.o: /usr/include/sys/isa_defs.h /usr/include/stdio.h
+MTP3asp_PortType.o: /usr/include/iso/stdio_iso.h /usr/include/sys/va_list.h
+MTP3asp_PortType.o: /usr/include/stdio_tag.h /usr/include/stdio_impl.h
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Basetype.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Types.h
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Encdec.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Template.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Integer.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Optional.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/BER.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Logger.hh
+MTP3asp_PortType.o: /usr/include/stdlib.h /usr/include/iso/stdlib_iso.h
+MTP3asp_PortType.o: /usr/include/stdarg.h /usr/include/iso/stdarg_iso.h
+MTP3asp_PortType.o: /usr/include/sys/time.h /usr/include/sys/types.h
+MTP3asp_PortType.o: /usr/include/sys/machtypes.h /usr/include/sys/int_types.h
+MTP3asp_PortType.o: /usr/include/sys/select.h /usr/include/time.h
+MTP3asp_PortType.o: /usr/include/iso/time_iso.h
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Textbuf.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Error.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Parameters.h
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Float.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Boolean.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_Null.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Objid.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Verdicttype.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Component.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Bitstring.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/RAW.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Hexstring.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Octetstring.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_Any.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Charstring.hh
+MTP3asp_PortType.o: /usr/include/regex.h
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Universal_charstring.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Struct_of.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Array.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_CharacterString.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_External.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/ASN_EmbeddedPDV.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Addfunc.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Timer.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Port.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Module_list.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Snapshot.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Default.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/Runtime.hh
+MTP3asp_PortType.o: /mnt/projects/TTCN/Releases/TTCNv3-1.7.pl2-gcc3.4.6/include/TEXT.hh
+MTP3asp_PortType.o: MTP3asp_PT.hh
+MTP3asp_PortType.o: /vobs/ttcn/TCC_Releases/Other/SEA_LATEST/include/mphclib.h
diff --git a/MTP3asp_CNL113337/demo/mtp3test.ttcn b/MTP3asp_CNL113337/demo/mtp3test.ttcn
new file mode 100644
index 0000000..1c84250
--- /dev/null
+++ b/MTP3asp_CNL113337/demo/mtp3test.ttcn
@@ -0,0 +1,292 @@
+////////////////////////////////////////////////////////////////////////////////
+//
+// Copyright Test Competence Center (TCC) ETH 2003
+//
+// The copyright to the computer  program(s) herein  is the property of TCC. //
+// The program(s) may be used and/or copied only with the written permission //
+// of TCC or in accordance with  the terms and conditions  stipulated in the //
+// agreement/contract under which the program(s) have been supplied
+//
+///////////////////////////////////////////////////////////////////////////////
+//
+//  File:         mtp3test.cc
+//  Description:  basic test for MTP3asp_PT
+//  Rev:          <RnXnn>
+//  Prodnr:       CNL 113 337 
+//  Updated:      2004.06.02
+//  Contact:      http://ttcn.ericsson.se
+ 
+
+module mtp3test
+{
+
+modulepar
+{
+  //mtp3test specific data:
+  //OCT1n   MTP3_UserPart_SIO;
+  MTP3_Field_sio MTP3_UserPart_SIO;
+  integer MTP3_UserPart_OPC,
+          MTP3_UserPart_DPC,
+          MTP3_UserPart_SLS
+};//modulepar 
+
+import from MTP3asp_Types all;
+import from MTP3asp_PortType all;
+
+/*************************************
+*   Components
+**************************************/
+
+/*
+****************  1:      2: ************************
+* MTP3UserPart * <---------> *   MTP3/M3UA in MSC   * 
+****************   (MTP3port)************************
+1: MTP3asp_PT MTP3_PCO  alias: e.g. CMGW6
+ 
+*/
+
+type record of MTP3UserPart_CT CompArray;
+
+type component MTC_CT
+{
+  port MTP3asp_PT MTC_PCO;
+  var  MTP3UserPart_CT  vc_MTP3UserPart_BSC1A;
+  var  MTP3UserPart_CT  vc_MTP3UserPart_BSC1B;
+  var  MTP3UserPart_CT  vc_MTP3UserPart_BSC1C;
+  var  MTP3UserPart_CT  vc_MTP3UserPart_CMGW3;
+  var  MTP3UserPart_CT  vc_MTP3UserPart_CMGW6;
+  var  MTP3UserPart_CT  vc_MTP3UserPart_CMGW9;
+  var  MTP3UserPart_CT  vc_compArray[6];
+};
+
+// Model of MSC:
+type component MSC_SCT
+{
+  port MTP3asp_PT  BSC1A;
+  port MTP3asp_PT  BSC1B;
+  port MTP3asp_PT  BSC1C;   
+  port MTP3asp_PT  CMGW3;
+  port MTP3asp_PT  CMGW6;
+  port MTP3asp_PT  CMGW9;
+};
+
+//Model of SS7 MTP3 User Part for Self Test. Only logs the messages
+type component MTP3UserPart_CT
+{
+  var ASP_MTP3_TRANSFERind  v_MTP3_TRANSFERind;
+  var ASP_MTP3_TRANSFERreq  v_MTP3_TRANSFERreq;
+  port MTP3asp_PT           MTP3_PCO;
+  // port ... to the upper layers
+} // end component type definition
+
+/*
+function MTC_delay(integer time) runs on MTC_CT {
+  timer t:=time;
+  t.start;
+  setverdict(none);
+  alt{ []t.timeout {} }
+ }
+*/
+
+function mtp3_selftest( ) runs on MTP3UserPart_CT 
+{    
+  timer t_Guard := 6.0;
+  log( "mtp3_selftest started");
+  t_Guard.start;
+  setverdict(none);
+  alt
+  { 
+    [] MTP3_PCO.receive ( ASP_MTP3_TRANSFERind:?)  -> value v_MTP3_TRANSFERind 
+      {
+        log("ASP_MTP3_TRANSFERind: received");
+        setverdict(pass);
+        repeat;
+      } 
+    [] MTP3_PCO.receive
+      {
+        log("Unknown signal received");
+        setverdict(pass);
+        repeat;
+      }
+    [] t_Guard.timeout 
+      { log("timeout reached");}
+  } //alt
+  log("mtp3_selftest finished");
+}
+
+function f_init( ) runs on MTC_CT
+{
+  vc_MTP3UserPart_BSC1A := MTP3UserPart_CT.create;
+  vc_MTP3UserPart_BSC1B := MTP3UserPart_CT.create;
+  vc_MTP3UserPart_BSC1C := MTP3UserPart_CT.create;
+  vc_MTP3UserPart_CMGW3 := MTP3UserPart_CT.create;
+  vc_MTP3UserPart_CMGW6 := MTP3UserPart_CT.create;
+  vc_MTP3UserPart_CMGW9 := MTP3UserPart_CT.create;
+
+  map(vc_MTP3UserPart_BSC1A:MTP3_PCO,system:BSC1A);
+  map(vc_MTP3UserPart_BSC1B:MTP3_PCO,system:BSC1B);
+  map(vc_MTP3UserPart_BSC1C:MTP3_PCO,system:BSC1C);
+  map(vc_MTP3UserPart_CMGW3:MTP3_PCO,system:CMGW3);
+  map(vc_MTP3UserPart_CMGW6:MTP3_PCO,system:CMGW6);
+  map(vc_MTP3UserPart_CMGW9:MTP3_PCO,system:CMGW9);
+
+  log("tc_3 map is ready");
+}
+
+function f_start() runs on MTC_CT
+{
+  vc_MTP3UserPart_BSC1A.start( mtp3userpart_test() );
+  vc_MTP3UserPart_BSC1B.start( mtp3userpart_test() );
+  vc_MTP3UserPart_BSC1C.start( mtp3userpart_test() );
+  vc_MTP3UserPart_CMGW3.start( mtp3userpart_test() );
+  vc_MTP3UserPart_CMGW6.start( mtp3userpart_test() );
+  vc_MTP3UserPart_CMGW9.start( mtp3userpart_test() );
+}
+
+function f_terminate() runs on MTC_CT
+{
+  all component.done;
+  unmap(vc_MTP3UserPart_BSC1A:MTP3_PCO,system:BSC1A);
+  unmap(vc_MTP3UserPart_BSC1B:MTP3_PCO,system:BSC1B);
+  unmap(vc_MTP3UserPart_BSC1C:MTP3_PCO,system:BSC1C);
+  unmap(vc_MTP3UserPart_CMGW3:MTP3_PCO,system:CMGW3);
+  unmap(vc_MTP3UserPart_CMGW6:MTP3_PCO,system:CMGW6);
+  unmap(vc_MTP3UserPart_CMGW9:MTP3_PCO,system:CMGW9);
+}
+
+function mtp3userpart_test( ) runs on MTP3UserPart_CT {
+  timer t_Guard := 5.0;
+  log( "mtp3userpart_test started");
+  v_MTP3_TRANSFERreq := 
+  {
+    sio := MTP3_UserPart_SIO,
+    opc := MTP3_UserPart_OPC,
+    dpc := MTP3_UserPart_DPC,
+    sls := 0,
+    data:= '010203040506070809000102030405060708090000010203040506070809000000'O
+  };
+  MTP3_PCO.send( v_MTP3_TRANSFERreq );
+  t_Guard.start;
+  setverdict(none);
+  alt 
+  {
+    [] MTP3_PCO.receive ( ASP_MTP3_TRANSFERind:? )  -> value v_MTP3_TRANSFERind
+      {
+        log("ASP_MTP3_TRANSFERind: received");
+        setverdict(pass);
+        repeat;
+      } 
+    [] MTP3_PCO.receive
+      {
+        log("Unknown signal received");
+        setverdict(pass);
+        repeat;
+      }
+    [] t_Guard.timeout
+      {
+        //setverdict(inconc);
+        log("timeout reached");
+      }
+  } //alt
+  log("mtp3userpart_test finished");
+}
+
+testcase tc_1() runs on MTC_CT system MSC_SCT
+{
+  log ("tc_1 started");
+  var MTP3UserPart_CT vc_MTP3userpart;
+  vc_MTP3userpart := MTP3UserPart_CT.create;
+  map(vc_MTP3userpart:MTP3_PCO, system:CMGW6);
+  log("map is ready");
+  vc_MTP3userpart.start( mtp3_selftest() );
+  //MTC_delay(6);
+  vc_MTP3userpart.done;
+  unmap(vc_MTP3userpart:MTP3_PCO, system:CMGW6);
+  log ("tc_1 finished");
+}
+
+// TC2: Testcase sending one simple message "MTP-transfer-req" and waiting
+testcase tc_2() runs on MTC_CT system MSC_SCT
+{
+  log ("tc_2 started");
+  var MTP3UserPart_CT vc_MTP3userpart;  
+  vc_MTP3userpart := MTP3UserPart_CT.create;
+  map(vc_MTP3userpart:MTP3_PCO, system:CMGW6);
+  log("map is ready");  
+  vc_MTP3userpart.start( mtp3userpart_test() );
+  //MTC_delay(6);  
+  vc_MTP3userpart.done;
+  unmap(vc_MTP3userpart:MTP3_PCO, system:CMGW6);
+  log ("tc_2 finished");
+}
+
+testcase tc_3() runs on MTC_CT system MSC_SCT
+{
+  log ("tc_3 started");
+  vc_MTP3UserPart_BSC1A := MTP3UserPart_CT.create;
+  vc_MTP3UserPart_BSC1B := MTP3UserPart_CT.create;
+  vc_MTP3UserPart_BSC1C := MTP3UserPart_CT.create;
+  vc_MTP3UserPart_CMGW3 := MTP3UserPart_CT.create;
+  vc_MTP3UserPart_CMGW6 := MTP3UserPart_CT.create;
+  vc_MTP3UserPart_CMGW9 := MTP3UserPart_CT.create;
+  
+  map(vc_MTP3UserPart_BSC1A:MTP3_PCO,system:BSC1A);
+  map(vc_MTP3UserPart_BSC1B:MTP3_PCO,system:BSC1B);
+  map(vc_MTP3UserPart_BSC1C:MTP3_PCO,system:BSC1C);
+  map(vc_MTP3UserPart_CMGW3:MTP3_PCO,system:CMGW3);
+  map(vc_MTP3UserPart_CMGW6:MTP3_PCO,system:CMGW6);
+  map(vc_MTP3UserPart_CMGW9:MTP3_PCO,system:CMGW9);
+  
+  log("tc_3 map is ready");  
+  vc_MTP3UserPart_BSC1A.start( mtp3userpart_test() );
+  vc_MTP3UserPart_BSC1B.start( mtp3userpart_test() );
+  vc_MTP3UserPart_BSC1C.start( mtp3userpart_test() );
+  vc_MTP3UserPart_CMGW3.start( mtp3userpart_test() );
+  vc_MTP3UserPart_CMGW6.start( mtp3userpart_test() );
+  vc_MTP3UserPart_CMGW9.start( mtp3userpart_test() );
+  
+  //MTC_delay(6);  
+  all component.done;
+  unmap(vc_MTP3UserPart_BSC1A:MTP3_PCO,system:BSC1A);
+  unmap(vc_MTP3UserPart_BSC1B:MTP3_PCO,system:BSC1B);
+  unmap(vc_MTP3UserPart_BSC1C:MTP3_PCO,system:BSC1C);
+  unmap(vc_MTP3UserPart_CMGW3:MTP3_PCO,system:CMGW3);
+  unmap(vc_MTP3UserPart_CMGW6:MTP3_PCO,system:CMGW6);
+  unmap(vc_MTP3UserPart_CMGW9:MTP3_PCO,system:CMGW9); 
+  log ("tc_3 finished"); 
+} 
+
+// tc_4 is the same as tc_3 but organized by arrays and cycles
+testcase tc_4() runs on MTC_CT system MSC_SCT
+{
+  f_init();
+  f_start();
+  f_terminate();
+}
+
+testcase tc_5() runs on MTC_CT
+{
+  var ASP_MTP3_TRANSFERreq vl_MTP3_TRANSFERreq := 
+  { sio := 
+    { ni := '00'B,
+      prio := '00'B,
+      si := '0000'B
+    },
+    opc := 0,
+    dpc := 0,
+    sls := 0,
+    data:= '010203040506070809000102030405060708090000010203040506070809000000'O
+  };
+
+  map(self:MTC_PCO,system:MTC_PCO);
+  MTC_PCO.send(vl_MTP3_TRANSFERreq);
+  MTC_PCO.receive;
+  unmap(self:MTC_PCO,system:MTC_PCO);
+}
+
+control
+{
+  execute (tc_1());
+}
+
+}//module
diff --git a/MTP3asp_CNL113337/demo/mtp3test_MTP3_ansi2.cfg b/MTP3asp_CNL113337/demo/mtp3test_MTP3_ansi2.cfg
new file mode 100644
index 0000000..35b3e09
--- /dev/null
+++ b/MTP3asp_CNL113337/demo/mtp3test_MTP3_ansi2.cfg
@@ -0,0 +1,75 @@
+[LOGGING]
+#FileName := "mtp3test_MTP3_ansi2.cfg"
+FileMask := LOG_ALL | TTCN_DEBUG | TTCN_MATCHING
+#ConsoleMask := LOG_ALL | TTCN_DEBUG | TTCN_MATCHING
+
+[EXECUTE]
+#Loopback
+#mtp3test.TC0
+#SEA test cases, LOOP := OFF
+#mtp3test.tc_1
+#mtp3test.tc_2
+#mtp3test.tc_3
+mtp3test.tc_4
+[TESTPORT_PARAMETERS]
+// *******************************************************
+// * DO NOT FORGET TO SET THE FOLLOWING TWO LINE TO YOUR SEA *
+// *******************************************************
+system.*.Hostname := "zaire"  //sea server name
+system.*.HttpPort := "5000"   //sea http port
+system.*.Loop:= "ON"
+system.*.Filter:= "OFF"
+system.*.MTP3ServiceType := "MTP3itu" // ["MTP3itu" (default)|"MTP3ansi" | "M3UA" | "MTP3ttc" | "MTP3mpt" ]
+
+system.CMGW3.EntityName := "S7ST-0" //device name to connect
+system.CMGW3.NI:= "2"
+system.CMGW3.SUT_Pc:= "461088" 
+system.CMGW3.TESTER_Pc:= "461089"  
+system.CMGW3.M3UA_version:= "1"
+
+system.CMGW6.EntityName := "S7ST-1" //device name to connect
+system.CMGW6.NI:= "2"
+system.CMGW6.SUT_Pc:= "461086" // 07-09-30  =0x07091E see command: s7stp:st=s7stg-0&&-32;
+system.CMGW6.TESTER_Pc:= "461087" //07-09-31=0x07091F
+system.CMGW6.M3UA_version:= "1"
+
+system.CMGW9.EntityName := "S7ST-2" //device name to connect
+system.CMGW9.NI:= "2"
+system.CMGW9.SUT_Pc:= "461088" 
+system.CMGW9.TESTER_Pc:= "461089"  
+system.CMGW9.M3UA_version:= "1"
+
+system.BSC1A.EntityName := "S7ST-3" //device name to connect
+system.BSC1A.NI:= "2"
+system.BSC1A.SUT_Pc:= "461088" 
+system.BSC1A.TESTER_Pc:= "461089"  
+system.BSC1A.M3UA_version:= "1"
+
+system.BSC1B.EntityName := "S7ST-4" //device name to connect
+system.BSC1B.NI:= "2"
+system.BSC1B.SUT_Pc:= "461088" 
+system.BSC1B.TESTER_Pc:= "461089"  
+system.BSC1B.M3UA_version:= "1"
+
+system.BSC1C.EntityName := "S7ST-5" //device name to connect
+system.BSC1C.NI:= "2"
+system.BSC1C.SUT_Pc:= "461088" 
+system.BSC1C.TESTER_Pc:= "461089"  
+system.BSC1C.M3UA_version:= "1"
+
+[MODULE_PARAMETERS]
+
+// MTP3_user_part for test suite 'mtp3userpart_test' in mtp3test.ttcn 
+MTP3_UserPart_SIO := 
+{
+  ni := '10'B,
+  prio := '00'B,
+  si := '1110'B
+};
+MTP3_UserPart_OPC := 461087  // =0x07091E 
+MTP3_UserPart_DPC := 461086 //
+MTP3_UserPart_SLS := 0;
+ 
+[MAIN_CONTROLLER]
+TCPPort := 9999
+NumHCs := 1 
diff --git a/MTP3asp_CNL113337/doc/MTP3asp_CNL113337_FS.pdf b/MTP3asp_CNL113337/doc/MTP3asp_CNL113337_FS.pdf
new file mode 100644
index 0000000..b6cf46f
--- /dev/null
+++ b/MTP3asp_CNL113337/doc/MTP3asp_CNL113337_FS.pdf
Binary files differ
diff --git a/MTP3asp_CNL113337/doc/MTP3asp_CNL113337_PRI.pdf b/MTP3asp_CNL113337/doc/MTP3asp_CNL113337_PRI.pdf
new file mode 100644
index 0000000..4e8b25c
--- /dev/null
+++ b/MTP3asp_CNL113337/doc/MTP3asp_CNL113337_PRI.pdf
Binary files differ
diff --git a/MTP3asp_CNL113337/doc/MTP3asp_CNL113337_UG.pdf b/MTP3asp_CNL113337/doc/MTP3asp_CNL113337_UG.pdf
new file mode 100644
index 0000000..0c6b3d7
--- /dev/null
+++ b/MTP3asp_CNL113337/doc/MTP3asp_CNL113337_UG.pdf
Binary files differ
diff --git a/MTP3asp_CNL113337/src/MTP3asp_EncDec.cc b/MTP3asp_CNL113337/src/MTP3asp_EncDec.cc
new file mode 100644
index 0000000..394d726
--- /dev/null
+++ b/MTP3asp_CNL113337/src/MTP3asp_EncDec.cc
@@ -0,0 +1,20 @@
+///////////////////////////////////////////////////////////////////////////////
+//
+// Copyright Test Competence Center (TCC) ETH 2007
+//                                                                           //
+// The copyright to the computer  program(s) herein  is the property of TCC. //
+// The program(s) may be used and/or copied only with the written permission //
+// of TCC or in accordance with  the terms and conditions  stipulated in the //
+// agreement/contract under which the program(s) have been supplied          //
+///////////////////////////////////////////////////////////////////////////////
+//
+//  File:               MTP3asp_EncDec.cc
+//  Rev:                R11A01
+//  Prodnr:             CNL 113 337
+//  Updated:            2007-09-17
+//  Contact:            http://ttcn.ericsson.se
+///////////////////////////////////////////////////////////////////////////////
+
+// Please note: Because the encoder/decoder functions are generated by the 
+// TITAN, the MTP3asp_EncDec.cc is kept only for compatibility issue and 
+// should be removed from the projects.
diff --git a/MTP3asp_CNL113337/src/MTP3asp_PT.cc b/MTP3asp_CNL113337/src/MTP3asp_PT.cc
new file mode 100644
index 0000000..37bab8f
--- /dev/null
+++ b/MTP3asp_CNL113337/src/MTP3asp_PT.cc
@@ -0,0 +1,2952 @@
+///////////////////////////////////////////////////////////////////////////////
+//                                                                           //
+// Copyright Test Competence Center (TCC) ETH 2012                           //
+//                                                                           //
+// The copyright to the computer  program(s) herein  is the property of TCC. //
+// The program(s) may be used and/or copied only with the written permission //
+// of TCC or in accordance with  the terms and conditions  stipulated in the //
+// agreement/contract under which the program(s) have been supplied          //
+//                                                                           //
+///////////////////////////////////////////////////////////////////////////////
+//
+//  File:         MTP3asp_PT.cc
+//  Description:  Implementation of port MTP3asp_PT
+//                This test port is written to connect TTCN-3 to SEA according
+//                to specification ITU-T SS7 MTP3, ANSI, TCC, IETF, MPT
+//  Reference:    ITU-T Recommendation Q.704, RFC3332
+//  Rev:          R11A01
+//  Prodnr:       CNL 113 337
+//  Updated:      2012-05-24
+//  Contact:      http://ttcn.ericsson.se
+
+// IMPORTANT MODIFICATION:
+// mtp3_ttc uses ALWAYS 16 bits long SPCs, regardless of mtp3_ni sio
+
+#include "MTP3asp_PT.hh"
+
+#include "MTP3asp_Types.hh"
+#include "MTP3asp_PortType.hh"
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <poll.h>
+#include <errno.h>
+#include <stdarg.h>
+#include <string.h>
+
+
+//  Constans for M3UA, see rfc 3332 and 2/1056-FCPW 101 86/P-1
+// Constants for decoding M3UA common headers
+#define M3UA_VER_OFFS      0
+#define M3UA_CLS_OFFS      2
+#define M3UA_TYP_OFFS      3
+#define M3UA_LGT_OFFS      4
+#define M3UA_MSG_OFFS      8
+#define M3UA_MSG_LENGTH_LENGTH      4
+
+// Constants for M3UA protocol
+//Msg classes
+#define M3UA_MSG_CLS_MGMT 0x00
+#define M3UA_MSG_CLS_TRNSFM 0x01
+#define M3UA_MSG_CLS_SSNM 0x02
+#define M3UA_MSG_CLS_ASPSM 0x03
+#define M3UA_MSG_CLS_ASPTM 0x04
+#define M3UA_MSG_CLS_RKM 0x09
+//Msg types
+#define M3UA_MSG_TYP_MGMT_ERR 0x00
+#define M3UA_MSG_TYP_MGMT_NTFY 0x01
+
+#define M3UA_MSG_TYP_TRSNFM_DATA 0x01
+
+#define M3UA_MSG_TYP_SSNM_DUNA 0x01
+#define M3UA_MSG_TYP_SSNM_DAVA 0x02
+#define M3UA_MSG_TYP_SSNM_DAUD 0x03
+#define M3UA_MSG_TYP_SSNM_SCON 0x04
+#define M3UA_MSG_TYP_SSNM_DUPU 0x05
+#define M3UA_MSG_TYP_SSNM_DRST 0x06
+
+#define M3UA_MSG_TYP_ASPSM_ASPUP 0x01
+#define M3UA_MSG_TYP_ASPSM_ASPDN 0x02
+#define M3UA_MSG_TYP_ASPSM_BEAT 0x03
+#define M3UA_MSG_TYP_ASPSM_ASPUPAck 0x04
+#define M3UA_MSG_TYP_ASPSM_ASPDNAck 0x05
+#define M3UA_MSG_TYP_ASPSM_BEATAck 0x06
+
+#define M3UA_MSG_TYP_ASPTM_ASPAC 0x01
+#define M3UA_MSG_TYP_ASPTM_ASPIA 0x02
+#define M3UA_MSG_TYP_ASPTM_ASPACAck 0x03
+#define M3UA_MSG_TYP_ASPTM_ASPIAAck 0x04
+
+#define M3UA_MSG_TYP_RKM_REGREQ 0x01
+#define M3UA_MSG_TYP_RKM_REGRSP 0x02
+#define M3UA_MSG_TYP_RKM_DEREGREQ 0x03
+#define M3UA_MSG_TYP_RKM_DEREGRESP 0x04
+
+//parameters
+//common for all adaptation layer
+#define PAR_PREFIX_COMMON 0x00
+#define PAR_INFO_STR    0x04
+#define PAR_ROUTING_CTX 0x06
+#define PAR_DIAG_INFO   0x07
+#define PAR_HEART_BEAT  0x09
+#define PAR_TRAFFMODE_T 0x0b
+#define PAR_ERROR_CODE  0x0c
+#define PAR_STATUS      0x0d
+#define PAR_ASP_ID      0x11
+#define PAR_AFFECTED_PC 0x12
+#define PAR_CORREL_ID   0x13
+
+//M3UA specific
+#define PAR_PREFIX_M3UA 0x02
+#define PAR_NETW_APP    0x00
+#define PAR_USR_O_CAUSE 0x04
+#define PAR_CNGST_IND   0x05
+#define PAR_CNCRD_IND   0x06
+#define PAR_ROUTING_KEY 0x07
+#define PAR_REG_RSLT    0x08
+#define PAR_DEREG_RSLT  0x09
+#define PAR_LOC_RK_ID   0x0a
+#define PAR_DPC         0x0b
+#define PAR_SI          0x0c
+#define PAR_OPC_LIST    0x0e
+#define PAR_CIRC_RNG    0x0f
+#define PAR_PROT_DATA   0x10
+#define PAR_REG_STAT    0x12
+#define PAR_DEREG_STAT  0x13
+
+// error codes:
+#define PAR_ERRC_IVER   0x01
+#define PAR_ERRC_UNSMC  0x03
+#define PAR_ERRC_UNSMT  0x04
+#define PAR_ERRC_UNTMT  0x05
+#define PAR_ERRC_UNEM   0x06
+#define PAR_ERRC_PERR   0x07
+#define PAR_ERRC_ISI    0x09
+#define PAR_ERRC_RMB    0x0D
+#define PAR_ERRC_ASPIDR 0x0E
+#define PAR_ERRC_IASPID 0x0F
+#define PAR_ERRC_IPARV  0x11
+#define PAR_ERRC_PARFE  0x12
+#define PAR_ERRC_UPAR   0x13
+#define PAR_ERRC_DSU    0x14
+#define PAR_ERRC_INA    0x15
+#define PAR_ERRC_MP     0x16
+#define PAR_ERRC_IRC    0x19
+#define PAR_ERRC_NCFAS  0x1A
+
+
+// --------------------------
+// Basic Test Port functions
+// --------------------------
+using namespace MTP3asp__Types;
+namespace MTP3asp__PortType {
+
+//external functions
+//##########################################################
+
+//f__MTP3__SEA__connect (for MTP3asp_PT)
+BOOLEAN f__MTP3__SEA__connect(MTP3asp__PT& portRef,
+  const CHARSTRING& Hostname,const INTEGER& Port,const CHARSTRING& EntityName,const BOOLEAN& Http)
+{
+  return f__MTP3__SEA__connect__extern(portRef,Hostname,Port,EntityName,Http);
+}
+//------------
+
+//f__MTP3__SEA__disconnect (for MTP3asp_PT)
+BOOLEAN f__MTP3__SEA__disconnect(MTP3asp__PT& portRef)
+{
+  return f__MTP3__SEA__disconnect__extern(portRef);
+}
+//------------
+
+//f__MTP3__SEA__connect__extern
+BOOLEAN f__MTP3__SEA__connect__extern(MTP3asp__PT_PROVIDER& portRef,
+  const CHARSTRING& Hostname,const INTEGER& Port,const CHARSTRING& EntityName,const BOOLEAN& Http)
+{
+#ifndef TARGET_TEST
+  if (portRef.dynamicConnection && (!(portRef.connectionUp)))
+  {
+    delete [] portRef.hostname;
+    int len = strlen(Hostname);
+    portRef.hostname = new char[len + 1];
+    memcpy(portRef.hostname, Hostname, len + 1);
+
+    portRef.httpport = Port;
+
+    delete [] portRef.entityname;
+    len = strlen(EntityName);
+    portRef.entityname = new char[len + 1];
+    memcpy(portRef.entityname, EntityName, len + 1);
+
+    if(Http)
+      portRef.MTP3_open_channel(TRUE);
+    else
+      portRef.MTP3_open_channel(FALSE);
+
+    if(portRef.wait_for_open())
+    { 
+      portRef.user_connect();
+      portRef.connectionUp = TRUE;
+      return TRUE;
+    }
+  }
+  else
+#endif
+    portRef.log("Dynamic connection feature is not active or already connected.");
+  return FALSE;
+}
+//------------
+
+//f__MTP3__SEA__disconnect__extern
+BOOLEAN f__MTP3__SEA__disconnect__extern(MTP3asp__PT_PROVIDER& portRef)
+{
+#ifndef TARGET_TEST
+  if (portRef.connectionUp)
+  {
+    portRef.MTP3_close_connection();
+    portRef.connectionUp = FALSE;
+    return TRUE;
+  }
+#endif
+  return FALSE;
+}
+//------------
+
+// Test Port constructor
+MTP3asp__PT_PROVIDER::MTP3asp__PT_PROVIDER(const char *par_port_name)
+        : PORT(par_port_name)
+{
+  MTP_fd=-1;
+  httpport=-1;
+  hostname=NULL;
+  destinationname = NULL;
+  dynamicConnection = FALSE;
+
+  const char *str="b303d76a-266c-11d4-b8f5-08002090d3da";
+  int len = strlen(str);
+  iid_string= new char[len + 1];
+  memcpy(iid_string, str, len + 1);
+
+  entityname=NULL;
+  Filter=Loop=-1;
+  Sut_Pc=Tester_Pc=-1;
+  Ni_is_set = FALSE;
+  MTPServiceType = MTP3itu;
+  M3UA_version = 1;
+  M3UAState = AssocDown; // unnecessary...
+  mtp3_ni=0;
+#ifndef TARGET_TEST
+  user_map_p = &MTP3asp__PT_PROVIDER::MTP3_user_map;
+  user_unmap_p = &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+  interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+#endif
+  forward_pause = FALSE;
+  forward_resume = FALSE;
+  forward_status = FALSE;
+}
+//------------
+
+// Test Port destructor
+MTP3asp__PT_PROVIDER::~MTP3asp__PT_PROVIDER()
+{
+  delete [] hostname;
+  delete [] entityname;
+  delete [] iid_string;
+}
+//------------
+
+// set_parameter
+void MTP3asp__PT_PROVIDER::set_parameter(const char *parameter_name,
+        const char *parameter_value)
+{
+  log("set_parameter: %s = %s",parameter_name,parameter_value);
+  if (!strcmp(parameter_name,"Hostname"))
+  {
+    delete [] hostname;
+    int len = strlen(parameter_value);
+    hostname = new char[len + 1];
+    memcpy(hostname, parameter_value, len + 1);
+  }
+  else if (!strcmp(parameter_name, "HttpPort"))
+  {
+    httpport = atoi(parameter_value);
+  }
+  else if (!strcmp(parameter_name,"EntityName"))
+  {
+    delete [] entityname;
+    int len = strlen(parameter_value);
+    entityname= new char[len + 1];
+    memcpy(entityname, parameter_value, len + 1);
+  }
+  else if (!strcmp(parameter_name,"DestinationName"))
+  {
+    delete [] destinationname;
+    int len = strlen(parameter_value);
+    destinationname= new char[len + 1];
+    memcpy(destinationname, parameter_value, len + 1);
+  }
+  else if (!strcmp(parameter_name,"Filter"))
+  {
+    if (!strcmp(parameter_value,"ON")) Filter = MTP3_ON;
+    else Filter = MTP3_OFF;
+  }
+  else if (!strcmp(parameter_name,"Loop"))
+  {
+    if (!strcmp(parameter_value,"ON")) Loop = MTP3_ON;
+    else Loop = MTP3_OFF;
+  }
+  else if (!strcmp(parameter_name,"NI"))
+  {
+    Ni_is_set = TRUE;
+    mtp3_ni = atoi(parameter_value);
+    debuglog("Network indicator is set to %i",mtp3_ni);
+  }
+  else if (!strcmp(parameter_name,"SUT_Pc"))
+  {
+    Sut_Pc = atoi(parameter_value);
+  }
+  else if (!strcmp(parameter_name,"TESTER_Pc"))
+  {
+    Tester_Pc = atoi(parameter_value);
+  }
+  else if (!strcmp(parameter_name,"M3UA_version"))
+  {
+    M3UA_version  = atoi(parameter_value);
+    debuglog("%d",M3UA_version);
+  }
+#ifndef TARGET_TEST
+  else if (!strcmp(parameter_name,"DynamicConnection"))
+  {
+    if (!strcasecmp(parameter_value,"ON"))
+    {
+      dynamicConnection = TRUE;
+    }
+  }
+#endif
+  else if (!strcmp(parameter_name,"MTP3ServiceType"))
+  {
+    if (!strcmp(parameter_value,"TargetM3UA"))
+    {
+#ifndef TARGET_TEST
+      error("TargetM3UA not supported, since TARGET_TEST not in Makefile");
+#else
+      log("MTP3ServiceType is set to TargetM3UA");
+      user_map_p =  &MTP3asp__PT_PROVIDER::Target_user_map;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::Target_user_unmap;
+      MTPServiceType = TargetM3UA;
+#endif
+    }
+    else if (!strcmp(parameter_value,"TargetSTC"))
+    {
+#ifndef TARGET_TEST
+      error("TargetSTC not supported, since TARGET_TEST not in Makefile");
+#else
+      log("MTP3ServiceType is set to TargetSTC");
+      user_map_p =  &MTP3asp__PT_PROVIDER::TargetSTC_user_map;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::Target_user_unmap; //Same as by Target M3UA
+      MTPServiceType = TargetSTC;
+#endif
+    }
+#ifndef TARGET_TEST
+    else if (!strcmp(parameter_value,"M3UA"))
+    { //M3UA
+      log("MTP3ServiceType is set to M3UA");
+      interpreter = &MTP3asp__PT_PROVIDER::M3UA_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::M3UA_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::M3UA_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::M3UA_user_unmap;
+      MTPServiceType = M3UA;
+    }
+    else if (!strcmp(parameter_value,"MTP3itu"))
+    {
+      log("MTP3ServiceType is set to MTP3itu");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3itu;
+    }
+    else if ( !strcmp(parameter_value,"MTP3ansi"))
+    {
+      log("MTP3ServiceType is set to MTP3ansi");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3ansi;
+    }
+    else if ( !strcmp(parameter_value,"MTP3ttc"))
+    {
+      log("MTP3ServiceType is set to MTP3ttc");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3ttc;
+    }
+    else if ( !strcmp(parameter_value,"MTP3mpt"))
+    {
+      log("MTP3ServiceType is set to MTP3mpt");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3mpt;
+    }
+    else if ( !strcmp(parameter_value,"MTP3bttc"))
+    {
+      log("MTP3ServiceType is set to MTP3bttc");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3bttc;
+    }
+    else if ( !strcmp(parameter_value,"MTP3iup"))
+    {
+      log("MTP3ServiceType is set to MTP3iup");
+      interpreter = &MTP3asp__PT_PROVIDER::MTP3_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::MTP3_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::MTP3_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::MTP3_user_unmap;
+      MTPServiceType = MTP3iup;
+    }
+    else if ( !strcmp(parameter_value,"STC"))
+    {
+      log("MTP3ServiceType is set to STC");
+      interpreter = &MTP3asp__PT_PROVIDER::STC_interpreter;
+      user_map_p =  &MTP3asp__PT_PROVIDER::STC_user_map;
+      user_connect_p =  &MTP3asp__PT_PROVIDER::STC_user_connect;
+      user_unmap_p =  &MTP3asp__PT_PROVIDER::STC_user_unmap;
+      MTPServiceType = STC;
+    }
+#endif
+    else
+    {
+      log("Unsupported MTP3ServiceType: %s, falling back to MTP3itu",
+          parameter_value);
+    }
+  }
+  else if(strcasecmp(parameter_name, "forward_pause") == 0)
+  {
+    if (strcasecmp(parameter_value,"forward") == 0)
+      forward_pause = TRUE;
+    else if(strcasecmp(parameter_value,"ignore") == 0)
+      forward_pause = FALSE;
+    else
+      error("set_parameter(): Invalid parameter value: %s for parameter %s. Only forward and ignore can be used!" ,
+            parameter_value, parameter_name);
+  }
+  else if(strcasecmp(parameter_name, "forward_resume") == 0)
+  {
+    if (strcasecmp(parameter_value,"forward") == 0)
+      forward_resume = TRUE;
+    else if(strcasecmp(parameter_value,"ignore") == 0)
+      forward_resume = FALSE;
+    else
+      error("set_parameter(): Invalid parameter value: %s for parameter %s. Only forward and ignore can be used!" ,
+            parameter_value, parameter_name);
+  }
+  else if(strcasecmp(parameter_name, "forward_status") == 0)
+  {
+    if (strcasecmp(parameter_value,"forward") == 0)
+      forward_status = TRUE;
+    else if(strcasecmp(parameter_value,"ignore") == 0)
+      forward_status = FALSE;
+    else
+      error("set_parameter(): Invalid parameter value: %s for parameter %s. Only forward and ignore can be used!" ,
+            parameter_value, parameter_name);
+  }
+  else
+#ifdef TARGET_TEST
+  if(!parameter_set(parameter_name ,parameter_value)) //TCP parameters
+#endif
+    log("Unsupported parameter: %s", parameter_name);
+}
+//------------
+
+// User map
+void MTP3asp__PT_PROVIDER::user_map(const char *system_port)
+{
+  if (user_map_p == NULL)
+    error("Parameter MTP3ServiceType should be set to TargetM3UA in TARGET_TEST mode!");
+
+  (this->*user_map_p)(system_port);
+}
+//------------
+
+// User unmap
+void MTP3asp__PT_PROVIDER::user_unmap(const char *system_port)
+{
+  (this->*user_unmap_p)(system_port);
+}
+//------------
+
+#ifndef TARGET_TEST
+// User connect
+void MTP3asp__PT_PROVIDER::user_connect()
+{
+  (this->*user_connect_p)();
+}
+//------------
+#endif
+
+//User start
+void MTP3asp__PT_PROVIDER::user_start()
+{ debuglog("user start ordered");
+}
+//------------
+
+//User stop
+void MTP3asp__PT_PROVIDER::user_stop()
+{ debuglog("User stop ordered");
+}
+//------------
+
+//Event Handler
+void MTP3asp__PT_PROVIDER::Handle_Fd_Event(int fd,
+  boolean is_readable, boolean is_writable, boolean is_error)
+{
+  if (MTPServiceType == TargetM3UA )
+  {
+#ifdef TARGET_TEST
+    //In case of target Abstract Socket handles the received message
+    Handle_Socket_Event(fd, is_readable, is_writable, is_error);
+#endif
+  }
+#ifndef TARGET_TEST
+  else
+  {
+    int result;
+
+    result = MPH_ProcessConnection(myConnection);
+
+    if (result <= 0)
+    {
+      MPH_CloseConnection(myConnection);
+      if (result == 0) log("Connection closed by peer.");
+      else log("Error in incoming message.");
+    }
+  }
+#endif
+}
+
+void MTP3asp__PT_PROVIDER::Handle_Timeout(double time_since_last_call)
+{
+#ifdef TARGET_TEST
+  Handle_Timeout_Event(time_since_last_call);
+#endif
+}
+//------------
+
+//Outgoing send
+void MTP3asp__PT_PROVIDER::outgoing_send(const ASP__MTP3__TRANSFERreq& send_par)
+{
+  MTP3__Field__sio sio_field = send_par.sio();
+#ifndef TARGET_TEST
+  int si=bit2int(sio_field.si());
+#endif
+
+  OCTETSTRING sio_oct = bit2oct(sio_field.ni()+sio_field.prio()+sio_field.si());
+  OCTETSTRING bttc_oct = int2oct(stored_bttc_octet, 1); // additional octet for MTP3bttc
+
+  //Message sending by testing on Target
+  if (MTPServiceType == TargetM3UA)
+  {
+#ifdef TARGET_TEST
+    OCTETSTRING tcpData = int2oct(1,1); //Message type
+    tcpData = tcpData + int2oct(send_par.data().lengthof()+15,4); //Length
+    tcpData = tcpData + sio_oct;
+    tcpData = tcpData + int2oct(send_par.opc(),4);
+    tcpData = tcpData + int2oct(send_par.dpc(),4);
+    tcpData = tcpData + int2oct(send_par.sls(),1);
+    tcpData = tcpData + send_par.data();
+    send_outgoing((const unsigned char*)tcpData,tcpData.lengthof());
+
+    TTCN_Logger::begin_event(TTCN_DEBUG);
+    TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+    TTCN_Logger::log_event_str("Transfer Req message sent: ");
+    tcpData.log();
+    TTCN_Logger::end_event();
+#endif
+    return;
+  }
+  //Message sending by testing on Target
+  if (MTPServiceType == TargetSTC)
+  {
+#ifdef TARGET_TEST
+    OCTETSTRING tcpData = int2oct(1,1); //Message type
+    tcpData = tcpData + int2oct(send_par.data().lengthof()+15,4); //Length
+    tcpData = tcpData + int2oct(0,1);
+    tcpData = tcpData + int2oct(0,4);
+    tcpData = tcpData + int2oct(0,4);
+    tcpData = tcpData + int2oct(0,1);
+    tcpData = tcpData + send_par.data();
+    send_outgoing((const unsigned char*)tcpData,tcpData.lengthof());
+
+    TTCN_Logger::begin_event(TTCN_DEBUG);
+    TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+    TTCN_Logger::log_event_str("Transfer Req (STC) message sent: ");
+    tcpData.log();
+    TTCN_Logger::end_event();
+#endif
+    return;
+  }
+#ifndef TARGET_TEST
+  if (dynamicConnection &&(!connectionUp))
+  {
+    warn("Connection was not activated via function f_M3UA_SEA_connect.");
+    return;
+  }
+
+  unsigned int offset;
+  int MSU_length = send_par.data().lengthof();
+  int M3UA_par_length;
+  int length;
+  int labellen; // sio+routinglabel length
+
+  switch ( MTPServiceType)
+  {
+    case STC:
+      length = MSU_length;
+      memcpy(buffer, send_par.data(), send_par.data().lengthof());
+      break;
+    case MTP3iup:
+      if(si==4)
+      {
+        offset = 0;
+        labellen=6; //ITU-T:sio(1byte) + standard telephony label(5byte)
+        length = MSU_length+labellen;
+        buffer[0] = *((const unsigned char*)sio_oct);
+        SetPointCodesIUP(send_par.sls(), send_par.opc(), send_par.dpc(),
+           buffer + offset + 1);
+        memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      }
+      else
+      {
+        offset = 0;
+        labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+        length = MSU_length + labellen; //SIF+SIO ;
+        //append MTP3 MSU
+        buffer[offset] = *((const unsigned char*)sio_oct);
+        SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+           buffer + offset + 1);
+        memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      }
+      break;
+    case MTP3itu:
+      offset = 0;
+      labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+      length = MSU_length + labellen; //SIF+SIO ;
+      //append MTP3 MSU
+      buffer[offset] = *((const unsigned char*)sio_oct);
+      SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+         buffer + offset + 1);
+      memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      break;
+    case MTP3ansi:
+      offset = 0;
+      labellen=8; //ANSI: sio(1byte) +routing label(7byte) see T1.111.4
+      length = MSU_length + labellen; //SIF+SIO ;
+      //append MTP3 MSU
+      buffer[offset] = *((const unsigned char*)sio_oct);
+      SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+         buffer + offset + 1);
+      memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      break;
+    case MTP3ttc:
+      offset = 0;
+      //if (mtp3_ni==0){ labellen=5;}
+      //else {
+      labellen=6;
+      //} //TTC: sio(1byte) +routing label(6byte) see  ...
+      length = MSU_length + labellen; //SIF+SIO ;
+      //append MTP3 MSU
+      buffer[offset] = *((const unsigned char*)sio_oct);
+      SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+         buffer + offset + 1);
+      memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      break;
+    case MTP3bttc:
+      offset = 0;
+      buffer[offset] = *((const unsigned char*)bttc_oct);
+      offset += 1;
+      labellen=7; //routing label(7byte)
+      length = 1 + MSU_length + labellen; //SIF+SIO ;
+      //append MTP3 MSU
+      buffer[offset] = *((const unsigned char*)sio_oct);
+      SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+         buffer + offset + 1);
+      memcpy(buffer + offset + labellen, send_par.data(), send_par.data().lengthof());
+      break;
+    case MTP3mpt:
+      offset = 0;
+      if (mtp3_ni==2)
+      { labellen=8;} //MPT national: sio(1byte) +routing label(7byte)
+      else
+      { labellen=5;} //MPT international: sio(1byte) +routing label(4byte)
+      length = MSU_length + labellen; //SIF+SIO ;
+      //append MTP3 MSU
+      buffer[offset] = *((const unsigned char*)sio_oct);
+      SetPointCodes(send_par.sls(), send_par.opc(), send_par.dpc(),
+         buffer + offset + 1);
+      memcpy(buffer + offset + labellen,
+             send_par.data(), send_par.data().lengthof());
+      break;
+    case M3UA :
+      TTCN_Logger::begin_event(TTCN_DEBUG);
+      TTCN_Logger::log_event("MTP3 test port debug: Message to be encoded is: {");
+      send_par.data().log();
+      TTCN_Logger::log_event(" ");
+      if( M3UAState != AssocActive )
+      {
+        TTCN_Logger::log_event(" M3UAState is not ready to send data. Its state code: %d",AssocActive);
+        TTCN_Logger::log_event("}");
+        TTCN_Logger::end_event();
+        return;
+      }
+      //calculating lengths
+      M3UA_par_length = MSU_length + 16; // ProtocolData parameter
+                 // header length=16 <== see f
+      TTCN_Logger::log_event(", Adjusted M3UA_par_length to %d to support 16 octets M3UA param header",M3UA_par_length);
+      length = 8 + M3UA_par_length; //msg length = header+par
+      TTCN_Logger::log_event(", M3UA MSU_length is %d ==> there should be %d padding octets", MSU_length, 4-(MSU_length%4));
+      if (MSU_length%4) { //should be padded to be multiple of 4 octets
+        length += 4 - (MSU_length%4); //padding shall be counted in msg
+              //length, but not in par_length
+      }
+      TTCN_Logger::log_event(", Set msg length (which includes 8 octets M3UA hdr) to %d ",length);
+
+      //filling the first part of the buffer
+      //common msg hdr ======================================
+      buffer[0] = M3UA_version;
+      buffer[1] = 0x00; //spare
+      buffer[2] = M3UA_MSG_CLS_TRNSFM; // msg class
+      buffer[3] = M3UA_MSG_TYP_TRSNFM_DATA; // msg type
+      encode_32b_int(buffer+4, length); //msg length, 4 bytes
+      //ProtocolData parameter header=========================
+      //tag
+      buffer[M3UA_MSG_OFFS] = PAR_PREFIX_M3UA; //par. tag 1st octet
+      buffer[M3UA_MSG_OFFS+1] = PAR_PROT_DATA; // par tag 2nd octet
+      //length, NOTE: should not contain the padding bytes!
+      encode_16b_int(buffer+M3UA_MSG_OFFS+2,M3UA_par_length);
+      //OPC,DPC
+      encode_32b_int(buffer+M3UA_MSG_OFFS+4,send_par.opc());
+      encode_32b_int(buffer+M3UA_MSG_OFFS+8,send_par.dpc());
+      //SI, NI, MP, SLS
+      buffer[M3UA_MSG_OFFS+12] = bit2int(sio_field.si()); // SI LSb aligned
+      buffer[M3UA_MSG_OFFS+13] = bit2int(sio_field.ni()); // NI LSb aligned
+      buffer[M3UA_MSG_OFFS+14] = bit2int(sio_field.prio()); //MP LSb
+                //aligned
+      buffer[M3UA_MSG_OFFS+15] = 0xFF & send_par.sls(); //SLS
+      // finally the MTP3 MSU itself....
+      offset =  M3UA_MSG_OFFS + 16;
+      TTCN_Logger::log_event(", buffer offset is now set to %d", offset);
+      TTCN_Logger::log_event("}");
+      TTCN_Logger::end_event();
+      //append MTP3 MSU
+      memcpy(buffer + offset, send_par.data(), send_par.data().lengthof());
+
+      //padding
+      for (int ii = 0; ii< (MSU_length%4); ++ii) buffer[offset+MSU_length+ii]= 0x00;
+      break;
+    default:
+      error("Invalid MTP3ServiceType setting!");
+  }
+  if (TTCN_Logger::log_this_event(TTCN_DEBUG))
+  {
+    TTCN_Logger::begin_event(TTCN_DEBUG);
+    TTCN_Logger::log_event("The encoded buffer is: {");
+    OCTETSTRING(length, buffer).log();
+    TTCN_Logger::log_event("}");
+    TTCN_Logger::end_event();
+  }
+  send_msg(buffer, length);
+#endif
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::log(const char *msg, ...)
+{
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  va_list ap;
+  va_start(ap, msg);
+  TTCN_Logger::log_event_va_list(msg, ap);
+  va_end(ap);
+  TTCN_Logger::end_event();
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::warn(const char *msg, ...)
+{
+  TTCN_Logger::begin_event(TTCN_WARNING);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  va_list ap;
+  va_start(ap, msg);
+  TTCN_Logger::log_event_va_list(msg, ap);
+  va_end(ap);
+  TTCN_Logger::end_event();
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::debuglog(const char *msg, ...)
+{
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  va_list ap;
+  va_start(ap, msg);
+  TTCN_Logger::log_event_va_list(msg, ap);
+  va_end(ap);
+  TTCN_Logger::end_event();
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::error(const char *msg, ...)
+{
+  TTCN_Logger::begin_event(TTCN_ERROR);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  va_list ap;
+  va_start(ap, msg);
+  TTCN_Logger::log_event_va_list(msg, ap);
+  va_end(ap);
+  TTCN_Logger::end_event();
+  TTCN_error("Fatal error in MTP3 Test Port %s.", get_name());
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::close_log_event()
+{
+  TTCN_Logger::log_event("}");
+  TTCN_Logger::end_event();
+}
+//------------
+
+
+#ifndef TARGET_TEST
+// --------------------------------------------
+// Functions and definitions for test with SEA
+// --------------------------------------------
+
+// Functions of MPH toolkit
+// ---------------------------
+void connectCallback(CONNECTION* con, int channel, void *clientData)
+{
+  ((MTP3asp__PT_PROVIDER *)clientData)->log("Opening channel succeeded "
+        "(channel number is %u)", channel);
+  ((MTP3asp__PT_PROVIDER *)clientData)->set_channel(channel);
+  if(((MTP3asp__PT_PROVIDER *)clientData)->dynamicConnection)
+    ((MTP3asp__PT_PROVIDER *)clientData)->conn_state = 1;
+}
+
+void messageCallback(CONNECTION* con, int channel, int length,
+                     unsigned char *msg, void *clientData)
+{
+  ((MTP3asp__PT_PROVIDER *)clientData)->log("Incoming message from channel: %d",channel);
+  ((MTP3asp__PT_PROVIDER *)clientData)->doInterpret(msg,length,channel,con);
+}
+
+void closeCallback(CONNECTION* con, int channel, void *clientData)
+{
+  ((MTP3asp__PT_PROVIDER *)clientData)->log("Closed channel: %d", channel);
+}
+
+void errorCallback(CONNECTION* con, char *name, char *errorMessage,
+                   void *clientData)
+{
+  if(((MTP3asp__PT_PROVIDER *)clientData)->dynamicConnection)
+  {
+    ((MTP3asp__PT_PROVIDER *)clientData)->log("Opening channel %s failed: %s", name, errorMessage);
+    ((MTP3asp__PT_PROVIDER *)clientData)->conn_state = 2;
+  }
+  else
+    ((MTP3asp__PT_PROVIDER *)clientData)->error("Opening channel %s failed: %s",
+        name, errorMessage);
+}
+//------------
+
+//MTP3_open_channel
+void MTP3asp__PT_PROVIDER::MTP3_open_channel(boolean http)
+{
+  int result;
+  int Mphport;
+  char *perrorString;
+  if( Loop == MTP3_ON )
+  {
+    MTP_fd=-1;
+    myConnection = NULL;
+    log("MTP3_open_channel finished for LOOP");
+    return;
+  }
+
+  if(http)
+  {
+    Mphport = MPH_GetMphPort(hostname,httpport,&perrorString);
+  }
+  else
+  {
+    Mphport = httpport;
+  }
+    
+  if (Mphport == -1)
+    error("GetMphPort failed: %s", *perrorString);
+
+  result = MPH_StringToIid(iid_string, &iid);
+  if (result == -1)
+    error("Converting %s to MPH_IID failed.", iid_string);
+
+  myConnection = MPH_OpenConnection(hostname, Mphport);
+  if (myConnection == NULL)
+    error("Opening connection to %s:%d failed.", hostname, Mphport);
+
+  MPH_OpenChannel(myConnection,
+                  entityname,
+                  &iid,
+                  connectCallback,
+                  messageCallback,
+                  closeCallback,
+                  errorCallback,
+                  this);
+
+  MTP_fd = MPH_GetConnectionFd(myConnection);
+  if (MTP_fd != -1)
+    Handler_Add_Fd_Read(MTP_fd);
+  else
+    error("Incorrect file descriptor: %d.", MTP_fd);
+}
+//------------
+
+// MTP3_close_connection
+void MTP3asp__PT_PROVIDER::MTP3_close_connection()
+{
+  MPH_CloseConnection(myConnection);
+  Handler_Remove_Fd_Read(MTP_fd);
+  close( MTP_fd );
+  //Uninstall_Handler(); // Unnecessary if only socket MTP_fd is in use
+}
+//------------
+
+// wait_for_open
+boolean MTP3asp__PT_PROVIDER::wait_for_open()
+{
+  conn_state = 0;
+  while(conn_state==0)
+  {
+    pollfd pollFd = { MTP_fd, POLLIN, 0 };
+    int nEvents = poll(&pollFd, 1, 3000 /* ms */);
+    if (nEvents == 0) {
+      log("MPH channel opening time out");
+      return FALSE;
+    }
+    if (nEvents < 0 || (pollFd.revents & (POLLIN | POLLHUP)) == 0) {
+      log("MPH channel opening error (%d)", (nEvents < 0) ? errno : 0);
+      return FALSE;
+    }
+    Handle_Fd_Event(MTP_fd, TRUE, FALSE, FALSE);
+  }
+  if(conn_state == 1) //connectCallback received
+  {
+    conn_state = 0;
+    return TRUE;
+  }
+  else //errorCallback received
+  {
+    conn_state = 0;
+    return FALSE;
+  }
+}
+//------------
+
+//send msg
+void MTP3asp__PT_PROVIDER::send_msg(unsigned char *outbuff, int length)
+{
+  OCTETSTRING buff(length,outbuff);
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3/M3UA Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("outgoing buffer= ");
+  buff.log();
+  TTCN_Logger::log_event("}");
+  TTCN_Logger::end_event();
+  if (Loop == MTP3_ON)
+  {
+    log("Message looped back");
+    doInterpret(outbuff, length, channel, myConnection);
+  } else
+  {
+    MPH_SendMessage(myConnection,channel,length,outbuff);
+    log("Message sent on channel %d", channel);
+  }
+}
+//------------
+
+//Check TestPortVariables
+void  MTP3asp__PT_PROVIDER::Check_TestPort_Variables()
+{
+  if(!dynamicConnection)
+  {
+    if (httpport==-1) error("Parameter HttpPort is not set.");
+    if (hostname==NULL) error("Parameter Hostname is not set.");
+    if (entityname==NULL) error("Parameter EntityName is not set.");
+  }
+  if (Filter==-1) error("Parameter Filter is not set.");
+  if (Loop==-1) error("Parameter Loop is not set.");
+  if (Sut_Pc==-1) error("Parameter SUT_Pc is not set.");
+  if (Tester_Pc==-1) error("Parameter TESTER_Pc is not set.");
+  if (!Ni_is_set) error("Parameter NI is not set.");
+}
+//------------
+
+// -------------------------------------------------
+// STC Functions and definitions for test with SEA
+// -------------------------------------------------
+void  MTP3asp__PT_PROVIDER::Check_TestPort_Variables_STC()
+{
+  if(!dynamicConnection)
+  {
+    if (httpport==-1) error("Parameter HttpPort is not set.");
+    if (hostname==NULL) error("Parameter Hostname is not set.");
+    if (entityname==NULL) error("Parameter EntityName is not set.");
+  }
+}
+//------------
+
+//STC user map
+void MTP3asp__PT_PROVIDER::STC_user_map(const char *system_port)
+{
+  debuglog("Function STC_user_map started");
+  Check_TestPort_Variables_STC();
+  if(dynamicConnection)
+  {
+    connectionUp = FALSE;
+  }
+  else
+  {
+    MTP3_open_channel(TRUE);
+    STC_user_connect();
+  }
+}
+//------------
+
+//STC user connect
+void MTP3asp__PT_PROVIDER::STC_user_connect()
+{
+}
+
+//STC user unmap
+void MTP3asp__PT_PROVIDER::STC_user_unmap(const char *system_port)
+{
+  MTP3_close_connection();
+  dynamicConnection = FALSE;
+}
+//------------
+
+//STC interpreter
+void MTP3asp__PT_PROVIDER::STC_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con)
+{
+  if ((length==0) || (inbuffer==NULL))
+  {
+    log("0 byte long message received -> packet dropped.");
+    return;
+  }
+
+  if (length==1)
+  {
+    log("1 byte long internal SEA message received -> packet dropped.");
+    return;
+  }
+
+  if ( !strcmp((const char*)inbuffer,"start") )
+  {
+    log("start message received from SEA");
+    return;
+  }
+  else if (!strcmp((const char*)inbuffer,"stop"))
+  {
+    log("stop message received from SEA");
+    return;
+  }
+
+  // writing out the contents of the buffer
+  OCTETSTRING buff(length,inbuffer);
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("incoming buffer: ");
+  buff.log();
+  TTCN_Logger::end_event();
+
+  ASP__MTP3__TRANSFERind recv_msg;
+  MTP3__Field__sio recv_sio;
+  recv_sio.ni()= int2bit(0,2);
+  recv_sio.prio()= int2bit(0,2);
+  recv_sio.si()= int2bit(0,4);
+  recv_msg.sio() = recv_sio;
+  recv_msg.sls() = 0;
+  recv_msg.opc() = 0;
+  recv_msg.dpc() = 0;
+  recv_msg.data() = OCTETSTRING(length, &inbuffer[0]);
+  incoming_message( recv_msg );
+}
+
+// -------------------------------------------------
+// MTP3 Functions and definitions for test with SEA
+// -------------------------------------------------
+
+// SLTM messages for MTP3
+// -----------------------
+unsigned char ttcn_in_sltm[] = {
+  'T','T','C','N','-','3',' ','E','x','e','c','u','t','o','r'};
+
+const int sizeof_ttcn_in_sltm=15;
+
+// ITU:
+unsigned char sltm_msg_itu[] =
+{
+  0x1,  //SIO /'test & maint' see Q.704 /14.2.1 => 0x81 suggested !!!
+  0x0,  0x0, 0x0,  0x0, //4 bytes for label (dpc, opc,sls)
+  0x11, //Heading code ITU, see Q.707/5.4
+  0xF0, //spare+Length of the following string:
+  'T', 'T', 'C', 'N', '-', '3', ' ', 'E', 'x', 'e', 'c', 'u', 't', 'o', 'r'
+};
+const int sizeof_sltm_msg_itu=7+15;
+
+// ANSI:
+unsigned char sltm_msg_ansi[]=
+{
+  0xB1, //SIO
+  0x0,0x0,0x0,0x0,0x0,0x0,0x0, // 7 bytes for label
+  0x11,  // Heading Code ANSI T1.111.7-2001
+  0xF0, // SLC(is 0 OK???)+Length in bytes of the following string:
+  'T', 'T', 'C', 'N', '-', '3', ' ', 'E', 'x', 'e', 'c', 'u', 't', 'o', 'r'
+};
+const int sizeof_sltm_ansi=10+15;
+
+// TTC:
+unsigned char sltm_msg_ttc_national[]=
+{
+  0x81, //SIO
+  0x0,0x0,0x0,0x0,0x0,0x0, // 6 bytes for label TO BE CONT!!!
+  0x11,  // Heading Code
+  0xF0, // SLC(is 0 OK???)+Length in bytes of the following string:
+  'T', 'T', 'C', 'N', '-', '3', ' ', 'E', 'x', 'e', 'c', 'u', 't', 'o', 'r'
+};
+const int sizeof_sltm_msg_ttc_national=9+15;
+
+// BTTC:
+unsigned char sltm_msg_bttc_national[]=
+{
+  0x0, // extra octet, ignored
+  0x81, //SIO
+  0x0,0x0,0x0,0x0,0x0,0x0, // 6 bytes for label TO BE CONT!!!
+  0x23,  // Heading Code
+  'T', 'T'
+};
+const int sizeof_sltm_msg_bttc_national=1+8+2;
+
+// MPT:
+unsigned char sltm_msg_mpt_national[]=
+{
+  0x81, //SIO
+  0x0,0x0,0x0,0x0,0x0,0x0,0x0, // 7 bytes for label
+  0x11,  // Heading Code
+  0xF0, // SLC(is 0 OK???)+Length in bytes of the following string:
+  'T', 'T', 'C', 'N', '-', '3', ' ', 'E', 'x', 'e', 'c', 'u', 't', 'o', 'r'
+};
+const int sizeof_sltm_msg_mpt_national=10+15;
+//------------
+
+
+// coder functions for MTP3
+// -------------------------
+// unsigned int<-> unsigned char array
+// Integer encode/decode functions that will encode/decode from/to
+// Result: Least Significant Byte first (in lowest address) = LSB = Little Endian
+void MTP3asp__PT_PROVIDER::encode_56bLSB_int(unsigned char *to, unsigned long long int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[3] = from & 0xFF;
+  from >>= 8;
+  to[4] = from & 0xFF;
+  from >>= 8;
+  to[5] = from & 0xFF;
+  from >>= 8;
+  to[6] = from & 0xFF;
+}
+//------------
+
+unsigned long long int MTP3asp__PT_PROVIDER::decode_56bLSB_int(const unsigned char *from)
+{
+  typedef unsigned long long int ull;
+  return ((ull) from[0]) |
+         ((ull) from[1] <<8)|
+         ((ull) from[2] << 16)|
+         ((ull) from[3] << 24)|
+         ((ull) from[4] << 32)|
+         ((ull) from[5] << 40)|
+         ((ull) from[6] << 48);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_48bLSB_int(unsigned char *to, unsigned long long int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[3] = from & 0xFF;
+  from >>= 8;
+  to[4] = from & 0xFF;
+  from >>= 8;
+  to[5] = from & 0xFF;
+}
+//------------
+
+unsigned long long int MTP3asp__PT_PROVIDER::decode_48bLSB_int(const unsigned char *from)
+{
+  typedef unsigned long long int ull;
+  return ((ull) from[0]) |
+         ((ull) from[1] <<8)|
+         ((ull) from[2] << 16)|
+         ((ull) from[3] << 24)|
+         ((ull) from[4] << 32)|
+         ((ull) from[5] << 40);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_40bLSB_int(unsigned char *to, unsigned long long int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[3] = from & 0xFF;
+  from >>= 8;
+  to[4] = from & 0xFF;
+}
+//------------
+
+unsigned long long int MTP3asp__PT_PROVIDER::decode_40bLSB_int(const unsigned char *from)
+{
+  typedef unsigned long long int ull;
+  return ((ull) from[0]) |
+         ((ull) from[1] <<8)|
+         ((ull) from[2] << 16)|
+         ((ull) from[3] << 24)|
+         ((ull) from[4] << 32);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_32bLSB_int(unsigned char *to, unsigned int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[3] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_32bLSB_int(const unsigned char *from)
+{
+  return from[0] | (from[1] << 8) | (from[2] << 16) | (from[3] << 24);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_24bLSB_int(unsigned char *to, int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_24bLSB_int(const unsigned char *from)
+{
+  return from[0] | (from[1] << 8) | (from[2] << 16);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_16bLSB_int(unsigned char *to, int from)
+{
+  to[0] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_16bLSB_int(const unsigned char *from)
+{
+  return from[0] | (from[1] << 8);
+}
+//------------
+
+//MTP3 user map
+void MTP3asp__PT_PROVIDER::MTP3_user_map(const char *system_port)
+{
+  debuglog("Function MTP3_user_map started");
+  Check_TestPort_Variables();
+   if(dynamicConnection)
+  {
+    connectionUp = FALSE;
+  }
+  else
+  { 
+    MTP3_open_channel(TRUE);
+    MTP3_user_connect();
+  }
+  debuglog("Function MTP3_user_map finished");
+}
+//------------
+
+//MTP3 user connect
+void MTP3asp__PT_PROVIDER::MTP3_user_connect()
+{
+  // Sending out an SLTM message:
+  unsigned char * sltm_msg;
+  unsigned int offset = 0;
+  int sizeof_msg;
+  switch( MTPServiceType)
+  {
+    case MTP3itu:
+    case MTP3iup:
+      sltm_msg=sltm_msg_itu;
+      sizeof_msg=sizeof_sltm_msg_itu;
+      break;
+    case MTP3ansi:
+      sltm_msg=sltm_msg_ansi;
+      sizeof_msg=sizeof_sltm_ansi;
+      break;
+    case MTP3ttc:
+  /*    if (mtp3_ni == 0){
+      sltm_msg=sltm_msg_itu;
+      sizeof_msg=sizeof_sltm_msg_itu;
+      }
+      else {
+  */
+      sltm_msg=sltm_msg_ttc_national;
+      sizeof_msg=sizeof_sltm_msg_ttc_national;
+  //    }
+      break;
+    case MTP3bttc:
+      sltm_msg=sltm_msg_bttc_national;
+      sizeof_msg=sizeof_sltm_msg_bttc_national;
+      offset = 1;
+      break;
+    case MTP3mpt:
+      if (mtp3_ni == 2)
+      {
+        sltm_msg = sltm_msg_mpt_national;
+        sizeof_msg = sizeof_sltm_msg_mpt_national;
+      } else
+      {
+        sltm_msg = sltm_msg_itu;
+        sizeof_msg = sizeof_sltm_msg_itu;
+      }
+      break;
+    default:
+      sltm_msg=sltm_msg_itu;
+      sizeof_msg=sizeof_sltm_msg_itu;
+      break;
+  }
+  stored_bttc_octet = 0;
+  unsigned char sio = ((unsigned char) mtp3_ni) << 6;
+
+  if (Ni_is_set)
+  { sltm_msg[0+offset] = sio | 0x1; }
+  else
+  { sltm_msg[0+offset] = 0x1; };//SIO /'test & maint' see Q.704 /14.2.1 => 0x81 suggested !!!
+
+  SetPointCodes(0, Tester_Pc, Sut_Pc, sltm_msg + 1 +offset); // common for ITU, ANSI and TTC
+  log("MTP3/SLTM message sending...");
+  send_msg(sltm_msg, sizeof_msg);
+}
+//MTP3 user unmap
+void MTP3asp__PT_PROVIDER::MTP3_user_unmap(const char *system_port)
+{
+  MTP3_close_connection();
+  dynamicConnection = FALSE;
+}
+
+//MTP3 interpreter
+void MTP3asp__PT_PROVIDER::MTP3_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con)
+{
+  if ((length==0) || (inbuffer==NULL))
+  {
+    log("0 byte long message received -> packet dropped.");
+    return;
+  }
+
+  if (length==1)
+  {
+    log("1 byte long internal SEA message received -> packet dropped.");
+    return;
+  }
+
+  if ( !strcmp((const char*)inbuffer,"start") )
+  {
+    log("start message received from SEA");
+    return;
+  }
+  else if (!strcmp((const char*)inbuffer,"stop"))
+  {
+    log("stop message received from SEA");
+    return;
+  }
+
+  // writing out the contents of the buffer
+  OCTETSTRING buff(length,inbuffer);
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("incoming buffer: ");
+  buff.log();
+  TTCN_Logger::end_event();
+
+  unsigned int offset = 0;
+  if ( MTPServiceType==MTP3bttc )
+  {
+    stored_bttc_octet = inbuffer[0];
+    offset = 1;
+  }
+  int labellen; // sio+routinglabel length
+  int rec_ni = (inbuffer[offset]) >> 6;  //network indicator
+  if (rec_ni != mtp3_ni)
+    error("Received NI is different from sent NI.");
+
+  unsigned char sio = inbuffer[offset];
+  unsigned int si = sio&0x0F;
+
+  if ( MTPServiceType==MTP3itu )
+  { labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+  }
+  else if ( MTPServiceType==MTP3iup )
+  { 
+    if(si==4)
+      labellen=6; //ITU-T:sio(1byte) + standard telephony label(5byte)
+    else
+      labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+  }
+  else if ( MTPServiceType==MTP3ansi )
+  { labellen=8; //ANSI: sio(1byte) +routing label(7byte) see T1.111.4
+  }
+  else if (MTPServiceType==MTP3ttc)
+  { labellen=6; //new (2004-03-02): 6= sio(1byte)+ routing label(5bytes)
+  }
+  else if (MTPServiceType==MTP3mpt)
+  {
+     if ( mtp3_ni == 2)
+       {labellen=8;} //MPT national: sio(1byte) +routing label(7byte)
+     else
+       {labellen=5;} //MPT international: sio(1byte) +routing label(4byte)
+  }
+  else if (MTPServiceType==MTP3bttc)
+  { labellen=7; //7= sio(1byte)+ routing label(6bytes)
+  }
+  else
+  { log("incorrect MTPServiceType - programming error-> packet dropped");
+    return;
+  }
+
+  // checking SIO field (first incoming byte) - management or test message
+  switch (si)
+  {
+    case 0: processing_MTP3_management_msg(inbuffer+offset,length-offset);
+      return;
+    case 1:                                                          //MTP3itu
+    case 2: processing_MTP3_test_msg(inbuffer+offset,length-offset); //MTP3ansi
+      return;
+    default:
+      break;
+  }
+
+  // filling up TTCN structure
+  if ((Loop==MTP3_ON) || (!Filter) || (Filter&&Check_PcMatch(Sut_Pc,Tester_Pc,&inbuffer[offset+1])))
+  {
+    ASP__MTP3__TRANSFERind recv_msg;
+    MTP3__Field__sio recv_sio;
+    BITSTRING sio_bit = oct2bit(OCTETSTRING(1,inbuffer+offset));
+    recv_sio.ni()= substr(sio_bit,0,2);
+    recv_sio.prio()= substr(sio_bit,2,2);
+    recv_sio.si()= substr(sio_bit,4,4);
+    recv_msg.sio() = recv_sio;
+    unsigned int sls,opc,dpc;
+    if ( (MTPServiceType==MTP3iup) && (si==4) )
+      GetPointCodesIUP(sls,opc,dpc,&inbuffer[1]);
+    else
+      GetPointCodes(sls,opc,dpc,&inbuffer[offset+1]);
+    recv_msg.sls() = sls;
+    recv_msg.opc() = opc;
+    recv_msg.dpc() = dpc;
+    int len;
+    len= length-labellen-offset; //len= length-labellen;
+    recv_msg.data() = OCTETSTRING(len, &inbuffer[offset+labellen]);
+    incoming_message( recv_msg );
+  }
+  else
+  { log("The rooting label (OPC, DPC) not matched with the filter setting -> packet dropped.");
+    return;
+  }
+}
+
+void MTP3asp__PT_PROVIDER::processing_MTP3_management_msg(unsigned char* inbuff,int len)
+{
+  int outlen=0;
+  int labellen; // sio+routinglabel length
+  int chm_addlen;  // (Changeback) additional length = Heading Code + SLC+ (changeback codes)
+  int mim_addlen;  // (MIM)          -"-
+  unsigned int offset = 0;
+  OCTETSTRING bttc_oct = int2oct(stored_bttc_octet, 1); // additional octet for MTP3bttc
+
+  if ( MTPServiceType==MTP3itu || MTPServiceType==MTP3iup)
+  { labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+    chm_addlen = 2;
+    mim_addlen = 1;
+  }
+  else if ( MTPServiceType==MTP3ansi )
+  { labellen=8; //ANSI: sio(1byte) +routing label(7byte) see T.1.111.4
+    chm_addlen = 3;
+    mim_addlen = 2;
+  }
+  else if (MTPServiceType==MTP3ttc)
+  { //if ( mtp3_ni == 0 ) { labellen=5;} //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+    //else {
+    labellen=6;
+    //} //sio(1byte)+ routing label(6bytes) see 3/15517-FAY 112 011/2 or jt-q704.
+  }
+  else if (MTPServiceType==MTP3mpt)
+  { if ( mtp3_ni == 2 ) { labellen=8; }
+    else { labellen=5; }
+    chm_addlen = 2;
+    mim_addlen = 1;
+  }
+  else if (MTPServiceType==MTP3bttc)
+  { labellen=7;//sio(1byte)+routing label(6bytes) see 3/15517-FAY 112 011/2 or jt-q704
+    offset = 1;
+  }
+  else
+  { log("incorrect MTPServiceType- programming error-> packet dropped");
+    return;
+  }
+
+  if (MTPServiceType==MTP3bttc)
+  {
+    buffer[0]=*((const unsigned char*)bttc_oct); //additional stored octet in front
+    buffer[1]=inbuff[0]; //SIO
+    if (!ChangePointCodes(&buffer[2],&inbuff[1],len))
+    { log("incorrect incoming management message -> packet dropped.");
+      return;
+    }
+  }
+  else
+  {
+    buffer[0]=inbuff[0]; //SIO
+    if (!ChangePointCodes(&buffer[1],&inbuff[1],len))
+    { log("incorrect incoming management message -> packet dropped.");
+      return;
+    }
+  }
+
+  // Changeover & changeback(CHM) see ITU: Q.704/15.4.1  ANSI: T.1.111.4/15.2-4
+  if (inbuff[labellen]==0x51) //CBD
+  {
+    outlen=labellen+chm_addlen;
+    if (len<outlen)
+    { log("incorrect incoming CHM message -> packet dropped.");
+      return;
+    }
+    else
+    { buffer[offset + labellen]= 0x61; // Heading Code <- CBA
+      memcpy(&buffer[offset + labellen+1],&inbuff[labellen+1],len-labellen-1);
+      outlen = len;
+    }
+  }
+  else if (inbuff[labellen]==0x16) //MIM  H0=6=Mgmt inhibit msg, H1=1=LIN
+  {
+    outlen=labellen+mim_addlen;
+    if (len<outlen)
+    { log("incorrect incoming MIM message -> packet dropped.");
+      return;
+    }
+    else
+    {
+      buffer[offset + labellen]= 0x56; // LIN -> LID  ; LID = link inhibit denied
+      memcpy(&buffer[offset + labellen+1],&inbuff[labellen+1],(len-labellen-1)); //SLC+spare+...
+      outlen = len;
+    }
+  }
+  else if (inbuff[labellen]==0x17 && (MTPServiceType==MTP3iup))
+  {
+    if(forward_resume) incoming_message(ASP__MTP3__RESUME(NULL_VALUE));
+    return;
+  }
+
+/*  else if (inbuff[labellen]==0x17 && (MTPServiceType==MTP3iup)) //TRM  H0=7, H1=1 : TRA
+  {
+    outlen=labellen+1;
+    if (len<outlen)
+    { log("incorrect incoming TRA message -> packet dropped.");
+      return;
+    }
+    else
+    {
+      outlen = len;
+    }
+  }*/
+  else
+  { log("This management message type is not supported -> packet dropped.");
+    return;
+  }
+
+  // send message
+  log("function processing_MTP3_management_msg sends a msg");
+  send_msg(buffer, outlen+offset);
+}
+
+// processing MTP3 test msg
+// Signalling link test message handling according to Q.707 (ITU) and T1.111.7-2001 (ANSI)
+void MTP3asp__PT_PROVIDER::processing_MTP3_test_msg(unsigned char* inbuff,int len)
+{
+  int outlen=0;
+  int labellen; // sio+routinglabel length
+  int addlen;   //Heading Code+length indicator
+  //unsigned int ni; //network indicator
+  OCTETSTRING bttc_oct = int2oct(stored_bttc_octet, 1); // additional octet for MTP3bttc
+  unsigned int offset = 0;
+  if ( MTPServiceType==MTP3itu || MTPServiceType==MTP3iup)
+  {
+    labellen=5; //ITU-T:sio(1byte) + routing label(4byte) see /Q.704/15.4.1
+    addlen = 2; //HC(1 byte)+length ind(1 byte) see Q.707/5.8
+  }
+  else if ( MTPServiceType==MTP3ansi )
+  {
+    labellen=8; //ANSI: sio(1byte) +routing label(7byte) see T1.111.4
+    addlen = 2; //HC(1byte) +(length ind+SLC(1byte)) see  T1.111.7-2001/5
+  }
+  else if (MTPServiceType==MTP3ttc)
+  {
+  /*  if (mtp3_ni == 0) {
+        debuglog("processing_MTP3_test_msg/TTC (Japanese) international");
+        labellen=5;  //TTC (Japanese) international
+        addlen=2;
+    } else {
+  */
+        labellen=6; // previously 7
+                    // TTC national [ 56bits=sio(1byte)+routing label ]
+                    // r.label= dpc(2bytes)+opc(2bytes)+sls(4bit)+12bits (?)
+        addlen=2;
+    //}
+  }
+  else if (MTPServiceType==MTP3mpt)
+  {
+    if (mtp3_ni == 2)
+    { labellen=8;  //MPT national
+      addlen=2;
+    }
+    else
+    { labellen=5; // MPT international
+      addlen=2;
+    }
+  }
+  else if (MTPServiceType==MTP3bttc)
+  {
+    labellen=7;
+    addlen=2;
+    offset = 1;
+  }
+  else
+  { log("incorrect MTPServiceType - programming error-> packet dropped");
+    return;
+  }
+
+  if (MTPServiceType==MTP3bttc)
+  {
+    buffer[0]=*((const unsigned char*)bttc_oct); //additional stored octet in front
+    buffer[1]=inbuff[0]; //SIO
+    if (!ChangePointCodes(&buffer[2],&inbuff[1],len))
+    {
+      log("incorrect incoming test message -> packet dropped.");
+      return;
+    }
+  }
+  else
+  {
+    buffer[0]=inbuff[0]; //SIO
+    if (!ChangePointCodes(&buffer[1],&inbuff[1],len))
+    {
+      log("incorrect incoming test message -> packet dropped.");
+      return;
+    }
+  }
+
+  // Test message handling: SLTM->SLTA, SRT->SRA, SLTA->TRA, others only logged
+  debuglog("\n==>Test message handling: msg type:%x\n",   inbuff[labellen] ); // temporary
+  switch( inbuff[labellen] )
+  {
+    case 0x11: //SLTM
+      log("MTP3/SLTM message received");
+      outlen=labellen+addlen;
+      if (len<outlen )
+      { log("incorrect incoming MTP3/SLTM message -> packet dropped.");
+        return;
+      }
+      else
+      { buffer[offset + labellen]= 0x21; // SLTA
+        memcpy(&buffer[offset + labellen+1],&inbuff[labellen+1],(len-labellen-1));
+        outlen = len;
+      }
+      break;
+    case 0x21: //SLTA
+      if(!strncmp((const char *)(inbuff+labellen+addlen),(const char *)ttcn_in_sltm,sizeof_ttcn_in_sltm))
+      {
+        log("MTP3/SLTA message received for  SLTM sent by Test Port-> TRA message sent");
+        buffer[offset]--;
+        buffer[offset + labellen]= 0x17; // TRA
+        outlen = labellen+1;
+        return;
+//        if(forward_resume) incoming_message(ASP__MTP3__RESUME(NULL_VALUE));
+      }
+      else
+      {
+        log("MTP3/SLTA message received -> packet dropped");
+        return;
+      }
+      break;
+    case 0x23: // TTC (Japanese) SRT (Signalling Routing Test signal)
+      log("MTP3ttc/SRT message received");
+      outlen=labellen+addlen;
+      if (len<outlen )
+      { log("incorrect incoming MTP3ttc/SRT message (length error)-> packet dropped.");
+        return;
+      }
+      else
+      { buffer[offset + labellen]= 0x84; // TTC (Japanese) SRA
+        memcpy(&buffer[offset + labellen+1],&inbuff[labellen+1],(len-labellen-1));
+        outlen = len;
+      }
+      break;
+    case 0x84: // TTC (Japanese) SRA (Signalling Routing test Ack signal)
+      log("MTP3ttc/SRA message received -> packet dropped");
+      return;
+    default:
+      log("This management message type is not supported -> packet dropped ");
+      return;
+  }
+
+  // send message
+  log("function processing_MTP3_test_msg sends a message");
+  send_msg( buffer,outlen+offset);
+}
+
+// Point Code Manipulation (Get/Set/Change)
+// -------------------------------------------------
+void MTP3asp__PT_PROVIDER::GetPointCodes(unsigned int &sls,unsigned int &opc,unsigned int &dpc, unsigned char* msg)
+{
+  unsigned int label;
+  sls=0; opc=0; dpc=0;
+  unsigned long long int Label;
+
+  switch( MTPServiceType)
+  {
+    case MTP3itu:
+      label= decode_32bLSB_int(msg);
+      sls  = (label>>28)&0xF;    //sls  = (label&0xF0000000)>>28;
+      opc  = (label>>14)&0x3FFF; //opc  = (label&0x0FFFC000)>>14;
+      dpc  = label&0x3FFF;       //dpc  = (label&0x00003FFF);
+      debuglog("Function GetPointCodes called for service type MTP3itu");
+      break;
+    case MTP3iup:
+      label= decode_32bLSB_int(msg);
+      sls  = (label>>28)&0xF;    //sls  = (label&0xF0000000)>>28;
+      opc  = (label>>14)&0x3FFF; //opc  = (label&0x0FFFC000)>>14;
+      dpc  = label&0x3FFF;       //dpc  = (label&0x00003FFF);
+      debuglog("Function GetPointCodes called for service type MTP3iup");
+      break;
+    case MTP3ansi:
+      Label=decode_56bLSB_int(msg);
+      sls  = (Label >> 48) & 0xFF;    //sls  = (Label&0x00FF000000000000)>>48;
+      opc  = (Label >> 24) & 0xFFFFFF;//opc  = (Label&0x0000FFFFFF000000)>>24;
+      dpc  = Label & 0xFFFFFF;        //dpc  = (Label&0x0000000000FFFFFF);
+      debuglog("Function GetPointCodes called for service type MTP3ansi");
+      break;
+    case MTP3ttc:
+    /*
+      if( mtp3_ni == 0)
+      {
+        label= decode_32bLSB_int(msg);
+        sls  = (label>>28)&0xF;     //sls  = (label&0xF0000000)>>28;
+        opc  = (label>>14)&0x3FFF;  //opc  = (label&0x0FFFC000)>>14;
+        dpc  = label&0x3FFF;
+        debuglog("Function GetPointCodes called for service type MTP3ttc/international");
+      } else
+      {*/
+      Label=decode_48bLSB_int(msg);            //0x010203040506
+      sls  = (Label>>32)&0xF;   // sls  = (Label&0x000F00000000)>>32; // only 4 bits!!!
+      opc  = (Label>>16)&0xFFFF;//opc  = (Label&0x0000FFFF0000)>>16;
+      dpc  = Label&0xFFFF;      //dpc  = (Label&0x00000000FFFF);
+      debuglog("Function GetPointCodes called for service type MTP3ttc/national");
+      //}
+      break;
+    case MTP3bttc:
+      Label=decode_48bLSB_int(msg);
+      sls  = (Label>>32)&0xF;   // sls  = (Label&0x000F00000000)>>32; // only 4 bits!!!
+      opc  = (Label>>16)&0xFFFF;//opc  = (Label&0x0000FFFF0000)>>16;
+      dpc  = Label&0xFFFF;      //dpc  = (Label&0x00000000FFFF);
+      debuglog("Function GetPointCodes called for service type MTP3bttc/national");
+      break;
+    case MTP3mpt:
+      if( mtp3_ni == 2)
+      {
+        Label=decode_56bLSB_int(msg);
+        sls  = (Label >> 48) & 0xFF;    //sls  = (Label&0x00FF000000000000)>>48;
+        opc  = (Label >> 24) & 0xFFFFFF;//opc  = (Label&0x0000FFFFFF000000)>>24;
+        dpc  = Label & 0xFFFFFF;        //dpc  = (Label&0x0000000000FFFFFF);
+        debuglog("Function GetPointCodes called for service type MTP3mpt(nat)");
+      }
+      else
+      {
+        label= decode_32bLSB_int(msg);
+        sls  = (label>>28)&0xF;    //sls  = (label&0xF0000000)>>28;
+        opc  = (label>>14)&0x3FFF; //opc  = (label&0x0FFFC000)>>14;
+        dpc  = label&0x3FFF;       //dpc  = (label&0x00003FFF);
+        debuglog("Function GetPointCodes called for service type MTP3mpt(int)");
+      }
+      break;
+    default:
+      break;
+  }
+  debuglog("sls:%u opc:%u, dpc:%u",sls,opc,dpc);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::GetPointCodesIUP(unsigned int &cic,unsigned int &opc,unsigned int &dpc, unsigned char* msg)
+{
+  debuglog("Function GetPointCodesIUP called");
+  cic=0; opc=0; dpc=0;
+  unsigned long long int Label;
+  Label=decode_40bLSB_int(msg);            //0x0102030405
+  cic  = (Label>>28)&0xFFF;  //cic  = (label&0xFFF0000000)>>28;
+  opc  = (Label>>14)&0x3FFF; //opc  = (label&0x000FFFC000)>>14;
+  dpc  = Label&0x3FFF;       //dpc  = (label&0x0000003FFF);
+  debuglog("cic:%u opc:%u, dpc:%u",cic,opc,dpc);
+}
+
+void MTP3asp__PT_PROVIDER::SetPointCodes(unsigned int sls,unsigned int opc,unsigned int dpc, unsigned char* msg)
+{
+  unsigned long long int Sls,Opc,Dpc;
+
+  switch( MTPServiceType)
+  {
+    case MTP3itu:
+      encode_32bLSB_int( msg, ((sls<<28)|(opc<<14)|dpc ));
+      debuglog("Function SetPointCodes called for service type MTP3itu");
+      break;
+    case MTP3iup:
+      encode_32bLSB_int( msg, ((sls<<28)|(opc<<14)|dpc ));
+      debuglog("Function SetPointCodes called for service type MTP3iup");
+      break;
+    case MTP3ansi:
+      Sls=sls; Opc=opc; Dpc=dpc;
+      encode_56bLSB_int( msg, ((Sls<<48)|(Opc<<24)|Dpc));
+      debuglog("Function SetPointCodes called for service type MTP3ansi");
+      break;
+    case MTP3ttc:
+     /* if ( mtp3_ni == 0 ){
+        encode_32bLSB_int( msg, ((sls<<28)|(opc<<14)|dpc ));
+        debuglog("Function SetPointCodes called for service type MTP3ttc/international");
+      } else {
+     */
+        Sls=sls; Opc=opc; Dpc=dpc;
+        encode_48bLSB_int( msg, ((Sls<<32)|(Opc<<16)|Dpc));
+        debuglog("Function SetPointCodes called for service type MTP3ttc/national");
+      //}
+      break;
+    case MTP3bttc:
+        Sls=sls; Opc=opc; Dpc=dpc;
+        encode_48bLSB_int( msg, ((Sls<<32)|(Opc<<16)|Dpc));
+        debuglog("Function SetPointCodes called for service type MTP3bttc/national");
+      break;
+    case MTP3mpt:
+      if ( mtp3_ni == 2 )
+      { Sls=sls; Opc=opc; Dpc=dpc;
+        encode_56bLSB_int( msg, ((Sls<<48)|(Opc<<24)|Dpc));
+        debuglog("Function SetPointCodes called for service type MTP3mpt(nat)");
+      }
+      else
+      { encode_32bLSB_int( msg, ((sls<<28)|(opc<<14)|dpc ));
+        debuglog("Function SetPointCodes called for service type MTP3mpt(int)");
+      }
+      break;
+    default:
+      break;
+  }
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::SetPointCodesIUP(unsigned int cic,unsigned int opc,unsigned int dpc, unsigned char* msg)
+{
+  unsigned long long int Cic,Opc,Dpc;
+  Cic=cic; Opc=opc; Dpc=dpc;
+  debuglog("Function SetPointCodesIUP called");
+  encode_40bLSB_int( msg, ((Cic<<28)|(Opc<<14)|Dpc ));
+}
+
+//Changes the Point  codes: dpc<->opc ie. destination <->orig
+// inbuff starts from dpc i.e doesn't contain sio !!!!
+int MTP3asp__PT_PROVIDER::ChangePointCodes(unsigned char* outbuff, unsigned char *inbuff, int len)
+{
+  switch( MTPServiceType)
+  {
+    case MTP3itu:
+    case MTP3iup:
+      if (len<5)
+      { warn("MTP3itu:len<5. Too short message!"); return 0; };
+      break;
+    case MTP3ansi:
+      if (len<9 ) return 0;
+      break;
+    case MTP3ttc:
+      //if ( mtp3_ni == 0 && len<5)
+      //{ warn("MTP3ttc:len<5. Too short message!"); return 0; }
+      //else
+      if (len<6)
+      { warn("MTP3ttc:len<6. Too short message!"); return 0; }
+      break;
+    case MTP3bttc:
+      if (len<7)
+      { warn("MTP3bttc:len<7. Too short message!"); return 0; }
+      break;
+    case MTP3mpt:
+      if ( mtp3_ni == 2 && len<8)
+      { warn("MTP3mpt:len<8. Too short message!"); return 0; }
+      else if (len<5)
+      { warn("MTP3mpt:len<5. Too short message!"); return 0; }
+      break;
+    default:
+      warn("Unknown MTPServiceType!!!");
+      break;
+  }
+  unsigned int sls,opc,dpc;
+  GetPointCodes(sls,opc,dpc,inbuff);
+  SetPointCodes(sls,dpc,opc,outbuff);
+  return 1;
+}
+//------------
+
+int  MTP3asp__PT_PROVIDER::Check_PcMatch(unsigned int opc, unsigned int dpc, unsigned char *buff)
+{
+  unsigned int temp_opc,temp_dpc,temp_sls;
+
+  GetPointCodes(temp_sls,temp_opc,temp_dpc,buff);
+  if ( (temp_opc == opc) && (temp_dpc == dpc) ) return 1;
+  return 0;
+}
+//------------
+
+
+// -------------------------------------------------
+// M3UA Functions and definitions for test with SEA
+// -------------------------------------------------
+
+// Structures for M3UA
+static unsigned char aspup_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPSM, //Msg class: ASPSM
+  M3UA_MSG_TYP_ASPSM_ASPUP, //Msg type: ASPUP
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+  //      ,PAR_PREFIX_COMMON, //optional Info string tag, in included, then msg
+  //       PAR_INFO_STR            //msg length should be +20, that is 28=0x1c
+  //       0x00,0x0f, // length: "TTCN-3 Executor"  is 15 chars
+  //       'T', 'T', 'C', 'N',
+  //       '-', '3', ' ', 'E',
+  //       'x', 'e', 'c', 'u',
+  //       't', 'o', 'r', 0x00 //las octet is padding
+};
+const int sizeof_aspup_msg = 8;
+
+static unsigned char aspupack_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPSM, //Msg class: ASPSM
+  M3UA_MSG_TYP_ASPSM_ASPUPAck, //Msg type: ASPUP
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+};
+const int sizeof_aspupack_msg = 8;
+
+static unsigned char aspac_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPTM, //Msg class
+  M3UA_MSG_TYP_ASPTM_ASPAC, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+};
+const int sizeof_aspac_msg = 8;
+
+// ASP Active Acknowledge msg:
+static unsigned char aspac_ack_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPTM, //Msg class
+  M3UA_MSG_TYP_ASPTM_ASPACAck, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+};
+const int sizeof_aspac_ack_msg = 8;
+
+static unsigned char aspia_ack_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPTM, //Msg class
+  M3UA_MSG_TYP_ASPTM_ASPIAAck, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+};
+const int sizeof_aspia_ack_msg = 8;
+
+// ASP DOWN Acknowledge msg:
+static unsigned char aspdn_ack_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_ASPSM, //Msg class
+  M3UA_MSG_TYP_ASPSM_ASPDNAck, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x08  // length ends = 8 octets
+};
+const int sizeof_aspdn_ack_msg = 8;
+
+//ASP Destination Available msg:
+static unsigned char dava_1apc_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  //or updated doc 2/1056-FCPW 101 86/P-1
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_SSNM, //Msg class
+  M3UA_MSG_TYP_SSNM_DAVA, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x10,  // length ends, 16 octets
+  //Affected point code
+  PAR_PREFIX_COMMON,
+  PAR_AFFECTED_PC,
+  0x00, //par length begins (2 octets)
+  0x08, //length ends, 8 octets
+  0x00, // point code placeholder begins
+  0x00, //
+  0x00, //
+  0x00 // point code placeholder ends
+};
+const int sizeof_dava_1apc_msg = 16;
+
+static unsigned char duna_1apc_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_SSNM, //Msg class
+  M3UA_MSG_TYP_SSNM_DUNA, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x10,  // length ends, 16 octets
+  //Affected point code
+  PAR_PREFIX_COMMON,
+  PAR_AFFECTED_PC,
+  0x00, //par length begins (2 octets)
+  0x08, //length ends, 8 octets
+  0x00, // point code placeholder begins
+  0x00, //
+  0x00, //
+  0x00 // point code placeholder ends
+};
+const int sizeof_duna_1apc_msg = 16;
+
+static unsigned char error_msg[] =
+{
+  //common MsUA msg hdr, see M3UA PS
+  //Doc no. 1/1056-FCP 103 3571/F Uen, RevA
+  0x01, //Release Version: 01
+  0x00, //reserved
+  M3UA_MSG_CLS_MGMT, //Msg class
+  M3UA_MSG_TYP_MGMT_ERR, //Msg type
+  0x00, //Msg length  begins (4 octets)
+  0x00, //
+  0x00, //
+  0x18,  // length ends, 16+8 octets
+  // Error code field:
+  PAR_PREFIX_COMMON,
+  PAR_ERROR_CODE,
+  0x00, //par length begins (2 octets)
+  0x08, //length ends, 8 octets
+  0x00, // error code placeholder begins (M3UA_MSG_OFFS+4)
+  0x00, //
+  0x00, //
+  0x00, // error code placeholder ends
+  // additional field:
+  0x00, // M3UA_MSG_OFFS+8
+  0x00, // Routing context or Network Appearanance or APC or DI = error_code_id
+  0x00, // par length begins (2 octets)
+  0x08, // length ends, 8 octets
+  0x00, // value placeholder begins M3UA_MSG_OFFS+12
+  0x00, //
+  0x00, //
+  0x00 // value place holder ends
+};
+const int sizeof_error_msg = 24;
+
+void MTP3asp__PT_PROVIDER::M3UA_user_unmap(const char *system_port)
+{
+  MTP3_close_connection();
+  dynamicConnection = FALSE;
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::M3UA_user_map(const char *system_port)
+{
+  M3UAState = AssocDown;
+  Check_TestPort_Variables();
+  if(dynamicConnection)
+  {
+    connectionUp = FALSE;
+  }
+  else
+  {
+    MTP3_open_channel(TRUE);
+    M3UA_user_connect();
+  }
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::M3UA_user_connect()
+{
+    M3UAState = AssocEstabl;
+    // Sending out an ASPUP message
+    log("Message ASPUP will be sent");
+    send_msg(aspup_msg, sizeof_aspup_msg);
+    // NOTE: the ASPUPAck will be handled by M3UA_interpreter, which
+    // also will take care of sending ASPAC upon receiving the ASPUPAck
+}
+//------------
+
+// M3UA_interpreter
+void MTP3asp__PT_PROVIDER::M3UA_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con)
+{
+  if ((length==0) || (inbuffer==NULL))
+  { warn("0 byte long message received -> packet dropped.");
+    return;
+  }
+
+  if (length==1)
+  {
+    log("1 byte long internal SEA message received -> packet dropped.");
+    return;
+  }
+
+  if ( !strcmp((const char*)inbuffer,"start") )
+  { log("start message received from SEA");
+    return;
+  }
+  else if (!strcmp((const char*)inbuffer,"stop"))
+  { log("stop message received from SEA");
+    return;
+  }
+
+  // writing out the contents of the buffer
+  OCTETSTRING buff(length,inbuffer);
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("incoming buffer: ");
+  buff.log();
+  TTCN_Logger::end_event();
+
+  // version checking
+  if (  inbuffer[M3UA_VER_OFFS]  != M3UA_version )
+  { warn("Incompatible M3UA protocol version in header -> packet dropped");
+    return;
+  }
+
+  //length checking
+  unsigned int indicated_length = decode_32b_int(inbuffer + M3UA_LGT_OFFS );
+  if ( indicated_length  != (unsigned)length)
+    warn("Length in common header (%d) mismatches received  buffer length (%d),"
+         "Assuming that it is because of the omission of final parameter padding"
+         "in indicated length",indicated_length, length);
+
+  // checking MSG class
+  int unprocessed_chars = 0;
+  switch (inbuffer[M3UA_CLS_OFFS])
+  {
+    case M3UA_MSG_CLS_MGMT:
+      unprocessed_chars =  processing_M3UA_MGMT_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_CLS_TRNSFM :
+      unprocessed_chars =  processing_M3UA_Transfer_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_CLS_SSNM :
+      unprocessed_chars = processing_M3UA_SSNM_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_CLS_ASPSM :
+      unprocessed_chars = processing_M3UA_ASPSM_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_CLS_ASPTM :
+      unprocessed_chars = processing_M3UA_ASPTM_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_CLS_RKM :
+      unprocessed_chars = processing_M3UA_RKM_msg(inbuffer, length);
+      break;
+    default:
+      unprocessed_chars = processing_M3UA_unsupported_msg_class(inbuffer, length);
+      break;
+  }
+  debuglog("%d chars remained unprocessed (might be due to padding)",  unprocessed_chars);
+}
+//------------
+
+//processing M3UA MGMT msg
+int MTP3asp__PT_PROVIDER::processing_M3UA_MGMT_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_MGMT_msg");
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("decoded msg class: Mgmt, ");
+  switch (inbuffer[M3UA_TYP_OFFS])//msg type
+  {
+    case M3UA_MSG_TYP_MGMT_ERR:
+      TTCN_Logger::log_event("type: ERROR-> ignored");
+      TTCN_Logger::log_event("}");
+      TTCN_Logger::end_event();
+      break;
+    case M3UA_MSG_TYP_MGMT_NTFY:
+      TTCN_Logger::log_event("type: NOTIFY -> ignored");
+      TTCN_Logger::log_event("}");
+      TTCN_Logger::end_event();
+      break;
+    default:
+      send_M3UA_error_msg( PAR_ERRC_UNSMT,  inbuffer[M3UA_TYP_OFFS]);
+      TTCN_Logger::log_event("Unsupported M3UA msg type %x of class MGMT -> packet dropped.", inbuffer[M3UA_TYP_OFFS]);
+      TTCN_Logger::log_event("}");
+      TTCN_Logger::end_event();
+      break;
+  }
+  return length - offset;
+}
+//------------
+
+//processing M3UA SSNM msg
+int MTP3asp__PT_PROVIDER::processing_M3UA_SSNM_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_SSNM_msg");
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("decoded msg class: SSNM, ");
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+
+  switch (inbuffer[M3UA_TYP_OFFS])
+  {
+    case M3UA_MSG_TYP_SSNM_DAUD:
+      while (offset <= length-8 ) //processing potential params
+      {
+        switch (inbuffer[offset++]) //1st octet of tag
+        {
+        case PAR_PREFIX_COMMON:
+          TTCN_Logger::log_event (" DAUD: COMMON parameter ");
+          switch (inbuffer[offset++]) //2nd octet of COMMON tag
+          {
+            case PAR_ROUTING_CTX:
+              TTCN_Logger::log_event ("Routing Context (unsupported par) -> skipped), ");
+              skip_par_after_tag(inbuffer, offset);
+              break;
+            case PAR_INFO_STR:
+              TTCN_Logger::log_event ("Info String (unsupported par) -> skipped), ");
+              skip_par_after_tag(inbuffer, offset);
+              break;
+            case PAR_AFFECTED_PC:
+              TTCN_Logger::log_event ("Affected Point Code  -> will send DUNA/DAVA, ");
+              TTCN_Logger::log_event("will ignore remainder parameters after APC}");
+              TTCN_Logger::end_event();
+              Send_DAVA_DUNA_to_APCinDAUD(Tester_Pc, inbuffer, offset);
+              return length-offset;
+            default:
+              TTCN_Logger::log_event ("invalid COMMON param tag:0x%02x%02x-> skipped", PAR_PREFIX_COMMON, inbuffer[offset-1]);
+              send_M3UA_error_msg( PAR_ERRC_PARFE, inbuffer[offset-1]);
+              skip_par_after_tag(inbuffer, offset);
+              break;
+          }
+          break;
+        case PAR_PREFIX_M3UA:
+          TTCN_Logger::log_event ("DAUD: M3UA parameter: ");
+          switch (inbuffer[offset++]) //2nd octet of M3UA tag
+          {
+            case PAR_NETW_APP:
+              TTCN_Logger::log_event ("Network Appearance (unsupported par) -> skipped), ");
+              skip_par_after_tag(inbuffer, offset);
+              break;
+            default:
+              TTCN_Logger::log_event ("invalid M3UA  param tag:0x%02x%02x-> skipped",
+              PAR_PREFIX_M3UA, inbuffer[offset-1]);
+              send_M3UA_error_msg( PAR_ERRC_PARFE, inbuffer[offset-1]);
+              skip_par_after_tag(inbuffer, offset);
+          }
+          break;
+        default: //1st octet of tag
+          TTCN_Logger::log_event ("invalid 1st octet param tag:0x%02x in DATA (packet dropped)",inbuffer[offset-1]);
+          close_log_event();
+          return length -offset;
+        break;
+        }
+      }
+      break;
+    case M3UA_MSG_TYP_SSNM_DAVA: // Destination Available // Notification to the user part ?????
+      TTCN_Logger::log_event("type: SSNM_DAVA -> ignored");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_SSNM_DUNA: // Destination Unavailable // Notification to the user part ?????
+      TTCN_Logger::log_event("type: SSNM_DUNA -> ignored");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_SSNM_SCON: // Signalling Congestion  // Notification to the user part ?????
+      TTCN_Logger::log_event("type: SSNM_SCON -> ignored");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_SSNM_DUPU: //Destinationn User Part Unavailable // Notification to the user part ?????
+      TTCN_Logger::log_event("type: SSNM_DUPU -> ignored");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_SSNM_DRST: //Destination Restricted   // Notification to the user part ?????
+      TTCN_Logger::log_event("type: SSNM_DRST -> ignored");
+      close_log_event();
+      break;
+    default: //msg type
+      send_M3UA_error_msg( PAR_ERRC_UNSMT,  inbuffer[M3UA_TYP_OFFS]);
+      TTCN_Logger::log_event("Unsupported M3UA msg type -> packet dropped.");
+      close_log_event();
+      break;
+  }
+  return length - offset;
+}
+//------------
+
+//processing M3UA ASPSM msg
+int MTP3asp__PT_PROVIDER::processing_M3UA_ASPSM_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_ASPSM_msg");
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("decoded msg class: ASPSM, ");
+
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+  switch (inbuffer[M3UA_TYP_OFFS])
+  {
+    case M3UA_MSG_TYP_ASPSM_ASPUP:
+      TTCN_Logger::log_event("type: ASPSM_ASPUP -> ASPUPAck will be sent");
+      close_log_event();
+      send_msg(aspupack_msg, sizeof_aspupack_msg);
+      break;
+    case M3UA_MSG_TYP_ASPSM_ASPDN:
+      TTCN_Logger::log_event("type: ASPSM_ASPDN -> ASPDNAck will be sent");
+      close_log_event();
+      send_msg(aspdn_ack_msg, sizeof_aspdn_ack_msg);
+      break;
+    case M3UA_MSG_TYP_ASPSM_BEAT:
+      TTCN_Logger::log_event("type: ASPSM_BEAT -> ASPSM_BEATAck will be sent");
+      close_log_event();
+      //Sending back the packet as acknowledge:
+      inbuffer[M3UA_TYP_OFFS]= M3UA_MSG_TYP_ASPSM_BEATAck;
+      send_msg(inbuffer, length);
+      break;
+    case M3UA_MSG_TYP_ASPSM_ASPUPAck:
+      TTCN_Logger::log_event("type: ASPSM_ASPUPAck -> ASPAC will be sent");
+      M3UAState = AssocInac;
+      TTCN_Logger::log_event(" M3UAState's been changed to AssocInac");
+      close_log_event();
+      send_msg(aspac_msg, sizeof_aspac_msg );
+      break;
+    case M3UA_MSG_TYP_ASPSM_ASPDNAck:
+      M3UAState = AssocDown;
+      TTCN_Logger::log_event(" M3UAState's been changed to AssocDown");
+      TTCN_Logger::log_event("type: ASPSM_ASPDNAck ->  nothing will be sent");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_ASPSM_BEATAck:
+      TTCN_Logger::log_event("type: ASPSM_BEATAck ->  nothing will be sent");
+      close_log_event();
+      break;
+    default:
+      TTCN_Logger::log_event("Unsupported M3UA msg type %x of class ASPSM-> packet dropped.", (unsigned char)(inbuffer[M3UA_TYP_OFFS]));
+      close_log_event();
+      send_M3UA_error_msg( PAR_ERRC_UNSMT,  inbuffer[M3UA_TYP_OFFS]);
+      break;
+  }
+  return length - offset;
+}
+//------------
+
+//processing M3UA ASPTM msg
+int MTP3asp__PT_PROVIDER::processing_M3UA_ASPTM_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_ASPTM_msg");
+  TTCN_Logger::begin_event(TTCN_PORTEVENT);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("decoded msg class: ASPTM, ");
+
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+  switch (inbuffer[M3UA_TYP_OFFS])
+  {
+    case M3UA_MSG_TYP_ASPTM_ASPAC: //ASP Active
+      M3UAState = AssocActive;
+      TTCN_Logger::log_event("type: ASPTM_ASPAC -> ASPACAck will be sent");
+      close_log_event();
+      send_msg(aspac_ack_msg, sizeof_aspac_ack_msg);
+      break;
+    case M3UA_MSG_TYP_ASPTM_ASPIA:  //ASP InActive
+      TTCN_Logger::log_event("type: ASPTM_ASPIA -> ASPIAAck will be sent");
+      close_log_event();
+      send_msg(aspia_ack_msg, sizeof_aspia_ack_msg);
+      break;
+    case M3UA_MSG_TYP_ASPTM_ASPACAck:
+      M3UAState = AssocActive;
+      TTCN_Logger::log_event("type: ASPTM_ASPACAck -> nothing will be sent");
+      TTCN_Logger::log_event("M3UAState's been changed to AssocActive.");
+      close_log_event();
+      break;
+    case M3UA_MSG_TYP_ASPTM_ASPIAAck:
+      TTCN_Logger::log_event("type: ASPTM_ASPIAAck -> nothing will be sent");
+      close_log_event();
+      break;
+    default:
+      TTCN_Logger::log_event("Unsupported M3UA msg type %x of class ASPSM-> packet dropped.", (unsigned char)(inbuffer[M3UA_TYP_OFFS]));
+      close_log_event();
+      send_M3UA_error_msg( PAR_ERRC_UNSMT,  inbuffer[M3UA_TYP_OFFS]);
+      break;
+  }
+  return length - offset;
+}
+//------------
+
+//processing M3UA RKM msg
+int MTP3asp__PT_PROVIDER::processing_M3UA_RKM_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_RKM_msg");
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+  warn("Unsupported M3UA msg class M3UA_RKM -> packet dropped.");
+  return length - offset;
+}
+//------------
+
+//processing M3UA unsupported msg class
+int MTP3asp__PT_PROVIDER::processing_M3UA_unsupported_msg_class(unsigned char* inbuffer,int length)
+{
+  warn("Unsupported M3UA msg class -> packet dropped.");
+  send_M3UA_error_msg( PAR_ERRC_UNSMC, inbuffer[M3UA_CLS_OFFS] );
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+  return length - offset;
+}
+//------------
+
+// processing_M3UA_Transfer_msg  -  called if the msg class is "Transfer" i.e M3UA_MSG_CLS_TRNSFM:
+int MTP3asp__PT_PROVIDER::processing_M3UA_Transfer_msg(unsigned char* inbuffer,int length)
+{
+  debuglog("Entering function:processing_M3UA_Transfer_msg");
+  int offset = M3UA_MSG_OFFS; //pointer for processing
+  unsigned int recv_opc, recv_dpc,recv_si, recv_ni, recv_mp,recv_sls =0;
+  int param_length = 0;
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): {", get_name());
+  TTCN_Logger::log_event("decoded msg class: DataTrnsf, ");
+
+  switch (inbuffer[M3UA_TYP_OFFS]) //msg type
+  {
+    case M3UA_MSG_TYP_TRSNFM_DATA:
+      TTCN_Logger::log_event("msg type DATA, ");
+      while (offset <= length-8) //processing potential params
+      {
+        switch (inbuffer[offset++]) //1st octet of tag. Offset already incremented after the 'case' !
+        {
+          case PAR_PREFIX_COMMON:
+            TTCN_Logger::log_event (" DATA: COMMON parameter, ");
+            switch (inbuffer[offset++]) //2nd octet of tag
+            {
+              case PAR_ROUTING_CTX:
+                TTCN_Logger::log_event ("Routing Context (unsupported par) -> skipped), ");
+                //  Send back an error msg
+                skip_par_after_tag(inbuffer, offset);
+                break;
+              case PAR_CORREL_ID:
+                TTCN_Logger::log_event ("Correlation ID (unsupported par) -> skipped), ");
+                skip_par_after_tag(inbuffer, offset);
+                break;
+              default:
+                TTCN_Logger::log_event ("invalid COMMON param tag:0x%02x%02x -> skipped", PAR_PREFIX_COMMON, inbuffer[offset-1]);
+                skip_par_after_tag(inbuffer, offset);
+                break;
+            }
+          case PAR_PREFIX_M3UA:
+            TTCN_Logger::log_event ("DATA: M3UA parameter: ");
+            switch (inbuffer[offset++]) //2nd octet of M3UA tag
+            {
+              case PAR_PROT_DATA:
+                //---------------------------------------------
+                TTCN_Logger::log_event ("Protocol Data");
+                // retrieving length
+                param_length = decode_16b_int(inbuffer+offset); offset+=2;
+                TTCN_Logger::log_event(", DATA: Length of Protocol Data parameter is %d",param_length);
+                //  retrieving M3UA protocol data paremeter opc, dpc, si, ni, mp,
+                //  sls
+                recv_opc = decode_32b_int(inbuffer+offset); offset +=4;
+                recv_dpc = decode_32b_int(inbuffer+offset); offset +=4;
+                recv_si = (unsigned int)(inbuffer[offset++]);
+                recv_ni = (unsigned int)(inbuffer[offset++]);
+                recv_mp = (unsigned int)(inbuffer[offset++]);
+                recv_sls = (unsigned int)(inbuffer[offset++]);
+                TTCN_Logger::log_event(", DATA: decoded Protocol Data parameter:");
+                // filling up TTCN structure
+                if ((Loop==MTP3_ON) ||
+                    (!Filter) ||
+                    (Filter &&
+                     (recv_opc == (unsigned)Sut_Pc) && (recv_dpc == (unsigned)Tester_Pc) &&
+                     (recv_ni == (unsigned)mtp3_ni)
+                   ))
+                {
+                  ASP__MTP3__TRANSFERind recv_msg;
+                  MTP3__Field__sio recv_sio;
+                  recv_sio.ni()= int2bit(recv_ni,2);
+                  recv_sio.prio()= int2bit(recv_mp,2);
+                  recv_sio.si()= int2bit(recv_si,4);
+                  recv_msg.sio() = recv_sio;
+                  recv_msg.sls() = recv_sls;
+                  recv_msg.opc()= recv_opc;
+                  recv_msg.dpc() = recv_dpc;;
+                  recv_msg.data() = OCTETSTRING(param_length-16, // 16 octet paramheader + 5 routing label
+                  &inbuffer[offset]);
+                  recv_msg.log();
+                  close_log_event();
+                  incoming_message ( recv_msg );
+                  offset += param_length-16;
+                  return  length - offset;
+                }
+                else
+                {
+                  close_log_event();
+                  log("Either the received M3UA(OPC, DPC, SI) fields, or the embedded MTP3 rooting label (OPC, DPC) not matched with the filter setting -> packet dropped.");
+                  return  length - offset;
+                }
+                break;
+              default:
+                TTCN_Logger::log_event ("invalid M3UA  param tag:0x%02x%02x-> skipped", PAR_PREFIX_M3UA, inbuffer[offset-1]);
+                skip_par_after_tag(inbuffer, offset);
+            }
+            break;
+          default:
+            TTCN_Logger::log_event ("invalid 1st octet param tag:0x%02x in DATA (packet dropped)",inbuffer[offset-1]);
+            close_log_event();
+            return length -offset;
+            break;
+        }
+      }// Checking parameter tag (offset <length-8)
+      break;
+    default:
+      TTCN_Logger::log_event("Invalid M3UA msg class TransferMessage msg type %d -> packet dropped",
+                             (unsigned int)(inbuffer[M3UA_TYP_OFFS]));
+      close_log_event();
+      send_M3UA_error_msg( PAR_ERRC_UNSMT,  inbuffer[M3UA_TYP_OFFS]);
+      break;
+  }
+
+  return length -offset;
+}
+
+// Set M3UA SingleAPC -  Stores field Single Affected Point Code
+void MTP3asp__PT_PROVIDER::Set_M3UA_SingleAPC(unsigned int pc, unsigned char* apc_par)
+{
+  //setting par type to APC
+  apc_par[0] = PAR_PREFIX_COMMON;
+  apc_par[1] = PAR_AFFECTED_PC;
+  //setting the length to 4+4 = 8
+  apc_par[2] = 0x00;
+  apc_par[3] = 0x08;
+  //setting the mask
+  apc_par[4] = 0x00;
+  //setting the pc
+  encode_24b_int(apc_par+5,pc);
+}
+
+// Send DAVA DUNA to APCinDAUD
+void MTP3asp__PT_PROVIDER::Send_DAVA_DUNA_to_APCinDAUD(unsigned int dava_sep, unsigned char* inbuffer, int & offset)
+{
+  unsigned int length = decode_16b_int(inbuffer+offset);
+  offset +=2;
+  unsigned int current_pc;
+
+  //checking the length
+  if ((length < 8) || (length%4))
+  { warn("Invalid length in APC parameter -> not processed");
+    return;
+  }
+
+  for (unsigned int i = 4  ; i < length; i += 4)
+  {
+    if (inbuffer[offset++] == 0x00)  // mask===>single pc
+    {
+      current_pc = decode_24b_int(inbuffer+offset);
+      offset +=3;
+      if (dava_sep == current_pc) //dava
+      { Set_M3UA_SingleAPC(dava_sep, dava_1apc_msg+M3UA_MSG_OFFS);
+        log("DAVA will be sent for pc=%d", dava_sep);
+        send_msg(dava_1apc_msg, sizeof_dava_1apc_msg);
+      }
+      else //duna
+      { Set_M3UA_SingleAPC(current_pc, duna_1apc_msg+M3UA_MSG_OFFS);
+        log("DUNA will be sent for pc=%d", current_pc);
+        send_msg(duna_1apc_msg, sizeof_duna_1apc_msg);
+      }
+    }
+    else //masked pc
+    { warn("Unsupported  masking (mask=0x%02x) for PC=%d in APC parameter -> ignored",
+      inbuffer[offset-1], current_pc);
+    }
+  }
+  return;
+}
+
+// send M3UA error msg
+// send an eror msg with error_code. Additional parameter matches to the error code:
+void MTP3asp__PT_PROVIDER::send_M3UA_error_msg(unsigned int error_code, unsigned int add_par )
+{
+  encode_16b_int( error_msg+M3UA_MSG_OFFS+4, error_code);
+  encode_16b_int( error_msg+M3UA_MSG_OFFS+8, add_par);
+  send_msg(error_msg, sizeof_error_msg );
+};
+
+// Coder functions for M3UA:  int -> unsigned char array
+//------------------------------------------------------
+// Result:Less significant byte in highest address
+//        Most Significant Byte first (in lowest address) = MSB = Big Endian = Network Byte Order
+void MTP3asp__PT_PROVIDER::encode_32b_int(unsigned char *to, unsigned int from)
+{
+  to[3] = from & 0xFF;
+  from >>= 8;
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[0] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_32b_int(const unsigned char *from)
+{
+  return from[3] | (from[2] << 8) | (from[1] << 16) | (from[0] << 24);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_24b_int(unsigned char *to, unsigned int from)
+{
+  to[2] = from & 0xFF;
+  from >>= 8;
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[0] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_24b_int(const unsigned char *from)
+{
+  return from[2] | (from[1] << 8) | (from[0] << 16);
+}
+//------------
+
+void MTP3asp__PT_PROVIDER::encode_16b_int(unsigned char *to, int from)
+{
+  to[1] = from & 0xFF;
+  from >>= 8;
+  to[0] = from & 0xFF;
+}
+//------------
+
+unsigned int MTP3asp__PT_PROVIDER::decode_16b_int(const unsigned char *from)
+{
+  return from[1] | (from[0] << 8);
+}
+//------------
+
+//skip par after tag
+void MTP3asp__PT_PROVIDER::skip_par_after_tag(unsigned char* inbuffer, int &offset)
+{
+  offset += decode_16b_int(inbuffer+offset)-2; //the length contains
+                                               //the param hdr. itself
+  if (offset%4) offset += 4-(offset%4); //skipping padding
+}
+//------------
+#endif
+
+
+
+#ifdef TARGET_TEST
+// --------------------------
+// Functions for Target testing
+// --------------------------
+// In case of target this function handles the received message
+void MTP3asp__PT_PROVIDER::message_incoming(const unsigned char* msg, int messageLength, int)
+{
+  OCTETSTRING rcvData = OCTETSTRING(messageLength, msg);
+
+  int msgType = oct2int(substr(rcvData,0,1));
+  switch (msgType)
+  {
+    case 0: //TRANSFERind message received
+      if(Tcp_is_up) //Registration was already performed
+      {
+        ASP__MTP3__TRANSFERind recv_msg;
+        MTP3__Field__sio recv_sio;
+        BITSTRING sio_bit = oct2bit(substr(rcvData,5,1));
+        recv_sio.ni()= substr(sio_bit,0,2);
+        recv_sio.prio()= substr(sio_bit,2,2);
+        recv_sio.si()= substr(sio_bit,4,4);
+        recv_msg.sio() = recv_sio;
+        recv_msg.opc() = oct2int(substr(rcvData,6,4));
+        recv_msg.dpc() = oct2int(substr(rcvData,10,4));
+        recv_msg.sls() = oct2int(substr(rcvData,14,1));
+        recv_msg.data() = substr(rcvData,15,rcvData.lengthof()-15);
+        if (Tcp_is_up == 1) //No unregistration ongoing
+          incoming_message(recv_msg);
+        else                //Unregistration ongoing
+          log("Received ASP_MTP3_TRANSFERind is ignored since unregistration is started.");
+      }
+      else
+        error("Message was received before successful registration in M3UA server.");
+      break;
+
+    case 4: //Status message received
+      {
+        int status = oct2int(substr(rcvData,5,1));
+        if(Tcp_is_up == 2) // Unregistration ongoing
+        {
+          const char * rcvDat = oct2str(rcvData);
+          log("Message \"%s\" received. Status = %i", rcvDat, status);
+          if (status == 2)
+          {
+            log("Unregistration performed.");
+            Tcp_is_up = 0;
+          }
+          else if (status == 3)
+            error("Unsuccessful unregistration.");
+          else if (status == 5) {
+            if(forward_status) {
+              incoming_message(ASP__MTP3__STATUS(NULL_VALUE));
+            }
+            else {
+              warn("Invalid STATUS message received from M3UA server with status code=%d.", status);
+            }
+          }
+        }
+        else if(Tcp_is_up == 1) // Active state
+        {
+          if (status == 5) {
+            if(forward_status) {
+              incoming_message(ASP__MTP3__STATUS(NULL_VALUE));
+            } 
+          }
+          else {
+            warn("Invalid STATUS message received from M3UA server with status code=%d.", status);
+          }
+        }
+        else // Registration ongoing
+        {
+          const char * rcvDat = oct2str(rcvData);
+          log("Message \"%s\" received. Status = %i", rcvDat, status);
+          if (status == 0)
+          {
+            log("Registration performed.");
+            Tcp_is_up = 1;
+          }
+          else {
+            error("Unsuccessful registration.");
+          }
+        }
+      }
+      break;
+    case 5:
+      {
+        if(forward_pause) incoming_message(ASP__MTP3__PAUSE(NULL_VALUE));
+      }
+      break;
+    case 6:
+      {
+        if(forward_resume) incoming_message(ASP__MTP3__RESUME(NULL_VALUE));
+      }
+      break;
+
+
+    default: //Unexpected message received
+      warn("Invalid message received from M3UA server.");
+  }
+}
+
+void  MTP3asp__PT_PROVIDER::Check_Target_TestPort_Variables()
+{
+  if (Sut_Pc==-1) error("Parameter SUT_Pc is not set.");
+  if (Tester_Pc==-1) error("Parameter TESTER_Pc is not set.");
+  if (!Ni_is_set) error("Parameter NI is not set.");
+  if (M3UA_version==0) error("Parameter M3UA_version cannot be set to 0 in TargetM3UA mode.");
+ 
+//packet header
+  header_descr = new PacketHeaderDescr( 1, 4, PacketHeaderDescr::Header_MSB);
+}
+
+void  MTP3asp__PT_PROVIDER::Check_Target_TestPort_Variables_STC()
+{
+  if( destinationname == NULL) error("Parameter DestinationName is not set in TargetSTC mode.");
+  
+  header_descr = new PacketHeaderDescr( 1, 4, PacketHeaderDescr::Header_MSB);
+}
+
+void MTP3asp__PT_PROVIDER::Target_user_map(const char *system_port)
+{
+  Tcp_is_up = 0;
+  Check_Target_TestPort_Variables();
+  map_user();
+
+  OCTETSTRING tcpData = int2oct(2,1); //Message type
+  if( destinationname == NULL)
+    tcpData = tcpData + int2oct(char2oct(system_port).lengthof()+15,4); //Length
+  else
+    tcpData = tcpData + int2oct(char2oct(destinationname).lengthof()+15,4);
+  tcpData = tcpData + int2oct(mtp3_ni,1);
+  tcpData = tcpData + int2oct(Sut_Pc,4);
+  tcpData = tcpData + int2oct(Tester_Pc,4);
+  tcpData = tcpData + int2oct(M3UA_version,1);
+  if( destinationname == NULL)
+    tcpData = tcpData + char2oct(system_port);
+  else
+    tcpData = tcpData + char2oct(destinationname);
+
+  send_outgoing((const unsigned char*)tcpData,tcpData.lengthof());
+
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  TTCN_Logger::log_event_str("Registration message sent: ");
+  tcpData.log();
+  TTCN_Logger::end_event();
+
+  int fd = get_socket_fd();
+  pollfd pollFd = { fd, POLLIN, 0 };
+  int nEvents = poll(&pollFd, 1, 3000 /* ms */);
+  if (nEvents == 0)
+    error("No response received for REGISTER message. Exiting after timeout.");
+  if (nEvents < 0 || (pollFd.revents & (POLLIN | POLLHUP)) == 0)
+    error("No response received for REGISTER message. Exiting after error (%d)",
+      (nEvents < 0) ? errno : 0);
+  Handle_Fd_Event(fd, TRUE, FALSE, FALSE);
+}
+
+void MTP3asp__PT_PROVIDER::TargetSTC_user_map(const char *system_port)
+{
+  Tcp_is_up = 0;
+  Check_Target_TestPort_Variables_STC();
+  map_user();
+
+  OCTETSTRING tcpData = int2oct(2,1); //Message type
+  tcpData = tcpData + int2oct(char2oct(destinationname).lengthof()+15,4);
+  tcpData = tcpData + int2oct(0,1);
+  tcpData = tcpData + int2oct(0,4);
+  tcpData = tcpData + int2oct(0,4);
+  tcpData = tcpData + int2oct(0,1);
+  tcpData = tcpData + char2oct(destinationname);
+
+  send_outgoing((const unsigned char*)tcpData,tcpData.lengthof());
+
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  TTCN_Logger::log_event_str("Registration message sent: ");
+  tcpData.log();
+  TTCN_Logger::end_event();
+
+  int fd = get_socket_fd();
+  pollfd pollFd = { fd, POLLIN, 0 };
+  int nEvents = poll(&pollFd, 1, 3000 /* ms */);
+  if (nEvents == 0)
+    error("No response received for REGISTER message. Exiting after timeout.");
+  if (nEvents < 0 || (pollFd.revents & (POLLIN | POLLHUP)) == 0)
+    error("No response received for REGISTER message. Exiting after error (%d)",
+      (nEvents < 0) ? errno : 0);
+  Handle_Fd_Event(fd, TRUE, FALSE, FALSE);
+}
+
+void MTP3asp__PT_PROVIDER::Target_user_unmap(const char *system_port)
+{
+  OCTETSTRING tcpData = int2oct(3,1); //Message type
+  tcpData = tcpData + int2oct(6,4); //Length
+  tcpData = tcpData + int2oct(0,1);
+  send_outgoing((const unsigned char*)tcpData,tcpData.lengthof());
+
+  TTCN_Logger::begin_event(TTCN_DEBUG);
+  TTCN_Logger::log_event("MTP3 Test Port (%s): ", get_name());
+  TTCN_Logger::log_event_str("Unregistration message sent: ");
+  tcpData.log();
+  TTCN_Logger::end_event();
+
+  Tcp_is_up = 2; //Unregistration ongoing
+
+  while (Tcp_is_up == 2)
+  {
+    int fd = get_socket_fd();
+    pollfd pollFd = { fd, POLLIN, 0 };
+    int nEvents = poll(&pollFd, 1, 3000 /* ms */);
+    if (nEvents == 0)
+      error("No response received for UNREGISTER message. Exiting after timeout.");
+    if (nEvents < 0 || (pollFd.revents & (POLLIN | POLLHUP)) == 0)
+      error("No response received for UNREGISTER message. Exiting after error (%d)",
+        (nEvents < 0) ? errno : 0);
+    Handle_Fd_Event(fd, TRUE, FALSE, FALSE);
+  }
+  unmap_user();
+}
+#endif
+}
diff --git a/MTP3asp_CNL113337/src/MTP3asp_PT.hh b/MTP3asp_CNL113337/src/MTP3asp_PT.hh
new file mode 100644
index 0000000..340f24f
--- /dev/null
+++ b/MTP3asp_CNL113337/src/MTP3asp_PT.hh
@@ -0,0 +1,249 @@
+///////////////////////////////////////////////////////////////////////////////
+//                                                                           //
+// Copyright Test Competence Center (TCC) ETH 2009                           //
+//                                                                           //
+// The copyright to the computer  program(s) herein  is the property of TCC. //
+// The program(s) may be used and/or copied only with the written permission //
+// of TCC or in accordance with  the terms and conditions  stipulated in the //
+// agreement/contract under which the program(s) have been supplied          //
+//                                                                           //
+///////////////////////////////////////////////////////////////////////////////
+//
+//  File:         MTP3asp_PT.hh
+//  Description:  Implementation of port MTP3asp_PT
+//                This test port is written to connect ttcn to SEA 
+//                according to specification ITU-T SS7 MTP3, ANSI, TCC, MPT, IETF, 
+//  Reference:    ITU-T Recommendation Q.704, RFC3332 
+//  Rev:          R11A01
+//  Prodnr:       CNL 113 337
+//  Updated:      2009-04-03
+//  Contact:      http://ttcn.ericsson.se
+
+
+#ifndef MTP3asp_PT_HH
+#define MTP3asp_PT_HH
+
+#include <TTCN3.hh>
+
+#ifdef TARGET_TEST
+#include "Abstract_Socket.hh"
+#endif
+
+#ifndef TARGET_TEST
+#include "mphclib.h"
+#endif
+
+
+#define MAXSIZE 1532 //+32 needed for M3UA
+#define MTP3_ON  1
+#define MTP3_OFF 0
+namespace MTP3asp__Types {
+  class ASP__MTP3__TRANSFERind;
+  class ASP__MTP3__PAUSE;
+  class ASP__MTP3__RESUME;
+  class ASP__MTP3__STATUS;
+  class ASP__MTP3__TRANSFERreq;
+}
+namespace MTP3asp__PortType {
+
+class MTP3asp__PT_PROVIDER : public PORT
+#ifdef TARGET_TEST
+    , public Abstract_Socket
+#endif
+ {
+protected:
+  // pointer to member: user_map/unmap methods
+  typedef void (MTP3asp__PT_PROVIDER::*usermap_t)(const char *system_port);
+  // pointer to member: user_connect methods
+  typedef void (MTP3asp__PT_PROVIDER::*userconnect_t)();
+  // pointer to member: interpreter methods
+#ifndef TARGET_TEST
+  typedef void (MTP3asp__PT_PROVIDER::*interpreter_t)(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con);
+
+  void M3UA_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con);
+  void M3UA_user_map(const char *system_port);
+  void M3UA_user_connect();
+  void M3UA_user_unmap(const char *system_port);
+  void MTP3_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con);
+  void MTP3_user_map(const char *system_port);  // common for MTP3 ITU and MTP3 ANSI
+  void MTP3_user_connect();
+  void MTP3_user_unmap(const char *system_port);// common for MTP3 ITU and MTP3 ANSI
+  void STC_user_connect();
+  void STC_interpreter(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con);
+  void STC_user_map(const char *system_port);
+  void STC_user_unmap(const char *system_port);
+#endif
+#ifdef TARGET_TEST
+  //Map and unmap for target
+  void Target_user_map(const char *system_port);
+  void Target_user_unmap(const char *system_port);
+  void TargetSTC_user_map(const char *system_port);
+#endif
+  
+public:
+  MTP3asp__PT_PROVIDER(const char *par_port_name=NULL);
+  ~MTP3asp__PT_PROVIDER();
+  
+  typedef enum { MTP3itu, MTP3ansi, MTP3ttc, MTP3mpt, M3UA, TargetM3UA, MTP3bttc,MTP3iup, STC, TargetSTC } MTPServiceType_t ;
+
+  MTPServiceType_t MTPServiceType ; // ctor default is MTP3itu
+  void set_parameter(const char *parameter_name, const char *parameter_value);
+  void error(const char *msg, ...);
+  void log(const char *msg, ...);
+#ifndef TARGET_TEST
+  void user_connect();
+
+  void set_channel(int chnl) {channel=chnl;};
+  void MTP3_open_channel(boolean http);
+  void MTP3_close_connection();
+
+  boolean wait_for_open();
+  int conn_state;
+
+  interpreter_t interpreter; // pointer to interpreter members, ctor default is MTP3_ITU_interpreter
+  void doInterpret(unsigned char* inbuffer,int length,int from_channel,CONNECTION* con)
+  { (this->*interpreter)(inbuffer,length,from_channel, con); }
+#endif
+  //parameter handling
+  boolean dynamicConnection, connectionUp;
+  char *hostname;
+  int httpport;
+  char *entityname;
+  int MTP_fd;
+
+protected: 
+  void user_map(const char *system_port);
+  void user_unmap(const char *system_port);
+
+  void debuglog(const char *msg, ...);
+  void warn(const char *msg, ...);
+  void close_log_event();
+
+  usermap_t user_map_p ; //  pointer to user_map members, default is MTP3itu
+  usermap_t user_unmap_p; // pointer to user_unmap members, default is MTP3itu
+  userconnect_t user_connect_p;
+
+  void user_start();
+  void user_stop();
+  
+  void outgoing_send(const MTP3asp__Types::ASP__MTP3__TRANSFERreq& send_par);
+  virtual void incoming_message
+    (const MTP3asp__Types::ASP__MTP3__TRANSFERind& incoming_par) = 0;
+  virtual void incoming_message
+    (const MTP3asp__Types::ASP__MTP3__PAUSE& incoming_par) = 0;
+  virtual void incoming_message
+    (const MTP3asp__Types::ASP__MTP3__RESUME& incoming_par) = 0;
+  virtual void incoming_message
+    (const MTP3asp__Types::ASP__MTP3__STATUS& incoming_par) = 0;
+#ifndef TARGET_TEST
+  void encode_56bLSB_int(unsigned char *to, unsigned long long int from);
+  long long unsigned int decode_56bLSB_int(const unsigned char *from);
+  void encode_48bLSB_int(unsigned char *to, unsigned long long int from);
+  long long unsigned int decode_48bLSB_int(const unsigned char *from);
+  void encode_40bLSB_int(unsigned char *to, unsigned long long int from);
+  long long unsigned int decode_40bLSB_int(const unsigned char *from);
+  void encode_32bLSB_int(unsigned char *to, unsigned int from);
+  unsigned int decode_32bLSB_int(const unsigned char *from);
+  void encode_24bLSB_int(unsigned char *to, int from);
+  unsigned int decode_24bLSB_int(const unsigned char *from);
+  void encode_16bLSB_int(unsigned char *to, int from);
+  unsigned int decode_16bLSB_int(const unsigned char *from);
+  void encode_32b_int(unsigned char *to, unsigned int from);
+  unsigned int decode_32b_int(const unsigned char *from);
+  void encode_24b_int(unsigned char *to, unsigned int from);
+  unsigned int decode_24b_int(const unsigned char *from);
+  void encode_16b_int(unsigned char *to, int from);
+  unsigned int decode_16b_int(const unsigned char *from);
+  void skip_par_after_tag(unsigned char* inbuffer, int &offset);
+
+  void GetPointCodes(unsigned int &sls,unsigned int &opc,unsigned int &dpc, unsigned char* msg);
+  void GetPointCodesIUP(unsigned int &cic,unsigned int &opc,unsigned int &dpc, unsigned char* msg);
+  void SetPointCodes(unsigned int sls, unsigned int opc, unsigned int dpc, unsigned char* msg);
+  void SetPointCodesIUP(unsigned int cic, unsigned int opc, unsigned int dpc, unsigned char* msg);
+  int  ChangePointCodes(unsigned char* outbuff, unsigned char *inbuff, int len);
+  void Set_M3UA_SingleAPC(unsigned int pc, unsigned char* apc_par); //for ITU and ANSI
+  bool Check_M3UA_SingleITUAPC(unsigned int pc, unsigned char* apc_par);
+  void Send_DAVA_DUNA_to_APCinDAUD(unsigned int dava_sep, unsigned char* inbuffer, int &offset );
+  void processing_MTP3_management_msg(unsigned char* inbuff,int len);
+  void processing_MTP3_test_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_MGMT_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_Transfer_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_SSNM_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_ASPSM_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_ASPTM_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_RKM_msg(unsigned char* inbuff,int len);
+  int processing_M3UA_unsupported_msg_class(unsigned char* inbuff,int len);
+  int  Check_PcMatch(unsigned int opc, unsigned int dpc, unsigned char *buff);
+  void send_msg(unsigned char *outbuff, int length);
+  void send_M3UA_error_msg(unsigned int error_code, unsigned int add_par );
+  void Check_TestPort_Variables();
+  void Check_TestPort_Variables_STC();
+#endif
+#ifdef TARGET_TEST
+  void Check_Target_TestPort_Variables();
+  void Check_Target_TestPort_Variables_STC();
+
+  //Functions for abstract socket handling
+  void message_incoming(const unsigned char*, int length, int client_id = -1);
+  void Add_Fd_Read_Handler(int fd) { Handler_Add_Fd_Read(fd); }
+  void Add_Fd_Write_Handler(int fd) { Handler_Add_Fd_Write(fd); }
+  void Remove_Fd_Read_Handler(int fd) { Handler_Remove_Fd_Read(fd); }
+  void Remove_Fd_Write_Handler(int fd) { Handler_Remove_Fd_Write(fd); }
+  void Remove_Fd_All_Handlers(int fd) { Handler_Remove_Fd(fd); }
+  void Handler_Uninstall() { Uninstall_Handler(); }
+  void Timer_Set_Handler(double call_interval, boolean is_timeout = TRUE,
+    boolean call_anyway = TRUE, boolean is_periodic = TRUE) {
+    Handler_Set_Timer(call_interval, is_timeout, call_anyway, is_periodic);
+  }
+  const char* local_address_name() { return "localIPAddr";}
+  const char* local_port_name()    { return "localPort";}
+  const char* remote_address_name(){ return "M3UAtarget_TCP_IPAddr";}
+  const char* remote_port_name()   { return "M3UAtarget_TCP_Port";}
+  const char* halt_on_connection_reset_name(){ return "halt_on_connection_reset";}
+  const char* server_mode_name()   { return "client_mode";}
+  const char* socket_debugging_name(){ return "socket_debugging";}
+  const char* nagling_name()       { return "nagling";}
+  const char* server_backlog_name(){ return "server_backlog";}
+  const PacketHeaderDescr* Get_Header_Descriptor() const {return header_descr;}
+#endif
+
+private:
+    void Handle_Fd_Event(int fd, boolean is_readable, boolean is_writable, boolean is_error);
+    void Handle_Timeout(double time_since_last_call);
+
+    unsigned char M3UA_version;
+    int channel;
+    unsigned char buffer[MAXSIZE];
+    char *destinationname;
+    char *iid_string;
+    boolean Ni_is_set;
+    int Loop,Filter,Sut_Pc,Tester_Pc;
+    typedef enum { AssocDown, AssocEstabl, AssocInac, AssocActive} M3UAStateType_t;
+    M3UAStateType_t M3UAState;
+    int mtp3_ni; // network indicator in case of MTP3
+    int stored_bttc_octet; // used for storage of an additional first byte in MTP3bttc
+    
+#ifndef TARGET_TEST
+    MPH_IID iid;
+    CONNECTION *myConnection;
+#endif
+    bool forward_resume, forward_pause, forward_status;
+#ifdef TARGET_TEST
+    int Tcp_is_up;
+    PacketHeaderDescr *header_descr;
+    bool is_packet_hdr_length_offset, is_packet_hdr_nr_bytes_in_length,
+	    is_packet_hdr_byte_order;
+    int packet_hdr_length_offset, packet_hdr_nr_bytes_in_length;
+    PacketHeaderDescr::HeaderByteOrder packet_hdr_byte_order;
+#endif
+};
+
+extern BOOLEAN f__MTP3__SEA__connect__extern
+  (MTP3asp__PT_PROVIDER& portRef, const CHARSTRING& Hostname,
+   const INTEGER& Port, const CHARSTRING& EntityName,const BOOLEAN& Http);
+
+extern BOOLEAN f__MTP3__SEA__disconnect__extern
+  (MTP3asp__PT_PROVIDER& portRef);
+
+}
+#endif
diff --git a/MTP3asp_CNL113337/src/MTP3asp_PortType.ttcn b/MTP3asp_CNL113337/src/MTP3asp_PortType.ttcn
new file mode 100644
index 0000000..7c5a06b
--- /dev/null
+++ b/MTP3asp_CNL113337/src/MTP3asp_PortType.ttcn
@@ -0,0 +1,66 @@
+///////////////////////////////////////////////////////////////////////////////
+//                                                                           //
+// Copyright Test Competence Center (TCC) ETH 2008                           //
+//                                                                           //
+// The copyright to the computer  program(s) herein  is the property of TCC. //
+// The program(s) may be used and/or copied only with the written permission //
+// of TCC or in accordance with  the terms and conditions  stipulated in the //
+// agreement/contract under which the program(s) have been supplied          //
+//                                                                           //
+///////////////////////////////////////////////////////////////////////////////
+//
+//  File:         MTP3asp_PortType.ttcn
+//  Reference:    ITU-T Recommendation Q.704, RFC3332 
+//  Rev:          R11A01
+//  Prodnr:       CNL 113 337
+//  Updated:      2008-02-07
+//  Contact:      http://ttcn.ericsson.se
+
+module MTP3asp_PortType
+{
+
+  import from MTP3asp_Types all;
+// *************************************************************************
+// *  MTP3 port type definitions                                           *
+// *************************************************************************
+
+    // MTP3 port type used by the component up to the MTP3 SAP
+    // (eg. any component connected to the MTP3 test port)
+    type port MTP3asp_PT message
+     {
+      in  ASP_MTP3_TRANSFERind;
+      in  ASP_MTP3_PAUSE;
+      in  ASP_MTP3_RESUME;
+      in  ASP_MTP3_STATUS;
+      out ASP_MTP3_TRANSFERreq;
+     } with {extension "provider internal"} //!!ethlel
+
+    // MTP3 port type used by the component up to the MTP3 SAP
+    // (e.g. the distribution component)
+    type port MTP3asp_SP_PT message
+     {
+      in  ASP_MTP3_TRANSFERreq;
+      out ASP_MTP3_TRANSFERind;
+     }
+      with {extension "internal"}
+
+//Connecting functions
+//----------------------------
+/*
+ethlel
+
+external function f_MTP3_SEA_connect
+ ( inout MTP3asp_PT  portRef, 
+   in charstring  Hostname,
+   in integer     Port,
+   in charstring  EntityName,
+   in boolean     Http //or MPH Port is provided  
+ )return boolean;
+
+external function f_MTP3_SEA_disconnect
+ ( inout MTP3asp_PT  portRef
+ )return boolean;
+*/
+
+
+}//eof module
diff --git a/MTP3asp_CNL113337/src/MTP3asp_Types.ttcn b/MTP3asp_CNL113337/src/MTP3asp_Types.ttcn
new file mode 100644
index 0000000..e96f420
--- /dev/null
+++ b/MTP3asp_CNL113337/src/MTP3asp_Types.ttcn
@@ -0,0 +1,324 @@
+///////////////////////////////////////////////////////////////////////////////
+//                                                                           //
+// Copyright Test Competence Center (TCC) ETH 2006                           //
+//                                                                           //
+// The copyright to the computer  program(s) herein  is the property of TCC. //
+// The program(s) may be used and/or copied only with the written permission //
+// of TCC or in accordance with  the terms and conditions  stipulated in the //
+// agreement/contract under which the program(s) have been supplied          //
+//                                                                           //
+///////////////////////////////////////////////////////////////////////////////
+//
+//  File:         MTP3asp_Types.ttcn
+//  Description:  CCSS7 Message Transfer Part primitive (ASP) definitions
+//                according to specification ITU-T SS7 MTP3,
+//  Reference:    ITU-T Recommendation Q.704, RFC3332, ANSI T.1.111.1-2001, TCC 
+//  Rev:          R11A01
+//  Prodnr:       CNL 113 337
+//  Updated:      2007-09-17
+//  Contact:      http://ttcn.ericsson.se
+//
+module MTP3asp_Types.objid 
+  { 
+    itu_t(0) identified_organization (4) etsi(0) reserved(127)
+    etsi_identified_organization(0) ericsson(5) testing (0)
+    generic(0) mtp3(0) v96(3) aspDefinitions(3) patchNo(0)
+  }
+
+{//start of the module
+
+// *************************************************************************
+//  External encoding/decoding functions
+// *************************************************************************
+
+external function enc_MTP3_to_M3UAserver_msg (in MTP3_to_M3UAserver_msg pdu)
+  return octetstring
+  with { extension "prototype(convert)"
+         extension "encode(RAW)"
+       };
+
+external function dec_MTP3_to_M3UAserver_msg(in octetstring stream)
+   return MTP3_to_M3UAserver_msg
+  with { extension "prototype(convert)"
+         extension "decode(RAW)"
+       };
+
+
+// *************************************************************************
+// *  Type Definitions Part                                                *
+// *************************************************************************
+group Types
+{
+  group MessageTypes
+  {
+    group ASPs
+    {
+    //***********************************************************************
+    //*  ASP type definitions                                               *
+    //*          Note, that ASP types shall be TTCN-3 definitions to allow  *
+    //*          the use of anytype in the data field                       *
+    //***********************************************************************
+
+      type record MTP3_Field_sio
+      {
+        bitstring ni   length(2),
+        bitstring prio length(2),
+        bitstring si   length(4)
+      } with { variant "FIELDORDER(msb)";
+             };
+      
+      type record ASP_MTP3_TRANSFERind
+      {
+        MTP3_Field_sio    sio,
+        integer           opc,
+        integer           dpc,
+        integer           sls,
+        octetstring       data
+      } with { variant (opc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (dpc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (sls) "FIELDLENGTH(8)"
+             };
+
+      type record ASP_MTP3_PAUSE {};
+
+      type record ASP_MTP3_RESUME {};
+
+      type record ASP_MTP3_STATUS {};
+
+      type record ASP_MTP3_TRANSFERreq
+      {
+        MTP3_Field_sio    sio,
+        integer           opc,
+        integer           dpc,
+        integer           sls,
+        octetstring       data
+      } with { variant (opc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (dpc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (sls) "FIELDLENGTH(8)"
+             };
+    }//end group ASPs
+
+    //***********************************************************************
+    //* Type definition of the message which is sent between MTP3 test port *
+    //*  and SCTP server over TCP.                                          *
+    //***********************************************************************
+    group MTP3_SCTPserver
+    {
+      type record ASP_REGISTER_M3UA
+      {
+        integer     ni (0..3),
+        integer     sut_pc,
+        integer     tester_pc,
+        integer     m3ua_version,
+        charstring  entity
+      } with { variant (ni) "FIELDLENGTH(8)";
+               variant (sut_pc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (tester_pc) "BYTEORDER(last), FIELDLENGTH(32)";
+               variant (m3ua_version) "FIELDLENGTH(8)"
+      };
+      
+      
+      // Possible values:
+      // MTP3_to_SCTPserver_data/status:
+      const integer reg_ok_status      := 0;
+      const integer reg_error_status   := 1;
+      const integer unreg_ok_status    := 2;
+      const integer unreg_error_status := 3;
+
+      const integer send_error_status  := 5;
+      const integer kill_status        := 255;
+      
+      // MTP3_to_SCTPserver_data/pause:
+      const integer SCTP_COMLOST_pause := 0;
+      const integer M3UA_ASPDN_pause   := 1;
+      const integer M3UA_ASPIA_pause   := 2;
+      
+      // MTP3_to_SCTPserver_data/resume:
+      const integer ok_resume := 0;
+      
+      type union MTP3_to_SCTPserver_data
+      {
+        ASP_MTP3_TRANSFERind transfer_ind,
+        ASP_MTP3_TRANSFERreq transfer_req,
+        ASP_REGISTER_M3UA    register,
+        integer              unregister (0..255),
+        integer              status (0..255),
+        integer              pause (0..255),
+        integer              resume (0..255)
+      }
+      
+      // MTP3_to_M3UAserver_msg/msgType:
+      const integer transfer_ind_msgType := 0;
+      const integer transfer_req_msgType := 1;
+      const integer register_msgType     := 2;
+      const integer unregister_msgType   := 3;
+      const integer status_msgType       := 4;
+      const integer pause_msgType        := 5;
+      const integer resume_msgType       := 6;
+      
+      type record MTP3_to_M3UAserver_msg
+      {
+        integer                 msgType (0..255),
+        integer                 msgLength,
+        MTP3_to_SCTPserver_data data
+      } with { variant (data) "CROSSTAG(
+                              transfer_ind, msgType = transfer_ind_msgType;
+                              transfer_req, msgType = transfer_req_msgType;
+                              register,     msgType = register_msgType;
+                              unregister,   msgType = unregister_msgType;
+                              status,       msgType = status_msgType;
+                              pause,        msgType = pause_msgType;
+                              resume,       msgType = resume_msgType )";
+               variant (msgLength) "FIELDLENGTH(32)";
+               variant (msgLength) "LENGTHTO(msgType,msgLength,data)";
+               variant (msgLength) "BYTEORDER(last)"
+             };
+    }//end group MTP3_SCTPserver
+  }//end group Messagetypes
+} with {encode "RAW"}//Types
+
+group Templates
+{
+  group MessageTemplates
+  {
+    group ASPtemplates
+    {
+    // *******************************************************************
+    // *   ASP template definitions                                      *
+    // *******************************************************************
+
+    // Base templates 
+    // These general templates can be used as an example or as a base
+    // template for other templates.
+      template ASP_MTP3_TRANSFERind t_ASP_MTP3_TRANSFERind
+      ( 
+        template MTP3_Field_sio pl_SIO,
+        template integer        pl_OPC,
+        template integer        pl_DPC,
+        template integer        pl_SLS,
+        template octetstring    pl_data
+      ):=
+      {
+        sio  := pl_SIO,
+        opc  := pl_OPC,
+        dpc  := pl_DPC,
+        sls  := pl_SLS,
+        data := pl_data 
+      }
+    
+      template ASP_MTP3_TRANSFERind tr_ASP_MTP3_TRANSFERind_sio
+      ( 
+       template bitstring      pl_NI,
+       template bitstring      pl_PRIO,
+       template bitstring      pl_SI,
+       template integer        pl_OPC,
+       template integer        pl_DPC,
+       template integer        pl_SLS,
+       template octetstring    pl_data
+      ):=
+      {
+        sio  := 
+        {
+          ni := pl_NI,
+          prio := pl_PRIO,
+          si := pl_SI
+        },
+        opc  := pl_OPC,
+        dpc  := pl_DPC,
+        sls  := pl_SLS,
+        data := pl_data 
+      }
+    
+      template ASP_MTP3_TRANSFERind tr_ASP_MTP3_TRANSFERind :=
+      {
+        sio  := ?,
+        opc  := ?,
+        dpc  := ?,
+        sls  := ?,
+        data := ?
+      }
+
+      template ASP_MTP3_TRANSFERreq t_ASP_MTP3_TRANSFERreq
+      ( 
+        MTP3_Field_sio pl_SIO,
+        integer        pl_OPC,
+        integer        pl_DPC,
+        integer        pl_SLS,
+        octetstring    pl_data
+      ):=
+      {
+        sio  := pl_SIO,
+        opc  := pl_OPC,
+        dpc  := pl_DPC,
+        sls  := pl_SLS,
+        data := pl_data 
+      }
+
+      template ASP_MTP3_TRANSFERreq tr_ASP_MTP3_TRANSFERreq_sio
+      ( 
+       template bitstring      pl_NI,
+       template bitstring      pl_PRIO,
+       template bitstring      pl_SI,
+       template integer        pl_OPC,
+       template integer        pl_DPC,
+       template integer        pl_SLS,
+       template octetstring    pl_data
+      ):=
+      {
+        sio  := 
+        {
+          ni := pl_NI,
+          prio := pl_PRIO,
+          si := pl_SI
+        },
+        opc  := pl_OPC,
+        dpc  := pl_DPC,
+        sls  := pl_SLS,
+        data := pl_data 
+      }
+
+      template ASP_MTP3_TRANSFERreq tr_ASP_MTP3_TRANSFERreq :=
+      {
+        sio  := ?,
+        opc  := ?,
+        dpc  := ?,
+        sls  := ?,
+        data := ? 
+      }
+    
+      template ASP_MTP3_TRANSFERind tr_ASP_MTP3_TRANSFERind_stc :=
+      {
+        sio  := 
+        {
+          ni := '00'B,
+          prio := '00'B,
+          si := '0000'B
+        },
+        opc  := 0,
+        dpc  := 0,
+        sls  := 0,
+        data := ? 
+      }
+    
+      template ASP_MTP3_TRANSFERreq t_ASP_MTP3_TRANSFERreq_stc
+      ( template octetstring    pl_data ):=
+      {
+        sio  := 
+        {
+          ni := '00'B,
+          prio := '00'B,
+          si := '0000'B
+        },
+        opc  := 0,
+        dpc  := 0,
+        sls  := 0,
+        data := pl_data 
+      }
+    
+    }//end group ASPtemplates
+  }//end group Messagetemplates
+}//end group Templates
+
+}//end module
+
+