?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Import 2.3.18pre1
[davej-history.git] / drivers / block / acsi.c
blob80aa524723ef52a07062ebcf913b3bb3bbc5e7f0
1 /*
2 * acsi.c -- Device driver for Atari ACSI hard disks
3 *
4 * Copyright 1994 Roman Hodek <Roman.Hodek@informatik.uni-erlangen.de>
5 *
6 * Some parts are based on hd.c by Linus Torvalds
7 *
8 * This file is subject to the terms and conditions of the GNU General Public
9 * License. See the file COPYING in the main directory of this archive for
10 * more details.
11 *
12 */
13
14 /*
15 * Still to in this file:
16 * - If a command ends with an error status (!= 0), the following
17 * REQUEST SENSE commands (4 to fill the ST-DMA FIFO) are done by
18 * polling the _IRQ signal (not interrupt-driven). This should be
19 * avoided in future because it takes up a non-neglectible time in
20 * the interrupt service routine while interrupts are disabled.
21 * Maybe a timer interrupt will get lost :-(
22 */
23
24 /*
25 * General notes:
26 *
27 * - All ACSI devices (disks, CD-ROMs, ...) use major number 28.
28 * Minors are organized like it is with SCSI: The upper 4 bits
29 * identify the device, the lower 4 bits the partition.
30 * The device numbers (the upper 4 bits) are given in the same
31 * order as the devices are found on the bus.
32 * - Up to 8 LUNs are supported for each target (if CONFIG_ACSI_MULTI_LUN
33 * is defined), but only a total of 16 devices (due to minor
34 * numbers...). Note that Atari allows only a maximum of 4 targets
35 * (i.e. controllers, not devices) on the ACSI bus!
36 * - A optimizing scheme similar to SCSI scatter-gather is implemented.
37 * - Removable media are supported. After a medium change to device
38 * is reinitialized (partition check etc.). Also, if the device
39 * knows the PREVENT/ALLOW MEDIUM REMOVAL command, the door should
40 * be locked and unlocked when mounting the first or unmounting the
41 * last filesystem on the device. The code is untested, because I
42 * don't have a removable hard disk.
43 *
44 */
45
46 #define MAJOR_NR ACSI_MAJOR
47
48 #include <linux/config.h>
49 #include <linux/module.h>
50 #include <linux/errno.h>
51 #include <linux/signal.h>
52 #include <linux/sched.h>
53 #include <linux/timer.h>
54 #include <linux/fs.h>
55 #include <linux/kernel.h>
56 #include <linux/genhd.h>
57 #include <linux/delay.h>
58 #include <linux/mm.h>
59 #include <linux/major.h>
60 #include <linux/blk.h>
61 #include <linux/malloc.h>
62 #include <linux/interrupt.h>
63 #include <scsi/scsi.h> /* for SCSI_IOCTL_GET_IDLUN */
64 typedef void Scsi_Device; /* hack to avoid including scsi.h */
65 #include <scsi/scsi_ioctl.h>
66 #include <linux/hdreg.h> /* for HDIO_GETGEO */
67 #include <linux/blkpg.h>
68
69 #include <asm/setup.h>
70 #include <asm/pgtable.h>
71 #include <asm/system.h>
72 #include <asm/uaccess.h>
73 #include <asm/atarihw.h>
74 #include <asm/atariints.h>
75 #include <asm/atari_acsi.h>
76 #include <asm/atari_stdma.h>
77 #include <asm/atari_stram.h>
78
79
80 #define DEBUG
81 #undef DEBUG_DETECT
82 #undef NO_WRITE
83
84 #define MAX_ERRORS 8 /* Max read/write errors/sector */
85 #define MAX_LUN 8 /* Max LUNs per target */
86 #define MAX_DEV 16
87
88 #define ACSI_BUFFER_SIZE (16*1024) /* "normal" ACSI buffer size */
89 #define ACSI_BUFFER_MINSIZE (2048) /* min. buf size if ext. DMA */
90 #define ACSI_BUFFER_SIZE_ORDER 2 /* order size for above */
91 #define ACSI_BUFFER_MINSIZE_ORDER 0 /* order size for above */
92 #define ACSI_BUFFER_SECTORS (ACSI_BUFFER_SIZE/512)
93
94 #define ACSI_BUFFER_ORDER \
95 (ATARIHW_PRESENT(EXTD_DMA) ? \
96 ACSI_BUFFER_MINSIZE_ORDER : \
97 ACSI_BUFFER_SIZE_ORDER)
98
99 #define ACSI_TIMEOUT (4*HZ)
100
101 /* minimum delay between two commands */
102
103 #define COMMAND_DELAY 500
104
105 typedef enum {
106 NONE, HARDDISK, CDROM
107 } ACSI_TYPE;
108
109 struct acsi_info_struct {
110 ACSI_TYPE type; /* type of device */
111 unsigned target; /* target number */
112 unsigned lun; /* LUN in target controller */
113 unsigned removable : 1; /* Flag for removable media */
114 unsigned read_only : 1; /* Flag for read only devices */
115 unsigned old_atari_disk : 1; /* Is an old Atari disk */
116 unsigned changed : 1; /* Medium has been changed */
117 unsigned long size; /* #blocks */
118 } acsi_info[MAX_DEV];
119
120 /*
121 * SENSE KEYS
122 */
123
124 #define NO_SENSE 0x00
125 #define RECOVERED_ERROR 0x01
126 #define NOT_READY 0x02
127 #define MEDIUM_ERROR 0x03
128 #define HARDWARE_ERROR 0x04
129 #define ILLEGAL_REQUEST 0x05
130 #define UNIT_ATTENTION 0x06
131 #define DATA_PROTECT 0x07
132 #define BLANK_CHECK 0x08
133 #define COPY_ABORTED 0x0a
134 #define ABORTED_COMMAND 0x0b
135 #define VOLUME_OVERFLOW 0x0d
136 #define MISCOMPARE 0x0e
137
138
139 /*
140 * DEVICE TYPES
141 */
142
143 #define TYPE_DISK 0x00
144 #define TYPE_TAPE 0x01
145 #define TYPE_WORM 0x04
146 #define TYPE_ROM 0x05
147 #define TYPE_MOD 0x07
148 #define TYPE_NO_LUN 0x7f
149
150 /* The data returned by MODE SENSE differ between the old Atari
151 * hard disks and SCSI disks connected to ACSI. In the following, both
152 * formats are defined and some macros to operate on them potably.
153 */
154
155 typedef struct {
156 unsigned long dummy[2];
157 unsigned long sector_size;
158 unsigned char format_code;
159 #define ATARI_SENSE_FORMAT_FIX 1
160 #define ATARI_SENSE_FORMAT_CHNG 2
161 unsigned char cylinders_h;
162 unsigned char cylinders_l;
163 unsigned char heads;
164 unsigned char reduced_h;
165 unsigned char reduced_l;
166 unsigned char precomp_h;
167 unsigned char precomp_l;
168 unsigned char landing_zone;
169 unsigned char steprate;
170 unsigned char type;
171 #define ATARI_SENSE_TYPE_FIXCHNG_MASK 4
172 #define ATARI_SENSE_TYPE_SOFTHARD_MASK 8
173 #define ATARI_SENSE_TYPE_FIX 4
174 #define ATARI_SENSE_TYPE_CHNG 0
175 #define ATARI_SENSE_TYPE_SOFT 0
176 #define ATARI_SENSE_TYPE_HARD 8
177 unsigned char sectors;
178 } ATARI_SENSE_DATA;
179
180 #define ATARI_CAPACITY(sd) \
181 (((int)((sd).cylinders_h<<8)|(sd).cylinders_l) * \
182 (sd).heads * (sd).sectors)
183
184
185 typedef struct {
186 unsigned char dummy1;
187 unsigned char medium_type;
188 unsigned char dummy2;
189 unsigned char descriptor_size;
190 unsigned long block_count;
191 unsigned long sector_size;
192 /* Page 0 data */
193 unsigned char page_code;
194 unsigned char page_size;
195 unsigned char page_flags;
196 unsigned char qualifier;
197 } SCSI_SENSE_DATA;
198
199 #define SCSI_CAPACITY(sd) ((sd).block_count & 0xffffff)
200
201
202 typedef union {
203 ATARI_SENSE_DATA atari;
204 SCSI_SENSE_DATA scsi;
205 } SENSE_DATA;
206
207 #define SENSE_TYPE_UNKNOWN 0
208 #define SENSE_TYPE_ATARI 1
209 #define SENSE_TYPE_SCSI 2
210
211 #define SENSE_TYPE(sd) \
212 (((sd).atari.dummy[0] == 8 && \
213 ((sd).atari.format_code == 1 || \
214 (sd).atari.format_code == 2)) ? SENSE_TYPE_ATARI : \
215 ((sd).scsi.dummy1 >= 11) ? SENSE_TYPE_SCSI : \
216 SENSE_TYPE_UNKNOWN)
217
218 #define CAPACITY(sd) \
219 (SENSE_TYPE(sd) == SENSE_TYPE_ATARI ? \
220 ATARI_CAPACITY((sd).atari) : \
221 SCSI_CAPACITY((sd).scsi))
222
223 #define SECTOR_SIZE(sd) \
224 (SENSE_TYPE(sd) == SENSE_TYPE_ATARI ? \
225 (sd).atari.sector_size : \
226 (sd).scsi.sector_size & 0xffffff)
227
228 /* Default size if capacity cannot be determined (1 GByte) */
229 #define DEFAULT_SIZE 0x1fffff
230
231 #define CARTRCH_STAT(dev,buf) \
232 (acsi_info[(dev)].old_atari_disk ? \
233 (((buf)[0] & 0x7f) == 0x28) : \
234 ((((buf)[0] & 0x70) == 0x70) ? \
235 (((buf)[2] & 0x0f) == 0x06) : \
236 (((buf)[0] & 0x0f) == 0x06))) \
237
238 /* These two are also exported to other drivers that work on the ACSI bus and
239 * need an ST-RAM buffer. */
240 char *acsi_buffer;
241 unsigned long phys_acsi_buffer;
242
243 static int NDevices = 0;
244 static int acsi_sizes[MAX_DEV<<4] = { 0, };
245 static int acsi_blocksizes[MAX_DEV<<4] = { 0, };
246 static struct hd_struct acsi_part[MAX_DEV<<4] = { {0,0}, };
247 static int access_count[MAX_DEV] = { 0, };
248 static char busy[MAX_DEV] = { 0, };
249 static DECLARE_WAIT_QUEUE_HEAD(busy_wait);
250
251 static int CurrentNReq;
252 static int CurrentNSect;
253 static char *CurrentBuffer;
254
255
256 #define SET_TIMER() mod_timer(&acsi_timer, jiffies + ACSI_TIMEOUT)
257 #define CLEAR_TIMER() del_timer(&acsi_timer)
258
259 static unsigned long STramMask;
260 #define STRAM_ADDR(a) (((a) & STramMask) == 0)
261
262
263
264 /* ACSI commands */
265
266 static char tur_cmd[6] = { 0x00, 0, 0, 0, 0, 0 };
267 static char modesense_cmd[6] = { 0x1a, 0, 0, 0, 24, 0 };
268 static char modeselect_cmd[6] = { 0x15, 0, 0, 0, 12, 0 };
269 static char inquiry_cmd[6] = { 0x12, 0, 0, 0,255, 0 };
270 static char reqsense_cmd[6] = { 0x03, 0, 0, 0, 4, 0 };
271 static char read_cmd[6] = { 0x08, 0, 0, 0, 0, 0 };
272 static char write_cmd[6] = { 0x0a, 0, 0, 0, 0, 0 };
273 static char pa_med_rem_cmd[6] = { 0x1e, 0, 0, 0, 0, 0 };
274
275 #define CMDSET_TARG_LUN(cmd,targ,lun) \
276 do { \
277 cmd[0] = (cmd[0] & ~0xe0) | (targ)<<5; \
278 cmd[1] = (cmd[1] & ~0xe0) | (lun)<<5; \
279 } while(0)
280
281 #define CMDSET_BLOCK(cmd,blk) \
282 do { \
283 unsigned long __blk = (blk); \
284 cmd[3] = __blk; __blk >>= 8; \
285 cmd[2] = __blk; __blk >>= 8; \
286 cmd[1] = (cmd[1] & 0xe0) | (__blk & 0x1f); \
287 } while(0)
288
289 #define CMDSET_LEN(cmd,len) \
290 do { \
291 cmd[4] = (len); \
292 } while(0)
293
294 #define min(a,b) (((a)<(b))?(a):(b))
295
296
297 /* ACSI errors (from REQUEST SENSE); There are two tables, one for the
298 * old Atari disks and one for SCSI on ACSI disks.
299 */
300
301 struct acsi_error {
302 unsigned char code;
303 const char *text;
304 } atari_acsi_errors[] = {
305 { 0x00, "No error (??)" },
306 { 0x01, "No index pulses" },
307 { 0x02, "Seek not complete" },
308 { 0x03, "Write fault" },
309 { 0x04, "Drive not ready" },
310 { 0x06, "No Track 00 signal" },
311 { 0x10, "ECC error in ID field" },
312 { 0x11, "Uncorrectable data error" },
313 { 0x12, "ID field address mark not found" },
314 { 0x13, "Data field address mark not found" },
315 { 0x14, "Record not found" },
316 { 0x15, "Seek error" },
317 { 0x18, "Data check in no retry mode" },
318 { 0x19, "ECC error during verify" },
319 { 0x1a, "Access to bad block" },
320 { 0x1c, "Unformatted or bad format" },
321 { 0x20, "Invalid command" },
322 { 0x21, "Invalid block address" },
323 { 0x23, "Volume overflow" },
324 { 0x24, "Invalid argument" },
325 { 0x25, "Invalid drive number" },
326 { 0x26, "Byte zero parity check" },
327 { 0x28, "Cartride changed" },
328 { 0x2c, "Error count overflow" },
329 { 0x30, "Controller selftest failed" }
330 },
331
332 scsi_acsi_errors[] = {
333 { 0x00, "No error (??)" },
334 { 0x01, "Recovered error" },
335 { 0x02, "Drive not ready" },
336 { 0x03, "Uncorrectable medium error" },
337 { 0x04, "Hardware error" },
338 { 0x05, "Illegal request" },
339 { 0x06, "Unit attention (Reset or cartridge changed)" },
340 { 0x07, "Data protection" },
341 { 0x08, "Blank check" },
342 { 0x0b, "Aborted Command" },
343 { 0x0d, "Volume overflow" }
344 };
345
346
347
348 /***************************** Prototypes *****************************/
349
350 static int acsicmd_dma( const char *cmd, char *buffer, int blocks, int
351 rwflag, int enable);
352 static int acsi_reqsense( char *buffer, int targ, int lun);
353 static void acsi_print_error( const unsigned char *errblk, int dev );
354 static void acsi_interrupt (int irq, void *data, struct pt_regs *fp);
355 static void unexpected_acsi_interrupt( void );
356 static void bad_rw_intr( void );
357 static void read_intr( void );
358 static void write_intr( void);
359 static void acsi_times_out( unsigned long dummy );
360 static void copy_to_acsibuffer( void );
361 static void copy_from_acsibuffer( void );
362 static void do_end_requests( void );
363 static void do_acsi_request( void );
364 static void redo_acsi_request( void );
365 static int acsi_ioctl( struct inode *inode, struct file *file, unsigned int
366 cmd, unsigned long arg );
367 static int acsi_open( struct inode * inode, struct file * filp );
368 static int acsi_release( struct inode * inode, struct file * file );
369 static void acsi_prevent_removal( int target, int flag );
370 static int acsi_change_blk_size( int target, int lun);
371 static int acsi_mode_sense( int target, int lun, SENSE_DATA *sd );
372 static void acsi_geninit( struct gendisk *gd );
373 static int revalidate_acsidisk( int dev, int maxusage );
374 static int acsi_revalidate (dev_t);
375
376 /************************* End of Prototypes **************************/
377
378
379 struct timer_list acsi_timer = { NULL, NULL, 0, 0, acsi_times_out };
380
381
382 #ifdef CONFIG_ATARI_SLM
383
384 extern int attach_slm( int target, int lun );
385 extern int slm_init( void );
386
387 #endif
388
389
390 \f
391 /***********************************************************************
392 *
393 * ACSI primitives
394 *
395 **********************************************************************/
396
397
398 /*
399 * The following two functions wait for _IRQ to become Low or High,
400 * resp., with a timeout. The 'timeout' parameter is in jiffies
401 * (10ms).
402 * If the functions are called with timer interrupts on (int level <
403 * 6), the timeout is based on the 'jiffies' variable to provide exact
404 * timeouts for device probing etc.
405 * If interrupts are disabled, the number of tries is based on the
406 * 'loops_per_sec' variable. A rough estimation is sufficient here...
407 */
408
409 #define INT_LEVEL \
410 ({ unsigned __sr; \
411 __asm__ __volatile__ ( "movew %/sr,%0" : "=dm" (__sr) ); \
412 (__sr >> 8) & 7; \
413 })
414
415 int acsi_wait_for_IRQ( unsigned timeout )
416
417 {
418 if (INT_LEVEL < 6) {
419 unsigned long maxjif = jiffies + timeout;
420 while (time_before(jiffies, maxjif))
421 if (!(mfp.par_dt_reg & 0x20)) return( 1 );
422 }
423 else {
424 long tries = loops_per_sec / HZ / 8 * timeout;
425 while( --tries >= 0 )
426 if (!(mfp.par_dt_reg & 0x20)) return( 1 );
427 }
428 return( 0 ); /* timeout! */
429 }
430
431
432 int acsi_wait_for_noIRQ( unsigned timeout )
433
434 {
435 if (INT_LEVEL < 6) {
436 unsigned long maxjif = jiffies + timeout;
437 while (time_before(jiffies, maxjif))
438 if (mfp.par_dt_reg & 0x20) return( 1 );
439 }
440 else {
441 long tries = loops_per_sec * timeout / HZ / 8;
442 while( tries-- >= 0 )
443 if (mfp.par_dt_reg & 0x20) return( 1 );
444 }
445 return( 0 ); /* timeout! */
446 }
447
448 static struct timeval start_time;
449
450 void
451 acsi_delay_start(void)
452 {
453 do_gettimeofday(&start_time);
454 }
455
456 /* wait from acsi_delay_start to now usec (<1E6) usec */
457
458 void
459 acsi_delay_end(long usec)
460 {
461 struct timeval end_time;
462 long deltau,deltas;
463 do_gettimeofday(&end_time);
464 deltau=end_time.tv_usec - start_time.tv_usec;
465 deltas=end_time.tv_sec - start_time.tv_sec;
466 if (deltas > 1 || deltas < 0)
467 return;
468 if (deltas > 0)
469 deltau += 1000*1000;
470 if (deltau >= usec)
471 return;
472 udelay(usec-deltau);
473 }
474
475 /* acsicmd_dma() sends an ACSI command and sets up the DMA to transfer
476 * 'blocks' blocks of 512 bytes from/to 'buffer'.
477 * Because the _IRQ signal is used for handshaking the command bytes,
478 * the ACSI interrupt has to be disabled in this function. If the end
479 * of the operation should be signalled by a real interrupt, it has to be
480 * reenabled afterwards.
481 */
482
483 static int acsicmd_dma( const char *cmd, char *buffer, int blocks, int rwflag, int enable)
484
485 { unsigned long flags, paddr;
486 int i;
487
488 #ifdef NO_WRITE
489 if (rwflag || *cmd == 0x0a) {
490 printk( "ACSI: Write commands disabled!\n" );
491 return( 0 );
492 }
493 #endif
494
495 rwflag = rwflag ? 0x100 : 0;
496 paddr = virt_to_phys( buffer );
497
498 acsi_delay_end(COMMAND_DELAY);
499 DISABLE_IRQ();
500
501 save_flags(flags);
502 cli();
503 /* Low on A1 */
504 dma_wd.dma_mode_status = 0x88 | rwflag;
505 MFPDELAY();
506
507 /* set DMA address */
508 dma_wd.dma_lo = (unsigned char)paddr;
509 paddr >>= 8;
510 MFPDELAY();
511 dma_wd.dma_md = (unsigned char)paddr;
512 paddr >>= 8;
513 MFPDELAY();
514 if (ATARIHW_PRESENT(EXTD_DMA))
515 st_dma_ext_dmahi = (unsigned short)paddr;
516 else
517 dma_wd.dma_hi = (unsigned char)paddr;
518 MFPDELAY();
519 restore_flags(flags);
520
521 /* send the command bytes except the last */
522 for( i = 0; i < 5; ++i ) {
523 DMA_LONG_WRITE( *cmd++, 0x8a | rwflag );
524 udelay(20);
525 if (!acsi_wait_for_IRQ( HZ/2 )) return( 0 ); /* timeout */
526 }
527
528 /* Clear FIFO and switch DMA to correct direction */
529 dma_wd.dma_mode_status = 0x92 | (rwflag ^ 0x100);
530 MFPDELAY();
531 dma_wd.dma_mode_status = 0x92 | rwflag;
532 MFPDELAY();
533
534 /* How many sectors for DMA */
535 dma_wd.fdc_acces_seccount = blocks;
536 MFPDELAY();
537
538 /* send last command byte */
539 dma_wd.dma_mode_status = 0x8a | rwflag;
540 MFPDELAY();
541 DMA_LONG_WRITE( *cmd++, 0x0a | rwflag );
542 if (enable)
543 ENABLE_IRQ();
544 udelay(80);
545
546 return( 1 );
547 }
548
549
550 /*
551 * acsicmd_nodma() sends an ACSI command that requires no DMA.
552 */
553
554 int acsicmd_nodma( const char *cmd, int enable)
555
556 { int i;
557
558 acsi_delay_end(COMMAND_DELAY);
559 DISABLE_IRQ();
560
561 /* send first command byte */
562 dma_wd.dma_mode_status = 0x88;
563 MFPDELAY();
564 DMA_LONG_WRITE( *cmd++, 0x8a );
565 udelay(20);
566 if (!acsi_wait_for_IRQ( HZ/2 )) return( 0 ); /* timeout */
567
568 /* send the intermediate command bytes */
569 for( i = 0; i < 4; ++i ) {
570 DMA_LONG_WRITE( *cmd++, 0x8a );
571 udelay(20);
572 if (!acsi_wait_for_IRQ( HZ/2 )) return( 0 ); /* timeout */
573 }
574
575 /* send last command byte */
576 DMA_LONG_WRITE( *cmd++, 0x0a );
577 if (enable)
578 ENABLE_IRQ();
579 udelay(80);
580
581 return( 1 );
582 /* Note that the ACSI interrupt is still disabled after this
583 * function. If you want to get the IRQ delivered, enable it manually!
584 */
585 }
586
587
588 static int acsi_reqsense( char *buffer, int targ, int lun)
589
590 {
591 CMDSET_TARG_LUN( reqsense_cmd, targ, lun);
592 if (!acsicmd_dma( reqsense_cmd, buffer, 1, 0, 0 )) return( 0 );
593 if (!acsi_wait_for_IRQ( 10 )) return( 0 );
594 acsi_getstatus();
595 if (!acsicmd_nodma( reqsense_cmd, 0 )) return( 0 );
596 if (!acsi_wait_for_IRQ( 10 )) return( 0 );
597 acsi_getstatus();
598 if (!acsicmd_nodma( reqsense_cmd, 0 )) return( 0 );
599 if (!acsi_wait_for_IRQ( 10 )) return( 0 );
600 acsi_getstatus();
601 if (!acsicmd_nodma( reqsense_cmd, 0 )) return( 0 );
602 if (!acsi_wait_for_IRQ( 10 )) return( 0 );
603 acsi_getstatus();
604 dma_cache_maintenance( virt_to_phys(buffer), 16, 0 );
605
606 return( 1 );
607 }
608
609
610 /*
611 * ACSI status phase: get the status byte from the bus
612 *
613 * I've seen several times that a 0xff status is read, propably due to
614 * a timing error. In this case, the procedure is repeated after the
615 * next _IRQ edge.
616 */
617
618 int acsi_getstatus( void )
619
620 { int status;
621
622 DISABLE_IRQ();
623 for(;;) {
624 if (!acsi_wait_for_IRQ( 100 )) {
625 acsi_delay_start();
626 return( -1 );
627 }
628 dma_wd.dma_mode_status = 0x8a;
629 MFPDELAY();
630 status = dma_wd.fdc_acces_seccount;
631 if (status != 0xff) break;
632 #ifdef DEBUG
633 printk("ACSI: skipping 0xff status byte\n" );
634 #endif
635 udelay(40);
636 acsi_wait_for_noIRQ( 20 );
637 }
638 dma_wd.dma_mode_status = 0x80;
639 udelay(40);
640 acsi_wait_for_noIRQ( 20 );
641
642 acsi_delay_start();
643 return( status & 0x1f ); /* mask of the device# */
644 }
645
646
647 #if (defined(CONFIG_ATARI_SLM) || defined(CONFIG_ATARI_SLM_MODULE))
648
649 /* Receive data in an extended status phase. Needed by SLM printer. */
650
651 int acsi_extstatus( char *buffer, int cnt )
652
653 { int status;
654
655 DISABLE_IRQ();
656 udelay(80);
657 while( cnt-- > 0 ) {
658 if (!acsi_wait_for_IRQ( 40 )) return( 0 );
659 dma_wd.dma_mode_status = 0x8a;
660 MFPDELAY();
661 status = dma_wd.fdc_acces_seccount;
662 MFPDELAY();
663 *buffer++ = status & 0xff;
664 udelay(40);
665 }
666 return( 1 );
667 }
668
669
670 /* Finish an extended status phase */
671
672 void acsi_end_extstatus( void )
673
674 {
675 dma_wd.dma_mode_status = 0x80;
676 udelay(40);
677 acsi_wait_for_noIRQ( 20 );
678 acsi_delay_start();
679 }
680
681
682 /* Send data in an extended command phase */
683
684 int acsi_extcmd( unsigned char *buffer, int cnt )
685
686 {
687 while( cnt-- > 0 ) {
688 DMA_LONG_WRITE( *buffer++, 0x8a );
689 udelay(20);
690 if (!acsi_wait_for_IRQ( HZ/2 )) return( 0 ); /* timeout */
691 }
692 return( 1 );
693 }
694
695 #endif
696
697
698 static void acsi_print_error( const unsigned char *errblk, int dev )
699
700 { int atari_err, i, errcode;
701 struct acsi_error *arr;
702
703 atari_err = acsi_info[dev].old_atari_disk;
704 if (atari_err)
705 errcode = errblk[0] & 0x7f;
706 else
707 if ((errblk[0] & 0x70) == 0x70)
708 errcode = errblk[2] & 0x0f;
709 else
710 errcode = errblk[0] & 0x0f;
711
712 printk( KERN_ERR "ACSI error 0x%02x", errcode );
713
714 if (errblk[0] & 0x80)
715 printk( " for sector %d",
716 ((errblk[1] & 0x1f) << 16) |
717 (errblk[2] << 8) | errblk[0] );
718
719 arr = atari_err ? atari_acsi_errors : scsi_acsi_errors;
720 i = atari_err ? sizeof(atari_acsi_errors)/sizeof(*atari_acsi_errors) :
721 sizeof(scsi_acsi_errors)/sizeof(*scsi_acsi_errors);
722
723 for( --i; i >= 0; --i )
724 if (arr[i].code == errcode) break;
725 if (i >= 0)
726 printk( ": %s\n", arr[i].text );
727 }
728
729 /*******************************************************************
730 *
731 * ACSI interrupt routine
732 * Test, if this is a ACSI interrupt and call the irq handler
733 * Otherwise ignore this interrupt.
734 *
735 *******************************************************************/
736
737 static void acsi_interrupt(int irq, void *data, struct pt_regs *fp )
738
739 { void (*acsi_irq_handler)(void) = DEVICE_INTR;
740
741 DEVICE_INTR = NULL;
742 CLEAR_TIMER();
743
744 if (!acsi_irq_handler)
745 acsi_irq_handler = unexpected_acsi_interrupt;
746 acsi_irq_handler();
747 }
748
749
750 /******************************************************************
751 *
752 * The Interrupt handlers
753 *
754 *******************************************************************/
755
756
757 static void unexpected_acsi_interrupt( void )
758
759 {
760 printk( KERN_WARNING "Unexpected ACSI interrupt\n" );
761 }
762
763
764 /* This function is called in case of errors. Because we cannot reset
765 * the ACSI bus or a single device, there is no other choice than
766 * retrying several times :-(
767 */
768
769 static void bad_rw_intr( void )
770
771 {
772 if (!CURRENT)
773 return;
774
775 if (++CURRENT->errors >= MAX_ERRORS)
776 end_request(0);
777 /* Otherwise just retry */
778 }
779
780
781 static void read_intr( void )
782
783 { int status;
784
785 status = acsi_getstatus();
786 if (status != 0) {
787 int dev = DEVICE_NR(MINOR(CURRENT->rq_dev));
788 printk( KERN_ERR "ad%c: ", dev+'a' );
789 if (!acsi_reqsense( acsi_buffer, acsi_info[dev].target,
790 acsi_info[dev].lun))
791 printk( "ACSI error and REQUEST SENSE failed (status=0x%02x)\n", status );
792 else {
793 acsi_print_error( acsi_buffer, dev );
794 if (CARTRCH_STAT( dev, acsi_buffer ))
795 acsi_info[dev].changed = 1;
796 }
797 ENABLE_IRQ();
798 bad_rw_intr();
799 redo_acsi_request();
800 return;
801 }
802
803 dma_cache_maintenance( virt_to_phys(CurrentBuffer), CurrentNSect*512, 0 );
804 if (CurrentBuffer == acsi_buffer)
805 copy_from_acsibuffer();
806
807 do_end_requests();
808 redo_acsi_request();
809 }
810
811
812 static void write_intr(void)
813
814 { int status;
815
816 status = acsi_getstatus();
817 if (status != 0) {
818 int dev = DEVICE_NR(MINOR(CURRENT->rq_dev));
819 printk( KERN_ERR "ad%c: ", dev+'a' );
820 if (!acsi_reqsense( acsi_buffer, acsi_info[dev].target,
821 acsi_info[dev].lun))
822 printk( "ACSI error and REQUEST SENSE failed (status=0x%02x)\n", status );
823 else {
824 acsi_print_error( acsi_buffer, dev );
825 if (CARTRCH_STAT( dev, acsi_buffer ))
826 acsi_info[dev].changed = 1;
827 }
828 bad_rw_intr();
829 redo_acsi_request();
830 return;
831 }
832
833 do_end_requests();
834 redo_acsi_request();
835 }
836
837
838 static void acsi_times_out( unsigned long dummy )
839
840 {
841 DISABLE_IRQ();
842 if (!DEVICE_INTR) return;
843
844 DEVICE_INTR = NULL;
845 printk( KERN_ERR "ACSI timeout\n" );
846 if (!CURRENT) return;
847 if (++CURRENT->errors >= MAX_ERRORS) {
848 #ifdef DEBUG
849 printk( KERN_ERR "ACSI: too many errors.\n" );
850 #endif
851 end_request(0);
852 }
853
854 redo_acsi_request();
855 }
856
857
858 \f
859 /***********************************************************************
860 *
861 * Scatter-gather utility functions
862 *
863 ***********************************************************************/
864
865
866 static void copy_to_acsibuffer( void )
867
868 { int i;
869 char *src, *dst;
870 struct buffer_head *bh;
871
872 src = CURRENT->buffer;
873 dst = acsi_buffer;
874 bh = CURRENT->bh;
875
876 if (!bh)
877 memcpy( dst, src, CurrentNSect*512 );
878 else
879 for( i = 0; i < CurrentNReq; ++i ) {
880 memcpy( dst, src, bh->b_size );
881 dst += bh->b_size;
882 if ((bh = bh->b_reqnext))
883 src = bh->b_data;
884 }
885 }
886
887
888 static void copy_from_acsibuffer( void )
889
890 { int i;
891 char *src, *dst;
892 struct buffer_head *bh;
893
894 dst = CURRENT->buffer;
895 src = acsi_buffer;
896 bh = CURRENT->bh;
897
898 if (!bh)
899 memcpy( dst, src, CurrentNSect*512 );
900 else
901 for( i = 0; i < CurrentNReq; ++i ) {
902 memcpy( dst, src, bh->b_size );
903 src += bh->b_size;
904 if ((bh = bh->b_reqnext))
905 dst = bh->b_data;
906 }
907 }
908
909
910 static void do_end_requests( void )
911
912 { int i, n;
913
914 if (!CURRENT->bh) {
915 CURRENT->nr_sectors -= CurrentNSect;
916 CURRENT->current_nr_sectors -= CurrentNSect;
917 CURRENT->sector += CurrentNSect;
918 if (CURRENT->nr_sectors == 0)
919 end_request(1);
920 }
921 else {
922 for( i = 0; i < CurrentNReq; ++i ) {
923 n = CURRENT->bh->b_size >> 9;
924 CURRENT->nr_sectors -= n;
925 CURRENT->current_nr_sectors -= n;
926 CURRENT->sector += n;
927 end_request(1);
928 }
929 }
930 }
931
932
933
934 \f
935 /***********************************************************************
936 *
937 * do_acsi_request and friends
938 *
939 ***********************************************************************/
940
941 static void do_acsi_request( void )
942
943 {
944 stdma_lock( acsi_interrupt, NULL );
945 redo_acsi_request();
946 }
947
948
949 static void redo_acsi_request( void )
950
951 { unsigned block, dev, target, lun, nsect;
952 char *buffer;
953 unsigned long pbuffer;
954 struct buffer_head *bh;
955
956 if (CURRENT && CURRENT->rq_status == RQ_INACTIVE) {
957 if (!DEVICE_INTR) {
958 ENABLE_IRQ();
959 stdma_release();
960 }
961 return;
962 }
963
964 if (DEVICE_INTR)
965 return;
966
967 repeat:
968 CLEAR_TIMER();
969 /* Another check here: An interrupt or timer event could have
970 * happened since the last check!
971 */
972 if (CURRENT && CURRENT->rq_status == RQ_INACTIVE) {
973 if (!DEVICE_INTR) {
974 ENABLE_IRQ();
975 stdma_release();
976 }
977 return;
978 }
979 if (DEVICE_INTR)
980 return;
981
982 if (!CURRENT) {
983 CLEAR_INTR;
984 ENABLE_IRQ();
985 stdma_release();
986 return;
987 }
988
989 if (MAJOR(CURRENT->rq_dev) != MAJOR_NR)
990 panic(DEVICE_NAME ": request list destroyed");
991 if (CURRENT->bh) {
992 if (!CURRENT->bh && !buffer_locked(CURRENT->bh))
993 panic(DEVICE_NAME ": block not locked");
994 }
995
996 dev = MINOR(CURRENT->rq_dev);
997 block = CURRENT->sector;
998 if (DEVICE_NR(dev) >= NDevices ||
999 block+CURRENT->nr_sectors >= acsi_part[dev].nr_sects) {
1000 #ifdef DEBUG
1001 printk( "ad%c: attempted access for blocks %d...%ld past end of device at block %ld.\n",
1002 DEVICE_NR(dev)+'a',
1003 block, block + CURRENT->nr_sectors - 1,
1004 acsi_part[dev].nr_sects);
1005 #endif
1006 end_request(0);
1007 goto repeat;
1008 }
1009 if (acsi_info[DEVICE_NR(dev)].changed) {
1010 printk( KERN_NOTICE "ad%c: request denied because cartridge has "
1011 "been changed.\n", DEVICE_NR(dev)+'a' );
1012 end_request(0);
1013 goto repeat;
1014 }
1015
1016 block += acsi_part[dev].start_sect;
1017 target = acsi_info[DEVICE_NR(dev)].target;
1018 lun = acsi_info[DEVICE_NR(dev)].lun;
1019
1020 /* Find out how many sectors should be transferred from/to
1021 * consecutive buffers and thus can be done with a single command.
1022 */
1023 buffer = CURRENT->buffer;
1024 pbuffer = virt_to_phys(buffer);
1025 nsect = CURRENT->current_nr_sectors;
1026 CurrentNReq = 1;
1027
1028 if ((bh = CURRENT->bh) && bh != CURRENT->bhtail) {
1029 if (!STRAM_ADDR(pbuffer)) {
1030 /* If transfer is done via the ACSI buffer anyway, we can
1031 * assemble as much bh's as fit in the buffer.
1032 */
1033 while( (bh = bh->b_reqnext) ) {
1034 if (nsect + (bh->b_size>>9) > ACSI_BUFFER_SECTORS) break;
1035 nsect += bh->b_size >> 9;
1036 ++CurrentNReq;
1037 if (bh == CURRENT->bhtail) break;
1038 }
1039 buffer = acsi_buffer;
1040 pbuffer = phys_acsi_buffer;
1041 }
1042 else {
1043 unsigned long pendadr, pnewadr;
1044 pendadr = pbuffer + nsect*512;
1045 while( (bh = bh->b_reqnext) ) {
1046 pnewadr = virt_to_phys(bh->b_data);
1047 if (!STRAM_ADDR(pnewadr) || pendadr != pnewadr) break;
1048 nsect += bh->b_size >> 9;
1049 pendadr = pnewadr + bh->b_size;
1050 ++CurrentNReq;
1051 if (bh == CURRENT->bhtail) break;
1052 }
1053 }
1054 }
1055 else {
1056 if (!STRAM_ADDR(pbuffer)) {
1057 buffer = acsi_buffer;
1058 pbuffer = phys_acsi_buffer;
1059 if (nsect > ACSI_BUFFER_SECTORS)
1060 nsect = ACSI_BUFFER_SECTORS;
1061 }
1062 }
1063 CurrentBuffer = buffer;
1064 CurrentNSect = nsect;
1065
1066 if (CURRENT->cmd == WRITE) {
1067 CMDSET_TARG_LUN( write_cmd, target, lun );
1068 CMDSET_BLOCK( write_cmd, block );
1069 CMDSET_LEN( write_cmd, nsect );
1070 if (buffer == acsi_buffer)
1071 copy_to_acsibuffer();
1072 dma_cache_maintenance( pbuffer, nsect*512, 1 );
1073 SET_INTR(write_intr);
1074 if (!acsicmd_dma( write_cmd, buffer, nsect, 1, 1)) {
1075 CLEAR_INTR;
1076 printk( KERN_ERR "ACSI (write): Timeout in command block\n" );
1077 bad_rw_intr();
1078 goto repeat;
1079 }
1080 SET_TIMER();
1081 return;
1082 }
1083 if (CURRENT->cmd == READ) {
1084 CMDSET_TARG_LUN( read_cmd, target, lun );
1085 CMDSET_BLOCK( read_cmd, block );
1086 CMDSET_LEN( read_cmd, nsect );
1087 SET_INTR(read_intr);
1088 if (!acsicmd_dma( read_cmd, buffer, nsect, 0, 1)) {
1089 CLEAR_INTR;
1090 printk( KERN_ERR "ACSI (read): Timeout in command block\n" );
1091 bad_rw_intr();
1092 goto repeat;
1093 }
1094 SET_TIMER();
1095 return;
1096 }
1097 panic("unknown ACSI command");
1098 }
1099
1100
1101 \f
1102 /***********************************************************************
1103 *
1104 * Misc functions: ioctl, open, release, check_change, ...
1105 *
1106 ***********************************************************************/
1107
1108
1109 static int acsi_ioctl( struct inode *inode, struct file *file,
1110 unsigned int cmd, unsigned long arg )
1111 { int dev;
1112
1113 if (!inode)
1114 return -EINVAL;
1115 dev = DEVICE_NR(MINOR(inode->i_rdev));
1116 if (dev >= NDevices)
1117 return -EINVAL;
1118 switch (cmd) {
1119 case HDIO_GETGEO:
1120 /* HDIO_GETGEO is supported more for getting the partition's
1121 * start sector... */
1122 { struct hd_geometry *geo = (struct hd_geometry *)arg;
1123 /* just fake some geometry here, it's nonsense anyway; to make it
1124 * easy, use Adaptec's usual 64/32 mapping */
1125 put_user( 64, &geo->heads );
1126 put_user( 32, &geo->sectors );
1127 put_user( acsi_info[dev].size >> 11, &geo->cylinders );
1128 put_user( acsi_part[MINOR(inode->i_rdev)].start_sect, &geo->start );
1129 return 0;
1130 }
1131
1132 case SCSI_IOCTL_GET_IDLUN:
1133 /* SCSI compatible GET_IDLUN call to get target's ID and LUN number */
1134 put_user( acsi_info[dev].target | (acsi_info[dev].lun << 8),
1135 &((Scsi_Idlun *) arg)->dev_id );
1136 put_user( 0, &((Scsi_Idlun *) arg)->host_unique_id );
1137 return 0;
1138
1139 case BLKGETSIZE: /* Return device size */
1140 return put_user(acsi_part[MINOR(inode->i_rdev)].nr_sects,
1141 (long *) arg);
1142
1143 case BLKROSET:
1144 case BLKROGET:
1145 case BLKFLSBUF:
1146 case BLKPG:
1147 return blk_ioctl(inode->i_rdev, cmd, arg);
1148
1149 case BLKRRPART: /* Re-read partition tables */
1150 if (!capable(CAP_SYS_ADMIN))
1151 return -EACCES;
1152 return revalidate_acsidisk(inode->i_rdev, 1);
1153
1154 default:
1155 return -EINVAL;
1156 }
1157 }
1158
1159
1160 /*
1161 * Open a device, check for read-only and lock the medium if it is
1162 * removable.
1163 *
1164 * Changes by Martin Rogge, 9th Aug 1995:
1165 * Check whether check_disk_change (and therefore revalidate_acsidisk)
1166 * was successful. They fail when there is no medium in the drive.
1167 *
1168 * The problem of media being changed during an operation can be
1169 * ignored because of the prevent_removal code.
1170 *
1171 * Added check for the validity of the device number.
1172 *
1173 */
1174
1175 static int acsi_open( struct inode * inode, struct file * filp )
1176 {
1177 int device;
1178 struct acsi_info_struct *aip;
1179
1180 device = DEVICE_NR(MINOR(inode->i_rdev));
1181 if (device >= NDevices)
1182 return -ENXIO;
1183 aip = &acsi_info[device];
1184 while (busy[device])
1185 sleep_on(&busy_wait);
1186
1187 if (access_count[device] == 0 && aip->removable) {
1188 #if 0
1189 aip->changed = 1; /* safety first */
1190 #endif
1191 check_disk_change( inode->i_rdev );
1192 if (aip->changed) /* revalidate was not successful (no medium) */
1193 return -ENXIO;
1194 acsi_prevent_removal(device, 1);
1195 }
1196 access_count[device]++;
1197 MOD_INC_USE_COUNT;
1198
1199 if (filp && filp->f_mode) {
1200 check_disk_change( inode->i_rdev );
1201 if (filp->f_mode & 2) {
1202 if (aip->read_only) {
1203 acsi_release( inode, filp );
1204 return -EROFS;
1205 }
1206 }
1207 }
1208
1209 return 0;
1210 }
1211
1212 /*
1213 * Releasing a block device means we sync() it, so that it can safely
1214 * be forgotten about...
1215 */
1216
1217 static int acsi_release( struct inode * inode, struct file * file )
1218 {
1219 int device;
1220
1221 sync_dev(inode->i_rdev);
1222
1223 device = DEVICE_NR(MINOR(inode->i_rdev));
1224 if (--access_count[device] == 0 && acsi_info[device].removable)
1225 acsi_prevent_removal(device, 0);
1226 MOD_DEC_USE_COUNT;
1227 return( 0 );
1228 }
1229
1230 /*
1231 * Prevent or allow a media change for removable devices.
1232 */
1233
1234 static void acsi_prevent_removal(int device, int flag)
1235 {
1236 stdma_lock( NULL, NULL );
1237
1238 CMDSET_TARG_LUN(pa_med_rem_cmd, acsi_info[device].target,
1239 acsi_info[device].lun);
1240 CMDSET_LEN( pa_med_rem_cmd, flag );
1241
1242 if (acsicmd_nodma(pa_med_rem_cmd, 0) && acsi_wait_for_IRQ(3*HZ))
1243 acsi_getstatus();
1244 /* Do not report errors -- some devices may not know this command. */
1245
1246 ENABLE_IRQ();
1247 stdma_release();
1248 }
1249
1250 static int acsi_media_change (dev_t dev)
1251 {
1252 int device = DEVICE_NR(MINOR(dev));
1253 struct acsi_info_struct *aip;
1254
1255 aip = &acsi_info[device];
1256 if (!aip->removable)
1257 return 0;
1258
1259 if (aip->changed)
1260 /* We can be sure that the medium has been changed -- REQUEST
1261 * SENSE has reported this earlier.
1262 */
1263 return 1;
1264
1265 /* If the flag isn't set, make a test by reading block 0.
1266 * If errors happen, it seems to be better to say "changed"...
1267 */
1268 stdma_lock( NULL, NULL );
1269 CMDSET_TARG_LUN(read_cmd, aip->target, aip->lun);
1270 CMDSET_BLOCK( read_cmd, 0 );
1271 CMDSET_LEN( read_cmd, 1 );
1272 if (acsicmd_dma(read_cmd, acsi_buffer, 1, 0, 0) &&
1273 acsi_wait_for_IRQ(3*HZ)) {
1274 if (acsi_getstatus()) {
1275 if (acsi_reqsense(acsi_buffer, aip->target, aip->lun)) {
1276 if (CARTRCH_STAT(device, acsi_buffer))
1277 aip->changed = 1;
1278 }
1279 else {
1280 printk( KERN_ERR "ad%c: REQUEST SENSE failed in test for "
1281 "medium change; assuming a change\n", device + 'a' );
1282 aip->changed = 1;
1283 }
1284 }
1285 }
1286 else {
1287 printk( KERN_ERR "ad%c: Test for medium changed timed out; "
1288 "assuming a change\n", device + 'a');
1289 aip->changed = 1;
1290 }
1291 ENABLE_IRQ();
1292 stdma_release();
1293
1294 /* Now, after reading a block, the changed status is surely valid. */
1295 return aip->changed;
1296 }
1297
1298
1299 static int acsi_change_blk_size( int target, int lun)
1300
1301 { int i;
1302
1303 for (i=0; i<12; i++)
1304 acsi_buffer[i] = 0;
1305
1306 acsi_buffer[3] = 8;
1307 acsi_buffer[10] = 2;
1308 CMDSET_TARG_LUN( modeselect_cmd, target, lun);
1309
1310 if (!acsicmd_dma( modeselect_cmd, acsi_buffer, 1,1,0) ||
1311 !acsi_wait_for_IRQ( 3*HZ ) ||
1312 acsi_getstatus() != 0 ) {
1313 return(0);
1314 }
1315 return(1);
1316 }
1317
1318
1319 static int acsi_mode_sense( int target, int lun, SENSE_DATA *sd )
1320
1321 {
1322 int page;
1323
1324 CMDSET_TARG_LUN( modesense_cmd, target, lun );
1325 for (page=0; page<4; page++) {
1326 modesense_cmd[2] = page;
1327 if (!acsicmd_dma( modesense_cmd, acsi_buffer, 1, 0, 0 ) ||
1328 !acsi_wait_for_IRQ( 3*HZ ) ||
1329 acsi_getstatus())
1330 continue;
1331
1332 /* read twice to jump over the second 16-byte border! */
1333 udelay(300);
1334 if (acsi_wait_for_noIRQ( 20 ) &&
1335 acsicmd_nodma( modesense_cmd, 0 ) &&
1336 acsi_wait_for_IRQ( 3*HZ ) &&
1337 acsi_getstatus() == 0)
1338 break;
1339 }
1340 if (page == 4) {
1341 return(0);
1342 }
1343
1344 dma_cache_maintenance( phys_acsi_buffer, sizeof(SENSE_DATA), 0 );
1345 *sd = *(SENSE_DATA *)acsi_buffer;
1346
1347 /* Validity check, depending on type of data */
1348
1349 switch( SENSE_TYPE(*sd) ) {
1350
1351 case SENSE_TYPE_ATARI:
1352 if (CAPACITY(*sd) == 0)
1353 goto invalid_sense;
1354 break;
1355
1356 case SENSE_TYPE_SCSI:
1357 if (sd->scsi.descriptor_size != 8)
1358 goto invalid_sense;
1359 break;
1360
1361 case SENSE_TYPE_UNKNOWN:
1362
1363 printk( KERN_ERR "ACSI target %d, lun %d: Cannot interpret "
1364 "sense data\n", target, lun );
1365
1366 invalid_sense:
1367
1368 #ifdef DEBUG
1369 { int i;
1370 printk( "Mode sense data for ACSI target %d, lun %d seem not valid:",
1371 target, lun );
1372 for( i = 0; i < sizeof(SENSE_DATA); ++i )
1373 printk( "%02x ", (unsigned char)acsi_buffer[i] );
1374 printk( "\n" );
1375 }
1376 #endif
1377 return( 0 );
1378 }
1379
1380 return( 1 );
1381 }
1382
1383
1384
1385 /*******************************************************************
1386 *
1387 * Initialization
1388 *
1389 ********************************************************************/
1390
1391
1392 static struct gendisk acsi_gendisk = {
1393 MAJOR_NR, /* Major number */
1394 "ad", /* Major name */
1395 4, /* Bits to shift to get real from partition */
1396 1 << 4, /* Number of partitions per real */
1397 MAX_DEV, /* maximum number of real */
1398 #ifdef MODULE
1399 NULL, /* called from init_module() */
1400 #else
1401 acsi_geninit, /* init function */
1402 #endif
1403 acsi_part, /* hd struct */
1404 acsi_sizes, /* block sizes */
1405 0, /* number */
1406 (void *)acsi_info, /* internal */
1407 NULL /* next */
1408 };
1409
1410 #define MAX_SCSI_DEVICE_CODE 10
1411
1412 static const char *const scsi_device_types[MAX_SCSI_DEVICE_CODE] =
1413 {
1414 "Direct-Access ",
1415 "Sequential-Access",
1416 "Printer ",
1417 "Processor ",
1418 "WORM ",
1419 "CD-ROM ",
1420 "Scanner ",
1421 "Optical Device ",
1422 "Medium Changer ",
1423 "Communications "
1424 };
1425
1426 static void print_inquiry(unsigned char *data)
1427 {
1428 int i;
1429
1430 printk(KERN_INFO " Vendor: ");
1431 for (i = 8; i < 16; i++)
1432 {
1433 if (data[i] >= 0x20 && i < data[4] + 5)
1434 printk("%c", data[i]);
1435 else
1436 printk(" ");
1437 }
1438
1439 printk(" Model: ");
1440 for (i = 16; i < 32; i++)
1441 {
1442 if (data[i] >= 0x20 && i < data[4] + 5)
1443 printk("%c", data[i]);
1444 else
1445 printk(" ");
1446 }
1447
1448 printk(" Rev: ");
1449 for (i = 32; i < 36; i++)
1450 {
1451 if (data[i] >= 0x20 && i < data[4] + 5)
1452 printk("%c", data[i]);
1453 else
1454 printk(" ");
1455 }
1456
1457 printk("\n");
1458
1459 i = data[0] & 0x1f;
1460
1461 printk(KERN_INFO " Type: %s ", (i < MAX_SCSI_DEVICE_CODE
1462 ? scsi_device_types[i]
1463 : "Unknown "));
1464 printk(" ANSI SCSI revision: %02x", data[2] & 0x07);
1465 if ((data[2] & 0x07) == 1 && (data[3] & 0x0f) == 1)
1466 printk(" CCS\n");
1467 else
1468 printk("\n");
1469 }
1470
1471
1472 /*
1473 * Changes by Martin Rogge, 9th Aug 1995:
1474 * acsi_devinit has been taken out of acsi_geninit, because it needs
1475 * to be called from revalidate_acsidisk. The result of request sense
1476 * is now checked for DRIVE NOT READY.
1477 *
1478 * The structure *aip is only valid when acsi_devinit returns
1479 * DEV_SUPPORTED.
1480 *
1481 */
1482
1483 #define DEV_NONE 0
1484 #define DEV_UNKNOWN 1
1485 #define DEV_SUPPORTED 2
1486 #define DEV_SLM 3
1487
1488 static int acsi_devinit(struct acsi_info_struct *aip)
1489 {
1490 int status, got_inquiry;
1491 SENSE_DATA sense;
1492 unsigned char reqsense, extsense;
1493
1494 /*****************************************************************/
1495 /* Do a TEST UNIT READY command to test the presence of a device */
1496 /*****************************************************************/
1497
1498 CMDSET_TARG_LUN(tur_cmd, aip->target, aip->lun);
1499 if (!acsicmd_nodma(tur_cmd, 0)) {
1500 /* timed out -> no device here */
1501 #ifdef DEBUG_DETECT
1502 printk("target %d lun %d: timeout\n", aip->target, aip->lun);
1503 #endif
1504 return DEV_NONE;
1505 }
1506
1507 /*************************/
1508 /* Read the ACSI status. */
1509 /*************************/
1510
1511 status = acsi_getstatus();
1512 if (status) {
1513 if (status == 0x12) {
1514 /* The SLM printer should be the only device that
1515 * responds with the error code in the status byte. In
1516 * correct status bytes, bit 4 is never set.
1517 */
1518 printk( KERN_INFO "Detected SLM printer at id %d lun %d\n",
1519 aip->target, aip->lun);
1520 return DEV_SLM;
1521 }
1522 /* ignore CHECK CONDITION, since some devices send a
1523 UNIT ATTENTION */
1524 if ((status & 0x1e) != 0x2) {
1525 #ifdef DEBUG_DETECT
1526 printk("target %d lun %d: status %d\n",
1527 aip->target, aip->lun, status);
1528 #endif
1529 return DEV_UNKNOWN;
1530 }
1531 }
1532
1533 /*******************************/
1534 /* Do a REQUEST SENSE command. */
1535 /*******************************/
1536
1537 if (!acsi_reqsense(acsi_buffer, aip->target, aip->lun)) {
1538 printk( KERN_WARNING "acsi_reqsense failed\n");
1539 acsi_buffer[0] = 0;
1540 acsi_buffer[2] = UNIT_ATTENTION;
1541 }
1542 reqsense = acsi_buffer[0];
1543 extsense = acsi_buffer[2] & 0xf;
1544 if (status) {
1545 if ((reqsense & 0x70) == 0x70) { /* extended sense */
1546 if (extsense != UNIT_ATTENTION &&
1547 extsense != NOT_READY) {
1548 #ifdef DEBUG_DETECT
1549 printk("target %d lun %d: extended sense %d\n",
1550 aip->target, aip->lun, extsense);
1551 #endif
1552 return DEV_UNKNOWN;
1553 }
1554 }
1555 else {
1556 if (reqsense & 0x7f) {
1557 #ifdef DEBUG_DETECT
1558 printk("target %d lun %d: sense %d\n",
1559 aip->target, aip->lun, reqsense);
1560 #endif
1561 return DEV_UNKNOWN;
1562 }
1563 }
1564 }
1565 else
1566 if (reqsense == 0x4) { /* SH204 Bug workaround */
1567 #ifdef DEBUG_DETECT
1568 printk("target %d lun %d status=0 sense=4\n",
1569 aip->target, aip->lun);
1570 #endif
1571 return DEV_UNKNOWN;
1572 }
1573
1574 /***********************************************************/
1575 /* Do an INQUIRY command to get more infos on this device. */
1576 /***********************************************************/
1577
1578 /* Assume default values */
1579 aip->removable = 1;
1580 aip->read_only = 0;
1581 aip->old_atari_disk = 0;
1582 aip->changed = (extsense == NOT_READY); /* medium inserted? */
1583 aip->size = DEFAULT_SIZE;
1584 got_inquiry = 0;
1585 /* Fake inquiry result for old atari disks */
1586 memcpy(acsi_buffer, "\000\000\001\000 Adaptec 40xx"
1587 " ", 40);
1588 CMDSET_TARG_LUN(inquiry_cmd, aip->target, aip->lun);
1589 if (acsicmd_dma(inquiry_cmd, acsi_buffer, 1, 0, 0) &&
1590 acsi_getstatus() == 0) {
1591 acsicmd_nodma(inquiry_cmd, 0);
1592 acsi_getstatus();
1593 dma_cache_maintenance( phys_acsi_buffer, 256, 0 );
1594 got_inquiry = 1;
1595 aip->removable = !!(acsi_buffer[1] & 0x80);
1596 }
1597 if (aip->type == NONE) /* only at boot time */
1598 print_inquiry(acsi_buffer);
1599 switch(acsi_buffer[0]) {
1600 case TYPE_DISK:
1601 aip->type = HARDDISK;
1602 break;
1603 case TYPE_ROM:
1604 aip->type = CDROM;
1605 aip->read_only = 1;
1606 break;
1607 default:
1608 return DEV_UNKNOWN;
1609 }
1610 /****************************/
1611 /* Do a MODE SENSE command. */
1612 /****************************/
1613
1614 if (!acsi_mode_sense(aip->target, aip->lun, &sense)) {
1615 printk( KERN_WARNING "No mode sense data.\n" );
1616 return DEV_UNKNOWN;
1617 }
1618 if ((SECTOR_SIZE(sense) != 512) &&
1619 ((aip->type != CDROM) ||
1620 !acsi_change_blk_size(aip->target, aip->lun) ||
1621 !acsi_mode_sense(aip->target, aip->lun, &sense) ||
1622 (SECTOR_SIZE(sense) != 512))) {
1623 printk( KERN_WARNING "Sector size != 512 not supported.\n" );
1624 return DEV_UNKNOWN;
1625 }
1626 /* There are disks out there that claim to have 0 sectors... */
1627 if (CAPACITY(sense))
1628 aip->size = CAPACITY(sense); /* else keep DEFAULT_SIZE */
1629 if (!got_inquiry && SENSE_TYPE(sense) == SENSE_TYPE_ATARI) {
1630 /* If INQUIRY failed and the sense data suggest an old
1631 * Atari disk (SH20x, Megafile), the disk is not removable
1632 */
1633 aip->removable = 0;
1634 aip->old_atari_disk = 1;
1635 }
1636
1637 /******************/
1638 /* We've done it. */
1639 /******************/
1640
1641 return DEV_SUPPORTED;
1642 }
1643
1644 EXPORT_SYMBOL(acsi_delay_start);
1645 EXPORT_SYMBOL(acsi_delay_end);
1646 EXPORT_SYMBOL(acsi_wait_for_IRQ);
1647 EXPORT_SYMBOL(acsi_wait_for_noIRQ);
1648 EXPORT_SYMBOL(acsicmd_nodma);
1649 EXPORT_SYMBOL(acsi_getstatus);
1650 EXPORT_SYMBOL(acsi_buffer);
1651 EXPORT_SYMBOL(phys_acsi_buffer);
1652
1653 #ifdef CONFIG_ATARI_SLM_MODULE
1654 void acsi_attach_SLMs( int (*attach_func)( int, int ) );
1655
1656 EXPORT_SYMBOL(acsi_extstatus);
1657 EXPORT_SYMBOL(acsi_end_extstatus);
1658 EXPORT_SYMBOL(acsi_extcmd);
1659 EXPORT_SYMBOL(acsi_attach_SLMs);
1660
1661 /* to remember IDs of SLM devices, SLM module is loaded later
1662 * (index is target#, contents is lun#, -1 means "no SLM") */
1663 int SLM_devices[8];
1664 #endif
1665
1666 static void acsi_geninit( struct gendisk *gd )
1667 {
1668 int i, target, lun;
1669 struct acsi_info_struct *aip;
1670 #ifdef CONFIG_ATARI_SLM
1671 int n_slm = 0;
1672 #endif
1673
1674 printk( KERN_INFO "Probing ACSI devices:\n" );
1675 NDevices = 0;
1676 #ifdef CONFIG_ATARI_SLM_MODULE
1677 for( i = 0; i < 8; ++i )
1678 SLM_devices[i] = -1;
1679 #endif
1680 stdma_lock(NULL, NULL);
1681
1682 for (target = 0; target < 8 && NDevices < MAX_DEV; ++target) {
1683 lun = 0;
1684 do {
1685 aip = &acsi_info[NDevices];
1686 aip->type = NONE;
1687 aip->target = target;
1688 aip->lun = lun;
1689 i = acsi_devinit(aip);
1690 switch (i) {
1691 case DEV_SUPPORTED:
1692 printk( KERN_INFO "Detected ");
1693 switch (aip->type) {
1694 case HARDDISK:
1695 printk("disk");
1696 break;
1697 case CDROM:
1698 printk("cdrom");
1699 break;
1700 default:
1701 }
1702 printk(" ad%c at id %d lun %d ",
1703 'a' + NDevices, target, lun);
1704 if (aip->removable)
1705 printk("(removable) ");
1706 if (aip->read_only)
1707 printk("(read-only) ");
1708 if (aip->size == DEFAULT_SIZE)
1709 printk(" unkown size, using default ");
1710 printk("%ld MByte\n",
1711 (aip->size*512+1024*1024/2)/(1024*1024));
1712 NDevices++;
1713 break;
1714 case DEV_SLM:
1715 #ifdef CONFIG_ATARI_SLM
1716 n_slm += attach_slm( target, lun );
1717 break;
1718 #endif
1719 #ifdef CONFIG_ATARI_SLM_MODULE
1720 SLM_devices[target] = lun;
1721 break;
1722 #endif
1723 /* neither of the above: fall through to unknown device */
1724 case DEV_UNKNOWN:
1725 printk( KERN_INFO "Detected unsupported device at "
1726 "id %d lun %d\n", target, lun);
1727 break;
1728 }
1729 }
1730 #ifdef CONFIG_ACSI_MULTI_LUN
1731 while (i != DEV_NONE && ++lun < MAX_LUN);
1732 #else
1733 while (0);
1734 #endif
1735 }
1736
1737 /* reenable interrupt */
1738 ENABLE_IRQ();
1739 stdma_release();
1740
1741 #ifndef CONFIG_ATARI_SLM
1742 printk( KERN_INFO "Found %d ACSI device(s) total.\n", NDevices );
1743 #else
1744 printk( KERN_INFO "Found %d ACSI device(s) and %d SLM printer(s) total.\n",
1745 NDevices, n_slm );
1746 #endif
1747
1748 for( i = 0; i < NDevices; ++i ) {
1749 acsi_part[i<<4].start_sect = 0;
1750 acsi_part[i<<4].nr_sects = acsi_info[i].size;
1751 }
1752 acsi_gendisk.nr_real = NDevices;
1753 for( i = 0; i < (MAX_DEV << 4); i++ )
1754 acsi_blocksizes[i] = 1024;
1755 blksize_size[MAJOR_NR] = acsi_blocksizes;
1756 }
1757
1758 #ifdef CONFIG_ATARI_SLM_MODULE
1759 /* call attach_slm() for each device that is a printer; needed for init of SLM
1760 * driver as a module, since it's not yet present if acsi.c is inited and thus
1761 * the bus gets scanned. */
1762 void acsi_attach_SLMs( int (*attach_func)( int, int ) )
1763 {
1764 int i, n = 0;
1765
1766 for( i = 0; i < 8; ++i )
1767 if (SLM_devices[i] >= 0)
1768 n += (*attach_func)( i, SLM_devices[i] );
1769 printk( KERN_INFO "Found %d SLM printer(s) total.\n", n );
1770 }
1771 #endif /* CONFIG_ATARI_SLM_MODULE */
1772
1773 static struct file_operations acsi_fops = {
1774 NULL, /* lseek - default */
1775 block_read, /* read - general block-dev read */
1776 block_write, /* write - general block-dev write */
1777 NULL, /* readdir - bad */
1778 NULL, /* select */
1779 acsi_ioctl, /* ioctl */
1780 NULL, /* mmap */
1781 acsi_open, /* open */
1782 NULL, /* flush */
1783 acsi_release, /* release */
1784 block_fsync, /* fsync */
1785 NULL, /* fasync */
1786 acsi_media_change, /* media_change */
1787 acsi_revalidate, /* revalidate */
1788 };
1789
1790
1791 int acsi_init( void )
1792
1793 {
1794 if (!MACH_IS_ATARI || !ATARIHW_PRESENT(ACSI))
1795 return 0;
1796
1797 if (register_blkdev( MAJOR_NR, "ad", &acsi_fops )) {
1798 printk( KERN_ERR "Unable to get major %d for ACSI\n", MAJOR_NR );
1799 return -EBUSY;
1800 }
1801
1802 if (!(acsi_buffer =
1803 (char *)atari_stram_alloc( ACSI_BUFFER_SIZE, NULL, "acsi" ))) {
1804 printk( KERN_ERR "Unable to get ACSI ST-Ram buffer.\n" );
1805 unregister_blkdev( MAJOR_NR, "ad" );
1806 return -ENOMEM;
1807 }
1808 phys_acsi_buffer = virt_to_phys( acsi_buffer );
1809 STramMask = ATARIHW_PRESENT(EXTD_DMA) ? 0x00000000 : 0xff000000;
1810
1811 blk_dev[MAJOR_NR].request_fn = DEVICE_REQUEST;
1812 read_ahead[MAJOR_NR] = 8; /* 8 sector (4kB) read-ahead */
1813 acsi_gendisk.next = gendisk_head;
1814 gendisk_head = &acsi_gendisk;
1815
1816 #ifdef CONFIG_ATARI_SLM
1817 return( slm_init() );
1818 #else
1819 return 0;
1820 #endif
1821 }
1822
1823
1824 #ifdef MODULE
1825 int init_module(void)
1826 {
1827 int err;
1828
1829 if ((err = acsi_init()))
1830 return( err );
1831 printk( KERN_INFO "ACSI driver loaded as module.\n");
1832 acsi_geninit( &(struct gendisk){ 0,0,0,0,0,0,0,0,0,0,0 } );
1833 return( 0 );
1834 }
1835
1836 void cleanup_module(void)
1837 {
1838 struct gendisk ** gdp;
1839
1840 del_timer( &acsi_timer );
1841 blk_dev[MAJOR_NR].request_fn = 0;
1842 atari_stram_free( acsi_buffer );
1843
1844 if (unregister_blkdev( MAJOR_NR, "ad" ) != 0)
1845 printk( KERN_ERR "acsi: cleanup_module failed\n");
1846
1847 for (gdp = &gendisk_head; *gdp; gdp = &((*gdp)->next))
1848 if (*gdp == &acsi_gendisk)
1849 break;
1850 if (!*gdp)
1851 printk( KERN_ERR "acsi: entry in disk chain missing!\n" );
1852 else
1853 *gdp = (*gdp)->next;
1854 }
1855 #endif
1856
1857 #define DEVICE_BUSY busy[device]
1858 #define USAGE access_count[device]
1859 #define GENDISK_STRUCT acsi_gendisk
1860
1861 /*
1862 * This routine is called to flush all partitions and partition tables
1863 * for a changed scsi disk, and then re-read the new partition table.
1864 * If we are revalidating a disk because of a media change, then we
1865 * enter with usage == 0. If we are using an ioctl, we automatically have
1866 * usage == 1 (we need an open channel to use an ioctl :-), so this
1867 * is our limit.
1868 *
1869 * Changes by Martin Rogge, 9th Aug 1995:
1870 * got cd-roms to work by calling acsi_devinit. There are only two problems:
1871 * First, if there is no medium inserted, the status will remain "changed".
1872 * That is no problem at all, but our design of three-valued logic (medium
1873 * changed, medium not changed, no medium inserted).
1874 * Secondly the check could fail completely and the drive could deliver
1875 * nonsensical data, which could mess up the acsi_info[] structure. In
1876 * that case we try to make the entry safe.
1877 *
1878 */
1879
1880 static int revalidate_acsidisk( int dev, int maxusage )
1881 {
1882 int device;
1883 struct gendisk * gdev;
1884 int max_p, start, i;
1885 struct acsi_info_struct *aip;
1886
1887 device = DEVICE_NR(MINOR(dev));
1888 aip = &acsi_info[device];
1889 gdev = &GENDISK_STRUCT;
1890
1891 cli();
1892 if (DEVICE_BUSY || USAGE > maxusage) {
1893 sti();
1894 return -EBUSY;
1895 };
1896 DEVICE_BUSY = 1;
1897 sti();
1898
1899 max_p = gdev->max_p;
1900 start = device << gdev->minor_shift;
1901
1902 for( i = max_p - 1; i >= 0 ; i-- ) {
1903 if (gdev->part[start + i].nr_sects != 0) {
1904 kdev_t devp = MKDEV(MAJOR_NR, start + i);
1905 struct super_block *sb = get_super(devp);
1906
1907 fsync_dev(devp);
1908 if (sb)
1909 invalidate_inodes(sb);
1910 invalidate_buffers(devp);
1911 gdev->part[start + i].nr_sects = 0;
1912 }
1913 gdev->part[start+i].start_sect = 0;
1914 };
1915
1916 stdma_lock( NULL, NULL );
1917
1918 if (acsi_devinit(aip) != DEV_SUPPORTED) {
1919 printk( KERN_ERR "ACSI: revalidate failed for target %d lun %d\n",
1920 aip->target, aip->lun);
1921 aip->size = 0;
1922 aip->read_only = 1;
1923 aip->removable = 1;
1924 aip->changed = 1; /* next acsi_open will try again... */
1925 }
1926
1927 ENABLE_IRQ();
1928 stdma_release();
1929
1930 gdev->part[start].nr_sects = aip->size;
1931 if (aip->type == HARDDISK && aip->size > 0)
1932 resetup_one_dev(gdev, device);
1933
1934 DEVICE_BUSY = 0;
1935 wake_up(&busy_wait);
1936 return 0;
1937 }
1938
1939
1940 static int acsi_revalidate (dev_t dev)
1941 {
1942 return revalidate_acsidisk (dev, 0);
1943 }
Copy of Dave Jones history.git as used by http://archive.org/details/git-history-of-linux