/* $NetBSD: sd.c,v 1.12 2014/03/29 19:20:29 christos Exp $ */
/*
* Copyright (c) 1994 Rolf Grossmann
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by Rolf Grossmann.
* 4. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include <sys/param.h>
#include <sys/disklabel.h>
#include <sys/bootblock.h>
#include <dev/scsipi/scsi_spc.h>
#include <dev/scsipi/scsipi_all.h>
#include <dev/scsipi/scsi_all.h>
#include <dev/scsipi/scsipi_disk.h>
#include <lib/libsa/stand.h>
#include <lib/libkern/libkern.h> /* for bzero() */
#include "dmareg.h"
#ifdef xSD_DEBUG
#define DPRINTF(x) printf x;
#else
#define DPRINTF(x)
#endif
struct sdminilabel {
u_short npart;
long offset[MAXPARTITIONS+1]; /* offset from absolute block 0! */
};
struct sd_softc {
int sc_unit;
int sc_lun;
int sc_part;
int sc_dev_bsize;
struct sdminilabel sc_pinfo;
};
#define NSD 7
#define MAXRETRIES 5 /* must be at least one */
void scsi_init(void);
int scsiicmd(char, char, u_char *, int, char *, int *);
int sdstrategy(struct sd_softc *ss, int rw, daddr_t dblk, size_t size,
void *buf, size_t *rsize);
int sdprobe(char target, char lun);
int sdgetinfo(struct sd_softc *ss);
int sdopen(struct open_file *f, char count, char lun, char part);
int sdclose(struct open_file *f);
int
sdprobe(char target, char lun)
{
struct scsi_test_unit_ready cdb1;
struct scsipi_inquiry cdb2;
struct scsipi_inquiry_data inq;
int error, retries;
int count;
memset(&cdb1, 0, sizeof(cdb1));
cdb1.opcode = SCSI_TEST_UNIT_READY;
retries = 0;
do {
count = 0;
error = scsiicmd(target, lun, (u_char *)&cdb1, sizeof(cdb1), NULL, &count);
if (error == -SCSI_BUSY) {
register int N = 10000000; while (--N > 0);
}
} while ((error == -SCSI_CHECK || error == -SCSI_BUSY)
&& retries++ < MAXRETRIES);
if (error)
return error<0 ? ENODEV : error;
memset(&cdb2, 0, sizeof(cdb2));
cdb2.opcode = INQUIRY;
cdb2.length = sizeof(inq);
count = sizeof (inq);
error = scsiicmd(target, lun, (u_char *)&cdb2, sizeof(cdb2),
(char *)&inq, &count);
if (error != 0)
return error<0 ? EHER : error;
if ((inq.device & SID_TYPE) != T_DIRECT
&& (inq.device & SID_TYPE) != T_CDROM)
return EUNIT; /* not a disk */
DPRINTF(("booting disk %s.\n", inq.vendor));
return 0;
}
int
sdgetinfo(struct sd_softc *ss)
{
struct scsipi_read_capacity_10 cdb;
struct scsipi_read_capacity_10_data cap;
struct sdminilabel *pi = &ss->sc_pinfo;
struct next68k_disklabel *label;
int error, i, blklen;
char io_buf[NEXT68K_LABEL_SIZE+NEXT68K_LABEL_OFFSET];
int count;
int sc_blkshift = 0;
memset(&cdb, 0, sizeof(cdb));
cdb.opcode = READ_CAPACITY_10;
count = sizeof(cap);
error = scsiicmd(ss->sc_unit, ss->sc_lun, (u_char *)&cdb, sizeof(cdb),
(char *)&cap, &count);
if (error != 0)
return error<0 ? EHER : error;
blklen = (cap.length[0]<<24) + (cap.length[1]<<16)
+ (cap.length[2]<<8) + cap.length[3];
ss->sc_dev_bsize = blklen;
ss->sc_pinfo.offset[ss->sc_part] = 0; /* read absolute sector */
error = sdstrategy(ss, F_READ, NEXT68K_LABEL_SECTOR,
NEXT68K_LABEL_SIZE+NEXT68K_LABEL_OFFSET, io_buf, (unsigned int *)&i);
if (error != 0) {
DPRINTF(("sdgetinfo: sdstrategy error %d\n", error));
return(ERDLAB);
}
label = (struct next68k_disklabel *)(io_buf+NEXT68K_LABEL_OFFSET);
if (!IS_DISKLABEL(label)) /* || (label->cd_flags & CD_UNINIT)!=0) */
return EUNLAB; /* bad magic */
/* XXX calculate checksum ... for now we rely on the magic number */
DPRINTF(("Disk is %s (%s, %s).\n",
label->cd_label,label->cd_name, label->cd_type));
while (label->cd_secsize > blklen)
{
blklen <<= 1;
++sc_blkshift;
}
if (label->cd_secsize < blklen)
{
printf("bad label sectorsize (%d) or device blocksize (%d).\n",
label->cd_secsize, blklen>>sc_blkshift);
return ENXIO;
}
pi->npart = 0;
for(i=0; i<MAXPARTITIONS; i++) {
if (label->cd_partitions[i].cp_size > 0) {
pi->offset[pi->npart] = (label->cd_partitions[i].cp_offset
+ label->cd_front) << sc_blkshift;
}
else
pi->offset[pi->npart] = -1;
DPRINTF (("%d: [%d]=%ld\n", i, pi->npart, pi->offset[pi->npart]));
pi->npart++;
if (pi->npart == RAW_PART)
pi->npart++;
}
pi->offset[RAW_PART] = -1;
return 0;
}
int
sdopen(struct open_file *f, char count, char lun, char part)
{
register struct sd_softc *ss;
char unit, cnt;
int error;
DPRINTF(("open: sd(%d,%d,%d)\n", count, lun, part));
if (lun >= NSD)
return EUNIT;
scsi_init();
for(cnt=0, unit=0; unit < NSD; unit++)
{
DPRINTF(("trying target %d lun %d.\n", unit, lun));
error = sdprobe(unit, lun);
if (error == 0)
{
if (cnt++ == count)
break;
}
else if (error != EUNIT)
return error;
}
if (unit >= NSD)
return EUNIT;
ss = alloc(sizeof(struct sd_softc));
ss->sc_unit = unit;
ss->sc_lun = lun;
ss->sc_part = part;
if ((error = sdgetinfo(ss)) != 0)
return error;
if ((unsigned char)part >= ss->sc_pinfo.npart
|| ss->sc_pinfo.offset[(int)part] == -1)
return EPART;
f->f_devdata = ss;
return 0;
}
int
sdclose(struct open_file *f)
{
register struct sd_softc *ss = f->f_devdata;
dealloc(ss, sizeof(struct sd_softc));
return 0;
}
int
sdstrategy(struct sd_softc *ss, int rw, daddr_t dblk, size_t size,
void *buf, size_t *rsize)
{
u_long blk = dblk + ss->sc_pinfo.offset[ss->sc_part];
struct scsipi_rw_10 cdb;
int error;
if (size == 0)
return 0;
if (rw != F_READ)
{
printf("sdstrategy: write not implemented.\n");
return EOPNOTSUPP;
}
*rsize = 0;
while (size > 0) {
u_long nblks;
int tsize;
if (size > MAX_DMASIZE)
tsize = MAX_DMASIZE;
else
tsize = size;
nblks = howmany(tsize, ss->sc_dev_bsize);
DPRINTF(("sdstrategy: read block %ld, %d bytes (%ld blks a %d bytes).\n",
blk, tsize, nblks, ss->sc_dev_bsize));
memset(&cdb, 0, sizeof(cdb));
cdb.opcode = READ_10;
cdb.addr[0] = (blk & 0xff000000) >> 24;
cdb.addr[1] = (blk & 0xff0000) >> 16;
cdb.addr[2] = (blk & 0xff00) >> 8;
cdb.addr[3] = blk & 0xff;
cdb.length[0] = (nblks & 0xff00) >> 8;
cdb.length[1] = nblks & 0xff;
error = scsiicmd(ss->sc_unit, ss->sc_lun,
(u_char *)&cdb, sizeof(cdb), (char *)buf + *rsize, &tsize);
if (error != 0)
{
DPRINTF(("sdstrategy: scsiicmd failed: %d = %s.\n", error, strerror(error)));
return error<0 ? EIO : error;
}
*rsize += tsize;
size -= tsize;
blk += nblks;
}
DPRINTF(("sdstrategy: read %d bytes\n", *rsize));
return 0;
}