wayne roberts / Mbed OS utility_sx12xx

Text menu driven ANSI/VT100 console test utility for LoRa transceivers

radio chip selection

Radio chip driver is not included, allowing choice of radio device.
If you're using SX1272 or SX1276, then import sx127x driver into your program.
if you're using SX1261 or SX1262, then import sx126x driver into your program.
if you're using SX1280, then import sx1280 driver into your program.
if you're using LR1110, then import LR1110 driver into your program.
If you're using NAmote72 or Murata discovery, then you must import only sx127x driver.
If you're using Type1SJ select target DISCO_L072CZ_LRWAN1 and import sx126x driver into your program.

This is VT100 text-based menu driven test program for SX12xx transceiver devices.
Serial console is divided into horizontally into top half and bottom half.
The bottom half serves as scrolling area to log activity.
The top half serves as menu, to configure the radio.
For all devices, the serial console operates at 115200 8N1, and requires terminal with ANSI-VT100 capability, such as putty/teraterm/minicom etc.
Use program only with keyboard up/down/left/right keys. Enter to change an item, or number for value item. Some items are single bit, requiring only enter key to toggle. Others with fixed choices give a drop-down menu.

radio_ff_arduino_sx127x.cpp@4:fa31fdf4ec8d, 2018-11-25 (annotated)

Committer:
Wayne Roberts
Date:
Sun Nov 25 15:34:40 2018 -0800
Revision:
4:fa31fdf4ec8d
Parent:
1:0817a150122b
Child:
5:1e5cb7139acb
add PA-off and xtal trim

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Wayne Roberts 1:0817a150122b 1 /* Only for NUCLEO boards: prevent compiling for MOTE_L152RC and typeABZ discovery */
Wayne Roberts 1:0817a150122b 2 #if defined(TARGET_FF_ARDUINO) && defined(TARGET_FF_MORPHO) && !defined(TARGET_DISCO_L072CZ_LRWAN1)
Wayne Roberts 1:0817a150122b 3 #include "radio.h"
Wayne Roberts 1:0817a150122b 4 #ifdef SX127x_H
Wayne Roberts 1:0817a150122b 5
Wayne Roberts 1:0817a150122b 6 SPI spi(D11, D12, D13); // mosi, miso, sclk
Wayne Roberts 1:0817a150122b 7 // dio0, dio1, nss, spi, rst
Wayne Roberts 1:0817a150122b 8 SX127x Radio::radio( D2, D3, D10, spi, A0); // sx127[62] arduino shield
Wayne Roberts 1:0817a150122b 9 SX127x_lora Radio::lora(radio);
Wayne Roberts 1:0817a150122b 10 SX127x_fsk Radio::fsk(radio);
Wayne Roberts 1:0817a150122b 11
Wayne Roberts 1:0817a150122b 12 InterruptIn Radio::dio0(D2);
Wayne Roberts 1:0817a150122b 13 InterruptIn Radio::dio1(D3);
Wayne Roberts 1:0817a150122b 14
Wayne Roberts 1:0817a150122b 15 typedef enum {
Wayne Roberts 1:0817a150122b 16 SHIELD_TYPE_NONE = 0,
Wayne Roberts 1:0817a150122b 17 SHIELD_TYPE_LAS,
Wayne Roberts 1:0817a150122b 18 SHIELD_TYPE_MAS,
Wayne Roberts 1:0817a150122b 19 } shield_type_e;
Wayne Roberts 1:0817a150122b 20 shield_type_e shield_type;
Wayne Roberts 1:0817a150122b 21
Wayne Roberts 1:0817a150122b 22 #ifdef TARGET_FF_MORPHO
Wayne Roberts 1:0817a150122b 23 DigitalOut pc3(PC_3); // debug RX indication, for nucleo boards
Wayne Roberts 1:0817a150122b 24 #endif /* TARGET_FF_MORPHO */
Wayne Roberts 1:0817a150122b 25 DigitalInOut rfsw(A4);
Wayne Roberts 1:0817a150122b 26 void Radio::rfsw_callback()
Wayne Roberts 1:0817a150122b 27 {
Wayne Roberts 1:0817a150122b 28 if (radio.RegOpMode.bits.Mode == RF_OPMODE_TRANSMITTER)
Wayne Roberts 1:0817a150122b 29 rfsw = 1;
Wayne Roberts 1:0817a150122b 30 else
Wayne Roberts 1:0817a150122b 31 rfsw = 0;
Wayne Roberts 1:0817a150122b 32
Wayne Roberts 1:0817a150122b 33 if (radio.RegOpMode.bits.Mode == RF_OPMODE_RECEIVER || radio.RegOpMode.bits.Mode == RF_OPMODE_RECEIVER_SINGLE)
Wayne Roberts 1:0817a150122b 34 pc3 = 1;
Wayne Roberts 1:0817a150122b 35 else
Wayne Roberts 1:0817a150122b 36 pc3 = 0;
Wayne Roberts 1:0817a150122b 37 }
Wayne Roberts 1:0817a150122b 38
Wayne Roberts 1:0817a150122b 39 void
Wayne Roberts 1:0817a150122b 40 Radio::set_tx_dbm(int8_t dbm)
Wayne Roberts 1:0817a150122b 41 {
Wayne Roberts 1:0817a150122b 42 RegPdsTrim1_t pds_trim;
Wayne Roberts 1:0817a150122b 43 uint8_t adr;
Wayne Roberts 1:0817a150122b 44
Wayne Roberts 1:0817a150122b 45 if (radio.type == SX1276)
Wayne Roberts 1:0817a150122b 46 adr = REG_PDSTRIM1_SX1276;
Wayne Roberts 1:0817a150122b 47 else
Wayne Roberts 1:0817a150122b 48 adr = REG_PDSTRIM1_SX1272;
Wayne Roberts 1:0817a150122b 49
Wayne Roberts 1:0817a150122b 50 pds_trim.octet = radio.read_reg(adr);
Wayne Roberts 1:0817a150122b 51
Wayne Roberts 1:0817a150122b 52 if (shield_type == SHIELD_TYPE_LAS)
Wayne Roberts 1:0817a150122b 53 radio.RegPaConfig.bits.PaSelect = 1;
Wayne Roberts 1:0817a150122b 54 else
Wayne Roberts 1:0817a150122b 55 radio.RegPaConfig.bits.PaSelect = 0;
Wayne Roberts 1:0817a150122b 56
Wayne Roberts 1:0817a150122b 57 if (radio.RegPaConfig.bits.PaSelect) {
Wayne Roberts 1:0817a150122b 58 /* PABOOST used: +2dbm to +17, or +20 */
Wayne Roberts 1:0817a150122b 59 if (dbm > 17) {
Wayne Roberts 1:0817a150122b 60 if (dbm > 20)
Wayne Roberts 1:0817a150122b 61 dbm = 20;
Wayne Roberts 1:0817a150122b 62 dbm -= 3;
Wayne Roberts 1:0817a150122b 63 pds_trim.bits.prog_txdac = 7;
Wayne Roberts 1:0817a150122b 64 radio.write_reg(adr, pds_trim.octet);
Wayne Roberts 1:0817a150122b 65 ocp(150);
Wayne Roberts 1:0817a150122b 66 } else
Wayne Roberts 1:0817a150122b 67 ocp(120);
Wayne Roberts 1:0817a150122b 68
Wayne Roberts 1:0817a150122b 69 if (dbm > 1)
Wayne Roberts 1:0817a150122b 70 radio.RegPaConfig.bits.OutputPower = dbm - 2;
Wayne Roberts 1:0817a150122b 71 } else {
Wayne Roberts 1:0817a150122b 72 /* RFO used: -1 to +14dbm */
Wayne Roberts 1:0817a150122b 73 ocp(80);
Wayne Roberts 1:0817a150122b 74 if (dbm < 15)
Wayne Roberts 1:0817a150122b 75 radio.RegPaConfig.bits.OutputPower = dbm + 1;
Wayne Roberts 1:0817a150122b 76 }
Wayne Roberts 1:0817a150122b 77 radio.write_reg(REG_PACONFIG, radio.RegPaConfig.octet);
Wayne Roberts 1:0817a150122b 78
Wayne Roberts 1:0817a150122b 79 radio.RegPaConfig.octet = radio.read_reg(REG_PACONFIG);
Wayne Roberts 1:0817a150122b 80 if (radio.RegPaConfig.bits.PaSelect) {
Wayne Roberts 1:0817a150122b 81 dbm = radio.RegPaConfig.bits.OutputPower + pds_trim.bits.prog_txdac - 2;
Wayne Roberts 1:0817a150122b 82 } else {
Wayne Roberts 1:0817a150122b 83 dbm = radio.RegPaConfig.bits.OutputPower - 1;
Wayne Roberts 1:0817a150122b 84 }
Wayne Roberts 1:0817a150122b 85 }
Wayne Roberts 1:0817a150122b 86
Wayne Roberts 1:0817a150122b 87 void Radio::targetInit()
Wayne Roberts 1:0817a150122b 88 {
Wayne Roberts 1:0817a150122b 89 radio.rf_switch = rfsw_callback;
Wayne Roberts 1:0817a150122b 90
Wayne Roberts 1:0817a150122b 91 rfsw.input();
Wayne Roberts 1:0817a150122b 92
Wayne Roberts 1:0817a150122b 93 radio.RegPaConfig.octet = radio.read_reg(REG_PACONFIG);
Wayne Roberts 1:0817a150122b 94
Wayne Roberts 1:0817a150122b 95 if (rfsw.read()) {
Wayne Roberts 1:0817a150122b 96 shield_type = SHIELD_TYPE_LAS;
Wayne Roberts 1:0817a150122b 97 radio.RegPaConfig.bits.PaSelect = 1;
Wayne Roberts 1:0817a150122b 98 } else {
Wayne Roberts 1:0817a150122b 99 shield_type = SHIELD_TYPE_MAS;
Wayne Roberts 1:0817a150122b 100 radio.RegPaConfig.bits.PaSelect = 0;
Wayne Roberts 1:0817a150122b 101 }
Wayne Roberts 1:0817a150122b 102
Wayne Roberts 1:0817a150122b 103 radio.write_reg(REG_PACONFIG, radio.RegPaConfig.octet);
Wayne Roberts 1:0817a150122b 104
Wayne Roberts 1:0817a150122b 105 rfsw.output();
Wayne Roberts 1:0817a150122b 106 }
Wayne Roberts 1:0817a150122b 107
Wayne Roberts 1:0817a150122b 108 void Radio::tx_dbm_print()
Wayne Roberts 1:0817a150122b 109 {
Wayne Roberts 1:0817a150122b 110 int dbm;
Wayne Roberts 1:0817a150122b 111 RegPdsTrim1_t pds_trim;
Wayne Roberts 4:fa31fdf4ec8d 112 uint8_t adr, pa_test_adr;
Wayne Roberts 1:0817a150122b 113
Wayne Roberts 4:fa31fdf4ec8d 114 if (radio.type == SX1276) {
Wayne Roberts 1:0817a150122b 115 adr = REG_PDSTRIM1_SX1276;
Wayne Roberts 4:fa31fdf4ec8d 116 pa_test_adr = REG_PATEST_SX1276;
Wayne Roberts 4:fa31fdf4ec8d 117 } else {
Wayne Roberts 1:0817a150122b 118 adr = REG_PDSTRIM1_SX1272;
Wayne Roberts 4:fa31fdf4ec8d 119 pa_test_adr = REG_PATEST_SX1272;
Wayne Roberts 4:fa31fdf4ec8d 120 }
Wayne Roberts 1:0817a150122b 121
Wayne Roberts 4:fa31fdf4ec8d 122 if (pa_test_adr & 0x20) {
Wayne Roberts 4:fa31fdf4ec8d 123 pds_trim.octet = radio.read_reg(adr);
Wayne Roberts 1:0817a150122b 124
Wayne Roberts 4:fa31fdf4ec8d 125 radio.RegPaConfig.octet = radio.read_reg(REG_PACONFIG);
Wayne Roberts 4:fa31fdf4ec8d 126 if (radio.RegPaConfig.bits.PaSelect) {
Wayne Roberts 4:fa31fdf4ec8d 127 dbm = radio.RegPaConfig.bits.OutputPower + pds_trim.bits.prog_txdac - 2;
Wayne Roberts 4:fa31fdf4ec8d 128 } else {
Wayne Roberts 4:fa31fdf4ec8d 129 dbm = radio.RegPaConfig.bits.OutputPower - 1;
Wayne Roberts 4:fa31fdf4ec8d 130 }
Wayne Roberts 1:0817a150122b 131 } else {
Wayne Roberts 4:fa31fdf4ec8d 132 dbm = PA_OFF_DBM;
Wayne Roberts 1:0817a150122b 133 }
Wayne Roberts 1:0817a150122b 134 pc.printf(":%d", dbm);
Wayne Roberts 1:0817a150122b 135 }
Wayne Roberts 1:0817a150122b 136
Wayne Roberts 1:0817a150122b 137 bool Radio::tx_dbm_write(const char* str)
Wayne Roberts 1:0817a150122b 138 {
Wayne Roberts 1:0817a150122b 139 int i;
Wayne Roberts 4:fa31fdf4ec8d 140 uint8_t v, adr, pa_test_adr;
Wayne Roberts 1:0817a150122b 141 RegPdsTrim1_t pds_trim;
Wayne Roberts 1:0817a150122b 142
Wayne Roberts 1:0817a150122b 143 sscanf(str, "%d", &i);
Wayne Roberts 1:0817a150122b 144
Wayne Roberts 4:fa31fdf4ec8d 145 if (radio.type == SX1276) {
Wayne Roberts 1:0817a150122b 146 adr = REG_PDSTRIM1_SX1276;
Wayne Roberts 4:fa31fdf4ec8d 147 pa_test_adr = REG_PATEST_SX1276;
Wayne Roberts 4:fa31fdf4ec8d 148 } else {
Wayne Roberts 1:0817a150122b 149 adr = REG_PDSTRIM1_SX1272;
Wayne Roberts 4:fa31fdf4ec8d 150 pa_test_adr = REG_PATEST_SX1272;
Wayne Roberts 4:fa31fdf4ec8d 151 }
Wayne Roberts 4:fa31fdf4ec8d 152
Wayne Roberts 4:fa31fdf4ec8d 153 v = radio.read_reg(pa_test_adr);
Wayne Roberts 4:fa31fdf4ec8d 154
Wayne Roberts 4:fa31fdf4ec8d 155 if (i == PA_OFF_DBM) {
Wayne Roberts 4:fa31fdf4ec8d 156 /* for bench testing: prevent overloading receiving station (very low TX power) */
Wayne Roberts 4:fa31fdf4ec8d 157 v &= ~0x20; // turn off pu_regpa_n: disable PA
Wayne Roberts 4:fa31fdf4ec8d 158 radio.write_reg(pa_test_adr, v);
Wayne Roberts 4:fa31fdf4ec8d 159 return false;
Wayne Roberts 4:fa31fdf4ec8d 160 } else if ((v & 0x20) == 0) {
Wayne Roberts 4:fa31fdf4ec8d 161 v |= 0x20; // turn on pu_regpa_n: enable PA
Wayne Roberts 4:fa31fdf4ec8d 162 radio.write_reg(pa_test_adr, v);
Wayne Roberts 4:fa31fdf4ec8d 163 }
Wayne Roberts 1:0817a150122b 164
Wayne Roberts 1:0817a150122b 165 pds_trim.octet = radio.read_reg(adr);
Wayne Roberts 1:0817a150122b 166
Wayne Roberts 1:0817a150122b 167 if (radio.RegPaConfig.bits.PaSelect) {
Wayne Roberts 1:0817a150122b 168 /* PABOOST used: +2dbm to +17, or +20 */
Wayne Roberts 1:0817a150122b 169 if (i == 20) {
Wayne Roberts 1:0817a150122b 170 log_printf("+20dBm PADAC bias\r\n");
Wayne Roberts 1:0817a150122b 171 i -= 3;
Wayne Roberts 1:0817a150122b 172 pds_trim.bits.prog_txdac = 7;
Wayne Roberts 1:0817a150122b 173 radio.write_reg(adr, pds_trim.octet);
Wayne Roberts 1:0817a150122b 174 }
Wayne Roberts 1:0817a150122b 175 if (i > 1)
Wayne Roberts 1:0817a150122b 176 radio.RegPaConfig.bits.OutputPower = i - 2;
Wayne Roberts 1:0817a150122b 177 } else {
Wayne Roberts 1:0817a150122b 178 /* RFO used: -1 to +14dbm */
Wayne Roberts 1:0817a150122b 179 if (i < 15)
Wayne Roberts 1:0817a150122b 180 radio.RegPaConfig.bits.OutputPower = i + 1;
Wayne Roberts 1:0817a150122b 181 }
Wayne Roberts 1:0817a150122b 182 radio.write_reg(REG_PACONFIG, radio.RegPaConfig.octet);
Wayne Roberts 1:0817a150122b 183
Wayne Roberts 1:0817a150122b 184 return false;
Wayne Roberts 1:0817a150122b 185 }
Wayne Roberts 1:0817a150122b 186
Wayne Roberts 1:0817a150122b 187
Wayne Roberts 1:0817a150122b 188 #endif /* ..SX127x_H */
Wayne Roberts 1:0817a150122b 189 #endif /* ...sx127x shield */
Wayne Roberts 1:0817a150122b 190