kopia lustrzana https://github.com/Hamlib/Hamlib
add lots of ts850_ functions, upgrade to BETA status
git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@1654 7ae35d74-ebe9-4afe-98af-79ac388436b8Hamlib-1.2.0
Thierry Leconte, F4DWV
rodzic
5b8284744d
commit
d00088da3c
640
kenwood/ts850.c
640
kenwood/ts850.c
|
|
@ -2,7 +2,7 @@
|
||||||
* Hamlib Kenwood backend - TS850 description
|
* Hamlib Kenwood backend - TS850 description
|
||||||
* Copyright (c) 2000-2003 by Stephane Fillod
|
* Copyright (c) 2000-2003 by Stephane Fillod
|
||||||
*
|
*
|
||||||
* $Id: ts850.c,v 1.10 2003-10-01 19:31:59 fillods Exp $
|
* $Id: ts850.c,v 1.11 2004-01-21 19:52:40 f4dwv Exp $
|
||||||
*
|
*
|
||||||
* This library is free software; you can redistribute it and/or modify
|
* This library is free software; you can redistribute it and/or modify
|
||||||
* it under the terms of the GNU Library General Public License as
|
* it under the terms of the GNU Library General Public License as
|
||||||
|
|
@ -25,80 +25,101 @@
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
#include <math.h>
|
||||||
|
|
||||||
#include <hamlib/rig.h>
|
#include <hamlib/rig.h>
|
||||||
#include "kenwood.h"
|
#include "kenwood.h"
|
||||||
|
|
||||||
|
|
||||||
#define TS850_ALL_MODES (RIG_MODE_AM|RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_FM|RIG_MODE_RTTY)
|
#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_SSB|RIG_MODE_FM|RIG_MODE_RTTY)
|
#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_AM_TX_MODES (RIG_MODE_AM)
|
||||||
|
|
||||||
#define TS850_FUNC_ALL (RIG_FUNC_NB|RIG_FUNC_COMP|RIG_FUNC_VOX|RIG_FUNC_NR|RIG_FUNC_BC|RIG_FUNC_ANF|RIG_FUNC_LOCK)
|
#define TS850_FUNC_ALL (RIG_FUNC_AIP|RIG_FUNC_LOCK)
|
||||||
|
|
||||||
#define TS850_LEVEL_ALL (RIG_LEVEL_ATT|RIG_LEVEL_SQL|RIG_LEVEL_STRENGTH|RIG_LEVEL_AF|RIG_LEVEL_RF|RIG_LEVEL_RFPOWER|RIG_LEVEL_MICGAIN|RIG_LEVEL_AGC)
|
#define TS850_LEVEL_GET (RIG_LEVEL_SWR|RIG_LEVEL_COMP|RIG_LEVEL_ALC|RIG_LEVEL_CWPITCH|RIG_LEVEL_RAWSTR)
|
||||||
|
#define TS850_LEVEL_SET (RIG_LEVEL_CWPITCH)
|
||||||
|
|
||||||
#define TS850_VFO (RIG_VFO_A|RIG_VFO_B)
|
#define TS850_VFO (RIG_VFO_A|RIG_VFO_B)
|
||||||
|
|
||||||
|
#define TS850_CHANNEL_CAPS \
|
||||||
|
.freq=1,\
|
||||||
|
.mode=1,\
|
||||||
|
.tx_freq=1,\
|
||||||
|
.tx_mode=1,\
|
||||||
|
.split=1,\
|
||||||
|
.ctcss_tone=1
|
||||||
|
|
||||||
|
|
||||||
static const struct kenwood_priv_caps ts850_priv_caps = {
|
static const struct kenwood_priv_caps ts850_priv_caps = {
|
||||||
.cmdtrm = EOM_KEN,
|
.cmdtrm = EOM_KEN,
|
||||||
};
|
};
|
||||||
|
|
||||||
|
/* forward definitions */
|
||||||
|
int ts850_set_rit(RIG * rig, vfo_t vfo, shortfreq_t rit);
|
||||||
|
int ts850_set_xit(RIG * rig, vfo_t vfo, shortfreq_t rit);
|
||||||
|
int ts850_get_mode(RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width);
|
||||||
|
int ts850_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width);
|
||||||
|
int ts850_set_ctcss_tone(RIG *rig, vfo_t vfo, tone_t tone);
|
||||||
|
int ts850_set_func(RIG *rig, vfo_t vfo, setting_t func, int status);
|
||||||
|
int ts850_get_func(RIG *rig, vfo_t vfo, setting_t func, int *status);
|
||||||
|
int ts850_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val);
|
||||||
|
int ts850_set_level(RIG *rig, vfo_t vfo, setting_t level, value_t val);
|
||||||
|
int ts850_get_mem(RIG *rig, vfo_t vfo, int *ch);
|
||||||
|
int ts850_get_channel (RIG * rig, channel_t * chan);
|
||||||
|
int ts850_set_channel (RIG * rig, channel_t * chan);
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* ts850 rig capabilities.
|
* ts850 rig capabilities.
|
||||||
* Notice that some rigs share the same functions.
|
* Notice that some rigs share the same functions.
|
||||||
* Also this struct is READONLY!
|
* Also this struct is READONLY!
|
||||||
*
|
|
||||||
* part of infos comes from .http = //www.kenwood.net/
|
|
||||||
*/
|
*/
|
||||||
const struct rig_caps ts850_caps = {
|
const struct rig_caps ts850_caps = {
|
||||||
.rig_model = RIG_MODEL_TS850,
|
.rig_model = RIG_MODEL_TS850,
|
||||||
.model_name = "TS-850",
|
.model_name = "TS-850",
|
||||||
.mfg_name = "Kenwood",
|
.mfg_name = "Kenwood",
|
||||||
.version = "0.2.1",
|
.version = "1.0",
|
||||||
.copyright = "LGPL",
|
.copyright = "LGPL",
|
||||||
.status = RIG_STATUS_UNTESTED,
|
.status = RIG_STATUS_BETA,
|
||||||
.rig_type = RIG_TYPE_TRANSCEIVER,
|
.rig_type = RIG_TYPE_TRANSCEIVER,
|
||||||
.ptt_type = RIG_PTT_RIG,
|
.ptt_type = RIG_PTT_RIG,
|
||||||
.dcd_type = RIG_DCD_RIG,
|
.dcd_type = RIG_DCD_RIG,
|
||||||
.port_type = RIG_PORT_SERIAL,
|
.port_type = RIG_PORT_SERIAL,
|
||||||
.serial_rate_min = 1200,
|
.serial_rate_min = 4800,
|
||||||
.serial_rate_max = 4800,
|
.serial_rate_max = 4800,
|
||||||
.serial_data_bits = 8,
|
.serial_data_bits = 8,
|
||||||
.serial_stop_bits = 2,
|
.serial_stop_bits = 2,
|
||||||
.serial_parity = RIG_PARITY_NONE,
|
.serial_parity = RIG_PARITY_NONE,
|
||||||
.serial_handshake = RIG_HANDSHAKE_NONE,
|
.serial_handshake = RIG_HANDSHAKE_NONE,
|
||||||
.write_delay = 0,
|
.write_delay = 0,
|
||||||
.post_write_delay = 0,
|
.post_write_delay = 5,
|
||||||
.timeout = 200,
|
.timeout = 200,
|
||||||
.retry = 3,
|
.retry = 3,
|
||||||
|
|
||||||
.has_get_func = TS850_FUNC_ALL,
|
.has_get_func = TS850_FUNC_ALL,
|
||||||
.has_set_func = TS850_FUNC_ALL,
|
.has_set_func = TS850_FUNC_ALL,
|
||||||
.has_get_level = TS850_LEVEL_ALL,
|
.has_get_level = TS850_LEVEL_GET,
|
||||||
.has_set_level = RIG_LEVEL_SET(TS850_LEVEL_ALL),
|
.has_set_level = TS850_LEVEL_SET,
|
||||||
.has_get_parm = RIG_PARM_NONE,
|
.has_get_parm = RIG_PARM_NONE,
|
||||||
.has_set_parm = RIG_PARM_NONE, /* FIXME: parms */
|
.has_set_parm = RIG_PARM_NONE,
|
||||||
.level_gran = {}, /* FIXME: granularity */
|
.level_gran = {},
|
||||||
.parm_gran = {},
|
.parm_gran = {},
|
||||||
.ctcss_list = kenwood38_ctcss_list,
|
.ctcss_list = kenwood38_ctcss_list,
|
||||||
.dcs_list = NULL,
|
.dcs_list = NULL,
|
||||||
.preamp = { RIG_DBLST_END, }, /* FIXME: preamp list */
|
.preamp = { RIG_DBLST_END, },
|
||||||
.attenuator = { 6, 12, 18, RIG_DBLST_END, },
|
.attenuator = { RIG_DBLST_END, },
|
||||||
.max_rit = kHz(1.2),
|
.max_rit = kHz(1.27),
|
||||||
.max_xit = kHz(2.4),
|
.max_xit = kHz(1.27),
|
||||||
.max_ifshift = Hz(0),
|
.max_ifshift = Hz(0),
|
||||||
.targetable_vfo = RIG_TARGETABLE_FREQ,
|
.targetable_vfo = RIG_TARGETABLE_FREQ,
|
||||||
.transceive = RIG_TRN_RIG,
|
.transceive = RIG_TRN_RIG,
|
||||||
.bank_qty = 0,
|
.bank_qty = 0,
|
||||||
.chan_desc_sz = 0,
|
.chan_desc_sz = 3,
|
||||||
|
|
||||||
|
|
||||||
.chan_list = {
|
.chan_list = {
|
||||||
{ 0, 89, RIG_MTYPE_MEM }, /* TBC */
|
{ 0, 89, RIG_MTYPE_MEM ,{TS850_CHANNEL_CAPS}},
|
||||||
{ 90, 99, RIG_MTYPE_EDGE },
|
{ 90, 99, RIG_MTYPE_EDGE ,{TS850_CHANNEL_CAPS}},
|
||||||
RIG_CHAN_END,
|
RIG_CHAN_END,
|
||||||
},
|
},
|
||||||
|
|
||||||
.rx_range_list1 = {
|
.rx_range_list1 = {
|
||||||
{kHz(100),MHz(30),TS850_ALL_MODES,-1,-1,TS850_VFO},
|
{kHz(100),MHz(30),TS850_ALL_MODES,-1,-1,TS850_VFO},
|
||||||
|
|
@ -152,60 +173,563 @@ const struct rig_caps ts850_caps = {
|
||||||
RIG_FRNG_END,
|
RIG_FRNG_END,
|
||||||
}, /* tx range */
|
}, /* tx range */
|
||||||
.tuning_steps = {
|
.tuning_steps = {
|
||||||
{TS850_ALL_MODES,50},
|
|
||||||
{TS850_ALL_MODES,100},
|
|
||||||
{TS850_ALL_MODES,kHz(1)},
|
|
||||||
{TS850_ALL_MODES,kHz(5)},
|
|
||||||
{TS850_ALL_MODES,kHz(9)},
|
|
||||||
{TS850_ALL_MODES,kHz(10)},
|
|
||||||
{TS850_ALL_MODES,12500},
|
|
||||||
{TS850_ALL_MODES,kHz(20)},
|
|
||||||
{TS850_ALL_MODES,kHz(25)},
|
|
||||||
{TS850_ALL_MODES,kHz(100)},
|
|
||||||
{TS850_ALL_MODES,MHz(1)},
|
|
||||||
{TS850_ALL_MODES,0}, /* any tuning step */
|
{TS850_ALL_MODES,0}, /* any tuning step */
|
||||||
RIG_TS_END,
|
RIG_TS_END,
|
||||||
},
|
},
|
||||||
/* mode/filter list, remember: order matters! */
|
/* mode/filter list, remember: order matters! */
|
||||||
.filters = {
|
.filters = {
|
||||||
{RIG_MODE_SSB|RIG_MODE_CW|RIG_MODE_RTTY, kHz(2.4)},
|
{TS850_ALL_MODES, kHz(12)},
|
||||||
{RIG_MODE_AM, kHz(6)},
|
{TS850_ALL_MODES, kHz(6)},
|
||||||
{RIG_MODE_FM, kHz(12)},
|
{TS850_ALL_MODES, kHz(2.7)},
|
||||||
|
{TS850_ALL_MODES, Hz(500)},
|
||||||
|
{TS850_ALL_MODES, Hz(250)},
|
||||||
RIG_FLT_END,
|
RIG_FLT_END,
|
||||||
},
|
},
|
||||||
.priv = (void *)&ts850_priv_caps,
|
.priv = (void *)&ts850_priv_caps,
|
||||||
|
|
||||||
.set_freq = kenwood_set_freq,
|
.set_freq = kenwood_set_freq,
|
||||||
.get_freq = kenwood_get_freq,
|
.get_freq = kenwood_get_freq,
|
||||||
.set_rit = kenwood_set_rit,
|
.set_rit = ts850_set_rit,
|
||||||
.get_rit = kenwood_get_rit,
|
.get_rit = kenwood_get_rit,
|
||||||
.set_xit = kenwood_set_xit,
|
.set_xit = ts850_set_xit,
|
||||||
.get_xit = kenwood_get_xit,
|
.get_xit = kenwood_get_xit,
|
||||||
.set_mode = kenwood_set_mode,
|
.set_mode = ts850_set_mode,
|
||||||
.get_mode = kenwood_get_mode,
|
.get_mode = ts850_get_mode,
|
||||||
.set_vfo = kenwood_set_vfo,
|
.set_vfo = kenwood_set_vfo,
|
||||||
.get_vfo = kenwood_get_vfo,
|
.get_vfo = kenwood_get_vfo,
|
||||||
.set_ctcss_tone = kenwood_set_ctcss_tone,
|
.set_ctcss_tone = ts850_set_ctcss_tone,
|
||||||
.get_ctcss_tone = kenwood_get_ctcss_tone,
|
.get_ctcss_tone = kenwood_get_ctcss_tone,
|
||||||
.get_ptt = kenwood_get_ptt,
|
.get_ptt = kenwood_get_ptt,
|
||||||
.set_ptt = kenwood_set_ptt,
|
.set_ptt = kenwood_set_ptt,
|
||||||
.get_dcd = kenwood_get_dcd,
|
.set_func = ts850_set_func,
|
||||||
.set_func = kenwood_set_func,
|
.get_func = ts850_get_func,
|
||||||
.get_func = kenwood_get_func,
|
.set_level = ts850_set_level,
|
||||||
.set_level = kenwood_set_level,
|
.get_level = ts850_get_level,
|
||||||
.get_level = kenwood_get_level,
|
|
||||||
.vfo_op = kenwood_vfo_op,
|
.vfo_op = kenwood_vfo_op,
|
||||||
.set_mem = kenwood_set_mem,
|
.set_mem = kenwood_set_mem,
|
||||||
.get_mem = kenwood_get_mem,
|
.get_mem = ts850_get_mem,
|
||||||
.set_trn = kenwood_set_trn,
|
.get_channel = ts850_get_channel,
|
||||||
.get_trn = kenwood_get_trn,
|
.set_channel = ts850_set_channel,
|
||||||
.set_powerstat = kenwood_set_powerstat,
|
.set_trn = kenwood_set_trn
|
||||||
.get_powerstat = kenwood_get_powerstat,
|
|
||||||
.reset = kenwood_reset,
|
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Function definitions below
|
* Function definitions below
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
int ts850_set_rit(RIG * rig, vfo_t vfo, shortfreq_t rit)
|
||||||
|
{
|
||||||
|
unsigned char buf[50], infobuf[50], c;
|
||||||
|
int retval, info_len, len, i;
|
||||||
|
|
||||||
|
|
||||||
|
info_len = 0;
|
||||||
|
if (rit == 0)
|
||||||
|
kenwood_transaction(rig, "RT0;", 4, infobuf, &info_len);
|
||||||
|
else
|
||||||
|
kenwood_transaction(rig, "RT1;", 4, infobuf, &info_len);
|
||||||
|
|
||||||
|
if (rit > 0)
|
||||||
|
c = 'U';
|
||||||
|
else
|
||||||
|
c = 'D';
|
||||||
|
len = sprintf(buf, "R%c;", c);
|
||||||
|
|
||||||
|
info_len = 0;
|
||||||
|
retval = kenwood_transaction(rig, "RC;", 3, infobuf, &info_len);
|
||||||
|
for (i = 0; i < abs(rint(rit/10)); i++)
|
||||||
|
{
|
||||||
|
info_len = 0;
|
||||||
|
retval = kenwood_transaction(rig, buf, len, infobuf, &info_len);
|
||||||
|
}
|
||||||
|
|
||||||
|
return RIG_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
int ts850_set_xit(RIG * rig, vfo_t vfo, shortfreq_t xit)
|
||||||
|
{
|
||||||
|
unsigned char buf[50], infobuf[50], c;
|
||||||
|
int retval, info_len, len, i;
|
||||||
|
|
||||||
|
info_len = 0;
|
||||||
|
if (xit == 0)
|
||||||
|
kenwood_transaction(rig, "XT0;", 4, infobuf, &info_len);
|
||||||
|
else
|
||||||
|
kenwood_transaction(rig, "XT1;", 4, infobuf, &info_len);
|
||||||
|
|
||||||
|
info_len = 0;
|
||||||
|
retval = kenwood_transaction(rig, "RC;", 3, infobuf, &info_len);
|
||||||
|
if (xit > 0)
|
||||||
|
c = 'U';
|
||||||
|
else
|
||||||
|
c = 'D';
|
||||||
|
len = sprintf(buf, "R%c;", c);
|
||||||
|
|
||||||
|
for (i = 0; i < abs(rint(xit/10)); i++)
|
||||||
|
{
|
||||||
|
info_len = 0;
|
||||||
|
retval = kenwood_transaction(rig, buf, len, infobuf, &info_len);
|
||||||
|
}
|
||||||
|
|
||||||
|
return RIG_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* modes in use by the "MD" command
|
||||||
|
*/
|
||||||
|
#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_FSK '6'
|
||||||
|
#define MD_CWR '7'
|
||||||
|
#define MD_FSKR '9'
|
||||||
|
|
||||||
|
|
||||||
|
int ts850_get_mode(RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width)
|
||||||
|
{
|
||||||
|
unsigned char infobuf[50];
|
||||||
|
int info_len, retval;
|
||||||
|
int f,f1,f2;
|
||||||
|
|
||||||
|
info_len = 50;
|
||||||
|
retval = kenwood_transaction (rig, "IF;", 3, infobuf, &info_len)
|
||||||
|
;
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
if (info_len != 38 || infobuf[1] != 'F') {
|
||||||
|
rig_debug(RIG_DEBUG_ERR,"kenwood_get_mode: wrong answer len=%d\n", info_len);
|
||||||
|
return -RIG_ERJCTED;
|
||||||
|
}
|
||||||
|
|
||||||
|
switch (infobuf[29]) {
|
||||||
|
case MD_CW: *mode = RIG_MODE_CW; break;
|
||||||
|
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;
|
||||||
|
default:
|
||||||
|
rig_debug(RIG_DEBUG_ERR,"kenwood_get_mode: unsupported mode '%c'\n", infobuf[29]);
|
||||||
|
return -RIG_EINVAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
info_len = 50;
|
||||||
|
retval = kenwood_transaction (rig, "FL;", 3, infobuf, &info_len)
|
||||||
|
;
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
if (info_len != 9 || infobuf[1] != 'L') {
|
||||||
|
rig_debug(RIG_DEBUG_ERR,"kenwood_get_mode: wrong answer len=%d\n", info_len);
|
||||||
|
return -RIG_ERJCTED;
|
||||||
|
}
|
||||||
|
|
||||||
|
infobuf[8]='\0';
|
||||||
|
f2=atoi(&infobuf[5]);
|
||||||
|
infobuf[5]='\0';
|
||||||
|
f1=atoi(&infobuf[2]);
|
||||||
|
|
||||||
|
if(f2>f1) f=f2;
|
||||||
|
else f=f1;
|
||||||
|
|
||||||
|
switch(f) {
|
||||||
|
case 2:
|
||||||
|
*width=kHz(12);
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
case 5:
|
||||||
|
*width=kHz(6);
|
||||||
|
break;
|
||||||
|
case 7:
|
||||||
|
*width=kHz(2.7);
|
||||||
|
break;
|
||||||
|
case 9:
|
||||||
|
*width=Hz(500);
|
||||||
|
break;
|
||||||
|
case 10:
|
||||||
|
*width=Hz(250);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
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:
|
||||||
|
}
|
||||||
|
return(RIG_MODE_NONE);
|
||||||
|
}
|
||||||
|
|
||||||
|
int ts850_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width)
|
||||||
|
{
|
||||||
|
unsigned char mdbuf[16],ackbuf[16];
|
||||||
|
int mdbuf_len, ack_len, kmode, retval;
|
||||||
|
|
||||||
|
kmode=mode_to_char(mode);
|
||||||
|
if(kmode==RIG_MODE_NONE) {
|
||||||
|
rig_debug(RIG_DEBUG_ERR,"kenwood_set_mode: " "unsupported mode %d\n", mode);
|
||||||
|
return -RIG_EINVAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
mdbuf_len = sprintf(mdbuf, "MD%c;", kmode);
|
||||||
|
ack_len = 0;
|
||||||
|
retval = kenwood_transaction (rig, mdbuf, mdbuf_len, ackbuf, &ack_len);
|
||||||
|
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
ack_len = 0;
|
||||||
|
if(width <= Hz(250))
|
||||||
|
mdbuf_len = sprintf(mdbuf, "FL010009;");
|
||||||
|
else
|
||||||
|
if(width <= Hz(500))
|
||||||
|
mdbuf_len = sprintf(mdbuf, "FL009007;");
|
||||||
|
else
|
||||||
|
if(width <= kHz(2.7))
|
||||||
|
mdbuf_len = sprintf(mdbuf, "FL007007;");
|
||||||
|
else
|
||||||
|
if(width <= kHz(6))
|
||||||
|
mdbuf_len = sprintf(mdbuf, "FL005005;");
|
||||||
|
else
|
||||||
|
mdbuf_len = sprintf(mdbuf, "FL002002;");
|
||||||
|
|
||||||
|
retval = kenwood_transaction (rig, mdbuf, mdbuf_len, ackbuf, &ack_len);
|
||||||
|
|
||||||
|
return retval;
|
||||||
|
}
|
||||||
|
|
||||||
|
int ts850_set_ctcss_tone(RIG *rig, vfo_t vfo, tone_t tone)
|
||||||
|
{
|
||||||
|
const struct rig_caps *caps;
|
||||||
|
unsigned char tonebuf[16], ackbuf[16];
|
||||||
|
int tone_len, ack_len;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
caps = rig->caps;
|
||||||
|
|
||||||
|
for (i = 0; caps->ctcss_list[i] != 0 && i<38; i++) {
|
||||||
|
if (caps->ctcss_list[i] == tone)
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if (caps->ctcss_list[i] != tone)
|
||||||
|
return -RIG_EINVAL;
|
||||||
|
|
||||||
|
tone_len = sprintf(tonebuf,"TN%03d;", i+1);
|
||||||
|
|
||||||
|
ack_len = 0;
|
||||||
|
return kenwood_transaction (rig, tonebuf, tone_len, ackbuf, &ack_len);
|
||||||
|
}
|
||||||
|
|
||||||
|
int ts850_set_func(RIG *rig, vfo_t vfo, setting_t func, int status)
|
||||||
|
{
|
||||||
|
unsigned char fctbuf[16], ackbuf[16];
|
||||||
|
int fct_len, ack_len;
|
||||||
|
|
||||||
|
if (vfo != RIG_VFO_CURR)
|
||||||
|
return -RIG_EINVAL;
|
||||||
|
|
||||||
|
ack_len = 0;
|
||||||
|
switch (func) {
|
||||||
|
case RIG_FUNC_AIP:
|
||||||
|
fct_len = sprintf(fctbuf,"MX%c;", status?'1':'0');
|
||||||
|
return kenwood_transaction (rig, fctbuf, fct_len, ackbuf, &ack_len);
|
||||||
|
|
||||||
|
case RIG_FUNC_LOCK:
|
||||||
|
fct_len = sprintf(fctbuf,"LK%c;", status?'1':'0');
|
||||||
|
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;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
int ts850_get_func(RIG *rig, vfo_t vfo, setting_t func, int *status)
|
||||||
|
{
|
||||||
|
unsigned char fctbuf[16], ackbuf[16];
|
||||||
|
int retval, fct_len, ack_len;
|
||||||
|
|
||||||
|
if (vfo != RIG_VFO_CURR)
|
||||||
|
return -RIG_EINVAL;
|
||||||
|
|
||||||
|
switch (func) {
|
||||||
|
case RIG_FUNC_AIP:
|
||||||
|
fct_len = sprintf(fctbuf,"MX;");
|
||||||
|
break;
|
||||||
|
case RIG_FUNC_LOCK:
|
||||||
|
fct_len = sprintf(fctbuf,"LK;");
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
rig_debug(RIG_DEBUG_ERR,"Unsupported get_func %#x", func);
|
||||||
|
return -RIG_EINVAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
ack_len = 16;
|
||||||
|
retval = kenwood_transaction (rig, fctbuf, fct_len, ackbuf, &ack_len);
|
||||||
|
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
*status=ackbuf[2]=='1'?1:0;
|
||||||
|
|
||||||
|
return RIG_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
int ts850_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val)
|
||||||
|
{
|
||||||
|
unsigned char lvlbuf[50];
|
||||||
|
int lvl_len, retval;
|
||||||
|
|
||||||
|
if(vfo!=RIG_VFO_CURR)
|
||||||
|
return -RIG_EINVAL;
|
||||||
|
|
||||||
|
switch (level) {
|
||||||
|
case RIG_LEVEL_STRENGTH:
|
||||||
|
case RIG_LEVEL_RAWSTR:
|
||||||
|
lvl_len = 50;
|
||||||
|
retval = kenwood_transaction (rig, "SM;", 3, lvlbuf, &lvl_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
if (lvl_len != 7 || lvlbuf[1] != 'M') {
|
||||||
|
rig_debug(RIG_DEBUG_ERR,"kenwood_get_level: wrong answer le n=%d\n", lvl_len);
|
||||||
|
return -RIG_ERJCTED;
|
||||||
|
}
|
||||||
|
|
||||||
|
lvlbuf[6]='\0';
|
||||||
|
val->i=atoi(&lvlbuf[2]);
|
||||||
|
if(level==RIG_LEVEL_STRENGTH)
|
||||||
|
val->i = (val->i * 4) - 54;
|
||||||
|
break;
|
||||||
|
case RIG_LEVEL_SWR:
|
||||||
|
lvl_len = 0;
|
||||||
|
retval = kenwood_transaction (rig, "RM1;", 4, lvlbuf, &lvl_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
lvl_len = 50;
|
||||||
|
retval = kenwood_transaction (rig, "RM;", 4, lvlbuf, &lvl_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
lvlbuf[7]='\0';
|
||||||
|
val->f=(float)atoi(&lvlbuf[3])/30.0;
|
||||||
|
break;
|
||||||
|
case RIG_LEVEL_COMP:
|
||||||
|
lvl_len = 0;
|
||||||
|
retval = kenwood_transaction (rig, "RM2;", 4, lvlbuf, &lvl_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
lvl_len = 50;
|
||||||
|
retval = kenwood_transaction (rig, "RM;", 4, lvlbuf, &lvl_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
lvlbuf[7]='\0';
|
||||||
|
val->f=(float)atoi(&lvlbuf[3])/30.0;
|
||||||
|
break;
|
||||||
|
case RIG_LEVEL_ALC:
|
||||||
|
lvl_len = 0;
|
||||||
|
retval = kenwood_transaction (rig, "RM3;", 4, lvlbuf, &lvl_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
lvl_len = 50;
|
||||||
|
retval = kenwood_transaction (rig, "RM;", 4, lvlbuf, &lvl_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
lvlbuf[7]='\0';
|
||||||
|
val->f=(float)atoi(&lvlbuf[3])/30.0;
|
||||||
|
break;
|
||||||
|
case RIG_LEVEL_CWPITCH:
|
||||||
|
retval = kenwood_transaction (rig, "PT;", 3, lvlbuf, &lvl_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
lvlbuf[4]='\0';
|
||||||
|
val->i=atoi(&lvlbuf[2]);
|
||||||
|
val->i=(val->i-8)*50+800;
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
rig_debug(RIG_DEBUG_ERR,"Unsupported get_level %d", level);
|
||||||
|
return -RIG_EINVAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
return RIG_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
int ts850_set_level(RIG *rig, vfo_t vfo, setting_t level, value_t val)
|
||||||
|
{
|
||||||
|
unsigned char lvlbuf[16], ackbuf[16];
|
||||||
|
int lvl_len, ack_len;
|
||||||
|
|
||||||
|
if(level != RIG_LEVEL_CWPITCH)
|
||||||
|
return -RIG_EINVAL;
|
||||||
|
|
||||||
|
if(val.i>1000 || val.i<400)
|
||||||
|
return -RIG_EINVAL;
|
||||||
|
|
||||||
|
ack_len=0;
|
||||||
|
lvl_len = sprintf(lvlbuf,"PT%02d;",(val.i/50)-8);
|
||||||
|
|
||||||
|
return kenwood_transaction (rig, lvlbuf, lvl_len, ackbuf, &ack_len);
|
||||||
|
}
|
||||||
|
|
||||||
|
int ts850_get_mem(RIG *rig, vfo_t vfo, int *ch)
|
||||||
|
{
|
||||||
|
unsigned char infobuf[50];
|
||||||
|
int info_len, retval;
|
||||||
|
|
||||||
|
info_len = 50;
|
||||||
|
retval = kenwood_transaction (rig, "IF;", 3, infobuf, &info_len)
|
||||||
|
;
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
if (info_len != 38 || infobuf[1] != 'F') {
|
||||||
|
rig_debug(RIG_DEBUG_ERR,"kenwood_get_mode: wrong answer len=%d\n", info_len);
|
||||||
|
return -RIG_ERJCTED;
|
||||||
|
}
|
||||||
|
|
||||||
|
infobuf[28]='\0';
|
||||||
|
*ch=atoi(&infobuf[26]);
|
||||||
|
|
||||||
|
return RIG_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
static rmode_t char_to_mode(char c)
|
||||||
|
{
|
||||||
|
switch (c) {
|
||||||
|
case MD_CW: return(RIG_MODE_CW);
|
||||||
|
case MD_CWR: return(RIG_MODE_CWR);
|
||||||
|
case MD_USB: return(RIG_MODE_USB);
|
||||||
|
case MD_LSB: return(RIG_MODE_LSB);
|
||||||
|
case MD_FM: return(RIG_MODE_FM);
|
||||||
|
case MD_AM: return(RIG_MODE_AM);
|
||||||
|
case MD_FSK: return(RIG_MODE_RTTY);
|
||||||
|
case MD_FSKR: return(RIG_MODE_RTTYR);
|
||||||
|
case MD_NONE: return(RIG_MODE_NONE);
|
||||||
|
}
|
||||||
|
return(RIG_MODE_NONE);
|
||||||
|
}
|
||||||
|
|
||||||
|
int ts850_get_channel (RIG * rig, channel_t * chan)
|
||||||
|
{
|
||||||
|
unsigned char cmdbuf[16], membuf[30];
|
||||||
|
int retval, cmd_len,mem_len,num;
|
||||||
|
|
||||||
|
num=chan->channel_num;
|
||||||
|
|
||||||
|
cmd_len = sprintf(cmdbuf, "MR0 %02d;", num);
|
||||||
|
mem_len = 25;
|
||||||
|
retval = kenwood_transaction (rig, cmdbuf, cmd_len, membuf, &mem_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
memset(chan,0,sizeof(channel_t));
|
||||||
|
chan->channel_num=num;
|
||||||
|
|
||||||
|
|
||||||
|
if (membuf[19]=='0')
|
||||||
|
chan->ctcss_tone=0;
|
||||||
|
else {
|
||||||
|
membuf[22]='\0';
|
||||||
|
chan->ctcss_tone= rig->caps->ctcss_list[atoi(&membuf[20])];
|
||||||
|
}
|
||||||
|
|
||||||
|
chan->mode=char_to_mode(membuf[17]);
|
||||||
|
|
||||||
|
membuf[17]='\0';
|
||||||
|
chan->freq=atoi(&membuf[6]);
|
||||||
|
|
||||||
|
cmd_len = sprintf(cmdbuf, "MR1 %02d;", num);
|
||||||
|
mem_len = 25;
|
||||||
|
retval = kenwood_transaction (rig, cmdbuf, cmd_len, membuf, &mem_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
chan->tx_mode=char_to_mode(membuf[17]);
|
||||||
|
membuf[17]='\0';
|
||||||
|
chan->tx_freq=atoi(&membuf[6]);
|
||||||
|
|
||||||
|
if(chan->freq==chan->tx_freq &&
|
||||||
|
chan->mode==chan->tx_mode) {
|
||||||
|
chan->tx_freq=RIG_FREQ_NONE;
|
||||||
|
chan->tx_mode=RIG_MODE_NONE;
|
||||||
|
chan->split=RIG_SPLIT_OFF;
|
||||||
|
} else
|
||||||
|
chan->split=RIG_SPLIT_ON;
|
||||||
|
|
||||||
|
return RIG_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
int ts850_set_channel (RIG * rig, channel_t * chan)
|
||||||
|
{
|
||||||
|
unsigned char cmdbuf[30], membuf[30];
|
||||||
|
int retval, cmd_len,mem_len;
|
||||||
|
int num,freq,tx_freq,tone;
|
||||||
|
char mode,tx_mode,split,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);
|
||||||
|
split='1';
|
||||||
|
} else {
|
||||||
|
tx_freq=0;
|
||||||
|
tx_mode='\0';
|
||||||
|
split='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;
|
||||||
|
}
|
||||||
|
|
||||||
|
cmd_len = sprintf(cmdbuf, "MW0 %02d%011d%c0%c%02d ;",
|
||||||
|
num,freq,mode,tones,tone);
|
||||||
|
mem_len = 0;
|
||||||
|
retval = kenwood_transaction (rig, cmdbuf, cmd_len, membuf, &mem_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
cmd_len = sprintf(cmdbuf, "MW1 %02d%011d%c0%c%02d ;",
|
||||||
|
num,tx_freq,tx_mode,tones,tone);
|
||||||
|
mem_len = 0;
|
||||||
|
retval = kenwood_transaction (rig, cmdbuf, cmd_len, membuf, &mem_len);
|
||||||
|
if (retval != RIG_OK)
|
||||||
|
return retval;
|
||||||
|
|
||||||
|
return RIG_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
Ładowanie…
Reference in New Issue