hw/zaurus.c

   1 /*
   2  * Copyright (c) 2006-2008 Openedhand Ltd.
   3  * Written by Andrzej Zaborowski <balrog@zabor.org>
   4  *
   5  * This program is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU General Public License as
   7  * published by the Free Software Foundation; either version 2 or
   8  * (at your option) version 3 of the License.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License along
  16  * with this program; if not, see <http://www.gnu.org/licenses/>.
  17  */
  18 #include "hw/hw.h"
  19 #include "hw/sharpsl.h"
  20 #include "hw/sysbus.h"
  21
  22 #undef REG_FMT
  23 #define REG_FMT                 "0x%02lx"
  24
  25 /* SCOOP devices */
  26
  27 typedef struct ScoopInfo ScoopInfo;
  28 struct ScoopInfo {
  29     SysBusDevice busdev;
  30     qemu_irq handler[16];
  31     MemoryRegion iomem;
  32     uint16_t status;
  33     uint16_t power;
  34     uint32_t gpio_level;
  35     uint32_t gpio_dir;
  36     uint32_t prev_level;
  37
  38     uint16_t mcr;
  39     uint16_t cdr;
  40     uint16_t ccr;
  41     uint16_t irr;
  42     uint16_t imr;
  43     uint16_t isr;
  44 };
  45
  46 #define SCOOP_MCR       0x00
  47 #define SCOOP_CDR       0x04
  48 #define SCOOP_CSR       0x08
  49 #define SCOOP_CPR       0x0c
  50 #define SCOOP_CCR       0x10
  51 #define SCOOP_IRR_IRM   0x14
  52 #define SCOOP_IMR       0x18
  53 #define SCOOP_ISR       0x1c
  54 #define SCOOP_GPCR      0x20
  55 #define SCOOP_GPWR      0x24
  56 #define SCOOP_GPRR      0x28
  57
  58 static inline void scoop_gpio_handler_update(ScoopInfo *s) {
  59     uint32_t level, diff;
  60     int bit;
  61     level = s->gpio_level & s->gpio_dir;
  62
  63     for (diff = s->prev_level ^ level; diff; diff ^= 1 << bit) {
  64         bit = ffs(diff) - 1;
  65         qemu_set_irq(s->handler[bit], (level >> bit) & 1);
  66     }
  67
  68     s->prev_level = level;
  69 }
  70
  71 static uint64_t scoop_read(void *opaque, hwaddr addr,
  72                            unsigned size)
  73 {
  74     ScoopInfo *s = (ScoopInfo *) opaque;
  75
  76     switch (addr & 0x3f) {
  77     case SCOOP_MCR:
  78         return s->mcr;
  79     case SCOOP_CDR:
  80         return s->cdr;
  81     case SCOOP_CSR:
  82         return s->status;
  83     case SCOOP_CPR:
  84         return s->power;
  85     case SCOOP_CCR:
  86         return s->ccr;
  87     case SCOOP_IRR_IRM:
  88         return s->irr;
  89     case SCOOP_IMR:
  90         return s->imr;
  91     case SCOOP_ISR:
  92         return s->isr;
  93     case SCOOP_GPCR:
  94         return s->gpio_dir;
  95     case SCOOP_GPWR:
  96     case SCOOP_GPRR:
  97         return s->gpio_level;
  98     default:
  99         zaurus_printf("Bad register offset " REG_FMT "\n", (unsigned long)addr);
 100     }
 101
 102     return 0;
 103 }
 104
 105 static void scoop_write(void *opaque, hwaddr addr,
 106                         uint64_t value, unsigned size)
 107 {
 108     ScoopInfo *s = (ScoopInfo *) opaque;
 109     value &= 0xffff;
 110
 111     switch (addr & 0x3f) {
 112     case SCOOP_MCR:
 113         s->mcr = value;
 114         break;
 115     case SCOOP_CDR:
 116         s->cdr = value;
 117         break;
 118     case SCOOP_CPR:
 119         s->power = value;
 120         if (value & 0x80)
 121             s->power |= 0x8040;
 122         break;
 123     case SCOOP_CCR:
 124         s->ccr = value;
 125         break;
 126     case SCOOP_IRR_IRM:
 127         s->irr = value;
 128         break;
 129     case SCOOP_IMR:
 130         s->imr = value;
 131         break;
 132     case SCOOP_ISR:
 133         s->isr = value;
 134         break;
 135     case SCOOP_GPCR:
 136         s->gpio_dir = value;
 137         scoop_gpio_handler_update(s);
 138         break;
 139     case SCOOP_GPWR:
 140     case SCOOP_GPRR:    /* GPRR is probably R/O in real HW */
 141         s->gpio_level = value & s->gpio_dir;
 142         scoop_gpio_handler_update(s);
 143         break;
 144     default:
 145         zaurus_printf("Bad register offset " REG_FMT "\n", (unsigned long)addr);
 146     }
 147 }
 148
 149 static const MemoryRegionOps scoop_ops = {
 150     .read = scoop_read,
 151     .write = scoop_write,
 152     .endianness = DEVICE_NATIVE_ENDIAN,
 153 };
 154
 155 static void scoop_gpio_set(void *opaque, int line, int level)
 156 {
 157     ScoopInfo *s = (ScoopInfo *) opaque;
 158
 159     if (level)
 160         s->gpio_level |= (1 << line);
 161     else
 162         s->gpio_level &= ~(1 << line);
 163 }
 164
 165 static int scoop_init(SysBusDevice *dev)
 166 {
 167     ScoopInfo *s = FROM_SYSBUS(ScoopInfo, dev);
 168
 169     s->status = 0x02;
 170     qdev_init_gpio_out(&s->busdev.qdev, s->handler, 16);
 171     qdev_init_gpio_in(&s->busdev.qdev, scoop_gpio_set, 16);
 172     memory_region_init_io(&s->iomem, &scoop_ops, s, "scoop", 0x1000);
 173
 174     sysbus_init_mmio(dev, &s->iomem);
 175
 176     return 0;
 177 }
 178
 179 static int scoop_post_load(void *opaque, int version_id)
 180 {
 181     ScoopInfo *s = (ScoopInfo *) opaque;
 182     int i;
 183     uint32_t level;
 184
 185     level = s->gpio_level & s->gpio_dir;
 186
 187     for (i = 0; i < 16; i++) {
 188         qemu_set_irq(s->handler[i], (level >> i) & 1);
 189     }
 190
 191     s->prev_level = level;
 192
 193     return 0;
 194 }
 195
 196 static bool is_version_0 (void *opaque, int version_id)
 197 {
 198     return version_id == 0;
 199 }
 200
 201 static const VMStateDescription vmstate_scoop_regs = {
 202     .name = "scoop",
 203     .version_id = 1,
 204     .minimum_version_id = 0,
 205     .minimum_version_id_old = 0,
 206     .post_load = scoop_post_load,
 207     .fields = (VMStateField []) {
 208         VMSTATE_UINT16(status, ScoopInfo),
 209         VMSTATE_UINT16(power, ScoopInfo),
 210         VMSTATE_UINT32(gpio_level, ScoopInfo),
 211         VMSTATE_UINT32(gpio_dir, ScoopInfo),
 212         VMSTATE_UINT32(prev_level, ScoopInfo),
 213         VMSTATE_UINT16(mcr, ScoopInfo),
 214         VMSTATE_UINT16(cdr, ScoopInfo),
 215         VMSTATE_UINT16(ccr, ScoopInfo),
 216         VMSTATE_UINT16(irr, ScoopInfo),
 217         VMSTATE_UINT16(imr, ScoopInfo),
 218         VMSTATE_UINT16(isr, ScoopInfo),
 219         VMSTATE_UNUSED_TEST(is_version_0, 2),
 220         VMSTATE_END_OF_LIST(),
 221     },
 222 };
 223
 224 static Property scoop_sysbus_properties[] = {
 225     DEFINE_PROP_END_OF_LIST(),
 226 };
 227
 228 static void scoop_sysbus_class_init(ObjectClass *klass, void *data)
 229 {
 230     DeviceClass *dc = DEVICE_CLASS(klass);
 231     SysBusDeviceClass *k = SYS_BUS_DEVICE_CLASS(klass);
 232
 233     k->init = scoop_init;
 234     dc->desc = "Scoop2 Sharp custom ASIC";
 235     dc->vmsd = &vmstate_scoop_regs;
 236     dc->props = scoop_sysbus_properties;
 237 }
 238
 239 static const TypeInfo scoop_sysbus_info = {
 240     .name          = "scoop",
 241     .parent        = TYPE_SYS_BUS_DEVICE,
 242     .instance_size = sizeof(ScoopInfo),
 243     .class_init    = scoop_sysbus_class_init,
 244 };
 245
 246 static void scoop_register_types(void)
 247 {
 248     type_register_static(&scoop_sysbus_info);
 249 }
 250
 251 type_init(scoop_register_types)
 252
 253 /* Write the bootloader parameters memory area.  */
 254
 255 #define MAGIC_CHG(a, b, c, d)   ((d << 24) | (c << 16) | (b << 8) | a)
 256
 257 static struct QEMU_PACKED sl_param_info {
 258     uint32_t comadj_keyword;
 259     int32_t comadj;
 260
 261     uint32_t uuid_keyword;
 262     char uuid[16];
 263
 264     uint32_t touch_keyword;
 265     int32_t touch_xp;
 266     int32_t touch_yp;
 267     int32_t touch_xd;
 268     int32_t touch_yd;
 269
 270     uint32_t adadj_keyword;
 271     int32_t adadj;
 272
 273     uint32_t phad_keyword;
 274     int32_t phadadj;
 275 } zaurus_bootparam = {
 276     .comadj_keyword     = MAGIC_CHG('C', 'M', 'A', 'D'),
 277     .comadj             = 125,
 278     .uuid_keyword       = MAGIC_CHG('U', 'U', 'I', 'D'),
 279     .uuid               = { -1 },
 280     .touch_keyword      = MAGIC_CHG('T', 'U', 'C', 'H'),
 281     .touch_xp           = -1,
 282     .adadj_keyword      = MAGIC_CHG('B', 'V', 'A', 'D'),
 283     .adadj              = -1,
 284     .phad_keyword       = MAGIC_CHG('P', 'H', 'A', 'D'),
 285     .phadadj            = 0x01,
 286 };
 287
 288 void sl_bootparam_write(hwaddr ptr)
 289 {
 290     cpu_physical_memory_write(ptr, (void *)&zaurus_bootparam,
 291                               sizeof(struct sl_param_info));
 292 }