mirror of
https://github.com/kanjitalk755/macemu.git
synced 2024-08-14 09:29:00 +00:00
334 lines
11 KiB
C++
334 lines
11 KiB
C++
/*
|
|
* rsrc_patches.cpp - Resource patches
|
|
*
|
|
* Basilisk II (C) 1997-2005 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
|
|
*/
|
|
|
|
#include <string.h>
|
|
|
|
#include "sysdeps.h"
|
|
#include "cpu_emulation.h"
|
|
#include "macos_util.h"
|
|
#include "main.h"
|
|
#include "emul_op.h"
|
|
#include "audio.h"
|
|
#include "audio_defs.h"
|
|
#include "rsrc_patches.h"
|
|
|
|
#if ENABLE_MON
|
|
#include "mon.h"
|
|
#endif
|
|
|
|
#define DEBUG 0
|
|
#include "debug.h"
|
|
|
|
|
|
/*
|
|
* Search resource for byte string, return offset (or 0)
|
|
*/
|
|
|
|
static uint32 find_rsrc_data(const uint8 *rsrc, uint32 max, const uint8 *search, uint32 search_len, uint32 ofs = 0)
|
|
{
|
|
while (ofs < max - search_len) {
|
|
if (!memcmp(rsrc + ofs, search, search_len))
|
|
return ofs;
|
|
ofs++;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
/*
|
|
* Resource patches via vCheckLoad
|
|
*/
|
|
|
|
void CheckLoad(uint32 type, int16 id, uint8 *p, uint32 size)
|
|
{
|
|
uint16 *p16;
|
|
uint32 base;
|
|
D(bug("vCheckLoad %c%c%c%c (%08x) ID %d, data %p, size %d\n", (char)(type >> 24), (char)((type >> 16) & 0xff), (char )((type >> 8) & 0xff), (char )(type & 0xff), type, id, p, size));
|
|
|
|
if (type == FOURCC('b','o','o','t') && id == 3) {
|
|
D(bug(" boot 3 found\n"));
|
|
|
|
// Set boot stack pointer (7.5, 7.6, 7.6.1, 8.0)
|
|
static const uint8 dat[] = {0x22, 0x00, 0xe4, 0x89, 0x90, 0x81, 0x22, 0x40};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base + 6);
|
|
*p16 = htons(M68K_EMUL_OP_FIX_BOOTSTACK);
|
|
FlushCodeCache(p + base + 6, 2);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
|
|
#if !ROM_IS_WRITE_PROTECTED
|
|
// Set fake handle at 0x0000 to some safe place (so broken Mac programs won't write into Mac ROM) (7.1, 7.5, 8.0)
|
|
static const uint8 dat2[] = {0x20, 0x78, 0x02, 0xae, 0xd1, 0xfc, 0x00, 0x01, 0x00, 0x00, 0x21, 0xc8, 0x00, 0x00};
|
|
base = find_rsrc_data(p, size, dat2, sizeof(dat2));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base);
|
|
|
|
#if defined(USE_SCRATCHMEM_SUBTERFUGE)
|
|
// Set 0x0000 to scratch memory area
|
|
extern uint8 *ScratchMem;
|
|
const uint32 ScratchMemBase = Host2MacAddr(ScratchMem);
|
|
*p16++ = htons(0x207c); // move.l #ScratchMem,a0
|
|
*p16++ = htons(ScratchMemBase >> 16);
|
|
*p16++ = htons(ScratchMemBase);
|
|
*p16++ = htons(M68K_NOP);
|
|
*p16 = htons(M68K_NOP);
|
|
#else
|
|
#error System specific handling for writable ROM is required here
|
|
#endif
|
|
FlushCodeCache(p + base, 14);
|
|
D(bug(" patch 2 applied\n"));
|
|
}
|
|
|
|
} else if (type == FOURCC('b','o','o','t') && id == 2) {
|
|
D(bug(" boot 2 found\n"));
|
|
|
|
// Set fake handle at 0x0000 to some safe place (so broken Mac programs won't write into Mac ROM) (7.1, 7.5, 8.0)
|
|
static const uint8 dat[] = {0x20, 0x78, 0x02, 0xae, 0xd1, 0xfc, 0x00, 0x01, 0x00, 0x00, 0x21, 0xc8, 0x00, 0x00};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base);
|
|
|
|
#if defined(USE_SCRATCHMEM_SUBTERFUGE)
|
|
// Set 0x0000 to scratch memory area
|
|
extern uint8 *ScratchMem;
|
|
const uint32 ScratchMemBase = Host2MacAddr(ScratchMem);
|
|
*p16++ = htons(0x207c); // move.l #ScratchMem,a0
|
|
*p16++ = htons(ScratchMemBase >> 16);
|
|
*p16++ = htons(ScratchMemBase);
|
|
*p16++ = htons(M68K_NOP);
|
|
*p16 = htons(M68K_NOP);
|
|
#else
|
|
#error System specific handling for writable ROM is required here
|
|
#endif
|
|
FlushCodeCache(p + base, 14);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
#endif
|
|
|
|
} else if (type == FOURCC('P','T','C','H') && id == 630) {
|
|
D(bug("PTCH 630 found\n"));
|
|
|
|
// Don't replace Time Manager (Classic ROM, 6.0.3)
|
|
static const uint8 dat[] = {0x30, 0x3c, 0x00, 0x58, 0xa2, 0x47};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base);
|
|
p16[2] = htons(M68K_NOP);
|
|
p16[7] = htons(M68K_NOP);
|
|
p16[12] = htons(M68K_NOP);
|
|
FlushCodeCache(p + base, 26);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
|
|
// Don't replace Time Manager (Classic ROM, 6.0.8)
|
|
static const uint8 dat2[] = {0x70, 0x58, 0xa2, 0x47};
|
|
base = find_rsrc_data(p, size, dat2, sizeof(dat2));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base);
|
|
p16[1] = htons(M68K_NOP);
|
|
p16[5] = htons(M68K_NOP);
|
|
p16[9] = htons(M68K_NOP);
|
|
FlushCodeCache(p + base, 20);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
|
|
} else if (type == FOURCC('p','t','c','h') && id == 26) {
|
|
D(bug(" ptch 26 found\n"));
|
|
|
|
// Trap ABC4 is initialized with absolute ROM address (7.1, 7.5, 7.6, 7.6.1, 8.0)
|
|
static const uint8 dat[] = {0x40, 0x83, 0x36, 0x10};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base);
|
|
*p16++ = htons((ROMBaseMac + 0x33610) >> 16);
|
|
*p16 = htons((ROMBaseMac + 0x33610) & 0xffff);
|
|
FlushCodeCache(p + base, 4);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
|
|
} else if (type == FOURCC('p','t','c','h') && id == 34) {
|
|
D(bug(" ptch 34 found\n"));
|
|
|
|
// Don't wait for VIA (Classic ROM, 6.0.8)
|
|
static const uint8 dat[] = {0x22, 0x78, 0x01, 0xd4, 0x10, 0x11, 0x02, 0x00, 0x00, 0x30};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base + 14);
|
|
*p16 = htons(M68K_NOP);
|
|
FlushCodeCache(p + base + 14, 2);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
|
|
// Don't replace ADBOp() (Classic ROM, 6.0.8)
|
|
static const uint8 dat2[] = {0x21, 0xc0, 0x05, 0xf0};
|
|
base = find_rsrc_data(p, size, dat2, sizeof(dat2));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base);
|
|
*p16++ = htons(M68K_NOP);
|
|
*p16 = htons(M68K_NOP);
|
|
FlushCodeCache(p + base, 4);
|
|
D(bug(" patch 2 applied\n"));
|
|
}
|
|
|
|
} else if (type == FOURCC('g','p','c','h') && id == 750) {
|
|
D(bug(" gpch 750 found\n"));
|
|
|
|
// Don't use PTEST instruction in BlockMove() (7.5, 7.6, 7.6.1, 8.0)
|
|
static const uint8 dat[] = {0x20, 0x5f, 0x22, 0x5f, 0x0c, 0x38, 0x00, 0x04, 0x01, 0x2f};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base + 4);
|
|
*p16++ = htons(M68K_EMUL_OP_BLOCK_MOVE);
|
|
*p16++ = htons(0x7000);
|
|
*p16 = htons(M68K_RTS);
|
|
FlushCodeCache(p + base + 4, 6);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
|
|
} else if (type == FOURCC('l','p','c','h') && id == 24) {
|
|
D(bug(" lpch 24 found\n"));
|
|
|
|
// Don't replace Time Manager (7.0.1, 7.1, 7.5, 7.6, 7.6.1, 8.0)
|
|
static const uint8 dat[] = {0x70, 0x59, 0xa2, 0x47};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base + 2);
|
|
*p16++ = htons(M68K_NOP);
|
|
p16 += 3;
|
|
*p16++ = htons(M68K_NOP);
|
|
p16 += 7;
|
|
*p16 = htons(M68K_NOP);
|
|
FlushCodeCache(p + base + 2, 28);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
|
|
} else if (type == FOURCC('l','p','c','h') && id == 31) {
|
|
D(bug(" lpch 31 found\n"));
|
|
|
|
// Don't write to VIA in vSoundDead() (7.0.1, 7.1, 7.5, 7.6, 7.6.1, 8.0)
|
|
static const uint8 dat[] = {0x20, 0x78, 0x01, 0xd4, 0x08, 0xd0, 0x00, 0x07, 0x4e, 0x75};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base);
|
|
*p16 = htons(M68K_RTS);
|
|
FlushCodeCache(p + base, 2);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
|
|
// Don't replace SCSI manager (7.1, 7.5, 7.6.1, 8.0)
|
|
static const uint8 dat2[] = {0x0c, 0x6f, 0x00, 0x0e, 0x00, 0x04, 0x66, 0x0c};
|
|
base = find_rsrc_data(p, size, dat2, sizeof(dat2));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base);
|
|
*p16++ = htons(M68K_EMUL_OP_SCSI_DISPATCH);
|
|
*p16++ = htons(0x2e49); // move.l a1,a7
|
|
*p16 = htons(M68K_JMP_A0);
|
|
FlushCodeCache(p + base, 6);
|
|
D(bug(" patch 2 applied\n"));
|
|
}
|
|
|
|
} else if (type == FOURCC('t','h','n','g') && id == -16563) {
|
|
D(bug(" thng -16563 found\n"));
|
|
|
|
// Set audio component flags (7.5, 7.6, 7.6.1, 8.0)
|
|
*(uint32 *)(p + componentFlags) = htonl(audio_component_flags);
|
|
D(bug(" patch 1 applied\n"));
|
|
|
|
} else if (type == FOURCC('s','i','f','t') && id == -16563) {
|
|
D(bug(" sift -16563 found\n"));
|
|
|
|
// Replace audio component (7.5, 7.6, 7.6.1, 8.0)
|
|
p16 = (uint16 *)p;
|
|
*p16++ = htons(0x4e56); *p16++ = htons(0x0000); // link a6,#0
|
|
*p16++ = htons(0x48e7); *p16++ = htons(0x8018); // movem.l d0/a3-a4,-(sp)
|
|
*p16++ = htons(0x266e); *p16++ = htons(0x000c); // movea.l 12(a6),a3
|
|
*p16++ = htons(0x286e); *p16++ = htons(0x0008); // movea.l 8(a6),a4
|
|
*p16++ = htons(M68K_EMUL_OP_AUDIO);
|
|
*p16++ = htons(0x2d40); *p16++ = htons(0x0010); // move.l d0,16(a6)
|
|
*p16++ = htons(0x4cdf); *p16++ = htons(0x1801); // movem.l (sp)+,d0/a3-a4
|
|
*p16++ = htons(0x4e5e); // unlk a6
|
|
*p16++ = htons(0x4e74); *p16++ = htons(0x0008); // rtd #8
|
|
FlushCodeCache(p, 32);
|
|
D(bug(" patch 1 applied\n"));
|
|
|
|
} else if (type == FOURCC('i','n','s','t') && id == -19069) {
|
|
D(bug(" inst -19069 found\n"));
|
|
|
|
// Don't replace Microseconds (QuickTime 2.0)
|
|
static const uint8 dat[] = {0x30, 0x3c, 0xa1, 0x93, 0xa2, 0x47};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base + 4);
|
|
*p16 = htons(M68K_NOP);
|
|
FlushCodeCache(p + base + 4, 2);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
|
|
} else if (type == FOURCC('D','R','V','R') && id == -20066) {
|
|
D(bug("DRVR -20066 found\n"));
|
|
|
|
// Don't access SCC in .Infra driver
|
|
static const uint8 dat[] = {0x28, 0x78, 0x01, 0xd8, 0x48, 0xc7, 0x20, 0x0c, 0xd0, 0x87, 0x20, 0x40, 0x1c, 0x10};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base + 12);
|
|
*p16 = htons(0x7a00); // moveq #0,d6
|
|
FlushCodeCache(p + base + 12, 2);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
|
|
} else if (type == FOURCC('l','t','l','k') && id == 0) {
|
|
D(bug(" ltlk 0 found\n"));
|
|
|
|
// Disable LocalTalk (7.0.1, 7.5, 7.6, 7.6.1, 8.0)
|
|
p16 = (uint16 *)p;
|
|
*p16++ = htons(M68K_JMP_A0);
|
|
*p16++ = htons(0x7000);
|
|
*p16 = htons(M68K_RTS);
|
|
FlushCodeCache(p, 6);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
#if REAL_ADDRESSING && !defined(AMIGA)
|
|
else if (type == FOURCC('D','R','V','R') && id == 41) {
|
|
D(bug(" DRVR 41 found\n"));
|
|
|
|
// gb-- [0x28E (ROM85)] contains 0x3fff that will be placed into a0
|
|
// Seems to be caused by the AppleShare extension from MacOS 8.1 (3.7.4)
|
|
// .AFPTranslator (DRVR addr 0x2372)
|
|
static const uint8 dat[] = {0x3a, 0x2e, 0x00, 0x0a, 0x55, 0x4f, 0x3e, 0xb8, 0x02, 0x8e, 0x30, 0x1f, 0x48, 0xc0, 0x24, 0x40, 0x20, 0x40};
|
|
base = find_rsrc_data(p, size, dat, sizeof(dat));
|
|
if (base) {
|
|
p16 = (uint16 *)(p + base + 4);
|
|
*p16++ = htons(0x3078); // movea.w ROM85,%a0
|
|
*p16++ = htons(0x028e);
|
|
*p16++ = htons(0xd1fc); // adda.l #RAMBaseMac,%a0
|
|
*p16++ = htons((RAMBaseMac >> 16) & 0xffff);
|
|
*p16++ = htons(RAMBaseMac & 0xffff);
|
|
*p16++ = htons(0x2448); // movea.l %a0,%a2
|
|
*p16++ = htons(M68K_NOP);
|
|
FlushCodeCache(p + base + 4, 14);
|
|
D(bug(" patch 1 applied\n"));
|
|
}
|
|
}
|
|
#endif
|
|
}
|