updated floppy driver: formatting code, disk geometry auto detect (Jocelyn Mayer)

git-svn-id: svn://svn.savannah.nongnu.org/qemu/trunk@671 c046a42c-6fe2-441c-8c8c-71466251a162

3 files changed, 944 insertions, 545 deletions

diff --git a/hw/fdc.c b/hw/fdc.c
index d3c8854..97ac51c 100644
--- a/hw/fdc.c
+++ b/hw/fdc.c
@@ -54,7 +54,8 @@ typedef enum fdisk_type_t {
     FDRIVE_DISK_288   = 0x01, /* 2.88 MB disk           */
     FDRIVE_DISK_144   = 0x02, /* 1.44 MB disk           */
     FDRIVE_DISK_720   = 0x03, /* 720 kB disk            */
-    FDRIVE_DISK_NONE  = 0x04, /* No disk                */
+    FDRIVE_DISK_USER  = 0x04, /* User defined geometry  */
+    FDRIVE_DISK_NONE  = 0x05, /* No disk                */
 } fdisk_type_t;
 
 typedef enum fdrive_type_t {
@@ -64,13 +65,21 @@ typedef enum fdrive_type_t {
     FDRIVE_DRV_NONE = 0x03,   /* No drive connected     */
 } fdrive_type_t;
 
+typedef enum fdrive_flags_t {
+    FDRIVE_MOTOR_ON   = 0x01, /* motor on/off           */
+    FDRIVE_REVALIDATE = 0x02, /* Revalidated            */
+} fdrive_flags_t;
+
+typedef enum fdisk_flags_t {
+    FDISK_DBL_SIDES  = 0x01,
+} fdisk_flags_t;
+
 typedef struct fdrive_t {
     BlockDriverState *bs;
     /* Drive status */
     fdrive_type_t drive;
-    uint8_t motor;            /* on/off                 */
+    fdrive_flags_t drflags;
     uint8_t perpendicular;    /* 2.88 MB access mode    */
-    uint8_t rv;               /* Revalidated            */
     /* Position */
     uint8_t head;
     uint8_t track;
@@ -80,8 +89,10 @@ typedef struct fdrive_t {
     uint8_t rw;               /* Read/write             */
     /* Media */
     fdisk_type_t disk;        /* Disk type              */
+    fdisk_flags_t flags;
     uint8_t last_sect;        /* Nb sector per track    */
     uint8_t max_track;        /* Nb of tracks           */
+    uint16_t bps;             /* Bytes per sector       */
     uint8_t ro;               /* Is read-only           */
 } fdrive_t;
 
@@ -93,12 +104,11 @@ static void fd_init (fdrive_t *drv, BlockDriverState *bs)
         drv->drive = FDRIVE_DRV_144;
     else
         drv->drive = FDRIVE_DRV_NONE;
-    drv->motor = 0;
+    drv->drflags = 0;
     drv->perpendicular = 0;
-    drv->rv = 0;
     /* Disk */
     drv->disk = FDRIVE_DISK_NONE;
-    drv->last_sect = 1;
+    drv->last_sect = 0;
     drv->max_track = 0;
 }
 
@@ -118,18 +128,25 @@ static int fd_seek (fdrive_t *drv, uint8_t head, uint8_t track, uint8_t sect,
                     int enable_seek)
 {
     uint32_t sector;
-
-    if (track > drv->max_track) {
-        FLOPPY_ERROR("try to read %d %02x %02x (max=%d %02x %02x)\n",
-                     head, track, sect, 1, drv->max_track, drv->last_sect);
+    int ret;
+
+    if (track > drv->max_track ||
+	(head != 0 && (drv->flags & FDISK_DBL_SIDES) == 0)) {
+        FLOPPY_ERROR("try to read %d %02x %02x (max=%d %d %02x %02x)\n",
+                     head, track, sect, 1,
+		     (drv->flags & FDISK_DBL_SIDES) == 0 ? 0 : 1,
+		     drv->max_track, drv->last_sect);
         return 2;
     }
     if (sect > drv->last_sect) {
-        FLOPPY_ERROR("try to read %d %02x %02x (max=%d %02x %02x)\n",
-                     head, track, sect, 1, drv->max_track, drv->last_sect);
+        FLOPPY_ERROR("try to read %d %02x %02x (max=%d %d %02x %02x)\n",
+                     head, track, sect, 1,
+		     (drv->flags & FDISK_DBL_SIDES) == 0 ? 0 : 1,
+		     drv->max_track, drv->last_sect);
         return 3;
     }
     sector = _fd_sector(head, track, sect, drv->last_sect);
+    ret = 0;
     if (sector != fd_sector(drv)) {
 #if 0
         if (!enable_seek) {
@@ -139,12 +156,13 @@ static int fd_seek (fdrive_t *drv, uint8_t head, uint8_t track, uint8_t sect,
         }
 #endif
         drv->head = head;
+	if (drv->track != track)
+	    ret = 1;
         drv->track = track;
         drv->sect = sect;
-        return 1;
     }
 
-    return 0;
+    return ret;
 }
 
 /* Set drive back to track 0 */
@@ -162,60 +180,275 @@ static void fd_recalibrate (fdrive_t *drv)
 static void fd_revalidate (fdrive_t *drv)
 {
     int64_t nb_sectors;
+    int nb_heads, max_track, last_sect, ro;
 
     FLOPPY_DPRINTF("revalidate\n");
-    drv->rv = 0;
+    drv->drflags &= ~FDRIVE_REVALIDATE;
+
     /* if no drive present, cannot do more */
     if (!drv->bs)
         return;
-        
+
     if (bdrv_is_inserted(drv->bs)) {
+	ro = bdrv_is_read_only(drv->bs);
+	bdrv_get_geometry_hint(drv->bs, &max_track, &nb_heads, &last_sect);
+	if (nb_heads != 0 && max_track != 0 && last_sect != 0) {
+	    drv->disk = FDRIVE_DISK_USER;
+	    printf("User defined disk (%d %d %d)",
+		   nb_heads - 1, max_track, last_sect);
+	    if (nb_heads == 1) {
+		drv->flags &= ~FDISK_DBL_SIDES;
+	    } else {
+		drv->flags |= FDISK_DBL_SIDES;
+	    }
+	    drv->max_track = max_track;
+	    drv->last_sect = last_sect;
+	} else {
         bdrv_get_geometry(drv->bs, &nb_sectors);
-#if 1
-        if (nb_sectors > 2880) 
-#endif
-        {
-            /* Pretend we have a 2.88 MB disk */
+	    switch (nb_sectors) {
+            /* 2.88 MB 3"1/2 drive disks */
+	    case 7680:
+		printf("3.84 Mb 3\"1/2 disk (1 80 48)");
+		drv->drive = FDRIVE_DRV_288;
+		drv->disk = FDRIVE_DISK_288;
+		drv->last_sect = 48;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 7040:
+		printf("3.52 Mb 3\"1/2 disk (1 80 44)");
+		drv->drive = FDRIVE_DRV_288;
+		drv->disk = FDRIVE_DISK_288;
+		drv->last_sect = 44;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 6400:
+		printf("3.2 Mb 3\"1/2 disk (1 80 40)");
+		drv->drive = FDRIVE_DRV_288;
+		drv->disk = FDRIVE_DISK_288;
+		drv->last_sect = 40;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 6240:
+		printf("3.12 Mb 3\"1/2 disk (1 80 39)");
+		drv->drive = FDRIVE_DRV_288;
+		drv->disk = FDRIVE_DISK_288;
+		drv->last_sect = 39;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 5760:
+		printf("2.88 Mb 3\"1/2 disk (1 80 36)");
+		drv->drive = FDRIVE_DRV_288;
             drv->disk = FDRIVE_DISK_288;
             drv->last_sect = 36;
             drv->max_track = 80;
-#if 1
-        } else if (nb_sectors > 1440) {
-            /* Pretend we have a 1.44 MB disk */
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+
+            /* 1.44 MB 3"1/2 drive disks */
+	    case 3840:
+		printf("1.92 Mb 3\"1/2 disk (1 80 24)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_144;
+		drv->last_sect = 24;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 3680:
+		printf("1.84 Mb 3\"1/2 disk (1 80 23)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_144;
+		drv->last_sect = 23;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 3520:
+		printf("1.76 Mb 3\"1/2 disk (1 80 22)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_144;
+		drv->last_sect = 22;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 3486:
+		printf("1.74 Mb 3\"1/2 disk (1 83 21)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_144;
+		drv->last_sect = 21;
+		drv->max_track = 83;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 3444:
+		printf("1.72 Mb 3\"1/2 disk (1 82 21)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_144;
+		drv->last_sect = 21;
+		drv->max_track = 82;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 3360:
+		printf("1.68 Mb 3\"1/2 disk (1 80 21)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_144;
+		drv->last_sect = 21;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 3200:
+		printf("1.6 Mb 3\"1/2 disk (1 80 20)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_144;
+		drv->last_sect = 20;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 2880:
+	    default:
+		printf("1.44 Mb 3\"1/2 disk (1 80 18)");
+		drv->drive = FDRIVE_DRV_144;
             drv->disk = FDRIVE_DISK_144;
             drv->last_sect = 18;
             drv->max_track = 80;
-        } else {
-            /* Pretend we have a 720 kB disk */
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+
+            /* 720 kB 3"1/2 drive disks */
+	    case 2240:
+		printf("1.12 Mb 3\"1/2 disk (1 80 14)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_720;
+		drv->last_sect = 14;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 2080:
+		printf("1.04 Mb 3\"1/2 disk (1 80 13)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_720;
+		drv->last_sect = 13;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 1660:
+		printf("830 kb 3\"1/2 disk (1 83 10)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_720;
+		drv->last_sect = 10;
+		drv->max_track = 83;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 1640:
+		printf("820 kb 3\"1/2 disk (1 82 10)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_720;
+		drv->last_sect = 10;
+		drv->max_track = 82;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 1600:
+		printf("800 kb 3\"1/2 disk (1 80 10)");
+		drv->drive = FDRIVE_DRV_144;
+		drv->disk = FDRIVE_DISK_720;
+		drv->last_sect = 10;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 1440:
+		printf("720 kb 3\"1/2 disk (1 80 9)");
+		drv->drive = FDRIVE_DRV_144;
             drv->disk = FDRIVE_DISK_720;
             drv->last_sect = 9;
             drv->max_track = 80;
-#endif
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+
+	    /* 1.2 MB 5"1/4 drive disks */
+	    case 2988:
+		printf("1.49 Mb 5\"1/4 disk (1 83 18)");
+		drv->drive = FDRIVE_DRV_120;
+		drv->disk = FDRIVE_DISK_144; /* ? */
+		drv->last_sect = 18;
+		drv->max_track = 83;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 2952:
+		printf("1.48 Mb 5\"1/4 disk (1 82 18)");
+		drv->drive = FDRIVE_DRV_120;
+		drv->disk = FDRIVE_DISK_144; /* ? */
+		drv->last_sect = 18;
+		drv->max_track = 82;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+	    case 2400:
+		printf("1.2 Mb 5\"1/4 disk (1 80 15)");
+		drv->drive = FDRIVE_DRV_120;
+		drv->disk = FDRIVE_DISK_144; /* ? */
+		drv->last_sect = 15;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+
+	    case 1760:
+		printf("880 kb 5\"1/4 disk (1 80 11)");
+		drv->drive = FDRIVE_DRV_120;
+		drv->disk = FDRIVE_DISK_144; /* ? */
+		drv->last_sect = 11;
+		drv->max_track = 80;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
+
+	    /* 360 kB 5"1/4 drive disks */
+	    case 840:
+		/* 420 kB 5"1/4 disk */
+		printf("420 kb 5\"1/4 disk (1 42 10)");
+		drv->drive = FDRIVE_DRV_120;
+		drv->disk = FDRIVE_DISK_144; /* ? */
+		drv->last_sect = 10;
+		drv->max_track = 42;
+		drv->flags |= FDISK_DBL_SIDES;
+	    case 820:
+		/* 410 kB 5"1/4 disk */
+		printf("410 kb 5\"1/4 disk (1 41 10)");
+		drv->drive = FDRIVE_DRV_120;
+		drv->disk = FDRIVE_DISK_144; /* ? */
+		drv->last_sect = 10;
+		drv->max_track = 41;
+		drv->flags |= FDISK_DBL_SIDES;
+	    case 720:
+		/* 360 kB 5"1/4 disk */
+		printf("360 kb 5\"1/4 disk (1 40 9)");
+		drv->drive = FDRIVE_DRV_120;
+		drv->disk = FDRIVE_DISK_144; /* ? */
+		drv->last_sect = 9;
+		drv->max_track = 40;
+		drv->flags |= FDISK_DBL_SIDES;
+		break;
         }
-        drv->ro = bdrv_is_read_only(drv->bs);
+	    printf(" %s\n", ro == 0 ? "rw" : "ro");
+	}
+	drv->ro = ro;
     } else {
+	printf("No disk in drive\n");
         drv->disk = FDRIVE_DISK_NONE;
-        drv->last_sect = 1; /* Avoid eventual divide by 0 bugs */
-        drv->ro = 0;
+        drv->last_sect = 0;
+	drv->max_track = 0;
+	drv->flags &= ~FDISK_DBL_SIDES;
     }
-    drv->rv = 1;
-}
-
-static void fd_change_cb (void *opaque)
-{
-    fdrive_t *drv = opaque;
-    fd_revalidate(drv);
+    drv->drflags |= FDRIVE_REVALIDATE;
 }
 
 /* Motor control */
 static void fd_start (fdrive_t *drv)
 {
-    drv->motor = 1;
+    drv->drflags |= FDRIVE_MOTOR_ON;
 }
 
 static void fd_stop (fdrive_t *drv)
 {
-    drv->motor = 0;
+    drv->drflags &= ~FDRIVE_MOTOR_ON;
 }
 
 /* Re-initialise a drives (motor off, repositioned) */
@@ -228,21 +461,21 @@ static void fd_reset (fdrive_t *drv)
 /********************************************************/
 /* Intel 82078 floppy disk controler emulation          */
 
-static void fdctrl_reset (int do_irq);
-static void fdctrl_reset_fifo (void);
+static void fdctrl_reset (fdctrl_t *fdctrl, int do_irq);
+static void fdctrl_reset_fifo (fdctrl_t *fdctrl);
 static int fdctrl_transfer_handler (void *opaque, target_ulong addr, int size);
-static void fdctrl_raise_irq (uint8_t status);
-
-static uint32_t fdctrl_read_statusB (void *opaque, uint32_t reg);
-static uint32_t fdctrl_read_dor (void *opaque, uint32_t reg);
-static void fdctrl_write_dor (void *opaque, uint32_t reg, uint32_t value);
-static uint32_t fdctrl_read_tape (void *opaque, uint32_t reg);
-static void fdctrl_write_tape (void *opaque, uint32_t reg, uint32_t value);
-static uint32_t fdctrl_read_main_status (void *opaque, uint32_t reg);
-static void fdctrl_write_rate (void *opaque, uint32_t reg, uint32_t value);
-static uint32_t fdctrl_read_data (void *opaque, uint32_t reg);
-static void fdctrl_write_data (void *opaque, uint32_t reg, uint32_t value);
-static uint32_t fdctrl_read_dir (void *opaque, uint32_t reg);
+static void fdctrl_raise_irq (fdctrl_t *fdctrl, uint8_t status);
+
+static uint32_t fdctrl_read_statusB (fdctrl_t *fdctrl);
+static uint32_t fdctrl_read_dor (fdctrl_t *fdctrl);
+static void fdctrl_write_dor (fdctrl_t *fdctrl, uint32_t value);
+static uint32_t fdctrl_read_tape (fdctrl_t *fdctrl);
+static void fdctrl_write_tape (fdctrl_t *fdctrl, uint32_t value);
+static uint32_t fdctrl_read_main_status (fdctrl_t *fdctrl);
+static void fdctrl_write_rate (fdctrl_t *fdctrl, uint32_t value);
+static uint32_t fdctrl_read_data (fdctrl_t *fdctrl);
+static void fdctrl_write_data (fdctrl_t *fdctrl, uint32_t value);
+static uint32_t fdctrl_read_dir (fdctrl_t *fdctrl);
 
 enum {
     FD_CTRL_ACTIVE = 0x01,
@@ -267,18 +500,24 @@ enum {
     FD_STATE_STATE  = 0x03,
     FD_STATE_MULTI  = 0x10,
     FD_STATE_SEEK   = 0x20,
+    FD_STATE_FORMAT = 0x40,
 };
 
 #define FD_STATE(state) ((state) & FD_STATE_STATE)
+#define FD_SET_STATE(state, new_state) \
+do { (state) = ((state) & ~FD_STATE_STATE) | (new_state); } while (0)
 #define FD_MULTI_TRACK(state) ((state) & FD_STATE_MULTI)
 #define FD_DID_SEEK(state) ((state) & FD_STATE_SEEK)
+#define FD_FORMAT_CMD(state) ((state) & FD_STATE_FORMAT)
 
-typedef struct fdctrl_t {
+struct fdctrl_t {
+    fdctrl_t *fdctrl;
     /* Controler's identification */
     uint8_t version;
     /* HW */
     int irq_lvl;
     int dma_chann;
+    uint32_t io_base;
     /* Controler state */
     uint8_t state;
     uint8_t dma_en;
@@ -303,35 +542,91 @@ typedef struct fdctrl_t {
     uint8_t pwrd;
     /* Floppy drives */
     fdrive_t drives[2];
-} fdctrl_t;
+};
+
+static uint32_t fdctrl_read (void *opaque, uint32_t reg)
+{
+    fdctrl_t *fdctrl = opaque;
+    uint32_t retval;
+
+    if (reg == fdctrl->io_base + 0x01)
+	retval = fdctrl_read_statusB(fdctrl);
+    else if (reg == fdctrl->io_base + 0x02)
+	retval = fdctrl_read_dor(fdctrl);
+    else if (reg == fdctrl->io_base + 0x03)
+        retval = fdctrl_read_tape(fdctrl);
+    else if (reg == fdctrl->io_base + 0x04)
+        retval = fdctrl_read_main_status(fdctrl);
+    else if (reg == fdctrl->io_base + 0x05)
+        retval = fdctrl_read_data(fdctrl);
+    else if (reg == fdctrl->io_base + 0x07)
+        retval = fdctrl_read_dir(fdctrl);
+    else 
+	retval = (uint32_t)(-1);
+
+    return retval;
+}
+
+static void fdctrl_write (void *opaque, uint32_t reg, uint32_t value)
+{
+    fdctrl_t *fdctrl = opaque;
+
+    if (reg == fdctrl->io_base + 0x02)
+	fdctrl_write_dor(fdctrl, value);
+    else if (reg == fdctrl->io_base + 0x03)
+        fdctrl_write_tape(fdctrl, value);
+    else if (reg == fdctrl->io_base + 0x04)
+        fdctrl_write_rate(fdctrl, value);
+    else if (reg == fdctrl->io_base + 0x05)
+        fdctrl_write_data(fdctrl, value);
+}
+
+static void fd_change_cb (void *opaque)
+{
+    fdrive_t *drv = opaque;
 
-static fdctrl_t fdctrl;
+    FLOPPY_DPRINTF("disk change\n");
+    /* TODO: use command-line parameters to force geometry */
+    fd_revalidate(drv);
+#if 0
+    fd_recalibrate(drv);
+    fdctrl_reset_fifo(drv->fdctrl);
+    fdctrl_raise_irq(drv->fdctrl, 0x20);
+#endif
+}
 
-void fdctrl_init (int irq_lvl, int dma_chann, int mem_mapped, uint32_t base,
-                  BlockDriverState **fds)
+fdctrl_t *fdctrl_init (int irq_lvl, int dma_chann, int mem_mapped, 
+                       uint32_t io_base,
+                       BlockDriverState **fds)
 {
+    fdctrl_t *fdctrl;
 //    int io_mem;
     int i;
 
     FLOPPY_DPRINTF("init controler\n");
-    memset(&fdctrl, 0, sizeof(fdctrl));
-    fdctrl.version = 0x90; /* Intel 82078 controler */
-    fdctrl.irq_lvl = irq_lvl;
-    fdctrl.dma_chann = dma_chann;
-    fdctrl.config = 0x40; /* Implicit seek, polling & FIFO enabled */
-    if (fdctrl.dma_chann != -1) {
-        fdctrl.dma_en = 1;
-        DMA_register_channel(dma_chann, fdctrl_transfer_handler, &fdctrl);
+    fdctrl = qemu_mallocz(sizeof(fdctrl_t));
+    if (!fdctrl)
+        return NULL;
+    fdctrl->version = 0x90; /* Intel 82078 controler */
+    fdctrl->irq_lvl = irq_lvl;
+    fdctrl->dma_chann = dma_chann;
+    fdctrl->io_base = io_base;
+    fdctrl->config = 0x40; /* Implicit seek, polling & FIFO enabled */
+    if (fdctrl->dma_chann != -1) {
+        fdctrl->dma_en = 1;
+        DMA_register_channel(dma_chann, &fdctrl_transfer_handler, fdctrl);
     } else {
-        fdctrl.dma_en = 0;
+        fdctrl->dma_en = 0;
     }
-    for (i = 0; i < MAX_FD; i++) {
-        fd_init(&fdctrl.drives[i], fds[i]);
-        if (fds[i])
-            bdrv_set_change_cb(fds[i], fd_change_cb, &fdctrl.drives[i]);
+    for (i = 0; i < 2; i++) {
+        fd_init(&fdctrl->drives[i], fds[i]);
+        if (fds[i]) {
+            bdrv_set_change_cb(fds[i],
+                               &fd_change_cb, &fdctrl->drives[i]);
+        }
     }
-    fdctrl_reset(0);
-    fdctrl.state = FD_CTRL_ACTIVE;
+    fdctrl_reset(fdctrl, 0);
+    fdctrl->state = FD_CTRL_ACTIVE;
     if (mem_mapped) {
         FLOPPY_ERROR("memory mapped floppy not supported by now !\n");
 #if 0
@@ -339,110 +634,113 @@ void fdctrl_init (int irq_lvl, int dma_chann, int mem_mapped, uint32_t base,
         cpu_register_physical_memory(base, 0x08, io_mem);
 #endif
     } else {
-        register_ioport_read(base + 0x01, 1, 1, fdctrl_read_statusB, NULL);
-        register_ioport_read(base + 0x02, 1, 1, fdctrl_read_dor, NULL);
-        register_ioport_write(base + 0x02, 1, 1, fdctrl_write_dor, NULL);
-        register_ioport_read(base + 0x03, 1, 1, fdctrl_read_tape, NULL);
-        register_ioport_write(base + 0x03, 1, 1, fdctrl_write_tape, NULL);
-        register_ioport_read(base + 0x04, 1, 1, fdctrl_read_main_status, NULL);
-        register_ioport_write(base + 0x04, 1, 1, fdctrl_write_rate, NULL);
-        register_ioport_read(base + 0x05, 1, 1, fdctrl_read_data, NULL);
-        register_ioport_write(base + 0x05, 1, 1, fdctrl_write_data, NULL);
-        register_ioport_read(base + 0x07, 1, 1, fdctrl_read_dir, NULL);
+        register_ioport_read(io_base + 0x01, 5, 1, &fdctrl_read, fdctrl);
+        register_ioport_read(io_base + 0x07, 1, 1, &fdctrl_read, fdctrl);
+        register_ioport_write(io_base + 0x01, 5, 1, &fdctrl_write, fdctrl);
+        register_ioport_write(io_base + 0x07, 1, 1, &fdctrl_write, fdctrl);
     }
-    fdctrl.bootsel = 0;
-    
     for (i = 0; i < MAX_FD; i++) {
-        fd_revalidate(&fdctrl.drives[i]);
+        fd_revalidate(&fdctrl->drives[i]);
     }
+    return fdctrl;
 }
 
-int fdctrl_get_drive_type(int drive_num)
+/* XXX: may change if moved to bdrv */
+int fdctrl_get_drive_type(fdctrl_t *fdctrl, int drive_num)
 {
-    return fdctrl.drives[drive_num].drive;
+    return fdctrl->drives[drive_num].drive;
 }
 
 /* Change IRQ state */
-static void fdctrl_reset_irq (void)
+static void fdctrl_reset_irq (fdctrl_t *fdctrl)
 {
-    if (fdctrl.state & FD_CTRL_INTR) {
-        pic_set_irq(fdctrl.irq_lvl, 0);
-        fdctrl.state &= ~(FD_CTRL_INTR | FD_CTRL_SLEEP | FD_CTRL_BUSY);
+    if (fdctrl->state & FD_CTRL_INTR) {
+        pic_set_irq(fdctrl->irq_lvl, 0);
+        fdctrl->state &= ~(FD_CTRL_INTR | FD_CTRL_SLEEP | FD_CTRL_BUSY);
     }
 }
 
-static void fdctrl_raise_irq (uint8_t status)
+static void fdctrl_raise_irq (fdctrl_t *fdctrl, uint8_t status)
 {
-    if (~(fdctrl.state & FD_CTRL_INTR)) {
-        pic_set_irq(fdctrl.irq_lvl, 1);
-        fdctrl.state |= FD_CTRL_INTR;
+    if (~(fdctrl->state & FD_CTRL_INTR)) {
+        pic_set_irq(fdctrl->irq_lvl, 1);
+        fdctrl->state |= FD_CTRL_INTR;
     }
     FLOPPY_DPRINTF("Set interrupt status to 0x%02x\n", status);
-    fdctrl.int_status = status;
+    fdctrl->int_status = status;
 }
 
 /* Reset controler */
-static void fdctrl_reset (int do_irq)
+static void fdctrl_reset (fdctrl_t *fdctrl, int do_irq)
 {
     int i;
 
     FLOPPY_DPRINTF("reset controler\n");
-    fdctrl_reset_irq();
+    fdctrl_reset_irq(fdctrl);
     /* Initialise controler */
-    fdctrl.cur_drv = 0;
+    fdctrl->cur_drv = 0;
     /* FIFO state */
-    fdctrl.data_pos = 0;
-    fdctrl.data_len = 0;
-    fdctrl.data_state = FD_STATE_CMD;
-    fdctrl.data_dir = FD_DIR_WRITE;
+    fdctrl->data_pos = 0;
+    fdctrl->data_len = 0;
+    fdctrl->data_state = FD_STATE_CMD;
+    fdctrl->data_dir = FD_DIR_WRITE;
     for (i = 0; i < MAX_FD; i++)
-        fd_reset(&fdctrl.drives[i]);
-    fdctrl_reset_fifo();
+        fd_reset(&fdctrl->drives[i]);
+    fdctrl_reset_fifo(fdctrl);
     if (do_irq)
-        fdctrl_raise_irq(0x20);
+        fdctrl_raise_irq(fdctrl, 0x20);
+}
+
+static inline fdrive_t *drv0 (fdctrl_t *fdctrl)
+{
+    return &fdctrl->drives[fdctrl->bootsel];
+}
+
+static inline fdrive_t *drv1 (fdctrl_t *fdctrl)
+{
+    return &fdctrl->drives[1 - fdctrl->bootsel];
+}
+
+static fdrive_t *get_cur_drv (fdctrl_t *fdctrl)
+{
+    return fdctrl->cur_drv == 0 ? drv0(fdctrl) : drv1(fdctrl);
 }
 
 /* Status B register : 0x01 (read-only) */
-static uint32_t fdctrl_read_statusB (void *opaque, uint32_t reg)
+static uint32_t fdctrl_read_statusB (fdctrl_t *fdctrl)
 {
-    fdctrl_reset_irq();
+    fdctrl_reset_irq(fdctrl);
     FLOPPY_DPRINTF("status register: 0x00\n");
 
     return 0;
 }
 
 /* Digital output register : 0x02 */
-static uint32_t fdctrl_read_dor (void *opaque, uint32_t reg)
+static uint32_t fdctrl_read_dor (fdctrl_t *fdctrl)
 {
-    fdrive_t *cur_drv, *drv0, *drv1;
     uint32_t retval = 0;
 
-    drv0 = &fdctrl.drives[fdctrl.bootsel];
-    drv1 = &fdctrl.drives[1 - fdctrl.bootsel];
-    cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
     /* Drive motors state indicators */
-    retval |= drv1->motor << 5;
-    retval |= drv0->motor << 4;
+    if (drv0(fdctrl)->drflags & FDRIVE_MOTOR_ON)
+	retval |= 1 << 5;
+    if (drv1(fdctrl)->drflags & FDRIVE_MOTOR_ON)
+	retval |= 1 << 4;
     /* DMA enable */
-    retval |= fdctrl.dma_en << 3;
+    retval |= fdctrl->dma_en << 3;
     /* Reset indicator */
-    retval |= (fdctrl.state & FD_CTRL_RESET) == 0 ? 0x04 : 0;
+    retval |= (fdctrl->state & FD_CTRL_RESET) == 0 ? 0x04 : 0;
     /* Selected drive */
-    retval |= fdctrl.cur_drv;
+    retval |= fdctrl->cur_drv;
     FLOPPY_DPRINTF("digital output register: 0x%02x\n", retval);
 
     return retval;
 }
 
-static void fdctrl_write_dor (void *opaque, uint32_t reg, uint32_t value)
+static void fdctrl_write_dor (fdctrl_t *fdctrl, uint32_t value)
 {
-    fdrive_t *drv0, *drv1;
-    
-    fdctrl_reset_irq();
-    drv0 = &fdctrl.drives[fdctrl.bootsel];
-    drv1 = &fdctrl.drives[1 - fdctrl.bootsel];
+    fdctrl_reset_irq(fdctrl);
     /* Reset mode */
-    if (fdctrl.state & FD_CTRL_RESET) {
+    if (fdctrl->state & FD_CTRL_RESET) {
         if (!(value & 0x04)) {
             FLOPPY_DPRINTF("Floppy controler in RESET state !\n");
             return;
@@ -451,81 +749,81 @@ static void fdctrl_write_dor (void *opaque, uint32_t reg, uint32_t value)
     FLOPPY_DPRINTF("digital output register set to 0x%02x\n", value);
     /* Drive motors state indicators */
     if (value & 0x20)
-        fd_start(drv1);
+        fd_start(drv1(fdctrl));
     else
-        fd_stop(drv1);
+        fd_stop(drv1(fdctrl));
     if (value & 0x10)
-        fd_start(drv0);
+        fd_start(drv0(fdctrl));
     else
-        fd_stop(drv0);
+        fd_stop(drv0(fdctrl));
     /* DMA enable */
 #if 0
-    if (fdctrl.dma_chann != -1)
-        fdctrl.dma_en = 1 - ((value >> 3) & 1);
+    if (fdctrl->dma_chann != -1)
+        fdctrl->dma_en = 1 - ((value >> 3) & 1);
 #endif
     /* Reset */
     if (!(value & 0x04)) {
-        if (!(fdctrl.state & FD_CTRL_RESET)) {
+        if (!(fdctrl->state & FD_CTRL_RESET)) {
             FLOPPY_DPRINTF("controler enter RESET state\n");
-            fdctrl.state |= FD_CTRL_RESET;
-            fdctrl_reset(1);
+            fdctrl->state |= FD_CTRL_RESET;
+            fdctrl_reset(fdctrl, 1);
         }
     } else {
-        if (fdctrl.state & FD_CTRL_RESET) {
+        if (fdctrl->state & FD_CTRL_RESET) {
             FLOPPY_DPRINTF("controler out of RESET state\n");
-            fdctrl.state &= ~(FD_CTRL_RESET | FD_CTRL_SLEEP);
+            fdctrl->state &= ~(FD_CTRL_RESET | FD_CTRL_SLEEP);
         }
     }
     /* Selected drive */
-    fdctrl.cur_drv = value & 1;
+    fdctrl->cur_drv = value & 1;
 }
 
 /* Tape drive register : 0x03 */
-static uint32_t fdctrl_read_tape (void *opaque, uint32_t reg)
+static uint32_t fdctrl_read_tape (fdctrl_t *fdctrl)
 {
     uint32_t retval = 0;
 
-    fdctrl_reset_irq();
+    fdctrl_reset_irq(fdctrl);
     /* Disk boot selection indicator */
-    retval |= fdctrl.bootsel << 2;
+    retval |= fdctrl->bootsel << 2;
     /* Tape indicators: never allowed */
     FLOPPY_DPRINTF("tape drive register: 0x%02x\n", retval);
 
     return retval;
 }
 
-static void fdctrl_write_tape (void *opaque, uint32_t reg, uint32_t value)
+static void fdctrl_write_tape (fdctrl_t *fdctrl, uint32_t value)
 {
-    fdctrl_reset_irq();
+    fdctrl_reset_irq(fdctrl);
     /* Reset mode */
-    if (fdctrl.state & FD_CTRL_RESET) {
+    if (fdctrl->state & FD_CTRL_RESET) {
         FLOPPY_DPRINTF("Floppy controler in RESET state !\n");
         return;
     }
     FLOPPY_DPRINTF("tape drive register set to 0x%02x\n", value);
     /* Disk boot selection indicator */
-    fdctrl.bootsel = (value >> 2) & 1;
+    fdctrl->bootsel = (value >> 2) & 1;
     /* Tape indicators: never allow */
 }
 
 /* Main status register : 0x04 (read) */
-static uint32_t fdctrl_read_main_status (void *opaque, uint32_t reg)
+static uint32_t fdctrl_read_main_status (fdctrl_t *fdctrl)
 {
     uint32_t retval = 0;
 
-    fdctrl_reset_irq();
-    fdctrl.state &= ~(FD_CTRL_SLEEP | FD_CTRL_RESET);
-    if (!(fdctrl.state & FD_CTRL_BUSY)) {
+    fdctrl_reset_irq(fdctrl);
+    fdctrl->state &= ~(FD_CTRL_SLEEP | FD_CTRL_RESET);
+    if (!(fdctrl->state & FD_CTRL_BUSY)) {
         /* Data transfer allowed */
         retval |= 0x80;
         /* Data transfer direction indicator */
-        if (fdctrl.data_dir == FD_DIR_READ)
+        if (fdctrl->data_dir == FD_DIR_READ)
             retval |= 0x40;
     }
     /* Should handle 0x20 for SPECIFY command */
     /* Command busy indicator */
-    if (FD_STATE(fdctrl.data_state) == FD_STATE_DATA ||
-        FD_STATE(fdctrl.data_state) == FD_STATE_STATUS)
+    if (FD_STATE(fdctrl->data_state) == FD_STATE_DATA ||
+        FD_STATE(fdctrl->data_state) == FD_STATE_STATUS)
         retval |= 0x10;
     FLOPPY_DPRINTF("main status register: 0x%02x\n", retval);
 
@@ -533,150 +831,142 @@ static uint32_t fdctrl_read_main_status (void *opaque, uint32_t reg)
 }
 
 /* Data select rate register : 0x04 (write) */
-static void fdctrl_write_rate (void *opaque, uint32_t reg, uint32_t value)
+static void fdctrl_write_rate (fdctrl_t *fdctrl, uint32_t value)
 {
-    fdctrl_reset_irq();
+    fdctrl_reset_irq(fdctrl);
     /* Reset mode */
-    if (fdctrl.state & FD_CTRL_RESET) {
-        if (reg != 0x2 || !(value & 0x04)) {
+    if (fdctrl->state & FD_CTRL_RESET) {
             FLOPPY_DPRINTF("Floppy controler in RESET state !\n");
             return;
         }
-    }
     FLOPPY_DPRINTF("select rate register set to 0x%02x\n", value);
     /* Reset: autoclear */
     if (value & 0x80) {
-        fdctrl.state |= FD_CTRL_RESET;
-        fdctrl_reset(1);
-        fdctrl.state &= ~FD_CTRL_RESET;
+        fdctrl->state |= FD_CTRL_RESET;
+        fdctrl_reset(fdctrl, 1);
+        fdctrl->state &= ~FD_CTRL_RESET;
     }
     if (value & 0x40) {
-        fdctrl.state |= FD_CTRL_SLEEP;
-        fdctrl_reset(1);
+        fdctrl->state |= FD_CTRL_SLEEP;
+        fdctrl_reset(fdctrl, 1);
     }
 //        fdctrl.precomp = (value >> 2) & 0x07;
 }
 
 /* Digital input register : 0x07 (read-only) */
-static uint32_t fdctrl_read_dir (void *opaque, uint32_t reg)
+static uint32_t fdctrl_read_dir (fdctrl_t *fdctrl)
 {
-    fdrive_t *drv0, *drv1;
     uint32_t retval = 0;
 
-    fdctrl_reset_irq();
-    drv0 = &fdctrl.drives[fdctrl.bootsel];
-    drv1 = &fdctrl.drives[1 - fdctrl.bootsel];
-    if (drv0->rv || drv1->rv)
+    fdctrl_reset_irq(fdctrl);
+    if (drv0(fdctrl)->drflags & FDRIVE_REVALIDATE ||
+	drv1(fdctrl)->drflags & FDRIVE_REVALIDATE)
         retval |= 0x80;
     if (retval != 0)
-        FLOPPY_ERROR("Floppy digital input register: 0x%02x\n", retval);
-    drv0->rv = 0;
-    drv1->rv = 0;
+        FLOPPY_DPRINTF("Floppy digital input register: 0x%02x\n", retval);
+    drv0(fdctrl)->drflags &= ~FDRIVE_REVALIDATE;
+    drv1(fdctrl)->drflags &= ~FDRIVE_REVALIDATE;
 
     return retval;
 }
 
 /* FIFO state control */
-static void fdctrl_reset_fifo (void)
+static void fdctrl_reset_fifo (fdctrl_t *fdctrl)
 {
-    fdctrl.data_dir = FD_DIR_WRITE;
-    fdctrl.data_pos = 0;
-    fdctrl.data_state = FD_STATE_CMD;
+    fdctrl->data_dir = FD_DIR_WRITE;
+    fdctrl->data_pos = 0;
+    FD_SET_STATE(fdctrl->data_state, FD_STATE_CMD);
 }
 
 /* Set FIFO status for the host to read */
-static void fdctrl_set_fifo (int fifo_len, int do_irq)
+static void fdctrl_set_fifo (fdctrl_t *fdctrl, int fifo_len, int do_irq)
 {
-    fdctrl.data_dir = FD_DIR_READ;
-    fdctrl.data_len = fifo_len;
-    fdctrl.data_pos = 0;
-    fdctrl.data_state = FD_STATE_STATUS;
+    fdctrl->data_dir = FD_DIR_READ;
+    fdctrl->data_len = fifo_len;
+    fdctrl->data_pos = 0;
+    FD_SET_STATE(fdctrl->data_state, FD_STATE_STATUS);
     if (do_irq)
-        fdctrl_raise_irq(0x00);
+        fdctrl_raise_irq(fdctrl, 0x00);
 }
 
 /* Set an error: unimplemented/unknown command */
-static void fdctrl_unimplemented (void)
+static void fdctrl_unimplemented (fdctrl_t *fdctrl)
 {
 #if 0
-    fdrive_t *cur_drv, *drv0, *drv1;
-
-    drv0 = &fdctrl.drives[fdctrl.bootsel];
-    drv1 = &fdctrl.drives[1 - fdctrl.bootsel];
-    cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
-    fdctrl.fifo[0] = 0x60 | (cur_drv->head << 1) | fdctrl.cur_drv;
-    fdctrl.fifo[1] = 0x00;
-    fdctrl.fifo[2] = 0x00;
-    fdctrl_set_fifo(3, 1);
+    fdrive_t *cur_drv;
+
+    cur_drv = get_cur_drv(fdctrl);
+    fdctrl->fifo[0] = 0x60 | (cur_drv->head << 1) | fdctrl->cur_drv;
+    fdctrl->fifo[1] = 0x00;
+    fdctrl->fifo[2] = 0x00;
+    fdctrl_set_fifo(fdctrl, 3, 1);
 #else
-    fdctrl_reset_fifo();
+    //    fdctrl_reset_fifo(fdctrl);
+    fdctrl->fifo[0] = 0x80;
+    fdctrl_set_fifo(fdctrl, 1, 0);
 #endif
 }
 
 /* Callback for transfer end (stop or abort) */
-static void fdctrl_stop_transfer (uint8_t status0, uint8_t status1,
-                                  uint8_t status2)
+static void fdctrl_stop_transfer (fdctrl_t *fdctrl, uint8_t status0,
+				  uint8_t status1, uint8_t status2)
 {
-    fdrive_t *cur_drv, *drv0, *drv1;
+    fdrive_t *cur_drv;
 
-    drv0 = &fdctrl.drives[fdctrl.bootsel];
-    drv1 = &fdctrl.drives[1 - fdctrl.bootsel];
-    cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
+    cur_drv = get_cur_drv(fdctrl);
     FLOPPY_DPRINTF("transfer status: %02x %02x %02x (%02x)\n",
                    status0, status1, status2,
-                   status0 | (cur_drv->head << 1) | fdctrl.cur_drv);
-    fdctrl.fifo[0] = status0 | (cur_drv->head << 1) | fdctrl.cur_drv;
-    fdctrl.fifo[1] = status1;
-    fdctrl.fifo[2] = status2;
-    fdctrl.fifo[3] = cur_drv->track;
-    fdctrl.fifo[4] = cur_drv->head;
-    fdctrl.fifo[5] = cur_drv->sect;
-    fdctrl.fifo[6] = FD_SECTOR_SC;
-    fdctrl.data_dir = FD_DIR_READ;
-    if (fdctrl.state & FD_CTRL_BUSY)
-        DMA_release_DREQ(fdctrl.dma_chann);
-    fdctrl_set_fifo(7, 1);
+                   status0 | (cur_drv->head << 1) | fdctrl->cur_drv);
+    fdctrl->fifo[0] = status0 | (cur_drv->head << 1) | fdctrl->cur_drv;
+    fdctrl->fifo[1] = status1;
+    fdctrl->fifo[2] = status2;
+    fdctrl->fifo[3] = cur_drv->track;
+    fdctrl->fifo[4] = cur_drv->head;
+    fdctrl->fifo[5] = cur_drv->sect;
+    fdctrl->fifo[6] = FD_SECTOR_SC;
+    fdctrl->data_dir = FD_DIR_READ;
+    if (fdctrl->state & FD_CTRL_BUSY)
+        DMA_release_DREQ(fdctrl->dma_chann);
+    fdctrl_set_fifo(fdctrl, 7, 1);
 }
 
 /* Prepare a data transfer (either DMA or FIFO) */
-static void fdctrl_start_transfer (int direction)
+static void fdctrl_start_transfer (fdctrl_t *fdctrl, int direction)
 {
-    fdrive_t *cur_drv, *drv0, *drv1;
+    fdrive_t *cur_drv;
     uint8_t kh, kt, ks;
     int did_seek;
 
-    drv0 = &fdctrl.drives[fdctrl.bootsel];
-    drv1 = &fdctrl.drives[1 - fdctrl.bootsel];
-    fdctrl.cur_drv = fdctrl.fifo[1] & 1;
-    cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
-    kt = fdctrl.fifo[2];
-    kh = fdctrl.fifo[3];
-    ks = fdctrl.fifo[4];
+    fdctrl->cur_drv = fdctrl->fifo[1] & 1;
+    cur_drv = get_cur_drv(fdctrl);
+    kt = fdctrl->fifo[2];
+    kh = fdctrl->fifo[3];
+    ks = fdctrl->fifo[4];
     FLOPPY_DPRINTF("Start tranfert at %d %d %02x %02x (%d)\n",
-                   fdctrl.cur_drv, kh, kt, ks,
+                   fdctrl->cur_drv, kh, kt, ks,
                    _fd_sector(kh, kt, ks, cur_drv->last_sect));
     did_seek = 0;
-    switch (fd_seek(cur_drv, kh, kt, ks, fdctrl.config & 0x40)) {
+    switch (fd_seek(cur_drv, kh, kt, ks, fdctrl->config & 0x40)) {
     case 2:
         /* sect too big */
-        fdctrl_stop_transfer(0x40, 0x00, 0x00);
-        fdctrl.fifo[3] = kt;
-        fdctrl.fifo[4] = kh;
-        fdctrl.fifo[5] = ks;
+        fdctrl_stop_transfer(fdctrl, 0x40, 0x00, 0x00);
+        fdctrl->fifo[3] = kt;
+        fdctrl->fifo[4] = kh;
+        fdctrl->fifo[5] = ks;
         return;
     case 3:
         /* track too big */
-        fdctrl_stop_transfer(0x40, 0x80, 0x00);
-        fdctrl.fifo[3] = kt;
-        fdctrl.fifo[4] = kh;
-        fdctrl.fifo[5] = ks;
+        fdctrl_stop_transfer(fdctrl, 0x40, 0x80, 0x00);
+        fdctrl->fifo[3] = kt;
+        fdctrl->fifo[4] = kh;
+        fdctrl->fifo[5] = ks;
         return;
     case 4:
         /* No seek enabled */
-        fdctrl_stop_transfer(0x40, 0x00, 0x00);
-        fdctrl.fifo[3] = kt;
-        fdctrl.fifo[4] = kh;
-        fdctrl.fifo[5] = ks;
+        fdctrl_stop_transfer(fdctrl, 0x40, 0x00, 0x00);
+        fdctrl->fifo[3] = kt;
+        fdctrl->fifo[4] = kh;
+        fdctrl->fifo[5] = ks;
         return;
     case 1:
         did_seek = 1;
@@ -685,299 +975,379 @@ static void fdctrl_start_transfer (int direction)
         break;
     }
     /* Set the FIFO state */
-    fdctrl.data_dir = direction;
-    fdctrl.data_pos = 0;
-    fdctrl.data_state = FD_STATE_DATA; /* FIFO ready for data */
-    if (fdctrl.fifo[0] & 0x80)
-        fdctrl.data_state |= FD_STATE_MULTI;
+    fdctrl->data_dir = direction;
+    fdctrl->data_pos = 0;
+    FD_SET_STATE(fdctrl->data_state, FD_STATE_DATA); /* FIFO ready for data */
+    if (fdctrl->fifo[0] & 0x80)
+        fdctrl->data_state |= FD_STATE_MULTI;
+    else
+        fdctrl->data_state &= ~FD_STATE_MULTI;
     if (did_seek)
-        fdctrl.data_state |= FD_STATE_SEEK;
-    if (fdctrl.dma_en) {
+        fdctrl->data_state |= FD_STATE_SEEK;
+    else
+        fdctrl->data_state &= ~FD_STATE_SEEK;
+    if (fdctrl->fifo[5] == 00) {
+        fdctrl->data_len = fdctrl->fifo[8];
+    } else {
+	int tmp;
+        fdctrl->data_len = 128 << fdctrl->fifo[5];
+        tmp = (cur_drv->last_sect - ks + 1);
+        if (fdctrl->fifo[0] & 0x80)
+            tmp += cur_drv->last_sect;
+	fdctrl->data_len *= tmp;
+    }
+    if (fdctrl->dma_en) {
         int dma_mode;
         /* DMA transfer are enabled. Check if DMA channel is well programmed */
-        dma_mode = DMA_get_channel_mode(fdctrl.dma_chann);
+        dma_mode = DMA_get_channel_mode(fdctrl->dma_chann);
         dma_mode = (dma_mode >> 2) & 3;
-        FLOPPY_DPRINTF("dma_mode=%d direction=%d (%d)\n", dma_mode, direction,
-                       (128 << fdctrl.fifo[5]) *
-                       (cur_drv->last_sect - ks + 1));
+        FLOPPY_DPRINTF("dma_mode=%d direction=%d (%d - %d)\n",
+		       dma_mode, direction,
+                       (128 << fdctrl->fifo[5]) *
+		       (cur_drv->last_sect - ks + 1), fdctrl->data_len);
         if (((direction == FD_DIR_SCANE || direction == FD_DIR_SCANL ||
               direction == FD_DIR_SCANH) && dma_mode == 0) ||
             (direction == FD_DIR_WRITE && dma_mode == 2) ||
             (direction == FD_DIR_READ && dma_mode == 1)) {
             /* No access is allowed until DMA transfer has completed */
-            fdctrl.state |= FD_CTRL_BUSY;
+            fdctrl->state |= FD_CTRL_BUSY;
             /* Now, we just have to wait for the DMA controler to
              * recall us...
              */
-            DMA_hold_DREQ(fdctrl.dma_chann);
-            DMA_schedule(fdctrl.dma_chann);
+            DMA_hold_DREQ(fdctrl->dma_chann);
+            DMA_schedule(fdctrl->dma_chann);
             return;
+        } else {
+	    FLOPPY_ERROR("dma_mode=%d direction=%d\n", dma_mode, direction);
         }
     }
     FLOPPY_DPRINTF("start non-DMA transfer\n");
     /* IO based transfer: calculate len */
-    if (fdctrl.fifo[5] == 00) {
-        fdctrl.data_len = fdctrl.fifo[8];
-    } else {
-        fdctrl.data_len = 128 << fdctrl.fifo[5];
-        fdctrl.data_len *= (cur_drv->last_sect - ks + 1);
-        if (fdctrl.fifo[0] & 0x80)
-            fdctrl.data_len *= 2;
-    }
-    fdctrl_raise_irq(0x00);
+    fdctrl_raise_irq(fdctrl, 0x00);
 
     return;
 }
 
 /* Prepare a transfer of deleted data */
-static void fdctrl_start_transfer_del (int direction)
+static void fdctrl_start_transfer_del (fdctrl_t *fdctrl, int direction)
 {
     /* We don't handle deleted data,
      * so we don't return *ANYTHING*
      */
-    fdctrl_stop_transfer(0x60, 0x00, 0x00);
+    fdctrl_stop_transfer(fdctrl, 0x60, 0x00, 0x00);
 }
 
 /* handlers for DMA transfers */
-/* XXX: the partial transfer logic seems to be broken */
 static int fdctrl_transfer_handler (void *opaque, target_ulong addr, int size)
 {
-    fdrive_t *cur_drv, *drv0, *drv1;
-    int len;
+    fdctrl_t *fdctrl;
+    fdrive_t *cur_drv;
+    int len, start_pos, rel_pos;
     uint8_t status0 = 0x00, status1 = 0x00, status2 = 0x00;
-    uint8_t tmpbuf[FD_SECTOR_LEN];
 
-    fdctrl_reset_irq();
-    if (!(fdctrl.state & FD_CTRL_BUSY)) {
+    fdctrl = opaque;
+    fdctrl_reset_irq(fdctrl);
+    if (!(fdctrl->state & FD_CTRL_BUSY)) {
         FLOPPY_DPRINTF("Not in DMA transfer mode !\n");
         return 0;
     }
-    drv0 = &fdctrl.drives[fdctrl.bootsel];
-    drv1 = &fdctrl.drives[1 - fdctrl.bootsel];
-    cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
-    if (fdctrl.data_dir == FD_DIR_SCANE || fdctrl.data_dir == FD_DIR_SCANL ||
-        fdctrl.data_dir == FD_DIR_SCANH)
+    cur_drv = get_cur_drv(fdctrl);
+    if (fdctrl->data_dir == FD_DIR_SCANE || fdctrl->data_dir == FD_DIR_SCANL ||
+        fdctrl->data_dir == FD_DIR_SCANH)
         status2 = 0x04;
-    for (fdctrl.data_len = size; fdctrl.data_pos < fdctrl.data_len;
-         fdctrl.data_pos += len) {
-        len = size - fdctrl.data_pos;
-        if (len > FD_SECTOR_LEN)
-            len = FD_SECTOR_LEN;
-        FLOPPY_DPRINTF("copy %d bytes (%d %d %d) %d pos %d %02x %02x "
-                       "(%d-0x%08x)\n", len, size, fdctrl.data_pos,
-                       fdctrl.data_len, fdctrl.cur_drv, cur_drv->head,
-                       cur_drv->track, cur_drv->sect, fd_sector(cur_drv),
-                       fd_sector(cur_drv) * 512);
-        if (fdctrl.data_dir != FD_DIR_WRITE) {
-            /* READ & SCAN commands */
+    if (size > fdctrl->data_len)
+	size = fdctrl->data_len;
             if (cur_drv->bs == NULL) {
-                fdctrl_stop_transfer(0x40, 0x00, 0x00);
+	if (fdctrl->data_dir == FD_DIR_WRITE)
+	    fdctrl_stop_transfer(fdctrl, 0x60, 0x00, 0x00);
+	else
+	    fdctrl_stop_transfer(fdctrl, 0x40, 0x00, 0x00);
+	len = 0;
                 goto transfer_error;
             }
-            if (bdrv_read(cur_drv->bs, fd_sector(cur_drv), tmpbuf, 1) < 0) {
+    rel_pos = fdctrl->data_pos % FD_SECTOR_LEN;
+    for (start_pos = fdctrl->data_pos; fdctrl->data_pos < size;) {
+        len = size - fdctrl->data_pos;
+        if (len + rel_pos > FD_SECTOR_LEN)
+            len = FD_SECTOR_LEN - rel_pos;
+        FLOPPY_DPRINTF("copy %d bytes (%d %d %d) %d pos %d %02x %02x "
+                       "(%d-0x%08x 0x%08x)\n", len, size, fdctrl->data_pos,
+                       fdctrl->data_len, fdctrl->cur_drv, cur_drv->head,
+                       cur_drv->track, cur_drv->sect, fd_sector(cur_drv),
+                       fd_sector(cur_drv) * 512, addr);
+        if (fdctrl->data_dir != FD_DIR_WRITE ||
+	    len < FD_SECTOR_LEN || rel_pos != 0) {
+            /* READ & SCAN commands and realign to a sector for WRITE */
+            if (bdrv_read(cur_drv->bs, fd_sector(cur_drv),
+			  fdctrl->fifo, 1) < 0) {
                 FLOPPY_DPRINTF("Floppy: error getting sector %d\n",
                                fd_sector(cur_drv));
                 /* Sure, image size is too small... */
-                memset(tmpbuf, 0, FD_SECTOR_LEN);
+                memset(fdctrl->fifo, 0, FD_SECTOR_LEN);
             }
-            if (fdctrl.data_dir == FD_DIR_READ) {
-                cpu_physical_memory_write(addr + fdctrl.data_pos,
-                                          tmpbuf, len);
-                if (len < FD_SECTOR_LEN) {
-                    memcpy(&fdctrl.fifo[0], tmpbuf + len, FD_SECTOR_LEN - len);
-                    memset(&fdctrl.fifo[FD_SECTOR_LEN - len], 0, len);
                 }
-            } else {
-                int ret;
-                /* XXX: what to do if not enough data ? */
-                cpu_physical_memory_read(addr + fdctrl.data_pos, 
-                                         fdctrl.fifo, len); 
-                if (len < FD_SECTOR_LEN) {
-                    memset(&fdctrl.fifo[len], 0, FD_SECTOR_LEN - len);
+	switch (fdctrl->data_dir) {
+	case FD_DIR_READ:
+	    /* READ commands */
+	    cpu_physical_memory_write(addr + fdctrl->data_pos,
+				      fdctrl->fifo + rel_pos, len);
+	    break;
+	case FD_DIR_WRITE:
+            /* WRITE commands */
+            cpu_physical_memory_read(addr + fdctrl->data_pos,
+				     fdctrl->fifo + rel_pos, len);
+            if (bdrv_write(cur_drv->bs, fd_sector(cur_drv),
+			   fdctrl->fifo, 1) < 0) {
+                FLOPPY_ERROR("writting sector %d\n", fd_sector(cur_drv));
+                fdctrl_stop_transfer(fdctrl, 0x60, 0x00, 0x00);
+                goto transfer_error;
                 }
-                ret = memcmp(tmpbuf, fdctrl.fifo, FD_SECTOR_LEN);
+	    break;
+	default:
+	    /* SCAN commands */
+            {
+		uint8_t tmpbuf[FD_SECTOR_LEN];
+                int ret;
+                cpu_physical_memory_read(addr + fdctrl->data_pos,
+                                         tmpbuf, len);
+                ret = memcmp(tmpbuf, fdctrl->fifo + rel_pos, len);
                 if (ret == 0) {
                     status2 = 0x08;
                     goto end_transfer;
                 }
-                if ((ret < 0 && fdctrl.data_dir == FD_DIR_SCANL) ||
-                    (ret > 0 && fdctrl.data_dir == FD_DIR_SCANH)) {
+                if ((ret < 0 && fdctrl->data_dir == FD_DIR_SCANL) ||
+                    (ret > 0 && fdctrl->data_dir == FD_DIR_SCANH)) {
                     status2 = 0x00;
                     goto end_transfer;
                 }
             }
-        } else {
-            /* WRITE commands */
-            cpu_physical_memory_read(addr + fdctrl.data_pos, tmpbuf, len);
-            if (len < FD_SECTOR_LEN) {
-                memset(tmpbuf + len, 0, FD_SECTOR_LEN - len);
-            }
-            if (cur_drv->bs == NULL ||
-                bdrv_write(cur_drv->bs, fd_sector(cur_drv), tmpbuf, 1) < 0) {
-                FLOPPY_ERROR("writting sector %d\n", fd_sector(cur_drv));
-                fdctrl_stop_transfer(0x60, 0x00, 0x00);
-                goto transfer_error;
-            }
+	    break;
         }
-        if (len == FD_SECTOR_LEN) {
+	fdctrl->data_pos += len;
+	rel_pos = fdctrl->data_pos % FD_SECTOR_LEN;
+        if (rel_pos == 0) {
             /* Seek to next sector */
-            if (cur_drv->sect == cur_drv->last_sect) {
-                if (cur_drv->head == 0) {
+	    cur_drv->sect++;
+	    FLOPPY_DPRINTF("seek to next sector (%d %02x %02x => %d) (%d)\n",
+			   cur_drv->head, cur_drv->track, cur_drv->sect,
+			   fd_sector(cur_drv),
+			   fdctrl->data_pos - size);
+            if (cur_drv->sect > cur_drv->last_sect) {
+		cur_drv->sect = 1;
+		if (FD_MULTI_TRACK(fdctrl->data_state)) {
+		    if (cur_drv->head == 0 &&
+			(cur_drv->flags & FDISK_DBL_SIDES) != 0) {	
                     cur_drv->head = 1;
                 } else {
-                    cur_drv->track++;
                     cur_drv->head = 0;
-                }
-                cur_drv->sect = 1;
-                FLOPPY_DPRINTF("seek to next sector (%d %02x %02x => %d)\n",
-                               cur_drv->head, cur_drv->track, cur_drv->sect,
-                               fd_sector(cur_drv));
-                if (cur_drv->head == 0) {
-                    FLOPPY_DPRINTF("end transfer\n");
-                    goto end_transfer;
-                }
-                if (!FD_MULTI_TRACK(fdctrl.data_state)) {
-                    /* Single track read */
-                    FLOPPY_DPRINTF("single track transfert: end transfer\n");
-//                    status1 |= 0x80;
-                    goto end_transfer;
+			cur_drv->track++;
+			if ((cur_drv->flags & FDISK_DBL_SIDES) == 0)
+			    break;
                 }
             } else {
-                cur_drv->sect++;
-                FLOPPY_DPRINTF("seek to next sector (%d %02x %02x => %d)\n",
-                               cur_drv->head, cur_drv->track, cur_drv->sect,
-                               fd_sector(cur_drv));
+		    cur_drv->track++;
+		    break;
+		}
+		FLOPPY_DPRINTF("seek to next track (%d %02x %02x => %d)\n",
+			       cur_drv->head, cur_drv->track,
+			       cur_drv->sect, fd_sector(cur_drv));
             }
         }
     }
 end_transfer:
-    if (fdctrl.data_dir == FD_DIR_SCANE ||
-        fdctrl.data_dir == FD_DIR_SCANL ||
-        fdctrl.data_dir == FD_DIR_SCANH)
+    len = fdctrl->data_pos - start_pos;
+    FLOPPY_DPRINTF("end transfer %d %d %d\n",
+		   fdctrl->data_pos, len, fdctrl->data_len);
+    if (fdctrl->data_dir == FD_DIR_SCANE ||
+        fdctrl->data_dir == FD_DIR_SCANL ||
+        fdctrl->data_dir == FD_DIR_SCANH)
         status2 = 0x08;
-    if (FD_DID_SEEK(fdctrl.data_state))
+    if (FD_DID_SEEK(fdctrl->data_state))
         status0 |= 0x20;
-    fdctrl_stop_transfer(status0, status1, status2);
+    fdctrl->data_len -= len;
+    //    if (fdctrl->data_len == 0)
+	fdctrl_stop_transfer(fdctrl, status0, status1, status2);
 transfer_error:
 
-    return fdctrl.data_pos;
+    return len;
 }
 
 /* Data register : 0x05 */
-static uint32_t fdctrl_read_data (void *opaque, uint32_t reg)
+static uint32_t fdctrl_read_data (fdctrl_t *fdctrl)
 {
-    fdrive_t *cur_drv, *drv0, *drv1;
+    fdrive_t *cur_drv;
     uint32_t retval = 0;
     int pos, len;
 
-    fdctrl_reset_irq();
-    drv0 = &fdctrl.drives[fdctrl.bootsel];
-    drv1 = &fdctrl.drives[1 - fdctrl.bootsel];
-    cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
-    fdctrl.state &= ~FD_CTRL_SLEEP;
-    if (FD_STATE(fdctrl.data_state) == FD_STATE_CMD) {
+    fdctrl_reset_irq(fdctrl);
+    cur_drv = get_cur_drv(fdctrl);
+    fdctrl->state &= ~FD_CTRL_SLEEP;
+    if (FD_STATE(fdctrl->data_state) == FD_STATE_CMD) {
         FLOPPY_ERROR("can't read data in CMD state\n");
         return 0;
     }
-    pos = fdctrl.data_pos;
-    if (FD_STATE(fdctrl.data_state) == FD_STATE_DATA) {
+    pos = fdctrl->data_pos;
+    if (FD_STATE(fdctrl->data_state) == FD_STATE_DATA) {
         pos %= FD_SECTOR_LEN;
         if (pos == 0) {
-            len = fdctrl.data_len - fdctrl.data_pos;
+            len = fdctrl->data_len - fdctrl->data_pos;
             if (len > FD_SECTOR_LEN)
                 len = FD_SECTOR_LEN;
             bdrv_read(cur_drv->bs, fd_sector(cur_drv),
-                      fdctrl.fifo, len);
+                      fdctrl->fifo, len);
         }
     }
-    retval = fdctrl.fifo[pos];
-    if (++fdctrl.data_pos == fdctrl.data_len) {
-        fdctrl.data_pos = 0;
+    retval = fdctrl->fifo[pos];
+    if (++fdctrl->data_pos == fdctrl->data_len) {
+        fdctrl->data_pos = 0;
         /* Switch from transfert mode to status mode
          * then from status mode to command mode
          */
-        if (FD_STATE(fdctrl.data_state) == FD_STATE_DATA)
-            fdctrl_stop_transfer(0x20, 0x00, 0x00);
+        if (FD_STATE(fdctrl->data_state) == FD_STATE_DATA)
+            fdctrl_stop_transfer(fdctrl, 0x20, 0x00, 0x00);
         else
-            fdctrl_reset_fifo();
+            fdctrl_reset_fifo(fdctrl);
     }
     FLOPPY_DPRINTF("data register: 0x%02x\n", retval);
 
     return retval;
 }
 
-static void fdctrl_write_data (void *opaque, uint32_t reg, uint32_t value)
+static void fdctrl_format_sector (fdctrl_t *fdctrl)
 {
-    fdrive_t *cur_drv, *drv0, *drv1;
+    fdrive_t *cur_drv;
+    uint8_t kh, kt, ks;
+    int did_seek;
 
-    fdctrl_reset_irq();
-    drv0 = &fdctrl.drives[fdctrl.bootsel];
-    drv1 = &fdctrl.drives[1 - fdctrl.bootsel];
-    cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
+    fdctrl->cur_drv = fdctrl->fifo[1] & 1;
+    cur_drv = get_cur_drv(fdctrl);
+    kt = fdctrl->fifo[6];
+    kh = fdctrl->fifo[7];
+    ks = fdctrl->fifo[8];
+    FLOPPY_DPRINTF("format sector at %d %d %02x %02x (%d)\n",
+                   fdctrl->cur_drv, kh, kt, ks,
+                   _fd_sector(kh, kt, ks, cur_drv->last_sect));
+    did_seek = 0;
+    switch (fd_seek(cur_drv, kh, kt, ks, fdctrl->config & 0x40)) {
+    case 2:
+        /* sect too big */
+        fdctrl_stop_transfer(fdctrl, 0x40, 0x00, 0x00);
+        fdctrl->fifo[3] = kt;
+        fdctrl->fifo[4] = kh;
+        fdctrl->fifo[5] = ks;
+        return;
+    case 3:
+        /* track too big */
+        fdctrl_stop_transfer(fdctrl, 0x40, 0x80, 0x00);
+        fdctrl->fifo[3] = kt;
+        fdctrl->fifo[4] = kh;
+        fdctrl->fifo[5] = ks;
+        return;
+    case 4:
+        /* No seek enabled */
+        fdctrl_stop_transfer(fdctrl, 0x40, 0x00, 0x00);
+        fdctrl->fifo[3] = kt;
+        fdctrl->fifo[4] = kh;
+        fdctrl->fifo[5] = ks;
+        return;
+    case 1:
+        did_seek = 1;
+        fdctrl->data_state |= FD_STATE_SEEK;
+        break;
+    default:
+        break;
+    }
+    memset(fdctrl->fifo, 0, FD_SECTOR_LEN);
+    if (cur_drv->bs == NULL ||
+        bdrv_write(cur_drv->bs, fd_sector(cur_drv), fdctrl->fifo, 1) < 0) {
+        FLOPPY_ERROR("formating sector %d\n", fd_sector(cur_drv));
+        fdctrl_stop_transfer(fdctrl, 0x60, 0x00, 0x00);
+    } else {
+	if (cur_drv->sect == cur_drv->last_sect) {
+	    fdctrl->data_state &= ~FD_STATE_FORMAT;
+	    /* Last sector done */
+	    if (FD_DID_SEEK(fdctrl->data_state))
+		fdctrl_stop_transfer(fdctrl, 0x20, 0x00, 0x00);
+	    else
+		fdctrl_stop_transfer(fdctrl, 0x00, 0x00, 0x00);
+	} else {
+	    /* More to do */
+	    fdctrl->data_pos = 0;
+	    fdctrl->data_len = 4;
+	}
+    }
+}
+
+static void fdctrl_write_data (fdctrl_t *fdctrl, uint32_t value)
+{
+    fdrive_t *cur_drv;
+
+    fdctrl_reset_irq(fdctrl);
+    cur_drv = get_cur_drv(fdctrl);
     /* Reset mode */
-    if (fdctrl.state & FD_CTRL_RESET) {
+    if (fdctrl->state & FD_CTRL_RESET) {
         FLOPPY_DPRINTF("Floppy controler in RESET state !\n");
         return;
     }
-    fdctrl.state &= ~FD_CTRL_SLEEP;
-    if ((fdctrl.data_state & FD_STATE_STATE) == FD_STATE_STATUS) {
+    fdctrl->state &= ~FD_CTRL_SLEEP;
+    if (FD_STATE(fdctrl->data_state) == FD_STATE_STATUS) {
         FLOPPY_ERROR("can't write data in status mode\n");
         return;
     }
     /* Is it write command time ? */
-    if (FD_STATE(fdctrl.data_state) == FD_STATE_DATA) {
+    if (FD_STATE(fdctrl->data_state) == FD_STATE_DATA) {
         /* FIFO data write */
-        fdctrl.fifo[fdctrl.data_pos++] = value;
-        if (fdctrl.data_pos % FD_SECTOR_LEN == (FD_SECTOR_LEN - 1) ||
-            fdctrl.data_pos == fdctrl.data_len) {
+        fdctrl->fifo[fdctrl->data_pos++] = value;
+        if (fdctrl->data_pos % FD_SECTOR_LEN == (FD_SECTOR_LEN - 1) ||
+            fdctrl->data_pos == fdctrl->data_len) {
             bdrv_write(cur_drv->bs, fd_sector(cur_drv),
-                       fdctrl.fifo, FD_SECTOR_LEN);
+                       fdctrl->fifo, FD_SECTOR_LEN);
         }
         /* Switch from transfert mode to status mode
          * then from status mode to command mode
          */
-        if (FD_STATE(fdctrl.data_state) == FD_STATE_DATA)
-            fdctrl_stop_transfer(0x20, 0x00, 0x00);
+        if (FD_STATE(fdctrl->data_state) == FD_STATE_DATA)
+            fdctrl_stop_transfer(fdctrl, 0x20, 0x00, 0x00);
         return;
     }
-    if (fdctrl.data_pos == 0) {
+    if (fdctrl->data_pos == 0) {
         /* Command */
         switch (value & 0x5F) {
         case 0x46:
             /* READ variants */
             FLOPPY_DPRINTF("READ command\n");
             /* 8 parameters cmd */
-            fdctrl.data_len = 9;
+            fdctrl->data_len = 9;
             goto enqueue;
         case 0x4C:
             /* READ_DELETED variants */
             FLOPPY_DPRINTF("READ_DELETED command\n");
             /* 8 parameters cmd */
-            fdctrl.data_len = 9;
+            fdctrl->data_len = 9;
             goto enqueue;
         case 0x50:
             /* SCAN_EQUAL variants */
             FLOPPY_DPRINTF("SCAN_EQUAL command\n");
             /* 8 parameters cmd */
-            fdctrl.data_len = 9;
+            fdctrl->data_len = 9;
             goto enqueue;
         case 0x56:
             /* VERIFY variants */
             FLOPPY_DPRINTF("VERIFY command\n");
             /* 8 parameters cmd */
-            fdctrl.data_len = 9;
+            fdctrl->data_len = 9;
             goto enqueue;
         case 0x59:
             /* SCAN_LOW_OR_EQUAL variants */
             FLOPPY_DPRINTF("SCAN_LOW_OR_EQUAL command\n");
             /* 8 parameters cmd */
-            fdctrl.data_len = 9;
+            fdctrl->data_len = 9;
             goto enqueue;
         case 0x5D:
             /* SCAN_HIGH_OR_EQUAL variants */
             FLOPPY_DPRINTF("SCAN_HIGH_OR_EQUAL command\n");
             /* 8 parameters cmd */
-            fdctrl.data_len = 9;
+            fdctrl->data_len = 9;
             goto enqueue;
         default:
             break;
@@ -987,13 +1357,13 @@ static void fdctrl_write_data (void *opaque, uint32_t reg, uint32_t value)
             /* WRITE variants */
             FLOPPY_DPRINTF("WRITE command\n");
             /* 8 parameters cmd */
-            fdctrl.data_len = 9;
+            fdctrl->data_len = 9;
             goto enqueue;
         case 0x49:
             /* WRITE_DELETED variants */
             FLOPPY_DPRINTF("WRITE_DELETED command\n");
             /* 8 parameters cmd */
-            fdctrl.data_len = 9;
+            fdctrl->data_len = 9;
             goto enqueue;
         default:
             break;
@@ -1003,422 +1373,447 @@ static void fdctrl_write_data (void *opaque, uint32_t reg, uint32_t value)
             /* SPECIFY */
             FLOPPY_DPRINTF("SPECIFY command\n");
             /* 1 parameter cmd */
-            fdctrl.data_len = 3;
+            fdctrl->data_len = 3;
             goto enqueue;
         case 0x04:
             /* SENSE_DRIVE_STATUS */
             FLOPPY_DPRINTF("SENSE_DRIVE_STATUS command\n");
             /* 1 parameter cmd */
-            fdctrl.data_len = 2;
+            fdctrl->data_len = 2;
             goto enqueue;
         case 0x07:
             /* RECALIBRATE */
             FLOPPY_DPRINTF("RECALIBRATE command\n");
             /* 1 parameter cmd */
-            fdctrl.data_len = 2;
+            fdctrl->data_len = 2;
             goto enqueue;
         case 0x08:
             /* SENSE_INTERRUPT_STATUS */
             FLOPPY_DPRINTF("SENSE_INTERRUPT_STATUS command (%02x)\n",
-                           fdctrl.int_status);
+                           fdctrl->int_status);
             /* No parameters cmd: returns status if no interrupt */
-            fdctrl.fifo[0] =
-                fdctrl.int_status | (cur_drv->head << 2) | fdctrl.cur_drv;
-            fdctrl.fifo[1] = cur_drv->track;
-            fdctrl_set_fifo(2, 0);
+            fdctrl->fifo[0] =
+                fdctrl->int_status | (cur_drv->head << 2) | fdctrl->cur_drv;
+            fdctrl->fifo[1] = cur_drv->track;
+            fdctrl_set_fifo(fdctrl, 2, 0);
+	    fdctrl_reset_irq(fdctrl);
+	    fdctrl->int_status = 0xC0;
             return;
         case 0x0E:
             /* DUMPREG */
             FLOPPY_DPRINTF("DUMPREG command\n");
             /* Drives position */
-            fdctrl.fifo[0] = drv0->track;
-            fdctrl.fifo[1] = drv1->track;
-            fdctrl.fifo[2] = 0;
-            fdctrl.fifo[3] = 0;
+            fdctrl->fifo[0] = drv0(fdctrl)->track;
+            fdctrl->fifo[1] = drv1(fdctrl)->track;
+            fdctrl->fifo[2] = 0;
+            fdctrl->fifo[3] = 0;
             /* timers */
-            fdctrl.fifo[4] = fdctrl.timer0;
-            fdctrl.fifo[5] = (fdctrl.timer1 << 1) | fdctrl.dma_en;
-            fdctrl.fifo[6] = cur_drv->last_sect;
-            fdctrl.fifo[7] = (fdctrl.lock << 7) |
+            fdctrl->fifo[4] = fdctrl->timer0;
+            fdctrl->fifo[5] = (fdctrl->timer1 << 1) | fdctrl->dma_en;
+            fdctrl->fifo[6] = cur_drv->last_sect;
+            fdctrl->fifo[7] = (fdctrl->lock << 7) |
                     (cur_drv->perpendicular << 2);
-            fdctrl.fifo[8] = fdctrl.config;
-            fdctrl.fifo[9] = fdctrl.precomp_trk;
-            fdctrl_set_fifo(10, 0);
+            fdctrl->fifo[8] = fdctrl->config;
+            fdctrl->fifo[9] = fdctrl->precomp_trk;
+            fdctrl_set_fifo(fdctrl, 10, 0);
             return;
         case 0x0F:
             /* SEEK */
             FLOPPY_DPRINTF("SEEK command\n");
             /* 2 parameters cmd */
-            fdctrl.data_len = 3;
+            fdctrl->data_len = 3;
             goto enqueue;
         case 0x10:
             /* VERSION */
             FLOPPY_DPRINTF("VERSION command\n");
             /* No parameters cmd */
             /* Controler's version */
-            fdctrl.fifo[0] = fdctrl.version;
-            fdctrl_set_fifo(1, 1);
+            fdctrl->fifo[0] = fdctrl->version;
+            fdctrl_set_fifo(fdctrl, 1, 1);
             return;
         case 0x12:
             /* PERPENDICULAR_MODE */
             FLOPPY_DPRINTF("PERPENDICULAR_MODE command\n");
             /* 1 parameter cmd */
-            fdctrl.data_len = 2;
+            fdctrl->data_len = 2;
             goto enqueue;
         case 0x13:
             /* CONFIGURE */
             FLOPPY_DPRINTF("CONFIGURE command\n");
             /* 3 parameters cmd */
-            fdctrl.data_len = 4;
+            fdctrl->data_len = 4;
             goto enqueue;
         case 0x14:
             /* UNLOCK */
             FLOPPY_DPRINTF("UNLOCK command\n");
             /* No parameters cmd */
-            fdctrl.lock = 0;
-            fdctrl.fifo[0] = 0;
-            fdctrl_set_fifo(1, 0);
+            fdctrl->lock = 0;
+            fdctrl->fifo[0] = 0;
+            fdctrl_set_fifo(fdctrl, 1, 0);
             return;
         case 0x17:
             /* POWERDOWN_MODE */
             FLOPPY_DPRINTF("POWERDOWN_MODE command\n");
             /* 2 parameters cmd */
-            fdctrl.data_len = 3;
+            fdctrl->data_len = 3;
             goto enqueue;
         case 0x18:
             /* PART_ID */
             FLOPPY_DPRINTF("PART_ID command\n");
             /* No parameters cmd */
-            fdctrl.fifo[0] = 0x41; /* Stepping 1 */
-            fdctrl_set_fifo(1, 0);
+            fdctrl->fifo[0] = 0x41; /* Stepping 1 */
+            fdctrl_set_fifo(fdctrl, 1, 0);
             return;
         case 0x2C:
             /* SAVE */
             FLOPPY_DPRINTF("SAVE command\n");
             /* No parameters cmd */
-            fdctrl.fifo[0] = 0;
-            fdctrl.fifo[1] = 0;
+            fdctrl->fifo[0] = 0;
+            fdctrl->fifo[1] = 0;
             /* Drives position */
-            fdctrl.fifo[2] = drv0->track;
-            fdctrl.fifo[3] = drv1->track;
-            fdctrl.fifo[4] = 0;
-            fdctrl.fifo[5] = 0;
+            fdctrl->fifo[2] = drv0(fdctrl)->track;
+            fdctrl->fifo[3] = drv1(fdctrl)->track;
+            fdctrl->fifo[4] = 0;
+            fdctrl->fifo[5] = 0;
             /* timers */
-            fdctrl.fifo[6] = fdctrl.timer0;
-            fdctrl.fifo[7] = fdctrl.timer1;
-            fdctrl.fifo[8] = cur_drv->last_sect;
-            fdctrl.fifo[9] = (fdctrl.lock << 7) |
+            fdctrl->fifo[6] = fdctrl->timer0;
+            fdctrl->fifo[7] = fdctrl->timer1;
+            fdctrl->fifo[8] = cur_drv->last_sect;
+            fdctrl->fifo[9] = (fdctrl->lock << 7) |
                     (cur_drv->perpendicular << 2);
-            fdctrl.fifo[10] = fdctrl.config;
-            fdctrl.fifo[11] = fdctrl.precomp_trk;
-            fdctrl.fifo[12] = fdctrl.pwrd;
-            fdctrl.fifo[13] = 0;
-            fdctrl.fifo[14] = 0;
-            fdctrl_set_fifo(15, 1);
+            fdctrl->fifo[10] = fdctrl->config;
+            fdctrl->fifo[11] = fdctrl->precomp_trk;
+            fdctrl->fifo[12] = fdctrl->pwrd;
+            fdctrl->fifo[13] = 0;
+            fdctrl->fifo[14] = 0;
+            fdctrl_set_fifo(fdctrl, 15, 1);
             return;
         case 0x33:
             /* OPTION */
             FLOPPY_DPRINTF("OPTION command\n");
             /* 1 parameter cmd */
-            fdctrl.data_len = 2;
+            fdctrl->data_len = 2;
             goto enqueue;
         case 0x42:
             /* READ_TRACK */
             FLOPPY_DPRINTF("READ_TRACK command\n");
             /* 8 parameters cmd */
-            fdctrl.data_len = 9;
+            fdctrl->data_len = 9;
             goto enqueue;
         case 0x4A:
             /* READ_ID */
             FLOPPY_DPRINTF("READ_ID command\n");
             /* 1 parameter cmd */
-            fdctrl.data_len = 2;
+            fdctrl->data_len = 2;
             goto enqueue;
         case 0x4C:
             /* RESTORE */
             FLOPPY_DPRINTF("RESTORE command\n");
             /* 17 parameters cmd */
-            fdctrl.data_len = 18;
+            fdctrl->data_len = 18;
             goto enqueue;
         case 0x4D:
             /* FORMAT_TRACK */
             FLOPPY_DPRINTF("FORMAT_TRACK command\n");
             /* 5 parameters cmd */
-            fdctrl.data_len = 9;
+            fdctrl->data_len = 6;
             goto enqueue;
         case 0x8E:
             /* DRIVE_SPECIFICATION_COMMAND */
             FLOPPY_DPRINTF("DRIVE_SPECIFICATION_COMMAND command\n");
             /* 5 parameters cmd */
-            fdctrl.data_len = 6;
+            fdctrl->data_len = 6;
             goto enqueue;
         case 0x8F:
             /* RELATIVE_SEEK_OUT */
             FLOPPY_DPRINTF("RELATIVE_SEEK_OUT command\n");
             /* 2 parameters cmd */
-            fdctrl.data_len = 3;
+            fdctrl->data_len = 3;
             goto enqueue;
         case 0x94:
             /* LOCK */
             FLOPPY_DPRINTF("LOCK command\n");
             /* No parameters cmd */
-            fdctrl.lock = 1;
-            fdctrl.fifo[0] = 0x10;
-            fdctrl_set_fifo(1, 1);
+            fdctrl->lock = 1;
+            fdctrl->fifo[0] = 0x10;
+            fdctrl_set_fifo(fdctrl, 1, 1);
             return;
         case 0xCD:
             /* FORMAT_AND_WRITE */
             FLOPPY_DPRINTF("FORMAT_AND_WRITE command\n");
             /* 10 parameters cmd */
-            fdctrl.data_len = 11;
+            fdctrl->data_len = 11;
             goto enqueue;
         case 0xCF:
             /* RELATIVE_SEEK_IN */
             FLOPPY_DPRINTF("RELATIVE_SEEK_IN command\n");
             /* 2 parameters cmd */
-            fdctrl.data_len = 3;
+            fdctrl->data_len = 3;
             goto enqueue;
         default:
             /* Unknown command */
             FLOPPY_ERROR("unknown command: 0x%02x\n", value);
-            fdctrl_unimplemented();
+            fdctrl_unimplemented(fdctrl);
             return;
         }
     }
 enqueue:
-    fdctrl.fifo[fdctrl.data_pos] = value;
-    if (++fdctrl.data_pos == fdctrl.data_len) {
+    FLOPPY_DPRINTF("%s: %02x\n", __func__, value);
+    fdctrl->fifo[fdctrl->data_pos] = value;
+    if (++fdctrl->data_pos == fdctrl->data_len) {
         /* We now have all parameters
          * and will be able to treat the command
          */
-        switch (fdctrl.fifo[0] & 0x1F) {
+	if (fdctrl->data_state & FD_STATE_FORMAT) {
+	    fdctrl_format_sector(fdctrl);
+	    return;
+	}
+        switch (fdctrl->fifo[0] & 0x1F) {
         case 0x06:
         {
             /* READ variants */
             FLOPPY_DPRINTF("treat READ command\n");
-            fdctrl_start_transfer(FD_DIR_READ);
+            fdctrl_start_transfer(fdctrl, FD_DIR_READ);
             return;
         }
         case 0x0C:
             /* READ_DELETED variants */
 //            FLOPPY_DPRINTF("treat READ_DELETED command\n");
             FLOPPY_ERROR("treat READ_DELETED command\n");
-            fdctrl_start_transfer_del(1);
+            fdctrl_start_transfer_del(fdctrl, FD_DIR_READ);
             return;
         case 0x16:
             /* VERIFY variants */
 //            FLOPPY_DPRINTF("treat VERIFY command\n");
             FLOPPY_ERROR("treat VERIFY command\n");
-            fdctrl_stop_transfer(0x20, 0x00, 0x00);
+            fdctrl_stop_transfer(fdctrl, 0x20, 0x00, 0x00);
             return;
         case 0x10:
             /* SCAN_EQUAL variants */
 //            FLOPPY_DPRINTF("treat SCAN_EQUAL command\n");
             FLOPPY_ERROR("treat SCAN_EQUAL command\n");
-            fdctrl_start_transfer(FD_DIR_SCANE);
+            fdctrl_start_transfer(fdctrl, FD_DIR_SCANE);
             return;
         case 0x19:
             /* SCAN_LOW_OR_EQUAL variants */
 //            FLOPPY_DPRINTF("treat SCAN_LOW_OR_EQUAL command\n");
             FLOPPY_ERROR("treat SCAN_LOW_OR_EQUAL command\n");
-            fdctrl_start_transfer(FD_DIR_SCANL);
+            fdctrl_start_transfer(fdctrl, FD_DIR_SCANL);
             return;
         case 0x1D:
             /* SCAN_HIGH_OR_EQUAL variants */
 //            FLOPPY_DPRINTF("treat SCAN_HIGH_OR_EQUAL command\n");
             FLOPPY_ERROR("treat SCAN_HIGH_OR_EQUAL command\n");
-            fdctrl_start_transfer(FD_DIR_SCANH);
+            fdctrl_start_transfer(fdctrl, FD_DIR_SCANH);
             return;
         default:
             break;
         }
-        switch (fdctrl.fifo[0] & 0x3F) {
+        switch (fdctrl->fifo[0] & 0x3F) {
         case 0x05:
             /* WRITE variants */
-            FLOPPY_DPRINTF("treat WRITE command (%02x)\n", fdctrl.fifo[0]);
-            fdctrl_start_transfer(FD_DIR_WRITE);
+            FLOPPY_DPRINTF("treat WRITE command (%02x)\n", fdctrl->fifo[0]);
+            fdctrl_start_transfer(fdctrl, FD_DIR_WRITE);
             return;
         case 0x09:
             /* WRITE_DELETED variants */
 //            FLOPPY_DPRINTF("treat WRITE_DELETED command\n");
             FLOPPY_ERROR("treat WRITE_DELETED command\n");
-            fdctrl_start_transfer_del(FD_DIR_WRITE);
+            fdctrl_start_transfer_del(fdctrl, FD_DIR_WRITE);
             return;
         default:
             break;
         }
-        switch (fdctrl.fifo[0]) {
+        switch (fdctrl->fifo[0]) {
         case 0x03:
             /* SPECIFY */
             FLOPPY_DPRINTF("treat SPECIFY command\n");
-            fdctrl.timer0 = (fdctrl.fifo[1] >> 4) & 0xF;
-            fdctrl.timer1 = fdctrl.fifo[1] >> 1;
+            fdctrl->timer0 = (fdctrl->fifo[1] >> 4) & 0xF;
+            fdctrl->timer1 = fdctrl->fifo[1] >> 1;
+	    fdctrl->dma_en = 1 - (fdctrl->fifo[2] & 1) ;
             /* No result back */
-            fdctrl_reset_fifo();
+            fdctrl_reset_fifo(fdctrl);
             break;
         case 0x04:
             /* SENSE_DRIVE_STATUS */
             FLOPPY_DPRINTF("treat SENSE_DRIVE_STATUS command\n");
-            fdctrl.cur_drv = fdctrl.fifo[1] & 1;
-            cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
-            cur_drv->head = (fdctrl.fifo[1] >> 2) & 1;
+            fdctrl->cur_drv = fdctrl->fifo[1] & 1;
+	    cur_drv = get_cur_drv(fdctrl);
+            cur_drv->head = (fdctrl->fifo[1] >> 2) & 1;
             /* 1 Byte status back */
-            fdctrl.fifo[0] = (cur_drv->ro << 6) |
+            fdctrl->fifo[0] = (cur_drv->ro << 6) |
                 (cur_drv->track == 0 ? 0x10 : 0x00) |
-                fdctrl.cur_drv;
-            fdctrl_set_fifo(1, 0);
+                fdctrl->cur_drv;
+            fdctrl_set_fifo(fdctrl, 1, 0);
             break;
         case 0x07:
             /* RECALIBRATE */
             FLOPPY_DPRINTF("treat RECALIBRATE command\n");
-            fdctrl.cur_drv = fdctrl.fifo[1] & 1;
-            cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
+            fdctrl->cur_drv = fdctrl->fifo[1] & 1;
+	    cur_drv = get_cur_drv(fdctrl);
             fd_recalibrate(cur_drv);
-            fdctrl_reset_fifo();
+	    fdctrl_reset_fifo(fdctrl);
             /* Raise Interrupt */
-            fdctrl_raise_irq(0x20);
+	    fdctrl_raise_irq(fdctrl, 0x20);
             break;
         case 0x0F:
             /* SEEK */
             FLOPPY_DPRINTF("treat SEEK command\n");
-            fdctrl.cur_drv = fdctrl.fifo[1] & 1;
-            cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
-            if (fdctrl.fifo[2] <= cur_drv->track)
+            fdctrl->cur_drv = fdctrl->fifo[1] & 1;
+	    cur_drv = get_cur_drv(fdctrl);
+	    fd_start(cur_drv);
+            if (fdctrl->fifo[2] <= cur_drv->track)
                 cur_drv->dir = 1;
             else
                 cur_drv->dir = 0;
-            cur_drv->head = (fdctrl.fifo[1] >> 2) & 1;
-            if (fdctrl.fifo[2] > cur_drv->max_track) {
-                fdctrl_raise_irq(0x60);
+	    fdctrl_reset_fifo(fdctrl);
+            if (fdctrl->fifo[2] > cur_drv->max_track) {
+                fdctrl_raise_irq(fdctrl, 0x60);
             } else {
-                cur_drv->track = fdctrl.fifo[2];
-                fdctrl_reset_fifo();
+                cur_drv->track = fdctrl->fifo[2];
                 /* Raise Interrupt */
-                fdctrl_raise_irq(0x20);
+                fdctrl_raise_irq(fdctrl, 0x20);
             }
             break;
         case 0x12:
             /* PERPENDICULAR_MODE */
             FLOPPY_DPRINTF("treat PERPENDICULAR_MODE command\n");
-            if (fdctrl.fifo[1] & 0x80)
-                cur_drv->perpendicular = fdctrl.fifo[1] & 0x7;
+            if (fdctrl->fifo[1] & 0x80)
+                cur_drv->perpendicular = fdctrl->fifo[1] & 0x7;
             /* No result back */
-            fdctrl_reset_fifo();
+            fdctrl_reset_fifo(fdctrl);
             break;
         case 0x13:
             /* CONFIGURE */
             FLOPPY_DPRINTF("treat CONFIGURE command\n");
-            fdctrl.config = fdctrl.fifo[2];
-            fdctrl.precomp_trk =  fdctrl.fifo[3];
+            fdctrl->config = fdctrl->fifo[2];
+            fdctrl->precomp_trk =  fdctrl->fifo[3];
             /* No result back */
-            fdctrl_reset_fifo();
+            fdctrl_reset_fifo(fdctrl);
             break;
         case 0x17:
             /* POWERDOWN_MODE */
             FLOPPY_DPRINTF("treat POWERDOWN_MODE command\n");
-            fdctrl.pwrd = fdctrl.fifo[1];
-            fdctrl.fifo[0] = fdctrl.fifo[1];
-            fdctrl_set_fifo(1, 1);
+            fdctrl->pwrd = fdctrl->fifo[1];
+            fdctrl->fifo[0] = fdctrl->fifo[1];
+            fdctrl_set_fifo(fdctrl, 1, 1);
             break;
         case 0x33:
             /* OPTION */
             FLOPPY_DPRINTF("treat OPTION command\n");
             /* No result back */
-            fdctrl_reset_fifo();
+            fdctrl_reset_fifo(fdctrl);
             break;
         case 0x42:
             /* READ_TRACK */
 //            FLOPPY_DPRINTF("treat READ_TRACK command\n");
             FLOPPY_ERROR("treat READ_TRACK command\n");
-            fdctrl_unimplemented();
+            fdctrl_start_transfer(fdctrl, FD_DIR_READ);
             break;
         case 0x4A:
                 /* READ_ID */
-//            FLOPPY_DPRINTF("treat READ_ID command\n");
-            FLOPPY_ERROR("treat READ_ID command\n");
-            fdctrl_stop_transfer(0x00, 0x00, 0x00);
+            FLOPPY_DPRINTF("treat READ_ID command\n");
+            fdctrl_stop_transfer(fdctrl, 0x00, 0x00, 0x00);
             break;
         case 0x4C:
             /* RESTORE */
             FLOPPY_DPRINTF("treat RESTORE command\n");
             /* Drives position */
-            drv0->track = fdctrl.fifo[3];
-            drv1->track = fdctrl.fifo[4];
+            drv0(fdctrl)->track = fdctrl->fifo[3];
+            drv1(fdctrl)->track = fdctrl->fifo[4];
             /* timers */
-            fdctrl.timer0 = fdctrl.fifo[7];
-            fdctrl.timer1 = fdctrl.fifo[8];
-            cur_drv->last_sect = fdctrl.fifo[9];
-            fdctrl.lock = fdctrl.fifo[10] >> 7;
-            cur_drv->perpendicular = (fdctrl.fifo[10] >> 2) & 0xF;
-            fdctrl.config = fdctrl.fifo[11];
-            fdctrl.precomp_trk = fdctrl.fifo[12];
-            fdctrl.pwrd = fdctrl.fifo[13];
-            fdctrl_reset_fifo();
+            fdctrl->timer0 = fdctrl->fifo[7];
+            fdctrl->timer1 = fdctrl->fifo[8];
+            cur_drv->last_sect = fdctrl->fifo[9];
+            fdctrl->lock = fdctrl->fifo[10] >> 7;
+            cur_drv->perpendicular = (fdctrl->fifo[10] >> 2) & 0xF;
+            fdctrl->config = fdctrl->fifo[11];
+            fdctrl->precomp_trk = fdctrl->fifo[12];
+            fdctrl->pwrd = fdctrl->fifo[13];
+            fdctrl_reset_fifo(fdctrl);
             break;
         case 0x4D:
             /* FORMAT_TRACK */
-//                FLOPPY_DPRINTF("treat FORMAT_TRACK command\n");
-            FLOPPY_ERROR("treat FORMAT_TRACK command\n");
-            fdctrl_unimplemented();
+	    FLOPPY_DPRINTF("treat FORMAT_TRACK command\n");
+	    fdctrl->cur_drv = fdctrl->fifo[1] & 1;
+	    cur_drv = get_cur_drv(fdctrl);
+	    fdctrl->data_state |= FD_STATE_FORMAT;
+	    if (fdctrl->fifo[0] & 0x80)
+		fdctrl->data_state |= FD_STATE_MULTI;
+	    else
+		fdctrl->data_state &= ~FD_STATE_MULTI;
+	    fdctrl->data_state &= ~FD_STATE_SEEK;
+	    cur_drv->bps =
+		fdctrl->fifo[2] > 7 ? 16384 : 128 << fdctrl->fifo[2];
+#if 0
+	    cur_drv->last_sect =
+		cur_drv->flags & FDISK_DBL_SIDES ? fdctrl->fifo[3] :
+		fdctrl->fifo[3] / 2;
+#else
+	    cur_drv->last_sect = fdctrl->fifo[3];
+#endif
+	    /* Bochs BIOS is buggy and don't send format informations
+	     * for each sector. So, pretend all's done right now...
+	     */
+	    fdctrl->data_state &= ~FD_STATE_FORMAT;
+	    fdctrl_stop_transfer(fdctrl, 0x00, 0x00, 0x00);
             break;
         case 0x8E:
             /* DRIVE_SPECIFICATION_COMMAND */
             FLOPPY_DPRINTF("treat DRIVE_SPECIFICATION_COMMAND command\n");
-            if (fdctrl.fifo[fdctrl.data_pos - 1] & 0x80) {
+            if (fdctrl->fifo[fdctrl->data_pos - 1] & 0x80) {
                 /* Command parameters done */
-                if (fdctrl.fifo[fdctrl.data_pos - 1] & 0x40) {
-                    fdctrl.fifo[0] = fdctrl.fifo[1];
-                    fdctrl.fifo[2] = 0;
-                    fdctrl.fifo[3] = 0;
-                    fdctrl_set_fifo(4, 1);
+                if (fdctrl->fifo[fdctrl->data_pos - 1] & 0x40) {
+                    fdctrl->fifo[0] = fdctrl->fifo[1];
+                    fdctrl->fifo[2] = 0;
+                    fdctrl->fifo[3] = 0;
+                    fdctrl_set_fifo(fdctrl, 4, 1);
                 } else {
-                    fdctrl_reset_fifo();
+                    fdctrl_reset_fifo(fdctrl);
                 }
-            } else if (fdctrl.data_len > 7) {
+            } else if (fdctrl->data_len > 7) {
                 /* ERROR */
-                fdctrl.fifo[0] = 0x80 |
-                    (cur_drv->head << 2) | fdctrl.cur_drv;
-                fdctrl_set_fifo(1, 1);
+                fdctrl->fifo[0] = 0x80 |
+                    (cur_drv->head << 2) | fdctrl->cur_drv;
+                fdctrl_set_fifo(fdctrl, 1, 1);
             }
             break;
         case 0x8F:
             /* RELATIVE_SEEK_OUT */
             FLOPPY_DPRINTF("treat RELATIVE_SEEK_OUT command\n");
-            fdctrl.cur_drv = fdctrl.fifo[1] & 1;
-            cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
-            cur_drv->head = (fdctrl.fifo[1] >> 2) & 1;
-            if (fdctrl.fifo[2] + cur_drv->track > cur_drv->max_track) {
-                /* ERROR */
-                fdctrl_raise_irq(0x70);
-            } else {
-                cur_drv->track += fdctrl.fifo[2];
+            fdctrl->cur_drv = fdctrl->fifo[1] & 1;
+	    cur_drv = get_cur_drv(fdctrl);
+	    fd_start(cur_drv);
                 cur_drv->dir = 0;
-                fdctrl_reset_fifo();
-                fdctrl_raise_irq(0x20);
+            if (fdctrl->fifo[2] + cur_drv->track >= cur_drv->max_track) {
+		cur_drv->track = cur_drv->max_track - 1;
+            } else {
+                cur_drv->track += fdctrl->fifo[2];
             }
+	    fdctrl_reset_fifo(fdctrl);
+	    fdctrl_raise_irq(fdctrl, 0x20);
             break;
         case 0xCD:
             /* FORMAT_AND_WRITE */
 //                FLOPPY_DPRINTF("treat FORMAT_AND_WRITE command\n");
             FLOPPY_ERROR("treat FORMAT_AND_WRITE command\n");
-            fdctrl_unimplemented();
+            fdctrl_unimplemented(fdctrl);
             break;
         case 0xCF:
                 /* RELATIVE_SEEK_IN */
             FLOPPY_DPRINTF("treat RELATIVE_SEEK_IN command\n");
-            fdctrl.cur_drv = fdctrl.fifo[1] & 1;
-            cur_drv = fdctrl.cur_drv == 0 ? drv0 : drv1;
-            cur_drv->head = (fdctrl.fifo[1] >> 2) & 1;
-            if (fdctrl.fifo[2] > cur_drv->track) {
-                /* ERROR */
-                fdctrl_raise_irq(0x60);
-            } else {
-                fdctrl_reset_fifo();
-                cur_drv->track -= fdctrl.fifo[2];
+            fdctrl->cur_drv = fdctrl->fifo[1] & 1;
+	    cur_drv = get_cur_drv(fdctrl);
+	    fd_start(cur_drv);
                 cur_drv->dir = 1;
-                /* Raise Interrupt */
-                fdctrl_raise_irq(0x20);
+            if (fdctrl->fifo[2] > cur_drv->track) {
+		cur_drv->track = 0;
+            } else {
+                cur_drv->track -= fdctrl->fifo[2];
             }
+	    fdctrl_reset_fifo(fdctrl);
+	    /* Raise Interrupt */
+	    fdctrl_raise_irq(fdctrl, 0x20);
             break;
         }
     }
diff --git a/hw/pc.c b/hw/pc.c
index 071d840..2a8ee8a 100644
--- a/hw/pc.c
+++ b/hw/pc.c
@@ -57,6 +57,7 @@
 
 int speaker_data_on;
 int dummy_refresh_clock;
+static fdctrl_t *floppy_controller;
 
 static void ioport80_write(void *opaque, uint32_t addr, uint32_t data)
 {
@@ -106,8 +107,8 @@ static void cmos_init(int ram_size, int boot_device)
 
     /* floppy type */
 
-    fd0 = fdctrl_get_drive_type(0);
-    fd1 = fdctrl_get_drive_type(1);
+    fd0 = fdctrl_get_drive_type(floppy_controller, 0);
+    fd1 = fdctrl_get_drive_type(floppy_controller, 1);
 
     s->cmos_data[0x10] = 0;
     switch (fd0) {
@@ -370,7 +371,7 @@ void pc_init(int ram_size, int vga_ram_size, int boot_device,
     DMA_init();
     SB16_init();
 
-    fdctrl_init(6, 2, 0, 0x3f0, fd_table);
+    floppy_controller = fdctrl_init(6, 2, 0, 0x3f0, fd_table);
 
     cmos_init(ram_size, boot_device);
 }
diff --git a/vl.h b/vl.h
index 11d7aba..2377602 100644
--- a/vl.h
+++ b/vl.h
@@ -186,9 +186,12 @@ void SB16_init (void);
 #define MAX_FD 2
 extern BlockDriverState *fd_table[MAX_FD];
 
-void fdctrl_init (int irq_lvl, int dma_chann, int mem_mapped, uint32_t base,
-                  BlockDriverState **fds);
-int fdctrl_get_drive_type(int drive_num);
+typedef struct fdctrl_t fdctrl_t;
+
+fdctrl_t *fdctrl_init (int irq_lvl, int dma_chann, int mem_mapped, 
+                       uint32_t io_base,
+                       BlockDriverState **fds);
+int fdctrl_get_drive_type(fdctrl_t *fdctrl, int drive_num);
 
 /* ne2000.c */