Hamlib/rigs/skanti/trp8255.c

538 wiersze
12 KiB
C

/*
* Hamlib Skanti backend - TRP8255 description
* Copyright (c) 2010 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 <string.h>
#include <hamlib/rig.h>
#include "idx_builtin.h"
#include "skanti.h"
#include "iofunc.h"
#define TRP8255_ALL_MODES (RIG_MODE_AM|RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_RTTY)
#define TRP8255_OTHER_TX_MODES (RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_RTTY)
#define TRP8255_AM_TX_MODES RIG_MODE_AM
#define TRP8255_FUNC (RIG_FUNC_MUTE)
#define TRP8255_LEVEL_ALL (RIG_LEVEL_RFPOWER|RIG_LEVEL_AGC|\
RIG_LEVEL_ATT|RIG_LEVEL_PREAMP|RIG_LEVEL_SQL)
#define TRP8255_PARM_ALL (RIG_PARM_TIME|RIG_PARM_BACKLIGHT)
#define TRP8255_VFO_OPS (RIG_OP_TUNE|RIG_OP_TO_VFO|RIG_OP_FROM_VFO|RIG_OP_CPY)
#define TRP8255_VFO (RIG_VFO_A)
#define TRP8255_MEM_CAP { \
.freq = 1, \
.mode = 1, \
.width = 1, \
.tx_freq = 1, \
}
/*
* Private data
*/
struct cu_priv_data
{
split_t split; /* current emulated split state */
int ch; /* current memorized memory channel */
};
static int cu_transaction(RIG *rig, const char *cmd, int cmd_len);
static int cu_open(RIG *rig);
static int cu_close(RIG *rig);
static int cu_set_freq(RIG *rig, vfo_t vfo, freq_t freq);
static int cu_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width);
static int cu_set_split_freq(RIG *rig, vfo_t vfo, freq_t tx_freq);
static int cu_set_split_vfo(RIG *rig, vfo_t vfo, split_t split, vfo_t tx_vfo);
static int cu_set_level(RIG *rig, vfo_t vfo, setting_t level, value_t val);
static int cu_set_func(RIG *rig, vfo_t vfo, setting_t func, int status);
static int cu_set_parm(RIG *rig, setting_t parm, value_t val);
static int cu_set_ts(RIG *rig, vfo_t vfo, shortfreq_t ts);
static int cu_set_ptt(RIG *rig, vfo_t vfo, ptt_t ptt);
static int cu_set_mem(RIG *rig, vfo_t vfo, int ch);
static int cu_vfo_op(RIG *rig, vfo_t vfo, vfo_op_t op);
/*
* TRP 8255 rig capabilities.
* The protocol is different than TRP8000,
* because the TRP8255 has the "CU" (Control Unit).
*
*/
const struct rig_caps trp8255_caps =
{
RIG_MODEL(RIG_MODEL_TRP8255),
.model_name = "TRP 8255 S R",
.mfg_name = "Skanti",
.version = "20200323.0",
.copyright = "LGPL",
.status = RIG_STATUS_UNTESTED,
.rig_type = RIG_TYPE_TRANSCEIVER,
.ptt_type = RIG_PTT_RIG,
.dcd_type = RIG_DCD_NONE,
.port_type = RIG_PORT_SERIAL,
.serial_rate_min = 300,
.serial_rate_max = 2400,
.serial_data_bits = 7,
.serial_stop_bits = 1,
.serial_parity = RIG_PARITY_ODD,
.serial_handshake = RIG_HANDSHAKE_NONE,
.write_delay = 0,
.post_write_delay = 0,
.timeout = 2000,
.retry = 3,
.has_get_func = RIG_FUNC_NONE,
.has_set_func = TRP8255_FUNC,
.has_get_level = RIG_LEVEL_NONE,
.has_set_level = RIG_LEVEL_SET(TRP8255_LEVEL_ALL),
.has_get_parm = RIG_PARM_NONE,
.has_set_parm = RIG_PARM_SET(TRP8255_PARM_ALL),
.vfo_ops = TRP8255_VFO_OPS,
.preamp = { 10, RIG_DBLST_END }, /* TBC */
.attenuator = { 20, RIG_DBLST_END }, /* TBC */
.max_rit = Hz(0),
.max_xit = Hz(0),
.max_ifshift = Hz(0),
.targetable_vfo = 0,
.transceive = RIG_TRN_OFF,
.bank_qty = 0,
.chan_desc_sz = 0,
.chan_list = {
{ 0, 76, RIG_MTYPE_MEM, TRP8255_MEM_CAP },
RIG_CHAN_END,
},
.rx_range_list1 = { RIG_FRNG_END, }, /* FIXME: enter region 1 setting */
.tx_range_list1 = { RIG_FRNG_END, },
.rx_range_list2 = {
{kHz(500), MHz(30), TRP8255_ALL_MODES, -1, -1, TRP8255_VFO},
RIG_FRNG_END,
},
.tx_range_list2 = {
{MHz(2), MHz(30), TRP8255_AM_TX_MODES, W(4), W(40), TRP8255_VFO},
{MHz(2), MHz(30), TRP8255_OTHER_TX_MODES, W(10), W(100), TRP8255_VFO},
RIG_FRNG_END,
},
.tuning_steps = {
{TRP8255_ALL_MODES, 10},
{TRP8255_ALL_MODES, 100},
{TRP8255_ALL_MODES, kHz(1)},
RIG_TS_END,
},
/* mode/filter list, remember: order matters! */
.filters = {
/* rough guesses */
{TRP8255_ALL_MODES, kHz(2.7)}, /* intermit */
{TRP8255_ALL_MODES, kHz(2.1)}, /* narrow */
{TRP8255_ALL_MODES, kHz(6)}, /* wide */
{TRP8255_ALL_MODES, Hz(500)}, /* very narrow */
RIG_FLT_END,
},
.rig_open = cu_open,
.rig_close = cu_close,
.set_freq = cu_set_freq,
.set_mode = cu_set_mode,
.set_split_freq = cu_set_split_freq,
.set_split_vfo = cu_set_split_vfo,
.set_ptt = cu_set_ptt,
.set_mem = cu_set_mem,
.vfo_op = cu_vfo_op,
.set_level = cu_set_level,
.set_func = cu_set_func,
.set_parm = cu_set_parm,
.set_ts = cu_set_ts,
};
/*
* Function definitions below
*/
#define ACK 0x06
#define NACK 0x15
#define CR "\x0d"
/* TODO: retry */
static int cu_transaction(RIG *rig, const char *cmd, int cmd_len)
{
int i;
char retchar;
for (i = 0; i < cmd_len; i++)
{
int ret = write_block(&rig->state.rigport, &cmd[i], 1);
if (ret != RIG_OK)
{
return ret;
}
ret = read_block(&rig->state.rigport, &retchar, 1);
switch (retchar)
{
case ACK: continue;
case NACK:
return -RIG_ERJCTED;
default: return -RIG_EPROTO;
}
}
return RIG_OK;
}
static int cu_open(RIG *rig)
{
char cmd[] = { 0x01, 0x02 }; /* SOH, STX */
struct cu_priv_data *priv;
rig_debug(RIG_DEBUG_TRACE, "%s called\n", __func__);
rig->state.priv = malloc(sizeof(struct cu_priv_data));
if (!rig->state.priv)
{
return -RIG_ENOMEM;
}
priv = (struct cu_priv_data *)rig->state.priv;
memset(priv, 0, sizeof(struct cu_priv_data));
priv->split = RIG_SPLIT_OFF;
priv->ch = 0;
return cu_transaction(rig, cmd, 2);
}
static int cu_close(RIG *rig)
{
char cmd[] = { 0x16 }; /* DLE */
struct cu_priv_data *priv = (struct cu_priv_data *)rig->state.priv;
free(priv);
return cu_transaction(rig, cmd, 1);
}
int cu_set_freq(RIG *rig, vfo_t vfo, freq_t freq)
{
struct cu_priv_data *priv = (struct cu_priv_data *)rig->state.priv;
char cmdbuf[16];
int cmd_len;
int ret;
if (freq >= MHz(100))
{
return -RIG_EINVAL;
}
/* RX freq */
cmd_len = sprintf(cmdbuf, ":%06u"CR, (unsigned)(freq / Hz(100)));
ret = cu_transaction(rig, cmdbuf, cmd_len);
if (ret != RIG_OK)
{
return ret;
}
if (priv->split != RIG_SPLIT_ON)
{
return cu_vfo_op(rig, vfo, RIG_OP_CPY);
}
return RIG_OK;
}
static int cu_set_split_vfo(RIG *rig, vfo_t vfo, split_t split, vfo_t tx_vfo)
{
struct cu_priv_data *priv = (struct cu_priv_data *)rig->state.priv;
priv->split = split;
return RIG_OK;
}
int cu_set_split_freq(RIG *rig, vfo_t vfo, freq_t freq)
{
char cmdbuf[16];
int cmd_len;
if (freq >= MHz(100))
{
return -RIG_EINVAL;
}
/* TX freq */
cmd_len = sprintf(cmdbuf, ";%06u"CR, (unsigned)(freq / Hz(100)));
return cu_transaction(rig, cmdbuf, cmd_len);
}
int cu_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width)
{
char cmd;
int ret;
switch (mode)
{
case RIG_MODE_USB: cmd = 'X'; break;
case RIG_MODE_LSB: cmd = 'Y'; break;
case RIG_MODE_AM: cmd = 'Z'; break;
case RIG_MODE_RTTY: cmd = '['; break;
/* case RIG_MODE_R3E: cmd = '\\'; break; */
case RIG_MODE_CW: cmd = ']'; break;
/* case RIG_MODE_MCW: cmd = '^'; break; */
default:
return -RIG_EINVAL;
}
ret = cu_transaction(rig, &cmd, 1);
if (ret != RIG_OK)
{
return ret;
}
if (RIG_PASSBAND_NOCHANGE == width) { return ret; }
if (width == RIG_PASSBAND_NORMAL)
{
width = rig_passband_normal(rig, mode);
}
if (width < rig_passband_normal(rig, mode))
{
cmd = 'D';
}
else if (width > rig_passband_normal(rig, mode))
{
cmd = 'B';
}
else
{
cmd = 'C';
}
return cu_transaction(rig, &cmd, 1);
}
int cu_set_level(RIG *rig, vfo_t vfo, setting_t level, value_t val)
{
char cmdbuf[16];
int cmd_len;
cmd_len = 1;
switch (level)
{
case RIG_LEVEL_PREAMP:
cmdbuf[0] = val.i ? 'm' : 'n';
break;
case RIG_LEVEL_ATT:
cmdbuf[0] = val.i ? 'o' : 'p';
break;
case RIG_LEVEL_AGC:
switch (val.i)
{
case RIG_AGC_AUTO: cmdbuf[0] = 'J'; break;
case RIG_AGC_FAST: cmdbuf[0] = 'K'; break;
case RIG_AGC_SLOW: cmdbuf[0] = 'L'; break;
case RIG_AGC_OFF: cmdbuf[0] = 'M'; break;
default: return -RIG_EINVAL;
}
break;
case RIG_LEVEL_SQL:
cmdbuf[0] = val.i ? 'o' : 'p';
break;
case RIG_LEVEL_RFPOWER:
if (val.f < 0.4)
{
cmdbuf[0] = 'S'; /* low */
}
else if (val.f < 0.6)
{
cmdbuf[0] = 'U'; /* medium */
}
else
{
cmdbuf[0] = 'W'; /* high */
}
break;
case RIG_LEVEL_AF:
cmd_len = sprintf(cmdbuf, "y%02u"CR, (unsigned)(99 - val.f * 99));
break;
default:
return -RIG_EINVAL;
}
return cu_transaction(rig, cmdbuf, cmd_len);
}
int cu_set_func(RIG *rig, vfo_t vfo, setting_t func, int status)
{
char cmdbuf[16];
int cmd_len;
cmd_len = 1;
switch (func)
{
case RIG_FUNC_MUTE:
cmdbuf[0] = status ? 'l' : 'k';
break;
default:
return -RIG_EINVAL;
}
return cu_transaction(rig, cmdbuf, cmd_len);
}
int cu_set_ts(RIG *rig, vfo_t vfo, shortfreq_t ts)
{
char cmdbuf[16];
int cmd_len;
cmd_len = sprintf(cmdbuf, "w%c"CR,
ts >= s_kHz(1) ? '2' :
ts >= s_Hz(100) ? '1' : '0');
return cu_transaction(rig, cmdbuf, cmd_len);
}
int cu_set_parm(RIG *rig, setting_t parm, value_t val)
{
char cmdbuf[16];
int cmd_len;
cmd_len = 1;
switch (parm)
{
case RIG_PARM_TIME:
/* zap seconds */
val.i /= 60;
cmd_len = sprintf(cmdbuf, "f%02d%02d"CR,
val.i / 60, val.i % 60);
break;
case RIG_PARM_BACKLIGHT:
cmd_len = sprintf(cmdbuf, "z%1u"CR, (unsigned)(val.f * 5));
break;
default:
return -RIG_EINVAL;
}
return cu_transaction(rig, cmdbuf, cmd_len);
}
int cu_set_ptt(RIG *rig, vfo_t vfo, ptt_t ptt)
{
char cmd;
cmd = ptt == RIG_PTT_ON ? 'u' : 'v';
return cu_transaction(rig, &cmd, 1);
}
static int cu_set_mem(RIG *rig, vfo_t vfo, int ch)
{
struct cu_priv_data *priv = (struct cu_priv_data *)rig->state.priv;
/* memorize channel for RIG_OP_TO_VFO & RIG_OP_FROM_VFO */
priv->ch = ch;
return RIG_OK;
}
int cu_vfo_op(RIG *rig, vfo_t vfo, vfo_op_t op)
{
struct cu_priv_data *priv = (struct cu_priv_data *)rig->state.priv;
char cmdbuf[16];
int cmd_len;
switch (op)
{
case RIG_OP_TUNE:
cmdbuf[0] = 'R';
cmd_len = 1;
break;
case RIG_OP_CPY:
cmdbuf[0] = ':';
cmdbuf[1] = ';';
cmdbuf[2] = 0x0d;
cmd_len = 3;
break;
case RIG_OP_TO_VFO:
cmd_len = sprintf(cmdbuf, "<%02u"CR, (unsigned)priv->ch);
break;
case RIG_OP_FROM_VFO:
cmd_len = sprintf(cmdbuf, "d%02u"CR, (unsigned)priv->ch);
break;
default:
return -RIG_EINVAL;
}
return cu_transaction(rig, cmdbuf, cmd_len);
}