ST / stm-spirit1-rf-driver

Prototype RF driver for STM Sub-1 GHz RF expansion board based on the SPSGRF-868 module for STM32 Nucleo.

Prototype RF Driver for STM Sub-1 GHz RF Expansion Boards based on the SPSGRF-868 and SPSGRF-915 Modules for STM32 Nucleo

Currently supported boards:

Note, in order to use expansion board X-NUCLEO-IDS01A4 in mbed you need to perform the following HW modifications on the board:

  • Unmount resistor R4
  • Mount resistor R7

Furthermore, on some Nucleo development boards (e.g. the NUCLEO_F429ZI), in order to be able to use Ethernet together with these Sub-1 GHz RF expansion boards, you need to compile this driver with macro SPIRIT1_SPI_MOSI=PB_5 defined, while the development board typically requires some HW modification as e.g. described here!

This driver can be used together with the 6LoWPAN stack (a.k.a. Nanostack).

source/libs/spirit1/SPIRIT1_Library/Src/SPIRIT_Management.c@34:edda6a7238ec, 2016-11-22 (annotated)

Committer:
Wolfgang Betz
Date:
Tue Nov 22 11:40:10 2016 +0100
Revision:
34:edda6a7238ec
Child:
67:93bec0baf1de
Perform re-naming

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Wolfgang Betz 34:edda6a7238ec 1 /**
Wolfgang Betz 34:edda6a7238ec 2 ******************************************************************************
Wolfgang Betz 34:edda6a7238ec 3 * @file SPIRIT_Management.c
Wolfgang Betz 34:edda6a7238ec 4 * @author VMA division - AMS
Wolfgang Betz 34:edda6a7238ec 5 * @version 3.2.2
Wolfgang Betz 34:edda6a7238ec 6 * @date 08-July-2015
Wolfgang Betz 34:edda6a7238ec 7 * @brief The management layer for SPIRIT1 library.
Wolfgang Betz 34:edda6a7238ec 8 * @details
Wolfgang Betz 34:edda6a7238ec 9 *
Wolfgang Betz 34:edda6a7238ec 10 * @attention
Wolfgang Betz 34:edda6a7238ec 11 *
Wolfgang Betz 34:edda6a7238ec 12 * <h2><center>&copy; COPYRIGHT(c) 2015 STMicroelectronics</center></h2>
Wolfgang Betz 34:edda6a7238ec 13 *
Wolfgang Betz 34:edda6a7238ec 14 * Redistribution and use in source and binary forms, with or without modification,
Wolfgang Betz 34:edda6a7238ec 15 * are permitted provided that the following conditions are met:
Wolfgang Betz 34:edda6a7238ec 16 * 1. Redistributions of source code must retain the above copyright notice,
Wolfgang Betz 34:edda6a7238ec 17 * this list of conditions and the following disclaimer.
Wolfgang Betz 34:edda6a7238ec 18 * 2. Redistributions in binary form must reproduce the above copyright notice,
Wolfgang Betz 34:edda6a7238ec 19 * this list of conditions and the following disclaimer in the documentation
Wolfgang Betz 34:edda6a7238ec 20 * and/or other materials provided with the distribution.
Wolfgang Betz 34:edda6a7238ec 21 * 3. Neither the name of STMicroelectronics nor the names of its contributors
Wolfgang Betz 34:edda6a7238ec 22 * may be used to endorse or promote products derived from this software
Wolfgang Betz 34:edda6a7238ec 23 * without specific prior written permission.
Wolfgang Betz 34:edda6a7238ec 24 *
Wolfgang Betz 34:edda6a7238ec 25 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
Wolfgang Betz 34:edda6a7238ec 26 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
Wolfgang Betz 34:edda6a7238ec 27 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
Wolfgang Betz 34:edda6a7238ec 28 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
Wolfgang Betz 34:edda6a7238ec 29 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
Wolfgang Betz 34:edda6a7238ec 30 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
Wolfgang Betz 34:edda6a7238ec 31 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
Wolfgang Betz 34:edda6a7238ec 32 * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
Wolfgang Betz 34:edda6a7238ec 33 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
Wolfgang Betz 34:edda6a7238ec 34 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
Wolfgang Betz 34:edda6a7238ec 35 *
Wolfgang Betz 34:edda6a7238ec 36 ******************************************************************************
Wolfgang Betz 34:edda6a7238ec 37 */
Wolfgang Betz 34:edda6a7238ec 38
Wolfgang Betz 34:edda6a7238ec 39 /* Includes ------------------------------------------------------------------*/
Wolfgang Betz 34:edda6a7238ec 40 #include "SPIRIT_Management.h"
Wolfgang Betz 34:edda6a7238ec 41
Wolfgang Betz 34:edda6a7238ec 42 /**
Wolfgang Betz 34:edda6a7238ec 43 * @addtogroup SPIRIT_Libraries
Wolfgang Betz 34:edda6a7238ec 44 * @{
Wolfgang Betz 34:edda6a7238ec 45 */
Wolfgang Betz 34:edda6a7238ec 46
Wolfgang Betz 34:edda6a7238ec 47
Wolfgang Betz 34:edda6a7238ec 48 /**
Wolfgang Betz 34:edda6a7238ec 49 * @defgroup SPIRIT_MANAGEMENT SPIRIT Management
Wolfgang Betz 34:edda6a7238ec 50 * @{
Wolfgang Betz 34:edda6a7238ec 51 */
Wolfgang Betz 34:edda6a7238ec 52
Wolfgang Betz 34:edda6a7238ec 53 /**
Wolfgang Betz 34:edda6a7238ec 54 * @brief BS value to write in the SYNT0 register according to the selected band
Wolfgang Betz 34:edda6a7238ec 55 */
Wolfgang Betz 34:edda6a7238ec 56 static const uint8_t s_vectcBandRegValue[4]={SYNT0_BS_6, SYNT0_BS_12, SYNT0_BS_16, SYNT0_BS_32};
Wolfgang Betz 34:edda6a7238ec 57
Wolfgang Betz 34:edda6a7238ec 58 #define COMMUNICATION_STATE_TX 0
Wolfgang Betz 34:edda6a7238ec 59 #define COMMUNICATION_STATE_RX 1
Wolfgang Betz 34:edda6a7238ec 60 #define COMMUNICATION_STATE_NONE 2
Wolfgang Betz 34:edda6a7238ec 61
Wolfgang Betz 34:edda6a7238ec 62 static uint32_t s_nDesiredFrequency;
Wolfgang Betz 34:edda6a7238ec 63
Wolfgang Betz 34:edda6a7238ec 64 static volatile uint8_t s_cCommunicationState = COMMUNICATION_STATE_NONE;
Wolfgang Betz 34:edda6a7238ec 65
Wolfgang Betz 34:edda6a7238ec 66
Wolfgang Betz 34:edda6a7238ec 67 /**
Wolfgang Betz 34:edda6a7238ec 68 * @brief Factor is: B/2 used in the formula for SYNTH word calculation
Wolfgang Betz 34:edda6a7238ec 69 */
Wolfgang Betz 34:edda6a7238ec 70 static const uint8_t s_vectcBHalfFactor[4]={(HIGH_BAND_FACTOR/2), (MIDDLE_BAND_FACTOR/2), (LOW_BAND_FACTOR/2), (VERY_LOW_BAND_FACTOR/2)};
Wolfgang Betz 34:edda6a7238ec 71
Wolfgang Betz 34:edda6a7238ec 72
Wolfgang Betz 34:edda6a7238ec 73 /**
Wolfgang Betz 34:edda6a7238ec 74 * @defgroup SPIRIT_MANAGEMENT_FUNCTIONS SPIRIT Management Functions
Wolfgang Betz 34:edda6a7238ec 75 * @{
Wolfgang Betz 34:edda6a7238ec 76 */
Wolfgang Betz 34:edda6a7238ec 77
Wolfgang Betz 34:edda6a7238ec 78
Wolfgang Betz 34:edda6a7238ec 79 /**
Wolfgang Betz 34:edda6a7238ec 80 * @defgroup WORKAROUND_FUNCTIONS SPIRIT Management Workaround Functions
Wolfgang Betz 34:edda6a7238ec 81 * @{
Wolfgang Betz 34:edda6a7238ec 82 */
Wolfgang Betz 34:edda6a7238ec 83
Wolfgang Betz 34:edda6a7238ec 84 /**
Wolfgang Betz 34:edda6a7238ec 85 * @brief Private SpiritRadioSetFrequencyBase function only used in SpiritManagementWaVcoCalibration.
Wolfgang Betz 34:edda6a7238ec 86 * @param lFBase the base carrier frequency expressed in Hz as unsigned word.
Wolfgang Betz 34:edda6a7238ec 87 * @retval None.
Wolfgang Betz 34:edda6a7238ec 88 */
Wolfgang Betz 34:edda6a7238ec 89 void SpiritManagementSetFrequencyBase(uint32_t lFBase)
Wolfgang Betz 34:edda6a7238ec 90 {
Wolfgang Betz 34:edda6a7238ec 91 uint32_t synthWord, Fc;
Wolfgang Betz 34:edda6a7238ec 92 uint8_t band = 0, anaRadioRegArray[4], wcp;
Wolfgang Betz 34:edda6a7238ec 93
Wolfgang Betz 34:edda6a7238ec 94 /* Check the parameter */
Wolfgang Betz 34:edda6a7238ec 95 s_assert_param(IS_FREQUENCY_BAND(lFBase));
Wolfgang Betz 34:edda6a7238ec 96
Wolfgang Betz 34:edda6a7238ec 97 /* Search the operating band */
Wolfgang Betz 34:edda6a7238ec 98 if(IS_FREQUENCY_BAND_HIGH(lFBase))
Wolfgang Betz 34:edda6a7238ec 99 {
Wolfgang Betz 34:edda6a7238ec 100 band = HIGH_BAND;
Wolfgang Betz 34:edda6a7238ec 101 }
Wolfgang Betz 34:edda6a7238ec 102 else if(IS_FREQUENCY_BAND_MIDDLE(lFBase))
Wolfgang Betz 34:edda6a7238ec 103 {
Wolfgang Betz 34:edda6a7238ec 104 band = MIDDLE_BAND;
Wolfgang Betz 34:edda6a7238ec 105 }
Wolfgang Betz 34:edda6a7238ec 106 else if(IS_FREQUENCY_BAND_LOW(lFBase))
Wolfgang Betz 34:edda6a7238ec 107 {
Wolfgang Betz 34:edda6a7238ec 108 band = LOW_BAND;
Wolfgang Betz 34:edda6a7238ec 109 }
Wolfgang Betz 34:edda6a7238ec 110 else if(IS_FREQUENCY_BAND_VERY_LOW(lFBase))
Wolfgang Betz 34:edda6a7238ec 111 {
Wolfgang Betz 34:edda6a7238ec 112 band = VERY_LOW_BAND;
Wolfgang Betz 34:edda6a7238ec 113 }
Wolfgang Betz 34:edda6a7238ec 114
Wolfgang Betz 34:edda6a7238ec 115 int32_t FOffset = SpiritRadioGetFrequencyOffset();
Wolfgang Betz 34:edda6a7238ec 116 uint32_t lChannelSpace = SpiritRadioGetChannelSpace();
Wolfgang Betz 34:edda6a7238ec 117 uint8_t cChannelNum = SpiritRadioGetChannel();
Wolfgang Betz 34:edda6a7238ec 118
Wolfgang Betz 34:edda6a7238ec 119 /* Calculates the channel center frequency */
Wolfgang Betz 34:edda6a7238ec 120 Fc = lFBase + FOffset + lChannelSpace*cChannelNum;
Wolfgang Betz 34:edda6a7238ec 121
Wolfgang Betz 34:edda6a7238ec 122 /* Reads the reference divider */
Wolfgang Betz 34:edda6a7238ec 123 uint8_t cRefDiv = (uint8_t)SpiritRadioGetRefDiv()+1;
Wolfgang Betz 34:edda6a7238ec 124
Wolfgang Betz 34:edda6a7238ec 125 switch(band)
Wolfgang Betz 34:edda6a7238ec 126 {
Wolfgang Betz 34:edda6a7238ec 127 case VERY_LOW_BAND:
Wolfgang Betz 34:edda6a7238ec 128 if(Fc<161281250)
Wolfgang Betz 34:edda6a7238ec 129 {
Wolfgang Betz 34:edda6a7238ec 130 SpiritCalibrationSelectVco(VCO_L);
Wolfgang Betz 34:edda6a7238ec 131 }
Wolfgang Betz 34:edda6a7238ec 132 else
Wolfgang Betz 34:edda6a7238ec 133 {
Wolfgang Betz 34:edda6a7238ec 134 SpiritCalibrationSelectVco(VCO_H);
Wolfgang Betz 34:edda6a7238ec 135 }
Wolfgang Betz 34:edda6a7238ec 136 break;
Wolfgang Betz 34:edda6a7238ec 137
Wolfgang Betz 34:edda6a7238ec 138 case LOW_BAND:
Wolfgang Betz 34:edda6a7238ec 139 if(Fc<322562500)
Wolfgang Betz 34:edda6a7238ec 140 {
Wolfgang Betz 34:edda6a7238ec 141 SpiritCalibrationSelectVco(VCO_L);
Wolfgang Betz 34:edda6a7238ec 142 }
Wolfgang Betz 34:edda6a7238ec 143 else
Wolfgang Betz 34:edda6a7238ec 144 {
Wolfgang Betz 34:edda6a7238ec 145 SpiritCalibrationSelectVco(VCO_H);
Wolfgang Betz 34:edda6a7238ec 146 }
Wolfgang Betz 34:edda6a7238ec 147 break;
Wolfgang Betz 34:edda6a7238ec 148
Wolfgang Betz 34:edda6a7238ec 149 case MIDDLE_BAND:
Wolfgang Betz 34:edda6a7238ec 150 if(Fc<430083334)
Wolfgang Betz 34:edda6a7238ec 151 {
Wolfgang Betz 34:edda6a7238ec 152 SpiritCalibrationSelectVco(VCO_L);
Wolfgang Betz 34:edda6a7238ec 153 }
Wolfgang Betz 34:edda6a7238ec 154 else
Wolfgang Betz 34:edda6a7238ec 155 {
Wolfgang Betz 34:edda6a7238ec 156 SpiritCalibrationSelectVco(VCO_H);
Wolfgang Betz 34:edda6a7238ec 157 }
Wolfgang Betz 34:edda6a7238ec 158 break;
Wolfgang Betz 34:edda6a7238ec 159
Wolfgang Betz 34:edda6a7238ec 160 case HIGH_BAND:
Wolfgang Betz 34:edda6a7238ec 161 if(Fc<860166667)
Wolfgang Betz 34:edda6a7238ec 162 {
Wolfgang Betz 34:edda6a7238ec 163 SpiritCalibrationSelectVco(VCO_L);
Wolfgang Betz 34:edda6a7238ec 164 }
Wolfgang Betz 34:edda6a7238ec 165 else
Wolfgang Betz 34:edda6a7238ec 166 {
Wolfgang Betz 34:edda6a7238ec 167 SpiritCalibrationSelectVco(VCO_H);
Wolfgang Betz 34:edda6a7238ec 168 }
Wolfgang Betz 34:edda6a7238ec 169 }
Wolfgang Betz 34:edda6a7238ec 170
Wolfgang Betz 34:edda6a7238ec 171 /* Search the VCO charge pump word and set the corresponding register */
Wolfgang Betz 34:edda6a7238ec 172 wcp = SpiritRadioSearchWCP(Fc);
Wolfgang Betz 34:edda6a7238ec 173
Wolfgang Betz 34:edda6a7238ec 174 synthWord = (uint32_t)(lFBase*(((double)(FBASE_DIVIDER*cRefDiv*s_vectcBHalfFactor[band]))/SpiritRadioGetXtalFrequency()));
Wolfgang Betz 34:edda6a7238ec 175
Wolfgang Betz 34:edda6a7238ec 176 /* Build the array of registers values for the analog part */
Wolfgang Betz 34:edda6a7238ec 177 anaRadioRegArray[0] = (uint8_t)(((synthWord>>21)&(0x0000001F))|(wcp<<5));
Wolfgang Betz 34:edda6a7238ec 178 anaRadioRegArray[1] = (uint8_t)((synthWord>>13)&(0x000000FF));
Wolfgang Betz 34:edda6a7238ec 179 anaRadioRegArray[2] = (uint8_t)((synthWord>>5)&(0x000000FF));
Wolfgang Betz 34:edda6a7238ec 180 anaRadioRegArray[3] = (uint8_t)(((synthWord&0x0000001F)<<3)| s_vectcBandRegValue[band]);
Wolfgang Betz 34:edda6a7238ec 181
Wolfgang Betz 34:edda6a7238ec 182 /* Configures the needed Analog Radio registers */
Wolfgang Betz 34:edda6a7238ec 183 g_xStatus = SpiritSpiWriteRegisters(SYNT3_BASE, 4, anaRadioRegArray);
Wolfgang Betz 34:edda6a7238ec 184 }
Wolfgang Betz 34:edda6a7238ec 185
Wolfgang Betz 34:edda6a7238ec 186 uint8_t SpiritManagementWaVcoCalibration(void)
Wolfgang Betz 34:edda6a7238ec 187 {
Wolfgang Betz 34:edda6a7238ec 188 uint8_t s_cVcoWordRx;
Wolfgang Betz 34:edda6a7238ec 189 uint8_t s_cVcoWordTx;
Wolfgang Betz 34:edda6a7238ec 190 uint32_t nFreq;
Wolfgang Betz 34:edda6a7238ec 191 uint8_t cRestore = 0;
Wolfgang Betz 34:edda6a7238ec 192 uint8_t cStandby = 0;
Wolfgang Betz 34:edda6a7238ec 193 uint32_t xtal_frequency = SpiritRadioGetXtalFrequency();
Wolfgang Betz 34:edda6a7238ec 194
Wolfgang Betz 34:edda6a7238ec 195 /* Enable the reference divider if the XTAL is between 48 and 52 MHz */
Wolfgang Betz 34:edda6a7238ec 196 if(xtal_frequency>DOUBLE_XTAL_THR)
Wolfgang Betz 34:edda6a7238ec 197 {
Wolfgang Betz 34:edda6a7238ec 198 if(!SpiritRadioGetRefDiv())
Wolfgang Betz 34:edda6a7238ec 199 {
Wolfgang Betz 34:edda6a7238ec 200 cRestore = 1;
Wolfgang Betz 34:edda6a7238ec 201 nFreq = SpiritRadioGetFrequencyBase();
Wolfgang Betz 34:edda6a7238ec 202 SpiritRadioSetRefDiv(S_ENABLE);
Wolfgang Betz 34:edda6a7238ec 203 SpiritManagementSetFrequencyBase(nFreq);
Wolfgang Betz 34:edda6a7238ec 204 }
Wolfgang Betz 34:edda6a7238ec 205 }
Wolfgang Betz 34:edda6a7238ec 206 nFreq = SpiritRadioGetFrequencyBase();
Wolfgang Betz 34:edda6a7238ec 207
Wolfgang Betz 34:edda6a7238ec 208 /* Increase the VCO current */
Wolfgang Betz 34:edda6a7238ec 209 uint8_t tmp = 0x19; SpiritSpiWriteRegisters(0xA1,1,&tmp);
Wolfgang Betz 34:edda6a7238ec 210
Wolfgang Betz 34:edda6a7238ec 211 SpiritCalibrationVco(S_ENABLE);
Wolfgang Betz 34:edda6a7238ec 212
Wolfgang Betz 34:edda6a7238ec 213 SpiritRefreshStatus();
Wolfgang Betz 34:edda6a7238ec 214 if(g_xStatus.MC_STATE == MC_STATE_STANDBY)
Wolfgang Betz 34:edda6a7238ec 215 {
Wolfgang Betz 34:edda6a7238ec 216 cStandby = 1;
Wolfgang Betz 34:edda6a7238ec 217 SpiritCmdStrobeReady();
Wolfgang Betz 34:edda6a7238ec 218 do{
Wolfgang Betz 34:edda6a7238ec 219 SpiritRefreshStatus();
Wolfgang Betz 34:edda6a7238ec 220 if(g_xStatus.MC_STATE == 0x13)
Wolfgang Betz 34:edda6a7238ec 221 {
Wolfgang Betz 34:edda6a7238ec 222 return 1;
Wolfgang Betz 34:edda6a7238ec 223 }
Wolfgang Betz 34:edda6a7238ec 224 }while(g_xStatus.MC_STATE != MC_STATE_READY);
Wolfgang Betz 34:edda6a7238ec 225 }
Wolfgang Betz 34:edda6a7238ec 226
Wolfgang Betz 34:edda6a7238ec 227 SpiritCmdStrobeLockTx();
Wolfgang Betz 34:edda6a7238ec 228
Wolfgang Betz 34:edda6a7238ec 229 do{
Wolfgang Betz 34:edda6a7238ec 230 SpiritRefreshStatus();
Wolfgang Betz 34:edda6a7238ec 231 if(g_xStatus.MC_STATE == 0x13)
Wolfgang Betz 34:edda6a7238ec 232 {
Wolfgang Betz 34:edda6a7238ec 233 return 1;
Wolfgang Betz 34:edda6a7238ec 234 }
Wolfgang Betz 34:edda6a7238ec 235 }while(g_xStatus.MC_STATE != MC_STATE_LOCK);
Wolfgang Betz 34:edda6a7238ec 236
Wolfgang Betz 34:edda6a7238ec 237 s_cVcoWordTx = SpiritCalibrationGetVcoCalData();
Wolfgang Betz 34:edda6a7238ec 238
Wolfgang Betz 34:edda6a7238ec 239 SpiritCmdStrobeReady();
Wolfgang Betz 34:edda6a7238ec 240
Wolfgang Betz 34:edda6a7238ec 241 do{
Wolfgang Betz 34:edda6a7238ec 242 SpiritRefreshStatus();
Wolfgang Betz 34:edda6a7238ec 243 }while(g_xStatus.MC_STATE != MC_STATE_READY);
Wolfgang Betz 34:edda6a7238ec 244
Wolfgang Betz 34:edda6a7238ec 245
Wolfgang Betz 34:edda6a7238ec 246 SpiritCmdStrobeLockRx();
Wolfgang Betz 34:edda6a7238ec 247
Wolfgang Betz 34:edda6a7238ec 248 do{
Wolfgang Betz 34:edda6a7238ec 249 SpiritRefreshStatus();
Wolfgang Betz 34:edda6a7238ec 250 if(g_xStatus.MC_STATE == 0x13)
Wolfgang Betz 34:edda6a7238ec 251 {
Wolfgang Betz 34:edda6a7238ec 252 return 1;
Wolfgang Betz 34:edda6a7238ec 253 }
Wolfgang Betz 34:edda6a7238ec 254 }while(g_xStatus.MC_STATE != MC_STATE_LOCK);
Wolfgang Betz 34:edda6a7238ec 255
Wolfgang Betz 34:edda6a7238ec 256 s_cVcoWordRx = SpiritCalibrationGetVcoCalData();
Wolfgang Betz 34:edda6a7238ec 257
Wolfgang Betz 34:edda6a7238ec 258 SpiritCmdStrobeReady();
Wolfgang Betz 34:edda6a7238ec 259
Wolfgang Betz 34:edda6a7238ec 260 do{
Wolfgang Betz 34:edda6a7238ec 261 SpiritRefreshStatus();
Wolfgang Betz 34:edda6a7238ec 262 if(g_xStatus.MC_STATE == 0x13)
Wolfgang Betz 34:edda6a7238ec 263 {
Wolfgang Betz 34:edda6a7238ec 264 return 1;
Wolfgang Betz 34:edda6a7238ec 265 }
Wolfgang Betz 34:edda6a7238ec 266 }while(g_xStatus.MC_STATE != MC_STATE_READY);
Wolfgang Betz 34:edda6a7238ec 267
Wolfgang Betz 34:edda6a7238ec 268 if(cStandby == 1)
Wolfgang Betz 34:edda6a7238ec 269 {
Wolfgang Betz 34:edda6a7238ec 270 SpiritCmdStrobeStandby();
Wolfgang Betz 34:edda6a7238ec 271 }
Wolfgang Betz 34:edda6a7238ec 272 SpiritCalibrationVco(S_DISABLE);
Wolfgang Betz 34:edda6a7238ec 273
Wolfgang Betz 34:edda6a7238ec 274 /* Disable the reference divider if the XTAL is between 48 and 52 MHz */
Wolfgang Betz 34:edda6a7238ec 275 if(cRestore)
Wolfgang Betz 34:edda6a7238ec 276 {
Wolfgang Betz 34:edda6a7238ec 277 SpiritRadioSetRefDiv(S_DISABLE);
Wolfgang Betz 34:edda6a7238ec 278 SpiritManagementSetFrequencyBase(nFreq);
Wolfgang Betz 34:edda6a7238ec 279 }
Wolfgang Betz 34:edda6a7238ec 280
Wolfgang Betz 34:edda6a7238ec 281 /* Restore the VCO current */
Wolfgang Betz 34:edda6a7238ec 282 tmp = 0x11; SpiritSpiWriteRegisters(0xA1,1,&tmp);
Wolfgang Betz 34:edda6a7238ec 283
Wolfgang Betz 34:edda6a7238ec 284 SpiritCalibrationSetVcoCalDataTx(s_cVcoWordTx);
Wolfgang Betz 34:edda6a7238ec 285 SpiritCalibrationSetVcoCalDataRx(s_cVcoWordRx);
Wolfgang Betz 34:edda6a7238ec 286
Wolfgang Betz 34:edda6a7238ec 287 return 0;
Wolfgang Betz 34:edda6a7238ec 288 }
Wolfgang Betz 34:edda6a7238ec 289
Wolfgang Betz 34:edda6a7238ec 290
Wolfgang Betz 34:edda6a7238ec 291 void SpiritManagementWaCmdStrobeTx(void)
Wolfgang Betz 34:edda6a7238ec 292 {
Wolfgang Betz 34:edda6a7238ec 293 if(s_cCommunicationState != COMMUNICATION_STATE_TX)
Wolfgang Betz 34:edda6a7238ec 294 {
Wolfgang Betz 34:edda6a7238ec 295 //uint32_t xtal_frequency = SpiritRadioGetXtalFrequency();
Wolfgang Betz 34:edda6a7238ec 296
Wolfgang Betz 34:edda6a7238ec 297 /* To achive the max output power */
Wolfgang Betz 34:edda6a7238ec 298 if(s_nDesiredFrequency>=150000000 && s_nDesiredFrequency<=470000000)
Wolfgang Betz 34:edda6a7238ec 299 {
Wolfgang Betz 34:edda6a7238ec 300 /* Optimal setting for Tx mode only */
Wolfgang Betz 34:edda6a7238ec 301 SpiritRadioSetPACwc(LOAD_3_6_PF);
Wolfgang Betz 34:edda6a7238ec 302 }
Wolfgang Betz 34:edda6a7238ec 303 else
Wolfgang Betz 34:edda6a7238ec 304 {
Wolfgang Betz 34:edda6a7238ec 305 /* Optimal setting for Tx mode only */
Wolfgang Betz 34:edda6a7238ec 306 SpiritRadioSetPACwc(LOAD_0_PF);
Wolfgang Betz 34:edda6a7238ec 307 }
Wolfgang Betz 34:edda6a7238ec 308
Wolfgang Betz 34:edda6a7238ec 309 uint8_t tmp = 0x11; SpiritSpiWriteRegisters(0xa9, 1, &tmp); /* Enable VCO_L buffer */
Wolfgang Betz 34:edda6a7238ec 310 tmp = 0x20; SpiritSpiWriteRegisters(PM_CONFIG1_BASE, 1, &tmp); /* Set SMPS switching frequency */
Wolfgang Betz 34:edda6a7238ec 311
Wolfgang Betz 34:edda6a7238ec 312 s_cCommunicationState = COMMUNICATION_STATE_TX;
Wolfgang Betz 34:edda6a7238ec 313 }
Wolfgang Betz 34:edda6a7238ec 314 }
Wolfgang Betz 34:edda6a7238ec 315
Wolfgang Betz 34:edda6a7238ec 316
Wolfgang Betz 34:edda6a7238ec 317 void SpiritManagementWaCmdStrobeRx(void)
Wolfgang Betz 34:edda6a7238ec 318 {
Wolfgang Betz 34:edda6a7238ec 319 if(s_cCommunicationState != COMMUNICATION_STATE_RX)
Wolfgang Betz 34:edda6a7238ec 320 {
Wolfgang Betz 34:edda6a7238ec 321 uint8_t tmp = 0x98; SpiritSpiWriteRegisters(PM_CONFIG1_BASE, 1, &tmp); /* Set SMPS switching frequency */
Wolfgang Betz 34:edda6a7238ec 322 SpiritRadioSetPACwc(LOAD_0_PF); /* Set the correct CWC parameter */
Wolfgang Betz 34:edda6a7238ec 323
Wolfgang Betz 34:edda6a7238ec 324 s_cCommunicationState = COMMUNICATION_STATE_RX;
Wolfgang Betz 34:edda6a7238ec 325 }
Wolfgang Betz 34:edda6a7238ec 326 }
Wolfgang Betz 34:edda6a7238ec 327
Wolfgang Betz 34:edda6a7238ec 328 void SpiritManagementWaTRxFcMem(uint32_t nDesiredFreq)
Wolfgang Betz 34:edda6a7238ec 329 {
Wolfgang Betz 34:edda6a7238ec 330 s_cCommunicationState = COMMUNICATION_STATE_NONE;
Wolfgang Betz 34:edda6a7238ec 331 s_nDesiredFrequency = nDesiredFreq;
Wolfgang Betz 34:edda6a7238ec 332 }
Wolfgang Betz 34:edda6a7238ec 333
Wolfgang Betz 34:edda6a7238ec 334
Wolfgang Betz 34:edda6a7238ec 335 void SpiritManagementWaExtraCurrent(void)
Wolfgang Betz 34:edda6a7238ec 336 {
Wolfgang Betz 34:edda6a7238ec 337 uint8_t tmp= 0xCA;SpiritSpiWriteRegisters(0xB2, 1, &tmp);
Wolfgang Betz 34:edda6a7238ec 338 tmp= 0x04;SpiritSpiWriteRegisters(0xA8, 1, &tmp);
Wolfgang Betz 34:edda6a7238ec 339 /* just a read to loose some microsecs more */
Wolfgang Betz 34:edda6a7238ec 340 SpiritSpiReadRegisters(0xA8, 1, &tmp);
Wolfgang Betz 34:edda6a7238ec 341 tmp= 0x00;SpiritSpiWriteRegisters(0xA8, 1, &tmp);
Wolfgang Betz 34:edda6a7238ec 342 }
Wolfgang Betz 34:edda6a7238ec 343
Wolfgang Betz 34:edda6a7238ec 344 /**
Wolfgang Betz 34:edda6a7238ec 345 * @}
Wolfgang Betz 34:edda6a7238ec 346 */
Wolfgang Betz 34:edda6a7238ec 347
Wolfgang Betz 34:edda6a7238ec 348
Wolfgang Betz 34:edda6a7238ec 349
Wolfgang Betz 34:edda6a7238ec 350 /**
Wolfgang Betz 34:edda6a7238ec 351 * @}
Wolfgang Betz 34:edda6a7238ec 352 */
Wolfgang Betz 34:edda6a7238ec 353
Wolfgang Betz 34:edda6a7238ec 354
Wolfgang Betz 34:edda6a7238ec 355 /**
Wolfgang Betz 34:edda6a7238ec 356 * @}
Wolfgang Betz 34:edda6a7238ec 357 */
Wolfgang Betz 34:edda6a7238ec 358
Wolfgang Betz 34:edda6a7238ec 359 /**
Wolfgang Betz 34:edda6a7238ec 360 * @}
Wolfgang Betz 34:edda6a7238ec 361 */
Wolfgang Betz 34:edda6a7238ec 362
Wolfgang Betz 34:edda6a7238ec 363
Wolfgang Betz 34:edda6a7238ec 364 /******************* (C) COPYRIGHT 2015 STMicroelectronics *****END OF FILE****/