Archipelago » qemu

/*

 * CBUS three-pin bus and the Retu / Betty / Tahvo / Vilma / Avilma /

 * Hinku / Vinku / Ahne / Pihi chips used in various Nokia platforms.

 * Based on reverse-engineering of a linux driver.

 *

 * Copyright (C) 2008 Nokia Corporation

 * Written by Andrzej Zaborowski <andrew@openedhand.com>

 *

 * This program is free software; you can redistribute it and/or

 * modify it under the terms of the GNU General Public License as

 * published by the Free Software Foundation; either version 2 or

 * (at your option) version 3 of the License.

 *

 * 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 General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License along

 * with this program; if not, write to the Free Software Foundation, Inc.,

 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

 */

#include "qemu-common.h"

#include "irq.h"

#include "devices.h"

#include "sysemu.h"

//#define DEBUG

typedef struct {

    void *opaque;

    void (*io)(void *opaque, int rw, int reg, uint16_t *val);

    int addr;

} CBusSlave;

typedef struct {

    CBus cbus;

    int sel;

    int dat;

    int clk;

    int bit;

    int dir;

    uint16_t val;

    qemu_irq dat_out;

    int addr;

    int reg;

    int rw;

    enum {

        cbus_address,

        cbus_value,

    } cycle;

    CBusSlave *slave[8];

} CBusPriv;

static void cbus_io(CBusPriv *s)

{

    if (s->slave[s->addr])

        s->slave[s->addr]->io(s->slave[s->addr]->opaque,

                        s->rw, s->reg, &s->val);

    else

        hw_error("%s: bad slave address %i\n", __FUNCTION__, s->addr);

}

static void cbus_cycle(CBusPriv *s)

{

    switch (s->cycle) {

    case cbus_address:

        s->addr = (s->val >> 6) & 7;

        s->rw =   (s->val >> 5) & 1;

        s->reg =  (s->val >> 0) & 0x1f;

        s->cycle = cbus_value;

        s->bit = 15;

        s->dir = !s->rw;

        s->val = 0;

        if (s->rw)

            cbus_io(s);

        break;

    case cbus_value:

        if (!s->rw)

            cbus_io(s);

        s->cycle = cbus_address;

        s->bit = 8;

        s->dir = 1;

        s->val = 0;

        break;

    }

}

static void cbus_clk(void *opaque, int line, int level)

{

    CBusPriv *s = (CBusPriv *) opaque;

    if (!s->sel && level && !s->clk) {

        if (s->dir)

            s->val |= s->dat << (s->bit --);

        else

            qemu_set_irq(s->dat_out, (s->val >> (s->bit --)) & 1);

        if (s->bit < 0)

            cbus_cycle(s);

    }

    s->clk = level;

}

static void cbus_dat(void *opaque, int line, int level)

{

    CBusPriv *s = (CBusPriv *) opaque;

    s->dat = level;

}

static void cbus_sel(void *opaque, int line, int level)

{

    CBusPriv *s = (CBusPriv *) opaque;

    if (!level) {

        s->dir = 1;

        s->bit = 8;

        s->val = 0;

    }

    s->sel = level;

}

CBus *cbus_init(qemu_irq dat)

{

    CBusPriv *s = (CBusPriv *) qemu_mallocz(sizeof(*s));

    s->dat_out = dat;

    s->cbus.clk = qemu_allocate_irqs(cbus_clk, s, 1)[0];

    s->cbus.dat = qemu_allocate_irqs(cbus_dat, s, 1)[0];

    s->cbus.sel = qemu_allocate_irqs(cbus_sel, s, 1)[0];

    s->sel = 1;

    s->clk = 0;

    s->dat = 0;

    return &s->cbus;

}

void cbus_attach(CBus *bus, void *slave_opaque)

{

    CBusSlave *slave = (CBusSlave *) slave_opaque;

    CBusPriv *s = (CBusPriv *) bus;

    s->slave[slave->addr] = slave;

}

/* Retu/Vilma */

typedef struct {

    uint16_t irqst;

    uint16_t irqen;

    uint16_t cc[2];

    int channel;

    uint16_t result[16];

    uint16_t sample;

    uint16_t status;

    struct {

        uint16_t cal;

    } rtc;

    int is_vilma;

    qemu_irq irq;

    CBusSlave cbus;

} CBusRetu;

static void retu_interrupt_update(CBusRetu *s)

{

    qemu_set_irq(s->irq, s->irqst & ~s->irqen);

}

#define RETU_REG_ASICR                0x00        /* (RO) ASIC ID & revision */

#define RETU_REG_IDR                0x01        /* (T)  Interrupt ID */

#define RETU_REG_IMR                0x02        /* (RW) Interrupt mask */

#define RETU_REG_RTCDSR                0x03        /* (RW) RTC seconds register */

#define RETU_REG_RTCHMR                0x04        /* (RO) RTC hours and minutes reg */

#define RETU_REG_RTCHMAR        0x05        /* (RW) RTC hours and minutes set reg */

#define RETU_REG_RTCCALR        0x06        /* (RW) RTC calibration register */

#define RETU_REG_ADCR                0x08        /* (RW) ADC result register */

#define RETU_REG_ADCSCR                0x09        /* (RW) ADC sample control register */

#define RETU_REG_AFCR                0x0a        /* (RW) AFC register */

#define RETU_REG_ANTIFR                0x0b        /* (RW) AntiF register */

#define RETU_REG_CALIBR                0x0c        /* (RW) CalibR register*/

#define RETU_REG_CCR1                0x0d        /* (RW) Common control register 1 */

#define RETU_REG_CCR2                0x0e        /* (RW) Common control register 2 */

#define RETU_REG_RCTRL_CLR        0x0f        /* (T)  Regulator clear register */

#define RETU_REG_RCTRL_SET        0x10        /* (T)  Regulator set register */

#define RETU_REG_TXCR                0x11        /* (RW) TxC register */

#define RETU_REG_STATUS                0x16        /* (RO) Status register */

#define RETU_REG_WATCHDOG        0x17        /* (RW) Watchdog register */

#define RETU_REG_AUDTXR                0x18        /* (RW) Audio Codec Tx register */

#define RETU_REG_AUDPAR                0x19        /* (RW) AudioPA register */

#define RETU_REG_AUDRXR1        0x1a        /* (RW) Audio receive register 1 */

#define RETU_REG_AUDRXR2        0x1b        /* (RW) Audio receive register 2 */

#define RETU_REG_SGR1                0x1c        /* (RW) */

#define RETU_REG_SCR1                0x1d        /* (RW) */

#define RETU_REG_SGR2                0x1e        /* (RW) */

#define RETU_REG_SCR2                0x1f        /* (RW) */

/* Retu Interrupt sources */

enum {

    retu_int_pwr        = 0,        /* Power button */

    retu_int_char        = 1,        /* Charger */

    retu_int_rtcs        = 2,        /* Seconds */

    retu_int_rtcm        = 3,        /* Minutes */

    retu_int_rtcd        = 4,        /* Days */

    retu_int_rtca        = 5,        /* Alarm */

    retu_int_hook        = 6,        /* Hook */

    retu_int_head        = 7,        /* Headset */

    retu_int_adcs        = 8,        /* ADC sample */

};

/* Retu ADC channel wiring */

enum {

    retu_adc_bsi        = 1,        /* BSI */

    retu_adc_batt_temp        = 2,        /* Battery temperature */

    retu_adc_chg_volt        = 3,        /* Charger voltage */

    retu_adc_head_det        = 4,        /* Headset detection */

    retu_adc_hook_det        = 5,        /* Hook detection */

    retu_adc_rf_gp        = 6,        /* RF GP */

    retu_adc_tx_det        = 7,        /* Wideband Tx detection */

    retu_adc_batt_volt        = 8,        /* Battery voltage */

    retu_adc_sens        = 10,        /* Light sensor */

    retu_adc_sens_temp        = 11,        /* Light sensor temperature */

    retu_adc_bbatt_volt        = 12,        /* Backup battery voltage */

    retu_adc_self_temp        = 13,        /* RETU temperature */

};

static inline uint16_t retu_read(CBusRetu *s, int reg)

{

#ifdef DEBUG

    printf("RETU read at %02x\n", reg);

#endif

    switch (reg) {

    case RETU_REG_ASICR:

        return 0x0215 | (s->is_vilma << 7);

    case RETU_REG_IDR:        /* TODO: Or is this ffs(s->irqst)?  */

        return s->irqst;

    case RETU_REG_IMR:

        return s->irqen;

    case RETU_REG_RTCDSR:

    case RETU_REG_RTCHMR:

    case RETU_REG_RTCHMAR:

        /* TODO */

        return 0x0000;

    case RETU_REG_RTCCALR:

        return s->rtc.cal;

    case RETU_REG_ADCR:

        return (s->channel << 10) | s->result[s->channel];

    case RETU_REG_ADCSCR:

        return s->sample;

    case RETU_REG_AFCR:

    case RETU_REG_ANTIFR:

    case RETU_REG_CALIBR:

        /* TODO */

        return 0x0000;

    case RETU_REG_CCR1:

        return s->cc[0];

    case RETU_REG_CCR2:

        return s->cc[1];

    case RETU_REG_RCTRL_CLR:

    case RETU_REG_RCTRL_SET:

    case RETU_REG_TXCR:

        /* TODO */

        return 0x0000;

    case RETU_REG_STATUS:

        return s->status;

    case RETU_REG_WATCHDOG:

    case RETU_REG_AUDTXR:

    case RETU_REG_AUDPAR:

    case RETU_REG_AUDRXR1:

    case RETU_REG_AUDRXR2:

    case RETU_REG_SGR1:

    case RETU_REG_SCR1:

    case RETU_REG_SGR2:

    case RETU_REG_SCR2:

        /* TODO */

        return 0x0000;

    default:

        hw_error("%s: bad register %02x\n", __FUNCTION__, reg);

    }

}

static inline void retu_write(CBusRetu *s, int reg, uint16_t val)

{

#ifdef DEBUG

    printf("RETU write of %04x at %02x\n", val, reg);

#endif

    switch (reg) {

    case RETU_REG_IDR:

        s->irqst ^= val;

        retu_interrupt_update(s);

        break;

    case RETU_REG_IMR:

        s->irqen = val;

        retu_interrupt_update(s);

        break;

    case RETU_REG_RTCDSR:

    case RETU_REG_RTCHMAR:

        /* TODO */

        break;

    case RETU_REG_RTCCALR:

        s->rtc.cal = val;

        break;

    case RETU_REG_ADCR:

        s->channel = (val >> 10) & 0xf;

        s->irqst |= 1 << retu_int_adcs;

        retu_interrupt_update(s);

        break;

    case RETU_REG_ADCSCR:

        s->sample &= ~val;

        break;

    case RETU_REG_AFCR:

    case RETU_REG_ANTIFR:

    case RETU_REG_CALIBR:

    case RETU_REG_CCR1:

        s->cc[0] = val;

        break;

    case RETU_REG_CCR2:

        s->cc[1] = val;

        break;

    case RETU_REG_RCTRL_CLR:

    case RETU_REG_RCTRL_SET:

        /* TODO */

        break;

    case RETU_REG_WATCHDOG:

        if (val == 0 && (s->cc[0] & 2))

            qemu_system_shutdown_request();

        break;

    case RETU_REG_TXCR:

    case RETU_REG_AUDTXR:

    case RETU_REG_AUDPAR:

    case RETU_REG_AUDRXR1:

    case RETU_REG_AUDRXR2:

    case RETU_REG_SGR1:

    case RETU_REG_SCR1:

    case RETU_REG_SGR2:

    case RETU_REG_SCR2:

        /* TODO */

        break;

    default:

        hw_error("%s: bad register %02x\n", __FUNCTION__, reg);

    }

}

static void retu_io(void *opaque, int rw, int reg, uint16_t *val)

{

    CBusRetu *s = (CBusRetu *) opaque;

    if (rw)

        *val = retu_read(s, reg);

    else

        retu_write(s, reg, *val);

}

void *retu_init(qemu_irq irq, int vilma)

{

    CBusRetu *s = (CBusRetu *) qemu_mallocz(sizeof(*s));

    s->irq = irq;

    s->irqen = 0xffff;

    s->irqst = 0x0000;

    s->status = 0x0020;

    s->is_vilma = !!vilma;

    s->rtc.cal = 0x01;

    s->result[retu_adc_bsi] = 0x3c2;

    s->result[retu_adc_batt_temp] = 0x0fc;

    s->result[retu_adc_chg_volt] = 0x165;

    s->result[retu_adc_head_det] = 123;

    s->result[retu_adc_hook_det] = 1023;

    s->result[retu_adc_rf_gp] = 0x11;

    s->result[retu_adc_tx_det] = 0x11;

    s->result[retu_adc_batt_volt] = 0x250;

    s->result[retu_adc_sens] = 2;

    s->result[retu_adc_sens_temp] = 0x11;

    s->result[retu_adc_bbatt_volt] = 0x3d0;

    s->result[retu_adc_self_temp] = 0x330;

    s->cbus.opaque = s;

    s->cbus.io = retu_io;

    s->cbus.addr = 1;

    return &s->cbus;

}

void retu_key_event(void *retu, int state)

{

    CBusSlave *slave = (CBusSlave *) retu;

    CBusRetu *s = (CBusRetu *) slave->opaque;

    s->irqst |= 1 << retu_int_pwr;

    retu_interrupt_update(s);

    if (state)

        s->status &= ~(1 << 5);

    else

        s->status |= 1 << 5;

}

#if 0

static void retu_head_event(void *retu, int state)

{

    CBusSlave *slave = (CBusSlave *) retu;

    CBusRetu *s = (CBusRetu *) slave->opaque;

    if ((s->cc[0] & 0x500) == 0x500) {        /* TODO: Which bits? */

        /* TODO: reissue the interrupt every 100ms or so.  */

        s->irqst |= 1 << retu_int_head;

        retu_interrupt_update(s);

    }

    if (state)

        s->result[retu_adc_head_det] = 50;

    else

        s->result[retu_adc_head_det] = 123;

}

static void retu_hook_event(void *retu, int state)

{

    CBusSlave *slave = (CBusSlave *) retu;

    CBusRetu *s = (CBusRetu *) slave->opaque;

    if ((s->cc[0] & 0x500) == 0x500) {

        /* TODO: reissue the interrupt every 100ms or so.  */

        s->irqst |= 1 << retu_int_hook;

        retu_interrupt_update(s);

    }

    if (state)

        s->result[retu_adc_hook_det] = 50;

    else

        s->result[retu_adc_hook_det] = 123;

}

#endif

/* Tahvo/Betty */

typedef struct {

    uint16_t irqst;

    uint16_t irqen;

    uint8_t charger;

    uint8_t backlight;

    uint16_t usbr;

    uint16_t power;

    int is_betty;

    qemu_irq irq;

    CBusSlave cbus;

} CBusTahvo;

static void tahvo_interrupt_update(CBusTahvo *s)

{

    qemu_set_irq(s->irq, s->irqst & ~s->irqen);

}

#define TAHVO_REG_ASICR                0x00        /* (RO) ASIC ID & revision */

#define TAHVO_REG_IDR                0x01        /* (T)  Interrupt ID */

#define TAHVO_REG_IDSR                0x02        /* (RO) Interrupt status */

#define TAHVO_REG_IMR                0x03        /* (RW) Interrupt mask */

#define TAHVO_REG_CHAPWMR        0x04        /* (RW) Charger PWM */

#define TAHVO_REG_LEDPWMR        0x05        /* (RW) LED PWM */

#define TAHVO_REG_USBR                0x06        /* (RW) USB control */

#define TAHVO_REG_RCR                0x07        /* (RW) Some kind of power management */

#define TAHVO_REG_CCR1                0x08        /* (RW) Common control register 1 */

#define TAHVO_REG_CCR2                0x09        /* (RW) Common control register 2 */

#define TAHVO_REG_TESTR1        0x0a        /* (RW) Test register 1 */

#define TAHVO_REG_TESTR2        0x0b        /* (RW) Test register 2 */

#define TAHVO_REG_NOPR                0x0c        /* (RW) Number of periods */

#define TAHVO_REG_FRR                0x0d        /* (RO) FR */

static inline uint16_t tahvo_read(CBusTahvo *s, int reg)

{

#ifdef DEBUG

    printf("TAHVO read at %02x\n", reg);

#endif

    switch (reg) {

    case TAHVO_REG_ASICR:

        return 0x0021 | (s->is_betty ? 0x0b00 : 0x0300);        /* 22 in N810 */

    case TAHVO_REG_IDR:

    case TAHVO_REG_IDSR:        /* XXX: what does this do?  */

        return s->irqst;

    case TAHVO_REG_IMR:

        return s->irqen;

    case TAHVO_REG_CHAPWMR:

        return s->charger;

    case TAHVO_REG_LEDPWMR:

        return s->backlight;

    case TAHVO_REG_USBR:

        return s->usbr;

    case TAHVO_REG_RCR:

        return s->power;

    case TAHVO_REG_CCR1:

    case TAHVO_REG_CCR2:

    case TAHVO_REG_TESTR1:

    case TAHVO_REG_TESTR2:

    case TAHVO_REG_NOPR:

    case TAHVO_REG_FRR:

        return 0x0000;

    default:

        hw_error("%s: bad register %02x\n", __FUNCTION__, reg);

    }

}

static inline void tahvo_write(CBusTahvo *s, int reg, uint16_t val)

{

#ifdef DEBUG

    printf("TAHVO write of %04x at %02x\n", val, reg);

#endif

    switch (reg) {

    case TAHVO_REG_IDR:

        s->irqst ^= val;

        tahvo_interrupt_update(s);

        break;

    case TAHVO_REG_IMR:

        s->irqen = val;

        tahvo_interrupt_update(s);

        break;

    case TAHVO_REG_CHAPWMR:

        s->charger = val;

        break;

    case TAHVO_REG_LEDPWMR:

        if (s->backlight != (val & 0x7f)) {

            s->backlight = val & 0x7f;

            printf("%s: LCD backlight now at %i / 127\n",

                            __FUNCTION__, s->backlight);

        }

        break;

    case TAHVO_REG_USBR:

        s->usbr = val;

        break;

    case TAHVO_REG_RCR:

        s->power = val;

        break;

    case TAHVO_REG_CCR1:

    case TAHVO_REG_CCR2:

    case TAHVO_REG_TESTR1:

    case TAHVO_REG_TESTR2:

    case TAHVO_REG_NOPR:

    case TAHVO_REG_FRR:

        break;

    default:

        hw_error("%s: bad register %02x\n", __FUNCTION__, reg);

    }

}

static void tahvo_io(void *opaque, int rw, int reg, uint16_t *val)

{

    CBusTahvo *s = (CBusTahvo *) opaque;

    if (rw)

        *val = tahvo_read(s, reg);

    else

        tahvo_write(s, reg, *val);

}

void *tahvo_init(qemu_irq irq, int betty)

{

    CBusTahvo *s = (CBusTahvo *) qemu_mallocz(sizeof(*s));

    s->irq = irq;

    s->irqen = 0xffff;

    s->irqst = 0x0000;

    s->is_betty = !!betty;

    s->cbus.opaque = s;

    s->cbus.io = tahvo_io;

    s->cbus.addr = 2;

    return &s->cbus;

}