view src/g23m-gprs/llc/llc_uf.c @ 664:afcb1115b9b3

AT@SPENH command implemented in aci2
author Mychaela Falconia <falcon@freecalypso.org>
date Sun, 24 May 2020 07:38:44 +0000
parents 219afcfc6250
children
line wrap: on
line source

  /*
+-----------------------------------------------------------------------------
|  Project :
|  Modul   :
+-----------------------------------------------------------------------------
|  Copyright 2002 Texas Instruments Berlin, AG
|                 All rights reserved.
|
|                 This file is confidential and a trade secret of Texas
|                 Instruments Berlin, AG
|                 The receipt of or possession of this file does not convey
|                 any rights to reproduce or disclose its contents or to
|                 manufacture, use, or sell anything it may describe, in
|                 whole, or in part, without the specific written consent of
|                 Texas Instruments Berlin, AG.
+-----------------------------------------------------------------------------
|  Purpose :  This modul is part of the entity LLC and implements all
|             procedures and functions as described in the
|             SDL-documentation (U-statemachine)
+-----------------------------------------------------------------------------
*/


#ifndef LLC_UF_C
#define LLC_UF_C
#endif

#define ENTITY_LLC

/*==== INCLUDES =============================================================*/

#include <string.h>     /* to get memcpy() */

#include "typedefs.h"   /* to get Condat data types */
#include "vsi.h"        /* to get a lot of macros */
#include "macdef.h"
#include "gprs.h"
#include "gsm.h"        /* to get a lot of macros */
#include "cnf_llc.h"    /* to get cnf-definitions */
#include "mon_llc.h"    /* to get mon-definitions */
#include "prim.h"       /* to get the definitions of used SAP and directions */
#include "llc.h"        /* to get the global entity definitions */

#include "llc_f.h"      /* to get global functions, e.g. llc_init_parameters */
#include "llc_uf.h"     /* to get local XID definitions */
#include "llc_t200s.h"  /* to get signal interface to T200 */
#include "llc_txs.h"    /* to get signal interface to TX */

/*==== CONST ================================================================*/

/*==== LOCAL VARS ===========================================================*/

/*==== PRIVATE FUNCTIONS ====================================================*/

/*==== PUBLIC FUNCTIONS =====================================================*/


/*
 * CHECK_INSTANCE:
 * v(ariable)   - variable name of parameter
 */
#define CHECK_INSTANCE(v)                                                     \
  if (llc_data->decoded_xid.##v##.valid)                                      \
  {                                                                           \
    /*                                                                        \
     * More than one instance of the same XID parameter type is included.     \
     */                                                                       \
    if (cr_bit EQ SGSN_COMMAND)                                               \
    {                                                                         \
      /*                                                                      \
       * XID command: Ignore all instances except the first.                  \
       * <R.LLC.XIDNEG_R.A.014>                                               \
       */                                                                     \
      continue;                                                               \
    }                                                                         \
    else /* SGSN_RESPONSE */                                                  \
    {                                                                         \
      /*                                                                      \
       * XID response: The XID information field is regarded as invalid.      \
       * <R.LLC.XID_INVA.A.012>                                               \
       */                                                                     \
      TRACE_0_INFO ("More than one instance of an XID-IE in RSP");            \
      return FALSE;                                                           \
    }                                                                         \
  }


/*
 * CHECK_LENGTH_VALUE:
 * l(ength)     - default length of parameter
 * c(ondition)  - out-of-range value condition
 * v(ariable)   - variable name of parameter
 * d(default)   - default value of parameter
 */
#define CHECK_LENGTH_VALUE(l,c,v,d)                                           \
  if ((length NEQ l) OR (c))                                                  \
  {                                                                           \
    /*                                                                        \
     * Unsupported length or out-of-range values.                             \
     */                                                                       \
    if (cr_bit EQ SGSN_COMMAND)                                               \
    {                                                                         \
      /*                                                                      \
       * XID command: Set the value for this type according to our            \
       * preferences.                                                         \
       * <R.LLC.XIDNEG_R.A.003>                                               \
       */                                                                     \
      llc_data->decoded_xid.##v##.valid = TRUE;                               \
      llc_data->decoded_xid.##v##.value = d;                                  \
      break;                                                                  \
    }                                                                         \
    else /* SGSN_RESPONSE */                                                  \
    {                                                                         \
      /*                                                                      \
       * XID response: The XID information field is regarded as invalid.      \
       * <R.LLC.XID_INVA.A.007>, <R.LLC.XID_INVA.A.009>                       \
       */                                                                     \
      TRACE_0_INFO ("Unsupported length or out-of-range values in RSP");      \
      return FALSE;                                                           \
    }                                                                         \
  }


/*
 * CHECK_SENSE_OF_NEGOTIATION:
 * d(ata)       - received data value to check
 * v(ariable)   - variable name of parameter
 * s(ense)      - sense of negotiation (XID_SENSE_UP / XID_SENSE_DOWN)
 */
#define CHECK_SENSE_OF_NEGOTIATION(d,v,s)                                     \
  {                                                                           \
    /*                                                                        \
     * XID response must not contain an XID parameter with a value that       \
     * violates the sense of negotiation.                                     \
     * <R.LLC.XID_INVA.A.008>                                                 \
     */                                                                       \
    if (cr_bit EQ SGSN_RESPONSE)                                              \
    {                                                                         \
      /*                                                                      \
       * First compare the value with the requested value, if there is any    \
       */                                                                     \
      if ( (llc_data->u->requested_xid.##v##.valid)    AND                    \
           (llc_data->u->requested_xid.##v##.value s d)  )                    \
      {                                                                       \
        TRACE_0_INFO ("Sense of negotiation error");                          \
        return FALSE;                                                         \
      }                                                                       \
      else if( !(llc_data->u->requested_xid.##v##.valid) AND                  \
                (*(llc_data->##v) s d) )                                      \
      {                                                                       \
        /*                                                                    \
         * If the value was not requested but included in response, compare   \
         * it with the current value                                          \
         */                                                                   \
        TRACE_0_INFO ("Value not requested, but sense of negotiation error"); \
        return FALSE;                                                         \
      }                                                                       \
    }                                                                         \
  }


/*
+------------------------------------------------------------------------------
| Function    : u_init
+------------------------------------------------------------------------------
| Description : This procedure initialises all necessary variables of u_frames
|               for all SAPIs.
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_init (void)
{
  TRACE_FUNCTION( "u_init" );

  /*
   * Initialise every incarnation of U with state TLLI_UNASSIGNED.
   */
  SWITCH_SERVICE (llc, u, 0);
  INIT_STATE (U_0, U_TLLI_UNASSIGNED);

  SWITCH_SERVICE (llc, u, 1);
  INIT_STATE (U_1, U_TLLI_UNASSIGNED);

  SWITCH_SERVICE (llc, u, 2);
  INIT_STATE (U_2, U_TLLI_UNASSIGNED);

  SWITCH_SERVICE (llc, u, 3);
  INIT_STATE (U_3, U_TLLI_UNASSIGNED);

  SWITCH_SERVICE (llc, u, 4);
  INIT_STATE (U_4, U_TLLI_UNASSIGNED);

  SWITCH_SERVICE (llc, u, 5);
  INIT_STATE (U_5, U_TLLI_UNASSIGNED);

  return;
} /* u_init() */



/*
+------------------------------------------------------------------------------
| Function    : u_init_sapi
+------------------------------------------------------------------------------
| Description : This procedure initialises all necessary variables of u_frames
|               for the given SAPI after a TLLI assignment of LLC was occurred.
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_init_sapi (void)
{
  TRACE_FUNCTION( "u_init_sapi" );

  /*
   * Initial, no XID command is currently being sent.
   */
  llc_data->u->xid_pending                 = FALSE;

  llc_data->u->xid_tag                     = 0L;
  llc_data->u->xid_tag_negotiate           = 0L;
  llc_data->u->xid_tag_sent                = 0L;

  llc_data->u->release_requested           = FALSE;
  llc_data->u->ll_xid_resp_pending         = FALSE;

  return;
} /* u_init_sapi() */

/*
+------------------------------------------------------------------------------
| Function    : u_build_u_frame
+------------------------------------------------------------------------------
| Description : This procedure fills the given sdu with a correct LLC frame,
|               containing the address field and the control field (U format).
|               The information field is not filled in by this procedure.
|               The checksum field (FCS) is also not filled in by this
|               procedure, it is filled in by the send_pdu service before
|               sending.
|
| Parameters  : sdu - a valid pointer to an SDU, containing enough octets for
|                     the requested command/response
|               cr_bit - C/R bit for the frame
|               sapi - a valid SAPI for unacknowledged operation
|               pf_bit - P/F bit for the U frame
|               command - a valid command/response for the U frame
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_build_u_frame
(
#ifdef LL_DESC
  T_desc_list3 *desc_list3,
#else
  T_sdu *sdu,
#endif
  T_BIT cr_bit,
  UBYTE sapi,
  T_BIT pf_bit,
  T_COMMAND command
)
{
#ifdef LL_DESC
  T_desc3 *desc3;
  UBYTE   *desc_buf;
#endif

  TRACE_FUNCTION( "u_build_u_frame" );

#ifdef LL_DESC
  /*
   * Let every frame begin at the beginning.
   */
  desc3 = (T_desc3*)desc_list3->first;
  desc3->offset = 0;
  desc_buf = (UBYTE*)desc3->buffer;

  /*
   * Fill in address and control fields.
   * NOTE: The values of the commands are chosen to correspond with the
   * defined values of the Mx bits in the control field. Therefore the given
   * command can be used to build the header, regardless of its actual value.
   */
  desc_buf[0] = ((UBYTE)cr_bit << 6) | sapi;
  desc_buf[1] = 0xE0 | ((UBYTE)pf_bit << 4) | (UBYTE)command;


  /*
   * Determine the length of the frame, depending on the command/
   * response.
   */
  switch (command)
  {
#ifdef REL99 
    case U_NULL:
      /*
       * The NULL command contains no information field. The size
       * of the frame is fixed. (FCS ist not yet considered in l_buf, will
       * be included when FCS is appended to the frame.)
       */
      desc3->len = U_NULL_SIZE_BITS/8;
      break;
#endif /* REL99 */
    case U_DM:
      /*
       * The DM response contains no information field. The size
       * of the frame is fixed. (FCS ist not yet considered in l_buf, will
       * be included when FCS is appended to the frame.)
       */
      desc3->len = U_DM_SIZE_BITS/8;
      break;
    case U_DISC:
      /*
       * The DISC response contains no information field. The size
       * of the frame is fixed. (FCS ist not yet considered in l_buf, will
       * be included when FCS is appended to the frame.)
       */
      desc3->len = U_DISC_SIZE_BITS/8;
      break;
    case U_UA:
      /*
       * The UA response may contain an information field. Set only the
       * size of the header (address + control fields).
       */
      desc3->len = 2;
      break;
    case U_SABM:
      /*
       * The SABM command may contain an information field. Set only the
       * size of the header (address + control fields).
       */
      desc3->len = 2;
      break;
    case U_FRMR:
      /*
       * The FRMR response contains an information field of fixed size.
       * u_insert_frmr_information() relies on a sane value in l_buf,
       * therefore set only the size of the header (address + control field).
       */
      desc3->len = 2;
      break;
    case U_XID:
      /*
       * The XID command/response contains an information field. Set only the
       * size of the header (address + control fields).
       */
      desc3->len = 2;
      break;
    default:
      desc3->len = 0;
      TRACE_ERROR ("Undefined Command specified");
      break;
  }

  desc_list3->list_len = desc3->len;

  return;

#else
  /*
   * Let every frame begin at the beginning.
   */
  sdu->o_buf = 0;

  /*
   * Fill in address and control fields.
   * NOTE: The values of the commands are chosen to correspond with the
   * defined values of the Mx bits in the control field. Therefore the given
   * command can be used to build the header, regardless of its actual value.
   */
  sdu->buf[0] = ((UBYTE)cr_bit << 6) | sapi;
  sdu->buf[1] = 0xE0 | ((UBYTE)pf_bit << 4) | (UBYTE)command;


  /*
   * Determine the length of the frame, depending on the command/
   * response.
   */
  switch (command)
  {
#ifdef REL99 
   case U_NULL:
      /*
       * The NULL command contains no information field. The size
       * of the frame is fixed. (FCS ist not yet considered in l_buf, will
       * be included when FCS is appended to the frame.)
       */
      sdu->l_buf = U_NULL_SIZE_BITS;
      break;
#endif /* REL99 */

    case U_DM:
      /*
       * The DM response contains no information field. The size
       * of the frame is fixed. (FCS ist not yet considered in l_buf, will
       * be included when FCS is appended to the frame.)
       */
      sdu->l_buf = U_DM_SIZE_BITS;
      break;
    case U_DISC:
      /*
       * The DISC response contains no information field. The size
       * of the frame is fixed. (FCS ist not yet considered in l_buf, will
       * be included when FCS is appended to the frame.)
       */
      sdu->l_buf = U_DISC_SIZE_BITS;
      break;
    case U_UA:
      /*
       * The UA response may contain an information field. Set only the
       * size of the header (address + control fields).
       */
      sdu->l_buf = 2*8;
      break;
    case U_SABM:
      /*
       * The SABM command may contain an information field. Set only the
       * size of the header (address + control fields).
       */
      sdu->l_buf = 2*8;
      break;
    case U_FRMR:
      /*
       * The FRMR response contains an information field of fixed size.
       * u_insert_frmr_information() relies on a sane value in l_buf,
       * therefore set only the size of the header (address + control field).
       */
      sdu->l_buf = 2*8;
      break;
    case U_XID:
      /*
       * The XID command/response contains an information field. Set only the
       * size of the header (address + control fields).
       */
      sdu->l_buf = 2*8;
      break;
    default:
      sdu->l_buf = 0;
      TRACE_ERROR ("Undefined Command specified");
      break;
  }

  return;
#endif /* LL_DESC */
} /* u_build_u_frame() */



/*
+------------------------------------------------------------------------------
| Function    : u_check_xid
+------------------------------------------------------------------------------
| Description : This procedure checks the XID information field that is given
|               in SDU. If it is invalid, rc_xid_valid is set to FALSE,
|               otherwise to TRUE. All XID parameters are decoded and stored
|               in llc_decoded_xid (global variable) if they are valid. The
|               parameters cr_bit and command are necessary to distinguish
|               between the different commands and responses. Each parameter
|               is checked for multiple instances, correct sense of
|               negotiation, and valid field length and value.
|
| Parameters  : sdu - a valid pointer to an SDU
|               cr_bit - C/R bit of the frame
|               command - command/response of the U frame
|
+------------------------------------------------------------------------------
*/
GLOBAL BOOL u_check_xid (T_sdu *sdu,
                         T_BIT cr_bit,
                         T_COMMAND command)
{
  UBYTE             *par;
  BOOL              xl;
  UBYTE             type;
  UBYTE             length = 0;
  UBYTE             *data;
  ULONG             value;


  TRACE_FUNCTION( "u_check_xid" );

  /*
   * Initialise each valid flag to FALSE.
   */
  llc_data->decoded_xid.version.valid   = FALSE;
  llc_data->decoded_xid.iov_ui.valid    = FALSE;
  llc_data->decoded_xid.iov_i.valid     = FALSE;
  llc_data->decoded_xid.t200.valid      = FALSE;
  llc_data->decoded_xid.n200.valid      = FALSE;
  llc_data->decoded_xid.n201_u.valid    = FALSE;
  llc_data->decoded_xid.n201_i.valid    = FALSE;
  llc_data->decoded_xid.md.valid        = FALSE;
  llc_data->decoded_xid.mu.valid        = FALSE;
  llc_data->decoded_xid.kd.valid        = FALSE;
  llc_data->decoded_xid.ku.valid        = FALSE;
  llc_data->decoded_xid.reset.valid     = FALSE;

  llc_data->decoded_l3_xid.valid        = FALSE;

  /*
   * Initialise par with the first XID parameter.
   * Process each XID parameter until the end of the list is reached:
   * - Check if end of list is reached (max. SDU length).
   * ...process XID parameter (set xl and length)...
   * - Increment par to point to the next XID parameter (is incremented by
   *   (data) length plus header length).
   */
#ifdef TRACE_EVE
  {
    int i;
    int l = sdu->l_buf/8;
    int o = sdu->o_buf/8;

    vsi_o_ttrace(VSI_CALLER TC_EVENT, "XID sdu dump len:%d bytes", l);

    for (i=0; i<l; i+=10)
    {
      vsi_o_ttrace(VSI_CALLER TC_EVENT, "%.2x %.2x %.2x %.2x %.2x   %.2x %.2x %.2x %.2x %.2x",
                                        sdu->buf[o+i+0], sdu->buf[o+i+1],
                                        sdu->buf[o+i+2], sdu->buf[o+i+3], sdu->buf[o+i+4],

                                        sdu->buf[o+i+5], sdu->buf[o+i+6],
                                        sdu->buf[o+i+7], sdu->buf[o+i+8], sdu->buf[o+i+9]);
    }
  }
#endif

  for (par = &(sdu->buf[sdu->o_buf/8]);
    par < (&(sdu->buf[sdu->o_buf/8]) + sdu->l_buf/8);
    par += length + (xl ? 2 : 1))
  {
    /*
     * Store XL bit in boolean xl.
     */
    xl = (*par & 0x80) > 0;

    /*
     * Store (data) length, and set data to point to the beginning
     * of the XID parameter data.
     */
    if (xl)
    {
      /*
       * XL == 1: length is given in 8 bits.
       */
      length = (*par & 0x03) << 6;
      length += (*(par+1) & 0xFC) >> 2;

      data = par + 2;
    }
    else
    {
      /*
       * XL == 0: length is given in 2 bits.
       */
      length = *par & 0x03;

      data = par + 1;
    }


    if (data + length > &(sdu->buf[sdu->o_buf/8]) + sdu->l_buf/8)
    {
      /*
       * The XID parameter field violates the LLC frame format (exceeds given
       * SDU size).
       * <R.LLC.XID_INVA.A.001>
       */
      return FALSE;
    }


    /*
     * Store type field.
     */
    type = (*par & 0x7C) >> 2;


    /*
     * Check type and store parameter data, if any.
     */
    switch (type)
    {
      case XID_VERSION:
        CHECK_INSTANCE (version);

        /*
         * XID response must not contain an XID parameter with a value that
         * violates the sense of negotiation.
         * <R.LLC.XID_INVA.A.008>
         */
        if (cr_bit EQ SGSN_RESPONSE)
        {
          /*
           * First compare the value with the requested value, if there is any
           */
          if ( (llc_data->u->requested_xid.version.valid)    AND
               (llc_data->u->requested_xid.version.value XID_SENSE_DOWN (*data & 0x0F))  )
          {
            return FALSE;
          }
          else if( !(llc_data->u->requested_xid.version.valid) AND
                    llc_data->version XID_SENSE_DOWN (*data & 0x0F) )
          {
            /*
             * If the value was not requested but included in response, compare
             * it with the current value
             */
            return FALSE;
          }
        }
        /*lint -e685 Relational operator always evaluates to false*/
        CHECK_LENGTH_VALUE (XID_VERSION_LEN,
          ((*data & 0x0F) > XID_VERSION_MAX),
          version, llc_data->version);
        /*lint +e685 Relational operator always evaluates to false*/
        /*
         * Set version as valid and store value.
         */
        llc_data->decoded_xid.version.valid = TRUE;
        llc_data->decoded_xid.version.value = *data & 0x0F;
        TRACE_1_INFO("XID Version:%d", llc_data->decoded_xid.version.value);
        break;
      case XID_IOV_UI:
        CHECK_INSTANCE (iov_ui);

        value = ((ULONG)*data) << 24;
        value += ((ULONG)*(data+1)) << 16;
        value += ((ULONG)*(data+2)) << 8;
        value += *(data+3);
        /*lint -e685 Relational operator always evaluates to false*/
        CHECK_LENGTH_VALUE (XID_IOV_UI_LEN,
          (value > XID_IOV_UI_MAX),
          iov_ui, llc_data->iov_ui);
        /*lint +e685 Relational operator always evaluates to false*/
        /*
         * Set iov_ui as valid and store value.
         */
        llc_data->decoded_xid.iov_ui.valid = TRUE;
        llc_data->decoded_xid.iov_ui.value = value;
        TRACE_1_INFO("XID IOV-UI:0x%.8X", value);
        break;
      case XID_IOV_I:
        if (command EQ U_XID)
        {
          /*
           * IOV-I must not be contained in an XID command/response.
           * <R.LLC.XID_INVA.A.010>, <R.LLC.XID_PAR.A.003>
           */
          TRACE_0_INFO("IOV-I must not be contained in an XID command/response");
          return FALSE;
        }

        CHECK_INSTANCE (iov_i);

        value = ((ULONG)*data) << 24;
        value += ((ULONG)*(data+1)) << 16;
        value += ((ULONG)*(data+2)) << 8;
        value += *(data+3);
        /*lint -e685 Relational operator always evaluates to false*/
        CHECK_LENGTH_VALUE (XID_IOV_I_LEN,
          (value > XID_IOV_I_MAX),
          iov_i, *(llc_data->iov_i));
        /*lint +e685 Relational operator always evaluates to false*/
        /*
         * Set iov_i as valid and store value.
         */
        llc_data->decoded_xid.iov_i.valid = TRUE;
        llc_data->decoded_xid.iov_i.value = value;
        TRACE_1_INFO("XID IOV-I:0x%.8X", value);
        break;
      case XID_T200:
        CHECK_INSTANCE (t200);

        value = ((ULONG)*data) << 8;
        value += *(data+1);
        value &= 0x00000FFFL;

        /*
         * XID response must not contain an XID parameter with a value that
         * violates the sense of negotiation.
         * <R.LLC.XID_INVA.A.008>
         */
        if (cr_bit EQ SGSN_RESPONSE)
        {
          /*
           * First compare the value with the requested value, if there is any
           */
          if ( (llc_data->u->requested_xid.t200.valid)    AND
               (llc_data->u->requested_xid.t200.value XID_SENSE_UP value)  )
          {
            TRACE_1_INFO("Value of T200:%d illegal", value);
            return FALSE;
          }
          else if( !(llc_data->u->requested_xid.t200.valid) AND
                    (USHORT)INT2XID(llc_data->t200->length) XID_SENSE_UP value )
          {
            /*
             * If the value was not requested but included in response, compare
             * it with the current value
             */
            TRACE_1_INFO("Requested value of T200:%d illegal", value);
            return FALSE;
          }
        }

        CHECK_LENGTH_VALUE (XID_T200_LEN,
          ((value < XID_T200_MIN) OR (value > XID_T200_MAX)),
          t200, (USHORT)INT2XID(llc_data->t200->length));

        /*
         * Set t200 as valid and store value.
         */
        llc_data->decoded_xid.t200.valid = TRUE;
        llc_data->decoded_xid.t200.value = (USHORT)value;
        TRACE_1_INFO("XID T200:%d", llc_data->decoded_xid.t200.value);
        break;
      case XID_N200:
        CHECK_INSTANCE (n200);

        CHECK_SENSE_OF_NEGOTIATION ((*data & 0x0F), n200, XID_SENSE_UP);
         /*lint -e685 Relational operator always evaluates to false*/
        CHECK_LENGTH_VALUE (XID_N200_LEN,
          (((*data & 0x0F) < XID_N200_MIN) OR ((*data & 0x0F) > XID_N200_MAX)),
          n200, *(llc_data->n200));
        /*lint +e685 Relational operator always evaluates to false*/
        /*
         * Set n200 as valid and store value.
         */
        llc_data->decoded_xid.n200.valid = TRUE;
        llc_data->decoded_xid.n200.value = *data & 0x0F;
        TRACE_1_INFO("XID N200:%d", llc_data->decoded_xid.n200.value);
        break;
      case XID_N201_U:
        CHECK_INSTANCE (n201_u);

        value = ((ULONG)*data) << 8;
        value += *(data+1);
        value &= 0x000007FFL;

        CHECK_SENSE_OF_NEGOTIATION ((USHORT)value, n201_u, XID_SENSE_DOWN);

        CHECK_LENGTH_VALUE (XID_N201_U_LEN,
          (((USHORT)value < XID_N201_U_MIN) OR (value > XID_N201_U_MAX)),
          n201_u, *(llc_data->n201_u));

        /*
         * Set n201_u as valid and store value.
         */
        llc_data->decoded_xid.n201_u.valid = TRUE;
        llc_data->decoded_xid.n201_u.value = (USHORT)value;
        TRACE_1_INFO("XID N201-U:%d", llc_data->decoded_xid.n201_u.value);
        break;
      case XID_N201_I:
        CHECK_INSTANCE (n201_i);

        value = ((ULONG)*data) << 8;
        value += *(data+1);
        value &= 0x000007FFL;

        CHECK_SENSE_OF_NEGOTIATION ((USHORT)value, n201_i, XID_SENSE_DOWN);

        CHECK_LENGTH_VALUE (XID_N201_I_LEN,
          ((value < XID_N201_I_MIN) OR (value > XID_N201_I_MAX)),
          n201_i, *(llc_data->n201_i));

        /*
         * Set n201_i as valid and store value.
         */
        llc_data->decoded_xid.n201_i.valid = TRUE;
        llc_data->decoded_xid.n201_i.value = (USHORT)value;
        TRACE_1_INFO("XID N201-I:%d", llc_data->decoded_xid.n201_i.value);
        break;
      case XID_MD:
        CHECK_INSTANCE (md);

        value = ((ULONG)*data) << 8;
        value += *(data+1);
        value &= 0x00007FFFL;

        CHECK_SENSE_OF_NEGOTIATION ((USHORT)value, md, XID_SENSE_DOWN);

        CHECK_LENGTH_VALUE (XID_MD_LEN,
          ((value != XID_MD_OFF) AND ((value < XID_MD_MIN) OR (value > XID_MD_MAX))),
          md, *(llc_data->md));

        /*
         * Set md as valid and store value.
         */
        llc_data->decoded_xid.md.valid = TRUE;
        llc_data->decoded_xid.md.value = (USHORT)value;
        TRACE_1_INFO("XID MD:%d", llc_data->decoded_xid.md.value);
        break;
      case XID_MU:
        CHECK_INSTANCE (mu);

        value = ((ULONG)*data) << 8;
        value += *(data+1);
        value &= 0x00007FFFL;

        CHECK_SENSE_OF_NEGOTIATION ((USHORT)value, mu, XID_SENSE_DOWN);

        CHECK_LENGTH_VALUE (XID_MU_LEN,
          ((value != XID_MU_OFF) AND ((value < XID_MU_MIN) OR (value > XID_MU_MAX))),
          mu, *(llc_data->mu));

        /*
         * Set mu as valid and store value.
         */
        llc_data->decoded_xid.mu.valid = TRUE;
        llc_data->decoded_xid.mu.value = (USHORT)value;
        TRACE_1_INFO("XID MU:%d", llc_data->decoded_xid.mu.value);
        break;
      case XID_KD:
        CHECK_INSTANCE (kd);

        CHECK_SENSE_OF_NEGOTIATION (*data, kd, XID_SENSE_DOWN);
        /*lint -e685 Relational operator always evaluates to false*/
        CHECK_LENGTH_VALUE (XID_KD_LEN,
          ((*data < XID_KD_MIN) OR (*data > XID_KD_MAX)),
          kd, *(llc_data->kd));
        /*lint +e685 Relational operator always evaluates to false*/
        /*
         * Set kd as valid and store value.
         */
        llc_data->decoded_xid.kd.valid = TRUE;
        llc_data->decoded_xid.kd.value = *data;
        TRACE_1_INFO("XID KD:%d", llc_data->decoded_xid.kd.value);
        break;
      case XID_KU:
        CHECK_INSTANCE (ku);

        CHECK_SENSE_OF_NEGOTIATION (*data, ku, XID_SENSE_DOWN);
        /*lint -e685 Relational operator always evaluates to false*/
        CHECK_LENGTH_VALUE (XID_KU_LEN,
          ((*data < XID_KU_MIN) OR (*data > XID_KU_MAX)),
          ku, *(llc_data->ku));
        /*lint +e685 Relational operator always evaluates to false*/
        /*
         * Set ku as valid and store value.
         */
        llc_data->decoded_xid.ku.valid = TRUE;
        llc_data->decoded_xid.ku.value = *data;
        TRACE_1_INFO("XID KU:%d", llc_data->decoded_xid.ku.value);
        break;
      case XID_LAYER_3:
        if (llc_data->decoded_l3_xid.valid)
        {
          /*
           * More than one instance of the same XID parameter type is included.
           */
          if (cr_bit EQ SGSN_COMMAND)
          {
            /*
             * XID command: Ignore all instances except the first.
             * <R.LLC.XIDNEG_R.A.014>
             */
            continue;
          }
          else /* SGSN_RESPONSE */
          {
            /*
             * XID response: The XID information field is regarded as invalid.
             * <R.LLC.XID_INVA.A.012>
             */
            TRACE_0_INFO("More than one L3 parameters are included in XID response.");
            return FALSE;
          }
        }

        if ((llc_data->current_sapi NEQ LL_SAPI_3) AND
            (llc_data->current_sapi NEQ LL_SAPI_5) AND
            (llc_data->current_sapi NEQ LL_SAPI_9) AND
            (llc_data->current_sapi NEQ LL_SAPI_11))
        {
          /*
           * Layer-3 parameters on a SAPI different from 3, 5, 9, and 11.
           * <R.LLC.XID_INVA.A.011>
           */
          TRACE_0_INFO("L3 parameters on a SAPI different from 3, 5, 9, and 11.");
          return FALSE;
        }

        /*
         * Set layer_3 as valid and store Layer-3 XID parameters.
         */
        llc_data->decoded_l3_xid.valid = TRUE;
        llc_data->decoded_l3_xid.length = length;
        memcpy (llc_data->decoded_l3_xid.value, data, length);
        TRACE_1_INFO("XID L3:%d bytes", length);
        break;
      case XID_RESET:
        if (par NEQ &(sdu->buf[sdu->o_buf/8]))
        {
          /*
           * Reset must be the first parameter in the XID information field.
           * <R.LLC.XID_INVA.A.004>
           */
          TRACE_0_INFO("Reset must be the first XID parameter.");
          return FALSE;
        }

        if (cr_bit EQ SGSN_COMMAND)
        {
          if (command EQ U_SABM)
          {
            /*
             * SABM command: Reset is not allowed.
             * <R.LLC.XID_INVA.A.003>
             */
            TRACE_0_INFO("Reset is not allowed in SABM command");
            return FALSE;
          }
        }
        else /* SGSN_RESPONSE */
        {
          /*
           * UA/XID response: Reset is not allowed.
           * <R.LLC.XID_INVA.A.005>
           */
          TRACE_0_INFO("Reset is not allowed in UA/XID response");
          return FALSE;
        }

        /*
         * Set reset as valid.
         */
        llc_data->decoded_xid.reset.valid = TRUE;
        TRACE_0_INFO("XID Reset");
        break;
      default:
        /*
         * Unrecognised type field.
         */
        if (cr_bit EQ SGSN_COMMAND)
        {
          /*
           * XID command: Skip XID parameter.
           * <R.LLC.XIDNEG_R.A.002>
           */
          continue;
        }
        else /* SGSN_RESPONSE */
        {
          /*
           * XID response: The XID information field is regarded as invalid.
           * <R.LLC.XID_INVA.A.006>
           */
          TRACE_0_INFO("Unrecognised type field in XID response.");
          return FALSE;
        }
    }
  }

  /*
   * All XID parameters have been processed, XID information field seems
   * to be correct.
   */
  return TRUE;
} /* u_check_xid() */



/*
+------------------------------------------------------------------------------
| Function    : u_eval_xid
+------------------------------------------------------------------------------
| Description : This procedure evaluates the decoded XID information field in
|               llc_decoded_xid (global variable). If Reset is present, the
|               state of every incarnation in ABM is set to ADM (including
|               the current incarnation!), all LLC layer parameters are set
|               to their default values, the OCs for unack. transfer are set
|               to 0, and the parameter reset_received is set to TRUE. If a
|               command has been received (cr_bit is set to SGSN_COMMAND),
|               all XID parameters are evaluated and stored as global values,
|               if acceptable. Each XID parameter is tagged in llc_xid_tag
|               for the next response. Otherwise (a response has been
|               received), store the received parameters as global values
|               and reset their valid flags in llc_requested_xid. In each
|               case, if N201-I or N201-U have been changed, or if Layer-3
|               XID parameters have been received, set xid_ind to TRUE,
|               otherwise to FALSE. Additionally remove any received parameter
|               in llc_xid_negotiate, because it has been explicitly
|               negotiated by the peer.
|
| Parameters  : cr_bit          - SGSN_COMMAND/_RESPONSE has been received
|               reset_received  - TRUE indicates received Reset parameter,
|                                 else FALSE
|               xid_ind         - TRUE indicates changed N201-U and/or N201-I,
|                                 so that LL_XID_IND must be sent to layer 3
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_eval_xid (T_BIT cr_bit,
                        BOOL *reset_received,
                        BOOL *xid_ind)
{
  UBYTE             incarnation;


  TRACE_FUNCTION ("u_eval_xid");

  /*
   * Preset both indicators with default values.
   */
  *reset_received = FALSE;
  *xid_ind = FALSE;

  /*
   * Preset global XID indicator for next response.
   */
  llc_data->u->xid_tag = 0L;


  /**************************************************************************
   * Reset:
   * Has to be processed first in order to take effect!
   */
  if (llc_data->decoded_xid.reset.valid)
  {
    /*
     * Initialise all LLC layer parameters for all SAPIs.
     */
    llc_init_parameters();
    llc_init_requested_xid();

    /*
     * Reset all incarnations of service U that are in state 'ABM' to 'ADM'.
     */
    for (incarnation = 0; incarnation < U_NUM_INC; incarnation++)
    {
      llc_data->u_base[incarnation].state = U_ADM;
    }

    /*
     * LLC has to be reset. Send SIG_U_LLME_RESET_IND.
     */
    *reset_received = TRUE;
  }


  /**************************************************************************
   * Version:
   * Shall not be negotiated while in state 'ABM'.
   * <R.LLC.XID_PAR.A.001>
   */
  if ((llc_data->decoded_xid.version.valid) AND (GET_STATE(U) NEQ U_ABM))
  {
    if (cr_bit EQ SGSN_COMMAND)
    {
      if (llc_xid_value_acceptable (llc_data->current_sapi, XID_VERSION,
        llc_data->decoded_xid.version.value))
      {
        llc_data->version = llc_data->decoded_xid.version.value;
      }
      else /* value is not acceptable */
      {
        /*
         * Sense of negotiation down: offer lower value; sense of
         * negotiation up: offer higher value.
         * This happens automatically by just responding with our current
         * global value.
         */
      }

      /*
       * Tag parameter for next response.
       */
      llc_data->u->xid_tag |= 0x00000001L << XID_VERSION;
    }
    else /* SGSN_RESPONSE */
    {
      /*
       * Sense of negotiation-correctness of response has already been checked
       * in u_check_xid().
       */
      llc_data->version = llc_data->decoded_xid.version.value;
    }

    /*
     * Remove tag in xid_tag_negotiate, because this parameter has been
     * explicitly negotiated by the peer.
     * <R.LLC.XIDNEG_R.A.015>
     */
    llc_data->u->xid_tag_negotiate &= ~(0x00000001L << XID_VERSION);
  }


  /**************************************************************************
   * IOV-UI:
   * Shall only be negotiated in state 'ADM'. <R.LLC.XID_PAR.A.002>
   */
  if ((llc_data->decoded_xid.iov_ui.valid) AND (GET_STATE(U) NEQ U_ABM) )
  {
    /*
     * Do not tag iov_ui for the XID response, because it shall only be
     * transmitted in downlink direction.
     * <R.LLC.XID_PAR.A.004>
     */

    /*
     * Copy value to global variable (no sense of negotiation).
     */
    llc_data->iov_ui = llc_data->decoded_xid.iov_ui.value;
  }


  /**************************************************************************
   * IOV-I:
   * Shall only be negotiated with SABM and UA frames. This is already
   * checked in u_check_xid().
   * <R.LLC.XID_PAR.A.003>, <R.LLC.XID_INVA.A.010>
   */
  if (llc_data->decoded_xid.iov_i.valid)
  {
    /*
     * Do not tag iov_i for the XID response, because it shall only be
     * transmitted in downlink direction.
     * <R.LLC.XID_PAR.A.004>
     */

    /*
     * Copy value to global variable (no sense of negotiation).
     */
    *(llc_data->iov_i) = llc_data->decoded_xid.iov_i.value;
  }


  /**************************************************************************
   * T200 (and T201):
   * Can be negotiated in state 'ADM' and 'ABM'. New values shall only apply
   * to timers set after the negotiation has been completed (which is
   * accomplished automatically).
   * <R.LLC.XID_PAR.A.006>, <R.LLC.XID_PAR.A.007>
   */
  if (llc_data->decoded_xid.t200.valid)
  {
    if (cr_bit EQ SGSN_COMMAND)
    {
      if (llc_xid_value_acceptable (llc_data->current_sapi, XID_T200,
        llc_data->decoded_xid.t200.value))
      {
        llc_data->t200->length = XID2INT (llc_data->decoded_xid.t200.value);
      }
      else /* value is not acceptable */
      {
        /*
         * Sense of negotiation down: offer lower value; sense of
         * negotiation up: offer higher value.
         * This happens automatically by just responding with our current
         * global value.
         */
      }

      /*
       * In case we also want to negotiate this value, but to a lower!
       * value, delete this parameter from the requested XID structure
       */
      if (llc_data->u->requested_xid.t200.valid AND
          llc_data->u->requested_xid.t200.value <= llc_data->decoded_xid.t200.value)
      {
            llc_data->u->requested_xid.t200.valid = FALSE;
      }

      /*
       * Tag parameter for next response.
       */
      llc_data->u->xid_tag |= 0x00000001L << XID_T200;
    }
    else /* SGSN_RESPONSE */
    {
      /*
       * Sense of negotiation-correctness of response has already been checked
       * in u_check_xid().
       */
      llc_data->t200->length = XID2INT (llc_data->decoded_xid.t200.value);
    }

    /*
     * Remove tag in xid_tag_negotiate, because this parameter has been
     * explicitly negotiated by the peer.
     * <R.LLC.XIDNEG_R.A.015>
     */
    llc_data->u->xid_tag_negotiate &= ~(0x00000001L << XID_T200);
  }


  /**************************************************************************
   * N200:
   * Can be negotiated in state 'ADM' and 'ABM'.
   * <R.LLC.XID_PAR.A.006>
   */
  if (llc_data->decoded_xid.n200.valid)
  {
    if (cr_bit EQ SGSN_COMMAND)
    {
      if (llc_xid_value_acceptable (llc_data->current_sapi, XID_N200,
        llc_data->decoded_xid.n200.value))
      {
        *(llc_data->n200) = llc_data->decoded_xid.n200.value;
      }
      else /* value is not acceptable */
      {
        /*
         * Sense of negotiation down: offer lower value; sense of
         * negotiation up: offer higher value.
         * This happens automatically by just responding with our current
         * global value.
         */
      }

      /*
       * In case we also want to negotiate this value, but to a lower!
       * value, delete this parameter from the requested XID structure
       */
      if (llc_data->u->requested_xid.n200.valid AND
          llc_data->u->requested_xid.n200.value <= llc_data->decoded_xid.n200.value)
      {
          llc_data->u->requested_xid.n200.valid = FALSE;
      }

      /*
       * Tag parameter for next response.
       */
      llc_data->u->xid_tag |= 0x00000001L << XID_N200;
    }
    else /* SGSN_RESPONSE */
    {
      /*
       * Sense of negotiation-correctness of response has already been checked
       * in u_check_xid().
       */
      *(llc_data->n200) = llc_data->decoded_xid.n200.value;
    }

    /*
     * Remove tag in xid_tag_negotiate, because this parameter has been
     * explicitly negotiated by the peer.
     * <R.LLC.XIDNEG_R.A.015>
     */
    llc_data->u->xid_tag_negotiate &= ~(0x00000001L << XID_N200);
  }


  /**************************************************************************
   * N201-U:
   * Can be negotiated in state 'ADM' and 'ABM'. If N201-U is negotiated to a
   * lower value than previously used, then any queued or new U and UI frames
   * that violate the new value of N201-U should be discarded and not
   * transmitted.
   * <R.LLC.XID_PAR.A.006>, <R.LLC.XID_PAR.A.010>
   */
  if (llc_data->decoded_xid.n201_u.valid)
  {
    if (cr_bit EQ SGSN_COMMAND)
    {
      if (llc_xid_value_acceptable (llc_data->current_sapi, XID_N201_U,
                                    llc_data->decoded_xid.n201_u.value))
      {
        if (llc_data->decoded_xid.n201_u.value NEQ *(llc_data->n201_u))
        {
          *(llc_data->n201_u) = llc_data->decoded_xid.n201_u.value;

          /*
           * LL_XID_IND has to be sent to layer 3.
           */
          *xid_ind = TRUE;
        }
      }
      else /* value is not acceptable */
      {
        /*
         * Sense of negotiation down: offer lower value; sense of
         * negotiation up: offer higher value.
         * This happens automatically by just responding with our current
         * global value.
         */
      }

      /*
       * In case we also want to negotiate this value, but to a higher
       * value, delete this parameter from the requested XID structure
       */
      if (llc_data->u->requested_xid.n201_u.valid AND
          llc_data->u->requested_xid.n201_u.value >= llc_data->decoded_xid.n201_u.value)
      {
          llc_data->u->requested_xid.n201_u.valid = FALSE;
      }

      /*
       * Tag parameter for next response.
       */
      llc_data->u->xid_tag |= 0x00000001L << XID_N201_U;
    }
    else /* SGSN_RESPONSE */
    {
      if (llc_data->decoded_xid.n201_u.value NEQ *(llc_data->n201_u))
      {
        /*
         * Sense of negotiation-correctness of response has already been checked
         * in u_check_xid().
         */
        *(llc_data->n201_u) = llc_data->decoded_xid.n201_u.value;

        /*
         * LL_XID_IND has to be sent to layer 3.
         */
        *xid_ind = TRUE;
      }
    }

    /*
     * Remove tag in xid_tag_negotiate, because this parameter has been
     * explicitly negotiated by the peer.
     * <R.LLC.XIDNEG_R.A.015>
     */
    llc_data->u->xid_tag_negotiate &= ~(0x00000001L << XID_N201_U);
  }


  /**************************************************************************
   * N201-I:
   * N201-I can be negotiated to any value in state 'ADM'. It can only be
   * negotiated to the same or higher value as previously used in state 'ABM'.
   * <R.LLC.XID_PAR.A.008>, <R.LLC.XID_PAR.A.009>
   */
  if (llc_data->decoded_xid.n201_i.valid)
  {
    if (cr_bit EQ SGSN_COMMAND)
    {
      if (llc_xid_value_acceptable (llc_data->current_sapi, XID_N201_I,
        llc_data->decoded_xid.n201_i.value))
      {
        if (((GET_STATE (U) EQ U_ABM) AND
          (llc_data->decoded_xid.n201_i.value > *(llc_data->n201_i)))
          OR /* state 'ADM' */
          (llc_data->decoded_xid.n201_i.value NEQ *(llc_data->n201_i)))
        {
          *(llc_data->n201_i) = llc_data->decoded_xid.n201_i.value;

          /*
           * LL_XID_IND has to be sent to layer 3.
           */
          *xid_ind = TRUE;
        }
      }
      else /* value is not acceptable */
      {
        /*
         * Sense of negotiation down: offer lower value; sense of
         * negotiation up: offer higher value.
         * This happens automatically by just responding with our current
         * global value.
         */
      }

      /*
       * In case we also want to negotiate this value, but to a higher
       * value, delete this parameter from the requested XID structure
       */

      if (llc_data->u->requested_xid.n201_i.valid AND
          llc_data->u->requested_xid.n201_i.value >= llc_data->decoded_xid.n201_i.value)
      {
        llc_data->u->requested_xid.n201_i.valid = FALSE;
      }

      /*
       * Tag parameter for next response.
       */
      llc_data->u->xid_tag |= 0x00000001L << XID_N201_I;
    }
    else /* SGSN_RESPONSE */
    {
      /*
       * Sense of negotiation-correctness of response has already been checked
       * in u_check_xid().
       */
      if (((GET_STATE (U) EQ U_ABM) AND
        (llc_data->decoded_xid.n201_i.value > *(llc_data->n201_i)))
        OR /* state 'ADM' */
        (llc_data->decoded_xid.n201_i.value NEQ *(llc_data->n201_i)))
      {
        *(llc_data->n201_i) = llc_data->decoded_xid.n201_i.value;

        /*
         * LL_XID_IND has to be sent to layer 3.
         */
        *xid_ind = TRUE;
      }
    }

    /*
     * Remove tag in xid_tag_negotiate, because this parameter has been
     * explicitly negotiated by the peer.
     * <R.LLC.XIDNEG_R.A.015>
     */
    llc_data->u->xid_tag_negotiate &= ~(0x00000001L << XID_N201_I);
  }


  /**************************************************************************
   * mD:
   * mD can be negotiated to any value in state 'ADM'. It can only be
   * negotiated to the same or higher value as previously used in state 'ABM'.
   * <R.LLC.XID_PAR.A.008>, <R.LLC.XID_PAR.A.009>
   */
  if (llc_data->decoded_xid.md.valid)
  {
    if (cr_bit EQ SGSN_COMMAND)
    {
      if (llc_xid_value_acceptable (llc_data->current_sapi, XID_MD,
        llc_data->decoded_xid.md.value))
      {
        if (((GET_STATE (U) EQ U_ABM) AND
          (llc_data->decoded_xid.md.value > *(llc_data->md)))
          OR /* state 'ADM' */
          (llc_data->decoded_xid.md.value NEQ *(llc_data->md)))
        {
          *(llc_data->md) = llc_data->decoded_xid.md.value;
        }
      }
      else /* value is not acceptable */
      {
        /*
         * Sense of negotiation down: offer lower value; sense of
         * negotiation up: offer higher value.
         * This happens automatically by just responding with our current
         * global value.
         */
      }

      /*
       * In case we also want to negotiate this value, but to a higher
       * value, delete this parameter from the requested XID structure
       */
      if (llc_data->u->requested_xid.md.valid AND
          llc_data->u->requested_xid.md.value >= llc_data->decoded_xid.md.value)
      {
          llc_data->u->requested_xid.md.valid = FALSE;
      }

      /*
       * Tag parameter for next response.
       */
      llc_data->u->xid_tag |= 0x00000001L << XID_MD;
    }
    else /* SGSN_RESPONSE */
    {
      /*
       * Sense of negotiation-correctness of response has already been checked
       * in u_check_xid().
       */
      if (((GET_STATE (U) EQ U_ABM) AND
        (llc_data->decoded_xid.md.value > *(llc_data->md)))
        OR /* state 'ADM' */
        (llc_data->decoded_xid.md.value NEQ *(llc_data->md)))
      {
        *(llc_data->md) = llc_data->decoded_xid.md.value;
      }
    }

    /*
     * Remove tag in xid_tag_negotiate, because this parameter has been
     * explicitly negotiated by the peer.
     * <R.LLC.XIDNEG_R.A.015>
     */
    llc_data->u->xid_tag_negotiate &= ~(0x00000001L << XID_MD);
  }


  /**************************************************************************
   * mU:
   * mU can be negotiated to any value in state 'ADM'. It can only be
   * negotiated to the same or higher value as previously used in state 'ABM'.
   * <R.LLC.XID_PAR.A.008>, <R.LLC.XID_PAR.A.009>
   */
  if (llc_data->decoded_xid.mu.valid)
  {
    if (cr_bit EQ SGSN_COMMAND)
    {
      if (llc_xid_value_acceptable (llc_data->current_sapi, XID_MU,
        llc_data->decoded_xid.mu.value))
      {
        if (((GET_STATE (U) EQ U_ABM) AND
          (llc_data->decoded_xid.mu.value > *(llc_data->mu)))
          OR /* state 'ADM' */
          (llc_data->decoded_xid.mu.value NEQ *(llc_data->mu)))
        {
          *(llc_data->mu) = llc_data->decoded_xid.mu.value;
        }
      }
      else /* value is not acceptable */
      {
        /*
         * Sense of negotiation down: offer lower value; sense of
         * negotiation up: offer higher value.
         * This happens automatically by just responding with our current
         * global value.
         */
      }

      /*
       * In case we also want to negotiate this value, but to a higher
       * value, delete this parameter from the requested XID structure
       */
      if (llc_data->u->requested_xid.mu.valid AND
          llc_data->u->requested_xid.mu.value >= llc_data->decoded_xid.mu.value)
      {
        llc_data->u->requested_xid.mu.valid = FALSE;
      }

      /*
       * Tag parameter for next response.
       */
      llc_data->u->xid_tag |= 0x00000001L << XID_MU;
    }
    else /* SGSN_RESPONSE */
    {
      /*
       * Sense of negotiation-correctness of response has already been checked
       * in u_check_xid().
       */
      if (((GET_STATE (U) EQ U_ABM) AND
        (llc_data->decoded_xid.mu.value > *(llc_data->mu)))
        OR /* state 'ADM' */
        (llc_data->decoded_xid.mu.value NEQ *(llc_data->mu)))
      {
        *(llc_data->mu) = llc_data->decoded_xid.mu.value;
      }
    }

    /*
     * Remove tag in xid_tag_negotiate, because this parameter has been
     * explicitly negotiated by the peer.
     * <R.LLC.XIDNEG_R.A.015>
     */
    llc_data->u->xid_tag_negotiate &= ~(0x00000001L << XID_MU);
  }


  /**************************************************************************
   * kD:
   * kD can be negotiated to any value in state 'ADM'. It can only be
   * negotiated to the same or higher value as previously used in state 'ABM'.
   * <R.LLC.XID_PAR.A.008>, <R.LLC.XID_PAR.A.009>
   */
  if (llc_data->decoded_xid.kd.valid)
  {
    if (cr_bit EQ SGSN_COMMAND)
    {
      if (llc_xid_value_acceptable (llc_data->current_sapi, XID_KD,
        llc_data->decoded_xid.kd.value))
      {
        if (((GET_STATE (U) EQ U_ABM) AND
          (llc_data->decoded_xid.kd.value > *(llc_data->kd)))
          OR /* state 'ADM' */
          (llc_data->decoded_xid.kd.value NEQ *(llc_data->kd)))
        {
          *(llc_data->kd) = llc_data->decoded_xid.kd.value;
        }
      }
      else /* value is not acceptable */
      {
        /*
         * Sense of negotiation down: offer lower value; sense of
         * negotiation up: offer higher value.
         * This happens automatically by just responding with our current
         * global value.
         */
      }

      /*
       * In case we also want to negotiate this value, but to a higher
       * value, delete this parameter from the requested XID structure
       */
      if (llc_data->u->requested_xid.kd.valid AND
          llc_data->u->requested_xid.kd.value >= llc_data->decoded_xid.kd.value)
      {
          llc_data->u->requested_xid.kd.valid = FALSE;
      }

      /*
       * Tag parameter for next response.
       */
      llc_data->u->xid_tag |= 0x00000001L << XID_KD;
    }
    else /* SGSN_RESPONSE */
    {
      /*
       * Sense of negotiation-correctness of response has already been checked
       * in u_check_xid().
       */
      if (((GET_STATE (U) EQ U_ABM) AND
        (llc_data->decoded_xid.kd.value > *(llc_data->kd)))
        OR /* state 'ADM' */
        (llc_data->decoded_xid.kd.value NEQ *(llc_data->kd)))
      {
        *(llc_data->kd) = llc_data->decoded_xid.kd.value;
      }
    }

    /*
     * Remove tag in xid_tag_negotiate, because this parameter has been
     * explicitly negotiated by the peer.
     * <R.LLC.XIDNEG_R.A.015>
     */
    llc_data->u->xid_tag_negotiate &= ~(0x00000001L << XID_KD);
  }


  /**************************************************************************
   * kU:
   * kU can be negotiated to any value in state 'ADM'. It can only be
   * negotiated to the same or higher value as previously used in state 'ABM'.
   * <R.LLC.XID_PAR.A.008>, <R.LLC.XID_PAR.A.009>
   */
  if (llc_data->decoded_xid.ku.valid)
  {
    if (cr_bit EQ SGSN_COMMAND)
    {
      if (llc_xid_value_acceptable (llc_data->current_sapi, XID_KU,
        llc_data->decoded_xid.ku.value))
      {
        if (((GET_STATE (U) EQ U_ABM) AND
          (llc_data->decoded_xid.ku.value > *(llc_data->ku)))
          OR /* state 'ADM' */
          (llc_data->decoded_xid.ku.value NEQ *(llc_data->ku)))
        {
          *(llc_data->ku) = llc_data->decoded_xid.ku.value;
        }
      }
      else /* value is not acceptable */
      {
        /*
         * Sense of negotiation down: offer lower value; sense of
         * negotiation up: offer higher value.
         * This happens automatically by just responding with our current
         * global value.
         */
      }

      /*
       * In case we also want to negotiate this value, but to a higher
       * value, delete this parameter from the requested XID structure
       */
      if (llc_data->u->requested_xid.ku.valid AND
          llc_data->u->requested_xid.ku.value >= llc_data->decoded_xid.ku.value)
      {
          llc_data->u->requested_xid.ku.valid = FALSE;
      }

      /*
       * Tag parameter for next response.
       */
      llc_data->u->xid_tag |= 0x00000001L << XID_KU;
    }
    else /* SGSN_RESPONSE */
    {
      /*
       * Sense of negotiation-correctness of response has already been checked
       * in u_check_xid().
       */
      if (((GET_STATE (U) EQ U_ABM) AND
        (llc_data->decoded_xid.ku.value > *(llc_data->ku)))
        OR /* state 'ADM' */
        (llc_data->decoded_xid.ku.value NEQ *(llc_data->ku)))
      {
        *(llc_data->ku) = llc_data->decoded_xid.ku.value;
      }
    }

    /*
     * Remove tag in xid_tag_negotiate, because this parameter has been
     * explicitly negotiated by the peer.
     * <R.LLC.XIDNEG_R.A.015>
     */
    llc_data->u->xid_tag_negotiate &= ~(0x00000001L << XID_KU);
  }


  /**************************************************************************
   * Layer 3 stuff
   */
  if (llc_data->decoded_l3_xid.valid)
  {
    /*
     * LL_XID_IND has to be sent to layer 3.
     */
    *xid_ind = TRUE;

    if (cr_bit EQ SGSN_COMMAND)
    {
      /*
       * Tag parameter for next response.
       */
      llc_data->u->xid_tag |= 0x00000001L << XID_LAYER_3;
    }
    else /* SGSN_RESPONSE */
    {
      /*
       * Reset valid flag of parameter in requested_xid because it has been
       * included in the response.
       */
     llc_data->requested_l3_xid->valid = FALSE;
    }

    /*
     * Remove tag in xid_tag_negotiate, because this parameter has been
     * explicitly negotiated by the peer.
     * <R.LLC.XIDNEG_R.A.015>
     */
    llc_data->u->xid_tag_negotiate &= ~(0x00000001L << XID_LAYER_3);
  }

  return; /* u_eval_xid */
}


/*
+------------------------------------------------------------------------------
| Function    : u_insert_xid
+------------------------------------------------------------------------------
| Description :  This procedure inserts (i.e. appends) the XID parameters that
|                are tagged in llc_xid_tag. This variable is normally set in
|                u_eval_xid(). The parameter cr_bit indicates if the XID
|                information field is written in a command or a response frame.
|                The values of the parameters are taken from llc_requested_xid
|                if marked as valid (normally the cause when a command frame is
|                to be sent), otherwise from global variables (the normal cause
|                for a response frame). If a response frame is to be sent, and
|                the parameter is tagged in llc_xid_tag, but has not been
|                received in the command frame (as indicated by
|                llc_decoded_xid), the parameter is tagged in llc_xid_negotiate.
|                Each parameter is tagged in llc_xid_tag_sent for collision
|                checks and the like
|
| Parameters  : sdu     - a valid pointer to an SDU, containing enough octets
|                         for the tagged number of XID parameters
|               cr_bit  - MS_COMMAND/_RESPONSE is to be sent
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_insert_xid
(
#ifdef LL_DESC
  T_desc_list3 *desc_list3,
#else
  T_sdu *sdu,
#endif
  T_BIT cr_bit
)
{
  UBYTE             *data;
  ULONG             value;
#ifdef LL_DESC
  UBYTE             *desc_buf;
  T_desc3           *desc3;
#endif
  TRACE_FUNCTION( "u_insert_xid" );

  /*
   * Set data to point to the first free data octet in sdu. data has to
   * be incremented with each octet that is written in sdu to ensure that
   * it always points to the first free data octet.
   */
#ifdef LL_DESC
  desc3    = (T_desc3*) desc_list3->first;
  desc_buf = (UBYTE*)desc3->buffer;
  data     = &desc_buf[(desc3->offset)+(desc3->len)];
#else
  data = &sdu->buf[(sdu->o_buf/8)+(sdu->l_buf/8)];
#endif
  /*
   * Preset global XID sent indicator for next response.
   */
  llc_data->u->xid_tag_sent = 0L;


  /*************************************************************************
   * Version:
   * Shall not be negotiated while in state 'ABM'.
   * <R.LLC.XID_PAR.A.001>
   */
  if (llc_data->u->xid_tag & (0x00000001L << XID_VERSION) AND
    (GET_STATE (U) NEQ U_ABM))
  {
    if (cr_bit EQ MS_COMMAND)
    {
      value = llc_data->u->requested_xid.version.value;
    }
    else
    {
      if (llc_data->u->requested_xid.version.valid)
      {
        llc_data->version = llc_data->u->requested_xid.version.value;
      }

      value = llc_data->version;

      /*
       * Tag a parameter for further negotiation that was not included in
       * the XID command in every XID response until the parameter has been
       * explicitly negotiated, either by responding to an XID command that
       * included the parameter, or by explicitly including the parameter
       * the next time an XID command is transmitted.
       * <R.LLC.XIDNEG_R.A.015>
       */
      if (!llc_data->decoded_xid.version.valid)
      {
        llc_data->u->xid_tag_negotiate |= 0x00000001L << XID_VERSION;
      }
    }

    /*
     * Append determined value to SDU data, increment SDU data pointer to
     * point to the first free data octet again.
     */
    *data++ = (UBYTE)0x00 | ((UBYTE)XID_VERSION << 2) | (UBYTE)XID_VERSION_LEN;
    *data++ = (UBYTE)value;

#ifdef LL_DESC
    desc3->len += (XID_VERSION_LEN + 1);
#else
    sdu->l_buf += (XID_VERSION_LEN + 1) * 8;
#endif
    /*
     * Tag parameter for collision checks and the like.
     */
    llc_data->u->xid_tag_sent |= 0x00000001L << XID_VERSION;
  }

  /*************************************************************************
   * T200:
   * Can be negotiated in state 'ADM' and 'ABM'.
   * <R.LLC.XID_PAR.A.006>
   */
  if (llc_data->u->xid_tag & (0x00000001L << XID_T200))
  {
    if (cr_bit EQ MS_COMMAND)
    {
      value = llc_data->u->requested_xid.t200.value;
    }
    else
    {
      if (llc_data->u->requested_xid.t200.valid)
      {
        llc_data->t200->length = XID2INT(llc_data->u->requested_xid.t200.value);
      }

      value = INT2XID(llc_data->t200->length);

      /*
       * Tag a parameter for further negotiation that was not included in
       * the XID command in every XID response until the parameter has been
       * explicitly negotiated, either by responding to an XID command that
       * included the parameter, or by explicitly including the parameter
       * the next time an XID command is transmitted.
       * <R.LLC.XIDNEG_R.A.015>
       */
      if (!llc_data->decoded_xid.t200.valid)
      {
        llc_data->u->xid_tag_negotiate |= 0x00000001L << XID_T200;
      }
    }

    /*
     * Append determined value to SDU data, increment SDU data pointer to
     * point to the first free data octet again.
     */
    *data++ = (UBYTE)0x00 | ((UBYTE)XID_T200 << 2) | (UBYTE)XID_T200_LEN;
    *data++ = (UBYTE)(value >> 8);
    *data++ = (UBYTE)value;

#ifdef LL_DESC
    desc3->len += (XID_T200_LEN + 1);
#else
    sdu->l_buf += (XID_T200_LEN + 1) * 8;
#endif

    /*
     * Tag parameter for collision checks and the like.
     */
    llc_data->u->xid_tag_sent |= 0x00000001L << XID_T200;
  }

  /*************************************************************************
   * N200:
   * Can be negotiated in state 'ADM' and 'ABM'.
   * <R.LLC.XID_PAR.A.006>
   */
  if (llc_data->u->xid_tag & (0x00000001L << XID_N200))
  {
    if (cr_bit EQ MS_COMMAND)
    {
      value = llc_data->u->requested_xid.n200.value;
    }
    else
    {
      if (llc_data->u->requested_xid.n200.valid)
      {
        *(llc_data->n200) = llc_data->u->requested_xid.n200.value;
      }

      value = *(llc_data->n200);

      /*
       * Tag a parameter for further negotiation that was not included in
       * the XID command in every XID response until the parameter has been
       * explicitly negotiated, either by responding to an XID command that
       * included the parameter, or by explicitly including the parameter
       * the next time an XID command is transmitted.
       * <R.LLC.XIDNEG_R.A.015>
       */
      if (!llc_data->decoded_xid.n200.valid)
      {
        llc_data->u->xid_tag_negotiate |= 0x00000001L << XID_N200;
      }
    }

    /*
     * Append determined value to SDU data, increment SDU data pointer to
     * point to the first free data octet again.
     */
    *data++ = (UBYTE)0x00 | ((UBYTE)XID_N200 << 2) | (UBYTE)XID_N200_LEN;
    *data++ = (UBYTE)value;

#ifdef LL_DESC
    desc3->len += (XID_N200_LEN + 1);
#else
    sdu->l_buf += (XID_N200_LEN + 1) * 8;
#endif

    /*
     * Tag parameter for collision checks and the like.
     */
    llc_data->u->xid_tag_sent |= 0x00000001L << XID_N200;
  }

  /*************************************************************************
   * N201-U:
   * Can be negotiated in state 'ADM' and 'ABM'.
   * <R.LLC.XID_PAR.A.006>
   */
  if (llc_data->u->xid_tag & (0x00000001L << XID_N201_U))
  {
    if (cr_bit EQ MS_COMMAND)
    {
      value = llc_data->u->requested_xid.n201_u.value;
    }
    else
    {
      if (llc_data->u->requested_xid.n201_u.valid)
      {
        *(llc_data->n201_u) = llc_data->u->requested_xid.n201_u.value;
      }

      value = *(llc_data->n201_u);

      /*
       * Tag a parameter for further negotiation that was not included in
       * the XID command in every XID response until the parameter has been
       * explicitly negotiated, either by responding to an XID command that
       * included the parameter, or by explicitly including the parameter
       * the next time an XID command is transmitted.
       * <R.LLC.XIDNEG_R.A.015>
       */
      if (!llc_data->decoded_xid.n201_u.valid)
      {
        llc_data->u->xid_tag_negotiate |= 0x00000001L << XID_N201_U;
      }
    }

    /*
     * Append determined value to SDU data, increment SDU data pointer to
     * point to the first free data octet again.
     */
    *data++ = (UBYTE)0x00 | ((UBYTE)XID_N201_U << 2) | (UBYTE)XID_N201_U_LEN;
    *data++ = (UBYTE)(value >> 8);
    *data++ = (UBYTE)value;

#ifdef LL_DESC
    desc3->len += (XID_N201_U_LEN + 1);
#else
    sdu->l_buf += (XID_N201_U_LEN + 1) * 8;
#endif

    /*
     * Tag parameter for collision checks and the like.
     */
    llc_data->u->xid_tag_sent |= 0x00000001L << XID_N201_U;
  }

  /*************************************************************************
   * N201-I:
   * Can be negotiated in state 'ADM' and 'ABM'.
   * <R.LLC.XID_PAR.A.006>
   */
  if (llc_data->u->xid_tag & (0x00000001L << XID_N201_I))
  {
    if (cr_bit EQ MS_COMMAND)
    {
      value = llc_data->u->requested_xid.n201_i.value;
    }
    else
    {
      if (llc_data->u->requested_xid.n201_i.valid)
      {
        *(llc_data->n201_i) = llc_data->u->requested_xid.n201_i.value;
      }

      value = *(llc_data->n201_i);

      /*
       * Tag a parameter for further negotiation that was not included in
       * the XID command in every XID response until the parameter has been
       * explicitly negotiated, either by responding to an XID command that
       * included the parameter, or by explicitly including the parameter
       * the next time an XID command is transmitted.
       * <R.LLC.XIDNEG_R.A.015>
       */
      if (!llc_data->decoded_xid.n201_i.valid)
      {
        llc_data->u->xid_tag_negotiate |= 0x00000001L << XID_N201_I;
      }
    }

    /*
     * Append determined value to SDU data, increment SDU data pointer to
     * point to the first free data octet again.
     */
    *data++ = (UBYTE)0x00 | ((UBYTE)XID_N201_I << 2) | (UBYTE)XID_N201_I_LEN;
    *data++ = (UBYTE)(value >> 8);
    *data++ = (UBYTE)value;

#ifdef LL_DESC
    desc3->len += (XID_N201_I_LEN + 1);
#else
    sdu->l_buf += (XID_N201_I_LEN + 1) * 8;
#endif

    /*
     * Tag parameter for collision checks and the like.
     */
    llc_data->u->xid_tag_sent |= 0x00000001L << XID_N201_I;
  }

  /*************************************************************************
   * md:
   * Can be negotiated in state 'ADM' and 'ABM'.
   * <R.LLC.XID_PAR.A.006>
   */
  if (llc_data->u->xid_tag & (0x00000001L << XID_MD))
  {
    if (cr_bit EQ MS_COMMAND)
    {
      value = llc_data->u->requested_xid.md.value;
    }
    else
    {
      if (llc_data->u->requested_xid.md.valid)
      {
        *(llc_data->md) = llc_data->u->requested_xid.md.value;
      }

      value = *(llc_data->md);

      /*
       * Tag a parameter for further negotiation that was not included in
       * the XID command in every XID response until the parameter has been
       * explicitly negotiated, either by responding to an XID command that
       * included the parameter, or by explicitly including the parameter
       * the next time an XID command is transmitted.
       * <R.LLC.XIDNEG_R.A.015>
       */
      if (!llc_data->decoded_xid.md.valid)
      {
        llc_data->u->xid_tag_negotiate |= 0x00000001L << XID_MD;
      }
    }

    /*
     * Append determined value to SDU data, increment SDU data pointer to
     * point to the first free data octet again.
     */
    *data++ = (UBYTE)0x00 | ((UBYTE)XID_MD << 2) | (UBYTE)XID_MD_LEN;
    *data++ = (UBYTE)(value >> 8);
    *data++ = (UBYTE)value;

#ifdef LL_DESC
    desc3->len += (XID_MD_LEN + 1);
#else
    sdu->l_buf += (XID_MD_LEN + 1) * 8;
#endif

    /*
     * Tag parameter for collision checks and the like.
     */
    llc_data->u->xid_tag_sent |= 0x00000001L << XID_MD;
  }

  /*************************************************************************
   * mu:
   * Can be negotiated in state 'ADM' and 'ABM'.
   * <R.LLC.XID_PAR.A.006>
   */
  if (llc_data->u->xid_tag & (0x00000001L << XID_MU))
  {
    if (cr_bit EQ MS_COMMAND)
    {
      value = llc_data->u->requested_xid.mu.value;
    }
    else
    {
      if (llc_data->u->requested_xid.mu.valid)
      {
        *(llc_data->mu) = llc_data->u->requested_xid.mu.value;
      }

      value = *(llc_data->mu);

      /*
       * Tag a parameter for further negotiation that was not included in
       * the XID command in every XID response until the parameter has been
       * explicitly negotiated, either by responding to an XID command that
       * included the parameter, or by explicitly including the parameter
       * the next time an XID command is transmitted.
       * <R.LLC.XIDNEG_R.A.015>
       */
      if (!llc_data->decoded_xid.mu.valid)
      {
        llc_data->u->xid_tag_negotiate |= 0x00000001L << XID_MU;
      }
    }

    /*
     * Append determined value to SDU data, increment SDU data pointer to
     * point to the first free data octet again.
     */
    *data++ = (UBYTE)0x00 | ((UBYTE)XID_MU << 2) | (UBYTE)XID_MU_LEN;
    *data++ = (UBYTE)(value >> 8);
    *data++ = (UBYTE)value;

#ifdef LL_DESC
    desc3->len += (XID_MU_LEN + 1);
#else
    sdu->l_buf += (XID_MU_LEN + 1) * 8;
#endif

    /*
     * Tag parameter for collision checks and the like.
     */
    llc_data->u->xid_tag_sent |= 0x00000001L << XID_MU;
  }

  /*************************************************************************
   * kd:
   * Can be negotiated in state 'ADM' and 'ABM'.
   * <R.LLC.XID_PAR.A.006>
   */
  if (llc_data->u->xid_tag & (0x00000001L << XID_KD))
  {
    if (cr_bit EQ MS_COMMAND)
    {
      value = llc_data->u->requested_xid.kd.value;
    }
    else
    {
      if (llc_data->u->requested_xid.kd.valid)
      {
        *(llc_data->kd) = llc_data->u->requested_xid.kd.value;
      }

      value = *(llc_data->kd);

      /*
       * Tag a parameter for further negotiation that was not included in
       * the XID command in every XID response until the parameter has been
       * explicitly negotiated, either by responding to an XID command that
       * included the parameter, or by explicitly including the parameter
       * the next time an XID command is transmitted.
       * <R.LLC.XIDNEG_R.A.015>
       */
      if (!llc_data->decoded_xid.kd.valid)
      {
        llc_data->u->xid_tag_negotiate |= 0x00000001L << XID_KD;
      }
    }

    /*
     * Append determined value to SDU data, increment SDU data pointer to
     * point to the first free data octet again.
     */
    *data++ = (UBYTE)0x00 | ((UBYTE)XID_KD << 2) | (UBYTE)XID_KD_LEN;
    *data++ = (UBYTE)value;

#ifdef LL_DESC
    desc3->len += (XID_KD_LEN + 1);
#else
    sdu->l_buf += (XID_KD_LEN + 1) * 8;
#endif

    /*
     * Tag parameter for collision checks and the like.
     */
    llc_data->u->xid_tag_sent |= 0x00000001L << XID_KD;
  }

  /*************************************************************************
   * ku:
   * Can be negotiated in state 'ADM' and 'ABM'.
   * <R.LLC.XID_PAR.A.006>
   */
  if (llc_data->u->xid_tag & (0x00000001L << XID_KU))
  {
    if (cr_bit EQ MS_COMMAND)
    {
      value = llc_data->u->requested_xid.ku.value;
    }
    else
    {
      if (llc_data->u->requested_xid.ku.valid)
      {
        *(llc_data->ku) = llc_data->u->requested_xid.ku.value;
      }

      value = *(llc_data->ku);

      /*
       * Tag a parameter for further negotiation that was not included in
       * the XID command in every XID response until the parameter has been
       * explicitly negotiated, either by responding to an XID command that
       * included the parameter, or by explicitly including the parameter
       * the next time an XID command is transmitted.
       * <R.LLC.XIDNEG_R.A.015>
       */
      if (!llc_data->decoded_xid.ku.valid)
      {
        llc_data->u->xid_tag_negotiate |= 0x00000001L << XID_KU;
      }
    }

    /*
     * Append determined value to SDU data, increment SDU data pointer to
     * point to the first free data octet again.
     */
    *data++ = (UBYTE)0x00 | ((UBYTE)XID_KU << 2) | (UBYTE)XID_KU_LEN;
    *data++ = (UBYTE)value;

#ifdef LL_DESC
    desc3->len += (XID_KU_LEN + 1);
#else
    sdu->l_buf += (XID_KU_LEN + 1) * 8;
#endif

    /*
     * Tag parameter for collision checks and the like.
     */
    llc_data->u->xid_tag_sent |= 0x00000001L << XID_KU;
  }

  /*************************************************************************
   * Insert Layer 3 (sense of negotiation: both)
   */
  if (llc_data->u->xid_tag & (0x00000001L << XID_LAYER_3))
  {
    if (llc_data->requested_l3_xid->valid)
    {
      /*
       * Write two bytes header
       */
      *data++ = (UBYTE)0x80 /* = set length to 8 bit */ | ((UBYTE)XID_LAYER_3 << 2)
                | ((UBYTE)((llc_data->requested_l3_xid->length >> 6) & 0x03));
      *data++ = (UBYTE)(llc_data->requested_l3_xid->length << 2);

      /*
       * Copy data
       */
      memcpy (data, llc_data->requested_l3_xid->value,
                    llc_data->requested_l3_xid->length);

      /*
       * Increase DESC/SDU size
       */
#ifdef LL_DESC
      desc3->len += (llc_data->requested_l3_xid->length + 2);
#else
      sdu->l_buf += (llc_data->requested_l3_xid->length + 2) * 8;
#endif
      /*
       * Tag parameter for collision checks and the like.
       */
      llc_data->u->xid_tag_sent |= 0x00000001L << XID_LAYER_3;
    }
  }

#ifdef LL_DESC
  desc_list3->list_len = desc3->len;
#endif /* LL_DESC */

#ifdef TRACE_EVE
#ifdef LL_DESC
  {
    int i;
    int l = desc3->len;
    int o = desc3->offset;

    vsi_o_ttrace(VSI_CALLER TC_EVENT, "ul XID sdu dump len:%d bytes", l);

    for (i=0; i<l; i+=10)
    {
      vsi_o_ttrace(VSI_CALLER TC_EVENT, "%.2x %.2x %.2x %.2x %.2x   %.2x %.2x %.2x %.2x %.2x",
                                        desc_buf[o+i+0], desc_buf[o+i+1],
                                        desc_buf[o+i+2], desc_buf[o+i+3], desc_buf[o+i+4],

                                        desc_buf[o+i+5], desc_buf[o+i+6],
                                        desc_buf[o+i+7], desc_buf[o+i+8], desc_buf[o+i+9]);
    }
  }

#else
  {
    int i;
    int l = sdu->l_buf/8;
    int o = sdu->o_buf/8;

    vsi_o_ttrace(VSI_CALLER TC_EVENT, "ul XID sdu dump len:%d bytes", l);

    for (i=0; i<l; i+=10)
    {
      vsi_o_ttrace(VSI_CALLER TC_EVENT, "%.2x %.2x %.2x %.2x %.2x   %.2x %.2x %.2x %.2x %.2x",
                                        sdu->buf[o+i+0], sdu->buf[o+i+1],
                                        sdu->buf[o+i+2], sdu->buf[o+i+3], sdu->buf[o+i+4],

                                        sdu->buf[o+i+5], sdu->buf[o+i+6],
                                        sdu->buf[o+i+7], sdu->buf[o+i+8], sdu->buf[o+i+9]);
    }
  }

#endif /* LL_DESC */
#endif /* TRACE_EVE */
  /*
   * If we have build an response including all XID parameters,
   * we can clean all the xid_tags and layer 3 parameters.
   */
  if (cr_bit EQ MS_RESPONSE)
  {
    llc_data->u->xid_tag = 0;
    llc_data->requested_l3_xid->valid = FALSE;
  }

  return;
} /* u_insert_xid() */


/*
+------------------------------------------------------------------------------
| Function    : u_insert_frmr_information
+------------------------------------------------------------------------------
| Description : This procedure inserts (i.e. appends) an FRMR information
|               field into the given sdu. frame is the rejected frame of which
|               the control field is included (ctrl_length is truncated to a
|               maximum of six octets; if it is not known, length is
|               determinated from pdu_type), v_s and v_r are the current
|               send and receive state numbers of ITX/IRX, cr_bit indicates
|               if the frame was a command or response (SGSN_COMMAND/RESPONSE),
|               and reason indicates the reason of the frame rejection
|               condition (the lower nibble of reason is equivalent to W4-W1).
|
| Parameters  : sdu         - a valid pointer to an SDU, containing enough
|                             octets for the FRMR information field
|                             (U_FRMR_INFO_SIZE)
|               frame       - frame that caused the frame rejection condition
|               pdu_type    - frame type
|               ctrl_length - control field length, if known
|               v_s         - current V(S)
|               v_r         - current V(R)
|               cr_bit      - setting of C/R bit in frame
|               reason      - reason of the frame rejection condition (lower
|                             nibble conforms to W4-W1 in FRMR response)
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_insert_frmr_information
(
#ifndef LL_DESC
  T_sdu *sdu,
#else
  T_desc_list3 *desc_list3,
#endif
  T_LL_UNITDATA_IND *frame,
  T_PDU_TYPE pdu_type,
  USHORT ctrl_length,
  T_FRAME_NUM v_s,
  T_FRAME_NUM v_r,
  T_BIT cr_bit,
  UBYTE reason
)
{

#ifndef LL_DESC
  UBYTE             *sdu_data;
#else
  UBYTE             *help, *desc_data;
  T_desc3           *desc3;
#endif
  UBYTE             *ctrl;
  USHORT            octet;


  TRACE_FUNCTION( "u_insert_frmr_information" );

#ifndef LL_DESC
  /*
   * Set sdu_data to point to the first free data octet in sdu. sdu_data
   * has to be incremented with each octet that is written in sdu to ensure
   * that it always points to the first free data octet.
   */
  sdu_data = &sdu->buf[(sdu->o_buf/8)+(sdu->l_buf/8)];

  /*
   * Adjust length of SDU to include fixed sized FRMR information field.
   */
  sdu->l_buf += U_FRMR_INFO_SIZE * 8;

  /*
   * Set ctrl to point to the first octet of the faulty frame control field.
   */
  ctrl = &frame->sdu.buf[(frame->sdu.o_buf/8)+1];

  /*
   * If ctrl_length is unknown, the frame type is known, therefore the length
   * of the control field can be easily determined.
   */
  if (ctrl_length EQ FRMR_CTRL_LENGTH_UNKNOWN)
  {
    if (pdu_type EQ I_FRAME)
    {
      ctrl_length = I_CTRL_OCTETS;
    }
    else if (pdu_type EQ S_FRAME)
    {
      ctrl_length = S_CTRL_OCTETS;
    }
    else if (pdu_type EQ UI_FRAME)
    {
      ctrl_length = UI_CTRL_OCTETS;
    }
    else if (pdu_type EQ U_FRAME)
    {
      ctrl_length = U_CTRL_OCTETS;
    }
    else
    {
      /*
       * Undefined control field type, set control field length to SDU length
       * minus address field, limited to six octets.
       */
      TRACE_ERROR ("undefined control field type");
      ctrl_length = (sdu->l_buf/8 - 1) < 6 ? (sdu->l_buf/8 - 1) : 6;
    }
  }
  else /* ctrl_length is already known */
  {
    /*
     * Limit control field length to six octets, according to 04.64.
     */
    ctrl_length = ctrl_length < 6 ? ctrl_length : 6;
  }


  /*
   * Copy the first six octets of faulty control field. If the control field
   * is smaller that six octets, the unused octets are set to 0.
   */
  for (octet = 0; octet < 6; octet++)
  {
    if (octet < ctrl_length)
    {
      sdu_data[octet] = ctrl[octet];
    }
    else
    {
      sdu_data[octet] = 0x00;
    }
  }


  /*
   * Insert remaining four octets of FRMR information field:
   * +---+---+---+---+---+---+---+---+
   * | X | X | X | X |      V(S)     |
   * +---+---+---+---+---+---+---+---+
   * |        V(S)       | X |  V(R) |
   * +---+---+---+---+---+---+---+---+
   * |            V(R)           |C/R|
   * +---+---+---+---+---+---+---+---+
   * | X | X | X | X | W4| W3| W2| W1|
   * +---+---+---+---+---+---+---+---+
   */
  sdu_data[octet++] = (UBYTE)(v_s >> 5) & 0x0F;
  sdu_data[octet++] = (UBYTE)(v_s << 3) | ((UBYTE)(v_r >> 7) & 0x0003);
  sdu_data[octet++] = (UBYTE)(v_r << 1) | (cr_bit EQ SGSN_COMMAND ?
    0x00 : 0x01);
  sdu_data[octet++] = reason & 0x0F;

  return;
#else
  /*
   * Set sdu_data to point to the first free data octet in sdu. sdu_data
   * has to be incremented with each octet that is written in sdu to ensure
   * that it always points to the first free data octet.
   */
  desc3 = (T_desc3*)desc_list3->first;

  help = (U8*)desc3->buffer;
  desc_data = &help[desc3->offset + desc3->len];

  /*
   * Adjust length of SDU to include fixed sized FRMR information field.
   */
  desc3->len += U_FRMR_INFO_SIZE;
  desc_list3->list_len += U_FRMR_INFO_SIZE;

  /*
   * Set ctrl to point to the first octet of the faulty frame control field.
   */
  ctrl = &frame->sdu.buf[(frame->sdu.o_buf/8)+1];

  /*
   * If ctrl_length is unknown, the frame type is known, therefore the length
   * of the control field can be easily determined.
   */
  if (ctrl_length EQ FRMR_CTRL_LENGTH_UNKNOWN)
  {
    if (pdu_type EQ I_FRAME)
    {
      ctrl_length = I_CTRL_OCTETS;
    }
    else if (pdu_type EQ S_FRAME)
    {
      ctrl_length = S_CTRL_OCTETS;
    }
    else if (pdu_type EQ UI_FRAME)
    {
      ctrl_length = UI_CTRL_OCTETS;
    }
    else if (pdu_type EQ U_FRAME)
    {
      ctrl_length = U_CTRL_OCTETS;
    }
    else
    {
      /*
       * Undefined control field type, set control field length to SDU length
       * minus address field, limited to six octets.
       */
      TRACE_ERROR ("undefined control field type");
      ctrl_length = desc3->len - 1 < 6 ? (desc3->len - 1) : 6;
    }
  }
  else /* ctrl_length is already known */
  {
    /*
     * Limit control field length to six octets, according to 04.64.
     */
    ctrl_length = ctrl_length < 6 ? ctrl_length : 6;
  }


  /*
   * Copy the first six octets of faulty control field. If the control field
   * is smaller that six octets, the unused octets are set to 0.
   */
  for (octet = 0; octet < 6; octet++)
  {
    if (octet < ctrl_length)
    {
      desc_data[octet] = ctrl[octet];
    }
    else
    {
      desc_data[octet] = 0x00;
    }
  }


  /*
   * Insert remaining four octets of FRMR information field:
   * +---+---+---+---+---+---+---+---+
   * | X | X | X | X |      V(S)     |
   * +---+---+---+---+---+---+---+---+
   * |        V(S)       | X |  V(R) |
   * +---+---+---+---+---+---+---+---+
   * |            V(R)           |C/R|
   * +---+---+---+---+---+---+---+---+
   * | X | X | X | X | W4| W3| W2| W1|
   * +---+---+---+---+---+---+---+---+
   */
  desc_data[octet++] = (UBYTE)(v_s >> 5) & 0x0F;
  desc_data[octet++] = (UBYTE)(v_s << 3) | ((UBYTE)(v_r >> 7) & 0x0003);
  desc_data[octet++] = (UBYTE)(v_r << 1) | (cr_bit EQ SGSN_COMMAND ?
    0x00 : 0x01);
  desc_data[octet++] = reason & 0x0F;

  return;
#endif
} /* u_insert_frmr_information() */


/*
+------------------------------------------------------------------------------
| Function    : u_send_sabm
+------------------------------------------------------------------------------
| Description : This procedure allocates a LL_UNITDATA_REQ primitive, fills in
|               the required parameters, builds an U frame header containing
|               an SABM command, and sends this primitive to TX. _Before_ it is
|               sent to TX, T200 has to be started, because otherwise the
|               primitive may not be valid anymore.
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_sabm (void)
{
  USHORT sdu_byte_len = 0;
#ifdef LL_DESC
  T_desc3 *desc3;
#endif

  TRACE_FUNCTION( "u_send_sabm" );

  u_tag_xid_parameters(0, TRUE);

  /*
   * Calculate bit length of tagged XID parameters. First, add
   * the size of each tagged parameter. The size of layer-3
   * parameters is variable, so add the given length in octets.
   */
  ADD_IF_TAGGED (sdu_byte_len, XID_VERSION);
  ADD_IF_TAGGED (sdu_byte_len, XID_T200);
  ADD_IF_TAGGED (sdu_byte_len, XID_N200);
  ADD_IF_TAGGED (sdu_byte_len, XID_N201_U);
  ADD_IF_TAGGED (sdu_byte_len, XID_N201_I);
  ADD_IF_TAGGED (sdu_byte_len, XID_MD);
  ADD_IF_TAGGED (sdu_byte_len, XID_MU);
  ADD_IF_TAGGED (sdu_byte_len, XID_KD);
  ADD_IF_TAGGED (sdu_byte_len, XID_KU);
  if (llc_data->u->xid_tag & (0x00000001L << XID_LAYER_3))
  {
    sdu_byte_len += llc_data->requested_l3_xid->length + 2;
  }

  /*
   * Add SDU header and FCS field to the XID response size to get
   * the overall SDU size.
   */
  sdu_byte_len += U_HDR_SIZE + FCS_SIZE;

#ifdef LL_DESC
  {
    PALLOC(ll_unitdesc_req, LL_UNITDESC_REQ);

    desc3 = llc_palloc_desc((USHORT)sdu_byte_len, 0); /* One desc3 descriptor and buffer allocated */

    ll_unitdesc_req->sapi = llc_data->current_sapi;
    ll_unitdesc_req->tlli = llc_data->u->current_tlli;
    /*
     * No attach to primitive necessary. For retransmission prim
     * data is copied in T200.
     */
    ll_unitdesc_req->attached_counter = CCI_NO_ATTACHE;
    /*
     * LLC does not know the QoS profile.
     */
    ll_unitdesc_req->ll_qos    = llc_data->cur_qos;

    TRACE_EVENT_P1("peak throughput = %d",llc_data->cur_qos.peak);

    /*
     * LLC signalling frames are always sent with highest priority.
     */
    ll_unitdesc_req->radio_prio = llc_data->cur_radio_prio;
    TRACE_EVENT_P1("radio priority = %d",llc_data->cur_radio_prio);
#ifdef REL99
    /* 
     * From 24.008 & 23.060 it is interpreted that for all signalling data, a 
     * predefined PFI LL_PFI_SIGNALING shall be used.
     */
    ll_unitdesc_req->pkt_flow_id = llc_data->cur_pfi;
    TRACE_EVENT_P1("packet flow id = %d",llc_data->cur_pfi);
#endif  /* REL99 */
    /*
     * Set parameter of descriptor list3
     */
    ll_unitdesc_req->desc_list3.first = (ULONG)desc3;
    ll_unitdesc_req->desc_list3.list_len = desc3->len;

    u_build_u_frame (&ll_unitdesc_req->desc_list3, MS_COMMAND,
      llc_data->current_sapi, 1, U_SABM);

    u_insert_xid (&ll_unitdesc_req->desc_list3, MS_COMMAND);

    /*
     * T200 has to be started _before_ the primitive is sent to TX, because
     * the primitive is copied by t200_start() and it may not be valid
     * anymore after sending to TX.
     */
    sig_u_t200_start_req (ll_unitdesc_req, GRLC_DTACS_DEF);

    sig_u_tx_data_req (ll_unitdesc_req, GRLC_DTACS_DEF);
  }

#else
  {
    PALLOC_SDU (ll_unitdata_req, LL_UNITDATA_REQ, (USHORT)(sdu_byte_len*8));

    ll_unitdata_req->sapi = llc_data->current_sapi;
    ll_unitdata_req->tlli = llc_data->u->current_tlli;
    /*
     * No attach to primitive necessary. For retransmission prim
     * data is copied in T200.
     */
    ll_unitdata_req->attached_counter = CCI_NO_ATTACHE;
    /*
     * LLC does not know the QoS profile.
     */
    ll_unitdata_req->ll_qos.peak = LL_PEAK_SUB;
    /*
     * LLC signalling frames are always sent with highest priority.
     */
    ll_unitdata_req->radio_prio = LL_RADIO_PRIO_1;
#ifdef REL99 
    /*
     * From 24.008 & 23.060 it is interpreted that for all signalling data, a
     * predefined PFI LL_PFI_SIGNALING shall be used.
     */
    ll_unitdata_req->pkt_flow_id = LL_PFI_SIGNALING;
#endif  /* REL99 */

    u_build_u_frame (&ll_unitdata_req->sdu, MS_COMMAND,
      llc_data->current_sapi, 1, U_SABM);

    u_insert_xid (&ll_unitdata_req->sdu, MS_COMMAND);

    /*
     * T200 has to be started _before_ the primitive is sent to TX, because
     * the primitive is copied by t200_start() and it may not be valid
     * anymore after sending to TX.
     */
    sig_u_t200_start_req (ll_unitdata_req, GRLC_DTACS_DEF);

    sig_u_tx_data_req (ll_unitdata_req, GRLC_DTACS_DEF);
  }
#endif
  return;
} /* u_send_sabm() */


/*
+------------------------------------------------------------------------------
| Function    : u_send_disc
+------------------------------------------------------------------------------
| Description : This procedure allocates a LL_UNITDATA_REQ primitive, fills in
|               the required parameters, builds an U frame header containing
|               an DISC command, and sends this primitive to TX. _Before_ it is
|               sent to TX, T200 has to be started, because otherwise the
|               primitive may not be valid anymore.
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_disc (void)
{
#ifdef LL_DESC
  T_desc3* desc3;
#endif
  TRACE_FUNCTION( "u_send_disc" );

  {
#ifndef LL_DESC
    PALLOC_SDU (ll_unitdesc_req, LL_UNITDATA_REQ,
      U_HDR_SIZE_BITS + FCS_SIZE_BITS);
#else
    PALLOC (ll_unitdesc_req, LL_UNITDESC_REQ);

    desc3 = llc_palloc_desc((U_HDR_SIZE_BITS + FCS_SIZE_BITS)/8, 0);
    ll_unitdesc_req->desc_list3.first    = (ULONG)desc3;
    ll_unitdesc_req->desc_list3.list_len = desc3->len;
#endif

    ll_unitdesc_req->sapi = llc_data->current_sapi;
    ll_unitdesc_req->tlli = llc_data->u->current_tlli;
    /*
     * No attach to primitive necessary. For retransmission prim
     * data is copied in T200.
     */
    ll_unitdesc_req->attached_counter = CCI_NO_ATTACHE;
    /*
     * LLC does not know the QoS profile.
     */
    ll_unitdesc_req->ll_qos    = llc_data->cur_qos;

    TRACE_EVENT_P1("peak throughput = %d",llc_data->cur_qos.peak);

    /*
     * LLC signalling frames are always sent with highest priority.
     */
    ll_unitdesc_req->radio_prio = llc_data->cur_radio_prio;
    TRACE_EVENT_P1("radio priority = %d",llc_data->cur_radio_prio);

#ifdef REL99
    /* 
     * From 24.008 & 23.060 it is interpreted that for all signalling data, a 
     * predefined PFI LL_PFI_SIGNALING shall be used.
     */
    ll_unitdesc_req->pkt_flow_id = llc_data->cur_pfi;
    TRACE_EVENT_P1("packet flow id = %d",llc_data->cur_pfi);

#endif  /* REL99 */


    u_build_u_frame
      (
#ifndef LL_DESC
      &ll_unitdesc_req->sdu,
#else
      &ll_unitdesc_req->desc_list3,
#endif
      MS_COMMAND,
      llc_data->current_sapi, 1, U_DISC
      );

    /*
     * T200 has to be started _before_ the primitive is sent to TX, because
     * the primitive is copied by t200_start() and it may not be valid
     * anymore after sending to TX.
     */
    sig_u_t200_start_req (ll_unitdesc_req, GRLC_DTACS_DEF);

    sig_u_tx_data_req (ll_unitdesc_req, GRLC_DTACS_DEF);
  }

  return;
} /* u_send_disc() */

#ifdef REL99 
/*
+------------------------------------------------------------------------------
| Function    : sig_tx_u_send_null
+------------------------------------------------------------------------------
| Description : This procedure allocates a LL_UNITDATA_REQ primitive, fills in
|               the required parameters, builds an U frame header containing
|               an NULL command, and sends this primitive to TX.
|
| Parameters  : cause - frame cause indicates grr about cell notification
|
+------------------------------------------------------------------------------
*/
GLOBAL void sig_tx_u_send_null (UBYTE cause)
{
#ifdef LL_DESC
  T_desc3* desc3;
#endif
  TRACE_FUNCTION( "sig_tx_u_send_null" );

  {
#ifndef LL_DESC
    PALLOC_SDU (ll_unitdesc_req, LL_UNITDATA_REQ,
      U_HDR_SIZE_BITS + FCS_SIZE_BITS);
#else
    PALLOC (ll_unitdesc_req, LL_UNITDESC_REQ);
    desc3 = llc_palloc_desc((U_HDR_SIZE_BITS + FCS_SIZE_BITS)/8, 0);
    ll_unitdesc_req->desc_list3.first    = (ULONG)desc3;
    ll_unitdesc_req->desc_list3.list_len = desc3->len;
#endif
    /*
     * Set TLLI for current transaction.
     */
    llc_data->u->current_tlli = llc_data->tlli_new;

    ll_unitdesc_req->sapi = llc_data->current_sapi;
    ll_unitdesc_req->tlli = llc_data->u->current_tlli;
    /*
     * No attach to primitive necessary. For retransmission prim
     * data is copied in T200.
     */
    ll_unitdesc_req->attached_counter = CCI_NO_ATTACHE;
    /*
     * LLC does not know the QoS profile.
     */
    ll_unitdesc_req->ll_qos.peak = GRLC_PEAK_SUB;
    /*
     * LLC signalling frames are always sent with highest priority.
     */
    ll_unitdesc_req->radio_prio = GRLC_RADIO_PRIO_1;

    u_build_u_frame
    (
#ifndef LL_DESC
      &ll_unitdesc_req->sdu,
#else
      &ll_unitdesc_req->desc_list3,
#endif
      MS_COMMAND,
      llc_data->current_sapi, 0, U_NULL
     );

    sig_u_tx_data_req (ll_unitdesc_req, cause);
  }
  return;
} /* sig_tx_u_send_null() */

#endif /* REL99 */
/*
+------------------------------------------------------------------------------
| Function    : u_send_ua
+------------------------------------------------------------------------------
| Description : This procedure allocates a LL_UNITDATA_REQ primitive, fills in
|               the required parameters, builds an U frame header containing
|               an UA response with the given pf_bit setting, and sends this
|               primitive to TX. The parameter include_xid indicates if an
|               XID information field (according to llc_xid_tag) shall be
|               included (=TRUE) or not.
|
| Parameters  : pf_bit      - setting of the P/F bit in the received command
|               include_xid - include XID information field in frame, or not
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_ua (T_BIT pf_bit,
                       BOOL include_xid)
{
#ifdef LL_DESC
T_desc3*  desc3;
#endif
  USHORT byte_len = 0;


  TRACE_FUNCTION( "u_send_ua" );

  if (include_xid EQ TRUE)
  {

    u_tag_xid_parameters(1, TRUE);

    /*
     * Calculate bit length of tagged XID parameters. First, add
     * the size of each tagged parameter. The size of layer-3
     * parameters is variable, so add the given length in octets.
     */
    ADD_IF_TAGGED (byte_len, XID_VERSION);
    ADD_IF_TAGGED (byte_len, XID_T200);
    ADD_IF_TAGGED (byte_len, XID_N200);
    ADD_IF_TAGGED (byte_len, XID_N201_U);
    ADD_IF_TAGGED (byte_len, XID_N201_I);
    ADD_IF_TAGGED (byte_len, XID_MD);
    ADD_IF_TAGGED (byte_len, XID_MU);
    ADD_IF_TAGGED (byte_len, XID_KD);
    ADD_IF_TAGGED (byte_len, XID_KU);
    if (llc_data->u->xid_tag & (0x00000001L << XID_LAYER_3))
    {
      byte_len += llc_data->requested_l3_xid->length + 2;
    }
  }

  /*
   * Add data header and FCS field to the XID response size to get
   * the overall data size.
   */
  byte_len += U_HDR_SIZE + FCS_SIZE;

  {
#ifndef LL_DESC
    PALLOC_SDU (ll_unitdesc_req, LL_UNITDATA_REQ, (USHORT)(byte_len*8));
#else
    PALLOC (ll_unitdesc_req, LL_UNITDESC_REQ);

    desc3 = llc_palloc_desc((USHORT)(byte_len), 0);
    ll_unitdesc_req->desc_list3.first    = (ULONG)desc3;
    ll_unitdesc_req->desc_list3.list_len = desc3->len;

#endif

    ll_unitdesc_req->sapi = llc_data->current_sapi;
    ll_unitdesc_req->tlli = llc_data->u->current_tlli;
    /*
     * No attach to primitive necessary. There is no retransmission.
     */
    ll_unitdesc_req->attached_counter = CCI_NO_ATTACHE;
    /*
     * LLC does not know the QoS profile.
     */
    ll_unitdesc_req->ll_qos    = llc_data->cur_qos;
    TRACE_EVENT_P1("peak throughput = %d",llc_data->cur_qos.peak);

    /*
     * LLC signalling frames are always sent with highest priority.
     */
    ll_unitdesc_req->radio_prio = llc_data->cur_radio_prio;
    TRACE_EVENT_P1("radio priority = %d",llc_data->cur_radio_prio);

#ifdef REL99 
    /*
     * From 24.008 & 23.060 it is interpreted that for all signalling data, a
     * predefined PFI LL_PFI_SIGNALING shall be used.
     */
    ll_unitdesc_req->pkt_flow_id = llc_data->cur_pfi;
    TRACE_EVENT_P1("packet flow id = %d",llc_data->cur_pfi);
#endif  /* REL99 */

    u_build_u_frame
      (
#ifndef LL_DESC
      &ll_unitdesc_req->sdu,
#else
      &ll_unitdesc_req->desc_list3,
#endif
      MS_RESPONSE, llc_data->current_sapi, pf_bit, U_UA
      );

    if (include_xid EQ TRUE)
    {
      u_insert_xid
        (
#ifndef LL_DESC
        &ll_unitdesc_req->sdu,
#else
        &ll_unitdesc_req->desc_list3,
#endif
        MS_RESPONSE
        );
    }

    sig_u_tx_data_req (ll_unitdesc_req, GRLC_DTACS_DEF);
  }

  llc_init_requested_xid_sapi(llc_data->current_sapi);
  return;
} /* u_send_ua() */


/*
+------------------------------------------------------------------------------
| Function    : u_send_dm
+------------------------------------------------------------------------------
| Description : This procedure allocates a LL_UNITDATA_REQ primitive, fills in
|               all required parameters, builds an U frame header containing a
|               DM response with the given pf_bit setting, and sends this
|               primitive to TX.
|
| Parameters  : pf_bit  - setting of the P/F bit in the received command
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_dm (T_BIT pf_bit)
{
#ifdef LL_DESC
  T_desc3* desc3;
#endif

  TRACE_FUNCTION( "u_send_dm" );

  {
#ifndef LL_DESC
    PALLOC_SDU (ll_unitdesc_req, LL_UNITDATA_REQ,
      U_DM_SIZE_BITS + FCS_SIZE_BITS);
#else
    PALLOC (ll_unitdesc_req, LL_UNITDESC_REQ);

    desc3 = llc_palloc_desc((U_DM_SIZE_BITS + FCS_SIZE_BITS)/8, 0);
    ll_unitdesc_req->desc_list3.first    = (ULONG)desc3;
    ll_unitdesc_req->desc_list3.list_len = desc3->len;
#endif

    ll_unitdesc_req->sapi = llc_data->current_sapi;
    ll_unitdesc_req->tlli = llc_data->u->current_tlli;
    /*
     * No attach to primitive necessary. There is no retransmission.
     */
    ll_unitdesc_req->attached_counter = CCI_NO_ATTACHE;
    /*
     * LLC does not know the QoS profile.
     */
    ll_unitdesc_req->ll_qos    = llc_data->cur_qos;

    TRACE_EVENT_P1("peak throughput = %d",llc_data->cur_qos.peak);


    /*
     * LLC signalling frames are always sent with highest priority.
     */
    ll_unitdesc_req->radio_prio = llc_data->cur_radio_prio;
    TRACE_EVENT_P1("radio priority = %d",llc_data->cur_radio_prio);

#ifdef REL99
    /* 
     * From 24.008 & 23.060 it is interpreted that for all signalling data, a 
     * predefined PFI LL_PFI_SIGNALING shall be used.
     */
    ll_unitdesc_req->pkt_flow_id = llc_data->cur_pfi;
    TRACE_EVENT_P1("packet flow id = %d",llc_data->cur_pfi);

#endif  /* REL99 */

    u_build_u_frame
      (
#ifndef LL_DESC
      &ll_unitdesc_req->sdu,
#else
      &ll_unitdesc_req->desc_list3,
#endif
      MS_RESPONSE,
      llc_data->current_sapi, pf_bit, U_DM
      );

    sig_u_tx_data_req (ll_unitdesc_req, GRLC_DTACS_DEF);
  }

  return;
} /* u_send_dm() */


/*
+------------------------------------------------------------------------------
| Function    : u_send_frmr
+------------------------------------------------------------------------------
| Description : This procedure allocates a LL_UNITDATA_REQ primitive, fills in
|               the required parameters, builds an U frame header containing
|               an FRMR response, fills in the FRMR information field based on
|               the given frame, vs, vr, the cr_bit setting of frame
|               (SGSN_COMMAND/REPONSE), and the reason of the frame rejection
|               condition (lower nibble conforms to W4-W1 in FRMR response).
|               This primitive is then sent to TX.
|
| Parameters  : frame       - frame that caused the frame rejection condition
|               pdu_type    - frame type
|               ctrl_length - control field length, if known
|               vs          - current V(S)
|               vr          - current V(R)
|               cr_bit      - setting of C/R bit in frame
|               reason      - reason of the frame rejection condition (lower
|                             nibble conforms to W4-W1 in FRMR response)
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_frmr (T_LL_UNITDATA_IND *frame,
                         T_PDU_TYPE pdu_type,
                         USHORT ctrl_length,
                         T_FRAME_NUM vs,
                         T_FRAME_NUM vr,
                         T_BIT cr_bit,
                         UBYTE reason)
{
#ifdef LL_DESC
  T_desc3* desc3;
#endif

  TRACE_FUNCTION( "u_send_frmr" );

  {
#ifndef LL_DESC
    PALLOC_SDU (ll_unitdesc_req, LL_UNITDATA_REQ,
    U_FRMR_SIZE_BITS + FCS_SIZE_BITS);
#else
    PALLOC (ll_unitdesc_req, LL_UNITDESC_REQ);

    desc3 = llc_palloc_desc((U_FRMR_SIZE_BITS + FCS_SIZE_BITS)/8, 0);
    ll_unitdesc_req->desc_list3.first    = (ULONG)desc3;
    ll_unitdesc_req->desc_list3.list_len = desc3->len;
#endif

    ll_unitdesc_req->sapi = llc_data->current_sapi;
    ll_unitdesc_req->tlli = llc_data->u->current_tlli;
    /*
     * No attach to primitive necessary. There is no retransmission.
     */
    ll_unitdesc_req->attached_counter = CCI_NO_ATTACHE;
    /*
     * LLC does not know the QoS profile.
     */
    ll_unitdesc_req->ll_qos    = llc_data->cur_qos;

    TRACE_EVENT_P1("peak throughput = %d",llc_data->cur_qos.peak);


    /*
     * LLC signalling frames are always sent with highest priority.
     */
    ll_unitdesc_req->radio_prio = llc_data->cur_radio_prio;
    TRACE_EVENT_P1("radio priority = %d",llc_data->cur_radio_prio);

#ifdef REL99
    /* 
     * From 24.008 & 23.060 it is interpreted that for all signalling data, a 
     * predefined PFI LL_PFI_SIGNALING shall be used.
     */
    ll_unitdesc_req->pkt_flow_id = llc_data->cur_pfi;
    TRACE_EVENT_P1("packet flow id = %d",llc_data->cur_pfi);

#endif  /* REL99 */

    u_build_u_frame
      (
#ifndef LL_DESC
      &ll_unitdesc_req->sdu,
#else
      &ll_unitdesc_req->desc_list3,
#endif
      MS_RESPONSE,
      llc_data->current_sapi, 1, U_FRMR
      );

    u_insert_frmr_information
      (
#ifndef LL_DESC
      &ll_unitdesc_req->sdu,
#else
      &ll_unitdesc_req->desc_list3,
#endif
      frame, pdu_type,
      ctrl_length, vs, vr, cr_bit, reason
      );

    sig_u_tx_data_req (ll_unitdesc_req, GRLC_DTACS_DEF);
  }

  return;
} /* u_send_frmr() */


/*
+------------------------------------------------------------------------------
| Function    : u_send_llgmm_status_ind
+------------------------------------------------------------------------------
| Description : This procedure allocates an LLGMM_STATUS_IND primitive, fills
|               in the error_cause parameter, and sends this primitive to GMM.
|
| Parameters  : error_cause - LLGMM error cause
|
+------------------------------------------------------------------------------
*/
#ifdef CC_CONCEPT
GLOBAL void u_send_llgmm_status_ind (USHORT error_cause)
#else
GLOBAL void u_send_llgmm_status_ind (UBYTE error_cause)
#endif
{
  TRACE_FUNCTION( "u_send_llgmm_status_ind" );

  {
    PALLOC (llgmm_status_ind, LLGMM_STATUS_IND); /* T_LLGMM_STATUS_IND */

#ifdef LL_2to1
    llgmm_status_ind->ps_cause.ctrl_value = CAUSE_is_from_llc;
    llgmm_status_ind->ps_cause.value.llc_cause = error_cause;
#else
    llgmm_status_ind->error_cause = error_cause;
#endif

    PSEND (hCommGMM, llgmm_status_ind);
  }

  return;
} /* u_send_llgmm_status_ind() */


/*
+------------------------------------------------------------------------------
| Function    : u_send_ll_release_cnf
+------------------------------------------------------------------------------
| Description : This procedure allocates an LL_RELEASE_CNF primitive, fills in
|               tlli and sapi parameters, and sends this primitive to SNDCP.
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_ll_release_cnf (void)
{
  TRACE_FUNCTION( "u_send_ll_release_cnf" );

  {
    PALLOC (ll_release_cnf, LL_RELEASE_CNF);

    ll_release_cnf->sapi = llc_data->current_sapi;
    TRACE_1_OUT_PARA("s:%d", llc_data->current_sapi );
    PSEND (hCommSNDCP, ll_release_cnf);
  }

  llc_data->u->release_requested = FALSE;

  return;
} /* u_send_ll_release_cnf() */



/*
+------------------------------------------------------------------------------
| Function    : u_send_ll_status_ind
+------------------------------------------------------------------------------
| Description : This procedure allocates an LL_STATUS_IND primitive, fills in
|               tlli, sapi and cause parameters and sends this proimitive to L3
|
| Parameters  : cause - LL error cause
|
+------------------------------------------------------------------------------
*/
#ifdef CC_CONCEPT
GLOBAL void u_send_ll_status_ind (USHORT cause)
#else
GLOBAL void u_send_ll_status_ind (UBYTE cause)
#endif
{
  TRACE_FUNCTION( "u_send_ll_status_ind" );

  {
    PALLOC (ll_status_ind, LL_STATUS_IND);

    ll_status_ind->sapi        = llc_data->current_sapi;
#ifdef LL_2to1
    ll_status_ind->ps_cause.ctrl_value = CAUSE_is_from_llc;
    ll_status_ind->ps_cause.value.llc_cause = cause;
#else
    ll_status_ind->error_cause = cause;
#endif

    TRACE_1_OUT_PARA("s:%d", llc_data->current_sapi );
    PSEND (hCommSNDCP, ll_status_ind);
  }

  return;
} /* u_send_ll_status_ind() */



/*
+------------------------------------------------------------------------------
| Function    : u_send_ll_xid_cnf
+------------------------------------------------------------------------------
| Description : This procedure allocates an LL_XID_CNF primitive, fills in
|               tlli, sapi and L3 parameter (if being negotiated), and sends
|               this primitive to SNDCP
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_ll_xid_cnf (void)
{
  TRACE_FUNCTION( "u_send_ll_xid_cnf" );

  if (llc_data->decoded_l3_xid.valid EQ TRUE)
  {
    PALLOC_SDU (ll_xid_cnf, LL_XID_CNF, (USHORT)(llc_data->decoded_l3_xid.length * 8));

    ll_xid_cnf->sdu.l_buf = llc_data->decoded_l3_xid.length * 8;
    ll_xid_cnf->sdu.o_buf = 0;

    memcpy (ll_xid_cnf->sdu.buf,
            llc_data->decoded_l3_xid.value,
            llc_data->decoded_l3_xid.length);

    ll_xid_cnf->sapi      = llc_data->current_sapi;

    ll_xid_cnf->n201_u    = *(llc_data->n201_u);
    ll_xid_cnf->n201_i    = *(llc_data->n201_i);

    TRACE_2_OUT_PARA("s:%d xid-len:%d", llc_data->current_sapi, llc_data->decoded_l3_xid.length );
    PSEND (hCommSNDCP, ll_xid_cnf);
  }
  else
  {
    PALLOC_SDU (ll_xid_cnf, LL_XID_CNF, 0);

    ll_xid_cnf->sdu.l_buf = 0;
    ll_xid_cnf->sdu.o_buf = 0;

    ll_xid_cnf->sapi      = llc_data->current_sapi;

    ll_xid_cnf->n201_u    = *(llc_data->n201_u);
    ll_xid_cnf->n201_i    = *(llc_data->n201_i);

    TRACE_2_OUT_PARA("s:%d xid-len:%d", llc_data->current_sapi, 0 );
    PSEND (hCommSNDCP, ll_xid_cnf);
  }

  return;
} /* u_send_ll_xid_cnf() */


/*
+------------------------------------------------------------------------------
| Function    : u_send_ll_establish_ind
+------------------------------------------------------------------------------
| Description : This procedure allocates an LL_ESTABLISH_IND primitive, fills
|               in all necessary parameters using global LLC values (or in case
|               of L-3 XID parameters, using the parameters of received XID
|               cmd/res), and sends this primitive to SNDCP
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_ll_establish_ind (void)
{
  USHORT len;

  TRACE_FUNCTION( "u_send_ll_establish_ind" );

  if (llc_data->decoded_l3_xid.valid EQ TRUE)
  {
    len = (llc_data->decoded_l3_xid.length * 8);
  }
  else
  {
    len = 0;
  }

  {
    PALLOC_SDU (ll_establish_ind, LL_ESTABLISH_IND, len);

    if (llc_data->decoded_l3_xid.valid EQ TRUE)
    {
      ll_establish_ind->xid_valid = LL_XID_VALID;

      ll_establish_ind->sdu.o_buf = 0;
      ll_establish_ind->sdu.l_buf = llc_data->decoded_l3_xid.length * 8;

      memcpy (ll_establish_ind->sdu.buf,
              llc_data->decoded_l3_xid.value,
              llc_data->decoded_l3_xid.length);
    }
    else
    {
      ll_establish_ind->xid_valid = LL_XID_INVALID;
    }

    ll_establish_ind->sapi      = llc_data->current_sapi;

    /*
     * evaluate N201_U
     */
    if (llc_data->u->requested_xid.n201_u.valid AND
        llc_data->decoded_xid.n201_u.valid      AND
        !llc_xid_value_acceptable (llc_data->current_sapi, XID_N201_U,
        llc_data->decoded_xid.n201_u.value))
    {
       ll_establish_ind->n201_u = llc_data->u->requested_xid.n201_u.value;
    }
    else if (llc_data->u->requested_xid.n201_u.valid AND
             !llc_data->decoded_xid.n201_u.valid     AND
             !llc_xid_value_acceptable (llc_data->current_sapi, XID_N201_U,
             *(llc_data->n201_u)))
    {
       ll_establish_ind->n201_u = llc_data->u->requested_xid.n201_u.value;
    }
    else
    {
       ll_establish_ind->n201_u    = *(llc_data->n201_u);
    }

    /*
     * evaluate N201_I
     */
    if (llc_data->u->requested_xid.n201_i.valid AND
        llc_data->decoded_xid.n201_i.valid      AND
        !llc_xid_value_acceptable (llc_data->current_sapi, XID_N201_I,
        llc_data->decoded_xid.n201_i.value))
    {
       ll_establish_ind->n201_i = llc_data->u->requested_xid.n201_i.value;
    }
    else if (llc_data->u->requested_xid.n201_i.valid AND
             !llc_data->decoded_xid.n201_i.valid     AND
             !llc_xid_value_acceptable (llc_data->current_sapi, XID_N201_I,
             *(llc_data->n201_i)))
    {
       ll_establish_ind->n201_i = llc_data->u->requested_xid.n201_i.value;
    }
    else
    {
       ll_establish_ind->n201_i = *(llc_data->n201_i);
    }


    TRACE_2_OUT_PARA("s:%d xid-len:%d", ll_establish_ind->sapi, len/8);
    PSEND (hCommSNDCP, ll_establish_ind);

    return;
  }
} /* u_send_ll_establish_ind() */



/*
+------------------------------------------------------------------------------
| Function    : u_send_ll_establish_cnf
+------------------------------------------------------------------------------
| Description : This procedure allocates an LL_ESTABLISH_CNF primitive, fills
|               in all necessary parameters using global LLC values (or in case
|               of L-3 XID parameters, using the parameters of received XID
|               cmd/res), and sends this primitive to SNDCP
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_ll_establish_cnf (void)
{
  TRACE_FUNCTION( "u_send_ll_establish_cnf" );

  if (llc_data->decoded_l3_xid.valid EQ TRUE)
  {
    PALLOC_SDU (ll_establish_cnf, LL_ESTABLISH_CNF,
                                  (USHORT)(llc_data->decoded_l3_xid.length * 8));

    ll_establish_cnf->xid_valid = LL_XID_VALID;

    ll_establish_cnf->sdu.o_buf = 0;
    ll_establish_cnf->sdu.l_buf = llc_data->decoded_l3_xid.length * 8;

    memcpy (ll_establish_cnf->sdu.buf,
            llc_data->decoded_l3_xid.value,
            llc_data->decoded_l3_xid.length);

    ll_establish_cnf->sapi      = llc_data->current_sapi;

    ll_establish_cnf->n201_u    = *(llc_data->n201_u);
    ll_establish_cnf->n201_i    = *(llc_data->n201_i);

    TRACE_2_OUT_PARA("s:%d xid-len:%d", llc_data->current_sapi, llc_data->decoded_l3_xid.length );
    PSEND (hCommSNDCP, ll_establish_cnf);
  }
  else
  {
    PALLOC_SDU (ll_establish_cnf, LL_ESTABLISH_CNF, 0);

    ll_establish_cnf->xid_valid = LL_XID_INVALID;

    ll_establish_cnf->sapi      = llc_data->current_sapi;

    ll_establish_cnf->n201_u    = *(llc_data->n201_u);
    ll_establish_cnf->n201_i    = *(llc_data->n201_i);

    TRACE_2_OUT_PARA("s:%d xid-len:%d", llc_data->current_sapi, 0 );
    PSEND (hCommSNDCP, ll_establish_cnf);
  }

  return;
} /* u_send_ll_establish_cnf() */


/*
+------------------------------------------------------------------------------
| Function    : u_send_ll_release_ind
+------------------------------------------------------------------------------
| Description : This procedure allocates an LL_RELEASE_IND primitive, fills
|               in tlli, sapi and cause parameters, and sends this primitive
|               to SNDCP
|
| Parameters  : cause - LL error cause
|
+------------------------------------------------------------------------------
*/
#ifdef CC_CONCEPT
GLOBAL void u_send_ll_release_ind (USHORT cause)
#else
GLOBAL void u_send_ll_release_ind (UBYTE cause)
#endif
{
  TRACE_FUNCTION( "u_send_ll_release_ind" );

  {
    PALLOC (ll_release_ind, LL_RELEASE_IND);

    ll_release_ind->sapi      = llc_data->current_sapi;
#ifdef LL_2to1
    ll_release_ind->ps_cause.ctrl_value = CAUSE_is_from_llc;
    ll_release_ind->ps_cause.value.llc_cause = cause;
#else
    ll_release_ind->cause     = cause;
#endif

    TRACE_1_OUT_PARA("s:%d", llc_data->current_sapi );
    PSEND (hCommSNDCP, ll_release_ind);
  }

  llc_data->u->release_requested = FALSE;

  return;
} /* u_send_ll_release_ind() */



/*
+------------------------------------------------------------------------------
| Function    : u_send_ll_xid_ind
+------------------------------------------------------------------------------
| Description : This procedure allocates an LL_XID_IND primitive, fills
|               in all necessary parameters using global LLC values (or in case
|               of L-3 XID parameters, using the parameters of received XID
|               cmd/res), and sends this primitive to SNDCP
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_ll_xid_ind (void)
{
  TRACE_FUNCTION( "u_send_ll_xid_ind" );



  if (llc_data->decoded_l3_xid.valid EQ TRUE)
  {
    PALLOC_SDU (ll_xid_ind, LL_XID_IND, (USHORT)(llc_data->decoded_l3_xid.length * 8));

    llc_data->u->ll_xid_resp_pending = TRUE;
    ll_xid_ind->xid_valid = LL_XID_VALID;

    ll_xid_ind->sdu.o_buf = 0;
    ll_xid_ind->sdu.l_buf = llc_data->decoded_l3_xid.length * 8;

    memcpy (ll_xid_ind->sdu.buf,
            llc_data->decoded_l3_xid.value,
            llc_data->decoded_l3_xid.length);

    ll_xid_ind->sapi      = llc_data->current_sapi;

    if (llc_data->u->requested_xid.n201_u.valid AND
        !llc_xid_value_acceptable (llc_data->current_sapi, XID_N201_U,
        llc_data->decoded_xid.n201_u.value))
    {
       ll_xid_ind->n201_u = llc_data->u->requested_xid.n201_u.value;
    }
    else
    {
      ll_xid_ind->n201_u  = *(llc_data->n201_u);
    }

    switch (ll_xid_ind->sapi)
    {
      case LL_SAPI_3:
      case LL_SAPI_5:
      case LL_SAPI_9:
      case LL_SAPI_11:
        if (llc_data->u->requested_xid.n201_i.valid AND
            !llc_xid_value_acceptable (llc_data->current_sapi, XID_N201_I,
            llc_data->decoded_xid.n201_i.value))
        {
          ll_xid_ind->n201_i = llc_data->u->requested_xid.n201_i.value;
        }
        else
        {
          ll_xid_ind->n201_i = *(llc_data->n201_i);
        }
        break;

      default:
        ll_xid_ind->n201_i = 0;
        break;
    }

    /*
     * Send primitive LL_XID_IND to either GMM, SNDCP, or GSMS,
     * depending on SAPI.
     */
    switch (ll_xid_ind->sapi)
    {
      case LL_SAPI_1:
        TRACE_PRIM_TO("GMM");
        TRACE_2_OUT_PARA("s:%d xid-len:%d", ll_xid_ind->sapi, llc_data->decoded_l3_xid.length);
        PSEND (hCommGMM, ll_xid_ind);
        break;
      case LL_SAPI_3:
      case LL_SAPI_5:
      case LL_SAPI_9:
      case LL_SAPI_11:
        TRACE_2_OUT_PARA("s:%d xid-len:%d", ll_xid_ind->sapi, llc_data->decoded_l3_xid.length);
        PSEND (hCommSNDCP, ll_xid_ind);
        break;
      case LL_SAPI_7:
#ifdef LL_2to1
        TRACE_PRIM_TO("MM");
        TRACE_2_OUT_PARA("s:%d xid-len:%d", ll_xid_ind->sapi, llc_data->decoded_l3_xid.length);
        PSEND (hCommMM, ll_xid_ind);
#else
        TRACE_PRIM_TO("GSMS");
        TRACE_2_OUT_PARA("s:%d xid-len:%d", ll_xid_ind->sapi, llc_data->decoded_l3_xid.length);
        PSEND (hCommGSMS, ll_xid_ind);
#endif
        break;
      default:
        PFREE (ll_xid_ind);
        TRACE_ERROR ("Invalid global SAPI value");
        break;
    }
  }
  else
  {
    PALLOC_SDU (ll_xid_ind, LL_XID_IND, 0);

    llc_data->u->ll_xid_resp_pending = FALSE;

    ll_xid_ind->xid_valid = LL_XID_INVALID;

    ll_xid_ind->sapi      = llc_data->current_sapi;

    ll_xid_ind->n201_u    = *(llc_data->n201_u);

    switch (ll_xid_ind->sapi)
    {
      case LL_SAPI_3:
      case LL_SAPI_5:
      case LL_SAPI_9:
      case LL_SAPI_11:
        ll_xid_ind->n201_i = *(llc_data->n201_i);
        break;

      default:
        ll_xid_ind->n201_i = 0;
        break;
    }

    /*
     * Send primitive LL_XID_IND to either GMM, SNDCP, or GSMS,
     * depending on SAPI.
     */
    switch (ll_xid_ind->sapi)
    {
      case LL_SAPI_1:
        TRACE_PRIM_TO("GMM");
        TRACE_1_OUT_PARA("s:%d no l3-xid", ll_xid_ind->sapi);
        PSEND (hCommGMM, ll_xid_ind);
        break;
      case LL_SAPI_3:
      case LL_SAPI_5:
      case LL_SAPI_9:
      case LL_SAPI_11:
        TRACE_1_OUT_PARA("s:%d no l3-xid", ll_xid_ind->sapi);
        PSEND (hCommSNDCP, ll_xid_ind);
        break;
      case LL_SAPI_7:
#ifdef LL_2to1
        TRACE_PRIM_TO("MM");
        TRACE_1_OUT_PARA("s:%d no l3-xid", ll_xid_ind->sapi);
        PSEND (hCommMM, ll_xid_ind);
#else
        TRACE_PRIM_TO("GSMS");
        TRACE_1_OUT_PARA("s:%d no l3-xid", ll_xid_ind->sapi);
        PSEND (hCommGSMS, ll_xid_ind);
#endif
        break;
      default:
        PFREE (ll_xid_ind);
        TRACE_ERROR ("invalid global SAPI value");
        break;
    }
  }

  return;
} /* u_send_ll_xid_ind() */


/*
+------------------------------------------------------------------------------
| Function    : u_tag_xid_parameters
+------------------------------------------------------------------------------
| Description : This procedure tags requested parameters
|
|
| Parameters  :
|               - send_ack_para- used to include/ignore the ack para in XID-FRAME
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_tag_xid_parameters (T_BIT cr_bit, BOOL send_ack_para)
{
  TRACE_FUNCTION( "u_tag_xid_parameters" );

  if (cr_bit EQ MS_RESPONSE)
  {
    /*
     * Do some special handling in case we want to set mD or mU to zero
     * (= disable buffered bytes counting) and the peer does not.
     */
    if (llc_data->decoded_xid.mu.valid)
    {
      u_handle_mX_zero_rsp ( llc_data->decoded_xid.mu.value,
                             llc_data->n201_i,
                             *(llc_data->mu), XID_MU_MAX,
                             llc_data->ku,    XID_KU_MIN,  XID_KU );
    }

    if (llc_data->decoded_xid.md.valid)
    {
      u_handle_mX_zero_rsp ( llc_data->decoded_xid.md.value,
                             llc_data->n201_i,
                             *(llc_data->md), XID_MD_MAX,
                             llc_data->kd,    XID_KD_MIN,  XID_KD );
    }
  }

  /*
   * Tag all possible requested XID parameter
   */
  if (cr_bit EQ MS_COMMAND)
  {
    /*
     * In case we are sending a command, we can include all
     * parameters, as long they are valid.
     */
    TAG_IF_REQUESTED (u->requested_xid.version. , XID_VERSION);
    TAG_IF_REQUESTED (u->requested_xid.t200. ,    XID_T200);
    TAG_IF_REQUESTED (u->requested_xid.n200. ,    XID_N200);
    TAG_IF_REQUESTED (u->requested_xid.n201_u. ,  XID_N201_U);
    TAG_IF_REQUESTED (requested_l3_xid-> ,        XID_LAYER_3);
    if(send_ack_para)
    {
      TRACE_EVENT("COMMAND: ACK MODE PARAMETERS INCLUDED");
    TAG_IF_REQUESTED (u->requested_xid.n201_i. ,  XID_N201_I);
    TAG_IF_REQUESTED (u->requested_xid.md. ,      XID_MD);
    TAG_IF_REQUESTED (u->requested_xid.mu. ,      XID_MU);
    TAG_IF_REQUESTED (u->requested_xid.kd. ,      XID_KD);
    TAG_IF_REQUESTED (u->requested_xid.ku. ,      XID_KU);
    }
    else
    {
      llc_data->u->requested_xid.n201_i.valid = FALSE;
      llc_data->u->requested_xid.md.valid = FALSE;
      llc_data->u->requested_xid.mu.valid = FALSE;
      llc_data->u->requested_xid.kd.valid = FALSE;
      llc_data->u->requested_xid.ku.valid = FALSE;
    }

  }
  else
  {
    /*
     * In case we are sending a response, we can include all valid
     * parameters which are in line with the sense of negotiation.
     */
    TAG_IF_REQUESTED_RSP (XID_SENSE_UP,   n200,    XID_N200);
    TAG_IF_REQUESTED_RSP (XID_SENSE_DOWN, n201_u,  XID_N201_U);

    if(send_ack_para)
    {
      TRACE_EVENT("RESPONSE: ACK MODE PARAMETERS INCLUDED");
    TAG_IF_REQUESTED_RSP (XID_SENSE_DOWN, n201_i,  XID_N201_I);
    TAG_IF_REQUESTED_RSP (XID_SENSE_DOWN, md,      XID_MD);
    TAG_IF_REQUESTED_RSP (XID_SENSE_DOWN, mu,      XID_MU);
    TAG_IF_REQUESTED_RSP (XID_SENSE_DOWN, kd,      XID_KD);
    TAG_IF_REQUESTED_RSP (XID_SENSE_DOWN, ku,      XID_KU);
    }

    if (llc_data->u->requested_xid.t200.valid)
    {
      if (llc_data->decoded_xid.t200.valid)
      {
        /* simple add parameter. Sense of negotiation is already checked */
        llc_data->u->xid_tag |= (0x00000001L << XID_T200);
      }
      else
      {
        /* Sense of negotiation compared with current values */
        if (llc_data->u->requested_xid.t200.value XID_SENSE_UP INT2XID(llc_data->t200->length))
        {
          llc_data->u->xid_tag |= (0x00000001L << XID_T200);
        }
      }
    }
    /*
     * L3 parameter cannot be included in response, if not included in
     * request
     */

    /*
     * If an XID parameter which was not included in the SGSN command,
     * but included in the MS Response, must be included in every Response
     * until the parameter is explicitly negotiated by the SGSN
     */

    if(llc_data->u->xid_tag_negotiate)
    {
      llc_data->u->xid_tag |= llc_data->u->xid_tag_negotiate;
    }
  }
} /* u_tag_xid_parameters() */

/*
+------------------------------------------------------------------------------
| Function    : u_send_xid
+------------------------------------------------------------------------------
| Description : This procedure allocates a LL_UNITDATA_REQ primitive, fills in
|               the required parameters, builds an U frame header containing an
|               XID command/response (depending on the cr_bit setting), inserts
|               all XID parmameters that are to be negotiated, and sends this
|               primitive to TX. If a command frame is being sent (see cr_bit),
|               T200 has to be started _before_ the primitive is sent to TX,
|               because otherwise the primitive may not be valid anymore.
|
|               NOTE: T200 must not be running, when an XID command is to be
|               sent. This must be ensured by the caller of u_send_xid().
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_send_xid (T_BIT cr_bit)
{
#ifdef LL_DESC
  T_desc3* desc3;
#endif
  USHORT byte_len = 0;

  TRACE_FUNCTION( "u_send_xid" );

  /*
   * Calculate bit length of tagged XID parameters. First, add
   * the size of each tagged parameter. The size of layer-3
   * parameters is variable, so add the given length in octets.
   */
  ADD_IF_TAGGED (byte_len, XID_VERSION);
  ADD_IF_TAGGED (byte_len, XID_T200);
  ADD_IF_TAGGED (byte_len, XID_N200);
  ADD_IF_TAGGED (byte_len, XID_N201_U);
  /*Acknowledge Mode Parameters will be ignored in XID FRAME:
  ADD_IF_TAGGED (byte_len, XID_N201_I);
  ADD_IF_TAGGED (byte_len, XID_MD);
  ADD_IF_TAGGED (byte_len, XID_MU);
  ADD_IF_TAGGED (byte_len, XID_KD);
  ADD_IF_TAGGED (byte_len, XID_KU);
  */
  if (llc_data->u->xid_tag & (0x00000001L << XID_LAYER_3))
  {
    byte_len += llc_data->requested_l3_xid->length + 2;
  }

  /*
   * Add data header and FCS field to the XID response size to get
   * the overall data size.
   */
  byte_len += U_HDR_SIZE + FCS_SIZE;

  {
#ifndef LL_DESC
    PALLOC_SDU (ll_unitdesc_req, LL_UNITDATA_REQ, (USHORT)(byte_len*8));
#else
    PALLOC (ll_unitdesc_req, LL_UNITDESC_REQ);

    desc3 = llc_palloc_desc(byte_len, 0);

    ll_unitdesc_req->desc_list3.first    = (ULONG)desc3;
    ll_unitdesc_req->desc_list3.list_len = desc3->len;
#endif
    ll_unitdesc_req->sapi         = llc_data->current_sapi;
    ll_unitdesc_req->tlli         = llc_data->tlli_new;
    /*
     * LLC does not know the QoS profile.
     */
    ll_unitdesc_req->ll_qos    = llc_data->cur_qos;
    TRACE_EVENT_P1("peak throughput = %d",llc_data->cur_qos.peak);

    /*
     * LLC signalling frames are always sent with highest priority.
     */
    ll_unitdesc_req->radio_prio = llc_data->cur_radio_prio;
    TRACE_EVENT_P1("radio priority = %d",llc_data->cur_radio_prio);

#ifdef REL99
    /* 
     * From 24.008 & 23.060 it is interpreted that for all signalling data, a 
     * predefined PFI LL_PFI_SIGNALING shall be used.
     */
    ll_unitdesc_req->pkt_flow_id = llc_data->cur_pfi;
    TRACE_EVENT_P1("packet flow id = %d",llc_data->cur_pfi);

#endif  /* REL99 */
    /*
     * No attach to primitive necessary. For retransmission prim
     * data is copied in T200 (if requested).
     */
    ll_unitdesc_req->attached_counter = CCI_NO_ATTACHE;

    /*
     * Label U_SEND_XID_CONT
     */

    /*
     * pf_bit must always be 1 when XID cmd/res are being sent
     */
    u_build_u_frame
      (
#ifndef LL_DESC
      &ll_unitdesc_req->sdu,
#else
      &ll_unitdesc_req->desc_list3,
#endif
      cr_bit, llc_data->current_sapi, 1, U_XID
      );

    u_insert_xid
      (
#ifndef LL_DESC
      &ll_unitdesc_req->sdu,
#else
      &ll_unitdesc_req->desc_list3,
#endif
      cr_bit
      );

    if (cr_bit EQ MS_COMMAND)
    {
      /*
       * remember that an XID command is currently being sent
       */
      llc_data->u->xid_pending = TRUE;

      /*
       * T200 has to be started !before! the primitive is sent to TX.
       */
      sig_u_t200_start_req (ll_unitdesc_req, GRLC_DTACS_DEF);
    }

    /*
     * U frames are always sent with default cause
     */
    sig_u_tx_data_req (ll_unitdesc_req, GRLC_DTACS_DEF);
  }

  if (cr_bit EQ MS_RESPONSE)
  {
    llc_init_requested_xid_sapi(llc_data->current_sapi);
  }

  return;
} /* u_send_xid() */



/*
+------------------------------------------------------------------------------
| Function    : u_handle_optimization
+------------------------------------------------------------------------------
| Description : This procedure adds the values of the requested XID parameter
|               to the decoded XID structure, if they are not included (as an
|               optimization issue).
|
| Parameters  :
|
+------------------------------------------------------------------------------
*/
GLOBAL void u_handle_optimization (void)
{

  TRACE_FUNCTION ("u_handle_optimization");


  if (llc_data->u->xid_tag_sent & (0x00000001L << XID_VERSION) AND
      llc_data->decoded_xid.version.valid == FALSE            )
  {
    llc_data->decoded_xid.version.valid = TRUE;
    llc_data->decoded_xid.version.value = llc_data->u->requested_xid.version.valid
                                          ? llc_data->u->requested_xid.version.value
                                          : llc_data->version;
  }

  if (llc_data->u->xid_tag_sent & (0x00000001L << XID_T200) AND
      llc_data->decoded_xid.t200.valid == FALSE            )
  {
    llc_data->decoded_xid.t200.valid = TRUE;
    llc_data->decoded_xid.t200.value = llc_data->u->requested_xid.t200.valid
                                       ? llc_data->u->requested_xid.t200.value
                                       : ((USHORT)INT2XID (llc_data->t200->length));
  }

  if (llc_data->u->xid_tag_sent & (0x00000001L << XID_N200) AND
      llc_data->decoded_xid.n200.valid == FALSE            )
  {
    llc_data->decoded_xid.n200.valid = TRUE;
    llc_data->decoded_xid.n200.value = llc_data->u->requested_xid.n200.valid
                                       ? llc_data->u->requested_xid.n200.value
                                       : *(llc_data->n200);
  }

  if (llc_data->u->xid_tag_sent & (0x00000001L << XID_N201_U) AND
      llc_data->decoded_xid.n201_u.valid == FALSE            )
  {
    llc_data->decoded_xid.n201_u.valid = TRUE;
    llc_data->decoded_xid.n201_u.value = llc_data->u->requested_xid.n201_u.valid
                                         ? llc_data->u->requested_xid.n201_u.value
                                         : *(llc_data->n201_u);
  }

  if (llc_data->u->xid_tag_sent & (0x00000001L << XID_N201_I) AND
      llc_data->decoded_xid.n201_i.valid == FALSE            )
  {
    llc_data->decoded_xid.n201_i.valid = TRUE;
    llc_data->decoded_xid.n201_i.value = llc_data->u->requested_xid.n201_i.valid
                                         ? llc_data->u->requested_xid.n201_i.value
                                         : *(llc_data->n201_i);
  }

  if (llc_data->u->xid_tag_sent & (0x00000001L << XID_MD) AND
      llc_data->decoded_xid.md.valid == FALSE            )
  {
    llc_data->decoded_xid.md.valid = TRUE;
    llc_data->decoded_xid.md.value = llc_data->u->requested_xid.md.valid
                                     ? llc_data->u->requested_xid.md.value
                                     : *(llc_data->md);
  }

  if (llc_data->u->xid_tag_sent & (0x00000001L << XID_MU) AND
      llc_data->decoded_xid.mu.valid == FALSE            )
  {
    llc_data->decoded_xid.mu.valid = TRUE;
    llc_data->decoded_xid.mu.value = llc_data->u->requested_xid.mu.valid
                                     ? llc_data->u->requested_xid.mu.value
                                     : *(llc_data->mu);
  }

  if (llc_data->u->xid_tag_sent & (0x00000001L << XID_KD) AND
      llc_data->decoded_xid.kd.valid == FALSE            )
  {
    llc_data->decoded_xid.kd.valid = TRUE;
    llc_data->decoded_xid.kd.value = llc_data->u->requested_xid.kd.valid
                                     ? llc_data->u->requested_xid.kd.value
                                     : *(llc_data->kd);
  }

  if (llc_data->u->xid_tag_sent & (0x00000001L << XID_KU) AND
      llc_data->decoded_xid.ku.valid == FALSE            )
  {
    llc_data->decoded_xid.ku.valid = TRUE;
    llc_data->decoded_xid.ku.value = llc_data->u->requested_xid.ku.valid
                                     ? llc_data->u->requested_xid.ku.value
                                     : *(llc_data->ku);
  }


  /*
   * Layer 3 XID must be included in resonse, if it was included in request
   */

} /* u_handle_optimization() */