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

annotate src/g23m-gsm/sim/sim_fkt.c @ 547:c3f2f79dc5b8

l1_rf12.c compiled-in default RF band tables: a round of cleanup * Uncalibrated default g_magic values changed from old Clara RF numbers (yes, Clara, not even Leonardo) to the approximately correct value for our current hw; * Uncalibrated default Rx and Tx channel calibration tables providing neutral correction values: fixed bogus ARFCNs from blind copy-n-paste between different bands; * Restored #if (ORDER2_TX_TEMP_CAL==1) in the Tx temperature compensation tables; * Fully rewrote the big comment before these rf_XXX structures to reflect the current situation. This change is part of the larger transition in FreeCalypso from reverse to forward engineering, from reconstruction of lost original bits to ongoing forward development and maintenance.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Sat, 17 Nov 2018 19:57:34 +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 : GSM-F&D (8411)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 \| Modul : SIM_FKT
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 modul defines the wrapping functions for the
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 \| SIM application.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 +-----------------------------------------------------------------------------
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 #ifndef SIM_FKT_C
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 #define SIM_FKT_C
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 #define ENTITY_SIM
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 /==== INCLUDES ===================================================/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28
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 "typedefs.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include "pconst.cdg"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include "message.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include "ccdapi.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #include "vsi.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 #include "custom.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 #include "gsm.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #include "cnf_sim.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include "mon_sim.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #include "prim.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #include "pei.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include "tok.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #include "sim.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #include "sim_em.h"
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 /==== EXPORT =====================================================/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 #ifdef _SIMULATION_
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 LOCAL USHORT first_time_into_fkt_select = TRUE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 LOCAL USHORT file_id;
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 GLOBAL USHORT stk_l_cmd = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 /==== PRIVAT =====================================================/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 /==== VARIABLES ==================================================/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 /==== FUNCTIONS ===================================================/
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 /*
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 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 \| STATE : code ROUTINE : FKT_check_pin_count \|
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 PURPOSE : PIN/PUK count is checked for secret code initialisation.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 count is set to zero, if not initialised, otherwise the
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 initialisation flag (most significant bit) is reset.
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
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 GLOBAL UBYTE FKT_check_pin_count (UBYTE count)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 if ((count & 0x80) EQ 0)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 return 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 return count & 0x0F;
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
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 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 \| STATE : code ROUTINE : FKT_convert_error \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 PURPOSE : Converts sw1 and sw2 to an unique error code for the
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 SIM application.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86
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
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 * PIN/PUK is wrong, remaining attempts
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 const static USHORT sim_inv_chv_A [6] =
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 /* last requested PIN no error code */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 /* none */ SIM_CAUSE_OTHER_ERROR,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 /* PIN 1 */ SIM_CAUSE_PIN1_EXPECT,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 /* PIN 2 */ SIM_CAUSE_PIN2_EXPECT,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 /* PUK 1 */ SIM_CAUSE_PUK1_EXPECT,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 /* PUK 2 */ SIM_CAUSE_PUK2_EXPECT,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 /* NEVER */ SIM_CAUSE_ACCESS_PROHIBIT
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
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 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 * PIN/PUK is wrong, no remaining attempts
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 const static USHORT sim_inv_chv_B [6] =
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 /* last requested PIN no error code */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 /* none */ SIM_CAUSE_OTHER_ERROR,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 /* PIN 1 */ SIM_CAUSE_PIN1_BLOCKED,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 /* PIN 2 */ SIM_CAUSE_PIN2_BLOCKED,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 /* PUK 1 */ SIM_CAUSE_PUK1_BLOCKED,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 /* PUK 2 */ SIM_CAUSE_PUK2_BLOCKED,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 /* NEVER */ SIM_CAUSE_OTHER_ERROR
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 };
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 GLOBAL USHORT FKT_convert_error (USHORT sw1sw2, USHORT size)
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 TRACE_FUNCTION ("FKT_convert_error()");
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 sim_data.sw1 = (UBYTE)(sw1sw2 >> 8);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 sim_data.sw2 = (UBYTE)sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 TRACE_EVENT_P2 ("SW1=%02X SW2=%02X", sim_data.sw1, sim_data.sw2);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 switch (sim_data.sw1)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 case 0x00:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 * SIM driver error
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 if (SIM_IS_FLAG_CLEARED(SIM_INSERT))
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 return SIM_CAUSE_CARD_REMOVED;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 if (sim_data.sw2 EQ 14)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 SIM_SET_FLAG(DRV_FAILED_RETRY);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 return SIM_CAUSE_DRV_TEMPFAIL;
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 CAUSE_MAKE(DEFBY_CONDAT, ORIGSIDE_MS, SIM_ORIGINATING_ENTITY, sim_data.sw2);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 #if defined SIM_TOOLKIT
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 case 0x9E:
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 * use SW2 as length indicator for
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 * the following get response
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 if (sim_data.sim_phase >= 3) /* Phase 2+ or higher */
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 if (sim_data.stk_profile[0] & SAT_TP1_9E_XX)
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 sim_data.sim_data_len = (sim_data.sw2 EQ 0)? 0x100: (USHORT)sim_data.sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 return SIM_CAUSE_DNL_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 return SIM_CAUSE_SAT_BUSY;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 return SIM_CAUSE_OTHER_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 case 0x93:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 if (sim_data.sim_phase >= 3) /* Phase 2+ or higher */
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 return SIM_CAUSE_SAT_BUSY;
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 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 return SIM_CAUSE_OTHER_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 case 0x91:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 if (sim_data.sim_phase >= 3) /* Phase 2+ or higher */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 sim_data.proactive_sim_data_len = (sim_data.sw2 EQ 0)? 0x100: (SHORT)sim_data.sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 return SIM_NO_ERROR;
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 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 return SIM_CAUSE_OTHER_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 case 0x92:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 if (sim_data.sw2 > 0xF)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 #ifdef REL99
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 if (sim_data.sw2 EQ SW2_MEMORY_PROBLEM)
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 return SIM_CAUSE_MEM_PROBLEM;
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 #endif /* end of ifdef REL99 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 return SIM_CAUSE_OTHER_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 /* no break (otherwise the command was successful) */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 case 0x90:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 if( (size >= 0) AND (size <= 0x100) )
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 sim_data.sim_data_len = size;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 TRACE_EVENT_P1 ("sim_data.sim_data_len updated size =%X ", size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 return SIM_NO_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 case 0x9F:
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 * use SW2 as length indicator for
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 * the following get response
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 sim_data.sim_data_len = (sim_data.sw2 EQ 0)? 0x100: (USHORT)sim_data.sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 return SIM_NO_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 case 0x94:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 switch (sim_data.sw2)
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 case 0:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 return SIM_CAUSE_NO_SELECT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 case 2:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 return SIM_CAUSE_ADDR_WRONG;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 case 4:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 return SIM_CAUSE_UNKN_FILE_ID;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 case 8:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 return SIM_CAUSE_CMD_INCONSIST;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 default:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 break;
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 break;
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 case 0x98:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 TRACE_EVENT_P1 ("LRP = %d", (int)sim_data.last_requested_pin_no);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 switch (sim_data.sw2)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 case 2:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 return SIM_CAUSE_CHV_NOTSET;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 case 8:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 return SIM_CAUSE_CHV_VALIDATED;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 case 0x10:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 return SIM_CAUSE_EF_INVALID; /* contradiction cases */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 case 4:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 return sim_inv_chv_A [sim_data.last_requested_pin_no];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 case 0x40:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 return sim_inv_chv_B [sim_data.last_requested_pin_no];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 case 0x50:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 return SIM_CAUSE_MAX_INCREASE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 default:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 break;
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 break;
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
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 return SIM_CAUSE_OTHER_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 }
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 /*
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 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 \| STATE : code ROUTINE : FKT_ChangeCHV \|
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 PURPOSE : Wrapping function for the SIM driver call SIM_ChangeCHV.
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 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 GLOBAL USHORT FKT_ChangeCHV (UBYTE * old_pin,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 UBYTE * new_pin,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 UBYTE pin_id)
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 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 UBYTE response[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 TRACE_FUNCTION ("FKT_ChangeCHV()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 sw1sw2 = SIM_ChangeCHV ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 (UBYTE *)old_pin,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 (UBYTE *)new_pin,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 (UBYTE)pin_id,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 &size);
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 FKT_convert_error (sw1sw2, size);
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 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 \| STATE : code ROUTINE : FKT_DisableCHV \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 +--------------------------------------------------------------------+
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 PURPOSE : Wrapping function for the SIM driver call SIM_DisableCHV.
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 */
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 GLOBAL USHORT FKT_DisableCHV (UBYTE * pin)
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 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 UBYTE response[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 TRACE_FUNCTION ("FKT_DisableCHV()");
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 sw1sw2 = SIM_DisableCHV ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 (UBYTE *)pin,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 }
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 /*
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 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 \| STATE : code ROUTINE : FKT_EnableCHV \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 PURPOSE : Wrapping function for the SIM driver call SIM_EnableCHV.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307
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 GLOBAL USHORT FKT_EnableCHV (UBYTE * pin)
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 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 UBYTE response[4];
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 TRACE_FUNCTION ("FKT_EnableCHV()");
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 sw1sw2 = SIM_EnableCHV ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 (UBYTE *)pin,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 &size);
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 return FKT_convert_error (sw1sw2, size);
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
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 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 \| STATE : code ROUTINE : FKT_GetResponse \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 +--------------------------------------------------------------------+
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 PURPOSE : Wrapping function for the SIM driver call SIM_GetResponse.
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 GLOBAL USHORT FKT_GetResponse (UBYTE * data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 USHORT len)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 USHORT sw1sw2;
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 TRACE_FUNCTION ("FKT_GetResponse()");
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 sw1sw2 = SIM_GetResponse ((UBYTE *)data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 len,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 return FKT_convert_error (sw1sw2, len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347
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 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 \| STATE : code ROUTINE : FKT_Increase \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 +--------------------------------------------------------------------+
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 PURPOSE : Wrapping function for the SIM driver call SIM_Increase.
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 */
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 GLOBAL USHORT FKT_Increase (UBYTE * data)
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 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 UBYTE response[4];
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 TRACE_FUNCTION ("FKT_Increase()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 sw1sw2 = SIM_Increase ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 (UBYTE *)data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 return FKT_convert_error (sw1sw2, size);
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 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 \| STATE : code ROUTINE : FKT_Invalidate \|
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
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 PURPOSE : Wrapping function for the SIM driver call SIM_Invalidate.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380
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 GLOBAL USHORT FKT_Invalidate (void)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 UBYTE response[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 TRACE_FUNCTION ("FKT_Invalidate()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 sw1sw2 = SIM_Invalidate ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 &size);
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 if (sw1sw2 EQ 0x9810) /* already invalidated */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 return SIM_NO_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 }
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
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 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 \| STATE : code ROUTINE : FKT_ReadBinary \|
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
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 PURPOSE : Wrapping function for the SIM driver call SIM_ReadBinary.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 */
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 GLOBAL USHORT FKT_ReadBinary (UBYTE * data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 USHORT offset,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 USHORT length)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 USHORT size = 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 TRACE_FUNCTION ("FKT_ReadBinary()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 sw1sw2= SIM_ReadBinary ((UBYTE *)data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 offset,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 length,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 &size);
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 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 /*
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 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 \| STATE : code ROUTINE : FKT_ReadRecord \|
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 PURPOSE : Wrapping function for the SIM driver call SIM_ReadRecord.
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 GLOBAL USHORT FKT_ReadRecord (UBYTE * data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 UBYTE mode,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 USHORT record,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 USHORT length)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 USHORT size = 0;
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 #if !defined NTRACE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 char buf[48];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 sprintf (buf, "FKT_ReadRecord(): Nr. %hu", record);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 TRACE_FUNCTION (buf);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 sw1sw2 = SIM_ReadRecord ((UBYTE *)data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 (UBYTE)mode,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 (UBYTE)record,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 length,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 &size);
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 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 }
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
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 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 \| STATE : code ROUTINE : FKT_Rehabilitate \|
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 PURPOSE : Wrapping function for the SIM driver call SIM_Rehabilitate.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470
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
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 GLOBAL USHORT FKT_Rehabilitate (void)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 UBYTE response[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 TRACE_FUNCTION ("FKT_Rehabilitate()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 sw1sw2 = SIM_Rehabilitate ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 &size);
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 if (sw1sw2 EQ 0x9810) /* already rehabilitated */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 return SIM_NO_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 return FKT_convert_error (sw1sw2, size);
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
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 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 \| STATE : code ROUTINE : FKT_Status \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 +--------------------------------------------------------------------+
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 PURPOSE : Wrapping function for the SIM driver call SIM_Status.
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 GLOBAL USHORT FKT_Status (UBYTE * pin_cnt,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502 UBYTE * pin2_cnt,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 UBYTE * puk_cnt,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 UBYTE * puk2_cnt)
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 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 USHORT cause;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 USHORT fileid;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 union
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 T_DIR_STATUS status;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 UBYTE response [40];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 } dir;
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 TRACE_FUNCTION ("FKT_Status()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 memset (dir.response, 0, sizeof(dir.response));
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 sw1sw2 = SIM_Status_Extended (dir.response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 sim_data.dir_status_len, &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 cause = FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 *pin_cnt = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 *puk_cnt = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 *pin2_cnt = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 *puk2_cnt = 0;
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 (cause EQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 * Check file id on active call: if different from last directory
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 * indicate failure during SIM Presence Detection (27.20).
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 * A selection of a non-existent DF (possible with SIM_ACCESS_REQ)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 * leads to the loss of the current DF: this confuses the SIM
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 * Presence Detection, therefore the validity of the actual DF
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 * stored in 'sim_data.act_directory' must be considered.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 fileid = (dir.status.fileid[0] << 8) \| dir.status.fileid[1];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 if (SIM_IS_FLAG_SET (CALL_ACTIVE) AND /* call active */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 sim_data.act_directory NEQ NOT_PRESENT_16BIT /* actual DF known? */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 AND fileid NEQ sim_data.act_directory) /* compare DF */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 return SIM_CAUSE_CARD_REMOVED;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 else
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 if (SIM_TI_DRV_X_BYTES > 0) /* discard SW1, SW2 from response! */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 memset (&dir.response[sim_data.dir_status_len], 0, SIM_TI_DRV_X_BYTES);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 * Directory status is available
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 *pin_cnt = FKT_check_pin_count (dir.status.pinstatus);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 *puk_cnt = FKT_check_pin_count (dir.status.unbstatus);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 *pin2_cnt = FKT_check_pin_count (dir.status.pin2status);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 *puk2_cnt = FKT_check_pin_count (dir.status.unb2status);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 return cause;
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 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566 \| STATE : code ROUTINE : FKT_RunGSMAlgo \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 +--------------------------------------------------------------------+
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 PURPOSE : Wrapping function for the SIM driver call SIM_RunGSMAlgo.
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 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 GLOBAL USHORT FKT_RunGSMAlgo (UBYTE * rand, UBYTE * data, USHORT len)
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 UBYTE response[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 USHORT error;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 TRACE_FUNCTION ("FKT_RunGSMAlgo()");
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 sw1sw2 = SIM_RunGSMAlgo ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 (UBYTE *)rand,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 error = FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 if (error EQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 error = FKT_GetResponse (data, len);
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 return error;
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 /*
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 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 \| STATE : code ROUTINE : FKT_Select \|
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
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 PURPOSE : Wrapping function for the SIM driver call SIM_Select.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 LOCAL USHORT fkt_select_one (USHORT id, UBYTE * data, USHORT len)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 USHORT error;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 UBYTE response[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 sw1sw2 = SIM_Select (id,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 (UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 error = FKT_convert_error (sw1sw2, size);
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 if (error EQ SIM_NO_ERROR)
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 if( (data NEQ NULL )
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 AND (len NEQ 0 )
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 #ifdef _SIMULATION_
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 AND (id EQ file_id)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 #endif
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 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626 #ifdef _SIMULATION_
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 len = (sim_data.sim_data_len < len)?
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 sim_data.sim_data_len: len;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629 first_time_into_fkt_select = TRUE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 error = FKT_GetResponse (data, sim_data.sim_data_len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 }
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 return error;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637
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
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 \| STATE : code ROUTINE : sim_select_df \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 +--------------------------------------------------------------------+
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 PURPOSE : Function to select the directory given the path.
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 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 LOCAL USHORT sim_select_df(U16 dir_level,UBYTE *data,USHORT len)
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 USHORT result = SIM_NO_ERROR;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 result = fkt_select_one (dir_level, data, len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 if (result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 sim_data.act_directory = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 sim_data.act_field = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661 sim_data.act_directory = dir_level;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 \| STATE : code ROUTINE : FKT_Select \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 PURPOSE : Wrapping function for the SIM driver call SIM_Select.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 GLOBAL USHORT FKT_Select (USHORT id,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676 BOOL path_info_present, T_path_info * path_info_ptr,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 UBYTE * data, USHORT len)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 USHORT result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 USHORT directory = (SIM_IS_FLAG_SET (GSM_DATAFIELD))?
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681 SIM_DF_GSM: SIM_DF_1800; /* default parent directory */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683 #if !defined NTRACE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684 char buf[32];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 sprintf (buf, "FKT_Select(): id = %04X", id);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687 TRACE_FUNCTION (buf);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 #ifdef _SIMULATION_
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 if( (first_time_into_fkt_select EQ TRUE ) AND
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 (data NEQ NULL) AND (len NEQ 0) )
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693 file_id = id;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697 switch (id & 0xFF00) /* selecting DF deselects EF */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699 case 0x3F00:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 case 0x7F00:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701 case 0x5F00:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702 sim_data.act_field = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706 if( path_info_present NEQ FALSE )
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 if((sim_data.act_directory & 0xFF00) NEQ 0x5F00 AND
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709 sim_data.act_directory NEQ NOT_PRESENT_16BIT)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 /* Currently selected df is MF or a first level directory */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712 if(sim_data.act_directory NEQ path_info_ptr->df_level1)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 result = sim_select_df(path_info_ptr->df_level1,data,len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715 if(result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 /* Currently selected df is a second level directory */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722 result = sim_select_df(SIM_MF,data,len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 if(result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725 result = sim_select_df(path_info_ptr->df_level1,data,len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726 if(result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 if(path_info_ptr->v_df_level2)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 result = sim_select_df(path_info_ptr->df_level2,data,len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 if(result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 result = fkt_select_one (id, data, len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736 if (result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 sim_data.act_field = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743 sim_data.act_field = id;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 switch (id)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 case SIM_MF:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752 result = fkt_select_one (SIM_MF, data, len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753 if (result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754 sim_data.act_directory = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757 sim_data.dir_status_len = sim_data.sim_data_len;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758 sim_data.act_directory = id;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 default:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 /* All the standard defined EFs would be handled before coming to this
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764 * point. Complete path information should be given for non-standard 2nd level EFs
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 * and they also would be handled before coming to this point.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 * This statement will be hit for non-standard files
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767 * without path information. Hence returning error */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768 return SIM_CAUSE_UNKN_FILE_ID;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769 break; /* any other elementary file */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771 /* continue here in case of any first level directory */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 case SIM_DF_GSM:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773 case SIM_DF_1800:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 case SIM_DF_TELECOM:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 case SIM_DF_VI:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 case SIM_DF_ORANGE:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777 if (sim_data.act_directory EQ id)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778 return SIM_NO_ERROR; /* already selected */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781 /* If current directory has not been selected or it is a
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782 2nd level and under another 1st level DF */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783 if (((sim_data.act_directory & 0xFF00) EQ 0x5F00 AND
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784 ! SIM_IS_DF_LEVEL2_UNDER_DF_LEVEL1(sim_data.act_directory,id))
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 OR sim_data.act_directory EQ NOT_PRESENT_16BIT)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786 { /* MF has to be selected first */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 result = sim_select_df(SIM_MF,data,len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788 if(result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 result = fkt_select_one (id, data, len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792 if (result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794 sim_data.act_directory = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 sim_data.act_field = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799 sim_data.dir_status_len = sim_data.sim_data_len;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 sim_data.act_directory = id;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 case SIM_DF_GRAPHICS:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 directory = SIM_DF_TELECOM; /* parent directory */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806 /* no break */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807 /lint -fallthrough/
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808 case SIM_DF_SOLSA:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809 case SIM_DF_MEXE:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 if (sim_data.act_directory EQ id)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811 return SIM_NO_ERROR; /* already selected */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813 if (sim_data.act_directory NEQ directory)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814 { /* not the parent directory */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 /* If current directory is MF or first level OR if the 2nd level
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816 directory is under another 1st level df, select the parent directory */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 if((sim_data.act_directory & 0xFF00) NEQ 0x5F00 \|\|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818 (!SIM_IS_DF_LEVEL2_UNDER_DF_LEVEL1(sim_data.act_directory,directory)) )
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820 result = FKT_Select (directory, FALSE, NULL, data, len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 if (result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823 sim_data.act_directory = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828 result = fkt_select_one (id, data, len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829 if (result NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 sim_data.act_directory = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832 sim_data.act_field = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836 sim_data.dir_status_len = sim_data.sim_data_len;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 sim_data.act_directory = id;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841 case SIM_ICCID:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842 case SIM_ELP:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844 * Access to Root Directory
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846 directory = SIM_MF;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849 case SIM_ADN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850 case SIM_FDN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851 case SIM_SMS:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852 case SIM_CCP:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853 case SIM_MSISDN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854 case SIM_SMSP:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855 case SIM_SMSS:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856 case SIM_LND:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857 case SIM_SMSR:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858 case SIM_SDN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859 case SIM_EXT1:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 case SIM_EXT2:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 case SIM_EXT3:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862 case SIM_BDN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863 case SIM_EXT4:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864 /* VO temp PATCH: Needed for reading CPHS info num from old SIMs */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	865 case SIM_CPHS_INFN2:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	866 /* VO temp PATCH end */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868 * Access to Telecom Directory
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870 directory = SIM_DF_TELECOM;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873 case SIM_LP:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 case SIM_IMSI:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875 case SIM_KC:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 case SIM_PLMNSEL:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877 case SIM_HPLMN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878 case SIM_ACMMAX:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 case SIM_SST:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 case SIM_ACM:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881 case SIM_GID1:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882 case SIM_GID2:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 case SIM_PUCT:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884 case SIM_CBMI:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885 case SIM_SPN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886 case SIM_CBMID:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887 case SIM_BCCH:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888 case SIM_ACC:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 case SIM_FPLMN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890 case SIM_LOCI:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891 case SIM_AD:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892 case SIM_PHASE:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893 case SIM_VGCS:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894 case SIM_VGCSS:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895 case SIM_VBS:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896 case SIM_VBSS:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897 case SIM_EMLPP:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898 case SIM_AAEM:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899 case SIM_ECC:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900 case SIM_CBMIR:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901 case SIM_DCK:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902 case SIM_CNL:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903 case SIM_NIA:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904 case SIM_KCGPRS:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905 case SIM_LOCGPRS:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906 case SIM_SUME:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907 case SIM_CPHS_VMW:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 case SIM_CPHS_SST:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909 case SIM_CPHS_CFF:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910 case SIM_CPHS_ONSTR:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911 case SIM_CPHS_CSP:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912 case SIM_CPHS_CINF:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913 case SIM_CPHS_MBXN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914 case SIM_CPHS_ONSHF:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915 case SIM_CPHS_INFN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917 #ifdef REL99
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918 case SIM_UCPS_ACTEC:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919 case SIM_OCPS_ACTEC:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920 case SIM_HPLMN_ACT:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921 case SIM_CPBCCH:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 case SIM_INV_SCAN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923 case SIM_RPLMN_ACT:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 #endif /* REL99 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925 case SIM_PNN:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926 case SIM_OPL:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	929 * Access to GSM
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931 directory = (SIM_IS_FLAG_SET (GSM_DATAFIELD))?
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 SIM_DF_GSM: SIM_DF_1800;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 #ifndef REL99
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936 case SIM_VI_HZ_PARAM:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937 case SIM_VI_HZ_CACHE_1:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938 case SIM_VI_HZ_CACHE_2:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939 case SIM_VI_HZ_CACHE_3:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940 case SIM_VI_HZ_CACHE_4:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	941 directory = SIM_DF_VI;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	942 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	943 #endif /* ifndef REL99 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	944
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	945 case SIM_MEXE_ST:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	946 case SIM_ORPK:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	947 case SIM_ARPK:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	948 case SIM_TPRPK:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	949 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	950 * Access to MExE Directory
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	951 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	952 directory = SIM_DF_MEXE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	953 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	954 case SIM_IMG:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	955 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	956 * Access to Icon Directory
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	957 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	958 directory = SIM_DF_GRAPHICS;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	959 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	960
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	961 case SIM_ORANGE_DYN2_FLAG:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	962 case SIM_ORANGE_CSP2:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	963 case SIM_ORANGE_ACM2:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	964 case SIM_ORANGE_DYN_FLAGS:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	965 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	966 * Access to Orange Directory
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	967 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	968 directory = SIM_DF_ORANGE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	969 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	970
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	971 case SIM_SAI:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	972 case SIM_SLL:
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	973 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	974 * Access to SoLSA Directory
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	975 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	976 directory = SIM_DF_SOLSA;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	977 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	978 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	979 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	980
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	981 if (sim_data.act_directory NEQ directory)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	982 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	983 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	984 * select directory
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	985 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	986 #ifdef _SIMULATION_
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	987
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	988 if( (data NEQ NULL) AND (len NEQ 0) )
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	989 first_time_into_fkt_select = FALSE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	990 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	991 result = FKT_Select (directory, FALSE, NULL, data, len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	992 if (result NEQ SIM_NO_ERROR) /* directory selection fails */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	993 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	994 sim_data.act_directory = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	995 sim_data.act_field = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	996 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	997 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	998 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	999
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1000 if (sim_data.act_field NEQ id)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1001 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1002 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1003 * secondly select elementary field
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1004 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1005 result = fkt_select_one (id, data, len);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1006 if (result NEQ SIM_NO_ERROR) /* EF selection fails */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1007 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1008 sim_data.act_field = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1009 #ifdef __INVALID /* more sophisticated SELECT error handling */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1010
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1011 sw1 = (UBYTE)(SIM_Status_Extended ((UBYTE *)response, 6, &size) >> 8);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1012
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1013 if (sw1 NEQ 0x90 AND sw1 NEQ 0x91)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1014 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1015 * SIM Status request failed
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1016 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1017 sim_data.act_directory = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1018 else if (((response[4] << 8) \| response[5])
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1019 NEQ sim_data.act_directory)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1020 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1021 * SIM Presence Detection indicates invalid SIM
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1022 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1023 sim_data.act_directory = NOT_PRESENT_16BIT;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1024 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1025 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1026 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1027 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1028 sim_data.act_directory = directory;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1029 sim_data.act_field = id;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1030 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1031 return result;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1032 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1033 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1034 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1035 * field is already selected
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1036 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1037 return SIM_NO_ERR_FILE_ALREADY_SELECTED;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1038 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1039
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1040
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1041
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1042 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1043 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1044 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1045 \| STATE : code ROUTINE : FKT_UnblockCHV \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1046 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1047
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1048 PURPOSE : Wrapping function for the SIM driver call SIM_UnblockCHV.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1049
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1050 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1051
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1052 GLOBAL USHORT FKT_UnblockCHV (UBYTE * unblockCHV,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1053 UBYTE * new_CHV,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1054 UBYTE chvType)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1055 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1056 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1057 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1058 UBYTE response[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1059
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1060 TRACE_FUNCTION ("FKT_UnblockCHV()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1061
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1062 sw1sw2 = SIM_UnblockCHV ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1063 (UBYTE *)unblockCHV,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1064 (UBYTE *)new_CHV,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1065 (UBYTE)chvType,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1066 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1067
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1068 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1069 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1070
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1071
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1072 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1073 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1074 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1075 \| STATE : code ROUTINE : FKT_UpdateBinary \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1076 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1077
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1078 PURPOSE : Wrapping function for the SIM driver call SIM_UpdateBinary.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1079
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1080 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1081
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1082 GLOBAL USHORT FKT_UpdateBinary (UBYTE * data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1083 USHORT length,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1084 USHORT offset)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1085 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1086 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1087 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1088 UBYTE response [4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1089
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1090 TRACE_FUNCTION ("FKT_UpdateBinary()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1091
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1092 sw1sw2 = SIM_UpdateBinary ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1093 (UBYTE *)data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1094 offset,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1095 length,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1096 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1097
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1098 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1099 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1100
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1101
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1102 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1103 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1104 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1105 \| STATE : code ROUTINE : FKT_UpdateRecord \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1106 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1107
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1108 PURPOSE : Wrapping function for the SIM driver call SIM_UpdateRecord.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1109
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1110 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1111
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1112 GLOBAL USHORT FKT_UpdateRecord (UBYTE * data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1113 USHORT length,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1114 UBYTE mode,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1115 USHORT record)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1116 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1117 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1118 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1119 UBYTE response [4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1120
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1121 #if !defined NTRACE
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1122 char buf[48];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1123 sprintf (buf, "FKT_UpdateRecord(): Nr. %hu", record);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1124 TRACE_FUNCTION (buf);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1125 #endif
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1126
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1127 sw1sw2 = SIM_UpdateRecord ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1128 (UBYTE *)data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1129 (UBYTE)mode,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1130 (UBYTE)record,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1131 length,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1132 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1133
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1134 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1135 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1136
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1137
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1138
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1139 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1140 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1141 \| PROJECT : GSM-PS (6302) MODULE : SIM_FKT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1142 \| STATE : code ROUTINE : FKT_VerifyCHV \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1143 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1144
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1145 PURPOSE : Wrapping function for the SIM driver call SIM_VerifyCHV.
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1146
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1147 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1148
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1149 GLOBAL USHORT FKT_VerifyCHV (UBYTE * pin,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1150 UBYTE pin_id)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1151 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1152 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1153 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1154 UBYTE response[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1155
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1156 TRACE_FUNCTION ("FKT_VerifyCHV()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1157
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1158 sw1sw2 = SIM_VerifyCHV ((UBYTE *)response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1159 (UBYTE *)pin,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1160 (UBYTE)pin_id,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1161 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1162
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1163 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1164 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1165
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1166 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1167 +********************************************************************+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1168 \| Moved from sim_stk.c - for CQ 34109 under feature flag SIM_TOOLKIT \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1169 +********************************************************************+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1170 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1171
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1172 #ifdef SIM_TOOLKIT
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1173
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1174 static const UBYTE timer_env[] = {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1175 STK_TIMER_EXPIRATION_TAG,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1176 STK_DEVICE_IDENTITY_LEN+STK_TIMER_ID_LEN+STK_TIMER_VALUE_LEN+6,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1177 STK_DEVICE_IDENTITY_TAG\|STK_COMPREHENSION_REQUIRED, STK_DEVICE_IDENTITY_LEN, 0x82, 0x81,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1178 STK_TIMER_ID_TAG\|STK_COMPREHENSION_REQUIRED, STK_TIMER_ID_LEN, 0,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1179 STK_TIMER_VALUE_TAG\|STK_COMPREHENSION_REQUIRED, STK_TIMER_VALUE_LEN, 0, 0, 0
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1180 };
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1181
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1182 UBYTE pending_timers[9] = {0,0,0,0,0,0,0,0,0};
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1183 UBYTE next_pos_to_fill = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1184 UBYTE next_pos_to_send = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1185
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1186 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1187 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1188 \| PROJECT : GSM-PS (8419) MODULE : SIM_STK \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1189 \| STATE : code ROUTINE : FKT_TerminalResponse \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1190 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1191
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1192 PURPOSE : Wrapping function for the SIM driver call SIM_TerminalResponse
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1193
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1194 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1195
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1196 GLOBAL USHORT FKT_TerminalResponse (UBYTE * data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1197 USHORT length)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1198 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1199 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1200 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1201 UBYTE response[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1202 UBYTE env[sizeof(timer_env)];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1203 USHORT index;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1204 UBYTE dummy[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1205 USHORT error;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1206 USHORT i;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1207
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1208 TRACE_FUNCTION ("FKT_TerminalResponse()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1209
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1210 sw1sw2 = SIM_TerminalResponse (response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1211 data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1212 length,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1213 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1214 sim_data.term_resp_sent = TRUE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1215
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1216 SIM_EM_TERMINAL_RESPONSE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1217 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1218 * if SIM response is OK, try resending pending timer expiry envelopes (send updated envelopes)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1219 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1220 if( 0x9000 == sw1sw2 )
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1221 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1222 for(i=0;i<8;i++)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1223 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1224 if (next_pos_to_fill != next_pos_to_send)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1225 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1226 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1227 * some timer expiry envelopes are pending
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1228 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1229 index = pending_timers[next_pos_to_send];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1230 memcpy (env, timer_env, sizeof(timer_env));
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1231 env[8] = (UBYTE)(index + 1); /* Timer number range is 1..8 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1232 env[11] = sim_data.timer[index].hour;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1233 env[12] = sim_data.timer[index].minute;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1234 env[13] = sim_data.timer[index].second;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1235 error = FKT_Envelope (dummy, env, sizeof(timer_env),0);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1236 if(8 == next_pos_to_send)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1237 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1238 next_pos_to_send = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1239 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1240 else
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1241 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1242 next_pos_to_send++;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1243 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1244 if (error NEQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1245 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1246 break;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1247 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1248 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1249 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1250 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1251
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1252 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1253 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1254
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1255
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1256 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1257 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1258 \| PROJECT : GSM-PS (8419) MODULE : SIM_STK \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1259 \| STATE : code ROUTINE : FKT_Envelope \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1260 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1261
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1262 PURPOSE : Wrapping function for the SIM driver call SIM_Envelope
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1263
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1264 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1265
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1266 GLOBAL USHORT FKT_Envelope (UBYTE * data_out, UBYTE * data_in,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1267 USHORT in_length, USHORT out_length)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1268 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1269
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1270 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1271 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1272 USHORT error;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1273
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1274
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1275 TRACE_FUNCTION ("FKT_Envelope()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1276
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1277 sw1sw2 = SIM_Envelope (data_out,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1278 data_in,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1279 in_length,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1280 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1281
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1282 SIM_EM_ENVELOPE;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1283
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1284 error = FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1285
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1286 if(sw1sw2 EQ 0x9000)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1287 sim_data.sim_data_len = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1288
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1289 if (error EQ SIM_NO_ERROR)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1290 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1291 if (data_out AND out_length)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1292 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1293 if (sim_data.sim_data_len > 0)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1294 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1295 stk_l_cmd = sim_data.sim_data_len << 3;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1296 out_length = (USHORT) (stk_l_cmd >> 3);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1297 error = FKT_GetResponse (data_out, out_length);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1298 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1299 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1300 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1301
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1302 return error;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1303
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1304 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1305
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1306 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1307 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1308 \| PROJECT : GSM-PS (8419) MODULE : SIM_STK \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1309 \| STATE : code ROUTINE : FKT_TerminalProfile \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1310 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1311
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1312 PURPOSE : Wrapping function for the SIM driver call SIM_TerminalProfile
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1313
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1314 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1315
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1316 GLOBAL USHORT FKT_TerminalProfile (UBYTE * data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1317 USHORT length)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1318 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1319 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1320 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1321 UBYTE response[4];
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1322
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1323 TRACE_FUNCTION ("FKT_TerminalProfile()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1324
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1325 sw1sw2 = SIM_TerminalProfile (response,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1326 data,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1327 length,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1328 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1329
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1330 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1331
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1332 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1333
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1334
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1335 /*
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1336 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1337 \| PROJECT : GSM-PS (8419) MODULE : SIM_STK \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1338 \| STATE : code ROUTINE : FKT_Fetch \|
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1339 +--------------------------------------------------------------------+
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1340
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1341 PURPOSE : Wrapping function for the SIM driver call SIM_Fetch
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1342
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1343 */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1344
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1345 GLOBAL USHORT FKT_Fetch (UBYTE * cmd,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1346 USHORT length)
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1347 {
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1348 USHORT size = 0;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1349 USHORT sw1sw2;
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1350
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1351 TRACE_FUNCTION ("FKT_Fetch()");
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1352
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1353 sw1sw2 = SIM_Fetch (cmd,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1354 length,
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1355 &size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1356
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1357 return FKT_convert_error (sw1sw2, size);
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1358
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1359 }
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1360
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1361 #endif /* SIM_TOOLKIT */
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1362
27a4235405c6 src/g23m-gsm: import from LoCosto source Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1363 #endif

FreeCalypso > hg > fc-magnetite

annotate src/g23m-gsm/sim/sim_fkt.c @ 547:c3f2f79dc5b8