view src/g23m-gsm/alr2/alr_pei.c @ 287:3dee79757ae4

UI fw: load handheld audio mode on boot We have now reached the point where use of audio mode config files should be considered mandatory. In ACI usage we can tell users that they need to perform an AT@AUL of some appropriate audio mode, but in UI-enabled fw we really need to have the firmware load audio modes on its own, so that correct audio config gets established when the handset or development board runs on its own, without a connected host computer. Once have FC Venus with both main and headset audio channels and headset plug insertion detection, our fw will need to automatically load the handheld mode or the headset mode depending on the plug insertion state. For now we load only the handheld mode, which has been tuned for FC-HDS4 on FC Luna.
author Mychaela Falconia <falcon@freecalypso.org>
date Sat, 13 Nov 2021 03:20:57 +0000
parents 3a14ee9a9843
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 module implements the process body interface
|             for the entity ALR.
+-----------------------------------------------------------------------------
*/

#ifndef ALR_PEI_C
#define ALR_PEI_C

#define ENTITY_PL

/*==== INCLUDES ===================================================*/
#include <string.h>
#include <stdlib.h>
#include <ctype.h>
#include "typedefs.h"
#include "pconst.cdg"
#include "mconst.cdg"
#include "message.h"
#include "ccdapi.h"
#include "vsi.h"
#include "custom.h"
#include "gsm.h"
#include "prim.h"
#include "cnf_alr.h"
#include "mon_alr.h"
#include "pei.h"
#include "tok.h"
#include "pcm.h"
#ifdef GPRS
#include "alr_gprs.h"
#endif
#if defined (_TMS470)
#include "inth/iq.h"
#endif  /* _TMS470 */

#include "alr.h"
#include "alr_em.h"

/*==== IMPORT =====================================================*/
/*==== EXPORT =====================================================*/
GLOBAL T_HANDLE  hCommL1  = VSI_ERROR; /* PL   Communication  */
GLOBAL T_HANDLE  hCommPL  = VSI_ERROR; /* PL   Communication  */
GLOBAL T_HANDLE  hCommDL  = VSI_ERROR; /* DL   Communication  */
GLOBAL T_HANDLE  hCommRR  = VSI_ERROR; /* RR   Communication  */
GLOBAL T_HANDLE  hCommMMI = VSI_ERROR; /* MMI  Communication  */
GLOBAL T_HANDLE  hCommCST = VSI_ERROR; /* CST  Communication  */

#ifdef GPRS
GLOBAL T_HANDLE  hCommGPL = VSI_ERROR; /* GPL  Communication  */
#endif /* GPRS */

GLOBAL T_HANDLE  pl_handle;

LOCAL  T_ALR_DATA              alr_data_base;
GLOBAL T_ALR_DATA *alr_data = &alr_data_base;

#if !defined(DYNAMIC_POWER_MEAS)
T_POWER_MEAS1  alr_power_meas_result1;
T_POWER_MEAS2  alr_power_meas_result2;
#endif  /* !DYNAMIC_POWER_MEAS */

#ifdef _SIMULATION_
/*lint -e785 (Info -- Too few initializers for aggregate)*/
T_POWER_MEAS  tap_rxlev_response_european[16] = {
   {4,{{1  , 105},{ 14, 220},{ 23, 280},{124, 125}}},  // 0
   {0,{{0  ,  0}, {  0,   0},{  0,   0},{  0,   0}}},  // 1
   {4,{{512, 105},{580, 220},{637, 280},{885, 125}}},  // 2
   {8,{{23 , 280},{512,  55},{14 , 220},{580, 215},    // 3
       {124, 125},{885, 115},{1  , 105},{637, 275}}},  
   {3,{{23 , 280},{512,  55},{0x8000 | 512, 100}}},    // 4
   {2,{{ 14, 220},{ 23, 280},{  0,   0},{  0,   0}}},  // 5
   {1,{{ 23, 280},{  0,   0},{  0,   0},{  0,   0}}},  // 6
  {10,{{  0,  5*60},{  1,   5*0},{ 10,  5*10},{  20,  5*20},{ 123,  5*30}, // 7
       {124,  5*40},{974,  5*50},{975, 5*-10},{1022,  5*70},{1023,  5*80}}},
   {1,{{ 32, 100},{  0,   0},{  0,   0},{  0,   0}}},  // 8
   {50, {{  0, 5*60},{  1, 5*10},{ 10,5*30},{  20,5*20},{ 123,5*30},  // 9
         {  3, 5*60},{  4, 5*10},{ 5, 5*30},{  31,5*20},{ 123,5*30},
         {  6, 5*60},{  7, 5*10},{ 8, 5*30},{  9, 5*20},{ 11, 5*30},
         {  12,5*60},{  13,5*10},{ 14,5*30},{  15,5*20},{ 16, 5*30},
         {  17,5*60},{  18,5*10},{ 19,5*30},{  21,5*20},{ 23, 5*30},
         {  22,5*60},{  24,5*10},{ 25,5*30},{  26,5*20},{ 28, 5*30},
         {  27,5*60},{  29,5*10},{ 30,5*30},{  32,5*20},{ 33, 5*30},
         {  36,5*60},{  37,5*50},{ 38,5*40},{  39,5*20},{ 34, 5*30},
         {  40,5*60},{  41,5*50},{ 42,5*40},{  43,5*20},{ 44, 5*30},
         {  45,5*60},{  46,5*50},{ 47,5*40},{  48,5*20},{ 49, 5*30}}},
   {0, {0}}, // 10
   {4,{{1  , -10},{ 14, -2},{ 23, -8},{124, -12}}},  // 12 - 11
   {90, {{  0, 5*60},{  1, 5*50},{ 10,5*40},{  20,5*20},{ 123,5*30},  // 12
         {  3, 5*60},{  4, 5*50},{ 5, 5*40},{  31,5*20},{ 50,5*30},
         {  6, 5*60},{  7, 5*50},{ 8, 5*40},{  9, 5*20},{ 11, 5*30},
         {  12,5*60},{  13,5*50},{ 14,5*40},{  15,5*20},{ 16, 5*30},
         {  17,5*60},{  18,5*50},{ 19,5*40},{  21,5*20},{ 23, 5*30},
         {  22,5*60},{  24,5*50},{ 25,5*40},{  26,5*20},{ 28, 5*30},
         {  27,5*60},{  29,5*50},{ 30,5*40},{  32,5*20},{ 33, 5*30},
         {  36,5*60},{  37,5*50},{ 38,5*40},{  39,5*20},{ 34, 5*30},
         {  40,5*60},{  41,5*50},{ 42,5*40},{  43,5*20},{ 44, 5*30},
         {  45,5*60},{  46,5*50},{ 47,5*40},{  48,5*20},{ 49, 5*30},
         { 512,5*60},{ 513,5*50},{533,5*40},{ 514,5*20},{515, 5*30},
         { 516,5*60},{ 517,5*50},{518,5*40},{ 519,5*20},{520, 5*30},
         { 521,5*60},{ 522,5*50},{523,5*40},{ 524,5*20},{525, 5*30},
         { 526,5*60},{ 527,5*50},{528,5*40},{ 529,5*20},{530, 5*30},
         { 531,5*60},{ 532,5*50},{541,5*40},{ 534,5*20},{535, 5*30},
         { 536,5*60},{ 537,5*50},{538,5*40},{ 539,5*20},{540, 5*30},
         { 542,5*60},{ 543,5*50},{544,5*40},{ 545,5*20},{546, 5*30},
         { 547,5*60},{ 548,5*50},{549,5*40},{ 550,5*20},{551, 5*30},
   }},
 // 35 Carriers in DCS_1800 & 50 Carriers in GSM_900
   {85, {{  0, 5*60},{  1, 5*50},{ 10,5*40},{  20,5*20},{ 123,5*30},  // 13
         {  3, 5*60},{  4, 5*50},{ 5, 5*40},{  31,5*20},{ 50,5*30},
         {  6, 5*60},{  7, 5*50},{ 8, 5*40},{  9, 5*20},{ 11, 5*30},
         {  12,5*60},{  13,5*50},{ 14,5*40},{  15,5*20},{ 16, 5*30},
         {  17,5*60},{  18,5*50},{ 19,5*40},{  21,5*20},{ 23, 5*30},
         {  22,5*60},{  24,5*50},{ 25,5*40},{  26,5*20},{ 28, 5*30},
         {  27,5*60},{  29,5*50},{ 30,5*40},{  32,5*20},{ 33, 5*30},
         {  36,5*60},{  37,5*50},{ 38,5*40},{  39,5*20},{ 34, 5*30},
         {  40,5*60},{  41,5*50},{ 42,5*40},{  43,5*20},{ 44, 5*30},
         {  125,5*60},{  126,5*50},{ 127,5*40},{  128,5*20},{ 129, 5*30},
         { 512,5*60},{ 513,5*50},{533,5*40},{ 514,5*20},{515, 5*30},
         { 516,5*60},{ 517,5*50},{518,5*40},{ 519,5*20},{520, 5*30},
         { 521,5*60},{ 522,5*50},{523,5*40},{ 524,5*20},{525, 5*30},
         { 526,5*60},{ 527,5*50},{528,5*40},{ 529,5*20},{530, 5*30},
         { 531,5*60},{ 532,5*50},{541,5*40},{ 534,5*20},{535, 5*30},
         { 536,5*60},{ 537,5*50},{538,5*40},{ 539,5*20},{540, 5*30},
         { 546,5*60},{ 542,5*50},{543,5*40},{ 544,5*20},{545, 5*30},
   }},
      // 80 GSM 900 Carriers & 20 PCS 1800 Carriers
   {100, {{  0, 5*60},{  1, 5*50},{ 10,5*40},{  20,5*25},{ 123,5*30},  // 14
         {  3, 5*60},{  4, 5*50},{ 5, 5*40},{  31,5*25},{ 50,5*30},
         {  6, 5*60},{  7, 5*50},{ 8, 5*40},{  9, 5*25},{ 11, 5*30},
         {  12,5*60},{  13,5*50},{ 14,5*40},{  15,5*25},{ 16, 5*30},
         {  17,5*60},{  18,5*50},{ 19,5*40},{  21,5*25},{ 23, 5*30},
         {  22,5*60},{  24,5*50},{ 25,5*40},{  26,5*25},{ 28, 5*30},
         {  27,5*60},{  29,5*50},{ 30,5*40},{  32,5*25},{ 33, 5*30},
         {  36,5*60},{  37,5*50},{ 38,5*40},{  39,5*25},{ 34, 5*30},
         {  40,5*60},{  41,5*50},{ 42,5*40},{  43,5*25},{ 44, 5*30},
         {  45,5*60},{  46,5*50},{ 47,5*40},{  48,5*25},{ 49, 5*30},
         {  51,5*60},{  52,5*50},{ 53,5*40},{  54,5*25},{ 55, 5*30},
         {  56,5*60},{  57,5*50},{ 58,5*40},{  59,5*25},{ 60, 5*30},
         {  61,5*60},{  62,5*50},{ 63,5*40},{  64,5*25},{ 65, 5*30},
         {  66,5*60},{  67,5*50},{ 68,5*40},{  69,5*25},{ 70, 5*30},
         {  72,5*60},{  73,5*50},{ 74,5*40},{  75,5*25},{ 76, 5*30},
         {  77,5*20},{  78,5*50},{ 79,5*40},{  80,5*25},{ 81, 5*30},
         { 512,5*60},{ 513,5*50},{533,5*40},{ 514,5*20},{515, 5*30},
         { 516,5*60},{ 517,5*50},{518,5*40},{ 519,5*20},{520, 5*30},
         { 521,5*60},{ 522,5*50},{523,5*40},{ 524,5*20},{525, 5*30},
         { 526,5*60},{ 527,5*50},{528,5*40},{ 529,5*20},{530, 5*30},
   }},
      // 80 GSM 900 Carriers & 20 PCS 1800 Carriers
   {100, {{  0, 5*60},{  1, 5*18},{ 10,5*40},{  20,5*18},{ 123,5*30},  // 15
         {  3, 5*60},{  4, 5*18},{ 5, 5*40},{  31,5*18},{ 50,5*30},
         {  6, 5*60},{  7, 5*18},{ 8, 5*40},{  9, 5*18},{ 11, 5*30},
         {  12,5*60},{  13,5*18},{ 14,5*40},{  15,5*18},{ 16, 5*30},
         {  17,5*60},{  18,5*18},{ 19,5*40},{  21,5*18},{ 23, 5*30},
         {  22,5*60},{  24,5*18},{ 25,5*40},{  26,5*18},{ 28, 5*30},
         {  27,5*60},{  29,5*18},{ 30,5*40},{  32,5*18},{ 33, 5*30},
         {  36,5*60},{  37,5*18},{ 38,5*40},{  39,5*18},{ 34, 5*30},
         {  40,5*60},{  41,5*18},{ 42,5*40},{  43,5*18},{ 44, 5*30},
         {  45,5*60},{  46,5*18},{ 47,5*40},{  48,5*18},{ 49, 5*30},
         {  51,5*60},{  52,5*18},{ 53,5*40},{  54,5*18},{ 55, 5*30},
         {  56,5*60},{  57,5*18},{ 58,5*40},{  59,5*18},{ 60, 5*30},
         {  61,5*60},{  62,5*18},{ 63,5*40},{  64,5*18},{ 65, 5*30},
         {  66,5*60},{  67,5*18},{ 68,5*40},{  69,5*18},{ 70, 5*30},
         {  72,5*60},{  73,5*18},{ 74,5*40},{  75,5*18},{ 76, 5*30},
         {  77,5*20},{  78,5*18},{ 79,5*40},{  80,5*18},{ 81, 5*30},
         { 512,5*60},{ 513,5*18},{533,5*40},{ 514,5*18},{515, 5*30},
         { 516,5*60},{ 517,5*18},{518,5*40},{ 519,5*18},{520, 5*30},
         { 521,5*60},{ 522,5*18},{523,5*40},{ 524,5*18},{525, 5*30},
         { 526,5*60},{ 527,5*18},{528,5*40},{ 529,5*18},{530, 5*30},
   }},
};


T_POWER_MEAS  tap_rxlev_response_american[16] = {
    {5,{{130, 105},{140, 220},{150, 250},{250, 125}, {155, -10}}}, // 0
    {0,{{0  ,  0}, {  0,   0},{  0,   0},{  0,   0}}},  // 1
    {0,{{0  ,  0}, {  0,   0},{  0,   0},{  0,   0}}},  // 2
    {0,{{0  ,  0}, {  0,   0},{  0,   0},{  0,   0}}},  // 3
    {0,{{0  ,  0}, {  0,   0},{  0,   0},{  0,   0}}},  // 4
    {0,{{0  ,  0}, {  0,   0},{  0,   0},{  0,   0}}},  // 5
    {0,{{0  ,  0}, {  0,   0},{  0,   0},{  0,   0}}},  // 6
    {0,{{0  ,  0}, {  0,   0},{  0,   0},{  0,   0}}},  // 7
    {0,{{0  ,  0}, {  0,   0},{  0,   0},{  0,   0}}},  // 8
    {0,{{0  ,  0}, {  0,   0},{  0,   0},{  0,   0}}},  // 9
    {0, {0}},  // 10
    {5,{{130, -1},{140, -2},{150, -5},{250, -12}, {155, -10}}},  // 11 
 // 40 Carriers in PCS_1900 & 50 Carriers in GSM_850
    {90,{{130, 105},{140, 220},{150, 250},{240, 125}, {160, 110},  // 12
         {131, 105},{141, 220},{151, 250},{241, 125}, {161, 110},
         {132, 105},{142, 220},{152, 250},{222, 125}, {162, 110},
         {133, 105},{143, 220},{153, 250},{223, 125}, {163, 110},
         {134, 105},{144, 220},{154, 250},{224, 125}, {164, 110},
         {135, 105},{145, 220},{155, 250},{225, 125}, {165, 110},
         {136, 105},{146, 220},{156, 250},{226, 125}, {166, 110},
         {137, 105},{147, 220},{157, 250},{227, 125}, {167, 110},
         {138, 105},{148, 220},{158, 250},{228, 125}, {168, 110},
         {139, 105},{149, 220},{159, 250},{229, 125}, {169, 110},
         { 553,105},{ 554,220},{534, 220},{514, 220}, {535, 220},
         { 536,105},{ 537,220},{538, 220},{539, 220}, {540, 220},
         { 541,105},{ 542,220},{543, 220},{544, 220}, {545, 220},
         { 546,105},{ 547,220},{548, 220},{549, 220}, {550, 220},
         { 551,105},{ 552,220},{555, 220},{556, 220}, {557, 220},
         { 558,105},{ 559,220},{560, 220},{561, 220}, {562, 220},
         { 563,105},{ 564,220},{565, 220},{566, 220}, {567, 220},
         { 568,105},{ 568,220},{570, 220},{571, 220}, {572, 220},
    }},
    // 35 Carriers in PCS_1900 & 50 Carriers in GSM_850
    {85,{{130, 105},{140, 220},{150, 250},{240, 125}, {160, 110},  // 13
         {131, 105},{141, 220},{151, 250},{241, 125}, {161, 110},
         {132, 105},{142, 220},{152, 250},{242, 125}, {162, 110},
         {133, 105},{143, 220},{153, 250},{243, 125}, {163, 110},
         {134, 105},{144, 220},{154, 250},{244, 125}, {164, 110},
         {135, 105},{145, 220},{155, 250},{245, 125}, {165, 110},
         {136, 105},{146, 220},{156, 250},{246, 125}, {166, 110},
         {137, 105},{147, 220},{157, 250},{247, 125}, {167, 110},
         {138, 105},{148, 220},{158, 250},{248, 125}, {168, 110},
         {139, 105},{149, 220},{159, 250},{249, 125}, {169, 110},
         { 125,105},{ 140,220},{150, 220},{160, 220}, {170, 220},
         { 126,105},{ 141,220},{151, 220},{161, 220}, {171, 220},
         { 127,105},{ 142,220},{152, 220},{162, 220}, {172, 220},
         { 128,105},{ 143,220},{153, 220},{163, 220}, {173, 220},
         { 129,105},{ 144,220},{154, 220},{164, 220}, {174, 220},
         { 130,105},{ 145,220},{155, 220},{165, 220}, {175, 220},
         { 131,105},{ 146,220},{156, 220},{166, 220}, {176, 220},
    }},
   // 80 GSM 850 Carriers & 20 PCS 1900 Carriers
    {100,{{130, 105},{140, 220},{150, 250},{240, 125}, {160, 110},  // 14
         {131, 105},{141, 220},{151, 250},{241, 125}, {161, 110},
         {132, 105},{142, 220},{152, 250},{242, 125}, {162, 110},
         {133, 105},{143, 220},{153, 250},{243, 125}, {163, 110},
         {134, 105},{144, 220},{154, 250},{244, 125}, {164, 110},
         {135, 105},{145, 220},{155, 250},{245, 125}, {165, 110},
         {136, 105},{146, 220},{156, 250},{246, 125}, {166, 110},
         {137, 105},{147, 220},{157, 250},{247, 125}, {167, 110},
         {138, 105},{148, 220},{158, 250},{248, 125}, {168, 110},
         {139, 105},{149, 220},{159, 250},{249, 125}, {169, 110},
         {170, 105},{180, 220},{190, 250},{200, 125}, {210, 110},
         {171, 105},{181, 220},{191, 250},{201, 125}, {211, 110},
         {172, 105},{182, 220},{192, 250},{202, 125}, {212, 110},
         {173, 105},{183, 220},{193, 250},{203, 125}, {213, 110},
         {174, 105},{184, 220},{194, 250},{204, 125}, {214, 110},
         {175, 105},{185, 220},{195, 250},{205, 125}, {215, 110},
         { 553,105},{ 554,220},{534, 220},{514, 220}, {535, 220},
         { 536,105},{ 537,220},{538, 220},{539, 220}, {540, 220},
         { 541,105},{ 542,220},{543, 220},{544, 220}, {545, 220},
         { 546,105},{ 547,220},{548, 220},{549, 220}, {550, 220},
    }},
   // 80 GSM 850 Carriers & 20 PCS 1900 Carriers
    {100,{{130, 105},{140, 80},{150, 250},{240, 90}, {160, 110},  // 15
         {131, 105},{141, 80},{151, 250},{241, 90}, {161, 110},
         {132, 105},{142, 80},{152, 250},{242, 90}, {162, 110},
         {133, 105},{143, 80},{153, 250},{243, 90}, {163, 110},
         {134, 105},{144, 80},{154, 250},{244, 90}, {164, 110},
         {135, 105},{145, 80},{155, 250},{245, 90}, {165, 110},
         {136, 105},{146, 80},{156, 250},{246, 90}, {166, 110},
         {137, 105},{147, 80},{157, 250},{247, 90}, {167, 110},
         {138, 105},{148, 80},{158, 250},{248, 90}, {168, 110},
         {139, 105},{149, 80},{159, 250},{249, 90}, {169, 110},
         {170, 105},{180, 80},{190, 250},{200, 90}, {210, 110},
         {171, 105},{181, 80},{191, 250},{201, 90}, {211, 110},
         {172, 105},{182, 80},{192, 250},{202, 90}, {212, 110},
         {173, 105},{183, 80},{193, 250},{203, 90}, {213, 110},
         {174, 105},{184, 80},{194, 250},{204, 90}, {214, 110},
         {175, 105},{185, 80},{195, 250},{205, 90}, {215, 110},
         { 553,105},{ 554,80},{534, 220},{514, 90}, {535, 220},
         { 536,105},{ 537,80},{538, 220},{539, 90}, {540, 220},
         { 541,105},{ 542,80},{543, 220},{544, 90}, {545, 220},
         { 546,105},{ 547,80},{548, 220},{549, 90}, {550, 220},
    }},
};

/*lint +e785 (Info -- Too few initializers for aggregate)*/
#endif  /* _SIMULATION_ */

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

LOCAL const void pei_not_supported (void *);

#ifdef OPTION_RELATIVE
LOCAL ULONG offset;
#endif

#define TRACING
/*==== VARIABLES ==================================================*/

/*LOCAL BOOL              exit_flag = FALSE;*/
LOCAL BOOL              first_access = TRUE;
LOCAL T_MONITOR         alr_mon;

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

LOCAL const T_FUNC mph_table[] = {
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_0 ( ma_mph_idle_req          , MPH_IDLE_REQ             ),
  MAK_FUNC_0 ( ma_mph_neighbourcell_req , MPH_NEIGHBOURCELL_REQ    ),
  MAK_FUNC_0 ( ma_mph_emo_req           , MPH_EMO_REQ              ),
  MAK_FUNC_0 ( ma_mph_dedicated_req     , MPH_DEDICATED_REQ        ),
  MAK_FUNC_0 ( ma_mph_dedicated_fail_req, MPH_DEDICATED_FAIL_REQ   ),
  MAK_FUNC_0 ( ma_mph_ciphering_req     , MPH_CIPHERING_REQ        ),
  MAK_FUNC_0 ( ma_mph_freq_redef_req    , MPH_FREQ_REDEF_REQ       ),
  MAK_FUNC_0 ( ma_mph_channel_mode_req  , MPH_CHANNEL_MODE_REQ     ),
  MAK_FUNC_0 ( ma_mph_deactivate_req    , MPH_DEACTIVATE_REQ       ),
  MAK_FUNC_0 ( ma_mph_classmark_req     , MPH_CLASSMARK_REQ        ),
  MAK_FUNC_N ( ma_mph_ext_meas_req      , MPH_EXT_MEAS_REQ         ),
  MAK_FUNC_N ( ma_mph_ncell_pos_req     , MPH_NCELL_POS_REQ        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_0 ( ma_mph_tch_loop_req      , MPH_TCH_LOOP_REQ         ),
  MAK_FUNC_0 ( ma_mph_dai_req           , MPH_DAI_REQ              ),
  MAK_FUNC_0 ( ma_mph_cbch_req          , MPH_CBCH_REQ             ),
  MAK_FUNC_0 ( ma_mph_identity_req      , MPH_IDENTITY_REQ         ),
  MAK_FUNC_0 ( ma_mph_power_req         , MPH_POWER_REQ            ),
  MAK_FUNC_0 ( ma_mph_bsic_req          , MPH_BSIC_REQ             ),
  MAK_FUNC_0 ( ma_mph_random_access_req , MPH_RANDOM_ACCESS_REQ    ),

#ifdef GPRS
  MAK_FUNC_0 ( gprs_alr_mon_ctrl_req    , MPH_MON_CTRL_REQ         ),
#else
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
#endif
  MAK_FUNC_0 ( ma_mph_sync_req          , MPH_SYNC_REQ             ),
  MAK_FUNC_0 ( ma_mph_clean_buf_req     , MPH_CLEAN_BUF_REQ        ),
  MAK_FUNC_0 ( ma_mph_stop_dedi_req     , MPH_STOP_DEDICATED_REQ   ),
#ifdef GPRS
  MAK_FUNC_0 ( ma_mph_meas_rep_req      , MPH_MEAS_REP_REQ         )
#else
  MAK_FUNC_N ( pei_not_supported        , 0                        )
#endif
};

/*
 * The MPHC jump table uses the
 * original TI opcodes !!!
 */

LOCAL const T_FUNC mphc_table[] = {
  MAK_FUNC_N ( pei_not_supported               , 0                            ),
  MAK_FUNC_N ( pei_not_supported               , TST_TEST_HW_REQ              ), /*  1 */
  MAK_FUNC_0 ( csf_show_version                , TST_TEST_HW_CON              ), /*  2 */
  MAK_FUNC_N ( pei_not_supported               , TST_TIMESTAMP_MSG            ), /*  3 */
  MAK_FUNC_N ( pei_not_supported               , TST_SLEEP_REQ                ), /*  4 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /*  5 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /*  6 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /*  7 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /*  8 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /*  9 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 10 */
  MAK_FUNC_N ( pei_not_supported               , MPHC_RXLEV_REQ               ), /* 11 */
  MAK_FUNC_0 ( ma_mphc_rxlev_ind               , MPHC_RXLEV_IND               ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_STOP_RXLEV_REQ          ),
  MAK_FUNC_0 ( ma_mphc_stop_rxlev_cnf          , MPHC_STOP_RXLEV_CON          ),
  MAK_FUNC_0 ( pei_not_supported               , MPHC_NETWORK_SYNC_REQ        ),
  MAK_FUNC_N ( ma_mphc_network_sync_ind        , MPHC_NETWORK_SYNC_IND        ),
  MAK_FUNC_0 ( pei_not_supported               , MPHC_STOP_NETWORK_SYNC_REQ   ),
#if defined(STOP_SYNC_TASK)
  MAK_FUNC_N ( ma_mphc_stop_network_sync_cnf   , MPHC_STOP_NETWORK_SYNC_CON   ),
#else /* STOP_SYNC_TASK */
  MAK_FUNC_N ( ma_mphc_empty_cnf               , MPHC_STOP_NETWORK_SYNC_CON   ),
#endif /* STOP_SYNC_TASK */
  MAK_FUNC_0 ( pei_not_supported               , MPHC_NEW_SCELL_REQ           ),
  MAK_FUNC_N ( ma_mphc_new_scell_cnf           , MPHC_NEW_SCELL_CON           ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_START_CCCH_REQ          ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_STOP_CCCH_REQ           ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , MPHC_STOP_CCCH_CON           ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_SCELL_NBCCH_REQ         ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_SCELL_EBCCH_REQ         ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_STOP_SCELL_BCCH_REQ     ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , MPHC_STOP_SCELL_BCCH_CON     ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_NCELL_BCCH_REQ          ),
  MAK_FUNC_0 ( ma_mphc_ncell_bcch_ind          , MPHC_NCELL_BCCH_IND          ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_STOP_NCELL_BCCH_REQ     ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , MPHC_STOP_NCELL_BCCH_CON     ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_NCELL_SYNC_REQ          ),
  MAK_FUNC_0 ( ma_mphc_ncell_sync_ind          , MPHC_NCELL_SYNC_IND          ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_STOP_NCELL_SYNC_REQ     ),
  MAK_FUNC_0 ( ma_mphc_stop_ncell_sync_cnf     ,  MPHC_STOP_NCELL_SYNC_CON    ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_RXLEV_PERIODIC_REQ      ),
  MAK_FUNC_0 ( ma_mphc_rxlev_periodic_ind      , MPHC_RXLEV_PERIODIC_IND      ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_STOP_RXLEV_PERIODIC_REQ ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , MPHC_STOP_RXLEV_PERIODIC_CON ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_CONFIG_CBCH_REQ         ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_CBCH_SCHEDULE_REQ       ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_CBCH_UPDATE_REQ         ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_CBCH_INFO_REQ           ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_STOP_CBCH_REQ           ),
  MAK_FUNC_N ( ma_mphc_empty_cnf               , MPHC_STOP_CBCH_CON           ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_RA_REQ                  ),
  MAK_FUNC_0 ( ma_mphc_ra_cnf                  , MPHC_RA_CON                  ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_STOP_RA_REQ             ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , MPHC_STOP_RA_CON             ),
  MAK_FUNC_0 ( ma_mphc_data_ind                , MPHC_DATA_IND                ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_IMMED_ASSIGN_REQ        ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_CHANNEL_ASSIGN_REQ      ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_ASYNC_HO_REQ            ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_SYNC_HO_REQ             ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_PRE_SYNC_HO_REQ         ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_PSEUDO_SYNC_HO_REQ      ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_STOP_DEDICATED_REQ      ),
  MAK_FUNC_0 ( ma_mphc_change_frequency_cnf    , MPHC_CHANGE_FREQUENCY_CON    ),
  MAK_FUNC_0 ( ma_mphc_async_ho_cnf            , MPHC_ASYNC_HO_CON            ),
  MAK_FUNC_0 ( ma_mphc_channel_assign_cnf      , MPHC_CHANNEL_ASSIGN_CON      ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , MPHC_CHANNEL_MODE_MODIFY_CON ),
  MAK_FUNC_0 ( ma_mphc_handover_fail_cnf       , MPHC_HANDOVER_FAIL_CON       ),
  MAK_FUNC_0 ( ma_mphc_immed_assign_cnf        , MPHC_IMMED_ASSIGN_CON        ),
  MAK_FUNC_0 ( ma_mphc_pre_sync_ho_cnf         , MPHC_PRE_SYNC_HO_CON         ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , MPHC_SET_CIPHERING_CON       ),
  MAK_FUNC_0 ( ma_mphc_sync_ho_cnf             , MPHC_SYNC_HO_CON             ),
  MAK_FUNC_0 ( ma_mphc_ta_fail_ind             , MPHC_TA_FAIL_IND             ),
  MAK_FUNC_0 ( ma_mphc_handover_finished_ind   , MPHC_HANDOVER_FINISHED       ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_CHANGE_FREQUENCY        ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_CHANNEL_MODE_MODIFY_REQ ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_HANDOVER_FAIL_REQ       ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_SET_CIPHERING_REQ       ),
  MAK_FUNC_0 ( ma_mphc_meas_report_ind         , MPHC_MEAS_REPORT             ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_UPDATE_BA_LIST          ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_NCELL_FB_SB_READ        ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_NCELL_SB_READ           ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_NCELL_BCCH_READ         ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_INIT_IDS_REQ            ), /* 78 */
  MAK_FUNC_N ( pei_not_supported               , MPHC_INIT_IDS_CON            ), /* 79 = is not used */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 80 = used by L1 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 81 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 82 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 83 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 84 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 85 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 86 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 87 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 88 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 89 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 90 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 91 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 92 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 93 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 94 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 95 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 96 */
  MAK_FUNC_N ( pei_not_supported               , OML1_CLOSE_TCH_LOOP_REQ      ), /* 97 */
  MAK_FUNC_N ( pei_not_supported               , OML1_OPEN_TCH_LOOP_REQ       ),
  MAK_FUNC_N ( pei_not_supported               , OML1_START_DAI_TEST_REQ      ),
  MAK_FUNC_N ( pei_not_supported               , OML1_STOP_DAI_TEST__REQ      ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , OML1_CLOSE_TCH_LOOP_CON      ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , OML1_OPEN_TCH_LOOP_CON       ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , OML1_START_DAI_TEST_CON      ),
  MAK_FUNC_0 ( ma_mphc_empty_cnf               , OML1_STOP_DAI_TEST_CON       ),
  MAK_FUNC_0 ( ma_mphc_adc_ind                 , MPHC_ADC_IND                 ), /* will be send to CST directly */
  MAK_FUNC_N ( pei_not_supported               , TRACE_INFO                   ),
  MAK_FUNC_N ( pei_not_supported               , L1_STATS_REQ                 ),
  MAK_FUNC_N ( pei_not_supported               , L1_DUMMY_FOR_SIM             ),
  MAK_FUNC_0 ( ma_mphc_data_ind                , PH_DATA_IND                  ),
  MAK_FUNC_N ( pei_not_supported               , MPHC_NETWORK_LOST_IND        ), /* 110 = send to L1 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 111 = MMI_ADC_REQ */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 112 = MMI_STOP_ADC_REQ */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 113 = MMI_STOP_ADC_CON */
  MAK_FUNC_N ( pei_not_supported               , MPHC_INIT_L1_REQ             ), /* 114 */
  MAK_FUNC_N ( ma_mphc_init_l1_cnf             , MPHC_INIT_L1_CON             ), /* 115 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 116 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 117 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 118 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 119 = L1_TEST_HW_INFO */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 120 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 121 */
  MAK_FUNC_N ( pei_not_supported               , MPHC_NCELL_LIST_SYNC_REQ     ), /* 122 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 123 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 124 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 125 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 126 */
  MAK_FUNC_N ( pei_not_supported               , 0                            ), /* 127 */
  MAK_FUNC_N ( ma_mphc_stop_dedi_con           , MPHC_STOP_DEDICATED_CON      ) /* 128 */
};

LOCAL const T_FUNC mmi_table[] = {
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_0 ( ma_mmi_cbch_req          , MMI_CBCH_REQ             ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_N ( pei_not_supported        , 0                        ),
  MAK_FUNC_0 ( ma_mmi_sat_cbch_dwnld_req, MMI_SAT_CBCH_DWNLD_REQ   )
};

#ifdef FF_EM_MODE
LOCAL const T_FUNC em_ul_table[] = {
  MAK_FUNC_N( pei_not_supported,              0                         ), /* 0x00*/
  MAK_FUNC_N( pei_not_supported,              0                         ), /* 0x01*/
  MAK_FUNC_N( pei_not_supported,              0                         ), /* 0x02*/
  MAK_FUNC_N( pei_not_supported,              0                         ), /* 0x03*/
  MAK_FUNC_N( pei_not_supported,              0                         ), /* 0x04*/
  MAK_FUNC_N( pei_not_supported,              0                         ), /* 0x05*/
  MAK_FUNC_N( pei_not_supported,              0                         ), /* 0x06*/
  MAK_FUNC_N( pei_not_supported,              0                         ), /* 0x07*/
  MAK_FUNC_N( pei_not_supported,              0                         ), /* 0x08*/
  MAK_FUNC_0( l1_em_l1_event_req,             EM_L1_EVENT_REQ           ), /* 0x09*/
  MAK_FUNC_N( pei_not_supported,              0                         ), /* 0x0A*/
  MAK_FUNC_N( pei_not_supported,              0                         )  /* 0x0B*/
};
#endif /* FF_EM_MODE */


/*
+--------------------------------------------------------------------+
| PROJECT : GSM-PS (6103)              MODULE  : ALR_PEI             |
| STATE   : code                       ROUTINE : pei_primitive       |
+--------------------------------------------------------------------+

  PURPOSE : Process protocol specific primitive.

*/
LOCAL SHORT pei_primitive (void * ptr)
{
  T_PRIM * prim = ptr;
  /*
   *                |     |      |
   *               MPH   PH     MMI       UPLINK
   *                |     |      |
   *      +---------v-----v------v---+
   *      |                          |
   *      |           ALR            |
   *      |                          |
   *      +------------^-------------+
   *                   |
   *                  MPHC                DOWNLINK
   *                   |
   *
   */

  if (prim NEQ NULL)
  {
    ULONG            opc = prim->custom.opc;
    USHORT           n;
    const T_FUNC    *table;

    VSI_PPM_REC ((T_PRIM_HEADER *)prim, __FILE__, __LINE__);

#if defined TRACING
    PTRACE_IN (opc);
#endif

    switch (SAP_NR(opc))
    {
      case    MPH_DL:
          table =  mph_table ;
          n = TAB_SIZE(mph_table);
        break;
      case    0x0000:
      case    0x0100:
        /*
         * use same table as PH_DATA_IND is the only prim with 0x0100
         * and is at location 109
         */
        table =     mphc_table;    n = TAB_SIZE (mphc_table);    break;
      case    0x0E00: table =     mmi_table ;    n = TAB_SIZE (mmi_table);     break;
#ifdef GPRS
      case    TB_UL : gprs_alr_get_table (&table, &n); break;
#endif /* GPRS */
#ifdef FF_EM_MODE
      case    EM_Ul:  table =     em_ul_table;   n = TAB_SIZE (em_ul_table);   break;
#endif /* FF_EM_MODE*/
      default       : table =     NULL ;         n = 0;                        break;
    }

    if (table NEQ NULL )
    {

      if (PRIM_NR(opc) < n)
      {

        table += PRIM_NR(opc);
#ifdef PALLOC_TRANSITION
        P_SDU(prim) = table->soff ? (T_sdu*) (((char*)&prim->data) + table->soff) : 0;
#ifndef NO_COPY_ROUTING
        P_LEN(prim) = table->size + sizeof (T_PRIM_HEADER);
#endif /* NO_COPY_ROUTING */
#endif /* PALLOC_TRANSITION */
        JUMP (table->func) (P2D(prim));
      }
      else
      {
        pei_not_supported (P2D(prim));
      }
      return PEI_OK;
    }

#ifdef GSM_ONLY
    PFREE (P2D(prim))
    return PEI_ERROR;
#else
    if (opc & SYS_MASK)
      vsi_c_primitive (VSI_CALLER prim);
    else
    {
      PFREE (P2D(prim))
      return PEI_ERROR;
    }
#endif
  }
  return PEI_OK;
}


/*
+--------------------------------------------------------------------+
| PROJECT : GSM-PS (6103)              MODULE  : ALR_PEI             |
| STATE   : code                       ROUTINE : pei_not_supported   |
+--------------------------------------------------------------------+

  PURPOSE : An unsupported primitive is received.

*/

static const void pei_not_supported (void *data)
{
  PFREE (data);
}


/*
+--------------------------------------------------------------------+
| PROJECT : GSM-PS (6103)              MODULE  : ALR_PEI             |
| STATE   : code                       ROUTINE : pei_init            |
+--------------------------------------------------------------------+

  PURPOSE : Initialize Protocol Stack Entity

*/
LOCAL SHORT pei_init (T_HANDLE handle)
{
  UBYTE version;
  pl_handle = handle;

  if (hCommPL < VSI_OK)
  {
    if ((hCommPL = vsi_c_open (VSI_CALLER PL_NAME)) < VSI_OK)
      return PEI_ERROR;
  }
  if (hCommL1 < VSI_OK)
  {
    if ((hCommL1 = vsi_c_open (VSI_CALLER L1_NAME)) < VSI_OK)
      return PEI_ERROR;
  }
  if (hCommDL < VSI_OK)
  {
    if ((hCommDL = vsi_c_open (VSI_CALLER DL_NAME)) < VSI_OK)
      return PEI_ERROR;
  }

  if (hCommRR < VSI_OK)
  {
    if ((hCommRR = vsi_c_open (VSI_CALLER RR_NAME)) < VSI_OK)
      return PEI_ERROR;
  }

  if (hCommCST < VSI_OK)
  {
    if ((hCommCST = vsi_c_open (VSI_CALLER CST_NAME)) < VSI_OK)
      return PEI_ERROR;
  }

  if (hCommMMI < VSI_OK)
  {
    /*
     * Open MMI (Layer 4)
     */

    if ((hCommMMI = vsi_c_open (VSI_CALLER ACI_NAME)) < VSI_OK)
      return PEI_ERROR;
  }

#ifdef GPRS

  if (hCommGPL < VSI_OK)
  {
    if ((hCommGPL = vsi_c_open (VSI_CALLER GPL_NAME)) < VSI_OK)
      return PEI_ERROR;
  }

#endif /* #ifdef GPRS */

  /*exit_flag = FALSE;*/

#if defined (_SIMULATION_)
  ccd_init();
#endif  /* _SIMULATION_ */

  ma_init ();
  cs_init ();
  pch_init ();
  dedi_init ();
  nc_init ();
  pch_init ();
  rach_init ();
  dedi_init ();
  cb_init ();
  tim_init();


#ifdef FF_EM_MODE
  /*
     initialise event flags
  */
  em_init_l1_event_trace();
  /*
    initialise alr semaphor for EM event tracing
  */
  em_l1_sem_init();
#endif /* FF_EM_MODE */


  pcm_Init ();
  pcm_ReadFile ((UBYTE *)EF_MSCAP_ID, SIZE_EF_MSCAP,
                (UBYTE *)&alr_data->mscap, &version);


  alr_trc_init ();

  return PEI_OK;
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-PS (6103)              MODULE  : ALR_PEI             |
| STATE   : code                       ROUTINE : pei_timeout         |
+--------------------------------------------------------------------+

  PURPOSE : Process timeout

*/
LOCAL SHORT pei_timeout (USHORT index)
{
#if !defined(TIMER_TRACE)
  TRACE_FUNCTION ("pei_timeout ()");
#endif  /* !TIMER_TRACE */

  /*
   * Handle Timeouts
   */
  tim_exec_timeout (index);

  return PEI_OK;
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-PS (6103)              MODULE  : ALR_PEI             |
| STATE   : code                       ROUTINE : pei_exit            |
+--------------------------------------------------------------------+

  PURPOSE : Close Resources and terminate

*/

LOCAL SHORT pei_exit (void)
{
  /*
   * clean up communication
   */

  vsi_c_close (VSI_CALLER hCommL1);
  hCommL1 = VSI_ERROR;

  vsi_c_close (VSI_CALLER hCommPL);
  hCommPL = VSI_ERROR;

  vsi_c_close (VSI_CALLER hCommDL);
  hCommDL = VSI_ERROR;

  vsi_c_close (VSI_CALLER hCommRR);
  hCommRR = VSI_ERROR;

  vsi_c_close (VSI_CALLER hCommMMI);
  hCommMMI = VSI_ERROR;

  vsi_c_close (VSI_CALLER hCommCST);
  hCommCST = VSI_ERROR;

#ifdef GPRS

  vsi_c_close (VSI_CALLER hCommGPL);
  hCommGPL = VSI_ERROR;

#endif /* #ifdef GPRS */
  alr_trc_exit ();

#ifdef FF_EM_MODE
  em_l1_sem_exit();
#endif /* FF_EM_MODE */

#if defined (_SIMULATION_)
  ccd_exit();
#endif  /* _SIMULATION_ */

  /*exit_flag = TRUE;*/

  return PEI_OK;
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-PS (6103)              MODULE  : ALR_PEI             |
| STATE   : code                       ROUTINE : pei_config          |
+--------------------------------------------------------------------+

  PURPOSE : Dynamic Configuration

*/
#if !defined (NCONFIG)
LOCAL const KW_DATA kwtab[] = {
                   ALR_CONFIG,            ID_CONFIG,
                   ALR_MON_COUNT_IDLE,    ID_MON_COUNTER_IDLE,
                   ALR_MON_COUNT_DEDI,    ID_MON_COUNTER_DEDI,
                   ALR_TRC_DATA_IND,      ID_TRC_DATA_IND,
#if defined (_SIMULATION_)
                   ALR_STD,               ID_STD,
#endif  /* _SIMULATION_ */
                   ALR_RACH_FAILURE,      ID_RACH_FAILURE,
                   ALR_EOTD,              ID_EOTD,
                   "",                    0
                  };

UBYTE v_mon_trc_data_ind = 0;
UBYTE v_cfg_rach_failure = 0;
#endif
LOCAL SHORT pei_config (T_PEI_CONFIG inString)
{
  SHORT ret = PEI_OK;

#if !defined (NCONFIG)
  {
    char    * s = inString;
    SHORT     valno;
    SHORT     keyno;
    char    * keyw;
    char    * val [10];

    tok_init(s);

    /*
     * Parse next keyword and number of variables
     */
    while ((valno = tok_next(&keyw,val)) NEQ TOK_EOCS)
    {
      keyno = tok_key((KW_DATA *)kwtab,keyw);
      switch (keyno)
      {
        case TOK_NOT_FOUND:
          TRACE_ERROR ("[PEI_CONFIG]: Illegal Keyword");
          ret = PEI_ERROR;
          break;

        case ID_CONFIG:
          cst_pei_config (inString, NULL);       /* inform CST task */
          if (valno EQ 3)
          {
            alr_data->mmi         = (UBYTE)atoi (val[0]);
            alr_data->keypad      = (UBYTE)atoi (val[1]);
            alr_data->ext_display = (UBYTE)atoi (val[2]);
          }
          else
          {
            TRACE_ERROR ("[PEI_CONFIG]: Wrong Number of Parameters");
            ret = PEI_ERROR;
          }
          break;
        case ID_RACH_FAILURE:
          v_cfg_rach_failure = !v_cfg_rach_failure;
          TRACE_EVENT_P1("rach failure %d", v_cfg_rach_failure);
          break;
#if !defined (NTRACE)
        case ID_MON_COUNTER_IDLE:
          if (valno EQ 1)
            v_mon_counter_idle = (UBYTE)(atoi(val[0]) & 1);
          break;

        case ID_MON_COUNTER_DEDI:
          if (valno EQ 1)
            v_mon_counter_dedi = (UBYTE)(atoi(val[0]) & 1);
          break;
#endif  /* !NTRACE */

#if defined (_SIMULATION_)
        case ID_STD:
          if (valno EQ 1)
          {
            std = (UBYTE)atoi (val[0]);
            pcm_Init ();
            {
              rr_csf_check_rfcap (TRUE);
            }
          }
          else
          {
            TRACE_ERROR ("[PEI_CONFIG]: Wrong Number of Parameters");
            ret = PEI_ERROR;
          }
          break;
#endif  /* _SIMULATION_ */

#if !defined (NTRACE)
        case ID_TRC_DATA_IND:
          if (valno EQ 1)
            v_mon_trc_data_ind = (UBYTE)atoi(val[0]);
          else
            v_mon_trc_data_ind = ID_TRC_DATA_IND_INIT2;
          SYST_TRACE_P((SYST,"[PEI_CONFIG] TRC_DATA_IND %02x", v_mon_trc_data_ind));
          break;
#endif  /* !NTRACE */
        case ID_EOTD:
          v_eotd = 1;
          break;
        default:
          ret = PEI_ERROR;
          SYST_TRACE_P((0,0xffff,"[PEI_CONFIG] \"%s\" unknown ID %u", s, keyno));
          break;
      }
    }
  }
#endif  /* end !defined (NCONFIG) */
 return ret;
}

#if !defined(WIN32)
/*
+--------------------------------------------------------------------+
| PROJECT : GSM-PS (6103)              MODULE  : ALR_PEI             |
| STATE   : code                       ROUTINE : l1_version          |
+--------------------------------------------------------------------+

  PURPOSE : maps the function alr_version

*/
GLOBAL CHAR* l1_version (void)
{
  return alr_version();
}
#endif  /* !WIN32 */

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-PS (6103)              MODULE  : ALR_PEI             |
| STATE   : code                       ROUTINE : pl_pei_config       |
+--------------------------------------------------------------------+

  PURPOSE : Dynamic Configuration

*/
GLOBAL SHORT pl_pei_config (char * inString, char * dummy)
{
  dummy = 0;

  pei_config (inString);
  return PEI_OK;
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-PS (6103)              MODULE  : ALR_PEI             |
| STATE   : code                       ROUTINE : pei_monitor         |
+--------------------------------------------------------------------+

  PURPOSE : Monitoring of physical Parameters

*/

LOCAL SHORT pei_monitor (void ** monitor)
{
#if defined (_TMS470)
  static char buf[60];

  USHORT build, jtag, rev, hw;

  /*
   * Retrieve hardware info and build from library
   */
  hw = 0;

  build = IQ_GetBuild();
  jtag  = IQ_GetJtagId();
  rev   = IQ_GetRevision();

  sprintf (buf, "HW=%04x Build=%04X, jtag=%04X, rev=%04X", hw, build,jtag, rev);
  TRACE_EVENT (buf);

  alr_mon.version = buf;
#else
  alr_mon.version = VERSION_ALR;
#endif  /* _TMS470 */

  *monitor = &alr_mon;

  return PEI_OK;
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-PS (6103)              MODULE  : ALR_PEI             |
| STATE   : code                       ROUTINE : pei_create          |
+--------------------------------------------------------------------+

  PURPOSE : Create the Protocol Stack Entity

*/
GLOBAL SHORT pl_pei_create (T_PEI_INFO **info)
{
  static const T_PEI_INFO pei_info =
  {
    "PL",
    {
      pei_init,
      pei_exit,
      pei_primitive,
      pei_timeout,     /* timer expiry function   */
      NULL,            /* no signal function */
      NULL,            /* no run function    */
      pei_config,
      pei_monitor
    },
#if defined (GPRS)
    2436,              /* Stacksize          */
#else
#if defined (FAX_AND_DATA)
    1436,              /* Stacksize          */
#else
    1066,              /* Stacksize          */
#endif
#endif
    10,                /* Queue entries      */
    225,               /* Priority           */
    NUM_OF_ALR_TIMERS, /* number of timers   */
                       /* flags              */
#ifdef _TARGET_
#ifdef GPRS
    PASSIVE_BODY|COPY_BY_REF|TRC_NO_SUSPEND|INT_DATA_TASK|PRIM_NO_SUSPEND
#else
    PASSIVE_BODY|COPY_BY_REF|TRC_NO_SUSPEND|PRIM_NO_SUSPEND
#endif
#else
    PASSIVE_BODY|COPY_BY_REF
#endif

  };

  TRACE_FUNCTION ("pl_pei_create()");

  /*
   * close resources if open
   */
  if (first_access)
    first_access = FALSE;
  else
    pei_exit ();

  /*
   * Export startup configuration data
   */
  *info = (T_PEI_INFO *)&pei_info;

  return PEI_OK;
}

#endif