From c9fb98b2143755a291772ec97cbcf59c35034b52 Mon Sep 17 00:00:00 2001 From: Jae Stutzman Date: Sat, 14 Jan 2017 19:17:21 -0600 Subject: [PATCH] Added HPSDR backend Added HPSDR backend which emulates TS-2000 over the network on TCP --- include/hamlib/riglist.h | 1 + kenwood/Makefile.am | 2 +- kenwood/kenwood.c | 1 + kenwood/kenwood.h | 1 + kenwood/pihpsdr.c | 939 +++++++++++++++++++++++++++++++++++++++ 5 files changed, 943 insertions(+), 1 deletion(-) create mode 100644 kenwood/pihpsdr.c diff --git a/include/hamlib/riglist.h b/include/hamlib/riglist.h index 7f499fcf8..73a7dc61a 100644 --- a/include/hamlib/riglist.h +++ b/include/hamlib/riglist.h @@ -143,6 +143,7 @@ #define RIG_MODEL_TS590SG RIG_MAKE_MODEL(RIG_KENWOOD, 37) #define RIG_MODEL_XG3 RIG_MAKE_MODEL(RIG_KENWOOD, 38) #define RIG_MODEL_TS990S RIG_MAKE_MODEL(RIG_KENWOOD, 39) +#define RIG_MODEL_HPSDR RIG_MAKE_MODEL(RIG_KENWOOD, 40) /* OpenHPSDR, PiHPSDR */ /* * Icom diff --git a/kenwood/Makefile.am b/kenwood/Makefile.am index 8526be00e..24e5df333 100644 --- a/kenwood/Makefile.am +++ b/kenwood/Makefile.am @@ -2,7 +2,7 @@ TSSRC = ts850.c ts870s.c ts570.c ts450s.c ts950.c ts50s.c \ ts790.c ts2000.c k2.c k3.c xg3.c ts930.c \ ts680.c ts690.c ts140.c ts480.c trc80.c ts590.c \ - ts990s.c ts990s.h flex6xxx.c + ts990s.c ts990s.h flex6xxx.c pihpsdr.c IC10SRC = ts440.c ts940.c ts711.c ts811.c r5000.c diff --git a/kenwood/kenwood.c b/kenwood/kenwood.c index b895e53d4..d047eac25 100644 --- a/kenwood/kenwood.c +++ b/kenwood/kenwood.c @@ -3326,6 +3326,7 @@ DECLARE_INITRIG_BACKEND(kenwood) rig_register(&transfox_caps); rig_register(&f6k_caps); + rig_register(&pihpsdr_caps); return RIG_OK; } diff --git a/kenwood/kenwood.h b/kenwood/kenwood.h index 6e4a829a5..1b47af7a1 100644 --- a/kenwood/kenwood.h +++ b/kenwood/kenwood.h @@ -200,6 +200,7 @@ extern const struct rig_caps thf6a_caps; extern const struct rig_caps transfox_caps; extern const struct rig_caps f6k_caps; +extern const struct rig_caps pihpsdr_caps; /* use when not interested in the answer, but want to check its len */ static int inline kenwood_simple_transaction(RIG *rig, const char *cmd, size_t expected) diff --git a/kenwood/pihpsdr.c b/kenwood/pihpsdr.c new file mode 100644 index 000000000..f62be00e3 --- /dev/null +++ b/kenwood/pihpsdr.c @@ -0,0 +1,939 @@ +/* + * Hamlib PiHPSDR backend - TS-2000 Emulation (derived from ts2000.c) + * Copyright (c) 2017 by Jae Stutzman + * Copyright (c) 2000-2011 by Stephane Fillod + * + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation; either + * version 2.1 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + * + */ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include + +#include +#include "kenwood.h" +#include "tones.h" + + +#define PIHPSDR_ALL_MODES (RIG_MODE_AM|RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_FM|RIG_MODE_RTTY) +#define PIHPSDR_OTHER_TX_MODES (RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_FM|RIG_MODE_RTTY) +#define PIHPSDR_AM_TX_MODES RIG_MODE_AM + +#define PIHPSDR_FUNC_ALL (RIG_FUNC_TONE|RIG_FUNC_TSQL|RIG_FUNC_BC|RIG_FUNC_NB|RIG_FUNC_NR|RIG_FUNC_ANF|RIG_FUNC_COMP) + +#define PIHPSDR_LEVEL_ALL (RIG_LEVEL_PREAMP|RIG_LEVEL_ATT|RIG_LEVEL_VOX|RIG_LEVEL_AF|RIG_LEVEL_RF|RIG_LEVEL_SQL|RIG_LEVEL_CWPITCH|RIG_LEVEL_RFPOWER|RIG_LEVEL_MICGAIN|RIG_LEVEL_KEYSPD|RIG_LEVEL_COMP|RIG_LEVEL_AGC|RIG_LEVEL_BKINDL|RIG_LEVEL_METER|RIG_LEVEL_VOXGAIN|RIG_LEVEL_ANTIVOX|RIG_LEVEL_RAWSTR|RIG_LEVEL_STRENGTH) + +#define PIHPSDR_MAINVFO (RIG_VFO_A|RIG_VFO_B) +#define PIHPSDR_SUBVFO (RIG_VFO_C) + +#define PIHPSDR_VFO_OP (RIG_OP_UP|RIG_OP_DOWN|RIG_OP_BAND_UP|RIG_OP_BAND_DOWN) +#define PIHPSDR_SCAN_OP (RIG_SCAN_VFO) +#define PIHPSDR_ANTS (RIG_ANT_1|RIG_ANT_2) + +#define PIHPSDR_STR_CAL {9, {\ + {0x00, -54},\ + {0x03, -48},\ + {0x06, -36},\ + {0x09, -24},\ + {0x0C, -12},\ + {0x0F, 0},\ + {0x14, 20},\ + {0x19, 40},\ + {0x1E, 60}}\ + } + +/* prototypes */ +static int pihpsdr_open(RIG *rig); +static int pihpsdr_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val); +static int pihspdr_get_channel(RIG *rig, channel_t *chan); +static int pihspdr_set_channel(RIG *rig, const channel_t *chan); + + +static struct kenwood_priv_caps ts2000_priv_caps = { + .cmdtrm = EOM_KEN, +}; + +/* memory capabilities */ +#define PIHPSDR_MEM_CAP { \ + .freq = 1, \ + .mode = 1, \ + .tx_freq=1, \ + .tx_mode=1, \ + .split=1, \ + .rptr_shift=1, \ + .rptr_offs=1, \ + .funcs=RIG_FUNC_REV|RIG_FUNC_TONE|RIG_FUNC_TSQL,\ + .tuning_step=1, \ + .ctcss_tone=1, \ + .ctcss_sql=1, \ + .dcs_code=1, \ + .dcs_sql=1, \ + .scan_group=1, \ + .flags=1, \ + .channel_desc=1 \ +} + + +/* + * PiHPSDR rig capabilities. (Emulates Kenwood TS-2000) + */ +const struct rig_caps pihpsdr_caps = { +.rig_model = RIG_MODEL_HPSDR, +.model_name = "PiHPSDR", +.mfg_name = "OpenHPSDR", +.version = "20170121", +.copyright = "LGPL", +.status = RIG_STATUS_BETA, +.rig_type = RIG_TYPE_TRANSCEIVER, +.ptt_type = RIG_PTT_RIG, +.dcd_type = RIG_DCD_RIG, +.port_type = RIG_PORT_NETWORK, +.write_delay = 0, +.post_write_delay = 50, /* ms */ +.timeout = 200, +.retry = 10, +.has_get_func = PIHPSDR_FUNC_ALL, +.has_set_func = PIHPSDR_FUNC_ALL, +.has_get_level = PIHPSDR_LEVEL_ALL, +.has_set_level = RIG_LEVEL_SET(PIHPSDR_LEVEL_ALL), +.has_get_parm = RIG_PARM_NONE, +.has_set_parm = RIG_PARM_NONE, /* FIXME: parms */ +.level_gran = {}, /* FIXME: granularity */ +.parm_gran = {}, +.vfo_ops = PIHPSDR_VFO_OP, +.scan_ops = PIHPSDR_SCAN_OP, +.ctcss_list = static_common_ctcss_list, +.dcs_list = static_common_dcs_list, +.preamp = { 20, RIG_DBLST_END, }, /* FIXME: real preamp? */ +.attenuator = { 20, RIG_DBLST_END, }, +.max_rit = kHz(20), +.max_xit = kHz(20), +.max_ifshift = kHz(1), +.targetable_vfo = RIG_TARGETABLE_FREQ, +.transceive = RIG_TRN_RIG, +.bank_qty = 0, +.chan_desc_sz = 7, + +.chan_list = { + { 0, 299, RIG_MTYPE_MEM, PIHPSDR_MEM_CAP }, + RIG_CHAN_END, +}, + +.rx_range_list1 = { + {kHz(300),MHz(60),PIHPSDR_ALL_MODES,-1,-1,PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(144),MHz(146),PIHPSDR_ALL_MODES,-1,-1,PIHPSDR_MAINVFO}, + {MHz(430),MHz(440),PIHPSDR_ALL_MODES,-1,-1,PIHPSDR_MAINVFO}, + {MHz(144),MHz(146),PIHPSDR_ALL_MODES,-1,-1,PIHPSDR_SUBVFO}, + {MHz(430),MHz(440),PIHPSDR_ALL_MODES,-1,-1,PIHPSDR_SUBVFO}, + RIG_FRNG_END, + }, /* rx range */ +.tx_range_list1 = { + {kHz(1830),kHz(1850),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(1830),kHz(1850),PIHPSDR_AM_TX_MODES,2000,25000,PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(3500),kHz(3800),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(3500),kHz(3800),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(7),kHz(7100),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(7),kHz(7100),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(10.1),MHz(10.15),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(10.1),MHz(10.15),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(14),kHz(14350),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(14),kHz(14350),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(18068),kHz(18168),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(18068),kHz(18168),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(21),kHz(21450),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(21),kHz(21450),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(24890),kHz(24990),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(24890),kHz(24990),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(28),kHz(29700),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(28),kHz(29700),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(50),MHz(50.2),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(50),MHz(50.2),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(144),MHz(146),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO}, + {MHz(144),MHz(146),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO}, + {MHz(430),MHz(440),PIHPSDR_OTHER_TX_MODES,W(5),W(50),PIHPSDR_MAINVFO}, + {MHz(430),MHz(440),PIHPSDR_AM_TX_MODES,W(5),W(12.5),PIHPSDR_MAINVFO}, + RIG_FRNG_END, + }, /* tx range */ + +.rx_range_list2 = { + {kHz(300),MHz(60),PIHPSDR_ALL_MODES,-1,-1,PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(142),MHz(152),PIHPSDR_ALL_MODES,-1,-1,PIHPSDR_MAINVFO}, + {MHz(420),MHz(450),PIHPSDR_ALL_MODES,-1,-1,PIHPSDR_MAINVFO}, + {MHz(118),MHz(174),PIHPSDR_ALL_MODES,-1,-1,PIHPSDR_SUBVFO}, + {MHz(220),MHz(512),PIHPSDR_ALL_MODES,-1,-1,PIHPSDR_SUBVFO}, + RIG_FRNG_END, + }, /* rx range */ +.tx_range_list2 = { + {kHz(1800),MHz(2),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(1800),MHz(2),PIHPSDR_AM_TX_MODES,2000,25000,PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(3500),MHz(4),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(3500),MHz(4),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(7),kHz(7300),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(7),kHz(7300),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(10.1),MHz(10.15),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(10.1),MHz(10.15),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(14),kHz(14350),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(14),kHz(14350),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(18068),kHz(18168),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(18068),kHz(18168),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(21),kHz(21450),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(21),kHz(21450),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(24890),kHz(24990),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {kHz(24890),kHz(24990),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(28),kHz(29700),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(28),kHz(29700),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(50),MHz(54),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(50),MHz(54),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO,PIHPSDR_ANTS}, + {MHz(144),MHz(148),PIHPSDR_OTHER_TX_MODES,W(5),W(100),PIHPSDR_MAINVFO}, + {MHz(144),MHz(148),PIHPSDR_AM_TX_MODES,W(5),W(25),PIHPSDR_MAINVFO}, + {MHz(430),MHz(450),PIHPSDR_OTHER_TX_MODES,W(5),W(50),PIHPSDR_MAINVFO}, + {MHz(430),MHz(450),PIHPSDR_AM_TX_MODES,W(5),W(12.5),PIHPSDR_MAINVFO}, + RIG_FRNG_END, + }, /* tx range */ +.tuning_steps = { + {RIG_MODE_SSB|RIG_MODE_CW|RIG_MODE_RTTY,1}, + {PIHPSDR_ALL_MODES,10}, + {PIHPSDR_ALL_MODES,100}, + {PIHPSDR_ALL_MODES,kHz(1)}, + {PIHPSDR_ALL_MODES,kHz(2.5)}, + {PIHPSDR_ALL_MODES,kHz(5)}, + {RIG_MODE_AM|RIG_MODE_FM,kHz(6.25)}, + {PIHPSDR_ALL_MODES,kHz(10)}, + {RIG_MODE_AM|RIG_MODE_FM,kHz(12.5)}, + {RIG_MODE_AM|RIG_MODE_FM,kHz(12.5)}, + {RIG_MODE_AM|RIG_MODE_FM,kHz(15)}, + {RIG_MODE_AM|RIG_MODE_FM,kHz(20)}, + {RIG_MODE_AM|RIG_MODE_FM,kHz(25)}, + {RIG_MODE_AM|RIG_MODE_FM,kHz(30)}, + {RIG_MODE_AM|RIG_MODE_FM,kHz(50)}, + {RIG_MODE_AM|RIG_MODE_FM,kHz(100)}, + {PIHPSDR_ALL_MODES,MHz(1)}, + {PIHPSDR_ALL_MODES,0}, /* any tuning step */ + RIG_TS_END, + }, + + /* mode/filter list, remember: order matters! */ +.filters = { + {RIG_MODE_SSB, kHz(2.2)}, + {RIG_MODE_CW, Hz(600)}, + {RIG_MODE_RTTY, Hz(1500)}, + {RIG_MODE_AM, kHz(6)}, + {RIG_MODE_FM|RIG_MODE_AM, kHz(12)}, + RIG_FLT_END, + }, + +.str_cal = PIHPSDR_STR_CAL, + +.priv = (void *)&ts2000_priv_caps, + +.rig_init = kenwood_init, +.rig_open = pihpsdr_open, +.rig_close = kenwood_close, +.rig_cleanup = kenwood_cleanup, +.set_freq = kenwood_set_freq, +.get_freq = kenwood_get_freq, +.set_rit = kenwood_set_rit, +.get_rit = kenwood_get_rit, +.set_xit = kenwood_set_xit, +.get_xit = kenwood_get_xit, +.set_mode = kenwood_set_mode, +.get_mode = kenwood_get_mode, +.set_vfo = kenwood_set_vfo, +.get_vfo = kenwood_get_vfo_if, +.set_split_vfo = kenwood_set_split_vfo, +.get_split_vfo = kenwood_get_split_vfo_if, +.set_ctcss_tone = kenwood_set_ctcss_tone_tn, +.get_ctcss_tone = kenwood_get_ctcss_tone, +.set_ctcss_sql = kenwood_set_ctcss_sql, +.get_ctcss_sql = kenwood_get_ctcss_sql, +.get_ptt = kenwood_get_ptt, +.set_ptt = kenwood_set_ptt, +.get_dcd = kenwood_get_dcd, +.set_func = kenwood_set_func, +.get_func = kenwood_get_func, +.set_level = kenwood_set_level, +.get_level = pihpsdr_get_level, +.set_ant = kenwood_set_ant, +.get_ant = kenwood_get_ant, +.send_morse = kenwood_send_morse, +.vfo_op = kenwood_vfo_op, +.scan = kenwood_scan, +.set_mem = kenwood_set_mem, +.get_mem = kenwood_get_mem, +.get_channel = pihspdr_get_channel, +.set_channel = pihspdr_set_channel, +.set_trn = kenwood_set_trn, +.get_trn = kenwood_get_trn, +.set_powerstat = kenwood_set_powerstat, +.get_powerstat = kenwood_get_powerstat, +.get_info = kenwood_get_info, +.reset = kenwood_reset, + +}; + +/* + * Function definitions below + */ + +/* + * pihspdr_get_channel + * Read command format: + M|R|P1|P2|P3|P3|;| + * P1: 0 - RX frequency, 1 - TX frequency + Memory channel 290 ~ 299: P1=0 (start frequency), P1=1 (end frequency) + P2 - bank number + allowed values: , 0, 1 or 2 + P3 - channel number 00-99 + + Returned value: + M | R |P1 |P2 |P3 |P3 |P4 |P4 |P4 |P4 | + P4 |P4 |P4 |P4 |P4 |P4 |P4 |P5 |P6 |P7 | + P8 |P8 |P9 |P9 |P10|P10|P10|P11|P12|P13| + P13|P13|P13|P13|P13|P13|P13|P13|P14|P14| + P15|P16|P16|P16|P16|P16|P16|P16|P16| ; | + P1 - P3 described above + P4: Frequency in Hz (11-digit). + P5: Mode. 1: LSB, 2: USB, 3: CW, 4: FM, 5: AM, 6: FSK, 7: CR-R, 8: Reserved, 9: FSK-R + P6: Lockout status. 0: Lockout OFF, 1: Lockout ON. + P7: 0: OFF, 1: TONE, 2: CTCSS, 3: DCS. + P8: Tone Number. Allowed values 01 (67Hz) - 38 (250.3Hz) + P9: CTCSS tone number. Allowed values 01 (67Hz) - 38 (250.3Hz) + P10: DCS code. Allowed values 000 (023 DCS code) to 103 (754 DCS code). + P11: REVERSE status. + P12: SHIFT status. 0: Simplex, 1: +, 2: –, 3: = (All E-types) + P13: Offset frequency in Hz (9-digit). + Allowed values 000000000 - 059950000 in steps of 50000. Unused digits must be 0. + P14: Step size. Allowed values: + for SSB, CW, FSK mode: 00 - 03 + 00: 1 kHz, 01: 2.5 kHz, 02: 5 kHz, 03: 10 kHz + for AM, FM mode: 00 - 09 + 00: 5 kHz, 01: 6.25 kHz, 02: 10 kHz, 03: 12.5 kHz, 04: 15 kHz, + 05: 20 kHz, 06: 25 kHz, 07: 30 kHz, 08: 50 kHz, 09: 100 kHz + P15: Memory Group number (0 ~ 9). + P16: Memory name. A maximum of 8 characters. + + */ + +int pihspdr_get_channel(RIG *rig, channel_t *chan) +{ + rig_debug(RIG_DEBUG_VERBOSE, "%s called\n", __func__); + + if (!rig || !chan || chan->vfo != RIG_VFO_MEM) + return -RIG_EINVAL; + + int err; + char buf[52]; + char cmd[8]; + struct kenwood_priv_caps *caps = kenwood_caps(rig); + + /* put channel num in the command string */ + sprintf(cmd, "MR0%03d;", chan->channel_num); + + err = kenwood_transaction(rig, cmd, buf, sizeof (buf)); + if (err != RIG_OK) + return err; + size_t length = strlen (buf); + memset(chan, 0x00, sizeof(channel_t)); + + chan->vfo = RIG_VFO_MEM; + + /* parse from right to left */ + + /* XXX based on the available documentation, there is no command + * to read out the filters of a given memory channel. The rig, however, + * stores this information. + */ + /* First check if a name is assigned. + Name is returned at positions 41-48 (counting from 0) */ + if( length > 41 ){ +// rig_debug(RIG_DEBUG_VERBOSE, "Copying channel description: %s\n", &buf[ 41 ] ); + strcpy( chan->channel_desc, &buf[ 41 ] ); + } + /* Memory group no */ + chan->scan_group = buf[ 40 ] - '0'; + /* Fileds 38-39 contain tuning step as a number 00 - 09. + Tuning step depends on this number and the mode, + just save it for now */ + buf[ 40 ] = '\0'; + int tmp; + tmp = atoi( &buf[ 38] ); + /* Offset frequency */ + buf[ 38 ] = '\0'; + chan->rptr_offs = atoi( &buf[ 29 ] ); + /* Shift type + WARNING: '=' shift type not programmed */ + if( buf[ 28 ] == '1' ){ + chan->rptr_shift = RIG_RPT_SHIFT_PLUS; + }else{ + if( buf[ 28 ] == '2' ){ + chan->rptr_shift = RIG_RPT_SHIFT_MINUS; + }else{ + chan->rptr_shift = RIG_RPT_SHIFT_NONE; + } + } + /* Reverse status */ + if( buf[27] == '1' ){ + chan->funcs |= RIG_FUNC_REV; + } + /* Check for tone, CTCSS and DCS */ + /* DCS code first */ + if( buf[ 19 ] == '3' ){ + if( rig->caps->dcs_list ){ + buf[ 27 ] = '\0'; + chan->dcs_code = rig->caps->dcs_list[ atoi( &buf[ 24 ] ) ]; + chan->dcs_sql = chan->dcs_code; + chan->ctcss_tone = 0; + chan->ctcss_sql = 0; + } + }else{ + chan->dcs_code = 0; + chan->dcs_sql = 0; + /* CTCSS code + Caution, CTCSS codes, unlike DCS codes, are numbered from 1! */ + buf[ 24 ] = '\0'; + if( buf[ 19 ] == '2' ){ + chan->funcs |= RIG_FUNC_TSQL; + if (rig->caps->ctcss_list){ + chan->ctcss_sql = rig->caps->ctcss_list[ atoi( &buf[22] )-1 ]; + chan->ctcss_tone = 0; + } + }else{ + chan->ctcss_sql = 0; + /* CTCSS tone */ + if( buf[ 19 ] == '1' ){ + chan->funcs |= RIG_FUNC_TONE; + buf[ 22 ] = '\0'; + if (rig->caps->ctcss_list) + chan->ctcss_tone = rig->caps->ctcss_list[ atoi( &buf[20] )-1 ]; + }else{ + chan->ctcss_tone = 0; + } + } + } + + + /* memory lockout */ + if (buf[18] == '1') + chan->flags |= RIG_CHFLAG_SKIP; + + /* mode */ + chan->mode = kenwood2rmode(buf[17] - '0', caps->mode_table); + + /* Now we have the mode, let's finish the tuning step */ + if( (chan->mode == RIG_MODE_AM) || (chan->mode == RIG_MODE_FM) ){ + switch (tmp){ + case 0: chan->tuning_step = kHz(5); break; + case 1: chan->tuning_step = kHz(6.25); break; + case 2: chan->tuning_step = kHz(10); break; + case 3: chan->tuning_step = kHz(12.5); break; + case 4: chan->tuning_step = kHz(15); break; + case 5: chan->tuning_step = kHz(20); break; + case 6: chan->tuning_step = kHz(25); break; + case 7: chan->tuning_step = kHz(30); break; + case 8: chan->tuning_step = kHz(50); break; + case 9: chan->tuning_step = kHz(100); break; + default: chan->tuning_step = 0; + } + }else{ + switch (tmp){ + case 0: chan->tuning_step = kHz(1); break; + case 1: chan->tuning_step = kHz(2.5); break; + case 2: chan->tuning_step = kHz(5); break; + case 3: chan->tuning_step = kHz(10); break; + default: chan->tuning_step = 0; + } + } + + /* Frequency */ + buf[17] = '\0'; + chan->freq = atoi(&buf[6]); + + if (chan->freq == RIG_FREQ_NONE) + return -RIG_ENAVAIL; + + buf[6] = '\0'; + chan->channel_num = atoi(&buf[3]); + + + /* Check split freq */ + cmd[2] = '1'; + err = kenwood_transaction(rig, cmd, buf, sizeof (buf)); + if (err != RIG_OK) + return err; + + chan->tx_mode = kenwood2rmode(buf[17] - '0', caps->mode_table); + + buf[17] = '\0'; + chan->tx_freq = atoi(&buf[6]); + + if (chan->freq == chan->tx_freq) { + chan->tx_freq = RIG_FREQ_NONE; + chan->tx_mode = RIG_MODE_NONE; + chan->split = RIG_SPLIT_OFF; + } else + chan->split = RIG_SPLIT_ON; + + return RIG_OK; +} + +int pihspdr_set_channel(RIG *rig, const channel_t *chan) +{ + rig_debug(RIG_DEBUG_VERBOSE, "%s called\n", __func__); + + if (!rig || !chan) + return -RIG_EINVAL; + + char buf[55]; + char mode, tx_mode = 0; + int err; + int tone = 0; + + + struct kenwood_priv_caps *caps = kenwood_caps(rig); + + mode = rmode2kenwood(chan->mode, caps->mode_table); + if (mode < 0 ) { + rig_debug(RIG_DEBUG_ERR, "%s: unsupported mode '%s'\n", + __func__, rig_strrmode(chan->mode)); + return -RIG_EINVAL; + } + + if (chan->split == RIG_SPLIT_ON) { + tx_mode = rmode2kenwood(chan->tx_mode, caps->mode_table); + if (tx_mode < 0 ) { + rig_debug(RIG_DEBUG_ERR, "%s: unsupported mode '%s'\n", + __func__, rig_strrmode(chan->tx_mode)); + return -RIG_EINVAL; + } + } + + /* find tone */ + char sqltype = '0'; + if (chan->ctcss_tone) { + for (; rig->caps->ctcss_list[tone] != 0; tone++) { + if (chan->ctcss_tone == rig->caps->ctcss_list[tone]) + break; + } + if (chan->ctcss_tone != rig->caps->ctcss_list[tone]) tone = -1; + else sqltype = '1'; + }else{ + tone = -1; /* -1 because we will add 1 when outputing; this is necessary as CTCSS codes are numbered from 1 */ + } + /* find CTCSS code */ + short code = 0; + if (chan->ctcss_sql) { + for (; rig->caps->ctcss_list[code] != 0; code++) { + if (chan->ctcss_sql == rig->caps->ctcss_list[code]) + break; + } + if (chan->ctcss_sql != rig->caps->ctcss_list[code]) code = -1; + else sqltype = '2'; + }else{ + code = -1; + } + /* find DCS code */ + short dcscode = 0; + if (chan->dcs_code) { + for (; rig->caps->dcs_list[dcscode] != 0; dcscode++) { + if (chan->dcs_code == rig->caps->dcs_list[dcscode]) + break; + } + if (chan->dcs_code != rig->caps->dcs_list[dcscode]) dcscode = 0; + else sqltype = '3'; + }else{ + dcscode = 0; + } + + char shift = '0'; + if( chan->rptr_shift == RIG_RPT_SHIFT_PLUS ){ + shift = '1'; + } + if( chan->rptr_shift == RIG_RPT_SHIFT_MINUS ){ + shift = '2'; + } + int tstep = 0; + if( (chan->mode == RIG_MODE_AM) || (chan->mode == RIG_MODE_FM) ){ + switch( chan->tuning_step ){ + case s_kHz(6.25): tstep = 1; break; + case s_kHz(10): tstep = 2; break; + case s_kHz(12.5): tstep = 3; break; + case s_kHz(15): tstep = 4; break; + case s_kHz(20): tstep = 5; break; + case s_kHz(25): tstep = 6; break; + case s_kHz(30): tstep = 7; break; + case s_kHz(50): tstep = 8; break; + case s_kHz(100): tstep = 9; break; + default: tstep = 0; + } + }else{ + switch( chan->tuning_step ){ + case s_kHz(2.5): tstep = 1; break; + case s_kHz(5): tstep = 2; break; + case s_kHz(10): tstep = 3; break; + default: tstep = 0; + } + } + + /* P-number 2-3 4 5 6 7 8 9 101112 13 141516 */ + sprintf(buf, "MW0%03d%011u%c%c%c%02d%02d%03d%c%c%09d0%c%c%s;", + chan->channel_num, + (unsigned) chan->freq, /* 4 - frequency */ + '0' + mode, /* 5 - mode */ + (chan->flags & RIG_CHFLAG_SKIP) ? '1' : '0', /* 6 - lockout status */ + sqltype, /* 7 - squelch and tone type */ + tone+1, /* 8 - tone code */ + code+1, /* 9 - CTCSS code */ + dcscode, /* 10 - DCS code */ + (chan->funcs & RIG_FUNC_REV ) ? '1' : '0',/* 11 - Reverse status */ + shift, /* 12 - shift type */ + (int) chan->rptr_offs, /* 13 - offset frequency */ + tstep + '0', /* 14 - Step size */ + chan->scan_group + '0', /* 15 - Memory group no */ + chan->channel_desc /* 16 - description */ + ); + rig_debug( RIG_DEBUG_VERBOSE, "The command will be: %s\n", buf ); + + err = kenwood_transaction(rig, buf, NULL, 0); + if (err != RIG_OK) + return err; + + if( chan->split == RIG_SPLIT_ON ){ + sprintf(buf, "MW1%03d%011u%c%c%c%02d%02d%03d%c%c%09d0%c%c%s;\n", + chan->channel_num, + (unsigned) chan->tx_freq, /* 4 - frequency */ + '0' + tx_mode, /* 5 - mode */ + (chan->flags & RIG_CHFLAG_SKIP) ? '1' : '0', /* 6 - lockout status */ + sqltype, /* 7 - squelch and tone type */ + tone+1, /* 8 - tone code */ + code+1, /* 9 - CTCSS code */ + dcscode+1, /* 10 - DCS code */ + (chan->funcs & RIG_FUNC_REV ) ? '1' : '0',/* 11 - Reverse status */ + shift, /* 12 - shift type */ + (int) chan->rptr_offs, /* 13 - offset frequency */ + tstep + '0', /* 14 - Step size */ + chan->scan_group + '0', /* Memory group no */ + chan->channel_desc /* 16 - description */ + ); + rig_debug( RIG_DEBUG_VERBOSE, "Split, the command will be: %s\n", buf ); + + err = kenwood_transaction(rig, buf, NULL, 0); + } + return err; +} + +/* + * pihpsdr_get_level + * Assumes rig!=NULL, val!=NULL + */ + +int pihpsdr_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val) +{ + char lvlbuf[50]; + size_t lvl_len; + int lvl, retval, ret, agclevel; + + lvl_len = 50; + switch (level) { + + case RIG_LEVEL_PREAMP: + retval = kenwood_transaction (rig, "PA", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if ((lvl_len != 4)){ /*TS-2000 returns 4 chars for PA; */ + rig_debug(RIG_DEBUG_ERR,"%s: unexpected answer len=%d\n", + __func__, lvl_len); + return -RIG_ERJCTED; + } + + sscanf(lvlbuf+2, "%d", &lvl); + if (lvl < 10) /* just checking for main receiver preamp setting */ + val->i = 0; + if (lvl > 9) + val->i = rig->state.preamp[0]; + break; + + case RIG_LEVEL_ATT: + retval = kenwood_transaction (rig, "RA", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if ((lvl_len != 6)){ /* TS-2000 returns 6 chars for RA; */ + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + + sscanf(lvlbuf+2, "%d", &lvl); + + if (lvl < 100) /* just checking main band attenuator */ + val->i = 0; + if (lvl > 99) + val->i = rig->state.attenuator[0]; /* Since the TS-2000 only has one step on the attenuator */ + break; + + case RIG_LEVEL_VOX: + retval = kenwood_transaction (rig, "VD", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 6) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+2, "%d", &lvl); + val->i = lvl / 100; + break; + + case RIG_LEVEL_AF: + retval = kenwood_transaction (rig, "AG0", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 6) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+2, "%d", &lvl); + val->f = lvl / 255.0; + break; + + case RIG_LEVEL_RF: + retval = kenwood_transaction (rig, "RG", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 5) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+2, "%d", &lvl); + val->f = lvl / 255.0; + break; + + case RIG_LEVEL_SQL: + retval = kenwood_transaction (rig, "SQ0", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 6) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+3, "%d", &lvl); + val->f = lvl / 255.0; + break; + + case RIG_LEVEL_CWPITCH: + retval = kenwood_transaction (rig, "EX0310000", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 15) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d answer=%s\n", lvl_len, lvlbuf); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+8, "%d", &lvl); + val->i = 400 + (50 * lvl); + break; + + case RIG_LEVEL_RFPOWER: + retval = kenwood_transaction (rig, "PC", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 5) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+3, "%d", &lvl); + val->f = lvl / 100.0; /* FIXME: for 1.2GHZ need to divide by 10 */ + break; + + case RIG_LEVEL_MICGAIN: + retval = kenwood_transaction (rig, "MG", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 5) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+2, "%d", &lvl); + val->f = lvl / 100.0; + break; + + case RIG_LEVEL_KEYSPD: + retval = kenwood_transaction (rig, "KS", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 5) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+2, "%d", &lvl); + val->i = lvl; + break; + + case RIG_LEVEL_NOTCHF: + return -RIG_ENIMPL; + break; + + case RIG_LEVEL_COMP: + retval = kenwood_transaction (rig, "PL", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 8) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+2, "%d", &lvl); + lvl = lvl / 1000; + val->f = lvl / 100.0; + break; + + + case RIG_LEVEL_AGC: /* FIX ME: ts2000 returns 0 -20 for AGC */ + ret = get_kenwood_level(rig, "GT", &val->f); + agclevel = 255.0 * val->f; + if (agclevel == 0) val->i = 0; + else if (agclevel < 85) val->i = 1; + else if (agclevel < 170) val->i = 2; + else if (agclevel <= 255) val->i = 3; + return ret; + break; + + case RIG_LEVEL_BKINDL: + retval = kenwood_transaction (rig, "SD", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 6) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+2, "%d", &lvl); + val->i = lvl / 100; + break; + + case RIG_LEVEL_BALANCE: + return -RIG_ENIMPL; + break; + + case RIG_LEVEL_METER: + retval = kenwood_transaction (rig, "RM", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 7) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+2, "%d", &lvl); + val->i = lvl / 10000; + break; + + case RIG_LEVEL_VOXGAIN: + retval = kenwood_transaction (rig, "VG", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (lvl_len != 5) { + rig_debug(RIG_DEBUG_ERR,"pihpsdr_get_level: " + "unexpected answer len=%d\n", lvl_len); + return -RIG_ERJCTED; + } + sscanf(lvlbuf+2, "%d", &lvl); + val->f = lvl / 9.0; + break; + + case RIG_LEVEL_ANTIVOX: + return -RIG_ENIMPL; + break; + + case RIG_LEVEL_RAWSTR: + case RIG_LEVEL_STRENGTH: + retval = kenwood_transaction (rig, "SM0", lvlbuf, sizeof (lvlbuf)); + if (retval != RIG_OK) + return retval; + lvl_len = strlen (lvlbuf); + if (( (lvl_len !=7)) || lvlbuf[1] != 'M') { + /* TS-2000 returns 8 bytes for S meter level */ + rig_debug(RIG_DEBUG_ERR,"%s: wrong answer len=%d\n", + __func__, lvl_len); + return -RIG_ERJCTED; + } + + /* Frontend expects: -54 = S0, 0 = S9 */ + sscanf(lvlbuf+3, "%d", &val->i); + /* TS-2000 main receiver returns values from 0 - 30 */ + /* so scale the value */ + if (level == RIG_LEVEL_STRENGTH) + val->i = (val->i * 3.6) - 54; + break; + + default: + rig_debug(RIG_DEBUG_ERR,"Unsupported get_level %d", level); + return -RIG_EINVAL; + } + + return RIG_OK; +} + +/* use custom open function since this rig emulates TS-2000 and we need + to not use the TS-2000 backend open function */ +int pihpsdr_open(RIG *rig) +{ + rig_debug(RIG_DEBUG_VERBOSE, "%s called\n", __func__); + + if (!rig) + return -RIG_EINVAL; + + char id[KENWOOD_MAX_BUF_LEN]; + + /* get id in buffer, will be null terminated */ + kenwood_get_id(rig, id); + if (!strcmp(id, "ID019")) { /* matched */ + /* Currently we cannot cope with AI mode so turn it off in + case last client left it on */ + kenwood_set_trn(rig, RIG_TRN_OFF); /* ignore status in case + it's not supported */ + return RIG_OK; + } + + /* driver mismatch */ + rig_debug(RIG_DEBUG_ERR, "%s: wrong driver selected\n", __func__); + return -RIG_EINVAL; +} + +