[26562] | 1 | /* $Id: DevFdc.cpp 103882 2024-03-18 09:38:17Z vboxsync $ */
|
---|
[1] | 2 | /** @file
|
---|
[62906] | 3 | * VBox storage devices - Floppy disk controller
|
---|
[1] | 4 | */
|
---|
| 5 |
|
---|
| 6 | /*
|
---|
[98103] | 7 | * Copyright (C) 2006-2023 Oracle and/or its affiliates.
|
---|
[1] | 8 | *
|
---|
[96407] | 9 | * This file is part of VirtualBox base platform packages, as
|
---|
| 10 | * available from https://www.virtualbox.org.
|
---|
| 11 | *
|
---|
| 12 | * This program is free software; you can redistribute it and/or
|
---|
| 13 | * modify it under the terms of the GNU General Public License
|
---|
| 14 | * as published by the Free Software Foundation, in version 3 of the
|
---|
| 15 | * License.
|
---|
| 16 | *
|
---|
| 17 | * This program is distributed in the hope that it will be useful, but
|
---|
| 18 | * WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
| 19 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
---|
| 20 | * General Public License for more details.
|
---|
| 21 | *
|
---|
| 22 | * You should have received a copy of the GNU General Public License
|
---|
| 23 | * along with this program; if not, see <https://www.gnu.org/licenses>.
|
---|
| 24 | *
|
---|
| 25 | * SPDX-License-Identifier: GPL-3.0-only
|
---|
[69498] | 26 | * --------------------------------------------------------------------
|
---|
[1] | 27 | *
|
---|
| 28 | * This code is based on:
|
---|
| 29 | *
|
---|
| 30 | * QEMU Floppy disk emulator (Intel 82078)
|
---|
| 31 | *
|
---|
| 32 | * Copyright (c) 2003 Jocelyn Mayer
|
---|
| 33 | *
|
---|
| 34 | * Permission is hereby granted, free of charge, to any person obtaining a copy
|
---|
| 35 | * of this software and associated documentation files (the "Software"), to deal
|
---|
| 36 | * in the Software without restriction, including without limitation the rights
|
---|
| 37 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
---|
| 38 | * copies of the Software, and to permit persons to whom the Software is
|
---|
| 39 | * furnished to do so, subject to the following conditions:
|
---|
| 40 | *
|
---|
| 41 | * The above copyright notice and this permission notice shall be included in
|
---|
| 42 | * all copies or substantial portions of the Software.
|
---|
| 43 | *
|
---|
| 44 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
---|
| 45 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
---|
| 46 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
---|
| 47 | * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
---|
| 48 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
---|
| 49 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
---|
| 50 | * THE SOFTWARE.
|
---|
| 51 | *
|
---|
| 52 | */
|
---|
| 53 |
|
---|
| 54 |
|
---|
[57358] | 55 | /*********************************************************************************************************************************
|
---|
| 56 | * Header Files *
|
---|
| 57 | *********************************************************************************************************************************/
|
---|
[1] | 58 | #define LOG_GROUP LOG_GROUP_DEV_FDC
|
---|
[35346] | 59 | #include <VBox/vmm/pdmdev.h>
|
---|
[59252] | 60 | #include <VBox/vmm/pdmstorageifs.h>
|
---|
[81799] | 61 | #include <VBox/AssertGuest.h>
|
---|
[1] | 62 | #include <iprt/assert.h>
|
---|
[25966] | 63 | #include <iprt/string.h>
|
---|
[1] | 64 | #include <iprt/uuid.h>
|
---|
| 65 |
|
---|
[35353] | 66 | #include "VBoxDD.h"
|
---|
[1] | 67 |
|
---|
[34294] | 68 |
|
---|
[82177] | 69 | /*********************************************************************************************************************************
|
---|
| 70 | * Defined Constants And Macros *
|
---|
| 71 | *********************************************************************************************************************************/
|
---|
| 72 | /** @name FDC saved state versions
|
---|
| 73 | * @{ */
|
---|
[82188] | 74 | #define FDC_SAVESTATE_CURRENT 3 /**< Current version. */
|
---|
[82177] | 75 | #define FDC_SAVESTATE_PRE_DELAY 2 /**< Pre IRQDelay. */
|
---|
| 76 | #define FDC_SAVESTATE_OLD 1 /**< The original saved state. */
|
---|
| 77 | /** @}*/
|
---|
| 78 |
|
---|
[1] | 79 | #define MAX_FD 2
|
---|
| 80 |
|
---|
| 81 |
|
---|
| 82 | /********************************************************/
|
---|
| 83 | /* debug Floppy devices */
|
---|
| 84 | /* #define DEBUG_FLOPPY */
|
---|
| 85 |
|
---|
[78040] | 86 | #ifdef LOG_ENABLED
|
---|
| 87 | # define FLOPPY_DPRINTF(...) Log(("floppy: " __VA_ARGS__))
|
---|
| 88 | #else
|
---|
| 89 | # define FLOPPY_DPRINTF(...) do { } while (0)
|
---|
| 90 | #endif
|
---|
[1] | 91 |
|
---|
[78040] | 92 | #define FLOPPY_ERROR RTLogPrintf
|
---|
[1] | 93 |
|
---|
| 94 | typedef struct fdctrl_t fdctrl_t;
|
---|
| 95 |
|
---|
| 96 | /********************************************************/
|
---|
| 97 | /* Floppy drive emulation */
|
---|
| 98 |
|
---|
[94649] | 99 | /* Drive selection note:
|
---|
| 100 | * For many commands, the FDC can select one of four drives through the
|
---|
| 101 | * second command byte. The Digital Output Register (DOR) can also select
|
---|
| 102 | * one of four drives. On PCs, the FDC drive selection is ignored, but
|
---|
| 103 | * should be reflected back in command status. Only the DOR drive selection
|
---|
| 104 | * is effective; on old PCs with a discrete NEC uPD765 or similar, the FDC
|
---|
| 105 | * drive selection signals (US0/US1) are not connected at all.
|
---|
| 106 | * NB: A drive is actually selected only when its motor on bit in the DOR
|
---|
| 107 | * is also set. It is possible to have no drive selected.
|
---|
| 108 | *
|
---|
| 109 | * The FDC cur_drv field tracks the drive the FDC thinks is selected, but
|
---|
| 110 | * the DOR is used for actual drive selection.
|
---|
| 111 | */
|
---|
| 112 |
|
---|
[34294] | 113 | #define GET_CUR_DRV(fdctrl) ((fdctrl)->cur_drv)
|
---|
| 114 | #define SET_CUR_DRV(fdctrl, drive) ((fdctrl)->cur_drv = (drive))
|
---|
| 115 |
|
---|
[1] | 116 | /* Will always be a fixed parameter for us */
|
---|
[34294] | 117 | #define FD_SECTOR_LEN 512
|
---|
| 118 | #define FD_SECTOR_SC 2 /* Sector size code */
|
---|
| 119 | #define FD_RESET_SENSEI_COUNT 4 /* Number of sense interrupts on RESET */
|
---|
[1] | 120 |
|
---|
| 121 | /* Floppy disk drive emulation */
|
---|
| 122 | typedef enum fdrive_type_t {
|
---|
| 123 | FDRIVE_DRV_144 = 0x00, /* 1.44 MB 3"5 drive */
|
---|
| 124 | FDRIVE_DRV_288 = 0x01, /* 2.88 MB 3"5 drive */
|
---|
| 125 | FDRIVE_DRV_120 = 0x02, /* 1.2 MB 5"25 drive */
|
---|
[78040] | 126 | FDRIVE_DRV_NONE = 0x03, /* No drive connected */
|
---|
| 127 | FDRIVE_DRV_FAKE_15_6 = 0x0e, /* Fake 15.6 MB drive. */
|
---|
| 128 | FDRIVE_DRV_FAKE_63_5 = 0x0f /* Fake 63.5 MB drive. */
|
---|
[1] | 129 | } fdrive_type_t;
|
---|
| 130 |
|
---|
[44807] | 131 | typedef uint8_t fdrive_flags_t;
|
---|
| 132 | #define FDISK_DBL_SIDES UINT8_C(0x01)
|
---|
[1] | 133 |
|
---|
[36705] | 134 | typedef enum fdrive_rate_t {
|
---|
| 135 | FDRIVE_RATE_500K = 0x00, /* 500 Kbps */
|
---|
| 136 | FDRIVE_RATE_300K = 0x01, /* 300 Kbps */
|
---|
| 137 | FDRIVE_RATE_250K = 0x02, /* 250 Kbps */
|
---|
| 138 | FDRIVE_RATE_1M = 0x03 /* 1 Mbps */
|
---|
| 139 | } fdrive_rate_t;
|
---|
| 140 |
|
---|
[25966] | 141 | /**
|
---|
| 142 | * The status for one drive.
|
---|
| 143 | *
|
---|
| 144 | * @implements PDMIBASE
|
---|
[59248] | 145 | * @implements PDMIMEDIAPORT
|
---|
[25966] | 146 | * @implements PDMIMOUNTNOTIFY
|
---|
| 147 | */
|
---|
[1] | 148 | typedef struct fdrive_t {
|
---|
[64846] | 149 | /** Pointer to the owning device instance. */
|
---|
| 150 | R3PTRTYPE(PPDMDEVINS) pDevIns;
|
---|
[1] | 151 | /** Pointer to the attached driver's base interface. */
|
---|
[4787] | 152 | R3PTRTYPE(PPDMIBASE) pDrvBase;
|
---|
[1] | 153 | /** Pointer to the attached driver's block interface. */
|
---|
[59248] | 154 | R3PTRTYPE(PPDMIMEDIA) pDrvMedia;
|
---|
[1] | 155 | /** Pointer to the attached driver's mount interface.
|
---|
| 156 | * This is NULL if the driver isn't a removable unit. */
|
---|
[4787] | 157 | R3PTRTYPE(PPDMIMOUNT) pDrvMount;
|
---|
[1] | 158 | /** The base interface. */
|
---|
| 159 | PDMIBASE IBase;
|
---|
| 160 | /** The block port interface. */
|
---|
[59248] | 161 | PDMIMEDIAPORT IPort;
|
---|
[1] | 162 | /** The mount notify interface. */
|
---|
| 163 | PDMIMOUNTNOTIFY IMountNotify;
|
---|
| 164 | /** The LUN #. */
|
---|
| 165 | RTUINT iLUN;
|
---|
| 166 | /** The LED for this LUN. */
|
---|
| 167 | PDMLED Led;
|
---|
| 168 | /* Drive status */
|
---|
| 169 | fdrive_type_t drive;
|
---|
| 170 | uint8_t perpendicular; /* 2.88 MB access mode */
|
---|
[34294] | 171 | uint8_t dsk_chg; /* Disk change line */
|
---|
[1] | 172 | /* Position */
|
---|
| 173 | uint8_t head;
|
---|
| 174 | uint8_t track;
|
---|
| 175 | uint8_t sect;
|
---|
[48081] | 176 | uint8_t ltrk; /* Logical track */
|
---|
[1] | 177 | /* Media */
|
---|
[34294] | 178 | fdrive_flags_t flags;
|
---|
[1] | 179 | uint8_t last_sect; /* Nb sector per track */
|
---|
| 180 | uint8_t max_track; /* Nb of tracks */
|
---|
| 181 | uint16_t bps; /* Bytes per sector */
|
---|
| 182 | uint8_t ro; /* Is read-only */
|
---|
[36705] | 183 | uint8_t media_rate; /* Data rate of medium */
|
---|
[1] | 184 | } fdrive_t;
|
---|
| 185 |
|
---|
[37478] | 186 | #define NUM_SIDES(drv) (drv->flags & FDISK_DBL_SIDES ? 2 : 1)
|
---|
[37460] | 187 |
|
---|
[47036] | 188 | static void fd_init(fdrive_t *drv, bool fInit)
|
---|
[1] | 189 | {
|
---|
| 190 | /* Drive */
|
---|
[47036] | 191 | if (fInit) {
|
---|
| 192 | /* Fixate the drive type at init time if possible. */
|
---|
[59248] | 193 | if (drv->pDrvMedia) {
|
---|
| 194 | PDMMEDIATYPE enmType = drv->pDrvMedia->pfnGetType(drv->pDrvMedia);
|
---|
[47036] | 195 | switch (enmType) {
|
---|
[59248] | 196 | case PDMMEDIATYPE_FLOPPY_360:
|
---|
| 197 | case PDMMEDIATYPE_FLOPPY_1_20:
|
---|
[47036] | 198 | drv->drive = FDRIVE_DRV_120;
|
---|
| 199 | break;
|
---|
[59248] | 200 | case PDMMEDIATYPE_FLOPPY_720:
|
---|
| 201 | case PDMMEDIATYPE_FLOPPY_1_44:
|
---|
[47036] | 202 | drv->drive = FDRIVE_DRV_144;
|
---|
| 203 | break;
|
---|
| 204 | default:
|
---|
| 205 | AssertFailed();
|
---|
[69046] | 206 | RT_FALL_THRU();
|
---|
[59248] | 207 | case PDMMEDIATYPE_FLOPPY_2_88:
|
---|
[47036] | 208 | drv->drive = FDRIVE_DRV_288;
|
---|
| 209 | break;
|
---|
[59248] | 210 | case PDMMEDIATYPE_FLOPPY_FAKE_15_6:
|
---|
[47036] | 211 | drv->drive = FDRIVE_DRV_FAKE_15_6;
|
---|
| 212 | break;
|
---|
[59248] | 213 | case PDMMEDIATYPE_FLOPPY_FAKE_63_5:
|
---|
[47036] | 214 | drv->drive = FDRIVE_DRV_FAKE_63_5;
|
---|
| 215 | break;
|
---|
| 216 | }
|
---|
| 217 | } else {
|
---|
| 218 | drv->drive = FDRIVE_DRV_NONE;
|
---|
| 219 | }
|
---|
| 220 | } /* else: The BIOS (and others) get the drive type via the CMOS, so
|
---|
| 221 | don't change it after the VM has been constructed. */
|
---|
[1] | 222 | drv->perpendicular = 0;
|
---|
| 223 | /* Disk */
|
---|
| 224 | drv->last_sect = 0;
|
---|
| 225 | drv->max_track = 0;
|
---|
| 226 | }
|
---|
| 227 |
|
---|
[34294] | 228 | static int fd_sector_calc(uint8_t head, uint8_t track, uint8_t sect,
|
---|
[37478] | 229 | uint8_t last_sect, uint8_t num_sides)
|
---|
[1] | 230 | {
|
---|
[37478] | 231 | return (((track * num_sides) + head) * last_sect) + sect - 1; /* sect >= 1 */
|
---|
[1] | 232 | }
|
---|
| 233 |
|
---|
| 234 | /* Returns current position, in sectors, for given drive */
|
---|
[34294] | 235 | static int fd_sector(fdrive_t *drv)
|
---|
[1] | 236 | {
|
---|
[37478] | 237 | return fd_sector_calc(drv->head, drv->track, drv->sect, drv->last_sect, NUM_SIDES(drv));
|
---|
[1] | 238 | }
|
---|
| 239 |
|
---|
[34294] | 240 | /* Seek to a new position:
|
---|
| 241 | * returns 0 if already on right track
|
---|
| 242 | * returns 1 if track changed
|
---|
| 243 | * returns 2 if track is invalid
|
---|
| 244 | * returns 3 if sector is invalid
|
---|
| 245 | * returns 4 if seek is disabled
|
---|
[55641] | 246 | * returns 5 if no media in drive
|
---|
[34294] | 247 | */
|
---|
| 248 | static int fd_seek(fdrive_t *drv, uint8_t head, uint8_t track, uint8_t sect,
|
---|
| 249 | int enable_seek)
|
---|
[1] | 250 | {
|
---|
[34294] | 251 | int sector;
|
---|
[1] | 252 | int ret;
|
---|
| 253 |
|
---|
[55641] | 254 | if (!drv->last_sect) {
|
---|
[95389] | 255 | FLOPPY_DPRINTF("no disk in drive (max=%d h=%d c=%02x =s%02x) -> 5\n",
|
---|
| 256 | 1, NUM_SIDES(drv) - 1, drv->max_track, drv->last_sect);
|
---|
[55641] | 257 | return 5;
|
---|
| 258 | }
|
---|
[1] | 259 | if (track > drv->max_track ||
|
---|
| 260 | (head != 0 && (drv->flags & FDISK_DBL_SIDES) == 0)) {
|
---|
[95389] | 261 | FLOPPY_DPRINTF("try to read h=%d c=%02x s=%02x (max=%d h=%d c=%02x s=%02x) -> 2\n",
|
---|
| 262 | head, track, sect,
|
---|
| 263 | 1, NUM_SIDES(drv) - 1, drv->max_track, drv->last_sect);
|
---|
[1] | 264 | return 2;
|
---|
| 265 | }
|
---|
[46339] | 266 | if (sect > drv->last_sect || sect < 1) {
|
---|
[95389] | 267 | FLOPPY_DPRINTF("try to read h=%d c=%02x s=%02x (max=%d h=%d c=%02x s=%02x) -> 3\n",
|
---|
| 268 | head, track, sect,
|
---|
| 269 | 1, NUM_SIDES(drv) - 1, drv->max_track, drv->last_sect);
|
---|
[1] | 270 | return 3;
|
---|
| 271 | }
|
---|
[37478] | 272 | sector = fd_sector_calc(head, track, sect, drv->last_sect, NUM_SIDES(drv));
|
---|
[1] | 273 | ret = 0;
|
---|
| 274 | if (sector != fd_sector(drv)) {
|
---|
| 275 | #if 0
|
---|
| 276 | if (!enable_seek) {
|
---|
| 277 | FLOPPY_ERROR("no implicit seek %d %02x %02x (max=%d %02x %02x)\n",
|
---|
| 278 | head, track, sect, 1, drv->max_track, drv->last_sect);
|
---|
| 279 | return 4;
|
---|
| 280 | }
|
---|
[62904] | 281 | #else
|
---|
| 282 | RT_NOREF(enable_seek);
|
---|
[1] | 283 | #endif
|
---|
| 284 | drv->head = head;
|
---|
| 285 | if (drv->track != track)
|
---|
| 286 | ret = 1;
|
---|
| 287 | drv->track = track;
|
---|
| 288 | drv->sect = sect;
|
---|
| 289 | }
|
---|
[48081] | 290 | drv->ltrk = drv->track;
|
---|
[1] | 291 |
|
---|
| 292 | return ret;
|
---|
| 293 | }
|
---|
| 294 |
|
---|
| 295 | /* Set drive back to track 0 */
|
---|
[34294] | 296 | static void fd_recalibrate(fdrive_t *drv)
|
---|
[1] | 297 | {
|
---|
| 298 | FLOPPY_DPRINTF("recalibrate\n");
|
---|
| 299 | drv->head = 0;
|
---|
| 300 | drv->track = 0;
|
---|
[48081] | 301 | drv->ltrk = 0;
|
---|
[1] | 302 | drv->sect = 1;
|
---|
| 303 | }
|
---|
| 304 |
|
---|
| 305 | /* Recognize floppy formats */
|
---|
| 306 | typedef struct fd_format_t {
|
---|
| 307 | fdrive_type_t drive;
|
---|
[47036] | 308 | uint8_t last_sect; /**< Number of sectors. */
|
---|
| 309 | uint8_t max_track; /**< Number of tracks. */
|
---|
| 310 | uint8_t max_head; /**< Max head number. */
|
---|
[36705] | 311 | fdrive_rate_t rate;
|
---|
[1] | 312 | const char *str;
|
---|
| 313 | } fd_format_t;
|
---|
| 314 |
|
---|
[47664] | 315 | /* Note: Low-density disks (160K/180K/320K/360K) use 250 Kbps data rate
|
---|
| 316 | * in 40-track drives, but 300 Kbps in high-capacity 80-track drives.
|
---|
| 317 | */
|
---|
[95389] | 318 | static fd_format_t const fd_formats[] = {
|
---|
[1] | 319 | /* First entry is default format */
|
---|
| 320 | /* 1.44 MB 3"1/2 floppy disks */
|
---|
[77024] | 321 | { FDRIVE_DRV_144, 18, 80, 1, FDRIVE_RATE_500K, "1.44 MB 3\"1/2", },
|
---|
| 322 | { FDRIVE_DRV_144, 20, 80, 1, FDRIVE_RATE_500K, "1.6 MB 3\"1/2", },
|
---|
| 323 | { FDRIVE_DRV_144, 21, 80, 1, FDRIVE_RATE_500K, "1.68 MB 3\"1/2", },
|
---|
| 324 | { FDRIVE_DRV_144, 21, 82, 1, FDRIVE_RATE_500K, "1.72 MB 3\"1/2", },
|
---|
| 325 | { FDRIVE_DRV_144, 21, 83, 1, FDRIVE_RATE_500K, "1.74 MB 3\"1/2", },
|
---|
| 326 | { FDRIVE_DRV_144, 22, 80, 1, FDRIVE_RATE_500K, "1.76 MB 3\"1/2", },
|
---|
| 327 | { FDRIVE_DRV_144, 23, 80, 1, FDRIVE_RATE_500K, "1.84 MB 3\"1/2", },
|
---|
| 328 | { FDRIVE_DRV_144, 24, 80, 1, FDRIVE_RATE_500K, "1.92 MB 3\"1/2", },
|
---|
[1] | 329 | /* 2.88 MB 3"1/2 floppy disks */
|
---|
[77024] | 330 | { FDRIVE_DRV_288, 36, 80, 1, FDRIVE_RATE_1M, "2.88 MB 3\"1/2", },
|
---|
| 331 | { FDRIVE_DRV_288, 39, 80, 1, FDRIVE_RATE_1M, "3.12 MB 3\"1/2", },
|
---|
| 332 | { FDRIVE_DRV_288, 40, 80, 1, FDRIVE_RATE_1M, "3.2 MB 3\"1/2", },
|
---|
| 333 | { FDRIVE_DRV_288, 44, 80, 1, FDRIVE_RATE_1M, "3.52 MB 3\"1/2", },
|
---|
| 334 | { FDRIVE_DRV_288, 48, 80, 1, FDRIVE_RATE_1M, "3.84 MB 3\"1/2", },
|
---|
[1] | 335 | /* 720 kB 3"1/2 floppy disks */
|
---|
[77024] | 336 | { FDRIVE_DRV_144, 9, 80, 1, FDRIVE_RATE_250K, "720 kB 3\"1/2", },
|
---|
| 337 | { FDRIVE_DRV_144, 10, 80, 1, FDRIVE_RATE_250K, "800 kB 3\"1/2", },
|
---|
| 338 | { FDRIVE_DRV_144, 10, 82, 1, FDRIVE_RATE_250K, "820 kB 3\"1/2", },
|
---|
| 339 | { FDRIVE_DRV_144, 10, 83, 1, FDRIVE_RATE_250K, "830 kB 3\"1/2", },
|
---|
| 340 | { FDRIVE_DRV_144, 13, 80, 1, FDRIVE_RATE_250K, "1.04 MB 3\"1/2", },
|
---|
| 341 | { FDRIVE_DRV_144, 14, 80, 1, FDRIVE_RATE_250K, "1.12 MB 3\"1/2", },
|
---|
[1] | 342 | /* 1.2 MB 5"1/4 floppy disks */
|
---|
[77024] | 343 | { FDRIVE_DRV_120, 15, 80, 1, FDRIVE_RATE_500K, "1.2 MB 5\"1/4", },
|
---|
| 344 | { FDRIVE_DRV_120, 16, 80, 1, FDRIVE_RATE_500K, "1.28 MB 5\"1/4", }, /* CP Backup 5.25" HD */
|
---|
| 345 | { FDRIVE_DRV_120, 18, 80, 1, FDRIVE_RATE_500K, "1.44 MB 5\"1/4", },
|
---|
| 346 | { FDRIVE_DRV_120, 18, 82, 1, FDRIVE_RATE_500K, "1.48 MB 5\"1/4", },
|
---|
| 347 | { FDRIVE_DRV_120, 18, 83, 1, FDRIVE_RATE_500K, "1.49 MB 5\"1/4", },
|
---|
| 348 | { FDRIVE_DRV_120, 20, 80, 1, FDRIVE_RATE_500K, "1.6 MB 5\"1/4", },
|
---|
[1] | 349 | /* 720 kB 5"1/4 floppy disks */
|
---|
[77043] | 350 | { FDRIVE_DRV_120, 9, 80, 1, FDRIVE_RATE_300K, "720 kB 5\"1/4", },
|
---|
| 351 | { FDRIVE_DRV_120, 11, 80, 1, FDRIVE_RATE_300K, "880 kB 5\"1/4", },
|
---|
[47664] | 352 | /* 360 kB 5"1/4 floppy disks (newer 9-sector formats) */
|
---|
[77024] | 353 | { FDRIVE_DRV_120, 9, 40, 1, FDRIVE_RATE_300K, "360 kB 5\"1/4", },
|
---|
| 354 | { FDRIVE_DRV_120, 9, 40, 0, FDRIVE_RATE_300K, "180 kB 5\"1/4", },
|
---|
| 355 | { FDRIVE_DRV_120, 10, 40, 1, FDRIVE_RATE_300K, "400 kB 5\"1/4", }, /* CP Backup 5.25" DD */
|
---|
| 356 | { FDRIVE_DRV_120, 10, 41, 1, FDRIVE_RATE_300K, "410 kB 5\"1/4", },
|
---|
| 357 | { FDRIVE_DRV_120, 10, 42, 1, FDRIVE_RATE_300K, "420 kB 5\"1/4", },
|
---|
[47664] | 358 | /* 320 kB 5"1/4 floppy disks (old 8-sector formats) */
|
---|
[77024] | 359 | { FDRIVE_DRV_120, 8, 40, 1, FDRIVE_RATE_300K, "320 kB 5\"1/4", },
|
---|
| 360 | { FDRIVE_DRV_120, 8, 40, 0, FDRIVE_RATE_300K, "160 kB 5\"1/4", },
|
---|
[47679] | 361 | /* 1.2 MB and low density 3"1/2 floppy 'aliases' */
|
---|
[77024] | 362 | { FDRIVE_DRV_144, 15, 80, 1, FDRIVE_RATE_500K, "1.2 MB 3\"1/2", },
|
---|
| 363 | { FDRIVE_DRV_144, 16, 80, 1, FDRIVE_RATE_500K, "1.28 MB 3\"1/2", },
|
---|
| 364 | { FDRIVE_DRV_144, 10, 40, 1, FDRIVE_RATE_300K, "400 kB 3\"1/2", }, /* CP Backup 5.25" DD */
|
---|
| 365 | { FDRIVE_DRV_144, 9, 40, 1, FDRIVE_RATE_300K, "360 kB 3\"1/2", },
|
---|
| 366 | { FDRIVE_DRV_144, 9, 40, 0, FDRIVE_RATE_300K, "180 kB 3\"1/2", },
|
---|
| 367 | { FDRIVE_DRV_144, 8, 40, 1, FDRIVE_RATE_300K, "320 kB 3\"1/2", },
|
---|
| 368 | { FDRIVE_DRV_144, 8, 40, 0, FDRIVE_RATE_300K, "160 kB 3\"1/2", },
|
---|
[102258] | 369 | /* For larger than real life floppy images (see DrvVD.cpp). */
|
---|
[47036] | 370 | /* 15.6 MB fake floppy disk (just need something big). */
|
---|
[77024] | 371 | { FDRIVE_DRV_FAKE_15_6, 63, 255, 1, FDRIVE_RATE_1M, "15.6 MB fake 15.6", },
|
---|
| 372 | { FDRIVE_DRV_FAKE_15_6, 36, 80, 1, FDRIVE_RATE_1M, "2.88 MB fake 15.6", },
|
---|
| 373 | { FDRIVE_DRV_FAKE_15_6, 39, 80, 1, FDRIVE_RATE_1M, "3.12 MB fake 15.6", },
|
---|
| 374 | { FDRIVE_DRV_FAKE_15_6, 40, 80, 1, FDRIVE_RATE_1M, "3.2 MB fake 15.6", },
|
---|
| 375 | { FDRIVE_DRV_FAKE_15_6, 44, 80, 1, FDRIVE_RATE_1M, "3.52 MB fake 15.6", },
|
---|
| 376 | { FDRIVE_DRV_FAKE_15_6, 48, 80, 1, FDRIVE_RATE_1M, "3.84 MB fake 15.6", },
|
---|
| 377 | { FDRIVE_DRV_FAKE_15_6, 18, 80, 1, FDRIVE_RATE_500K, "1.44 MB fake 15.6", },
|
---|
| 378 | { FDRIVE_DRV_FAKE_15_6, 20, 80, 1, FDRIVE_RATE_500K, "1.6 MB fake 15.6", },
|
---|
| 379 | { FDRIVE_DRV_FAKE_15_6, 21, 80, 1, FDRIVE_RATE_500K, "1.68 MB fake 15.6", },
|
---|
| 380 | { FDRIVE_DRV_FAKE_15_6, 21, 82, 1, FDRIVE_RATE_500K, "1.72 MB fake 15.6", },
|
---|
| 381 | { FDRIVE_DRV_FAKE_15_6, 21, 83, 1, FDRIVE_RATE_500K, "1.74 MB fake 15.6", },
|
---|
| 382 | { FDRIVE_DRV_FAKE_15_6, 22, 80, 1, FDRIVE_RATE_500K, "1.76 MB fake 15.6", },
|
---|
| 383 | { FDRIVE_DRV_FAKE_15_6, 23, 80, 1, FDRIVE_RATE_500K, "1.84 MB fake 15.6", },
|
---|
| 384 | { FDRIVE_DRV_FAKE_15_6, 24, 80, 1, FDRIVE_RATE_500K, "1.92 MB fake 15.6", },
|
---|
| 385 | { FDRIVE_DRV_FAKE_15_6, 9, 80, 1, FDRIVE_RATE_250K, "720 kB fake 15.6", },
|
---|
| 386 | { FDRIVE_DRV_FAKE_15_6, 10, 80, 1, FDRIVE_RATE_250K, "800 kB fake 15.6", },
|
---|
| 387 | { FDRIVE_DRV_FAKE_15_6, 10, 82, 1, FDRIVE_RATE_250K, "820 kB fake 15.6", },
|
---|
| 388 | { FDRIVE_DRV_FAKE_15_6, 10, 83, 1, FDRIVE_RATE_250K, "830 kB fake 15.6", },
|
---|
| 389 | { FDRIVE_DRV_FAKE_15_6, 13, 80, 1, FDRIVE_RATE_250K, "1.04 MB fake 15.6", },
|
---|
| 390 | { FDRIVE_DRV_FAKE_15_6, 14, 80, 1, FDRIVE_RATE_250K, "1.12 MB fake 15.6", },
|
---|
| 391 | { FDRIVE_DRV_FAKE_15_6, 9, 80, 0, FDRIVE_RATE_250K, "360 kB fake 15.6", },
|
---|
| 392 | /* 63.5 MB fake floppy disk (just need something big). */
|
---|
| 393 | { FDRIVE_DRV_FAKE_63_5, 255, 255, 1, FDRIVE_RATE_1M, "63.5 MB fake 63.5", },
|
---|
| 394 | { FDRIVE_DRV_FAKE_63_5, 63, 255, 1, FDRIVE_RATE_1M, "15.6 MB fake 63.5", },
|
---|
| 395 | { FDRIVE_DRV_FAKE_63_5, 36, 80, 1, FDRIVE_RATE_1M, "2.88 MB fake 63.5", },
|
---|
| 396 | { FDRIVE_DRV_FAKE_63_5, 39, 80, 1, FDRIVE_RATE_1M, "3.12 MB fake 63.5", },
|
---|
| 397 | { FDRIVE_DRV_FAKE_63_5, 40, 80, 1, FDRIVE_RATE_1M, "3.2 MB fake 63.5", },
|
---|
| 398 | { FDRIVE_DRV_FAKE_63_5, 44, 80, 1, FDRIVE_RATE_1M, "3.52 MB fake 63.5", },
|
---|
| 399 | { FDRIVE_DRV_FAKE_63_5, 48, 80, 1, FDRIVE_RATE_1M, "3.84 MB fake 63.5", },
|
---|
| 400 | { FDRIVE_DRV_FAKE_63_5, 18, 80, 1, FDRIVE_RATE_500K, "1.44 MB fake 63.5", },
|
---|
| 401 | { FDRIVE_DRV_FAKE_63_5, 20, 80, 1, FDRIVE_RATE_500K, "1.6 MB fake 63.5", },
|
---|
| 402 | { FDRIVE_DRV_FAKE_63_5, 21, 80, 1, FDRIVE_RATE_500K, "1.68 MB fake 63.5", },
|
---|
| 403 | { FDRIVE_DRV_FAKE_63_5, 21, 82, 1, FDRIVE_RATE_500K, "1.72 MB fake 63.5", },
|
---|
| 404 | { FDRIVE_DRV_FAKE_63_5, 21, 83, 1, FDRIVE_RATE_500K, "1.74 MB fake 63.5", },
|
---|
| 405 | { FDRIVE_DRV_FAKE_63_5, 22, 80, 1, FDRIVE_RATE_500K, "1.76 MB fake 63.5", },
|
---|
| 406 | { FDRIVE_DRV_FAKE_63_5, 23, 80, 1, FDRIVE_RATE_500K, "1.84 MB fake 63.5", },
|
---|
| 407 | { FDRIVE_DRV_FAKE_63_5, 24, 80, 1, FDRIVE_RATE_500K, "1.92 MB fake 63.5", },
|
---|
| 408 | { FDRIVE_DRV_FAKE_63_5, 9, 80, 1, FDRIVE_RATE_250K, "720 kB fake 63.5", },
|
---|
| 409 | { FDRIVE_DRV_FAKE_63_5, 10, 80, 1, FDRIVE_RATE_250K, "800 kB fake 63.5", },
|
---|
| 410 | { FDRIVE_DRV_FAKE_63_5, 10, 82, 1, FDRIVE_RATE_250K, "820 kB fake 63.5", },
|
---|
| 411 | { FDRIVE_DRV_FAKE_63_5, 10, 83, 1, FDRIVE_RATE_250K, "830 kB fake 63.5", },
|
---|
| 412 | { FDRIVE_DRV_FAKE_63_5, 13, 80, 1, FDRIVE_RATE_250K, "1.04 MB fake 63.5", },
|
---|
| 413 | { FDRIVE_DRV_FAKE_63_5, 14, 80, 1, FDRIVE_RATE_250K, "1.12 MB fake 63.5", },
|
---|
| 414 | { FDRIVE_DRV_FAKE_63_5, 9, 80, 0, FDRIVE_RATE_250K, "360 kB fake 63.5", },
|
---|
[1] | 415 | /* end */
|
---|
[77024] | 416 | { FDRIVE_DRV_NONE, (uint8_t)-1, (uint8_t)-1, 0, (fdrive_rate_t)0, NULL, },
|
---|
[1] | 417 | };
|
---|
| 418 |
|
---|
| 419 | /* Revalidate a disk drive after a disk change */
|
---|
[34294] | 420 | static void fd_revalidate(fdrive_t *drv)
|
---|
[1] | 421 | {
|
---|
[34294] | 422 | const fd_format_t *parse;
|
---|
| 423 | uint64_t nb_sectors, size;
|
---|
[1] | 424 | int i, first_match, match;
|
---|
| 425 | int nb_heads, max_track, last_sect, ro;
|
---|
| 426 |
|
---|
| 427 | FLOPPY_DPRINTF("revalidate\n");
|
---|
[59248] | 428 | if ( drv->pDrvMedia
|
---|
[1] | 429 | && drv->pDrvMount
|
---|
| 430 | && drv->pDrvMount->pfnIsMounted (drv->pDrvMount)) {
|
---|
[59248] | 431 | ro = drv->pDrvMedia->pfnIsReadOnly (drv->pDrvMedia);
|
---|
[34294] | 432 | nb_heads = max_track = last_sect = 0;
|
---|
[1] | 433 | if (nb_heads != 0 && max_track != 0 && last_sect != 0) {
|
---|
| 434 | FLOPPY_DPRINTF("User defined disk (%d %d %d)",
|
---|
| 435 | nb_heads - 1, max_track, last_sect);
|
---|
| 436 | } else {
|
---|
[78040] | 437 | uint64_t size2 = drv->pDrvMedia->pfnGetSize (drv->pDrvMedia);
|
---|
| 438 | nb_sectors = size2 / FD_SECTOR_LEN;
|
---|
[1] | 439 | match = -1;
|
---|
| 440 | first_match = -1;
|
---|
| 441 | for (i = 0;; i++) {
|
---|
| 442 | parse = &fd_formats[i];
|
---|
| 443 | if (parse->drive == FDRIVE_DRV_NONE)
|
---|
| 444 | break;
|
---|
| 445 | if (drv->drive == parse->drive ||
|
---|
| 446 | drv->drive == FDRIVE_DRV_NONE) {
|
---|
| 447 | size = (parse->max_head + 1) * parse->max_track *
|
---|
| 448 | parse->last_sect;
|
---|
| 449 | if (nb_sectors == size) {
|
---|
| 450 | match = i;
|
---|
| 451 | break;
|
---|
| 452 | }
|
---|
| 453 | if (first_match == -1)
|
---|
| 454 | first_match = i;
|
---|
| 455 | }
|
---|
| 456 | }
|
---|
| 457 | if (match == -1) {
|
---|
| 458 | if (first_match == -1)
|
---|
| 459 | match = 1;
|
---|
| 460 | else
|
---|
| 461 | match = first_match;
|
---|
| 462 | parse = &fd_formats[match];
|
---|
| 463 | }
|
---|
| 464 | nb_heads = parse->max_head + 1;
|
---|
| 465 | max_track = parse->max_track;
|
---|
| 466 | last_sect = parse->last_sect;
|
---|
| 467 | drv->drive = parse->drive;
|
---|
[36705] | 468 | drv->media_rate = parse->rate;
|
---|
[1] | 469 | FLOPPY_DPRINTF("%s floppy disk (%d h %d t %d s) %s\n", parse->str,
|
---|
| 470 | nb_heads, max_track, last_sect, ro ? "ro" : "rw");
|
---|
[56275] | 471 | LogRel(("FDC: %s floppy disk (%d h %d t %d s) %s\n", parse->str,
|
---|
[36705] | 472 | nb_heads, max_track, last_sect, ro ? "ro" : "rw"));
|
---|
[1] | 473 | }
|
---|
| 474 | if (nb_heads == 1) {
|
---|
| 475 | drv->flags &= ~FDISK_DBL_SIDES;
|
---|
| 476 | } else {
|
---|
| 477 | drv->flags |= FDISK_DBL_SIDES;
|
---|
| 478 | }
|
---|
| 479 | drv->max_track = max_track;
|
---|
| 480 | drv->last_sect = last_sect;
|
---|
| 481 | drv->ro = ro;
|
---|
| 482 | } else {
|
---|
| 483 | FLOPPY_DPRINTF("No disk in drive\n");
|
---|
| 484 | drv->last_sect = 0;
|
---|
| 485 | drv->max_track = 0;
|
---|
| 486 | drv->flags &= ~FDISK_DBL_SIDES;
|
---|
[36705] | 487 | drv->dsk_chg = true; /* Disk change line active. */
|
---|
[1] | 488 | }
|
---|
| 489 | }
|
---|
| 490 |
|
---|
| 491 | /********************************************************/
|
---|
| 492 | /* Intel 82078 floppy disk controller emulation */
|
---|
| 493 |
|
---|
[34294] | 494 | static void fdctrl_reset(fdctrl_t *fdctrl, int do_irq);
|
---|
| 495 | static void fdctrl_reset_fifo(fdctrl_t *fdctrl);
|
---|
[36705] | 496 | static fdrive_t *get_cur_drv(fdctrl_t *fdctrl);
|
---|
[34294] | 497 |
|
---|
| 498 | static uint32_t fdctrl_read_statusA(fdctrl_t *fdctrl);
|
---|
| 499 | static uint32_t fdctrl_read_statusB(fdctrl_t *fdctrl);
|
---|
| 500 | static uint32_t fdctrl_read_dor(fdctrl_t *fdctrl);
|
---|
| 501 | static void fdctrl_write_dor(fdctrl_t *fdctrl, uint32_t value);
|
---|
| 502 | static uint32_t fdctrl_read_tape(fdctrl_t *fdctrl);
|
---|
| 503 | static void fdctrl_write_tape(fdctrl_t *fdctrl, uint32_t value);
|
---|
| 504 | static uint32_t fdctrl_read_main_status(fdctrl_t *fdctrl);
|
---|
| 505 | static void fdctrl_write_rate(fdctrl_t *fdctrl, uint32_t value);
|
---|
| 506 | static uint32_t fdctrl_read_data(fdctrl_t *fdctrl);
|
---|
| 507 | static void fdctrl_write_data(fdctrl_t *fdctrl, uint32_t value);
|
---|
| 508 | static uint32_t fdctrl_read_dir(fdctrl_t *fdctrl);
|
---|
[36705] | 509 | static void fdctrl_write_ccr(fdctrl_t *fdctrl, uint32_t value);
|
---|
[1] | 510 |
|
---|
| 511 | enum {
|
---|
| 512 | FD_DIR_WRITE = 0,
|
---|
| 513 | FD_DIR_READ = 1,
|
---|
| 514 | FD_DIR_SCANE = 2,
|
---|
| 515 | FD_DIR_SCANL = 3,
|
---|
[48081] | 516 | FD_DIR_SCANH = 4,
|
---|
| 517 | FD_DIR_FORMAT = 5
|
---|
[1] | 518 | };
|
---|
| 519 |
|
---|
| 520 | enum {
|
---|
[35351] | 521 | FD_STATE_MULTI = 0x01, /* multi track flag */
|
---|
| 522 | FD_STATE_FORMAT = 0x02, /* format flag */
|
---|
| 523 | FD_STATE_SEEK = 0x04 /* seek flag */
|
---|
[1] | 524 | };
|
---|
| 525 |
|
---|
[34294] | 526 | enum {
|
---|
| 527 | FD_REG_SRA = 0x00,
|
---|
| 528 | FD_REG_SRB = 0x01,
|
---|
| 529 | FD_REG_DOR = 0x02,
|
---|
| 530 | FD_REG_TDR = 0x03,
|
---|
| 531 | FD_REG_MSR = 0x04,
|
---|
| 532 | FD_REG_DSR = 0x04,
|
---|
| 533 | FD_REG_FIFO = 0x05,
|
---|
[36705] | 534 | FD_REG_DIR = 0x07,
|
---|
| 535 | FD_REG_CCR = 0x07
|
---|
[34294] | 536 | };
|
---|
| 537 |
|
---|
| 538 | enum {
|
---|
| 539 | FD_CMD_READ_TRACK = 0x02,
|
---|
| 540 | FD_CMD_SPECIFY = 0x03,
|
---|
| 541 | FD_CMD_SENSE_DRIVE_STATUS = 0x04,
|
---|
| 542 | FD_CMD_WRITE = 0x05,
|
---|
| 543 | FD_CMD_READ = 0x06,
|
---|
| 544 | FD_CMD_RECALIBRATE = 0x07,
|
---|
| 545 | FD_CMD_SENSE_INTERRUPT_STATUS = 0x08,
|
---|
| 546 | FD_CMD_WRITE_DELETED = 0x09,
|
---|
| 547 | FD_CMD_READ_ID = 0x0a,
|
---|
| 548 | FD_CMD_READ_DELETED = 0x0c,
|
---|
| 549 | FD_CMD_FORMAT_TRACK = 0x0d,
|
---|
| 550 | FD_CMD_DUMPREG = 0x0e,
|
---|
| 551 | FD_CMD_SEEK = 0x0f,
|
---|
| 552 | FD_CMD_VERSION = 0x10,
|
---|
| 553 | FD_CMD_SCAN_EQUAL = 0x11,
|
---|
| 554 | FD_CMD_PERPENDICULAR_MODE = 0x12,
|
---|
| 555 | FD_CMD_CONFIGURE = 0x13,
|
---|
| 556 | FD_CMD_LOCK = 0x14,
|
---|
| 557 | FD_CMD_VERIFY = 0x16,
|
---|
| 558 | FD_CMD_POWERDOWN_MODE = 0x17,
|
---|
| 559 | FD_CMD_PART_ID = 0x18,
|
---|
| 560 | FD_CMD_SCAN_LOW_OR_EQUAL = 0x19,
|
---|
| 561 | FD_CMD_SCAN_HIGH_OR_EQUAL = 0x1d,
|
---|
| 562 | FD_CMD_SAVE = 0x2e,
|
---|
| 563 | FD_CMD_OPTION = 0x33,
|
---|
| 564 | FD_CMD_RESTORE = 0x4e,
|
---|
| 565 | FD_CMD_DRIVE_SPECIFICATION_COMMAND = 0x8e,
|
---|
| 566 | FD_CMD_RELATIVE_SEEK_OUT = 0x8f,
|
---|
| 567 | FD_CMD_FORMAT_AND_WRITE = 0xcd,
|
---|
| 568 | FD_CMD_RELATIVE_SEEK_IN = 0xcf
|
---|
| 569 | };
|
---|
| 570 |
|
---|
| 571 | enum {
|
---|
| 572 | FD_CONFIG_PRETRK = 0xff, /* Pre-compensation set to track 0 */
|
---|
| 573 | FD_CONFIG_FIFOTHR = 0x0f, /* FIFO threshold set to 1 byte */
|
---|
| 574 | FD_CONFIG_POLL = 0x10, /* Poll enabled */
|
---|
| 575 | FD_CONFIG_EFIFO = 0x20, /* FIFO disabled */
|
---|
| 576 | FD_CONFIG_EIS = 0x40 /* No implied seeks */
|
---|
| 577 | };
|
---|
| 578 |
|
---|
| 579 | enum {
|
---|
| 580 | FD_SR0_EQPMT = 0x10,
|
---|
| 581 | FD_SR0_SEEK = 0x20,
|
---|
| 582 | FD_SR0_ABNTERM = 0x40,
|
---|
| 583 | FD_SR0_INVCMD = 0x80,
|
---|
| 584 | FD_SR0_RDYCHG = 0xc0
|
---|
| 585 | };
|
---|
| 586 |
|
---|
| 587 | enum {
|
---|
[36705] | 588 | FD_SR1_MA = 0x01, /* Missing address mark */
|
---|
| 589 | FD_SR1_NW = 0x02, /* Not writable */
|
---|
[47711] | 590 | FD_SR1_ND = 0x04, /* No data */
|
---|
[34294] | 591 | FD_SR1_EC = 0x80 /* End of cylinder */
|
---|
| 592 | };
|
---|
| 593 |
|
---|
| 594 | enum {
|
---|
[47711] | 595 | FD_SR2_MD = 0x01, /* Missing data address mark */
|
---|
[34294] | 596 | FD_SR2_SNS = 0x04, /* Scan not satisfied */
|
---|
| 597 | FD_SR2_SEH = 0x08 /* Scan equal hit */
|
---|
| 598 | };
|
---|
| 599 |
|
---|
| 600 | enum {
|
---|
| 601 | FD_SRA_DIR = 0x01,
|
---|
| 602 | FD_SRA_nWP = 0x02,
|
---|
| 603 | FD_SRA_nINDX = 0x04,
|
---|
| 604 | FD_SRA_HDSEL = 0x08,
|
---|
| 605 | FD_SRA_nTRK0 = 0x10,
|
---|
| 606 | FD_SRA_STEP = 0x20,
|
---|
| 607 | FD_SRA_nDRV2 = 0x40,
|
---|
| 608 | FD_SRA_INTPEND = 0x80
|
---|
| 609 | };
|
---|
| 610 |
|
---|
| 611 | enum {
|
---|
| 612 | FD_SRB_MTR0 = 0x01,
|
---|
| 613 | FD_SRB_MTR1 = 0x02,
|
---|
| 614 | FD_SRB_WGATE = 0x04,
|
---|
| 615 | FD_SRB_RDATA = 0x08,
|
---|
| 616 | FD_SRB_WDATA = 0x10,
|
---|
| 617 | FD_SRB_DR0 = 0x20
|
---|
| 618 | };
|
---|
| 619 |
|
---|
| 620 | enum {
|
---|
| 621 | #if MAX_FD == 4
|
---|
[94649] | 622 | FD_DRV_SELMASK = 0x03,
|
---|
[34294] | 623 | #else
|
---|
[94649] | 624 | FD_DRV_SELMASK = 0x01,
|
---|
[34294] | 625 | #endif
|
---|
[94649] | 626 | };
|
---|
| 627 |
|
---|
| 628 | enum {
|
---|
| 629 | FD_DOR_SELMASK = 0x03, /* Always two bits regardless of FD_DRV_SELMASK. */
|
---|
[34294] | 630 | FD_DOR_nRESET = 0x04,
|
---|
| 631 | FD_DOR_DMAEN = 0x08,
|
---|
| 632 | FD_DOR_MOTEN0 = 0x10,
|
---|
| 633 | FD_DOR_MOTEN1 = 0x20,
|
---|
| 634 | FD_DOR_MOTEN2 = 0x40,
|
---|
| 635 | FD_DOR_MOTEN3 = 0x80
|
---|
| 636 | };
|
---|
| 637 |
|
---|
| 638 | enum {
|
---|
| 639 | #if MAX_FD == 4
|
---|
| 640 | FD_TDR_BOOTSEL = 0x0c
|
---|
| 641 | #else
|
---|
| 642 | FD_TDR_BOOTSEL = 0x04
|
---|
| 643 | #endif
|
---|
| 644 | };
|
---|
| 645 |
|
---|
| 646 | enum {
|
---|
| 647 | FD_DSR_DRATEMASK= 0x03,
|
---|
| 648 | FD_DSR_PWRDOWN = 0x40,
|
---|
| 649 | FD_DSR_SWRESET = 0x80
|
---|
| 650 | };
|
---|
| 651 |
|
---|
| 652 | enum {
|
---|
| 653 | FD_MSR_DRV0BUSY = 0x01,
|
---|
| 654 | FD_MSR_DRV1BUSY = 0x02,
|
---|
| 655 | FD_MSR_DRV2BUSY = 0x04,
|
---|
| 656 | FD_MSR_DRV3BUSY = 0x08,
|
---|
| 657 | FD_MSR_CMDBUSY = 0x10,
|
---|
| 658 | FD_MSR_NONDMA = 0x20,
|
---|
| 659 | FD_MSR_DIO = 0x40,
|
---|
| 660 | FD_MSR_RQM = 0x80
|
---|
| 661 | };
|
---|
| 662 |
|
---|
| 663 | enum {
|
---|
| 664 | FD_DIR_DSKCHG = 0x80
|
---|
| 665 | };
|
---|
| 666 |
|
---|
[1] | 667 | #define FD_MULTI_TRACK(state) ((state) & FD_STATE_MULTI)
|
---|
| 668 | #define FD_DID_SEEK(state) ((state) & FD_STATE_SEEK)
|
---|
| 669 | #define FD_FORMAT_CMD(state) ((state) & FD_STATE_FORMAT)
|
---|
| 670 |
|
---|
[25966] | 671 | /**
|
---|
| 672 | * Floppy controller state.
|
---|
| 673 | *
|
---|
| 674 | * @implements PDMILEDPORTS
|
---|
| 675 | */
|
---|
[1] | 676 | struct fdctrl_t {
|
---|
| 677 | /* Controller's identification */
|
---|
| 678 | uint8_t version;
|
---|
| 679 | /* HW */
|
---|
| 680 | uint8_t irq_lvl;
|
---|
| 681 | uint8_t dma_chann;
|
---|
[81794] | 682 | uint16_t io_base;
|
---|
[1] | 683 | /* Controller state */
|
---|
[81795] | 684 | TMTIMERHANDLE hResultTimer;
|
---|
[82152] | 685 |
|
---|
| 686 | /* Interrupt delay timers. */
|
---|
| 687 | TMTIMERHANDLE hXferDelayTimer;
|
---|
| 688 | TMTIMERHANDLE hIrqDelayTimer;
|
---|
| 689 | uint16_t uIrqDelayMsec;
|
---|
| 690 | uint8_t st0;
|
---|
| 691 | uint8_t st1;
|
---|
| 692 | uint8_t st2;
|
---|
| 693 |
|
---|
[34294] | 694 | uint8_t sra;
|
---|
| 695 | uint8_t srb;
|
---|
| 696 | uint8_t dor;
|
---|
| 697 | uint8_t tdr;
|
---|
| 698 | uint8_t dsr;
|
---|
| 699 | uint8_t msr;
|
---|
[1] | 700 | uint8_t cur_drv;
|
---|
[34294] | 701 | uint8_t status0;
|
---|
| 702 | uint8_t status1;
|
---|
| 703 | uint8_t status2;
|
---|
[1] | 704 | /* Command FIFO */
|
---|
| 705 | uint8_t fifo[FD_SECTOR_LEN];
|
---|
| 706 | uint32_t data_pos;
|
---|
| 707 | uint32_t data_len;
|
---|
| 708 | uint8_t data_state;
|
---|
| 709 | uint8_t data_dir;
|
---|
| 710 | uint8_t eot; /* last wanted sector */
|
---|
[92747] | 711 | /* Debugging only */
|
---|
| 712 | uint8_t cur_cmd;
|
---|
| 713 | uint8_t prev_cmd;
|
---|
[1] | 714 | /* States kept only to be returned back */
|
---|
| 715 | /* Timers state */
|
---|
| 716 | uint8_t timer0;
|
---|
| 717 | uint8_t timer1;
|
---|
| 718 | /* precompensation */
|
---|
| 719 | uint8_t precomp_trk;
|
---|
| 720 | uint8_t config;
|
---|
| 721 | uint8_t lock;
|
---|
| 722 | /* Power down config (also with status regB access mode */
|
---|
| 723 | uint8_t pwrd;
|
---|
| 724 | /* Floppy drives */
|
---|
[34294] | 725 | uint8_t num_floppies;
|
---|
| 726 | fdrive_t drives[MAX_FD];
|
---|
| 727 | uint8_t reset_sensei;
|
---|
[1] | 728 | /** Pointer to device instance. */
|
---|
| 729 | PPDMDEVINS pDevIns;
|
---|
| 730 |
|
---|
[25966] | 731 | /** Status LUN: The base interface. */
|
---|
[1] | 732 | PDMIBASE IBaseStatus;
|
---|
[25966] | 733 | /** Status LUN: The Leds interface. */
|
---|
[1] | 734 | PDMILEDPORTS ILeds;
|
---|
[25966] | 735 | /** Status LUN: The Partner of ILeds. */
|
---|
[1] | 736 | PPDMILEDCONNECTORS pLedsConnector;
|
---|
[81799] | 737 |
|
---|
[81995] | 738 | /** I/O ports: 0x3f0 */
|
---|
| 739 | IOMIOPORTHANDLE hIoPorts0;
|
---|
[81799] | 740 | /** I/O ports: 0x3f1..0x3f5 */
|
---|
| 741 | IOMIOPORTHANDLE hIoPorts1;
|
---|
| 742 | /** I/O port: 0x3f7 */
|
---|
| 743 | IOMIOPORTHANDLE hIoPorts2;
|
---|
[1] | 744 | };
|
---|
| 745 |
|
---|
[81799] | 746 | static uint32_t fdctrl_read (fdctrl_t *fdctrl, uint32_t reg)
|
---|
[1] | 747 | {
|
---|
| 748 | uint32_t retval;
|
---|
| 749 |
|
---|
[34294] | 750 | switch (reg) {
|
---|
| 751 | case FD_REG_SRA:
|
---|
| 752 | retval = fdctrl_read_statusA(fdctrl);
|
---|
| 753 | break;
|
---|
| 754 | case FD_REG_SRB:
|
---|
[1] | 755 | retval = fdctrl_read_statusB(fdctrl);
|
---|
| 756 | break;
|
---|
[34294] | 757 | case FD_REG_DOR:
|
---|
[1] | 758 | retval = fdctrl_read_dor(fdctrl);
|
---|
| 759 | break;
|
---|
[34294] | 760 | case FD_REG_TDR:
|
---|
[1] | 761 | retval = fdctrl_read_tape(fdctrl);
|
---|
| 762 | break;
|
---|
[34294] | 763 | case FD_REG_MSR:
|
---|
[1] | 764 | retval = fdctrl_read_main_status(fdctrl);
|
---|
| 765 | break;
|
---|
[34294] | 766 | case FD_REG_FIFO:
|
---|
[1] | 767 | retval = fdctrl_read_data(fdctrl);
|
---|
| 768 | break;
|
---|
[34294] | 769 | case FD_REG_DIR:
|
---|
[1] | 770 | retval = fdctrl_read_dir(fdctrl);
|
---|
| 771 | break;
|
---|
| 772 | default:
|
---|
[81799] | 773 | retval = UINT32_MAX;
|
---|
[1] | 774 | break;
|
---|
| 775 | }
|
---|
| 776 | FLOPPY_DPRINTF("read reg%d: 0x%02x\n", reg & 7, retval);
|
---|
| 777 |
|
---|
| 778 | return retval;
|
---|
| 779 | }
|
---|
| 780 |
|
---|
[81799] | 781 | static void fdctrl_write (fdctrl_t *fdctrl, uint32_t reg, uint32_t value)
|
---|
[1] | 782 | {
|
---|
| 783 | FLOPPY_DPRINTF("write reg%d: 0x%02x\n", reg & 7, value);
|
---|
| 784 |
|
---|
[34294] | 785 | switch (reg) {
|
---|
| 786 | case FD_REG_DOR:
|
---|
[1] | 787 | fdctrl_write_dor(fdctrl, value);
|
---|
| 788 | break;
|
---|
[34294] | 789 | case FD_REG_TDR:
|
---|
[1] | 790 | fdctrl_write_tape(fdctrl, value);
|
---|
| 791 | break;
|
---|
[34294] | 792 | case FD_REG_DSR:
|
---|
[103882] | 793 | fdctrl_write_data(fdctrl, value);
|
---|
| 794 | // fdctrl_write_rate(fdctrl, value);
|
---|
[1] | 795 | break;
|
---|
[34294] | 796 | case FD_REG_FIFO:
|
---|
[1] | 797 | fdctrl_write_data(fdctrl, value);
|
---|
| 798 | break;
|
---|
[36705] | 799 | case FD_REG_CCR:
|
---|
| 800 | fdctrl_write_ccr(fdctrl, value);
|
---|
| 801 | break;
|
---|
[1] | 802 | default:
|
---|
| 803 | break;
|
---|
| 804 | }
|
---|
| 805 | }
|
---|
| 806 |
|
---|
| 807 | /* Change IRQ state */
|
---|
[34294] | 808 | static void fdctrl_reset_irq(fdctrl_t *fdctrl)
|
---|
[1] | 809 | {
|
---|
[34294] | 810 | if (!(fdctrl->sra & FD_SRA_INTPEND))
|
---|
| 811 | return;
|
---|
[1] | 812 | FLOPPY_DPRINTF("Reset interrupt\n");
|
---|
[6318] | 813 | PDMDevHlpISASetIrq (fdctrl->pDevIns, fdctrl->irq_lvl, 0);
|
---|
[34294] | 814 | fdctrl->sra &= ~FD_SRA_INTPEND;
|
---|
[1] | 815 | }
|
---|
| 816 |
|
---|
[82152] | 817 | static void fdctrl_raise_irq_now(fdctrl_t *fdctrl, uint8_t status0)
|
---|
[1] | 818 | {
|
---|
[34294] | 819 | if (!(fdctrl->sra & FD_SRA_INTPEND)) {
|
---|
[47036] | 820 | FLOPPY_DPRINTF("Raising interrupt...\n");
|
---|
[6318] | 821 | PDMDevHlpISASetIrq (fdctrl->pDevIns, fdctrl->irq_lvl, 1);
|
---|
[34294] | 822 | fdctrl->sra |= FD_SRA_INTPEND;
|
---|
[1] | 823 | }
|
---|
[36705] | 824 | if (status0 & FD_SR0_SEEK) {
|
---|
| 825 | fdrive_t *cur_drv;
|
---|
| 826 |
|
---|
| 827 | /* A seek clears the disk change line (if a disk is inserted). */
|
---|
| 828 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 829 | if (cur_drv->max_track)
|
---|
| 830 | cur_drv->dsk_chg = false;
|
---|
| 831 | }
|
---|
| 832 |
|
---|
[34294] | 833 | fdctrl->reset_sensei = 0;
|
---|
| 834 | fdctrl->status0 = status0;
|
---|
| 835 | FLOPPY_DPRINTF("Set interrupt status to 0x%02x\n", fdctrl->status0);
|
---|
[1] | 836 | }
|
---|
| 837 |
|
---|
[82152] | 838 | static void fdctrl_raise_irq(fdctrl_t *fdctrl, uint8_t status0)
|
---|
| 839 | {
|
---|
| 840 | if (!fdctrl->uIrqDelayMsec)
|
---|
| 841 | {
|
---|
| 842 | /* If not IRQ delay needed, trigger the interrupt now. */
|
---|
| 843 | fdctrl_raise_irq_now(fdctrl, status0);
|
---|
| 844 | }
|
---|
| 845 | else
|
---|
| 846 | {
|
---|
| 847 | /* Otherwise schedule completion after a short while. */
|
---|
| 848 | fdctrl->st0 = status0;
|
---|
| 849 | PDMDevHlpTimerSetMillies(fdctrl->pDevIns, fdctrl->hIrqDelayTimer, fdctrl->uIrqDelayMsec);
|
---|
| 850 | }
|
---|
| 851 | }
|
---|
| 852 |
|
---|
[1] | 853 | /* Reset controller */
|
---|
[34294] | 854 | static void fdctrl_reset(fdctrl_t *fdctrl, int do_irq)
|
---|
[1] | 855 | {
|
---|
| 856 | int i;
|
---|
| 857 |
|
---|
| 858 | FLOPPY_DPRINTF("reset controller\n");
|
---|
| 859 | fdctrl_reset_irq(fdctrl);
|
---|
| 860 | /* Initialise controller */
|
---|
[34294] | 861 | fdctrl->sra = 0;
|
---|
| 862 | fdctrl->srb = 0xc0;
|
---|
[59248] | 863 | if (!fdctrl->drives[1].pDrvMedia)
|
---|
[34294] | 864 | fdctrl->sra |= FD_SRA_nDRV2;
|
---|
[1] | 865 | fdctrl->cur_drv = 0;
|
---|
[34294] | 866 | fdctrl->dor = FD_DOR_nRESET;
|
---|
| 867 | fdctrl->dor |= (fdctrl->dma_chann != 0xff) ? FD_DOR_DMAEN : 0;
|
---|
| 868 | fdctrl->msr = FD_MSR_RQM;
|
---|
[1] | 869 | /* FIFO state */
|
---|
| 870 | fdctrl->data_pos = 0;
|
---|
| 871 | fdctrl->data_len = 0;
|
---|
[34294] | 872 | fdctrl->data_state = 0;
|
---|
[1] | 873 | fdctrl->data_dir = FD_DIR_WRITE;
|
---|
| 874 | for (i = 0; i < MAX_FD; i++)
|
---|
[34294] | 875 | fd_recalibrate(&fdctrl->drives[i]);
|
---|
[1] | 876 | fdctrl_reset_fifo(fdctrl);
|
---|
[34294] | 877 | if (do_irq) {
|
---|
| 878 | fdctrl_raise_irq(fdctrl, FD_SR0_RDYCHG);
|
---|
| 879 | fdctrl->reset_sensei = FD_RESET_SENSEI_COUNT;
|
---|
| 880 | }
|
---|
[1] | 881 | }
|
---|
| 882 |
|
---|
[34294] | 883 | static inline fdrive_t *drv0(fdctrl_t *fdctrl)
|
---|
[1] | 884 | {
|
---|
[34294] | 885 | return &fdctrl->drives[(fdctrl->tdr & FD_TDR_BOOTSEL) >> 2];
|
---|
[1] | 886 | }
|
---|
| 887 |
|
---|
[34294] | 888 | static inline fdrive_t *drv1(fdctrl_t *fdctrl)
|
---|
[1] | 889 | {
|
---|
[34294] | 890 | if ((fdctrl->tdr & FD_TDR_BOOTSEL) < (1 << 2))
|
---|
| 891 | return &fdctrl->drives[1];
|
---|
| 892 | else
|
---|
| 893 | return &fdctrl->drives[0];
|
---|
[1] | 894 | }
|
---|
| 895 |
|
---|
[34294] | 896 | #if MAX_FD == 4
|
---|
| 897 | static inline fdrive_t *drv2(fdctrl_t *fdctrl)
|
---|
[1] | 898 | {
|
---|
[34294] | 899 | if ((fdctrl->tdr & FD_TDR_BOOTSEL) < (2 << 2))
|
---|
| 900 | return &fdctrl->drives[2];
|
---|
| 901 | else
|
---|
| 902 | return &fdctrl->drives[1];
|
---|
[1] | 903 | }
|
---|
| 904 |
|
---|
[34294] | 905 | static inline fdrive_t *drv3(fdctrl_t *fdctrl)
|
---|
| 906 | {
|
---|
| 907 | if ((fdctrl->tdr & FD_TDR_BOOTSEL) < (3 << 2))
|
---|
| 908 | return &fdctrl->drives[3];
|
---|
| 909 | else
|
---|
| 910 | return &fdctrl->drives[2];
|
---|
| 911 | }
|
---|
| 912 | #endif
|
---|
| 913 |
|
---|
| 914 | static fdrive_t *get_cur_drv(fdctrl_t *fdctrl)
|
---|
| 915 | {
|
---|
[103291] | 916 | #if MAX_FD == 2
|
---|
| 917 | if (fdctrl->dor & FD_DRV_SELMASK)
|
---|
| 918 | return drv1(fdctrl);
|
---|
| 919 |
|
---|
| 920 | return drv0(fdctrl);
|
---|
| 921 | #else
|
---|
[94649] | 922 | switch (fdctrl->dor & FD_DRV_SELMASK) {
|
---|
[34294] | 923 | case 0: return drv0(fdctrl);
|
---|
| 924 | case 1: return drv1(fdctrl);
|
---|
[103291] | 925 | # if MAX_FD == 4
|
---|
[34294] | 926 | case 2: return drv2(fdctrl);
|
---|
| 927 | case 3: return drv3(fdctrl);
|
---|
[103291] | 928 | # endif
|
---|
[34294] | 929 | default: return NULL;
|
---|
| 930 | }
|
---|
[103291] | 931 | #endif
|
---|
[34294] | 932 | }
|
---|
| 933 |
|
---|
| 934 | /* Status A register : 0x00 (read-only) */
|
---|
| 935 | static uint32_t fdctrl_read_statusA(fdctrl_t *fdctrl)
|
---|
| 936 | {
|
---|
| 937 | uint32_t retval = fdctrl->sra;
|
---|
| 938 |
|
---|
| 939 | FLOPPY_DPRINTF("status register A: 0x%02x\n", retval);
|
---|
| 940 |
|
---|
| 941 | return retval;
|
---|
| 942 | }
|
---|
| 943 |
|
---|
[1] | 944 | /* Status B register : 0x01 (read-only) */
|
---|
[34294] | 945 | static uint32_t fdctrl_read_statusB(fdctrl_t *fdctrl)
|
---|
[1] | 946 | {
|
---|
[34294] | 947 | uint32_t retval = fdctrl->srb;
|
---|
| 948 |
|
---|
| 949 | FLOPPY_DPRINTF("status register B: 0x%02x\n", retval);
|
---|
| 950 |
|
---|
| 951 | return retval;
|
---|
[1] | 952 | }
|
---|
| 953 |
|
---|
| 954 | /* Digital output register : 0x02 */
|
---|
[34294] | 955 | static uint32_t fdctrl_read_dor(fdctrl_t *fdctrl)
|
---|
[1] | 956 | {
|
---|
[34294] | 957 | uint32_t retval = fdctrl->dor;
|
---|
[1] | 958 |
|
---|
| 959 | FLOPPY_DPRINTF("digital output register: 0x%02x\n", retval);
|
---|
| 960 |
|
---|
| 961 | return retval;
|
---|
| 962 | }
|
---|
| 963 |
|
---|
[34294] | 964 | static void fdctrl_write_dor(fdctrl_t *fdctrl, uint32_t value)
|
---|
[1] | 965 | {
|
---|
| 966 | FLOPPY_DPRINTF("digital output register set to 0x%02x\n", value);
|
---|
[34294] | 967 |
|
---|
| 968 | /* Motors */
|
---|
| 969 | if (value & FD_DOR_MOTEN0)
|
---|
| 970 | fdctrl->srb |= FD_SRB_MTR0;
|
---|
[1] | 971 | else
|
---|
[34294] | 972 | fdctrl->srb &= ~FD_SRB_MTR0;
|
---|
| 973 | if (value & FD_DOR_MOTEN1)
|
---|
| 974 | fdctrl->srb |= FD_SRB_MTR1;
|
---|
[1] | 975 | else
|
---|
[34294] | 976 | fdctrl->srb &= ~FD_SRB_MTR1;
|
---|
| 977 |
|
---|
| 978 | /* Drive */
|
---|
| 979 | if (value & 1)
|
---|
| 980 | fdctrl->srb |= FD_SRB_DR0;
|
---|
| 981 | else
|
---|
| 982 | fdctrl->srb &= ~FD_SRB_DR0;
|
---|
| 983 |
|
---|
[1] | 984 | /* Reset */
|
---|
[34294] | 985 | if (!(value & FD_DOR_nRESET)) {
|
---|
| 986 | if (fdctrl->dor & FD_DOR_nRESET) {
|
---|
[1] | 987 | FLOPPY_DPRINTF("controller enter RESET state\n");
|
---|
| 988 | }
|
---|
| 989 | } else {
|
---|
[34294] | 990 | if (!(fdctrl->dor & FD_DOR_nRESET)) {
|
---|
[1] | 991 | FLOPPY_DPRINTF("controller out of RESET state\n");
|
---|
| 992 | fdctrl_reset(fdctrl, 1);
|
---|
[34294] | 993 | fdctrl->dsr &= ~FD_DSR_PWRDOWN;
|
---|
[1] | 994 | }
|
---|
| 995 | }
|
---|
[34294] | 996 |
|
---|
| 997 | fdctrl->dor = value;
|
---|
[1] | 998 | }
|
---|
| 999 |
|
---|
| 1000 | /* Tape drive register : 0x03 */
|
---|
[34294] | 1001 | static uint32_t fdctrl_read_tape(fdctrl_t *fdctrl)
|
---|
[1] | 1002 | {
|
---|
[34294] | 1003 | uint32_t retval = fdctrl->tdr;
|
---|
[1] | 1004 |
|
---|
| 1005 | FLOPPY_DPRINTF("tape drive register: 0x%02x\n", retval);
|
---|
| 1006 |
|
---|
| 1007 | return retval;
|
---|
| 1008 | }
|
---|
| 1009 |
|
---|
[34294] | 1010 | static void fdctrl_write_tape(fdctrl_t *fdctrl, uint32_t value)
|
---|
[1] | 1011 | {
|
---|
| 1012 | /* Reset mode */
|
---|
[34294] | 1013 | if (!(fdctrl->dor & FD_DOR_nRESET)) {
|
---|
[1] | 1014 | FLOPPY_DPRINTF("Floppy controller in RESET state !\n");
|
---|
| 1015 | return;
|
---|
| 1016 | }
|
---|
| 1017 | FLOPPY_DPRINTF("tape drive register set to 0x%02x\n", value);
|
---|
| 1018 | /* Disk boot selection indicator */
|
---|
[34294] | 1019 | fdctrl->tdr = value & FD_TDR_BOOTSEL;
|
---|
[1] | 1020 | /* Tape indicators: never allow */
|
---|
| 1021 | }
|
---|
| 1022 |
|
---|
| 1023 | /* Main status register : 0x04 (read) */
|
---|
[34294] | 1024 | static uint32_t fdctrl_read_main_status(fdctrl_t *fdctrl)
|
---|
[1] | 1025 | {
|
---|
[34294] | 1026 | uint32_t retval = fdctrl->msr;
|
---|
[1] | 1027 |
|
---|
[34294] | 1028 | fdctrl->dsr &= ~FD_DSR_PWRDOWN;
|
---|
| 1029 | fdctrl->dor |= FD_DOR_nRESET;
|
---|
| 1030 |
|
---|
[1] | 1031 | FLOPPY_DPRINTF("main status register: 0x%02x\n", retval);
|
---|
| 1032 |
|
---|
| 1033 | return retval;
|
---|
| 1034 | }
|
---|
| 1035 |
|
---|
| 1036 | /* Data select rate register : 0x04 (write) */
|
---|
[34294] | 1037 | static void fdctrl_write_rate(fdctrl_t *fdctrl, uint32_t value)
|
---|
[1] | 1038 | {
|
---|
| 1039 | /* Reset mode */
|
---|
[34294] | 1040 | if (!(fdctrl->dor & FD_DOR_nRESET)) {
|
---|
| 1041 | FLOPPY_DPRINTF("Floppy controller in RESET state !\n");
|
---|
| 1042 | return;
|
---|
| 1043 | }
|
---|
[1] | 1044 | FLOPPY_DPRINTF("select rate register set to 0x%02x\n", value);
|
---|
| 1045 | /* Reset: autoclear */
|
---|
[34294] | 1046 | if (value & FD_DSR_SWRESET) {
|
---|
| 1047 | fdctrl->dor &= ~FD_DOR_nRESET;
|
---|
[103882] | 1048 | // fdctrl_reset(fdctrl, 1);
|
---|
[34294] | 1049 | fdctrl->dor |= FD_DOR_nRESET;
|
---|
[1] | 1050 | }
|
---|
[34294] | 1051 | if (value & FD_DSR_PWRDOWN) {
|
---|
[1] | 1052 | fdctrl_reset(fdctrl, 1);
|
---|
| 1053 | }
|
---|
[34294] | 1054 | fdctrl->dsr = value;
|
---|
[1] | 1055 | }
|
---|
| 1056 |
|
---|
[36705] | 1057 | /* Configuration control register : 0x07 (write) */
|
---|
| 1058 | static void fdctrl_write_ccr(fdctrl_t *fdctrl, uint32_t value)
|
---|
| 1059 | {
|
---|
| 1060 | /* Reset mode */
|
---|
| 1061 | if (!(fdctrl->dor & FD_DOR_nRESET)) {
|
---|
| 1062 | FLOPPY_DPRINTF("Floppy controller in RESET state !\n");
|
---|
| 1063 | return;
|
---|
| 1064 | }
|
---|
| 1065 | FLOPPY_DPRINTF("configuration control register set to 0x%02x\n", value);
|
---|
| 1066 |
|
---|
| 1067 | /* Only the rate selection bits used in AT mode, and we
|
---|
| 1068 | * store those in the DSR.
|
---|
| 1069 | */
|
---|
| 1070 | fdctrl->dsr = (fdctrl->dsr & ~FD_DSR_DRATEMASK) | (value & FD_DSR_DRATEMASK);
|
---|
| 1071 | }
|
---|
| 1072 |
|
---|
[34294] | 1073 | static int fdctrl_media_changed(fdrive_t *drv)
|
---|
| 1074 | {
|
---|
[36705] | 1075 | return drv->dsk_chg;
|
---|
[34294] | 1076 | }
|
---|
| 1077 |
|
---|
[1] | 1078 | /* Digital input register : 0x07 (read-only) */
|
---|
[34294] | 1079 | static uint32_t fdctrl_read_dir(fdctrl_t *fdctrl)
|
---|
[1] | 1080 | {
|
---|
| 1081 | uint32_t retval = 0;
|
---|
| 1082 |
|
---|
[47530] | 1083 | /* The change line signal is reported by the currently selected
|
---|
[48161] | 1084 | * drive. If the corresponding motor on bit is not set, the drive
|
---|
| 1085 | * is *not* selected!
|
---|
[47530] | 1086 | */
|
---|
| 1087 | if (fdctrl_media_changed(get_cur_drv(fdctrl))
|
---|
[94649] | 1088 | && (fdctrl->dor & (0x10 << (fdctrl->dor & FD_DOR_SELMASK))))
|
---|
[34294] | 1089 | retval |= FD_DIR_DSKCHG;
|
---|
[1] | 1090 | if (retval != 0)
|
---|
| 1091 | FLOPPY_DPRINTF("Floppy digital input register: 0x%02x\n", retval);
|
---|
| 1092 |
|
---|
| 1093 | return retval;
|
---|
| 1094 | }
|
---|
| 1095 |
|
---|
| 1096 | /* FIFO state control */
|
---|
[34294] | 1097 | static void fdctrl_reset_fifo(fdctrl_t *fdctrl)
|
---|
[1] | 1098 | {
|
---|
| 1099 | fdctrl->data_dir = FD_DIR_WRITE;
|
---|
| 1100 | fdctrl->data_pos = 0;
|
---|
[34294] | 1101 | fdctrl->msr &= ~(FD_MSR_CMDBUSY | FD_MSR_DIO);
|
---|
[92747] | 1102 | fdctrl->prev_cmd = fdctrl->cur_cmd;
|
---|
| 1103 | fdctrl->cur_cmd = 0;
|
---|
[1] | 1104 | }
|
---|
| 1105 |
|
---|
| 1106 | /* Set FIFO status for the host to read */
|
---|
[34294] | 1107 | static void fdctrl_set_fifo(fdctrl_t *fdctrl, int fifo_len, int do_irq)
|
---|
[1] | 1108 | {
|
---|
| 1109 | fdctrl->data_dir = FD_DIR_READ;
|
---|
| 1110 | fdctrl->data_len = fifo_len;
|
---|
| 1111 | fdctrl->data_pos = 0;
|
---|
[34294] | 1112 | fdctrl->msr |= FD_MSR_CMDBUSY | FD_MSR_RQM | FD_MSR_DIO;
|
---|
[1] | 1113 | if (do_irq)
|
---|
| 1114 | fdctrl_raise_irq(fdctrl, 0x00);
|
---|
| 1115 | }
|
---|
| 1116 |
|
---|
| 1117 | /* Set an error: unimplemented/unknown command */
|
---|
[34294] | 1118 | static void fdctrl_unimplemented(fdctrl_t *fdctrl, int direction)
|
---|
[1] | 1119 | {
|
---|
[62904] | 1120 | RT_NOREF(direction);
|
---|
[34294] | 1121 | FLOPPY_ERROR("unimplemented command 0x%02x\n", fdctrl->fifo[0]);
|
---|
| 1122 | fdctrl->fifo[0] = FD_SR0_INVCMD;
|
---|
[1] | 1123 | fdctrl_set_fifo(fdctrl, 1, 0);
|
---|
| 1124 | }
|
---|
| 1125 |
|
---|
[34294] | 1126 | /* Seek to next sector */
|
---|
| 1127 | static int fdctrl_seek_to_next_sect(fdctrl_t *fdctrl, fdrive_t *cur_drv)
|
---|
| 1128 | {
|
---|
| 1129 | FLOPPY_DPRINTF("seek to next sector (%d %02x %02x => %d)\n",
|
---|
| 1130 | cur_drv->head, cur_drv->track, cur_drv->sect,
|
---|
| 1131 | fd_sector(cur_drv));
|
---|
| 1132 | /* XXX: cur_drv->sect >= cur_drv->last_sect should be an
|
---|
| 1133 | error in fact */
|
---|
| 1134 | if (cur_drv->sect >= cur_drv->last_sect ||
|
---|
| 1135 | cur_drv->sect == fdctrl->eot) {
|
---|
| 1136 | cur_drv->sect = 1;
|
---|
| 1137 | if (FD_MULTI_TRACK(fdctrl->data_state)) {
|
---|
| 1138 | if (cur_drv->head == 0 &&
|
---|
| 1139 | (cur_drv->flags & FDISK_DBL_SIDES) != 0) {
|
---|
| 1140 | cur_drv->head = 1;
|
---|
| 1141 | } else {
|
---|
| 1142 | cur_drv->head = 0;
|
---|
[48081] | 1143 | cur_drv->ltrk++;
|
---|
[34294] | 1144 | if ((cur_drv->flags & FDISK_DBL_SIDES) == 0)
|
---|
| 1145 | return 0;
|
---|
| 1146 | }
|
---|
| 1147 | } else {
|
---|
[48081] | 1148 | cur_drv->ltrk++;
|
---|
[34294] | 1149 | return 0;
|
---|
| 1150 | }
|
---|
| 1151 | FLOPPY_DPRINTF("seek to next track (%d %02x %02x => %d)\n",
|
---|
| 1152 | cur_drv->head, cur_drv->track,
|
---|
| 1153 | cur_drv->sect, fd_sector(cur_drv));
|
---|
| 1154 | } else {
|
---|
| 1155 | cur_drv->sect++;
|
---|
| 1156 | }
|
---|
| 1157 | return 1;
|
---|
| 1158 | }
|
---|
| 1159 |
|
---|
[1] | 1160 | /* Callback for transfer end (stop or abort) */
|
---|
[82152] | 1161 | static void fdctrl_stop_transfer_now(fdctrl_t *fdctrl, uint8_t status0,
|
---|
| 1162 | uint8_t status1, uint8_t status2)
|
---|
[1] | 1163 | {
|
---|
| 1164 | fdrive_t *cur_drv;
|
---|
| 1165 |
|
---|
| 1166 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 1167 | FLOPPY_DPRINTF("transfer status: %02x %02x %02x (%02x)\n",
|
---|
| 1168 | status0, status1, status2,
|
---|
[34294] | 1169 | status0 | (cur_drv->head << 2) | GET_CUR_DRV(fdctrl));
|
---|
| 1170 | fdctrl->fifo[0] = status0 | (cur_drv->head << 2) | GET_CUR_DRV(fdctrl);
|
---|
[1] | 1171 | fdctrl->fifo[1] = status1;
|
---|
| 1172 | fdctrl->fifo[2] = status2;
|
---|
[48081] | 1173 | fdctrl->fifo[3] = cur_drv->ltrk;
|
---|
[1] | 1174 | fdctrl->fifo[4] = cur_drv->head;
|
---|
| 1175 | fdctrl->fifo[5] = cur_drv->sect;
|
---|
| 1176 | fdctrl->fifo[6] = FD_SECTOR_SC;
|
---|
[48059] | 1177 | FLOPPY_DPRINTF("ST0:%02x ST1:%02x ST2:%02x C:%02x H:%02x R:%02x N:%02x\n",
|
---|
| 1178 | fdctrl->fifo[0], fdctrl->fifo[1], fdctrl->fifo[2], fdctrl->fifo[3],
|
---|
| 1179 | fdctrl->fifo[4], fdctrl->fifo[5], fdctrl->fifo[6]);
|
---|
| 1180 |
|
---|
[1] | 1181 | fdctrl->data_dir = FD_DIR_READ;
|
---|
[34294] | 1182 | if (!(fdctrl->msr & FD_MSR_NONDMA)) {
|
---|
[6318] | 1183 | PDMDevHlpDMASetDREQ (fdctrl->pDevIns, fdctrl->dma_chann, 0);
|
---|
[1] | 1184 | }
|
---|
[34294] | 1185 | fdctrl->msr |= FD_MSR_RQM | FD_MSR_DIO;
|
---|
| 1186 | fdctrl->msr &= ~FD_MSR_NONDMA;
|
---|
[1] | 1187 | fdctrl_set_fifo(fdctrl, 7, 1);
|
---|
| 1188 | }
|
---|
| 1189 |
|
---|
[82152] | 1190 | static void fdctrl_stop_transfer(fdctrl_t *fdctrl, uint8_t status0,
|
---|
| 1191 | uint8_t status1, uint8_t status2)
|
---|
| 1192 | {
|
---|
| 1193 | if (!fdctrl->uIrqDelayMsec)
|
---|
| 1194 | {
|
---|
| 1195 | /* If not IRQ delay needed, just stop the transfer and trigger IRQ now. */
|
---|
| 1196 | fdctrl_stop_transfer_now(fdctrl, status0, status1, status2);
|
---|
| 1197 | }
|
---|
| 1198 | else
|
---|
| 1199 | {
|
---|
| 1200 | /* Otherwise schedule completion after a short while. */
|
---|
| 1201 | fdctrl->st0 = status0;
|
---|
| 1202 | fdctrl->st1 = status1;
|
---|
| 1203 | fdctrl->st2 = status2;
|
---|
| 1204 | PDMDevHlpTimerSetMillies(fdctrl->pDevIns, fdctrl->hXferDelayTimer, fdctrl->uIrqDelayMsec);
|
---|
| 1205 | }
|
---|
| 1206 | }
|
---|
| 1207 |
|
---|
[1] | 1208 | /* Prepare a data transfer (either DMA or FIFO) */
|
---|
[34294] | 1209 | static void fdctrl_start_transfer(fdctrl_t *fdctrl, int direction)
|
---|
[1] | 1210 | {
|
---|
| 1211 | fdrive_t *cur_drv;
|
---|
| 1212 | uint8_t kh, kt, ks;
|
---|
[34294] | 1213 | int did_seek = 0;
|
---|
[1] | 1214 |
|
---|
[34294] | 1215 | SET_CUR_DRV(fdctrl, fdctrl->fifo[1] & FD_DOR_SELMASK);
|
---|
[1] | 1216 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 1217 | kt = fdctrl->fifo[2];
|
---|
| 1218 | kh = fdctrl->fifo[3];
|
---|
| 1219 | ks = fdctrl->fifo[4];
|
---|
| 1220 | FLOPPY_DPRINTF("Start transfer at %d %d %02x %02x (%d)\n",
|
---|
[34294] | 1221 | GET_CUR_DRV(fdctrl), kh, kt, ks,
|
---|
[37478] | 1222 | fd_sector_calc(kh, kt, ks, cur_drv->last_sect, NUM_SIDES(cur_drv)));
|
---|
[48059] | 1223 | FLOPPY_DPRINTF("CMD:%02x SEL:%02x C:%02x H:%02x R:%02x N:%02x EOT:%02x GPL:%02x DTL:%02x\n",
|
---|
| 1224 | fdctrl->fifo[0], fdctrl->fifo[1], fdctrl->fifo[2],
|
---|
| 1225 | fdctrl->fifo[3], fdctrl->fifo[4], fdctrl->fifo[5],
|
---|
| 1226 | fdctrl->fifo[6], fdctrl->fifo[7], fdctrl->fifo[8]);
|
---|
[34294] | 1227 | switch (fd_seek(cur_drv, kh, kt, ks, fdctrl->config & FD_CONFIG_EIS)) {
|
---|
[1] | 1228 | case 2:
|
---|
| 1229 | /* sect too big */
|
---|
[34294] | 1230 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, 0x00, 0x00);
|
---|
[1] | 1231 | fdctrl->fifo[3] = kt;
|
---|
| 1232 | fdctrl->fifo[4] = kh;
|
---|
| 1233 | fdctrl->fifo[5] = ks;
|
---|
| 1234 | return;
|
---|
| 1235 | case 3:
|
---|
| 1236 | /* track too big */
|
---|
[34294] | 1237 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, FD_SR1_EC, 0x00);
|
---|
[1] | 1238 | fdctrl->fifo[3] = kt;
|
---|
| 1239 | fdctrl->fifo[4] = kh;
|
---|
| 1240 | fdctrl->fifo[5] = ks;
|
---|
| 1241 | return;
|
---|
| 1242 | case 4:
|
---|
| 1243 | /* No seek enabled */
|
---|
[34294] | 1244 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, 0x00, 0x00);
|
---|
[1] | 1245 | fdctrl->fifo[3] = kt;
|
---|
| 1246 | fdctrl->fifo[4] = kh;
|
---|
| 1247 | fdctrl->fifo[5] = ks;
|
---|
| 1248 | return;
|
---|
[55641] | 1249 | case 5:
|
---|
| 1250 | /* No disk in drive */
|
---|
[63562] | 1251 | /// @todo This is wrong! Command should not complete.
|
---|
[55641] | 1252 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM | 0x08, /*FD_SR1_MA |*/ FD_SR1_ND, 0x00);
|
---|
| 1253 | fdctrl->fifo[3] = kt;
|
---|
| 1254 | fdctrl->fifo[4] = kh;
|
---|
| 1255 | fdctrl->fifo[5] = ks;
|
---|
| 1256 | return;
|
---|
[1] | 1257 | case 1:
|
---|
| 1258 | did_seek = 1;
|
---|
| 1259 | break;
|
---|
| 1260 | default:
|
---|
| 1261 | break;
|
---|
| 1262 | }
|
---|
[36705] | 1263 | /* Check the data rate. If the programmed data rate does not match
|
---|
| 1264 | * the currently inserted medium, the operation has to fail.
|
---|
| 1265 | */
|
---|
| 1266 | if ((fdctrl->dsr & FD_DSR_DRATEMASK) != cur_drv->media_rate) {
|
---|
| 1267 | FLOPPY_DPRINTF("data rate mismatch (fdc=%d, media=%d)\n",
|
---|
| 1268 | fdctrl->dsr & FD_DSR_DRATEMASK, cur_drv->media_rate);
|
---|
[47711] | 1269 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, FD_SR1_MA, FD_SR2_MD);
|
---|
[36705] | 1270 | fdctrl->fifo[3] = kt;
|
---|
| 1271 | fdctrl->fifo[4] = kh;
|
---|
| 1272 | fdctrl->fifo[5] = ks;
|
---|
| 1273 | return;
|
---|
| 1274 | }
|
---|
[1] | 1275 | /* Set the FIFO state */
|
---|
| 1276 | fdctrl->data_dir = direction;
|
---|
| 1277 | fdctrl->data_pos = 0;
|
---|
[34294] | 1278 | fdctrl->msr |= FD_MSR_CMDBUSY;
|
---|
[1] | 1279 | if (fdctrl->fifo[0] & 0x80)
|
---|
| 1280 | fdctrl->data_state |= FD_STATE_MULTI;
|
---|
| 1281 | else
|
---|
| 1282 | fdctrl->data_state &= ~FD_STATE_MULTI;
|
---|
| 1283 | if (did_seek)
|
---|
| 1284 | fdctrl->data_state |= FD_STATE_SEEK;
|
---|
| 1285 | else
|
---|
| 1286 | fdctrl->data_state &= ~FD_STATE_SEEK;
|
---|
| 1287 | if (fdctrl->fifo[5] == 00) {
|
---|
| 1288 | fdctrl->data_len = fdctrl->fifo[8];
|
---|
| 1289 | } else {
|
---|
| 1290 | int tmp;
|
---|
[34294] | 1291 | fdctrl->data_len = 128 << (fdctrl->fifo[5] > 7 ? 7 : fdctrl->fifo[5]);
|
---|
| 1292 | tmp = (fdctrl->fifo[6] - ks + 1);
|
---|
[1] | 1293 | if (fdctrl->fifo[0] & 0x80)
|
---|
[34294] | 1294 | tmp += fdctrl->fifo[6];
|
---|
[1] | 1295 | fdctrl->data_len *= tmp;
|
---|
| 1296 | }
|
---|
| 1297 | fdctrl->eot = fdctrl->fifo[6];
|
---|
[34294] | 1298 | if (fdctrl->dor & FD_DOR_DMAEN) {
|
---|
[1] | 1299 | int dma_mode;
|
---|
| 1300 | /* DMA transfer are enabled. Check if DMA channel is well programmed */
|
---|
[6318] | 1301 | dma_mode = PDMDevHlpDMAGetChannelMode (fdctrl->pDevIns, fdctrl->dma_chann);
|
---|
[1] | 1302 | dma_mode = (dma_mode >> 2) & 3;
|
---|
| 1303 | FLOPPY_DPRINTF("dma_mode=%d direction=%d (%d - %d)\n",
|
---|
| 1304 | dma_mode, direction,
|
---|
| 1305 | (128 << fdctrl->fifo[5]) *
|
---|
| 1306 | (cur_drv->last_sect - ks + 1), fdctrl->data_len);
|
---|
| 1307 | if (((direction == FD_DIR_SCANE || direction == FD_DIR_SCANL ||
|
---|
| 1308 | direction == FD_DIR_SCANH) && dma_mode == 0) ||
|
---|
| 1309 | (direction == FD_DIR_WRITE && dma_mode == 2) ||
|
---|
[48081] | 1310 | (direction == FD_DIR_READ && (dma_mode == 1 || dma_mode == 0))) {
|
---|
[1] | 1311 | /* No access is allowed until DMA transfer has completed */
|
---|
[34294] | 1312 | fdctrl->msr &= ~FD_MSR_RQM;
|
---|
[1] | 1313 | /* Now, we just have to wait for the DMA controller to
|
---|
| 1314 | * recall us...
|
---|
| 1315 | */
|
---|
[6318] | 1316 | PDMDevHlpDMASetDREQ (fdctrl->pDevIns, fdctrl->dma_chann, 1);
|
---|
| 1317 | PDMDevHlpDMASchedule (fdctrl->pDevIns);
|
---|
[1] | 1318 | return;
|
---|
| 1319 | } else {
|
---|
| 1320 | FLOPPY_ERROR("dma_mode=%d direction=%d\n", dma_mode, direction);
|
---|
| 1321 | }
|
---|
| 1322 | }
|
---|
| 1323 | FLOPPY_DPRINTF("start non-DMA transfer\n");
|
---|
[34294] | 1324 | fdctrl->msr |= FD_MSR_NONDMA;
|
---|
| 1325 | if (direction != FD_DIR_WRITE)
|
---|
| 1326 | fdctrl->msr |= FD_MSR_DIO;
|
---|
[82152] | 1327 |
|
---|
[1] | 1328 | /* IO based transfer: calculate len */
|
---|
| 1329 | fdctrl_raise_irq(fdctrl, 0x00);
|
---|
| 1330 | return;
|
---|
| 1331 | }
|
---|
| 1332 |
|
---|
[48081] | 1333 | /* Prepare a format data transfer (either DMA or FIFO) */
|
---|
| 1334 | static void fdctrl_start_format(fdctrl_t *fdctrl)
|
---|
| 1335 | {
|
---|
| 1336 | fdrive_t *cur_drv;
|
---|
| 1337 | uint8_t ns, dp, kh, kt, ks;
|
---|
| 1338 |
|
---|
| 1339 | SET_CUR_DRV(fdctrl, fdctrl->fifo[1] & FD_DOR_SELMASK);
|
---|
| 1340 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 1341 | kt = cur_drv->track;
|
---|
| 1342 | kh = (fdctrl->fifo[1] & 0x04) >> 2;
|
---|
| 1343 | ns = fdctrl->fifo[3];
|
---|
| 1344 | dp = fdctrl->fifo[5];
|
---|
| 1345 | ks = 1;
|
---|
| 1346 | FLOPPY_DPRINTF("Start format at %d %d %02x, %d sect, pat %02x (%d)\n",
|
---|
| 1347 | GET_CUR_DRV(fdctrl), kh, kt, ns, dp,
|
---|
| 1348 | fd_sector_calc(kh, kt, ks, cur_drv->last_sect, NUM_SIDES(cur_drv)));
|
---|
| 1349 | switch (fd_seek(cur_drv, kh, kt, ks, false)) {
|
---|
| 1350 | case 2:
|
---|
| 1351 | /* sect too big */
|
---|
| 1352 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, 0x00, 0x00);
|
---|
| 1353 | fdctrl->fifo[3] = kt;
|
---|
| 1354 | fdctrl->fifo[4] = kh;
|
---|
| 1355 | fdctrl->fifo[5] = ks;
|
---|
| 1356 | return;
|
---|
| 1357 | case 3:
|
---|
| 1358 | /* track too big */
|
---|
| 1359 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, FD_SR1_EC, 0x00);
|
---|
| 1360 | fdctrl->fifo[3] = kt;
|
---|
| 1361 | fdctrl->fifo[4] = kh;
|
---|
| 1362 | fdctrl->fifo[5] = ks;
|
---|
| 1363 | return;
|
---|
| 1364 | case 4:
|
---|
| 1365 | /* No seek enabled */
|
---|
| 1366 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, 0x00, 0x00);
|
---|
| 1367 | fdctrl->fifo[3] = kt;
|
---|
| 1368 | fdctrl->fifo[4] = kh;
|
---|
| 1369 | fdctrl->fifo[5] = ks;
|
---|
| 1370 | return;
|
---|
[55641] | 1371 | case 5:
|
---|
| 1372 | /* No disk in drive */
|
---|
| 1373 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, FD_SR1_MA, 0x00);
|
---|
| 1374 | fdctrl->fifo[3] = kt;
|
---|
| 1375 | fdctrl->fifo[4] = kh;
|
---|
| 1376 | fdctrl->fifo[5] = ks;
|
---|
| 1377 | return;
|
---|
[48081] | 1378 | case 1:
|
---|
| 1379 | break;
|
---|
| 1380 | default:
|
---|
| 1381 | break;
|
---|
| 1382 | }
|
---|
| 1383 | /* It's not clear what should happen if the data rate does not match. */
|
---|
| 1384 | #if 0
|
---|
| 1385 | /* Check the data rate. If the programmed data rate does not match
|
---|
| 1386 | * the currently inserted medium, the operation has to fail.
|
---|
| 1387 | */
|
---|
| 1388 | if ((fdctrl->dsr & FD_DSR_DRATEMASK) != cur_drv->media_rate) {
|
---|
| 1389 | FLOPPY_DPRINTF("data rate mismatch (fdc=%d, media=%d)\n",
|
---|
| 1390 | fdctrl->dsr & FD_DSR_DRATEMASK, cur_drv->media_rate);
|
---|
| 1391 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, FD_SR1_MA, FD_SR2_MD);
|
---|
| 1392 | fdctrl->fifo[3] = kt;
|
---|
| 1393 | fdctrl->fifo[4] = kh;
|
---|
| 1394 | fdctrl->fifo[5] = ks;
|
---|
| 1395 | return;
|
---|
| 1396 | }
|
---|
| 1397 | #endif
|
---|
| 1398 | /* Set the FIFO state */
|
---|
| 1399 | fdctrl->data_dir = FD_DIR_FORMAT;
|
---|
| 1400 | fdctrl->data_pos = 0;
|
---|
| 1401 | fdctrl->msr |= FD_MSR_CMDBUSY;
|
---|
| 1402 | fdctrl->data_state &= ~(FD_STATE_MULTI | FD_STATE_SEEK);
|
---|
| 1403 | fdctrl->data_len = ns * 4;
|
---|
| 1404 | fdctrl->eot = ns;
|
---|
| 1405 | if (fdctrl->dor & FD_DOR_DMAEN) {
|
---|
| 1406 | int dma_mode;
|
---|
| 1407 | /* DMA transfer are enabled. Check if DMA channel is well programmed */
|
---|
| 1408 | dma_mode = PDMDevHlpDMAGetChannelMode (fdctrl->pDevIns, fdctrl->dma_chann);
|
---|
| 1409 | dma_mode = (dma_mode >> 2) & 3;
|
---|
| 1410 | FLOPPY_DPRINTF("dma_mode=%d direction=%d (%d - %d)\n",
|
---|
| 1411 | dma_mode, fdctrl->data_dir,
|
---|
| 1412 | (128 << fdctrl->fifo[2]) *
|
---|
| 1413 | (cur_drv->last_sect + 1), fdctrl->data_len);
|
---|
| 1414 | if (fdctrl->data_dir == FD_DIR_FORMAT && dma_mode == 2) {
|
---|
| 1415 | /* No access is allowed until DMA transfer has completed */
|
---|
| 1416 | fdctrl->msr &= ~FD_MSR_RQM;
|
---|
| 1417 | /* Now, we just have to wait for the DMA controller to
|
---|
| 1418 | * recall us...
|
---|
| 1419 | */
|
---|
| 1420 | PDMDevHlpDMASetDREQ (fdctrl->pDevIns, fdctrl->dma_chann, 1);
|
---|
| 1421 | PDMDevHlpDMASchedule (fdctrl->pDevIns);
|
---|
| 1422 | return;
|
---|
| 1423 | } else {
|
---|
| 1424 | FLOPPY_ERROR("dma_mode=%d direction=%d\n", dma_mode, fdctrl->data_dir);
|
---|
| 1425 | }
|
---|
| 1426 | }
|
---|
| 1427 | FLOPPY_DPRINTF("start non-DMA format\n");
|
---|
| 1428 | fdctrl->msr |= FD_MSR_NONDMA;
|
---|
| 1429 | /* IO based transfer: calculate len */
|
---|
| 1430 | fdctrl_raise_irq(fdctrl, 0x00);
|
---|
| 1431 |
|
---|
| 1432 | return;
|
---|
| 1433 | }
|
---|
| 1434 |
|
---|
[1] | 1435 | /* Prepare a transfer of deleted data */
|
---|
[34294] | 1436 | static void fdctrl_start_transfer_del(fdctrl_t *fdctrl, int direction)
|
---|
[1] | 1437 | {
|
---|
[62904] | 1438 | RT_NOREF(direction);
|
---|
[34294] | 1439 | FLOPPY_ERROR("fdctrl_start_transfer_del() unimplemented\n");
|
---|
| 1440 |
|
---|
[1] | 1441 | /* We don't handle deleted data,
|
---|
| 1442 | * so we don't return *ANYTHING*
|
---|
| 1443 | */
|
---|
[34294] | 1444 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM | FD_SR0_SEEK, 0x00, 0x00);
|
---|
[1] | 1445 | }
|
---|
| 1446 |
|
---|
[34294] | 1447 | /* Block driver read/write wrappers. */
|
---|
[1] | 1448 |
|
---|
[34294] | 1449 | static int blk_write(fdrive_t *drv, int64_t sector_num, const uint8_t *buf, int nb_sectors)
|
---|
[1] | 1450 | {
|
---|
[34294] | 1451 | int rc;
|
---|
[1] | 1452 |
|
---|
[34294] | 1453 | drv->Led.Asserted.s.fWriting = drv->Led.Actual.s.fWriting = 1;
|
---|
[1] | 1454 |
|
---|
[59248] | 1455 | rc = drv->pDrvMedia->pfnWrite(drv->pDrvMedia, sector_num * FD_SECTOR_LEN,
|
---|
[34294] | 1456 | buf, nb_sectors * FD_SECTOR_LEN);
|
---|
| 1457 |
|
---|
| 1458 | drv->Led.Actual.s.fWriting = 0;
|
---|
| 1459 | if (RT_FAILURE(rc))
|
---|
| 1460 | AssertMsgFailed(("Floppy: Failure to read sector %d. rc=%Rrc", sector_num, rc));
|
---|
| 1461 |
|
---|
| 1462 | return rc;
|
---|
[1] | 1463 | }
|
---|
[34294] | 1464 |
|
---|
| 1465 | static int blk_read(fdrive_t *drv, int64_t sector_num, uint8_t *buf, int nb_sectors)
|
---|
| 1466 | {
|
---|
| 1467 | int rc;
|
---|
| 1468 |
|
---|
| 1469 | drv->Led.Asserted.s.fReading = drv->Led.Actual.s.fReading = 1;
|
---|
| 1470 |
|
---|
[59248] | 1471 | rc = drv->pDrvMedia->pfnRead(drv->pDrvMedia, sector_num * FD_SECTOR_LEN,
|
---|
[34294] | 1472 | buf, nb_sectors * FD_SECTOR_LEN);
|
---|
| 1473 |
|
---|
| 1474 | drv->Led.Actual.s.fReading = 0;
|
---|
| 1475 |
|
---|
| 1476 | if (RT_FAILURE(rc))
|
---|
| 1477 | AssertMsgFailed(("Floppy: Failure to read sector %d. rc=%Rrc", sector_num, rc));
|
---|
| 1478 |
|
---|
| 1479 | return rc;
|
---|
| 1480 | }
|
---|
| 1481 |
|
---|
[81795] | 1482 | /**
|
---|
| 1483 | * @callback_method_impl{FNDMATRANSFERHANDLER, handlers for DMA transfers}
|
---|
| 1484 | */
|
---|
| 1485 | static DECLCALLBACK(uint32_t) fdctrl_transfer_handler(PPDMDEVINS pDevIns, void *pvUser,
|
---|
| 1486 | unsigned uChannel, uint32_t off, uint32_t cb)
|
---|
[1] | 1487 | {
|
---|
[81795] | 1488 | RT_NOREF(pDevIns, off);
|
---|
[1] | 1489 | fdctrl_t *fdctrl;
|
---|
| 1490 | fdrive_t *cur_drv;
|
---|
| 1491 | int rc;
|
---|
[48162] | 1492 | uint32_t len = 0;
|
---|
| 1493 | uint32_t start_pos, rel_pos;
|
---|
[1] | 1494 | uint8_t status0 = 0x00, status1 = 0x00, status2 = 0x00;
|
---|
| 1495 |
|
---|
[81795] | 1496 | fdctrl = (fdctrl_t *)pvUser;
|
---|
[34294] | 1497 | if (fdctrl->msr & FD_MSR_RQM) {
|
---|
[1] | 1498 | FLOPPY_DPRINTF("Not in DMA transfer mode !\n");
|
---|
| 1499 | return 0;
|
---|
| 1500 | }
|
---|
| 1501 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 1502 | if (fdctrl->data_dir == FD_DIR_SCANE || fdctrl->data_dir == FD_DIR_SCANL ||
|
---|
| 1503 | fdctrl->data_dir == FD_DIR_SCANH)
|
---|
[34294] | 1504 | status2 = FD_SR2_SNS;
|
---|
[81795] | 1505 | if (cb > fdctrl->data_len)
|
---|
| 1506 | cb = fdctrl->data_len;
|
---|
[59248] | 1507 | if (cur_drv->pDrvMedia == NULL)
|
---|
[34294] | 1508 | {
|
---|
[1] | 1509 | if (fdctrl->data_dir == FD_DIR_WRITE)
|
---|
[34294] | 1510 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM | FD_SR0_SEEK, 0x00, 0x00);
|
---|
[1] | 1511 | else
|
---|
[34294] | 1512 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, 0x00, 0x00);
|
---|
[48162] | 1513 | Assert(len == 0);
|
---|
[1] | 1514 | goto transfer_error;
|
---|
| 1515 | }
|
---|
[48081] | 1516 |
|
---|
[78040] | 1517 | if (cur_drv->ro)
|
---|
| 1518 | {
|
---|
| 1519 | if (fdctrl->data_dir == FD_DIR_WRITE || fdctrl->data_dir == FD_DIR_FORMAT)
|
---|
[48081] | 1520 | {
|
---|
[78040] | 1521 | /* Handle readonly medium early, no need to do DMA, touch the
|
---|
| 1522 | * LED or attempt any writes. A real floppy doesn't attempt
|
---|
| 1523 | * to write to readonly media either. */
|
---|
| 1524 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM | FD_SR0_SEEK, FD_SR1_NW,
|
---|
| 1525 | 0x00);
|
---|
| 1526 | Assert(len == 0);
|
---|
| 1527 | goto transfer_error;
|
---|
[48081] | 1528 | }
|
---|
[78040] | 1529 | }
|
---|
[48081] | 1530 |
|
---|
[1] | 1531 | rel_pos = fdctrl->data_pos % FD_SECTOR_LEN;
|
---|
[81795] | 1532 | for (start_pos = fdctrl->data_pos; fdctrl->data_pos < cb;) {
|
---|
| 1533 | len = cb - fdctrl->data_pos;
|
---|
[1] | 1534 | if (len + rel_pos > FD_SECTOR_LEN)
|
---|
| 1535 | len = FD_SECTOR_LEN - rel_pos;
|
---|
[81795] | 1536 | FLOPPY_DPRINTF("copy %d bytes (%d %d %d) %d pos %d %02x (%d-0x%08x 0x%08x)\n",
|
---|
| 1537 | len, cb, fdctrl->data_pos, fdctrl->data_len, GET_CUR_DRV(fdctrl), cur_drv->head,
|
---|
| 1538 | cur_drv->track, cur_drv->sect, fd_sector(cur_drv), fd_sector(cur_drv) * FD_SECTOR_LEN);
|
---|
[48081] | 1539 | if (fdctrl->data_dir != FD_DIR_FORMAT &&
|
---|
| 1540 | (fdctrl->data_dir != FD_DIR_WRITE ||
|
---|
| 1541 | len < FD_SECTOR_LEN || rel_pos != 0)) {
|
---|
[1] | 1542 | /* READ & SCAN commands and realign to a sector for WRITE */
|
---|
[34294] | 1543 | rc = blk_read(cur_drv, fd_sector(cur_drv), fdctrl->fifo, 1);
|
---|
| 1544 | if (RT_FAILURE(rc))
|
---|
| 1545 | {
|
---|
[1] | 1546 | FLOPPY_DPRINTF("Floppy: error getting sector %d\n",
|
---|
| 1547 | fd_sector(cur_drv));
|
---|
| 1548 | /* Sure, image size is too small... */
|
---|
| 1549 | memset(fdctrl->fifo, 0, FD_SECTOR_LEN);
|
---|
| 1550 | }
|
---|
| 1551 | }
|
---|
| 1552 | switch (fdctrl->data_dir) {
|
---|
| 1553 | case FD_DIR_READ:
|
---|
| 1554 | /* READ commands */
|
---|
| 1555 | {
|
---|
| 1556 | uint32_t read;
|
---|
[81795] | 1557 | int rc2 = PDMDevHlpDMAWriteMemory(fdctrl->pDevIns, uChannel,
|
---|
[25966] | 1558 | fdctrl->fifo + rel_pos,
|
---|
| 1559 | fdctrl->data_pos,
|
---|
| 1560 | len, &read);
|
---|
| 1561 | AssertMsgRC (rc2, ("DMAWriteMemory -> %Rrc\n", rc2));
|
---|
[1] | 1562 | }
|
---|
| 1563 | break;
|
---|
| 1564 | case FD_DIR_WRITE:
|
---|
| 1565 | /* WRITE commands */
|
---|
| 1566 | {
|
---|
| 1567 | uint32_t written;
|
---|
[81795] | 1568 | int rc2 = PDMDevHlpDMAReadMemory(fdctrl->pDevIns, uChannel,
|
---|
[25966] | 1569 | fdctrl->fifo + rel_pos,
|
---|
| 1570 | fdctrl->data_pos,
|
---|
| 1571 | len, &written);
|
---|
| 1572 | AssertMsgRC (rc2, ("DMAReadMemory -> %Rrc\n", rc2));
|
---|
[1] | 1573 | }
|
---|
[31128] | 1574 |
|
---|
[34294] | 1575 | rc = blk_write(cur_drv, fd_sector(cur_drv), fdctrl->fifo, 1);
|
---|
| 1576 | if (RT_FAILURE(rc))
|
---|
| 1577 | {
|
---|
| 1578 | FLOPPY_ERROR("writing sector %d\n", fd_sector(cur_drv));
|
---|
| 1579 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM | FD_SR0_SEEK, 0x00, 0x00);
|
---|
[31128] | 1580 | goto transfer_error;
|
---|
| 1581 | }
|
---|
[1] | 1582 | break;
|
---|
[48081] | 1583 | case FD_DIR_FORMAT:
|
---|
| 1584 | /* FORMAT command */
|
---|
| 1585 | {
|
---|
| 1586 | uint8_t eot = fdctrl->fifo[3];
|
---|
| 1587 | uint8_t filler = fdctrl->fifo[5];
|
---|
| 1588 | uint32_t written;
|
---|
| 1589 | int sct;
|
---|
[81795] | 1590 | int rc2 = PDMDevHlpDMAReadMemory(fdctrl->pDevIns, uChannel,
|
---|
[48081] | 1591 | fdctrl->fifo + rel_pos,
|
---|
| 1592 | fdctrl->data_pos,
|
---|
| 1593 | len, &written);
|
---|
| 1594 | AssertMsgRC (rc2, ("DMAReadMemory -> %Rrc\n", rc2));
|
---|
| 1595 |
|
---|
| 1596 | /* Fill the entire track with desired data pattern. */
|
---|
| 1597 | FLOPPY_DPRINTF("formatting track: %d sectors, pattern %02x\n",
|
---|
| 1598 | eot, filler);
|
---|
| 1599 | memset(fdctrl->fifo, filler, FD_SECTOR_LEN);
|
---|
| 1600 | for (sct = 0; sct < eot; ++sct)
|
---|
| 1601 | {
|
---|
| 1602 | rc = blk_write(cur_drv, fd_sector(cur_drv), fdctrl->fifo, 1);
|
---|
| 1603 | if (RT_FAILURE(rc))
|
---|
| 1604 | {
|
---|
| 1605 | FLOPPY_ERROR("formatting sector %d\n", fd_sector(cur_drv));
|
---|
| 1606 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM | FD_SR0_SEEK, 0x00, 0x00);
|
---|
| 1607 | goto transfer_error;
|
---|
| 1608 | }
|
---|
| 1609 | fdctrl_seek_to_next_sect(fdctrl, cur_drv);
|
---|
| 1610 | }
|
---|
| 1611 | }
|
---|
| 1612 | break;
|
---|
[1] | 1613 | default:
|
---|
| 1614 | /* SCAN commands */
|
---|
| 1615 | {
|
---|
| 1616 | uint8_t tmpbuf[FD_SECTOR_LEN];
|
---|
| 1617 | int ret;
|
---|
| 1618 | uint32_t read;
|
---|
[81795] | 1619 | int rc2 = PDMDevHlpDMAReadMemory(fdctrl->pDevIns, uChannel, tmpbuf,
|
---|
| 1620 | fdctrl->data_pos, len, &read);
|
---|
[62904] | 1621 | AssertMsg(RT_SUCCESS(rc2), ("DMAReadMemory -> %Rrc2\n", rc2)); NOREF(rc2);
|
---|
[1] | 1622 | ret = memcmp(tmpbuf, fdctrl->fifo + rel_pos, len);
|
---|
| 1623 | if (ret == 0) {
|
---|
[34294] | 1624 | status2 = FD_SR2_SEH;
|
---|
[1] | 1625 | goto end_transfer;
|
---|
| 1626 | }
|
---|
| 1627 | if ((ret < 0 && fdctrl->data_dir == FD_DIR_SCANL) ||
|
---|
| 1628 | (ret > 0 && fdctrl->data_dir == FD_DIR_SCANH)) {
|
---|
| 1629 | status2 = 0x00;
|
---|
| 1630 | goto end_transfer;
|
---|
| 1631 | }
|
---|
| 1632 | }
|
---|
| 1633 | break;
|
---|
| 1634 | }
|
---|
| 1635 | fdctrl->data_pos += len;
|
---|
| 1636 | rel_pos = fdctrl->data_pos % FD_SECTOR_LEN;
|
---|
| 1637 | if (rel_pos == 0) {
|
---|
| 1638 | /* Seek to next sector */
|
---|
[34294] | 1639 | if (!fdctrl_seek_to_next_sect(fdctrl, cur_drv))
|
---|
| 1640 | break;
|
---|
[1] | 1641 | }
|
---|
| 1642 | }
|
---|
| 1643 | end_transfer:
|
---|
| 1644 | len = fdctrl->data_pos - start_pos;
|
---|
| 1645 | FLOPPY_DPRINTF("end transfer %d %d %d\n",
|
---|
| 1646 | fdctrl->data_pos, len, fdctrl->data_len);
|
---|
| 1647 | if (fdctrl->data_dir == FD_DIR_SCANE ||
|
---|
| 1648 | fdctrl->data_dir == FD_DIR_SCANL ||
|
---|
| 1649 | fdctrl->data_dir == FD_DIR_SCANH)
|
---|
[34294] | 1650 | status2 = FD_SR2_SEH;
|
---|
[1] | 1651 | if (FD_DID_SEEK(fdctrl->data_state))
|
---|
[34294] | 1652 | status0 |= FD_SR0_SEEK;
|
---|
[1] | 1653 | fdctrl->data_len -= len;
|
---|
| 1654 | fdctrl_stop_transfer(fdctrl, status0, status1, status2);
|
---|
| 1655 | transfer_error:
|
---|
| 1656 |
|
---|
| 1657 | return len;
|
---|
| 1658 | }
|
---|
| 1659 |
|
---|
| 1660 | /* Data register : 0x05 */
|
---|
[34294] | 1661 | static uint32_t fdctrl_read_data(fdctrl_t *fdctrl)
|
---|
[1] | 1662 | {
|
---|
| 1663 | fdrive_t *cur_drv;
|
---|
| 1664 | uint32_t retval = 0;
|
---|
[34294] | 1665 | unsigned pos;
|
---|
[1] | 1666 | int rc;
|
---|
| 1667 |
|
---|
| 1668 | cur_drv = get_cur_drv(fdctrl);
|
---|
[34294] | 1669 | fdctrl->dsr &= ~FD_DSR_PWRDOWN;
|
---|
| 1670 | if (!(fdctrl->msr & FD_MSR_RQM) || !(fdctrl->msr & FD_MSR_DIO)) {
|
---|
| 1671 | FLOPPY_ERROR("controller not ready for reading\n");
|
---|
[1] | 1672 | return 0;
|
---|
| 1673 | }
|
---|
[55641] | 1674 | pos = fdctrl->data_pos % FD_SECTOR_LEN;
|
---|
[34294] | 1675 | if (fdctrl->msr & FD_MSR_NONDMA) {
|
---|
[87121] | 1676 | if (cur_drv->pDrvMedia == NULL)
|
---|
| 1677 | {
|
---|
| 1678 | if (fdctrl->data_dir == FD_DIR_WRITE)
|
---|
| 1679 | fdctrl_stop_transfer_now(fdctrl, FD_SR0_ABNTERM | FD_SR0_SEEK, 0x00, 0x00);
|
---|
| 1680 | else
|
---|
| 1681 | fdctrl_stop_transfer_now(fdctrl, FD_SR0_ABNTERM, 0x00, 0x00);
|
---|
| 1682 | } else if (pos == 0) {
|
---|
[34294] | 1683 | if (fdctrl->data_pos != 0)
|
---|
| 1684 | if (!fdctrl_seek_to_next_sect(fdctrl, cur_drv)) {
|
---|
| 1685 | FLOPPY_DPRINTF("error seeking to next sector %d\n",
|
---|
| 1686 | fd_sector(cur_drv));
|
---|
| 1687 | return 0;
|
---|
| 1688 | }
|
---|
[87121] | 1689 |
|
---|
[34294] | 1690 | rc = blk_read(cur_drv, fd_sector(cur_drv), fdctrl->fifo, 1);
|
---|
| 1691 | if (RT_FAILURE(rc))
|
---|
| 1692 | {
|
---|
| 1693 | FLOPPY_DPRINTF("error getting sector %d\n",
|
---|
| 1694 | fd_sector(cur_drv));
|
---|
| 1695 | /* Sure, image size is too small... */
|
---|
| 1696 | memset(fdctrl->fifo, 0, FD_SECTOR_LEN);
|
---|
| 1697 | }
|
---|
[1] | 1698 | }
|
---|
| 1699 | }
|
---|
| 1700 | retval = fdctrl->fifo[pos];
|
---|
| 1701 | if (++fdctrl->data_pos == fdctrl->data_len) {
|
---|
| 1702 | fdctrl->data_pos = 0;
|
---|
| 1703 | /* Switch from transfer mode to status mode
|
---|
| 1704 | * then from status mode to command mode
|
---|
| 1705 | */
|
---|
[34294] | 1706 | if (fdctrl->msr & FD_MSR_NONDMA) {
|
---|
| 1707 | fdctrl_stop_transfer(fdctrl, FD_SR0_SEEK, 0x00, 0x00);
|
---|
[1] | 1708 | } else {
|
---|
| 1709 | fdctrl_reset_fifo(fdctrl);
|
---|
| 1710 | fdctrl_reset_irq(fdctrl);
|
---|
| 1711 | }
|
---|
| 1712 | }
|
---|
| 1713 | FLOPPY_DPRINTF("data register: 0x%02x\n", retval);
|
---|
| 1714 |
|
---|
| 1715 | return retval;
|
---|
| 1716 | }
|
---|
| 1717 |
|
---|
[34294] | 1718 | static void fdctrl_format_sector(fdctrl_t *fdctrl)
|
---|
[1] | 1719 | {
|
---|
| 1720 | fdrive_t *cur_drv;
|
---|
| 1721 | uint8_t kh, kt, ks;
|
---|
| 1722 | int ok = 0, rc;
|
---|
| 1723 |
|
---|
[34294] | 1724 | SET_CUR_DRV(fdctrl, fdctrl->fifo[1] & FD_DOR_SELMASK);
|
---|
[1] | 1725 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 1726 | kt = fdctrl->fifo[6];
|
---|
| 1727 | kh = fdctrl->fifo[7];
|
---|
| 1728 | ks = fdctrl->fifo[8];
|
---|
| 1729 | FLOPPY_DPRINTF("format sector at %d %d %02x %02x (%d)\n",
|
---|
[34294] | 1730 | GET_CUR_DRV(fdctrl), kh, kt, ks,
|
---|
[37478] | 1731 | fd_sector_calc(kh, kt, ks, cur_drv->last_sect, NUM_SIDES(cur_drv)));
|
---|
[34294] | 1732 | switch (fd_seek(cur_drv, kh, kt, ks, fdctrl->config & FD_CONFIG_EIS)) {
|
---|
[1] | 1733 | case 2:
|
---|
| 1734 | /* sect too big */
|
---|
[34294] | 1735 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, 0x00, 0x00);
|
---|
[1] | 1736 | fdctrl->fifo[3] = kt;
|
---|
| 1737 | fdctrl->fifo[4] = kh;
|
---|
| 1738 | fdctrl->fifo[5] = ks;
|
---|
| 1739 | return;
|
---|
| 1740 | case 3:
|
---|
| 1741 | /* track too big */
|
---|
[34294] | 1742 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, FD_SR1_EC, 0x00);
|
---|
[1] | 1743 | fdctrl->fifo[3] = kt;
|
---|
| 1744 | fdctrl->fifo[4] = kh;
|
---|
| 1745 | fdctrl->fifo[5] = ks;
|
---|
| 1746 | return;
|
---|
| 1747 | case 4:
|
---|
| 1748 | /* No seek enabled */
|
---|
[34294] | 1749 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, 0x00, 0x00);
|
---|
[1] | 1750 | fdctrl->fifo[3] = kt;
|
---|
| 1751 | fdctrl->fifo[4] = kh;
|
---|
| 1752 | fdctrl->fifo[5] = ks;
|
---|
| 1753 | return;
|
---|
[55641] | 1754 | case 5:
|
---|
| 1755 | /* No disk in drive */
|
---|
| 1756 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, FD_SR1_MA, 0x00);
|
---|
| 1757 | fdctrl->fifo[3] = kt;
|
---|
| 1758 | fdctrl->fifo[4] = kh;
|
---|
| 1759 | fdctrl->fifo[5] = ks;
|
---|
| 1760 | return;
|
---|
[1] | 1761 | case 1:
|
---|
| 1762 | fdctrl->data_state |= FD_STATE_SEEK;
|
---|
| 1763 | break;
|
---|
| 1764 | default:
|
---|
| 1765 | break;
|
---|
| 1766 | }
|
---|
| 1767 | memset(fdctrl->fifo, 0, FD_SECTOR_LEN);
|
---|
[59248] | 1768 | if (cur_drv->pDrvMedia) {
|
---|
[34294] | 1769 | rc = blk_write(cur_drv, fd_sector(cur_drv), fdctrl->fifo, 1);
|
---|
[6891] | 1770 | if (RT_FAILURE (rc)) {
|
---|
[34294] | 1771 | FLOPPY_ERROR("formatting sector %d\n", fd_sector(cur_drv));
|
---|
| 1772 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM | FD_SR0_SEEK, 0x00, 0x00);
|
---|
| 1773 | } else {
|
---|
[1] | 1774 | ok = 1;
|
---|
| 1775 | }
|
---|
| 1776 | }
|
---|
| 1777 | if (ok) {
|
---|
| 1778 | if (cur_drv->sect == cur_drv->last_sect) {
|
---|
| 1779 | fdctrl->data_state &= ~FD_STATE_FORMAT;
|
---|
| 1780 | /* Last sector done */
|
---|
| 1781 | if (FD_DID_SEEK(fdctrl->data_state))
|
---|
[34294] | 1782 | fdctrl_stop_transfer(fdctrl, FD_SR0_SEEK, 0x00, 0x00);
|
---|
[1] | 1783 | else
|
---|
| 1784 | fdctrl_stop_transfer(fdctrl, 0x00, 0x00, 0x00);
|
---|
| 1785 | } else {
|
---|
| 1786 | /* More to do */
|
---|
| 1787 | fdctrl->data_pos = 0;
|
---|
| 1788 | fdctrl->data_len = 4;
|
---|
| 1789 | }
|
---|
| 1790 | }
|
---|
| 1791 | }
|
---|
| 1792 |
|
---|
[34294] | 1793 | static void fdctrl_handle_lock(fdctrl_t *fdctrl, int direction)
|
---|
[1] | 1794 | {
|
---|
[62904] | 1795 | RT_NOREF(direction);
|
---|
[34294] | 1796 | fdctrl->lock = (fdctrl->fifo[0] & 0x80) ? 1 : 0;
|
---|
| 1797 | fdctrl->fifo[0] = fdctrl->lock << 4;
|
---|
[37223] | 1798 | fdctrl_set_fifo(fdctrl, 1, 0);
|
---|
[34294] | 1799 | }
|
---|
| 1800 |
|
---|
| 1801 | static void fdctrl_handle_dumpreg(fdctrl_t *fdctrl, int direction)
|
---|
| 1802 | {
|
---|
[62904] | 1803 | RT_NOREF(direction);
|
---|
[34294] | 1804 | fdrive_t *cur_drv = get_cur_drv(fdctrl);
|
---|
| 1805 |
|
---|
| 1806 | /* Drives position */
|
---|
| 1807 | fdctrl->fifo[0] = drv0(fdctrl)->track;
|
---|
| 1808 | fdctrl->fifo[1] = drv1(fdctrl)->track;
|
---|
| 1809 | #if MAX_FD == 4
|
---|
| 1810 | fdctrl->fifo[2] = drv2(fdctrl)->track;
|
---|
| 1811 | fdctrl->fifo[3] = drv3(fdctrl)->track;
|
---|
| 1812 | #else
|
---|
| 1813 | fdctrl->fifo[2] = 0;
|
---|
| 1814 | fdctrl->fifo[3] = 0;
|
---|
| 1815 | #endif
|
---|
| 1816 | /* timers */
|
---|
| 1817 | fdctrl->fifo[4] = fdctrl->timer0;
|
---|
| 1818 | fdctrl->fifo[5] = (fdctrl->timer1 << 1) | (fdctrl->dor & FD_DOR_DMAEN ? 1 : 0);
|
---|
| 1819 | fdctrl->fifo[6] = cur_drv->last_sect;
|
---|
| 1820 | fdctrl->fifo[7] = (fdctrl->lock << 7) |
|
---|
| 1821 | (cur_drv->perpendicular << 2);
|
---|
| 1822 | fdctrl->fifo[8] = fdctrl->config;
|
---|
| 1823 | fdctrl->fifo[9] = fdctrl->precomp_trk;
|
---|
| 1824 | fdctrl_set_fifo(fdctrl, 10, 0);
|
---|
| 1825 | }
|
---|
| 1826 |
|
---|
| 1827 | static void fdctrl_handle_version(fdctrl_t *fdctrl, int direction)
|
---|
| 1828 | {
|
---|
[62904] | 1829 | RT_NOREF(direction);
|
---|
[34294] | 1830 | /* Controller's version */
|
---|
| 1831 | fdctrl->fifo[0] = fdctrl->version;
|
---|
[37223] | 1832 | fdctrl_set_fifo(fdctrl, 1, 0);
|
---|
[34294] | 1833 | }
|
---|
| 1834 |
|
---|
| 1835 | static void fdctrl_handle_partid(fdctrl_t *fdctrl, int direction)
|
---|
| 1836 | {
|
---|
[62904] | 1837 | RT_NOREF(direction);
|
---|
[37205] | 1838 | fdctrl->fifo[0] = 0x01; /* Stepping 1 */
|
---|
[34294] | 1839 | fdctrl_set_fifo(fdctrl, 1, 0);
|
---|
| 1840 | }
|
---|
| 1841 |
|
---|
| 1842 | static void fdctrl_handle_restore(fdctrl_t *fdctrl, int direction)
|
---|
| 1843 | {
|
---|
[62904] | 1844 | RT_NOREF(direction);
|
---|
[34294] | 1845 | fdrive_t *cur_drv = get_cur_drv(fdctrl);
|
---|
| 1846 |
|
---|
| 1847 | /* Drives position */
|
---|
| 1848 | drv0(fdctrl)->track = fdctrl->fifo[3];
|
---|
| 1849 | drv1(fdctrl)->track = fdctrl->fifo[4];
|
---|
| 1850 | #if MAX_FD == 4
|
---|
| 1851 | drv2(fdctrl)->track = fdctrl->fifo[5];
|
---|
| 1852 | drv3(fdctrl)->track = fdctrl->fifo[6];
|
---|
| 1853 | #endif
|
---|
| 1854 | /* timers */
|
---|
| 1855 | fdctrl->timer0 = fdctrl->fifo[7];
|
---|
| 1856 | fdctrl->timer1 = fdctrl->fifo[8];
|
---|
| 1857 | cur_drv->last_sect = fdctrl->fifo[9];
|
---|
| 1858 | fdctrl->lock = fdctrl->fifo[10] >> 7;
|
---|
| 1859 | cur_drv->perpendicular = (fdctrl->fifo[10] >> 2) & 0xF;
|
---|
| 1860 | fdctrl->config = fdctrl->fifo[11];
|
---|
| 1861 | fdctrl->precomp_trk = fdctrl->fifo[12];
|
---|
| 1862 | fdctrl->pwrd = fdctrl->fifo[13];
|
---|
| 1863 | fdctrl_reset_fifo(fdctrl);
|
---|
| 1864 | }
|
---|
| 1865 |
|
---|
| 1866 | static void fdctrl_handle_save(fdctrl_t *fdctrl, int direction)
|
---|
| 1867 | {
|
---|
[62904] | 1868 | RT_NOREF(direction);
|
---|
[34294] | 1869 | fdrive_t *cur_drv = get_cur_drv(fdctrl);
|
---|
| 1870 |
|
---|
| 1871 | fdctrl->fifo[0] = 0;
|
---|
| 1872 | fdctrl->fifo[1] = 0;
|
---|
| 1873 | /* Drives position */
|
---|
| 1874 | fdctrl->fifo[2] = drv0(fdctrl)->track;
|
---|
| 1875 | fdctrl->fifo[3] = drv1(fdctrl)->track;
|
---|
| 1876 | #if MAX_FD == 4
|
---|
| 1877 | fdctrl->fifo[4] = drv2(fdctrl)->track;
|
---|
| 1878 | fdctrl->fifo[5] = drv3(fdctrl)->track;
|
---|
| 1879 | #else
|
---|
| 1880 | fdctrl->fifo[4] = 0;
|
---|
| 1881 | fdctrl->fifo[5] = 0;
|
---|
| 1882 | #endif
|
---|
| 1883 | /* timers */
|
---|
| 1884 | fdctrl->fifo[6] = fdctrl->timer0;
|
---|
| 1885 | fdctrl->fifo[7] = fdctrl->timer1;
|
---|
| 1886 | fdctrl->fifo[8] = cur_drv->last_sect;
|
---|
| 1887 | fdctrl->fifo[9] = (fdctrl->lock << 7) |
|
---|
| 1888 | (cur_drv->perpendicular << 2);
|
---|
| 1889 | fdctrl->fifo[10] = fdctrl->config;
|
---|
| 1890 | fdctrl->fifo[11] = fdctrl->precomp_trk;
|
---|
| 1891 | fdctrl->fifo[12] = fdctrl->pwrd;
|
---|
| 1892 | fdctrl->fifo[13] = 0;
|
---|
| 1893 | fdctrl->fifo[14] = 0;
|
---|
[37223] | 1894 | fdctrl_set_fifo(fdctrl, 15, 0);
|
---|
[34294] | 1895 | }
|
---|
| 1896 |
|
---|
| 1897 | static void fdctrl_handle_readid(fdctrl_t *fdctrl, int direction)
|
---|
| 1898 | {
|
---|
[62904] | 1899 | RT_NOREF(direction);
|
---|
[34294] | 1900 | fdrive_t *cur_drv = get_cur_drv(fdctrl);
|
---|
| 1901 |
|
---|
[48059] | 1902 | FLOPPY_DPRINTF("CMD:%02x SEL:%02x\n", fdctrl->fifo[0], fdctrl->fifo[1]);
|
---|
| 1903 |
|
---|
[55641] | 1904 | fdctrl->msr &= ~FD_MSR_RQM;
|
---|
[34294] | 1905 | cur_drv->head = (fdctrl->fifo[1] >> 2) & 1;
|
---|
[81795] | 1906 | PDMDevHlpTimerSetMillies(fdctrl->pDevIns, fdctrl->hResultTimer, 1000 / 50);
|
---|
[34294] | 1907 | }
|
---|
| 1908 |
|
---|
| 1909 | static void fdctrl_handle_format_track(fdctrl_t *fdctrl, int direction)
|
---|
| 1910 | {
|
---|
[62904] | 1911 | RT_NOREF(direction);
|
---|
[1] | 1912 | fdrive_t *cur_drv;
|
---|
[48059] | 1913 | uint8_t ns, dp;
|
---|
[1] | 1914 |
|
---|
[34294] | 1915 | SET_CUR_DRV(fdctrl, fdctrl->fifo[1] & FD_DOR_SELMASK);
|
---|
[1] | 1916 | cur_drv = get_cur_drv(fdctrl);
|
---|
[48081] | 1917 | fdctrl->data_state &= ~(FD_STATE_MULTI | FD_STATE_SEEK);
|
---|
[48059] | 1918 | ns = fdctrl->fifo[3];
|
---|
| 1919 | dp = fdctrl->fifo[5];
|
---|
| 1920 |
|
---|
| 1921 | FLOPPY_DPRINTF("Format track %d at %d, %d sectors, filler %02x\n",
|
---|
| 1922 | cur_drv->track, GET_CUR_DRV(fdctrl), ns, dp);
|
---|
| 1923 | FLOPPY_DPRINTF("CMD:%02x SEL:%02x N:%02x SC:%02x GPL:%02x D:%02x\n",
|
---|
| 1924 | fdctrl->fifo[0], fdctrl->fifo[1], fdctrl->fifo[2],
|
---|
| 1925 | fdctrl->fifo[3], fdctrl->fifo[4], fdctrl->fifo[5]);
|
---|
| 1926 |
|
---|
[48081] | 1927 | /* Since we cannot actually format anything, we have to make sure that
|
---|
| 1928 | * whatever new format the guest is trying to establish matches the
|
---|
| 1929 | * existing format of the medium.
|
---|
| 1930 | */
|
---|
| 1931 | if (cur_drv->last_sect != ns || fdctrl->fifo[2] != 2)
|
---|
| 1932 | fdctrl_stop_transfer(fdctrl, FD_SR0_ABNTERM, FD_SR1_NW, 0);
|
---|
[34294] | 1933 | else
|
---|
[48081] | 1934 | {
|
---|
| 1935 | cur_drv->bps = fdctrl->fifo[2] > 7 ? 16384 : 128 << fdctrl->fifo[2];
|
---|
| 1936 | cur_drv->last_sect = ns;
|
---|
[48161] | 1937 |
|
---|
[48081] | 1938 | fdctrl_start_format(fdctrl);
|
---|
| 1939 | }
|
---|
[34294] | 1940 | }
|
---|
| 1941 |
|
---|
| 1942 | static void fdctrl_handle_specify(fdctrl_t *fdctrl, int direction)
|
---|
| 1943 | {
|
---|
[62904] | 1944 | RT_NOREF(direction);
|
---|
[34294] | 1945 | fdctrl->timer0 = (fdctrl->fifo[1] >> 4) & 0xF;
|
---|
| 1946 | fdctrl->timer1 = fdctrl->fifo[2] >> 1;
|
---|
| 1947 | if (fdctrl->fifo[2] & 1)
|
---|
| 1948 | fdctrl->dor &= ~FD_DOR_DMAEN;
|
---|
| 1949 | else
|
---|
| 1950 | fdctrl->dor |= FD_DOR_DMAEN;
|
---|
| 1951 | /* No result back */
|
---|
| 1952 | fdctrl_reset_fifo(fdctrl);
|
---|
| 1953 | }
|
---|
| 1954 |
|
---|
| 1955 | static void fdctrl_handle_sense_drive_status(fdctrl_t *fdctrl, int direction)
|
---|
| 1956 | {
|
---|
[62904] | 1957 | RT_NOREF(direction);
|
---|
[34294] | 1958 | fdrive_t *cur_drv;
|
---|
| 1959 |
|
---|
| 1960 | SET_CUR_DRV(fdctrl, fdctrl->fifo[1] & FD_DOR_SELMASK);
|
---|
| 1961 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 1962 | cur_drv->head = (fdctrl->fifo[1] >> 2) & 1;
|
---|
| 1963 | /* 1 Byte status back */
|
---|
| 1964 | fdctrl->fifo[0] = (cur_drv->ro << 6) |
|
---|
| 1965 | (cur_drv->track == 0 ? 0x10 : 0x00) |
|
---|
| 1966 | (cur_drv->head << 2) |
|
---|
| 1967 | GET_CUR_DRV(fdctrl) |
|
---|
| 1968 | 0x28;
|
---|
| 1969 | fdctrl_set_fifo(fdctrl, 1, 0);
|
---|
| 1970 | }
|
---|
| 1971 |
|
---|
| 1972 | static void fdctrl_handle_recalibrate(fdctrl_t *fdctrl, int direction)
|
---|
| 1973 | {
|
---|
[62904] | 1974 | RT_NOREF(direction);
|
---|
[34294] | 1975 | fdrive_t *cur_drv;
|
---|
[47664] | 1976 | uint8_t st0;
|
---|
[34294] | 1977 |
|
---|
| 1978 | SET_CUR_DRV(fdctrl, fdctrl->fifo[1] & FD_DOR_SELMASK);
|
---|
| 1979 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 1980 | fd_recalibrate(cur_drv);
|
---|
| 1981 | fdctrl_reset_fifo(fdctrl);
|
---|
[47664] | 1982 | st0 = FD_SR0_SEEK | GET_CUR_DRV(fdctrl);
|
---|
| 1983 | /* No drive means no TRK0 signal. */
|
---|
| 1984 | if (cur_drv->drive == FDRIVE_DRV_NONE)
|
---|
| 1985 | st0 |= FD_SR0_ABNTERM | FD_SR0_EQPMT;
|
---|
[34294] | 1986 | /* Raise Interrupt */
|
---|
[47664] | 1987 | fdctrl_raise_irq(fdctrl, st0);
|
---|
[34294] | 1988 | }
|
---|
| 1989 |
|
---|
| 1990 | static void fdctrl_handle_sense_interrupt_status(fdctrl_t *fdctrl, int direction)
|
---|
| 1991 | {
|
---|
[62904] | 1992 | RT_NOREF(direction);
|
---|
[34294] | 1993 | fdrive_t *cur_drv = get_cur_drv(fdctrl);
|
---|
| 1994 |
|
---|
[48059] | 1995 | FLOPPY_DPRINTF("CMD:%02x\n", fdctrl->fifo[0]);
|
---|
[34294] | 1996 | if(fdctrl->reset_sensei > 0) {
|
---|
| 1997 | fdctrl->fifo[0] =
|
---|
| 1998 | FD_SR0_RDYCHG + FD_RESET_SENSEI_COUNT - fdctrl->reset_sensei;
|
---|
| 1999 | fdctrl->reset_sensei--;
|
---|
| 2000 | } else {
|
---|
| 2001 | /* XXX: status0 handling is broken for read/write
|
---|
| 2002 | commands, so we do this hack. It should be suppressed
|
---|
| 2003 | ASAP */
|
---|
| 2004 | fdctrl->fifo[0] =
|
---|
| 2005 | FD_SR0_SEEK | (cur_drv->head << 2) | GET_CUR_DRV(fdctrl);
|
---|
[47664] | 2006 | /* Hack to preserve SR0 on equipment check failures (no drive). */
|
---|
| 2007 | if (fdctrl->status0 & FD_SR0_EQPMT)
|
---|
| 2008 | fdctrl->fifo[0] = fdctrl->status0;
|
---|
[34294] | 2009 | }
|
---|
| 2010 |
|
---|
| 2011 | fdctrl->fifo[1] = cur_drv->track;
|
---|
| 2012 | fdctrl_set_fifo(fdctrl, 2, 0);
|
---|
[48059] | 2013 | FLOPPY_DPRINTF("ST0:%02x PCN:%02x\n", fdctrl->fifo[0], fdctrl->fifo[1]);
|
---|
[34294] | 2014 | fdctrl->status0 = FD_SR0_RDYCHG;
|
---|
| 2015 | }
|
---|
| 2016 |
|
---|
| 2017 | static void fdctrl_handle_seek(fdctrl_t *fdctrl, int direction)
|
---|
| 2018 | {
|
---|
[62904] | 2019 | RT_NOREF(direction);
|
---|
[34294] | 2020 | fdrive_t *cur_drv;
|
---|
| 2021 |
|
---|
[48161] | 2022 | FLOPPY_DPRINTF("CMD:%02x SEL:%02x NCN:%02x\n", fdctrl->fifo[0],
|
---|
[48059] | 2023 | fdctrl->fifo[1], fdctrl->fifo[2]);
|
---|
| 2024 |
|
---|
[34294] | 2025 | SET_CUR_DRV(fdctrl, fdctrl->fifo[1] & FD_DOR_SELMASK);
|
---|
| 2026 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 2027 | fdctrl_reset_fifo(fdctrl);
|
---|
[78040] | 2028 |
|
---|
[36705] | 2029 | /* The seek command just sends step pulses to the drive and doesn't care if
|
---|
| 2030 | * there's a medium inserted or if it's banging the head against the drive.
|
---|
| 2031 | */
|
---|
| 2032 | cur_drv->track = fdctrl->fifo[2];
|
---|
[48081] | 2033 | cur_drv->ltrk = cur_drv->track;
|
---|
[48118] | 2034 | cur_drv->head = (fdctrl->fifo[1] >> 2) & 1;
|
---|
[36705] | 2035 | /* Raise Interrupt */
|
---|
[47664] | 2036 | fdctrl_raise_irq(fdctrl, FD_SR0_SEEK | GET_CUR_DRV(fdctrl));
|
---|
[34294] | 2037 | }
|
---|
| 2038 |
|
---|
| 2039 | static void fdctrl_handle_perpendicular_mode(fdctrl_t *fdctrl, int direction)
|
---|
| 2040 | {
|
---|
[62904] | 2041 | RT_NOREF(direction);
|
---|
[34294] | 2042 | fdrive_t *cur_drv = get_cur_drv(fdctrl);
|
---|
| 2043 |
|
---|
| 2044 | if (fdctrl->fifo[1] & 0x80)
|
---|
| 2045 | cur_drv->perpendicular = fdctrl->fifo[1] & 0x7;
|
---|
| 2046 | /* No result back */
|
---|
| 2047 | fdctrl_reset_fifo(fdctrl);
|
---|
| 2048 | }
|
---|
| 2049 |
|
---|
| 2050 | static void fdctrl_handle_configure(fdctrl_t *fdctrl, int direction)
|
---|
| 2051 | {
|
---|
[62904] | 2052 | RT_NOREF(direction);
|
---|
[34294] | 2053 | fdctrl->config = fdctrl->fifo[2];
|
---|
| 2054 | fdctrl->precomp_trk = fdctrl->fifo[3];
|
---|
| 2055 | /* No result back */
|
---|
| 2056 | fdctrl_reset_fifo(fdctrl);
|
---|
| 2057 | }
|
---|
| 2058 |
|
---|
| 2059 | static void fdctrl_handle_powerdown_mode(fdctrl_t *fdctrl, int direction)
|
---|
| 2060 | {
|
---|
[62904] | 2061 | RT_NOREF(direction);
|
---|
[34294] | 2062 | fdctrl->pwrd = fdctrl->fifo[1];
|
---|
| 2063 | fdctrl->fifo[0] = fdctrl->fifo[1];
|
---|
[37223] | 2064 | fdctrl_set_fifo(fdctrl, 1, 0);
|
---|
[34294] | 2065 | }
|
---|
| 2066 |
|
---|
| 2067 | static void fdctrl_handle_option(fdctrl_t *fdctrl, int direction)
|
---|
| 2068 | {
|
---|
[62904] | 2069 | RT_NOREF(direction);
|
---|
[34294] | 2070 | /* No result back */
|
---|
| 2071 | fdctrl_reset_fifo(fdctrl);
|
---|
| 2072 | }
|
---|
| 2073 |
|
---|
| 2074 | static void fdctrl_handle_drive_specification_command(fdctrl_t *fdctrl, int direction)
|
---|
| 2075 | {
|
---|
[62904] | 2076 | RT_NOREF(direction);
|
---|
| 2077 | /* fdrive_t *cur_drv = get_cur_drv(fdctrl); - unused */
|
---|
[34294] | 2078 |
|
---|
[55753] | 2079 | /* This command takes a variable number of parameters. It can be terminated
|
---|
| 2080 | * at any time if the high bit of a parameter is set. Once there are 6 bytes
|
---|
| 2081 | * in the FIFO (command + 5 parameter bytes), data_len/data_pos will be 7.
|
---|
| 2082 | */
|
---|
| 2083 | if (fdctrl->data_len == 7 || (fdctrl->fifo[fdctrl->data_pos - 1] & 0x80)) {
|
---|
| 2084 |
|
---|
[34294] | 2085 | /* Command parameters done */
|
---|
| 2086 | if (fdctrl->fifo[fdctrl->data_pos - 1] & 0x40) {
|
---|
[55753] | 2087 | /* Data is echoed, but not stored! */
|
---|
| 2088 | fdctrl->fifo[0] = fdctrl->data_len > 2 ? fdctrl->fifo[1] : 0;
|
---|
| 2089 | fdctrl->fifo[1] = fdctrl->data_len > 3 ? fdctrl->fifo[2] : 0;
|
---|
[34294] | 2090 | fdctrl->fifo[2] = 0;
|
---|
| 2091 | fdctrl->fifo[3] = 0;
|
---|
[37223] | 2092 | fdctrl_set_fifo(fdctrl, 4, 0);
|
---|
[34294] | 2093 | } else {
|
---|
| 2094 | fdctrl_reset_fifo(fdctrl);
|
---|
| 2095 | }
|
---|
[55753] | 2096 | } else
|
---|
| 2097 | fdctrl->data_len++; /* Wait for another byte. */
|
---|
[34294] | 2098 | }
|
---|
| 2099 |
|
---|
| 2100 | static void fdctrl_handle_relative_seek_out(fdctrl_t *fdctrl, int direction)
|
---|
| 2101 | {
|
---|
[62904] | 2102 | RT_NOREF(direction);
|
---|
[34294] | 2103 | fdrive_t *cur_drv;
|
---|
| 2104 |
|
---|
| 2105 | SET_CUR_DRV(fdctrl, fdctrl->fifo[1] & FD_DOR_SELMASK);
|
---|
| 2106 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 2107 | if (fdctrl->fifo[2] + cur_drv->track >= cur_drv->max_track) {
|
---|
| 2108 | cur_drv->track = cur_drv->max_track - 1;
|
---|
| 2109 | } else {
|
---|
| 2110 | cur_drv->track += fdctrl->fifo[2];
|
---|
| 2111 | }
|
---|
| 2112 | fdctrl_reset_fifo(fdctrl);
|
---|
| 2113 | /* Raise Interrupt */
|
---|
| 2114 | fdctrl_raise_irq(fdctrl, FD_SR0_SEEK);
|
---|
| 2115 | }
|
---|
| 2116 |
|
---|
| 2117 | static void fdctrl_handle_relative_seek_in(fdctrl_t *fdctrl, int direction)
|
---|
| 2118 | {
|
---|
[62904] | 2119 | RT_NOREF(direction);
|
---|
[34294] | 2120 | fdrive_t *cur_drv;
|
---|
| 2121 |
|
---|
| 2122 | SET_CUR_DRV(fdctrl, fdctrl->fifo[1] & FD_DOR_SELMASK);
|
---|
| 2123 | cur_drv = get_cur_drv(fdctrl);
|
---|
| 2124 | if (fdctrl->fifo[2] > cur_drv->track) {
|
---|
| 2125 | cur_drv->track = 0;
|
---|
| 2126 | } else {
|
---|
| 2127 | cur_drv->track -= fdctrl->fifo[2];
|
---|
| 2128 | }
|
---|
| 2129 | fdctrl_reset_fifo(fdctrl);
|
---|
| 2130 | /* Raise Interrupt */
|
---|
| 2131 | fdctrl_raise_irq(fdctrl, FD_SR0_SEEK);
|
---|
| 2132 | }
|
---|
| 2133 |
|
---|
| 2134 | static const struct {
|
---|
| 2135 | uint8_t value;
|
---|
| 2136 | uint8_t mask;
|
---|
| 2137 | const char* name;
|
---|
| 2138 | int parameters;
|
---|
| 2139 | void (*handler)(fdctrl_t *fdctrl, int direction);
|
---|
| 2140 | int direction;
|
---|
| 2141 | } handlers[] = {
|
---|
| 2142 | { FD_CMD_READ, 0x1f, "READ", 8, fdctrl_start_transfer, FD_DIR_READ },
|
---|
| 2143 | { FD_CMD_WRITE, 0x3f, "WRITE", 8, fdctrl_start_transfer, FD_DIR_WRITE },
|
---|
| 2144 | { FD_CMD_SEEK, 0xff, "SEEK", 2, fdctrl_handle_seek },
|
---|
| 2145 | { FD_CMD_SENSE_INTERRUPT_STATUS, 0xff, "SENSE INTERRUPT STATUS", 0, fdctrl_handle_sense_interrupt_status },
|
---|
| 2146 | { FD_CMD_RECALIBRATE, 0xff, "RECALIBRATE", 1, fdctrl_handle_recalibrate },
|
---|
| 2147 | { FD_CMD_FORMAT_TRACK, 0xbf, "FORMAT TRACK", 5, fdctrl_handle_format_track },
|
---|
[92748] | 2148 | { FD_CMD_READ_TRACK, 0x9f, "READ TRACK", 8, fdctrl_start_transfer, FD_DIR_READ },
|
---|
[34294] | 2149 | { FD_CMD_RESTORE, 0xff, "RESTORE", 17, fdctrl_handle_restore }, /* part of READ DELETED DATA */
|
---|
| 2150 | { FD_CMD_SAVE, 0xff, "SAVE", 0, fdctrl_handle_save }, /* part of READ DELETED DATA */
|
---|
| 2151 | { FD_CMD_READ_DELETED, 0x1f, "READ DELETED DATA", 8, fdctrl_start_transfer_del, FD_DIR_READ },
|
---|
| 2152 | { FD_CMD_SCAN_EQUAL, 0x1f, "SCAN EQUAL", 8, fdctrl_start_transfer, FD_DIR_SCANE },
|
---|
| 2153 | { FD_CMD_VERIFY, 0x1f, "VERIFY", 8, fdctrl_unimplemented },
|
---|
| 2154 | { FD_CMD_SCAN_LOW_OR_EQUAL, 0x1f, "SCAN LOW OR EQUAL", 8, fdctrl_start_transfer, FD_DIR_SCANL },
|
---|
| 2155 | { FD_CMD_SCAN_HIGH_OR_EQUAL, 0x1f, "SCAN HIGH OR EQUAL", 8, fdctrl_start_transfer, FD_DIR_SCANH },
|
---|
| 2156 | { FD_CMD_WRITE_DELETED, 0x3f, "WRITE DELETED DATA", 8, fdctrl_start_transfer_del, FD_DIR_WRITE },
|
---|
| 2157 | { FD_CMD_READ_ID, 0xbf, "READ ID", 1, fdctrl_handle_readid },
|
---|
| 2158 | { FD_CMD_SPECIFY, 0xff, "SPECIFY", 2, fdctrl_handle_specify },
|
---|
| 2159 | { FD_CMD_SENSE_DRIVE_STATUS, 0xff, "SENSE DRIVE STATUS", 1, fdctrl_handle_sense_drive_status },
|
---|
| 2160 | { FD_CMD_PERPENDICULAR_MODE, 0xff, "PERPENDICULAR MODE", 1, fdctrl_handle_perpendicular_mode },
|
---|
| 2161 | { FD_CMD_CONFIGURE, 0xff, "CONFIGURE", 3, fdctrl_handle_configure },
|
---|
| 2162 | { FD_CMD_POWERDOWN_MODE, 0xff, "POWERDOWN MODE", 2, fdctrl_handle_powerdown_mode },
|
---|
| 2163 | { FD_CMD_OPTION, 0xff, "OPTION", 1, fdctrl_handle_option },
|
---|
[55753] | 2164 | { FD_CMD_DRIVE_SPECIFICATION_COMMAND, 0xff, "DRIVE SPECIFICATION COMMAND", 1, fdctrl_handle_drive_specification_command },
|
---|
[34294] | 2165 | { FD_CMD_RELATIVE_SEEK_OUT, 0xff, "RELATIVE SEEK OUT", 2, fdctrl_handle_relative_seek_out },
|
---|
| 2166 | { FD_CMD_FORMAT_AND_WRITE, 0xff, "FORMAT AND WRITE", 10, fdctrl_unimplemented },
|
---|
| 2167 | { FD_CMD_RELATIVE_SEEK_IN, 0xff, "RELATIVE SEEK IN", 2, fdctrl_handle_relative_seek_in },
|
---|
| 2168 | { FD_CMD_LOCK, 0x7f, "LOCK", 0, fdctrl_handle_lock },
|
---|
| 2169 | { FD_CMD_DUMPREG, 0xff, "DUMPREG", 0, fdctrl_handle_dumpreg },
|
---|
| 2170 | { FD_CMD_VERSION, 0xff, "VERSION", 0, fdctrl_handle_version },
|
---|
| 2171 | { FD_CMD_PART_ID, 0xff, "PART ID", 0, fdctrl_handle_partid },
|
---|
| 2172 | { FD_CMD_WRITE, 0x1f, "WRITE (BeOS)", 8, fdctrl_start_transfer, FD_DIR_WRITE }, /* not in specification ; BeOS 4.5 bug */
|
---|
| 2173 | { 0, 0, "unknown", 0, fdctrl_unimplemented }, /* default handler */
|
---|
| 2174 | };
|
---|
| 2175 | /* Associate command to an index in the 'handlers' array */
|
---|
| 2176 | static uint8_t command_to_handler[256];
|
---|
| 2177 |
|
---|
| 2178 | static void fdctrl_write_data(fdctrl_t *fdctrl, uint32_t value)
|
---|
| 2179 | {
|
---|
| 2180 | fdrive_t *cur_drv;
|
---|
| 2181 | int pos;
|
---|
| 2182 |
|
---|
| 2183 | cur_drv = get_cur_drv(fdctrl);
|
---|
[1] | 2184 | /* Reset mode */
|
---|
[34294] | 2185 | if (!(fdctrl->dor & FD_DOR_nRESET)) {
|
---|
[1] | 2186 | FLOPPY_DPRINTF("Floppy controller in RESET state !\n");
|
---|
| 2187 | return;
|
---|
| 2188 | }
|
---|
[34294] | 2189 | if (!(fdctrl->msr & FD_MSR_RQM) || (fdctrl->msr & FD_MSR_DIO)) {
|
---|
| 2190 | FLOPPY_ERROR("controller not ready for writing\n");
|
---|
[1] | 2191 | return;
|
---|
| 2192 | }
|
---|
[34294] | 2193 | fdctrl->dsr &= ~FD_DSR_PWRDOWN;
|
---|
[1] | 2194 | /* Is it write command time ? */
|
---|
[34294] | 2195 | if (fdctrl->msr & FD_MSR_NONDMA) {
|
---|
[1] | 2196 | /* FIFO data write */
|
---|
[34294] | 2197 | pos = fdctrl->data_pos++;
|
---|
| 2198 | pos %= FD_SECTOR_LEN;
|
---|
| 2199 | fdctrl->fifo[pos] = value;
|
---|
[87121] | 2200 |
|
---|
| 2201 | if (cur_drv->pDrvMedia == NULL)
|
---|
| 2202 | {
|
---|
| 2203 | if (fdctrl->data_dir == FD_DIR_WRITE)
|
---|
| 2204 | fdctrl_stop_transfer_now(fdctrl, FD_SR0_ABNTERM | FD_SR0_SEEK, 0x00, 0x00);
|
---|
| 2205 | else
|
---|
| 2206 | fdctrl_stop_transfer_now(fdctrl, FD_SR0_ABNTERM, 0x00, 0x00);
|
---|
| 2207 | } else if (pos == FD_SECTOR_LEN - 1 ||
|
---|
[1] | 2208 | fdctrl->data_pos == fdctrl->data_len) {
|
---|
[34294] | 2209 | blk_write(cur_drv, fd_sector(cur_drv), fdctrl->fifo, 1);
|
---|
[1] | 2210 | }
|
---|
| 2211 | /* Switch from transfer mode to status mode
|
---|
| 2212 | * then from status mode to command mode
|
---|
| 2213 | */
|
---|
[34294] | 2214 | if (fdctrl->data_pos == fdctrl->data_len)
|
---|
| 2215 | fdctrl_stop_transfer(fdctrl, FD_SR0_SEEK, 0x00, 0x00);
|
---|
[1] | 2216 | return;
|
---|
| 2217 | }
|
---|
| 2218 | if (fdctrl->data_pos == 0) {
|
---|
| 2219 | /* Command */
|
---|
[47522] | 2220 | fdctrl_reset_irq(fdctrl); /* If pending from previous seek/recalibrate. */
|
---|
[34294] | 2221 | pos = command_to_handler[value & 0xff];
|
---|
| 2222 | FLOPPY_DPRINTF("%s command\n", handlers[pos].name);
|
---|
| 2223 | fdctrl->data_len = handlers[pos].parameters + 1;
|
---|
[37459] | 2224 | fdctrl->msr |= FD_MSR_CMDBUSY;
|
---|
[92747] | 2225 | fdctrl->cur_cmd = value & 0xff;
|
---|
[1] | 2226 | }
|
---|
[34294] | 2227 |
|
---|
[49885] | 2228 | FLOPPY_DPRINTF("%s: %02x\n", __FUNCTION__, value);
|
---|
[55641] | 2229 | fdctrl->fifo[fdctrl->data_pos++ % FD_SECTOR_LEN] = value;
|
---|
[34294] | 2230 | if (fdctrl->data_pos == fdctrl->data_len) {
|
---|
[1] | 2231 | /* We now have all parameters
|
---|
| 2232 | * and will be able to treat the command
|
---|
| 2233 | */
|
---|
| 2234 | if (fdctrl->data_state & FD_STATE_FORMAT) {
|
---|
| 2235 | fdctrl_format_sector(fdctrl);
|
---|
| 2236 | return;
|
---|
| 2237 | }
|
---|
[34294] | 2238 |
|
---|
| 2239 | pos = command_to_handler[fdctrl->fifo[0] & 0xff];
|
---|
| 2240 | FLOPPY_DPRINTF("treat %s command\n", handlers[pos].name);
|
---|
| 2241 | (*handlers[pos].handler)(fdctrl, handlers[pos].direction);
|
---|
[1] | 2242 | }
|
---|
| 2243 | }
|
---|
| 2244 |
|
---|
[81795] | 2245 |
|
---|
| 2246 | /* -=-=-=-=-=-=-=-=- Timer Callback -=-=-=-=-=-=-=-=- */
|
---|
| 2247 |
|
---|
| 2248 | /**
|
---|
| 2249 | * @callback_method_impl{FNTMTIMERDEV}
|
---|
| 2250 | */
|
---|
[87767] | 2251 | static DECLCALLBACK(void) fdcTimerCallback(PPDMDEVINS pDevIns, TMTIMERHANDLE hTimer, void *pvUser)
|
---|
[1] | 2252 | {
|
---|
[81795] | 2253 | fdctrl_t *fdctrl = PDMDEVINS_2_DATA(pDevIns, fdctrl_t *);
|
---|
[34294] | 2254 | fdrive_t *cur_drv = get_cur_drv(fdctrl);
|
---|
[87767] | 2255 | RT_NOREF(hTimer, pvUser);
|
---|
[34294] | 2256 |
|
---|
| 2257 | /* Pretend we are spinning.
|
---|
| 2258 | * This is needed for Coherent, which uses READ ID to check for
|
---|
| 2259 | * sector interleaving.
|
---|
| 2260 | */
|
---|
| 2261 | if (cur_drv->last_sect != 0) {
|
---|
| 2262 | cur_drv->sect = (cur_drv->sect % cur_drv->last_sect) + 1;
|
---|
| 2263 | }
|
---|
[36705] | 2264 | /* READ_ID can't automatically succeed! */
|
---|
[47527] | 2265 | if (!cur_drv->max_track) {
|
---|
| 2266 | FLOPPY_DPRINTF("read id when no disk in drive\n");
|
---|
[63562] | 2267 | /// @todo This is wrong! Command should not complete.
|
---|
[82152] | 2268 | fdctrl_stop_transfer_now(fdctrl, FD_SR0_ABNTERM, FD_SR1_MA | FD_SR1_ND, FD_SR2_MD);
|
---|
[47527] | 2269 | } else if ((fdctrl->dsr & FD_DSR_DRATEMASK) != cur_drv->media_rate) {
|
---|
[36705] | 2270 | FLOPPY_DPRINTF("read id rate mismatch (fdc=%d, media=%d)\n",
|
---|
| 2271 | fdctrl->dsr & FD_DSR_DRATEMASK, cur_drv->media_rate);
|
---|
[82152] | 2272 | fdctrl_stop_transfer_now(fdctrl, FD_SR0_ABNTERM, FD_SR1_MA | FD_SR1_ND, FD_SR2_MD);
|
---|
[48081] | 2273 | } else if (cur_drv->track >= cur_drv->max_track) {
|
---|
| 2274 | FLOPPY_DPRINTF("read id past last track (%d >= %d)\n",
|
---|
| 2275 | cur_drv->track, cur_drv->max_track);
|
---|
| 2276 | cur_drv->ltrk = 0;
|
---|
[82152] | 2277 | fdctrl_stop_transfer_now(fdctrl, FD_SR0_ABNTERM, FD_SR1_MA | FD_SR1_ND, FD_SR2_MD);
|
---|
[36705] | 2278 | }
|
---|
| 2279 | else
|
---|
[82152] | 2280 | fdctrl_stop_transfer_now(fdctrl, 0x00, 0x00, 0x00);
|
---|
[1] | 2281 | }
|
---|
| 2282 |
|
---|
[44808] | 2283 |
|
---|
| 2284 | /* -=-=-=-=-=-=-=-=- I/O Port Access Handlers -=-=-=-=-=-=-=-=- */
|
---|
| 2285 |
|
---|
| 2286 | /**
|
---|
[81995] | 2287 | * @callback_method_impl{FNIOMIOPORTNEWOUT, Handling 0x3f0 accesses.}
|
---|
[44808] | 2288 | */
|
---|
[81995] | 2289 | static DECLCALLBACK(VBOXSTRICTRC) fdcIoPort0Write(PPDMDEVINS pDevIns, void *pvUser, RTIOPORT offPort, uint32_t u32, unsigned cb)
|
---|
| 2290 | {
|
---|
| 2291 | RT_NOREF(pvUser);
|
---|
| 2292 |
|
---|
| 2293 | if (cb == 1)
|
---|
| 2294 | fdctrl_write(PDMDEVINS_2_DATA(pDevIns, fdctrl_t *), offPort, u32);
|
---|
| 2295 | else
|
---|
| 2296 | ASSERT_GUEST_MSG_FAILED(("offPort=%#x cb=%d u32=%#x\n", offPort, cb, u32));
|
---|
| 2297 | return VINF_SUCCESS;
|
---|
| 2298 | }
|
---|
| 2299 |
|
---|
| 2300 |
|
---|
| 2301 | /**
|
---|
| 2302 | * @callback_method_impl{FNIOMIOPORTNEWIN, Handling 0x3f0 accesses.}
|
---|
| 2303 | */
|
---|
| 2304 | static DECLCALLBACK(VBOXSTRICTRC) fdcIoPort0Read(PPDMDEVINS pDevIns, void *pvUser, RTIOPORT offPort, uint32_t *pu32, unsigned cb)
|
---|
| 2305 | {
|
---|
| 2306 | RT_NOREF(pvUser);
|
---|
| 2307 |
|
---|
| 2308 | if (cb == 1)
|
---|
| 2309 | {
|
---|
| 2310 | *pu32 = fdctrl_read(PDMDEVINS_2_DATA(pDevIns, fdctrl_t *), offPort);
|
---|
| 2311 | return VINF_SUCCESS;
|
---|
| 2312 | }
|
---|
| 2313 | return VERR_IOM_IOPORT_UNUSED;
|
---|
| 2314 | }
|
---|
| 2315 |
|
---|
| 2316 |
|
---|
| 2317 | /**
|
---|
| 2318 | * @callback_method_impl{FNIOMIOPORTNEWOUT, Handling 0x3f1..0x3f5 accesses.}
|
---|
| 2319 | */
|
---|
[81799] | 2320 | static DECLCALLBACK(VBOXSTRICTRC) fdcIoPort1Write(PPDMDEVINS pDevIns, void *pvUser, RTIOPORT offPort, uint32_t u32, unsigned cb)
|
---|
[1] | 2321 | {
|
---|
[81799] | 2322 | RT_NOREF(pvUser);
|
---|
| 2323 |
|
---|
[44808] | 2324 | if (cb == 1)
|
---|
[81799] | 2325 | fdctrl_write(PDMDEVINS_2_DATA(pDevIns, fdctrl_t *), offPort + 1, u32);
|
---|
[44808] | 2326 | else
|
---|
[81799] | 2327 | ASSERT_GUEST_MSG_FAILED(("offPort=%#x cb=%d u32=%#x\n", offPort, cb, u32));
|
---|
[1] | 2328 | return VINF_SUCCESS;
|
---|
| 2329 | }
|
---|
| 2330 |
|
---|
[44808] | 2331 |
|
---|
| 2332 | /**
|
---|
[82152] | 2333 | * @callback_method_impl{FNTMTIMERDEV}
|
---|
| 2334 | */
|
---|
[87767] | 2335 | static DECLCALLBACK(void) fdcTransferDelayTimer(PPDMDEVINS pDevIns, TMTIMERHANDLE hTimer, void *pvUser)
|
---|
[82152] | 2336 | {
|
---|
[82177] | 2337 | fdctrl_t *fdctrl = PDMDEVINS_2_DATA(pDevIns, fdctrl_t *);
|
---|
[87767] | 2338 | RT_NOREF(pvUser, hTimer);
|
---|
[82152] | 2339 | fdctrl_stop_transfer_now(fdctrl, fdctrl->st0, fdctrl->st1, fdctrl->st2);
|
---|
| 2340 | }
|
---|
| 2341 |
|
---|
[82177] | 2342 |
|
---|
[82152] | 2343 | /**
|
---|
| 2344 | * @callback_method_impl{FNTMTIMERDEV}
|
---|
| 2345 | */
|
---|
[87767] | 2346 | static DECLCALLBACK(void) fdcIrqDelayTimer(PPDMDEVINS pDevIns, TMTIMERHANDLE hTimer, void *pvUser)
|
---|
[82152] | 2347 | {
|
---|
[82177] | 2348 | fdctrl_t *fdctrl = PDMDEVINS_2_DATA(pDevIns, fdctrl_t *);
|
---|
[87767] | 2349 | RT_NOREF(pvUser, hTimer);
|
---|
[82152] | 2350 | fdctrl_raise_irq_now(fdctrl, fdctrl->st0);
|
---|
| 2351 | }
|
---|
| 2352 |
|
---|
| 2353 |
|
---|
| 2354 |
|
---|
| 2355 | /* -=-=-=-=-=-=-=-=- I/O Port Access Handlers -=-=-=-=-=-=-=-=- */
|
---|
| 2356 | /**
|
---|
[81995] | 2357 | * @callback_method_impl{FNIOMIOPORTNEWIN, Handling 0x3f1..0x3f5 accesses.}
|
---|
[44808] | 2358 | */
|
---|
[81799] | 2359 | static DECLCALLBACK(VBOXSTRICTRC) fdcIoPort1Read(PPDMDEVINS pDevIns, void *pvUser, RTIOPORT offPort, uint32_t *pu32, unsigned cb)
|
---|
[1] | 2360 | {
|
---|
[81799] | 2361 | RT_NOREF(pvUser);
|
---|
| 2362 |
|
---|
[44808] | 2363 | if (cb == 1)
|
---|
| 2364 | {
|
---|
[81799] | 2365 | *pu32 = fdctrl_read(PDMDEVINS_2_DATA(pDevIns, fdctrl_t *), offPort + 1);
|
---|
[1] | 2366 | return VINF_SUCCESS;
|
---|
| 2367 | }
|
---|
[44808] | 2368 | return VERR_IOM_IOPORT_UNUSED;
|
---|
[1] | 2369 | }
|
---|
| 2370 |
|
---|
[44808] | 2371 |
|
---|
[81799] | 2372 | /**
|
---|
| 2373 | * @callback_method_impl{FNIOMIOPORTNEWOUT, Handling 0x3f7 access.}
|
---|
| 2374 | */
|
---|
| 2375 | static DECLCALLBACK(VBOXSTRICTRC) fdcIoPort2Write(PPDMDEVINS pDevIns, void *pvUser, RTIOPORT offPort, uint32_t u32, unsigned cb)
|
---|
| 2376 | {
|
---|
| 2377 | RT_NOREF(offPort, pvUser);
|
---|
| 2378 | Assert(offPort == 0);
|
---|
| 2379 |
|
---|
| 2380 | if (cb == 1)
|
---|
| 2381 | fdctrl_write(PDMDEVINS_2_DATA(pDevIns, fdctrl_t *), 7, u32);
|
---|
| 2382 | else
|
---|
| 2383 | ASSERT_GUEST_MSG_FAILED(("offPort=%#x cb=%d u32=%#x\n", offPort, cb, u32));
|
---|
| 2384 | return VINF_SUCCESS;
|
---|
| 2385 | }
|
---|
| 2386 |
|
---|
| 2387 |
|
---|
| 2388 | /**
|
---|
| 2389 | * @callback_method_impl{FNIOMIOPORTNEWIN, Handling 0x3f7 access.}
|
---|
| 2390 | */
|
---|
| 2391 | static DECLCALLBACK(VBOXSTRICTRC) fdcIoPort2Read(PPDMDEVINS pDevIns, void *pvUser, RTIOPORT offPort, uint32_t *pu32, unsigned cb)
|
---|
| 2392 | {
|
---|
| 2393 | RT_NOREF(pvUser, offPort);
|
---|
| 2394 | Assert(offPort == 0);
|
---|
| 2395 |
|
---|
| 2396 | if (cb == 1)
|
---|
| 2397 | {
|
---|
| 2398 | *pu32 = fdctrl_read(PDMDEVINS_2_DATA(pDevIns, fdctrl_t *), 7);
|
---|
| 2399 | return VINF_SUCCESS;
|
---|
| 2400 | }
|
---|
| 2401 | return VERR_IOM_IOPORT_UNUSED;
|
---|
| 2402 | }
|
---|
| 2403 |
|
---|
| 2404 |
|
---|
[92747] | 2405 | /* -=-=-=-=-=-=-=-=- Debugger callback -=-=-=-=-=-=-=-=- */
|
---|
| 2406 |
|
---|
| 2407 | /**
|
---|
| 2408 | * FDC debugger info callback.
|
---|
| 2409 | *
|
---|
| 2410 | * @param pDevIns The device instance.
|
---|
| 2411 | * @param pHlp The output helpers.
|
---|
| 2412 | * @param pszArgs The arguments.
|
---|
| 2413 | */
|
---|
| 2414 | static DECLCALLBACK(void) fdcInfo(PPDMDEVINS pDevIns, PCDBGFINFOHLP pHlp, const char *pszArgs)
|
---|
| 2415 | {
|
---|
| 2416 | fdctrl_t *pThis = PDMDEVINS_2_DATA(pDevIns, fdctrl_t *);
|
---|
| 2417 | unsigned i;
|
---|
| 2418 | bool fVerbose = false;
|
---|
| 2419 |
|
---|
| 2420 | /* Parse arguments. */
|
---|
| 2421 | if (pszArgs)
|
---|
| 2422 | fVerbose = strstr(pszArgs, "verbose") != NULL;
|
---|
| 2423 |
|
---|
| 2424 | /* Show basic information. */
|
---|
| 2425 | pHlp->pfnPrintf(pHlp, "%s#%d: ",
|
---|
| 2426 | pDevIns->pReg->szName,
|
---|
| 2427 | pDevIns->iInstance);
|
---|
| 2428 | pHlp->pfnPrintf(pHlp, "I/O=%X IRQ=%u DMA=%u ",
|
---|
| 2429 | pThis->io_base,
|
---|
| 2430 | pThis->irq_lvl,
|
---|
| 2431 | pThis->dma_chann);
|
---|
| 2432 | pHlp->pfnPrintf(pHlp, "RC=%RTbool R0=%RTbool\n", pDevIns->fRCEnabled, pDevIns->fR0Enabled);
|
---|
| 2433 |
|
---|
| 2434 | /* Print register contents. */
|
---|
| 2435 | pHlp->pfnPrintf(pHlp, "Registers: MSR=%02X DSR=%02X DOR=%02X\n",
|
---|
| 2436 | pThis->msr, pThis->dsr, pThis->dor);
|
---|
| 2437 | pHlp->pfnPrintf(pHlp, " DIR=%02X\n",
|
---|
| 2438 | fdctrl_read_dir(pThis));
|
---|
| 2439 |
|
---|
| 2440 | /* Print the current command, if any. */
|
---|
| 2441 | if (pThis->cur_cmd)
|
---|
| 2442 | pHlp->pfnPrintf(pHlp, "Curr cmd: %02X (%s)\n",
|
---|
| 2443 | pThis->cur_cmd,
|
---|
| 2444 | handlers[command_to_handler[pThis->cur_cmd]].name);
|
---|
[92749] | 2445 | if (pThis->prev_cmd)
|
---|
[92747] | 2446 | pHlp->pfnPrintf(pHlp, "Prev cmd: %02X (%s)\n",
|
---|
| 2447 | pThis->prev_cmd,
|
---|
| 2448 | handlers[command_to_handler[pThis->prev_cmd]].name);
|
---|
| 2449 |
|
---|
| 2450 |
|
---|
| 2451 | for (i = 0; i < pThis->num_floppies; ++i)
|
---|
| 2452 | {
|
---|
| 2453 | fdrive_t *drv = &pThis->drives[i];
|
---|
| 2454 | pHlp->pfnPrintf(pHlp, " Drive %u state:\n", i);
|
---|
| 2455 | pHlp->pfnPrintf(pHlp, " Medium : %u tracks, %u sectors\n",
|
---|
| 2456 | drv->max_track,
|
---|
| 2457 | drv->last_sect);
|
---|
| 2458 | pHlp->pfnPrintf(pHlp, " Current: track %u, head %u, sector %u\n",
|
---|
| 2459 | drv->track,
|
---|
| 2460 | drv->head,
|
---|
| 2461 | drv->sect);
|
---|
| 2462 | }
|
---|
| 2463 | }
|
---|
| 2464 |
|
---|
| 2465 |
|
---|
[44808] | 2466 | /* -=-=-=-=-=-=-=-=- Saved state -=-=-=-=-=-=-=-=- */
|
---|
| 2467 |
|
---|
| 2468 | /**
|
---|
| 2469 | * @callback_method_impl{FNSSMDEVSAVEEXEC}
|
---|
| 2470 | */
|
---|
| 2471 | static DECLCALLBACK(int) fdcSaveExec(PPDMDEVINS pDevIns, PSSMHANDLE pSSM)
|
---|
[1] | 2472 | {
|
---|
[81794] | 2473 | fdctrl_t *pThis = PDMDEVINS_2_DATA(pDevIns, fdctrl_t *);
|
---|
| 2474 | PCPDMDEVHLPR3 pHlp = pDevIns->pHlpR3;
|
---|
[1] | 2475 | unsigned int i;
|
---|
[82152] | 2476 | int rc;
|
---|
[1] | 2477 |
|
---|
[34294] | 2478 | /* Save the FDC I/O registers... */
|
---|
[81794] | 2479 | pHlp->pfnSSMPutU8(pSSM, pThis->sra);
|
---|
| 2480 | pHlp->pfnSSMPutU8(pSSM, pThis->srb);
|
---|
| 2481 | pHlp->pfnSSMPutU8(pSSM, pThis->dor);
|
---|
| 2482 | pHlp->pfnSSMPutU8(pSSM, pThis->tdr);
|
---|
| 2483 | pHlp->pfnSSMPutU8(pSSM, pThis->dsr);
|
---|
| 2484 | pHlp->pfnSSMPutU8(pSSM, pThis->msr);
|
---|
[34294] | 2485 | /* ...the status registers... */
|
---|
[81794] | 2486 | pHlp->pfnSSMPutU8(pSSM, pThis->status0);
|
---|
| 2487 | pHlp->pfnSSMPutU8(pSSM, pThis->status1);
|
---|
| 2488 | pHlp->pfnSSMPutU8(pSSM, pThis->status2);
|
---|
[34294] | 2489 | /* ...the command FIFO... */
|
---|
[81794] | 2490 | pHlp->pfnSSMPutU32(pSSM, sizeof(pThis->fifo));
|
---|
| 2491 | pHlp->pfnSSMPutMem(pSSM, &pThis->fifo, sizeof(pThis->fifo));
|
---|
| 2492 | pHlp->pfnSSMPutU32(pSSM, pThis->data_pos);
|
---|
| 2493 | pHlp->pfnSSMPutU32(pSSM, pThis->data_len);
|
---|
| 2494 | pHlp->pfnSSMPutU8(pSSM, pThis->data_state);
|
---|
| 2495 | pHlp->pfnSSMPutU8(pSSM, pThis->data_dir);
|
---|
[34294] | 2496 | /* ...and miscellaneous internal FDC state. */
|
---|
[81794] | 2497 | pHlp->pfnSSMPutU8(pSSM, pThis->reset_sensei);
|
---|
| 2498 | pHlp->pfnSSMPutU8(pSSM, pThis->eot);
|
---|
| 2499 | pHlp->pfnSSMPutU8(pSSM, pThis->timer0);
|
---|
| 2500 | pHlp->pfnSSMPutU8(pSSM, pThis->timer1);
|
---|
| 2501 | pHlp->pfnSSMPutU8(pSSM, pThis->precomp_trk);
|
---|
| 2502 | pHlp->pfnSSMPutU8(pSSM, pThis->config);
|
---|
| 2503 | pHlp->pfnSSMPutU8(pSSM, pThis->lock);
|
---|
| 2504 | pHlp->pfnSSMPutU8(pSSM, pThis->pwrd);
|
---|
| 2505 | pHlp->pfnSSMPutU8(pSSM, pThis->version);
|
---|
[1] | 2506 |
|
---|
[34294] | 2507 | /* Save the number of drives and per-drive state. Note that the media
|
---|
| 2508 | * states will be updated in fd_revalidate() and need not be saved.
|
---|
| 2509 | */
|
---|
[81794] | 2510 | pHlp->pfnSSMPutU8(pSSM, pThis->num_floppies);
|
---|
[44808] | 2511 | Assert(RT_ELEMENTS(pThis->drives) == pThis->num_floppies);
|
---|
| 2512 | for (i = 0; i < pThis->num_floppies; ++i)
|
---|
| 2513 | {
|
---|
| 2514 | fdrive_t *d = &pThis->drives[i];
|
---|
[1] | 2515 |
|
---|
[81794] | 2516 | pHlp->pfnSSMPutMem(pSSM, &d->Led, sizeof(d->Led));
|
---|
| 2517 | pHlp->pfnSSMPutU32(pSSM, d->drive);
|
---|
| 2518 | pHlp->pfnSSMPutU8(pSSM, d->dsk_chg);
|
---|
| 2519 | pHlp->pfnSSMPutU8(pSSM, d->perpendicular);
|
---|
| 2520 | pHlp->pfnSSMPutU8(pSSM, d->head);
|
---|
| 2521 | pHlp->pfnSSMPutU8(pSSM, d->track);
|
---|
| 2522 | pHlp->pfnSSMPutU8(pSSM, d->sect);
|
---|
[1] | 2523 | }
|
---|
[82152] | 2524 | rc = pHlp->pfnTimerSave(pDevIns, pThis->hXferDelayTimer, pSSM);
|
---|
[82177] | 2525 | AssertRCReturn(rc, rc);
|
---|
[82152] | 2526 | rc = pHlp->pfnTimerSave(pDevIns, pThis->hIrqDelayTimer, pSSM);
|
---|
[82177] | 2527 | AssertRCReturn(rc, rc);
|
---|
[81795] | 2528 | return pHlp->pfnTimerSave(pDevIns, pThis->hResultTimer, pSSM);
|
---|
[1] | 2529 | }
|
---|
| 2530 |
|
---|
[44808] | 2531 |
|
---|
| 2532 | /**
|
---|
| 2533 | * @callback_method_impl{FNSSMDEVLOADEXEC}
|
---|
| 2534 | */
|
---|
| 2535 | static DECLCALLBACK(int) fdcLoadExec(PPDMDEVINS pDevIns, PSSMHANDLE pSSM, uint32_t uVersion, uint32_t uPass)
|
---|
[1] | 2536 | {
|
---|
[81794] | 2537 | fdctrl_t *pThis = PDMDEVINS_2_DATA(pDevIns, fdctrl_t *);
|
---|
| 2538 | PCPDMDEVHLPR3 pHlp = pDevIns->pHlpR3;
|
---|
[1] | 2539 | unsigned int i;
|
---|
[34294] | 2540 | uint32_t val32;
|
---|
| 2541 | uint8_t val8;
|
---|
[81794] | 2542 | int rc;
|
---|
[1] | 2543 |
|
---|
[34294] | 2544 | if (uVersion > FDC_SAVESTATE_CURRENT)
|
---|
| 2545 | return VERR_SSM_UNSUPPORTED_DATA_UNIT_VERSION;
|
---|
[22793] | 2546 | Assert(uPass == SSM_PASS_FINAL); NOREF(uPass);
|
---|
[1] | 2547 |
|
---|
[82177] | 2548 | if (uVersion > FDC_SAVESTATE_OLD)
|
---|
[34294] | 2549 | {
|
---|
[82177] | 2550 | /* Load the FDC I/O registers... */
|
---|
| 2551 | pHlp->pfnSSMGetU8(pSSM, &pThis->sra);
|
---|
| 2552 | pHlp->pfnSSMGetU8(pSSM, &pThis->srb);
|
---|
| 2553 | pHlp->pfnSSMGetU8(pSSM, &pThis->dor);
|
---|
| 2554 | pHlp->pfnSSMGetU8(pSSM, &pThis->tdr);
|
---|
| 2555 | pHlp->pfnSSMGetU8(pSSM, &pThis->dsr);
|
---|
| 2556 | pHlp->pfnSSMGetU8(pSSM, &pThis->msr);
|
---|
| 2557 | /* ...the status registers... */
|
---|
| 2558 | pHlp->pfnSSMGetU8(pSSM, &pThis->status0);
|
---|
| 2559 | pHlp->pfnSSMGetU8(pSSM, &pThis->status1);
|
---|
| 2560 | pHlp->pfnSSMGetU8(pSSM, &pThis->status2);
|
---|
| 2561 | /* ...the command FIFO, if the size matches... */
|
---|
| 2562 | rc = pHlp->pfnSSMGetU32(pSSM, &val32);
|
---|
| 2563 | AssertRCReturn(rc, rc);
|
---|
| 2564 | AssertMsgReturn(sizeof(pThis->fifo) == val32,
|
---|
| 2565 | ("The size of FIFO in saved state doesn't match!\n"),
|
---|
| 2566 | VERR_SSM_DATA_UNIT_FORMAT_CHANGED);
|
---|
| 2567 | pHlp->pfnSSMGetMem(pSSM, &pThis->fifo, sizeof(pThis->fifo));
|
---|
| 2568 | pHlp->pfnSSMGetU32(pSSM, &pThis->data_pos);
|
---|
| 2569 | pHlp->pfnSSMGetU32(pSSM, &pThis->data_len);
|
---|
| 2570 | pHlp->pfnSSMGetU8(pSSM, &pThis->data_state);
|
---|
| 2571 | pHlp->pfnSSMGetU8(pSSM, &pThis->data_dir);
|
---|
| 2572 | /* ...and miscellaneous internal FDC state. */
|
---|
| 2573 | pHlp->pfnSSMGetU8(pSSM, &pThis->reset_sensei);
|
---|
| 2574 | pHlp->pfnSSMGetU8(pSSM, &pThis->eot);
|
---|
| 2575 | pHlp->pfnSSMGetU8(pSSM, &pThis->timer0);
|
---|
| 2576 | pHlp->pfnSSMGetU8(pSSM, &pThis->timer1);
|
---|
| 2577 | pHlp->pfnSSMGetU8(pSSM, &pThis->precomp_trk);
|
---|
| 2578 | pHlp->pfnSSMGetU8(pSSM, &pThis->config);
|
---|
| 2579 | pHlp->pfnSSMGetU8(pSSM, &pThis->lock);
|
---|
| 2580 | pHlp->pfnSSMGetU8(pSSM, &pThis->pwrd);
|
---|
| 2581 | pHlp->pfnSSMGetU8(pSSM, &pThis->version);
|
---|
| 2582 |
|
---|
| 2583 | /* Validate the number of drives. */
|
---|
| 2584 | rc = pHlp->pfnSSMGetU8(pSSM, &pThis->num_floppies);
|
---|
| 2585 | AssertRCReturn(rc, rc);
|
---|
| 2586 | AssertMsgReturn(RT_ELEMENTS(pThis->drives) == pThis->num_floppies,
|
---|
| 2587 | ("The number of drives in saved state doesn't match!\n"),
|
---|
| 2588 | VERR_SSM_DATA_UNIT_FORMAT_CHANGED);
|
---|
| 2589 |
|
---|
| 2590 | /* Load the per-drive state. */
|
---|
| 2591 | for (i = 0; i < pThis->num_floppies; ++i)
|
---|
| 2592 | {
|
---|
| 2593 | fdrive_t *d = &pThis->drives[i];
|
---|
| 2594 |
|
---|
| 2595 | pHlp->pfnSSMGetMem(pSSM, &d->Led, sizeof(d->Led));
|
---|
| 2596 | rc = pHlp->pfnSSMGetU32(pSSM, &val32);
|
---|
| 2597 | AssertRCReturn(rc, rc);
|
---|
| 2598 | d->drive = (fdrive_type_t)val32;
|
---|
| 2599 | pHlp->pfnSSMGetU8(pSSM, &d->dsk_chg);
|
---|
| 2600 | pHlp->pfnSSMGetU8(pSSM, &d->perpendicular);
|
---|
| 2601 | pHlp->pfnSSMGetU8(pSSM, &d->head);
|
---|
| 2602 | pHlp->pfnSSMGetU8(pSSM, &d->track);
|
---|
| 2603 | pHlp->pfnSSMGetU8(pSSM, &d->sect);
|
---|
| 2604 | }
|
---|
| 2605 |
|
---|
| 2606 | if (uVersion > FDC_SAVESTATE_PRE_DELAY)
|
---|
| 2607 | {
|
---|
| 2608 | pHlp->pfnTimerLoad(pDevIns, pThis->hXferDelayTimer, pSSM);
|
---|
| 2609 | pHlp->pfnTimerLoad(pDevIns, pThis->hIrqDelayTimer, pSSM);
|
---|
| 2610 | }
|
---|
| 2611 | }
|
---|
| 2612 | else if (uVersion == FDC_SAVESTATE_OLD)
|
---|
| 2613 | {
|
---|
| 2614 | /* The old saved state was significantly different. However, we can get
|
---|
| 2615 | * back most of the controller state and fix the rest by pretending the
|
---|
| 2616 | * disk in the drive (if any) has been replaced. At any rate there should
|
---|
| 2617 | * be no difficulty unless the state was saved during a floppy operation.
|
---|
| 2618 | */
|
---|
| 2619 |
|
---|
[34294] | 2620 | /* First verify a few assumptions. */
|
---|
[44808] | 2621 | AssertMsgReturn(sizeof(pThis->fifo) == FD_SECTOR_LEN,
|
---|
[34294] | 2622 | ("The size of FIFO in saved state doesn't match!\n"),
|
---|
| 2623 | VERR_SSM_DATA_UNIT_FORMAT_CHANGED);
|
---|
[44808] | 2624 | AssertMsgReturn(RT_ELEMENTS(pThis->drives) == 2,
|
---|
[34294] | 2625 | ("The number of drives in old saved state doesn't match!\n"),
|
---|
| 2626 | VERR_SSM_DATA_UNIT_FORMAT_CHANGED);
|
---|
| 2627 | /* Now load the old state. */
|
---|
[81794] | 2628 | pHlp->pfnSSMGetU8(pSSM, &pThis->version);
|
---|
[34294] | 2629 | /* Toss IRQ level, DMA channel, I/O base, and state. */
|
---|
[81794] | 2630 | pHlp->pfnSSMGetU8(pSSM, &val8);
|
---|
| 2631 | pHlp->pfnSSMGetU8(pSSM, &val8);
|
---|
| 2632 | pHlp->pfnSSMGetU32(pSSM, &val32);
|
---|
| 2633 | pHlp->pfnSSMGetU8(pSSM, &val8);
|
---|
[34294] | 2634 | /* Translate dma_en. */
|
---|
[81794] | 2635 | rc = pHlp->pfnSSMGetU8(pSSM, &val8);
|
---|
| 2636 | AssertRCReturn(rc, rc);
|
---|
[34294] | 2637 | if (val8)
|
---|
[44808] | 2638 | pThis->dor |= FD_DOR_DMAEN;
|
---|
[81794] | 2639 | pHlp->pfnSSMGetU8(pSSM, &pThis->cur_drv);
|
---|
[34294] | 2640 | /* Translate bootsel. */
|
---|
[81794] | 2641 | rc = pHlp->pfnSSMGetU8(pSSM, &val8);
|
---|
| 2642 | AssertRCReturn(rc, rc);
|
---|
[44808] | 2643 | pThis->tdr |= val8 << 2;
|
---|
[81794] | 2644 | pHlp->pfnSSMGetMem(pSSM, &pThis->fifo, FD_SECTOR_LEN);
|
---|
| 2645 | pHlp->pfnSSMGetU32(pSSM, &pThis->data_pos);
|
---|
| 2646 | pHlp->pfnSSMGetU32(pSSM, &pThis->data_len);
|
---|
| 2647 | pHlp->pfnSSMGetU8(pSSM, &pThis->data_state);
|
---|
| 2648 | pHlp->pfnSSMGetU8(pSSM, &pThis->data_dir);
|
---|
| 2649 | pHlp->pfnSSMGetU8(pSSM, &pThis->status0);
|
---|
| 2650 | pHlp->pfnSSMGetU8(pSSM, &pThis->eot);
|
---|
| 2651 | pHlp->pfnSSMGetU8(pSSM, &pThis->timer0);
|
---|
| 2652 | pHlp->pfnSSMGetU8(pSSM, &pThis->timer1);
|
---|
| 2653 | pHlp->pfnSSMGetU8(pSSM, &pThis->precomp_trk);
|
---|
| 2654 | pHlp->pfnSSMGetU8(pSSM, &pThis->config);
|
---|
| 2655 | pHlp->pfnSSMGetU8(pSSM, &pThis->lock);
|
---|
| 2656 | pHlp->pfnSSMGetU8(pSSM, &pThis->pwrd);
|
---|
[1] | 2657 |
|
---|
[44808] | 2658 | for (i = 0; i < 2; ++i)
|
---|
| 2659 | {
|
---|
| 2660 | fdrive_t *d = &pThis->drives[i];
|
---|
[1] | 2661 |
|
---|
[81794] | 2662 | pHlp->pfnSSMGetMem(pSSM, &d->Led, sizeof (d->Led));
|
---|
| 2663 | rc = pHlp->pfnSSMGetU32(pSSM, &val32);
|
---|
[44807] | 2664 | d->drive = (fdrive_type_t)val32;
|
---|
[81794] | 2665 | AssertRCReturn(rc, rc);
|
---|
| 2666 | pHlp->pfnSSMGetU32(pSSM, &val32); /* Toss drflags */
|
---|
| 2667 | pHlp->pfnSSMGetU8(pSSM, &d->perpendicular);
|
---|
| 2668 | pHlp->pfnSSMGetU8(pSSM, &d->head);
|
---|
| 2669 | pHlp->pfnSSMGetU8(pSSM, &d->track);
|
---|
| 2670 | pHlp->pfnSSMGetU8(pSSM, &d->sect);
|
---|
| 2671 | pHlp->pfnSSMGetU8(pSSM, &val8); /* Toss dir, rw */
|
---|
| 2672 | pHlp->pfnSSMGetU8(pSSM, &val8);
|
---|
| 2673 | rc = pHlp->pfnSSMGetU32(pSSM, &val32);
|
---|
| 2674 | AssertRCReturn(rc, rc);
|
---|
[44807] | 2675 | d->flags = (fdrive_flags_t)val32;
|
---|
[81794] | 2676 | pHlp->pfnSSMGetU8(pSSM, &d->last_sect);
|
---|
| 2677 | pHlp->pfnSSMGetU8(pSSM, &d->max_track);
|
---|
| 2678 | pHlp->pfnSSMGetU16(pSSM, &d->bps);
|
---|
| 2679 | pHlp->pfnSSMGetU8(pSSM, &d->ro);
|
---|
[34294] | 2680 | }
|
---|
[1] | 2681 | }
|
---|
[82177] | 2682 | else
|
---|
| 2683 | AssertFailedReturn(VERR_SSM_UNSUPPORTED_DATA_UNIT_VERSION);
|
---|
[81795] | 2684 | return pHlp->pfnTimerLoad(pDevIns, pThis->hResultTimer, pSSM);
|
---|
[1] | 2685 | }
|
---|
| 2686 |
|
---|
[44808] | 2687 |
|
---|
| 2688 | /* -=-=-=-=-=-=-=-=- Drive level interfaces -=-=-=-=-=-=-=-=- */
|
---|
| 2689 |
|
---|
[1] | 2690 | /**
|
---|
[44808] | 2691 | * @interface_method_impl{PDMIMOUNTNOTIFY,pfnMountNotify}
|
---|
| 2692 | */
|
---|
| 2693 | static DECLCALLBACK(void) fdMountNotify(PPDMIMOUNTNOTIFY pInterface)
|
---|
| 2694 | {
|
---|
| 2695 | fdrive_t *pDrv = RT_FROM_MEMBER(pInterface, fdrive_t, IMountNotify);
|
---|
| 2696 | LogFlow(("fdMountNotify:\n"));
|
---|
| 2697 | fd_revalidate(pDrv);
|
---|
| 2698 | }
|
---|
| 2699 |
|
---|
| 2700 |
|
---|
| 2701 | /**
|
---|
| 2702 | * @interface_method_impl{PDMIMOUNTNOTIFY,pfnUnmountNotify}
|
---|
| 2703 | */
|
---|
| 2704 | static DECLCALLBACK(void) fdUnmountNotify(PPDMIMOUNTNOTIFY pInterface)
|
---|
| 2705 | {
|
---|
| 2706 | fdrive_t *pDrv = RT_FROM_MEMBER(pInterface, fdrive_t, IMountNotify);
|
---|
| 2707 | LogFlow(("fdUnmountNotify:\n"));
|
---|
| 2708 | fd_revalidate(pDrv);
|
---|
| 2709 | }
|
---|
| 2710 |
|
---|
| 2711 |
|
---|
| 2712 | /**
|
---|
[25966] | 2713 | * @interface_method_impl{PDMIBASE,pfnQueryInterface}
|
---|
[1] | 2714 | */
|
---|
[25966] | 2715 | static DECLCALLBACK(void *) fdQueryInterface (PPDMIBASE pInterface, const char *pszIID)
|
---|
[1] | 2716 | {
|
---|
[44808] | 2717 | fdrive_t *pDrv = RT_FROM_MEMBER(pInterface, fdrive_t, IBase);
|
---|
[25985] | 2718 |
|
---|
[44808] | 2719 | PDMIBASE_RETURN_INTERFACE(pszIID, PDMIBASE, &pDrv->IBase);
|
---|
[59248] | 2720 | PDMIBASE_RETURN_INTERFACE(pszIID, PDMIMEDIAPORT, &pDrv->IPort);
|
---|
[44808] | 2721 | PDMIBASE_RETURN_INTERFACE(pszIID, PDMIMOUNTNOTIFY, &pDrv->IMountNotify);
|
---|
[25966] | 2722 | return NULL;
|
---|
[1] | 2723 | }
|
---|
| 2724 |
|
---|
[44808] | 2725 |
|
---|
[64846] | 2726 | /**
|
---|
| 2727 | * @interface_method_impl{PDMIMEDIAPORT,pfnQueryDeviceLocation}
|
---|
| 2728 | */
|
---|
| 2729 | static DECLCALLBACK(int) fdQueryDeviceLocation(PPDMIMEDIAPORT pInterface, const char **ppcszController,
|
---|
| 2730 | uint32_t *piInstance, uint32_t *piLUN)
|
---|
| 2731 | {
|
---|
| 2732 | fdrive_t *pDrv = RT_FROM_MEMBER(pInterface, fdrive_t, IPort);
|
---|
| 2733 | PPDMDEVINS pDevIns = pDrv->pDevIns;
|
---|
| 2734 |
|
---|
| 2735 | AssertPtrReturn(ppcszController, VERR_INVALID_POINTER);
|
---|
| 2736 | AssertPtrReturn(piInstance, VERR_INVALID_POINTER);
|
---|
| 2737 | AssertPtrReturn(piLUN, VERR_INVALID_POINTER);
|
---|
| 2738 |
|
---|
| 2739 | *ppcszController = pDevIns->pReg->szName;
|
---|
| 2740 | *piInstance = pDevIns->iInstance;
|
---|
| 2741 | *piLUN = pDrv->iLUN;
|
---|
| 2742 |
|
---|
| 2743 | return VINF_SUCCESS;
|
---|
| 2744 | }
|
---|
| 2745 |
|
---|
[44808] | 2746 | /* -=-=-=-=-=-=-=-=- Controller level interfaces -=-=-=-=-=-=-=-=- */
|
---|
| 2747 |
|
---|
[1] | 2748 | /**
|
---|
[44808] | 2749 | * @interface_method_impl{PDMILEDPORTS,pfnQueryStatusLed}
|
---|
[1] | 2750 | */
|
---|
[44808] | 2751 | static DECLCALLBACK(int) fdcStatusQueryStatusLed(PPDMILEDPORTS pInterface, unsigned iLUN, PPDMLED *ppLed)
|
---|
[1] | 2752 | {
|
---|
[44808] | 2753 | fdctrl_t *pThis = RT_FROM_MEMBER (pInterface, fdctrl_t, ILeds);
|
---|
| 2754 | if (iLUN < RT_ELEMENTS(pThis->drives)) {
|
---|
| 2755 | *ppLed = &pThis->drives[iLUN].Led;
|
---|
[1] | 2756 | Assert ((*ppLed)->u32Magic == PDMLED_MAGIC);
|
---|
| 2757 | return VINF_SUCCESS;
|
---|
| 2758 | }
|
---|
| 2759 | return VERR_PDM_LUN_NOT_FOUND;
|
---|
| 2760 | }
|
---|
| 2761 |
|
---|
| 2762 |
|
---|
| 2763 | /**
|
---|
[25966] | 2764 | * @interface_method_impl{PDMIBASE,pfnQueryInterface}
|
---|
[1] | 2765 | */
|
---|
[25966] | 2766 | static DECLCALLBACK(void *) fdcStatusQueryInterface(PPDMIBASE pInterface, const char *pszIID)
|
---|
[1] | 2767 | {
|
---|
[25966] | 2768 | fdctrl_t *pThis = RT_FROM_MEMBER (pInterface, fdctrl_t, IBaseStatus);
|
---|
| 2769 |
|
---|
[25985] | 2770 | PDMIBASE_RETURN_INTERFACE(pszIID, PDMIBASE, &pThis->IBaseStatus);
|
---|
[25984] | 2771 | PDMIBASE_RETURN_INTERFACE(pszIID, PDMILEDPORTS, &pThis->ILeds);
|
---|
[25966] | 2772 | return NULL;
|
---|
[1] | 2773 | }
|
---|
| 2774 |
|
---|
| 2775 |
|
---|
| 2776 | /**
|
---|
| 2777 | * Configure a drive.
|
---|
| 2778 | *
|
---|
| 2779 | * @returns VBox status code.
|
---|
| 2780 | * @param drv The drive in question.
|
---|
| 2781 | * @param pDevIns The driver instance.
|
---|
[47036] | 2782 | * @param fInit Set if we're at init time and can change the drive type.
|
---|
[1] | 2783 | */
|
---|
[47036] | 2784 | static int fdConfig(fdrive_t *drv, PPDMDEVINS pDevIns, bool fInit)
|
---|
[1] | 2785 | {
|
---|
[44808] | 2786 | static const char * const s_apszDesc[] = {"Floppy Drive A:", "Floppy Drive B"};
|
---|
[1] | 2787 | int rc;
|
---|
| 2788 |
|
---|
| 2789 | /*
|
---|
| 2790 | * Reset the LED just to be on the safe side.
|
---|
| 2791 | */
|
---|
[44808] | 2792 | Assert (RT_ELEMENTS(s_apszDesc) > drv->iLUN);
|
---|
[1] | 2793 | Assert (drv->Led.u32Magic == PDMLED_MAGIC);
|
---|
| 2794 | drv->Led.Actual.u32 = 0;
|
---|
| 2795 | drv->Led.Asserted.u32 = 0;
|
---|
| 2796 |
|
---|
| 2797 | /*
|
---|
| 2798 | * Try attach the block device and get the interfaces.
|
---|
| 2799 | */
|
---|
[44808] | 2800 | rc = PDMDevHlpDriverAttach (pDevIns, drv->iLUN, &drv->IBase, &drv->pDrvBase, s_apszDesc[drv->iLUN]);
|
---|
[11266] | 2801 | if (RT_SUCCESS (rc)) {
|
---|
[59248] | 2802 | drv->pDrvMedia = PDMIBASE_QUERY_INTERFACE(drv->pDrvBase, PDMIMEDIA);
|
---|
| 2803 | if (drv->pDrvMedia) {
|
---|
| 2804 | drv->pDrvMount = PDMIBASE_QUERY_INTERFACE(drv->pDrvBase, PDMIMOUNT);
|
---|
| 2805 | if (drv->pDrvMount) {
|
---|
| 2806 | fd_init(drv, fInit);
|
---|
[6891] | 2807 | } else {
|
---|
[59248] | 2808 | AssertMsgFailed (("Configuration error: LUN#%d without mountable interface!\n", drv->iLUN));
|
---|
[1] | 2809 | rc = VERR_PDM_MISSING_INTERFACE;
|
---|
| 2810 | }
|
---|
| 2811 |
|
---|
[6891] | 2812 | } else {
|
---|
[1] | 2813 | AssertMsgFailed (("Configuration error: LUN#%d hasn't a block interface!\n", drv->iLUN));
|
---|
| 2814 | rc = VERR_PDM_MISSING_INTERFACE;
|
---|
| 2815 | }
|
---|
[6891] | 2816 | } else {
|
---|
[1] | 2817 | AssertMsg (rc == VERR_PDM_NO_ATTACHED_DRIVER,
|
---|
[11284] | 2818 | ("Failed to attach LUN#%d. rc=%Rrc\n", drv->iLUN, rc));
|
---|
[6891] | 2819 | switch (rc) {
|
---|
| 2820 | case VERR_ACCESS_DENIED:
|
---|
[33540] | 2821 | /* Error already cached by DrvHostBase */
|
---|
[6891] | 2822 | break;
|
---|
| 2823 | case VERR_PDM_NO_ATTACHED_DRIVER:
|
---|
| 2824 | /* Legal on architectures without a floppy controller */
|
---|
| 2825 | break;
|
---|
| 2826 | default:
|
---|
| 2827 | rc = PDMDevHlpVMSetError (pDevIns, rc, RT_SRC_POS,
|
---|
| 2828 | N_ ("The floppy controller cannot attach to the floppy drive"));
|
---|
| 2829 | break;
|
---|
[6877] | 2830 | }
|
---|
[1] | 2831 | }
|
---|
| 2832 |
|
---|
[6891] | 2833 | if (RT_FAILURE (rc)) {
|
---|
[1] | 2834 | drv->pDrvBase = NULL;
|
---|
[59248] | 2835 | drv->pDrvMedia = NULL;
|
---|
[1] | 2836 | drv->pDrvMount = NULL;
|
---|
| 2837 | }
|
---|
[11284] | 2838 | LogFlow (("fdConfig: returns %Rrc\n", rc));
|
---|
[1] | 2839 | return rc;
|
---|
| 2840 | }
|
---|
| 2841 |
|
---|
| 2842 |
|
---|
| 2843 | /**
|
---|
[44808] | 2844 | * @interface_method_impl{PDMDEVREG,pfnAttach}
|
---|
[1] | 2845 | *
|
---|
| 2846 | * This is called when we change block driver for a floppy drive.
|
---|
| 2847 | */
|
---|
[44808] | 2848 | static DECLCALLBACK(int) fdcAttach(PPDMDEVINS pDevIns, unsigned iLUN, uint32_t fFlags)
|
---|
[1] | 2849 | {
|
---|
[81591] | 2850 | fdctrl_t *fdctrl = PDMDEVINS_2_DATA(pDevIns, fdctrl_t *);
|
---|
[1] | 2851 | fdrive_t *drv;
|
---|
| 2852 | int rc;
|
---|
[100415] | 2853 | LogFlow (("fdcAttach: iLUN=%u\n", iLUN));
|
---|
[1] | 2854 |
|
---|
[22277] | 2855 | AssertMsgReturn(fFlags & PDM_TACH_FLAGS_NOT_HOT_PLUG,
|
---|
[21328] | 2856 | ("The FDC device does not support hotplugging\n"),
|
---|
| 2857 | VERR_INVALID_PARAMETER);
|
---|
| 2858 |
|
---|
[1] | 2859 | /*
|
---|
| 2860 | * Validate.
|
---|
| 2861 | */
|
---|
[38821] | 2862 | if (iLUN >= 2) {
|
---|
[1] | 2863 | AssertMsgFailed (("Configuration error: cannot attach or detach any but the first two LUNs - iLUN=%u\n",
|
---|
| 2864 | iLUN));
|
---|
| 2865 | return VERR_PDM_DEVINS_NO_ATTACH;
|
---|
| 2866 | }
|
---|
| 2867 |
|
---|
| 2868 | /*
|
---|
| 2869 | * Locate the drive and stuff.
|
---|
| 2870 | */
|
---|
| 2871 | drv = &fdctrl->drives[iLUN];
|
---|
| 2872 |
|
---|
| 2873 | /* the usual paranoia */
|
---|
| 2874 | AssertRelease (!drv->pDrvBase);
|
---|
[59248] | 2875 | AssertRelease (!drv->pDrvMedia);
|
---|
[1] | 2876 | AssertRelease (!drv->pDrvMount);
|
---|
| 2877 |
|
---|
[47036] | 2878 | rc = fdConfig (drv, pDevIns, false /*fInit*/);
|
---|
[1] | 2879 | AssertMsg (rc != VERR_PDM_NO_ATTACHED_DRIVER,
|
---|
[56992] | 2880 | ("Configuration error: failed to configure drive %d, rc=%Rrc\n", iLUN, rc));
|
---|
[11266] | 2881 | if (RT_SUCCESS(rc)) {
|
---|
[1] | 2882 | fd_revalidate (drv);
|
---|
| 2883 | }
|
---|
| 2884 |
|
---|
[11284] | 2885 | LogFlow (("floppyAttach: returns %Rrc\n", rc));
|
---|
[1] | 2886 | return rc;
|
---|
| 2887 | }
|
---|
| 2888 |
|
---|
| 2889 |
|
---|
| 2890 | /**
|
---|
[44808] | 2891 | * @interface_method_impl{PDMDEVREG,pfnDetach}
|
---|
[1] | 2892 | *
|
---|
| 2893 | * The floppy drive has been temporarily 'unplugged'.
|
---|
| 2894 | */
|
---|
[44808] | 2895 | static DECLCALLBACK(void) fdcDetach(PPDMDEVINS pDevIns, unsigned iLUN, uint32_t fFlags)
|
---|
[1] | 2896 | {
|
---|
[62904] | 2897 | RT_NOREF(fFlags);
|
---|
[81591] | 2898 | fdctrl_t *pThis = PDMDEVINS_2_DATA(pDevIns, fdctrl_t *);
|
---|
[100415] | 2899 | LogFlow (("fdcDetach: iLUN=%u\n", iLUN));
|
---|
[1] | 2900 |
|
---|
[44808] | 2901 | switch (iLUN)
|
---|
| 2902 | {
|
---|
| 2903 | case 0:
|
---|
| 2904 | case 1:
|
---|
| 2905 | {
|
---|
| 2906 | fdrive_t *drv = &pThis->drives[iLUN];
|
---|
| 2907 | drv->pDrvBase = NULL;
|
---|
[59248] | 2908 | drv->pDrvMedia = NULL;
|
---|
[44808] | 2909 | drv->pDrvMount = NULL;
|
---|
| 2910 | break;
|
---|
| 2911 | }
|
---|
[1] | 2912 |
|
---|
[44808] | 2913 | default:
|
---|
| 2914 | AssertMsgFailed(("Cannot detach LUN#%d!\n", iLUN));
|
---|
| 2915 | break;
|
---|
[1] | 2916 | }
|
---|
| 2917 | }
|
---|
| 2918 |
|
---|
| 2919 |
|
---|
| 2920 | /**
|
---|
[44808] | 2921 | * @interface_method_impl{PDMDEVREG,pfnReset}
|
---|
[1] | 2922 | *
|
---|
| 2923 | * I haven't check the specs on what's supposed to happen on reset, but we
|
---|
| 2924 | * should get any 'FATAL: floppy recal:f07 ctrl not ready' when resetting
|
---|
| 2925 | * at wrong time like we do if this was all void.
|
---|
| 2926 | */
|
---|
[44808] | 2927 | static DECLCALLBACK(void) fdcReset(PPDMDEVINS pDevIns)
|
---|
[1] | 2928 | {
|
---|
[81591] | 2929 | fdctrl_t *pThis = PDMDEVINS_2_DATA (pDevIns, fdctrl_t *);
|
---|
[13080] | 2930 | unsigned i;
|
---|
[1] | 2931 | LogFlow (("fdcReset:\n"));
|
---|
| 2932 |
|
---|
[44808] | 2933 | fdctrl_reset(pThis, 0);
|
---|
[1] | 2934 |
|
---|
[44808] | 2935 | for (i = 0; i < RT_ELEMENTS(pThis->drives); i++)
|
---|
| 2936 | fd_revalidate(&pThis->drives[i]);
|
---|
[1] | 2937 | }
|
---|
| 2938 |
|
---|
| 2939 |
|
---|
| 2940 | /**
|
---|
[26160] | 2941 | * @interface_method_impl{PDMDEVREG,pfnConstruct}
|
---|
[1] | 2942 | */
|
---|
[44808] | 2943 | static DECLCALLBACK(int) fdcConstruct(PPDMDEVINS pDevIns, int iInstance, PCFGMNODE pCfg)
|
---|
[1] | 2944 | {
|
---|
[81794] | 2945 | PDMDEV_CHECK_VERSIONS_RETURN(pDevIns);
|
---|
[81591] | 2946 | fdctrl_t *pThis = PDMDEVINS_2_DATA(pDevIns, fdctrl_t *);
|
---|
[81794] | 2947 | PCPDMDEVHLPR3 pHlp = pDevIns->pHlpR3;
|
---|
[1] | 2948 | int rc;
|
---|
| 2949 |
|
---|
[81794] | 2950 | RT_NOREF(iInstance);
|
---|
[1] | 2951 | Assert(iInstance == 0);
|
---|
| 2952 |
|
---|
| 2953 | /*
|
---|
| 2954 | * Validate configuration.
|
---|
| 2955 | */
|
---|
[82152] | 2956 | PDMDEV_VALIDATE_CONFIG_RETURN(pDevIns, "IRQ|DMA|MemMapped|IOBase|StatusA|IRQDelay", "");
|
---|
[1] | 2957 |
|
---|
| 2958 | /*
|
---|
| 2959 | * Read the configuration.
|
---|
| 2960 | */
|
---|
[81794] | 2961 | rc = pHlp->pfnCFGMQueryU8Def(pCfg, "IRQ", &pThis->irq_lvl, 6);
|
---|
[44808] | 2962 | AssertMsgRCReturn(rc, ("Configuration error: Failed to read U8 IRQ, rc=%Rrc\n", rc), rc);
|
---|
[1] | 2963 |
|
---|
[81794] | 2964 | rc = pHlp->pfnCFGMQueryU8Def(pCfg, "DMA", &pThis->dma_chann, 2);
|
---|
[44808] | 2965 | AssertMsgRCReturn(rc, ("Configuration error: Failed to read U8 DMA, rc=%Rrc\n", rc), rc);
|
---|
[1] | 2966 |
|
---|
[81794] | 2967 | rc = pHlp->pfnCFGMQueryU16Def(pCfg, "IOBase", &pThis->io_base, 0x3f0);
|
---|
[44808] | 2968 | AssertMsgRCReturn(rc, ("Configuration error: Failed to read U16 IOBase, rc=%Rrc\n", rc), rc);
|
---|
[1] | 2969 |
|
---|
[81794] | 2970 | bool fMemMapped;
|
---|
| 2971 | rc = pHlp->pfnCFGMQueryBoolDef(pCfg, "MemMapped", &fMemMapped, false);
|
---|
[44808] | 2972 | AssertMsgRCReturn(rc, ("Configuration error: Failed to read bool value MemMapped rc=%Rrc\n", rc), rc);
|
---|
[1] | 2973 |
|
---|
[82152] | 2974 | uint16_t uIrqDelay;
|
---|
[82177] | 2975 | rc = pHlp->pfnCFGMQueryU16Def(pCfg, "IRQDelay", &uIrqDelay, 0);
|
---|
[82152] | 2976 | AssertMsgRCReturn(rc, ("Configuration error: Failed to read U16 IRQDelay, rc=%Rrc\n", rc), rc);
|
---|
| 2977 |
|
---|
[81995] | 2978 | bool fStatusA;
|
---|
| 2979 | rc = pHlp->pfnCFGMQueryBoolDef(pCfg, "StatusA", &fStatusA, false);
|
---|
| 2980 | AssertMsgRCReturn(rc, ("Configuration error: Failed to read bool value fStatusA rc=%Rrc\n", rc), rc);
|
---|
| 2981 |
|
---|
[1] | 2982 | /*
|
---|
| 2983 | * Initialize data.
|
---|
| 2984 | */
|
---|
[81794] | 2985 | LogFlow(("fdcConstruct: irq_lvl=%d dma_chann=%d io_base=%#x\n", pThis->irq_lvl, pThis->dma_chann, pThis->io_base));
|
---|
[44808] | 2986 | pThis->pDevIns = pDevIns;
|
---|
| 2987 | pThis->version = 0x90; /* Intel 82078 controller */
|
---|
| 2988 | pThis->config = FD_CONFIG_EIS | FD_CONFIG_EFIFO; /* Implicit seek, polling & FIFO enabled */
|
---|
| 2989 | pThis->num_floppies = MAX_FD;
|
---|
[81995] | 2990 | pThis->hIoPorts0 = NIL_IOMMMIOHANDLE;
|
---|
| 2991 | pThis->hIoPorts1 = NIL_IOMMMIOHANDLE;
|
---|
| 2992 | pThis->hIoPorts2 = NIL_IOMMMIOHANDLE;
|
---|
[1] | 2993 |
|
---|
[34294] | 2994 | /* Fill 'command_to_handler' lookup table */
|
---|
[81794] | 2995 | for (int ii = RT_ELEMENTS(handlers) - 1; ii >= 0; ii--)
|
---|
| 2996 | for (unsigned j = 0; j < sizeof(command_to_handler); j++)
|
---|
[44808] | 2997 | if ((j & handlers[ii].mask) == handlers[ii].value)
|
---|
[34294] | 2998 | command_to_handler[j] = ii;
|
---|
| 2999 |
|
---|
[44808] | 3000 | pThis->IBaseStatus.pfnQueryInterface = fdcStatusQueryInterface;
|
---|
| 3001 | pThis->ILeds.pfnQueryStatusLed = fdcStatusQueryStatusLed;
|
---|
[1] | 3002 |
|
---|
[81794] | 3003 | for (unsigned i = 0; i < RT_ELEMENTS(pThis->drives); ++i)
|
---|
[44808] | 3004 | {
|
---|
| 3005 | fdrive_t *pDrv = &pThis->drives[i];
|
---|
[1] | 3006 |
|
---|
[81795] | 3007 | pDrv->drive = FDRIVE_DRV_NONE;
|
---|
| 3008 | pDrv->iLUN = i;
|
---|
| 3009 | pDrv->pDevIns = pDevIns;
|
---|
[1] | 3010 |
|
---|
[44808] | 3011 | pDrv->IBase.pfnQueryInterface = fdQueryInterface;
|
---|
| 3012 | pDrv->IMountNotify.pfnMountNotify = fdMountNotify;
|
---|
| 3013 | pDrv->IMountNotify.pfnUnmountNotify = fdUnmountNotify;
|
---|
[64846] | 3014 | pDrv->IPort.pfnQueryDeviceLocation = fdQueryDeviceLocation;
|
---|
[81795] | 3015 | pDrv->Led.u32Magic = PDMLED_MAGIC;
|
---|
[1] | 3016 | }
|
---|
| 3017 |
|
---|
| 3018 | /*
|
---|
| 3019 | * Create the FDC timer.
|
---|
| 3020 | */
|
---|
[81795] | 3021 | rc = PDMDevHlpTimerCreate(pDevIns, TMCLOCK_VIRTUAL, fdcTimerCallback, pThis,
|
---|
[87760] | 3022 | TMTIMER_FLAGS_DEFAULT_CRIT_SECT | TMTIMER_FLAGS_NO_RING0,
|
---|
| 3023 | "FDC Timer", &pThis->hResultTimer);
|
---|
[81795] | 3024 | AssertRCReturn(rc, rc);
|
---|
[1] | 3025 |
|
---|
| 3026 | /*
|
---|
[82152] | 3027 | * Create the transfer delay timer.
|
---|
| 3028 | */
|
---|
| 3029 | rc = PDMDevHlpTimerCreate(pDevIns, TMCLOCK_VIRTUAL_SYNC, fdcTransferDelayTimer, pThis,
|
---|
[87760] | 3030 | TMTIMER_FLAGS_DEFAULT_CRIT_SECT | TMTIMER_FLAGS_NO_RING0,
|
---|
[87773] | 3031 | "FDC Transfer Delay", &pThis->hXferDelayTimer);
|
---|
[82177] | 3032 | AssertRCReturn(rc, rc);
|
---|
[82152] | 3033 |
|
---|
| 3034 | /*
|
---|
| 3035 | * Create the IRQ delay timer.
|
---|
| 3036 | */
|
---|
| 3037 | rc = PDMDevHlpTimerCreate(pDevIns, TMCLOCK_VIRTUAL_SYNC, fdcIrqDelayTimer, pThis,
|
---|
[87760] | 3038 | TMTIMER_FLAGS_DEFAULT_CRIT_SECT | TMTIMER_FLAGS_NO_RING0,
|
---|
[87773] | 3039 | "FDC IRQ Delay", &pThis->hIrqDelayTimer);
|
---|
[82177] | 3040 | AssertRCReturn(rc, rc);
|
---|
[82152] | 3041 |
|
---|
| 3042 | pThis->uIrqDelayMsec = uIrqDelay;
|
---|
| 3043 |
|
---|
| 3044 | /*
|
---|
[1] | 3045 | * Register DMA channel.
|
---|
| 3046 | */
|
---|
[44808] | 3047 | if (pThis->dma_chann != 0xff)
|
---|
| 3048 | {
|
---|
[81794] | 3049 | rc = PDMDevHlpDMARegister(pDevIns, pThis->dma_chann, &fdctrl_transfer_handler, pThis);
|
---|
[81795] | 3050 | AssertRCReturn(rc, rc);
|
---|
[34294] | 3051 | }
|
---|
[1] | 3052 |
|
---|
| 3053 | /*
|
---|
| 3054 | * IO / MMIO.
|
---|
[81799] | 3055 | *
|
---|
| 3056 | * We must skip I/O port 0x3f6 as it is the ATA alternate status register.
|
---|
| 3057 | * Why we skip registering status register A, though, isn't as clear.
|
---|
[1] | 3058 | */
|
---|
[81794] | 3059 | if (!fMemMapped)
|
---|
[44808] | 3060 | {
|
---|
[81799] | 3061 | static const IOMIOPORTDESC s_aDescs[] =
|
---|
| 3062 | {
|
---|
| 3063 | { "SRA", NULL, "Status register A", NULL },
|
---|
| 3064 | { "SRB", NULL, "Status register B", NULL },
|
---|
| 3065 | { "DOR", "DOR", "Digital output register", "Digital output register"},
|
---|
| 3066 | { "TDR", "TDR", "Tape driver register", "Tape driver register"},
|
---|
| 3067 | { "MSR", "DSR", "Main status register", "Datarate select register" },
|
---|
| 3068 | { "FIFO", "FIFO", "Data FIFO", "Data FIFO" },
|
---|
| 3069 | { "ATA", "ATA", NULL, NULL },
|
---|
| 3070 | { "DIR", "CCR", "Digital input register", "Configuration control register"},
|
---|
| 3071 | { NULL, NULL, NULL, NULL }
|
---|
| 3072 | };
|
---|
[1] | 3073 |
|
---|
[81995] | 3074 | /* 0x3f0 */
|
---|
| 3075 | if (fStatusA)
|
---|
| 3076 | {
|
---|
| 3077 | rc = PDMDevHlpIoPortCreateAndMap(pDevIns, pThis->io_base, 1 /*cPorts*/, fdcIoPort0Write, fdcIoPort0Read,
|
---|
| 3078 | "FDC-SRA", s_aDescs, &pThis->hIoPorts0);
|
---|
| 3079 | AssertRCReturn(rc, rc);
|
---|
| 3080 | }
|
---|
| 3081 |
|
---|
[81799] | 3082 | /* 0x3f1..0x3f5 */
|
---|
| 3083 | rc = PDMDevHlpIoPortCreateAndMap(pDevIns, pThis->io_base + 0x1, 5, fdcIoPort1Write, fdcIoPort1Read,
|
---|
| 3084 | "FDC#1", &s_aDescs[1], &pThis->hIoPorts1);
|
---|
| 3085 | AssertRCReturn(rc, rc);
|
---|
| 3086 |
|
---|
| 3087 | /* 0x3f7 */
|
---|
| 3088 | rc = PDMDevHlpIoPortCreateAndMap(pDevIns, pThis->io_base + 0x7, 1, fdcIoPort2Write, fdcIoPort2Read,
|
---|
| 3089 | "FDC#2", &s_aDescs[7], &pThis->hIoPorts2);
|
---|
| 3090 | AssertRCReturn(rc, rc);
|
---|
[1] | 3091 | }
|
---|
[81794] | 3092 | else
|
---|
[100415] | 3093 | AssertMsgFailedReturn(("Memory mapped floppy not supported\n"), VERR_NOT_SUPPORTED);
|
---|
[1] | 3094 |
|
---|
| 3095 | /*
|
---|
| 3096 | * Register the saved state data unit.
|
---|
| 3097 | */
|
---|
[44808] | 3098 | rc = PDMDevHlpSSMRegister(pDevIns, FDC_SAVESTATE_CURRENT, sizeof(*pThis), fdcSaveExec, fdcLoadExec);
|
---|
[81795] | 3099 | AssertRCReturn(rc, rc);
|
---|
[1] | 3100 |
|
---|
| 3101 | /*
|
---|
[92747] | 3102 | * Register the debugger info callback.
|
---|
| 3103 | */
|
---|
| 3104 | PDMDevHlpDBGFInfoRegister(pDevIns, "fdc", "FDC info", fdcInfo);
|
---|
| 3105 |
|
---|
| 3106 | /*
|
---|
[1] | 3107 | * Attach the status port (optional).
|
---|
| 3108 | */
|
---|
[81794] | 3109 | PPDMIBASE pBase;
|
---|
[44808] | 3110 | rc = PDMDevHlpDriverAttach(pDevIns, PDM_STATUS_LUN, &pThis->IBaseStatus, &pBase, "Status Port");
|
---|
| 3111 | if (RT_SUCCESS (rc))
|
---|
| 3112 | pThis->pLedsConnector = PDMIBASE_QUERY_INTERFACE(pBase, PDMILEDCONNECTORS);
|
---|
[81794] | 3113 | else
|
---|
| 3114 | AssertMsgReturn(rc == VERR_PDM_NO_ATTACHED_DRIVER, ("Failed to attach to status driver. rc=%Rrc\n", rc), rc);
|
---|
[1] | 3115 |
|
---|
| 3116 | /*
|
---|
| 3117 | * Initialize drives.
|
---|
| 3118 | */
|
---|
[81794] | 3119 | for (unsigned i = 0; i < RT_ELEMENTS(pThis->drives); i++)
|
---|
[44808] | 3120 | {
|
---|
[81795] | 3121 | rc = fdConfig(&pThis->drives[i], pDevIns, true /*fInit*/);
|
---|
| 3122 | AssertMsgReturn(RT_SUCCESS(rc) || rc == VERR_PDM_NO_ATTACHED_DRIVER,
|
---|
| 3123 | ("Configuration error: failed to configure drive %d, rc=%Rrc\n", i, rc),
|
---|
| 3124 | rc);
|
---|
[1] | 3125 | }
|
---|
| 3126 |
|
---|
[44808] | 3127 | fdctrl_reset(pThis, 0);
|
---|
[1] | 3128 |
|
---|
[81794] | 3129 | for (unsigned i = 0; i < RT_ELEMENTS(pThis->drives); i++)
|
---|
[44808] | 3130 | fd_revalidate(&pThis->drives[i]);
|
---|
[1] | 3131 |
|
---|
| 3132 | return VINF_SUCCESS;
|
---|
| 3133 | }
|
---|
| 3134 |
|
---|
[44808] | 3135 |
|
---|
[1] | 3136 | /**
|
---|
| 3137 | * The device registration structure.
|
---|
| 3138 | */
|
---|
| 3139 | const PDMDEVREG g_DeviceFloppyController =
|
---|
| 3140 | {
|
---|
[80531] | 3141 | /* .u32Version = */ PDM_DEVREG_VERSION,
|
---|
| 3142 | /* .uReserved0 = */ 0,
|
---|
| 3143 | /* .szName = */ "i82078",
|
---|
[81799] | 3144 | /* .fFlags = */ PDM_DEVREG_FLAGS_DEFAULT_BITS | PDM_DEVREG_FLAGS_NEW_STYLE,
|
---|
[80531] | 3145 | /* .fClass = */ PDM_DEVREG_CLASS_STORAGE,
|
---|
| 3146 | /* .cMaxInstances = */ 1,
|
---|
| 3147 | /* .uSharedVersion = */ 42,
|
---|
| 3148 | /* .cbInstanceShared = */ sizeof(fdctrl_t),
|
---|
| 3149 | /* .cbInstanceCC = */ 0,
|
---|
| 3150 | /* .cbInstanceRC = */ 0,
|
---|
[80703] | 3151 | /* .cMaxPciDevices = */ 0,
|
---|
[80704] | 3152 | /* .cMaxMsixVectors = */ 0,
|
---|
[80531] | 3153 | /* .pszDescription = */ "Floppy drive controller (Intel 82078)",
|
---|
| 3154 | #if defined(IN_RING3)
|
---|
| 3155 | /* .pszRCMod = */ "",
|
---|
| 3156 | /* .pszR0Mod = */ "",
|
---|
| 3157 | /* .pfnConstruct = */ fdcConstruct,
|
---|
| 3158 | /* .pfnDestruct = */ NULL,
|
---|
| 3159 | /* .pfnRelocate = */ NULL,
|
---|
| 3160 | /* .pfnMemSetup = */ NULL,
|
---|
| 3161 | /* .pfnPowerOn = */ NULL,
|
---|
| 3162 | /* .pfnReset = */ fdcReset,
|
---|
| 3163 | /* .pfnSuspend = */ NULL,
|
---|
| 3164 | /* .pfnResume = */ NULL,
|
---|
| 3165 | /* .pfnAttach = */ fdcAttach,
|
---|
| 3166 | /* .pfnDetach = */ fdcDetach,
|
---|
| 3167 | /* .pfnQueryInterface = */ NULL,
|
---|
| 3168 | /* .pfnInitComplete = */ NULL,
|
---|
| 3169 | /* .pfnPowerOff = */ NULL,
|
---|
| 3170 | /* .pfnSoftReset = */ NULL,
|
---|
| 3171 | /* .pfnReserved0 = */ NULL,
|
---|
| 3172 | /* .pfnReserved1 = */ NULL,
|
---|
| 3173 | /* .pfnReserved2 = */ NULL,
|
---|
| 3174 | /* .pfnReserved3 = */ NULL,
|
---|
| 3175 | /* .pfnReserved4 = */ NULL,
|
---|
| 3176 | /* .pfnReserved5 = */ NULL,
|
---|
| 3177 | /* .pfnReserved6 = */ NULL,
|
---|
| 3178 | /* .pfnReserved7 = */ NULL,
|
---|
| 3179 | #elif defined(IN_RING0)
|
---|
| 3180 | /* .pfnEarlyConstruct = */ NULL,
|
---|
| 3181 | /* .pfnConstruct = */ NULL,
|
---|
| 3182 | /* .pfnDestruct = */ NULL,
|
---|
| 3183 | /* .pfnFinalDestruct = */ NULL,
|
---|
| 3184 | /* .pfnRequest = */ NULL,
|
---|
| 3185 | /* .pfnReserved0 = */ NULL,
|
---|
| 3186 | /* .pfnReserved1 = */ NULL,
|
---|
| 3187 | /* .pfnReserved2 = */ NULL,
|
---|
| 3188 | /* .pfnReserved3 = */ NULL,
|
---|
| 3189 | /* .pfnReserved4 = */ NULL,
|
---|
| 3190 | /* .pfnReserved5 = */ NULL,
|
---|
| 3191 | /* .pfnReserved6 = */ NULL,
|
---|
| 3192 | /* .pfnReserved7 = */ NULL,
|
---|
| 3193 | #elif defined(IN_RC)
|
---|
| 3194 | /* .pfnConstruct = */ NULL,
|
---|
| 3195 | /* .pfnReserved0 = */ NULL,
|
---|
| 3196 | /* .pfnReserved1 = */ NULL,
|
---|
| 3197 | /* .pfnReserved2 = */ NULL,
|
---|
| 3198 | /* .pfnReserved3 = */ NULL,
|
---|
| 3199 | /* .pfnReserved4 = */ NULL,
|
---|
| 3200 | /* .pfnReserved5 = */ NULL,
|
---|
| 3201 | /* .pfnReserved6 = */ NULL,
|
---|
| 3202 | /* .pfnReserved7 = */ NULL,
|
---|
| 3203 | #else
|
---|
| 3204 | # error "Not in IN_RING3, IN_RING0 or IN_RC!"
|
---|
| 3205 | #endif
|
---|
| 3206 | /* .u32VersionEnd = */ PDM_DEVREG_VERSION
|
---|
[1] | 3207 | };
|
---|
| 3208 |
|
---|
| 3209 | /*
|
---|
| 3210 | * Local Variables:
|
---|
| 3211 | * mode: c
|
---|
| 3212 | * c-file-style: "k&r"
|
---|
| 3213 | * indent-tabs-mode: nil
|
---|
| 3214 | * End:
|
---|
| 3215 | */
|
---|
| 3216 |
|
---|