/* * QEMU NeXT Keyboard/Mouse emulation * * Copyright (c) 2011 Bryce Lanham * * Permission is hereby granted, free of charge, to any person obtaining a copy * of this software and associated documentation files (the "Software"), to deal * in the Software without restriction, including without limitation the rights * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell * copies of the Software, and to permit persons to whom the Software is * furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included in * all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN * THE SOFTWARE. */ /* * This is admittedly hackish, but works well enough for basic input. Mouse * support will be added once we can boot something that needs the mouse. */ #include "qemu/osdep.h" #include "qemu/log.h" #include "hw/sysbus.h" #include "hw/m68k/next-cube.h" #include "ui/console.h" #include "migration/vmstate.h" #include "qom/object.h" OBJECT_DECLARE_SIMPLE_TYPE(NextKBDState, NEXTKBD) /* following definitions from next68k netbsd */ #define CSR_INT 0x00800000 #define CSR_DATA 0x00400000 #define KD_KEYMASK 0x007f #define KD_DIRECTION 0x0080 /* pressed or released */ #define KD_CNTL 0x0100 #define KD_LSHIFT 0x0200 #define KD_RSHIFT 0x0400 #define KD_LCOMM 0x0800 #define KD_RCOMM 0x1000 #define KD_LALT 0x2000 #define KD_RALT 0x4000 #define KD_VALID 0x8000 /* only set for scancode keys ? */ #define KD_MODS 0x4f00 #define KBD_QUEUE_SIZE 256 typedef struct { uint8_t data[KBD_QUEUE_SIZE]; int rptr, wptr, count; } KBDQueue; struct NextKBDState { SysBusDevice sbd; MemoryRegion mr; KBDQueue queue; uint16_t shift; }; /* lots of magic numbers here */ static uint32_t kbd_read_byte(void *opaque, hwaddr addr) { switch (addr & 0x3) { case 0x0: /* 0xe000 */ return 0x80 | 0x20; case 0x1: /* 0xe001 */ return 0x80 | 0x40 | 0x20 | 0x10; case 0x2: /* 0xe002 */ /* returning 0x40 caused mach to hang */ return 0x10 | 0x2 | 0x1; default: qemu_log_mask(LOG_UNIMP, "NeXT kbd read byte %"HWADDR_PRIx"\n", addr); } return 0; } static uint32_t kbd_read_word(void *opaque, hwaddr addr) { qemu_log_mask(LOG_UNIMP, "NeXT kbd read word %"HWADDR_PRIx"\n", addr); return 0; } /* even more magic numbers */ static uint32_t kbd_read_long(void *opaque, hwaddr addr) { int key = 0; NextKBDState *s = NEXTKBD(opaque); KBDQueue *q = &s->queue; switch (addr & 0xf) { case 0x0: /* 0xe000 */ return 0xA0F09300; case 0x8: /* 0xe008 */ /* get keycode from buffer */ if (q->count > 0) { key = q->data[q->rptr]; if (++q->rptr == KBD_QUEUE_SIZE) { q->rptr = 0; } q->count--; if (s->shift) { key |= s->shift; } if (key & 0x80) { return 0; } else { return 0x10000000 | KD_VALID | key; } } else { return 0; } default: qemu_log_mask(LOG_UNIMP, "NeXT kbd read long %"HWADDR_PRIx"\n", addr); return 0; } } static uint64_t kbd_readfn(void *opaque, hwaddr addr, unsigned size) { switch (size) { case 1: return kbd_read_byte(opaque, addr); case 2: return kbd_read_word(opaque, addr); case 4: return kbd_read_long(opaque, addr); default: g_assert_not_reached(); } } static void kbd_writefn(void *opaque, hwaddr addr, uint64_t value, unsigned size) { qemu_log_mask(LOG_UNIMP, "NeXT kbd write: size=%u addr=0x%"HWADDR_PRIx "val=0x%"PRIx64"\n", size, addr, value); } static const MemoryRegionOps kbd_ops = { .read = kbd_readfn, .write = kbd_writefn, .valid.min_access_size = 1, .valid.max_access_size = 4, .endianness = DEVICE_NATIVE_ENDIAN, }; static const int qcode_to_nextkbd_keycode[] = { [Q_KEY_CODE_ESC] = 0x49, [Q_KEY_CODE_1] = 0x4a, [Q_KEY_CODE_2] = 0x4b, [Q_KEY_CODE_3] = 0x4c, [Q_KEY_CODE_4] = 0x4d, [Q_KEY_CODE_5] = 0x50, [Q_KEY_CODE_6] = 0x4f, [Q_KEY_CODE_7] = 0x4e, [Q_KEY_CODE_8] = 0x1e, [Q_KEY_CODE_9] = 0x1f, [Q_KEY_CODE_0] = 0x20, [Q_KEY_CODE_MINUS] = 0x1d, [Q_KEY_CODE_EQUAL] = 0x1c, [Q_KEY_CODE_BACKSPACE] = 0x1b, [Q_KEY_CODE_Q] = 0x42, [Q_KEY_CODE_W] = 0x43, [Q_KEY_CODE_E] = 0x44, [Q_KEY_CODE_R] = 0x45, [Q_KEY_CODE_T] = 0x48, [Q_KEY_CODE_Y] = 0x47, [Q_KEY_CODE_U] = 0x46, [Q_KEY_CODE_I] = 0x06, [Q_KEY_CODE_O] = 0x07, [Q_KEY_CODE_P] = 0x08, [Q_KEY_CODE_RET] = 0x2a, [Q_KEY_CODE_A] = 0x39, [Q_KEY_CODE_S] = 0x3a, [Q_KEY_CODE_D] = 0x3b, [Q_KEY_CODE_F] = 0x3c, [Q_KEY_CODE_G] = 0x3d, [Q_KEY_CODE_H] = 0x40, [Q_KEY_CODE_J] = 0x3f, [Q_KEY_CODE_K] = 0x3e, [Q_KEY_CODE_L] = 0x2d, [Q_KEY_CODE_SEMICOLON] = 0x2c, [Q_KEY_CODE_APOSTROPHE] = 0x2b, [Q_KEY_CODE_GRAVE_ACCENT] = 0x26, [Q_KEY_CODE_Z] = 0x31, [Q_KEY_CODE_X] = 0x32, [Q_KEY_CODE_C] = 0x33, [Q_KEY_CODE_V] = 0x34, [Q_KEY_CODE_B] = 0x35, [Q_KEY_CODE_N] = 0x37, [Q_KEY_CODE_M] = 0x36, [Q_KEY_CODE_COMMA] = 0x2e, [Q_KEY_CODE_DOT] = 0x2f, [Q_KEY_CODE_SLASH] = 0x30, [Q_KEY_CODE_SPC] = 0x38, }; static void nextkbd_put_keycode(NextKBDState *s, int keycode) { KBDQueue *q = &s->queue; if (q->count >= KBD_QUEUE_SIZE) { return; } q->data[q->wptr] = keycode; if (++q->wptr == KBD_QUEUE_SIZE) { q->wptr = 0; } q->count++; /* * might need to actually trigger the NeXT irq, but as the keyboard works * at the moment, I'll worry about it later */ /* s->update_irq(s->update_arg, 1); */ } static void nextkbd_event(DeviceState *dev, QemuConsole *src, InputEvent *evt) { NextKBDState *s = NEXTKBD(dev); int qcode, keycode; bool key_down = evt->u.key.data->down; qcode = qemu_input_key_value_to_qcode(evt->u.key.data->key); if (qcode >= ARRAY_SIZE(qcode_to_nextkbd_keycode)) { return; } /* Shift key currently has no keycode, so handle separately */ if (qcode == Q_KEY_CODE_SHIFT) { if (key_down) { s->shift |= KD_LSHIFT; } else { s->shift &= ~KD_LSHIFT; } } if (qcode == Q_KEY_CODE_SHIFT_R) { if (key_down) { s->shift |= KD_RSHIFT; } else { s->shift &= ~KD_RSHIFT; } } keycode = qcode_to_nextkbd_keycode[qcode]; if (!keycode) { return; } /* If key release event, create keyboard break code */ if (!key_down) { keycode |= 0x80; } nextkbd_put_keycode(s, keycode); } static const QemuInputHandler nextkbd_handler = { .name = "QEMU NeXT Keyboard", .mask = INPUT_EVENT_MASK_KEY, .event = nextkbd_event, }; static void nextkbd_reset(DeviceState *dev) { NextKBDState *nks = NEXTKBD(dev); memset(&nks->queue, 0, sizeof(KBDQueue)); nks->shift = 0; } static void nextkbd_realize(DeviceState *dev, Error **errp) { NextKBDState *s = NEXTKBD(dev); memory_region_init_io(&s->mr, OBJECT(dev), &kbd_ops, s, "next.kbd", 0x1000); sysbus_init_mmio(SYS_BUS_DEVICE(dev), &s->mr); qemu_input_handler_register(dev, &nextkbd_handler); } static const VMStateDescription nextkbd_vmstate = { .name = TYPE_NEXTKBD, .unmigratable = 1, /* TODO: Implement this when m68k CPU is migratable */ }; static void nextkbd_class_init(ObjectClass *oc, void *data) { DeviceClass *dc = DEVICE_CLASS(oc); set_bit(DEVICE_CATEGORY_INPUT, dc->categories); dc->vmsd = &nextkbd_vmstate; dc->realize = nextkbd_realize; device_class_set_legacy_reset(dc, nextkbd_reset); } static const TypeInfo nextkbd_info = { .name = TYPE_NEXTKBD, .parent = TYPE_SYS_BUS_DEVICE, .instance_size = sizeof(NextKBDState), .class_init = nextkbd_class_init, }; static void nextkbd_register_types(void) { type_register_static(&nextkbd_info); } type_init(nextkbd_register_types)