/* * Hamlib Kenwood backend - TS850 description * Copyright (c) 2000-2003 by Stephane Fillod * * $Id: ts850.c,v 1.17 2004-06-14 20:57:34 fillods 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 #include #include "kenwood.h" #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_CWR|RIG_MODE_SSB|RIG_MODE_FM|RIG_MODE_RTTY|RIG_MODE_RTTYR) #define TS850_AM_TX_MODES (RIG_MODE_AM) #define TS850_FUNC_ALL (RIG_FUNC_AIP|RIG_FUNC_LOCK) #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_OPS (RIG_OP_UP|RIG_OP_DOWN) #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 = { .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, const channel_t * chan); /* * ts850 rig capabilities. * Notice that some rigs share the same functions. * Also this struct is READONLY! */ const struct rig_caps ts850_caps = { .rig_model = RIG_MODEL_TS850, .model_name = "TS-850", .mfg_name = "Kenwood", .version = "1.0", .copyright = "LGPL", .status = RIG_STATUS_BETA, .rig_type = RIG_TYPE_TRANSCEIVER, .ptt_type = RIG_PTT_RIG, .dcd_type = RIG_DCD_RIG, .port_type = RIG_PORT_SERIAL, .serial_rate_min = 4800, .serial_rate_max = 4800, .serial_data_bits = 8, .serial_stop_bits = 2, .serial_parity = RIG_PARITY_NONE, .serial_handshake = RIG_HANDSHAKE_NONE, .write_delay = 0, .post_write_delay = 500, .timeout = 1000, .retry = 3, .has_get_func = TS850_FUNC_ALL, .has_set_func = TS850_FUNC_ALL, .has_get_level = TS850_LEVEL_GET, .has_set_level = TS850_LEVEL_SET, .has_get_parm = RIG_PARM_NONE, .has_set_parm = RIG_PARM_NONE, .level_gran = {}, .parm_gran = {}, .ctcss_list = kenwood38_ctcss_list, .dcs_list = NULL, .preamp = { RIG_DBLST_END, }, .attenuator = { RIG_DBLST_END, }, .max_rit = kHz(1.27), .max_xit = kHz(1.27), .max_ifshift = Hz(0), .vfo_ops=TS850_VFO_OPS, .targetable_vfo = RIG_TARGETABLE_FREQ, .transceive = RIG_TRN_RIG, .bank_qty = 0, .chan_desc_sz = 3, .chan_list = { { 0, 89, RIG_MTYPE_MEM ,{TS850_CHANNEL_CAPS}}, { 90, 99, RIG_MTYPE_EDGE ,{TS850_CHANNEL_CAPS}}, RIG_CHAN_END, }, .rx_range_list1 = { {kHz(100),MHz(30),TS850_ALL_MODES,-1,-1,TS850_VFO}, RIG_FRNG_END, }, /* rx range */ .tx_range_list1 = { {kHz(1810),kHz(1850),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, /* 100W class */ {kHz(1810),kHz(1850),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, /* 40W class */ {kHz(3500),kHz(3800),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {kHz(3500),kHz(3800),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {MHz(7),kHz(7100),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {MHz(7),kHz(7100),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {kHz(10100),kHz(10150),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {kHz(10100),kHz(10150),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {MHz(14),kHz(14350),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {MHz(14),kHz(14350),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {kHz(18068),kHz(18168),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {kHz(18068),kHz(18168),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {MHz(21),kHz(21450),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {MHz(21),kHz(21450),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {kHz(24890),kHz(24990),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {kHz(24890),kHz(24990),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {MHz(28),kHz(29700),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {MHz(28),kHz(29700),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, RIG_FRNG_END, }, .rx_range_list2 = { {kHz(100),MHz(30),TS850_ALL_MODES,-1,-1,TS850_VFO}, RIG_FRNG_END, }, /* rx range */ .tx_range_list2 = { {kHz(1800),MHz(2)-1,TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, /* 100W class */ {kHz(1800),MHz(2)-1,TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, /* 40W class */ {kHz(3500),MHz(4)-1,TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {kHz(3500),MHz(4)-1,TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {MHz(7),kHz(7300),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {MHz(7),kHz(7300),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {kHz(10100),kHz(10150),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {kHz(10100),kHz(10150),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {MHz(14),kHz(14350),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {MHz(14),kHz(14350),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {kHz(18068),kHz(18168),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {kHz(18068),kHz(18168),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {MHz(21),kHz(21450),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {MHz(21),kHz(21450),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {kHz(24890),kHz(24990),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {kHz(24890),kHz(24990),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, {MHz(28),kHz(29700),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO}, {MHz(28),kHz(29700),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO}, RIG_FRNG_END, }, /* tx range */ .tuning_steps = { {TS850_ALL_MODES,0}, /* any tuning step */ RIG_TS_END, }, /* mode/filter list, remember: order matters! */ .filters = { {TS850_ALL_MODES, kHz(12)}, {TS850_ALL_MODES, kHz(6)}, {TS850_ALL_MODES, kHz(2.7)}, {TS850_ALL_MODES, Hz(500)}, {TS850_ALL_MODES, Hz(250)}, RIG_FLT_END, }, .priv = (void *)&ts850_priv_caps, .set_freq = kenwood_set_freq, .get_freq = kenwood_get_freq, .set_rit = ts850_set_rit, .get_rit = kenwood_get_rit, .set_xit = ts850_set_xit, .get_xit = kenwood_get_xit, .set_mode = ts850_set_mode, .get_mode = ts850_get_mode, .set_vfo = kenwood_set_vfo, .get_vfo = kenwood_get_vfo, .set_split_vfo = kenwood_set_split_vfo, .set_ctcss_tone = ts850_set_ctcss_tone, .get_ctcss_tone = kenwood_get_ctcss_tone, .get_ptt = kenwood_get_ptt, .set_ptt = kenwood_set_ptt, .set_func = ts850_set_func, .get_func = ts850_get_func, .set_level = ts850_set_level, .get_level = ts850_get_level, .vfo_op = kenwood_vfo_op, .set_mem = kenwood_set_mem, .get_mem = ts850_get_mem, .get_channel = ts850_get_channel, .set_channel = ts850_set_channel, .set_trn = kenwood_set_trn }; /* * 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: rig_debug(RIG_DEBUG_WARN,"%s: unsupported mode %d\n", __FUNCTION__,mode); } 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 i, 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; 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;", 3, lvlbuf, &lvl_len); if (retval != RIG_OK) return retval; lvlbuf[7]='\0'; i=atoi(&lvlbuf[3]); if(i == 30) val->f = 150.0; /* infinity :-) */ else val->f = 60.0/(30.0-(float)i)-1.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, const 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; }