diff options
| author | Michael Brown | 2006-03-17 15:14:36 +0100 |
|---|---|---|
| committer | Michael Brown | 2006-03-17 15:14:36 +0100 |
| commit | 7be870acd360345f0a891114195a32201c8dedd3 (patch) | |
| tree | c3e8512d19661671807ab47f3d86af841d4c8200 /src/drivers/disk/pc_floppy.c | |
| parent | They can come back when they have someone to support them. (diff) | |
| download | ipxe-7be870acd360345f0a891114195a32201c8dedd3.tar.gz ipxe-7be870acd360345f0a891114195a32201c8dedd3.tar.xz ipxe-7be870acd360345f0a891114195a32201c8dedd3.zip | |
More purging
Diffstat (limited to 'src/drivers/disk/pc_floppy.c')
| -rw-r--r-- | src/drivers/disk/pc_floppy.c | 1151 |
1 files changed, 0 insertions, 1151 deletions
diff --git a/src/drivers/disk/pc_floppy.c b/src/drivers/disk/pc_floppy.c deleted file mode 100644 index 7d953a286..000000000 --- a/src/drivers/disk/pc_floppy.c +++ /dev/null @@ -1,1151 +0,0 @@ -#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, -}; |
