git.maemo.org Git - qemu/blob - hw/fdc.c

   1 /*
   2  * QEMU Floppy disk emulator
   3  *
   4  * Copyright (c) 2003 Jocelyn Mayer
   5  *
   6  * Permission is hereby granted, free of charge, to any person obtaining a copy
   7  * of this software and associated documentation files (the "Software"), to deal
   8  * in the Software without restriction, including without limitation the rights
   9  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  10  * copies of the Software, and to permit persons to whom the Software is
  11  * furnished to do so, subject to the following conditions:
  12  *
  13  * The above copyright notice and this permission notice shall be included in
  14  * all copies or substantial portions of the Software.
  15  *
  16  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  17  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  18  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  19  * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  20  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  21  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  22  * THE SOFTWARE.
  23  */
  24 #include "vl.h"
  25
  26 /********************************************************/
  27 /* debug Floppy devices */
  28 //#define DEBUG_FLOPPY
  29
  30 #ifdef DEBUG_FLOPPY
  31 #define FLOPPY_DPRINTF(fmt, args...) \
  32 do { printf("FLOPPY: " fmt , ##args); } while (0)
  33 #else
  34 #define FLOPPY_DPRINTF(fmt, args...)
  35 #endif
  36
  37 #define FLOPPY_ERROR(fmt, args...) \
  38 do { printf("FLOPPY ERROR: %s: " fmt, __func__ , ##args); } while (0)
  39
  40 /********************************************************/
  41 /* Floppy drive emulation                               */
  42
  43 /* Will always be a fixed parameter for us */
  44 #define FD_SECTOR_LEN 512
  45 #define FD_SECTOR_SC  2   /* Sector size code */
  46
  47 /* Floppy disk drive emulation */
  48 typedef enum fdisk_type_t {
  49     FDRIVE_DISK_288   = 0x01, /* 2.88 MB disk           */
  50     FDRIVE_DISK_144   = 0x02, /* 1.44 MB disk           */
  51     FDRIVE_DISK_720   = 0x03, /* 720 kB disk            */
  52     FDRIVE_DISK_USER  = 0x04, /* User defined geometry  */
  53     FDRIVE_DISK_NONE  = 0x05, /* No disk                */
  54 } fdisk_type_t;
  55
  56 typedef enum fdrive_type_t {
  57     FDRIVE_DRV_144  = 0x00,   /* 1.44 MB 3"5 drive      */
  58     FDRIVE_DRV_288  = 0x01,   /* 2.88 MB 3"5 drive      */
  59     FDRIVE_DRV_120  = 0x02,   /* 1.2  MB 5"25 drive     */
  60     FDRIVE_DRV_NONE = 0x03,   /* No drive connected     */
  61 } fdrive_type_t;
  62
  63 typedef enum fdrive_flags_t {
  64     FDRIVE_MOTOR_ON   = 0x01, /* motor on/off           */
  65     FDRIVE_REVALIDATE = 0x02, /* Revalidated            */
  66 } fdrive_flags_t;
  67
  68 typedef enum fdisk_flags_t {
  69     FDISK_DBL_SIDES  = 0x01,
  70 } fdisk_flags_t;
  71
  72 typedef struct fdrive_t {
  73     BlockDriverState *bs;
  74     /* Drive status */
  75     fdrive_type_t drive;
  76     fdrive_flags_t drflags;
  77     uint8_t perpendicular;    /* 2.88 MB access mode    */
  78     /* Position */
  79     uint8_t head;
  80     uint8_t track;
  81     uint8_t sect;
  82     /* Last operation status */
  83     uint8_t dir;              /* Direction              */
  84     uint8_t rw;               /* Read/write             */
  85     /* Media */
  86     fdisk_flags_t flags;
  87     uint8_t last_sect;        /* Nb sector per track    */
  88     uint8_t max_track;        /* Nb of tracks           */
  89     uint16_t bps;             /* Bytes per sector       */
  90     uint8_t ro;               /* Is read-only           */
  91 } fdrive_t;
  92
  93 static void fd_init (fdrive_t *drv, BlockDriverState *bs)
  94 {
  95     /* Drive */
  96     drv->bs = bs;
  97     if (bs)
  98         drv->drive = FDRIVE_DRV_144;
  99     else
 100         drv->drive = FDRIVE_DRV_NONE;
 101     drv->drflags = 0;
 102     drv->perpendicular = 0;
 103     /* Disk */
 104     drv->last_sect = 0;
 105     drv->max_track = 0;
 106 }
 107
 108 static int _fd_sector (uint8_t head, uint8_t track,
 109                         uint8_t sect, uint8_t last_sect)
 110 {
 111     return (((track * 2) + head) * last_sect) + sect - 1;
 112 }
 113
 114 /* Returns current position, in sectors, for given drive */
 115 static int fd_sector (fdrive_t *drv)
 116 {
 117     return _fd_sector(drv->head, drv->track, drv->sect, drv->last_sect);
 118 }
 119
 120 static int fd_seek (fdrive_t *drv, uint8_t head, uint8_t track, uint8_t sect,
 121                     int enable_seek)
 122 {
 123     uint32_t sector;
 124     int ret;
 125
 126     if (track > drv->max_track ||
 127         (head != 0 && (drv->flags & FDISK_DBL_SIDES) == 0)) {
 128         FLOPPY_DPRINTF("try to read %d %02x %02x (max=%d %d %02x %02x)\n",
 129                        head, track, sect, 1,
 130                        (drv->flags & FDISK_DBL_SIDES) == 0 ? 0 : 1,
 131                        drv->max_track, drv->last_sect);
 132         return 2;
 133     }
 134     if (sect > drv->last_sect) {
 135         FLOPPY_DPRINTF("try to read %d %02x %02x (max=%d %d %02x %02x)\n",
 136                        head, track, sect, 1,
 137                        (drv->flags & FDISK_DBL_SIDES) == 0 ? 0 : 1,
 138                        drv->max_track, drv->last_sect);
 139         return 3;
 140     }
 141     sector = _fd_sector(head, track, sect, drv->last_sect);
 142     ret = 0;
 143     if (sector != fd_sector(drv)) {
 144 #if 0
 145         if (!enable_seek) {
 146             FLOPPY_ERROR("no implicit seek %d %02x %02x (max=%d %02x %02x)\n",
 147                          head, track, sect, 1, drv->max_track, drv->last_sect);
 148             return 4;
 149         }
 150 #endif
 151         drv->head = head;
 152         if (drv->track != track)
 153             ret = 1;
 154         drv->track = track;
 155         drv->sect = sect;
 156     }
 157
 158     return ret;
 159 }
 160
 161 /* Set drive back to track 0 */
 162 static void fd_recalibrate (fdrive_t *drv)
 163 {
 164     FLOPPY_DPRINTF("recalibrate\n");
 165     drv->head = 0;
 166     drv->track = 0;
 167     drv->sect = 1;
 168     drv->dir = 1;
 169     drv->rw = 0;
 170 }
 171
 172 /* Recognize floppy formats */
 173 typedef struct fd_format_t {
 174     fdrive_type_t drive;
 175     fdisk_type_t  disk;
 176     uint8_t last_sect;
 177     uint8_t max_track;
 178     uint8_t max_head;
 179     const unsigned char *str;
 180 } fd_format_t;
 181
 182 static fd_format_t fd_formats[] = {
 183     /* First entry is default format */
 184     /* 1.44 MB 3"1/2 floppy disks */
 185     { FDRIVE_DRV_144, FDRIVE_DISK_144, 18, 80, 1, "1.44 MB 3\"1/2", },
 186     { FDRIVE_DRV_144, FDRIVE_DISK_144, 20, 80, 1,  "1.6 MB 3\"1/2", },
 187     { FDRIVE_DRV_144, FDRIVE_DISK_144, 21, 80, 1, "1.68 MB 3\"1/2", },
 188     { FDRIVE_DRV_144, FDRIVE_DISK_144, 21, 82, 1, "1.72 MB 3\"1/2", },
 189     { FDRIVE_DRV_144, FDRIVE_DISK_144, 21, 83, 1, "1.74 MB 3\"1/2", },
 190     { FDRIVE_DRV_144, FDRIVE_DISK_144, 22, 80, 1, "1.76 MB 3\"1/2", },
 191     { FDRIVE_DRV_144, FDRIVE_DISK_144, 23, 80, 1, "1.84 MB 3\"1/2", },
 192     { FDRIVE_DRV_144, FDRIVE_DISK_144, 24, 80, 1, "1.92 MB 3\"1/2", },
 193     /* 2.88 MB 3"1/2 floppy disks */
 194     { FDRIVE_DRV_288, FDRIVE_DISK_288, 36, 80, 1, "2.88 MB 3\"1/2", },
 195     { FDRIVE_DRV_288, FDRIVE_DISK_288, 39, 80, 1, "3.12 MB 3\"1/2", },
 196     { FDRIVE_DRV_288, FDRIVE_DISK_288, 40, 80, 1,  "3.2 MB 3\"1/2", },
 197     { FDRIVE_DRV_288, FDRIVE_DISK_288, 44, 80, 1, "3.52 MB 3\"1/2", },
 198     { FDRIVE_DRV_288, FDRIVE_DISK_288, 48, 80, 1, "3.84 MB 3\"1/2", },
 199     /* 720 kB 3"1/2 floppy disks */
 200     { FDRIVE_DRV_144, FDRIVE_DISK_720,  9, 80, 1,  "720 kB 3\"1/2", },
 201     { FDRIVE_DRV_144, FDRIVE_DISK_720, 10, 80, 1,  "800 kB 3\"1/2", },
 202     { FDRIVE_DRV_144, FDRIVE_DISK_720, 10, 82, 1,  "820 kB 3\"1/2", },
 203     { FDRIVE_DRV_144, FDRIVE_DISK_720, 10, 83, 1,  "830 kB 3\"1/2", },
 204     { FDRIVE_DRV_144, FDRIVE_DISK_720, 13, 80, 1, "1.04 MB 3\"1/2", },
 205     { FDRIVE_DRV_144, FDRIVE_DISK_720, 14, 80, 1, "1.12 MB 3\"1/2", },
 206     /* 1.2 MB 5"1/4 floppy disks */
 207     { FDRIVE_DRV_120, FDRIVE_DISK_288, 15, 80, 1,  "1.2 kB 5\"1/4", },
 208     { FDRIVE_DRV_120, FDRIVE_DISK_288, 18, 80, 1, "1.44 MB 5\"1/4", },
 209     { FDRIVE_DRV_120, FDRIVE_DISK_288, 18, 82, 1, "1.48 MB 5\"1/4", },
 210     { FDRIVE_DRV_120, FDRIVE_DISK_288, 18, 83, 1, "1.49 MB 5\"1/4", },
 211     { FDRIVE_DRV_120, FDRIVE_DISK_288, 20, 80, 1,  "1.6 MB 5\"1/4", },
 212     /* 720 kB 5"1/4 floppy disks */
 213     { FDRIVE_DRV_120, FDRIVE_DISK_288,  9, 80, 1,  "720 kB 5\"1/4", },
 214     { FDRIVE_DRV_120, FDRIVE_DISK_288, 11, 80, 1,  "880 kB 5\"1/4", },
 215     /* 360 kB 5"1/4 floppy disks */
 216     { FDRIVE_DRV_120, FDRIVE_DISK_288,  9, 40, 1,  "360 kB 5\"1/4", },
 217     { FDRIVE_DRV_120, FDRIVE_DISK_288,  9, 40, 0,  "180 kB 5\"1/4", },
 218     { FDRIVE_DRV_120, FDRIVE_DISK_288, 10, 41, 1,  "410 kB 5\"1/4", },
 219     { FDRIVE_DRV_120, FDRIVE_DISK_288, 10, 42, 1,  "420 kB 5\"1/4", },
 220     /* 320 kB 5"1/4 floppy disks */
 221     { FDRIVE_DRV_120, FDRIVE_DISK_288,  8, 40, 1,  "320 kB 5\"1/4", },
 222     { FDRIVE_DRV_120, FDRIVE_DISK_288,  8, 40, 0,  "160 kB 5\"1/4", },
 223     /* 360 kB must match 5"1/4 better than 3"1/2... */
 224     { FDRIVE_DRV_144, FDRIVE_DISK_720,  9, 80, 0,  "360 kB 3\"1/2", },
 225     /* end */
 226     { FDRIVE_DRV_NONE, FDRIVE_DISK_NONE, -1, -1, 0, NULL, },
 227 };
 228
 229 /* Revalidate a disk drive after a disk change */
 230 static void fd_revalidate (fdrive_t *drv)
 231 {
 232     fd_format_t *parse;
 233     int64_t nb_sectors, size;
 234     int i, first_match, match;
 235     int nb_heads, max_track, last_sect, ro;
 236
 237     FLOPPY_DPRINTF("revalidate\n");
 238     drv->drflags &= ~FDRIVE_REVALIDATE;
 239     if (drv->bs != NULL && bdrv_is_inserted(drv->bs)) {
 240         ro = bdrv_is_read_only(drv->bs);
 241         bdrv_get_geometry_hint(drv->bs, &nb_heads, &max_track, &last_sect);
 242         if (nb_heads != 0 && max_track != 0 && last_sect != 0) {
 243             FLOPPY_DPRINTF("User defined disk (%d %d %d)",
 244                            nb_heads - 1, max_track, last_sect);
 245         } else {
 246             bdrv_get_geometry(drv->bs, &nb_sectors);
 247             match = -1;
 248             first_match = -1;
 249             for (i = 0;; i++) {
 250                 parse = &fd_formats[i];
 251                 if (parse->drive == FDRIVE_DRV_NONE)
 252                     break;
 253                 if (drv->drive == parse->drive ||
 254                     drv->drive == FDRIVE_DRV_NONE) {
 255                     size = (parse->max_head + 1) * parse->max_track *
 256                         parse->last_sect;
 257                     if (nb_sectors == size) {
 258                         match = i;
 259                         break;
 260                     }
 261                     if (first_match == -1)
 262                         first_match = i;
 263                 }
 264             }
 265             if (match == -1) {
 266                 if (first_match == -1)
 267                     match = 1;
 268                 else
 269                     match = first_match;
 270                 parse = &fd_formats[match];
 271             }
 272             nb_heads = parse->max_head + 1;
 273             max_track = parse->max_track;
 274             last_sect = parse->last_sect;
 275             drv->drive = parse->drive;
 276             FLOPPY_DPRINTF("%s floppy disk (%d h %d t %d s) %s\n", parse->str,
 277                            nb_heads, max_track, last_sect, ro ? "ro" : "rw");
 278         }
 279             if (nb_heads == 1) {
 280                 drv->flags &= ~FDISK_DBL_SIDES;
 281             } else {
 282                 drv->flags |= FDISK_DBL_SIDES;
 283             }
 284             drv->max_track = max_track;
 285             drv->last_sect = last_sect;
 286         drv->ro = ro;
 287     } else {
 288         FLOPPY_DPRINTF("No disk in drive\n");
 289         drv->last_sect = 0;
 290         drv->max_track = 0;
 291         drv->flags &= ~FDISK_DBL_SIDES;
 292     }
 293     drv->drflags |= FDRIVE_REVALIDATE;
 294 }
 295
 296 /* Motor control */
 297 static void fd_start (fdrive_t *drv)
 298 {
 299     drv->drflags |= FDRIVE_MOTOR_ON;
 300 }
 301
 302 static void fd_stop (fdrive_t *drv)
 303 {
 304     drv->drflags &= ~FDRIVE_MOTOR_ON;
 305 }
 306
 307 /* Re-initialise a drives (motor off, repositioned) */
 308 static void fd_reset (fdrive_t *drv)
 309 {
 310     fd_stop(drv);
 311     fd_recalibrate(drv);
 312 }
 313
 314 /********************************************************/
 315 /* Intel 82078 floppy disk controler emulation          */
 316
 317 static void fdctrl_reset (fdctrl_t *fdctrl, int do_irq);
 318 static void fdctrl_reset_fifo (fdctrl_t *fdctrl);
 319 static int fdctrl_transfer_handler (void *opaque, target_ulong addr, int size);
 320 static void fdctrl_raise_irq (fdctrl_t *fdctrl, uint8_t status);
 321 static void fdctrl_result_timer(void *opaque);
 322
 323 static uint32_t fdctrl_read_statusB (fdctrl_t *fdctrl);
 324 static uint32_t fdctrl_read_dor (fdctrl_t *fdctrl);
 325 static void fdctrl_write_dor (fdctrl_t *fdctrl, uint32_t value);
 326 static uint32_t fdctrl_read_tape (fdctrl_t *fdctrl);
 327 static void fdctrl_write_tape (fdctrl_t *fdctrl, uint32_t value);
 328 static uint32_t fdctrl_read_main_status (fdctrl_t *fdctrl);
 329 static void fdctrl_write_rate (fdctrl_t *fdctrl, uint32_t value);
 330 static uint32_t fdctrl_read_data (fdctrl_t *fdctrl);
 331 static void fdctrl_write_data (fdctrl_t *fdctrl, uint32_t value);
 332 static uint32_t fdctrl_read_dir (fdctrl_t *fdctrl);
 333
 334 enum {
 335     FD_CTRL_ACTIVE = 0x01, /* XXX: suppress that */
 336     FD_CTRL_RESET  = 0x02,
 337     FD_CTRL_SLEEP  = 0x04, /* XXX: suppress that */
 338     FD_CTRL_BUSY   = 0x08, /* dma transfer in progress */
 339     FD_CTRL_INTR   = 0x10,
 340 };
 341
 342 enum {
 343     FD_DIR_WRITE   = 0,
 344     FD_DIR_READ    = 1,
 345     FD_DIR_SCANE   = 2,
 346     FD_DIR_SCANL   = 3,
 347     FD_DIR_SCANH   = 4,
 348 };
 349
 350 enum {
 351     FD_STATE_CMD    = 0x00,
 352     FD_STATE_STATUS = 0x01,
 353     FD_STATE_DATA   = 0x02,
 354     FD_STATE_STATE  = 0x03,
 355     FD_STATE_MULTI  = 0x10,
 356     FD_STATE_SEEK   = 0x20,
 357     FD_STATE_FORMAT = 0x40,
 358 };
 359
 360 #define FD_STATE(state) ((state) & FD_STATE_STATE)
 361 #define FD_SET_STATE(state, new_state) \
 362 do { (state) = ((state) & ~FD_STATE_STATE) | (new_state); } while (0)
 363 #define FD_MULTI_TRACK(state) ((state) & FD_STATE_MULTI)
 364 #define FD_DID_SEEK(state) ((state) & FD_STATE_SEEK)
 365 #define FD_FORMAT_CMD(state) ((state) & FD_STATE_FORMAT)
 366
 367 struct fdctrl_t {
 368     fdctrl_t *fdctrl;
 369     /* Controler's identification */
 370     uint8_t version;
 371     /* HW */
 372     int irq_lvl;
 373     int dma_chann;
 374     uint32_t io_base;
 375     /* Controler state */
 376     QEMUTimer *result_timer;
 377     uint8_t state;
 378     uint8_t dma_en;
 379     uint8_t cur_drv;
 380     uint8_t bootsel;
 381     /* Command FIFO */
 382     uint8_t fifo[FD_SECTOR_LEN];
 383     uint32_t data_pos;
 384     uint32_t data_len;
 385     uint8_t data_state;
 386     uint8_t data_dir;
 387     uint8_t int_status;
 388     /* States kept only to be returned back */
 389     /* Timers state */
 390     uint8_t timer0;
 391     uint8_t timer1;
 392     /* precompensation */
 393     uint8_t precomp_trk;
 394     uint8_t config;
 395     uint8_t lock;
 396     /* Power down config (also with status regB access mode */
 397     uint8_t pwrd;
 398     /* Floppy drives */
 399     fdrive_t drives[2];
 400 };
 401
 402 static uint32_t fdctrl_read (void *opaque, uint32_t reg)
 403 {
 404     fdctrl_t *fdctrl = opaque;
 405     uint32_t retval;
 406
 407     switch (reg & 0x07) {
 408     case 0x01:
 409         retval = fdctrl_read_statusB(fdctrl);
 410         break;
 411     case 0x02:
 412         retval = fdctrl_read_dor(fdctrl);
 413         break;
 414     case 0x03:
 415         retval = fdctrl_read_tape(fdctrl);
 416         break;
 417     case 0x04:
 418         retval = fdctrl_read_main_status(fdctrl);
 419         break;
 420     case 0x05:
 421         retval = fdctrl_read_data(fdctrl);
 422         break;
 423     case 0x07:
 424         retval = fdctrl_read_dir(fdctrl);
 425         break;
 426     default:
 427         retval = (uint32_t)(-1);
 428         break;
 429     }
 430     FLOPPY_DPRINTF("read reg%d: 0x%02x\n", reg & 7, retval);
 431
 432     return retval;
 433 }
 434
 435 static void fdctrl_write (void *opaque, uint32_t reg, uint32_t value)
 436 {
 437     fdctrl_t *fdctrl = opaque;
 438
 439     FLOPPY_DPRINTF("write reg%d: 0x%02x\n", reg & 7, value);
 440
 441     switch (reg & 0x07) {
 442     case 0x02:
 443         fdctrl_write_dor(fdctrl, value);
 444         break;
 445     case 0x03:
 446         fdctrl_write_tape(fdctrl, value);
 447         break;
 448     case 0x04:
 449         fdctrl_write_rate(fdctrl, value);
 450         break;
 451     case 0x05:
 452         fdctrl_write_data(fdctrl, value);
 453         break;
 454     default:
 455         break;
 456     }
 457 }
 458
 459 static void fd_change_cb (void *opaque)
 460 {
 461     fdrive_t *drv = opaque;
 462
 463     FLOPPY_DPRINTF("disk change\n");
 464     fd_revalidate(drv);
 465 #if 0
 466     fd_recalibrate(drv);
 467     fdctrl_reset_fifo(drv->fdctrl);
 468     fdctrl_raise_irq(drv->fdctrl, 0x20);
 469 #endif
 470 }
 471
 472 fdctrl_t *fdctrl_init (int irq_lvl, int dma_chann, int mem_mapped,
 473                        uint32_t io_base,
 474                        BlockDriverState **fds)
 475 {
 476     fdctrl_t *fdctrl;
 477 //    int io_mem;
 478     int i;
 479
 480     FLOPPY_DPRINTF("init controler\n");
 481     fdctrl = qemu_mallocz(sizeof(fdctrl_t));
 482     if (!fdctrl)
 483         return NULL;
 484     fdctrl->result_timer = qemu_new_timer(vm_clock,
 485                                           fdctrl_result_timer, fdctrl);
 486
 487     fdctrl->version = 0x90; /* Intel 82078 controler */
 488     fdctrl->irq_lvl = irq_lvl;
 489     fdctrl->dma_chann = dma_chann;
 490     fdctrl->io_base = io_base;
 491     fdctrl->config = 0x60; /* Implicit seek, polling & FIFO enabled */
 492     if (fdctrl->dma_chann != -1) {
 493         fdctrl->dma_en = 1;
 494         DMA_register_channel(dma_chann, &fdctrl_transfer_handler, fdctrl);
 495     } else {
 496         fdctrl->dma_en = 0;
 497     }
 498     for (i = 0; i < 2; i++) {
 499         fd_init(&fdctrl->drives[i], fds[i]);
 500         if (fds[i]) {
 501             bdrv_set_change_cb(fds[i],
 502                                &fd_change_cb, &fdctrl->drives[i]);
 503         }
 504     }
 505     fdctrl_reset(fdctrl, 0);
 506     fdctrl->state = FD_CTRL_ACTIVE;
 507     if (mem_mapped) {
 508         FLOPPY_ERROR("memory mapped floppy not supported by now !\n");
 509 #if 0
 510         io_mem = cpu_register_io_memory(0, fdctrl_mem_read, fdctrl_mem_write);
 511         cpu_register_physical_memory(base, 0x08, io_mem);
 512 #endif
 513     } else {
 514         register_ioport_read(io_base + 0x01, 5, 1, &fdctrl_read, fdctrl);
 515         register_ioport_read(io_base + 0x07, 1, 1, &fdctrl_read, fdctrl);
 516         register_ioport_write(io_base + 0x01, 5, 1, &fdctrl_write, fdctrl);
 517         register_ioport_write(io_base + 0x07, 1, 1, &fdctrl_write, fdctrl);
 518     }
 519     for (i = 0; i < 2; i++) {
 520         fd_revalidate(&fdctrl->drives[i]);
 521     }
 522
 523     return fdctrl;
 524 }
 525
 526 /* XXX: may change if moved to bdrv */
 527 int fdctrl_get_drive_type(fdctrl_t *fdctrl, int drive_num)
 528 {
 529     return fdctrl->drives[drive_num].drive;
 530 }
 531
 532 /* Change IRQ state */
 533 static void fdctrl_reset_irq (fdctrl_t *fdctrl)
 534 {
 535     FLOPPY_DPRINTF("Reset interrupt\n");
 536     pic_set_irq(fdctrl->irq_lvl, 0);
 537     fdctrl->state &= ~FD_CTRL_INTR;
 538 }
 539
 540 static void fdctrl_raise_irq (fdctrl_t *fdctrl, uint8_t status)
 541 {
 542     if (~(fdctrl->state & FD_CTRL_INTR)) {
 543         pic_set_irq(fdctrl->irq_lvl, 1);
 544         fdctrl->state |= FD_CTRL_INTR;
 545     }
 546     FLOPPY_DPRINTF("Set interrupt status to 0x%02x\n", status);
 547     fdctrl->int_status = status;
 548 }
 549
 550 /* Reset controler */
 551 static void fdctrl_reset (fdctrl_t *fdctrl, int do_irq)
 552 {
 553     int i;
 554
 555     FLOPPY_DPRINTF("reset controler\n");
 556     fdctrl_reset_irq(fdctrl);
 557     /* Initialise controler */
 558     fdctrl->cur_drv = 0;
 559     /* FIFO state */
 560     fdctrl->data_pos = 0;
 561     fdctrl->data_len = 0;
 562     fdctrl->data_state = FD_STATE_CMD;
 563     fdctrl->data_dir = FD_DIR_WRITE;
 564     for (i = 0; i < MAX_FD; i++)
 565         fd_reset(&fdctrl->drives[i]);
 566     fdctrl_reset_fifo(fdctrl);
 567     if (do_irq)
 568         fdctrl_raise_irq(fdctrl, 0xc0);
 569 }
 570
 571 static inline fdrive_t *drv0 (fdctrl_t *fdctrl)
 572 {
 573     return &fdctrl->drives[fdctrl->bootsel];
 574 }
 575
 576 static inline fdrive_t *drv1 (fdctrl_t *fdctrl)
 577 {
 578     return &fdctrl->drives[1 - fdctrl->bootsel];
 579 }
 580
 581 static fdrive_t *get_cur_drv (fdctrl_t *fdctrl)
 582 {
 583     return fdctrl->cur_drv == 0 ? drv0(fdctrl) : drv1(fdctrl);
 584 }
 585
 586 /* Status B register : 0x01 (read-only) */
 587 static uint32_t fdctrl_read_statusB (fdctrl_t *fdctrl)
 588 {
 589     FLOPPY_DPRINTF("status register: 0x00\n");
 590     return 0;
 591 }
 592
 593 /* Digital output register : 0x02 */
 594 static uint32_t fdctrl_read_dor (fdctrl_t *fdctrl)
 595 {
 596     uint32_t retval = 0;
 597
 598     /* Drive motors state indicators */
 599     if (drv0(fdctrl)->drflags & FDRIVE_MOTOR_ON)
 600         retval |= 1 << 5;
 601     if (drv1(fdctrl)->drflags & FDRIVE_MOTOR_ON)
 602         retval |= 1 << 4;
 603     /* DMA enable */
 604     retval |= fdctrl->dma_en << 3;
 605     /* Reset indicator */
 606     retval |= (fdctrl->state & FD_CTRL_RESET) == 0 ? 0x04 : 0;
 607     /* Selected drive */
 608     retval |= fdctrl->cur_drv;
 609     FLOPPY_DPRINTF("digital output register: 0x%02x\n", retval);
 610
 611     return retval;
 612 }
 613
 614 static void fdctrl_write_dor (fdctrl_t *fdctrl, uint32_t value)
 615 {
 616     /* Reset mode */
 617     if (fdctrl->state & FD_CTRL_RESET) {
 618         if (!(value & 0x04)) {
 619             FLOPPY_DPRINTF("Floppy controler in RESET state !\n");
 620             return;
 621         }
 622     }
 623     FLOPPY_DPRINTF("digital output register set to 0x%02x\n", value);
 624     /* Drive motors state indicators */
 625     if (value & 0x20)
 626         fd_start(drv1(fdctrl));
 627     else
 628         fd_stop(drv1(fdctrl));
 629     if (value & 0x10)
 630         fd_start(drv0(fdctrl));
 631     else
 632         fd_stop(drv0(fdctrl));
 633     /* DMA enable */
 634 #if 0
 635     if (fdctrl->dma_chann != -1)
 636         fdctrl->dma_en = 1 - ((value >> 3) & 1);
 637 #endif
 638     /* Reset */
 639     if (!(value & 0x04)) {
 640         if (!(fdctrl->state & FD_CTRL_RESET)) {
 641             FLOPPY_DPRINTF("controler enter RESET state\n");
 642             fdctrl->state |= FD_CTRL_RESET;
 643         }
 644     } else {
 645         if (fdctrl->state & FD_CTRL_RESET) {
 646             FLOPPY_DPRINTF("controler out of RESET state\n");
 647             fdctrl_reset(fdctrl, 1);
 648             fdctrl->state &= ~(FD_CTRL_RESET | FD_CTRL_SLEEP);
 649         }
 650     }
 651     /* Selected drive */
 652     fdctrl->cur_drv = value & 1;
 653 }
 654
 655 /* Tape drive register : 0x03 */
 656 static uint32_t fdctrl_read_tape (fdctrl_t *fdctrl)
 657 {
 658     uint32_t retval = 0;
 659
 660     /* Disk boot selection indicator */
 661     retval |= fdctrl->bootsel << 2;
 662     /* Tape indicators: never allowed */
 663     FLOPPY_DPRINTF("tape drive register: 0x%02x\n", retval);
 664
 665     return retval;
 666 }
 667
 668 static void fdctrl_write_tape (fdctrl_t *fdctrl, uint32_t value)
 669 {
 670     /* Reset mode */
 671     if (fdctrl->state & FD_CTRL_RESET) {
 672         FLOPPY_DPRINTF("Floppy controler in RESET state !\n");
 673         return;
 674     }
 675     FLOPPY_DPRINTF("tape drive register set to 0x%02x\n", value);
 676     /* Disk boot selection indicator */
 677     fdctrl->bootsel = (value >> 2) & 1;
 678     /* Tape indicators: never allow */
 679 }
 680
 681 /* Main status register : 0x04 (read) */
 682 static uint32_t fdctrl_read_main_status (fdctrl_t *fdctrl)
 683 {
 684     uint32_t retval = 0;
 685
 686     fdctrl->state &= ~(FD_CTRL_SLEEP | FD_CTRL_RESET);
 687     if (!(fdctrl->state & FD_CTRL_BUSY)) {
 688         /* Data transfer allowed */
 689         retval |= 0x80;
 690         /* Data transfer direction indicator */
 691         if (fdctrl->data_dir == FD_DIR_READ)
 692             retval |= 0x40;
 693     }
 694     /* Should handle 0x20 for SPECIFY command */
 695     /* Command busy indicator */
 696     if (FD_STATE(fdctrl->data_state) == FD_STATE_DATA ||
 697         FD_STATE(fdctrl->data_state) == FD_STATE_STATUS)
 698         retval |= 0x10;
 699     FLOPPY_DPRINTF("main status register: 0x%02x\n", retval);
 700
 701     return retval;
 702 }
 703
 704 /* Data select rate register : 0x04 (write) */
 705 static void fdctrl_write_rate (fdctrl_t *fdctrl, uint32_t value)
 706 {
 707     /* Reset mode */
 708     if (fdctrl->state & FD_CTRL_RESET) {
 709             FLOPPY_DPRINTF("Floppy controler in RESET state !\n");
 710             return;
 711         }
 712     FLOPPY_DPRINTF("select rate register set to 0x%02x\n", value);
 713     /* Reset: autoclear */
 714     if (value & 0x80) {
 715         fdctrl->state |= FD_CTRL_RESET;
 716         fdctrl_reset(fdctrl, 1);
 717         fdctrl->state &= ~FD_CTRL_RESET;
 718     }
 719     if (value & 0x40) {
 720         fdctrl->state |= FD_CTRL_SLEEP;
 721         fdctrl_reset(fdctrl, 1);
 722     }
 723 //        fdctrl.precomp = (value >> 2) & 0x07;
 724 }
 725
 726 /* Digital input register : 0x07 (read-only) */
 727 static uint32_t fdctrl_read_dir (fdctrl_t *fdctrl)
 728 {
 729     uint32_t retval = 0;
 730
 731     if (drv0(fdctrl)->drflags & FDRIVE_REVALIDATE ||
 732         drv1(fdctrl)->drflags & FDRIVE_REVALIDATE)
 733         retval |= 0x80;
 734     if (retval != 0)
 735         FLOPPY_DPRINTF("Floppy digital input register: 0x%02x\n", retval);
 736     drv0(fdctrl)->drflags &= ~FDRIVE_REVALIDATE;
 737     drv1(fdctrl)->drflags &= ~FDRIVE_REVALIDATE;
 738
 739     return retval;
 740 }
 741
 742 /* FIFO state control */
 743 static void fdctrl_reset_fifo (fdctrl_t *fdctrl)
 744 {
 745     fdctrl->data_dir = FD_DIR_WRITE;
 746     fdctrl->data_pos = 0;
 747     FD_SET_STATE(fdctrl->data_state, FD_STATE_CMD);
 748 }
 749
 750 /* Set FIFO status for the host to read */
 751 static void fdctrl_set_fifo (fdctrl_t *fdctrl, int fifo_len, int do_irq)
 752 {
 753     fdctrl->data_dir = FD_DIR_READ;
 754     fdctrl->data_len = fifo_len;
 755     fdctrl->data_pos = 0;
 756     FD_SET_STATE(fdctrl->data_state, FD_STATE_STATUS);
 757     if (do_irq)
 758         fdctrl_raise_irq(fdctrl, 0x00);
 759 }
 760
 761 /* Set an error: unimplemented/unknown command */
 762 static void fdctrl_unimplemented (fdctrl_t *fdctrl)
 763 {
 764 #if 0
 765     fdrive_t *cur_drv;
 766
 767     cur_drv = get_cur_drv(fdctrl);
 768     fdctrl->fifo[0] = 0x60 | (cur_drv->head << 1) | fdctrl->cur_drv;
 769     fdctrl->fifo[1] = 0x00;
 770     fdctrl->fifo[2] = 0x00;
 771     fdctrl_set_fifo(fdctrl, 3, 1);
 772 #else
 773     //    fdctrl_reset_fifo(fdctrl);
 774     fdctrl->fifo[0] = 0x80;
 775     fdctrl_set_fifo(fdctrl, 1, 0);
 776 #endif
 777 }
 778
 779 /* Callback for transfer end (stop or abort) */
 780 static void fdctrl_stop_transfer (fdctrl_t *fdctrl, uint8_t status0,
 781                                   uint8_t status1, uint8_t status2)
 782 {
 783     fdrive_t *cur_drv;
 784
 785     cur_drv = get_cur_drv(fdctrl);
 786     FLOPPY_DPRINTF("transfer status: %02x %02x %02x (%02x)\n",
 787                    status0, status1, status2,
 788                    status0 | (cur_drv->head << 1) | fdctrl->cur_drv);
 789     fdctrl->fifo[0] = status0 | (cur_drv->head << 1) | fdctrl->cur_drv;
 790     fdctrl->fifo[1] = status1;
 791     fdctrl->fifo[2] = status2;
 792     fdctrl->fifo[3] = cur_drv->track;
 793     fdctrl->fifo[4] = cur_drv->head;
 794     fdctrl->fifo[5] = cur_drv->sect;
 795     fdctrl->fifo[6] = FD_SECTOR_SC;
 796     fdctrl->data_dir = FD_DIR_READ;
 797     if (fdctrl->state & FD_CTRL_BUSY) {
 798         DMA_release_DREQ(fdctrl->dma_chann);
 799         fdctrl->state &= ~FD_CTRL_BUSY;
 800     }
 801     fdctrl_set_fifo(fdctrl, 7, 1);
 802 }
 803
 804 /* Prepare a data transfer (either DMA or FIFO) */
 805 static void fdctrl_start_transfer (fdctrl_t *fdctrl, int direction)
 806 {
 807     fdrive_t *cur_drv;
 808     uint8_t kh, kt, ks;
 809     int did_seek;
 810
 811     fdctrl->cur_drv = fdctrl->fifo[1] & 1;
 812     cur_drv = get_cur_drv(fdctrl);
 813     kt = fdctrl->fifo[2];
 814     kh = fdctrl->fifo[3];
 815     ks = fdctrl->fifo[4];
 816     FLOPPY_DPRINTF("Start tranfert at %d %d %02x %02x (%d)\n",
 817                    fdctrl->cur_drv, kh, kt, ks,
 818                    _fd_sector(kh, kt, ks, cur_drv->last_sect));
 819     did_seek = 0;
 820     switch (fd_seek(cur_drv, kh, kt, ks, fdctrl->config & 0x40)) {
 821     case 2:
 822         /* sect too big */
 823         fdctrl_stop_transfer(fdctrl, 0x40, 0x00, 0x00);
 824         fdctrl->fifo[3] = kt;
 825         fdctrl->fifo[4] = kh;
 826         fdctrl->fifo[5] = ks;
 827         return;
 828     case 3:
 829         /* track too big */
 830         fdctrl_stop_transfer(fdctrl, 0x40, 0x80, 0x00);
 831         fdctrl->fifo[3] = kt;
 832         fdctrl->fifo[4] = kh;
 833         fdctrl->fifo[5] = ks;
 834         return;
 835     case 4:
 836         /* No seek enabled */
 837         fdctrl_stop_transfer(fdctrl, 0x40, 0x00, 0x00);
 838         fdctrl->fifo[3] = kt;
 839         fdctrl->fifo[4] = kh;
 840         fdctrl->fifo[5] = ks;
 841         return;
 842     case 1:
 843         did_seek = 1;
 844         break;
 845     default:
 846         break;
 847     }
 848     /* Set the FIFO state */
 849     fdctrl->data_dir = direction;
 850     fdctrl->data_pos = 0;
 851     FD_SET_STATE(fdctrl->data_state, FD_STATE_DATA); /* FIFO ready for data */
 852     if (fdctrl->fifo[0] & 0x80)
 853         fdctrl->data_state |= FD_STATE_MULTI;
 854     else
 855         fdctrl->data_state &= ~FD_STATE_MULTI;
 856     if (did_seek)
 857         fdctrl->data_state |= FD_STATE_SEEK;
 858     else
 859         fdctrl->data_state &= ~FD_STATE_SEEK;
 860     if (fdctrl->fifo[5] == 00) {
 861         fdctrl->data_len = fdctrl->fifo[8];
 862     } else {
 863         int tmp;
 864         fdctrl->data_len = 128 << fdctrl->fifo[5];
 865         tmp = (cur_drv->last_sect - ks + 1);
 866         if (fdctrl->fifo[0] & 0x80)
 867             tmp += cur_drv->last_sect;
 868         fdctrl->data_len *= tmp;
 869     }
 870     if (fdctrl->dma_en) {
 871         int dma_mode;
 872         /* DMA transfer are enabled. Check if DMA channel is well programmed */
 873         dma_mode = DMA_get_channel_mode(fdctrl->dma_chann);
 874         dma_mode = (dma_mode >> 2) & 3;
 875         FLOPPY_DPRINTF("dma_mode=%d direction=%d (%d - %d)\n",
 876                        dma_mode, direction,
 877                        (128 << fdctrl->fifo[5]) *
 878                        (cur_drv->last_sect - ks + 1), fdctrl->data_len);
 879         if (((direction == FD_DIR_SCANE || direction == FD_DIR_SCANL ||
 880               direction == FD_DIR_SCANH) && dma_mode == 0) ||
 881             (direction == FD_DIR_WRITE && dma_mode == 2) ||
 882             (direction == FD_DIR_READ && dma_mode == 1)) {
 883             /* No access is allowed until DMA transfer has completed */
 884             fdctrl->state |= FD_CTRL_BUSY;
 885             /* Now, we just have to wait for the DMA controler to
 886              * recall us...
 887              */
 888             DMA_hold_DREQ(fdctrl->dma_chann);
 889             DMA_schedule(fdctrl->dma_chann);
 890             return;
 891         } else {
 892             FLOPPY_ERROR("dma_mode=%d direction=%d\n", dma_mode, direction);
 893         }
 894     }
 895     FLOPPY_DPRINTF("start non-DMA transfer\n");
 896     /* IO based transfer: calculate len */
 897     fdctrl_raise_irq(fdctrl, 0x00);
 898
 899     return;
 900 }
 901
 902 /* Prepare a transfer of deleted data */
 903 static void fdctrl_start_transfer_del (fdctrl_t *fdctrl, int direction)
 904 {
 905     /* We don't handle deleted data,
 906      * so we don't return *ANYTHING*
 907      */
 908     fdctrl_stop_transfer(fdctrl, 0x60, 0x00, 0x00);
 909 }
 910
 911 /* handlers for DMA transfers */
 912 static int fdctrl_transfer_handler (void *opaque, target_ulong addr, int size)
 913 {
 914     fdctrl_t *fdctrl;
 915     fdrive_t *cur_drv;
 916     int len, start_pos, rel_pos;
 917     uint8_t status0 = 0x00, status1 = 0x00, status2 = 0x00;
 918
 919     fdctrl = opaque;
 920     if (!(fdctrl->state & FD_CTRL_BUSY)) {
 921         FLOPPY_DPRINTF("Not in DMA transfer mode !\n");
 922         return 0;
 923     }
 924     cur_drv = get_cur_drv(fdctrl);
 925     if (fdctrl->data_dir == FD_DIR_SCANE || fdctrl->data_dir == FD_DIR_SCANL ||
 926         fdctrl->data_dir == FD_DIR_SCANH)
 927         status2 = 0x04;
 928     if (size > fdctrl->data_len)
 929         size = fdctrl->data_len;
 930             if (cur_drv->bs == NULL) {
 931         if (fdctrl->data_dir == FD_DIR_WRITE)
 932             fdctrl_stop_transfer(fdctrl, 0x60, 0x00, 0x00);
 933         else
 934             fdctrl_stop_transfer(fdctrl, 0x40, 0x00, 0x00);
 935         len = 0;
 936                 goto transfer_error;
 937             }
 938     rel_pos = fdctrl->data_pos % FD_SECTOR_LEN;
 939     for (start_pos = fdctrl->data_pos; fdctrl->data_pos < size;) {
 940         len = size - fdctrl->data_pos;
 941         if (len + rel_pos > FD_SECTOR_LEN)
 942             len = FD_SECTOR_LEN - rel_pos;
 943         FLOPPY_DPRINTF("copy %d bytes (%d %d %d) %d pos %d %02x %02x "
 944                        "(%d-0x%08x 0x%08x)\n", len, size, fdctrl->data_pos,
 945                        fdctrl->data_len, fdctrl->cur_drv, cur_drv->head,
 946                        cur_drv->track, cur_drv->sect, fd_sector(cur_drv),
 947                        fd_sector(cur_drv) * 512, addr);
 948         if (fdctrl->data_dir != FD_DIR_WRITE ||
 949             len < FD_SECTOR_LEN || rel_pos != 0) {
 950             /* READ & SCAN commands and realign to a sector for WRITE */
 951             if (bdrv_read(cur_drv->bs, fd_sector(cur_drv),
 952                           fdctrl->fifo, 1) < 0) {
 953                 FLOPPY_DPRINTF("Floppy: error getting sector %d\n",
 954                                fd_sector(cur_drv));
 955                 /* Sure, image size is too small... */
 956                 memset(fdctrl->fifo, 0, FD_SECTOR_LEN);
 957             }
 958                 }
 959         switch (fdctrl->data_dir) {
 960         case FD_DIR_READ:
 961             /* READ commands */
 962             cpu_physical_memory_write(addr + fdctrl->data_pos,
 963                                       fdctrl->fifo + rel_pos, len);
 964             break;
 965         case FD_DIR_WRITE:
 966             /* WRITE commands */
 967             cpu_physical_memory_read(addr + fdctrl->data_pos,
 968                                      fdctrl->fifo + rel_pos, len);
 969             if (bdrv_write(cur_drv->bs, fd_sector(cur_drv),
 970                            fdctrl->fifo, 1) < 0) {
 971                 FLOPPY_ERROR("writting sector %d\n", fd_sector(cur_drv));
 972                 fdctrl_stop_transfer(fdctrl, 0x60, 0x00, 0x00);
 973                 goto transfer_error;
 974                 }
 975             break;
 976         default:
 977             /* SCAN commands */
 978             {
 979                 uint8_t tmpbuf[FD_SECTOR_LEN];
 980                 int ret;
 981                 cpu_physical_memory_read(addr + fdctrl->data_pos,
 982                                          tmpbuf, len);
 983                 ret = memcmp(tmpbuf, fdctrl->fifo + rel_pos, len);
 984                 if (ret == 0) {
 985                     status2 = 0x08;
 986                     goto end_transfer;
 987                 }
 988                 if ((ret < 0 && fdctrl->data_dir == FD_DIR_SCANL) ||
 989                     (ret > 0 && fdctrl->data_dir == FD_DIR_SCANH)) {
 990                     status2 = 0x00;
 991                     goto end_transfer;
 992                 }
 993             }
 994             break;
 995         }
 996         fdctrl->data_pos += len;
 997         rel_pos = fdctrl->data_pos % FD_SECTOR_LEN;
 998         if (rel_pos == 0) {
 999             /* Seek to next sector */
1000             cur_drv->sect++;
1001             FLOPPY_DPRINTF("seek to next sector (%d %02x %02x => %d) (%d)\n",
1002                            cur_drv->head, cur_drv->track, cur_drv->sect,
1003                            fd_sector(cur_drv),
1004                            fdctrl->data_pos - size);
1005             if (cur_drv->sect > cur_drv->last_sect) {
1006                 cur_drv->sect = 1;
1007                 if (FD_MULTI_TRACK(fdctrl->data_state)) {
1008                     if (cur_drv->head == 0 &&
1009                         (cur_drv->flags & FDISK_DBL_SIDES) != 0) {
1010                     cur_drv->head = 1;
1011                 } else {
1012                     cur_drv->head = 0;
1013                         cur_drv->track++;
1014                         if ((cur_drv->flags & FDISK_DBL_SIDES) == 0)
1015                             break;
1016                 }
1017             } else {
1018                     cur_drv->track++;
1019                     break;
1020                 }
1021                 FLOPPY_DPRINTF("seek to next track (%d %02x %02x => %d)\n",
1022                                cur_drv->head, cur_drv->track,
1023                                cur_drv->sect, fd_sector(cur_drv));
1024             }
1025         }
1026     }
1027 end_transfer:
1028     len = fdctrl->data_pos - start_pos;
1029     FLOPPY_DPRINTF("end transfer %d %d %d\n",
1030                    fdctrl->data_pos, len, fdctrl->data_len);
1031     if (fdctrl->data_dir == FD_DIR_SCANE ||
1032         fdctrl->data_dir == FD_DIR_SCANL ||
1033         fdctrl->data_dir == FD_DIR_SCANH)
1034         status2 = 0x08;
1035     if (FD_DID_SEEK(fdctrl->data_state))
1036         status0 |= 0x20;
1037     fdctrl->data_len -= len;
1038     //    if (fdctrl->data_len == 0)
1039         fdctrl_stop_transfer(fdctrl, status0, status1, status2);
1040 transfer_error:
1041
1042     return len;
1043 }
1044
1045 /* Data register : 0x05 */
1046 static uint32_t fdctrl_read_data (fdctrl_t *fdctrl)
1047 {
1048     fdrive_t *cur_drv;
1049     uint32_t retval = 0;
1050     int pos, len;
1051
1052     cur_drv = get_cur_drv(fdctrl);
1053     fdctrl->state &= ~FD_CTRL_SLEEP;
1054     if (FD_STATE(fdctrl->data_state) == FD_STATE_CMD) {
1055         FLOPPY_ERROR("can't read data in CMD state\n");
1056         return 0;
1057     }
1058     pos = fdctrl->data_pos;
1059     if (FD_STATE(fdctrl->data_state) == FD_STATE_DATA) {
1060         pos %= FD_SECTOR_LEN;
1061         if (pos == 0) {
1062             len = fdctrl->data_len - fdctrl->data_pos;
1063             if (len > FD_SECTOR_LEN)
1064                 len = FD_SECTOR_LEN;
1065             bdrv_read(cur_drv->bs, fd_sector(cur_drv),
1066                       fdctrl->fifo, len);
1067         }
1068     }
1069     retval = fdctrl->fifo[pos];
1070     if (++fdctrl->data_pos == fdctrl->data_len) {
1071         fdctrl->data_pos = 0;
1072         /* Switch from transfert mode to status mode
1073          * then from status mode to command mode
1074          */
1075         if (FD_STATE(fdctrl->data_state) == FD_STATE_DATA) {
1076             fdctrl_stop_transfer(fdctrl, 0x20, 0x00, 0x00);
1077         } else {
1078             fdctrl_reset_fifo(fdctrl);
1079             fdctrl_reset_irq(fdctrl);
1080         }
1081     }
1082     FLOPPY_DPRINTF("data register: 0x%02x\n", retval);
1083
1084     return retval;
1085 }
1086
1087 static void fdctrl_format_sector (fdctrl_t *fdctrl)
1088 {
1089     fdrive_t *cur_drv;
1090     uint8_t kh, kt, ks;
1091     int did_seek;
1092
1093     fdctrl->cur_drv = fdctrl->fifo[1] & 1;
1094     cur_drv = get_cur_drv(fdctrl);
1095     kt = fdctrl->fifo[6];
1096     kh = fdctrl->fifo[7];
1097     ks = fdctrl->fifo[8];
1098     FLOPPY_DPRINTF("format sector at %d %d %02x %02x (%d)\n",
1099                    fdctrl->cur_drv, kh, kt, ks,
1100                    _fd_sector(kh, kt, ks, cur_drv->last_sect));
1101     did_seek = 0;
1102     switch (fd_seek(cur_drv, kh, kt, ks, fdctrl->config & 0x40)) {
1103     case 2:
1104         /* sect too big */
1105         fdctrl_stop_transfer(fdctrl, 0x40, 0x00, 0x00);
1106         fdctrl->fifo[3] = kt;
1107         fdctrl->fifo[4] = kh;
1108         fdctrl->fifo[5] = ks;
1109         return;
1110     case 3:
1111         /* track too big */
1112         fdctrl_stop_transfer(fdctrl, 0x40, 0x80, 0x00);
1113         fdctrl->fifo[3] = kt;
1114         fdctrl->fifo[4] = kh;
1115         fdctrl->fifo[5] = ks;
1116         return;
1117     case 4:
1118         /* No seek enabled */
1119         fdctrl_stop_transfer(fdctrl, 0x40, 0x00, 0x00);
1120         fdctrl->fifo[3] = kt;
1121         fdctrl->fifo[4] = kh;
1122         fdctrl->fifo[5] = ks;
1123         return;
1124     case 1:
1125         did_seek = 1;
1126         fdctrl->data_state |= FD_STATE_SEEK;
1127         break;
1128     default:
1129         break;
1130     }
1131     memset(fdctrl->fifo, 0, FD_SECTOR_LEN);
1132     if (cur_drv->bs == NULL ||
1133         bdrv_write(cur_drv->bs, fd_sector(cur_drv), fdctrl->fifo, 1) < 0) {
1134         FLOPPY_ERROR("formating sector %d\n", fd_sector(cur_drv));
1135         fdctrl_stop_transfer(fdctrl, 0x60, 0x00, 0x00);
1136     } else {
1137         if (cur_drv->sect == cur_drv->last_sect) {
1138             fdctrl->data_state &= ~FD_STATE_FORMAT;
1139             /* Last sector done */
1140             if (FD_DID_SEEK(fdctrl->data_state))
1141                 fdctrl_stop_transfer(fdctrl, 0x20, 0x00, 0x00);
1142             else
1143                 fdctrl_stop_transfer(fdctrl, 0x00, 0x00, 0x00);
1144         } else {
1145             /* More to do */
1146             fdctrl->data_pos = 0;
1147             fdctrl->data_len = 4;
1148         }
1149     }
1150 }
1151
1152 static void fdctrl_write_data (fdctrl_t *fdctrl, uint32_t value)
1153 {
1154     fdrive_t *cur_drv;
1155
1156     cur_drv = get_cur_drv(fdctrl);
1157     /* Reset mode */
1158     if (fdctrl->state & FD_CTRL_RESET) {
1159         FLOPPY_DPRINTF("Floppy controler in RESET state !\n");
1160         return;
1161     }
1162     fdctrl->state &= ~FD_CTRL_SLEEP;
1163     if (FD_STATE(fdctrl->data_state) == FD_STATE_STATUS) {
1164         FLOPPY_ERROR("can't write data in status mode\n");
1165         return;
1166     }
1167     /* Is it write command time ? */
1168     if (FD_STATE(fdctrl->data_state) == FD_STATE_DATA) {
1169         /* FIFO data write */
1170         fdctrl->fifo[fdctrl->data_pos++] = value;
1171         if (fdctrl->data_pos % FD_SECTOR_LEN == (FD_SECTOR_LEN - 1) ||
1172             fdctrl->data_pos == fdctrl->data_len) {
1173             bdrv_write(cur_drv->bs, fd_sector(cur_drv),
1174                        fdctrl->fifo, FD_SECTOR_LEN);
1175         }
1176         /* Switch from transfert mode to status mode
1177          * then from status mode to command mode
1178          */
1179         if (FD_STATE(fdctrl->data_state) == FD_STATE_DATA)
1180             fdctrl_stop_transfer(fdctrl, 0x20, 0x00, 0x00);
1181         return;
1182     }
1183     if (fdctrl->data_pos == 0) {
1184         /* Command */
1185         switch (value & 0x5F) {
1186         case 0x46:
1187             /* READ variants */
1188             FLOPPY_DPRINTF("READ command\n");
1189             /* 8 parameters cmd */
1190             fdctrl->data_len = 9;
1191             goto enqueue;
1192         case 0x4C:
1193             /* READ_DELETED variants */
1194             FLOPPY_DPRINTF("READ_DELETED command\n");
1195             /* 8 parameters cmd */
1196             fdctrl->data_len = 9;
1197             goto enqueue;
1198         case 0x50:
1199             /* SCAN_EQUAL variants */
1200             FLOPPY_DPRINTF("SCAN_EQUAL command\n");
1201             /* 8 parameters cmd */
1202             fdctrl->data_len = 9;
1203             goto enqueue;
1204         case 0x56:
1205             /* VERIFY variants */
1206             FLOPPY_DPRINTF("VERIFY command\n");
1207             /* 8 parameters cmd */
1208             fdctrl->data_len = 9;
1209             goto enqueue;
1210         case 0x59:
1211             /* SCAN_LOW_OR_EQUAL variants */
1212             FLOPPY_DPRINTF("SCAN_LOW_OR_EQUAL command\n");
1213             /* 8 parameters cmd */
1214             fdctrl->data_len = 9;
1215             goto enqueue;
1216         case 0x5D:
1217             /* SCAN_HIGH_OR_EQUAL variants */
1218             FLOPPY_DPRINTF("SCAN_HIGH_OR_EQUAL command\n");
1219             /* 8 parameters cmd */
1220             fdctrl->data_len = 9;
1221             goto enqueue;
1222         default:
1223             break;
1224         }
1225         switch (value & 0x7F) {
1226         case 0x45:
1227             /* WRITE variants */
1228             FLOPPY_DPRINTF("WRITE command\n");
1229             /* 8 parameters cmd */
1230             fdctrl->data_len = 9;
1231             goto enqueue;
1232         case 0x49:
1233             /* WRITE_DELETED variants */
1234             FLOPPY_DPRINTF("WRITE_DELETED command\n");
1235             /* 8 parameters cmd */
1236             fdctrl->data_len = 9;
1237             goto enqueue;
1238         default:
1239             break;
1240         }
1241         switch (value) {
1242         case 0x03:
1243             /* SPECIFY */
1244             FLOPPY_DPRINTF("SPECIFY command\n");
1245             /* 1 parameter cmd */
1246             fdctrl->data_len = 3;
1247             goto enqueue;
1248         case 0x04:
1249             /* SENSE_DRIVE_STATUS */
1250             FLOPPY_DPRINTF("SENSE_DRIVE_STATUS command\n");
1251             /* 1 parameter cmd */
1252             fdctrl->data_len = 2;
1253             goto enqueue;
1254         case 0x07:
1255             /* RECALIBRATE */
1256             FLOPPY_DPRINTF("RECALIBRATE command\n");
1257             /* 1 parameter cmd */
1258             fdctrl->data_len = 2;
1259             goto enqueue;
1260         case 0x08:
1261             /* SENSE_INTERRUPT_STATUS */
1262             FLOPPY_DPRINTF("SENSE_INTERRUPT_STATUS command (%02x)\n",
1263                            fdctrl->int_status);
1264             /* No parameters cmd: returns status if no interrupt */
1265             fdctrl->fifo[0] =
1266                 fdctrl->int_status | (cur_drv->head << 2) | fdctrl->cur_drv;
1267             fdctrl->fifo[1] = cur_drv->track;
1268             fdctrl_set_fifo(fdctrl, 2, 0);
1269             fdctrl_reset_irq(fdctrl);
1270             fdctrl->int_status = 0xC0;
1271             return;
1272         case 0x0E:
1273             /* DUMPREG */
1274             FLOPPY_DPRINTF("DUMPREG command\n");
1275             /* Drives position */
1276             fdctrl->fifo[0] = drv0(fdctrl)->track;
1277             fdctrl->fifo[1] = drv1(fdctrl)->track;
1278             fdctrl->fifo[2] = 0;
1279             fdctrl->fifo[3] = 0;
1280             /* timers */
1281             fdctrl->fifo[4] = fdctrl->timer0;
1282             fdctrl->fifo[5] = (fdctrl->timer1 << 1) | fdctrl->dma_en;
1283             fdctrl->fifo[6] = cur_drv->last_sect;
1284             fdctrl->fifo[7] = (fdctrl->lock << 7) |
1285                     (cur_drv->perpendicular << 2);
1286             fdctrl->fifo[8] = fdctrl->config;
1287             fdctrl->fifo[9] = fdctrl->precomp_trk;
1288             fdctrl_set_fifo(fdctrl, 10, 0);
1289             return;
1290         case 0x0F:
1291             /* SEEK */
1292             FLOPPY_DPRINTF("SEEK command\n");
1293             /* 2 parameters cmd */
1294             fdctrl->data_len = 3;
1295             goto enqueue;
1296         case 0x10:
1297             /* VERSION */
1298             FLOPPY_DPRINTF("VERSION command\n");
1299             /* No parameters cmd */
1300             /* Controler's version */
1301             fdctrl->fifo[0] = fdctrl->version;
1302             fdctrl_set_fifo(fdctrl, 1, 1);
1303             return;
1304         case 0x12:
1305             /* PERPENDICULAR_MODE */
1306             FLOPPY_DPRINTF("PERPENDICULAR_MODE command\n");
1307             /* 1 parameter cmd */
1308             fdctrl->data_len = 2;
1309             goto enqueue;
1310         case 0x13:
1311             /* CONFIGURE */
1312             FLOPPY_DPRINTF("CONFIGURE command\n");
1313             /* 3 parameters cmd */
1314             fdctrl->data_len = 4;
1315             goto enqueue;
1316         case 0x14:
1317             /* UNLOCK */
1318             FLOPPY_DPRINTF("UNLOCK command\n");
1319             /* No parameters cmd */
1320             fdctrl->lock = 0;
1321             fdctrl->fifo[0] = 0;
1322             fdctrl_set_fifo(fdctrl, 1, 0);
1323             return;
1324         case 0x17:
1325             /* POWERDOWN_MODE */
1326             FLOPPY_DPRINTF("POWERDOWN_MODE command\n");
1327             /* 2 parameters cmd */
1328             fdctrl->data_len = 3;
1329             goto enqueue;
1330         case 0x18:
1331             /* PART_ID */
1332             FLOPPY_DPRINTF("PART_ID command\n");
1333             /* No parameters cmd */
1334             fdctrl->fifo[0] = 0x41; /* Stepping 1 */
1335             fdctrl_set_fifo(fdctrl, 1, 0);
1336             return;
1337         case 0x2C:
1338             /* SAVE */
1339             FLOPPY_DPRINTF("SAVE command\n");
1340             /* No parameters cmd */
1341             fdctrl->fifo[0] = 0;
1342             fdctrl->fifo[1] = 0;
1343             /* Drives position */
1344             fdctrl->fifo[2] = drv0(fdctrl)->track;
1345             fdctrl->fifo[3] = drv1(fdctrl)->track;
1346             fdctrl->fifo[4] = 0;
1347             fdctrl->fifo[5] = 0;
1348             /* timers */
1349             fdctrl->fifo[6] = fdctrl->timer0;
1350             fdctrl->fifo[7] = fdctrl->timer1;
1351             fdctrl->fifo[8] = cur_drv->last_sect;
1352             fdctrl->fifo[9] = (fdctrl->lock << 7) |
1353                     (cur_drv->perpendicular << 2);
1354             fdctrl->fifo[10] = fdctrl->config;
1355             fdctrl->fifo[11] = fdctrl->precomp_trk;
1356             fdctrl->fifo[12] = fdctrl->pwrd;
1357             fdctrl->fifo[13] = 0;
1358             fdctrl->fifo[14] = 0;
1359             fdctrl_set_fifo(fdctrl, 15, 1);
1360             return;
1361         case 0x33:
1362             /* OPTION */
1363             FLOPPY_DPRINTF("OPTION command\n");
1364             /* 1 parameter cmd */
1365             fdctrl->data_len = 2;
1366             goto enqueue;
1367         case 0x42:
1368             /* READ_TRACK */
1369             FLOPPY_DPRINTF("READ_TRACK command\n");
1370             /* 8 parameters cmd */
1371             fdctrl->data_len = 9;
1372             goto enqueue;
1373         case 0x4A:
1374             /* READ_ID */
1375             FLOPPY_DPRINTF("READ_ID command\n");
1376             /* 1 parameter cmd */
1377             fdctrl->data_len = 2;
1378             goto enqueue;
1379         case 0x4C:
1380             /* RESTORE */
1381             FLOPPY_DPRINTF("RESTORE command\n");
1382             /* 17 parameters cmd */
1383             fdctrl->data_len = 18;
1384             goto enqueue;
1385         case 0x4D:
1386             /* FORMAT_TRACK */
1387             FLOPPY_DPRINTF("FORMAT_TRACK command\n");
1388             /* 5 parameters cmd */
1389             fdctrl->data_len = 6;
1390             goto enqueue;
1391         case 0x8E:
1392             /* DRIVE_SPECIFICATION_COMMAND */
1393             FLOPPY_DPRINTF("DRIVE_SPECIFICATION_COMMAND command\n");
1394             /* 5 parameters cmd */
1395             fdctrl->data_len = 6;
1396             goto enqueue;
1397         case 0x8F:
1398             /* RELATIVE_SEEK_OUT */
1399             FLOPPY_DPRINTF("RELATIVE_SEEK_OUT command\n");
1400             /* 2 parameters cmd */
1401             fdctrl->data_len = 3;
1402             goto enqueue;
1403         case 0x94:
1404             /* LOCK */
1405             FLOPPY_DPRINTF("LOCK command\n");
1406             /* No parameters cmd */
1407             fdctrl->lock = 1;
1408             fdctrl->fifo[0] = 0x10;
1409             fdctrl_set_fifo(fdctrl, 1, 1);
1410             return;
1411         case 0xCD:
1412             /* FORMAT_AND_WRITE */
1413             FLOPPY_DPRINTF("FORMAT_AND_WRITE command\n");
1414             /* 10 parameters cmd */
1415             fdctrl->data_len = 11;
1416             goto enqueue;
1417         case 0xCF:
1418             /* RELATIVE_SEEK_IN */
1419             FLOPPY_DPRINTF("RELATIVE_SEEK_IN command\n");
1420             /* 2 parameters cmd */
1421             fdctrl->data_len = 3;
1422             goto enqueue;
1423         default:
1424             /* Unknown command */
1425             FLOPPY_ERROR("unknown command: 0x%02x\n", value);
1426             fdctrl_unimplemented(fdctrl);
1427             return;
1428         }
1429     }
1430 enqueue:
1431     FLOPPY_DPRINTF("%s: %02x\n", __func__, value);
1432     fdctrl->fifo[fdctrl->data_pos] = value;
1433     if (++fdctrl->data_pos == fdctrl->data_len) {
1434         /* We now have all parameters
1435          * and will be able to treat the command
1436          */
1437         if (fdctrl->data_state & FD_STATE_FORMAT) {
1438             fdctrl_format_sector(fdctrl);
1439             return;
1440         }
1441         switch (fdctrl->fifo[0] & 0x1F) {
1442         case 0x06:
1443         {
1444             /* READ variants */
1445             FLOPPY_DPRINTF("treat READ command\n");
1446             fdctrl_start_transfer(fdctrl, FD_DIR_READ);
1447             return;
1448         }
1449         case 0x0C:
1450             /* READ_DELETED variants */
1451 //            FLOPPY_DPRINTF("treat READ_DELETED command\n");
1452             FLOPPY_ERROR("treat READ_DELETED command\n");
1453             fdctrl_start_transfer_del(fdctrl, FD_DIR_READ);
1454             return;
1455         case 0x16:
1456             /* VERIFY variants */
1457 //            FLOPPY_DPRINTF("treat VERIFY command\n");
1458             FLOPPY_ERROR("treat VERIFY command\n");
1459             fdctrl_stop_transfer(fdctrl, 0x20, 0x00, 0x00);
1460             return;
1461         case 0x10:
1462             /* SCAN_EQUAL variants */
1463 //            FLOPPY_DPRINTF("treat SCAN_EQUAL command\n");
1464             FLOPPY_ERROR("treat SCAN_EQUAL command\n");
1465             fdctrl_start_transfer(fdctrl, FD_DIR_SCANE);
1466             return;
1467         case 0x19:
1468             /* SCAN_LOW_OR_EQUAL variants */
1469 //            FLOPPY_DPRINTF("treat SCAN_LOW_OR_EQUAL command\n");
1470             FLOPPY_ERROR("treat SCAN_LOW_OR_EQUAL command\n");
1471             fdctrl_start_transfer(fdctrl, FD_DIR_SCANL);
1472             return;
1473         case 0x1D:
1474             /* SCAN_HIGH_OR_EQUAL variants */
1475 //            FLOPPY_DPRINTF("treat SCAN_HIGH_OR_EQUAL command\n");
1476             FLOPPY_ERROR("treat SCAN_HIGH_OR_EQUAL command\n");
1477             fdctrl_start_transfer(fdctrl, FD_DIR_SCANH);
1478             return;
1479         default:
1480             break;
1481         }
1482         switch (fdctrl->fifo[0] & 0x3F) {
1483         case 0x05:
1484             /* WRITE variants */
1485             FLOPPY_DPRINTF("treat WRITE command (%02x)\n", fdctrl->fifo[0]);
1486             fdctrl_start_transfer(fdctrl, FD_DIR_WRITE);
1487             return;
1488         case 0x09:
1489             /* WRITE_DELETED variants */
1490 //            FLOPPY_DPRINTF("treat WRITE_DELETED command\n");
1491             FLOPPY_ERROR("treat WRITE_DELETED command\n");
1492             fdctrl_start_transfer_del(fdctrl, FD_DIR_WRITE);
1493             return;
1494         default:
1495             break;
1496         }
1497         switch (fdctrl->fifo[0]) {
1498         case 0x03:
1499             /* SPECIFY */
1500             FLOPPY_DPRINTF("treat SPECIFY command\n");
1501             fdctrl->timer0 = (fdctrl->fifo[1] >> 4) & 0xF;
1502             fdctrl->timer1 = fdctrl->fifo[1] >> 1;
1503             fdctrl->dma_en = 1 - (fdctrl->fifo[2] & 1) ;
1504             /* No result back */
1505             fdctrl_reset_fifo(fdctrl);
1506             break;
1507         case 0x04:
1508             /* SENSE_DRIVE_STATUS */
1509             FLOPPY_DPRINTF("treat SENSE_DRIVE_STATUS command\n");
1510             fdctrl->cur_drv = fdctrl->fifo[1] & 1;
1511             cur_drv = get_cur_drv(fdctrl);
1512             cur_drv->head = (fdctrl->fifo[1] >> 2) & 1;
1513             /* 1 Byte status back */
1514             fdctrl->fifo[0] = (cur_drv->ro << 6) |
1515                 (cur_drv->track == 0 ? 0x10 : 0x00) |
1516                 fdctrl->cur_drv;
1517             fdctrl_set_fifo(fdctrl, 1, 0);
1518             break;
1519         case 0x07:
1520             /* RECALIBRATE */
1521             FLOPPY_DPRINTF("treat RECALIBRATE command\n");
1522             fdctrl->cur_drv = fdctrl->fifo[1] & 1;
1523             cur_drv = get_cur_drv(fdctrl);
1524             fd_recalibrate(cur_drv);
1525             fdctrl_reset_fifo(fdctrl);
1526             /* Raise Interrupt */
1527             fdctrl_raise_irq(fdctrl, 0x20);
1528             break;
1529         case 0x0F:
1530             /* SEEK */
1531             FLOPPY_DPRINTF("treat SEEK command\n");
1532             fdctrl->cur_drv = fdctrl->fifo[1] & 1;
1533             cur_drv = get_cur_drv(fdctrl);
1534             fd_start(cur_drv);
1535             if (fdctrl->fifo[2] <= cur_drv->track)
1536                 cur_drv->dir = 1;
1537             else
1538                 cur_drv->dir = 0;
1539             fdctrl_reset_fifo(fdctrl);
1540             if (fdctrl->fifo[2] > cur_drv->max_track) {
1541                 fdctrl_raise_irq(fdctrl, 0x60);
1542             } else {
1543                 cur_drv->track = fdctrl->fifo[2];
1544                 /* Raise Interrupt */
1545                 fdctrl_raise_irq(fdctrl, 0x20);
1546             }
1547             break;
1548         case 0x12:
1549             /* PERPENDICULAR_MODE */
1550             FLOPPY_DPRINTF("treat PERPENDICULAR_MODE command\n");
1551             if (fdctrl->fifo[1] & 0x80)
1552                 cur_drv->perpendicular = fdctrl->fifo[1] & 0x7;
1553             /* No result back */
1554             fdctrl_reset_fifo(fdctrl);
1555             break;
1556         case 0x13:
1557             /* CONFIGURE */
1558             FLOPPY_DPRINTF("treat CONFIGURE command\n");
1559             fdctrl->config = fdctrl->fifo[2];
1560             fdctrl->precomp_trk =  fdctrl->fifo[3];
1561             /* No result back */
1562             fdctrl_reset_fifo(fdctrl);
1563             break;
1564         case 0x17:
1565             /* POWERDOWN_MODE */
1566             FLOPPY_DPRINTF("treat POWERDOWN_MODE command\n");
1567             fdctrl->pwrd = fdctrl->fifo[1];
1568             fdctrl->fifo[0] = fdctrl->fifo[1];
1569             fdctrl_set_fifo(fdctrl, 1, 1);
1570             break;
1571         case 0x33:
1572             /* OPTION */
1573             FLOPPY_DPRINTF("treat OPTION command\n");
1574             /* No result back */
1575             fdctrl_reset_fifo(fdctrl);
1576             break;
1577         case 0x42:
1578             /* READ_TRACK */
1579 //            FLOPPY_DPRINTF("treat READ_TRACK command\n");
1580             FLOPPY_ERROR("treat READ_TRACK command\n");
1581             fdctrl_start_transfer(fdctrl, FD_DIR_READ);
1582             break;
1583         case 0x4A:
1584                 /* READ_ID */
1585             FLOPPY_DPRINTF("treat READ_ID command\n");
1586             /* XXX: should set main status register to busy */
1587             qemu_mod_timer(fdctrl->result_timer,
1588                            qemu_get_clock(vm_clock) + (ticks_per_sec / 50));
1589             break;
1590         case 0x4C:
1591             /* RESTORE */
1592             FLOPPY_DPRINTF("treat RESTORE command\n");
1593             /* Drives position */
1594             drv0(fdctrl)->track = fdctrl->fifo[3];
1595             drv1(fdctrl)->track = fdctrl->fifo[4];
1596             /* timers */
1597             fdctrl->timer0 = fdctrl->fifo[7];
1598             fdctrl->timer1 = fdctrl->fifo[8];
1599             cur_drv->last_sect = fdctrl->fifo[9];
1600             fdctrl->lock = fdctrl->fifo[10] >> 7;
1601             cur_drv->perpendicular = (fdctrl->fifo[10] >> 2) & 0xF;
1602             fdctrl->config = fdctrl->fifo[11];
1603             fdctrl->precomp_trk = fdctrl->fifo[12];
1604             fdctrl->pwrd = fdctrl->fifo[13];
1605             fdctrl_reset_fifo(fdctrl);
1606             break;
1607         case 0x4D:
1608             /* FORMAT_TRACK */
1609             FLOPPY_DPRINTF("treat FORMAT_TRACK command\n");
1610             fdctrl->cur_drv = fdctrl->fifo[1] & 1;
1611             cur_drv = get_cur_drv(fdctrl);
1612             fdctrl->data_state |= FD_STATE_FORMAT;
1613             if (fdctrl->fifo[0] & 0x80)
1614                 fdctrl->data_state |= FD_STATE_MULTI;
1615             else
1616                 fdctrl->data_state &= ~FD_STATE_MULTI;
1617             fdctrl->data_state &= ~FD_STATE_SEEK;
1618             cur_drv->bps =
1619                 fdctrl->fifo[2] > 7 ? 16384 : 128 << fdctrl->fifo[2];
1620 #if 0
1621             cur_drv->last_sect =
1622                 cur_drv->flags & FDISK_DBL_SIDES ? fdctrl->fifo[3] :
1623                 fdctrl->fifo[3] / 2;
1624 #else
1625             cur_drv->last_sect = fdctrl->fifo[3];
1626 #endif
1627             /* Bochs BIOS is buggy and don't send format informations
1628              * for each sector. So, pretend all's done right now...
1629              */
1630             fdctrl->data_state &= ~FD_STATE_FORMAT;
1631             fdctrl_stop_transfer(fdctrl, 0x00, 0x00, 0x00);
1632             break;
1633         case 0x8E:
1634             /* DRIVE_SPECIFICATION_COMMAND */
1635             FLOPPY_DPRINTF("treat DRIVE_SPECIFICATION_COMMAND command\n");
1636             if (fdctrl->fifo[fdctrl->data_pos - 1] & 0x80) {
1637                 /* Command parameters done */
1638                 if (fdctrl->fifo[fdctrl->data_pos - 1] & 0x40) {
1639                     fdctrl->fifo[0] = fdctrl->fifo[1];
1640                     fdctrl->fifo[2] = 0;
1641                     fdctrl->fifo[3] = 0;
1642                     fdctrl_set_fifo(fdctrl, 4, 1);
1643                 } else {
1644                     fdctrl_reset_fifo(fdctrl);
1645                 }
1646             } else if (fdctrl->data_len > 7) {
1647                 /* ERROR */
1648                 fdctrl->fifo[0] = 0x80 |
1649                     (cur_drv->head << 2) | fdctrl->cur_drv;
1650                 fdctrl_set_fifo(fdctrl, 1, 1);
1651             }
1652             break;
1653         case 0x8F:
1654             /* RELATIVE_SEEK_OUT */
1655             FLOPPY_DPRINTF("treat RELATIVE_SEEK_OUT command\n");
1656             fdctrl->cur_drv = fdctrl->fifo[1] & 1;
1657             cur_drv = get_cur_drv(fdctrl);
1658             fd_start(cur_drv);
1659                 cur_drv->dir = 0;
1660             if (fdctrl->fifo[2] + cur_drv->track >= cur_drv->max_track) {
1661                 cur_drv->track = cur_drv->max_track - 1;
1662             } else {
1663                 cur_drv->track += fdctrl->fifo[2];
1664             }
1665             fdctrl_reset_fifo(fdctrl);
1666             fdctrl_raise_irq(fdctrl, 0x20);
1667             break;
1668         case 0xCD:
1669             /* FORMAT_AND_WRITE */
1670 //                FLOPPY_DPRINTF("treat FORMAT_AND_WRITE command\n");
1671             FLOPPY_ERROR("treat FORMAT_AND_WRITE command\n");
1672             fdctrl_unimplemented(fdctrl);
1673             break;
1674         case 0xCF:
1675                 /* RELATIVE_SEEK_IN */
1676             FLOPPY_DPRINTF("treat RELATIVE_SEEK_IN command\n");
1677             fdctrl->cur_drv = fdctrl->fifo[1] & 1;
1678             cur_drv = get_cur_drv(fdctrl);
1679             fd_start(cur_drv);
1680                 cur_drv->dir = 1;
1681             if (fdctrl->fifo[2] > cur_drv->track) {
1682                 cur_drv->track = 0;
1683             } else {
1684                 cur_drv->track -= fdctrl->fifo[2];
1685             }
1686             fdctrl_reset_fifo(fdctrl);
1687             /* Raise Interrupt */
1688             fdctrl_raise_irq(fdctrl, 0x20);
1689             break;
1690         }
1691     }
1692 }
1693
1694 static void fdctrl_result_timer(void *opaque)
1695 {
1696     fdctrl_t *fdctrl = opaque;
1697     fdctrl_stop_transfer(fdctrl, 0x00, 0x00, 0x00);
1698 }