From 5f41562b3d351da19f0ddeb1176d97c5b7d310a7 Mon Sep 17 00:00:00 2001 From: "Nate Bargmann, N0NB" Date: Mon, 4 Oct 2010 02:49:27 +0000 Subject: [PATCH] New Kenwood THF-6A backend from Scott Martin, KC9QEN. git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@2990 7ae35d74-ebe9-4afe-98af-79ac388436b8 --- kenwood/Makefile.am | 2 +- kenwood/kenwood.c | 2 +- kenwood/kenwood.h | 1 + kenwood/thf6a.c | 326 ++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 329 insertions(+), 2 deletions(-) create mode 100644 kenwood/thf6a.c diff --git a/kenwood/Makefile.am b/kenwood/Makefile.am index 309c782de..47b56f43d 100644 --- a/kenwood/Makefile.am +++ b/kenwood/Makefile.am @@ -5,7 +5,7 @@ TSSRCLIST = ts850.c ts870s.c ts570.c ts450s.c ts950.c ts50s.c \ IC10SRCLIST = ts440.c ts940.c ts711.c ts811.c r5000.c -THSRCLIST = thd7.c thf7.c thg71.c tmd700.c tmv7.c +THSRCLIST = thd7.c thf7.c thg71.c tmd700.c tmv7.c thf6a.c pkglib_LTLIBRARIES = hamlib-kenwood.la hamlib_kenwood_la_SOURCES = $(TSSRCLIST) $(THSRCLIST) $(IC10SRCLIST) \ diff --git a/kenwood/kenwood.c b/kenwood/kenwood.c index 0e65f7928..987f82e1b 100644 --- a/kenwood/kenwood.c +++ b/kenwood/kenwood.c @@ -2146,6 +2146,6 @@ DECLARE_INITRIG_BACKEND(kenwood) rig_register(&tmv7_caps); rig_register(&ts480_caps); - + rig_register(&thf6a_caps); return RIG_OK; } diff --git a/kenwood/kenwood.h b/kenwood/kenwood.h index 0455d0f5f..977a789a8 100644 --- a/kenwood/kenwood.h +++ b/kenwood/kenwood.h @@ -164,6 +164,7 @@ extern const struct rig_caps ts811_caps; extern const struct rig_caps r5000_caps; extern const struct rig_caps ts480_caps; +extern const struct rig_caps thf6a_caps; /* use when not interested in the answer, but want to check its len */ static int inline kenwood_simple_transaction(RIG *rig, const char *cmd, size_t expected) diff --git a/kenwood/thf6a.c b/kenwood/thf6a.c new file mode 100644 index 000000000..1912c7164 --- /dev/null +++ b/kenwood/thf6a.c @@ -0,0 +1,326 @@ +/* + * Hamlib Kenwood backend - TH-F6A Cloned from TH-F7E description + * Copyright (c) 2001-2009 by Stephane Fillod + * Copyright (c) 2010 by Scott Martin + * + * 10-03-2010 + * Ported from Stephane Fillod's thf7.c + * Changed TH-F7E perameters to reflect TH-F6A + * Changed RIG_ITU_REGION from 1 to 2 + * + * $Id: thf7.c,v 1.17 2009-02-03 23:22:58 azummo Exp $ + * + * 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 +#include + +#include +#include "tones.h" +#include "kenwood.h" +#include "th.h" + +#define THF6_MODES_TX (RIG_MODE_FM) +#define THF6_HIGH_MODES (RIG_MODE_FM|RIG_MODE_AM|RIG_MODE_WFM) +#define THF6_ALL_MODES (THF6_HIGH_MODES|RIG_MODE_SSB|RIG_MODE_CW) + +#define THF6_FUNC_ALL (RIG_FUNC_ARO|RIG_FUNC_LOCK|RIG_FUNC_BC) + + +/* + * How increadible, there's no RIG_LEVEL_STRENGTH! + */ +#define THF6_LEVEL_ALL (RIG_LEVEL_SQL|RIG_LEVEL_RFPOWER|RIG_LEVEL_ATT|\ + RIG_LEVEL_BALANCE|RIG_LEVEL_VOXGAIN|RIG_LEVEL_VOXDELAY) + +#define THF6_PARMS (RIG_PARM_APO|RIG_PARM_BEEP|RIG_PARM_BACKLIGHT) + +#define THF6_VFO_OP (RIG_OP_UP|RIG_OP_DOWN) + +#define THF6_ANTS (RIG_ANT_1|RIG_ANT_2) + +/* + * TODO: * scan_group can only be get. scan_group=channel_num%50; + */ +#define THF6_CHANNEL_CAPS \ + TH_CHANNEL_CAPS,\ + .flags=1, \ + .dcs_code=1, \ + .dcs_sql=1, + +#define THF6_CHANNEL_CAPS_WO_LO \ + TH_CHANNEL_CAPS,\ + .dcs_code=1, \ + .dcs_sql=1, + +/* CTCSS 01..42 */ +static const tone_t THF6_ctcss_list[] = { + 670, 693, 719, 744, 770, 797, 825, 854, 885, 915, + 948, 974, 1000, 1035, 1072, 1109, 1148, 1188, 1230, 1273, + 1318, 1365, 1413, 1462, 1514, 1567, 1622, 1679, 1738, 1799, + 1862, 1928, 2035, 2065, 2107, 2181, 2257, 2291, 2336, 2418, + 2503, 2541, + 0 +}; + +static rmode_t THF6_mode_table[KENWOOD_MODE_TABLE_MAX] = { + [0] = RIG_MODE_FM, + [1] = RIG_MODE_WFM, + [2] = RIG_MODE_AM, + [3] = RIG_MODE_LSB, + [4] = RIG_MODE_USB, + [5] = RIG_MODE_CW +}; + + +/* + * Band A & B + */ +#define THF6_VFO (RIG_VFO_A|RIG_VFO_B) + +static struct kenwood_priv_caps THF6_priv_caps = { + .cmdtrm = EOM_TH, /* Command termination character */ + .mode_table = THF6_mode_table, +}; + +static int thf6a_init(RIG *rig); +static int thf6a_open(RIG *rig); +static int thf6a_get_vfo (RIG *rig, vfo_t *vfo); + +/* + * TH-F6A rig capabilities. + * + * Manual, thanks to K6MAY: http://www.k6may.com/KenwoodTHF6Tip1.shtml + * + * TODO: + * - set/get_ctcss_tone/sql through set/get_channel() and VR/VW + * - emulate RIG_FUNC_TONE|RIG_FUNC_TSQL by setting ctcss_tone/sql to 0/non zero? + */ +const struct rig_caps thf6a_caps = { +.rig_model = RIG_MODEL_THF6A, +.model_name = "TH-F6A", +.mfg_name = "Kenwood", +.version = TH_VER, +.copyright = "LGPL", +.status = RIG_STATUS_BETA, +.rig_type = RIG_TYPE_HANDHELD, +.ptt_type = RIG_PTT_RIG, +.dcd_type = RIG_DCD_RIG, +.port_type = RIG_PORT_SERIAL, +.serial_rate_min = 9600, +.serial_rate_max = 9600, +.serial_data_bits = 8, +.serial_stop_bits = 1, +.serial_parity = RIG_PARITY_NONE, +.serial_handshake = RIG_HANDSHAKE_NONE, +.write_delay = 0, +.post_write_delay = 0, +.timeout = 500, +.retry = 3, + +.has_get_func = THF6_FUNC_ALL, +.has_set_func = THF6_FUNC_ALL|RIG_FUNC_TBURST, +.has_get_level = THF6_LEVEL_ALL, +.has_set_level = RIG_LEVEL_SET(THF6_LEVEL_ALL), +.has_get_parm = THF6_PARMS, +.has_set_parm = THF6_PARMS, +.level_gran = { + [LVL_SQL] = { .min = { .i = 0 }, .max = { .i = 5 } }, + [LVL_RFPOWER] = { .min = { .i = 2 }, .max = { .i = 0 } }, +}, +.parm_gran = {}, +.ctcss_list = THF6_ctcss_list, +.dcs_list = common_dcs_list, +.preamp = { RIG_DBLST_END, }, +.attenuator = { 20, RIG_DBLST_END, }, +.max_rit = Hz(0), +.max_xit = Hz(0), +.max_ifshift = Hz(0), +.vfo_ops = THF6_VFO_OP, +.targetable_vfo = RIG_TARGETABLE_FREQ, +.transceive = RIG_TRN_RIG, /* TBC */ +.bank_qty = 0, +.chan_desc_sz = 8, + + +.chan_list = { + { 0, 399, RIG_MTYPE_MEM , {THF6_CHANNEL_CAPS}}, /* normal MEM */ + { 400,409, RIG_MTYPE_EDGE, {THF6_CHANNEL_CAPS}}, /* L0-L9 lower scan limit */ + { 410,419, RIG_MTYPE_EDGE, {THF6_CHANNEL_CAPS}}, /* U0-U9 upper scan limit */ + { 420,429, RIG_MTYPE_MEM, {THF6_CHANNEL_CAPS}}, /* I0-I9 info */ + { 430,431, RIG_MTYPE_PRIO, {THF6_CHANNEL_CAPS}}, /* PR0,PR1 priority */ + { 432,434, RIG_MTYPE_CALL, {THF6_CHANNEL_CAPS_WO_LO}}, /* Call (for each ham band) */ + { 435,449, RIG_MTYPE_BAND, {THF6_CHANNEL_CAPS_WO_LO}}, /* VFO */ + /* 3 A-band VFO */ + /* 11 B-band VFO */ + /* TODO: 10 DTMF */ + RIG_CHAN_END, +}, + +.rx_range_list1 = { + /* RIG_ANT_2 is internal bar antenna */ + {MHz(144),MHz(146),THF6_MODES_TX,-1,-1,RIG_VFO_A,RIG_ANT_1}, + {kHz(430),MHz(440),THF6_MODES_TX,-1,-1,RIG_VFO_A,RIG_ANT_1}, + {kHz(100),MHz(470),THF6_ALL_MODES,-1,-1,RIG_VFO_B, RIG_ANT_1|RIG_ANT_2}, + {MHz(470),GHz(1.3),THF6_HIGH_MODES,-1,-1,RIG_VFO_B,RIG_ANT_1}, + RIG_FRNG_END + }, +.tx_range_list1 = { + /* power actually depends on DC power supply */ + {MHz(144),MHz(146),THF6_MODES_TX,W(0.05),W(5),RIG_VFO_A,RIG_ANT_1}, + {MHz(430),MHz(440),THF6_MODES_TX,W(0.05),W(5),RIG_VFO_A,RIG_ANT_1}, + RIG_FRNG_END + }, + + /* region 2 is model TH-F6A in fact */ +.rx_range_list2 = { + /* RIG_ANT_2 is internal bar antenna */ + {MHz(144),MHz(148),THF6_MODES_TX,-1,-1,RIG_VFO_A,RIG_ANT_1}, + {MHz(220),MHz(225),THF6_MODES_TX,-1,-1,RIG_VFO_A,RIG_ANT_1}, + {kHz(430),MHz(440),THF6_MODES_TX,-1,-1,RIG_VFO_A,RIG_ANT_1}, + {kHz(100),MHz(470),THF6_ALL_MODES,-1,-1,RIG_VFO_B, RIG_ANT_1|RIG_ANT_2}, + {MHz(470),GHz(1.3),THF6_HIGH_MODES,-1,-1,RIG_VFO_B,RIG_ANT_1}, + RIG_FRNG_END + }, +.tx_range_list2 = { + /* power actually depends on DC power supply */ + {MHz(144),MHz(148),THF6_MODES_TX,W(0.05),W(5),RIG_VFO_A,RIG_ANT_1}, + {MHz(220),MHz(225),THF6_MODES_TX,W(0.05),W(5),RIG_VFO_A,RIG_ANT_1}, + {MHz(430),MHz(440),THF6_MODES_TX,W(0.05),W(5),RIG_VFO_A,RIG_ANT_1}, + RIG_FRNG_END + }, + +.tuning_steps = { + /* This table is ordered according to protocol, from '0' to 'b' */ + /* The steps are not available on every band/frequency limit 470MHz */ + {THF6_ALL_MODES,kHz(5)}, + {THF6_ALL_MODES,kHz(6.25)}, + {THF6_ALL_MODES,kHz(8.33)}, + {THF6_ALL_MODES,kHz(9)}, + {THF6_ALL_MODES,kHz(10)}, + {THF6_ALL_MODES,kHz(12.5)}, + {THF6_ALL_MODES,kHz(15)}, + {THF6_ALL_MODES,kHz(20)}, + {THF6_ALL_MODES,kHz(25)}, + {THF6_ALL_MODES,kHz(30)}, + {THF6_ALL_MODES,kHz(50)}, + {THF6_ALL_MODES,kHz(100)}, + RIG_TS_END, + }, + + /* mode/filter list, remember: order matters! */ +.filters = { + /* real width to be checked (missing specs) */ + {RIG_MODE_FM, kHz(12)}, + {RIG_MODE_FM, kHz(6)}, /* narrow FM */ + {RIG_MODE_AM, kHz(9)}, + {RIG_MODE_WFM, kHz(150)}, /* or 230? */ + {RIG_MODE_SSB|RIG_MODE_CW, kHz(3)}, + RIG_FLT_END, + }, + + .priv = (void *)&THF6_priv_caps, + + .rig_init = thf6a_init, + .rig_cleanup = kenwood_cleanup, + .rig_open = thf6a_open, + + .set_freq = th_set_freq, + .get_freq = th_get_freq, + .set_mode = th_set_mode, + .get_mode = th_get_mode, + .set_vfo = th_set_vfo, + .get_vfo = thf6a_get_vfo, + .set_ptt = th_set_ptt, + .get_dcd = th_get_dcd, + .vfo_op = kenwood_vfo_op, + .set_mem = th_set_mem, + .get_mem = th_get_mem, + + .set_func = th_set_func, + .get_func = th_get_func, + + .set_level = th_set_level, + .get_level = th_get_level, + + .get_parm = th_get_parm, + .set_parm = th_set_parm, + + .get_info = th_get_info, + + .set_channel = th_set_channel, + .get_channel = th_get_channel, + .set_ant = th_set_ant, + .get_ant = th_get_ant, + + .reset = th_reset, +}; + + +int thf6a_init(RIG *rig) +{ + rig->state.itu_region = RIG_ITU_REGION2; + return kenwood_init(rig); +} + +int thf6a_open(RIG *rig) +{ + /* TH-F7E is Region 1 only. + * Region 2 is supported by TH-F6A + */ + if (rig->state.itu_region != RIG_ITU_REGION2) + return -RIG_ECONF; + + return kenwood_open(rig); +} + +/* + * th_get_vfo + * Assumes rig!=NULL + */ +int +thf6a_get_vfo(RIG *rig, vfo_t *vfo) +{ + char vfoch; + int retval; + + rig_debug(RIG_DEBUG_TRACE, "%s: called\n", __func__); + + retval = th_get_vfo_char(rig, vfo, &vfoch); + if (retval != RIG_OK) + return retval; + + switch (vfoch) { + case '0' : + case '3' : /* Fine Step Enable */ + break; + case '1' : /* MR */ + case '2' : /* CALL */ + case '4' : /* INFO */ + *vfo = RIG_VFO_MEM; + break; + default: + rig_debug(RIG_DEBUG_ERR, "%s: Unexpected VFO value '%c'\n", __func__, vfoch); + return -RIG_EVFO; + } + + return RIG_OK; +}