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