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

SimpleSpirit1.cpp@12:b8056eda4028, 2016-10-28 (annotated)

Committer:
Wolfgang Betz
Date:
Fri Oct 28 14:14:03 2016 +0200
Revision:
12:b8056eda4028
Parent:
11:b769d6caad82
Child:
14:898a9d48dd03
Add thread for sending ACK's

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Wolfgang Betz 0:4fb29d9ee571 1 /*** Mbed Includes ***/
Wolfgang Betz 0:4fb29d9ee571 2 #include "SimpleSpirit1.h"
Wolfgang Betz 3:0df38cfb1e53 3 #include "radio_spi.h"
Wolfgang Betz 0:4fb29d9ee571 4
Wolfgang Betz 0:4fb29d9ee571 5
Wolfgang Betz 0:4fb29d9ee571 6 /*** Macros from Cube Implementation ***/
Wolfgang Betz 4:07537ca85c66 7 #define CLEAR_TXBUF() (spirit_tx_len = 0)
Wolfgang Betz 4:07537ca85c66 8 #define IS_RXBUF_EMPTY() (spirit_rx_len == 0)
Wolfgang Betz 6:f5d01793bf86 9 #define CLEAR_RXBUF() do { \
Wolfgang Betz 6:f5d01793bf86 10 spirit_rx_len = 0; \
Wolfgang Betz 6:f5d01793bf86 11 _spirit_rx_pos = 0; \
Wolfgang Betz 6:f5d01793bf86 12 } while(0)
Wolfgang Betz 0:4fb29d9ee571 13
Wolfgang Betz 7:e90fa8f6bc6c 14 #define NDEBUG
Wolfgang Betz 3:0df38cfb1e53 15 #ifndef NDEBUG
Wolfgang Betz 3:0df38cfb1e53 16 #include <stdio.h>
Wolfgang Betz 3:0df38cfb1e53 17 #define PRINTF(...) printf(__VA_ARGS__)
Wolfgang Betz 3:0df38cfb1e53 18 #else
Wolfgang Betz 3:0df38cfb1e53 19 #define PRINTF(...)
Wolfgang Betz 3:0df38cfb1e53 20 #endif
Wolfgang Betz 0:4fb29d9ee571 21
Wolfgang Betz 3:0df38cfb1e53 22 #if NULLRDC_CONF_802154_AUTOACK
Wolfgang Betz 3:0df38cfb1e53 23 #define ACK_LEN 3
Wolfgang Betz 3:0df38cfb1e53 24 static int wants_an_ack = 0; /* The packet sent expects an ack */
Wolfgang Betz 3:0df38cfb1e53 25 //#define ACKPRINTF printf
Wolfgang Betz 3:0df38cfb1e53 26 #define ACKPRINTF(...)
Wolfgang Betz 3:0df38cfb1e53 27 #endif /* NULLRDC_CONF_802154_AUTOACK */
Wolfgang Betz 3:0df38cfb1e53 28
Wolfgang Betz 4:07537ca85c66 29 #define SPIRIT_GPIO_IRQ (SPIRIT_GPIO_3)
Wolfgang Betz 3:0df38cfb1e53 30
Wolfgang Betz 4:07537ca85c66 31 #define SPIRIT1_STATUS() (arch_refresh_status() & SPIRIT1_STATE_STATEBITS)
Wolfgang Betz 3:0df38cfb1e53 32
Wolfgang Betz 4:07537ca85c66 33 #define SABORT_WAIT_US (400)
Wolfgang Betz 3:0df38cfb1e53 34
Wolfgang Betz 3:0df38cfb1e53 35 #define BUSYWAIT_UNTIL(cond, millisecs) \
Wolfgang Betz 3:0df38cfb1e53 36 do { \
Wolfgang Betz 7:e90fa8f6bc6c 37 uint32_t start = us_ticker_read(); \
Wolfgang Betz 7:e90fa8f6bc6c 38 while (!(cond) && ((us_ticker_read() - start) < ((uint32_t)millisecs)*1000U)); \
Wolfgang Betz 3:0df38cfb1e53 39 } while(0)
Wolfgang Betz 3:0df38cfb1e53 40
Wolfgang Betz 4:07537ca85c66 41 extern volatile SpiritStatus g_xStatus;
Wolfgang Betz 4:07537ca85c66 42 #define st_lib_g_x_status (g_xStatus)
Wolfgang Betz 4:07537ca85c66 43
Wolfgang Betz 4:07537ca85c66 44 #define st_lib_spirit_irqs SpiritIrqs
Wolfgang Betz 4:07537ca85c66 45
Wolfgang Betz 0:4fb29d9ee571 46
Wolfgang Betz 0:4fb29d9ee571 47 /*** Class Implementation ***/
Wolfgang Betz 3:0df38cfb1e53 48 /** Static Class Variables **/
Wolfgang Betz 3:0df38cfb1e53 49 SimpleSpirit1 *SimpleSpirit1::_singleton = NULL;
Wolfgang Betz 3:0df38cfb1e53 50
Wolfgang Betz 3:0df38cfb1e53 51 /** Constructor **/
Wolfgang Betz 0:4fb29d9ee571 52 SimpleSpirit1::SimpleSpirit1(PinName mosi, PinName miso, PinName sclk,
Wolfgang Betz 0:4fb29d9ee571 53 PinName irq, PinName cs, PinName sdn,
Wolfgang Betz 0:4fb29d9ee571 54 PinName led) :
Wolfgang Betz 0:4fb29d9ee571 55 _spi(mosi, miso, sclk),
Wolfgang Betz 0:4fb29d9ee571 56 _irq(irq),
Wolfgang Betz 0:4fb29d9ee571 57 _chip_select(cs),
Wolfgang Betz 0:4fb29d9ee571 58 _shut_down(sdn),
Wolfgang Betz 4:07537ca85c66 59 _led(led),
Wolfgang Betz 4:07537ca85c66 60 _current_irq_callback()
Wolfgang Betz 0:4fb29d9ee571 61 {
Wolfgang Betz 9:3db68ab23070 62 }
Wolfgang Betz 9:3db68ab23070 63
Wolfgang Betz 9:3db68ab23070 64 /** Init Function **/
Wolfgang Betz 9:3db68ab23070 65 void SimpleSpirit1::init() {
Wolfgang Betz 3:0df38cfb1e53 66 /* reset irq disable counter and irq callback & disable irq */
Wolfgang Betz 3:0df38cfb1e53 67 _nr_of_irq_disables = 0;
Wolfgang Betz 4:07537ca85c66 68 disable_spirit_irq();
Wolfgang Betz 0:4fb29d9ee571 69
Wolfgang Betz 0:4fb29d9ee571 70 /* unselect chip */
Wolfgang Betz 0:4fb29d9ee571 71 chip_unselect();
Wolfgang Betz 0:4fb29d9ee571 72
Wolfgang Betz 0:4fb29d9ee571 73 /* configure spi */
Wolfgang Betz 0:4fb29d9ee571 74 _spi.format(8, 0); /* 8-bit, mode = 0, [order = SPI_MSB] only available in mbed3 */
Wolfgang Betz 0:4fb29d9ee571 75 _spi.frequency(5000000); // 5MHz
Wolfgang Betz 3:0df38cfb1e53 76
Wolfgang Betz 5:c9c5bc673c64 77 /* install irq handler */
Wolfgang Betz 5:c9c5bc673c64 78 _irq.fall(Callback<void()>(this, &SimpleSpirit1::IrqHandler));
Wolfgang Betz 5:c9c5bc673c64 79
Wolfgang Betz 3:0df38cfb1e53 80 /* init cube vars */
Wolfgang Betz 3:0df38cfb1e53 81 spirit_on = OFF;
Wolfgang Betz 8:10967c884e38 82 #ifdef CONTIKI // betzw - TODO
Wolfgang Betz 3:0df38cfb1e53 83 packet_is_prepared = 0;
Wolfgang Betz 8:10967c884e38 84 just_got_an_ack = 0;
Wolfgang Betz 8:10967c884e38 85 #endif // CONTIKI
Wolfgang Betz 4:07537ca85c66 86 last_rssi = 0 ; //MGR
Wolfgang Betz 4:07537ca85c66 87 last_lqi = 0 ; //MGR
Wolfgang Betz 0:4fb29d9ee571 88
Wolfgang Betz 0:4fb29d9ee571 89 /* set frequencies */
Wolfgang Betz 0:4fb29d9ee571 90 radio_set_xtal_freq(XTAL_FREQUENCY);
Wolfgang Betz 2:45642c5198a2 91 mgmt_set_freq_base((uint32_t)BASE_FREQUENCY);
Wolfgang Betz 0:4fb29d9ee571 92
Wolfgang Betz 0:4fb29d9ee571 93 /* restart board */
Wolfgang Betz 0:4fb29d9ee571 94 enter_shutdown();
Wolfgang Betz 0:4fb29d9ee571 95 exit_shutdown();
Wolfgang Betz 0:4fb29d9ee571 96
Wolfgang Betz 0:4fb29d9ee571 97 /* soft core reset */
Wolfgang Betz 4:07537ca85c66 98 cmd_strobe(SPIRIT1_STROBE_SRES);
Wolfgang Betz 0:4fb29d9ee571 99
Wolfgang Betz 0:4fb29d9ee571 100 /* Configures the SPIRIT1 radio part */
Wolfgang Betz 0:4fb29d9ee571 101 SRadioInit x_radio_init = {
Wolfgang Betz 0:4fb29d9ee571 102 XTAL_OFFSET_PPM,
Wolfgang Betz 0:4fb29d9ee571 103 (uint32_t)BASE_FREQUENCY,
Wolfgang Betz 0:4fb29d9ee571 104 (uint32_t)CHANNEL_SPACE,
Wolfgang Betz 0:4fb29d9ee571 105 CHANNEL_NUMBER,
Wolfgang Betz 0:4fb29d9ee571 106 MODULATION_SELECT,
Wolfgang Betz 0:4fb29d9ee571 107 DATARATE,
Wolfgang Betz 0:4fb29d9ee571 108 (uint32_t)FREQ_DEVIATION,
Wolfgang Betz 0:4fb29d9ee571 109 (uint32_t)BANDWIDTH
Wolfgang Betz 0:4fb29d9ee571 110 };
Wolfgang Betz 0:4fb29d9ee571 111 radio_init(&x_radio_init);
Wolfgang Betz 0:4fb29d9ee571 112 radio_set_pa_level_dbm(0,POWER_DBM);
Wolfgang Betz 0:4fb29d9ee571 113 radio_set_pa_level_max_index(0);
Wolfgang Betz 0:4fb29d9ee571 114
Wolfgang Betz 0:4fb29d9ee571 115 /* Configures the SPIRIT1 packet handler part*/
Wolfgang Betz 0:4fb29d9ee571 116 PktBasicInit x_basic_init = {
Wolfgang Betz 0:4fb29d9ee571 117 PREAMBLE_LENGTH,
Wolfgang Betz 0:4fb29d9ee571 118 SYNC_LENGTH,
Wolfgang Betz 0:4fb29d9ee571 119 SYNC_WORD,
Wolfgang Betz 0:4fb29d9ee571 120 LENGTH_TYPE,
Wolfgang Betz 0:4fb29d9ee571 121 LENGTH_WIDTH,
Wolfgang Betz 0:4fb29d9ee571 122 CRC_MODE,
Wolfgang Betz 0:4fb29d9ee571 123 CONTROL_LENGTH,
Wolfgang Betz 0:4fb29d9ee571 124 EN_ADDRESS,
Wolfgang Betz 0:4fb29d9ee571 125 EN_FEC,
Wolfgang Betz 0:4fb29d9ee571 126 EN_WHITENING
Wolfgang Betz 0:4fb29d9ee571 127 };
Wolfgang Betz 0:4fb29d9ee571 128 pkt_basic_init(&x_basic_init);
Wolfgang Betz 0:4fb29d9ee571 129
Wolfgang Betz 0:4fb29d9ee571 130 /* Enable the following interrupt sources, routed to GPIO */
Wolfgang Betz 0:4fb29d9ee571 131 irq_de_init(NULL);
Wolfgang Betz 0:4fb29d9ee571 132 irq_clear_status();
Wolfgang Betz 0:4fb29d9ee571 133 irq_set_status(TX_DATA_SENT, S_ENABLE);
Wolfgang Betz 0:4fb29d9ee571 134 irq_set_status(RX_DATA_READY,S_ENABLE);
Wolfgang Betz 0:4fb29d9ee571 135 irq_set_status(RX_DATA_DISC, S_ENABLE);
Wolfgang Betz 0:4fb29d9ee571 136 irq_set_status(TX_FIFO_ERROR, S_ENABLE);
Wolfgang Betz 0:4fb29d9ee571 137 irq_set_status(RX_FIFO_ERROR, S_ENABLE);
Wolfgang Betz 6:f5d01793bf86 138 irq_set_status(RX_FIFO_ALMOST_FULL, S_ENABLE);
Wolfgang Betz 12:b8056eda4028 139 irq_set_status(VALID_SYNC, S_ENABLE);
Wolfgang Betz 0:4fb29d9ee571 140
Wolfgang Betz 0:4fb29d9ee571 141 /* Configure Spirit1 */
Wolfgang Betz 0:4fb29d9ee571 142 radio_persisten_rx(S_ENABLE);
Wolfgang Betz 0:4fb29d9ee571 143 qi_set_sqi_threshold(SQI_TH_0);
Wolfgang Betz 0:4fb29d9ee571 144 qi_sqi_check(S_ENABLE);
Wolfgang Betz 0:4fb29d9ee571 145 qi_set_rssi_threshold_dbm(CCA_THRESHOLD);
Wolfgang Betz 0:4fb29d9ee571 146 timer_set_rx_timeout_stop_condition(SQI_ABOVE_THRESHOLD);
Wolfgang Betz 0:4fb29d9ee571 147 timer_set_infinite_rx_timeout();
Wolfgang Betz 0:4fb29d9ee571 148 radio_afc_freeze_on_sync(S_ENABLE);
Wolfgang Betz 0:4fb29d9ee571 149
Wolfgang Betz 0:4fb29d9ee571 150 /* Puts the SPIRIT1 in STANDBY mode (125us -> rx/tx) */
Wolfgang Betz 4:07537ca85c66 151 cmd_strobe(SPIRIT1_STROBE_STANDBY);
Wolfgang Betz 0:4fb29d9ee571 152 spirit_on = OFF;
Wolfgang Betz 6:f5d01793bf86 153 CLEAR_TXBUF();
Wolfgang Betz 0:4fb29d9ee571 154 CLEAR_RXBUF();
Wolfgang Betz 7:e90fa8f6bc6c 155 _spirit_tx_started = false;
Wolfgang Betz 6:f5d01793bf86 156 _spirit_rx_err = false;
Wolfgang Betz 12:b8056eda4028 157 _is_receiving = false;
Wolfgang Betz 0:4fb29d9ee571 158
Wolfgang Betz 0:4fb29d9ee571 159 /* Configure the radio to route the IRQ signal to its GPIO 3 */
Wolfgang Betz 0:4fb29d9ee571 160 SGpioInit x_gpio_init = {
Wolfgang Betz 0:4fb29d9ee571 161 SPIRIT_GPIO_IRQ,
Wolfgang Betz 0:4fb29d9ee571 162 SPIRIT_GPIO_MODE_DIGITAL_OUTPUT_LP,
Wolfgang Betz 0:4fb29d9ee571 163 SPIRIT_GPIO_DIG_OUT_IRQ
Wolfgang Betz 0:4fb29d9ee571 164 };
Wolfgang Betz 0:4fb29d9ee571 165 spirit_gpio_init(&x_gpio_init);
Wolfgang Betz 0:4fb29d9ee571 166 }
Wolfgang Betz 3:0df38cfb1e53 167
Wolfgang Betz 8:10967c884e38 168 #ifdef CONTIKI // betzw - TODO
Wolfgang Betz 3:0df38cfb1e53 169 /** Prepare the radio with a packet to be sent. **/
Wolfgang Betz 5:c9c5bc673c64 170 int SimpleSpirit1::prepare_contiki(const void *payload, unsigned short payload_len) {
Wolfgang Betz 3:0df38cfb1e53 171 PRINTF("Spirit1: prep %u\n", payload_len);
Wolfgang Betz 3:0df38cfb1e53 172 packet_is_prepared = 0;
Wolfgang Betz 3:0df38cfb1e53 173
Wolfgang Betz 3:0df38cfb1e53 174 /* Checks if the payload length is supported */
Wolfgang Betz 3:0df38cfb1e53 175 if(payload_len > MAX_PACKET_LEN) {
Wolfgang Betz 3:0df38cfb1e53 176 return RADIO_TX_ERR;
Wolfgang Betz 3:0df38cfb1e53 177 }
Wolfgang Betz 3:0df38cfb1e53 178
Wolfgang Betz 3:0df38cfb1e53 179 /* Should we delay for an ack? */
Wolfgang Betz 3:0df38cfb1e53 180 #if NULLRDC_CONF_802154_AUTOACK
Wolfgang Betz 3:0df38cfb1e53 181 frame802154_t info154;
Wolfgang Betz 3:0df38cfb1e53 182 wants_an_ack = 0;
Wolfgang Betz 3:0df38cfb1e53 183 if(payload_len > ACK_LEN
Wolfgang Betz 3:0df38cfb1e53 184 && frame802154_parse((char*)payload, payload_len, &info154) != 0) {
Wolfgang Betz 3:0df38cfb1e53 185 if(info154.fcf.frame_type == FRAME802154_DATAFRAME
Wolfgang Betz 3:0df38cfb1e53 186 && info154.fcf.ack_required != 0) {
Wolfgang Betz 3:0df38cfb1e53 187 wants_an_ack = 1;
Wolfgang Betz 3:0df38cfb1e53 188 }
Wolfgang Betz 3:0df38cfb1e53 189 }
Wolfgang Betz 3:0df38cfb1e53 190 #endif /* NULLRDC_CONF_802154_AUTOACK */
Wolfgang Betz 3:0df38cfb1e53 191
Wolfgang Betz 3:0df38cfb1e53 192 /* Sets the length of the packet to send */
Wolfgang Betz 4:07537ca85c66 193 disable_spirit_irq();
Wolfgang Betz 4:07537ca85c66 194 cmd_strobe(SPIRIT1_STROBE_FTX);
Wolfgang Betz 3:0df38cfb1e53 195 pkt_basic_set_payload_length(payload_len);
Wolfgang Betz 3:0df38cfb1e53 196 spi_write_linear_fifo(payload_len, (uint8_t *)payload);
Wolfgang Betz 4:07537ca85c66 197 enable_spirit_irq();
Wolfgang Betz 3:0df38cfb1e53 198
Wolfgang Betz 3:0df38cfb1e53 199 PRINTF("PREPARE OUT\n");
Wolfgang Betz 3:0df38cfb1e53 200
Wolfgang Betz 3:0df38cfb1e53 201 packet_is_prepared = 1;
Wolfgang Betz 3:0df38cfb1e53 202 return RADIO_TX_OK;
Wolfgang Betz 3:0df38cfb1e53 203 }
Wolfgang Betz 3:0df38cfb1e53 204
Wolfgang Betz 3:0df38cfb1e53 205 /** Send the packet that has previously been prepared. **/
Wolfgang Betz 5:c9c5bc673c64 206 int SimpleSpirit1::transmit_contiki(unsigned short payload_len) {
Wolfgang Betz 3:0df38cfb1e53 207 /* This function blocks until the packet has been transmitted */
Wolfgang Betz 3:0df38cfb1e53 208 //rtimer_clock_t rtimer_txdone, rtimer_rxack;
Wolfgang Betz 3:0df38cfb1e53 209
Wolfgang Betz 3:0df38cfb1e53 210 PRINTF("TRANSMIT IN\n");
Wolfgang Betz 3:0df38cfb1e53 211 if(!packet_is_prepared) {
Wolfgang Betz 3:0df38cfb1e53 212 return RADIO_TX_ERR;
Wolfgang Betz 3:0df38cfb1e53 213 }
Wolfgang Betz 3:0df38cfb1e53 214
Wolfgang Betz 3:0df38cfb1e53 215 /* Stores the length of the packet to send */
Wolfgang Betz 3:0df38cfb1e53 216 /* Others spirit_radio_prepare will be in hold */
Wolfgang Betz 4:07537ca85c66 217 spirit_tx_len = payload_len;
Wolfgang Betz 3:0df38cfb1e53 218
Wolfgang Betz 3:0df38cfb1e53 219 /* Puts the SPIRIT1 in TX state */
Wolfgang Betz 3:0df38cfb1e53 220 receiving_packet = 0;
Wolfgang Betz 3:0df38cfb1e53 221 set_ready_state();
Wolfgang Betz 4:07537ca85c66 222 cmd_strobe(SPIRIT1_STROBE_TX);
Wolfgang Betz 3:0df38cfb1e53 223 just_got_an_ack = 0;
Wolfgang Betz 3:0df38cfb1e53 224 BUSYWAIT_UNTIL(SPIRIT1_STATUS() == SPIRIT1_STATE_TX, 1);
Wolfgang Betz 3:0df38cfb1e53 225 //BUSYWAIT_UNTIL(SPIRIT1_STATUS() != SPIRIT1_STATE_TX, 4); //For GFSK with high data rate
Wolfgang Betz 3:0df38cfb1e53 226 BUSYWAIT_UNTIL(SPIRIT1_STATUS() != SPIRIT1_STATE_TX, 50); //For FSK with low data rate
Wolfgang Betz 3:0df38cfb1e53 227
Wolfgang Betz 3:0df38cfb1e53 228 /* Reset radio - needed for immediate RX of ack */
Wolfgang Betz 3:0df38cfb1e53 229 CLEAR_TXBUF();
Wolfgang Betz 3:0df38cfb1e53 230 CLEAR_RXBUF();
Wolfgang Betz 4:07537ca85c66 231 disable_spirit_irq();
Wolfgang Betz 3:0df38cfb1e53 232 irq_clear_status();
Wolfgang Betz 7:e90fa8f6bc6c 233 receiving_packet = 0;
Wolfgang Betz 4:07537ca85c66 234 cmd_strobe(SPIRIT1_STROBE_SABORT);
Wolfgang Betz 3:0df38cfb1e53 235 wait_us(SABORT_WAIT_US);
Wolfgang Betz 4:07537ca85c66 236 cmd_strobe(SPIRIT1_STROBE_READY);
Wolfgang Betz 3:0df38cfb1e53 237 BUSYWAIT_UNTIL(SPIRIT1_STATUS() == SPIRIT1_STATE_READY, 1);
Wolfgang Betz 6:f5d01793bf86 238 cmd_strobe(SPIRIT1_STROBE_FRX);
Wolfgang Betz 4:07537ca85c66 239 cmd_strobe(SPIRIT1_STROBE_RX);
Wolfgang Betz 3:0df38cfb1e53 240 BUSYWAIT_UNTIL(SPIRIT1_STATUS() == SPIRIT1_STATE_RX, 1);
Wolfgang Betz 4:07537ca85c66 241 enable_spirit_irq();
Wolfgang Betz 3:0df38cfb1e53 242
Wolfgang Betz 3:0df38cfb1e53 243 #if XXX_ACK_WORKAROUND
Wolfgang Betz 3:0df38cfb1e53 244 just_got_an_ack = 1;
Wolfgang Betz 3:0df38cfb1e53 245 #endif /* XXX_ACK_WORKAROUND */
Wolfgang Betz 3:0df38cfb1e53 246
Wolfgang Betz 3:0df38cfb1e53 247 #if NULLRDC_CONF_802154_AUTOACK
Wolfgang Betz 3:0df38cfb1e53 248 if (wants_an_ack) {
Wolfgang Betz 7:e90fa8f6bc6c 249 rtimer_txdone = us_ticker_read();
Wolfgang Betz 3:0df38cfb1e53 250 BUSYWAIT_UNTIL(just_got_an_ack, 2);
Wolfgang Betz 7:e90fa8f6bc6c 251 rtimer_rxack = us_ticker_read();
Wolfgang Betz 3:0df38cfb1e53 252
Wolfgang Betz 3:0df38cfb1e53 253 if(just_got_an_ack) {
Wolfgang Betz 4:07537ca85c66 254 ACKPRINTF("debug_ack: ack received after %u us\n",
Wolfgang Betz 3:0df38cfb1e53 255 (uint32_t)(rtimer_rxack - rtimer_txdone));
Wolfgang Betz 3:0df38cfb1e53 256 } else {
Wolfgang Betz 3:0df38cfb1e53 257 ACKPRINTF("debug_ack: no ack received\n");
Wolfgang Betz 3:0df38cfb1e53 258 }
Wolfgang Betz 3:0df38cfb1e53 259 }
Wolfgang Betz 3:0df38cfb1e53 260 #endif /* NULLRDC_CONF_802154_AUTOACK */
Wolfgang Betz 3:0df38cfb1e53 261
Wolfgang Betz 3:0df38cfb1e53 262 PRINTF("TRANSMIT OUT\n");
Wolfgang Betz 3:0df38cfb1e53 263
Wolfgang Betz 3:0df38cfb1e53 264 CLEAR_TXBUF();
Wolfgang Betz 3:0df38cfb1e53 265
Wolfgang Betz 3:0df38cfb1e53 266 packet_is_prepared = 0;
Wolfgang Betz 3:0df38cfb1e53 267
Wolfgang Betz 3:0df38cfb1e53 268 wait_us(1);
Wolfgang Betz 3:0df38cfb1e53 269
Wolfgang Betz 3:0df38cfb1e53 270 return RADIO_TX_OK;
Wolfgang Betz 3:0df38cfb1e53 271 }
Wolfgang Betz 8:10967c884e38 272 #endif // CONTIKI
Wolfgang Betz 3:0df38cfb1e53 273
Wolfgang Betz 6:f5d01793bf86 274 int SimpleSpirit1::send(const void *payload, unsigned int payload_len) {
Wolfgang Betz 5:c9c5bc673c64 275 /* Checks if the payload length is supported */
Wolfgang Betz 5:c9c5bc673c64 276 if(payload_len > MAX_PACKET_LEN) {
Wolfgang Betz 5:c9c5bc673c64 277 return RADIO_TX_ERR;
Wolfgang Betz 5:c9c5bc673c64 278 }
Wolfgang Betz 5:c9c5bc673c64 279
Wolfgang Betz 5:c9c5bc673c64 280 disable_spirit_irq();
Wolfgang Betz 5:c9c5bc673c64 281
Wolfgang Betz 5:c9c5bc673c64 282 /* Reset State to Ready */
Wolfgang Betz 5:c9c5bc673c64 283 set_ready_state();
Wolfgang Betz 5:c9c5bc673c64 284
Wolfgang Betz 5:c9c5bc673c64 285 cmd_strobe(SPIRIT1_STROBE_FTX); // flush TX FIFO buffer
Wolfgang Betz 5:c9c5bc673c64 286 MBED_ASSERT(linear_fifo_read_num_elements_tx_fifo() == 0);
Wolfgang Betz 5:c9c5bc673c64 287
Wolfgang Betz 5:c9c5bc673c64 288 pkt_basic_set_payload_length(payload_len); // set desired payload len
Wolfgang Betz 5:c9c5bc673c64 289
Wolfgang Betz 5:c9c5bc673c64 290 int i = 0;
Wolfgang Betz 5:c9c5bc673c64 291 int remaining = payload_len;
Wolfgang Betz 5:c9c5bc673c64 292 bool trigger_tx = true;
Wolfgang Betz 5:c9c5bc673c64 293 do {
Wolfgang Betz 5:c9c5bc673c64 294 uint8_t fifo_available = SPIRIT_MAX_FIFO_LEN - linear_fifo_read_num_elements_tx_fifo();
Wolfgang Betz 5:c9c5bc673c64 295 uint8_t to_send = (remaining > fifo_available) ? fifo_available : remaining;
Wolfgang Betz 5:c9c5bc673c64 296 const uint8_t *buffer = (const uint8_t*)payload;
Wolfgang Betz 5:c9c5bc673c64 297
Wolfgang Betz 5:c9c5bc673c64 298 /* Fill FIFO Buffer */
Wolfgang Betz 5:c9c5bc673c64 299 spi_write_linear_fifo(to_send, (uint8_t*)&buffer[i]);
Wolfgang Betz 5:c9c5bc673c64 300
Wolfgang Betz 5:c9c5bc673c64 301 /* Start Transmit FIFO Buffer */
Wolfgang Betz 5:c9c5bc673c64 302 if(trigger_tx) {
Wolfgang Betz 5:c9c5bc673c64 303 MBED_ASSERT(linear_fifo_read_num_elements_tx_fifo() == to_send);
Wolfgang Betz 5:c9c5bc673c64 304 cmd_strobe(SPIRIT1_STROBE_TX);
Wolfgang Betz 5:c9c5bc673c64 305 trigger_tx = false;
Wolfgang Betz 5:c9c5bc673c64 306 }
Wolfgang Betz 5:c9c5bc673c64 307
Wolfgang Betz 5:c9c5bc673c64 308 i += to_send;
Wolfgang Betz 5:c9c5bc673c64 309 remaining -= to_send;
Wolfgang Betz 5:c9c5bc673c64 310 } while(remaining != 0);
Wolfgang Betz 5:c9c5bc673c64 311
Wolfgang Betz 7:e90fa8f6bc6c 312 _spirit_tx_started = true;
Wolfgang Betz 7:e90fa8f6bc6c 313
Wolfgang Betz 7:e90fa8f6bc6c 314 enable_spirit_irq();
Wolfgang Betz 7:e90fa8f6bc6c 315
Wolfgang Betz 5:c9c5bc673c64 316 BUSYWAIT_UNTIL(SPIRIT1_STATUS() != SPIRIT1_STATE_TX, 50);
Wolfgang Betz 11:b769d6caad82 317 // MBED_ASSERT(linear_fifo_read_num_elements_tx_fifo() == 0);
Wolfgang Betz 5:c9c5bc673c64 318
Wolfgang Betz 5:c9c5bc673c64 319 return RADIO_TX_OK;
Wolfgang Betz 5:c9c5bc673c64 320 }
Wolfgang Betz 5:c9c5bc673c64 321
Wolfgang Betz 3:0df38cfb1e53 322 /** Set Ready State **/
Wolfgang Betz 3:0df38cfb1e53 323 void SimpleSpirit1::set_ready_state(void) {
Wolfgang Betz 3:0df38cfb1e53 324 PRINTF("READY IN\n");
Wolfgang Betz 3:0df38cfb1e53 325
Wolfgang Betz 4:07537ca85c66 326 disable_spirit_irq();
Wolfgang Betz 3:0df38cfb1e53 327
Wolfgang Betz 12:b8056eda4028 328 _is_receiving = false;
Wolfgang Betz 12:b8056eda4028 329
Wolfgang Betz 3:0df38cfb1e53 330 if(SPIRIT1_STATUS() == SPIRIT1_STATE_STANDBY) {
Wolfgang Betz 4:07537ca85c66 331 cmd_strobe(SPIRIT1_STROBE_READY);
Wolfgang Betz 3:0df38cfb1e53 332 } else if(SPIRIT1_STATUS() == SPIRIT1_STATE_RX) {
Wolfgang Betz 4:07537ca85c66 333 cmd_strobe(SPIRIT1_STROBE_SABORT);
Wolfgang Betz 3:0df38cfb1e53 334 }
Wolfgang Betz 7:e90fa8f6bc6c 335 irq_clear_status();
Wolfgang Betz 3:0df38cfb1e53 336
Wolfgang Betz 4:07537ca85c66 337 enable_spirit_irq();
Wolfgang Betz 3:0df38cfb1e53 338
Wolfgang Betz 3:0df38cfb1e53 339 PRINTF("READY OUT\n");
Wolfgang Betz 3:0df38cfb1e53 340 }
Wolfgang Betz 3:0df38cfb1e53 341
Wolfgang Betz 4:07537ca85c66 342 int SimpleSpirit1::off(void) {
Wolfgang Betz 3:0df38cfb1e53 343 PRINTF("Spirit1: ->off\n");
Wolfgang Betz 3:0df38cfb1e53 344 if(spirit_on == ON) {
Wolfgang Betz 3:0df38cfb1e53 345 /* Disables the mcu to get IRQ from the SPIRIT1 */
Wolfgang Betz 4:07537ca85c66 346 disable_spirit_irq();
Wolfgang Betz 3:0df38cfb1e53 347
Wolfgang Betz 3:0df38cfb1e53 348 /* first stop rx/tx */
Wolfgang Betz 4:07537ca85c66 349 cmd_strobe(SPIRIT1_STROBE_SABORT);
Wolfgang Betz 3:0df38cfb1e53 350
Wolfgang Betz 3:0df38cfb1e53 351 /* Clear any pending irqs */
Wolfgang Betz 3:0df38cfb1e53 352 irq_clear_status();
Wolfgang Betz 3:0df38cfb1e53 353
Wolfgang Betz 3:0df38cfb1e53 354 BUSYWAIT_UNTIL(SPIRIT1_STATUS() == SPIRIT1_STATE_READY, 5);
Wolfgang Betz 3:0df38cfb1e53 355 if(SPIRIT1_STATUS() != SPIRIT1_STATE_READY) {
Wolfgang Betz 3:0df38cfb1e53 356 PRINTF("Spirit1: failed off->ready\n");
Wolfgang Betz 3:0df38cfb1e53 357 return 1;
Wolfgang Betz 3:0df38cfb1e53 358 }
Wolfgang Betz 3:0df38cfb1e53 359
Wolfgang Betz 3:0df38cfb1e53 360 /* Puts the SPIRIT1 in STANDBY */
Wolfgang Betz 4:07537ca85c66 361 cmd_strobe(SPIRIT1_STROBE_STANDBY);
Wolfgang Betz 3:0df38cfb1e53 362 BUSYWAIT_UNTIL(SPIRIT1_STATUS() == SPIRIT1_STATE_STANDBY, 5);
Wolfgang Betz 3:0df38cfb1e53 363 if(SPIRIT1_STATUS() != SPIRIT1_STATE_STANDBY) {
Wolfgang Betz 3:0df38cfb1e53 364 PRINTF("Spirit1: failed off->standby\n");
Wolfgang Betz 3:0df38cfb1e53 365 return 1;
Wolfgang Betz 3:0df38cfb1e53 366 }
Wolfgang Betz 3:0df38cfb1e53 367
Wolfgang Betz 3:0df38cfb1e53 368 spirit_on = OFF;
Wolfgang Betz 4:07537ca85c66 369 _nr_of_irq_disables = 1;
Wolfgang Betz 7:e90fa8f6bc6c 370 _spirit_tx_started = false;
Wolfgang Betz 12:b8056eda4028 371 _is_receiving = false;
Wolfgang Betz 12:b8056eda4028 372
Wolfgang Betz 3:0df38cfb1e53 373 CLEAR_TXBUF();
Wolfgang Betz 3:0df38cfb1e53 374 CLEAR_RXBUF();
Wolfgang Betz 3:0df38cfb1e53 375 }
Wolfgang Betz 3:0df38cfb1e53 376 PRINTF("Spirit1: off.\n");
Wolfgang Betz 3:0df38cfb1e53 377 return 0;
Wolfgang Betz 3:0df38cfb1e53 378 }
Wolfgang Betz 3:0df38cfb1e53 379
Wolfgang Betz 4:07537ca85c66 380 int SimpleSpirit1::on(void) {
Wolfgang Betz 3:0df38cfb1e53 381 PRINTF("Spirit1: on\n");
Wolfgang Betz 4:07537ca85c66 382 cmd_strobe(SPIRIT1_STROBE_SABORT);
Wolfgang Betz 3:0df38cfb1e53 383 wait_us(SABORT_WAIT_US);
Wolfgang Betz 3:0df38cfb1e53 384 if(spirit_on == OFF) {
Wolfgang Betz 3:0df38cfb1e53 385 /* ensure we are in READY state as we go from there to Rx */
Wolfgang Betz 4:07537ca85c66 386 cmd_strobe(SPIRIT1_STROBE_READY);
Wolfgang Betz 3:0df38cfb1e53 387 BUSYWAIT_UNTIL(SPIRIT1_STATUS() == SPIRIT1_STATE_READY, 5);
Wolfgang Betz 3:0df38cfb1e53 388 if(SPIRIT1_STATUS() != SPIRIT1_STATE_READY) {
Wolfgang Betz 3:0df38cfb1e53 389 PRINTF("Spirit1: failed to turn on\n");
Wolfgang Betz 3:0df38cfb1e53 390 while(1);
Wolfgang Betz 3:0df38cfb1e53 391 //return 1;
Wolfgang Betz 3:0df38cfb1e53 392 }
Wolfgang Betz 3:0df38cfb1e53 393
Wolfgang Betz 3:0df38cfb1e53 394 /* now we go to Rx */
Wolfgang Betz 6:f5d01793bf86 395 cmd_strobe(SPIRIT1_STROBE_FRX);
Wolfgang Betz 4:07537ca85c66 396 cmd_strobe(SPIRIT1_STROBE_RX);
Wolfgang Betz 3:0df38cfb1e53 397 BUSYWAIT_UNTIL(SPIRIT1_STATUS() == SPIRIT1_STATE_RX, 5);
Wolfgang Betz 3:0df38cfb1e53 398 if(SPIRIT1_STATUS() != SPIRIT1_STATE_RX) {
Wolfgang Betz 3:0df38cfb1e53 399 PRINTF("Spirit1: failed to enter rx\n");
Wolfgang Betz 3:0df38cfb1e53 400 while(1);
Wolfgang Betz 3:0df38cfb1e53 401 //return 1;
Wolfgang Betz 3:0df38cfb1e53 402 }
Wolfgang Betz 6:f5d01793bf86 403 CLEAR_RXBUF();
Wolfgang Betz 6:f5d01793bf86 404 _spirit_rx_err = false;
Wolfgang Betz 12:b8056eda4028 405 _is_receiving = false;
Wolfgang Betz 3:0df38cfb1e53 406
Wolfgang Betz 3:0df38cfb1e53 407 /* Enables the mcu to get IRQ from the SPIRIT1 */
Wolfgang Betz 3:0df38cfb1e53 408 spirit_on = ON;
Wolfgang Betz 5:c9c5bc673c64 409 MBED_ASSERT(_nr_of_irq_disables == 1);
Wolfgang Betz 5:c9c5bc673c64 410 enable_spirit_irq();
Wolfgang Betz 3:0df38cfb1e53 411 }
Wolfgang Betz 3:0df38cfb1e53 412
Wolfgang Betz 3:0df38cfb1e53 413 return 0;
Wolfgang Betz 3:0df38cfb1e53 414 }
Wolfgang Betz 3:0df38cfb1e53 415
Wolfgang Betz 3:0df38cfb1e53 416 uint16_t SimpleSpirit1::arch_refresh_status(void) {
Wolfgang Betz 3:0df38cfb1e53 417 uint16_t mcstate;
Wolfgang Betz 3:0df38cfb1e53 418 uint8_t header[2];
Wolfgang Betz 3:0df38cfb1e53 419 header[0]=READ_HEADER;
Wolfgang Betz 3:0df38cfb1e53 420 header[1]=MC_STATE1_BASE;
Wolfgang Betz 3:0df38cfb1e53 421
Wolfgang Betz 3:0df38cfb1e53 422 /* Puts the SPI chip select low to start the transaction */
Wolfgang Betz 3:0df38cfb1e53 423 chip_sync_select();
Wolfgang Betz 3:0df38cfb1e53 424
Wolfgang Betz 3:0df38cfb1e53 425 /* Write the aHeader bytes and read the SPIRIT1 status bytes */
Wolfgang Betz 3:0df38cfb1e53 426 mcstate = _spi.write(header[0]);
Wolfgang Betz 3:0df38cfb1e53 427 mcstate = mcstate<<8;
Wolfgang Betz 3:0df38cfb1e53 428
Wolfgang Betz 3:0df38cfb1e53 429 /* Write the aHeader bytes and read the SPIRIT1 status bytes */
Wolfgang Betz 3:0df38cfb1e53 430 mcstate |= _spi.write(header[1]);
Wolfgang Betz 3:0df38cfb1e53 431
Wolfgang Betz 3:0df38cfb1e53 432 /* Puts the SPI chip select high to end the transaction */
Wolfgang Betz 3:0df38cfb1e53 433 chip_sync_unselect();
Wolfgang Betz 3:0df38cfb1e53 434
Wolfgang Betz 3:0df38cfb1e53 435 return mcstate;
Wolfgang Betz 3:0df38cfb1e53 436 }
Wolfgang Betz 3:0df38cfb1e53 437
Wolfgang Betz 6:f5d01793bf86 438 int SimpleSpirit1::read(void *buf, unsigned int bufsize)
Wolfgang Betz 4:07537ca85c66 439 {
Wolfgang Betz 4:07537ca85c66 440 PRINTF("READ IN\n");
Wolfgang Betz 4:07537ca85c66 441
Wolfgang Betz 6:f5d01793bf86 442 disable_spirit_irq();
Wolfgang Betz 6:f5d01793bf86 443
Wolfgang Betz 4:07537ca85c66 444 /* Checks if the RX buffer is empty */
Wolfgang Betz 4:07537ca85c66 445 if(IS_RXBUF_EMPTY()) {
Wolfgang Betz 4:07537ca85c66 446 CLEAR_RXBUF();
Wolfgang Betz 4:07537ca85c66 447 cmd_strobe(SPIRIT1_STROBE_SABORT);
Wolfgang Betz 4:07537ca85c66 448 wait_us(SABORT_WAIT_US);
Wolfgang Betz 4:07537ca85c66 449 cmd_strobe(SPIRIT1_STROBE_READY);
Wolfgang Betz 4:07537ca85c66 450 BUSYWAIT_UNTIL(SPIRIT1_STATUS() == SPIRIT1_STATE_READY, 1);
Wolfgang Betz 6:f5d01793bf86 451 cmd_strobe(SPIRIT1_STROBE_FRX);
Wolfgang Betz 4:07537ca85c66 452 cmd_strobe(SPIRIT1_STROBE_RX);
Wolfgang Betz 4:07537ca85c66 453 BUSYWAIT_UNTIL(SPIRIT1_STATUS() == SPIRIT1_STATE_RX, 1);
Wolfgang Betz 6:f5d01793bf86 454 _spirit_rx_err = false;
Wolfgang Betz 12:b8056eda4028 455 _is_receiving = false;
Wolfgang Betz 4:07537ca85c66 456 PRINTF("READ OUT RX BUF EMPTY\n");
Wolfgang Betz 4:07537ca85c66 457 enable_spirit_irq();
Wolfgang Betz 4:07537ca85c66 458 return 0;
Wolfgang Betz 4:07537ca85c66 459 }
Wolfgang Betz 4:07537ca85c66 460
Wolfgang Betz 4:07537ca85c66 461 if(bufsize < spirit_rx_len) {
Wolfgang Betz 6:f5d01793bf86 462 enable_spirit_irq();
Wolfgang Betz 6:f5d01793bf86 463
Wolfgang Betz 6:f5d01793bf86 464 /* If buf has the correct size */
Wolfgang Betz 4:07537ca85c66 465 PRINTF("TOO SMALL BUF\n");
Wolfgang Betz 4:07537ca85c66 466 return 0;
Wolfgang Betz 4:07537ca85c66 467 } else {
Wolfgang Betz 4:07537ca85c66 468 /* Copies the packet received */
Wolfgang Betz 4:07537ca85c66 469 memcpy(buf, spirit_rx_buf, spirit_rx_len);
Wolfgang Betz 4:07537ca85c66 470
Wolfgang Betz 4:07537ca85c66 471 #ifdef CONTIKI // betzw - TODO
Wolfgang Betz 4:07537ca85c66 472 packetbuf_set_attr(PACKETBUF_ATTR_RSSI, last_rssi); //MGR
Wolfgang Betz 4:07537ca85c66 473 packetbuf_set_attr(PACKETBUF_ATTR_LINK_QUALITY, last_lqi); //MGR
Wolfgang Betz 4:07537ca85c66 474 #endif
Wolfgang Betz 4:07537ca85c66 475
Wolfgang Betz 4:07537ca85c66 476 bufsize = spirit_rx_len;
Wolfgang Betz 12:b8056eda4028 477 _is_receiving = false;
Wolfgang Betz 4:07537ca85c66 478 CLEAR_RXBUF();
Wolfgang Betz 4:07537ca85c66 479
Wolfgang Betz 6:f5d01793bf86 480 enable_spirit_irq();
Wolfgang Betz 6:f5d01793bf86 481
Wolfgang Betz 4:07537ca85c66 482 PRINTF("READ OUT\n");
Wolfgang Betz 4:07537ca85c66 483
Wolfgang Betz 4:07537ca85c66 484 return bufsize;
Wolfgang Betz 4:07537ca85c66 485 }
Wolfgang Betz 4:07537ca85c66 486
Wolfgang Betz 4:07537ca85c66 487 }
Wolfgang Betz 4:07537ca85c66 488
Wolfgang Betz 4:07537ca85c66 489 int SimpleSpirit1::channel_clear(void)
Wolfgang Betz 4:07537ca85c66 490 {
Wolfgang Betz 4:07537ca85c66 491 float rssi_value;
Wolfgang Betz 4:07537ca85c66 492 /* Local variable used to memorize the SPIRIT1 state */
Wolfgang Betz 4:07537ca85c66 493 uint8_t spirit_state = ON;
Wolfgang Betz 4:07537ca85c66 494
Wolfgang Betz 4:07537ca85c66 495 PRINTF("CHANNEL CLEAR IN\n");
Wolfgang Betz 4:07537ca85c66 496
Wolfgang Betz 4:07537ca85c66 497 if(spirit_on == OFF) {
Wolfgang Betz 4:07537ca85c66 498 /* Wakes up the SPIRIT1 */
Wolfgang Betz 4:07537ca85c66 499 on();
Wolfgang Betz 4:07537ca85c66 500 spirit_state = OFF;
Wolfgang Betz 4:07537ca85c66 501 }
Wolfgang Betz 4:07537ca85c66 502
Wolfgang Betz 4:07537ca85c66 503 disable_spirit_irq();
Wolfgang Betz 7:e90fa8f6bc6c 504
Wolfgang Betz 7:e90fa8f6bc6c 505 /* Reset State to Ready */
Wolfgang Betz 7:e90fa8f6bc6c 506 set_ready_state();
Wolfgang Betz 4:07537ca85c66 507 {
Wolfgang Betz 7:e90fa8f6bc6c 508 uint32_t timeout = us_ticker_read() + 5000;
Wolfgang Betz 4:07537ca85c66 509 do {
Wolfgang Betz 4:07537ca85c66 510 mgmt_refresh_status();
Wolfgang Betz 7:e90fa8f6bc6c 511 } while((st_lib_g_x_status.MC_STATE != MC_STATE_READY) && (us_ticker_read() < timeout));
Wolfgang Betz 4:07537ca85c66 512 if(st_lib_g_x_status.MC_STATE != MC_STATE_READY) {
Wolfgang Betz 6:f5d01793bf86 513 enable_spirit_irq();
Wolfgang Betz 4:07537ca85c66 514 return 1;
Wolfgang Betz 4:07537ca85c66 515 }
Wolfgang Betz 4:07537ca85c66 516 }
Wolfgang Betz 4:07537ca85c66 517
Wolfgang Betz 4:07537ca85c66 518 /* Stores the RSSI value */
Wolfgang Betz 4:07537ca85c66 519 rssi_value = qi_get_rssi_dbm();
Wolfgang Betz 4:07537ca85c66 520
Wolfgang Betz 7:e90fa8f6bc6c 521 enable_spirit_irq();
Wolfgang Betz 7:e90fa8f6bc6c 522
Wolfgang Betz 4:07537ca85c66 523 /* Puts the SPIRIT1 in its previous state */
Wolfgang Betz 4:07537ca85c66 524 if(spirit_state==OFF) {
Wolfgang Betz 4:07537ca85c66 525 off();
Wolfgang Betz 4:07537ca85c66 526 } else {
Wolfgang Betz 6:f5d01793bf86 527 disable_spirit_irq();
Wolfgang Betz 6:f5d01793bf86 528 cmd_strobe(SPIRIT1_STROBE_FRX);
Wolfgang Betz 4:07537ca85c66 529 cmd_strobe(SPIRIT1_STROBE_RX);
Wolfgang Betz 4:07537ca85c66 530 /* SpiritCmdStrobeRx();*/
Wolfgang Betz 4:07537ca85c66 531 BUSYWAIT_UNTIL(SPIRIT1_STATUS() == SPIRIT1_STATE_RX, 5);
Wolfgang Betz 6:f5d01793bf86 532 CLEAR_RXBUF();
Wolfgang Betz 6:f5d01793bf86 533 _spirit_rx_err = false;
Wolfgang Betz 12:b8056eda4028 534 _is_receiving = false;
Wolfgang Betz 6:f5d01793bf86 535 enable_spirit_irq();
Wolfgang Betz 4:07537ca85c66 536 }
Wolfgang Betz 4:07537ca85c66 537
Wolfgang Betz 4:07537ca85c66 538 PRINTF("CHANNEL CLEAR OUT\n");
Wolfgang Betz 4:07537ca85c66 539
Wolfgang Betz 4:07537ca85c66 540 /* Checks the RSSI value with the threshold */
Wolfgang Betz 4:07537ca85c66 541 if(rssi_value<CCA_THRESHOLD) {
Wolfgang Betz 4:07537ca85c66 542 return 0;
Wolfgang Betz 4:07537ca85c66 543 } else {
Wolfgang Betz 4:07537ca85c66 544 return 1;
Wolfgang Betz 4:07537ca85c66 545 }
Wolfgang Betz 4:07537ca85c66 546 }
Wolfgang Betz 4:07537ca85c66 547
Wolfgang Betz 7:e90fa8f6bc6c 548 int SimpleSpirit1::get_pending_packet(void)
Wolfgang Betz 4:07537ca85c66 549 {
Wolfgang Betz 4:07537ca85c66 550 PRINTF("PENDING PACKET\n");
Wolfgang Betz 4:07537ca85c66 551 return !IS_RXBUF_EMPTY();
Wolfgang Betz 4:07537ca85c66 552 }
Wolfgang Betz 4:07537ca85c66 553
Wolfgang Betz 5:c9c5bc673c64 554 /** Spirit Irq Callback **/
Wolfgang Betz 5:c9c5bc673c64 555 void SimpleSpirit1::IrqHandler() {
Wolfgang Betz 4:07537ca85c66 556 st_lib_spirit_irqs x_irq_status;
Wolfgang Betz 4:07537ca85c66 557
Wolfgang Betz 4:07537ca85c66 558 /* get interrupt source from radio */
Wolfgang Betz 4:07537ca85c66 559 irq_get_status(&x_irq_status);
Wolfgang Betz 4:07537ca85c66 560 irq_clear_status();
Wolfgang Betz 4:07537ca85c66 561
Wolfgang Betz 6:f5d01793bf86 562 /* Reception errors */
Wolfgang Betz 6:f5d01793bf86 563 if((x_irq_status.IRQ_RX_FIFO_ERROR) || (x_irq_status.IRQ_RX_DATA_DISC) || (x_irq_status.IRQ_RX_TIMEOUT)) {
Wolfgang Betz 6:f5d01793bf86 564 _spirit_rx_err = true;
Wolfgang Betz 12:b8056eda4028 565 _is_receiving = false;
Wolfgang Betz 6:f5d01793bf86 566 CLEAR_RXBUF();
Wolfgang Betz 4:07537ca85c66 567 cmd_strobe(SPIRIT1_STROBE_FRX);
Wolfgang Betz 7:e90fa8f6bc6c 568 if(_spirit_tx_started) {
Wolfgang Betz 7:e90fa8f6bc6c 569 _spirit_tx_started = false;
Wolfgang Betz 7:e90fa8f6bc6c 570 CLEAR_TXBUF();
Wolfgang Betz 7:e90fa8f6bc6c 571 /* call user callback */
Wolfgang Betz 7:e90fa8f6bc6c 572 if(_current_irq_callback) {
Wolfgang Betz 9:3db68ab23070 573 _current_irq_callback(TX_ERR);
Wolfgang Betz 7:e90fa8f6bc6c 574 }
Wolfgang Betz 7:e90fa8f6bc6c 575 }
Wolfgang Betz 4:07537ca85c66 576 }
Wolfgang Betz 4:07537ca85c66 577
Wolfgang Betz 6:f5d01793bf86 578 /* Transmission error */
Wolfgang Betz 4:07537ca85c66 579 if(x_irq_status.IRQ_TX_FIFO_ERROR) {
Wolfgang Betz 6:f5d01793bf86 580 error("IRQ_TX_FIFO_ERROR should never happen!\n");
Wolfgang Betz 12:b8056eda4028 581
Wolfgang Betz 4:07537ca85c66 582 cmd_strobe(SPIRIT1_STROBE_FTX);
Wolfgang Betz 7:e90fa8f6bc6c 583 if(_spirit_tx_started) {
Wolfgang Betz 7:e90fa8f6bc6c 584 _spirit_tx_started = false;
Wolfgang Betz 7:e90fa8f6bc6c 585 CLEAR_TXBUF();
Wolfgang Betz 7:e90fa8f6bc6c 586 /* call user callback */
Wolfgang Betz 7:e90fa8f6bc6c 587 if(_current_irq_callback) {
Wolfgang Betz 9:3db68ab23070 588 _current_irq_callback(TX_ERR);
Wolfgang Betz 7:e90fa8f6bc6c 589 }
Wolfgang Betz 7:e90fa8f6bc6c 590 }
Wolfgang Betz 4:07537ca85c66 591 }
Wolfgang Betz 4:07537ca85c66 592
Wolfgang Betz 4:07537ca85c66 593 /* The IRQ_VALID_SYNC is used to notify a new packet is coming */
Wolfgang Betz 4:07537ca85c66 594 if(x_irq_status.IRQ_VALID_SYNC) {
Wolfgang Betz 12:b8056eda4028 595 _is_receiving = true;
Wolfgang Betz 12:b8056eda4028 596 _spirit_rx_err = false;
Wolfgang Betz 12:b8056eda4028 597 CLEAR_RXBUF();
Wolfgang Betz 12:b8056eda4028 598 MBED_ASSERT(!_spirit_tx_started);
Wolfgang Betz 6:f5d01793bf86 599 }
Wolfgang Betz 6:f5d01793bf86 600
Wolfgang Betz 6:f5d01793bf86 601 /* RX FIFO almost full */
Wolfgang Betz 6:f5d01793bf86 602 if(x_irq_status.IRQ_RX_FIFO_ALMOST_FULL) {
Wolfgang Betz 12:b8056eda4028 603 _is_receiving = true;
Wolfgang Betz 6:f5d01793bf86 604 if(_spirit_rx_err) {
Wolfgang Betz 6:f5d01793bf86 605 cmd_strobe(SPIRIT1_STROBE_FRX);
Wolfgang Betz 6:f5d01793bf86 606 } else {
Wolfgang Betz 6:f5d01793bf86 607 uint8_t fifo_available = linear_fifo_read_num_elements_rx_fifo();
Wolfgang Betz 6:f5d01793bf86 608 unsigned int remaining = MAX_PACKET_LEN - _spirit_rx_pos;
Wolfgang Betz 6:f5d01793bf86 609 if(fifo_available > remaining) {
Wolfgang Betz 6:f5d01793bf86 610 _spirit_rx_err = true;
Wolfgang Betz 6:f5d01793bf86 611 CLEAR_RXBUF();
Wolfgang Betz 6:f5d01793bf86 612 cmd_strobe(SPIRIT1_STROBE_FRX);
Wolfgang Betz 6:f5d01793bf86 613 } else {
Wolfgang Betz 6:f5d01793bf86 614 spi_read_linear_fifo(fifo_available, &spirit_rx_buf[_spirit_rx_pos]);
Wolfgang Betz 6:f5d01793bf86 615 _spirit_rx_pos += fifo_available;
Wolfgang Betz 6:f5d01793bf86 616 }
Wolfgang Betz 6:f5d01793bf86 617 }
Wolfgang Betz 4:07537ca85c66 618 }
Wolfgang Betz 4:07537ca85c66 619
Wolfgang Betz 4:07537ca85c66 620 /* The IRQ_TX_DATA_SENT notifies the packet received. Puts the SPIRIT1 in RX */
Wolfgang Betz 4:07537ca85c66 621 if(x_irq_status.IRQ_TX_DATA_SENT) {
Wolfgang Betz 7:e90fa8f6bc6c 622 MBED_ASSERT(_spirit_tx_started);
Wolfgang Betz 7:e90fa8f6bc6c 623
Wolfgang Betz 6:f5d01793bf86 624 cmd_strobe(SPIRIT1_STROBE_FRX);
Wolfgang Betz 4:07537ca85c66 625 cmd_strobe(SPIRIT1_STROBE_RX);
Wolfgang Betz 4:07537ca85c66 626 /* SpiritCmdStrobeRx();*/
Wolfgang Betz 4:07537ca85c66 627 CLEAR_TXBUF();
Wolfgang Betz 6:f5d01793bf86 628 CLEAR_RXBUF();
Wolfgang Betz 6:f5d01793bf86 629 _spirit_rx_err = false;
Wolfgang Betz 7:e90fa8f6bc6c 630 _spirit_tx_started = false;
Wolfgang Betz 7:e90fa8f6bc6c 631
Wolfgang Betz 7:e90fa8f6bc6c 632 /* call user callback */
Wolfgang Betz 7:e90fa8f6bc6c 633 if(_current_irq_callback) {
Wolfgang Betz 9:3db68ab23070 634 _current_irq_callback(TX_DONE); // betzw - TODO: define enums for callback values
Wolfgang Betz 7:e90fa8f6bc6c 635 }
Wolfgang Betz 4:07537ca85c66 636 }
Wolfgang Betz 4:07537ca85c66 637
Wolfgang Betz 4:07537ca85c66 638 /* The IRQ_RX_DATA_READY notifies a new packet arrived */
Wolfgang Betz 4:07537ca85c66 639 if(x_irq_status.IRQ_RX_DATA_READY) {
Wolfgang Betz 12:b8056eda4028 640 _is_receiving = false; // Finished receiving
Wolfgang Betz 12:b8056eda4028 641
Wolfgang Betz 6:f5d01793bf86 642 if(_spirit_rx_err) {
Wolfgang Betz 6:f5d01793bf86 643 _spirit_rx_err = false;
Wolfgang Betz 6:f5d01793bf86 644 CLEAR_RXBUF();
Wolfgang Betz 6:f5d01793bf86 645 cmd_strobe(SPIRIT1_STROBE_FRX);
Wolfgang Betz 6:f5d01793bf86 646 } else {
Wolfgang Betz 6:f5d01793bf86 647 spirit_rx_len = pkt_basic_get_received_pkt_length();
Wolfgang Betz 6:f5d01793bf86 648 unsigned int remaining = 0;
Wolfgang Betz 6:f5d01793bf86 649 uint8_t fifo_available = 0;
Wolfgang Betz 6:f5d01793bf86 650 uint8_t to_receive = 0;
Wolfgang Betz 6:f5d01793bf86 651
Wolfgang Betz 6:f5d01793bf86 652 MBED_ASSERT(spirit_rx_len <= MAX_PACKET_LEN);
Wolfgang Betz 5:c9c5bc673c64 653
Wolfgang Betz 6:f5d01793bf86 654 for(; _spirit_rx_pos < spirit_rx_len;) {
Wolfgang Betz 6:f5d01793bf86 655 remaining = spirit_rx_len - _spirit_rx_pos;
Wolfgang Betz 6:f5d01793bf86 656 fifo_available = linear_fifo_read_num_elements_rx_fifo();
Wolfgang Betz 6:f5d01793bf86 657 to_receive = (remaining < fifo_available) ? remaining : fifo_available;
Wolfgang Betz 6:f5d01793bf86 658 if(to_receive > 0) {
Wolfgang Betz 6:f5d01793bf86 659 spi_read_linear_fifo(to_receive, &spirit_rx_buf[_spirit_rx_pos]);
Wolfgang Betz 6:f5d01793bf86 660 _spirit_rx_pos += to_receive;
Wolfgang Betz 6:f5d01793bf86 661 }
Wolfgang Betz 6:f5d01793bf86 662 }
Wolfgang Betz 5:c9c5bc673c64 663
Wolfgang Betz 6:f5d01793bf86 664 cmd_strobe(SPIRIT1_STROBE_FRX);
Wolfgang Betz 4:07537ca85c66 665
Wolfgang Betz 6:f5d01793bf86 666 last_rssi = qi_get_rssi(); //MGR
Wolfgang Betz 6:f5d01793bf86 667 last_lqi = qi_get_lqi(); //MGR
Wolfgang Betz 4:07537ca85c66 668
Wolfgang Betz 4:07537ca85c66 669 #if NULLRDC_CONF_802154_AUTOACK
Wolfgang Betz 6:f5d01793bf86 670 if (spirit_rxbuf[0] == ACK_LEN) {
Wolfgang Betz 6:f5d01793bf86 671 /* For debugging purposes we assume this is an ack for us */
Wolfgang Betz 6:f5d01793bf86 672 just_got_an_ack = 1;
Wolfgang Betz 6:f5d01793bf86 673 }
Wolfgang Betz 4:07537ca85c66 674 #endif /* NULLRDC_CONF_802154_AUTOACK */
Wolfgang Betz 4:07537ca85c66 675
Wolfgang Betz 6:f5d01793bf86 676 /* call user callback */
Wolfgang Betz 6:f5d01793bf86 677 if(_current_irq_callback) {
Wolfgang Betz 9:3db68ab23070 678 _current_irq_callback(RX_DONE); // betzw - TODO: define enums for callback values
Wolfgang Betz 6:f5d01793bf86 679 }
Wolfgang Betz 6:f5d01793bf86 680 }
Wolfgang Betz 4:07537ca85c66 681 }
Wolfgang Betz 4:07537ca85c66 682 }