+++ /dev/null
-#include "etherboot.h"
-#include "timer.h"
-#include "pci.h"
-#include "isa.h"
-#include "disk.h"
-
-#define BSY_SET_DURING_SPINUP 1
-/*
- * UBL, The Universal Talkware Boot Loader
- * Copyright (C) 2000 Universal Talkware Inc.
- * Copyright (C) 2002 Eric Biederman
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- */
-struct controller {
- uint16_t cmd_base;
- uint16_t ctrl_base;
-};
-
-struct harddisk_info {
- struct controller *ctrl;
- uint16_t heads;
- uint16_t cylinders;
- uint16_t sectors_per_track;
- uint8_t model_number[41];
- uint8_t slave;
- sector_t sectors;
- int address_mode; /* am i lba (0x40) or chs (0x00) */
-#define ADDRESS_MODE_CHS 0
-#define ADDRESS_MODE_LBA 1
-#define ADDRESS_MODE_LBA48 2
- int drive_exists;
- int slave_absent;
- int basedrive;
-};
-
-
-#define IDE_SECTOR_SIZE 0x200
-
-#define IDE_BASE0 (0x1F0u) /* primary controller */
-#define IDE_BASE1 (0x170u) /* secondary */
-#define IDE_BASE2 (0x0F0u) /* third */
-#define IDE_BASE3 (0x070u) /* fourth */
-
-#define IDE_REG_EXTENDED_OFFSET (0x204u)
-
-#define IDE_REG_DATA(base) ((ctrl)->cmd_base + 0u) /* word register */
-#define IDE_REG_ERROR(base) ((ctrl)->cmd_base + 1u)
-#define IDE_REG_PRECOMP(base) ((ctrl)->cmd_base + 1u)
-#define IDE_REG_FEATURE(base) ((ctrl)->cmd_base + 1u)
-#define IDE_REG_SECTOR_COUNT(base) ((ctrl)->cmd_base + 2u)
-#define IDE_REG_SECTOR_NUMBER(base) ((ctrl)->cmd_base + 3u)
-#define IDE_REG_LBA_LOW(base) ((ctrl)->cmd_base + 3u)
-#define IDE_REG_CYLINDER_LSB(base) ((ctrl)->cmd_base + 4u)
-#define IDE_REG_LBA_MID(base) ((ctrl)->cmd_base + 4u)
-#define IDE_REG_CYLINDER_MSB(base) ((ctrl)->cmd_base + 5u)
-#define IDE_REG_LBA_HIGH(base) ((ctrl)->cmd_base + 5u)
-#define IDE_REG_DRIVEHEAD(base) ((ctrl)->cmd_base + 6u)
-#define IDE_REG_DEVICE(base) ((ctrl)->cmd_base + 6u)
-#define IDE_REG_STATUS(base) ((ctrl)->cmd_base + 7u)
-#define IDE_REG_COMMAND(base) ((ctrl)->cmd_base + 7u)
-#define IDE_REG_ALTSTATUS(base) ((ctrl)->ctrl_base + 2u)
-#define IDE_REG_DEVICE_CONTROL(base) ((ctrl)->ctrl_base + 2u)
-
-struct ide_pio_command
-{
- uint8_t feature;
- uint8_t sector_count;
- uint8_t lba_low;
- uint8_t lba_mid;
- uint8_t lba_high;
- uint8_t device;
-# define IDE_DH_DEFAULT (0xA0)
-# define IDE_DH_HEAD(x) ((x) & 0x0F)
-# define IDE_DH_MASTER (0x00)
-# define IDE_DH_SLAVE (0x10)
-# define IDE_DH_LBA (0x40)
-# define IDE_DH_CHS (0x00)
- uint8_t command;
- uint8_t sector_count2;
- uint8_t lba_low2;
- uint8_t lba_mid2;
- uint8_t lba_high2;
-};
-
-#define IDE_DEFAULT_COMMAND { 0xFFu, 0x01, 0x00, 0x0000, IDE_DH_DEFAULT }
-
-#define IDE_ERR_ICRC 0x80 /* ATA Ultra DMA bad CRC */
-#define IDE_ERR_BBK 0x80 /* ATA bad block */
-#define IDE_ERR_UNC 0x40 /* ATA uncorrected error */
-#define IDE_ERR_MC 0x20 /* ATA media change */
-#define IDE_ERR_IDNF 0x10 /* ATA id not found */
-#define IDE_ERR_MCR 0x08 /* ATA media change request */
-#define IDE_ERR_ABRT 0x04 /* ATA command aborted */
-#define IDE_ERR_NTK0 0x02 /* ATA track 0 not found */
-#define IDE_ERR_NDAM 0x01 /* ATA address mark not found */
-
-#define IDE_STATUS_BSY 0x80 /* busy */
-#define IDE_STATUS_RDY 0x40 /* ready */
-#define IDE_STATUS_DF 0x20 /* device fault */
-#define IDE_STATUS_WFT 0x20 /* write fault (old name) */
-#define IDE_STATUS_SKC 0x10 /* seek complete */
-#define IDE_STATUS_DRQ 0x08 /* data request */
-#define IDE_STATUS_CORR 0x04 /* corrected */
-#define IDE_STATUS_IDX 0x02 /* index */
-#define IDE_STATUS_ERR 0x01 /* error (ATA) */
-#define IDE_STATUS_CHK 0x01 /* check (ATAPI) */
-
-#define IDE_CTRL_HD15 0x08 /* bit should always be set to one */
-#define IDE_CTRL_SRST 0x04 /* soft reset */
-#define IDE_CTRL_NIEN 0x02 /* disable interrupts */
-
-
-/* Most mandtory and optional ATA commands (from ATA-3), */
-
-#define IDE_CMD_CFA_ERASE_SECTORS 0xC0
-#define IDE_CMD_CFA_REQUEST_EXT_ERR_CODE 0x03
-#define IDE_CMD_CFA_TRANSLATE_SECTOR 0x87
-#define IDE_CMD_CFA_WRITE_MULTIPLE_WO_ERASE 0xCD
-#define IDE_CMD_CFA_WRITE_SECTORS_WO_ERASE 0x38
-#define IDE_CMD_CHECK_POWER_MODE1 0xE5
-#define IDE_CMD_CHECK_POWER_MODE2 0x98
-#define IDE_CMD_DEVICE_RESET 0x08
-#define IDE_CMD_EXECUTE_DEVICE_DIAGNOSTIC 0x90
-#define IDE_CMD_FLUSH_CACHE 0xE7
-#define IDE_CMD_FORMAT_TRACK 0x50
-#define IDE_CMD_IDENTIFY_DEVICE 0xEC
-#define IDE_CMD_IDENTIFY_DEVICE_PACKET 0xA1
-#define IDE_CMD_IDENTIFY_PACKET_DEVICE 0xA1
-#define IDE_CMD_IDLE1 0xE3
-#define IDE_CMD_IDLE2 0x97
-#define IDE_CMD_IDLE_IMMEDIATE1 0xE1
-#define IDE_CMD_IDLE_IMMEDIATE2 0x95
-#define IDE_CMD_INITIALIZE_DRIVE_PARAMETERS 0x91
-#define IDE_CMD_INITIALIZE_DEVICE_PARAMETERS 0x91
-#define IDE_CMD_NOP 0x00
-#define IDE_CMD_PACKET 0xA0
-#define IDE_CMD_READ_BUFFER 0xE4
-#define IDE_CMD_READ_DMA 0xC8
-#define IDE_CMD_READ_DMA_QUEUED 0xC7
-#define IDE_CMD_READ_MULTIPLE 0xC4
-#define IDE_CMD_READ_SECTORS 0x20
-#define IDE_CMD_READ_SECTORS_EXT 0x24
-#define IDE_CMD_READ_VERIFY_SECTORS 0x40
-#define IDE_CMD_RECALIBRATE 0x10
-#define IDE_CMD_SEEK 0x70
-#define IDE_CMD_SET_FEATURES 0xEF
-#define IDE_CMD_SET_MAX_ADDR_EXT 0x24
-#define IDE_CMD_SET_MULTIPLE_MODE 0xC6
-#define IDE_CMD_SLEEP1 0xE6
-#define IDE_CMD_SLEEP2 0x99
-#define IDE_CMD_STANDBY1 0xE2
-#define IDE_CMD_STANDBY2 0x96
-#define IDE_CMD_STANDBY_IMMEDIATE1 0xE0
-#define IDE_CMD_STANDBY_IMMEDIATE2 0x94
-#define IDE_CMD_WRITE_BUFFER 0xE8
-#define IDE_CMD_WRITE_DMA 0xCA
-#define IDE_CMD_WRITE_DMA_QUEUED 0xCC
-#define IDE_CMD_WRITE_MULTIPLE 0xC5
-#define IDE_CMD_WRITE_SECTORS 0x30
-#define IDE_CMD_WRITE_VERIFY 0x3C
-
-/* IDE_CMD_SET_FEATURE sub commands */
-#define IDE_FEATURE_CFA_ENABLE_8BIT_PIO 0x01
-#define IDE_FEATURE_ENABLE_WRITE_CACHE 0x02
-#define IDE_FEATURE_SET_TRANSFER_MODE 0x03
-#define IDE_FEATURE_ENABLE_POWER_MANAGEMENT 0x05
-#define IDE_FEATURE_ENABLE_POWERUP_IN_STANDBY 0x06
-#define IDE_FEATURE_STANDBY_SPINUP_DRIVE 0x07
-#define IDE_FEATURE_CFA_ENABLE_POWER_MODE1 0x0A
-#define IDE_FEATURE_DISABLE_MEDIA_STATUS_NOTIFICATION 0x31
-#define IDE_FEATURE_ENABLE_AUTOMATIC_ACOUSTIC_MANAGEMENT 0x42
-#define IDE_FEATURE_SET_MAXIMUM_HOST_INTERFACE_SECTOR_TIMES 0x43
-#define IDE_FEATURE_DISABLE_READ_LOOKAHEAD 0x55
-#define IDE_FEATURE_ENABLE_RELEASE_INTERRUPT 0x5D
-#define IDE_FEATURE_ENABLE_SERVICE_INTERRUPT 0x5E
-#define IDE_FEATURE_DISABLE_REVERTING_TO_POWERON_DEFAULTS 0x66
-#define IDE_FEATURE_CFA_DISABLE_8BIT_PIO 0x81
-#define IDE_FEATURE_DISABLE_WRITE_CACHE 0x82
-#define IDE_FEATURE_DISABLE_POWER_MANAGEMENT 0x85
-#define IDE_FEATURE_DISABLE_POWERUP_IN_STANDBY 0x86
-#define IDE_FEATURE_CFA_DISABLE_POWER_MODE1 0x8A
-#define IDE_FEATURE_ENABLE_MEDIA_STATUS_NOTIFICATION 0x95
-#define IDE_FEATURE_ENABLE_READ_LOOKAHEAD 0xAA
-#define IDE_FEATURE_DISABLE_AUTOMATIC_ACOUSTIC_MANAGEMENT 0xC2
-#define IDE_FEATURE_ENABLE_REVERTING_TO_POWERON_DEFAULTS 0xCC
-#define IDE_FEATURE_DISABLE_SERVICE_INTERRUPT 0xDE
-
-
-
-struct controller controller;
-struct harddisk_info harddisk_info[2];
-
-static int await_ide(int (*done)(struct controller *ctrl),
- struct controller *ctrl, unsigned long timeout)
-{
- int result;
- for(;;) {
- result = done(ctrl);
- if (result) {
- return 0;
- }
- poll_interruptions();
- if ((timeout == 0) || (currticks() > timeout)) {
- break;
- }
- }
- return -1;
-}
-
-/* The maximum time any IDE command can last 31 seconds,
- * So if any IDE commands takes this long we know we have problems.
- */
-#define IDE_TIMEOUT (32*TICKS_PER_SEC)
-
-static int not_bsy(struct controller *ctrl)
-{
- return !(inb(IDE_REG_STATUS(ctrl)) & IDE_STATUS_BSY);
-}
-#if !BSY_SET_DURING_SPINUP
-static int timeout(struct controller *ctrl)
-{
- return 0;
-}
-#endif
-
-static int ide_software_reset(struct controller *ctrl)
-{
- /* Wait a little bit in case this is immediately after
- * hardware reset.
- */
- mdelay(2);
- /* A software reset should not be delivered while the bsy bit
- * is set. If the bsy bit does not clear in a reasonable
- * amount of time give up.
- */
- if (await_ide(not_bsy, ctrl, currticks() + IDE_TIMEOUT) < 0) {
- return -1;
- }
-
- /* Disable Interrupts and reset the ide bus */
- outb(IDE_CTRL_HD15 | IDE_CTRL_SRST | IDE_CTRL_NIEN,
- IDE_REG_DEVICE_CONTROL(ctrl));
- udelay(5);
- outb(IDE_CTRL_HD15 | IDE_CTRL_NIEN, IDE_REG_DEVICE_CONTROL(ctrl));
- mdelay(2);
- if (await_ide(not_bsy, ctrl, currticks() + IDE_TIMEOUT) < 0) {
- return -1;
- }
- return 0;
-}
-
-static void pio_set_registers(
- struct controller *ctrl, const struct ide_pio_command *cmd)
-{
- uint8_t device;
- /* Disable Interrupts */
- outb(IDE_CTRL_HD15 | IDE_CTRL_NIEN, IDE_REG_DEVICE_CONTROL(ctrl));
-
- /* Possibly switch selected device */
- device = inb(IDE_REG_DEVICE(ctrl));
- outb(cmd->device, IDE_REG_DEVICE(ctrl));
- if ((device & (1UL << 4)) != (cmd->device & (1UL << 4))) {
- /* Allow time for the selected drive to switch,
- * The linux ide code suggests 50ms is the right
- * amount of time to use here.
- */
- mdelay(50);
- }
- outb(cmd->feature, IDE_REG_FEATURE(ctrl));
- outb(cmd->sector_count2, IDE_REG_SECTOR_COUNT(ctrl));
- outb(cmd->sector_count, IDE_REG_SECTOR_COUNT(ctrl));
- outb(cmd->lba_low2, IDE_REG_LBA_LOW(ctrl));
- outb(cmd->lba_low, IDE_REG_LBA_LOW(ctrl));
- outb(cmd->lba_mid2, IDE_REG_LBA_MID(ctrl));
- outb(cmd->lba_mid, IDE_REG_LBA_MID(ctrl));
- outb(cmd->lba_high2, IDE_REG_LBA_HIGH(ctrl));
- outb(cmd->lba_high, IDE_REG_LBA_HIGH(ctrl));
- outb(cmd->command, IDE_REG_COMMAND(ctrl));
-}
-
-
-static int pio_non_data(struct controller *ctrl, const struct ide_pio_command *cmd)
-{
- /* Wait until the busy bit is clear */
- if (await_ide(not_bsy, ctrl, currticks() + IDE_TIMEOUT) < 0) {
- return -1;
- }
-
- pio_set_registers(ctrl, cmd);
- if (await_ide(not_bsy, ctrl, currticks() + IDE_TIMEOUT) < 0) {
- return -1;
- }
- /* FIXME is there more error checking I could do here? */
- return 0;
-}
-
-static int pio_data_in(struct controller *ctrl, const struct ide_pio_command *cmd,
- void *buffer, size_t bytes)
-{
- unsigned int status;
-
- /* FIXME handle commands with multiple blocks */
- /* Wait until the busy bit is clear */
- if (await_ide(not_bsy, ctrl, currticks() + IDE_TIMEOUT) < 0) {
- return -1;
- }
-
- /* How do I tell if INTRQ is asserted? */
- pio_set_registers(ctrl, cmd);
- if (await_ide(not_bsy, ctrl, currticks() + IDE_TIMEOUT) < 0) {
- return -1;
- }
- status = inb(IDE_REG_STATUS(ctrl));
- if (!(status & IDE_STATUS_DRQ)) {
- return -1;
- }
- insw(IDE_REG_DATA(ctrl), buffer, bytes/2);
- status = inb(IDE_REG_STATUS(ctrl));
- if (status & IDE_STATUS_DRQ) {
- return -1;
- }
- return 0;
-}
-
-#if 0
-static int pio_packet(struct controller *ctrl, int in,
- const void *packet, int packet_len,
- void *buffer, int buffer_len)
-{
- const uint8_t *pbuf;
- unsigned int status;
- struct ide_pio_command cmd;
- memset(&cmd, 0, sizeof(cmd));
-
- /* Wait until the busy bit is clear */
- if (await_ide(not_bsy, ctrl, currticks() + IDE_TIMEOUT) < 0) {
- return -1;
- }
- pio_set_registers(ctrl, cmd);
- ndelay(400);
- if (await_ide(not_bsy, ctrl, currticks() + IDE_TIMEOUT) < 0) {
- return -1;
- }
- status = inb(IDE_REG_STATUS(ctrl));
- if (!(status & IDE_STATUS_DRQ)) {
- return -1;
- }
- while(packet_len > 1) {
- outb(*pbuf, IDE_REG_DATA(ctrl));
- pbuf++;
- packet_len -= 1;
- }
- inb(IDE_REG_ALTSTATUS(ctrl));
- if (await_ide){}
- /*FIXME finish this function */
-
-
-}
-#endif
-
-static inline int ide_read_sector_chs(
- struct harddisk_info *info, void *buffer, unsigned long sector)
-{
- struct ide_pio_command cmd;
- unsigned int track;
- unsigned int offset;
- unsigned int cylinder;
-
- memset(&cmd, 0, sizeof(cmd));
- cmd.sector_count = 1;
-
- track = sector / info->sectors_per_track;
- /* Sector number */
- offset = 1 + (sector % info->sectors_per_track);
- cylinder = track / info->heads;
- cmd.lba_low = offset;
- cmd.lba_mid = cylinder & 0xff;
- cmd.lba_high = (cylinder >> 8) & 0xff;
- cmd.device = IDE_DH_DEFAULT |
- IDE_DH_HEAD(track % info->heads) |
- info->slave |
- IDE_DH_CHS;
- cmd.command = IDE_CMD_READ_SECTORS;
- return pio_data_in(info->ctrl, &cmd, buffer, IDE_SECTOR_SIZE);
-}
-
-static inline int ide_read_sector_lba(
- struct harddisk_info *info, void *buffer, unsigned long sector)
-{
- struct ide_pio_command cmd;
- memset(&cmd, 0, sizeof(cmd));
-
- cmd.sector_count = 1;
- cmd.lba_low = sector & 0xff;
- cmd.lba_mid = (sector >> 8) & 0xff;
- cmd.lba_high = (sector >> 16) & 0xff;
- cmd.device = IDE_DH_DEFAULT |
- ((sector >> 24) & 0x0f) |
- info->slave |
- IDE_DH_LBA;
- cmd.command = IDE_CMD_READ_SECTORS;
- return pio_data_in(info->ctrl, &cmd, buffer, IDE_SECTOR_SIZE);
-}
-
-static inline int ide_read_sector_lba48(
- struct harddisk_info *info, void *buffer, sector_t sector)
-{
- struct ide_pio_command cmd;
- memset(&cmd, 0, sizeof(cmd));
-
- cmd.sector_count = 1;
- cmd.lba_low = sector & 0xff;
- cmd.lba_mid = (sector >> 8) & 0xff;
- cmd.lba_high = (sector >> 16) & 0xff;
- cmd.lba_low2 = (sector >> 24) & 0xff;
- cmd.lba_mid2 = (sector >> 32) & 0xff;
- cmd.lba_high2 = (sector >> 40) & 0xff;
- cmd.device = info->slave | IDE_DH_LBA;
- cmd.command = IDE_CMD_READ_SECTORS_EXT;
- return pio_data_in(info->ctrl, &cmd, buffer, IDE_SECTOR_SIZE);
-}
-
-
-static int ide_read(struct disk *disk, sector_t sector)
-{
- struct harddisk_info *info = disk->priv;
- int result;
-
- /* Report the buffer is empty */
- disk->sector = 0;
- disk->bytes = 0;
- if (sector > info->sectors) {
- return -1;
- }
- if (info->address_mode == ADDRESS_MODE_CHS) {
- result = ide_read_sector_chs(info, disk->buffer, sector);
- }
- else if (info->address_mode == ADDRESS_MODE_LBA) {
- result = ide_read_sector_lba(info, disk->buffer, sector);
- }
- else if (info->address_mode == ADDRESS_MODE_LBA48) {
- result = ide_read_sector_lba48(info, disk->buffer, sector);
- }
- else {
- result = -1;
- }
- /* On success report the buffer has data */
- if (result != -1) {
- disk->bytes = IDE_SECTOR_SIZE;
- disk->sector = sector;
- }
- return result;
-}
-
-static int init_drive(struct harddisk_info *info, struct controller *ctrl, int slave,
- int basedrive, unsigned char *buffer)
-{
- uint16_t* drive_info;
- struct ide_pio_command cmd;
- int i;
-
- info->ctrl = ctrl;
- info->heads = 0u;
- info->cylinders = 0u;
- info->sectors_per_track = 0u;
- info->address_mode = IDE_DH_CHS;
- info->sectors = 0ul;
- info->drive_exists = 0;
- info->slave_absent = 0;
- info->slave = slave?IDE_DH_SLAVE: IDE_DH_MASTER;
- info->basedrive = basedrive;
-
-#if 0
- printf("Testing for disk %d\n", info->basedrive);
-#endif
-
- /* Select the drive that we are testing */
- outb(IDE_DH_DEFAULT | IDE_DH_HEAD(0) | IDE_DH_CHS | info->slave,
- IDE_REG_DEVICE(ctrl));
- mdelay(50);
-
- /* Test to see if the drive registers exist,
- * In many cases this quickly rules out a missing drive.
- */
- for(i = 0; i < 4; i++) {
- outb(0xaa + i, (ctrl->cmd_base) + 2 + i);
- }
- for(i = 0; i < 4; i++) {
- if (inb((ctrl->cmd_base) + 2 + i) != 0xaa + i) {
- return 1;
- }
- }
- for(i = 0; i < 4; i++) {
- outb(0x55 + i, (ctrl->cmd_base) + 2 + i);
- }
- for(i = 0; i < 4; i++) {
- if (inb((ctrl->cmd_base) + 2 + i) != 0x55 + i) {
- return 1;
- }
- }
-#if 0
- printf("Probing for disk %d\n", info->basedrive);
-#endif
-
- memset(&cmd, 0, sizeof(cmd));
- cmd.device = IDE_DH_DEFAULT | IDE_DH_HEAD(0) | IDE_DH_CHS | info->slave;
- cmd.command = IDE_CMD_IDENTIFY_DEVICE;
-
-
- if (pio_data_in(ctrl, &cmd, buffer, IDE_SECTOR_SIZE) < 0) {
- /* Well, if that command didn't work, we probably don't have drive. */
- return 1;
- }
-
-
- /* Now suck the data out */
- drive_info = (uint16_t *)buffer;
- if (drive_info[2] == 0x37C8) {
- /* If the response is incomplete spin up the drive... */
- memset(&cmd, 0, sizeof(cmd));
- cmd.device = IDE_DH_DEFAULT | IDE_DH_HEAD(0) | IDE_DH_CHS |
- info->slave;
- cmd.feature = IDE_FEATURE_STANDBY_SPINUP_DRIVE;
- if (pio_non_data(ctrl, &cmd) < 0) {
- /* If the command doesn't work give up on the drive */
- return 1;
- }
-
- }
- if ((drive_info[2] == 0x37C8) || (drive_info[2] == 0x8C73)) {
- /* The response is incomplete retry the drive info command */
- memset(&cmd, 0, sizeof(cmd));
- cmd.device = IDE_DH_DEFAULT | IDE_DH_HEAD(0) | IDE_DH_CHS |
- info->slave;
- cmd.command = IDE_CMD_IDENTIFY_DEVICE;
- if(pio_data_in(ctrl, &cmd, buffer, IDE_SECTOR_SIZE) < 0) {
- /* If the command didn't work give up on the drive. */
- return 1;
- }
- }
- if ((drive_info[2] != 0x37C8) &&
- (drive_info[2] != 0x738C) &&
- (drive_info[2] != 0x8C73) &&
- (drive_info[2] != 0xC837) &&
- (drive_info[2] != 0x0000)) {
- printf("Invalid IDE Configuration: %hx\n", drive_info[2]);
- return 1;
- }
- for(i = 27; i < 47; i++) {
- info->model_number[((i-27)<< 1)] = (drive_info[i] >> 8) & 0xff;
- info->model_number[((i-27)<< 1)+1] = drive_info[i] & 0xff;
- }
- info->model_number[40] = '\0';
- info->drive_exists = 1;
-
- /* See if LBA is supported */
- if (drive_info[49] & (1 << 9)) {
- info->address_mode = ADDRESS_MODE_LBA;
- info->sectors = (drive_info[61] << 16) | (drive_info[60]);
- /* Enable LBA48 mode if it is present */
- if (drive_info[83] & (1 <<10)) {
- /* Should LBA48 depend on LBA? */
- printf("LBA48 mode\n");
- info->address_mode = ADDRESS_MODE_LBA48;
- info->sectors =
- (((sector_t)drive_info[103]) << 48) |
- (((sector_t)drive_info[102]) << 32) |
- (((sector_t)drive_info[101]) << 16) |
- (((sector_t)drive_info[100]) << 0);
- }
- } else {
- info->address_mode = ADDRESS_MODE_CHS;
- info->heads = drive_info[3];
- info->cylinders = drive_info[1];
- info->sectors_per_track = drive_info[6];
- info->sectors =
- info->sectors_per_track *
- info->heads *
- info->cylinders;
- printf( "%s sectors_per_track=[%d], heads=[%d], cylinders=[%d]\n",
- __FUNCTION__,
- info->sectors_per_track,
- info->heads,
- info->cylinders);
- }
- /* See if we have a slave */
- if (!info->slave && (((drive_info[93] >> 14) & 3) == 1)) {
- info->slave_absent = !(drive_info[93] & (1 << 5));
- }
- /* See if we need to put the device in CFA power mode 1 */
- if ((drive_info[160] & ((1 << 15) | (1 << 13)| (1 << 12))) ==
- ((1 << 15) | (1 << 13)| (1 << 12))) {
- memset(&cmd, 0, sizeof(cmd));
- cmd.device = IDE_DH_DEFAULT | IDE_DH_HEAD(0) | IDE_DH_CHS | info->slave;
- cmd.feature = IDE_FEATURE_CFA_ENABLE_POWER_MODE1;
- if (pio_non_data(ctrl, &cmd) < 0) {
- /* If I need to power up the drive, and I can't
- * give up.
- */
- printf("Cannot power up CFA device\n");
- return 1;
- }
- }
- printf("disk%d %dk cap: %hx\n",
- info->basedrive,
- (unsigned long)(info->sectors >> 1),
- drive_info[49]);
- return 0;
-}
-
-static int init_controller(struct controller *ctrl, int basedrive, unsigned char *buffer)
-{
- struct harddisk_info *info;
-
- /* Intialize the harddisk_info structures */
- memset(harddisk_info, 0, sizeof(harddisk_info));
-
- /* Put the drives ide channel in a know state and wait
- * for the drives to spinup.
- *
- * In practice IDE disks tend not to respond to commands until
- * they have spun up. This makes IDE hard to deal with
- * immediately after power up, as the delays can be quite
- * long, so we must be very careful here.
- *
- * There are two pathological cases that must be dealt with:
- *
- * - The BSY bit not being set while the IDE drives spin up.
- * In this cases only a hard coded delay will work. As
- * I have not reproduced it, and this is out of spec for
- * IDE drives the work around can be enabled by setting
- * BSY_SET_DURING_SPINUP to 0.
- *
- * - The BSY bit floats high when no drives are plugged in.
- * This case will not be detected except by timing out but
- * we avoid the problems by only probing devices we are
- * supposed to boot from. If we don't do the probe we
- * will not experience the problem.
- *
- * So speed wise I am only slow if the BSY bit is not set
- * or not reported by the IDE controller during spinup, which
- * is quite rare.
- *
- */
-#if !BSY_SET_DURING_SPINUP
- if (await_ide(timeout, ctrl, IDE_TIMEOUT) < 0) {
- return -1;
- }
-#endif
- if (ide_software_reset(ctrl) < 0) {
- return -1;
- }
-
- /* Note: I have just done a software reset. It may be
- * reasonable to just read the boot time signatures
- * off of the drives to see if they are present.
- *
- * For now I will go with just sending commands to the drives
- * and assuming filtering out missing drives by detecting registers
- * that won't set and commands that fail to execute properly.
- */
-
- /* Now initialize the individual drives */
- info = &harddisk_info[0];
- init_drive(info, ctrl, 0, basedrive, buffer);
- if (info->drive_exists && !info->slave_absent) {
- basedrive++;
- info++;
- init_drive(info, ctrl, 1, basedrive, buffer);
- }
-
- return 0;
-}
-
-static void ide_disable(struct dev *dev)
-{
- struct disk *disk = (struct disk *)dev;
- struct harddisk_info *info = disk->priv;
- ide_software_reset(info->ctrl);
-}
-
-static int ide_pci_probe(struct dev *dev, struct pci_device *pci)
-{
- struct disk *disk = (struct disk *)dev;
- struct harddisk_info *info;
- int index;
-
- adjust_pci_device(pci);
-
- index = dev->index + 1;
- if (dev->how_probe == PROBE_NEXT) {
- index++;
- }
- for(; index < 4; index++) {
- unsigned mask;
- mask = (index < 2)? (1 << 0) : (1 << 2);
- if ((pci->class & mask) == 0) {
- /* IDE special pci mode */
- uint16_t base;
- base = (index < 2)?IDE_BASE0:IDE_BASE1;
- controller.cmd_base = base;
- controller.ctrl_base = base + IDE_REG_EXTENDED_OFFSET;
- } else {
- /* IDE normal pci mode */
- unsigned cmd_reg, ctrl_reg;
- uint32_t cmd_base, ctrl_base;
- if (index < 2) {
- cmd_reg = PCI_BASE_ADDRESS_0;
- ctrl_reg = PCI_BASE_ADDRESS_1;
- } else {
- cmd_reg = PCI_BASE_ADDRESS_2;
- ctrl_reg = PCI_BASE_ADDRESS_3;
- }
- pcibios_read_config_dword(pci->bus, pci->devfn, cmd_reg, &cmd_base);
- pcibios_read_config_dword(pci->bus, pci->devfn, ctrl_reg, &ctrl_base);
- controller.cmd_base = cmd_base & ~3;
- controller.ctrl_base = ctrl_base & ~3;
- }
- if (((index & 1) == 0) || (dev->how_probe == PROBE_AWAKE)) {
- if (init_controller(&controller, disk->drive, disk->buffer) < 0) {
- /* nothing behind the controller */
- continue;
- }
- }
- info = &harddisk_info[index & 1];
- if (!info->drive_exists) {
- /* unknown drive */
- continue;
- }
- disk->hw_sector_size = IDE_SECTOR_SIZE;
- disk->sectors_per_read = 1;
- disk->sectors = info->sectors;
- dev->index = index;
- dev->disable = ide_disable;
- disk->read = ide_read;
- disk->priv = info;
-
- return 1;
- }
- /* past all of the drives */
- dev->index = 0;
- return 0;
-}
-#define PCI_DEVICE_ID_INTEL_82801CA_11 0x248b
-static struct pci_id ide_controllers[] = {
- PCI_ROM(0x0000, 0x0000, "ide_disk", "Generic IDE disk support"),
-/* { PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801CA_11, "PIIX4" },*/
-#if 0 /* Currently I don't need any entries in this table so ignore it */
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82371FB_0, "PIIX" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82371FB_1, "PIIX" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82371MX, "MPIIX" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82371SB_1, "PIIX3" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82371AB, "PIIX4" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801AB_1, "PIIX4" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82443MX_1, "PIIX4" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801AA_1, "PIIX4" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82372FB_1, "PIIX4" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82451NX, "PIIX4" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801BA_9, "PIIX4" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801BA_8, "PIIX4" },
-{ PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801CA_10, "PIIX4" },
-{ PCI_VENDOR_ID_VIA, PCI_DEVICE_ID_VIA_82C561, "VIA_IDE" },
-{ PCI_VENDOR_ID_VIA, PCI_DEVICE_ID_VIA_82C576_1, "VP_IDE" },
-{ PCI_VENDOR_ID_VIA, PCI_DEVICE_ID_VIA_82C586_1, "VP_IDE" },
-{ PCI_VENDOR_ID_PROMISE, PCI_DEVICE_ID_PROMISE_20246, "PDC20246" },
-{ PCI_VENDOR_ID_PROMISE, PCI_DEVICE_ID_PROMISE_20262, "PDC20262" },
-{ PCI_VENDOR_ID_PROMISE, PCI_DEVICE_ID_PROMISE_20265, "PDC20265" },
-{ PCI_VENDOR_ID_PROMISE, PCI_DEVICE_ID_PROMISE_20267, "PDC20267" },
-{ PCI_VENDOR_ID_PROMISE, PCI_DEVICE_ID_PROMISE_20268, "PDC20268" },
-{ PCI_VENDOR_ID_PROMISE, PCI_DEVICE_ID_PROMISE_20268R, "PDC20268" },
-{ PCI_VENDOR_ID_PCTECH, PCI_DEVICE_ID_PCTECH_RZ1000, "RZ1000" },
-{ PCI_VENDOR_ID_PCTECH, PCI_DEVICE_ID_PCTECH_RZ1001, "RZ1001" },
-{ PCI_VENDOR_ID_PCTECH, PCI_DEVICE_ID_PCTECH_SAMURAI_IDE, "SAMURAI" },
-{ PCI_VENDOR_ID_CMD, PCI_DEVICE_ID_CMD_640, "CMD640" },
-{ PCI_VENDOR_ID_CMD, PCI_DEVICE_ID_CMD_643, "CMD646" },
-{ PCI_VENDOR_ID_CMD, PCI_DEVICE_ID_CMD_646, "CMD648" },
-{ PCI_VENDOR_ID_CMD, PCI_DEVICE_ID_CMD_648, "CMD643" },
-{ PCI_VENDOR_ID_CMD, PCI_DEVICE_ID_CMD_649, "CMD649" },
-{ PCI_VENDOR_ID_SI, PCI_DEVICE_ID_SI_5513, "SIS5513" },
-{ PCI_VENDOR_ID_OPTI, PCI_DEVICE_ID_OPTI_82C621, "OPTI621" },
-{ PCI_VENDOR_ID_OPTI, PCI_DEVICE_ID_OPTI_82C558, "OPTI621V" },
-{ PCI_VENDOR_ID_OPTI, PCI_DEVICE_ID_OPTI_82C825, "OPTI621X" },
-{ PCI_VENDOR_ID_TEKRAM, PCI_DEVICE_ID_TEKRAM_DC290, "TRM290" },
-{ PCI_VENDOR_ID_NS, PCI_DEVICE_ID_NS_87410, "NS87410" },
-{ PCI_VENDOR_ID_NS, PCI_DEVICE_ID_NS_87415, "NS87415" },
-{ PCI_VENDOR_ID_HOLTEK2, PCI_DEVICE_ID_HOLTEK2_6565, "HT6565" },
-{ PCI_VENDOR_ID_ARTOP, PCI_DEVICE_ID_ARTOP_ATP850UF, "AEC6210" },
-{ PCI_VENDOR_ID_ARTOP, PCI_DEVICE_ID_ARTOP_ATP860, "AEC6260" },
-{ PCI_VENDOR_ID_ARTOP, PCI_DEVICE_ID_ARTOP_ATP860R, "AEC6260R" },
-{ PCI_VENDOR_ID_WINBOND, PCI_DEVICE_ID_WINBOND_82C105, "W82C105" },
-{ PCI_VENDOR_ID_UMC, PCI_DEVICE_ID_UMC_UM8673F, "UM8673F" },
-{ PCI_VENDOR_ID_UMC, PCI_DEVICE_ID_UMC_UM8886A, "UM8886A" },
-{ PCI_VENDOR_ID_UMC, PCI_DEVICE_ID_UMC_UM8886BF, "UM8886BF" },
-{ PCI_VENDOR_ID_TTI, PCI_DEVICE_ID_TTI_HPT343, "HPT34X" },
-{ PCI_VENDOR_ID_TTI, PCI_DEVICE_ID_TTI_HPT366, "HPT366" },
-{ PCI_VENDOR_ID_AL, PCI_DEVICE_ID_AL_M5229, "ALI15X3" },
-{ PCI_VENDOR_ID_CONTAQ, PCI_DEVICE_ID_CONTAQ_82C693, "CY82C693" },
-{ 0x3388, 0x8013, "HINT_IDE" },
-{ PCI_VENDOR_ID_CYRIX, PCI_DEVICE_ID_CYRIX_5530_IDE, "CS5530" },
-{ PCI_VENDOR_ID_AMD, PCI_DEVICE_ID_AMD_COBRA_7401, "AMD7401" },
-{ PCI_VENDOR_ID_AMD, PCI_DEVICE_ID_AMD_VIPER_7409, "AMD7409" },
-{ PCI_VENDOR_ID_AMD, PCI_DEVICE_ID_AMD_VIPER_7411, "AMD7411" },
-{ PCI_VENDOR_ID_PDC, PCI_DEVICE_ID_PDC_1841, "PDCADMA" },
-{ PCI_VENDOR_ID_EFAR, PCI_DEVICE_ID_EFAR_SLC90E66_1, "SLC90E66" },
-{ PCI_VENDOR_ID_SERVERWORKS, PCI_DEVICE_ID_SERVERWORKS_OSB4IDE, "OSB4" },
-{ PCI_VENDOR_ID_SERVERWORKS, PCI_DEVICE_ID_SERVERWORKS_CSB5IDE, "OSB5" },
-{ PCI_VENDOR_ID_ITE, PCI_DEVICE_ID_ITE_IT8172G, "ITE8172G" },
-#endif
-};
-
-static struct pci_driver ide_driver __pci_driver = {
- .type = DISK_DRIVER,
- .name = "IDE",
- .probe = ide_pci_probe,
- .ids = ide_controllers,
- .id_count = sizeof(ide_controllers)/sizeof(ide_controllers),
- .class = PCI_CLASS_STORAGE_IDE,
-};
-
-/* The isa driver works but it causes disks to show up twice.
- * comment it out for now.
- */
-#if 0
-static int ide_isa_probe(struct dev * dev, unsigned short *probe_addrs)
-{
- struct disk *disk = (struct disk *)dev;
- int index;
- unsigned short addr;
- struct harddisk_info *info;
-
- index = dev->index +1;
- if (dev->how_probe == PROBE_AWAKE) {
- index--;
- }
- for(; (index >= 0) && (addr = probe_addrs[index >> 1]); index += 2) {
- if ((index & 1) == 0) {
- controller.cmd_base = addr;
- controller.ctrl_base = addr + IDE_REG_EXTENDED_OFFSET;
- if (init_controller(&controller, disk->drive, disk->buffer) < 0) {
- /* nothing behind the controller */
- continue;
- }
- }
- info = &harddisk_info[index & 1];
- if (!info->drive_exists) {
- /* unknown drive */
- return 0;
- }
- disk->sectors_per_read = 1;
- disk->sectors = info->sectors;
- dev->index = index;
- dev->disable = ide_disable;
- disk->read = ide_read;
- disk->priv = info;
-
- return 1;
- }
- /* past all of the drives */
- dev->index = -1;
- return 0;
-}
-
-static unsigned short ide_base[] = {
- IDE_BASE0,
- IDE_BASE1,
- IDE_BASE2,
- IDE_BASE3,
- 0
-};
-static struct isa_driver ide_isa_driver __isa_driver = {
- .type = DISK_DRIVER,
- .name = "IDE/ISA",
- .probe = ide_isa_probe,
- .ioaddrs = ide_base,
-};
-
-#endif
+++ /dev/null
-#include "etherboot.h"
-#include "timer.h"
-#include "disk.h"
-#include "isa.h"
-
-
-#undef MDEBUG
-
-static int FD_BASE = 0x3f0;
-
-#define FD_DRIVE 0
-
-#define FD_STATUS_A (FD_BASE + 0) /* Status register A */
-#define FD_STATUS_B (FD_BASE + 1) /* Status register B */
-#define FD_DOR (FD_BASE + 2) /* Digital Output Register */
-#define FD_TDR (FD_BASE + 3) /* Tape Drive Register */
-#define FD_STATUS (FD_BASE + 4) /* Main Status Register */
-#define FD_DSR (FD_BASE + 4) /* Data Rate Select Register (old) */
-#define FD_DATA (FD_BASE + 5) /* Data Transfer (FIFO) register */
-#define FD_DIR (FD_BASE + 7) /* Digital Input Register (read) */
-#define FD_DCR (FD_BASE + 7) /* Diskette Control Register (write)*/
-
-/* Bit of FD_STATUS_A */
-#define STA_INT_PENDING 0x80 /* Interrupt Pending */
-
-/* DOR */
-#define DOR_DRIVE0 0x00
-#define DOR_DRIVE1 0x01
-#define DOR_DRIVE2 0x02
-#define DOR_DRIVE3 0x03
-#define DOR_DRIVE_MASK 0x03
-#define DOR_NO_RESET 0x04
-#define DOR_DMA_EN 0x08
-#define DOR_MOT_EN0 0x10
-#define DOR_MOT_EN1 0x20
-#define DOR_MOT_EN2 0x40
-#define DOR_MOT_EN3 0x80
-
-/* Bits of main status register */
-#define STATUS_BUSYMASK 0x0F /* drive busy mask */
-#define STATUS_BUSY 0x10 /* FDC busy */
-#define STATUS_NON_DMA 0x20 /* 0- DMA mode */
-#define STATUS_DIR 0x40 /* 0- cpu->fdc */
-#define STATUS_READY 0x80 /* Data reg ready */
-
-/* Bits of FD_ST0 */
-#define ST0_DS 0x03 /* drive select mask */
-#define ST0_HA 0x04 /* Head (Address) */
-#define ST0_NR 0x08 /* Not Ready */
-#define ST0_ECE 0x10 /* Equipment check error */
-#define ST0_SE 0x20 /* Seek end */
-#define ST0_INTR 0xC0 /* Interrupt code mask */
-#define ST0_INTR_OK (0 << 6)
-#define ST0_INTR_ERROR (1 << 6)
-#define ST0_INTR_INVALID (2 << 6)
-#define ST0_INTR_POLL_ERROR (3 << 6)
-
-/* Bits of FD_ST1 */
-#define ST1_MAM 0x01 /* Missing Address Mark */
-#define ST1_WP 0x02 /* Write Protect */
-#define ST1_ND 0x04 /* No Data - unreadable */
-#define ST1_OR 0x10 /* OverRun */
-#define ST1_CRC 0x20 /* CRC error in data or addr */
-#define ST1_EOC 0x80 /* End Of Cylinder */
-
-/* Bits of FD_ST2 */
-#define ST2_MAM 0x01 /* Missing Address Mark (again) */
-#define ST2_BC 0x02 /* Bad Cylinder */
-#define ST2_SNS 0x04 /* Scan Not Satisfied */
-#define ST2_SEH 0x08 /* Scan Equal Hit */
-#define ST2_WC 0x10 /* Wrong Cylinder */
-#define ST2_CRC 0x20 /* CRC error in data field */
-#define ST2_CM 0x40 /* Control Mark = deleted */
-
-/* Bits of FD_ST3 */
-#define ST3_HA 0x04 /* Head (Address) */
-#define ST3_DS 0x08 /* drive is double-sided */
-#define ST3_TZ 0x10 /* Track Zero signal (1=track 0) */
-#define ST3_RY 0x20 /* drive is ready */
-#define ST3_WP 0x40 /* Write Protect */
-#define ST3_FT 0x80 /* Drive Fault */
-
-/* Values for FD_COMMAND */
-#define FD_RECALIBRATE 0x07 /* move to track 0 */
-#define FD_SEEK 0x0F /* seek track */
-#define FD_READ 0xA6 /* read with MT, SKip deleted */
-#define FD_WRITE 0xC5 /* write with MT, MFM */
-#define FD_SENSEI 0x08 /* Sense Interrupt Status */
-#define FD_SPECIFY 0x03 /* specify HUT etc */
-#define FD_FORMAT 0x4D /* format one track */
-#define FD_VERSION 0x10 /* get version code */
-#define FD_CONFIGURE 0x13 /* configure FIFO operation */
-#define FD_PERPENDICULAR 0x12 /* perpendicular r/w mode */
-#define FD_GETSTATUS 0x04 /* read ST3 */
-#define FD_DUMPREGS 0x0E /* dump the contents of the fdc regs */
-#define FD_READID 0xEA /* prints the header of a sector */
-#define FD_UNLOCK 0x14 /* Fifo config unlock */
-#define FD_LOCK 0x94 /* Fifo config lock */
-#define FD_RSEEK_OUT 0x8f /* seek out (i.e. to lower tracks) */
-#define FD_RSEEK_IN 0xcf /* seek in (i.e. to higher tracks) */
-
-
-/* the following commands are new in the 82078. They are not used in the
- * floppy driver, except the first three. These commands may be useful for apps
- * which use the FDRAWCMD interface. For doc, get the 82078 spec sheets at
- * http://www-techdoc.intel.com/docs/periph/fd_contr/datasheets/ */
-
-#define FD_PARTID 0x18 /* part id ("extended" version cmd) */
-#define FD_SAVE 0x2e /* save fdc regs for later restore */
-#define FD_DRIVESPEC 0x8e /* drive specification: Access to the
- * 2 Mbps data transfer rate for tape
- * drives */
-
-#define FD_RESTORE 0x4e /* later restore */
-#define FD_POWERDOWN 0x27 /* configure FDC's powersave features */
-#define FD_FORMAT_N_WRITE 0xef /* format and write in one go. */
-#define FD_OPTION 0x33 /* ISO format (which is a clean way to
- * pack more sectors on a track) */
-
-/* FDC version return types */
-#define FDC_NONE 0x00
-#define FDC_UNKNOWN 0x10 /* DO NOT USE THIS TYPE EXCEPT IF IDENTIFICATION
- FAILS EARLY */
-#define FDC_8272A 0x20 /* Intel 8272a, NEC 765 */
-#define FDC_765ED 0x30 /* Non-Intel 1MB-compatible FDC, can't detect */
-#define FDC_82072 0x40 /* Intel 82072; 8272a + FIFO + DUMPREGS */
-#define FDC_82072A 0x45 /* 82072A (on Sparcs) */
-#define FDC_82077_ORIG 0x51 /* Original version of 82077AA, sans LOCK */
-#define FDC_82077 0x52 /* 82077AA-1 */
-#define FDC_82078_UNKN 0x5f /* Unknown 82078 variant */
-#define FDC_82078 0x60 /* 44pin 82078 or 64pin 82078SL */
-#define FDC_82078_1 0x61 /* 82078-1 (2Mbps fdc) */
-#define FDC_S82078B 0x62 /* S82078B (first seen on Adaptec AVA-2825 VLB
- * SCSI/EIDE/Floppy controller) */
-#define FDC_87306 0x63 /* National Semiconductor PC 87306 */
-
-/*
- * Beware: the fdc type list is roughly sorted by increasing features.
- * Presence of features is tested by comparing the FDC version id with the
- * "oldest" version that has the needed feature.
- * If during FDC detection, an obscure test fails late in the sequence, don't
- * assign FDC_UNKNOWN. Else the FDC will be treated as a dumb 8272a, or worse.
- * This is especially true if the tests are unneeded.
- */
-
-/* Parameters for a 1.44 3.5" disk */
-#define DISK_H1440_SIZE 2880
-#define DISK_H1440_SECT 18
-#define DISK_H1440_HEAD 2
-#define DISK_H1440_TRACK 80
-#define DISK_H1440_STRETCH 0
-#define DISK_H1440_GAP 0x1B
-#define DISK_H1440_RATE 0x00
-#define DISK_H1440_SPEC1 0xCF
-#define DISK_H1440_FMT_GAP 0x6C
-
-/* Parameters for a 1.44 3.5" drive */
-#define DRIVE_H1440_MAX_DTR 500
-#define DRIVE_H1440_HLT 16 /* ms */
-#define DRIVE_H1440_HUT 16 /* ms */
-#define DRIVE_H1440_SRT 4000 /* us */
-#define DRIVE_H1440_SPINUP 400 /* ms */
-#define DRIVE_H1440_SPINDOWN 3000 /* ms */
-#define DRIVE_H1440_SPINDOWN_OFFSET 10
-#define DRIVE_H1440_SELECT_DELAY 20 /* ms */
-#define DRIVE_H1440_RPS 5
-#define DRIVE_H1440_TRACKS 83
-#define DRIVE_H1440_TIMEOUT 3000 /* ms */
-#define DRIVE_H1440_INTERLEAVE_SECT 20
-
-/* Floppy drive configuration */
-#define FIFO_DEPTH 10
-#define USE_IMPLIED_SEEK 0
-#define USE_FIFO 1
-#define FIFO_THRESHOLD 10
-#define TRACK_PRECOMPENSATION 0
-
-#define SLOW_FLOPPY 0
-
-#define FD_RESET_DELAY 20 /* microseconds */
-
-/*
- * FDC state
- */
-struct drive_state {
- unsigned track;
-} drive_state[1];
-
-struct floppy_fdc_state {
- int in_sync;
- int spec1; /* spec1 value last used */
- int spec2; /* spec2 value last used */
- unsigned dtr;
- unsigned char dor;
- unsigned char version; /* FDC version code */
-} fdc_state;
-
-
-
-/* Synchronization of FDC access. */
-#define FD_COMMAND_NONE -1
-#define FD_COMMAND_ERROR 2
-#define FD_COMMAND_OKAY 3
-
-/*
- * globals used by 'result()'
- */
-#define MAX_REPLIES 16
-
-static void show_floppy(void);
-static void floppy_reset(void);
-
-
-static int set_dor(char mask, char data)
-{
- unsigned char newdor,olddor;
-
- olddor = fdc_state.dor;
- newdor = (olddor & mask) | data;
- if (newdor != olddor){
- fdc_state.dor = newdor;
- outb(newdor, FD_DOR);
- }
- return olddor;
-}
-
-
-static void bounce_motor(void)
-{
- /* Bounce the drive motor... */
- outb(fdc_state.dor & ~(0x10<<FD_DRIVE), FD_DOR);
- outb(fdc_state.dor, FD_DOR);
-}
-
-
-/* waits until the fdc becomes ready */
-static int wait_til_ready(void)
-{
- int counter, status;
- for (counter = 0; counter < 10000; counter++) {
-#if 1
- poll_interruptions();
-#endif
- status = inb(FD_STATUS);
- if (status & STATUS_READY) {
- return status;
- }
- }
-#ifdef MDEBUG
- printf("Getstatus times out (%x)\n", status);
-#endif
- show_floppy();
- return -3;
-}
-
-
-/* sends a command byte to the fdc */
-static int output_byte(unsigned char byte)
-{
- int status;
-
- if ((status = wait_til_ready()) < 0)
- return status;
- if ((status & (STATUS_READY|STATUS_DIR|STATUS_NON_DMA)) == STATUS_READY){
- outb(byte,FD_DATA);
- return 0;
- }
-#ifdef MDEBUG
- printf("Unable to send byte %x to FDC_STATE. Status=%x\n",
- byte, status);
-#endif
-
- show_floppy();
- return -2;
-}
-
-/* gets the response from the fdc */
-static int result(unsigned char *reply_buffer, int max_replies)
-{
- int i, status=0;
-
- for(i=0; i < max_replies; i++) {
- if ((status = wait_til_ready()) < 0)
- break;
- status &= STATUS_DIR|STATUS_READY|STATUS_BUSY|STATUS_NON_DMA;
- if ((status & ~STATUS_BUSY) == STATUS_READY){
- return i;
- }
- if (status == (STATUS_DIR|STATUS_READY|STATUS_BUSY))
- reply_buffer[i] = inb(FD_DATA);
- else
- break;
- }
- if (i == max_replies)
- return i;
-#ifdef MDEBUG
- printf("get result error. Last status=%x Read bytes=%d\n",
- status, i);
-#endif
- show_floppy();
- return -1;
-}
-#define MORE_OUTPUT -2
-/* does the fdc need more output? */
-static int need_more_output(void)
-{
- unsigned char reply_buffer[MAX_REPLIES];
- int status;
- if ((status = wait_til_ready()) < 0)
- return -1;
- if ((status & (STATUS_READY|STATUS_DIR|STATUS_NON_DMA)) == STATUS_READY)
- return MORE_OUTPUT;
- return result(reply_buffer, MAX_REPLIES);
-}
-
-static int output_command(unsigned char *cmd, int count)
-{
- int i, status;
- for(i = 0; i < count; i++) {
- if ((status = output_byte(cmd[i])) < 0) {
- printf("full command not acceppted, status =%x\n",
- status);
- return -1;
- }
- }
- return 0;
-}
-
-static int output_new_command(unsigned char *cmd, int count)
-{
- int i, status;
- if ((status = output_byte(cmd[0])) < 0)
- return -1;
- if (need_more_output() != MORE_OUTPUT)
- return -1;
- for(i = 1; i < count; i++) {
- if ((status = output_byte(cmd[i])) < 0) {
- printf("full new command not acceppted, status =%d\n",
- status);
- return -1;
- }
- }
- return 0;
-}
-
-
-/* Collect pending interrupt status */
-static unsigned char collect_interrupt(void)
-{
- unsigned char pcn = 0xff;
- unsigned char reply_buffer[MAX_REPLIES];
- int nr, i, status;
- nr = result(reply_buffer, MAX_REPLIES);
- if (nr != 0) {
-#ifdef MDEBUG
- printf("SENSEI\n");
-#endif
- }
- else {
- int max_sensei = 4;
- do {
- if (output_byte(FD_SENSEI) < 0)
- break;
- nr = result(reply_buffer, MAX_REPLIES);
- if (nr == 2) {
- pcn = reply_buffer[1];
-#ifdef MDEBUG
- printf("SENSEI %hx %hx\n",
- reply_buffer[0], reply_buffer[1]);
-#endif
- }
-#if 0
- }while((nr == 2) && (reply_buffer[0] != 0x80));
-#else
- }while(((reply_buffer[0] & 0x83) != FD_DRIVE) && (nr == 2) && max_sensei);
-#endif
- status = inb(FD_STATUS);
-#ifdef MDEBUG
- printf("status = %x, reply_buffer=", status);
-#endif
- for(i = 0; i < nr; i++) {
-#ifdef MDEBUG
- printf(" %x", reply_buffer[i]);
-#endif
- }
-#ifdef MDEBUG
- printf("\n");
-#endif
- }
-
- return pcn;
-}
-
-
-/* selects the fdc and drive, and enables the fdc's input/dma, and it's motor. */
-static void set_drive(int drive)
-{
- int fdc = (drive >> 2) & 1;
- int status;
- unsigned new_dor;
- if (drive > 3) {
- printf("bad drive value\n");
- return;
- }
- if (fdc != 0) {
- printf("bad fdc value\n");
- return;
- }
- drive &= 3;
-#if 0
- new_dor = 8; /* Enable the controller */
-#else
- new_dor = 0; /* Don't enable DMA on the controller */
-#endif
- new_dor |= (1 << (drive + 4)); /* Spinup the selected drive */
- new_dor |= drive; /* Select the drive for commands as well */
- set_dor(0xc, new_dor);
-
- mdelay(DRIVE_H1440_SPINUP);
-
- status = inb(FD_STATUS);
-#ifdef MDEBUG
- printf("set_drive status = %hx, new_dor = %hx\n", status, new_dor);
-#endif
- if (status != STATUS_READY) {
- printf("set_drive bad status\n");
- }
-}
-
-
-/* Disable the motor for a given floppy drive */
-static void floppy_motor_off(int drive)
-{
- unsigned mask;
-#ifdef MDEBUG
- printf("floppy_motor_off\n");
-#endif
- /* fix the number of drives */
- drive &= 3;
- /* Clear the bit for the drive we care about */
- mask = 0xff;
- mask &= ~(1 << (drive +4));
- /* Now clear the bit in the Digital Output Register */
- set_dor(mask, 0);
-}
-
-/* Set the FDC's data transfer rate on behalf of the specified drive.
- * NOTE: with 82072/82077 FDCs, changing the data rate requires a reissue
- * of the specify command (i.e. using the fdc_specify function).
- */
-static void fdc_dtr(unsigned rate)
-{
- rate &= 3;
- /* If data rate not already set to desired value, set it. */
- if (fdc_state.in_sync && (rate == fdc_state.dtr))
- return;
-
- /* Set dtr */
- outb(rate, FD_DCR);
-
- /* TODO: some FDC/drive combinations (C&T 82C711 with TEAC 1.2MB)
- * need a stabilization period of several milliseconds to be
- * enforced after data rate changes before R/W operations.
- * Pause 5 msec to avoid trouble. (Needs to be 2 jiffies)
- */
- fdc_state.dtr = rate & 3;
- mdelay(5);
-} /* fdc_dtr */
-
-static int fdc_configure(int use_implied_seek, int use_fifo,
- unsigned fifo_threshold, unsigned precompensation)
-{
- unsigned config_bits;
- unsigned char cmd[4];
- /* 0 EIS EFIFO POLL FIFOOTHR[4] */
-
- /* santize parameters */
- config_bits = fifo_threshold & 0xf;
- config_bits |= (1 << 4); /* Always disable background floppy poll */
- config_bits |= (!use_fifo) << 5;
- config_bits |= (!!use_implied_seek) << 6;
-
- precompensation &= 0xff; /* pre-compensation from track 0 upwards */
-
- cmd[0] = FD_CONFIGURE;
- cmd[1] = 0;
- cmd[2] = config_bits;
- cmd[3] = precompensation;
-
- /* Turn on FIFO */
- if (output_new_command(cmd, 4) < 0)
- return 0;
- return 1;
-}
-
-#define NOMINAL_DTR 500
-/* Issue a "SPECIFY" command to set the step rate time, head unload time,
- * head load time, and DMA disable flag to values needed by floppy.
- *
- * The value "dtr" is the data transfer rate in Kbps. It is needed
- * to account for the data rate-based scaling done by the 82072 and 82077
- * FDC types. This parameter is ignored for other types of FDCs (i.e.
- * 8272a).
- *
- * Note that changing the data transfer rate has a (probably deleterious)
- * effect on the parameters subject to scaling for 82072/82077 FDCs, so
- * fdc_specify is called again after each data transfer rate
- * change.
- *
- * srt: 1000 to 16000 in microseconds
- * hut: 16 to 240 milliseconds
- * hlt: 2 to 254 milliseconds
- *
- * These values are rounded up to the next highest available delay time.
- */
-static void fdc_specify(
- unsigned head_load_time, unsigned head_unload_time, unsigned step_rate)
-{
- unsigned char cmd[3];
- unsigned long srt, hlt, hut;
- unsigned long dtr = NOMINAL_DTR;
- unsigned long scale_dtr = NOMINAL_DTR;
- int hlt_max_code = 0x7f;
- int hut_max_code = 0xf;
-
-#ifdef MDEBUG
- printf("fdc_specify\n");
-#endif
-
- switch (DISK_H1440_RATE & 0x03) {
- case 3:
- dtr = 1000;
- break;
- case 1:
- dtr = 300;
- if (fdc_state.version >= FDC_82078) {
- unsigned char cmd[3];
- /* chose the default rate table, not the one
- * where 1 = 2 Mbps */
- cmd[0] = FD_DRIVESPEC;
- cmd[1] = FD_DRIVE & 3;
- cmd[2] = 0xc0;
- output_new_command(cmd,3);
- /* FIXME how do I handle errors here? */
- }
- break;
- case 2:
- dtr = 250;
- break;
- }
-
-
- if (fdc_state.version >= FDC_82072) {
- scale_dtr = dtr;
- hlt_max_code = 0x00; /* 0==256msec*dtr0/dtr (not linear!) */
- hut_max_code = 0x0; /* 0==256msec*dtr0/dtr (not linear!) */
- }
-
- /* Convert step rate from microseconds to milliseconds and 4 bits */
- srt = 16 - (step_rate*scale_dtr/1000 + NOMINAL_DTR - 1)/NOMINAL_DTR;
- if (SLOW_FLOPPY) {
- srt = srt / 4;
- }
- if (srt > 0xf) {
- srt = 0xf;
- }
- if (srt < 0 ) {
- srt = 0;
- }
-
- hlt = (head_load_time*scale_dtr/2 + NOMINAL_DTR - 1)/NOMINAL_DTR;
- if (hlt < 0x01)
- hlt = 0x01;
- else if (hlt > 0x7f)
- hlt = hlt_max_code;
-
- hut = (head_unload_time*scale_dtr/16 + NOMINAL_DTR - 1)/NOMINAL_DTR;
- if (hut < 0x1)
- hut = 0x1;
- else if (hut > 0xf)
- hut = hut_max_code;
-
- cmd[0] = FD_SPECIFY;
- cmd[1] = (srt << 4) | hut;
- cmd[2] = (hlt << 1) | 1; /* Always disable DMA */
-
- /* If these parameters did not change, just return with success */
- if (!fdc_state.in_sync || fdc_state.spec1 != cmd[1] || fdc_state.spec2 != cmd[2]) {
- /* Go ahead and set spec1 and spec2 */
- output_command(cmd, 3);
- /* FIXME how do I handle errors here... */
-#ifdef MDEBUG
- printf("FD_SPECIFY(%hx, %hx)\n", cmd[1], cmd[2]);
-#endif
- }
-} /* fdc_specify */
-
-
-/*
- * reset is done by pulling bit 2 of DOR low for a while (old FDCs),
- * or by setting the self clearing bit 7 of STATUS (newer FDCs)
- */
-static void reset_fdc(void)
-{
- unsigned char reply[MAX_REPLIES];
-
- fdc_state.in_sync = 0;
-
- /* Pseudo-DMA may intercept 'reset finished' interrupt. */
- /* Irrelevant for systems with true DMA (i386). */
-
- if (fdc_state.version >= FDC_82072A)
- outb(0x80 | (fdc_state.dtr &3), FD_DSR);
- else {
- outb(fdc_state.dor & ~DOR_NO_RESET, FD_DOR);
- udelay(FD_RESET_DELAY);
- outb(fdc_state.dor, FD_DOR);
- }
- result(reply, MAX_REPLIES);
-}
-
-
-
-static void show_floppy(void)
-{
-
-#ifdef MDEBUG
- printf("\n");
- printf("floppy driver state\n");
- printf("-------------------\n");
-
- printf("fdc_bytes: %hx %hx xx %hx %hx %hx xx %hx\n",
- inb(FD_BASE + 0), inb(FD_BASE + 1),
- inb(FD_BASE + 3), inb(FD_BASE + 4), inb(FD_BASE + 5),
- inb(FD_BASE + 7));
-
- printf("status=%x\n", inb(FD_STATUS));
- printf("\n");
-#endif
-}
-
-static void floppy_recalibrate(void)
-{
- unsigned char cmd[2];
- unsigned char reply[MAX_REPLIES];
- int nr, success;
- success = 0;
- do {
-#ifdef MDEBUG
- printf("floppy_recalibrate\n");
-#endif
- /* Send the recalibrate command to the controller.
- * We don't have interrupts or anything we can poll
- * so we have to guess when it is done.
- */
- cmd[0] = FD_RECALIBRATE;
- cmd[1] = 0;
- if (output_command(cmd, 2) < 0)
- continue;
-
- /* Sleep for the maximum time the recalibrate command
- * can run.
- */
- mdelay(80*DRIVE_H1440_SRT/1000);
-
- /* Now call FD_SENSEI to end the command
- * and collect up the reply.
- */
- if (output_byte(FD_SENSEI) < 0)
- continue;
- nr = result(reply, MAX_REPLIES);
-
- /* Now see if we have succeeded in our seek */
- success =
- /* We have the right size result */
- (nr == 2) &&
- /* The command didn't terminate in error */
- ((reply[0] & ST0_INTR) == ST0_INTR_OK) &&
- /* We finished a seek */
- (reply[0] & ST0_SE) &&
- /* We are at cylinder 0 */
- (reply[1] == 0);
- } while(!success);
- /* Remember we are at track 0 */
- drive_state[FD_DRIVE].track = 0;
-}
-
-
-static int __floppy_seek(unsigned track)
-{
- unsigned char cmd[3];
- unsigned char reply[MAX_REPLIES];
- int nr, success;
- unsigned distance, old_track;
-
- /* Look up the old track and see if we need to
- * do anything.
- */
- old_track = drive_state[FD_DRIVE].track;
- if (old_track == track) {
- return 1;
- }
-
- /* Compute the distance we are about to move,
- * We need to know this so we know how long to sleep...
- */
- distance = (old_track > track)?(old_track - track):(track - old_track);
- distance += 1;
-
-
- /* Send the seek command to the controller.
- * We don't have interrupts or anything we can poll
- * so we have to guess when it is done.
- */
- cmd[0] = FD_SEEK;
- cmd[1] = FD_DRIVE;
- cmd[2] = track;
- if (output_command(cmd, 3) < 0)
- return 0;
-
- /* Sleep for the time it takes to step through distance tracks.
- */
- mdelay(distance*DRIVE_H1440_SRT/1000);
-
- /* Now call FD_SENSEI to end the command
- * and collect up the reply.
- */
- cmd[0] = FD_SENSEI;
- if (output_command(cmd, 1) < 0)
- return 0;
- nr = result(reply, MAX_REPLIES);
-
- /* Now see if we have succeeded in our seek */
- success =
- /* We have the right size result */
- (nr == 2) &&
- /* The command didn't terminate in error */
- ((reply[0] & ST0_INTR) == ST0_INTR_OK) &&
- /* We finished a seek */
- (reply[0] & ST0_SE) &&
- /* We are at cylinder 0 */
- (reply[1] == track);
- if (success)
- drive_state[FD_DRIVE].track = track;
- else {
-#ifdef MDEBUG
- printf("seek failed\n");
- printf("nr = %d\n", nr);
- printf("ST0 = %hx\n", reply[0]);
- printf("PCN = %hx\n", reply[1]);
- printf("status = %d\n", inb(FD_STATUS));
-#endif
- }
- return success;
-}
-
-static int floppy_seek(unsigned track)
-{
- unsigned old_track;
- int result;
- /* assume success */
- result = 1;
-
- /* Look up the old track and see if we need to
- * do anything.
- */
- old_track = drive_state[FD_DRIVE].track;
- if (old_track == track) {
- return result;
- }
- /* For some reason seeking many tracks at once is
- * problematic so only seek a single track at a time.
- */
- while(result && (old_track > track)) {
- old_track--;
- result = __floppy_seek(old_track);
- }
- while(result && (track > old_track)) {
- old_track++;
- result = __floppy_seek(old_track);
- }
- return result;
-}
-
-static int read_ok(unsigned head)
-{
- unsigned char results[7];
- int result_ok;
- int nr;
-
- /* read back the read results */
- nr = result(results, 7);
-
- /* Now see if they say we are o.k. */
- result_ok = 0;
- /* Are my result bytes o.k.? */
- if (nr == 7) {
- /* Are we o.k. */
- if ((results[0] & ST0_INTR) == ST0_INTR_OK) {
- result_ok = 1;
- }
- /* Or did we get just an overflow error */
- else if (((results[0] & ST0_INTR) == ST0_INTR_ERROR) &&
- (results[1]== ST1_OR) &&
- (results[2] == 0)) {
- result_ok = 1;
- }
- /* Verify the reply had the correct head */
- if (((results[0] & ST0_HA) >> 2) != head) {
- result_ok = 0;
- }
- /* Verify the reply had the correct drive */
- if (((results[0] & ST0_DS) != FD_DRIVE)) {
- result_ok = 0;
- }
- }
- if (!result_ok) {
-#ifdef MDEBUG
- printf("result_bytes = %d\n", nr);
- printf("ST0 = %hx\n", results[0]);
- printf("ST1 = %hx\n", results[1]);
- printf("ST2 = %hx\n", results[2]);
- printf(" C = %hx\n", results[3]);
- printf(" H = %hx\n", results[4]);
- printf(" R = %hx\n", results[5]);
- printf(" N = %hx\n", results[6]);
-#endif
- }
- return result_ok;
-}
-
-static int floppy_read_sectors(
- char *dest, unsigned byte_offset, unsigned length,
- unsigned sector, unsigned head, unsigned track)
-{
- /* MT == Multitrack */
- /* MFM == MFM or FM Mode */
- /* SK == Skip deleted data addres Mark */
- /* HDS == Head number select */
- /* DS0 == Disk Drive Select 0 */
- /* DS1 == Disk Drive Select 1 */
- /* C == Cylinder number 0 - 255 */
- /* H == Head number */
- /* R == Record */
- /* N == The number of data bytes written in a sector */
- /* EOT == End of Track */
- /* GPL == Gap Length */
- /* DTL == Data Length */
- /* MT MFM SK 0 1 1 0 0 */
- /* 0 0 0 0 0 HDS DS1 DS0 */
- /* C, H, R, N, EOT, GPL, DTL */
-
- int i, status, result_ok;
- int max_bytes, bytes_read;
- int ret;
- unsigned char cmd[9];
- unsigned end_offset;
-
- end_offset = byte_offset + length;
- max_bytes = 512*(DISK_H1440_SECT - sector + 1);
-
- if (byte_offset >= max_bytes) {
- return 0;
- }
- cmd[0] = FD_READ | (((DISK_H1440_HEAD ==2)?1:0) << 6);
- cmd[1] = (head << 2) | FD_DRIVE;
- cmd[2] = track;
- cmd[3] = head;
- cmd[4] = sector;
- cmd[5] = 2; /* 2^N *128 == Sector size. Hard coded to 512 bytes */
- cmd[6] = DISK_H1440_SECT;
- cmd[7] = DISK_H1440_GAP;
- cmd[8] = 0xff;
-
- /* Output the command bytes */
- if (output_command(cmd, 9) < 0)
- return -1;
-
- /* The execution stage begins when STATUS_READY&STATUS_NON_DMA is set */
- do {
-#if 1
- poll_interruptions();
-#endif
- status = inb(FD_STATUS);
- status &= STATUS_READY | STATUS_NON_DMA;
- } while(status != (STATUS_READY|STATUS_NON_DMA));
-
- for(i = 0; i < max_bytes; i++) {
- unsigned char byte;
- if ((status = wait_til_ready()) < 0) {
- break;
- }
- status &= STATUS_READY|STATUS_DIR|STATUS_NON_DMA;
- if (status != (STATUS_READY|STATUS_DIR|STATUS_NON_DMA)) {
- break;
- }
- byte = inb(FD_DATA);
- if ((i >= byte_offset) && (i < end_offset)) {
- dest[i - byte_offset] = byte;
- }
- }
- bytes_read = i;
-
- /* The result stage begins when STATUS_NON_DMA is cleared */
- while((status = inb(FD_STATUS)) & STATUS_NON_DMA) {
- /* We get extra bytes in the fifo past
- * the end of the sector and drop them on the floor.
- * Otherwise the fifo is polluted.
- */
- inb(FD_DATA);
- }
- /* Did I get an error? */
- result_ok = read_ok(head);
- /* Did I read enough bytes? */
- ret = -1;
- if (result_ok && (bytes_read == max_bytes)) {
- ret = bytes_read - byte_offset;
- if (ret > length) {
- ret = length;
- }
- }
-
- if (ret < 0) {
-#ifdef MDEBUG
- printf("ret = %d\n", ret);
- printf("bytes_read = %d\n", bytes_read);
- printf("status = %x\n", status);
-#endif
- }
- return ret;
-}
-
-static int floppy_read(struct disk *disk, sector_t base_sector)
-{
- unsigned head, track, sector, byte_offset;
- unsigned long block;
- int ret;
-
- disk->sector = 0;
- disk->bytes = 0;
-
- block = base_sector;
- block /= disk->sectors_per_read;
-
- /* break the offset up into sectors and bytes */
- byte_offset = 0;
-
- /* Find the disk block we are starting with... */
- sector = 1;
- head = block % DISK_H1440_HEAD;
- track = (block / DISK_H1440_HEAD)% DISK_H1440_TRACK;
-
- /* First seek to our start track */
- if (!floppy_seek(track)) {
- return -1;
- }
- /* Then read the data */
- ret = floppy_read_sectors(
- disk->buffer, byte_offset, SECTOR_SIZE*disk->sectors_per_read, sector, head, track);
- if (ret >= 0) {
- disk->sector = block * disk->sectors_per_read;
- disk->bytes = SECTOR_SIZE * disk->sectors_per_read;
- return ret;
- }
- /* If we failed reset the fdc... */
- floppy_reset();
- return -1;
-}
-
-/* Determine the floppy disk controller type */
-/* This routine was written by David C. Niemi */
-static char get_fdc_version(void)
-{
- int bytes, ret;
- unsigned char reply_buffer[MAX_REPLIES];
-
- ret = output_byte(FD_DUMPREGS); /* 82072 and better know DUMPREGS */
- if (ret < 0)
- return FDC_NONE;
- if ((bytes = result(reply_buffer, MAX_REPLIES)) <= 0x00)
- return FDC_NONE; /* No FDC present ??? */
- if ((bytes==1) && (reply_buffer[0] == 0x80)){
- printf("FDC %d is an 8272A\n");
- return FDC_8272A; /* 8272a/765 don't know DUMPREGS */
- }
- if (bytes != 10) {
-#ifdef MDEBUG
- printf("init: DUMPREGS: unexpected return of %d bytes.\n",
- bytes);
-#endif
- return FDC_UNKNOWN;
- }
- if (!fdc_configure(USE_IMPLIED_SEEK, USE_FIFO, FIFO_THRESHOLD,
- TRACK_PRECOMPENSATION)) {
- printf("FDC is an 82072\n");
- return FDC_82072; /* 82072 doesn't know CONFIGURE */
- }
-
- output_byte(FD_PERPENDICULAR);
- if (need_more_output() == MORE_OUTPUT) {
- output_byte(0);
- } else {
- printf("FDC is an 82072A\n");
- return FDC_82072A; /* 82072A as found on Sparcs. */
- }
-
- output_byte(FD_UNLOCK);
- bytes = result(reply_buffer, MAX_REPLIES);
- if ((bytes == 1) && (reply_buffer[0] == 0x80)){
- printf("FDC is a pre-1991 82077\n");
- return FDC_82077_ORIG; /* Pre-1991 82077, doesn't know
- * LOCK/UNLOCK */
- }
- if ((bytes != 1) || (reply_buffer[0] != 0x00)) {
-#ifdef MDEBUG
- printf("FDC init: UNLOCK: unexpected return of %d bytes.\n",
- bytes);
-#endif
- return FDC_UNKNOWN;
- }
- output_byte(FD_PARTID);
- bytes = result(reply_buffer, MAX_REPLIES);
- if (bytes != 1) {
-#ifdef MDEBUG
- printf("FDC init: PARTID: unexpected return of %d bytes.\n",
- bytes);
-#endif
- return FDC_UNKNOWN;
- }
- if (reply_buffer[0] == 0x80) {
- printf("FDC is a post-1991 82077\n");
- return FDC_82077; /* Revised 82077AA passes all the tests */
- }
- switch (reply_buffer[0] >> 5) {
- case 0x0:
- /* Either a 82078-1 or a 82078SL running at 5Volt */
- printf("FDC is an 82078.\n");
- return FDC_82078;
- case 0x1:
- printf("FDC is a 44pin 82078\n");
- return FDC_82078;
- case 0x2:
- printf("FDC is a S82078B\n");
- return FDC_S82078B;
- case 0x3:
- printf("FDC is a National Semiconductor PC87306\n");
- return FDC_87306;
- default:
- printf("FDC init: 82078 variant with unknown PARTID=%d.\n",
- reply_buffer[0] >> 5);
- return FDC_82078_UNKN;
- }
-} /* get_fdc_version */
-
-
-static int floppy_init(void)
-{
-#ifdef MDEBUG
- printf("floppy_init\n");
-#endif
- fdc_state.in_sync = 0;
- fdc_state.spec1 = -1;
- fdc_state.spec2 = -1;
- fdc_state.dtr = -1;
- fdc_state.dor = DOR_NO_RESET;
- fdc_state.version = FDC_UNKNOWN;
- reset_fdc();
- /* Try to determine the floppy controller type */
- fdc_state.version = get_fdc_version();
- if (fdc_state.version == FDC_NONE) {
- return -1;
- }
- floppy_reset();
-#ifdef MDEBUG
- printf("fdc_state.version = %x\n", fdc_state.version);
-#endif
- return 0;
-}
-
-static void floppy_reset(void)
-{
-#ifdef MDEBUG
- printf("floppy_reset\n");
-#endif
- floppy_motor_off(FD_DRIVE);
- reset_fdc();
- fdc_dtr(DISK_H1440_RATE);
- /* program data rate via ccr */
- collect_interrupt();
- fdc_configure(USE_IMPLIED_SEEK, USE_FIFO, FIFO_THRESHOLD,
- TRACK_PRECOMPENSATION);
- fdc_specify(DRIVE_H1440_HLT, DRIVE_H1440_HUT, DRIVE_H1440_SRT);
- set_drive(FD_DRIVE);
- floppy_recalibrate();
- fdc_state.in_sync = 1;
-}
-
-static void floppy_fini(struct dev *dev __unused)
-{
- /* Disable the floppy and the floppy drive controller */
- set_dor(0, 0);
-}
-
-static int floppy_probe(struct dev *dev, unsigned short *probe_addrs)
-{
- struct disk *disk = (struct disk *)dev;
- unsigned short addr;
- int index;
-
- if (!probe_addrs || !*probe_addrs)
- return 0;
- index = dev->index +1;
- if (dev->how_probe == PROBE_AWAKE) {
- index--;
- }
- for(; (index >= 0) && (addr = probe_addrs[index]); index++) {
- /* FIXME handle multiple drives per controller */
- /* FIXME test to see if I have a drive or a disk in
- * the driver during the probe routine.
- */
- /* FIXME make this work under the normal bios */
- FD_BASE = addr;
- if (floppy_init() != 0) {
- /* nothing at this address */
- continue;
- }
- /* O.k. I have a floppy controller */
- disk->hw_sector_size = SECTOR_SIZE;
- disk->sectors_per_read = DISK_H1440_SECT;
- disk->sectors = DISK_H1440_HEAD*DISK_H1440_TRACK*DISK_H1440_SECT;
- dev->index = index;
- dev->disable = floppy_fini;
- disk->read = floppy_read;
- return 1;
- }
- dev->index = -1;
- return 0;
-}
-
-static unsigned short floppy_ioaddrs[] =
-{
- 0x3F0, 0x370, 0
-};
-ISA_ROM("pc_floppy", "Generic PC Floppy support")
-
-static struct isa_driver floppy_isa_driver __isa_driver = {
- .type = FLOPPY_DRIVER,
- .name = "PC flopyy",
- .probe = floppy_probe,
- .ioaddrs = floppy_ioaddrs,
-};
http://git.etherboot.org / people / xl0 / gpxe.git / commitdiff