BasiliskII/src/sony.cpp

/*
 *  sony.cpp - Replacement .Sony driver (floppy drives)
 *
 *  Basilisk II (C) 1997-1999 Christian Bauer
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

/*
 *  SEE ALSO
 *    Inside Macintosh: Devices, chapter 1 "Device Manager"
 *    Technote DV 05: "Drive Queue Elements"
 *    Technote DV 07: "Forcing Floppy Disk Size to be Either 400K or 800K"
 *    Technote DV 17: "Sony Driver: What Your Sony Drives For You"
 *    Technote DV 23: "Driver Education"
 *    Technote FL 24: "Don't Look at ioPosOffset for Devices"
 */

#include <string.h>

#include "sysdeps.h"
#include "cpu_emulation.h"
#include "main.h"
#include "macos_util.h"
#include "rom_patches.h"
#include "sys.h"
#include "prefs.h"
#include "sony.h"

#define DEBUG 0
#include "debug.h"

#ifdef AMIGA
#define DISK_INSERT_CHECK 1             // Check for inserted disks (problem: on most hardware, disks are not ejected and automatically remounted)
#else
#define DISK_INSERT_CHECK 0
#endif


// Floppy disk icon
const uint8 SonyDiskIcon[258] = {
        0x7f, 0xff, 0xff, 0xf8, 0x81, 0x00, 0x01, 0x04, 0x81, 0x00, 0x71, 0x02, 0x81, 0x00, 0x89, 0x01,
        0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01,
        0x81, 0x00, 0x71, 0x01, 0x81, 0x00, 0x01, 0x01, 0x80, 0xff, 0xfe, 0x01, 0x80, 0x00, 0x00, 0x01,
        0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01,
        0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x87, 0xff, 0xff, 0xe1, 0x88, 0x00, 0x00, 0x11,
        0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11,
        0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11,
        0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x7f, 0xff, 0xff, 0xfe,

        0x7f, 0xff, 0xff, 0xf8, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xfe,

        0, 0
};

// Floppy drive icon
const uint8 SonyDriveIcon[258] = {
        0x7f, 0xff, 0xff, 0xf8, 0x81, 0x00, 0x01, 0x04, 0x81, 0x00, 0x71, 0x02, 0x81, 0x00, 0x89, 0x01,
        0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01,
        0x81, 0x00, 0x71, 0x01, 0x81, 0x00, 0x01, 0x01, 0x80, 0xff, 0xfe, 0x01, 0x80, 0x00, 0x00, 0x01,
        0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01,
        0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x87, 0xff, 0xff, 0xe1, 0x88, 0x00, 0x00, 0x11,
        0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11,
        0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11,
        0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x7f, 0xff, 0xff, 0xfe,

        0x7f, 0xff, 0xff, 0xf8, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
        0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xfe,

        0, 0
};


// Struct for each drive
struct DriveInfo {
        DriveInfo()
        {
                next = NULL;
                num = 0;
                fh = NULL;
                read_only = false;
                status = 0;
        }

        DriveInfo *next;        // Pointer to next DriveInfo (must be first in struct!)
        int num;                        // Drive number
        void *fh;                       // Floppy driver file handle
        bool to_be_mounted;     // Flag: drive must be mounted in accRun
        bool read_only;         // Flag: force write protection
        uint32 tag_buffer;      // Mac address of tag buffer
        uint32 status;          // Mac address of drive status record
};

// Linked list of DriveInfos
static DriveInfo *first_drive_info;

// Icon addresses (Mac address space, set by PatchROM())
uint32 SonyDiskIconAddr;
uint32 SonyDriveIconAddr;

// Number of ticks between checks for disk insertion
const int driver_delay = 120;

// Flag: Control(accRun) has been called, interrupt routine is now active
static bool acc_run_called = false;


/*
 *  Get pointer to drive info, NULL = invalid drive number
 */

static DriveInfo *get_drive_info(int num)
{
        DriveInfo *info = first_drive_info;
        while (info != NULL) {
                if (info->num == num)
                        return info;
                info = info->next;
        }
        return NULL;
}


/*
 *  Initialization
 */

void SonyInit(void)
{
        first_drive_info = NULL;

        // No drives specified in prefs? Then add defaults
        if (PrefsFindString("floppy", 0) == NULL)
                SysAddFloppyPrefs();

        // Add drives specified in preferences
        int32 index = 0;
        const char *str;
        while ((str = PrefsFindString("floppy", index++)) != NULL) {
                bool read_only = false;
                if (str[0] == '*') {
                        read_only = true;
                        str++;
                }
                void *fh = Sys_open(str, read_only);
                if (fh) {
                        DriveInfo *info = new DriveInfo;
                        info->fh = fh;
                        info->read_only = SysIsReadOnly(fh);
                        DriveInfo *p = (DriveInfo *)&first_drive_info;
                        while (p->next != NULL)
                                p = p->next;
                        p->next = info;
                }
        }
}


/*
 *  Deinitialization
 */

void SonyExit(void)
{
        DriveInfo *info = first_drive_info, *next;
        while (info != NULL) {
                Sys_close(info->fh);
                next = info->next;
                delete info;
                info = next;
        }
}


/*
 *  Disk was inserted, flag for mounting
 */

bool SonyMountVolume(void *fh)
{
        DriveInfo *info;
        for (info = first_drive_info; info != NULL && info->fh != fh; info = info->next) ;
        if (info) {
                if (SysIsDiskInserted(info->fh)) {
                        info->read_only = SysIsReadOnly(info->fh);
                        WriteMacInt8(info->status + dsDiskInPlace, 1);  // Inserted removable disk
                        WriteMacInt8(info->status + dsWriteProt, info->read_only ? 0xff : 0);
                        info->to_be_mounted = true;
                }
                return true;
        } else
                return false;
}


/*
 *  Mount volumes for which the to_be_mounted flag is set
 *  (called during interrupt time)
 */

static void mount_mountable_volumes(void)
{
        DriveInfo *info = first_drive_info;
        while (info != NULL) {

#if DISK_INSERT_CHECK
                // Disk in drive?
                if (!ReadMacInt8(info->status + dsDiskInPlace)) {

                        // No, check if disk was inserted
                        if (SysIsDiskInserted(info->fh))
                                SonyMountVolume(info->fh);
                }
#endif

                // Mount disk if flagged
                if (info->to_be_mounted) {
                        D(bug(" mounting drive %d\n", info->num));
                        M68kRegisters r;
                        r.d[0] = info->num;
                        r.a[0] = 7;     // diskEvent
                        Execute68kTrap(0xa02f, &r);             // PostEvent()
                        info->to_be_mounted = false;
                }

                info = info->next;
        }
}


/*
 *  Driver Open() routine
 */

int16 SonyOpen(uint32 pb, uint32 dce)
{
        D(bug("SonyOpen\n"));

        // Set up DCE
        WriteMacInt32(dce + dCtlPosition, 0);
        WriteMacInt16(dce + dCtlQHdr + qFlags, ReadMacInt16(dce + dCtlQHdr + qFlags) & 0xff00 | 3);     // Version number, must be >=3 or System 8 will replace us
        acc_run_called = false;

        // Install driver again with refnum -2 (HD20)
        uint32 utab = ReadMacInt32(0x11c);
        WriteMacInt32(utab + 4, ReadMacInt32(utab + 16));

        // Set up fake SonyVars
        WriteMacInt32(0x134, 0xdeadbeef);

        // Clear DskErr
        WriteMacInt16(0x142, 0);

        // Install drives
        for (DriveInfo *info = first_drive_info; info; info = info->next) {

                info->num = FindFreeDriveNumber(1);
                info->to_be_mounted = false;
                info->tag_buffer = 0;

                if (info->fh) {

                        // Allocate drive status record
                        M68kRegisters r;
                        r.d[0] = SIZEOF_DrvSts;
                        Execute68kTrap(0xa71e, &r);             // NewPtrSysClear()
                        if (r.a[0] == 0)
                                continue;
                        info->status = r.a[0];
                        D(bug(" DrvSts at %08lx\n", info->status));

                        // Set up drive status
                        WriteMacInt16(info->status + dsQType, sony);
                        WriteMacInt8(info->status + dsInstalled, 1);
                        WriteMacInt8(info->status + dsSides, 0xff);
                        WriteMacInt8(info->status + dsTwoSideFmt, 0xff);
                        WriteMacInt8(info->status + dsNewIntf, 0xff);
                        WriteMacInt8(info->status + dsMFMDrive, 0xff);
                        WriteMacInt8(info->status + dsMFMDisk, 0xff);
                        WriteMacInt8(info->status + dsTwoMegFmt, 0xff);

                        // Disk in drive?
                        if (SysIsDiskInserted(info->fh)) {
                                WriteMacInt8(info->status + dsDiskInPlace, 1);  // Inserted removable disk
                                WriteMacInt8(info->status + dsWriteProt, info->read_only ? 0xff : 0);
                                info->to_be_mounted = true;
                        }

                        // Add drive to drive queue
                        D(bug(" adding drive %d\n", info->num));
                        r.d[0] = (info->num << 16) | (SonyRefNum & 0xffff);
                        r.a[0] = info->status + dsQLink;
                        Execute68kTrap(0xa04e, &r);     // AddDrive()
                }
        }
        return noErr;
}


/*
 *  Driver Prime() routine
 */

int16 SonyPrime(uint32 pb, uint32 dce)
{
        WriteMacInt32(pb + ioActCount, 0);

        // Drive valid and disk inserted?
        DriveInfo *info;
        if ((info = get_drive_info(ReadMacInt16(pb + ioVRefNum))) == NULL)
                return nsDrvErr;
        if (!ReadMacInt8(info->status + dsDiskInPlace))
                return offLinErr;
        WriteMacInt8(info->status + dsDiskInPlace, 2);  // Disk accessed

        // Get parameters
        void *buffer = Mac2HostAddr(ReadMacInt32(pb + ioBuffer));
        size_t length = ReadMacInt32(pb + ioReqCount);
        loff_t position = ReadMacInt32(dce + dCtlPosition);
        if ((length & 0x1ff) || (position & 0x1ff))
                return paramErr;

        size_t actual = 0;
        if ((ReadMacInt16(pb + ioTrap) & 0xff) == aRdCmd) {

                // Read
                actual = Sys_read(info->fh, buffer, position, length);
                if (actual != length)
                        return readErr;

                // Clear TagBuf
                WriteMacInt32(0x2fc, 0);
                WriteMacInt32(0x300, 0);
                WriteMacInt32(0x304, 0);

        } else {

                // Write
                if (info->read_only)
                        return wPrErr;
                actual = Sys_write(info->fh, buffer, position, length);
                if (actual != length)
                        return writErr;
        }

        // Update ParamBlock and DCE
        WriteMacInt32(pb + ioActCount, actual);
        WriteMacInt32(dce + dCtlPosition, ReadMacInt32(dce + dCtlPosition) + actual);
        return noErr;
}


/*
 *  Driver Control() routine
 */

int16 SonyControl(uint32 pb, uint32 dce)
{
        uint16 code = ReadMacInt16(pb + csCode);
        D(bug("SonyControl %d\n", code));

        // General codes
        switch (code) {
                case 1:         // KillIO
                        return -1;

                case 9:         // Track cache
                        return noErr;

                case 65:        // Periodic action (accRun, "insert" disks on startup)
                        mount_mountable_volumes();
                        PatchAfterStartup();            // Install patches after system startup
                        WriteMacInt16(dce + dCtlFlags, ReadMacInt16(dce + dCtlFlags) & ~0x2000);        // Disable periodic action
                        acc_run_called = true;
                        return noErr;
        }

        // Drive valid?
        DriveInfo *info;
        if ((info = get_drive_info(ReadMacInt16(pb + ioVRefNum))) == NULL)
                return nsDrvErr;

        // Drive-specific codes
        switch (code) {
                case 5:         // Verify disk
                        if (ReadMacInt8(info->status + dsDiskInPlace) > 0)
                                return noErr;
                        else
                                return verErr;

                case 6:         // Format disk
                        if (info->read_only)
                                return wPrErr;
                        else if (ReadMacInt8(info->status + dsDiskInPlace) > 0) {
                                if (SysFormat(info->fh))
                                        return noErr;
                                else
                                        return writErr;
                        } else
                                return offLinErr;

                case 7:         // Eject
                        if (ReadMacInt8(info->status + dsDiskInPlace) > 0) {
                                SysEject(info->fh);
                                WriteMacInt8(info->status + dsDiskInPlace, 0);
                        }
                        return noErr;

                case 8:         // Set tag buffer
                        info->tag_buffer = ReadMacInt32(pb + csParam);
                        return noErr;

                case 21:                // Get drive icon
                        WriteMacInt32(pb + csParam, SonyDriveIconAddr);
                        return noErr;

                case 22:                // Get disk icon
                        WriteMacInt32(pb + csParam, SonyDiskIconAddr);
                        return noErr;

                case 23:                // Get drive info
                        if (info->num == 1)
                                WriteMacInt32(pb + csParam, 0x0004);    // Internal drive
                        else
                                WriteMacInt32(pb + csParam, 0x0104);    // External drive
                        return noErr;

                case 'SC': {    // Format and write to disk
                        if (!ReadMacInt8(info->status + dsDiskInPlace))
                                return offLinErr;
                        if (info->read_only)
                                return wPrErr;

                        void *data = Mac2HostAddr(ReadMacInt32(pb + csParam + 2));
                        size_t actual = Sys_write(info->fh, data, 0, 2880*512);
                        if (actual != 2880*512)
                                return writErr;
                        else
                                return noErr;
                }

                default:
                        printf("WARNING: Unknown SonyControl(%d)\n", code);
                        return controlErr;
        }
}


/*
 *  Driver Status() routine
 */

int16 SonyStatus(uint32 pb, uint32 dce)
{
        uint16 code = ReadMacInt16(pb + csCode);
        D(bug("SonyStatus %d\n", code));

        // Drive valid?
        DriveInfo *info;
        if ((info = get_drive_info(ReadMacInt16(pb + ioVRefNum))) == NULL)
                return nsDrvErr;

        switch (code) {
                case 6:         // Return format list
                        if (ReadMacInt16(pb + csParam) > 0) {
                                uint32 adr = ReadMacInt32(pb + csParam + 2);
                                WriteMacInt16(pb + csParam, 1);         // 1 format
                                WriteMacInt32(adr, 2880);                       // 2880 sectors
                                WriteMacInt32(adr + 4, 0xd2120050);     // 2 heads, 18 secs/track, 80 tracks
                                return noErr;
                        } else
                                return paramErr;

                case 8:         // Get drive status
                        Mac2Mac_memcpy(pb + csParam, info->status, 22);
                        return noErr;

                case 10:        // Get disk type
                        WriteMacInt32(pb + csParam, ReadMacInt32(info->status + dsMFMDrive) & 0xffffff00 | 0xfe);
                        return noErr;

                case 'DV':      // Duplicator version supported
                        WriteMacInt16(pb + csParam, 0x0410);
                        return noErr;

                case 'SC':      // Get address header format byte
                        WriteMacInt8(pb + csParam, 0x22);       // 512 bytes/sector
                        return noErr;

                default:
                        printf("WARNING: Unknown SonyStatus(%d)\n", code);
                        return statusErr;
        }
}


/*
 *  Driver interrupt routine - check for volumes to be mounted
 */

void SonyInterrupt(void)
{
        static int tick_count = 0;
        if (!acc_run_called)
                return;

        tick_count++;
        if (tick_count > driver_delay) {
                tick_count = 0;
                mount_mountable_volumes();
        }
}
Revision:	1.5
Committed:	1999-11-03T10:56:16Z (24 years, 6 months ago) by cebix
Branch:	MAIN
CVS Tags:	snapshot-22121999, release-0_8-1
Changes since 1.4:	+1 -1 lines
Log Message:	- imported UAE CPU 0.8.10 changes - new utility functions Mac_memset, Mac2Host_memcpy, Host2Mac_memcpu and Mac2Mac_memcpy - extfs.cpp: fixed bug in fs_rename() and fs_cat_move() (auxiliary IOParam block was not in Mac address space) - some provisions for using UAE CPU compiler (doesn't work yet)
#	Content
1	/*
2	* sony.cpp - Replacement .Sony driver (floppy drives)
3	*
4	* Basilisk II (C) 1997-1999 Christian Bauer
5	*
6	* This program is free software; you can redistribute it and/or modify
7	* it under the terms of the GNU General Public License as published by
8	* the Free Software Foundation; either version 2 of the License, or
9	* (at your option) any later version.
10	*
11	* This program is distributed in the hope that it will be useful,
12	* but WITHOUT ANY WARRANTY; without even the implied warranty of
13	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14	* GNU General Public License for more details.
15	*
16	* You should have received a copy of the GNU General Public License
17	* along with this program; if not, write to the Free Software
18	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19	*/
20
21	/*
22	* SEE ALSO
23	* Inside Macintosh: Devices, chapter 1 "Device Manager"
24	* Technote DV 05: "Drive Queue Elements"
25	* Technote DV 07: "Forcing Floppy Disk Size to be Either 400K or 800K"
26	* Technote DV 17: "Sony Driver: What Your Sony Drives For You"
27	* Technote DV 23: "Driver Education"
28	* Technote FL 24: "Don't Look at ioPosOffset for Devices"
29	*/
30
31	#include <string.h>
32
33	#include "sysdeps.h"
34	#include "cpu_emulation.h"
35	#include "main.h"
36	#include "macos_util.h"
37	#include "rom_patches.h"
38	#include "sys.h"
39	#include "prefs.h"
40	#include "sony.h"
41
42	#define DEBUG 0
43	#include "debug.h"
44
45	#ifdef AMIGA
46	#define DISK_INSERT_CHECK 1 // Check for inserted disks (problem: on most hardware, disks are not ejected and automatically remounted)
47	#else
48	#define DISK_INSERT_CHECK 0
49	#endif
50
51
52	// Floppy disk icon
53	const uint8 SonyDiskIcon[258] = {
54	0x7f, 0xff, 0xff, 0xf8, 0x81, 0x00, 0x01, 0x04, 0x81, 0x00, 0x71, 0x02, 0x81, 0x00, 0x89, 0x01,
55	0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01,
56	0x81, 0x00, 0x71, 0x01, 0x81, 0x00, 0x01, 0x01, 0x80, 0xff, 0xfe, 0x01, 0x80, 0x00, 0x00, 0x01,
57	0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01,
58	0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x87, 0xff, 0xff, 0xe1, 0x88, 0x00, 0x00, 0x11,
59	0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11,
60	0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11,
61	0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x7f, 0xff, 0xff, 0xfe,
62
63	0x7f, 0xff, 0xff, 0xf8, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0xff,
64	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
65	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
66	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
67	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
68	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
69	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
70	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xfe,
71
72	0, 0
73	};
74
75	// Floppy drive icon
76	const uint8 SonyDriveIcon[258] = {
77	0x7f, 0xff, 0xff, 0xf8, 0x81, 0x00, 0x01, 0x04, 0x81, 0x00, 0x71, 0x02, 0x81, 0x00, 0x89, 0x01,
78	0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01, 0x81, 0x00, 0x89, 0x01,
79	0x81, 0x00, 0x71, 0x01, 0x81, 0x00, 0x01, 0x01, 0x80, 0xff, 0xfe, 0x01, 0x80, 0x00, 0x00, 0x01,
80	0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01,
81	0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x87, 0xff, 0xff, 0xe1, 0x88, 0x00, 0x00, 0x11,
82	0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11,
83	0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11,
84	0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x88, 0x00, 0x00, 0x11, 0x7f, 0xff, 0xff, 0xfe,
85
86	0x7f, 0xff, 0xff, 0xf8, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0xff,
87	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
88	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
89	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
90	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
91	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
92	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
93	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xfe,
94
95	0, 0
96	};
97
98
99	// Struct for each drive
100	struct DriveInfo {
101	DriveInfo()
102	{
103	next = NULL;
104	num = 0;
105	fh = NULL;
106	read_only = false;
107	status = 0;
108	}
109
110	DriveInfo *next; // Pointer to next DriveInfo (must be first in struct!)
111	int num; // Drive number
112	void *fh; // Floppy driver file handle
113	bool to_be_mounted; // Flag: drive must be mounted in accRun
114	bool read_only; // Flag: force write protection
115	uint32 tag_buffer; // Mac address of tag buffer
116	uint32 status; // Mac address of drive status record
117	};
118
119	// Linked list of DriveInfos
120	static DriveInfo *first_drive_info;
121
122	// Icon addresses (Mac address space, set by PatchROM())
123	uint32 SonyDiskIconAddr;
124	uint32 SonyDriveIconAddr;
125
126	// Number of ticks between checks for disk insertion
127	const int driver_delay = 120;
128
129	// Flag: Control(accRun) has been called, interrupt routine is now active
130	static bool acc_run_called = false;
131
132
133	/*
134	* Get pointer to drive info, NULL = invalid drive number
135	*/
136
137	static DriveInfo *get_drive_info(int num)
138	{
139	DriveInfo *info = first_drive_info;
140	while (info != NULL) {
141	if (info->num == num)
142	return info;
143	info = info->next;
144	}
145	return NULL;
146	}
147
148
149	/*
150	* Initialization
151	*/
152
153	void SonyInit(void)
154	{
155	first_drive_info = NULL;
156
157	// No drives specified in prefs? Then add defaults
158	if (PrefsFindString("floppy", 0) == NULL)
159	SysAddFloppyPrefs();
160
161	// Add drives specified in preferences
162	int32 index = 0;
163	const char *str;
164	while ((str = PrefsFindString("floppy", index++)) != NULL) {
165	bool read_only = false;
166	if (str[0] == '*') {
167	read_only = true;
168	str++;
169	}
170	void *fh = Sys_open(str, read_only);
171	if (fh) {
172	DriveInfo *info = new DriveInfo;
173	info->fh = fh;
174	info->read_only = SysIsReadOnly(fh);
175	DriveInfo p = (DriveInfo )&first_drive_info;
176	while (p->next != NULL)
177	p = p->next;
178	p->next = info;
179	}
180	}
181	}
182
183
184	/*
185	* Deinitialization
186	*/
187
188	void SonyExit(void)
189	{
190	DriveInfo info = first_drive_info, next;
191	while (info != NULL) {
192	Sys_close(info->fh);
193	next = info->next;
194	delete info;
195	info = next;
196	}
197	}
198
199
200	/*
201	* Disk was inserted, flag for mounting
202	*/
203
204	bool SonyMountVolume(void *fh)
205	{
206	DriveInfo *info;
207	for (info = first_drive_info; info != NULL && info->fh != fh; info = info->next) ;
208	if (info) {
209	if (SysIsDiskInserted(info->fh)) {
210	info->read_only = SysIsReadOnly(info->fh);
211	WriteMacInt8(info->status + dsDiskInPlace, 1); // Inserted removable disk
212	WriteMacInt8(info->status + dsWriteProt, info->read_only ? 0xff : 0);
213	info->to_be_mounted = true;
214	}
215	return true;
216	} else
217	return false;
218	}
219
220
221	/*
222	* Mount volumes for which the to_be_mounted flag is set
223	* (called during interrupt time)
224	*/
225
226	static void mount_mountable_volumes(void)
227	{
228	DriveInfo *info = first_drive_info;
229	while (info != NULL) {
230
231	#if DISK_INSERT_CHECK
232	// Disk in drive?
233	if (!ReadMacInt8(info->status + dsDiskInPlace)) {
234
235	// No, check if disk was inserted
236	if (SysIsDiskInserted(info->fh))
237	SonyMountVolume(info->fh);
238	}
239	#endif
240
241	// Mount disk if flagged
242	if (info->to_be_mounted) {
243	D(bug(" mounting drive %d\n", info->num));
244	M68kRegisters r;
245	r.d[0] = info->num;
246	r.a[0] = 7; // diskEvent
247	Execute68kTrap(0xa02f, &r); // PostEvent()
248	info->to_be_mounted = false;
249	}
250
251	info = info->next;
252	}
253	}
254
255
256	/*
257	* Driver Open() routine
258	*/
259
260	int16 SonyOpen(uint32 pb, uint32 dce)
261	{
262	D(bug("SonyOpen\n"));
263
264	// Set up DCE
265	WriteMacInt32(dce + dCtlPosition, 0);
266	WriteMacInt16(dce + dCtlQHdr + qFlags, ReadMacInt16(dce + dCtlQHdr + qFlags) & 0xff00 \| 3); // Version number, must be >=3 or System 8 will replace us
267	acc_run_called = false;
268
269	// Install driver again with refnum -2 (HD20)
270	uint32 utab = ReadMacInt32(0x11c);
271	WriteMacInt32(utab + 4, ReadMacInt32(utab + 16));
272
273	// Set up fake SonyVars
274	WriteMacInt32(0x134, 0xdeadbeef);
275
276	// Clear DskErr
277	WriteMacInt16(0x142, 0);
278
279	// Install drives
280	for (DriveInfo *info = first_drive_info; info; info = info->next) {
281
282	info->num = FindFreeDriveNumber(1);
283	info->to_be_mounted = false;
284	info->tag_buffer = 0;
285
286	if (info->fh) {
287
288	// Allocate drive status record
289	M68kRegisters r;
290	r.d[0] = SIZEOF_DrvSts;
291	Execute68kTrap(0xa71e, &r); // NewPtrSysClear()
292	if (r.a[0] == 0)
293	continue;
294	info->status = r.a[0];
295	D(bug(" DrvSts at %08lx\n", info->status));
296
297	// Set up drive status
298	WriteMacInt16(info->status + dsQType, sony);
299	WriteMacInt8(info->status + dsInstalled, 1);
300	WriteMacInt8(info->status + dsSides, 0xff);
301	WriteMacInt8(info->status + dsTwoSideFmt, 0xff);
302	WriteMacInt8(info->status + dsNewIntf, 0xff);
303	WriteMacInt8(info->status + dsMFMDrive, 0xff);
304	WriteMacInt8(info->status + dsMFMDisk, 0xff);
305	WriteMacInt8(info->status + dsTwoMegFmt, 0xff);
306
307	// Disk in drive?
308	if (SysIsDiskInserted(info->fh)) {
309	WriteMacInt8(info->status + dsDiskInPlace, 1); // Inserted removable disk
310	WriteMacInt8(info->status + dsWriteProt, info->read_only ? 0xff : 0);
311	info->to_be_mounted = true;
312	}
313
314	// Add drive to drive queue
315	D(bug(" adding drive %d\n", info->num));
316	r.d[0] = (info->num << 16) \| (SonyRefNum & 0xffff);
317	r.a[0] = info->status + dsQLink;
318	Execute68kTrap(0xa04e, &r); // AddDrive()
319	}
320	}
321	return noErr;
322	}
323
324
325	/*
326	* Driver Prime() routine
327	*/
328
329	int16 SonyPrime(uint32 pb, uint32 dce)
330	{
331	WriteMacInt32(pb + ioActCount, 0);
332
333	// Drive valid and disk inserted?
334	DriveInfo *info;
335	if ((info = get_drive_info(ReadMacInt16(pb + ioVRefNum))) == NULL)
336	return nsDrvErr;
337	if (!ReadMacInt8(info->status + dsDiskInPlace))
338	return offLinErr;
339	WriteMacInt8(info->status + dsDiskInPlace, 2); // Disk accessed
340
341	// Get parameters
342	void *buffer = Mac2HostAddr(ReadMacInt32(pb + ioBuffer));
343	size_t length = ReadMacInt32(pb + ioReqCount);
344	loff_t position = ReadMacInt32(dce + dCtlPosition);
345	if ((length & 0x1ff) \|\| (position & 0x1ff))
346	return paramErr;
347
348	size_t actual = 0;
349	if ((ReadMacInt16(pb + ioTrap) & 0xff) == aRdCmd) {
350
351	// Read
352	actual = Sys_read(info->fh, buffer, position, length);
353	if (actual != length)
354	return readErr;
355
356	// Clear TagBuf
357	WriteMacInt32(0x2fc, 0);
358	WriteMacInt32(0x300, 0);
359	WriteMacInt32(0x304, 0);
360
361	} else {
362
363	// Write
364	if (info->read_only)
365	return wPrErr;
366	actual = Sys_write(info->fh, buffer, position, length);
367	if (actual != length)
368	return writErr;
369	}
370
371	// Update ParamBlock and DCE
372	WriteMacInt32(pb + ioActCount, actual);
373	WriteMacInt32(dce + dCtlPosition, ReadMacInt32(dce + dCtlPosition) + actual);
374	return noErr;
375	}
376
377
378	/*
379	* Driver Control() routine
380	*/
381
382	int16 SonyControl(uint32 pb, uint32 dce)
383	{
384	uint16 code = ReadMacInt16(pb + csCode);
385	D(bug("SonyControl %d\n", code));
386
387	// General codes
388	switch (code) {
389	case 1: // KillIO
390	return -1;
391
392	case 9: // Track cache
393	return noErr;
394
395	case 65: // Periodic action (accRun, "insert" disks on startup)
396	mount_mountable_volumes();
397	PatchAfterStartup(); // Install patches after system startup
398	WriteMacInt16(dce + dCtlFlags, ReadMacInt16(dce + dCtlFlags) & ~0x2000); // Disable periodic action
399	acc_run_called = true;
400	return noErr;
401	}
402
403	// Drive valid?
404	DriveInfo *info;
405	if ((info = get_drive_info(ReadMacInt16(pb + ioVRefNum))) == NULL)
406	return nsDrvErr;
407
408	// Drive-specific codes
409	switch (code) {
410	case 5: // Verify disk
411	if (ReadMacInt8(info->status + dsDiskInPlace) > 0)
412	return noErr;
413	else
414	return verErr;
415
416	case 6: // Format disk
417	if (info->read_only)
418	return wPrErr;
419	else if (ReadMacInt8(info->status + dsDiskInPlace) > 0) {
420	if (SysFormat(info->fh))
421	return noErr;
422	else
423	return writErr;
424	} else
425	return offLinErr;
426
427	case 7: // Eject
428	if (ReadMacInt8(info->status + dsDiskInPlace) > 0) {
429	SysEject(info->fh);
430	WriteMacInt8(info->status + dsDiskInPlace, 0);
431	}
432	return noErr;
433
434	case 8: // Set tag buffer
435	info->tag_buffer = ReadMacInt32(pb + csParam);
436	return noErr;
437
438	case 21: // Get drive icon
439	WriteMacInt32(pb + csParam, SonyDriveIconAddr);
440	return noErr;
441
442	case 22: // Get disk icon
443	WriteMacInt32(pb + csParam, SonyDiskIconAddr);
444	return noErr;
445
446	case 23: // Get drive info
447	if (info->num == 1)
448	WriteMacInt32(pb + csParam, 0x0004); // Internal drive
449	else
450	WriteMacInt32(pb + csParam, 0x0104); // External drive
451	return noErr;
452
453	case 'SC': { // Format and write to disk
454	if (!ReadMacInt8(info->status + dsDiskInPlace))
455	return offLinErr;
456	if (info->read_only)
457	return wPrErr;
458
459	void *data = Mac2HostAddr(ReadMacInt32(pb + csParam + 2));
460	size_t actual = Sys_write(info->fh, data, 0, 2880*512);
461	if (actual != 2880*512)
462	return writErr;
463	else
464	return noErr;
465	}
466
467	default:
468	printf("WARNING: Unknown SonyControl(%d)\n", code);
469	return controlErr;
470	}
471	}
472
473
474	/*
475	* Driver Status() routine
476	*/
477
478	int16 SonyStatus(uint32 pb, uint32 dce)
479	{
480	uint16 code = ReadMacInt16(pb + csCode);
481	D(bug("SonyStatus %d\n", code));
482
483	// Drive valid?
484	DriveInfo *info;
485	if ((info = get_drive_info(ReadMacInt16(pb + ioVRefNum))) == NULL)
486	return nsDrvErr;
487
488	switch (code) {
489	case 6: // Return format list
490	if (ReadMacInt16(pb + csParam) > 0) {
491	uint32 adr = ReadMacInt32(pb + csParam + 2);
492	WriteMacInt16(pb + csParam, 1); // 1 format
493	WriteMacInt32(adr, 2880); // 2880 sectors
494	WriteMacInt32(adr + 4, 0xd2120050); // 2 heads, 18 secs/track, 80 tracks
495	return noErr;
496	} else
497	return paramErr;
498
499	case 8: // Get drive status
500	Mac2Mac_memcpy(pb + csParam, info->status, 22);
501	return noErr;
502
503	case 10: // Get disk type
504	WriteMacInt32(pb + csParam, ReadMacInt32(info->status + dsMFMDrive) & 0xffffff00 \| 0xfe);
505	return noErr;
506
507	case 'DV': // Duplicator version supported
508	WriteMacInt16(pb + csParam, 0x0410);
509	return noErr;
510
511	case 'SC': // Get address header format byte
512	WriteMacInt8(pb + csParam, 0x22); // 512 bytes/sector
513	return noErr;
514
515	default:
516	printf("WARNING: Unknown SonyStatus(%d)\n", code);
517	return statusErr;
518	}
519	}
520
521
522	/*
523	* Driver interrupt routine - check for volumes to be mounted
524	*/
525
526	void SonyInterrupt(void)
527	{
528	static int tick_count = 0;
529	if (!acc_run_called)
530	return;
531
532	tick_count++;
533	if (tick_count > driver_delay) {
534	tick_count = 0;
535	mount_mountable_volumes();
536	}
537	}