source/src/vm/mz5500/keyboard.cpp

   1 /*
   2         SHARP MZ-5500 Emulator 'EmuZ-5500'
   3
   4         Author : Takeda.Toshiya
   5         Date   : 2008.04.10 -
   6
   7         [ keyboard ]
   8 */
   9
  10 #include "keyboard.h"
  11 #include "../i8255.h"
  12 #include "../i8259.h"
  13 #include "../../fifo.h"
  14
  15 #define BIT_DK  0x08
  16 #define BIT_SRK 0x10
  17 #define BIT_DC  0x01
  18 #define BIT_STC 0x02
  19
  20 #define PHASE_IDLE      0
  21
  22 #define PHASE_SEND_EB_L 11
  23 #define PHASE_SEND_D7_H 12
  24 #define PHASE_SEND_D7_L 13
  25 #define PHASE_SEND_D6_H 14
  26 #define PHASE_SEND_D6_L 15
  27 #define PHASE_SEND_D5_H 16
  28 #define PHASE_SEND_D5_L 17
  29 #define PHASE_SEND_D4_H 18
  30 #define PHASE_SEND_D4_L 19
  31 #define PHASE_SEND_D3_H 20
  32 #define PHASE_SEND_D3_L 21
  33 #define PHASE_SEND_D2_H 22
  34 #define PHASE_SEND_D2_L 23
  35 #define PHASE_SEND_D1_H 24
  36 #define PHASE_SEND_D1_L 25
  37 #define PHASE_SEND_D0_H 26
  38 #define PHASE_SEND_D0_L 27
  39 #define PHASE_SEND_PB_H 28
  40 #define PHASE_SEND_PB_L 29
  41 #define PHASE_SEND_RE_H 30
  42 #define PHASE_SEND_RE_L 31
  43 #define PHASE_SEND_END  32
  44
  45 #define PHASE_RECV_D4_H 41
  46 #define PHASE_RECV_D4_L 42
  47 #define PHASE_RECV_D3_H 43
  48 #define PHASE_RECV_D3_L 44
  49 #define PHASE_RECV_D2_H 45
  50 #define PHASE_RECV_D2_L 46
  51 #define PHASE_RECV_D1_H 47
  52 #define PHASE_RECV_D1_L 48
  53 #define PHASE_RECV_D0_H 49
  54 #define PHASE_RECV_D0_L 50
  55 #define PHASE_RECV_PB_H 51
  56 #define PHASE_RECV_PB_L 52
  57 #define PHASE_RECV_RE_H 53
  58 #define PHASE_RECV_RE_L 54
  59 #define PHASE_RECV_END  55
  60
  61 #define TIMEOUT_500MSEC 30
  62 #define TIMEOUT_100MSEC 6
  63
  64 static const int key_table[256] = {
  65         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x008,0x009,0x000,0x000,0x000,0x00d,0x000,0x000,
  66         0x000,0x000,0x000,0x006,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x01b,0x000,0x000,0x000,0x000,
  67         0x020,0x080,0x090,0x018,0x08f,0x01f,0x01c,0x01e,0x01d,0x000,0x000,0x000,0x000,0x00b,0x07f,0x000,
  68         0x030,0x031,0x032,0x033,0x034,0x035,0x036,0x037,0x038,0x039,0x000,0x000,0x000,0x000,0x000,0x000,
  69         0x000,0x061,0x062,0x063,0x064,0x065,0x066,0x067,0x068,0x069,0x06a,0x06b,0x06c,0x06d,0x06e,0x06f,
  70         0x070,0x071,0x072,0x073,0x074,0x075,0x076,0x077,0x078,0x079,0x07a,0x000,0x000,0x000,0x000,0x000,
  71         0x0f0,0x0f1,0x0f2,0x0f3,0x0f4,0x0f5,0x0f6,0x0f7,0x0f8,0x0f9,0x0ea,0x0eb,0x0ec,0x0ed,0x0ee,0x0ef,
  72         0x081,0x082,0x083,0x084,0x085,0x086,0x087,0x088,0x089,0x08a,0x00e,0x00f,0x000,0x000,0x000,0x000,
  73         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  74         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  75         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  76         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x03a,0x03b,0x02c,0x02d,0x02e,0x02f,
  77         0x040,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  78         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x05b,0x05c,0x05d,0x05e,0x000,
  79         0x000,0x000,0x05f,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  80         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000
  81 };
  82
  83 static const int key_table_shift[256] = {
  84         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x019,0x000,0x000,0x000,0x000,0x000,0x000,
  85         0x000,0x000,0x000,0x007,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  86         0x020,0x090,0x080,0x000,0x09f,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x00c,0x01a,0x000,
  87         0x000,0x021,0x022,0x023,0x024,0x025,0x026,0x027,0x028,0x029,0x000,0x000,0x000,0x000,0x000,0x000,
  88         0x000,0x041,0x042,0x043,0x044,0x045,0x046,0x047,0x048,0x049,0x04a,0x04b,0x04c,0x04d,0x04e,0x04f,
  89         0x050,0x051,0x052,0x053,0x054,0x055,0x056,0x057,0x058,0x059,0x05a,0x000,0x000,0x000,0x000,0x000,
  90         0x0e0,0x0e1,0x0e2,0x0e3,0x0e4,0x0e5,0x0e6,0x0e7,0x0e8,0x0e9,0x000,0x000,0x000,0x000,0x000,0x000,
  91         0x091,0x092,0x093,0x094,0x095,0x096,0x097,0x098,0x099,0x09a,0x000,0x000,0x000,0x000,0x000,0x000,
  92         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  93         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  94         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  95         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x02a,0x02b,0x03c,0x03d,0x03e,0x03f,
  96         0x060,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  97         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x07b,0x07c,0x07d,0x07e,0x000,
  98         0x000,0x000,0x05f,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
  99         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000
 100 };
 101
 102 static const int key_table_kana[256] = {
 103         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x008,0x009,0x000,0x000,0x000,0x00d,0x000,0x000,
 104         0x000,0x000,0x000,0x006,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x01b,0x000,0x000,0x000,0x000,
 105         0x020,0x080,0x090,0x018,0x08f,0x01f,0x01c,0x01e,0x01d,0x000,0x000,0x000,0x000,0x00b,0x07f,0x000,
 106         0x0dc,0x0c7,0x0cc,0x0b1,0x0b3,0x0b4,0x0b5,0x0d4,0x0d5,0x0d6,0x000,0x000,0x000,0x000,0x000,0x000,
 107         0x000,0x0c1,0x0ba,0x0bf,0x0bc,0x0b2,0x0ca,0x0b7,0x0b8,0x0c6,0x0cf,0x0c9,0x0d8,0x0d3,0x0d0,0x0d7,
 108         0x0be,0x0c0,0x0bd,0x0c4,0x0b6,0x0c5,0x0cb,0x0c3,0x0bb,0x0dd,0x0c2,0x000,0x000,0x000,0x000,0x000,
 109         0x0f0,0x0f1,0x0f2,0x0f3,0x0f4,0x0f5,0x0f6,0x0f7,0x0f8,0x0f9,0x0ea,0x0eb,0x0ec,0x0ed,0x0ee,0x0ef,
 110         0x081,0x082,0x083,0x084,0x085,0x086,0x087,0x088,0x089,0x08a,0x00e,0x00f,0x000,0x000,0x000,0x000,
 111         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 112         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 113         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 114         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x0b9,0x0da,0x0c8,0x0ce,0x0d9,0x0d2,
 115         0x0de,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 116         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x0df,0x0b0,0x0d1,0x0cd,0x000,
 117         0x000,0x000,0x0db,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 118         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000
 119 };
 120
 121 static const int key_table_kana_shift[256] = {
 122         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x019,0x000,0x000,0x000,0x000,0x000,0x000,
 123         0x000,0x000,0x000,0x007,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 124         0x020,0x090,0x080,0x000,0x09f,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x00c,0x01a,0x000,
 125         0x0a6,0x000,0x000,0x0a7,0x0a9,0x0aa,0x0ab,0x0ac,0x0ad,0x0ae,0x000,0x000,0x000,0x000,0x000,0x000,
 126         0x000,0x000,0x000,0x000,0x000,0x0a8,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 127         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x0af,0x000,0x000,0x000,0x000,0x000,
 128         0x0e0,0x0e1,0x0e2,0x0e3,0x0e4,0x0e5,0x0e6,0x0e7,0x0e8,0x0e9,0x000,0x000,0x000,0x000,0x000,0x000,
 129         0x091,0x092,0x093,0x094,0x095,0x096,0x097,0x098,0x099,0x09a,0x000,0x000,0x000,0x000,0x000,0x000,
 130         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 131         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 132         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 133         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x0a4,0x000,0x0a1,0x0a5,
 134         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 135         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x0a2,0x000,0x0a3,0x000,0x000,
 136         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 137         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000
 138 };
 139
 140 static const int key_table_graph[256] = {
 141         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x008,0x009,0x000,0x000,0x000,0x00d,0x000,0x000,
 142         0x000,0x000,0x000,0x006,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x01b,0x000,0x000,0x000,0x000,
 143         0x020,0x080,0x090,0x018,0x1a0,0x1a5,0x1a2,0x1a4,0x1a3,0x000,0x000,0x000,0x000,0x00b,0x07f,0x000,
 144         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 145         0x000,0x181,0x182,0x183,0x184,0x185,0x186,0x187,0x188,0x189,0x18a,0x18b,0x18c,0x18d,0x18e,0x18f,
 146         0x190,0x191,0x192,0x193,0x194,0x195,0x196,0x197,0x198,0x199,0x19a,0x000,0x000,0x000,0x000,0x000,
 147         0x0f0,0x0f1,0x0f2,0x0f3,0x0f4,0x0f5,0x0f6,0x0f7,0x0f8,0x0f9,0x0ea,0x0eb,0x0ec,0x0ed,0x0ee,0x0ef,
 148         0x081,0x082,0x083,0x084,0x085,0x086,0x087,0x088,0x089,0x08a,0x00e,0x00f,0x000,0x000,0x000,0x000,
 149         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 150         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 151         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 152         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 153         0x180,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 154         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x19b,0x19c,0x19d,0x19e,0x000,
 155         0x000,0x000,0x19f,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 156         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000
 157 };
 158
 159 static const int key_table_graph_shift[256] = {
 160         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x019,0x000,0x000,0x000,0x000,0x000,0x000,
 161         0x000,0x000,0x000,0x007,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 162         0x020,0x090,0x080,0x000,0x1fb,0x1a5,0x1a2,0x1a4,0x1a3,0x000,0x000,0x000,0x000,0x00c,0x01a,0x000,
 163         0x1d0,0x1d1,0x1d2,0x1d3,0x1d4,0x1d5,0x1d6,0x1d7,0x1d8,0x1d9,0x000,0x000,0x000,0x000,0x000,0x000,
 164         0x000,0x1e1,0x1e2,0x1e3,0x1e4,0x1e5,0x1e6,0x1e7,0x1e8,0x1e9,0x1ea,0x1eb,0x1ec,0x1ed,0x1ee,0x1ef,
 165         0x1f0,0x1f1,0x1f2,0x1f3,0x1f4,0x1f5,0x1f6,0x1f7,0x1f8,0x1f9,0x1fa,0x000,0x000,0x000,0x000,0x000,
 166         0x0e0,0x0e1,0x0e2,0x0e3,0x0e4,0x0e5,0x0e6,0x0e7,0x0e8,0x0e9,0x000,0x000,0x000,0x000,0x000,0x000,
 167         0x091,0x092,0x093,0x094,0x095,0x096,0x097,0x098,0x099,0x09a,0x000,0x000,0x000,0x000,0x000,0x000,
 168         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 169         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 170         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 171         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 172         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 173         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 174         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,
 175         0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000
 176 };
 177
 178 #define SET_DK(v) { \
 179         d_pio->write_signal(SIG_I8255_PORT_B, (dk = (v) ? 1 : 0) ? 0 : BIT_DK, BIT_DK); \
 180 }
 181 #define SET_SRK(v) { \
 182         d_pio->write_signal(SIG_I8255_PORT_B, (srk = (v) ? 1 : 0) ? 0 : BIT_SRK, BIT_SRK); \
 183         d_pic->write_signal(SIG_I8259_IR3 | SIG_I8259_CHIP0, srk ? 0 : 1, 1); \
 184 }
 185
 186 void KEYBOARD::initialize()
 187 {
 188         key_stat = emu->get_key_buffer();
 189         mouse_stat = emu->get_mouse_buffer();
 190         key_buf = new FIFO(64);
 191         rsp_buf = new FIFO(16);
 192         caps = kana = graph = false;
 193
 194         register_frame_event(this);
 195 }
 196
 197 void KEYBOARD::release()
 198 {
 199         key_buf->release();
 200         delete key_buf;
 201         rsp_buf->release();
 202         delete rsp_buf;
 203 }
 204
 205 void KEYBOARD::reset()
 206 {
 207         key_buf->clear();
 208         rsp_buf->clear();
 209         SET_DK(1);
 210         SET_SRK(1);
 211         dc = stc = 1;
 212         phase = PHASE_IDLE;
 213         timeout = 0;
 214 }
 215
 216 void KEYBOARD::write_signal(int id, uint32_t data, uint32_t mask)
 217 {
 218         // from 8255 port c
 219         dc = (data & BIT_DC) ? 0 : 1;
 220         stc = (data & BIT_STC) ? 0 : 1;
 221         drive();
 222 }
 223
 224 void KEYBOARD::event_frame()
 225 {
 226         if(timeout > 0) {
 227                 timeout--;
 228         }
 229         drive();
 230 }
 231
 232 void KEYBOARD::key_down(int code)
 233 {
 234         if(code == 0x1d) {
 235                 // muhenkan->graph
 236                 if(graph) {
 237                         graph = false;
 238                 } else {
 239                         graph = true;
 240                         kana = false;
 241                 }
 242                 return;
 243         } else if(code == 0x14) {
 244                 // caps
 245                 caps = !caps;
 246                 return;
 247         } else if(code == 0x15) {
 248                 // kana
 249                 if(kana) {
 250                         kana = false;
 251                 } else {
 252                         kana = true;
 253                         graph = false;
 254                 }
 255                 return;
 256         }
 257         int shift = key_stat[0x10];
 258         int ctrl = key_stat[0x11];
 259         int algo = key_stat[0x12];
 260
 261         if(kana) {
 262                 if(shift) {
 263                         code = key_table_kana_shift[code];
 264                 } else {
 265                         code = key_table_kana[code];
 266                 }
 267         } else if(graph) {
 268                 if(shift) {
 269                         code = key_table_graph_shift[code];
 270                 } else {
 271                         code = key_table_graph[code];
 272                 }
 273         } else {
 274                 if(shift) {
 275                         code = key_table_shift[code];
 276                 } else {
 277                         code = key_table[code];
 278                 }
 279         }
 280         if(!code) {
 281                 return;
 282         }
 283         if(caps) {
 284                 if(0x41 <= code && code <= 0x5a) {
 285                         code += 0x20;
 286                 } else if(0x61 <= code && code <= 0x7a) {
 287                         code -= 0x20;
 288                 }
 289         }
 290         if(ctrl) {
 291                 key_buf->write(2);
 292         } else if(algo) {
 293                 key_buf->write(4);
 294         }
 295         key_buf->write(code);
 296 //      drive();
 297 }
 298
 299 void KEYBOARD::key_up(int code)
 300 {
 301         // dont check key break
 302 }
 303
 304 #define NEXTPHASE() { \
 305         phase++; \
 306         timeout = TIMEOUT_100MSEC; \
 307 }
 308
 309 void KEYBOARD::drive()
 310 {
 311         switch(phase) {
 312         case PHASE_IDLE:
 313                 if(dc && (!key_buf->empty() || !rsp_buf->empty())) {
 314                         if(!rsp_buf->empty()) {
 315                                 send = rsp_buf->read();
 316                         } else {
 317                                 send = key_buf->read();
 318                         }
 319                         send = ~send & 0x1ff;
 320                         int parity = 0;
 321                         for(int i = 0; i < 9; i++) {
 322                                 parity += (send & (1 << i)) ? 1 : 0;
 323                         }
 324                         send = (send << 1) | (parity & 1);
 325
 326                         SET_DK(0);
 327                         SET_SRK(0);
 328                         phase = PHASE_SEND_EB_L;
 329                         // 500msec
 330                         timeout = TIMEOUT_500MSEC;
 331                 } else if(!dc && !stc) {
 332                         recv = 0;
 333                         SET_DK(0);
 334                         phase = PHASE_RECV_D4_H;
 335                         // 500msec
 336                         timeout = TIMEOUT_500MSEC;
 337                 }
 338                 break;
 339         case PHASE_SEND_EB_L:
 340                 if(!stc) {
 341                         SET_DK(send & 0x200);
 342                         SET_SRK(1);
 343                         NEXTPHASE();
 344                 }
 345                 break;
 346         case PHASE_SEND_D7_H:
 347         case PHASE_SEND_D6_H:
 348         case PHASE_SEND_D5_H:
 349         case PHASE_SEND_D4_H:
 350         case PHASE_SEND_D3_H:
 351         case PHASE_SEND_D2_H:
 352         case PHASE_SEND_D1_H:
 353         case PHASE_SEND_D0_H:
 354         case PHASE_SEND_PB_H:
 355                 if(stc) {
 356                         SET_DK(send & 0x100);
 357                         send <<= 1;
 358                         NEXTPHASE();
 359                 }
 360                 break;
 361         case PHASE_SEND_D7_L:
 362         case PHASE_SEND_D6_L:
 363         case PHASE_SEND_D5_L:
 364         case PHASE_SEND_D4_L:
 365         case PHASE_SEND_D3_L:
 366         case PHASE_SEND_D2_L:
 367         case PHASE_SEND_D1_L:
 368         case PHASE_SEND_D0_L:
 369         case PHASE_SEND_PB_L:
 370                 if(!stc) {
 371                         NEXTPHASE();
 372                 }
 373                 break;
 374         case PHASE_SEND_RE_H:
 375                 if(stc) {
 376                         SET_DK(0);
 377                         NEXTPHASE();
 378                 }
 379                 break;
 380         case PHASE_SEND_RE_L:
 381                 if(!stc) {
 382                         NEXTPHASE();
 383                 }
 384                 break;
 385         case PHASE_SEND_END:
 386                 if(stc) {
 387                         SET_DK(1);
 388                         phase = PHASE_IDLE;
 389                 }
 390                 break;
 391         case PHASE_RECV_D4_H:
 392         case PHASE_RECV_D3_H:
 393         case PHASE_RECV_D2_H:
 394         case PHASE_RECV_D1_H:
 395         case PHASE_RECV_D0_H:
 396         case PHASE_RECV_PB_H:
 397                 if(stc) {
 398                         NEXTPHASE();
 399                 }
 400                 break;
 401         case PHASE_RECV_D4_L:
 402         case PHASE_RECV_D3_L:
 403         case PHASE_RECV_D2_L:
 404         case PHASE_RECV_D1_L:
 405         case PHASE_RECV_D0_L:
 406         case PHASE_RECV_PB_L:
 407                 if(!stc) {
 408                         recv = (recv << 1) | (dc ? 1 : 0);
 409                         NEXTPHASE();
 410                 }
 411                 break;
 412         case PHASE_RECV_RE_H:
 413                 if(stc) {
 414                         SET_DK(1);
 415                         NEXTPHASE();
 416                 }
 417                 break;
 418         case PHASE_RECV_RE_L:
 419                 if(!stc) {
 420                         NEXTPHASE();
 421                 }
 422                 break;
 423         case PHASE_RECV_END:
 424                 if(stc) {
 425                         recv >>= 1;
 426                         recv = ~recv & 0x1f;
 427                         process(recv);
 428                         phase = PHASE_IDLE;
 429                 }
 430                 break;
 431         }
 432
 433         // timeout
 434         if(phase != PHASE_IDLE && !(timeout > 0)) {
 435                 SET_DK(1);
 436                 SET_SRK(1);
 437                 phase = PHASE_IDLE;
 438         }
 439 }
 440
 441 void KEYBOARD::process(int cmd)
 442 {
 443         int mx, my, mb;
 444
 445         switch(cmd) {
 446         case 1:
 447                 // mouse ???
 448                 mx = mouse_stat[0]; mx = (mx > 126) ? 126 : (mx < -128) ? -128 : mx;
 449                 my = mouse_stat[1]; my = (my > 126) ? 126 : (my < -128) ? -128 : my;
 450                 mb = mouse_stat[2];
 451 //              rsp_buf->clear();
 452                 rsp_buf->write(0x140 | (mx & 0x3f));
 453                 rsp_buf->write(0x140 | (my & 0x3f));
 454                 rsp_buf->write(0x140 | ((my >> 2) & 0x30) | ((mx >> 4) & 0xc) | (mb & 3));
 455                 break;
 456         case 25:
 457                 // clear buffer ?
 458 //              key_buf->clear();
 459                 break;
 460         case 30:
 461                 // version ???
 462 //              rsp_buf->write(0x110);
 463                 break;
 464         }
 465 }
 466
 467 #define STATE_VERSION   1
 468
 469 bool KEYBOARD::process_state(FILEIO* state_fio, bool loading)
 470 {
 471         if(!state_fio->StateCheckUint32(STATE_VERSION)) {
 472                 return false;
 473         }
 474         if(!state_fio->StateCheckInt32(this_device_id)) {
 475                 return false;
 476         }
 477         if(!key_buf->process_state((void *)state_fio, loading)) {
 478                 return false;
 479         }
 480         if(!rsp_buf->process_state((void *)state_fio, loading)) {
 481                 return false;
 482         }
 483         state_fio->StateBool(caps);
 484         state_fio->StateBool(kana);
 485         state_fio->StateBool(graph);
 486         state_fio->StateInt32(dk);
 487         state_fio->StateInt32(srk);
 488         state_fio->StateInt32(dc);
 489         state_fio->StateInt32(stc);
 490         state_fio->StateInt32(send);
 491         state_fio->StateInt32(recv);
 492         state_fio->StateInt32(phase);
 493         state_fio->StateInt32(timeout);
 494         return true;
 495 }