source/src/vm/x1/keyboard.cpp

   1 /*
   2         SHARP X1 Emulator 'eX1'
   3         SHARP X1twin Emulator 'eX1twin'
   4         SHARP X1turbo Emulator 'eX1turbo'
   5
   6         Author : Takeda.Toshiya
   7         Date   : 2013.05.01-
   8
   9         [ keyboard ]
  10 */
  11
  12 #include "keyboard.h"
  13 #include "sub.h"
  14 #include "../mcs48.h"
  15
  16 #define CAPS    0xfe
  17 #define KANA    0xff
  18
  19 static const uint8_t matrix[15][8] = {
  20         {0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}, //    (CMT buttons ???)
  21         {0x1b, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37}, //    ESC     1       2       3       4       5       6       7
  22         {0x51, 0x57, 0x45, 0x52, 0x54, 0x59, 0x55, 0x49}, //    Q       W       E       R       T       Y       U       I
  23         {0x41, 0x53, 0x44, 0x46, 0x47, 0x48, 0x4a, 0x4b}, //    A       S       D       F       G       H       J       K
  24         {0x5a, 0x58, 0x43, 0x56, 0x42, 0x4e, 0x4d, 0xbc}, //    Z       X       C       V       B       N       M       ,
  25         {0x38, 0x39, 0x30, 0xbd, 0xde, 0xdc, 0x13, 0x00}, //    8       9       0       -       ^       \       BRK
  26         {0x00, 0x4f, 0x50, 0xc0, 0xdb, 0x2e, 0x00, 0x00}, //            O       P       @       [       DEL
  27         {0x00, 0x4c, 0xbb, 0xba, 0xdd, 0x0d, 0x00, 0x00}, //            L       ;       :       ]       RET
  28         {0x00, 0x09, 0x20, 0xbe, 0xbf, 0xe2, 0x00, 0x00}, //            TAB     SPACE   .       /       _
  29         {0x24, 0x67, 0x64, 0x61, 0x60, 0x25, 0x00, 0x00}, //    HOME    N7      N4      N1      N0      LEFT
  30         {0x6f, 0x68, 0x65, 0x62, 0x00, 0x27, 0x00, 0x00}, //    N/      N8      N5      N2      N,      RIGHT
  31         {0x6a, 0x69, 0x66, 0x63, 0x26, 0x28, 0x00, 0x00}, //    N*      N9      N6      N3      UP      DOWN
  32         {0x6d, 0x6b, 0x00, 0x6e, 0x00, 0x6c, 0x00, 0x00}, //    N-      N+      N=      N.              NPRET
  33         {0x00, 0x70, 0x71, 0x72, 0x73, 0x74, 0x00, 0x00}, //            F1      F2      F3      F4      F5
  34         {0x11, 0x10, KANA, CAPS, 0x12, 0x00, 0x00, 0x00}, //    CTRL    SHIFT   KANA    CAPS    GRAPH
  35 };
  36
  37 void KEYBOARD::initialize()
  38 {
  39         key_stat = emu->get_key_buffer();
  40         caps_locked = kana_locked = 0;
  41         column = 0;
  42 }
  43
  44 /*
  45         P10-P17 --> KEY COLUMN LO (SELECT=L)
  46         P20-P26 --> KEY COLUMN HI
  47         P27     --> INT of SUB CPU
  48         DB0-7   <-- KEY DATA (PUSH=L)
  49         T0      <-- L
  50         T1      <-- H
  51         INT     <-- H
  52 */
  53
  54 void KEYBOARD::write_io8(uint32_t addr, uint32_t data)
  55 {
  56         switch(addr) {
  57         case MCS48_PORT_P1:
  58                 column = (column & 0xff00) | (data << 0);
  59                 break;
  60         case MCS48_PORT_P2:
  61                 column = (column & 0x00ff) | (data << 8);
  62 /*
  63                 {
  64                         static bool prev_signal = true;
  65                         bool cur_signal = ((data & 0x80) != 0);
  66                         if(prev_signal != cur_signal) {
  67                                 static uint32_t prev_clk = 0;
  68                                 int us = (int)((double)get_passed_clock(prev_clk) * 1000.0 * 1000.0 / 4000000 + 0.5);
  69                                 prev_clk = get_current_clock();
  70                                 emu->out_debug_log(_T("%d\t%d\n"), prev_signal, us);
  71                                 prev_signal = cur_signal;
  72                         }
  73                 }
  74 */
  75                 d_cpu->write_signal(SIG_CPU_IRQ, data, 0x80);
  76                 break;
  77         }
  78 }
  79
  80 uint32_t KEYBOARD::read_io8(uint32_t addr)
  81 {
  82         switch(addr) {
  83         case MCS48_PORT_T0:
  84 #ifdef _X1TURBO_FEATURE
  85                 if(config.device_type == 0) {
  86                         return 1;       // mode A
  87                 } else
  88 #endif
  89                 return 0;               // mode B or GND
  90         case MCS48_PORT_T1:
  91                 return 1;
  92         default:
  93                 {
  94                         uint32_t value = 0;
  95
  96                         // update key status
  97                         uint8_t key_buf[256];
  98                         memcpy(key_buf, key_stat, sizeof(key_buf));
  99
 100                         if(key_buf[VK_INSERT]) {
 101                                 key_buf[VK_SHIFT] = key_buf[VK_DELETE] = 1;
 102                         }
 103                         if(key_buf[VK_BACK]) {
 104                                 key_buf[VK_DELETE] = 1;
 105                         }
 106                         key_buf[CAPS] = caps_locked;
 107                         key_buf[KANA] = kana_locked;
 108
 109                         for(int i = 1; i < 15; i++) {
 110                                 if(!(column & (1 << i))) {
 111                                         for(int j = 0; j < 8; j++) {
 112                                                 if(key_buf[matrix[i][j]]) {
 113                                                         value |= 1 << j;
 114                                                 }
 115                                         }
 116                                 }
 117                         }
 118                         return ~value;
 119                 }
 120         }
 121         return 0xff;
 122 }
 123
 124 void KEYBOARD::key_down(int code, bool repeat)
 125 {
 126         switch(code) {
 127         case VK_CAPITAL:
 128                 caps_locked ^= 1;
 129                 break;
 130         case VK_KANA:
 131                 kana_locked ^= 1;
 132                 break;
 133         }
 134 }
 135
 136 #define STATE_VERSION   1
 137
 138 void KEYBOARD::save_state(FILEIO* state_fio)
 139 {
 140         state_fio->FputUint32(STATE_VERSION);
 141         state_fio->FputInt32(this_device_id);
 142
 143         state_fio->FputUint8(caps_locked);
 144         state_fio->FputUint8(kana_locked);
 145         state_fio->FputUint16(column);
 146 }
 147
 148 bool KEYBOARD::load_state(FILEIO* state_fio)
 149 {
 150         if(state_fio->FgetUint32() != STATE_VERSION) {
 151                 return false;
 152         }
 153         if(state_fio->FgetInt32() != this_device_id) {
 154                 return false;
 155         }
 156         caps_locked = state_fio->FgetUint8();
 157         kana_locked= state_fio->FgetUint8();
 158         column = state_fio->FgetUint16();
 159         return true;
 160 }
 161