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@67:93bec0baf1de, 2017-07-06 (annotated)

Committer:
Wolfgang Betz
Date:
Thu Jul 06 11:13:31 2017 +0200
Revision:
67:93bec0baf1de
Parent:
34:edda6a7238ec 
Clarify some comments

Who changed what in which revision?

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