1 |
|
/* |
2 |
|
* rom_patches.cpp - ROM patches |
3 |
|
* |
4 |
< |
* SheepShaver (C) 1997-2004 Christian Bauer and Marc Hellwig |
4 |
> |
* SheepShaver (C) 1997-2005 Christian Bauer and Marc Hellwig |
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 |
224 |
|
// id = 4711 means "find any ID" |
225 |
|
static uint32 find_rom_resource(uint32 s_type, int16 s_id = 4711, bool cont = false) |
226 |
|
{ |
227 |
< |
uint32 *lp = (uint32 *)(ROMBaseHost + 0x1a); |
228 |
< |
uint32 x = ntohl(*lp); |
229 |
< |
uint8 *bp = (uint8 *)(ROMBaseHost + x + 5); |
230 |
< |
uint32 header_size = *bp; |
227 |
> |
uint32 lp = ROM_BASE + 0x1a; |
228 |
> |
uint32 x = ReadMacInt32(lp); |
229 |
> |
uint32 header_size = ReadMacInt8(ROM_BASE + x + 5); |
230 |
|
|
231 |
|
if (!cont) |
232 |
|
rsrc_ptr = x; |
234 |
|
return 0; |
235 |
|
|
236 |
|
for (;;) { |
237 |
< |
lp = (uint32 *)(ROMBaseHost + rsrc_ptr); |
238 |
< |
rsrc_ptr = ntohl(*lp); |
237 |
> |
lp = ROM_BASE + rsrc_ptr; |
238 |
> |
rsrc_ptr = ReadMacInt32(lp); |
239 |
|
if (rsrc_ptr == 0) |
240 |
|
break; |
241 |
|
|
242 |
|
rsrc_ptr += header_size; |
243 |
|
|
244 |
< |
lp = (uint32 *)(ROMBaseHost + rsrc_ptr + 4); |
245 |
< |
uint32 data = ntohl(*lp); lp++; |
246 |
< |
uint32 type = ntohl(*lp); lp++; |
247 |
< |
int16 id = ntohs(*(int16 *)lp); |
244 |
> |
lp = ROM_BASE + rsrc_ptr + 4; |
245 |
> |
uint32 data = ReadMacInt32(lp); |
246 |
> |
uint32 type = ReadMacInt32(lp + 4); |
247 |
> |
int16 id = ReadMacInt16(lp + 8); |
248 |
|
if (type == s_type && (id == s_id || s_id == 4711)) |
249 |
|
return data; |
250 |
|
} |
258 |
|
|
259 |
|
static uint32 find_rom_trap(uint16 trap) |
260 |
|
{ |
261 |
< |
uint32 *lp = (uint32 *)(ROMBaseHost + 0x22); |
263 |
< |
lp = (uint32 *)(ROMBaseHost + ntohl(*lp)); |
261 |
> |
uint32 lp = ROM_BASE + ReadMacInt32(ROM_BASE + 0x22); |
262 |
|
|
263 |
|
if (trap > 0xa800) |
264 |
< |
return ntohl(lp[trap & 0x3ff]); |
264 |
> |
return ReadMacInt32(lp + 4 * (trap & 0x3ff)); |
265 |
|
else |
266 |
< |
return ntohl(lp[(trap & 0xff) + 0x400]); |
266 |
> |
return ReadMacInt32(lp + 4 * ((trap & 0xff) + 0x400)); |
267 |
|
} |
268 |
|
|
269 |
|
|
1083 |
|
*lp++ = htonl(0x48000000 + 0x36fb00 - base - 8); // b 0x36fb00 (Reset/FC1E opcode) |
1084 |
|
*lp++ = htonl(0x48000000 + 0x36fc00 - base - 12); // FE0A opcode |
1085 |
|
*lp++ = htonl(POWERPC_ILLEGAL); // Interrupt |
1086 |
< |
*lp++ = htonl(POWERPC_ILLEGAL); // ? |
1086 |
> |
*lp++ = htonl(0x48000000 + 0x36fd00 - base - 20); // FE0F opcode |
1087 |
|
*lp++ = htonl(POWERPC_ILLEGAL); |
1088 |
|
*lp++ = htonl(POWERPC_ILLEGAL); |
1089 |
|
*lp++ = htonl(POWERPC_ILLEGAL); |
1252 |
|
*lp++ = htonl(0x50e7deb4); // rlwimi r7,r7,27,$00000020 |
1253 |
|
*lp = htonl(0x4e800020); // blr |
1254 |
|
|
1255 |
+ |
// Extra routine for FE0F opcode (power management) |
1256 |
+ |
lp = (uint32 *)(ROMBaseHost + 0x36fd00); |
1257 |
+ |
*lp++ = htonl(0x7c2903a6); // mtctr r1 |
1258 |
+ |
*lp++ = htonl(0x80200000 + XLM_IRQ_NEST); // lwz r1,XLM_IRQ_NEST |
1259 |
+ |
*lp++ = htonl(0x38210001); // addi r1,r1,1 |
1260 |
+ |
*lp++ = htonl(0x90200000 + XLM_IRQ_NEST); // stw r1,XLM_IRQ_NEST |
1261 |
+ |
*lp++ = htonl(0x80200000 + XLM_KERNEL_DATA);// lwz r1,XLM_KERNEL_DATA |
1262 |
+ |
*lp++ = htonl(0x90c10018); // stw r6,0x18(r1) |
1263 |
+ |
*lp++ = htonl(0x7cc902a6); // mfctr r6 |
1264 |
+ |
*lp++ = htonl(0x90c10004); // stw r6,$0004(r1) |
1265 |
+ |
*lp++ = htonl(0x80c1065c); // lwz r6,$065c(r1) |
1266 |
+ |
*lp++ = htonl(0x90e6013c); // stw r7,$013c(r6) |
1267 |
+ |
*lp++ = htonl(0x91060144); // stw r8,$0144(r6) |
1268 |
+ |
*lp++ = htonl(0x9126014c); // stw r9,$014c(r6) |
1269 |
+ |
*lp++ = htonl(0x91460154); // stw r10,$0154(r6) |
1270 |
+ |
*lp++ = htonl(0x9166015c); // stw r11,$015c(r6) |
1271 |
+ |
*lp++ = htonl(0x91860164); // stw r12,$0164(r6) |
1272 |
+ |
*lp++ = htonl(0x91a6016c); // stw r13,$016c(r6) |
1273 |
+ |
*lp++ = htonl(0x7da00026); // mfcr r13 |
1274 |
+ |
*lp++ = htonl(0x80e10660); // lwz r7,$0660(r1) |
1275 |
+ |
*lp++ = htonl(0x7d8802a6); // mflr r12 |
1276 |
+ |
*lp++ = htonl(0x50e74001); // rlwimi. r7,r7,8,$80000000 |
1277 |
+ |
*lp++ = htonl(0x81410604); // lwz r10,0x0604(r1) |
1278 |
+ |
*lp++ = htonl(0x7d4803a6); // mtlr r10 |
1279 |
+ |
*lp++ = htonl(0x7d8a6378); // mr r10,r12 |
1280 |
+ |
*lp++ = htonl(0x3d600002); // lis r11,0x0002 |
1281 |
+ |
*lp++ = htonl(0x616bf072); // ori r11,r11,0xf072 (MSR) |
1282 |
+ |
*lp++ = htonl(0x50e7deb4); // rlwimi r7,r7,27,$00000020 |
1283 |
+ |
*lp = htonl(0x4e800020); // blr |
1284 |
+ |
|
1285 |
|
// Patch DR emulator to jump to right address when an interrupt occurs |
1286 |
|
lp = (uint32 *)(ROMBaseHost + 0x370000); |
1287 |
|
while (lp < (uint32 *)(ROMBaseHost + 0x380000)) { |
1294 |
|
dr_found: |
1295 |
|
lp++; |
1296 |
|
loc = (uintptr)lp - (uintptr)ROMBaseHost; |
1297 |
< |
if ((base = rom_powerpc_branch_target(loc)) == 0) base = ROM_BASE + loc; |
1297 |
> |
if ((base = rom_powerpc_branch_target(loc)) == 0) base = loc; |
1298 |
|
static const uint8 dr_ret_dat[] = {0x80, 0xbf, 0x08, 0x14, 0x53, 0x19, 0x4d, 0xac, 0x7c, 0xa8, 0x03, 0xa6}; |
1299 |
< |
if ((base = find_rom_data(base - ROM_BASE, 0x380000, dr_ret_dat, sizeof(dr_ret_dat))) == 0) return false; |
1299 |
> |
if ((base = find_rom_data(base, 0x380000, dr_ret_dat, sizeof(dr_ret_dat))) == 0) return false; |
1300 |
|
D(bug("dr_ret %08lx\n", base)); |
1301 |
|
if (base != loc) { |
1302 |
|
// OldWorld ROMs contain an absolute branch |
1410 |
|
*lp++ = htonl(POWERPC_NOP); |
1411 |
|
*lp = htonl(POWERPC_NOP); |
1412 |
|
|
1413 |
+ |
// Disable suspend (FE0F opcode) |
1414 |
+ |
// TODO: really suspend SheepShaver? |
1415 |
+ |
static const uint8 suspend_dat[] = {0x7c, 0x88, 0x68, 0x39, 0x41, 0x9d}; |
1416 |
+ |
if ((base = find_rom_data(0x315000, 0x316000, suspend_dat, sizeof(suspend_dat))) == 0) return false; |
1417 |
+ |
D(bug("suspend %08lx\n", base)); |
1418 |
+ |
lp = (uint32 *)(ROMBaseHost + base + 4); |
1419 |
+ |
*lp = htonl((ntohl(*lp) & 0xffff) | 0x48000000); // bgt -> b |
1420 |
+ |
|
1421 |
|
// Patch trap return routine |
1422 |
|
static const uint8 trap_return_dat[] = {0x80, 0xc1, 0x00, 0x18, 0x80, 0x21, 0x00, 0x04, 0x4c, 0x00, 0x00, 0x64}; |
1423 |
|
if ((base = find_rom_data(0x312000, 0x320000, trap_return_dat, sizeof(trap_return_dat))) == 0) return false; |
1437 |
|
*lp++ = htonl(0x91400000 + XLM_IRQ_NEST); // stw r10,XLM_IRQ_NEST |
1438 |
|
*lp = htonl(0x48000000 + ((npc - 0x31800c) & 0x03fffffc)); // b ROM_BASE+0x312c2c |
1439 |
|
|
1440 |
+ |
// Patch FEOA opcode, selector 0x0A (virtual->physical page index) |
1441 |
+ |
static const uint8 fe0a_0a_dat[] = {0x55, 0x23, 0xa3, 0x3e, 0x4b}; |
1442 |
+ |
if ((base = find_rom_data(0x314000, 0x318000, fe0a_0a_dat, sizeof(fe0a_0a_dat))) == 0) return false; |
1443 |
+ |
loc = rom_powerpc_branch_target(base - 8); |
1444 |
+ |
static const uint8 fe0a_dat[] = {0x7e, 0x04, 0x48, 0x40, 0x81, 0xe1, 0x06, 0xb0, 0x54, 0x88, 0x10, 0x3a, 0x40, 0x90}; |
1445 |
+ |
if (find_rom_data(loc, 0x318000, fe0a_dat, sizeof(fe0a_dat)) != loc) return false; |
1446 |
+ |
D(bug("fe0a_0a %08lx\n", base - 8)); |
1447 |
+ |
lp = (uint32 *)(ROMBaseHost + base - 8); |
1448 |
+ |
*lp++ = htonl(0x7c832378); // mr r3,r4 |
1449 |
+ |
*lp++ = htonl(POWERPC_NOP); |
1450 |
+ |
*lp = htonl(POWERPC_NOP); |
1451 |
+ |
|
1452 |
+ |
// Disable FE0A opcode, selector 0x11 (init page tables?) |
1453 |
+ |
static const uint8 fe0a_11_dat[] = {0x56, 0x07, 0x06, 0x74, 0x2c, 0x07, 0x00, 0x60, 0x40}; |
1454 |
+ |
if ((base = find_rom_data(0x314000, 0x318000, fe0a_11_dat, sizeof(fe0a_11_dat))) == 0) return false; |
1455 |
+ |
loc = rom_powerpc_branch_target(base - 4); |
1456 |
+ |
if (find_rom_data(0x314000, 0x318000, fe0a_dat, sizeof(fe0a_dat)) != loc) return false; |
1457 |
+ |
D(bug("fe0a_11 %08lx\n", base - 4)); |
1458 |
+ |
lp = (uint32 *)(ROMBaseHost + base - 4); |
1459 |
+ |
*lp++ = htonl(POWERPC_NOP); |
1460 |
+ |
*lp++ = htonl(POWERPC_NOP); |
1461 |
+ |
*lp++ = htonl(POWERPC_NOP); |
1462 |
+ |
*lp = htonl(ntohl(*lp) | 0x02800000); // bf => ba |
1463 |
+ |
|
1464 |
+ |
// Patch FE0A opcode to fake a page table entry so that V=P for RAM and ROM |
1465 |
+ |
static const uint8 pg_lookup_dat[] = {0x7e, 0x0f, 0x40, 0x6e, 0x81, 0xc1, 0x06, 0xa4, 0x7e, 0x00, 0x71, 0x20}; |
1466 |
+ |
if ((base = find_rom_data(0x310000, 0x320000, pg_lookup_dat, sizeof(pg_lookup_dat))) == 0) return false; |
1467 |
+ |
D(bug("fe0a_pgtb_lookup %08lx\n", base - 12)); |
1468 |
+ |
lp = (uint32 *)(ROM_BASE + base - 12); |
1469 |
+ |
if (ntohl(lp[0]) != 0x81e106b0) // lwz r15,$06b0(r1) |
1470 |
+ |
return false; |
1471 |
+ |
lp[0] = htonl(0x54906026); // slwi r16,r4,12 |
1472 |
+ |
lp[3] = htonl(0x62100121); // ori r16,r16,0x121 |
1473 |
+ |
|
1474 |
+ |
// Patch FE0A opcode to not write to kernel memory |
1475 |
+ |
static const uint8 krnl_write_dat[] = {0x38, 0xe0, 0x00, 0x01, 0x7e, 0x10, 0x38, 0x78, 0x92, 0x0f, 0x00, 0x00}; |
1476 |
+ |
if ((base = find_rom_data(0x310000, 0x320000, krnl_write_dat, sizeof(krnl_write_dat))) == 0) return false; |
1477 |
+ |
D(bug("fe0a_krnl_write %08lx\n", base)); |
1478 |
+ |
lp = (uint32 *)(ROM_BASE + base); |
1479 |
+ |
lp[2] = htonl(POWERPC_NOP); |
1480 |
+ |
|
1481 |
|
/* |
1482 |
|
// Disable FE0A/FE06 opcodes |
1483 |
|
lp = (uint32 *)(ROM_BASE + 0x3144ac); |
1754 |
|
static const uint8 ext_cache_dat[] = {0x4e, 0x7b, 0x00, 0x02}; |
1755 |
|
if ((base = find_rom_data(0x1d0, 0x230, ext_cache_dat, sizeof(ext_cache_dat))) == 0) return false; |
1756 |
|
D(bug("ext_cache %08lx\n", base)); |
1757 |
< |
lp = (uint32 *)(ROMBaseHost + base + 6); |
1758 |
< |
wp = (uint16 *)(ROMBaseHost + ntohl(*lp) + base + 6); |
1757 |
> |
loc = ReadMacInt32(ROM_BASE + base + 6); |
1758 |
> |
wp = (uint16 *)(ROMBaseHost + loc + base + 6); |
1759 |
|
*wp = htons(M68K_RTS); |
1760 |
< |
lp = (uint32 *)(ROMBaseHost + base + 12); |
1761 |
< |
wp = (uint16 *)(ROMBaseHost + ntohl(*lp) + base + 12); |
1760 |
> |
loc = ReadMacInt32(ROM_BASE + base + 12); |
1761 |
> |
wp = (uint16 *)(ROMBaseHost + loc + base + 12); |
1762 |
|
*wp = htons(M68K_RTS); |
1763 |
|
|
1764 |
|
// Fake CPU speed test (SetupTimeK) |
2040 |
|
*lp = htonl(0x38600000); // li r3,0 |
2041 |
|
} |
2042 |
|
|
2043 |
< |
// FIXME: Fake reading from [HpChk]+4 (the callchain reports some function from DriverServicesLib) |
2043 |
> |
// Don't read from MacPgm in WipeOutMACPGMINFOProcPtrs (StdCLib) |
2044 |
|
if (1) { |
2045 |
|
uint32 hpchk_offset = find_rom_resource(FOURCC('n','l','i','b'), 10); |
2046 |
|
static const uint8 hpchk_dat[] = {0x80, 0x80, 0x03, 0x16, 0x94, 0x21, 0xff, 0xb0, 0x83, 0xc4, 0x00, 0x04}; |
2047 |
|
if ((base = find_rom_data(hpchk_offset, hpchk_offset + 0x3000, hpchk_dat, sizeof(hpchk_dat))) == 0) return false; |
2048 |
< |
D(bug("hpchk %08lx\n", base)); |
2048 |
> |
D(bug("macpgm %08lx\n", base)); |
2049 |
|
lp = (uint32 *)(ROMBaseHost + base); |
2050 |
|
*lp = htonl(0x80800000 + XLM_ZERO_PAGE); // lwz r4,(zero page) |
2051 |
|
} |
2303 |
|
*wp++ = htons(M68K_JMP); |
2304 |
|
*wp++ = htons((ROM_BASE + put_scrap) >> 16); |
2305 |
|
*wp++ = htons((ROM_BASE + put_scrap) & 0xffff); |
2306 |
< |
lp = (uint32 *)(ROMBaseHost + 0x22); |
2307 |
< |
lp = (uint32 *)(ROMBaseHost + ntohl(*lp)); |
2231 |
< |
lp[0xa9fe & 0x3ff] = htonl(PUT_SCRAP_PATCH_SPACE); |
2306 |
> |
base = ROM_BASE + ReadMacInt32(ROM_BASE + 0x22); |
2307 |
> |
WriteMacInt32(base + 4 * (0xa9fe & 0x3ff), PUT_SCRAP_PATCH_SPACE); |
2308 |
|
|
2309 |
|
// Patch GetScrap() for clipboard exchange with host OS |
2310 |
|
uint32 get_scrap = find_rom_trap(0xa9fd); // GetScrap() |
2313 |
|
*wp++ = htons(M68K_JMP); |
2314 |
|
*wp++ = htons((ROM_BASE + get_scrap) >> 16); |
2315 |
|
*wp++ = htons((ROM_BASE + get_scrap) & 0xffff); |
2316 |
< |
lp = (uint32 *)(ROMBaseHost + 0x22); |
2317 |
< |
lp = (uint32 *)(ROMBaseHost + ntohl(*lp)); |
2242 |
< |
lp[0xa9fd & 0x3ff] = htonl(GET_SCRAP_PATCH_SPACE); |
2316 |
> |
base = ROM_BASE + ReadMacInt32(ROM_BASE + 0x22); |
2317 |
> |
WriteMacInt32(base + 4 * (0xa9fd & 0x3ff), GET_SCRAP_PATCH_SPACE); |
2318 |
|
|
2319 |
|
// Patch SynchIdleTime() |
2320 |
|
if (PrefsFindBool("idlewait")) { |
2381 |
|
SheepArray<SIZEOF_IOParam> pb_var; |
2382 |
|
const uintptr pb = pb_var.addr(); |
2383 |
|
|
2384 |
+ |
#if DISABLE_SCSI |
2385 |
+ |
// Setup fake SCSI Globals |
2386 |
+ |
r.d[0] = 0x1000; |
2387 |
+ |
Execute68kTrap(0xa71e, &r); // NewPtrSysClear() |
2388 |
+ |
uint32 scsi_globals = r.a[0]; |
2389 |
+ |
D(bug("Fake SCSI globals at %08lx\n", scsi_globals)); |
2390 |
+ |
WriteMacInt32(0xc0c, scsi_globals); // Set SCSIGlobals |
2391 |
+ |
#endif |
2392 |
+ |
|
2393 |
|
// Install floppy driver |
2394 |
|
if (ROMType == ROMTYPE_NEWWORLD || ROMType == ROMTYPE_GOSSAMER) { |
2395 |
|
|
2404 |
|
WriteMacInt16(dce + dCtlFlags, SonyDriverFlags); |
2405 |
|
} |
2406 |
|
|
2323 |
– |
#if DISABLE_SCSI && HAVE_SIGSEGV_SKIP_INSTRUCTION |
2324 |
– |
// Fake SCSIGlobals |
2325 |
– |
WriteMacInt32(0xc0c, SheepMem::ZeroPage()); |
2326 |
– |
#endif |
2327 |
– |
|
2407 |
|
// Open .Sony driver |
2408 |
|
SheepString sony_str("\005.Sony"); |
2409 |
|
WriteMacInt8(pb + ioPermssn, 0); |