source/src/vm/m5/keyboard.cpp

   1 /*
   2         SORD m5 Emulator 'Emu5'
   3
   4         Author : Takeda.Toshiya
   5         Date   : 2006.08.18 -
   6
   7         [ keyboard ]
   8 */
   9
  10 #include "keyboard.h"
  11
  12 static const int key_map[7][8] = {
  13         // back-space (0x08): reset/halt key
  14         {0x11, 0x09, 0x10, 0x10, 0x00, 0x00, 0x20, 0x0d},
  15         {0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38},
  16         {0x51, 0x57, 0x45, 0x52, 0x54, 0x59, 0x55, 0x49},
  17         {0x41, 0x53, 0x44, 0x46, 0x47, 0x48, 0x4a, 0x4b},
  18         {0x5a, 0x58, 0x43, 0x56, 0x42, 0x4e, 0x4d, 0xbc},
  19         {0x39, 0x30, 0xbd, 0xde, 0xbe, 0xbf, 0xe2, 0xdc},
  20         {0x4f, 0x50, 0xc0, 0xdb, 0x4c, 0xbb, 0xba, 0xdd}
  21 };
  22
  23 void KEYBOARD::initialize()
  24 {
  25         key_stat = emu->get_key_buffer();
  26         joy_stat = emu->get_joy_buffer();
  27 }
  28
  29 uint32 KEYBOARD::read_io8(uint32 addr)
  30 {
  31         uint32 val = 0;
  32
  33         switch(addr & 0xff) {
  34         case 0x30:
  35         case 0x32:
  36         case 0x33:
  37         case 0x34:
  38         case 0x35:
  39         case 0x36:
  40                 for(int i = 0; i < 8; i++) {
  41                         val |= key_stat[key_map[addr & 0xf][i]] ? (1 << i) : 0;
  42                 }
  43                 return val;
  44         case 0x31:
  45                 for(int i = 0; i < 8; i++) {
  46                         val |= key_stat[key_map[1][i]] ? (1 << i) : 0;
  47                 }
  48                 val |= (joy_stat[0] & 0x10) ? 0x01 : 0;
  49                 val |= (joy_stat[0] & 0x20) ? 0x02 : 0;
  50                 val |= (joy_stat[1] & 0x10) ? 0x10 : 0;
  51                 val |= (joy_stat[1] & 0x20) ? 0x20 : 0;
  52                 return val;
  53         case 0x37:
  54                 val |= (joy_stat[0] & 0x08) ? 0x01 : 0;
  55                 val |= (joy_stat[0] & 0x01) ? 0x02 : 0;
  56                 val |= (joy_stat[0] & 0x04) ? 0x04 : 0;
  57                 val |= (joy_stat[0] & 0x02) ? 0x08 : 0;
  58                 val |= (joy_stat[1] & 0x08) ? 0x10 : 0;
  59                 val |= (joy_stat[1] & 0x01) ? 0x20 : 0;
  60                 val |= (joy_stat[1] & 0x04) ? 0x40 : 0;
  61                 val |= (joy_stat[1] & 0x02) ? 0x80 : 0;
  62                 return val;
  63         }
  64         return 0xff;
  65 }
  66