kopia lustrzana https://github.com/Hamlib/Hamlib
575 wiersze
15 KiB
C
575 wiersze
15 KiB
C
/*
|
|
* Hamlib Kenwood backend - TS850 description
|
|
* Copyright (c) 2000-2004 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 <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <math.h>
|
|
|
|
#include <hamlib/rig.h>
|
|
#include <cal.h>
|
|
#include "kenwood.h"
|
|
|
|
|
|
#define TS850_ALL_MODES (RIG_MODE_AM|RIG_MODE_CW|RIG_MODE_CWR|RIG_MODE_SSB|RIG_MODE_FM|RIG_MODE_RTTY|RIG_MODE_RTTYR)
|
|
#define TS850_OTHER_TX_MODES (RIG_MODE_CW|RIG_MODE_CWR|RIG_MODE_SSB|RIG_MODE_FM|RIG_MODE_RTTY|RIG_MODE_RTTYR)
|
|
#define TS850_AM_TX_MODES (RIG_MODE_AM)
|
|
|
|
#define TS850_FUNC_ALL (RIG_FUNC_AIP|RIG_FUNC_LOCK)
|
|
|
|
#define TS850_LEVEL_GET (RIG_LEVEL_SWR|RIG_LEVEL_COMP|RIG_LEVEL_ALC|RIG_LEVEL_CWPITCH|RIG_LEVEL_RAWSTR|RIG_LEVEL_STRENGTH|RIG_LEVEL_SLOPE_LOW|RIG_LEVEL_SLOPE_HIGH)
|
|
#define TS850_LEVEL_SET (RIG_LEVEL_CWPITCH|RIG_LEVEL_SLOPE_LOW|RIG_LEVEL_SLOPE_HIGH)
|
|
|
|
#define TS850_VFO (RIG_VFO_A|RIG_VFO_B)
|
|
|
|
#define TS850_VFO_OPS (RIG_OP_UP|RIG_OP_DOWN)
|
|
|
|
#define TS850_CHANNEL_CAPS \
|
|
.freq=1,\
|
|
.mode=1,\
|
|
.tx_freq=1,\
|
|
.tx_mode=1,\
|
|
.split=1,\
|
|
.flags=RIG_CHFLAG_SKIP, \
|
|
.ctcss_tone=1
|
|
|
|
#define TS850_STR_CAL { 4, \
|
|
{ \
|
|
{ 0, -54 }, \
|
|
{ 15, 0 }, \
|
|
{ 22,30 }, \
|
|
{ 30, 66}, \
|
|
} }
|
|
|
|
|
|
static struct kenwood_priv_caps ts850_priv_caps =
|
|
{
|
|
.cmdtrm = EOM_KEN,
|
|
};
|
|
|
|
/* forward definitions */
|
|
static int ts850_set_rit(RIG *rig, vfo_t vfo, shortfreq_t rit);
|
|
static int ts850_set_xit(RIG *rig, vfo_t vfo, shortfreq_t rit);
|
|
static int ts850_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val);
|
|
static int ts850_set_channel(RIG *rig, const channel_t *chan);
|
|
|
|
static const struct confparams ts850_ext_parms[] =
|
|
{
|
|
{
|
|
TOK_FINE, "fine", "Fine", "Fine step mode",
|
|
NULL, RIG_CONF_CHECKBUTTON, { }
|
|
},
|
|
{
|
|
TOK_VOICE, "voice", "Voice", "Voice recall",
|
|
NULL, RIG_CONF_BUTTON, { }
|
|
},
|
|
{
|
|
TOK_XIT, "xit", "XIT", "XIT",
|
|
NULL, RIG_CONF_CHECKBUTTON, { }
|
|
},
|
|
{
|
|
TOK_RIT, "rit", "RIT", "RIT",
|
|
NULL, RIG_CONF_CHECKBUTTON, { }
|
|
},
|
|
{ RIG_CONF_END, NULL, }
|
|
};
|
|
|
|
/*
|
|
* ts850 rig capabilities.
|
|
* Notice that some rigs share the same functions.
|
|
* Also this struct is READONLY!
|
|
*/
|
|
const struct rig_caps ts850_caps =
|
|
{
|
|
.rig_model = RIG_MODEL_TS850,
|
|
.model_name = "TS-850",
|
|
.mfg_name = "Kenwood",
|
|
.version = BACKEND_VER ".1",
|
|
.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 = 4800,
|
|
.serial_rate_max = 4800,
|
|
.serial_data_bits = 8,
|
|
.serial_stop_bits = 2,
|
|
.serial_parity = RIG_PARITY_NONE,
|
|
.serial_handshake = RIG_HANDSHAKE_HARDWARE,
|
|
.write_delay = 0,
|
|
.post_write_delay = 100,
|
|
.timeout = 500,
|
|
.retry = 10,
|
|
|
|
.has_get_func = TS850_FUNC_ALL,
|
|
.has_set_func = TS850_FUNC_ALL,
|
|
.has_get_level = TS850_LEVEL_GET,
|
|
.has_set_level = TS850_LEVEL_SET,
|
|
.has_get_parm = RIG_PARM_NONE,
|
|
.has_set_parm = RIG_PARM_NONE,
|
|
.level_gran = {},
|
|
.parm_gran = {},
|
|
.extparms = ts850_ext_parms,
|
|
.ctcss_list = kenwood38_ctcss_list,
|
|
.dcs_list = NULL,
|
|
.preamp = { RIG_DBLST_END, },
|
|
.attenuator = { RIG_DBLST_END, },
|
|
.max_rit = kHz(1.27),
|
|
.max_xit = kHz(1.27),
|
|
.max_ifshift = Hz(0),
|
|
.vfo_ops = TS850_VFO_OPS,
|
|
.targetable_vfo = RIG_TARGETABLE_FREQ,
|
|
.transceive = RIG_TRN_RIG,
|
|
.bank_qty = 0,
|
|
.chan_desc_sz = 3,
|
|
.chan_list = {
|
|
{ 0, 89, RIG_MTYPE_MEM, {TS850_CHANNEL_CAPS}},
|
|
{ 90, 99, RIG_MTYPE_EDGE, {TS850_CHANNEL_CAPS}},
|
|
RIG_CHAN_END,
|
|
},
|
|
|
|
.rx_range_list1 = {
|
|
{kHz(100), MHz(30), TS850_ALL_MODES, -1, -1, TS850_VFO},
|
|
RIG_FRNG_END,
|
|
}, /* rx range */
|
|
.tx_range_list1 = {
|
|
{kHz(1810), kHz(1850), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO}, /* 100W class */
|
|
{kHz(1810), kHz(1850), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO}, /* 40W class */
|
|
{kHz(3500), kHz(3800), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{kHz(3500), kHz(3800), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{MHz(7), kHz(7100), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{MHz(7), kHz(7100), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{kHz(10100), kHz(10150), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{kHz(10100), kHz(10150), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{MHz(14), kHz(14350), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{MHz(14), kHz(14350), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{kHz(18068), kHz(18168), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{kHz(18068), kHz(18168), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{MHz(21), kHz(21450), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{MHz(21), kHz(21450), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{kHz(24890), kHz(24990), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{kHz(24890), kHz(24990), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{MHz(28), kHz(29700), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{MHz(28), kHz(29700), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
RIG_FRNG_END,
|
|
},
|
|
|
|
.rx_range_list2 = {
|
|
{kHz(100), MHz(30), TS850_ALL_MODES, -1, -1, TS850_VFO},
|
|
RIG_FRNG_END,
|
|
}, /* rx range */
|
|
.tx_range_list2 = {
|
|
{kHz(1800), MHz(2) - 1, TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO}, /* 100W class */
|
|
{kHz(1800), MHz(2) - 1, TS850_AM_TX_MODES, W(2), W(40), TS850_VFO}, /* 40W class */
|
|
{kHz(3500), MHz(4) - 1, TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{kHz(3500), MHz(4) - 1, TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{MHz(7), kHz(7300), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{MHz(7), kHz(7300), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{kHz(10100), kHz(10150), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{kHz(10100), kHz(10150), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{MHz(14), kHz(14350), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{MHz(14), kHz(14350), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{kHz(18068), kHz(18168), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{kHz(18068), kHz(18168), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{MHz(21), kHz(21450), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{MHz(21), kHz(21450), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{kHz(24890), kHz(24990), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{kHz(24890), kHz(24990), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
{MHz(28), kHz(29700), TS850_OTHER_TX_MODES, W(5), W(100), TS850_VFO},
|
|
{MHz(28), kHz(29700), TS850_AM_TX_MODES, W(2), W(40), TS850_VFO},
|
|
RIG_FRNG_END,
|
|
}, /* tx range */
|
|
.tuning_steps = {
|
|
{TS850_ALL_MODES, 0}, /* any tuning step */
|
|
RIG_TS_END,
|
|
},
|
|
/* mode/filter list, remember: order matters! */
|
|
.filters = {
|
|
{TS850_ALL_MODES, kHz(12)},
|
|
{TS850_ALL_MODES, kHz(6)},
|
|
{TS850_ALL_MODES, kHz(2.7)},
|
|
{TS850_ALL_MODES, Hz(500)},
|
|
{TS850_ALL_MODES, Hz(250)},
|
|
RIG_FLT_END,
|
|
},
|
|
.str_cal = TS850_STR_CAL,
|
|
.priv = (void *)& ts850_priv_caps,
|
|
|
|
.rig_init = kenwood_init,
|
|
.rig_open = kenwood_open,
|
|
.rig_cleanup = kenwood_cleanup,
|
|
.set_freq = kenwood_set_freq,
|
|
.get_freq = kenwood_get_freq,
|
|
.set_rit = ts850_set_rit,
|
|
.get_rit = kenwood_get_rit,
|
|
.set_xit = ts850_set_xit,
|
|
.get_xit = kenwood_get_xit,
|
|
.set_mode = kenwood_set_mode,
|
|
.get_mode = kenwood_get_mode_if,
|
|
.set_vfo = kenwood_set_vfo,
|
|
.get_vfo = kenwood_get_vfo_if,
|
|
.set_split_vfo = kenwood_set_split_vfo,
|
|
.set_ctcss_tone = kenwood_set_ctcss_tone_tn,
|
|
.get_ctcss_tone = kenwood_get_ctcss_tone,
|
|
.get_ptt = kenwood_get_ptt,
|
|
.set_ptt = kenwood_set_ptt_safe,
|
|
.set_func = kenwood_set_func,
|
|
.get_func = kenwood_get_func,
|
|
.set_level = kenwood_set_level,
|
|
.get_level = ts850_get_level,
|
|
.vfo_op = kenwood_vfo_op,
|
|
.set_mem = kenwood_set_mem,
|
|
.get_mem = kenwood_get_mem_if,
|
|
.get_channel = kenwood_get_channel,
|
|
.set_channel = ts850_set_channel,
|
|
.set_trn = kenwood_set_trn
|
|
};
|
|
|
|
/*
|
|
* Function definitions below
|
|
*/
|
|
|
|
int ts850_set_rit(RIG *rig, vfo_t vfo, shortfreq_t rit)
|
|
{
|
|
char buf[50];
|
|
unsigned char c;
|
|
int retval, i;
|
|
|
|
if (rit == 0)
|
|
{
|
|
retval = kenwood_transaction(rig, "RT0", NULL, 0);
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
retval = kenwood_transaction(rig, "RT1", NULL, 0);
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
}
|
|
|
|
if (rit > 0)
|
|
{
|
|
c = 'U';
|
|
}
|
|
else
|
|
{
|
|
c = 'D';
|
|
}
|
|
|
|
sprintf(buf, "R%c", c);
|
|
|
|
retval = kenwood_transaction(rig, "RC", NULL, 0);
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
|
|
for (i = 0; i < labs(lrint(rit / 20)); i++)
|
|
{
|
|
retval = kenwood_transaction(rig, buf, NULL, 0);
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
}
|
|
|
|
return RIG_OK;
|
|
}
|
|
|
|
int ts850_set_xit(RIG *rig, vfo_t vfo, shortfreq_t xit)
|
|
{
|
|
char buf[50];
|
|
unsigned char c;
|
|
int retval, i;
|
|
|
|
if (xit == 0)
|
|
{
|
|
retval = kenwood_transaction(rig, "XT0", NULL, 0);
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
retval = kenwood_transaction(rig, "XT1", NULL, 0);
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
}
|
|
|
|
retval = kenwood_transaction(rig, "RC", NULL, 0);
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
|
|
if (xit > 0)
|
|
{
|
|
c = 'U';
|
|
}
|
|
else
|
|
{
|
|
c = 'D';
|
|
}
|
|
|
|
sprintf(buf, "R%c", c);
|
|
|
|
for (i = 0; i < labs(lrint(xit / 20)); i++)
|
|
{
|
|
retval = kenwood_transaction(rig, buf, NULL, 0);
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
}
|
|
|
|
return RIG_OK;
|
|
}
|
|
|
|
static char mode_to_char(rmode_t mode)
|
|
{
|
|
switch (mode)
|
|
{
|
|
case RIG_MODE_CW: return (MD_CW);
|
|
|
|
case RIG_MODE_CWR: return (MD_CWR);
|
|
|
|
case RIG_MODE_USB: return (MD_USB);
|
|
|
|
case RIG_MODE_LSB: return (MD_LSB);
|
|
|
|
case RIG_MODE_FM: return (MD_FM);
|
|
|
|
case RIG_MODE_AM: return (MD_AM);
|
|
|
|
case RIG_MODE_RTTY: return (MD_FSK);
|
|
|
|
case RIG_MODE_RTTYR: return (MD_FSKR);
|
|
|
|
default:
|
|
rig_debug(RIG_DEBUG_WARN, "%s: unsupported mode %s\n", __func__,
|
|
rig_strrmode(mode));
|
|
}
|
|
|
|
return (RIG_MODE_NONE);
|
|
}
|
|
|
|
int ts850_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val)
|
|
{
|
|
char lvlbuf[50];
|
|
int i, retval;
|
|
|
|
if (vfo != RIG_VFO_CURR)
|
|
{
|
|
return -RIG_EINVAL;
|
|
}
|
|
|
|
switch (level)
|
|
{
|
|
case RIG_LEVEL_RAWSTR:
|
|
retval = kenwood_transaction(rig, "SM", lvlbuf, sizeof(lvlbuf));
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
|
|
val->i = atoi(&lvlbuf[2]);
|
|
break;
|
|
|
|
case RIG_LEVEL_STRENGTH:
|
|
retval = kenwood_transaction(rig, "SM", lvlbuf, sizeof(lvlbuf));
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
|
|
val->i = atoi(&lvlbuf[2]);
|
|
//val->i = (val->i * 4) - 54; Old approximate way of doing it.
|
|
val->i = (int)rig_raw2val(val->i, &rig->caps->str_cal);
|
|
break;
|
|
|
|
case RIG_LEVEL_SWR:
|
|
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, "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, "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_CWPITCH:
|
|
retval = kenwood_transaction(rig, "PT", lvlbuf, sizeof(lvlbuf));
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
|
|
val->i = atoi(&lvlbuf[2]);
|
|
val->i = (val->i - 8) * 50 + 800;
|
|
break;
|
|
|
|
|
|
default:
|
|
return kenwood_get_level(rig, vfo, level, val);
|
|
}
|
|
|
|
return retval; // Never gets here.
|
|
}
|
|
|
|
int ts850_set_channel(RIG *rig, const channel_t *chan)
|
|
{
|
|
char cmdbuf[30];
|
|
int retval;
|
|
int num, freq, tx_freq, tone;
|
|
char mode, tx_mode, tones;
|
|
|
|
num = chan->channel_num;
|
|
freq = (int)chan->freq;
|
|
mode = mode_to_char(chan->mode);
|
|
|
|
if (chan->split == RIG_SPLIT_ON)
|
|
{
|
|
tx_freq = (int)chan->tx_freq;
|
|
tx_mode = mode_to_char(chan->tx_mode);
|
|
}
|
|
else
|
|
{
|
|
tx_freq = 0;
|
|
tx_mode = '\0';
|
|
}
|
|
|
|
for (tone = 1; rig->caps->ctcss_list[tone - 1] != 0 && tone < 39; tone++)
|
|
{
|
|
if (rig->caps->ctcss_list[tone - 1] == chan->ctcss_tone)
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (chan->ctcss_tone != 0)
|
|
{
|
|
tones = '1';
|
|
}
|
|
else
|
|
{
|
|
tones = '0';
|
|
tone = 0;
|
|
}
|
|
|
|
sprintf(cmdbuf, "MW0 %02d%011d%c0%c%02d ",
|
|
num, freq, mode, tones, tone);
|
|
retval = kenwood_transaction(rig, cmdbuf, NULL, 0);
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
|
|
sprintf(cmdbuf, "MW1 %02d%011d%c0%c%02d ",
|
|
num, tx_freq, tx_mode, tones, tone);
|
|
retval = kenwood_transaction(rig, cmdbuf, NULL, 0);
|
|
|
|
if (retval != RIG_OK)
|
|
{
|
|
return retval;
|
|
}
|
|
|
|
return RIG_OK;
|
|
}
|