fc-magnetite: src/g23m-gsm/alr/alr

annotate src/g23m-gsm/alr/alr_em.c @ 598:717ed17d82c6

aci3 vocoder control revamped, AT@VSEL now works as it should The vocoder control code (hl_audio_drv.c) that came with the TCS3 version of ACI was totally broken in the Calypso config (VOCODER_FUNC_INTERFACE) and worked in the standard analog voice environment only by luck. This code has now been rewritten to work correctly with our Calypso platform and TCS211 L1, and our new AT@VSEL mechanism (automatic enabling and disabling of MCSI voice path as the modem enters and exits the voice call state) now also works as designed.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Wed, 27 Mar 2019 23:44:35 +0000
parents	27a4235405c6
children

rev	line source
104 27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +-----------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| Project :
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 \| Modul :
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 +-----------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| Copyright 2002 Texas Instruments Berlin, AG
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \| All rights reserved.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| This file is confidential and a trade secret of Texas
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| Instruments Berlin, AG
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| The receipt of or possession of this file does not convey
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| any rights to reproduce or disclose its contents or to
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| manufacture, use, or sell anything it may describe, in
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| whole, or in part, without the specific written consent of
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 \| Texas Instruments Berlin, AG.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 +-----------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 \| Purpose : This Module defines the engineering mode (EM) device driver for the
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 \| G23 protocol stack. This driver is used to control all engineering
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 \| mode related functions.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 +-----------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 #ifndef ALR_EM_C
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #define ALR_EM_C
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #define ENTITY_PL
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 /==== INCLUDES ===================================================/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 #include <string.h>
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 #include <stdlib.h>
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include <ctype.h>
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include "typedefs.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include "pconst.cdg"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #include "mconst.cdg"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 #include "message.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 #include "ccdapi.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #include "vsi.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include "custom.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #include "gsm.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #include "prim.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include "cnf_alr.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #include "mon_alr.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #include "pei.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #include "tok.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #include "pcm.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 #ifdef GPRS
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 #include "alr_gprs.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 #ifdef GPRS
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 #ifdef _TARGET_
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 #include "inth/iq.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 * obsolete (msb / 2002-04-25)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #include "armio/armio.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 #include "alr.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 #include "alr_em.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 /==== IMPORT =====================================================/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 /==== EXPORT =====================================================/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 /==== PRIVAT =====================================================/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 /==== VARIABLES ==================================================/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 #if defined (FF_EM_MODE) AND defined (ALR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 /* Event tracing flags for EM */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 GLOBAL BOOL alr_v[EM_MAX_ALR_EVENTS];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 LOCAL UBYTE em_alr_trace_occured = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 These variables are used between entities. Even this is not a clean solution it is a straigth forward
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 way to reduce the overhead to a minimum. A clean solution would be based on an only usage of primitives
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 which would stress the os with no aditional advantage!!
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 GLOBAL volatile UBYTE em_l1_sem_buffer [EM_L1_SEM_SIZE]; /lint -esym(765,em_l1_sem_buffer) \| external could be made static \| used externally /
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 GLOBAL volatile UBYTE em_l1_sem_index = 0; /lint -esym(765,em_l1_sem_index) \| external could be made static \| used externally /
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 static T_HANDLE sem_EM_L1;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 #define ENTER_CRITICAL_SECTION(sem) if (alr_em_enter_critical_section(sem))return FALSE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 #define LEAVE_CRITICAL_SECTION(sem) if (alr_em_leave_critical_section(sem))return FALSE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 #endif /* FF_EM_MODE */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 /==== FUNCTIONS ==================================================/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 #if defined (FF_EM_MODE) AND defined (ALR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 LOCAL UBYTE em_l1_sem (UBYTE length, UBYTE * data);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 LOCAL int em_l1_sem_clear (void);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 LOCAL void alr_em_first_event_check (void); /Check for ACI - Notification/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 static void alr_em_semaphore_err (void);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 #if !defined(SYST_TRACE)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 #define SYST_TRACE(a) vsi_o_ttrace(0, TC_SYSTEM, a);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 #endif /* !SYST_TRACE */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 static int alr_em_enter_critical_section (T_HANDLE sem);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 static int alr_em_leave_critical_section (T_HANDLE sem);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 \| Function : em_init_l1_event_trace
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 \| Description : Initialize the event tracing flags
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 \| Parameters :
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 \| Return :
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 GLOBAL void em_init_l1_event_trace(void)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 UBYTE i;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 TRACE_FUNCTION("em_init_l1_event_trace ()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 for(i=0; i<EM_MAX_ALR_EVENTS; i++)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 alr_v[i] = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 \| Function : l1_em_l1_event_req
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 \| Description : Set the event tracing flags according the bitmask
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 \| Parameters : Primitive - Bitmask
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 \| Return :
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 GLOBAL void l1_em_l1_event_req (T_EM_L1_EVENT_REQ *em_l1_event_req)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 UBYTE i;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 TRACE_FUNCTION("l1_em_l1_event_req ()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 * The event tracing flags are set according the bitmask. alr_v[i] are
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 * the flags belonging to the event number described in 8443.601
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 for(i=1; i<33; i++) {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 alr_v[i] = ((em_l1_event_req->bitmask_l1_l & (0x01<<(i-1))) > 0) ? TRUE : FALSE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 for(i=33; i<(EM_MAX_ALR_EVENTS); i++) {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 alr_v[i] = ((em_l1_event_req->bitmask_l1_h & (0x01<<(i-1))) > 0) ? TRUE : FALSE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 * A new event trace is generated therefor the flag is set to zero.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 em_alr_trace_occured = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 PFREE(em_l1_event_req);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 \| Function : em_write_buffer_2
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 \| Description : Perform buffer check and store corresponding data in it.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 \| Parameters : Event number
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 \| Return : TRUE/FALSE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 GLOBAL UBYTE em_write_buffer_2 (UBYTE event_no)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 UBYTE em_l1_event_buffer[2];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 UBYTE em_l1_buffer_write = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 UBYTE length = 2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 TRACE_FUNCTION("alr_em_write_buffer_2 ()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 ACI is informed about the first event trace, used for later data processing.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 alr_em_first_event_check();
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 memset(em_l1_event_buffer, 0, 2);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 em_l1_event_buffer[em_l1_buffer_write++] = event_no; /* Event number */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 em_l1_event_buffer[em_l1_buffer_write++] = length-2; /* Value length - 0 equals no data */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 return (em_l1_sem (length, em_l1_event_buffer)); /* Data is stored inside buffer, reset flag */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 \| Function : em_write_buffer_3
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 \| Description : Perform buffer check and store corresponding data in it.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 \| Parameters : Event number, data value
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 \| Return : TRUE/FALSE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 GLOBAL UBYTE em_write_buffer_3 (UBYTE event_no, UBYTE value)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 UBYTE em_l1_event_buffer[3];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 UBYTE em_l1_buffer_write = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 UBYTE length = 3;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 TRACE_FUNCTION("alr_em_write_buffer_3 ()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 ACI is informed about the first event trace, used for later data processing.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 alr_em_first_event_check();
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 memset(em_l1_event_buffer, 0, 3);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 em_l1_event_buffer[em_l1_buffer_write++] = event_no; /* Event number */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 em_l1_event_buffer[em_l1_buffer_write++] = length-2; /* Value length - 0 equals no value */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 em_l1_event_buffer[em_l1_buffer_write++] = value; /* Data to be stored */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 return (em_l1_sem (length, em_l1_event_buffer)); /* Data is stored inside buffer, reset flag */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 \| Function : em_write_buffer_3a
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 \| Description : Perform buffer check and store corresponding data in it.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 \| Parameters : Event number, data value (USHORT)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 \| Return : TRUE/FALSE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 GLOBAL UBYTE em_write_buffer_3a (UBYTE event_no, USHORT value)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 UBYTE em_l1_event_buffer[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 UBYTE em_l1_buffer_write = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 UBYTE length = 4;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 TRACE_FUNCTION("alr_em_write_buffer_4 ()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 ACI is informed about the first event trace, used for later data processing.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 alr_em_first_event_check();
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 memset(em_l1_event_buffer, 0, 4);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 em_l1_event_buffer[em_l1_buffer_write++] = event_no; /* Event number */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 em_l1_event_buffer[em_l1_buffer_write++] = length-2; /* Value length - 0 equals no value */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 em_l1_event_buffer[em_l1_buffer_write++] = (UBYTE)(value >> 8); /* Data to be stored - MSB first */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 em_l1_event_buffer[em_l1_buffer_write++] = (UBYTE)(value); /* LSB second */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 return (em_l1_sem (length, em_l1_event_buffer)); /* Data is stored inside buffer, reset flag */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 \| Function : em_write_buffer_4
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 \| Description : Perform buffer check and store corresponding data in it.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 \| Parameters : Event number, data value1 & value2
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 \| Return : TRUE/FALSE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 GLOBAL UBYTE em_write_buffer_4 (UBYTE event_no, UBYTE value1, UBYTE value2)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 UBYTE em_l1_event_buffer[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 UBYTE em_l1_buffer_write = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 UBYTE length = 4;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 TRACE_FUNCTION("alr_em_write_buffer_4 ()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 ACI is informed about the first event trace, used for later data processing.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 alr_em_first_event_check();
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 memset(em_l1_event_buffer, 0, 4);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 em_l1_event_buffer[em_l1_buffer_write++] = event_no; /* Event number */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 em_l1_event_buffer[em_l1_buffer_write++] = length-2; /* Value length - 0 equals no value */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 em_l1_event_buffer[em_l1_buffer_write++] = value1; /* Data to be stored */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 em_l1_event_buffer[em_l1_buffer_write++] = value2; /* Data to be stored */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 return (em_l1_sem (length, em_l1_event_buffer)); /* Data is stored inside buffer, reset flag */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 \| Function : em_l1_sem_init
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 \| Description : Initialize the semaphor for alr event traces.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 \| Parameters : void
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 \| Return : void
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 GLOBAL void em_l1_sem_init (void)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 sem_EM_L1 = vsi_s_open (VSI_CALLER "EM_L1_SEM",1);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 if (sem_EM_L1 NEQ VSI_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 em_l1_sem_clear ();
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 SYST_TRACE ("D1:can�t open semaphore \"EM_D1_SEM\"");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 \| Function : em_l1_sem_exit
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 \| Description : Close the semaphor for alr event traces.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 \| Parameters : void
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 \| Return : void
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 GLOBAL void em_l1_sem_exit (void)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 if (sem_EM_L1 NEQ VSI_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 vsi_s_close (VSI_CALLER sem_EM_L1);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 \| Function : em_l1_sem_clear
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 \| Description : Reset the index of the semaphor.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 \| Parameters : void
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 \| Return : UBYTE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 LOCAL int em_l1_sem_clear (void)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 ENTER_CRITICAL_SECTION (sem_EM_L1);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 em_l1_sem_index = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 LEAVE_CRITICAL_SECTION (sem_EM_L1);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 SYST_TRACE ("L1:em_l1_sem_index cleared");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 return TRUE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 \| Function : em_l1_sem_reset
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 \| Description : Clears the content of the semaphor, must called after em_l1_sem_read.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 \| Parameters : void
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 \| Return : UBYTE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 GLOBAL int em_l1_sem_reset (void) /lint -esym(765,em_l1_sem_reset) \| external could be made static \| used externally /
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 /* ENTER_CRITICAL_SECTION (sem_EM_L1); */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 em_l1_sem_index = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 LEAVE_CRITICAL_SECTION (sem_EM_L1);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 SYST_TRACE ("L1:em_l1_sem_index reseted");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 return TRUE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 \| Function : em_l1_sem_read
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 \| Description : Reads the content of the semaphor.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 \| Parameters : void
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 \| Return : UBYTE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 GLOBAL int em_l1_sem_read (void) /lint -esym(765,em_l1_sem_read) \| external could be made static \| used externally /
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 USHORT semCount;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 TRACE_FUNCTION ("em_l1_sem_read()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 if (vsi_s_status (VSI_CALLER sem_EM_L1, &semCount) NEQ VSI_OK)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 alr_em_semaphore_err();
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 return TRUE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 if (semCount EQ 0)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 vsi_o_ttrace(VSI_CALLER TC_EVENT, "semCount = %d", semCount);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 SYST_TRACE ("semCount EQ 0");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 return TRUE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 ENTER_CRITICAL_SECTION (sem_EM_L1);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 * The l1/alr semaphor will be read by the engineering mode via aci,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 * therefore the functions em_l1_sem_read and em_l1_sem_reset are defined
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 * as global. To ensure that during reading only aci has access to the
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 * semaphor the macro LEAVE_CRITICAL_SECTION is called after the read process
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 * toke place - in the em_l1_sem_resest function.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 return TRUE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 Return value TRUE/FALSE - TRUE keeps the event flag valid, FALSE indicates a successful flag handle
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 \| Function : em_l1_sem
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 \| Description : Writes the data inside the semaphor.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 \| Parameters : void
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 \| Return : UBYTE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 LOCAL UBYTE em_l1_sem (UBYTE length, UBYTE *data)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 USHORT semCount;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 UBYTE i;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 TRACE_FUNCTION ("em_l1_sem()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 if (vsi_s_status (VSI_CALLER sem_EM_L1, &semCount) NEQ VSI_OK)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 alr_em_semaphore_err();
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 return TRUE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 if (semCount EQ 0)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 vsi_o_ttrace(VSI_CALLER TC_EVENT, "semCount = %d", semCount);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 SYST_TRACE ("semCount EQ 0");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 return TRUE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 * buffer overflow protection
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 if ( (em_l1_sem_index + length) > EM_L1_SEM_SIZE )
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 TRACE_FUNCTION ("alr buffer full");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 return FALSE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 ENTER_CRITICAL_SECTION(sem_EM_L1);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 for (i=0; i<length; i++)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 em_l1_sem_buffer[em_l1_sem_index++] = *(data++);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 LEAVE_CRITICAL_SECTION (sem_EM_L1);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 return FALSE; /* indicates that flag was handled */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 } /* endfunc em_l1_sem */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 \| Function : alr_em_semaphore_err
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 \| Description : Semaphor error
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 \| Parameters : void
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 \| Return : void
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 static void alr_em_semaphore_err (void)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 static UCHAR out = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 if (!out)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 out = 1;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 /* Implements Measure#32: Row 56 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 TRACE_EVENT ("semaphore error");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 \| Function : alr_em_enter_critical_section
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520 \| Description : Check on critical section entrance
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 \| Parameters : Handle
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 \| Return : -1 semaphore error
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 \| 0 Ok.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 #if defined (NEW_FRAME)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 static int alr_em_enter_critical_section (T_HANDLE sem)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 #else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 static int alr_em_enter_critical_section (T_VSI_SHANDLE sem)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 #endif /* NEW_FRAME */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 if (vsi_s_get (VSI_CALLER sem) NEQ VSI_OK)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 alr_em_semaphore_err();
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 return -1;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 return 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 }/* endfunc rr_enter_critical_section */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 \| Function : alr_em_leave_critical_section
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 \| Description : Check on critical section exit
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 \| Parameters : Handle
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 \| Return : -1 semaphore error
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 \| 0 Ok.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 #if defined (NEW_FRAME)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 static int alr_em_leave_critical_section (T_HANDLE sem)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 #else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566 static int alr_em_leave_critical_section (T_VSI_SHANDLE sem)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 #endif /* NEW_FRAME */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 if (vsi_s_release (VSI_CALLER sem) NEQ VSI_OK)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 alr_em_semaphore_err();
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 return -1;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 return 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 }/* endfunc rr_leave_critical_section */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 \| Function : alr_em_error_cause
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 \| Description : Check the error cause and store it in the event buffer
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 \| Parameters : Cause
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 \| Return : None
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 GLOBAL void alr_em_error_cause (UBYTE cause, USHORT arfcn)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 switch(cause)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 case CS_BCCH_READ_ERROR:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 { /* Power measurement request */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 ALR_EM_BCCH_READ_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 case CS_DOWN_LINK_FAIL:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 { /* Downlink signalling failure */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 ALR_EM_DOWNLINK_FAILURE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 case CS_NO_BCCH_AVAIL:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 { /* neighbourcell BCCH not available */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 ALR_EM_NEIGHBOURCELL_BCCH(EM_NOT_AVAIL);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 }/switch/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 }/* alr_em_error_cause */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 \| Function : alr_em_first_event_check()
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 \| Description : Checks if first EM-Event ocured
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 \| Parameters : None
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 \| Return : None
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626 \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 +------------------------------------------------------------------------------
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 ACI is informed about the first event trace, used for later data processing.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 LOCAL void alr_em_first_event_check (void)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 TRACE_FUNCTION("alr_em_first_event_check()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637 if(em_alr_trace_occured EQ 0)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 PALLOC(em_notification, EM_DATA_IND);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 em_notification->entity = EM_L1;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 PSENDX(MMI, em_notification);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 em_alr_trace_occured++;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 }/* alr_em_first_event_check */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 #endif /* FF_EM_MODE */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 #endif /* ALR_EM_C */

FreeCalypso > hg > fc-magnetite

annotate src/g23m-gsm/alr/alr_em.c @ 598:717ed17d82c6