SCPI interface to SX1272 and SX1276

Dependencies:   SX127x lib_gps lib_mma8451q lib_mpl3115a2 lib_sx9500 libscpi mbed

Description

This program implements a SCPI command parser. When connected via the debug virtual comm port, you can command the radio and peripherals to perform specific tasks or to set specific parameters. The serial port defaults to 9600bps N-8-1.

Example

The following exampling causes the NA Mote to transmit a continuous LoRa signal.

Example SCPI Commands

*IDN?
RA:MOD LORA
RA:FREQ 903
RA:PAS PA_BOOST
RA:OCP 170
RA:BGR 7
RA:POW 15
RA:LORA:TXContinuous ON
RA:FI "test"

Commands

SCPI is case-insensitive. Commands can be entered lower case.

  • RAdio
    • :FIfo "text" write to fifo, and transmit packet
    • :FIfo? read from fifo (last received packet)
    • :REGister { address }, {value} write radio register (SCPI takes #H for hex prefix)
    • :REGister? { address } read radio register (SCPI takes #H for hex prefix)
    • :MODulation { FSK | OOK | LORa } set modem type
    • :MODulation? get modem type
    • :OPmode { SLE | STB | FST | TX | FSR | RXC | RXS | CAD } set mode
    • :OPmode? get mode
    • :DIOMap { 0 - 5 }, { 0 - 3 } set DIO pin function {pin number}, {map value}
    • :DIOMap? { 0 - 5 } get DIO pin function {pin number}
    • :DIO? { 0 - 5 } read DIO pin level
    • :RSSI? read received signal strength (if in RXC mode)
    • :PASelect { RFO | PA_BOOST } set RF output pin
    • :PASelect? get RF output pin selected
    • :OCP {mA} set over current protection
    • :OCP? read current limit
    • :POWer {0 to 15} set OutputPower
    • :POWer? get OutputPower
    • :BGR { 0 - 7 } set PA ref current
    • :BGR? get PA ref current
    • :FREQuency {MHz} set FRF
    • :FREQuency? get FRF
    • :LNABoost { OFF | ON } set LNA boost
    • :LNABoost? get LNA boost
    • :LORa
      • :BW {KHz} set lora bandwidth
      • :BW? get lora bandwidth (in KHz)
      • :SF {7 to 12} set spreading factor
      • :SF? get spreading factor
      • :TXContinuous { OFF | ON } set continuous TX (end transmit by turning off)
      • :TXContinuous? get continuous TX
      • :PRELen {n-symbols} set preamble length
      • :PRELen? get preamble length
      • :CR {0-4} set coding rate
      • :CR? get coding rate
      • :LDRO { OFF | ON } set LowDataRateOptimize bit
      • :LDRO? get LowDataRateOptimize bit
      • :CRC { OFF | ON} enable CRC in transmitted packet
      • :CRC? read CRC enabled state
      • :INVRx { OFF | ON } enable receiver spectral invert
      • :INVRx? get receiver inversion state
      • :INVTx { OFF | ON } enable transmitter spectral invert
      • :INVTx? get transmitter inversion state
      • :FEI? get frequency error of last received packet
      • :PKTSnr? get S/N (dB) of last received packet
    • :FSK
      • :DATAMode { CONT | PKT } select continuous/packet mode
      • :DATAMode? get packet mode / continuous
      • :FDev {Hz} set TX frequency deviation
      • :FDev? get TX frequency deviation
      • :BITRate {bps} set bit rate
      • :BITRate? get bit rate
      • :BT { 1.0 | 0.5 | 0.3 | 0.0 } set transmit shaping
      • :BT? get transmit shaping
      • :PRELen {n} set preamble size
      • :PRELen? get preamble size
      • :RXBW {Hz} set receive bandwidth
      • :RXBW? set receive bandwidth
      • :AFCBW {Hz} set receive bandwidth (during preamble)
      • :AFCBW? set receive bandwidth (during preamble)
      • :DCFree { OFF | MAN | WHIT } set DC-free encoding
      • :DCFree? get DC-free encoding
      • :RXTrigger { OFF | RSSI | PRE | BOTH } set RX trigger mode
      • :RXTrigger? get RX trigger selection

radio events

Radio events are reported into the Questionable Data Status Event Register, which is summarized in Bit 3 (QSB) of Status Byte Register.

enabling event and reading event

RA:MOD?
"LORa"
RA:OP?
"RXC"
STAT:QUES:ENAB 512
*STB?
8
STAT:QUES:EVEN?
512
RA:FI?
"4747474747474747"
*STB?
0

Bit 9 of QUEStionable event register indicates DIO0 event occurred upon radio packet reception.

NA Mote-72 specific commands

  • PD2 { OFF | ON } set power amplifier voltage state
  • PD2? get power amplifier voltage state
  • VBAT? read battery voltage
  • GPS
    • :EN { OFF | ON } enable GPS
    • :EN? get GPS enabled state
    • :NUMCoords {n} set count of coordinates received (use to clear count)
    • :NUMCoords? get count of coordinates received
    • :LOngitude {n} set longitude
    • :LOngitude? get longitude
    • :LAtitude {n} set latitude
    • :LAtitude? get latitude
  • MMA MMA8451Q
    • :ID? read ID register (WHO_AM_I == 0x1a)
  • MPL MPL3115A2
    • :ID? read ID register (WHO_AM_I == 0xc4)
  • SX9500
    • :RST reset SX9500
    • :REGister {addr}, {value} write SX9500 register
    • :REGister? {addr} read SX9500 register
Committer:
dudmuck
Date:
Tue Aug 18 00:51:59 2015 +0000
Revision:
2:547cc73f8887
Parent:
0:8767be3c1b7f
Child:
9:73e03383fd21
added commands

Who changed what in which revision?

UserRevisionLine numberNew contents of line
dudmuck 0:8767be3c1b7f 1 /*-
dudmuck 0:8767be3c1b7f 2 * Copyright (c) 2012-2013 Jan Breuer,
dudmuck 0:8767be3c1b7f 3 *
dudmuck 0:8767be3c1b7f 4 * All Rights Reserved
dudmuck 0:8767be3c1b7f 5 *
dudmuck 0:8767be3c1b7f 6 * Redistribution and use in source and binary forms, with or without
dudmuck 0:8767be3c1b7f 7 * modification, are permitted provided that the following conditions are
dudmuck 0:8767be3c1b7f 8 * met:
dudmuck 0:8767be3c1b7f 9 * 1. Redistributions of source code must retain the above copyright notice,
dudmuck 0:8767be3c1b7f 10 * this list of conditions and the following disclaimer.
dudmuck 0:8767be3c1b7f 11 * 2. Redistributions in binary form must reproduce the above copyright
dudmuck 0:8767be3c1b7f 12 * notice, this list of conditions and the following disclaimer in the
dudmuck 0:8767be3c1b7f 13 * documentation and/or other materials provided with the distribution.
dudmuck 0:8767be3c1b7f 14 *
dudmuck 0:8767be3c1b7f 15 * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
dudmuck 0:8767be3c1b7f 16 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
dudmuck 0:8767be3c1b7f 17 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
dudmuck 0:8767be3c1b7f 18 * DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE
dudmuck 0:8767be3c1b7f 19 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
dudmuck 0:8767be3c1b7f 20 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
dudmuck 0:8767be3c1b7f 21 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
dudmuck 0:8767be3c1b7f 22 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
dudmuck 0:8767be3c1b7f 23 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
dudmuck 0:8767be3c1b7f 24 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
dudmuck 0:8767be3c1b7f 25 * IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
dudmuck 0:8767be3c1b7f 26 */
dudmuck 0:8767be3c1b7f 27
dudmuck 0:8767be3c1b7f 28 /**
dudmuck 0:8767be3c1b7f 29 * @file main.c
dudmuck 0:8767be3c1b7f 30 * @date Thu Nov 15 10:58:45 UTC 2012
dudmuck 0:8767be3c1b7f 31 *
dudmuck 0:8767be3c1b7f 32 * @brief SCPI parser test
dudmuck 0:8767be3c1b7f 33 *
dudmuck 0:8767be3c1b7f 34 *
dudmuck 0:8767be3c1b7f 35 */
dudmuck 0:8767be3c1b7f 36
dudmuck 0:8767be3c1b7f 37 #include <stdio.h>
dudmuck 0:8767be3c1b7f 38 #include <stdlib.h>
dudmuck 0:8767be3c1b7f 39 #include <string.h>
dudmuck 0:8767be3c1b7f 40 #include "scpi/scpi.h"
dudmuck 0:8767be3c1b7f 41 #include "../common/scpi-def.h"
dudmuck 0:8767be3c1b7f 42
dudmuck 0:8767be3c1b7f 43 #include "mbed.h"
dudmuck 0:8767be3c1b7f 44 Serial pc(USBTX, USBRX);
dudmuck 0:8767be3c1b7f 45
dudmuck 2:547cc73f8887 46 char smbuffer[64];
dudmuck 2:547cc73f8887 47
dudmuck 0:8767be3c1b7f 48 size_t SCPI_Write(scpi_t * context, const char * data, size_t len) {
dudmuck 0:8767be3c1b7f 49 (void) context;
dudmuck 0:8767be3c1b7f 50 return fwrite(data, 1, len, stdout);
dudmuck 0:8767be3c1b7f 51 }
dudmuck 0:8767be3c1b7f 52
dudmuck 0:8767be3c1b7f 53 scpi_result_t SCPI_Flush(scpi_t * context) {
dudmuck 0:8767be3c1b7f 54 fflush(stdout);
dudmuck 0:8767be3c1b7f 55 return SCPI_RES_OK;
dudmuck 0:8767be3c1b7f 56 }
dudmuck 0:8767be3c1b7f 57
dudmuck 0:8767be3c1b7f 58 int SCPI_Error(scpi_t * context, int_fast16_t err) {
dudmuck 0:8767be3c1b7f 59 (void) context;
dudmuck 0:8767be3c1b7f 60
dudmuck 0:8767be3c1b7f 61 printf("**ERROR: %d, \"%s\"\r\n", (int32_t) err, SCPI_ErrorTranslate(err));
dudmuck 0:8767be3c1b7f 62 return 0;
dudmuck 0:8767be3c1b7f 63 }
dudmuck 0:8767be3c1b7f 64
dudmuck 0:8767be3c1b7f 65 scpi_result_t SCPI_Control(scpi_t * context, scpi_ctrl_name_t ctrl, scpi_reg_val_t val) {
dudmuck 0:8767be3c1b7f 66 if (SCPI_CTRL_SRQ == ctrl) {
dudmuck 0:8767be3c1b7f 67 printf("**SRQ: 0x%X (%d)\r\n", val, val);
dudmuck 0:8767be3c1b7f 68 } else {
dudmuck 0:8767be3c1b7f 69 printf("**CTRL %02x: 0x%X (%d)\r\n", ctrl, val, val);
dudmuck 0:8767be3c1b7f 70 }
dudmuck 0:8767be3c1b7f 71 return SCPI_RES_OK;
dudmuck 0:8767be3c1b7f 72 }
dudmuck 0:8767be3c1b7f 73
dudmuck 0:8767be3c1b7f 74 /**
dudmuck 0:8767be3c1b7f 75 * Return 0 as OK and other number as error
dudmuck 0:8767be3c1b7f 76 */
dudmuck 0:8767be3c1b7f 77 scpi_result_t SCPI_Test(scpi_t * context) {
dudmuck 0:8767be3c1b7f 78 printf("**Test\r\n");
dudmuck 0:8767be3c1b7f 79 return (scpi_result_t)0;
dudmuck 0:8767be3c1b7f 80 }
dudmuck 0:8767be3c1b7f 81
dudmuck 0:8767be3c1b7f 82
dudmuck 0:8767be3c1b7f 83
dudmuck 0:8767be3c1b7f 84 scpi_result_t SCPI_SystemCommTcpipControlQ(scpi_t * context) {
dudmuck 0:8767be3c1b7f 85 return SCPI_RES_ERR;
dudmuck 0:8767be3c1b7f 86 }
dudmuck 0:8767be3c1b7f 87 /*
dudmuck 0:8767be3c1b7f 88 *
dudmuck 0:8767be3c1b7f 89 */
dudmuck 0:8767be3c1b7f 90 int get_kbd_str(char* buf, int size)
dudmuck 0:8767be3c1b7f 91 {
dudmuck 0:8767be3c1b7f 92 char c;
dudmuck 0:8767be3c1b7f 93 int i;
dudmuck 0:8767be3c1b7f 94 static int prev_len;
dudmuck 0:8767be3c1b7f 95
dudmuck 0:8767be3c1b7f 96 for (i = 0;;) {
dudmuck 0:8767be3c1b7f 97 if (pc.readable()) {
dudmuck 0:8767be3c1b7f 98 c = pc.getc();
dudmuck 0:8767be3c1b7f 99 if (c == 8) { // backspace
dudmuck 0:8767be3c1b7f 100 if (i > 0) {
dudmuck 0:8767be3c1b7f 101 pc.putc(8);
dudmuck 0:8767be3c1b7f 102 pc.putc(' ');
dudmuck 0:8767be3c1b7f 103 pc.putc(8);
dudmuck 0:8767be3c1b7f 104 i--;
dudmuck 0:8767be3c1b7f 105 }
dudmuck 0:8767be3c1b7f 106 } else if (c == '\r') {
dudmuck 0:8767be3c1b7f 107 if (i == 0) {
dudmuck 0:8767be3c1b7f 108 return prev_len; // repeat previous
dudmuck 0:8767be3c1b7f 109 } else {
dudmuck 0:8767be3c1b7f 110 buf[i++] = c;
dudmuck 0:8767be3c1b7f 111 buf[i] = 0; // null terminate
dudmuck 0:8767be3c1b7f 112 prev_len = i;
dudmuck 0:8767be3c1b7f 113 pc.putc('\r');
dudmuck 0:8767be3c1b7f 114 pc.putc('\n');
dudmuck 0:8767be3c1b7f 115 return i;
dudmuck 0:8767be3c1b7f 116 }
dudmuck 0:8767be3c1b7f 117 } else if (c == 3) {
dudmuck 0:8767be3c1b7f 118 // ctrl-C abort
dudmuck 0:8767be3c1b7f 119 //abort_key = true;
dudmuck 0:8767be3c1b7f 120 return -1;
dudmuck 0:8767be3c1b7f 121 } else if (i < size) {
dudmuck 0:8767be3c1b7f 122 buf[i++] = c;
dudmuck 0:8767be3c1b7f 123 pc.putc(c);
dudmuck 0:8767be3c1b7f 124 }
dudmuck 0:8767be3c1b7f 125 } else {
dudmuck 0:8767be3c1b7f 126 /* service something */
dudmuck 0:8767be3c1b7f 127 service_radio();
dudmuck 0:8767be3c1b7f 128 }
dudmuck 0:8767be3c1b7f 129 } // ...for()
dudmuck 0:8767be3c1b7f 130 }
dudmuck 0:8767be3c1b7f 131
dudmuck 0:8767be3c1b7f 132 int main(int argc, char** argv) {
dudmuck 0:8767be3c1b7f 133 (void) argc;
dudmuck 0:8767be3c1b7f 134 (void) argv;
dudmuck 0:8767be3c1b7f 135 //int result;
dudmuck 0:8767be3c1b7f 136
dudmuck 0:8767be3c1b7f 137 scpi_def_init();
dudmuck 0:8767be3c1b7f 138
dudmuck 0:8767be3c1b7f 139 SCPI_Init(&scpi_context);
dudmuck 0:8767be3c1b7f 140
dudmuck 0:8767be3c1b7f 141 printf("\r\nreset\r\n");
dudmuck 2:547cc73f8887 142
dudmuck 0:8767be3c1b7f 143 while (1) {
dudmuck 0:8767be3c1b7f 144 //fgets(smbuffer, 10, stdin);
dudmuck 0:8767be3c1b7f 145 int len = get_kbd_str(smbuffer, sizeof(smbuffer));
dudmuck 0:8767be3c1b7f 146 if (len > 0) {
dudmuck 0:8767be3c1b7f 147 /*result =*/ SCPI_Input(&scpi_context, smbuffer, len);
dudmuck 0:8767be3c1b7f 148 }
dudmuck 0:8767be3c1b7f 149 }
dudmuck 0:8767be3c1b7f 150
dudmuck 0:8767be3c1b7f 151 //return (EXIT_SUCCESS);
dudmuck 0:8767be3c1b7f 152 }
dudmuck 0:8767be3c1b7f 153