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 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->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 addr, uint32 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 prev_clk = 0;
  68                                 int us = (int)((double)passed_clock(prev_clk) * 1000.0 * 1000.0 / 4000000 + 0.5);
  69                                 prev_clk = current_clock();
  70                                 emu->out_debug_log("%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 KEYBOARD::read_io8(uint32 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                         uint8 caps_stored = key_stat[CAPS];
  95                         uint8 kana_stored = key_stat[KANA];
  96                         uint8 shift_stored = key_stat[VK_SHIFT];
  97                         uint8 delete_stored = key_stat[VK_DELETE];
  98                         uint32 value = 0;
  99
 100                         // update key status
 101                         if(key_stat[VK_INSERT]) {
 102                                 key_stat[VK_SHIFT] = key_stat[VK_DELETE] = 1;
 103                         }
 104                         if(key_stat[VK_BACK]) {
 105                                 key_stat[VK_DELETE] = 1;
 106                         }
 107                         key_stat[CAPS] = caps_locked;
 108                         key_stat[KANA] = kana_locked;
 109
 110                         for(int i = 1; i < 15; i++) {
 111                                 if(!(column & (1 << i))) {
 112                                         for(int j = 0; j < 8; j++) {
 113                                                 if(key_stat[matrix[i][j]]) {
 114                                                         value |= 1 << j;
 115                                                 }
 116                                         }
 117                                 }
 118                         }
 119
 120                         // restore key status
 121                         key_stat[CAPS] = caps_stored;
 122                         key_stat[KANA] = kana_stored;
 123                         key_stat[VK_SHIFT] = shift_stored;
 124                         key_stat[VK_DELETE] = delete_stored;
 125                         return ~value;
 126                 }
 127         }
 128         return 0xff;
 129 }
 130
 131 void KEYBOARD::key_down(int code, bool repeat)
 132 {
 133         switch(code) {
 134         case VK_CAPITAL:
 135                 caps_locked ^= 1;
 136                 break;
 137         case VK_KANA:
 138                 kana_locked ^= 1;
 139                 break;
 140         }
 141 }
 142
 143 #define STATE_VERSION   1
 144
 145 void KEYBOARD::save_state(FILEIO* state_fio)
 146 {
 147         state_fio->FputUint32(STATE_VERSION);
 148         state_fio->FputInt32(this_device_id);
 149
 150         state_fio->FputUint8(caps_locked);
 151         state_fio->FputUint8(kana_locked);
 152         state_fio->FputUint16(column);
 153 }
 154
 155 bool KEYBOARD::load_state(FILEIO* state_fio)
 156 {
 157         if(state_fio->FgetUint32() != STATE_VERSION) {
 158                 return false;
 159         }
 160         if(state_fio->FgetInt32() != this_device_id) {
 161                 return false;
 162         }
 163         caps_locked = state_fio->FgetUint8();
 164         kana_locked= state_fio->FgetUint8();
 165         column = state_fio->FgetUint16();
 166         return true;
 167 }
 168