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).

libs/spirit1/SPIRIT1_Library/Src/SPIRIT_Management.c@0:4fb29d9ee571, 2016-10-13 (annotated)

Committer:
Wolfgang Betz
Date:
Thu Oct 13 15:41:39 2016 +0200
Revision:
0:4fb29d9ee571
First compiling version (without warnings)

Who changed what in which revision?

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