2000-12-23 08:40:14 +00:00
|
|
|
|
/*
|
2001-07-13 19:08:15 +00:00
|
|
|
|
* Hamlib Kenwood backend - TS870S description
|
2008-03-01 11:20:30 +00:00
|
|
|
|
* Copyright (c) 2000-2008 by Stephane Fillod
|
2000-12-23 08:40:14 +00:00
|
|
|
|
*
|
|
|
|
|
*
|
2011-08-21 02:20:21 +00:00
|
|
|
|
* 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.
|
2000-12-23 08:40:14 +00:00
|
|
|
|
*
|
2011-08-21 02:20:21 +00:00
|
|
|
|
* This library is distributed in the hope that it will be useful,
|
2001-07-13 19:08:15 +00:00
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
2011-08-21 02:20:21 +00:00
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
|
* Lesser General Public License for more details.
|
2000-12-23 08:40:14 +00:00
|
|
|
|
*
|
2011-08-21 02:20:21 +00:00
|
|
|
|
* You should have received a copy of the GNU Lesser General Public
|
2001-07-13 19:08:15 +00:00
|
|
|
|
* License along with this library; if not, write to the Free Software
|
2011-08-21 02:20:21 +00:00
|
|
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
2000-12-23 08:40:14 +00:00
|
|
|
|
*
|
|
|
|
|
*/
|
|
|
|
|
|
2001-07-13 19:08:15 +00:00
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
|
|
|
#include "config.h"
|
|
|
|
|
#endif
|
|
|
|
|
|
2003-01-06 22:12:01 +00:00
|
|
|
|
#include <stdlib.h>
|
2003-10-01 19:32:04 +00:00
|
|
|
|
#include <stdio.h>
|
|
|
|
|
|
2000-12-23 08:40:14 +00:00
|
|
|
|
#include <hamlib/rig.h>
|
|
|
|
|
#include "kenwood.h"
|
2008-03-01 11:20:30 +00:00
|
|
|
|
#include "bandplan.h"
|
2000-12-23 08:40:14 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
#define TS870S_ALL_MODES \
|
|
|
|
|
(RIG_MODE_AM|RIG_MODE_CW|RIG_MODE_CWR|RIG_MODE_SSB \
|
2005-02-03 20:22:21 +00:00
|
|
|
|
|RIG_MODE_FM|RIG_MODE_RTTY|RIG_MODE_RTTYR)
|
2019-11-30 16:19:08 +00:00
|
|
|
|
#define TS870S_OTHER_TX_MODES \
|
2005-02-03 20:22:21 +00:00
|
|
|
|
(RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_FM|RIG_MODE_RTTY)
|
2001-02-07 23:43:03 +00:00
|
|
|
|
#define TS870S_AM_TX_MODES RIG_MODE_AM
|
2000-12-23 08:40:14 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
#define TS870S_FUNC_ALL \
|
|
|
|
|
(RIG_FUNC_NB|RIG_FUNC_COMP|RIG_FUNC_VOX|RIG_FUNC_NR \
|
2005-02-03 20:22:21 +00:00
|
|
|
|
|RIG_FUNC_BC|RIG_FUNC_ANF|RIG_FUNC_LOCK)
|
2000-12-23 08:40:14 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
#define TS870S_LEVEL_SET \
|
|
|
|
|
(RIG_LEVEL_ATT|RIG_LEVEL_SQL|RIG_LEVEL_AGC|RIG_LEVEL_RFPOWER \
|
2005-02-03 20:51:19 +00:00
|
|
|
|
|RIG_LEVEL_AF|RIG_LEVEL_RF|RIG_LEVEL_MICGAIN|RIG_LEVEL_PREAMP)
|
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
#define TS870S_LEVEL_GET \
|
|
|
|
|
(RIG_LEVEL_ATT|RIG_LEVEL_SQL|RIG_LEVEL_STRENGTH|RIG_LEVEL_SWR \
|
|
|
|
|
|RIG_LEVEL_COMP|RIG_LEVEL_ALC|RIG_LEVEL_AGC|RIG_LEVEL_RFPOWER \
|
2005-02-03 20:22:21 +00:00
|
|
|
|
|RIG_LEVEL_AF|RIG_LEVEL_RF|RIG_LEVEL_MICGAIN|RIG_LEVEL_PREAMP)
|
2000-12-23 08:40:14 +00:00
|
|
|
|
|
2001-04-28 12:40:44 +00:00
|
|
|
|
#define TS870S_VFO (RIG_VFO_A|RIG_VFO_B)
|
2008-03-01 11:20:30 +00:00
|
|
|
|
#define TS870S_ANTS (RIG_ANT_1|RIG_ANT_2)
|
2001-04-28 12:40:44 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
static struct kenwood_priv_caps ts870s_priv_caps =
|
|
|
|
|
{
|
|
|
|
|
.cmdtrm = EOM_KEN,
|
2002-03-13 23:42:43 +00:00
|
|
|
|
};
|
|
|
|
|
|
2011-08-21 02:20:21 +00:00
|
|
|
|
/* only the ts870s and ts2000 support get_vfo with the 'FR;' command
|
2003-06-23 17:48:27 +00:00
|
|
|
|
NOTE: using byte 31 in 'IF' will also work. TODO: check other rigs */
|
2005-02-24 22:35:24 +00:00
|
|
|
|
static int ts870s_get_vfo(RIG *rig, vfo_t *vfo)
|
2003-06-23 17:48:27 +00:00
|
|
|
|
{
|
2019-11-30 16:19:08 +00:00
|
|
|
|
char vfobuf[50];
|
|
|
|
|
size_t vfo_len;
|
|
|
|
|
int retval;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* query RX VFO */
|
|
|
|
|
retval = kenwood_transaction(rig, "FR", vfobuf, sizeof(vfobuf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
vfo_len = strlen(vfobuf);
|
|
|
|
|
|
|
|
|
|
if (vfo_len != 3 || vfobuf[1] != 'R')
|
|
|
|
|
{
|
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "%s: unexpected answer %s, len=%d\n", __func__, vfobuf,
|
|
|
|
|
(int)vfo_len);
|
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* TODO: replace 0,1,2,.. constants by defines */
|
|
|
|
|
switch (vfobuf[2])
|
|
|
|
|
{
|
|
|
|
|
case '0': *vfo = RIG_VFO_A; break;
|
|
|
|
|
|
|
|
|
|
case '1': *vfo = RIG_VFO_B; break;
|
|
|
|
|
|
|
|
|
|
case '2': *vfo = RIG_VFO_MEM; break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "%s: unsupported VFO %c\n",
|
|
|
|
|
__func__, vfobuf[2]);
|
|
|
|
|
return -RIG_EPROTO;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return RIG_OK;
|
2003-06-23 17:48:27 +00:00
|
|
|
|
}
|
2002-12-20 10:35:13 +00:00
|
|
|
|
|
2005-02-24 22:35:24 +00:00
|
|
|
|
static int ts870s_get_mode(RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width)
|
2002-12-20 10:35:13 +00:00
|
|
|
|
{
|
2019-11-30 16:19:08 +00:00
|
|
|
|
char buf[50];
|
|
|
|
|
size_t buf_len;
|
|
|
|
|
int retval;
|
2002-12-20 10:35:13 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
retval = kenwood_transaction(rig, "MD", buf, sizeof(buf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
buf_len = strlen(buf);
|
|
|
|
|
|
|
|
|
|
if (buf_len != 3 || buf[1] != 'D')
|
|
|
|
|
{
|
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "%s: unexpected MD answer, len=%d\n",
|
|
|
|
|
__func__, (int)buf_len);
|
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (buf[2])
|
|
|
|
|
{
|
2002-12-20 10:35:13 +00:00
|
|
|
|
case MD_CW: *mode = RIG_MODE_CW; break;
|
2019-11-30 16:19:08 +00:00
|
|
|
|
|
|
|
|
|
case MD_CWR: *mode = RIG_MODE_CWR; break;
|
|
|
|
|
|
|
|
|
|
case MD_USB: *mode = RIG_MODE_USB; break;
|
|
|
|
|
|
|
|
|
|
case MD_LSB: *mode = RIG_MODE_LSB; break;
|
|
|
|
|
|
|
|
|
|
case MD_FM: *mode = RIG_MODE_FM; break;
|
|
|
|
|
|
|
|
|
|
case MD_AM: *mode = RIG_MODE_AM; break;
|
|
|
|
|
|
|
|
|
|
case MD_FSK: *mode = RIG_MODE_RTTY; break;
|
|
|
|
|
|
|
|
|
|
case MD_FSKR: *mode = RIG_MODE_RTTYR; break;
|
|
|
|
|
|
|
|
|
|
case MD_NONE: *mode = RIG_MODE_NONE; break;
|
|
|
|
|
|
2002-12-20 10:35:13 +00:00
|
|
|
|
default:
|
2019-11-30 16:19:08 +00:00
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "%s: unsupported mode '%c'\n",
|
|
|
|
|
__func__, buf[2]);
|
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
|
}
|
2002-12-20 10:35:13 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
retval = kenwood_transaction(rig, "FW", buf, sizeof(buf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
2011-08-21 02:20:21 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
buf_len = strlen(buf);
|
2002-12-20 10:35:13 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
if (buf_len != 6 || buf[1] != 'W')
|
2013-10-30 22:11:50 +00:00
|
|
|
|
{
|
2019-11-30 16:19:08 +00:00
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "%s: unexpected FW answer, len=%d\n",
|
|
|
|
|
__func__, (int)buf_len);
|
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
|
}
|
2013-10-30 22:11:50 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
*width = 10 * atoi(&buf[2]);
|
|
|
|
|
|
|
|
|
|
if (RIG_MODE_USB == *mode || RIG_MODE_LSB == *mode || RIG_MODE_AM == *mode)
|
|
|
|
|
{
|
|
|
|
|
/* we only have HPF value and need LPF as well to calculate bandwidth */
|
|
|
|
|
|
|
|
|
|
retval = kenwood_transaction(rig, "IS", buf, sizeof(buf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
2017-06-28 17:00:20 +00:00
|
|
|
|
{
|
2019-11-30 16:19:08 +00:00
|
|
|
|
return retval;
|
2017-06-28 17:00:20 +00:00
|
|
|
|
}
|
2013-10-30 22:11:50 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
buf_len = strlen(buf);
|
|
|
|
|
|
|
|
|
|
if (buf_len != 7 || buf[1] != 'S')
|
|
|
|
|
{
|
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "%s: unexpected IS answer, len=%d\n",
|
|
|
|
|
__func__, (int)buf_len);
|
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
*width = atoi(&buf[3]) - *width; /* bandwidth <- LPF - HPF */
|
2013-10-30 22:11:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
return RIG_OK;
|
2002-12-20 10:35:13 +00:00
|
|
|
|
}
|
|
|
|
|
|
2005-02-24 22:35:24 +00:00
|
|
|
|
static int ts870s_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width)
|
2002-12-20 15:43:31 +00:00
|
|
|
|
{
|
2019-11-30 16:19:08 +00:00
|
|
|
|
char buf[16];
|
|
|
|
|
int kmode, retval;
|
2002-12-20 15:43:31 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
switch (mode)
|
|
|
|
|
{
|
2002-12-20 15:43:31 +00:00
|
|
|
|
case RIG_MODE_CW: kmode = MD_CW; break;
|
2019-11-30 16:19:08 +00:00
|
|
|
|
|
2002-12-20 15:43:31 +00:00
|
|
|
|
case RIG_MODE_CWR: kmode = MD_CWR; break;
|
2019-11-30 16:19:08 +00:00
|
|
|
|
|
2002-12-20 15:43:31 +00:00
|
|
|
|
case RIG_MODE_USB: kmode = MD_USB; break;
|
2019-11-30 16:19:08 +00:00
|
|
|
|
|
2002-12-20 15:43:31 +00:00
|
|
|
|
case RIG_MODE_LSB: kmode = MD_LSB; break;
|
2019-11-30 16:19:08 +00:00
|
|
|
|
|
2002-12-20 15:43:31 +00:00
|
|
|
|
case RIG_MODE_FM: kmode = MD_FM; break;
|
2019-11-30 16:19:08 +00:00
|
|
|
|
|
2002-12-20 15:43:31 +00:00
|
|
|
|
case RIG_MODE_AM: kmode = MD_AM; break;
|
2019-11-30 16:19:08 +00:00
|
|
|
|
|
2002-12-20 15:43:31 +00:00
|
|
|
|
case RIG_MODE_RTTY: kmode = MD_FSK; break;
|
2019-11-30 16:19:08 +00:00
|
|
|
|
|
2002-12-20 15:43:31 +00:00
|
|
|
|
case RIG_MODE_RTTYR: kmode = MD_FSKR; break;
|
2019-11-30 16:19:08 +00:00
|
|
|
|
|
2002-12-20 15:43:31 +00:00
|
|
|
|
default:
|
2019-11-30 16:19:08 +00:00
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "%s: unsupported mode %s\n",
|
|
|
|
|
__func__, rig_strrmode(mode));
|
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sprintf(buf, "MD%c", kmode);
|
|
|
|
|
retval = kenwood_transaction(rig, buf, NULL, 0);
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK) { return retval; }
|
|
|
|
|
|
|
|
|
|
if (RIG_PASSBAND_NOCHANGE == width)
|
|
|
|
|
{
|
|
|
|
|
if (RIG_PASSBAND_NORMAL !=
|
|
|
|
|
width) /* leave well alone if default passband requested */
|
|
|
|
|
{
|
|
|
|
|
if (RIG_MODE_USB == mode || RIG_MODE_LSB == mode || RIG_MODE_AM == mode)
|
|
|
|
|
{
|
2020-03-22 21:08:09 +00:00
|
|
|
|
pbwidth_t mode_default_hpf;
|
2020-03-26 16:11:46 +00:00
|
|
|
|
|
2019-11-30 16:19:08 +00:00
|
|
|
|
/* we assume the HPF is set to default and set the LPF to
|
|
|
|
|
give the best approximaation of the requested width */
|
|
|
|
|
if (RIG_MODE_AM == mode)
|
|
|
|
|
{
|
|
|
|
|
mode_default_hpf = 300;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
mode_default_hpf = 100;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sprintf(buf, "IS %04d", (int)(width + mode_default_hpf));
|
|
|
|
|
retval = kenwood_transaction(rig, buf, NULL, 0);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/*
|
|
|
|
|
* This rig will simply use an IF bandpass which is closest to width,
|
|
|
|
|
* so we don't need to check the value...
|
|
|
|
|
*/
|
|
|
|
|
sprintf(buf, "FW%04d", (int)width / 10);
|
|
|
|
|
retval = kenwood_transaction(rig, buf, NULL, 0);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return retval;
|
2002-12-20 15:43:31 +00:00
|
|
|
|
}
|
2002-12-20 10:35:13 +00:00
|
|
|
|
|
2007-11-23 16:08:32 +00:00
|
|
|
|
int ts870s_set_level(RIG *rig, vfo_t vfo, setting_t level, value_t val)
|
|
|
|
|
{
|
2019-11-30 16:19:08 +00:00
|
|
|
|
char levelbuf[16];
|
|
|
|
|
int intval;
|
|
|
|
|
|
|
|
|
|
switch (level)
|
|
|
|
|
{
|
|
|
|
|
case RIG_LEVEL_RFPOWER:
|
|
|
|
|
intval = val.f * 100;
|
|
|
|
|
sprintf(levelbuf, "PC%03d", intval);
|
|
|
|
|
return kenwood_transaction(rig, levelbuf, NULL, 0);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
return kenwood_set_level(rig, vfo, level, val);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return RIG_OK;
|
2007-11-23 16:08:32 +00:00
|
|
|
|
}
|
|
|
|
|
|
2005-02-24 22:35:24 +00:00
|
|
|
|
static int ts870s_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val)
|
2005-02-02 20:06:19 +00:00
|
|
|
|
{
|
2019-11-30 16:19:08 +00:00
|
|
|
|
char lvlbuf[50];
|
|
|
|
|
size_t lvl_len;
|
|
|
|
|
int lvl, retval;
|
|
|
|
|
int i, ret, agclevel;
|
|
|
|
|
|
|
|
|
|
switch (level)
|
|
|
|
|
{
|
|
|
|
|
case RIG_LEVEL_STRENGTH:
|
|
|
|
|
retval = kenwood_transaction(rig, "SM", lvlbuf, sizeof(lvlbuf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
lvl_len = strlen(lvlbuf);
|
|
|
|
|
|
|
|
|
|
if (lvl_len != 6 || lvlbuf[1] != 'M')
|
|
|
|
|
{
|
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "ts870s_get_level: wrong answer len=%d\n",
|
|
|
|
|
(int)lvl_len);
|
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Frontend expects: -54 = S0, 0 = S9 */
|
|
|
|
|
sscanf(lvlbuf + 2, "%d", &val->i);
|
|
|
|
|
val->i = (val->i * 3.6) - 54;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_SWR:
|
|
|
|
|
retval = kenwood_transaction(rig, "RM", lvlbuf, sizeof(lvlbuf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* set meter to SWR if needed */
|
|
|
|
|
if (lvlbuf[2] != '1')
|
|
|
|
|
{
|
|
|
|
|
retval = kenwood_transaction(rig, "RM1", NULL, 0);
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
retval = kenwood_transaction(rig, "RM", lvlbuf, sizeof(lvlbuf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
i = atoi(&lvlbuf[3]);
|
|
|
|
|
|
|
|
|
|
if (i == 30)
|
|
|
|
|
{
|
|
|
|
|
val->f = 150.0; /* infinity :-) */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
val->f = 60.0 / (30.0 - (float)i) - 1.0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_COMP:
|
|
|
|
|
retval = kenwood_transaction(rig, "RM", lvlbuf, sizeof(lvlbuf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* set meter to COMP if needed */
|
|
|
|
|
if (lvlbuf[2] != '2')
|
|
|
|
|
{
|
|
|
|
|
retval = kenwood_transaction(rig, "RM2", NULL, 0);
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
retval = kenwood_transaction(rig, "RM", lvlbuf, sizeof(lvlbuf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
val->f = (float)atoi(&lvlbuf[3]) / 30.0;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_ALC:
|
|
|
|
|
retval = kenwood_transaction(rig, "RM", lvlbuf, sizeof(lvlbuf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* set meter to ALC if needed */
|
|
|
|
|
if (lvlbuf[2] != '3')
|
|
|
|
|
{
|
|
|
|
|
retval = kenwood_transaction(rig, "RM3", NULL, 0);
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
retval = kenwood_transaction(rig, "RM", lvlbuf, sizeof(lvlbuf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
val->f = (float)atoi(&lvlbuf[3]) / 30.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 != 4)
|
|
|
|
|
{
|
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "%s: unexpected answer len=%d\n", __func__,
|
|
|
|
|
(int)lvl_len);
|
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sscanf(lvlbuf + 2, "%d", &lvl);
|
|
|
|
|
|
|
|
|
|
if (lvl == 0)
|
|
|
|
|
{
|
|
|
|
|
val->i = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
for (i = 0; i < lvl && i < MAXDBLSTSIZ; i++)
|
|
|
|
|
if (rig->state.attenuator[i] == 0)
|
|
|
|
|
{
|
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "ts870s_get_level: "
|
|
|
|
|
"unexpected att level %d\n", lvl);
|
|
|
|
|
return -RIG_EPROTO;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (i != lvl)
|
|
|
|
|
{
|
|
|
|
|
return -RIG_EINTERNAL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
val->i = rig->state.attenuator[i - 1];
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_RFPOWER:
|
|
|
|
|
/* RFPOWER is 0..100 and not 0..255 like all the other levels*/
|
|
|
|
|
retval = kenwood_transaction(rig, "PC", lvlbuf, sizeof(lvlbuf));
|
|
|
|
|
|
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
|
{
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
lvl_len = strlen(lvlbuf);
|
|
|
|
|
|
|
|
|
|
if (lvl_len != 5 || lvlbuf[1] != 'C')
|
|
|
|
|
{
|
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "ts870s_get_level: wrong answer len=%d\n",
|
|
|
|
|
(int)lvl_len);
|
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sscanf(lvlbuf + 2, "%d", &lvl);
|
|
|
|
|
val->f = lvl / 100.;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_AF:
|
|
|
|
|
return get_kenwood_level(rig, "AG", &val->f);
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_RF:
|
|
|
|
|
return get_kenwood_level(rig, "RG", &val->f);
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_SQL:
|
|
|
|
|
return get_kenwood_level(rig, "SQ", &val->f);
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_MICGAIN:
|
|
|
|
|
return get_kenwood_level(rig, "MG", &val->f);
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_AGC:
|
|
|
|
|
ret = get_kenwood_level(rig, "GT", &val->f);
|
|
|
|
|
agclevel = 255 * 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;
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_IF:
|
|
|
|
|
case RIG_LEVEL_APF:
|
|
|
|
|
case RIG_LEVEL_NR:
|
|
|
|
|
case RIG_LEVEL_PBT_IN:
|
|
|
|
|
case RIG_LEVEL_PBT_OUT:
|
|
|
|
|
case RIG_LEVEL_CWPITCH:
|
|
|
|
|
case RIG_LEVEL_KEYSPD:
|
|
|
|
|
case RIG_LEVEL_NOTCHF:
|
|
|
|
|
case RIG_LEVEL_BKINDL:
|
|
|
|
|
case RIG_LEVEL_BALANCE:
|
|
|
|
|
return -RIG_ENIMPL;
|
|
|
|
|
|
|
|
|
|
case RIG_LEVEL_PREAMP:
|
|
|
|
|
return -RIG_ENAVAIL;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
rig_debug(RIG_DEBUG_ERR, "%s: unsupported get_level %s", __func__,
|
|
|
|
|
rig_strlevel(level));
|
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return RIG_OK;
|
2005-02-02 20:06:19 +00:00
|
|
|
|
}
|
|
|
|
|
|
2005-02-03 20:51:19 +00:00
|
|
|
|
|
2000-12-23 08:40:14 +00:00
|
|
|
|
/*
|
|
|
|
|
* ts870s rig capabilities.
|
|
|
|
|
* Notice that some rigs share the same functions.
|
|
|
|
|
* Also this struct is READONLY!
|
2001-02-07 23:43:03 +00:00
|
|
|
|
* RIT: Variable Range <EFBFBD>9.99 kHz
|
2001-04-28 12:40:44 +00:00
|
|
|
|
*
|
2002-08-16 17:43:02 +00:00
|
|
|
|
* part of infos comes from .http = //www.kenwood.net/
|
2000-12-23 08:40:14 +00:00
|
|
|
|
*/
|
2019-11-30 16:19:08 +00:00
|
|
|
|
const struct rig_caps ts870s_caps =
|
|
|
|
|
{
|
2020-03-05 14:44:18 +00:00
|
|
|
|
RIG_MODEL(RIG_MODEL_TS870S),
|
2019-11-30 16:19:08 +00:00
|
|
|
|
.model_name = "TS-870S",
|
|
|
|
|
.mfg_name = "Kenwood",
|
|
|
|
|
.version = BACKEND_VER ".0",
|
|
|
|
|
.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_SERIAL,
|
|
|
|
|
.serial_rate_min = 1200,
|
|
|
|
|
.serial_rate_max = 57600,
|
|
|
|
|
.serial_data_bits = 8,
|
|
|
|
|
.serial_stop_bits = 1,
|
|
|
|
|
.serial_parity = RIG_PARITY_NONE,
|
|
|
|
|
.serial_handshake = RIG_HANDSHAKE_NONE,
|
|
|
|
|
.write_delay = 0,
|
|
|
|
|
.post_write_delay = 0,
|
|
|
|
|
.timeout = 200,
|
|
|
|
|
.retry = 10,
|
|
|
|
|
|
|
|
|
|
.has_get_func = TS870S_FUNC_ALL,
|
|
|
|
|
.has_set_func = TS870S_FUNC_ALL,
|
|
|
|
|
.has_get_level = TS870S_LEVEL_GET,
|
|
|
|
|
.has_set_level = TS870S_LEVEL_SET,
|
|
|
|
|
.has_get_parm = RIG_PARM_NONE,
|
|
|
|
|
.has_set_parm = RIG_PARM_NONE, /* FIXME: parms */
|
|
|
|
|
.level_gran = {}, /* FIXME: granularity */
|
|
|
|
|
.parm_gran = {},
|
|
|
|
|
.ctcss_list = kenwood38_ctcss_list,
|
|
|
|
|
.dcs_list = NULL,
|
|
|
|
|
.preamp = { RIG_DBLST_END, }, /* FIXME: preamp list */
|
|
|
|
|
.attenuator = { 6, 12, 18, RIG_DBLST_END, },
|
|
|
|
|
.max_rit = kHz(9.99),
|
|
|
|
|
.max_xit = kHz(9.99),
|
|
|
|
|
.max_ifshift = Hz(0),
|
|
|
|
|
.targetable_vfo = RIG_TARGETABLE_FREQ,
|
|
|
|
|
.transceive = RIG_TRN_RIG,
|
|
|
|
|
.bank_qty = 0,
|
|
|
|
|
.chan_desc_sz = 0,
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.chan_list = {
|
|
|
|
|
{ 0, 89, RIG_MTYPE_MEM }, /* TBC */
|
|
|
|
|
{ 90, 99, RIG_MTYPE_EDGE },
|
|
|
|
|
RIG_CHAN_END,
|
|
|
|
|
},
|
|
|
|
|
|
|
|
|
|
.rx_range_list1 = {
|
|
|
|
|
{kHz(100), MHz(30), TS870S_ALL_MODES, -1, -1, TS870S_VFO, TS870S_ANTS},
|
|
|
|
|
RIG_FRNG_END,
|
|
|
|
|
}, /* rx range */
|
|
|
|
|
.tx_range_list1 = {
|
|
|
|
|
FRQ_RNG_HF(1, TS870S_OTHER_TX_MODES, W(5), W(100), TS870S_VFO, TS870S_ANTS), /* 100W class */
|
|
|
|
|
FRQ_RNG_HF(1, TS870S_AM_TX_MODES, W(2), W(25), TS870S_VFO, TS870S_ANTS), /* 25W class */
|
|
|
|
|
RIG_FRNG_END,
|
|
|
|
|
},
|
|
|
|
|
|
|
|
|
|
.rx_range_list2 = {
|
|
|
|
|
{kHz(100), MHz(30), TS870S_ALL_MODES, -1, -1, TS870S_VFO, TS870S_ANTS},
|
|
|
|
|
RIG_FRNG_END,
|
|
|
|
|
}, /* rx range */
|
|
|
|
|
.tx_range_list2 = {
|
|
|
|
|
FRQ_RNG_HF(2, TS870S_OTHER_TX_MODES, W(5), W(100), TS870S_VFO, TS870S_ANTS), /* 100W class */
|
|
|
|
|
FRQ_RNG_HF(2, TS870S_AM_TX_MODES, W(2), W(25), TS870S_VFO, TS870S_ANTS), /* 25W class */
|
|
|
|
|
RIG_FRNG_END,
|
|
|
|
|
}, /* tx range */
|
|
|
|
|
.tuning_steps = {
|
|
|
|
|
{TS870S_ALL_MODES, 50},
|
|
|
|
|
{TS870S_ALL_MODES, 100},
|
|
|
|
|
{TS870S_ALL_MODES, kHz(1)},
|
|
|
|
|
{TS870S_ALL_MODES, kHz(5)},
|
|
|
|
|
{TS870S_ALL_MODES, kHz(9)},
|
|
|
|
|
{TS870S_ALL_MODES, kHz(10)},
|
|
|
|
|
{TS870S_ALL_MODES, 12500},
|
|
|
|
|
{TS870S_ALL_MODES, kHz(20)},
|
|
|
|
|
{TS870S_ALL_MODES, kHz(25)},
|
|
|
|
|
{TS870S_ALL_MODES, kHz(100)},
|
|
|
|
|
{TS870S_ALL_MODES, MHz(1)},
|
|
|
|
|
{TS870S_ALL_MODES, 0}, /* any tuning step */
|
|
|
|
|
RIG_TS_END,
|
|
|
|
|
},
|
|
|
|
|
/* mode/filter list, remember: order matters! */
|
|
|
|
|
.filters = {
|
|
|
|
|
{RIG_MODE_SSB, Hz(200)},
|
|
|
|
|
{RIG_MODE_SSB, Hz(0)},
|
|
|
|
|
{RIG_MODE_SSB, Hz(600)},
|
|
|
|
|
{RIG_MODE_CW, Hz(400)},
|
|
|
|
|
{RIG_MODE_CW, Hz(100)},
|
|
|
|
|
{RIG_MODE_CW, Hz(1000)},
|
|
|
|
|
{RIG_MODE_RTTY, Hz(1000)},
|
|
|
|
|
{RIG_MODE_RTTY, Hz(500)},
|
|
|
|
|
{RIG_MODE_RTTY, Hz(1500)},
|
|
|
|
|
{RIG_MODE_AM, Hz(200)},
|
|
|
|
|
{RIG_MODE_AM, Hz(0)},
|
|
|
|
|
{RIG_MODE_AM, Hz(500)},
|
|
|
|
|
{RIG_MODE_FM, kHz(8)},
|
|
|
|
|
{RIG_MODE_FM, kHz(5)},
|
|
|
|
|
{RIG_MODE_FM, kHz(14)},
|
|
|
|
|
RIG_FLT_END,
|
|
|
|
|
},
|
|
|
|
|
.priv = (void *)& ts870s_priv_caps,
|
|
|
|
|
|
|
|
|
|
.rig_init = kenwood_init,
|
|
|
|
|
.rig_open = kenwood_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 = ts870s_set_mode,
|
|
|
|
|
.get_mode = ts870s_get_mode,
|
|
|
|
|
.set_vfo = kenwood_set_vfo,
|
|
|
|
|
.get_vfo = ts870s_get_vfo,
|
|
|
|
|
.set_split_vfo = kenwood_set_split_vfo,
|
|
|
|
|
.get_split_vfo = kenwood_get_split_vfo_if,
|
|
|
|
|
.set_ctcss_tone = kenwood_set_ctcss_tone,
|
|
|
|
|
.get_ctcss_tone = kenwood_get_ctcss_tone,
|
|
|
|
|
.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 = ts870s_set_level,
|
|
|
|
|
.get_level = ts870s_get_level,
|
|
|
|
|
.set_ant = kenwood_set_ant,
|
|
|
|
|
.get_ant = kenwood_get_ant,
|
|
|
|
|
.send_morse = kenwood_send_morse,
|
|
|
|
|
.vfo_op = kenwood_vfo_op,
|
|
|
|
|
.set_mem = kenwood_set_mem,
|
|
|
|
|
.get_mem = kenwood_get_mem,
|
|
|
|
|
.set_trn = kenwood_set_trn,
|
|
|
|
|
.get_trn = kenwood_get_trn,
|
|
|
|
|
.set_powerstat = kenwood_set_powerstat,
|
|
|
|
|
.get_powerstat = kenwood_get_powerstat,
|
|
|
|
|
.reset = kenwood_reset,
|
2001-02-14 23:54:21 +00:00
|
|
|
|
|
2000-12-23 08:40:14 +00:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Function definitions below
|
|
|
|
|
*/
|
|
|
|
|
|