ST / stm-spirit1-rf-driver

Important changes to repositories hosted on mbed.com

Mbed hosted mercurial repositories are deprecated and are due to be permanently deleted in July 2026.

To keep a copy of this software download the repository Zip archive or clone locally using Mercurial.

It is also possible to export all your personal repositories from the account settings page.

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****/