void radio_send_frame(uint8_t len, uint8_t *frm, uint8_t compcrc)
{
trx_frame_write(len, frm);
// frm[2] = frm[2]+1;
TRX_SLPTR_HIGH();
TRX_SLPTR_LOW();
}
void radio_send_frame(uint8_t len, uint8_t *frm, uint8_t compcrc)
{
/* this block should be made atomic */
trx_frame_write(len, frm);
TRX_SLPTR_HIGH();
TRX_SLPTR_LOW();
/***********************************/
}
void radio_send_frame(uint8_t len, uint8_t *frm, uint8_t compcrc)
{
#ifdef TRX_TX_PA_EI
if (radiostatus.tx_pa)
{
TRX_TX_PA_EI();
}
#endif
/* this block should be made atomic */
TRX_SLPTR_HIGH();
TRX_SLPTR_LOW();
trx_frame_write(len, frm);
/***********************************/
}
uint8_t wibo_run(void)
{
uint8_t isLeave=0;
uint8_t isStay=0;
unsigned long timeout = WIBO_TIMEOUT;
while(!isLeave) {
#if !defined(NO_LEDS)
LED_CLR(PROGLED);
#endif
if (!(isStay))
{
while(!(wibo_available()) && (timeout--)) _delay_ms(1); // minimum frame time @ 250kbps ~ 2ms.
if (!(wibo_available())) // no packets received, bye bye!
{
isLeave=1;
return isLeave;
}
}
else
{
while(!(wibo_available())); // wait for next packet
}
trx_reg_write(RG_IRQ_STATUS, TRX_IRQ_RX_END); /* clear the flag */
trx_frame_read(rxbuf.data, sizeof(rxbuf.data) / sizeof(rxbuf.data[0]),
&tmp); /* dont use LQI, write into tmp variable */
#if !defined(NO_LEDS)
LED_SET(PROGLED);
/* light as long as actions are running */
#endif
switch (rxbuf.hdr.cmd)
{
case P2P_PING_REQ:
isStay=1;
if (0 == deaf)
{
pingrep.hdr.dst = rxbuf.hdr.src;
pingrep.hdr.seq++;
pingrep.crc = datacrc;
trx_reg_write(RG_TRX_STATE, CMD_TX_ARET_ON);
/* no need to make block atomic since no IRQs are used */
TRX_SLPTR_HIGH()
;
TRX_SLPTR_LOW()
;
trx_frame_write(sizeof(p2p_ping_cnf_t) + sizeof(BOARD_NAME) + 2,
(uint8_t*) &pingrep);
/*******************************************************/
#if defined(_DEBUG_SERIAL_)
printf("Pinged by 0x%04X"EOL, rxbuf.hdr.src);
#endif
#if defined(TRX_IF_RFA1)
while (!(trx_reg_read(RG_IRQ_STATUS) & TRX_IRQ_TX_END))
;
trx_reg_write(RG_IRQ_STATUS, TRX_IRQ_TX_END); /* clear the flag */
#else
while (!(trx_reg_read(RG_IRQ_STATUS) & TRX_IRQ_TRX_END))
;
#endif /* defined(TRX_IF_RFA1) */
trx_reg_write(RG_TRX_STATE, CMD_RX_AACK_ON);
} /* (0 == deaf) */
break;
case P2P_WIBO_TARGET:
isStay=1;
target = rxbuf.wibo_target.targmem;
#if defined(_DEBUG_SERIAL_)
printf("Set Target to %c"EOL, target);
#endif
break;
case P2P_WIBO_RESET:
isStay=1;
#if defined(_DEBUG_SERIAL_)
printf("Reset"EOL);
#endif
addr = SPM_PAGESIZE; /* misuse as counter */
ptr = pagebuf;
do
{
*ptr++ = 0xFF;
} while (--addr);
addr = 0;
datacrc = 0;
pagebufidx = 0;
deaf = 0;
break;
case P2P_WIBO_ADDR:
isStay=1;
#if defined(_DEBUG_SERIAL_)
printf("Set address: 0x%08lX"EOL, rxbuf.wibo_addr.address);
#endif
addr = rxbuf.wibo_addr.address;
pagebufidx = 0;
break;
case P2P_WIBO_DATA:
isStay=1;
#if defined(_DEBUG_SERIAL_)
printf("Data[%d]", rxbuf.wibo_data.dsize);
uint8_t len = rxbuf.wibo_data.dsize;
if (len > 10) len = 10;
for(uint8_t j=0;j<len;j++)
{
printf(" %02X", rxbuf.wibo_data.data[j]);
}
if (len != rxbuf.wibo_data.dsize)
printf("...");
printf(EOL);
#endif
tmp = rxbuf.wibo_data.dsize;
ptr = rxbuf.wibo_data.data;
do
{
datacrc = _crc_ccitt_update(datacrc, *ptr);
pagebuf[pagebufidx++] = *ptr;
if (pagebufidx >= PAGEBUFSIZE)
{
/* LED off to save current and avoid flash corruption
* because of possible voltage drops
*/
#if !defined(NO_LEDS)
LED_CLR(PROGLED);
#endif
if (target == 'F') /* Flash memory */
{
boot_program_page(addr, pagebuf);
}
else if (target == 'E')
{
/* not implemented */
}
else
{
/* unknown target, dry run */
}
/* also for dry run! */
addr += SPM_PAGESIZE;
pagebufidx = 0;
}
ptr++;
} while (--tmp);
break;
#if defined(WIBO_FLAVOUR_BOOTLUP)
case P2P_WIBO_BOOTLUP:
isStay=1;
bootlup();
break;
#endif
case P2P_WIBO_FINISH:
isStay=1;
#if defined(_DEBUG_SERIAL_)
printf("Finish"EOL);
#endif
if (target == 'F') /* Flash memory */
{
boot_program_page(addr, pagebuf);
}
else if (target == 'E')
{
/* not implemented */
}
else
{
/* unknown target, dry run */
}
/* also for dry run! */
addr += SPM_PAGESIZE;
pagebufidx = 0;
break;
case P2P_WIBO_EXIT:
#if defined(_DEBUG_SERIAL_)
printf("Exit"EOL);
#endif
#if !defined(NO_LEDS)
LED_CLR(PROGLED);
#endif
isLeave=1;
break;
case P2P_WIBO_DEAF:
isStay=1;
deaf = 1;
break;
default:
/* unknown or unhandled command */
if (!(isStay)) {
if (!(timeout--)) {
isLeave = 1;
}
}
break;
}; /* switch (rxbuf.hdr.cmd) */
}
return isLeave;
}
void radio_set_state(volatile radio_state_t state)
{
volatile trx_regval_t cmd, expstatus, currstatus;
uint8_t retries;
bool do_sleep = false;
switch(state)
{
case STATE_OFF:
expstatus = TRX_OFF;
cmd = CMD_TRX_OFF;
break;
case STATE_RX:
expstatus = RX_ON;
cmd = CMD_RX_ON;
break;
case STATE_TX:
expstatus = PLL_ON;
cmd = CMD_PLL_ON;
break;
case STATE_RXAUTO:
expstatus = RX_AACK_ON;
cmd = CMD_RX_AACK_ON;
break;
case STATE_TXAUTO:
expstatus = TX_ARET_ON;
cmd = CMD_TX_ARET_ON;
break;
case STATE_SLEEP:
expstatus = TRX_OFF;
cmd = CMD_FORCE_TRX_OFF;
do_sleep = true;
break;
default:
radio_error(GENERAL_ERROR);
expstatus = TRX_OFF;
cmd = CMD_TRX_OFF;
break;
}
if (STATE_SLEEP == radiostatus.state)
{
if (do_sleep)
{
return;
}
TRX_SLPTR_LOW();
/*
* Give the xosc some time to start up. Once it started, the
* SPI interface is operational, and the transceiver state can
* be polled. The state reads as 0b0011111 ("state transition
* in progress") while the transceiver is still in its startup
* phase, which does not match any of the "expstatus" values,
* so polling just continues.
*/
DELAY_US(500);
/*
* The exact wake-up timing is very board-dependent.
* Contributing parameters are the effective series resitance
* of the crystal, and the external bypass capacitor that has
* to be charged by the voltage regulator. Give the crystal
* oscillator some time to start up. 5 ms (100 * 50 us) ought
* to be enough under all circumstances.
*/
retries = 100;
do
{
currstatus = trx_bit_read(SR_TRX_STATUS);
/*
* Sleep could only be entered from TRX_OFF, so that's
* what is expected again.
*/
if (TRX_OFF == currstatus)
{
break;
}
DELAY_US(50);
}
while (--retries);
if (currstatus != TRX_OFF)
{
/* radio didn't wake up */
radio_error(STATE_SET_FAILED);
}
}
trx_bit_write(SR_TRX_CMD, cmd);
retries = 140; /* enough to await an ongoing frame
* reception */
do
{
currstatus = trx_bit_read(SR_TRX_STATUS);
if (expstatus == currstatus)
{
break;
}
/** @todo must wait longer for 790/868/900 MHz radios */
DELAY_US(32);
}
while (--retries);
if (expstatus != currstatus)
{
radio_error(STATE_SET_FAILED);
}
if (do_sleep)
{
TRX_SLPTR_HIGH();
}
radiostatus.state = state;
}
void radio_set_state(radio_state_t state)
{
volatile trx_regval_t cmd, expstatus, currstatus;
uint8_t retries;
bool do_sleep = false;
switch(state)
{
case STATE_OFF:
expstatus = TRX_OFF;
cmd = CMD_TRX_OFF;
break;
case STATE_RX:
expstatus = RX_ON;
cmd = CMD_RX_ON;
break;
case STATE_TX:
expstatus = PLL_ON;
cmd = CMD_PLL_ON;
break;
case STATE_RXAUTO:
expstatus = RX_AACK_ON;
cmd = CMD_RX_AACK_ON;
break;
case STATE_TXAUTO:
expstatus = TX_ARET_ON;
cmd = CMD_TX_ARET_ON;
break;
case STATE_SLEEP:
expstatus = TRX_OFF;
cmd = CMD_FORCE_TRX_OFF;
do_sleep = true;
break;
default:
radio_error(GENERAL_ERROR);
expstatus = TRX_OFF;
cmd = CMD_TRX_OFF;
break;
}
if (STATE_SLEEP == radiostatus.state)
{
if (do_sleep)
{
return;
}
TRX_SLPTR_LOW();
/*
* Give the xosc some time to start up. Once it started, the
* SPI interface is operational, and the transceiver state can
* be polled. The state reads as 0b0011111 ("state transition
* in progress") while the transceiver is still in its startup
* phase, which does not match any of the "expstatus" values,
* so polling just continues.
*/
DELAY_US(500);
}
trx_bit_write(SR_TRX_CMD, cmd);
retries = 140; /* enough to await an ongoing frame
* reception */
do
{
currstatus = trx_bit_read(SR_TRX_STATUS);
if (expstatus == currstatus)
{
break;
}
/** @todo must wait longer for 790/868/900 MHz radios */
DELAY_US(32);
}
while (--retries);
if (expstatus != currstatus)
{
radio_error(STATE_SET_FAILED);
}
if (do_sleep)
{
TRX_SLPTR_HIGH();
}
radiostatus.state = state;
}
