Hamlib/aor/ar7030.c

/*
 *  Hamlib AOR backend - AR7030 description
 *  Copyright (c) 2000-2006 by Stephane Fillod & Fritz Melchert
 *
 *
 *   This library is free software; you can redistribute it and/or
 *   modify it under the terms of the GNU Lesser General Public
 *   License as published by the Free Software Foundation; either
 *   version 2.1 of the License, or (at your option) any later version.
 *
 *   This library 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
 *   Lesser General Public License for more details.
 *
 *   You should have received a copy of the GNU Lesser General Public
 *   License along with this library; if not, write to the Free Software
 *   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 *
 */

//
// Version 2004.12.13 F.Melchert (DC9RP)
// Version 2004.11.29 F.Melchert (DC9RP)
//

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <stdio.h>
#include <string.h>
#include <math.h>

#include <hamlib/rig.h>
#include "aor.h"
#include "serial.h"
#include "idx_builtin.h"


/*
 * Maintainer wanted!
 *
 * TODO:
 *  - everything: this rig has nothing in common with other aor's.
 *
 *  set_mem, get_mem, set_channel, get_channel
 */
#define AR7030_MODES (RIG_MODE_AM|RIG_MODE_AMS|RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_FM)

#define AR7030_FUNC_ALL (RIG_FUNC_NONE)

#define AR7030_LEVEL (RIG_LEVEL_AF | RIG_LEVEL_RF | RIG_LEVEL_SQL | RIG_LEVEL_CWPITCH | RIG_LEVEL_RAWSTR | RIG_LEVEL_AGC | RIG_LEVEL_STRENGTH)

#define AR7030_PARM (RIG_PARM_NONE)

#define AR7030_VFO_OPS (RIG_OP_NONE)

#define AR7030_VFO (RIG_VFO_A|RIG_VFO_B)





/*
 * Data was obtained from AR7030 pdf on http://www.aoruk.com
 */


/****************************************************************************
* Misc Routines                                                             *
****************************************************************************/

static int rxr_writeByte(RIG *rig, unsigned char c)
{
    return write_block(&rig->state.rigport, (char *) &c, 1);
}


static int rxr_readByte(RIG *rig)
{
    unsigned char response[1];
    unsigned char buf[] = {0x71}; // Read command
    int retval;
    retval = write_block(&rig->state.rigport, (char *) buf, 1);

    if (retval != RIG_OK)
    {
        return retval;
    }

    retval = read_block(&rig->state.rigport, (char *) response, 1);

    if (retval != RIG_OK)
    {
        return retval;
    }

    return response[0];
}

/*!
Umwandlung von BCD nach char
*/
static int BCD_To_int(RIG *rig, int c)
{
    if (((c & 0x0F) < 0x0a) && ((c & 0xF0) < 0xa0))  // Test pseudo Tetrade
    {
        return (((c >> 4) * 10) + (c & 0x0F));
    }

    return (-1);
}// End of method BCD_To_char(

/****************************************************************************
* Routines to set receiver lock levels                                      *
****************************************************************************/

/*!
Locks, or unlocks if called with argument 0, the receiver, disabling the
front panel controls or updates.  The level of locking is determined by the
argument level which may be in the range 0 (no lock) to 3 (Remote operation
exclusively).  Calling the method without arguments sets the lock level to
1.  It is recommended to lock to this level during any multi byte read or
writes to prevent data contention between internal and remote access.
Calls with invalid arguments are ignored.
*/
static void unlock(RIG *rig)
{
    rxr_writeByte(rig, 0x80);
}

// Level 1 = 0x81   IR remote control disabled.
//          Front panel buttons ignored.
//          Front panel spin-wheels logged but not actioned.
//          Display update (frequency & S-meter) continues.
static void setLock(RIG *rig, int level)
{
    if ((0 <= level) && (level <= 3))
    {
        rxr_writeByte(rig, 0x80 + level);
    }
}

// Level 2 = 0x82   As level 1, but display update suspended. In revisions before 1.4
//          squelch operation is inhibited, which results in no audio output
//          after a mode change. In revision 1.4 squelch operation continues
//          and mode changing is as expected.
// Level 3 = 0x83   Remote operation exclusively.



static void setMemPtr(RIG *rig, int page, int address)
{
    rxr_writeByte(rig, 0x50 + page);          //Set Page

    if (address <= 0xFF)                  //*** <= 8 Bit Adresse ***
    {
        rxr_writeByte(rig, 0x30 + (address >> 4));      //Set H-Register 4 Bits
        rxr_writeByte(rig, 0x40 + (address &
                                   0x0F));    //Set Adress(12 Bits = (4 Bit H Register) + 8 Bit)
    }
    else                          //*** > 8 Bit Adresse ***
    {
        rxr_writeByte(rig, 0x30 + ((address >> 4) & 0x0F)) ;//Set H-Register 4 Bits
        rxr_writeByte(rig, 0x40 + (address &
                                   0x0F));    //Set Adress(12 Bits = (4 Bit H Register) + 8 Bit)
        rxr_writeByte(rig, 0x10 + (address >>
                                   8));      //Set Adress high(12 Bits=(4 Bit H Register)+8 Bit)
    }
}

/****************************************************************************
* Routines                                                                  *
****************************************************************************/
// Routine 0    Reset   Setup receiver as at switch-on.
static void Execute_Routine_0(RIG *rig)
{
    //setLock(rig, 1);        //Set Lock Level
    rxr_writeByte(rig, 0x20);
    //unlock(rig);            //Set UnLock Level
}
// Routine 1    Set frequency   Program local oscillator from frequ area and setup
//      RF filters and oscillator range.
// Routine 2    Set mode    Setup from mode byte in memory and display mode,
//      select preferred filter and PBS, BFO values etc.
// currently not used
#if 0
static void Execute_Routine_2_1(RIG *rig, char mp, char ad, int numSteps)
{
    setLock(rig, 1);      //Set Lock Level
    setMemPtr(rig, mp, ad);   //page, address
    rxr_writeByte(rig, 0x30 | (0x0F & (char)(numSteps >> 4)));
    rxr_writeByte(rig, 0x60 | (0x0F & (char)(numSteps)));
    rxr_writeByte(rig, 0x22);
    unlock(rig);          //Set UnLock Level
}
#endif
// Routine 3    Set passband    Setup all IF parameters from filter, pbsval and bfoval bytes.
static void Execute_Routine_3_1(RIG *rig, char mp, char ad, int numSteps)
{
    setLock(rig, 1);      //Set Lock Level
    setMemPtr(rig, mp, ad);   //page, address
    rxr_writeByte(rig, 0x30 | (0x0F & (char)(numSteps >> 4)));
    rxr_writeByte(rig, 0x60 | (0x0F & (char)(numSteps)));
    rxr_writeByte(rig, 0x23);
    unlock(rig);          //Set UnLock Level
}
// Routine 4    Set all Set all receiver parameters from current memory values
static void Execute_Routine_4_1(RIG *rig, char mp, char ad, int numSteps)
{
    setLock(rig, 1);      //Set Lock Level
    setMemPtr(rig, mp, ad);   //page, address
    // 0x30 = Set H-register  x  --->  H-register (4-bits)
    //        The high order 4-bits of each byte sent to the receiver is the operation code,
    //        the low order 4-bits is data (shown here as x)
    rxr_writeByte(rig, 0x30 | (0x0F & (char)(numSteps >> 4)));
    // 0x60 = Write data  Hx
    //        --->  [Page, Address] Address register + 1
    //        --->  Address register 0
    //        --->  H-register,  0
    //        --->  Mask register
    rxr_writeByte(rig, 0x60 | (0x0F & (char)(numSteps)));

    //Execute routine
    //Set all Set all receiver parameters from current memory values
    rxr_writeByte(rig, 0x24);
    unlock(rig);          //Set UnLock Level
}

static void Execute_Routine_4_3(RIG *rig, char mp, char ad, int numSteps)
{
    setLock(rig, 1);      //Set Lock Level
    setMemPtr(rig, mp, ad);   //page, address
    rxr_writeByte(rig, 0x30 | (0x0F & (char)(numSteps >> 20)));
    rxr_writeByte(rig, 0x60 | (0x0F & (char)(numSteps >> 16)));
    rxr_writeByte(rig, 0x30 | (0x0F & (char)(numSteps >> 12)));
    rxr_writeByte(rig, 0x60 | (0x0F & (char)(numSteps >> 8)));
    rxr_writeByte(rig, 0x30 | (0x0F & (char)(numSteps >> 4)));
    rxr_writeByte(rig, 0x60 | (0x0F & (char)(numSteps)));

    //Execute routine
    //Set all Set all receiver parameters from current memory values
    rxr_writeByte(rig, 0x24);
    unlock(rig);          //Set UnLock Level
}

// Routine 5    Set audio   Setup audio controller from memory register values.
// currently not used
#if 0
static void Execute_Routine_5_1(RIG *rig, char mp, char ad, int numSteps)
{
    setLock(rig, 1);      //Set Lock Level
    setMemPtr(rig, mp, ad);   //page, address
    rxr_writeByte(rig, 0x30 | (0x0F & (char)(numSteps >> 4)));
    rxr_writeByte(rig, 0x60 | (0x0F & (char)(numSteps)));
    rxr_writeByte(rig, 0x25);
    unlock(rig);          //Set UnLock Level
}
#endif

// Routine 6    Set RF-IF   Setup RF Gain, IF Gain and AGC speed. Also sets Notch Filter and
//              Noise Blanker if these options are fitted.
static void Execute_Routine_6_1(RIG *rig, char mp, char ad, int numSteps)
{
    setLock(rig, 1);      //Set Lock Level
    setMemPtr(rig, mp, ad);   //page, address
    rxr_writeByte(rig, 0x30 | (0x0F & (char)(numSteps >> 4)));
    rxr_writeByte(rig, 0x60 | (0x0F & (char)(numSteps)));
    rxr_writeByte(rig, 0x26);
    unlock(rig);          //Set UnLock Level
}
// Routine 14   Read signal strength
// Transmits byte representing received signal strength (read from AGC voltage).
// Output is 8-bit binary in range 0 to 255.
static int Execute_Routine_14(RIG *rig)
{
    unsigned char response[1];
    unsigned char buf[] = {0x2e}; // Read command
    int retval;
    retval = write_block(&rig->state.rigport, (char *) buf, 1);

    if (retval != RIG_OK)
    {
        return retval;
    }

    retval = read_block(&rig->state.rigport, (char *) response, 1);

    if (retval != RIG_OK)
    {
        return retval;
    }

    return response[0];
}

// Operate button x
// Button codes :-
// 0 = None pressed 5 = RF-IF button
// 1 = Mode up button   6 = Memory button
// 2 = Mode down button 7 = * button
// 3 = Fast button  8 = Menu button
// 4 = Filter button    9 = Power button
static void Execute_Operate_button(RIG *rig, char button)
{
    // setLock(rig, 1);       //Set Lock Level
    rxr_writeByte(rig, 0xa0 | (0x0F & button));
    // unlock(rig);           //Set UnLock Level
}




static int ar7030_set_freq(RIG *rig, vfo_t vfo, freq_t freq)
{
    // frequ    Mem_Page=0   Address=1A
    // 3 bytes    24-bit tuned frequency, value is 376635.2228 / MHz
    freq = freq * .3766352228;

    if (freq < 0) {freq = 0;}

    if (freq > 12058624) {freq = 12058624;}

    Execute_Routine_4_3(rig, 0, 0x1a, freq);
    return RIG_OK;
}
static int ar7030_get_freq(RIG *rig, vfo_t vfo, freq_t *freq)
{
    // frequ    Mem_Page=0   Address=1A
    // 3 bytes    24-bit tuned frequency, value is 376635.2228 / MHz
    unsigned int frequ_i = 0;
    setMemPtr(rig, 0, 0x1a);
    frequ_i = (int)(rxr_readByte(rig) << 16);
    frequ_i = frequ_i + (int)(rxr_readByte(rig) << 8);
    frequ_i = frequ_i + (int)(rxr_readByte(rig));
    *freq = ((float)(frequ_i) * 2.65508890157896);
    return RIG_OK;
}


/*!
Current mode :-
        RIG_MODE_NONE =     0,  < None
1 = AM      RIG_MODE_AM =       (1<<0), < Amplitude Modulation
5 = CW      RIG_MODE_CW =       (1<<1), < CW
7 = USB     RIG_MODE_USB =      (1<<2), < Upper Side Band
6 = LSB     RIG_MODE_LSB =      (1<<3), < Lower Side Band
4 = Data    RIG_MODE_RTTY =     (1<<4), < Remote Teletype
3 = NFM     RIG_MODE_FM =       (1<<5), < "narrow" band FM
        RIG_MODE_WFM =      (1<<6), < broadcast wide FM
        RIG_MODE_CWR =      (1<<7), < CW reverse sideband
        RIG_MODE_RTTYR =    (1<<8), < RTTY reverse sideband
2 = Sync    RIG_MODE_AMS =      (1<<9), < Amplitude Modulation Synchronous
        RIG_MODE_PKTLSB =       (1<<10),< Packet/Digital LSB mode (dedicated port)
        RIG_MODE_PKTUSB =       (1<<11),< Packet/Digital USB mode (dedicated port)
        RIG_MODE_PKTFM =        (1<<12),< Packet/Digital FM mode (dedicated port)
        RIG_MODE_ECSSUSB =      (1<<13),< Exalted Carrier Single Sideband USB
        RIG_MODE_ECSSLSB =      (1<<14),< Exalted Carrier Single Sideband LSB
        RIG_MODE_FAX =          (1<<15) < Facsimile Mode
*/
static int ar7030_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width)
{
    int filter_num;

    // mode    Mem_Page=0   Address=1D
    // Current mode :- 1 = AM 4 = Data 2 = Sync 5 = CW 3 = NFM 6 = LSB 7 = USB.
    switch (mode)
    {
    case RIG_MODE_AM :
        Execute_Routine_4_1(rig, 0, 0x1d, 1);
        break;

    case RIG_MODE_AMS :
        Execute_Routine_4_1(rig, 0, 0x1d, 2);
        break;

    case RIG_MODE_FM :
        Execute_Routine_4_1(rig, 0, 0x1d, 3);
        break;

    case RIG_MODE_RTTY :
        Execute_Routine_4_1(rig, 0, 0x1d, 4);
        break;

    case RIG_MODE_CW :
        Execute_Routine_4_1(rig, 0, 0x1d, 5);
        break;

    case RIG_MODE_LSB :
        Execute_Routine_4_1(rig, 0, 0x1d, 6);
        break;

    case RIG_MODE_USB :
        Execute_Routine_4_1(rig, 0, 0x1d, 7);
        break;

    default :
        return -RIG_EINVAL;
    }

    if (RIG_PASSBAND_NOCHANGE == width) { return RIG_OK; }

    if (width == RIG_PASSBAND_NORMAL)
    {
        width = rig_passband_normal(rig, mode);
    }

    /*
     * pass-through values 1..6, as filter number
     * Otherwise find out filter number from passband width
     */
    if (width <= 6)
    {
        filter_num = width;
    }
    else
    {
        if (width <= 800)
        {
            filter_num = 1;
        }
        else if (width <= 2100)
        {
            filter_num = 2;
        }
        else if (width <= 3700)
        {
            filter_num = 3;
        }
        else if (width <= 5200)
        {
            filter_num = 4;
        }
        else if (width <= 9500)
        {
            filter_num = 5;
        }
        else
        {
            filter_num = 6;
        }
    }

    // filter    Mem_Page=0   Address=34
    // Current filter number (1 to 6).
    Execute_Routine_4_1(rig, 0, 0x34, filter_num);

    return RIG_OK;
}

static int ar7030_get_mode(RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width)
{
    // mode    Mem_Page=0   Address=1D
    // Current mode :- 1 = AM 4 = Data 2 = Sync 5 = CW 3 = NFM 6 = LSB 7 = USB.
    setMemPtr(rig, 0, 0x1d);

    switch (rxr_readByte(rig))
    {
    case 1:
        *mode = RIG_MODE_AM;
        break;

    case 2:
        *mode = RIG_MODE_AMS;
        break;

    case 3:
        *mode = RIG_MODE_FM;
        break;

    case 4:
        *mode = RIG_MODE_RTTY;
        break;

    case 5:
        *mode = RIG_MODE_CW;
        break;

    case 6:
        *mode = RIG_MODE_LSB;
        break;

    case 7:
        *mode = RIG_MODE_USB;
        break;

    default :
        return -RIG_EINVAL;
    }

    // fltbw    Mem_Page=0   Address=38
    // Filter bandwidth dezimal in Hz.
    // Filter bandwidth (2 BCD digits : x.x kHz).

    setMemPtr(rig, 0, 0x38);

    if ((*width = BCD_To_int(rig, rxr_readByte(rig)) * 100) < 0)
    {
        return -RIG_EINVAL;
    }

    return RIG_OK;

}


/*!
    RIG_LEVEL_NONE =    0,  < None
    RIG_LEVEL_PREAMP =  (1<<0), < Preamp, arg int (dB)
    RIG_LEVEL_ATT =     (1<<1), < Attenuator, arg int (dB)
    RIG_LEVEL_VOX =     (1<<2), < VOX delay, arg int (tenth of seconds)
af_vol  RIG_LEVEL_AF =      (1<<3), < Volume, arg float [0.0..1.0]
rfgain  RIG_LEVEL_RF =      (1<<4), < RF gain (not TX power), arg float [-0.4..0.0..0.1 > -40..0..10 dB]
sqlval  RIG_LEVEL_SQL =     (1<<5), < Squelch, arg float [0.0 .. 1.0]
    RIG_LEVEL_IF =      (1<<6), < IF, arg int (Hz)
    RIG_LEVEL_APF =     (1<<7), < APF, arg float [0.0 .. 1.0]
    RIG_LEVEL_NR =      (1<<8), < Noise Reduction, arg float [0.0 .. 1.0]
    RIG_LEVEL_PBT_IN =  (1<<9), < Twin PBT (inside), arg float [0.0 .. 1.0]
    RIG_LEVEL_PBT_OUT = (1<<10),< Twin PBT (outside), arg float [0.0 .. 1.0]
bfoval  RIG_LEVEL_CWPITCH = (1<<11),< CW pitch, arg int (Hz)
    RIG_LEVEL_RFPOWER = (1<<12),< RF Power, arg float [0.0 .. 1.0]
    RIG_LEVEL_MICGAIN = (1<<13),< MIC Gain, arg float [0.0 .. 1.0]
    RIG_LEVEL_KEYSPD =  (1<<14),< Key Speed, arg int (WPM)
    RIG_LEVEL_NOTCHF =  (1<<15),< Notch Freq., arg int (Hz)
    RIG_LEVEL_COMP =    (1<<16),< Compressor, arg float [0.0 .. 1.0]
agcspd  RIG_LEVEL_AGC =     (1<<17),< AGC, arg int (see enum agc_level_e)
                    Current AGC speed : 0 = Fast 2 = Slow 1 = Medium 3 = Off.
    RIG_LEVEL_BKINDL =  (1<<18),< BKin Delay, arg int (tenth of dots)
    RIG_LEVEL_BALANCE = (1<<19),< Balance (Dual Watch), arg float [0.0 .. 1.0]
    RIG_LEVEL_METER =   (1<<20),< Display meter, arg int (see enum meter_level_e)

    RIG_LEVEL_VOXGAIN = (1<<21),< VOX gain level, arg float [0.0 .. 1.0]
    RIG_LEVEL_VOXDELAY =          RIG_LEVEL_VOX,    < VOX delay, arg int (tenth of seconds)
    RIG_LEVEL_ANTIVOX = (1<<22),< anti-VOX level, arg float [0.0 .. 1.0]
    RIG_LEVEL_LINEOUT = (1<<23),< Lineout Volume, arg float [0.0 .. 1.0]

        < These ones are not settable
Rou.14  RIG_LEVEL_RAWSTR =  (1<<26),< Raw (A/D) value for signal strength, specific to each rig, arg int
    RIG_LEVEL_SQLSTAT = (1<<27),< SQL status, arg int (open=1/closed=0). Deprecated, use get_dcd
                      instead
    RIG_LEVEL_SWR =     (1<<28),< SWR, arg float
    RIG_LEVEL_ALC =     (1<<29),< ALC, arg float
smval   RIG_LEVEL_STRENGTH =    (1<<30) < Effective (calibrated) signal strength relative to S9, arg int(dB)
    RIG_LEVEL_BWC =     (1<<31) < Bandwidth Control, arg int (Hz)
*/
static int ar7030_set_level(RIG *rig, vfo_t vfo, setting_t level, value_t val)
{
    switch (level)
    {
    case RIG_LEVEL_AF :
        // af_vol    Mem_Page=0   Address=1E
        // Main channel volume (6-bits, values 15 to 63)
        val.f = (val.f * 50) + 15;

        if (val.f < 15) {val.f = 15;}

        if (val.f > 63) {val.f = 63;}

        Execute_Routine_4_1(rig, 0, 0x1e, val.f);
        return RIG_OK;

    case RIG_LEVEL_RF :
        // rfgain    Mem_Page=0   Address=30
        // Current RF gain setting (0 to 5) (0=max gain)
        val.f = ((val.f * 10) - 1) * -1;

        if (val.f < 0) {val.f = 0;}

        if (val.f > 5) {val.f = 5;}

        Execute_Routine_6_1(rig, 0, 0x30, val.f) ;
        return RIG_OK;

    case RIG_LEVEL_SQL :

        // sqlval    Mem_Page=0   Address=33
        // Squelch value (current setting)(values 0 to 150)
        if (val.f < 0) {val.f = 0;}

        if (val.f > 1) {val.f = 1;}

        Execute_Routine_6_1(rig, 0, 0x33, val.f * 150);
        return RIG_OK;

    case RIG_LEVEL_CWPITCH :
        // bfoval    Mem_Page=0   Address=36
        // BFO offset in Hz (x33.19Hz)(values -4248.320 to 4215.130kHz).
        val.i = val.i * 100 / 3319;

        if (val.i < -128) {val.i = -128;}

        if (val.i > 127) {val.i = 127;}

        Execute_Routine_3_1(rig, 0, 0x36, val.i);
        return RIG_OK;

    case RIG_LEVEL_AGC :

        //ar7030 agcspd 3 > RIG_AGC_OFF
        //                > RIG_AGC_SUPERFAST
        //ar7030 agcspd 0 > RIG_AGC_FAST
        //ar7030 agcspd 2 > RIG_AGC_SLOW
        //                > RIG_AGC_USER       /*!< user selectable */
        //ar7030 agcspd 1 > RIG_AGC_MEDIUM
        // agcspd    Mem_Page=0   Address=32
        // Current AGC speed : 0 = Fast 2 = Slow 1 = Medium 3 = Off
        switch (val.i)
        {
        case RIG_AGC_OFF:
            Execute_Routine_6_1(rig, 0, 0x32, 3);
            break;

        case RIG_AGC_SLOW:
            Execute_Routine_6_1(rig, 0, 0x32, 2);
            break;

        case RIG_AGC_MEDIUM:
            Execute_Routine_6_1(rig, 0, 0x32, 1);
            break;

        case RIG_AGC_FAST:
            Execute_Routine_6_1(rig, 0, 0x32, 0);
            break;

        default:
            return -RIG_EINVAL;
        }

        return RIG_OK;

    default :
        return -RIG_EINVAL;
    }
}

static int ar7030_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val)
{
    int smval1;
    int smval2;

    switch (level)
    {
    case RIG_LEVEL_AF :
        // af_vol    Mem_Page=0   Address=1E
        // Main channel volume (6-bits, values 15 to 63)
        setMemPtr(rig, 0, 0x1e);
        val->f = (float)(rxr_readByte(rig) - 15) / 50;
        return RIG_OK;

    case RIG_LEVEL_RF :
        // rfgain    Mem_Page=0   Address=30
        // Current RF gain setting (0 to 5) (0=max gain)
        setMemPtr(rig, 0, 0x30);
        val->f = (float)((rxr_readByte(rig) * -1) + 1) / 10;
        return RIG_OK;

    case RIG_LEVEL_SQL :
        // sqlval    Mem_Page=0   Address=33
        // Squelch value (current setting)(values 0 to 150)
        setMemPtr(rig, 0, 0x33);
        val->f = (float)rxr_readByte(rig) / 150;
        return RIG_OK;

    case RIG_LEVEL_CWPITCH :
        // bfoval    Mem_Page=0   Address=36
        // BFO offset in Hz (x33.19Hz)(values -4248.320 to 4215.130kHz).
        setMemPtr(rig, 0, 0x36);
        val->i = ((char)rxr_readByte(rig) * 3319) / 100;
        return RIG_OK;

    case RIG_LEVEL_AGC :
        //ar7030 agcspd 3 > RIG_AGC_OFF
        //                > RIG_AGC_SUPERFAST,
        //ar7030 agcspd 0 > RIG_AGC_FAST,
        //ar7030 agcspd 2 > RIG_AGC_SLOW
        //                > RIG_AGC_USER,
        //ar7030 agcspd 1 > RIG_AGC_MEDIUM
        // agcspd    Mem_Page=0   Address=32
        // Current AGC speed : 0 = Fast 2 = Slow 1 = Medium 3 = Off
        setMemPtr(rig, 0, 0x32);

        switch (rxr_readByte(rig))
        {
        case 0:
            val->i = RIG_AGC_FAST;
            break;

        case 1:
            val->i = RIG_AGC_MEDIUM;
            break;

        case 2:
            val->i = RIG_AGC_SLOW;
            break;

        case 3:
            val->i = RIG_AGC_OFF;
            break;

        default:
            return -RIG_EINVAL;
        }

        return RIG_OK;

//    case RIG_LEVEL_LINEOUT :
// geht nicht in hamlib
//      // af_axl    Mem_Page=0   Address=23   Bit=0 - 5
//      setMemPtr(rig ,0 ,0x23);
//      val->f = ((float)(rxr_readByte(rig) - 27) * 2) / 100;
//      // af_axr    Mem_Page=0   Address=24   Bit=0 - 5
//      return RIG_OK;

    case RIG_LEVEL_RAWSTR :
        // Routine 14  Read signal strength
        // Read signal strength Transmits byte representing received signal strength
        // (read from AGC voltage). Output is 8-bit binary in range 0 to 255
        val->i = Execute_Routine_14(rig);
        return RIG_OK;

    case RIG_LEVEL_STRENGTH :
        // smval    Mem_Page=0   Address=3F - 40
        // 2 bytes Last S-meter reading (bars + segments)
        setMemPtr(rig, 0, 0x3f);
        smval1 = (unsigned char)rxr_readByte(rig);
        smval2 = (unsigned char)rxr_readByte(rig);

        if (smval1 < 9)
        {
            val->i = (smval1 * 6 + smval2) - 127;
        }
        else if (smval1 < 11)
        {
            /* int ops => int result => round has no effect (besides compiler warning */
            //val->i = round((smval1 * 6 + smval2) * 10 / 12) - 118;
            val->i = ((smval1 * 6 + smval2) * 10 / 12) - 118;
        }
        else
        {
            /* int ops => int result => round has no effect (besides compiler warning */
            //val->i = round((smval1 * 6 + smval2) * 10 / 6) - 173;
            val->i = ((smval1 * 6 + smval2) * 10 / 6) - 173;
        }

        return RIG_OK;

    default :
        return -RIG_EINVAL;
    }
}

static int ar7030_set_powerstat(RIG *rig, powerstat_t status)
{
    // Radio power state.
    // 0 > RIG_POWER_OFF      Power off
    // 1 > RIG_POWER_ON       Power on
    // 2 > RIG_POWER_STANDBY  Standby
    switch (status)
    {

    case RIG_POWER_OFF:
        // Operate button 9 = Power button
        Execute_Operate_button(rig, 9);
        return RIG_OK;

    case RIG_POWER_ON:
        // Operate button 0 = None pressed
        Execute_Operate_button(rig, 0);
        return RIG_OK;

    default:
        break;
    }

    return -RIG_EINVAL;
}

static int ar7030_get_powerstat(RIG *rig, powerstat_t *status)
{
    // power    Mem_Page=0   Address=2E   Bit=0 - 0
    // Power on
    setMemPtr(rig, 0, 0x2e);
    *status = (char)rxr_readByte(rig) & 0x01;
    return RIG_OK;
}

static int ar7030_reset(RIG *rig, reset_t reset)
{
    // Reset operation.
    // 0 > RIG_RESET_NONE    No reset
    // 1 > RIG_RESET_SOFT    Software reset
    // 2 > RIG_RESET_VFO     VFO reset
    // 3 > RIG_RESET_MCALL   Memory clear
    // 4 > RIG_RESET_MASTER  Master reset
    switch (reset)
    {

    // Routine 0  Reset  Setup receiver as at switch-on.
    case RIG_RESET_SOFT :
        Execute_Routine_0(rig) ;
        return RIG_OK;

    default:
        break;
    }

    return -RIG_EINVAL;
}












const struct rig_caps ar7030_caps =
{
    .rig_model =  RIG_MODEL_AR7030,
    .model_name = "AR7030",
    .mfg_name =  "AOR",
    .version =  "0.4.1",
    .copyright =  "LGPL",
    .status =  RIG_STATUS_BETA,
    .rig_type =  RIG_TYPE_RECEIVER,
    .ptt_type =  RIG_PTT_NONE,
    .dcd_type =  RIG_DCD_NONE,
    .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,    /* TBC */
    .write_delay =  0,
    .post_write_delay =  0, //Device: /dev/ttyS0
//.post_write_delay =  85,  //Device: /dev/tts/USB0 < 85 sec timedout after 0 chars
    .timeout =  500,    /* 0.5 second */
    .retry =  0,
    .has_get_func =  AR7030_FUNC_ALL,
    .has_set_func =  AR7030_FUNC_ALL,
    .has_get_level =  AR7030_LEVEL,
    .has_set_level =  RIG_LEVEL_SET(AR7030_LEVEL),
    .has_get_parm =  AR7030_PARM,
    .has_set_parm =  RIG_PARM_NONE,
    .level_gran =  {
        [LVL_RAWSTR] = { .min = { .i = 0 }, .max = { .i = 255 } },
    },
    .parm_gran =  {},
    .ctcss_list =  NULL,
    .dcs_list =  NULL,
    .preamp =   { RIG_DBLST_END, },
    .attenuator =   { RIG_DBLST_END, },
    .max_rit =  Hz(0),
    .max_xit =  Hz(0),
    .max_ifshift =  Hz(0),
    .targetable_vfo =  0,
    .transceive =  RIG_TRN_OFF,
    .bank_qty =   0,
    .chan_desc_sz =  100,   /* FIXME */
    .vfo_ops =  AR7030_VFO_OPS,

    .chan_list =  { RIG_CHAN_END, },    /* FIXME: memory channel list: 1000 memories */

    .rx_range_list1 =  {
        {kHz(10), MHz(2600), AR7030_MODES, -1, -1, AR7030_VFO},
        RIG_FRNG_END,
    },
    .tx_range_list1 =  { RIG_FRNG_END, },

    .rx_range_list2 =  {
        {kHz(10), MHz(2600), AR7030_MODES, -1, -1, AR7030_VFO},
        RIG_FRNG_END,
    }, /* rx range */
    .tx_range_list2 =  { RIG_FRNG_END, },   /* no tx range, this is a scanner! */

    .tuning_steps =  {
        {AR7030_MODES, 50},
        {AR7030_MODES, 100},
        {AR7030_MODES, 200},
        {AR7030_MODES, 500},
        {AR7030_MODES, kHz(1)},
        {AR7030_MODES, kHz(2)},
        {AR7030_MODES, kHz(5)},
        {AR7030_MODES, kHz(6.25)},
        {AR7030_MODES, kHz(9)},
        {AR7030_MODES, kHz(10)},
        {AR7030_MODES, 12500},
        {AR7030_MODES, kHz(20)},
        {AR7030_MODES, kHz(25)},
        {AR7030_MODES, kHz(30)},
        {AR7030_MODES, kHz(50)},
        {AR7030_MODES, kHz(100)},
        {AR7030_MODES, kHz(200)},
        {AR7030_MODES, kHz(250)},
        {AR7030_MODES, kHz(500)},
//   {AR7030_MODES,0},  /* any tuning step */
        RIG_TS_END,
    },
    /* mode/filter list, .remember =  order matters! */
    .filters =  {
        /* mode/filter list, .remember =  order matters! */
        {RIG_MODE_SSB | RIG_MODE_CW, kHz(3)},
        {RIG_MODE_SSB | RIG_MODE_CW, kHz(0.8)}, /* narrow */
        {RIG_MODE_SSB, kHz(4.8)},   /* wide */
        {RIG_MODE_CW,  kHz(9.5)},   /* wide */
        {RIG_MODE_FM | RIG_MODE_AM, kHz(15)},
        {RIG_MODE_FM | RIG_MODE_AM, kHz(6)}, /* narrow */
        {RIG_MODE_FM | RIG_MODE_AM, kHz(30)}, /* wide */
        RIG_FLT_END,
    },

    .priv =  NULL,    /* priv */

//  .rig_init =     ar7030_init,
//  .rig_cleanup =  ar7030_cleanup,
//  .rig_open =     ar7030_open,
//  .rig_close =    ar7030_close,

    .set_freq =     ar7030_set_freq,
    .get_freq =     ar7030_get_freq,
    .set_mode =     ar7030_set_mode,
    .get_mode =     ar7030_get_mode,
//  .set_vfo =      ar7030_set_vfo,
//  .get_vfo =      ar7030_get_vfo,

    .set_powerstat =  ar7030_set_powerstat,
    .get_powerstat =  ar7030_get_powerstat,
    .set_level =    ar7030_set_level,
    .get_level =    ar7030_get_level,
//  .set_func =      ar7030_set_func,
//  .get_func =      ar7030_get_func,
//  .set_parm =      ar7030_set_parm,
//  .get_parm =      ar7030_get_parm,

//  .get_info =      ar7030_get_info,


//  .set_ptt =  ar7030_set_ptt,
//  .get_ptt =  ar7030_get_ptt,
//  .get_dcd =  ar7030_get_dcd,
//  .set_rptr_shift =   ar7030_set_rptr_shift,
//  .get_rptr_shift =   ar7030_get_rptr_shift,
//  .set_rptr_offs =    ar7030_set_rptr_offs,
//  .get_rptr_offs =    ar7030_get_rptr_offs,
//  .set_ctcss_tone =   ar7030_set_ctcss_tone,
//  .get_ctcss_tone =   ar7030_get_ctcss_tone,
//  .set_dcs_code =     ar7030_set_dcs_code,
//  .get_dcs_code =     ar7030_get_dcs_code,
//  .set_ctcss_sql =    ar7030_set_ctcss_sql,
//  .get_ctcss_sql =    ar7030_get_ctcss_sql,
//  .set_dcs_sql =  ar7030_set_dcs_sql,
//  .get_dcs_sql =  ar7030_get_dcs_sql,
//  .set_split_freq =   ar7030_set_split_freq,
//  .get_split_freq =   ar7030_get_split_freq,
//  .set_split_mode =   ar7030_set_split_mode,
//  .get_split_mode =   ar7030_get_split_mode,
//  .set_split_vfo =    ar7030_set_split_vfo,
//  .get_split_vfo =    ar7030_get_split_vfo,
//  .set_rit =  ar7030_set_rit,
//  .get_rit =  ar7030_get_rit,
//  .set_xit =  ar7030_set_xit,
//  .get_xit =  ar7030_get_xit,
//  .set_ts =   ar7030_set_ts,
//  .get_ts =   ar7030_get_ts,
//  .set_ant =  ar7030_set_ant,
//  .get_ant =  ar7030_get_ant,
//  .set_bank =     ar7030_set_bank,
//  .set_mem =  ar7030_set_mem,
//  .get_mem =  ar7030_get_mem,
//  .vfo_op =   ar7030_vfo_op,
//  .scan =         ar7030_scan,
//  .send_dtmf =  ar7030_send_dtmf,
//  .recv_dtmf =  ar7030_recv_dtmf,
//  .send_morse =  ar7030_send_morse,
    .reset =  ar7030_reset,
//  .set_channel =  ar7030_set_channel,
//  .get_channel =  ar7030_get_channel,
//  .set_trn =  ar7030_set_trn,
//  .get_trn =  ar7030_get_trn,
};