2003-11-16 16:58:35 +00:00
|
|
|
/*
|
|
|
|
* Hamlib Kenwood backend - TS140 description
|
2005-02-24 22:40:28 +00:00
|
|
|
* Copyright (c) 2000-2005 by Stephane Fillod
|
2003-11-16 16:58:35 +00:00
|
|
|
*
|
2006-04-10 18:01:15 +00:00
|
|
|
* $Id: ts140.c,v 1.8 2006-04-10 18:01:15 pa4tu Exp $
|
2003-11-16 16:58:35 +00:00
|
|
|
*
|
|
|
|
* This library is free software; you can redistribute it and/or modify
|
|
|
|
* it under the terms of the GNU Library General Public License as
|
|
|
|
* published by the Free Software Foundation; either version 2 of
|
|
|
|
* the License, or (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This program 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 Library General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU Library General Public
|
|
|
|
* License along with this library; if not, write to the Free Software
|
|
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
|
|
#include "config.h"
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include <stdlib.h>
|
2005-01-31 16:15:56 +00:00
|
|
|
#include <stdio.h>
|
2003-11-16 16:58:35 +00:00
|
|
|
|
2005-01-31 16:15:56 +00:00
|
|
|
#include "hamlib/rig.h"
|
|
|
|
#include "bandplan.h"
|
2003-11-16 16:58:35 +00:00
|
|
|
#include "kenwood.h"
|
|
|
|
|
|
|
|
|
2005-01-31 16:15:56 +00:00
|
|
|
#define TS140_ALL_MODES (RIG_MODE_AM|RIG_MODE_FM|RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_CWR)
|
|
|
|
#define TS140_OTHER_TX_MODES (RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_FM|RIG_MODE_CWR)
|
2005-01-19 22:23:21 +00:00
|
|
|
#define TS140_AM_TX_MODES RIG_MODE_AM
|
2005-01-31 16:15:56 +00:00
|
|
|
#define TS140_VFO (RIG_VFO_A|RIG_VFO_B|RIG_VFO_MEM)
|
|
|
|
#define TS140_ANTS (0)
|
|
|
|
|
|
|
|
/*
|
|
|
|
* mode defines
|
|
|
|
*/
|
|
|
|
#define MD_NONE '0'
|
|
|
|
#define MD_LSB '1'
|
|
|
|
#define MD_USB '2'
|
|
|
|
#define MD_CW '3'
|
|
|
|
#define MD_FM '4'
|
|
|
|
#define MD_AM '5'
|
|
|
|
#define MD_CWR '7'
|
|
|
|
|
|
|
|
/*
|
|
|
|
* vfo defines
|
|
|
|
*/
|
|
|
|
#define VFO_A '0'
|
|
|
|
#define VFO_B '1'
|
|
|
|
#define VFO_MEM '2'
|
2003-11-16 16:58:35 +00:00
|
|
|
|
|
|
|
static const struct kenwood_priv_caps ts140_priv_caps = {
|
|
|
|
.cmdtrm = EOM_KEN,
|
|
|
|
};
|
|
|
|
|
2005-02-24 22:40:28 +00:00
|
|
|
static int ts140_get_mode(RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width)
|
2005-01-31 16:15:56 +00:00
|
|
|
{
|
2006-03-12 09:02:38 +00:00
|
|
|
char modebuf[50];
|
|
|
|
int retval;
|
|
|
|
size_t mode_len;
|
2005-01-31 16:15:56 +00:00
|
|
|
|
|
|
|
mode_len = 50;
|
|
|
|
retval = kenwood_transaction (rig, "IF;", 3, modebuf, &mode_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (mode_len != 38 || modebuf[1] != 'F') {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"ts140_get_mode: unexpected answer len=%d\n",
|
|
|
|
mode_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
switch (modebuf[29]) {
|
|
|
|
case MD_CW: *mode = RIG_MODE_CW; break;
|
|
|
|
case MD_CWR: *mode = RIG_MODE_CWR; break; /* Not actually reverse CW. It's narrow where the optional filter is fitted */
|
|
|
|
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_NONE: *mode = RIG_MODE_NONE; break;
|
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"ts140_get_mode: "
|
|
|
|
"unsupported mode '%c'\n", modebuf[29]);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
|
|
|
|
|
|
|
*width = rig_passband_normal(rig, *mode);
|
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
}
|
|
|
|
|
2005-02-24 22:40:28 +00:00
|
|
|
static int ts140_set_vfo(RIG *rig, vfo_t vfo)
|
2005-01-31 16:15:56 +00:00
|
|
|
{
|
2006-03-12 09:02:38 +00:00
|
|
|
char cmdbuf[16], ackbuf[50];
|
|
|
|
int cmd_len, retval;
|
|
|
|
size_t ack_len;
|
2005-01-31 16:15:56 +00:00
|
|
|
char vfo_function;
|
|
|
|
|
2006-03-14 20:06:46 +00:00
|
|
|
ack_len = 0;
|
2005-01-31 16:15:56 +00:00
|
|
|
switch (vfo) {
|
|
|
|
case RIG_VFO_VFO:
|
|
|
|
case RIG_VFO_A: vfo_function = VFO_A; break;
|
|
|
|
case RIG_VFO_B: vfo_function = VFO_B; break;
|
|
|
|
case RIG_VFO_MEM: vfo_function = VFO_MEM; break;
|
|
|
|
case RIG_VFO_CURR: return RIG_OK;
|
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"ts140_set_vfo: unsupported VFO %d\n",
|
|
|
|
vfo);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
|
|
|
|
|
|
|
cmd_len = sprintf(cmdbuf, "FN%c;", vfo_function); /* The 680 and 140 need this to set the VFO on the radio */
|
|
|
|
ack_len = 0;
|
|
|
|
retval = kenwood_transaction (rig, cmdbuf, cmd_len, ackbuf, &ack_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
return RIG_OK;
|
|
|
|
}
|
|
|
|
|
2005-02-24 22:40:28 +00:00
|
|
|
static int ts140_get_freq(RIG *rig, vfo_t vfo, freq_t *freq)
|
2005-01-31 16:15:56 +00:00
|
|
|
{
|
2006-03-12 09:02:38 +00:00
|
|
|
char freqbuf[50];
|
|
|
|
size_t freq_len;
|
|
|
|
int retval;
|
2005-01-31 16:15:56 +00:00
|
|
|
long long f;
|
|
|
|
|
|
|
|
/* We're using IF; here because the TS-140S is incapable of supplying
|
|
|
|
* frequency information in MEM mode with the kenwood_get_freq method. It may
|
|
|
|
* entail more data over the serial port, but for fewer errors and unexplained
|
|
|
|
* silence from rpc.rigd it is a small price to pay. */
|
|
|
|
|
|
|
|
freq_len = 50;
|
|
|
|
retval = kenwood_transaction (rig, "IF;", 3, freqbuf, &freq_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
if (freq_len != 38 || freqbuf[1] != 'F') {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"ts140_get_freq: wrong answer len=%d\n",
|
|
|
|
freq_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
freqbuf[14] = '\0';
|
2006-04-10 18:01:15 +00:00
|
|
|
sscanf(freqbuf+2, "%lld", &f); /* Is a long long int really necessary here? */
|
2005-01-31 16:15:56 +00:00
|
|
|
*freq = (freq_t)f;
|
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
}
|
|
|
|
|
2006-04-10 18:01:15 +00:00
|
|
|
static int ts140_get_mem(RIG *rig, vfo_t vfo, int *ch)
|
|
|
|
{
|
|
|
|
char membuf[50];
|
|
|
|
int m, retval;
|
|
|
|
size_t mem_len;
|
|
|
|
|
|
|
|
mem_len = 50;
|
|
|
|
|
|
|
|
/* Again, the TS-140S is incapable of supplying the memory location
|
|
|
|
* from MC; so we use IF;. Another awful hack, but it's what the radio
|
|
|
|
* forces us to use. Furthermore, the radio will not return the value
|
|
|
|
* of an empty memory. */
|
|
|
|
|
|
|
|
retval = kenwood_transaction (rig, "IF;", 3, membuf, &mem_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (mem_len != 38 || membuf[1] != 'F') {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"ts140_get_mem: wrong answer "
|
|
|
|
"len=%d\n", mem_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
membuf[28] = '\0';
|
|
|
|
sscanf(membuf+25, "%d", &m);
|
|
|
|
*ch = m;
|
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
}
|
|
|
|
|
2005-02-24 22:40:28 +00:00
|
|
|
static int ts140_set_func(RIG *rig, vfo_t vfo, setting_t func, int status)
|
2005-01-31 16:15:56 +00:00
|
|
|
{
|
2006-03-12 09:02:38 +00:00
|
|
|
char fctbuf[16], ackbuf[50];
|
|
|
|
int fct_len;
|
|
|
|
size_t ack_len;
|
|
|
|
|
2006-03-14 20:06:46 +00:00
|
|
|
ack_len = 0;
|
2005-01-31 16:15:56 +00:00
|
|
|
switch (func) {
|
|
|
|
case RIG_FUNC_LOCK:
|
|
|
|
if (status > 1) status = 1;
|
|
|
|
fct_len = sprintf(fctbuf,"LK%d;", status); /* The only way I could get the rig to drop the lock once asserted */
|
|
|
|
return kenwood_transaction (rig, fctbuf, fct_len, ackbuf, &ack_len);
|
|
|
|
|
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"Unsupported set_func %#x", func);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
}
|
|
|
|
|
2003-11-16 16:58:35 +00:00
|
|
|
/*
|
2005-01-19 22:23:21 +00:00
|
|
|
* ts140 rig capabilities.
|
2006-04-10 18:01:15 +00:00
|
|
|
* GW0VNR 09042006
|
2003-11-16 16:58:35 +00:00
|
|
|
*/
|
2005-01-31 16:15:56 +00:00
|
|
|
|
2003-11-16 16:58:35 +00:00
|
|
|
const struct rig_caps ts140_caps = {
|
|
|
|
.rig_model = RIG_MODEL_TS140S,
|
|
|
|
.model_name = "TS-140S",
|
|
|
|
.mfg_name = "Kenwood",
|
2005-04-03 20:23:19 +00:00
|
|
|
.version = BACKEND_VER ".0",
|
2003-11-16 16:58:35 +00:00
|
|
|
.copyright = "LGPL",
|
2005-01-31 16:15:56 +00:00
|
|
|
.status = RIG_STATUS_BETA,
|
2003-11-16 16:58:35 +00:00
|
|
|
.rig_type = RIG_TYPE_TRANSCEIVER,
|
|
|
|
.ptt_type = RIG_PTT_RIG,
|
|
|
|
.port_type = RIG_PORT_SERIAL,
|
2005-01-19 22:23:21 +00:00
|
|
|
.serial_rate_min = 4800,
|
2005-01-31 16:15:56 +00:00
|
|
|
.serial_rate_max = 9600, /* Rig only capable of 4800 baud from factory and 9k6 with jumper change */
|
2003-11-16 16:58:35 +00:00
|
|
|
.serial_data_bits = 8,
|
2005-01-31 16:15:56 +00:00
|
|
|
.serial_stop_bits = 2, /* TWO stop bits. This is correct. */
|
2003-11-16 16:58:35 +00:00
|
|
|
.serial_parity = RIG_PARITY_NONE,
|
|
|
|
.serial_handshake = RIG_HANDSHAKE_NONE,
|
|
|
|
.write_delay = 0,
|
|
|
|
.post_write_delay = 0,
|
2005-01-31 16:15:56 +00:00
|
|
|
.timeout = 300,
|
2003-11-16 16:58:35 +00:00
|
|
|
.retry = 3,
|
|
|
|
|
2005-01-19 22:23:21 +00:00
|
|
|
.has_get_func = RIG_FUNC_LOCK,
|
|
|
|
.has_set_func = RIG_FUNC_LOCK,
|
|
|
|
.has_get_level = RIG_LEVEL_NONE,
|
|
|
|
.has_set_level = RIG_LEVEL_NONE,
|
2003-11-16 16:58:35 +00:00
|
|
|
.has_get_parm = RIG_PARM_NONE,
|
2005-01-31 16:15:56 +00:00
|
|
|
.has_set_parm = RIG_PARM_NONE, /* No PARAMS controllable */
|
2003-11-16 16:58:35 +00:00
|
|
|
.level_gran = {}, /* FIXME: granularity */
|
|
|
|
.parm_gran = {},
|
2005-01-19 22:23:21 +00:00
|
|
|
.preamp = { RIG_DBLST_END, }, /* Not controllable */
|
2005-01-31 16:15:56 +00:00
|
|
|
.attenuator = { RIG_DBLST_END, }, /* Not controllable */
|
2003-11-16 16:58:35 +00:00
|
|
|
.max_rit = kHz(1.2),
|
2005-01-19 22:23:21 +00:00
|
|
|
.max_xit = kHz(1.2),
|
|
|
|
.max_ifshift = Hz(0), /* Not controllable */
|
2003-11-16 16:58:35 +00:00
|
|
|
.targetable_vfo = RIG_TARGETABLE_FREQ,
|
|
|
|
.transceive = RIG_TRN_RIG,
|
|
|
|
.bank_qty = 0,
|
|
|
|
.chan_desc_sz = 0,
|
|
|
|
|
|
|
|
|
|
|
|
.chan_list = {
|
2005-01-31 16:15:56 +00:00
|
|
|
{ 0, 19, RIG_MTYPE_MEM },
|
2005-01-19 22:23:21 +00:00
|
|
|
{ 20, 30, RIG_MTYPE_EDGE },
|
2003-11-16 16:58:35 +00:00
|
|
|
RIG_CHAN_END,
|
|
|
|
},
|
|
|
|
|
|
|
|
.rx_range_list1 = {
|
2005-01-19 22:23:21 +00:00
|
|
|
{kHz(50),kHz(34999),TS140_ALL_MODES,-1,-1,TS140_VFO},
|
2003-11-16 16:58:35 +00:00
|
|
|
RIG_FRNG_END,
|
|
|
|
}, /* rx range */
|
2005-01-31 16:15:56 +00:00
|
|
|
.tx_range_list1 = {
|
|
|
|
FRQ_RNG_HF(1,TS140_OTHER_TX_MODES,W(5),W(100),TS140_VFO,TS140_ANTS),
|
|
|
|
FRQ_RNG_HF(1,TS140_AM_TX_MODES,W(2),W(40),TS140_VFO,TS140_ANTS),
|
|
|
|
RIG_FRNG_END,
|
2003-11-16 16:58:35 +00:00
|
|
|
},
|
|
|
|
|
|
|
|
.rx_range_list2 = {
|
2005-01-19 22:23:21 +00:00
|
|
|
{kHz(50),kHz(34999),TS140_ALL_MODES,-1,-1,TS140_VFO},
|
2003-11-16 16:58:35 +00:00
|
|
|
RIG_FRNG_END,
|
|
|
|
}, /* rx range */
|
|
|
|
.tx_range_list2 = {
|
2005-01-31 16:15:56 +00:00
|
|
|
FRQ_RNG_HF(2,TS140_OTHER_TX_MODES,W(5),W(100),TS140_VFO,TS140_ANTS),
|
|
|
|
FRQ_RNG_HF(2,TS140_AM_TX_MODES,W(2),W(40),TS140_VFO,TS140_ANTS),
|
|
|
|
RIG_FRNG_END,
|
2003-11-16 16:58:35 +00:00
|
|
|
}, /* tx range */
|
2005-01-31 16:15:56 +00:00
|
|
|
.tuning_steps = { /* FIXME: Done */
|
2005-01-19 22:23:21 +00:00
|
|
|
{TS140_ALL_MODES,10},
|
2003-11-16 16:58:35 +00:00
|
|
|
{TS140_ALL_MODES,100},
|
|
|
|
{TS140_ALL_MODES,kHz(1)},
|
|
|
|
{TS140_ALL_MODES,kHz(5)},
|
|
|
|
{TS140_ALL_MODES,kHz(9)},
|
|
|
|
{TS140_ALL_MODES,kHz(10)},
|
|
|
|
{TS140_ALL_MODES,12500},
|
|
|
|
{TS140_ALL_MODES,kHz(20)},
|
|
|
|
{TS140_ALL_MODES,kHz(25)},
|
|
|
|
{TS140_ALL_MODES,kHz(100)},
|
|
|
|
{TS140_ALL_MODES,MHz(1)},
|
|
|
|
RIG_TS_END,
|
|
|
|
},
|
|
|
|
/* mode/filter list, remember: order matters! */
|
|
|
|
.filters = {
|
|
|
|
{RIG_MODE_AM, kHz(6)},
|
2005-01-31 16:15:56 +00:00
|
|
|
{RIG_MODE_SSB|RIG_MODE_CW|RIG_MODE_AM, kHz(2.2)},
|
|
|
|
{RIG_MODE_CWR, 600},
|
2003-11-16 16:58:35 +00:00
|
|
|
{RIG_MODE_FM, kHz(12)},
|
|
|
|
RIG_FLT_END,
|
|
|
|
},
|
|
|
|
.priv = (void *)&ts140_priv_caps,
|
|
|
|
|
|
|
|
.set_freq = kenwood_set_freq,
|
2005-01-31 16:15:56 +00:00
|
|
|
.get_freq = ts140_get_freq,
|
2003-11-16 16:58:35 +00:00
|
|
|
.set_rit = kenwood_set_rit,
|
|
|
|
.get_rit = kenwood_get_rit,
|
2005-01-31 16:15:56 +00:00
|
|
|
.set_mode = kenwood_set_mode,
|
|
|
|
.get_mode = ts140_get_mode,
|
|
|
|
.set_vfo = ts140_set_vfo,
|
2003-11-16 16:58:35 +00:00
|
|
|
.get_vfo = kenwood_get_vfo,
|
|
|
|
.set_ptt = kenwood_set_ptt,
|
2005-01-31 16:15:56 +00:00
|
|
|
.set_func = ts140_set_func,
|
2003-11-16 16:58:35 +00:00
|
|
|
.get_func = kenwood_get_func,
|
|
|
|
.vfo_op = kenwood_vfo_op,
|
|
|
|
.set_mem = kenwood_set_mem,
|
2006-04-10 18:01:15 +00:00
|
|
|
.get_mem = ts140_get_mem,
|
2003-11-16 16:58:35 +00:00
|
|
|
.reset = kenwood_reset,
|
|
|
|
|
|
|
|
};
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Function definitions below
|
|
|
|
*/
|
|
|
|
|