source/src/vm/pc8201/keyboard.cpp

   1 /*
   2         NEC PC-8201 Emulator 'ePC-8201'
   3
   4         Author : Takeda.Toshiya
   5         Date   : 2009.03.31-
   6
   7         [ keyboard ]
   8 */
   9
  10 #include "keyboard.h"
  11
  12 namespace PC8201 {
  13
  14 static const int key_map[9][8] = {
  15         {0x5a, 0x58, 0x43, 0x56, 0x42, 0x4e, 0x4d, 0x4c},       //      Z       X       C       V       B       N       M       L
  16         {0x41, 0x53, 0x44, 0x46, 0x47, 0x48, 0x4a, 0x4b},       //      A       S       D       F       G       H       J       K
  17         {0x51, 0x57, 0x45, 0x52, 0x54, 0x59, 0x55, 0x49},       //      G       W       E       R       T       Y       U       I
  18 #ifdef _PC8201A
  19         // thanks apaslothy!
  20         {0x4f, 0x50, 0xbb, 0xdc, 0xbc, 0xbe, 0xbf, 0xdd},       //      O       P       =       \       ,       .       /       ]
  21         {0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38},       //      1       2       3       4       5       6       7       8
  22         {0x39, 0x30, 0xba, 0xde, 0xbd, 0xdb, 0x20, 0x2d},       //      9       0       ;       '       -       [       SPACE   INS
  23         {0x08, 0x26, 0x28, 0x25, 0x27, 0x09, 0x1b, 0x0d},       //      DEL     UP      DOWN    LEFT    RIGHT   TAB     ESC     RET
  24 #else
  25         {0x4f, 0x50, 0xc0, 0xdc, 0xbc, 0xbe, 0xbf, 0xde},       //      O       P       @       \       ,       .       /       ^
  26         {0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38},       //      1       2       3       4       5       6       7       8
  27         {0x39, 0x30, 0xbb, 0xba, 0xbd, 0x20, 0x2d, 0x08},       //      9       0       ;       :       -       SPACE   INS     BS
  28         {0x26, 0x28, 0x25, 0x27, 0x09, 0x1b, 0x0d, 0x00},       //      UP      DOWN    LEFT    RIGHT   TAB     ESC     RET
  29 #endif
  30         {0x70, 0x71, 0x72, 0x73, 0x74, 0x00, 0x00, 0x13},       //      F1      F2      F3      F4      F5                      STOP
  31         {0x10, 0x11, 0x12, 0x00, 0x00, 0x00, 0x00, 0x00}        //      SHIFT   CTRL    GRAPH           (CAPS)
  32 };
  33
  34 //2e(del) -> 08(bs)+10(shift)
  35
  36 void KEYBOARD::initialize()
  37 {
  38         key_stat = emu->get_key_buffer();
  39         column = 0;
  40         caps = true;
  41         kana = false;
  42 }
  43
  44 uint32_t KEYBOARD::read_io8(uint32_t addr)
  45 {
  46         // $E8: keyboard input
  47         uint8_t val = 0xff;
  48         for(int i = 0; i < 9; i++) {
  49                 if(!(column & (1 << i))) {
  50                         for(int j = 0; j < 8; j++) {
  51                                 if(key_stat[key_map[i][j]]) {
  52                                         val &= ~(1 << j);
  53                                 }
  54                         }
  55                         if(i == 8) {
  56                                 if(caps) {
  57                                         val &= ~0x10;
  58                                 }
  59                                 if(kana) {
  60                                         val &= ~8;
  61                                 }
  62                         }
  63                 }
  64         }
  65         return val;
  66 }
  67
  68 void KEYBOARD::write_signal(int id, uint32_t data, uint32_t mask)
  69 {
  70         if(id == SIG_KEYBOARD_COLUMN_L) {
  71                 column = (column & 0xff00) | (data & mask);
  72         } else if(id == SIG_KEYBOARD_COLUMN_H) {
  73                 column = (column & 0xff) | ((data & mask) << 8);
  74         }
  75 }
  76
  77 void KEYBOARD::key_down(int code)
  78 {
  79         if(code == 0x14) {
  80                 caps = !caps;
  81         } else if(code == 0x15) {
  82                 kana = !kana;
  83         }
  84 }
  85
  86 #define STATE_VERSION   1
  87
  88 bool KEYBOARD::process_state(FILEIO* state_fio, bool loading)
  89 {
  90         if(!state_fio->StateCheckUint32(STATE_VERSION)) {
  91                 return false;
  92         }
  93         if(!state_fio->StateCheckInt32(this_device_id)) {
  94                 return false;
  95         }
  96         state_fio->StateUint16(column);
  97         state_fio->StateBool(caps);
  98         state_fio->StateBool(kana);
  99         return true;
 100 }
 101
 102 }