kopia lustrzana https://github.com/Hamlib/Hamlib
- add FUNC_MUTE, PARM_BEEP, th_scan(), th_[sg]et_dcs_sql()
- fix th_[sg]et_ctcss_tone(), let them handle the tone instead of the CTCSS, covered by th_[gs]et_ctcss_sql() - new tm_set_vfo_bc2() capable of split handling along with th_[sg]et_split_vfo() - customize TM-D700 channel caps and channel desc size - set TM-D700's timeout to 1 second - fix TM-D700's targetable_vfo git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@2979 7ae35d74-ebe9-4afe-98af-79ac388436b8Hamlib-1.2.13
Stéphane Fillod, F8CFE
rodzic
f402c6c701
commit
0d1e396432
356
kenwood/th.c
356
kenwood/th.c
|
|
@ -318,6 +318,8 @@ th_get_mode(RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width)
|
|||
|
||||
/*
|
||||
* th_set_vfo
|
||||
* Apply to non-split models: TH-F7, TH-D7
|
||||
*
|
||||
* Assumes rig!=NULL
|
||||
*/
|
||||
int
|
||||
|
|
@ -458,6 +460,150 @@ th_get_vfo(RIG *rig, vfo_t *vfo)
|
|||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* tm_set_vfo_bc2
|
||||
* Apply to split-capable models (with BC command taking 2 args): TM-V7, TM-D700
|
||||
*
|
||||
* Assumes rig!=NULL
|
||||
*/
|
||||
int tm_set_vfo_bc2 (RIG *rig, vfo_t vfo)
|
||||
{
|
||||
struct kenwood_priv_data *priv = rig->state.priv;
|
||||
char vfobuf[16], ackbuf[16];
|
||||
int vfonum, txvfonum, vfomode=0;
|
||||
int retval;
|
||||
size_t ack_len;
|
||||
|
||||
|
||||
rig_debug(RIG_DEBUG_TRACE, "%s: called %s\n", __func__, rig_strvfo(vfo));
|
||||
|
||||
switch (vfo) {
|
||||
case RIG_VFO_A:
|
||||
case RIG_VFO_VFO:
|
||||
vfonum = 0;
|
||||
/* put back split mode when toggling */
|
||||
txvfonum = (priv->split == RIG_SPLIT_ON &&
|
||||
rig->state.tx_vfo == RIG_VFO_B) ? 1 : vfonum;
|
||||
break;
|
||||
case RIG_VFO_B:
|
||||
vfonum = 1;
|
||||
/* put back split mode when toggling */
|
||||
txvfonum = (priv->split == RIG_SPLIT_ON &&
|
||||
rig->state.tx_vfo == RIG_VFO_A) ? 0 : vfonum;
|
||||
break;
|
||||
case RIG_VFO_MEM:
|
||||
/* get current band */
|
||||
sprintf(vfobuf, "BC");
|
||||
ack_len=16;
|
||||
retval = kenwood_transaction(rig, vfobuf, strlen(vfobuf), ackbuf, &ack_len);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
txvfonum = vfonum = ackbuf[3]-'0';
|
||||
vfomode = 2;
|
||||
break;
|
||||
|
||||
default:
|
||||
rig_debug(RIG_DEBUG_ERR, "%s: Unsupported VFO %d\n", __func__, vfo);
|
||||
return -RIG_EVFO;
|
||||
}
|
||||
|
||||
sprintf(vfobuf, "VMC %d,%d", vfonum, vfomode);
|
||||
retval = kenwood_cmd(rig, vfobuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
if (vfo == RIG_VFO_MEM)
|
||||
return RIG_OK;
|
||||
|
||||
sprintf(vfobuf, "BC %d,%d", vfonum, txvfonum);
|
||||
retval = kenwood_cmd(rig, vfobuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
|
||||
int th_set_split_vfo (RIG *rig, vfo_t vfo, split_t split, vfo_t txvfo)
|
||||
{
|
||||
struct kenwood_priv_data *priv = rig->state.priv;
|
||||
char vfobuf[16];
|
||||
int vfonum, txvfonum;
|
||||
int retval;
|
||||
|
||||
rig_debug(RIG_DEBUG_TRACE, "%s: called %s\n", __func__, rig_strvfo(vfo));
|
||||
|
||||
if (vfo == RIG_VFO_CURR) {
|
||||
retval = rig_get_vfo(rig, &vfo);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
}
|
||||
|
||||
switch (vfo) {
|
||||
case RIG_VFO_A:
|
||||
case RIG_VFO_VFO:
|
||||
vfonum = 0;
|
||||
if (split == RIG_SPLIT_ON && txvfo != RIG_VFO_B)
|
||||
return -RIG_EINVAL;
|
||||
txvfonum = split == RIG_SPLIT_ON ? 1 : vfonum;
|
||||
break;
|
||||
case RIG_VFO_B:
|
||||
vfonum = 1;
|
||||
if (split == RIG_SPLIT_ON && txvfo != RIG_VFO_A)
|
||||
return -RIG_EINVAL;
|
||||
txvfonum = split == RIG_SPLIT_ON ? 0 : vfonum;
|
||||
break;
|
||||
default:
|
||||
return -RIG_EINVAL;
|
||||
}
|
||||
|
||||
/* Set VFO mode. To be done for TX vfo also? */
|
||||
sprintf(vfobuf, "VMC %d,0", vfonum);
|
||||
retval = kenwood_cmd(rig, vfobuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
sprintf(vfobuf, "BC %d,%d", vfonum, txvfonum);
|
||||
retval = kenwood_cmd(rig, vfobuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
/* Remember whether split is on, for th_set_vfo */
|
||||
priv->split = split;
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
int th_get_split_vfo (RIG *rig, vfo_t vfo, split_t *split, vfo_t *txvfo)
|
||||
{
|
||||
struct kenwood_priv_data *priv = rig->state.priv;
|
||||
char buf[10];
|
||||
int retval;
|
||||
|
||||
rig_debug(RIG_DEBUG_TRACE, "%s: called\n", __func__);
|
||||
|
||||
/* Get VFO band */
|
||||
|
||||
retval = kenwood_safe_transaction(rig, "BC", buf, 10, 5);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
switch (buf[5]) {
|
||||
case '0': *txvfo = RIG_VFO_A; break;
|
||||
case '1': *txvfo = RIG_VFO_B; break;
|
||||
default:
|
||||
rig_debug(RIG_DEBUG_ERR, "%s: Unexpected txVFO value '%c'\n", __func__, buf[5]);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
|
||||
*split = (buf[3] == buf[5]) ? RIG_SPLIT_OFF : RIG_SPLIT_ON;
|
||||
|
||||
/* Remember whether split is on, for th_set_vfo */
|
||||
priv->split = *split;
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* th_set_trn
|
||||
|
|
@ -534,6 +680,8 @@ th_get_func(RIG *rig, vfo_t vfo, setting_t func, int *status)
|
|||
rig_debug(RIG_DEBUG_TRACE, "%s: called (0x%04x)\n", __func__, func);
|
||||
|
||||
switch (func) {
|
||||
case RIG_FUNC_MUTE:
|
||||
return th_get_kenwood_func(rig, "MUTE", status);
|
||||
case RIG_FUNC_MON:
|
||||
return th_get_kenwood_func(rig, "MON", status);
|
||||
case RIG_FUNC_TONE:
|
||||
|
|
@ -594,6 +742,9 @@ th_set_func(RIG *rig, vfo_t vfo, setting_t func, int status)
|
|||
rig_debug(RIG_DEBUG_TRACE, "%s: called (0x%04x)\n", __func__, func);
|
||||
|
||||
switch (func) {
|
||||
case RIG_FUNC_MUTE:
|
||||
return th_set_kenwood_func(rig, "MUTE", status);
|
||||
|
||||
case RIG_FUNC_MON:
|
||||
return th_set_kenwood_func(rig, "MON", status);
|
||||
|
||||
|
|
@ -629,6 +780,15 @@ th_set_func(RIG *rig, vfo_t vfo, setting_t func, int status)
|
|||
return RIG_OK;
|
||||
}
|
||||
|
||||
int
|
||||
th_scan(RIG *rig, vfo_t vfo, scan_t scan, int ch)
|
||||
{
|
||||
rig_debug(RIG_DEBUG_TRACE, "%s: called (0x%04x)\n", __func__, scan);
|
||||
|
||||
return th_set_kenwood_func(rig, "SC", scan == RIG_SCAN_STOP ? 0 : 1);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* th_get_parm
|
||||
* Assumes rig!=NULL, status!=NULL
|
||||
|
|
@ -659,11 +819,20 @@ th_get_parm(RIG *rig, setting_t parm, value_t *val)
|
|||
return RIG_OK;
|
||||
|
||||
case RIG_PARM_BACKLIGHT:
|
||||
if (rig->caps->rig_model == RIG_MODEL_TMD700) {
|
||||
|
||||
ret = kenwood_safe_transaction(rig, "DIM", buf, sizeof(buf), 5);
|
||||
if (ret != RIG_OK)
|
||||
return ret;
|
||||
|
||||
val->f = buf[4] == '0' ? 0 : (float)(5-(buf[4]-'0'))/4.;
|
||||
} else {
|
||||
ret = th_get_kenwood_func(rig, "LMP", &status);
|
||||
if (ret != RIG_OK)
|
||||
return ret;
|
||||
|
||||
val->f = status ? 1.0 : 0;
|
||||
}
|
||||
return RIG_OK;
|
||||
|
||||
default:
|
||||
|
|
@ -681,13 +850,17 @@ th_set_parm(RIG *rig, setting_t parm, value_t val)
|
|||
|
||||
switch (parm) {
|
||||
case RIG_PARM_BACKLIGHT:
|
||||
if (rig->caps->rig_model == RIG_MODEL_TMD700) {
|
||||
return th_set_kenwood_func(rig, "DIM", (val.f > 0) ? 1 : 0); /* FIXME */
|
||||
} else {
|
||||
return th_set_kenwood_func(rig, "LMP", (val.f > 0) ? 1 : 0);
|
||||
}
|
||||
|
||||
case RIG_PARM_BEEP:
|
||||
return th_set_kenwood_func(rig, "BEP", val.i);
|
||||
|
||||
case RIG_PARM_APO:
|
||||
if (val.i >= 30)
|
||||
if (val.i > 30)
|
||||
return kenwood_cmd(rig, "APO 2");
|
||||
else if (val.i > 0)
|
||||
return kenwood_cmd(rig, "APO 1");
|
||||
|
|
@ -941,7 +1114,81 @@ th_set_ctcss_tone(RIG *rig, vfo_t vfo, tone_t tone)
|
|||
if (caps->ctcss_list[i] != tone)
|
||||
return -RIG_EINVAL;
|
||||
|
||||
i += (i == 0) ? 1 : 2; /* Correct for TH-7DA index anomally */
|
||||
i += (i == 0) ? 1 : 2; /* Correct for TH-D7A index anomally */
|
||||
sprintf(tonebuf, "TN %02d", i);
|
||||
ack_len = ACKBUF_LEN;
|
||||
retval = kenwood_transaction(rig, tonebuf, strlen(tonebuf), ackbuf, &ack_len);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* th_get_ctcss_tone
|
||||
* Assumes rig!=NULL, rig->caps!=NULL
|
||||
*/
|
||||
int
|
||||
th_get_ctcss_tone(RIG *rig, vfo_t vfo, tone_t *tone)
|
||||
{
|
||||
struct rig_caps *caps;
|
||||
char buf[ACKBUF_LEN];
|
||||
int retval;
|
||||
size_t ack_len=ACKBUF_LEN;
|
||||
unsigned int tone_idx;
|
||||
|
||||
rig_debug(RIG_DEBUG_TRACE, "%s: called\n", __func__);
|
||||
|
||||
caps = rig->caps;
|
||||
|
||||
retval = kenwood_transaction(rig, "TN", 4, buf, &ack_len);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
retval = sscanf(buf, "TN %d", (int*)&tone_idx);
|
||||
if (retval != 1) {
|
||||
rig_debug(RIG_DEBUG_ERR,
|
||||
"%s: Unexpected reply '%s'\n", __func__, buf);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
|
||||
/* verify tone index for TH-7DA rig */
|
||||
if (tone_idx <= 0 || tone_idx == 2 || tone_idx > 39) {
|
||||
rig_debug(RIG_DEBUG_ERR, "%s: Unexpected CTCSS tone no (%04d)\n",
|
||||
__func__, tone_idx);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
|
||||
tone_idx -= (tone_idx == 1) ? 1 : 2; /* Correct for TH-D7A index anomaly */
|
||||
*tone = caps->ctcss_list[tone_idx];
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* th_set_ctcss_sql
|
||||
* Assumes rig!=NULL, rig->caps->ctcss_list != NULL
|
||||
*/
|
||||
int
|
||||
th_set_ctcss_sql(RIG *rig, vfo_t vfo, tone_t tone)
|
||||
{
|
||||
const struct rig_caps *caps;
|
||||
char tonebuf[16],ackbuf[ACKBUF_LEN];
|
||||
int i, retval;
|
||||
size_t ack_len;
|
||||
|
||||
rig_debug(RIG_DEBUG_TRACE, "%s: called\n", __func__);
|
||||
|
||||
caps = rig->caps;
|
||||
|
||||
for (i = 0; caps->ctcss_list[i] != 0 && i < RIG_TONEMAX; i++) {
|
||||
if (caps->ctcss_list[i] == tone)
|
||||
break;
|
||||
}
|
||||
|
||||
if (caps->ctcss_list[i] != tone)
|
||||
return -RIG_EINVAL;
|
||||
|
||||
i += (i == 0) ? 1 : 2; /* Correct for TH-D7A index anomally */
|
||||
sprintf(tonebuf, "CTN %02d", i);
|
||||
ack_len = ACKBUF_LEN;
|
||||
retval = kenwood_transaction(rig, tonebuf, strlen(tonebuf), ackbuf, &ack_len);
|
||||
|
|
@ -952,11 +1199,11 @@ th_set_ctcss_tone(RIG *rig, vfo_t vfo, tone_t tone)
|
|||
}
|
||||
|
||||
/*
|
||||
* thd7_get_ctcss_tone
|
||||
* thd7_get_ctcss_sql
|
||||
* Assumes rig!=NULL, rig->caps!=NULL
|
||||
*/
|
||||
int
|
||||
th_get_ctcss_tone(RIG *rig, vfo_t vfo, tone_t *tone)
|
||||
th_get_ctcss_sql(RIG *rig, vfo_t vfo, tone_t *tone)
|
||||
{
|
||||
struct rig_caps *caps;
|
||||
char buf[ACKBUF_LEN];
|
||||
|
|
@ -991,6 +1238,106 @@ th_get_ctcss_tone(RIG *rig, vfo_t vfo, tone_t *tone)
|
|||
return RIG_OK;
|
||||
}
|
||||
|
||||
#ifndef RIG_CODEMAX
|
||||
#define RIG_CODEMAX 104
|
||||
#endif
|
||||
|
||||
/*
|
||||
* th_set_dcs_sql
|
||||
* Assumes rig!=NULL, rig->caps->dcs_list != NULL
|
||||
*/
|
||||
int
|
||||
th_set_dcs_sql(RIG *rig, vfo_t vfo, tone_t code)
|
||||
{
|
||||
const struct rig_caps *caps;
|
||||
char codebuf[16];
|
||||
int i, retval;
|
||||
|
||||
rig_debug(RIG_DEBUG_TRACE, "%s: called\n", __func__);
|
||||
|
||||
caps = rig->caps;
|
||||
|
||||
if (code == 0) {
|
||||
return kenwood_simple_cmd(rig, "DCS 0");
|
||||
}
|
||||
|
||||
for (i = 0; caps->dcs_list[i] != 0 && i < RIG_CODEMAX; i++) {
|
||||
if (caps->dcs_list[i] == code)
|
||||
break;
|
||||
}
|
||||
|
||||
if (caps->dcs_list[i] != code)
|
||||
return -RIG_EINVAL;
|
||||
|
||||
retval = kenwood_simple_cmd(rig, "DCS 1");
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
sprintf(codebuf, "DCSN %04d", (i+1)*10);
|
||||
retval = kenwood_simple_cmd(rig, codebuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* th_get_dcs_sql
|
||||
* Assumes rig!=NULL, rig->caps!=NULL
|
||||
*/
|
||||
int
|
||||
th_get_dcs_sql(RIG *rig, vfo_t vfo, tone_t *code)
|
||||
{
|
||||
struct rig_caps *caps;
|
||||
char buf[ACKBUF_LEN];
|
||||
int retval;
|
||||
size_t ack_len=ACKBUF_LEN;
|
||||
unsigned int code_idx;
|
||||
|
||||
rig_debug(RIG_DEBUG_TRACE, "%s: called\n", __func__);
|
||||
|
||||
caps = rig->caps;
|
||||
|
||||
retval = kenwood_transaction(rig, "DCS", 3, buf, &ack_len);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
retval = sscanf(buf, "DCSN %u", (int*)&code_idx);
|
||||
if (retval != 1) {
|
||||
rig_debug(RIG_DEBUG_ERR,
|
||||
"%s: Unexpected reply '%s'\n", __func__, buf);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
|
||||
if (code_idx == 0) {
|
||||
*code = 0; /* disabled */
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
ack_len=ACKBUF_LEN;
|
||||
retval = kenwood_transaction(rig, "DCSN", 4, buf, &ack_len);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
retval = sscanf(buf, "DCSN %u", (int*)&code_idx);
|
||||
if (retval != 1) {
|
||||
rig_debug(RIG_DEBUG_ERR,
|
||||
"%s: Unexpected reply '%s'\n", __func__, buf);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
|
||||
/* verify code index for TM-D700 rig */
|
||||
if (code_idx <= 10 || code_idx > 1040) {
|
||||
rig_debug(RIG_DEBUG_ERR, "%s: Unexpected DCS no (%04u)\n",
|
||||
__func__, code_idx);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
|
||||
code_idx = (code_idx/10)-1;
|
||||
*code = caps->dcs_list[code_idx];
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
const char *
|
||||
th_get_info(RIG *rig)
|
||||
{
|
||||
|
|
@ -1680,6 +2027,7 @@ int th_get_ant(RIG * rig, vfo_t vfo, ant_t * ant)
|
|||
}
|
||||
|
||||
/* TH-F7: 1 VFO, 2 Menu, 3 Full */
|
||||
/* TM-D700: 1 Master! */
|
||||
int th_reset(RIG *rig, reset_t reset)
|
||||
{
|
||||
switch(reset) {
|
||||
|
|
|
|||
11
kenwood/th.h
11
kenwood/th.h
|
|
@ -26,6 +26,8 @@
|
|||
#define TH_VER "0.5"
|
||||
|
||||
extern int th_transaction (RIG *rig, const char *cmdstr, char *data, size_t datasize);
|
||||
extern int th_get_vfo_char(RIG *rig, vfo_t *vfo, char *vfoch);
|
||||
|
||||
extern int th_decode_event (RIG *rig);
|
||||
extern int th_set_freq (RIG *rig, vfo_t vfo, freq_t freq);
|
||||
extern int th_get_freq (RIG *rig, vfo_t vfo, freq_t *freq);
|
||||
|
|
@ -33,7 +35,9 @@ extern int th_set_mode (RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width);
|
|||
extern int th_get_mode (RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width);
|
||||
extern int th_set_vfo(RIG *rig, vfo_t vfo);
|
||||
extern int th_get_vfo(RIG *rig, vfo_t *vfo);
|
||||
extern int th_get_vfo_char(RIG *rig, vfo_t *vfo, char *vfoch);
|
||||
extern int tm_set_vfo_bc2 (RIG *rig, vfo_t vfo);
|
||||
extern int th_set_split_vfo (RIG *rig, vfo_t vfo, split_t split, vfo_t txvfo);
|
||||
extern int th_get_split_vfo (RIG *rig, vfo_t vfo, split_t *split, vfo_t *txvfo);
|
||||
extern int th_set_trn(RIG *rig, int trn);
|
||||
extern int th_get_trn (RIG *rig, int *trn);
|
||||
extern int th_set_powerstat (RIG *rig, powerstat_t status);
|
||||
|
|
@ -46,6 +50,10 @@ extern int th_get_level (RIG *rig, vfo_t vfo, setting_t level, value_t *val);
|
|||
extern int th_set_level (RIG *rig, vfo_t vfo, setting_t level, value_t val);
|
||||
extern int th_set_ctcss_tone(RIG *rig, vfo_t vfo, tone_t tone);
|
||||
extern int th_get_ctcss_tone(RIG *rig, vfo_t vfo, tone_t *tone);
|
||||
extern int th_set_ctcss_sql(RIG *rig, vfo_t vfo, tone_t tone);
|
||||
extern int th_get_ctcss_sql(RIG *rig, vfo_t vfo, tone_t *tone);
|
||||
extern int th_set_dcs_sql(RIG *rig, vfo_t vfo, tone_t code);
|
||||
extern int th_get_dcs_sql(RIG *rig, vfo_t vfo, tone_t *code);
|
||||
extern const char *th_get_info(RIG *rig);
|
||||
extern int th_set_mem(RIG *rig, vfo_t vfo, int ch);
|
||||
extern int th_get_mem(RIG *rig, vfo_t vfo, int *ch);
|
||||
|
|
@ -57,6 +65,7 @@ extern int th_set_channel(RIG *rig, const channel_t *chan);
|
|||
extern int th_set_ant (RIG * rig, vfo_t vfo, ant_t ant);
|
||||
extern int th_get_ant (RIG * rig, vfo_t vfo, ant_t * ant);
|
||||
extern int th_reset(RIG *rig, reset_t reset);
|
||||
extern int th_scan(RIG *rig, vfo_t vfo, scan_t scan, int ch);
|
||||
|
||||
|
||||
#define TH_CHANNEL_CAPS \
|
||||
|
|
|
|||
122
kenwood/tmd700.c
122
kenwood/tmd700.c
|
|
@ -24,8 +24,9 @@
|
|||
#endif
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <math.h>
|
||||
|
||||
#include <hamlib/rig.h>
|
||||
#include "hamlib/rig.h"
|
||||
#include "kenwood.h"
|
||||
#include "th.h"
|
||||
#include "tones.h"
|
||||
|
|
@ -38,6 +39,7 @@
|
|||
#define TMD700_FUNC_ALL (RIG_FUNC_TSQL| \
|
||||
RIG_FUNC_AIP| \
|
||||
RIG_FUNC_MON| \
|
||||
RIG_FUNC_MUTE| \
|
||||
RIG_FUNC_SQL| \
|
||||
RIG_FUNC_TONE| \
|
||||
RIG_FUNC_TBURST| \
|
||||
|
|
@ -52,10 +54,22 @@
|
|||
RIG_LEVEL_MICGAIN)
|
||||
|
||||
#define TMD700_PARMS (RIG_PARM_BACKLIGHT|\
|
||||
RIG_PARM_BEEP|\
|
||||
RIG_PARM_APO)
|
||||
|
||||
#define TMD700_VFO_OP (RIG_OP_UP|RIG_OP_DOWN)
|
||||
|
||||
#define TMD700_CHANNEL_CAPS \
|
||||
TH_CHANNEL_CAPS,\
|
||||
.flags=1, \
|
||||
.dcs_code=1, \
|
||||
.dcs_sql=1,
|
||||
|
||||
#define TMD700_CHANNEL_CAPS_WO_LO \
|
||||
TH_CHANNEL_CAPS,\
|
||||
.dcs_code=1, \
|
||||
.dcs_sql=1,
|
||||
|
||||
/*
|
||||
* TODO: Band A & B
|
||||
*/
|
||||
|
|
@ -71,7 +85,6 @@ static struct kenwood_priv_caps tmd700_priv_caps = {
|
|||
.mode_table = tmd700_mode_table,
|
||||
};
|
||||
|
||||
static int tmd700_set_vfo (RIG *rig, vfo_t vfo);
|
||||
static int tmd700_set_freq (RIG *rig, vfo_t vfo, freq_t freq);
|
||||
|
||||
|
||||
|
|
@ -100,7 +113,7 @@ const struct rig_caps tmd700_caps = {
|
|||
.serial_handshake = RIG_HANDSHAKE_NONE,
|
||||
.write_delay = 0,
|
||||
.post_write_delay = 0,
|
||||
.timeout = 200,
|
||||
.timeout = 1000,
|
||||
.retry = 3,
|
||||
|
||||
.has_get_func = TMD700_FUNC_ALL,
|
||||
|
|
@ -110,9 +123,10 @@ const struct rig_caps tmd700_caps = {
|
|||
.has_get_parm = TMD700_PARMS,
|
||||
.has_set_parm = TMD700_PARMS, /* FIXME: parms */
|
||||
.level_gran = {
|
||||
[LVL_RAWSTR] = { .min = { .i = 0 }, .max = { .i = 5 } },
|
||||
[LVL_SQL] = { .min = { .i = 0 }, .max = { .i = 5 } },
|
||||
[LVL_RFPOWER] = { .min = { .i = 3 }, .max = { .i = 0 } },
|
||||
[LVL_RAWSTR] = { .min = { .i = 0 }, .max = { .i = 7 } },
|
||||
[LVL_SQL] = { .min = { .i = 0 }, .max = { .i = 0x1f }, .step = { .f = 1./0x1f } },
|
||||
[LVL_RFPOWER] = { .min = { .i = 2 }, .max = { .i = 0 }, .step = { .f = 1./3. } },
|
||||
[LVL_AF] = { .min = { .i = 0 }, .max = { .i = 0x3f }, .step = { .f = 1./0x3f } },
|
||||
},
|
||||
.parm_gran = {},
|
||||
.ctcss_list = kenwood38_ctcss_list,
|
||||
|
|
@ -123,17 +137,18 @@ const struct rig_caps tmd700_caps = {
|
|||
.max_xit = Hz(0),
|
||||
.max_ifshift = Hz(0),
|
||||
.vfo_ops = TMD700_VFO_OP,
|
||||
.targetable_vfo = RIG_TARGETABLE_FREQ,
|
||||
.scan_ops = RIG_SCAN_VFO,
|
||||
.targetable_vfo = RIG_TARGETABLE_NONE,
|
||||
.transceive = RIG_TRN_RIG,
|
||||
.bank_qty = 0,
|
||||
.chan_desc_sz = 0,
|
||||
.chan_desc_sz = 8,
|
||||
|
||||
.chan_list = {
|
||||
{ 1, 199, RIG_MTYPE_MEM , {TH_CHANNEL_CAPS}}, /* normal MEM */
|
||||
{ 200,219, RIG_MTYPE_EDGE , {TH_CHANNEL_CAPS}}, /* U/L MEM */
|
||||
{ 221,222, RIG_MTYPE_CALL, {TH_CHANNEL_CAPS}}, /* Call 0/1 */
|
||||
RIG_CHAN_END,
|
||||
},
|
||||
.chan_list = {
|
||||
{ 1, 199, RIG_MTYPE_MEM , {TMD700_CHANNEL_CAPS}}, /* normal MEM */
|
||||
{ 200,219, RIG_MTYPE_EDGE , {TMD700_CHANNEL_CAPS}}, /* U/L MEM */
|
||||
{ 221,222, RIG_MTYPE_CALL, {TMD700_CHANNEL_CAPS_WO_LO}}, /* Call 0/1 */
|
||||
RIG_CHAN_END,
|
||||
},
|
||||
/*
|
||||
* TODO: Japan & TM-D700S, and Taiwan models
|
||||
*/
|
||||
|
|
@ -190,10 +205,16 @@ const struct rig_caps tmd700_caps = {
|
|||
.get_freq = th_get_freq,
|
||||
.set_mode = th_set_mode,
|
||||
.get_mode = th_get_mode,
|
||||
.set_vfo = tmd700_set_vfo,
|
||||
.set_vfo = tm_set_vfo_bc2,
|
||||
.get_vfo = th_get_vfo,
|
||||
.set_split_vfo = th_set_split_vfo,
|
||||
.get_split_vfo = th_get_split_vfo,
|
||||
.set_ctcss_tone = th_set_ctcss_tone,
|
||||
.get_ctcss_tone = th_get_ctcss_tone,
|
||||
.set_ctcss_sql = th_set_ctcss_sql,
|
||||
.get_ctcss_sql = th_get_ctcss_sql,
|
||||
.set_dcs_sql = th_set_dcs_sql,
|
||||
.get_dcs_sql = th_get_dcs_sql,
|
||||
.set_mem = th_set_mem,
|
||||
.get_mem = th_get_mem,
|
||||
.set_channel = th_set_channel,
|
||||
|
|
@ -211,75 +232,22 @@ const struct rig_caps tmd700_caps = {
|
|||
.get_dcd = th_get_dcd,
|
||||
.set_ptt = th_set_ptt,
|
||||
.vfo_op = th_vfo_op,
|
||||
.scan = th_scan,
|
||||
|
||||
.decode_event = th_decode_event,
|
||||
};
|
||||
|
||||
/* --------------------------------------------------------------------- */
|
||||
int tmd700_set_vfo (RIG *rig, vfo_t vfo)
|
||||
static int tmd700_set_freq(RIG *rig, vfo_t vfo, freq_t freq)
|
||||
{
|
||||
char vfobuf[16], ackbuf[16];
|
||||
int retval;
|
||||
size_t ack_len;
|
||||
/* make it so that the radio tunes to something close */
|
||||
/* the radio does not round internally so rounding it */
|
||||
/* to a raster before it passes to the radio is required */
|
||||
/* this may not be the completely correct raster as the */
|
||||
/* supports 6.25kHz channelization */
|
||||
|
||||
rig_debug(RIG_DEBUG_TRACE, "%s: called %d\n", __func__,vfo);
|
||||
freq_t freq2 = round(freq/5000)*5000;
|
||||
|
||||
switch (vfo) {
|
||||
case RIG_VFO_A:
|
||||
case RIG_VFO_VFO:
|
||||
sprintf(vfobuf, "VMC 0,0");
|
||||
break;
|
||||
case RIG_VFO_B:
|
||||
sprintf(vfobuf, "VMC 1,0");
|
||||
break;
|
||||
case RIG_VFO_MEM:
|
||||
sprintf(vfobuf, "BC");
|
||||
ack_len=16;
|
||||
retval = kenwood_transaction(rig, vfobuf, strlen(vfobuf), ackbuf, &ack_len);
|
||||
if (retval != RIG_OK) return retval;
|
||||
sprintf(vfobuf, "VMC %c,2",ackbuf[3]);
|
||||
break;
|
||||
default:
|
||||
rig_debug(RIG_DEBUG_ERR, "%s: Unsupported VFO %d\n", __func__, vfo);
|
||||
return -RIG_EVFO;
|
||||
}
|
||||
|
||||
ack_len=0;
|
||||
retval = kenwood_transaction(rig, vfobuf, strlen(vfobuf), ackbuf, &ack_len);
|
||||
if (retval != RIG_OK) {
|
||||
rig_debug(RIG_DEBUG_ERR, "%s: bad return \n", __func__);
|
||||
return retval;
|
||||
}
|
||||
|
||||
switch (vfo) {
|
||||
case RIG_VFO_A:
|
||||
case RIG_VFO_VFO:
|
||||
sprintf(vfobuf, "BC 0,0");
|
||||
break;
|
||||
case RIG_VFO_B:
|
||||
sprintf(vfobuf, "BC 1,1");
|
||||
break;
|
||||
case RIG_VFO_MEM:
|
||||
return RIG_OK;
|
||||
default:
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
retval = kenwood_cmd(rig, vfobuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
static int tmd700_set_freq(RIG *rig, vfo_t vfo, freq_t freq){
|
||||
/*make it so that the radio tunes to something close*/
|
||||
/*the radio does not round internally so rounding it*/
|
||||
/*to a raster before it passes to the radio is required*/
|
||||
/*this may not be the completely correct raster as the*/
|
||||
/*supports 6.25kHz channelization*/
|
||||
freq_t freq2=round(freq/5000)*5000;
|
||||
return th_set_freq(rig,vfo,freq2);
|
||||
return th_set_freq(rig, vfo, freq2);
|
||||
}
|
||||
|
||||
/* end of file */
|
||||
|
|
|
|||
Ładowanie…
Reference in New Issue