minor adjustments
[fceu.git] / input / fkb.c
1 /* FCE Ultra - NES/Famicom Emulator
2  *
3  * Copyright notice for this file:
4  *  Copyright (C) 2002 Xodnizel
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #include <string.h>
22 #include "share.h"
23 #include "fkb.h"
24 #define AK2(x,y)        ( (FKB_##x) | (FKB_##y <<8) )
25 #define AK(x)                 FKB_##x
26
27 static uint8 bufit[0x49];
28 static uint8 ksmode;
29 static uint8 ksindex;
30
31
32 static uint16 matrix[9][2][4]=
33 {
34 {{AK(F8),AK(RETURN),AK(BRACKETLEFT),AK(BRACKETRIGHT)},   
35         {AK(KANA),AK(RIGHTSHIFT),AK(BACKSLASH),AK(STOP)}},
36 {{AK(F7),AK(AT),AK(COLON),AK(SEMICOLON)},               
37         {AK(UNDERSCORE),AK(SLASH),AK(MINUS),AK(CARET)}},
38 {{AK(F6),AK(O),AK(L),AK(K)},   
39         {AK(PERIOD),AK(COMMA),AK(P),AK(0)}},
40 {{AK(F5),AK(I),AK(U),AK(J)},    
41         {AK(M),AK(N),AK(9),AK(8)}},
42 {{AK(F4),AK(Y),AK(G),AK(H)},  
43         {AK(B),AK(V),AK(7),AK(6)}},
44 {{AK(F3),AK(T),AK(R),AK(D)},  
45         {AK(F),AK(C),AK(5),AK(4)}},
46 {{AK(F2),AK(W),AK(S),AK(A)},  
47         {AK(X),AK(Z),AK(E),AK(3)}},
48 {{AK(F1),AK(ESCAPE),AK(Q),AK(CONTROL)},    
49         {AK(LEFTSHIFT),AK(GRAPH),AK(1),AK(2)}},
50 {{AK(CLEAR),AK(UP),AK(RIGHT),AK(LEFT)},    
51         {AK(DOWN),AK(SPACE),AK(DELETE),AK(INSERT)}},
52 };
53
54 static void FP_FASTAPASS(1) FKB_Write(uint8 v)
55 {
56  v>>=1;
57  if(v&2)
58  {
59   if((ksmode&1) && !(v&1))
60    ksindex=(ksindex+1)%9;
61  }
62  ksmode=v;
63 }
64
65 static uint8 FP_FASTAPASS(2) FKB_Read(int w, uint8 ret)
66 {
67  //printf("$%04x, %d, %d\n",w+0x4016,ksindex,ksmode&1);
68  if(w)
69  {
70   int x;
71
72   ret&=~0x1E;
73   for(x=0;x<4;x++)
74     if(bufit[ matrix[ksindex][ksmode&1][x]&0xFF ] || bufit[ matrix[ksindex][ksmode&1][x]>>8])
75     {
76      ret|=1<<(x+1);
77     }
78   ret^=0x1E;
79  }
80  return(ret);
81 }
82
83 static void FKB_Strobe(void)
84 {
85  ksmode=0;
86  ksindex=0;
87  //printf("strobe\n");
88 }
89
90 static void FP_FASTAPASS(2) FKB_Update(void *data, int arg)
91 {
92  memcpy(bufit+1,data,0x48);
93 }
94
95 static INPUTCFC FKB={FKB_Read,FKB_Write,FKB_Strobe,FKB_Update,0,0};
96
97 INPUTCFC *FCEU_InitFKB(void)
98 {
99  memset(bufit,0,sizeof(bufit));
100  ksmode=ksindex=0;
101  return(&FKB);
102 }