blob: a62536caa8707b343852ec4e9c4bccbf07780ffb [file] [log] [blame]
// Disk setup and access
//
// Copyright (C) 2008,2009 Kevin O'Connor <kevin@koconnor.net>
// Copyright (C) 2002 MandrakeSoft S.A.
//
// This file may be distributed under the terms of the GNU LGPLv3 license.
#include "disk.h" // struct ata_s
#include "biosvar.h" // GET_GLOBAL
#include "cmos.h" // inb_cmos
#include "util.h" // dprintf
#include "ata.h" // process_ata_op
struct drives_s Drives VAR16VISIBLE;
struct drive_s *
getDrive(u8 exttype, u8 extdriveoffset)
{
// basic check : device has to be defined
if (extdriveoffset >= ARRAY_SIZE(Drives.idmap[0]))
return NULL;
// Get the ata channel
u8 driveid = GET_GLOBAL(Drives.idmap[exttype][extdriveoffset]);
// basic check : device has to be valid
if (driveid >= ARRAY_SIZE(Drives.drives))
return NULL;
return &Drives.drives[driveid];
}
struct drive_s *
allocDrive()
{
int driveid = Drives.drivecount;
if (driveid >= ARRAY_SIZE(Drives.drives))
return NULL;
Drives.drivecount++;
struct drive_s *drive_g = &Drives.drives[driveid];
memset(drive_g, 0, sizeof(*drive_g));
return drive_g;
}
/****************************************************************
* Disk geometry translation
****************************************************************/
static u8
get_translation(struct drive_s *drive_g)
{
u8 type = GET_GLOBAL(drive_g->type);
if (! CONFIG_COREBOOT && type == DTYPE_ATA) {
// Emulators pass in the translation info via nvram.
u8 ataid = GET_GLOBAL(drive_g->cntl_id);
u8 channel = ataid / 2;
u8 translation = inb_cmos(CMOS_BIOS_DISKTRANSFLAG + channel/2);
translation >>= 2 * (ataid % 4);
translation &= 0x03;
return translation;
}
// On COREBOOT, use a heuristic to determine translation type.
u16 heads = GET_GLOBAL(drive_g->pchs.heads);
u16 cylinders = GET_GLOBAL(drive_g->pchs.cylinders);
u16 spt = GET_GLOBAL(drive_g->pchs.spt);
if (cylinders <= 1024 && heads <= 16 && spt <= 63)
return TRANSLATION_NONE;
if (cylinders * heads <= 131072)
return TRANSLATION_LARGE;
return TRANSLATION_LBA;
}
void
setup_translation(struct drive_s *drive_g)
{
u8 translation = get_translation(drive_g);
SET_GLOBAL(drive_g->translation, translation);
u8 ataid = GET_GLOBAL(drive_g->cntl_id);
u8 channel = ataid / 2;
u8 slave = ataid % 2;
u16 heads = GET_GLOBAL(drive_g->pchs.heads);
u16 cylinders = GET_GLOBAL(drive_g->pchs.cylinders);
u16 spt = GET_GLOBAL(drive_g->pchs.spt);
u64 sectors = GET_GLOBAL(drive_g->sectors);
dprintf(1, "ata%d-%d: PCHS=%u/%d/%d translation="
, channel, slave, cylinders, heads, spt);
switch (translation) {
case TRANSLATION_NONE:
dprintf(1, "none");
break;
case TRANSLATION_LBA:
dprintf(1, "lba");
spt = 63;
if (sectors > 63*255*1024) {
heads = 255;
cylinders = 1024;
break;
}
u32 sect = (u32)sectors / 63;
heads = sect / 1024;
if (heads>128)
heads = 255;
else if (heads>64)
heads = 128;
else if (heads>32)
heads = 64;
else if (heads>16)
heads = 32;
else
heads = 16;
cylinders = sect / heads;
break;
case TRANSLATION_RECHS:
dprintf(1, "r-echs");
// Take care not to overflow
if (heads==16) {
if (cylinders>61439)
cylinders=61439;
heads=15;
cylinders = (u16)((u32)(cylinders)*16/15);
}
// then go through the large bitshift process
case TRANSLATION_LARGE:
if (translation == TRANSLATION_LARGE)
dprintf(1, "large");
while (cylinders > 1024) {
cylinders >>= 1;
heads <<= 1;
// If we max out the head count
if (heads > 127)
break;
}
break;
}
// clip to 1024 cylinders in lchs
if (cylinders > 1024)
cylinders = 1024;
dprintf(1, " LCHS=%d/%d/%d\n", cylinders, heads, spt);
SET_GLOBAL(drive_g->lchs.heads, heads);
SET_GLOBAL(drive_g->lchs.cylinders, cylinders);
SET_GLOBAL(drive_g->lchs.spt, spt);
}
/****************************************************************
* Drive mapping
****************************************************************/
// Fill in Fixed Disk Parameter Table (located in ebda).
static void
fill_fdpt(struct drive_s *drive_g, int hdid)
{
if (hdid > 1)
return;
u16 nlc = GET_GLOBAL(drive_g->lchs.cylinders);
u16 nlh = GET_GLOBAL(drive_g->lchs.heads);
u16 nlspt = GET_GLOBAL(drive_g->lchs.spt);
u16 npc = GET_GLOBAL(drive_g->pchs.cylinders);
u16 nph = GET_GLOBAL(drive_g->pchs.heads);
u16 npspt = GET_GLOBAL(drive_g->pchs.spt);
struct fdpt_s *fdpt = &get_ebda_ptr()->fdpt[hdid];
fdpt->precompensation = 0xffff;
fdpt->drive_control_byte = 0xc0 | ((nph > 8) << 3);
fdpt->landing_zone = npc;
fdpt->cylinders = nlc;
fdpt->heads = nlh;
fdpt->sectors = nlspt;
if (nlc == npc && nlh == nph && nlspt == npspt)
// no logical CHS mapping used, just physical CHS
// use Standard Fixed Disk Parameter Table (FDPT)
return;
// complies with Phoenix style Translated Fixed Disk Parameter
// Table (FDPT)
fdpt->phys_cylinders = npc;
fdpt->phys_heads = nph;
fdpt->phys_sectors = npspt;
fdpt->a0h_signature = 0xa0;
// Checksum structure.
fdpt->checksum -= checksum(fdpt, sizeof(*fdpt));
if (hdid == 0)
SET_IVT(0x41, SEGOFF(get_ebda_seg(), offsetof(
struct extended_bios_data_area_s, fdpt[0])));
else
SET_IVT(0x46, SEGOFF(get_ebda_seg(), offsetof(
struct extended_bios_data_area_s, fdpt[1])));
}
// Map a drive (that was registered via add_bcv_hd)
void
map_hd_drive(struct drive_s *drive_g)
{
// fill hdidmap
u8 hdcount = GET_BDA(hdcount);
if (hdcount >= ARRAY_SIZE(Drives.idmap[0]))
return;
dprintf(3, "Mapping hd drive %p to %d\n", drive_g, hdcount);
int driveid = drive_g - Drives.drives;
SET_GLOBAL(Drives.idmap[EXTTYPE_HD][hdcount], driveid);
SET_BDA(hdcount, hdcount + 1);
// Fill "fdpt" structure.
fill_fdpt(drive_g, hdcount);
}
// Map a cd
void
map_cd_drive(struct drive_s *drive_g)
{
// fill cdidmap
u8 cdcount = GET_GLOBAL(Drives.cdcount);
if (cdcount >= ARRAY_SIZE(Drives.idmap[0]))
return;
dprintf(3, "Mapping cd drive %p to %d\n", drive_g, cdcount);
int driveid = drive_g - Drives.drives;
SET_GLOBAL(Drives.idmap[EXTTYPE_CD][cdcount], driveid);
SET_GLOBAL(Drives.cdcount, cdcount+1);
}
// Map a floppy
void
map_floppy_drive(struct drive_s *drive_g)
{
// fill idmap
u8 floppycount = GET_GLOBAL(Drives.floppycount);
if (floppycount >= ARRAY_SIZE(Drives.idmap[0]))
return;
dprintf(3, "Mapping floppy drive %p to %d\n", drive_g, floppycount);
int driveid = drive_g - Drives.drives;
SET_GLOBAL(Drives.idmap[EXTTYPE_FLOPPY][floppycount], driveid);
floppycount++;
SET_GLOBAL(Drives.floppycount, floppycount);
// Update equipment word bits for floppy
if (floppycount == 1) {
// 1 drive, ready for boot
SETBITS_BDA(equipment_list_flags, 0x01);
SET_BDA(floppy_harddisk_info, 0x07);
} else {
// 2 drives, ready for boot
SETBITS_BDA(equipment_list_flags, 0x41);
SET_BDA(floppy_harddisk_info, 0x77);
}
}
// Show a one line description (without trailing newline) of a drive.
void
describe_drive(struct drive_s *drive_g)
{
ASSERT32();
u8 type = GET_GLOBAL(drive_g->type);
switch (type) {
case DTYPE_FLOPPY:
describe_floppy(drive_g);
break;
case DTYPE_ATA:
describe_ata(drive_g);
break;
case DTYPE_ATAPI:
describe_atapi(drive_g);
break;
case DTYPE_RAMDISK:
describe_ramdisk(drive_g);
break;
default:
printf("Unknown");
break;
}
}
/****************************************************************
* 16bit calling interface
****************************************************************/
// Execute a disk_op request.
int
process_op(struct disk_op_s *op)
{
u8 type = GET_GLOBAL(op->drive_g->type);
switch (type) {
case DTYPE_FLOPPY:
return process_floppy_op(op);
case DTYPE_ATA:
return process_ata_op(op);
case DTYPE_ATAPI:
return process_atapi_op(op);
case DTYPE_RAMDISK:
return process_ramdisk_op(op);
case DTYPE_CDEMU:
return process_cdemu_op(op);
default:
op->count = 0;
return DISK_RET_EPARAM;
}
}
// Execute a "disk_op_s" request - this runs on a stack in the ebda.
static int
__send_disk_op(struct disk_op_s *op_far, u16 op_seg)
{
struct disk_op_s dop;
memcpy_far(GET_SEG(SS), &dop
, op_seg, op_far
, sizeof(dop));
dprintf(DEBUG_HDL_13, "disk_op d=%p lba=%d buf=%p count=%d cmd=%d\n"
, dop.drive_g, (u32)dop.lba, dop.buf_fl
, dop.count, dop.command);
int status = process_op(&dop);
// Update count with total sectors transferred.
SET_FARVAR(op_seg, op_far->count, dop.count);
return status;
}
// Execute a "disk_op_s" request by jumping to a stack in the ebda.
int
send_disk_op(struct disk_op_s *op)
{
if (! CONFIG_DRIVES)
return -1;
ASSERT16();
return stack_hop((u32)op, GET_SEG(SS), 0, __send_disk_op);
}
/****************************************************************
* Setup
****************************************************************/
void
drive_setup()
{
memset(&Drives, 0, sizeof(Drives));
memset(&Drives.idmap, 0xff, sizeof(Drives.idmap));
}