/* * Hamlib AOR backend - AR7030 Plus description * Copyright (c) 2000-2010 by Stephane Fillod & Fritz Melchert * * * 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. * */ /* * Version 2009.11.21 Larry Gadallah (VE6VQ) */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #include #include #include #include #include #include "hamlib/rig.h" #include "ar7030p.h" #include "serial.h" #include "idx_builtin.h" #define AR7030P_MODES ( RIG_MODE_AM | \ RIG_MODE_SSB | \ RIG_MODE_CW | \ RIG_MODE_RTTY | \ RIG_MODE_FM | \ RIG_MODE_AMS ) #define AR7030P_FUNC ( RIG_FUNC_FAGC | \ RIG_FUNC_NB | \ RIG_FUNC_ANF | \ RIG_FUNC_AIP | \ RIG_FUNC_MN | \ RIG_FUNC_RF | \ RIG_FUNC_LOCK | \ RIG_FUNC_MUTE | \ RIG_FUNC_SQL ) #define AR7030P_LEVEL ( RIG_LEVEL_PREAMP | \ RIG_LEVEL_ATT | \ RIG_LEVEL_AF | \ RIG_LEVEL_RF | \ RIG_LEVEL_SQL | \ RIG_LEVEL_PBT_IN | \ RIG_LEVEL_CWPITCH | \ RIG_LEVEL_NOTCHF | \ RIG_LEVEL_AGC | \ RIG_LEVEL_RAWSTR | \ RIG_LEVEL_STRENGTH ) #define AR7030P_PARM ( RIG_PARM_APO | \ RIG_PARM_TIME | \ RIG_PARM_BAT ) #define AR7030P_VFO_OPS ( RIG_OP_CPY | \ RIG_OP_XCHG | \ RIG_OP_TOGGLE ) #define AR7030P_VFO ( RIG_VFO_A | \ RIG_VFO_B) #define AR7030P_STR_CAL { 8, { \ { 10, -113 }, \ { 10, -103 }, \ { 10, -93 }, \ { 10, -83 }, \ { 10, -73 }, \ { 10, -63 }, \ { 20, -43 }, \ { 20, -23 }, \ } } /* Channel capabilities - Frequency - Mode - Width - Scan lockout - PBT - Squelch - ID */ #define AR7030P_MEM_CAP { \ .freq = 1, \ .mode = 1, \ .width = 1, \ .funcs = RIG_FUNC_NONE, \ .levels = RIG_LEVEL_SQL | RIG_LEVEL_PBT_IN, \ .flags = 1, \ .channel_desc = 1 \ } struct ar7030p_priv_caps { int max_freq_len; int info_len; int mem_len; int pbs_info_len; int pbs_len; int chan_num; }; static const struct ar7030p_priv_caps ar7030p_priv_caps = { .max_freq_len = 3, .info_len = 14, .mem_len = 17, .pbs_info_len = 1, .pbs_len = 1, .chan_num = 0, }; #define NB_CHAN 400 /* see caps->chan_list */ struct ar7030p_priv_data { vfo_t curr_vfo; vfo_t last_vfo; /* VFO A or VFO B, when in MEM mode */ powerstat_t powerstat; int bank; value_t parms[ RIG_SETTING_MAX ]; channel_t *curr; /* points to vfo_a, vfo_b or mem[] */ channel_t vfo_a; channel_t vfo_b; channel_t mem[ NB_CHAN ]; struct ext_list *ext_parms; }; static const struct confparams ar7030p_ext_levels[] = { { TOK_EL_MAGICLEVEL, "MGL", "Magic level", "Magic level, as an example", NULL, RIG_CONF_NUMERIC, { .n = { 0, 1, .001 } } }, { TOK_EL_MAGICFUNC, "MGF", "Magic func", "Magic function, as an example", NULL, RIG_CONF_CHECKBUTTON }, { TOK_EL_MAGICOP, "MGO", "Magic Op", "Magic Op, as an example", NULL, RIG_CONF_BUTTON }, { RIG_CONF_END, NULL, } }; static const struct confparams ar7030p_ext_parms[] = { { TOK_EP_MAGICPARM, "MGP", "Magic parm", "Magic parameter, as an example", NULL, RIG_CONF_NUMERIC, { .n = { 0, 1, .001 } } }, { RIG_CONF_END, NULL, } }; /* TODO - move this somewhere where it belongs */ static unsigned int filterTab[ 6 + 1 ] = { 0 }; static void init_chan(RIG *rig, vfo_t vfo, channel_t *chan) { assert( NULL != rig ); assert( NULL != chan ); chan->channel_num = 0; chan->vfo = vfo; strcpy( chan->channel_desc, rig_strvfo( vfo ) ); chan->freq = MHz( 10 ); chan->mode = RIG_MODE_AM; chan->width = rig_passband_normal( rig, RIG_MODE_AM ); chan->tuning_step = 110; chan->funcs = (setting_t) 0; memset( chan->levels, 0, RIG_SETTING_MAX * sizeof( value_t ) ); } static struct ext_list *alloc_init_ext( const struct confparams *cfp ) { struct ext_list *elp; int i, nb_ext; assert( NULL != cfp ); for ( nb_ext = 0; !RIG_IS_EXT_END(cfp[nb_ext]); nb_ext++ ) { ; } elp = calloc( ( nb_ext + 1 ), sizeof( struct ext_list ) ); if ( !elp ) { return NULL; } for ( i = 0; !RIG_IS_EXT_END(cfp[i]); i++ ) { elp[i].token = cfp[i].token; /* value reset already by calloc */ } /* last token in array is set to 0 by calloc */ return elp; } static struct ext_list *find_ext( struct ext_list *elp, token_t token ) { int i; for ( i = 0; elp[ i ].token != 0; i++ ) { if ( elp[ i ].token == token ) { return &( elp[ i ] ); } } return NULL; } static int ar7030p_init( RIG *rig ) { struct ar7030p_priv_data *priv; int rc = RIG_OK; int i; assert( NULL != rig ); rig_debug(RIG_DEBUG_VERBOSE,"%s called\n", __func__); priv = (struct ar7030p_priv_data *) malloc( sizeof( struct ar7030p_priv_data ) ); if (!priv) { rc = -RIG_ENOMEM; } else { rig->state.priv = (void *) priv; rig->state.rigport.type.rig = RIG_PORT_SERIAL; priv->powerstat = RIG_POWER_ON; priv->bank = 0; memset(priv->parms, 0, RIG_SETTING_MAX * sizeof( value_t ) ); memset(priv->mem, 0, sizeof( priv->mem ) ); for ( i = 0; i < NB_CHAN; i++ ) { priv->mem[ i ].channel_num = i; priv->mem[ i ].vfo = RIG_VFO_MEM; priv->mem[ i ].ext_levels = alloc_init_ext( ar7030p_ext_levels ); if ( !priv->mem[ i ].ext_levels ) { rc = -RIG_ENOMEM; break; } } if ( RIG_OK == rc ) { priv->vfo_a.ext_levels = alloc_init_ext( ar7030p_ext_levels ); if ( !priv->vfo_a.ext_levels ) { return -RIG_ENOMEM; } else { priv->vfo_b.ext_levels = alloc_init_ext( ar7030p_ext_levels ); } if ( !priv->vfo_b.ext_levels ) { return -RIG_ENOMEM; } priv->ext_parms = alloc_init_ext( ar7030p_ext_parms ); if ( !priv->ext_parms ) { return -RIG_ENOMEM; } init_chan(rig, RIG_VFO_A, &priv->vfo_a); init_chan(rig, RIG_VFO_B, &priv->vfo_b); priv->curr = &priv->vfo_a; priv->curr_vfo = priv->last_vfo = RIG_VFO_A; } } return( rc ); } static int ar7030p_cleanup( RIG *rig ) { struct ar7030p_priv_data *priv = (struct ar7030p_priv_data *) rig->state.priv; int rc = RIG_OK; int i; assert( NULL != rig ); rig_debug(RIG_DEBUG_VERBOSE,"%s called\n", __FUNCTION__); for ( i = 0; i < NB_CHAN; i++ ) { free( priv->mem[ i ].ext_levels ); } free( priv->vfo_a.ext_levels ); free( priv->vfo_b.ext_levels ); free( priv->ext_parms ); if ( NULL != rig->state.priv ) { free( rig->state.priv ); } rig->state.priv = NULL; return( rc ); } /* * /brief Open I/O to receiver * * /param rig Pointer to rig struct * * /return 0 on success, < 0 on failure */ static int ar7030p_open( RIG * rig ) { int rc = RIG_OK; int i; unsigned char v; assert( NULL != rig ); rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { /* Load calibration table */ rig->state.str_cal.size = rig->caps->str_cal.size; for ( i = 0; i < rig->state.str_cal.size; i++ ) { rc = readByte( rig, EEPROM1, SM_CAL + i, &v ); if ( RIG_OK != rc ) { break; } rig->state.str_cal.table[ i ].val = rig->caps->str_cal.table[ i ].val; rig->state.str_cal.table[ i ].raw = (int) v; } if ( RIG_OK == rc ) { /* Load filter BW table */ for ( i = 1; i <= 6; i++ ) { rc = getFilterBW( rig, i ); if ( 0 > rc ) { rc = -RIG_EIO; break; } else { filterTab[i] = (unsigned int) rc; } } } rc = lockRx( rig, LOCK_0 ); rig_debug( RIG_DEBUG_VERBOSE, "%s: \n", __func__ ); } return ( rc ); } /* * /brief Close I/O to receiver * * /param rig Pointer to rig struct * * /return 0 on success, < 0 on failure */ static int ar7030p_close( RIG * rig ) { assert( NULL != rig ); rig_debug( RIG_DEBUG_VERBOSE, "%s: \n", __func__ ); return ( RIG_OK ); } static const char *ar7030p_get_info( RIG * rig ) { static char version[10] = ""; unsigned int i; char *p = &( version[ 0 ] ); assert( NULL != rig ); for ( i = 0; i < pageSize(ROM); i++ ) { if ( RIG_OK != readByte( rig, ROM, i, (unsigned char *) p++ ) ) { p = NULL; break; } } if ( NULL != p ) { *p++ = '\0'; p = &( version[ 0 ] ); rig_debug( RIG_DEBUG_VERBOSE, "%s: ident - %s\n", __func__, version ); } return ( p ); } /* * /brief Set receiver frequency * * /param rig Pointer to rig struct * /param vfo VFO to operate on * /param freq Frequency to set * */ static int ar7030p_set_freq( RIG * rig, vfo_t vfo, freq_t freq ) { int rc = RIG_OK; const struct rig_caps *caps; assert( NULL != rig ); rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { caps = rig->caps; if ( ( caps->rx_range_list1[ 0 ].end > freq ) && ( caps->rx_range_list1[ 0 ].start < freq ) ) { switch( vfo ) { case RIG_VFO_CURR: case RIG_VFO_A: rc = write3Bytes( rig, WORKING, FREQU, hzToDDS( freq ) ); break; case RIG_VFO_B: rc = write3Bytes( rig, WORKING, FREQU_B, hzToDDS( freq ) ); break; default: rc = -RIG_EINVAL; }; } else { rc = -RIG_EINVAL; } rc = execRoutine( rig, SET_ALL ); rc = lockRx( rig, LOCK_0 ); } return( rc ); } /* * /brief Get receiver frequency * * /param rig Pointer to rig struct * /param vfo VFO to operate on * /param freq Pointer to hold frequency value (in Hz) * */ static int ar7030p_get_freq( RIG * rig, vfo_t vfo, freq_t * freq ) { int rc = RIG_OK; unsigned int x; rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { switch( vfo ) { case RIG_VFO_CURR: case RIG_VFO_A: rc = read3Bytes( rig, WORKING, FREQU, &x ); if ( RIG_OK == rc ) { *freq = ddsToHz( x ); } break; case RIG_VFO_B: rc = read3Bytes( rig, WORKING, FREQU_B, &x ); { *freq = ddsToHz( x ); } break; default: rc = -RIG_EINVAL; }; rc = lockRx( rig, LOCK_0 ); } return( rc ); } /* * /brief Set receiver mode * * /param rig Pointer to rig struct * /param vfo VFO to operate on * /param mode Mode to set * /param width Bandwidth to set * */ static int ar7030p_set_mode( RIG * rig, vfo_t vfo, rmode_t mode, pbwidth_t width ) { int rc = RIG_OK; unsigned char ar_mode = (unsigned char) USB; unsigned char ar_filter = (unsigned char) FILTER_3; int i; rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { /* TODO - deal with selected VFO */ ar_mode = modeToNative( mode ); rc = writeByte( rig, WORKING, MODE, ar_mode ); if ( RIG_OK == rc ) { if ( RIG_PASSBAND_NORMAL == width ) { width = rig_passband_normal( rig, mode ); } else { /* TODO - get filter BWs at startup */ ar_filter = (unsigned char) 6; for ( i = 1; i <= 6; i++ ) { if ( width <= filterTab[ i ] ) { if ( filterTab[ i ] < filterTab[ (int) ar_filter ] ) { ar_filter = (unsigned char) i; } } rig_debug( RIG_DEBUG_VERBOSE, "%s: width %d ar_filter %d filterTab[%d] %d\n", __func__, width, ar_filter, i, filterTab[i] ); } } rc = writeByte( rig, WORKING, FILTER, ar_filter ); if ( RIG_OK == rc ) { rc = execRoutine( rig, SET_ALL ); } } rc = lockRx( rig, LOCK_0 ); } return( rc ); } /* * /brief Get receiver mode and bandwidth * * /param rig Pointer to rig struct * /param vfo VFO to operate on * /param mode Pointer to value to hold mode * /param width Pointer to value to hold bandwidth * */ static int ar7030p_get_mode( RIG * rig, vfo_t vfo, rmode_t * mode, pbwidth_t * width ) { int rc = RIG_OK; unsigned char bcd_bw; unsigned char m; assert( NULL != rig ); assert( NULL != mode ); assert( NULL != width ); rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { /* TODO - deal with selected VFO */ rc = readByte( rig, WORKING, MODE, &m ); if ( RIG_OK == rc ) { *mode = modeToHamlib( m ); rc = readByte( rig, WORKING, FLTBW, &bcd_bw ); if ( RIG_OK == rc ) { *width = (pbwidth_t) ((int) bcd2Int( bcd_bw ) * 100); } } rc = lockRx( rig, LOCK_0 ); } return( rc ); } /* * /brief Get memory channel parameters * * /param rig Pointer to rig struct * /param chan Channel number (0-399) * /param freq Pointer to frequency value * /param mode Pointer to mode value (1-7) * /param filt Pointer to filter value (1-6) * /param pbs Pointer to passband tuning value * /param sql Pointer to squelch value (0-255) * /param id Pointer to channel ident string (14 chars) * */ static void ar7030p_get_memory( RIG * rig, const unsigned int chan, double *const freq, unsigned char *const mode, unsigned char *const filt, unsigned char *const pbs, unsigned char *const sql, char *const id ) { int rc = RIG_OK; unsigned char v; unsigned int f; unsigned char *p = (unsigned char *) id; int i; assert( NULL != rig ); assert( NULL != freq ); assert( NULL != mode ); assert( NULL != filt ); assert( NULL != pbs ); assert( NULL != sql ); assert( NULL != id ); rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { /* Squelch values */ if ( 100 > chan ) { rc = readByte( rig, BBRAM, (MEM_SQ + chan), &v ); /* mem_sq */ } else if ( 176 > chan ) { rc = readByte( rig, EEPROM2, (MEX_SQ + (chan * 16) ), &v ); /* mex_sq */ } else { rc = readByte( rig, EEPROM3, (MEY_SQ + ((chan - 176) * 16) ), &v ); /* mey_sq */ } if ( RIG_OK == rc ) { *sql = v; } /* Frequency, mode and filter values */ if ( 100 > chan ) { rc = read3Bytes( rig, EEPROM2, (MEM_FR + (chan * 4) ), &f ); /* mem_fr */ rc = readByte( rig, EEPROM2, (MEM_MD + (chan * 4) ), &v ); /* mem_md */ } else { rc = read3Bytes( rig, EEPROM3, (MEX_FR + ((chan - 100) * 4) ), &f ); /* mex_fr */ rc = readByte( rig, EEPROM3, (MEX_MD + ((chan - 100) * 4) ), &v ); /* mex_md */ } if ( RIG_OK == rc ) { *freq = ddsToHz( f ); *mode = ( v & 0x07 ); *filt = ( ( v & 0x70 ) >> 4 ); /* lockout = ( ( v & 0x80 ) >> 7 ); */ } /* PBT values */ if ( 100 > chan ) { rc = readByte( rig, EEPROM1, (MEM_PB + chan), &v ); /* mem_pb */ } else if ( 176 > chan ) { rc = readByte( rig, EEPROM2, (MEX_PB + (chan * 16)), &v ); /* mex_pb */ } else { rc = readByte( rig, EEPROM3, (MEY_PB + ((chan - 176) * 16)), &v ); /* mey_pb */ } if ( RIG_OK == rc ) { *pbs = v; } /* Memory ID values */ for ( i = 0; i < 14; i++ ) { if ( 176 > chan ) { rc = readByte( rig, EEPROM2, (MEX_ID + (chan * 16)), p++ ); /* mex_id */ } else { rc = readByte( rig, EEPROM3, (MEY_ID + ((chan - 176) * 16)), p++ ); /* mey_id */ } if ( RIG_OK != rc ) { p = (unsigned char *) id; break; } } *p++ = '\0'; rc = lockRx( rig, LOCK_0 ); } } /* * /brief Set receiver levels * * /param rig Pointer to rig struct * /param vfo VFO to operate on * /param level Level to set * /param val Value to set level to * * /return RIG_OK on success */ static int ar7030p_set_level( RIG * rig, vfo_t vfo, setting_t level, value_t val ) { int rc = RIG_OK; unsigned char v; rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { /* TODO - deal with selected VFO */ switch ( level ) { case RIG_LEVEL_PREAMP: /* Scale parameter */ if ( 10 <= val.i ) { v = (unsigned char) 0; } else { v = (unsigned char) 1; } rc = writeByte( rig, WORKING, RFGAIN, v ); /* rfgain */ rig_debug( RIG_DEBUG_VERBOSE, "%s: rfgain %d (%d)\n", __func__, val.i, v ); rc = execRoutine( rig, SET_ALL ); break; case RIG_LEVEL_ATT: /* Scale parameter */ if ( 10 > val.i ) { v = (unsigned char) 1; } else if ( 20 > val.i ) { v = (unsigned char) 2; } else if ( 40 > val.i ) { v = (unsigned char) 3; } else if ( 80 > val.i ) { v = (unsigned char) 4; } else { v = (unsigned char) 5; } rc = writeByte( rig, WORKING, RFGAIN, v ); /* rfgain */ rig_debug( RIG_DEBUG_VERBOSE, "%s: rfgain %d (%d)\n", __func__, val.i, v ); rc = execRoutine( rig, SET_ALL ); break; case RIG_LEVEL_AF: /* Scale parameter */ v = ( unsigned char ) ( ( val.f * ( VOL_MAX - VOL_MIN ) ) + VOL_MIN ); v = ( v & 0x3f ); rc = writeByte( rig, WORKING, AF_VOL, v ); /* af_vol */ rig_debug( RIG_DEBUG_VERBOSE, "%s: af_vol %f (%d)\n", __func__, val.f, v ); v = ( ( v >> 1 ) & 0x1f ); /* half value for L/R volume */ rc = writeByte( rig, WORKING, AF_VLL, v ); /* af_vll */ rc = writeByte( rig, WORKING, AF_VLR, v ); /* af_vlr */ rc = execRoutine( rig, SET_AUDIO ); break; case RIG_LEVEL_RF: /* Scale parameter, values 0 (99%) to 130 (3%) */ v = (unsigned char) (134U - ((unsigned int) (val.f * 135.0))); rc = writeByte( rig, WORKING, IFGAIN, v ); /* ifgain */ rig_debug( RIG_DEBUG_VERBOSE, "%s: ifgain %f (%d)\n", __func__, val.f, v ); rc = execRoutine( rig, SET_ALL ); break; case RIG_LEVEL_SQL: /* Scale parameter */ v = (unsigned char) (val.f * 255.0); rc = writeByte( rig, WORKING, SQLVAL, v ); /* sqlval */ rig_debug( RIG_DEBUG_VERBOSE, "%s: sqlval %f (%d)\n", __func__, val.f, v ); rc = execRoutine( rig, SET_ALL ); break; case RIG_LEVEL_PBT_IN: /* Scale parameter */ v = (unsigned char) (val.f / (HZ_PER_STEP * 12.5)); rc = writeByte( rig, WORKING, PBSVAL, v ); /* pbsval */ rig_debug( RIG_DEBUG_VERBOSE, "%s: pbsval %f (%d)\n", __func__, val.f, v ); rc = execRoutine( rig, SET_ALL ); break; case RIG_LEVEL_CWPITCH: /* Scale parameter */ v = (unsigned char) (val.f / (HZ_PER_STEP * 12.5)); rc = writeByte( rig, WORKING, BFOVAL, v ); /* bfoval */ rig_debug( RIG_DEBUG_VERBOSE, "%s: bfoval %f (%d)\n", __func__, val.f, v ); rc = execRoutine( rig, SET_ALL ); break; case RIG_LEVEL_NOTCHF: rc = -RIG_ENIMPL; break; case RIG_LEVEL_AGC: /* Scale parameter */ v = agcToNative( val.i ); rc = writeByte( rig, WORKING, AGCSPD, v ); /* agcspd */ rig_debug( RIG_DEBUG_VERBOSE, "%s: agcspd %d (%d)\n", __func__, val.i, v ); rc = execRoutine( rig, SET_ALL ); break; default: rc = -RIG_EINVAL; }; rc = lockRx( rig, LOCK_0 ); } return( rc ); } /* * /brief Get receiver levels * * /param rig Pointer to rig struct * /param vfo VFO to operate on * /param level Level to get * /param val Pointer to value to get * * /return RIG_OK on success */ static int ar7030p_get_level( RIG * rig, vfo_t vfo, setting_t level, value_t * val ) { int rc = RIG_OK; unsigned char v; unsigned int x = 0; unsigned short s = 0; int i; rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { /* TODO - deal with selected VFO */ switch ( level ) { case RIG_LEVEL_PREAMP: rc = readByte( rig, WORKING, RFGAIN, &v ); /* rfgain */ if ( RIG_OK == rc ) { /* Scale parameter */ if ( 0 == v ) { val->i = 10; } else { val->i = 0; } rig_debug( RIG_DEBUG_VERBOSE, "%s: rfgain %d (%d)\n", __func__, v, val->i ); } break; case RIG_LEVEL_ATT: rc = readByte( rig, WORKING, RFGAIN, &v ); /* rfgain */ if ( RIG_OK == rc ) { /* Scale parameter */ switch( v ) { case 2: val->i = 10; break; case 3: val->i = 20; break; case 4: val->i = 40; break; default: case 0: case 1: val->i = 0; }; rig_debug( RIG_DEBUG_VERBOSE, "%s: rfgain %d (%d)\n", __func__, v, val->i ); } break; case RIG_LEVEL_AF: rc = readByte( rig, WORKING, AF_VOL, &v ); /* af_vol */ if ( RIG_OK == rc ) { /* Scale parameter */ v = ( v & 0x3f ); val->f = (( (float) v - VOL_MIN) / ( VOL_MAX - VOL_MIN ) ); rig_debug( RIG_DEBUG_VERBOSE, "%s: af_vol %d (%f)\n", __func__, v, val->f ); } break; case RIG_LEVEL_RF: rc = readByte( rig, WORKING, IFGAIN, &v ); /* ifgain */ if ( RIG_OK == rc ) { /* Scale parameter, values 0 (99%) to 130 (3%) */ val->f = ((float) (134 - v) / 135.0 ); rig_debug( RIG_DEBUG_VERBOSE, "%s: ifgain %d (%f)\n", __func__, v, val->f ); } break; case RIG_LEVEL_SQL: rc = readByte( rig, WORKING, SQLVAL, &v ); /* sqlval */ if ( RIG_OK == rc ) { /* Scale parameter */ val->f = ((float) (v) / 255.0 ); rig_debug( RIG_DEBUG_VERBOSE, "%s: sqlval %d (%f)\n", __func__, v, val->f ); } break; case RIG_LEVEL_PBT_IN: rc = readByte( rig, WORKING, PBSVAL, &v ); /* pbsval */ if ( RIG_OK == rc ) { /* Scale parameter */ if (127 < v) { v = v | 0xffffff00; } val->f = ((float) (v) * HZ_PER_STEP * 12.5 ); rig_debug( RIG_DEBUG_VERBOSE, "%s: pbsval %d (%f)\n", __func__, v, val->f ); } break; case RIG_LEVEL_CWPITCH: rc = readByte( rig, WORKING, BFOVAL, &v ); /* bfoval */ if ( RIG_OK == rc ) { /* Scale parameter */ if (127 < v) { v = v | 0xffffff00; } val->f = ((float) (v) * HZ_PER_STEP * 12.5 ); rig_debug( RIG_DEBUG_VERBOSE, "%s: bfoval %d (%f)\n", __func__, v, val->f ); } break; case RIG_LEVEL_NOTCHF: rc = readShort( rig, WORKING, NCHFR, &s ); /* nchfr */ if ( RIG_OK == rc ) { x = (unsigned int) s; /* Scale parameter */ val->i = (int) ((float) (x) / NOTCH_STEP_HZ); rig_debug( RIG_DEBUG_VERBOSE, "%s: nchfr %d (%d)\n", __func__, x, val->i ); } break; case RIG_LEVEL_AGC: rc = readByte( rig, WORKING, AGCSPD, &v ); /* agcspd */ if ( RIG_OK == rc ) { /* Scale parameter */ val->i = agcToHamlib( v ); rig_debug( RIG_DEBUG_VERBOSE, "%s: agcspd %d (%d)\n", __func__, v, val->i ); } break; case RIG_LEVEL_RAWSTR: rc = readSignal( rig, &v ); if ( RIG_OK == rc ) { val->i = (int) v; } break; case RIG_LEVEL_STRENGTH: rc = readSignal( rig, &v ); if ( RIG_OK == rc ) { rc = getCalLevel( rig, v, &i ); if ( RIG_OK == rc ) { val->i = i; } } break; default: rc = -RIG_EINVAL; } rc = lockRx( rig, LOCK_0 ); } return( rc ); } static int ar7030p_set_vfo( RIG * rig, vfo_t vfo ) { int rc = RIG_OK; struct ar7030p_priv_data *priv = (struct ar7030p_priv_data *) rig->state.priv; assert( NULL != rig ); switch( vfo ) { case RIG_VFO_B: if ( RIG_VFO_B != priv->curr_vfo ) { rc = sendIRCode( rig, IR_VFO ); if ( RIG_OK == rc ) { priv->curr_vfo = RIG_VFO_B; priv->last_vfo = RIG_VFO_A; } } break; case RIG_VFO_A: case RIG_VFO_CURR: if ( RIG_VFO_A != priv->curr_vfo ) { rc = sendIRCode( rig, IR_VFO ); if ( RIG_OK == rc ) { priv->curr_vfo = RIG_VFO_A; priv->last_vfo = RIG_VFO_B; } } break; default: rc = -RIG_EINVAL; break; } return ( rc ); } static int ar7030p_get_vfo( RIG * rig, vfo_t * vfo ) { int rc = RIG_OK; struct ar7030p_priv_data *priv = (struct ar7030p_priv_data *) rig->state.priv; assert( NULL != rig ); assert( NULL != vfo ); *vfo = priv->curr_vfo; return ( rc ); } static int ar7030p_set_parm( RIG * rig, setting_t parm, value_t val ) { int rc = -RIG_ENIMPL; assert( NULL != rig ); switch ( parm ) { case RIG_PARM_APO: break; case RIG_PARM_TIME: break; case RIG_PARM_BAT: break; default: break; }; return ( rc ); } static int ar7030p_get_parm( RIG * rig, setting_t parm, value_t * val ) { int rc = -RIG_ENIMPL; assert( NULL != rig ); assert( NULL != val ); switch ( parm ) { case RIG_PARM_APO: break; case RIG_PARM_TIME: break; case RIG_PARM_BAT: break; default: break; }; return ( rc ); } static int ar7030p_set_mem( RIG * rig, vfo_t vfo, int ch ) { int rc = RIG_OK; struct ar7030p_priv_data *priv = (struct ar7030p_priv_data *) rig->state.priv; if ( RIG_VFO_MEM == priv->curr_vfo ) { priv->curr = &priv->mem[ ch ]; } else { priv->curr->channel_num = ch; } rig_debug(RIG_DEBUG_VERBOSE, "%s: ch %d\n", __func__, ch); return ( rc ); } static int ar7030p_get_mem( RIG * rig, vfo_t vfo, int *ch ) { int rc = RIG_OK; struct ar7030p_priv_data *priv = (struct ar7030p_priv_data *) rig->state.priv; channel_t *curr = priv->curr; assert( NULL != ch ); *ch = curr->channel_num; rig_debug(RIG_DEBUG_VERBOSE, "%s: ch %d\n", __func__, *ch); return ( rc ); } static int ar7030p_vfo_op( RIG * rig, vfo_t vfo, vfo_op_t op ) { int rc = -RIG_ENIMPL; assert( NULL != rig ); switch( op ) { case RIG_OP_CPY: rc = -RIG_ENIMPL; break; case RIG_OP_XCHG: rc = -RIG_ENIMPL; break; case RIG_OP_TOGGLE: rc = sendIRCode( rig, IR_VFO ); break; default: break; }; return ( rc ); } static int ar7030p_scan( RIG * rig, vfo_t vfo, scan_t scan, int ch ) { int rc = -RIG_ENIMPL; assert( NULL != rig ); return ( rc ); } static int ar7030p_get_dcd( RIG * rig, vfo_t vfo, dcd_t * dcd ) { int rc = RIG_OK; unsigned char v; assert( NULL != rig ); assert( NULL != dcd ); rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { rc = readByte( rig, WORKING, BITS + 2, &v ); if ( RIG_OK == rc ) { if ( (v & 0x02) ) { if ( (v & 0x01) ) /* low bit set if Squelch is NOT active/open */ { *dcd = RIG_DCD_OFF; } else { *dcd = RIG_DCD_ON; } } else { *dcd = RIG_DCD_ON; } } rc = lockRx( rig, LOCK_0 ); } return ( rc ); } static int ar7030p_set_ts( RIG * rig, vfo_t vfo, shortfreq_t ts ) { int rc = RIG_OK; unsigned short v; assert( NULL != rig ); rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { /* Scale parameter */ v = (unsigned short) ((double) (ts + 1) / HZ_PER_STEP); rc = writeShort( rig, WORKING, CHNSTP, v ); /* chnstp */ if ( RIG_OK == rc ) { rc = execRoutine( rig, SET_ALL ); rig_debug( RIG_DEBUG_VERBOSE, "%s: chnstp %d (%d)\n", __func__, ts, v ); } rc = lockRx( rig, LOCK_0 ); } return ( rc ); } /* * /brief Get receiver tuning step size * * /param rig Pointer to rig struct * /param vfo VFO to operate on * /param ts Pointer to tuning step value * * /return RIG_OK on success */ static int ar7030p_get_ts( RIG * rig, vfo_t vfo, shortfreq_t * ts ) { int rc = RIG_OK; unsigned short v; double x; assert( NULL != rig ); assert( NULL != ts ); rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { rc = readShort( rig, WORKING, CHNSTP, &v ); /* chnstp */ if ( RIG_OK == rc ) { x = (double) v; *ts = (shortfreq_t) (x * HZ_PER_STEP); rig_debug( RIG_DEBUG_VERBOSE, "%s: step= %d\n", __func__, *ts ); } rc = lockRx( rig, LOCK_0 ); } return ( rc ); } /* * /brief Set receiver power status * * /param rig Pointer to rig struct * /param status Power status to set * * /return RIG_OK on success */ static int ar7030p_set_powerstat( RIG * rig, powerstat_t status ) { int rc = -RIG_ENIMPL; assert( NULL != rig ); rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { switch ( status ) { case RIG_POWER_OFF: break; case RIG_POWER_ON: break; default: break; } rc = lockRx( rig, LOCK_0 ); } return( -RIG_ENIMPL ); } /* * /brief Get receiver power status * * /param rig Pointer to rig struct * /param status Pointer to power status value * * /return RIG_OK on success */ static int ar7030p_get_powerstat( RIG * rig, powerstat_t * status ) { int rc = RIG_OK; unsigned char v; assert( NULL != rig ); rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { rc = readByte( rig, WORKING, PDFLGS, &v ); if ( RIG_OK == rc ) { if ( 0 == ( v & 0x01 ) ) { *status = RIG_POWER_OFF; } else { *status = RIG_POWER_ON; } } rc = lockRx( rig, LOCK_0 ); } return( rc ); } /* * /brief Reset receiver * * /param rig Pointer to rig struct * /param reset Reset operation to perform * * /return RIG_OK on success */ static int ar7030p_reset( RIG * rig, reset_t reset ) { int rc = RIG_OK; assert( NULL != rig ); switch ( reset ) { case RIG_RESET_SOFT: rc = execRoutine( rig, RESET ); break; default: rc = -RIG_EINVAL; } return( rc ); } static int ar7030p_set_func( RIG * rig, vfo_t vfo, setting_t func, int status ) { assert( NULL != rig ); return ( -RIG_ENIMPL ); } static int ar7030p_get_func( RIG * rig, vfo_t vfo, setting_t func, int *status ) { assert( NULL != rig ); assert( NULL != status ); return ( -RIG_ENIMPL ); } static int ar7030p_decode_event( RIG * rig ) { assert( NULL != rig ); return ( -RIG_ENIMPL ); } static int ar7030p_set_channel( RIG * rig, const channel_t * chan ) { assert( NULL != rig ); assert( NULL != chan ); return ( -RIG_ENIMPL ); } static int ar7030p_get_channel( RIG * rig, channel_t * chan ) { int rc = RIG_OK; unsigned char v; unsigned int f; unsigned char *p = NULL; int ch; int i; struct ar7030p_priv_data *priv = (struct ar7030p_priv_data *)rig->state.priv; channel_t *curr = priv->curr; assert( NULL != chan ); ch = curr->channel_num; rc = lockRx( rig, LOCK_1 ); if ( RIG_OK == rc ) { /* Squelch values */ /* TODO - fix magic numbers */ if ( 100 > ch ) { rc = readByte( rig, BBRAM, (MEM_SQ + ch), &v ); /* mem_sq */ } else if ( 176 > ch ) { rc = readByte( rig, EEPROM2, (MEX_SQ + (ch * 16) ), &v ); /* mex_sq */ } else { rc = readByte( rig, EEPROM3, (MEY_SQ + ((ch - 176) * 16) ), &v ); /* mey_sq */ } if ( RIG_OK == rc ) { chan->levels[ LVL_SQL ].f = (float) v / 255.0; } /* Frequency, mode and filter values */ if ( 100 > ch ) { rc = read3Bytes( rig, EEPROM1, (MEM_FR + (ch * 4) ), &f ); /* mem_fr */ rc = readByte( rig, EEPROM1, (MEM_MD + (ch * 4) ), &v ); /* mem_md */ } else { rc = read3Bytes( rig, EEPROM2, (MEX_FR + ((ch - 100) * 4) ), &f ); /* mex_fr */ rc = readByte( rig, EEPROM2, (MEX_MD + ((ch - 100) * 4) ), &v ); /* mex_md */ } if ( RIG_OK == rc ) { chan->freq = ddsToHz( f ); chan->mode = modeToHamlib( ( v & 0x07 ) ); chan->width = getFilterBW( rig, ( ( v & 0x70 ) >> 4 ) ); if ( ( v & 0x80 ) >> 7 ) { chan->flags = RIG_CHFLAG_SKIP; } else { chan->flags = RIG_CHFLAG_NONE; } } /* PBT values */ if ( 100 > ch ) { rc = readByte( rig, EEPROM1, (MEM_PB + ch), &v ); /* mem_pb */ } else if ( 176 > ch ) { rc = readByte( rig, EEPROM2, (MEX_PB + (ch * 16)), &v ); /* mex_pb */ } else { rc = readByte( rig, EEPROM3, (MEY_PB + ((ch - 176) * 16)), &v ); /* mey_pb */ } if ( RIG_OK == rc ) { chan->levels[ LVL_PBT_IN ].f = pbsToHz( v ); } /* Memory ID values */ p = (unsigned char *) chan->channel_desc; for ( i = 0; i < 14; i++ ) { if ( 176 > ch ) { rc = readByte( rig, EEPROM2, (MEX_ID + (ch * 16) + i), p++ ); /* mex_id */ } else { rc = readByte( rig, EEPROM3, (MEY_ID + ((ch - 176) * 16) + i), p++ ); /* mey_id */ } if ( RIG_OK != rc ) { p = (unsigned char *) chan->channel_desc; break; } } *p++ = '\0'; rc = lockRx( rig, LOCK_0 ); } return ( rc ); } const struct rig_caps ar7030p_caps = { .rig_model = RIG_MODEL_AR7030P, .model_name = "AR7030 Plus", .mfg_name = "AOR", .version = "0.1", .copyright = "LGPL", .status = RIG_STATUS_BETA, .rig_type = RIG_TYPE_RECEIVER, .dcd_type = RIG_DCD_RIG, .port_type = RIG_PORT_SERIAL, .serial_rate_min = 1200, .serial_rate_max = 1200, .serial_data_bits = 8, .serial_stop_bits = 1, .serial_parity = RIG_PARITY_NONE, .serial_handshake = RIG_HANDSHAKE_NONE, .write_delay = 0, .post_write_delay = 12, .timeout = 650, .retry = 0, .has_get_func = AR7030P_FUNC, .has_set_func = AR7030P_FUNC, .has_get_level = AR7030P_LEVEL, .has_set_level = RIG_LEVEL_SET( AR7030P_LEVEL ), .has_get_parm = AR7030P_PARM, .has_set_parm = RIG_PARM_SET( AR7030P_PARM ), .level_gran = { [LVL_PREAMP] = {.min = {.i = 0}, .max = {.i = 10} }, [LVL_ATT] = {.min = {.i = 0}, .max = {.i = 20} }, [LVL_RF] = {.min = {.f = 0.0}, .max = {.f = 1.0} }, [LVL_AF] = {.min = {.f = 0.0}, .max = {.f = 1.0} }, [LVL_SQL] = {.min = {.f = 0.0}, .max = {.f = 1.0} }, [LVL_IF] = {.min = {.i = 255}, .max = {.i = 0} }, [LVL_PBT_IN] = {.min = {.f = -4248.0}, .max = {.f = 4248.0} }, [LVL_CWPITCH] = {.min = {.i = -4248}, .max = {.i = 4248} }, [LVL_NOTCHF] = {.min = {.i = 0}, .max = {.i = 10000} }, [LVL_AGC] = {.min = {.i = 0}, .max = {.i = 10} }, [LVL_BALANCE] = {.min = {.f = -1.0}, .max = {.f = 1.0} }, [LVL_RAWSTR] = {.min = {.i = 0}, .max = {.i = 255} }, [LVL_STRENGTH] = {.min = {.i = 0}, .max = {.i = 255} }, }, .extparms = NULL, .extlevels = NULL, .parm_gran = { [PARM_APO] = {.min = {.i = 1}, .max = {.i = 86400} }, [PARM_TIME] = {.min = {.i = 0}, .max = {.i = 86400} }, [PARM_BAT] = {.min = {.f = 0.0}, .max = {.f = 1.0} }, }, .preamp = {10, RIG_DBLST_END,}, .attenuator = {10, 20, RIG_DBLST_END,}, .max_rit = Hz( 0 ), .max_xit = Hz( 0 ), .max_ifshift = Hz( 4248 ), .announces = RIG_ANN_NONE, .vfo_ops = AR7030P_VFO_OPS, .scan_ops = RIG_SCAN_STOP | RIG_SCAN_MEM | RIG_SCAN_VFO, .targetable_vfo = 0, .transceive = RIG_TRN_OFF, .bank_qty = 0, .chan_desc_sz = 14, .chan_list = {{0, 399, RIG_MTYPE_MEM, AR7030P_MEM_CAP}, RIG_CHAN_END,}, .rx_range_list1 = { {kHz( 10 ), kHz( 32010 ), AR7030P_MODES, -1, -1, AR7030P_VFO}, RIG_FRNG_END, }, .tx_range_list1 = {RIG_FRNG_END,}, .rx_range_list2 = { {kHz( 10 ), kHz( 32010 ), AR7030P_MODES, -1, -1, AR7030P_VFO}, RIG_FRNG_END, }, .tx_range_list2 = {RIG_FRNG_END,}, .tuning_steps = { {AR7030P_MODES, Hz( 10 )}, {AR7030P_MODES, Hz( 20 )}, {AR7030P_MODES, Hz( 50 )}, {AR7030P_MODES, Hz( 100 )}, {AR7030P_MODES, Hz( 200 )}, {AR7030P_MODES, Hz( 500 )}, {AR7030P_MODES, kHz( 1 )}, {AR7030P_MODES, kHz( 2 )}, {AR7030P_MODES, kHz( 5 )}, {AR7030P_MODES, kHz( 6.25 )}, {AR7030P_MODES, kHz( 9 )}, {AR7030P_MODES, kHz( 10 )}, {AR7030P_MODES, Hz( 12500 )}, {AR7030P_MODES, kHz( 20 )}, {AR7030P_MODES, kHz( 25 )}, RIG_TS_END, }, .filters = { {RIG_MODE_FM, kHz( 9.5 )}, {RIG_MODE_FM, kHz( 0 )}, {RIG_MODE_FM, kHz( 0 )}, {RIG_MODE_AMS, kHz( 6.5 )}, {RIG_MODE_AMS, kHz( 5.3 )}, {RIG_MODE_AMS, kHz( 9.5 )}, {RIG_MODE_AM, kHz( 5.3 )}, {RIG_MODE_AM, kHz( 3.7 )}, {RIG_MODE_AM, kHz( 6.5 )}, {RIG_MODE_SSB, kHz( 2.0 )}, {RIG_MODE_SSB, kHz( 1.4 )}, {RIG_MODE_SSB, kHz( 3.7 )}, {RIG_MODE_CW, kHz( 1.4 )}, {RIG_MODE_CW, kHz( 0 )}, {RIG_MODE_CW, kHz( 2.0 )}, {RIG_MODE_RTTY, kHz( 1.4 )}, {RIG_MODE_RTTY, kHz( 0 )}, {RIG_MODE_RTTY, kHz( 2.0 )}, RIG_FLT_END, }, .str_cal = AR7030P_STR_CAL, .cfgparams = NULL, .priv = ( void * ) &ar7030p_priv_caps, .rig_init = ar7030p_init, .rig_cleanup = ar7030p_cleanup, .rig_open = ar7030p_open, .rig_close = ar7030p_close, .set_freq = ar7030p_set_freq, .get_freq = ar7030p_get_freq, .set_mode = ar7030p_set_mode, .get_mode = ar7030p_get_mode, .set_vfo = ar7030p_set_vfo, .get_vfo = ar7030p_get_vfo, .get_dcd = ar7030p_get_dcd, .set_ts = ar7030p_set_ts, .get_ts = ar7030p_get_ts, .set_powerstat = ar7030p_set_powerstat, .get_powerstat = ar7030p_get_powerstat, .reset = ar7030p_reset, .set_level = ar7030p_set_level, .get_level = ar7030p_get_level, .set_func = ar7030p_set_func, .get_func = ar7030p_get_func, .set_parm = ar7030p_set_parm, .get_parm = ar7030p_get_parm, .set_ext_level = RIG_FUNC_NONE, .get_ext_level = RIG_FUNC_NONE, .set_ext_parm = RIG_FUNC_NONE, .get_ext_parm = RIG_FUNC_NONE, .set_conf = RIG_FUNC_NONE, .get_conf = RIG_FUNC_NONE, .set_mem = ar7030p_set_mem, .get_mem = ar7030p_get_mem, .vfo_op = ar7030p_vfo_op, .scan = ar7030p_scan, .decode_event = ar7030p_decode_event, .set_channel = ar7030p_set_channel, .get_channel = ar7030p_get_channel, .get_info = ar7030p_get_info, .set_chan_all_cb = RIG_FUNC_NONE, .get_chan_all_cb = RIG_FUNC_NONE, .set_mem_all_cb = RIG_FUNC_NONE, .get_mem_all_cb = RIG_FUNC_NONE, };