freecalypso-citrine: bsp/abb+spi/abb.c annotate

author	Mychaela Falconia <falcon@freecalypso.org>
date	Thu, 09 Jun 2016 00:02:41 +0000
parents
children

rev	line source
0 75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /******************************************************************************/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 /* TEXAS INSTRUMENTS INCORPORATED PROPRIETARY INFORMATION */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 /* Property of Texas Instruments -- For Unrestricted Internal Use Only */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 /* Unauthorized reproduction and/or distribution is strictly prohibited. This*/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 /* product is protected under copyright law and trade secret law as an*/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 /* unpublished work. Created 1987, (C) Copyright 1997 Texas Instruments. All*/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 /* rights reserved. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 /* Filename : abb.c */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 /* Description : Functions to drive the ABB device. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 /* The Serial Port Interface is used to connect the TI */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 /* Analog BaseBand (ABB). */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 /* It is assumed that the ABB is connected as the SPI */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 /* device 0. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 /* Author : Pascal PUEL */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 /* Version number : 1.3 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 /* Date and time : 08/22/03 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 /* Previous delta : Creation */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 /******************************************************************************/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 #include "../../include/config.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 #include "../../include/sys_types.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include "../../riviera/rv/general.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include "../../nucleus/nucleus.h" // for NUCLEUS functions and types
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #include "../../L1/include/l1_confg.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 #include "../../L1/include/l1_macro.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #include "abb.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include "../clkm.h" // for wait_ARM_cycles function
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #include "abb_inline.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #include "../ulpd.h" // for FRAME_STOP definition
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #include "../../L1/include/l1_types.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #if 0 // FreeCalypso
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #include "buzzer/buzzer.h" // for BZ_KeyBeep_OFF function
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 #if (VCXO_ALGO == 1)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #include "../../L1/include/l1_ctl.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 #if (RF_FAM == 35)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 #include "../../L1/cust0/l1_rf35.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 #if (RF_FAM == 12)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #include "../../L1/tpudrv/tpudrv12.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 #include "../../L1/cust0/l1_rf12.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 #if (RF_FAM == 10)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 #include "../../L1/cust0/l1_rf10.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 #if (RF_FAM == 8)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 #include "../../L1/cust0/l1_rf8.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 #if (RF_FAM == 2)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 #include "../../L1/cust0/l1_rf2.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 #if (ABB_SEMAPHORE_PROTECTION)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 static NU_SEMAPHORE abb_sem;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 /-----------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 /* ABB_Sem_Create() */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 /* This function creates the Nucleus semaphore to protect ABB accesses */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 /* against preemption. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 /* No check on the result. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 /-----------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 void ABB_Sem_Create(void)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 // create a semaphore with an initial count of 1 and with FIFO type suspension.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 NU_Create_Semaphore(&abb_sem, "ABB_SEM", 1, NU_FIFO);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 #endif // ABB_SEMAPHORE_PROTECTION
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 /-----------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 /* ABB_Wait_IBIC_Access() */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 /* This function waits for the first IBIC access. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 /-----------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 void ABB_Wait_IBIC_Access(void)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 #if (ANALOG ==1)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 // Wait 6 OSCAS cycles (100 KHz) for first IBIC access
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 // (i.e wait 60us + 10% security marge = 66us)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 wait_ARM_cycles(convert_nanosec_to_cycles(66000));
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 #elif ((ANALOG ==2) \|\| (ANALOG == 3))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 // Wait 6 x 32 KHz clock cycles for first IBIC access
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 // (i.e wait 187us + 10% security marge = 210us)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 wait_ARM_cycles(convert_nanosec_to_cycles(210000));
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 /-----------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 /* ABB_Write_Register_on_page() */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 /* This function manages all the spi serial transfer to write to an */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 /* ABB register on a specified page. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 /-----------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 void ABB_Write_Register_on_page(SYS_UWORD16 page, SYS_UWORD16 reg_id, SYS_UWORD16 value)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 volatile SYS_UWORD16 status;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 // Start spi clock, mask IT for WR and read SPI_REG_STATUS to reset the RE and WE flags.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 SPI_Ready_for_WR
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 #if ((ABB_SEMAPHORE_PROTECTION == 1) \|\| (ABB_SEMAPHORE_PROTECTION == 2) \|\| (ABB_SEMAPHORE_PROTECTION == 3))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 // check if the semaphore has been correctly created and try to obtain it.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 // if the semaphore cannot be obtained, the task is suspended and then resumed
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 // as soon as the semaphore is released.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 if(&abb_sem != 0)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 #endif // ABB_SEMAPHORE_PROTECTION
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 // set the ABB page for register access
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 ABB_SetPage(page);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 // Write value in reg_id
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 ABB_WriteRegister(reg_id, value);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 // set the ABB page for register access at page 0
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 ABB_SetPage(PAGE0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 #if ((ABB_SEMAPHORE_PROTECTION == 1) \|\| (ABB_SEMAPHORE_PROTECTION == 2) \|\| (ABB_SEMAPHORE_PROTECTION == 3))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 // release the semaphore only if it has correctly been created.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 if(&abb_sem != 0)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 NU_Release_Semaphore(&abb_sem);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 #endif // ABB_SEMAPHORE_PROTECTION
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 // Stop the SPI clock
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 #ifdef SPI_CLK_LOW_POWER
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 SPI_CLK_DISABLE
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 /-----------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 /* ABB_Read_Register_on_page() */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 /* This function manages all the spi serial transfer to read one */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 /* ABB register on a specified page. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 /* Returns the real data value of the register. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 /-----------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 SYS_UWORD16 ABB_Read_Register_on_page(SYS_UWORD16 page, SYS_UWORD16 reg_id)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 volatile SYS_UWORD16 status;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 SYS_UWORD16 reg_val;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 // Start spi clock, mask IT for RD and WR and read SPI_REG_STATUS to reset the RE and WE flags.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 SPI_Ready_for_RDWR
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 #if ((ABB_SEMAPHORE_PROTECTION == 1) \|\| (ABB_SEMAPHORE_PROTECTION == 2) \|\| (ABB_SEMAPHORE_PROTECTION == 3))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 // check if the semaphore has been correctly created and try to obtain it.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 // if the semaphore cannot be obtained, the task is suspended and then resumed
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 // as soon as the semaphore is released.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 if(&abb_sem != 0)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 #endif // ABB_SEMAPHORE_PROTECTION
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 /* set the ABB page for register access */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 ABB_SetPage(page);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 /* Read selected ABB register */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 reg_val = ABB_ReadRegister(reg_id);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 /* set the ABB page for register access at page 0 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 ABB_SetPage(PAGE0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 #if ((ABB_SEMAPHORE_PROTECTION == 1) \|\| (ABB_SEMAPHORE_PROTECTION == 2) \|\| (ABB_SEMAPHORE_PROTECTION == 3))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 // release the semaphore only if it has correctly been created.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 if(&abb_sem != 0)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 NU_Release_Semaphore(&abb_sem);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 #endif // ABB_SEMAPHORE_PROTECTION
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 // Stop the SPI clock
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 #ifdef SPI_CLK_LOW_POWER
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 SPI_CLK_DISABLE
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 return (reg_val); // Return result
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 /------------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 /* ABB_free_13M() */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 /* This function sets the 13M clock working in ABB. A wait loop */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 /* is required to allow first slow access to ABB clock register. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 /* WARNING !! : this function must not be protected by semaphore !! */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 /------------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 void ABB_free_13M(void)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 volatile SYS_UWORD16 status;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 // Start spi clock, mask IT for WR and read SPI_REG_STATUS to reset the RE and WE flags.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 SPI_Ready_for_WR
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 ABB_SetPage(PAGE0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 // This transmission frees the CLK13 in ABB.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 ABB_WriteRegister(TOGBR2, 0x08);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 // Wait for first IBIC access
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 ABB_Wait_IBIC_Access();
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 // SW Workaround : This transmission has to be done twice.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 ABB_WriteRegister(TOGBR2, 0x08);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 // Wait for first IBIC access
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 ABB_Wait_IBIC_Access();
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 // Stop the SPI clock
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 #ifdef SPI_CLK_LOW_POWER
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 SPI_CLK_DISABLE
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 /------------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 /* ABB_stop_13M() */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 /* This function stops the 13M clock in ABB. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 /------------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 void ABB_stop_13M(void)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 volatile SYS_UWORD16 status;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 // Start spi clock, mask IT for WR and read SPI_REG_STATUS to reset the RE and WE flags.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 SPI_Ready_for_WR
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 ABB_SetPage(PAGE0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 // Set ACTIVMCLK = 0.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 ABB_WriteRegister(TOGBR2, 0x04);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 // Wait for first IBIC access
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 ABB_Wait_IBIC_Access();
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 // Stop the SPI clock
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 #ifdef SPI_CLK_LOW_POWER
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 SPI_CLK_DISABLE
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 /------------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 /* ABB_Read_Status() */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 /* This function reads and returns the value of VRPCSTS ABB register. */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 /------------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 SYS_UWORD16 ABB_Read_Status(void)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 volatile SYS_UWORD16 status;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 SYS_UWORD16 reg_val;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 // Start spi clock, mask IT for WR and read SPI_REG_STATUS to reset the RE and WE flags.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 SPI_Ready_for_WR
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 #if ((ABB_SEMAPHORE_PROTECTION == 2) \|\| (ABB_SEMAPHORE_PROTECTION == 3))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 // check if the semaphore has been correctly created and try to obtain it.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 // if the semaphore cannot be obtained, the task is suspended and then resumed
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 // as soon as the semaphore is released.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 if(&abb_sem != 0)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 #endif // ABB_SEMAPHORE_PROTECTION
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 ABB_SetPage(PAGE0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 #if (ANALOG == 1) \|\| (ANALOG == 2)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 ABB_SetPage(PAGE0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 reg_val = ABB_ReadRegister(VRPCSTS);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 #elif (ANALOG == 3)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 ABB_SetPage(PAGE1);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 reg_val = ABB_ReadRegister(VRPCCFG);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 #if ((ABB_SEMAPHORE_PROTECTION == 2) \|\| (ABB_SEMAPHORE_PROTECTION == 3))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 // release the semaphore only if it has correctly been created.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 if(&abb_sem != 0)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 NU_Release_Semaphore(&abb_sem);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 #endif // ABB_SEMAPHORE_PROTECTION
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 // Stop the SPI clock
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 #ifdef SPI_CLK_LOW_POWER
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 SPI_CLK_DISABLE
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 return (reg_val);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 /------------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 /* ABB_on() */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 /* This function configures ABB registers to work in ON condition */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 /* */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 /------------------------------------------------------------------------/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 void ABB_on(SYS_UWORD16 modules, SYS_UWORD8 bRecoveryFlag)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 volatile SYS_UWORD16 status;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 #if ((ANALOG ==2) \|\| (ANALOG == 3))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 SYS_UWORD32 reg;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 // a possible cause of the recovery is that ABB is on Oscas => switch from Oscas to CLK13
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 if (bRecoveryFlag)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 // RESTITUTE 13MHZ CLOCK TO ABB
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 //---------------------------------------------------
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 ABB_free_13M();
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 // RESTITUTE 13MHZ CLOCK TO ABB AGAIN (C.F. BUG1719)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 //---------------------------------------------------
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 ABB_free_13M();
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 // Start spi clock, mask IT for RD and WR and read SPI_REG_STATUS to reset the RE and WE flags.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 SPI_Ready_for_RDWR
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 #if (ABB_SEMAPHORE_PROTECTION == 3)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 // check if the semaphore has been correctly created and try to obtain it.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 // if the semaphore cannot be obtained, the task is suspended and then resumed
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 // as soon as the semaphore is released.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 if(&abb_sem != 0)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 #endif // ABB_SEMAPHORE_PROTECTION
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 ABB_SetPage(PAGE0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 // This transmission disables MADC,AFC,VDL,VUL modules.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 ABB_WriteRegister(TOGBR1, 0x0155);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 #if (ANALOG == 1)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 // This transmission disables Band gap fast mode Enable BB charge.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 ABB_WriteRegister(VRPCCTL2, 0x1fc);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 /* ********* DC/DC enabling selection ************************************************************ */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 // This transmission changes the register page in OMEGA for usp to pg1.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 ABB_SetPage(PAGE1);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 /* Insert here accesses to modify DC/DC parameters. Default is a switching frequency of 240 Khz */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 SYS_UWORD8 vrpcctrl3_data;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 #if (CHIPSET == 9) \|\| (CHIPSET == 10) \|\| (CHIPSET == 11)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 vrpcctrl3_data = 0x007d; // core voltage 1.4V for C035
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 #else
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 vrpcctrl3_data = 0x00bd; // core voltage 1.8V for C05
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 if(modules & DCDC) // check if the DCDC is enabled
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 vrpcctrl3_data \|= 0x0002; // set DCDCEN
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 // This access disables the DCDC.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 ABB_WriteRegister(VRPCCTRL3, vrpcctrl3_data);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 /* ********************** SELECTION OF TEST MODE FOR ABB ************************************** */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 /* This test configuration allows visibility on BULENA,BULON,BDLON,BDLENA on test pins */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 /* ***************************************************************************************************/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 #if (BOARD==6)&& (ANALOG==1) //BUG01967 to remove access to TAPCTRL (EVA4 board and Nausica)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 // This transmission enables Omega test register.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 ABB_WriteRegister(TAPCTRL, 0x01);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 // This transmission select Omega test instruction.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 ABB_WriteRegister(TAPREG, TSPTEST1);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 // This transmission disables Omega test register.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 ABB_WriteRegister(TAPCTRL, 0x00);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 /* *************************************************************************************************** */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 if (!bRecoveryFlag) // Check recovery status from L1, prevent G23 SIM issue
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 // This transmission changes SIM power supply to 3 volts.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 ABB_WriteRegister(VRPCCTRL1, 0x45);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 ABB_SetPage(PAGE0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 // This transmission enables selected OMEGA modules.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 ABB_WriteRegister(TOGBR1, (modules & ~DCDC) >> 6);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 if(modules & MADC) // check if the ADC is enabled
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 // This transmission connects the resistive divider to MB and BB.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 ABB_WriteRegister(BCICTL1, 0x0005);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 #elif ((ANALOG == 2) \|\| (ANALOG == 3))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 // Restore the ABB checks and debouncing if start on TESTRESETZ
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 // This transmission changes the register page in the ABB for usp to pg1.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 ABB_SetPage(PAGE1);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 // This transmission sets the AFCCK to CKIN/2.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 ABB_WriteRegister(AFCCTLADD, 0x01);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 // This transmission enables the tapreg.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 ABB_WriteRegister(TAPCTRL, 0x01);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 // This transmission enables access to page 2.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 ABB_WriteRegister(TAPREG, 0x01b);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 // This transmission changes the register page in the ABB for usp to pg2.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 ABB_SetPage(PAGE2);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 #if (ANALOG == 2)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 // Restore push button environment
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 ABB_WriteRegister(0x3C, 0x07);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 #elif (ANALOG == 3)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 // Restore push button environment
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 ABB_WriteRegister(0x3C, 0xBF);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 /* ********************** SELECTION OF BBCFG CONFIG FOR ABB 3 PG1_0 *****************************/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 #if (ANLG_PG == S_PG_10) // SYREN PG1.0 ON ESAMPLE
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 ABB_WriteRegister(BBCFG, C_BBCFG); // Initialize transmit register
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 // This transmission enables access to page 0.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 ABB_SetPage(PAGE0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 // reset bit MSKINT1 , if set by TESTRESET
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 reg=ABB_ReadRegister(VRPCSTS) & 0xffe;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 ABB_WriteRegister(VRPCSTS, reg);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 ABB_SetPage(PAGE2);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 // Restore default for BG behavior in sleep mode
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 ABB_WriteRegister(VRPCAUX, 0xBF);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 // Restore default for deboucing length
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 ABB_WriteRegister(VRPCLDO, 0x00F);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 // Restore default for INT1 generation, wait time in switch on, checks in switch on
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 ABB_WriteRegister(VRPCABBTST, 0x0002);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 // This transmission changes the register page in the ABB for usp to pg1.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 ABB_SetPage(PAGE1);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 // This transmission sets tapinst to id code.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 ABB_WriteRegister(TAPREG, 0x0001);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 // This transmission disables TAPREG access.

0

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1 /******************************************************************************/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

2 /* TEXAS INSTRUMENTS INCORPORATED PROPRIETARY INFORMATION */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

3 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

4 /* Property of Texas Instruments -- For Unrestricted Internal Use Only */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

5 /* Unauthorized reproduction and/or distribution is strictly prohibited. This*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

6 /* product is protected under copyright law and trade secret law as an*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

8 /* rights reserved. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

9 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

10 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

11 /* Filename : abb.c */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

12 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

13 /* Description : Functions to drive the ABB device. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

14 /* The Serial Port Interface is used to connect the TI */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

15 /* Analog BaseBand (ABB). */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

16 /* It is assumed that the ABB is connected as the SPI */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

17 /* device 0. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

18 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

19 /* Author : Pascal PUEL */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

20 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

21 /* Version number : 1.3 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

22 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

23 /* Date and time : 08/22/03 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

24 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

25 /* Previous delta : Creation */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

26 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

27 /******************************************************************************/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

28

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

29 #include "../../include/config.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

30 #include "../../include/sys_types.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

31 #include "../../riviera/rv/general.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

32 #include "../../nucleus/nucleus.h" // for NUCLEUS functions and types

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

33

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

34 #include "../../L1/include/l1_confg.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

35 #include "../../L1/include/l1_macro.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

36

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

37 #include "abb.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

38 #include "../clkm.h" // for wait_ARM_cycles function

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

39 #include "abb_inline.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

40 #include "../ulpd.h" // for FRAME_STOP definition

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

41

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

42 #include "../../L1/include/l1_types.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

43

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

44 #if 0 // FreeCalypso

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

45 #include "buzzer/buzzer.h" // for BZ_KeyBeep_OFF function

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

46 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

47

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

48 #if (VCXO_ALGO == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

49 #include "../../L1/include/l1_ctl.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

50 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

51

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

52 #if (RF_FAM == 35)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

53 #include "../../L1/cust0/l1_rf35.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

54 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

55

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

56 #if (RF_FAM == 12)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

57 #include "../../L1/tpudrv/tpudrv12.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

58 #include "../../L1/cust0/l1_rf12.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

59 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

60

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

61 #if (RF_FAM == 10)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

62 #include "../../L1/cust0/l1_rf10.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

63 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

64

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

65 #if (RF_FAM == 8)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

66 #include "../../L1/cust0/l1_rf8.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

67 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

68

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

69 #if (RF_FAM == 2)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

70 #include "../../L1/cust0/l1_rf2.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

71 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

72

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

73 #if (ABB_SEMAPHORE_PROTECTION)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

74

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

75 static NU_SEMAPHORE abb_sem;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

76

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

77 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

78 /* ABB_Sem_Create() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

79 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

80 /* This function creates the Nucleus semaphore to protect ABB accesses */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

81 /* against preemption. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

82 /* No check on the result. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

83 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

84 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

85 void ABB_Sem_Create(void)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

86 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

87 // create a semaphore with an initial count of 1 and with FIFO type suspension.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

88 NU_Create_Semaphore(&abb_sem, "ABB_SEM", 1, NU_FIFO);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

89 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

90

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

91 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

92

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

93 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

94 /* ABB_Wait_IBIC_Access() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

95 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

96 /* This function waits for the first IBIC access. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

97 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

98 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

99 void ABB_Wait_IBIC_Access(void)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

100 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

101 #if (ANALOG ==1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

102 // Wait 6 OSCAS cycles (100 KHz) for first IBIC access

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

103 // (i.e wait 60us + 10% security marge = 66us)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

104 wait_ARM_cycles(convert_nanosec_to_cycles(66000));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

105 #elif ((ANALOG ==2) || (ANALOG == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

106 // Wait 6 x 32 KHz clock cycles for first IBIC access

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

107 // (i.e wait 187us + 10% security marge = 210us)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

108 wait_ARM_cycles(convert_nanosec_to_cycles(210000));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

109 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

110 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

111

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

112

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

113

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

114 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

115 /* ABB_Write_Register_on_page() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

116 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

117 /* This function manages all the spi serial transfer to write to an */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

118 /* ABB register on a specified page. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

119 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

120 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

121 void ABB_Write_Register_on_page(SYS_UWORD16 page, SYS_UWORD16 reg_id, SYS_UWORD16 value)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

122 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

123 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

124

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

125 // Start spi clock, mask IT for WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

126 SPI_Ready_for_WR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

127 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

128

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

129 #if ((ABB_SEMAPHORE_PROTECTION == 1) || (ABB_SEMAPHORE_PROTECTION == 2) || (ABB_SEMAPHORE_PROTECTION == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

130

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

131 // check if the semaphore has been correctly created and try to obtain it.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

132 // if the semaphore cannot be obtained, the task is suspended and then resumed

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

133 // as soon as the semaphore is released.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

134 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

135 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

136 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

137 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

138 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

139

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

140 // set the ABB page for register access

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

141 ABB_SetPage(page);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

142

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

143 // Write value in reg_id

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

144 ABB_WriteRegister(reg_id, value);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

145

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

146 // set the ABB page for register access at page 0

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

147 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

148

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

149 #if ((ABB_SEMAPHORE_PROTECTION == 1) || (ABB_SEMAPHORE_PROTECTION == 2) || (ABB_SEMAPHORE_PROTECTION == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

150 // release the semaphore only if it has correctly been created.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

151 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

152 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

153 NU_Release_Semaphore(&abb_sem);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

154 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

155 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

156

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

157 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

158 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

159 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

160 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

161 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

162

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

163

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

164 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

165 /* ABB_Read_Register_on_page() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

166 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

167 /* This function manages all the spi serial transfer to read one */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

168 /* ABB register on a specified page. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

169 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

170 /* Returns the real data value of the register. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

171 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

172 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

173 SYS_UWORD16 ABB_Read_Register_on_page(SYS_UWORD16 page, SYS_UWORD16 reg_id)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

174 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

175 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

176 SYS_UWORD16 reg_val;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

177

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

178 // Start spi clock, mask IT for RD and WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

179 SPI_Ready_for_RDWR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

180 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

181

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

182 #if ((ABB_SEMAPHORE_PROTECTION == 1) || (ABB_SEMAPHORE_PROTECTION == 2) || (ABB_SEMAPHORE_PROTECTION == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

183

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

184 // check if the semaphore has been correctly created and try to obtain it.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

185 // if the semaphore cannot be obtained, the task is suspended and then resumed

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

186 // as soon as the semaphore is released.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

187 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

188 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

189 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

190 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

191 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

192

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

193 /* set the ABB page for register access */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

194 ABB_SetPage(page);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

195

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

196 /* Read selected ABB register */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

197 reg_val = ABB_ReadRegister(reg_id);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

198

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

199 /* set the ABB page for register access at page 0 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

200 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

201

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

202 #if ((ABB_SEMAPHORE_PROTECTION == 1) || (ABB_SEMAPHORE_PROTECTION == 2) || (ABB_SEMAPHORE_PROTECTION == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

203 // release the semaphore only if it has correctly been created.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

204 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

205 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

206 NU_Release_Semaphore(&abb_sem);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

207 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

208 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

209

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

210 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

211 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

212 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

213 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

214

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

215 return (reg_val); // Return result

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

216 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

217

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

218 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

219 /* ABB_free_13M() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

220 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

221 /* This function sets the 13M clock working in ABB. A wait loop */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

222 /* is required to allow first slow access to ABB clock register. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

223 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

224 /* WARNING !! : this function must not be protected by semaphore !! */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

225 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

226 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

227 void ABB_free_13M(void)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

228 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

229 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

230

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

231 // Start spi clock, mask IT for WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

232 SPI_Ready_for_WR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

233 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

234

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

235 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

236

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

237 // This transmission frees the CLK13 in ABB.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

238 ABB_WriteRegister(TOGBR2, 0x08);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

239

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

240 // Wait for first IBIC access

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

241 ABB_Wait_IBIC_Access();

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

242

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

243 // SW Workaround : This transmission has to be done twice.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

244 ABB_WriteRegister(TOGBR2, 0x08);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

245

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

246 // Wait for first IBIC access

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

247 ABB_Wait_IBIC_Access();

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

248

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

249 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

250 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

251 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

252 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

253 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

254

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

255

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

256

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

257 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

258 /* ABB_stop_13M() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

259 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

260 /* This function stops the 13M clock in ABB. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

261 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

262 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

263 void ABB_stop_13M(void)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

264 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

265 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

266

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

267 // Start spi clock, mask IT for WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

268 SPI_Ready_for_WR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

269 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

270

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

271 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

272

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

273 // Set ACTIVMCLK = 0.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

274 ABB_WriteRegister(TOGBR2, 0x04);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

275

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

276 // Wait for first IBIC access

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

277 ABB_Wait_IBIC_Access();

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

278

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

279 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

280 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

281 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

282 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

283 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

284

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

285

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

286

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

287 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

288 /* ABB_Read_Status() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

289 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

290 /* This function reads and returns the value of VRPCSTS ABB register. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

291 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

292 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

293 SYS_UWORD16 ABB_Read_Status(void)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

294 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

295 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

296 SYS_UWORD16 reg_val;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

297

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

298 // Start spi clock, mask IT for WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

299 SPI_Ready_for_WR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

300 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

301

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

302 #if ((ABB_SEMAPHORE_PROTECTION == 2) || (ABB_SEMAPHORE_PROTECTION == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

303

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

304 // check if the semaphore has been correctly created and try to obtain it.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

305 // if the semaphore cannot be obtained, the task is suspended and then resumed

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

306 // as soon as the semaphore is released.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

307 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

308 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

309 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

310 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

311 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

312

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

313 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

314

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

315 #if (ANALOG == 1) || (ANALOG == 2)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

316 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

317 reg_val = ABB_ReadRegister(VRPCSTS);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

318 #elif (ANALOG == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

319 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

320 reg_val = ABB_ReadRegister(VRPCCFG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

321 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

322

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

323 #if ((ABB_SEMAPHORE_PROTECTION == 2) || (ABB_SEMAPHORE_PROTECTION == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

324 // release the semaphore only if it has correctly been created.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

325 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

326 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

327 NU_Release_Semaphore(&abb_sem);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

328 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

329 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

330

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

331 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

332 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

333 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

334 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

335

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

336 return (reg_val);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

337 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

338

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

339 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

340 /* ABB_on() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

341 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

342 /* This function configures ABB registers to work in ON condition */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

343 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

344 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

345 void ABB_on(SYS_UWORD16 modules, SYS_UWORD8 bRecoveryFlag)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

346 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

347 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

348 #if ((ANALOG ==2) || (ANALOG == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

349 SYS_UWORD32 reg;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

350 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

351

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

352 // a possible cause of the recovery is that ABB is on Oscas => switch from Oscas to CLK13

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

353 if (bRecoveryFlag)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

354 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

355 // RESTITUTE 13MHZ CLOCK TO ABB

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

356 //---------------------------------------------------

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

357 ABB_free_13M();

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

358

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

359 // RESTITUTE 13MHZ CLOCK TO ABB AGAIN (C.F. BUG1719)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

360 //---------------------------------------------------

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

361 ABB_free_13M();

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

362 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

363

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

364 // Start spi clock, mask IT for RD and WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

365 SPI_Ready_for_RDWR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

366 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

367

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

368 #if (ABB_SEMAPHORE_PROTECTION == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

369

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

370 // check if the semaphore has been correctly created and try to obtain it.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

371 // if the semaphore cannot be obtained, the task is suspended and then resumed

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

372 // as soon as the semaphore is released.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

373 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

374 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

375 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

376 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

377 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

378

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

379 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

380

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

381 // This transmission disables MADC,AFC,VDL,VUL modules.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

382 ABB_WriteRegister(TOGBR1, 0x0155);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

383

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

384 #if (ANALOG == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

385 // This transmission disables Band gap fast mode Enable BB charge.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

386 ABB_WriteRegister(VRPCCTL2, 0x1fc);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

387

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

388 /* *********** DC/DC enabling selection ************************************************************** */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

389 // This transmission changes the register page in OMEGA for usp to pg1.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

390 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

391

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

392 /* Insert here accesses to modify DC/DC parameters. Default is a switching frequency of 240 Khz */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

393 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

394 SYS_UWORD8 vrpcctrl3_data;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

395

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

396 #if (CHIPSET == 9) || (CHIPSET == 10) || (CHIPSET == 11)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

397 vrpcctrl3_data = 0x007d; // core voltage 1.4V for C035

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

398 #else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

399 vrpcctrl3_data = 0x00bd; // core voltage 1.8V for C05

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

400 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

401

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

402 if(modules & DCDC) // check if the DCDC is enabled

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

403 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

404 vrpcctrl3_data |= 0x0002; // set DCDCEN

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

405 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

406

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

407 // This access disables the DCDC.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

408 ABB_WriteRegister(VRPCCTRL3, vrpcctrl3_data);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

409 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

410

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

411 /* ************************ SELECTION OF TEST MODE FOR ABB **************************************** */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

412 /* This test configuration allows visibility on BULENA,BULON,BDLON,BDLENA on test pins */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

413 /* ***************************************************************************************************/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

414 #if (BOARD==6)&& (ANALOG==1) //BUG01967 to remove access to TAPCTRL (EVA4 board and Nausica)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

415 // This transmission enables Omega test register.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

416 ABB_WriteRegister(TAPCTRL, 0x01);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

417

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

418 // This transmission select Omega test instruction.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

419 ABB_WriteRegister(TAPREG, TSPTEST1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

420

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

421 // This transmission disables Omega test register.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

422 ABB_WriteRegister(TAPCTRL, 0x00);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

423 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

424 /* *************************************************************************************************** */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

425

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

426 if (!bRecoveryFlag) // Check recovery status from L1, prevent G23 SIM issue

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

427 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

428 // This transmission changes SIM power supply to 3 volts.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

429 ABB_WriteRegister(VRPCCTRL1, 0x45);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

430 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

431

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

432 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

433

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

434 // This transmission enables selected OMEGA modules.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

435 ABB_WriteRegister(TOGBR1, (modules & ~DCDC) >> 6);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

436

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

437 if(modules & MADC) // check if the ADC is enabled

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

438 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

439 // This transmission connects the resistive divider to MB and BB.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

440 ABB_WriteRegister(BCICTL1, 0x0005);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

441 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

442 #elif ((ANALOG == 2) || (ANALOG == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

443 // Restore the ABB checks and debouncing if start on TESTRESETZ

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

444

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

445 // This transmission changes the register page in the ABB for usp to pg1.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

446 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

447

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

448 // This transmission sets the AFCCK to CKIN/2.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

449 ABB_WriteRegister(AFCCTLADD, 0x01);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

450

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

451 // This transmission enables the tapreg.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

452 ABB_WriteRegister(TAPCTRL, 0x01);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

453

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

454 // This transmission enables access to page 2.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

455 ABB_WriteRegister(TAPREG, 0x01b);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

456

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

457 // This transmission changes the register page in the ABB for usp to pg2.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

458 ABB_SetPage(PAGE2);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

459

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

460 #if (ANALOG == 2)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

461 // Restore push button environment

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

462 ABB_WriteRegister(0x3C, 0x07);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

463

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

464 #elif (ANALOG == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

465

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

466 // Restore push button environment

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

467 ABB_WriteRegister(0x3C, 0xBF);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

468

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

469 /* ************************ SELECTION OF BBCFG CONFIG FOR ABB 3 PG1_0 *******************************/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

470 #if (ANLG_PG == S_PG_10) // SYREN PG1.0 ON ESAMPLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

471 ABB_WriteRegister(BBCFG, C_BBCFG); // Initialize transmit register

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

472 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

473 // This transmission enables access to page 0.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

474 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

475

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

476 // reset bit MSKINT1 , if set by TESTRESET

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

477 reg=ABB_ReadRegister(VRPCSTS) & 0xffe;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

478

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

479 ABB_WriteRegister(VRPCSTS, reg);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

480

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

481 ABB_SetPage(PAGE2);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

482

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

483 // Restore default for BG behavior in sleep mode

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

484 ABB_WriteRegister(VRPCAUX, 0xBF);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

485

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

486 // Restore default for deboucing length

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

487 ABB_WriteRegister(VRPCLDO, 0x00F);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

488

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

489 // Restore default for INT1 generation, wait time in switch on, checks in switch on

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

490 ABB_WriteRegister(VRPCABBTST, 0x0002);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

491

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

492 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

493

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

494 // This transmission changes the register page in the ABB for usp to pg1.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

495 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

496

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

497 // This transmission sets tapinst to id code.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

498 ABB_WriteRegister(TAPREG, 0x0001);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

499

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

500 // This transmission disables TAPREG access.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

501 ABB_WriteRegister(TAPCTRL, 0x00);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

502

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

503 // enable BB battery charge BCICONF register, enable test mode to track BDLEN and BULEN windows

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

504 // This transmission enables BB charge and BB bridge connection for BB measurements.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

505 ABB_WriteRegister(BCICONF, 0x060);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

506

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

507 /* ************************ SELECTION OF BBCFG CONFIG FOR ABB 3 PG2_0 *******************************/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

508 #if (ANALOG == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

509 #if (ANLG_PG == S_PG_20) // SYREN PG2.0 ON EVACONSO

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

510 ABB_WriteRegister(BBCFG, C_BBCFG); // Initialize transmit register

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

511 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

512 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

513

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

514 /* ************************ SELECTION OF TEST MODE FOR ABB ******************************************/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

515 /* This test configuration allows visibility on test pins TAPCTRL has not to be reset */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

516 /* ****************************************************************************************************/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

517

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

518 // This transmission enables the tapreg.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

519 ABB_WriteRegister(TAPCTRL, 0x01);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

520

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

521 // This transmission select ABB test instruction.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

522 ABB_WriteRegister(TAPREG, TSPEN);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

523

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

524 // This transmission changes the register page in ABB for usp to pg0.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

525 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

526

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

527 // This transmission enables selected ABB modules.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

528 ABB_WriteRegister(TOGBR1, modules >> 6);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

529

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

530 // enable MB & BB resistive bridges for measurements

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

531 if(modules & MADC) // check if the ADC is enabled

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

532 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

533 // This transmission connects the resistive divider to MB and BB.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

534 ABB_WriteRegister(BCICTL1, 0x0001);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

535 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

536

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

537 /********* Sleep definition part ******************/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

538 // This transmission changes the register page in the ABB for usp to pg1.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

539 #if (ANALOG == 2)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

540 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

541

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

542 // update the Delay needed by the ABB before going in deep sleep, and clear previous delay value.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

543 reg = ABB_ReadRegister(VRPCCFG) & 0x1e0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

544

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

545 ABB_WriteRegister(VRPCCFG, (SLPDLY | reg));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

546

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

547 // update the ABB mask sleep register (regulator disabled in deep sleep), and clear previous mask value.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

548 reg = ABB_ReadRegister(VRPCMSK) & 0x1e0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

549 ABB_WriteRegister(VRPCMSK, (MASK_SLEEP_MODE | reg));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

550 #elif (ANALOG == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

551 Syren_Sleep_Config(NORMAL_SLEEP,SLEEP_BG,SLPDLY);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

552 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

553 // This transmission changes the register page in the ABB for usp to pg0.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

554 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

555 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

556

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

557 // SW workaround for initialization of the audio parts of the ABB to avoid white noise

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

558 // C.f. BUG1941

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

559 // Set VDLR and VULR bits

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

560 // Write TOGBR1 register

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

561 // This transmission enables selected ABB modules.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

562 ABB_WriteRegister(TOGBR1, 0x0A);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

563

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

564 // wait for 1 ms

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

565 wait_ARM_cycles(convert_nanosec_to_cycles(1000000));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

566

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

567 // Reset VDLS and VULS bits

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

568 // Write TOGBR1 register

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

569 // This transmission enables selected ABB modules.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

570 ABB_WriteRegister(TOGBR1, 0x05);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

571

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

572 #if (ABB_SEMAPHORE_PROTECTION == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

573 // release the semaphore only if it has correctly been created.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

574 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

575 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

576 NU_Release_Semaphore(&abb_sem);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

577 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

578 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

579

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

580 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

581 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

582 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

583 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

584 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

585

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

586

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

587

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

588 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

589 /* ABB_Read_ADC() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

590 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

591 /* This function manages all the spi serial transfer to read all the */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

592 /* ABB ADC conversion channels. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

593 /* Stores the result in Buff parameter. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

594 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

595 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

596 void ABB_Read_ADC(SYS_UWORD16 *Buff)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

597 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

598 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

599

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

600 // Start spi clock, mask IT for RD and WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

601 SPI_Ready_for_RDWR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

602 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

603

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

604 #if (ABB_SEMAPHORE_PROTECTION == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

605

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

606 // check if the semaphore has been correctly created and try to obtain it.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

607 // if the semaphore cannot be obtained, the task is suspended and then resumed

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

608 // as soon as the semaphore is released.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

609 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

610 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

611 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

612 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

613 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

614

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

615 // This transmission changes the register page in the ABB for usp to pg0.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

616 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

617

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

618 /* Read all ABB ADC registers */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

619 *Buff++ = ABB_ReadRegister(VBATREG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

620 *Buff++ = ABB_ReadRegister(VCHGREG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

621 *Buff++ = ABB_ReadRegister(ICHGREG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

622 *Buff++ = ABB_ReadRegister(VBKPREG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

623 *Buff++ = ABB_ReadRegister(ADIN1REG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

624 *Buff++ = ABB_ReadRegister(ADIN2REG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

625 *Buff++ = ABB_ReadRegister(ADIN3REG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

626

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

627 #if (ANALOG ==1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

628 *Buff++ = ABB_ReadRegister(ADIN4XREG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

629 *Buff++ = ABB_ReadRegister(ADIN5YREG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

630 #elif (ANALOG ==2)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

631 *Buff++ = ABB_ReadRegister(ADIN4REG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

632 #elif (ANALOG == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

633 *Buff++ = ABB_ReadRegister(ADIN4REG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

634 *Buff++ = ABB_ReadRegister(ADIN5REG);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

635 #endif // ANALOG

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

636

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

637 #if (ABB_SEMAPHORE_PROTECTION == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

638 // release the semaphore only if it has correctly been created.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

639 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

640 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

641 NU_Release_Semaphore(&abb_sem);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

642 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

643 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

644

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

645 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

646 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

647 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

648 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

649 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

650

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

651

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

652

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

653 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

654 /* ABB_Conf_ADC() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

655 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

656 /* This function manages all the spi serial transfer to: */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

657 /* - select the ABB ADC channels to be converted */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

658 /* - enable/disable EOC interrupt */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

659 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

660 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

661 void ABB_Conf_ADC(SYS_UWORD16 Channels, SYS_UWORD16 ItVal)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

662 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

663 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

664 SYS_UWORD16 reg_val;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

665

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

666 // Start spi clock, mask IT for RD and WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

667 SPI_Ready_for_RDWR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

668 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

669

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

670 #if (ABB_SEMAPHORE_PROTECTION == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

671

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

672 // check if the semaphore has been correctly created and try to obtain it.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

673 // if the semaphore cannot be obtained, the task is suspended and then resumed

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

674 // as soon as the semaphore is released.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

675 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

676 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

677 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

678 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

679 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

680

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

681 // This transmission changes the register page in the ABB for usp to pg0.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

682 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

683

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

684 /* select ADC channels to be converted */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

685 #if (ANALOG == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

686 ABB_WriteRegister(MADCCTRL1, Channels);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

687 #elif ((ANALOG == 2) || (ANALOG == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

688 ABB_WriteRegister(MADCCTRL, Channels);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

689 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

690

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

691 reg_val = ABB_ReadRegister(ITMASK);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

692

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

693 // This transmission configure the End Of Conversion IT without modifying other bits in the same register.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

694 if(ItVal == EOC_INTENA)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

695 ABB_WriteRegister(ITMASK, reg_val & EOC_INTENA);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

696 else if(ItVal == EOC_INTMASK)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

697 ABB_WriteRegister(ITMASK, reg_val | EOC_INTMASK);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

698

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

699 #if (ABB_SEMAPHORE_PROTECTION == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

700 // release the semaphore only if it has correctly been created.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

701 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

702 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

703 NU_Release_Semaphore(&abb_sem);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

704 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

705 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

706

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

707 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

708 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

709 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

710 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

711 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

712

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

713

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

714

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

715

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

716 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

717 /* ABB_sleep() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

718 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

719 /* This function disables the DCDC and returns to PAGE 0. It stops then */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

720 /* the 13MHz clock in ABB. A wait loop s required to allow */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

721 /* first slow access to ABB clock register. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

722 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

723 /* WARNING !! : this function must not be protected by semaphore !! */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

724 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

725 /* Returns AFC value. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

726 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

727 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

728 SYS_UWORD32 ABB_sleep(SYS_UWORD8 sleep_performed, SYS_WORD16 afc)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

729 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

730 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

731 SYS_UWORD32 afcout_index;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

732 volatile SYS_UWORD16 nb_it;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

733 SYS_UWORD16 reg_val;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

734

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

735 // table for AFC allowed values during Sleep mode. First 5th elements

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

736 // are related to positive AFC values, last 5th to negative ones.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

737 static const SYS_UWORD32 Afcout_T[10] =

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

738 {0x0f,0x1f,0x3f,0x7f,0xff,0x00,0x01,0x03,0x07,0x0f};

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

739

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

740 // Start spi clock, mask IT for RD and WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

741 SPI_Ready_for_RDWR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

742 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

743

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

744 // COMPUTATION AND PROGRAMMING OF AFC VALUE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

745 //---------------------------------------------------

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

746 if(afc & 0x1000)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

747 afcout_index = ((afc + 512)>>10) + 1;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

748 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

749 afcout_index = (afc + 512)>>10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

750

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

751 if (sleep_performed == FRAME_STOP) // Big sleep

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

752 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

753 #if ((ANALOG == 2) || (ANALOG == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

754 //////////// ADD HERE IOTA or SYREN CONFIGURATION FOR BIG SLEEP ////////////////////////////

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

755 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

756

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

757 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

758 else // Deep sleep

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

759 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

760 #if(ANALOG == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

761 // SELECTION OF AFC TEST MODE FOR OMEGA

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

762 //---------------------------------------------------

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

763 // This test configuration allows access on the AFCOUT register

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

764 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

765

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

766 // This transmission enables OMEGA test register.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

767 ABB_WriteRegister(TAPCTRL, 0x01);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

768

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

769 // This transmission selects OMEGA test instruction.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

770 ABB_WriteRegister(TAPREG, AFCTEST);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

771

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

772 // Set AFCOUT to 0.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

773 ABB_WriteRegister(AFCOUT, 0x00 >> 6);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

774

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

775 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

776

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

777 #elif (ANALOG == 2)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

778 // This configuration allows access on the AFCOUT register

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

779 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

780

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

781 // Read AFCCTLADD value and enable USP access to AFCOUT register

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

782 reg_val = (ABB_ReadRegister(AFCCTLADD) | 0x04);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

783

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

784 ABB_WriteRegister(AFCCTLADD, reg_val);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

785

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

786 // Set AFCOUT to 0.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

787 ABB_WriteRegister(AFCOUT, 0x00);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

788

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

789 // Read BCICONF value and cut the measurement bridge of BB cut the BB charge.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

790 reg_val = ABB_ReadRegister(BCICONF) & 0x039f;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

791

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

792 ABB_WriteRegister(BCICONF, reg_val);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

793

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

794 // Disable the ABB test mode

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

795 ABB_WriteRegister(TAPCTRL, 0x00);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

796

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

797 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

798

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

799 // Read BCICTL1 value and cut the measurement bridge of MB.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

800 reg_val = ABB_ReadRegister(BCICTL1) & 0x03fe;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

801

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

802 ABB_WriteRegister(BCICTL1, reg_val);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

803 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

804

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

805 #if (ANALOG == 3) // Nothing to be done as MB and BB measurement bridges are automatically disconnected

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

806 // in Syren during sleep mode. BB charge stays enabled

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

807 ABB_SetPage(PAGE1); // Initialize transmit reg_num. This transmission

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

808 // change the register page in IOTA for usp to pg1

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

809

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

810 ABB_WriteRegister(TAPCTRL, 0x00); // Disable Syren test mode

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

811

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

812 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

813 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

814

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

815 // switch off MADC, AFC, AUXDAC, VOICE.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

816 ABB_WriteRegister(TOGBR1, 0x155);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

817

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

818 // Switch off Analog supply LDO

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

819 //-----------------------------

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

820 #if (ANALOG == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

821 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

822

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

823 // Read VRPCCTL3 register value and switch off VR3.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

824 reg_val = ABB_ReadRegister(VRPCCTRL3) & 0x3df;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

825

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

826 ABB_WriteRegister(VRPCCTRL3, reg_val);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

827

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

828 #elif (ANALOG == 2)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

829 // Read VRPCSTS register value and extract status of meaningfull inputs.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

830 reg_val = ABB_ReadRegister(VRPCSTS) & 0x0070;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

831

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

832 if (reg_val == 0x30)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

833 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

834 // start the SLPDLY counter in order to switch the ABB in sleep mode. This transmission sets IOTA sleep bit.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

835 ABB_WriteRegister(VRPCDEV, 0x02);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

836 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

837

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

838 // Dummy transmission to clean of ABB bus. This transmission accesses IOTA address 0 in "read".

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

839 ABB_WriteRegister(0x0000 | 0x0001, 0x0000);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

840

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

841 #elif (ANALOG == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

842 // In Syren there is no need to check for VRPCCFG as wake up prioritys are changed

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

843 // start the SLPDLY counter in order to switch the ABB in sleep mode

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

844 ABB_WriteRegister(VRPCDEV,0x02); // Initialize transmit reg_num. This transmission

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

845 // set Syren sleep bit

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

846 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

847 // Dummy transmission to clean of ABB bus. This transmission accesses SYREN address 0 in "read".

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

848 ABB_WriteRegister(0x0000 | 0x0001, 0x0000);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

849 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

850 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

851

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

852 // Switch to low frequency clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

853 ABB_stop_13M();

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

854 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

855

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

856 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

857 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

858 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

859 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

860

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

861 #if (OP_L1_STANDALONE == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

862 #if (CHIPSET == 12)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

863 // GPIO_InitAllPull(ALL_ONE); // enable all GPIO internal pull

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

864 // workaround to set APLL_DIV_CLK( internal PU) at high level

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

865 // by default APLL_DIV_CLK is low pulling 80uA on VRIO

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

866 // *(SYS_UWORD16*) (0xFFFFFD90)= 0x01;//CNTL_APLL_DIV_CLK -> APLL_CLK_DIV != 0

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

867 // *(SYS_UWORD16*) (0xFFFEF030)= 0x10;// DPLL mode

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

868 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

869 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

870 return(Afcout_T[afcout_index]);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

871 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

872

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

873

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

874 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

875 /* ABB_wakeup() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

876 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

877 /* This function sets the 13MHz clock working in ABB. A wait loop */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

878 /* is required to allow first slow access to ABB clock register. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

879 /* Then it re-enables DCDC and returns to PAGE 0. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

880 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

881 /* WARNING !! : this function must not be protected by semaphore !! */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

882 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

883 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

884 void ABB_wakeup(SYS_UWORD8 sleep_performed, SYS_WORD16 afc)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

885 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

886 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

887 SYS_UWORD16 reg_val;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

888

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

889 // Start spi clock, mask IT for RD and WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

890 SPI_Ready_for_RDWR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

891 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

892

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

893 if (sleep_performed == FRAME_STOP) // Big sleep

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

894 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

895 #if ((ANALOG == 2) || (ANALOG == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

896 //////////// ADD HERE IOTA or SYREN CONFIGURATION FOR BIG SLEEP WAKEUP ////////////////////////////

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

897 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

898 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

899 else // Deep sleep

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

900 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

901 #if (OP_L1_STANDALONE == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

902 #if (CHIPSET == 12)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

903 // restore context from

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

904 // workaround to set APLL_DIV_CLK( internal PU) at high level

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

905 // by default APLL_DIV_CLK is low pulling 80uA on VRIO

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

906 // *(SYS_UWORD16*) (0xFFFFFD90)= 0x00;//CNTL_APLL_DIV_CLK -> APLL_DIV_CLK != 0

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

907 // *(SYS_UWORD16*) (0xFFFEF030)= 0x00;// DPLL mode

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

908 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

909 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

910

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

911 // Restitutes 13MHZ Clock to ABB

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

912 ABB_free_13M();

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

913

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

914 // Switch ON Analog supply LDO

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

915 #if (ANALOG == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

916 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

917

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

918 // Read VRPCCTL3 register value and switch on VR3.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

919 reg_val = ABB_ReadRegister(VRPCCTRL3) | 0x020;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

920

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

921 ABB_WriteRegister(VRPCCTRL3, reg_val);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

922 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

923 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

924

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

925 // This transmission switches on MADC, AFC.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

926 ABB_WriteRegister(TOGBR1, 0x280);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

927

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

928 // This transmission sets the AUXAFC2.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

929 ABB_WriteRegister(AUXAFC2, ((afc>>10) & 0x7));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

930

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

931 // This transmission sets the AUXAFC1.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

932 ABB_WriteRegister(AUXAFC1, (afc & 0x3ff));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

933

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

934 #if (ANALOG == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

935 // Remove AFC test mode

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

936 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

937

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

938 // This transmission select Omega test instruction.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

939 ABB_WriteRegister(TAPREG, TSPTEST1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

940

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

941 // Disable test mode selection

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

942 // This transmission disables Omega test register.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

943 ABB_WriteRegister(TAPCTRL, 0x00 >> 6);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

944

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

945 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

946

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

947 #elif (ANALOG == 2)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

948 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

949

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

950 // Read AFCCTLADD register value and disable USP access to AFCOUT register.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

951 reg_val = ABB_ReadRegister(AFCCTLADD) & ~0x04;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

952

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

953 ABB_WriteRegister(AFCCTLADD, reg_val);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

954

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

955 // Read BCICONF register value and enable BB measurement bridge enable BB charge.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

956 reg_val = ABB_ReadRegister(BCICONF) | 0x0060;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

957

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

958 ABB_WriteRegister(BCICONF, reg_val);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

959

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

960

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

961 /* *************************************************************************************************** */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

962 // update the Delay needed by the ABB before going in deep sleep, and clear previous delay value.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

963 reg_val = ABB_ReadRegister(VRPCCFG) & 0x1e0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

964 ABB_WriteRegister(VRPCCFG, (SLPDLY | reg_val));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

965

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

966 // Enable the ABB test mode

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

967 ABB_WriteRegister(TAPCTRL, 0x01);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

968 ABB_WriteRegister(TAPREG, TSPEN);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

969 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

970

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

971 // Read BCICTL1 register value and enable MB measurement bridge and cut the measurement bridge of MB.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

972 reg_val = ABB_ReadRegister(BCICTL1) | 0x0001;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

973

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

974 ABB_WriteRegister(BCICTL1, reg_val);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

975 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

976

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

977 #if (ANALOG == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

978

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

979 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

980

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

981 /* *************************************************************************************************** */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

982 // update the Delay needed by the ABB before going in deep sleep, and clear previous delay value.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

983 reg_val = ABB_ReadRegister(VRPCCFG) & 0x1e0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

984 ABB_WriteRegister(VRPCCFG, (SLPDLY | reg_val));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

985

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

986 /* ************************ SELECTION OF TEST MODE FOR ABB=3 *****************************************/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

987 /* This test configuration allows visibility on test pins TAPCTRL has not to be reset */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

988 /* ****************************************************************************************************/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

989

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

990 ABB_WriteRegister(TAPCTRL, 0x01); // Initialize the transmit register

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

991 // This transmission enables IOTA test register

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

992

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

993 ABB_WriteRegister(TAPREG, TSPEN);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

994 // This transmission select IOTA test instruction

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

995 // This transmission select IOTA test instruction

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

996 /**************************************************************************************************** */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

997

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

998 ABB_SetPage(PAGE0); // Initialize transmit reg_num. This transmission

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

999 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1000 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1001

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1002 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1003 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1004 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1005 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1006 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1007

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1008 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1009 /* ABB_wa_VRPC() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1010 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1011 /* This function initializes the VRPCCTRL1 or VRPCSIM register */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1012 /* according to the ABB used. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1013 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1014 /*------------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1015 void ABB_wa_VRPC(SYS_UWORD16 value)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1016 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1017 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1018

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1019 // Start spi clock, mask IT for WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1020 SPI_Ready_for_WR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1021 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1022

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1023 #if ((ABB_SEMAPHORE_PROTECTION == 1) || (ABB_SEMAPHORE_PROTECTION == 2) || (ABB_SEMAPHORE_PROTECTION == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1024

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1025 // check if the semaphore has been correctly created and try to obtain it.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1026 // if the semaphore cannot be obtained, the task is suspended and then resumed

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1027 // as soon as the semaphore is released.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1028 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1029 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1030 NU_Obtain_Semaphore(&abb_sem, NU_SUSPEND);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1031 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1032 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1033

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1034 ABB_SetPage(PAGE1);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1035

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1036 #if (ANALOG == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1037 // This transmission initializes the VRPCCTL1 register.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1038 ABB_WriteRegister(VRPCCTRL1, value);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1039

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1040 #elif (ANALOG == 2)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1041 // This transmission initializes the VRPCSIM register.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1042 ABB_WriteRegister(VRPCSIM, value);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1043

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1044 #elif (ANALOG == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1045 // This transmission initializes the VRPCSIMR register.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1046 ABB_WriteRegister(VRPCSIMR, value);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1047

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1048 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1049

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1050 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1051

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1052 #if ((ABB_SEMAPHORE_PROTECTION == 1) || (ABB_SEMAPHORE_PROTECTION == 2) || (ABB_SEMAPHORE_PROTECTION == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1053 // release the semaphore only if it has correctly been created.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1054 if(&abb_sem != 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1055 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1056 NU_Release_Semaphore(&abb_sem);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1057 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1058 #endif // ABB_SEMAPHORE_PROTECTION

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1059

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1060 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1061 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1062 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1063 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1064 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1065

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1066

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1067 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1068 /* ABB_Write_Uplink_Data() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1069 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1070 /* This function uses the SPI to write to ABB uplink buffer. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1071 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1072 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1073 void ABB_Write_Uplink_Data(SYS_UWORD16 *TM_ul_data)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1074 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1075 SYS_UWORD8 i;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1076 volatile SYS_UWORD16 status;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1077

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1078 // Start spi clock, mask IT for WR and read SPI_REG_STATUS to reset the RE and WE flags.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1079 SPI_Ready_for_WR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1080 status = * (volatile SYS_UWORD16 *) SPI_REG_STATUS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1081

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1082 // Select Page 0 for TOGBR2

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1083 ABB_SetPage(PAGE0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1084

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1085 // Initialize pointer of burst buffer 1 : IBUFPTR is bit 10 of TOGBR2

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1086 ABB_WriteRegister(TOGBR2, 0x10);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1087

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1088 // Clear, assuming that it works like IBUFPTR of Vega

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1089 ABB_WriteRegister(TOGBR2, 0x0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1090

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1091 // Write the ramp data

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1092 for (i=0;i<16;i++)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1093 ABB_WriteRegister(BULDATA1_2, TM_ul_data[i]>>6);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1094

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1095 // Stop the SPI clock

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1096 #ifdef SPI_CLK_LOW_POWER

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1097 SPI_CLK_DISABLE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1098 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1099 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1100

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1101 //////////////////////// IDEV-INLO integration of sleep mode for Syren ///////////////////////////////////////

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1102

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1103 #if (ANALOG == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1104

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1105 // Syren Sleep configuration function --------------------------

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1106 void Syren_Sleep_Config(SYS_UWORD16 sleep_type,SYS_UWORD16 bg_select, SYS_UWORD16 sleep_delay)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1107 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1108 volatile SYS_UWORD16 status,sl_ldo_stat;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1109

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1110 ABB_SetPage(PAGE1); // Initialize transmit register. This transmission

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1111 // change the register page in ABB for usp to pg1

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1112

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1113 ABB_WriteRegister(VRPCCFG, sleep_delay); // write delay value

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1114

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1115 sl_ldo_stat = ((sleep_type<<9|bg_select<<8) & 0x0374);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1116

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1117 ABB_WriteRegister(VRPCMSKSLP, sl_ldo_stat); // write sleep ldo configuration

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1118

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1119 ABB_SetPage(PAGE0); // Initialize transmit register. This transmission

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1120 // change the register page in ABB for usp to pg0

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1121 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1122 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1123

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1124

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1125 #if (OP_L1_STANDALONE == 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1126 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1127 /* ABB_Power_Off() */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1128 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1129 /* This function uses the SPI to switch off the ABB. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1130 /* */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1131 /*-----------------------------------------------------------------------*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1132 void ABB_Power_Off(void)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1133 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1134 // Wait until all necessary actions are performed (write in FFS, etc...) to power-off the board (empirical value - 30 ticks).

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1135 NU_Sleep (30);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1136

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1137 // Wait also until <ON/OFF> key is released.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1138 // This is needed to avoid, if the power key is pressed for a long time, to switch

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1139 // ON-switch OFF the mobile, until the power key is released.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1140 #if((ANALOG == 1) || (ANALOG == 2))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1141 while ((ABB_Read_Status() & ONREFLT) == PWR_OFF_KEY_PRESSED) {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1142 #elif(ANALOG == 3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1143 while ((ABB_Read_Register_on_page(PAGE1, VRPCCFG) & PWOND) == PWR_OFF_KEY_PRESSED) {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1144 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1145

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1146 NU_Sleep (1); }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1147

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1148 #if 0 // FreeCalypso

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1149 BZ_KeyBeep_OFF();

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1150 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1151

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1152 #if(ANALOG == 1)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1153 ABB_Write_Register_on_page(PAGE0, VRPCCTL2, 0x00EE);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1154 #elif((ANALOG == 2) || (ANALOG == 3))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1155 ABB_Write_Register_on_page(PAGE0, VRPCDEV, 0x0001);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1156 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1157 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1158 #endif

FreeCalypso > hg > freecalypso-citrine

annotate bsp/abb+spi/abb.c @ 0:75a11d740a02