File: /usr/src/linux/drivers/block/paride/kbic.c
1 /*
2 kbic.c (c) 1997-8 Grant R. Guenther <grant@torque.net>
3 Under the terms of the GNU General Public License.
4
5 This is a low-level driver for the KBIC-951A and KBIC-971A
6 parallel to IDE adapter chips from KingByte Information Systems.
7
8 The chips are almost identical, however, the wakeup code
9 required for the 971A interferes with the correct operation of
10 the 951A, so this driver registers itself twice, once for
11 each chip.
12
13 */
14
15 /* Changes:
16
17 1.01 GRG 1998.05.06 init_proto, release_proto
18
19 */
20
21 #define KBIC_VERSION "1.01"
22
23 #include <linux/module.h>
24 #include <linux/delay.h>
25 #include <linux/kernel.h>
26 #include <linux/types.h>
27 #include <linux/wait.h>
28 #include <asm/io.h>
29
30 #include "paride.h"
31
32 #define r12w() (delay_p,inw(pi->port+1)&0xffff)
33
34 #define j44(a,b) ((((a>>4)&0x0f)|(b&0xf0))^0x88)
35 #define j53(w) (((w>>3)&0x1f)|((w>>4)&0xe0))
36
37
38 /* cont = 0 - access the IDE register file
39 cont = 1 - access the IDE command set
40 */
41
42 static int cont_map[2] = { 0x80, 0x40 };
43
44 static int kbic_read_regr( PIA *pi, int cont, int regr )
45
46 { int a, b, s;
47
48 s = cont_map[cont];
49
50 switch (pi->mode) {
51
52 case 0: w0(regr|0x18|s); w2(4); w2(6); w2(4); w2(1); w0(8);
53 a = r1(); w0(0x28); b = r1(); w2(4);
54 return j44(a,b);
55
56 case 1: w0(regr|0x38|s); w2(4); w2(6); w2(4); w2(5); w0(8);
57 a = r12w(); w2(4);
58 return j53(a);
59
60 case 2: w0(regr|0x08|s); w2(4); w2(6); w2(4); w2(0xa5); w2(0xa1);
61 a = r0(); w2(4);
62 return a;
63
64 case 3:
65 case 4:
66 case 5: w0(0x20|s); w2(4); w2(6); w2(4); w3(regr);
67 a = r4(); b = r4(); w2(4); w2(0); w2(4);
68 return a;
69
70 }
71 return -1;
72 }
73
74 static void kbic_write_regr( PIA *pi, int cont, int regr, int val)
75
76 { int s;
77
78 s = cont_map[cont];
79
80 switch (pi->mode) {
81
82 case 0:
83 case 1:
84 case 2: w0(regr|0x10|s); w2(4); w2(6); w2(4);
85 w0(val); w2(5); w2(4);
86 break;
87
88 case 3:
89 case 4:
90 case 5: w0(0x20|s); w2(4); w2(6); w2(4); w3(regr);
91 w4(val); w4(val);
92 w2(4); w2(0); w2(4);
93 break;
94
95 }
96 }
97
98 static void k951_connect ( PIA *pi )
99
100 { pi->saved_r0 = r0();
101 pi->saved_r2 = r2();
102 w2(4);
103 }
104
105 static void k951_disconnect ( PIA *pi )
106
107 { w0(pi->saved_r0);
108 w2(pi->saved_r2);
109 }
110
111 #define CCP(x) w2(0xc4);w0(0xaa);w0(0x55);w0(0);w0(0xff);w0(0x87);\
112 w0(0x78);w0(x);w2(0xc5);w2(0xc4);w0(0xff);
113
114 static void k971_connect ( PIA *pi )
115
116 { pi->saved_r0 = r0();
117 pi->saved_r2 = r2();
118 CCP(0x20);
119 w2(4);
120 }
121
122 static void k971_disconnect ( PIA *pi )
123
124 { CCP(0x30);
125 w0(pi->saved_r0);
126 w2(pi->saved_r2);
127 }
128
129 /* counts must be congruent to 0 MOD 4, but all known applications
130 have this property.
131 */
132
133 static void kbic_read_block( PIA *pi, char * buf, int count )
134
135 { int k, a, b;
136
137 switch (pi->mode) {
138
139 case 0: w0(0x98); w2(4); w2(6); w2(4);
140 for (k=0;k<count/2;k++) {
141 w2(1); w0(8); a = r1();
142 w0(0x28); b = r1();
143 buf[2*k] = j44(a,b);
144 w2(5); b = r1();
145 w0(8); a = r1();
146 buf[2*k+1] = j44(a,b);
147 w2(4);
148 }
149 break;
150
151 case 1: w0(0xb8); w2(4); w2(6); w2(4);
152 for (k=0;k<count/4;k++) {
153 w0(0xb8);
154 w2(4); w2(5);
155 w0(8); buf[4*k] = j53(r12w());
156 w0(0xb8); buf[4*k+1] = j53(r12w());
157 w2(4); w2(5);
158 buf[4*k+3] = j53(r12w());
159 w0(8); buf[4*k+2] = j53(r12w());
160 }
161 w2(4);
162 break;
163
164 case 2: w0(0x88); w2(4); w2(6); w2(4);
165 for (k=0;k<count/2;k++) {
166 w2(0xa0); w2(0xa1); buf[2*k] = r0();
167 w2(0xa5); buf[2*k+1] = r0();
168 }
169 w2(4);
170 break;
171
172 case 3: w0(0xa0); w2(4); w2(6); w2(4); w3(0);
173 for (k=0;k<count;k++) buf[k] = r4();
174 w2(4); w2(0); w2(4);
175 break;
176
177 case 4: w0(0xa0); w2(4); w2(6); w2(4); w3(0);
178 for (k=0;k<count/2;k++) ((u16 *)buf)[k] = r4w();
179 w2(4); w2(0); w2(4);
180 break;
181
182 case 5: w0(0xa0); w2(4); w2(6); w2(4); w3(0);
183 for (k=0;k<count/4;k++) ((u32 *)buf)[k] = r4l();
184 w2(4); w2(0); w2(4);
185 break;
186
187
188 }
189 }
190
191 static void kbic_write_block( PIA *pi, char * buf, int count )
192
193 { int k;
194
195 switch (pi->mode) {
196
197 case 0:
198 case 1:
199 case 2: w0(0x90); w2(4); w2(6); w2(4);
200 for(k=0;k<count/2;k++) {
201 w0(buf[2*k+1]); w2(0); w2(4);
202 w0(buf[2*k]); w2(5); w2(4);
203 }
204 break;
205
206 case 3: w0(0xa0); w2(4); w2(6); w2(4); w3(0);
207 for(k=0;k<count/2;k++) {
208 w4(buf[2*k+1]);
209 w4(buf[2*k]);
210 }
211 w2(4); w2(0); w2(4);
212 break;
213
214 case 4: w0(0xa0); w2(4); w2(6); w2(4); w3(0);
215 for(k=0;k<count/2;k++) w4w(pi_swab16(buf,k));
216 w2(4); w2(0); w2(4);
217 break;
218
219 case 5: w0(0xa0); w2(4); w2(6); w2(4); w3(0);
220 for(k=0;k<count/4;k++) w4l(pi_swab32(buf,k));
221 w2(4); w2(0); w2(4);
222 break;
223
224 }
225
226 }
227
228 static void kbic_log_adapter( PIA *pi, char * scratch,
229 int verbose, char * chip )
230
231 { char *mode_string[6] = {"4-bit","5/3","8-bit",
232 "EPP-8","EPP_16","EPP-32"};
233
234 printk("%s: kbic %s, KingByte %s at 0x%x, ",
235 pi->device,KBIC_VERSION,chip,pi->port);
236 printk("mode %d (%s), delay %d\n",pi->mode,
237 mode_string[pi->mode],pi->delay);
238
239 }
240
241 static void k951_log_adapter( PIA *pi, char * scratch, int verbose )
242
243 { kbic_log_adapter(pi,scratch,verbose,"KBIC-951A");
244 }
245
246 static void k971_log_adapter( PIA *pi, char * scratch, int verbose )
247
248 { kbic_log_adapter(pi,scratch,verbose,"KBIC-971A");
249 }
250
251 static void kbic_init_proto( PIA *pi)
252
253 { MOD_INC_USE_COUNT;
254 }
255
256 static void kbic_release_proto( PIA *pi)
257
258 { MOD_DEC_USE_COUNT;
259 }
260
261 struct pi_protocol k951 = {"k951",0,6,3,1,1,
262 kbic_write_regr,
263 kbic_read_regr,
264 kbic_write_block,
265 kbic_read_block,
266 k951_connect,
267 k951_disconnect,
268 0,
269 0,
270 0,
271 k951_log_adapter,
272 kbic_init_proto,
273 kbic_release_proto
274 };
275
276
277 struct pi_protocol k971 = {"k971",0,6,3,1,1,
278 kbic_write_regr,
279 kbic_read_regr,
280 kbic_write_block,
281 kbic_read_block,
282 k971_connect,
283 k971_disconnect,
284 0,
285 0,
286 0,
287 k971_log_adapter,
288 kbic_init_proto,
289 kbic_release_proto
290 };
291
292 #ifdef MODULE
293
294 int init_module(void)
295
296 { int s5,s7;
297
298 s5 = pi_register(&k951);
299 s7 = pi_register(&k971);
300
301 return (s5 || s7) - 1;
302 }
303
304 void cleanup_module(void)
305
306 { pi_unregister( &k951 );
307 pi_unregister( &k971 );
308 }
309
310 #endif
311
312 /* end of kbic.c */
313