-// 16bit code to access cdrom drives.
+// Support for booting from cdroms (the "El Torito" spec).
//
-// Copyright (C) 2008 Kevin O'Connor <kevin@koconnor.net>
+// 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 "util.h" // memset
#include "bregs.h" // struct bregs
#include "biosvar.h" // GET_EBDA
-#include "atabits.h" // ATA_TYPE_ATAPI
+#include "ata.h" // ATA_CMD_REQUEST_SENSE
+#include "blockcmd.h" // CDB_CMD_REQUEST_SENSE
/****************************************************************
- * CDROM functions
+ * CD emulation
****************************************************************/
-// read disk drive size
-static void
-cdrom_1315(struct bregs *regs, u8 device)
-{
- disk_ret(regs, DISK_RET_EADDRNOTFOUND);
-}
-
-// lock
-static void
-cdrom_134500(struct bregs *regs, u8 device)
-{
- u16 ebda_seg = get_ebda_seg();
- u8 locks = GET_EBDA2(ebda_seg, cdrom_locks[device]);
- if (locks == 0xff) {
- regs->al = 1;
- disk_ret(regs, DISK_RET_ETOOMANYLOCKS);
- return;
- }
- SET_EBDA2(ebda_seg, cdrom_locks[device], locks + 1);
- regs->al = 1;
- disk_ret(regs, DISK_RET_SUCCESS);
-}
-
-// unlock
-static void
-cdrom_134501(struct bregs *regs, u8 device)
+static int
+cdemu_read(struct disk_op_s *op)
{
u16 ebda_seg = get_ebda_seg();
- u8 locks = GET_EBDA2(ebda_seg, cdrom_locks[device]);
- if (locks == 0x00) {
- regs->al = 0;
- disk_ret(regs, DISK_RET_ENOTLOCKED);
- return;
- }
- locks--;
- SET_EBDA2(ebda_seg, cdrom_locks[device], locks);
- regs->al = (locks ? 1 : 0);
- disk_ret(regs, DISK_RET_SUCCESS);
-}
-
-// status
-static void
-cdrom_134502(struct bregs *regs, u8 device)
-{
- u8 locks = GET_EBDA(cdrom_locks[device]);
- regs->al = (locks ? 1 : 0);
- disk_ret(regs, DISK_RET_SUCCESS);
-}
-
-static void
-cdrom_1345XX(struct bregs *regs, u8 device)
-{
- disk_ret(regs, DISK_RET_EPARAM);
-}
-
-// IBM/MS lock/unlock drive
-static void
-cdrom_1345(struct bregs *regs, u8 device)
-{
- switch (regs->al) {
- case 0x00: cdrom_134500(regs, device); break;
- case 0x01: cdrom_134501(regs, device); break;
- case 0x02: cdrom_134502(regs, device); break;
- default: cdrom_1345XX(regs, device); break;
+ struct drive_s *drive_g = GET_EBDA2(ebda_seg, cdemu.emulated_drive);
+ struct disk_op_s dop;
+ dop.drive_g = drive_g;
+ dop.command = op->command;
+ dop.lba = GET_EBDA2(ebda_seg, cdemu.ilba) + op->lba / 4;
+
+ int count = op->count;
+ op->count = 0;
+ u8 *cdbuf_far = (void*)offsetof(struct extended_bios_data_area_s, cdemu_buf);
+
+ if (op->lba & 3) {
+ // Partial read of first block.
+ dop.count = 1;
+ dop.buf_fl = MAKE_FLATPTR(ebda_seg, cdbuf_far);
+ int ret = process_op(&dop);
+ if (ret)
+ return ret;
+ u8 thiscount = 4 - (op->lba & 3);
+ if (thiscount > count)
+ thiscount = count;
+ count -= thiscount;
+ memcpy_far(FLATPTR_TO_SEG(op->buf_fl)
+ , (void*)FLATPTR_TO_OFFSET(op->buf_fl)
+ , ebda_seg, cdbuf_far + (op->lba & 3) * 512
+ , thiscount * 512);
+ op->buf_fl += thiscount * 512;
+ op->count += thiscount;
+ dop.lba++;
}
-}
-// IBM/MS eject media
-static void
-cdrom_1346(struct bregs *regs, u8 device)
-{
- u8 locks = GET_EBDA(cdrom_locks[device]);
- if (locks != 0) {
- disk_ret(regs, DISK_RET_ELOCKED);
- return;
+ if (count > 3) {
+ // Read n number of regular blocks.
+ dop.count = count / 4;
+ dop.buf_fl = op->buf_fl;
+ int ret = process_op(&dop);
+ op->count += dop.count * 4;
+ if (ret)
+ return ret;
+ u8 thiscount = count & ~3;
+ count &= 3;
+ op->buf_fl += thiscount * 512;
+ dop.lba += thiscount / 4;
}
- // FIXME should handle 0x31 no media in device
- // FIXME should handle 0xb5 valid request failed
-
- // Call removable media eject
- struct bregs br;
- memset(&br, 0, sizeof(br));
- br.ah = 0x52;
- call16_int(0x15, &br);
-
- if (br.ah || br.flags & F_CF) {
- disk_ret(regs, DISK_RET_ELOCKED);
- return;
+ if (count) {
+ // Partial read on last block.
+ dop.count = 1;
+ dop.buf_fl = MAKE_FLATPTR(ebda_seg, cdbuf_far);
+ int ret = process_op(&dop);
+ if (ret)
+ return ret;
+ u8 thiscount = count;
+ memcpy_far(FLATPTR_TO_SEG(op->buf_fl)
+ , (void*)FLATPTR_TO_OFFSET(op->buf_fl)
+ , ebda_seg, cdbuf_far, thiscount * 512);
+ op->count += thiscount;
}
- disk_ret(regs, DISK_RET_SUCCESS);
-}
-
-// IBM/MS extended media change
-static void
-cdrom_1349(struct bregs *regs, u8 device)
-{
- set_fail(regs);
- // always send changed ??
- regs->ah = DISK_RET_ECHANGED;
-}
-static void
-cdrom_ok(struct bregs *regs, u8 device)
-{
- disk_ret(regs, DISK_RET_SUCCESS);
+ return DISK_RET_SUCCESS;
}
-static void
-cdrom_wp(struct bregs *regs, u8 device)
+int
+process_cdemu_op(struct disk_op_s *op)
{
- disk_ret(regs, DISK_RET_EWRITEPROTECT);
-}
+ if (!CONFIG_CDROM_EMU)
+ return 0;
-void
-cdrom_13(struct bregs *regs, u8 device)
-{
- //debug_stub(regs);
-
- switch (regs->ah) {
- case 0x15: cdrom_1315(regs, device); break;
- case 0x45: cdrom_1345(regs, device); break;
- case 0x46: cdrom_1346(regs, device); break;
- case 0x49: cdrom_1349(regs, device); break;
-
- // These functions are the same as for hard disks
- case 0x01:
- case 0x41:
- case 0x42:
- case 0x44:
- case 0x47:
- case 0x48:
- case 0x4e:
- disk_13(regs, device);
- break;
-
- // all these functions return SUCCESS
- case 0x00: // disk controller reset
- case 0x09: // initialize drive parameters
- case 0x0c: // seek to specified cylinder
- case 0x0d: // alternate disk reset
- case 0x10: // check drive ready
- case 0x11: // recalibrate
- case 0x14: // controller internal diagnostic
- case 0x16: // detect disk change
- cdrom_ok(regs, device);
- break;
-
- // all these functions return disk write-protected
- case 0x03: // write disk sectors
- case 0x05: // format disk track
- case 0x43: // IBM/MS extended write
- cdrom_wp(regs, device);
- break;
-
- default: disk_13XX(regs, device); break;
+ switch (op->command) {
+ case CMD_READ:
+ return cdemu_read(op);
+ case CMD_WRITE:
+ case CMD_FORMAT:
+ return DISK_RET_EWRITEPROTECT;
+ case CMD_VERIFY:
+ case CMD_RESET:
+ case CMD_SEEK:
+ case CMD_ISREADY:
+ return DISK_RET_SUCCESS;
+ default:
+ op->count = 0;
+ return DISK_RET_EPARAM;
}
}
-
-/****************************************************************
- * CD emulation
- ****************************************************************/
-
-static void
-cdemu_1302(struct bregs *regs, u8 device)
-{
- cdemu_access(regs, device, ATA_CMD_READ_SECTORS);
-}
-
-static void
-cdemu_1304(struct bregs *regs, u8 device)
-{
- cdemu_access(regs, device, 0);
-}
-
-// read disk drive parameters
-static void
-cdemu_1308(struct bregs *regs, u8 device)
-{
- u16 ebda_seg = get_ebda_seg();
- u16 nlc = GET_EBDA2(ebda_seg, cdemu.lchs.cylinders) - 1;
- u16 nlh = GET_EBDA2(ebda_seg, cdemu.lchs.heads) - 1;
- u16 nlspt = GET_EBDA2(ebda_seg, cdemu.lchs.spt);
-
- regs->al = 0x00;
- regs->bl = 0x00;
- regs->ch = nlc & 0xff;
- regs->cl = ((nlc >> 2) & 0xc0) | (nlspt & 0x3f);
- regs->dh = nlh;
- // FIXME ElTorito Various. should send the real count of drives 1 or 2
- // FIXME ElTorito Harddisk. should send the HD count
- regs->dl = 0x02;
- u8 media = GET_EBDA2(ebda_seg, cdemu.media);
- if (media <= 3)
- regs->bl = media * 2;
-
- regs->es = SEG_BIOS;
- regs->di = (u32)&diskette_param_table2;
-
- disk_ret(regs, DISK_RET_SUCCESS);
-}
+struct drive_s *cdemu_drive VAR16VISIBLE;
void
-cdemu_13(struct bregs *regs)
+cdemu_setup(void)
{
- //debug_stub(regs);
+ if (!CONFIG_CDROM_EMU)
+ return;
- u16 ebda_seg = get_ebda_seg();
- u8 device = GET_EBDA2(ebda_seg, cdemu.controller_index) * 2;
- device += GET_EBDA2(ebda_seg, cdemu.device_spec);
-
- switch (regs->ah) {
- case 0x02: cdemu_1302(regs, device); break;
- case 0x04: cdemu_1304(regs, device); break;
- case 0x08: cdemu_1308(regs, device); break;
-
- // These functions are the same as standard CDROM.
- case 0x00:
- case 0x01:
- case 0x03:
- case 0x05:
- case 0x09:
- case 0x0c:
- case 0x0d:
- case 0x10:
- case 0x11:
- case 0x14:
- case 0x15:
- case 0x16:
- cdrom_13(regs, device);
- break;
-
- default: disk_13XX(regs, device); break;
+ struct drive_s *drive_g = malloc_fseg(sizeof(*drive_g));
+ if (! drive_g) {
+ warn_noalloc();
+ cdemu_drive = NULL;
+ return;
}
+ memset(drive_g, 0, sizeof(*drive_g));
+ cdemu_drive = STORE_GLOBAL_PTR(drive_g);
+ drive_g->type = DTYPE_CDEMU;
+ drive_g->blksize = DISK_SECTOR_SIZE;
+ drive_g->sectors = (u64)-1;
}
struct eltorito_s {
u16 ebda_seg = get_ebda_seg();
SET_INT13ET(regs, size, 0x13);
SET_INT13ET(regs, media, GET_EBDA2(ebda_seg, cdemu.media));
- SET_INT13ET(regs, emulated_drive, GET_EBDA2(ebda_seg, cdemu.emulated_drive));
- SET_INT13ET(regs, controller_index
- , GET_EBDA2(ebda_seg, cdemu.controller_index));
+ SET_INT13ET(regs, emulated_drive
+ , GET_EBDA2(ebda_seg, cdemu.emulated_extdrive));
+ struct drive_s *drive_g = GET_EBDA2(ebda_seg, cdemu.emulated_drive);
+ u8 cntl_id = GET_GLOBAL(drive_g->cntl_id);
+ SET_INT13ET(regs, controller_index, cntl_id / 2);
+ SET_INT13ET(regs, device_spec, cntl_id % 2);
SET_INT13ET(regs, ilba, GET_EBDA2(ebda_seg, cdemu.ilba));
- SET_INT13ET(regs, device_spec, GET_EBDA2(ebda_seg, cdemu.device_spec));
SET_INT13ET(regs, buffer_segment, GET_EBDA2(ebda_seg, cdemu.buffer_segment));
SET_INT13ET(regs, load_segment, GET_EBDA2(ebda_seg, cdemu.load_segment));
SET_INT13ET(regs, sector_count, GET_EBDA2(ebda_seg, cdemu.sector_count));
if (regs->al == 0x00) {
// FIXME ElTorito Various. Should be handled accordingly to spec
SET_EBDA2(ebda_seg, cdemu.active, 0x00); // bye bye
+
+ // XXX - update floppy/hd count.
}
disk_ret(regs, DISK_RET_SUCCESS);
* CD booting
****************************************************************/
-// Request SENSE
static int
-atapi_get_sense(int device, u8 *asc, u8 *ascq)
+atapi_is_ready(struct disk_op_s *op)
{
- u8 atacmd[12], buffer[18];
- memset(atacmd, 0, sizeof(atacmd));
- atacmd[0] = ATA_CMD_REQUEST_SENSE;
- atacmd[4] = sizeof(buffer);
- int ret = ata_cmd_packet(device, atacmd, sizeof(atacmd), sizeof(buffer)
- , MAKE_FLATPTR(GET_SEG(SS), buffer));
- if (ret)
- return ret;
-
- *asc = buffer[12];
- *ascq = buffer[13];
-
- return 0;
-}
-
-// Request capacity
-static int
-atapi_read_capacity(int device, u32 *blksize, u32 *sectors)
-{
- u8 packet[12], buf[8];
- memset(packet, 0, sizeof(packet));
- packet[0] = 0x25; /* READ CAPACITY */
- int ret = ata_cmd_packet(device, packet, sizeof(packet), sizeof(buf)
- , MAKE_FLATPTR(GET_SEG(SS), buf));
- if (ret)
- return ret;
-
- *blksize = (((u32)buf[4] << 24) | ((u32)buf[5] << 16)
- | ((u32)buf[6] << 8) | ((u32)buf[7] << 0));
- *sectors = (((u32)buf[0] << 24) | ((u32)buf[1] << 16)
- | ((u32)buf[2] << 8) | ((u32)buf[3] << 0));
-
- return 0;
-}
-
-static int
-atapi_is_ready(u16 device)
-{
- dprintf(6, "atapi_is_ready (device=%d)\n", device);
+ dprintf(6, "atapi_is_ready (drive=%p)\n", op->drive_g);
/* Retry READ CAPACITY for 5 seconds unless MEDIUM NOT PRESENT is
* reported by the device. If the device reports "IN PROGRESS",
* 30 seconds is added. */
- u32 blksize, sectors;
+ struct cdbres_read_capacity info;
int in_progress = 0;
u64 end = calc_future_tsc(5000);
for (;;) {
- if (rdtscll() > end) {
+ if (check_time(end)) {
dprintf(1, "read capacity failed\n");
return -1;
}
- int ret = atapi_read_capacity(device, &blksize, §ors);
+ int ret = cdb_read_capacity(op, &info);
if (!ret)
// Success
break;
- u8 asc, ascq;
- ret = atapi_get_sense(device, &asc, &ascq);
+ struct cdbres_request_sense sense;
+ ret = cdb_get_sense(op, &sense);
if (ret)
// Error - retry.
continue;
// Sense succeeded.
- if (asc == 0x3a) { /* MEDIUM NOT PRESENT */
+ if (sense.asc == 0x3a) { /* MEDIUM NOT PRESENT */
dprintf(1, "Device reports MEDIUM NOT PRESENT\n");
return -1;
}
- if (asc == 0x04 && ascq == 0x01 && !in_progress) {
+ if (sense.asc == 0x04 && sense.ascq == 0x01 && !in_progress) {
/* IN PROGRESS OF BECOMING READY */
printf("Waiting for device to detect medium... ");
/* Allow 30 seconds more */
}
}
- if (blksize != GET_GLOBAL(ATA.devices[device].blksize)) {
+ u32 blksize = ntohl(info.blksize), sectors = ntohl(info.sectors);
+ if (blksize != GET_GLOBAL(op->drive_g->blksize)) {
printf("Unsupported sector size %u\n", blksize);
return -1;
}
int
cdrom_boot(int cdid)
{
- // Verify device is a cdrom.
- if (cdid >= ATA.cdcount)
+ struct disk_op_s dop;
+ memset(&dop, 0, sizeof(dop));
+ dop.drive_g = getDrive(EXTTYPE_CD, cdid);
+ if (!dop.drive_g)
return 1;
- int driveid = GET_GLOBAL(ATA.idmap[1][cdid]);
- if (GET_GLOBAL(ATA.devices[driveid].device) != ATA_DEVICE_CDROM)
- return 2;
- int ret = atapi_is_ready(driveid);
+ int ret = atapi_is_ready(&dop);
if (ret)
dprintf(1, "atapi_is_ready returned %d\n", ret);
// Read the Boot Record Volume Descriptor
u8 buffer[2048];
- struct disk_op_s dop;
- dop.driveid = driveid;
dop.lba = 0x11;
dop.count = 1;
dop.buf_fl = MAKE_FLATPTR(GET_SEG(SS), buffer);
- ret = cdrom_read(&dop);
+ ret = cdb_read(&dop);
if (ret)
return 3;
// And we read the Boot Catalog
dop.lba = lba;
- ret = cdrom_read(&dop);
+ dop.count = 1;
+ ret = cdb_read(&dop);
if (ret)
return 7;
u8 media = buffer[0x21];
SET_EBDA2(ebda_seg, cdemu.media, media);
- SET_EBDA2(ebda_seg, cdemu.controller_index, driveid/2);
- SET_EBDA2(ebda_seg, cdemu.device_spec, driveid%2);
+ SET_EBDA2(ebda_seg, cdemu.emulated_drive, STORE_GLOBAL_PTR(dop.drive_g));
u16 boot_segment = *(u16*)&buffer[0x22];
if (!boot_segment)
dop.lba = lba;
dop.count = DIV_ROUND_UP(nbsectors, 4);
dop.buf_fl = MAKE_FLATPTR(boot_segment, 0);
- ret = cdrom_read(&dop);
+ ret = cdb_read(&dop);
if (ret)
return 12;
if (media == 0) {
// No emulation requested - return success.
- SET_EBDA2(ebda_seg, cdemu.emulated_drive, 0xE0 + cdid);
+ SET_EBDA2(ebda_seg, cdemu.emulated_extdrive, EXTSTART_CD + cdid);
return 0;
}
// Emulation of a floppy/harddisk requested
- if (! CONFIG_CDROM_EMU)
+ if (! CONFIG_CDROM_EMU || !cdemu_drive)
return 13;
// Set emulated drive id and increase bios installed hardware
// number of devices
if (media < 4) {
// Floppy emulation
- SET_EBDA2(ebda_seg, cdemu.emulated_drive, 0x00);
+ SET_EBDA2(ebda_seg, cdemu.emulated_extdrive, 0x00);
+ // XXX - get and set actual floppy count.
SETBITS_BDA(equipment_list_flags, 0x41);
switch (media) {
}
} else {
// Harddrive emulation
- SET_EBDA2(ebda_seg, cdemu.emulated_drive, 0x80);
+ SET_EBDA2(ebda_seg, cdemu.emulated_extdrive, 0x80);
SET_BDA(hdcount, GET_BDA(hdcount) + 1);
// Peak at partition table to get chs.