Fixed System 7.5 bug

This commit is contained in:
Zane Kaminski 2020-07-11 22:41:51 -04:00
parent dd24df4f34
commit 772bdd2881
8 changed files with 225 additions and 187 deletions

View File

@ -25,7 +25,7 @@ obj/entry_rel.sym: obj obj/entry.o
obj/rdisk.o: rdisk.c obj obj/rdisk.o: rdisk.c obj
$(CC) -c -O1 $< -o $@ $(CC) -c -Os $< -o $@
obj/rdisk.s: obj obj/rdisk.o obj/rdisk.s: obj obj/rdisk.o
$(OBJDUMP) -d obj/rdisk.o > $@ $(OBJDUMP) -d obj/rdisk.o > $@

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -56,11 +56,5 @@ ImmedRTS:
rts rts
Queued: Queued:
tst.w %D0
ble.b MyIODone
clr.w %D0
rts
MyIODone:
move.l JIODone, -(%SP) move.l JIODone, -(%SP)
rts rts

378
rdisk.c
View File

@ -8,7 +8,90 @@
#include "rdisk.h" #include "rdisk.h"
const char RDiskIcon[285] = { #ifdef RDISK_COMPRESS_ICON
#include <Quickdraw.h>
const char const RDiskIconCompressed[92] = {
-1 * (80 - 1), 0b00000000, /*
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000, */
-1 * (4 - 1), 0b11111111, /*
0b11111111, 0b11111111, 0b11111111, 0b11111111, */
(40 - 1),
0b11111111, 0b11111111, 0b11111111, 0b11111111,
0b10000000, 0b00000000, 0b00000000, 0b00000001,
0b10001111, 0b00011110, 0b00111100, 0b01111001,
0b10001001, 0b00010010, 0b00100100, 0b01001001,
0b10001001, 0b00010010, 0b00100100, 0b01001001,
0b10001001, 0b00010010, 0b00100100, 0b01001001,
0b10001111, 0b00011110, 0b00111100, 0b01111001,
0b11000000, 0b00000000, 0b00000000, 0b00000001,
0b01010101, 0b01010101, 0b11010101, 0b01010101,
0b01111111, 0b11111111, 0b01111111, 0b11111111,
-1 * (8 - 1), 0b00000000, /*
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000, */
-1 * (80 - 1), 0b00000000, /*
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000, */
-1 * (32 - 1), 0b11111111, /*
0b11111111, 0b11111111, 0b11111111, 0b11111111,
0b11111111, 0b11111111, 0b11111111, 0b11111111,
0b11111111, 0b11111111, 0b11111111, 0b11111111,
0b11111111, 0b11111111, 0b11111111, 0b11111111,
0b11111111, 0b11111111, 0b11111111, 0b11111111,
0b11111111, 0b11111111, 0b11111111, 0b11111111,
0b11111111, 0b11111111, 0b11111111, 0b11111111,
0b11111111, 0b11111111, 0b11111111, 0b11111111, */
(8 - 1),
0b01111111, 0b11111111, 0b11111111, 0b11111111,
0b01111111, 0b11111111, 0b11111111, 0b11111111,
-1 * (8 - 1), 0b00000000, /*
0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000, */
(29 - 1),
27, 'G', 'a', 'r', 'r', 'e', 't', 't', '\'', 's', ' ',
'W', 'o', 'r', 'k', 's', 'h', 'o', 'p', ' ',
'R', 'O', 'M', ' ', 'D', 'i', 's', 'k', 0
};
#else
const char const RDiskIcon[285] = {
// Icon // Icon
0b00000000, 0b00000000, 0b00000000, 0b00000000, 0b00000000, 0b00000000, 0b00000000, 0b00000000,
0b00000000, 0b00000000, 0b00000000, 0b00000000, 0b00000000, 0b00000000, 0b00000000, 0b00000000,
@ -79,35 +162,38 @@ const char RDiskIcon[285] = {
'W', 'o', 'r', 'k', 's', 'h', 'o', 'p', ' ', 'W', 'o', 'r', 'k', 's', 'h', 'o', 'p', ' ',
'R', 'O', 'M', ' ', 'D', 'i', 's', 'k', 0 'R', 'O', 'M', ' ', 'D', 'i', 's', 'k', 0
}; };
#endif
static void RDiskDecodeSettings(RDiskStorage_t *c, char *enable, char* boot, char* mount, char* ram) { static void RDiskDecodeSettings(RDiskStorage_t *c, Ptr unmount, Ptr mount, Ptr ram) {
char rKey, aKey, legacy_startup, legacy_ram;
// Read PRAM and keys
RDiskReadXPRAM(1, 4, &legacy_startup);
RDiskReadXPRAM(1, 5, &legacy_ram);
rKey = RDiskIsRPressed();
aKey = RDiskIsAPressed();
// Decode settings // Decode settings
if (c->postBoot) { if (c->postBoot) {
*enable = 1; *unmount = 0;
*boot = 1; // Boot set so first access works
*mount = 1; *mount = 1;
*ram = 0; *ram = 0;
} else if (rKey) { // R boots from ROM disk } else if (RDiskIsRPressed()) { // R boots from ROM disk
*enable = 1; *unmount = 0;
*boot = 1;
*mount = 0; *mount = 0;
*ram = aKey; // A enables RAM disk *ram = RDiskIsAPressed(); // A enables RAM disk
} else if (legacy_startup) {
*enable = 1;
*boot = (legacy_startup & 0xFD) && (legacy_startup != 0xFD);
*mount = !*boot && legacy_startup & 0x02;
*ram = legacy_ram;
} else { } else {
*enable = 0; // Read PRAM
*boot = 0; char legacy_startup, legacy_ram;
*mount = 0; RDiskReadXPRAM(1, 4, &legacy_startup);
*ram = 0; RDiskReadXPRAM(1, 5, &legacy_ram);
if (legacy_startup == 1) {
*unmount = 0;
*mount = 0;
*ram = legacy_ram;
} else if (legacy_startup == 2 || legacy_startup == 3 ||
legacy_startup == 4 || legacy_startup == 5 ||
legacy_startup == 6 || legacy_startup == 7) {
*unmount = 1;
*mount = 1;
*ram = legacy_ram & 1;
} else {
*unmount = 1;
*mount = 0;
*ram = 0;
}
} }
} }
@ -119,91 +205,72 @@ void RDiskCopy24(Ptr sourcePtr, Ptr destPtr, unsigned long byteCount) {
SwapMMUMode(&mode); SwapMMUMode(&mode);
} }
// Figure out the first available drive number >= 5
static int RDiskFindDrvNum() {
DrvQElPtr dq;
int drvNum = 5;
for (dq = (DrvQElPtr)(GetDrvQHdr())->qHead; dq; dq = (DrvQElPtr)dq->qLink) {
if (dq->dQDrive >= drvNum) { drvNum = dq->dQDrive + 1; }
}
return drvNum;
}
#pragma parameter __D0 RDiskOpen(__A0, __A1) #pragma parameter __D0 RDiskOpen(__A0, __A1)
OSErr RDiskOpen(IOParamPtr p, DCtlPtr d) { OSErr RDiskOpen(IOParamPtr p, DCtlPtr d) {
DrvQElPtr dq;
int drvNum; int drvNum;
Ptr copy24;
RDiskStorage_t *c; RDiskStorage_t *c;
char legacy_startup, legacy_ram;
// Do nothing if already opened // Do nothing if already opened
if (d->dCtlStorage) { return noErr; } if (d->dCtlStorage) { return noErr; }
// Figure out first available drive number
drvNum = 1;
for (dq = (DrvQElPtr)(GetDrvQHdr())->qHead; dq; dq = (DrvQElPtr)dq->qLink) {
if (dq->dQDrive >= drvNum) { drvNum = dq->dQDrive + 1; }
}
// Allocate storage struct // Allocate storage struct
d->dCtlStorage = NewHandleSysClear(sizeof(RDiskStorage_t)); d->dCtlStorage = NewHandleSysClear(sizeof(RDiskStorage_t));
if (!d->dCtlStorage) { return openErr; } if (!d->dCtlStorage) { return openErr; }
// Allocate copy function buffer and copy RDiskCopy24 to it
copy24 = NewPtrSys(64);
if (!copy24) { DisposeHandle(d->dCtlStorage); return openErr; }
BlockMove(&RDiskCopy24, copy24, 64);
// Lock our storage struct and get master pointer // Lock our storage struct and get master pointer
HLock(d->dCtlStorage); HLock(d->dCtlStorage);
c = *(RDiskStorage_t**)d->dCtlStorage; c = *(RDiskStorage_t**)d->dCtlStorage;
// Initialize storage struct fields // Find first available drive number
//c->initialized = 0; drvNum = RDiskFindDrvNum();
//c->removed = 0;
//c->postBoot = 0;
//c->ramdisk = NULL;
c->copy24 = (RDiskCopy_t)copy24;
// Set drive status // Set drive status
c->status.writeProt = -1; c->status.track = 0;
c->status.diskInPlace = 8; // 8 means nonejectable disk c->status.writeProt = -1; // nonzero is write protected
c->status.diskInPlace = 8; // 8 is nonejectable disk
c->status.installed = 1; // drive installed
c->status.sides = 0; // drive installed
c->status.qType = 1;
c->status.dQDrive = drvNum; c->status.dQDrive = drvNum;
c->status.dQFSID = 0;
c->status.dQRefNum = d->dCtlRefNum; c->status.dQRefNum = d->dCtlRefNum;
c->status.driveSize = RDiskSize / 512; c->status.driveSize = RDiskSize / 512;
c->status.driveS1 = (RDiskSize / 512) >> 16; c->status.driveS1 = (RDiskSize / 512) >> 16;
// Set driver flags #ifdef RDISK_COMPRESS_ICON
/*d->dCtlFlags |= dReadEnableMask | dWritEnableMask | // Decompress icon
dCtlEnableMask | dStatEnableMask | char *src = &RDiskIconCompressed[0];
dNeedLockMask;*/ // 0x4F char *dst = &c->icon[0];
UnpackBits(&src, &dst, 285);
#endif
// Add drive to drive queue and return // Add drive to drive queue and return
RDiskAddDrive(c->status.dQRefNum, drvNum, (DrvQElPtr)&c->status.qLink); RDiskAddDrive(c->status.dQRefNum, drvNum, (DrvQElPtr)&c->status.qLink);
return noErr; return noErr;
} }
static OSErr RDiskInit(IOParamPtr p, DCtlPtr d, RDiskStorage_t *c) { static void RDiskInit(IOParamPtr p, DCtlPtr d, RDiskStorage_t *c) {
char rdiskEN, mountEN, bootEN, ramEN; char unmountEN, mountEN, ramEN;
// Mark init done // Mark init done
c->initialized = 1; c->initialized = 1;
// Decode settings // Decode settings
RDiskDecodeSettings(c, &rdiskEN, &bootEN, &mountEN, &ramEN); RDiskDecodeSettings(c, &unmountEN, &mountEN, &ramEN);
// If ROM disk not enabled, remove drive from drive queue // If RAM disk enabled, try to allocate RAM disk buffer if not already
if (!rdiskEN) { if (ramEN & !c->ramdisk) {
QHdrPtr head = GetDrvQHdr();
DrvQElPtr dq = (DrvQElPtr)head->qHead;
// Remove our drive from the system drive queue
// Loop through entire drive queue, searching for our deive
while ((dq != (DrvQElPtr)(head->qTail)) &&
(dq->dQRefNum != d->dCtlRefNum)) {
dq = (DrvQElPtr)(dq->qLink);
}
// If we found our drive, remove it from the queue
if (dq->dQRefNum == d->dCtlRefNum) {
Dequeue((QElemPtr)dq, head);
}
// Mark drive removed and offline
c->removed = 1;
c->status.diskInPlace = 0; // 0 means no disk in drive
return offLinErr;
}
// If RAM disk enabled, try to allocate RAM disk buffer
if (ramEN) {
if (*MMU32bit) { // 32-bit mode if (*MMU32bit) { // 32-bit mode
unsigned long minBufPtr, newBufPtr; unsigned long minBufPtr, newBufPtr;
// Compute if there is enough high memory // Compute if there is enough high memory
@ -220,11 +287,12 @@ static OSErr RDiskInit(IOParamPtr p, DCtlPtr d, RDiskStorage_t *c) {
c->status.writeProt = 0; c->status.writeProt = 0;
} }
} else { // 24-bit mode } else { // 24-bit mode
// Get address of copy24 routine
RDiskCopy_t copy24 = (RDiskCopy_t)RDiskCopy24;
// Put RAM disk just past 8MB // Put RAM disk just past 8MB
c->ramdisk = (char*)(8 * 1024 * 1024); c->ramdisk = (Ptr)(8 * 1024 * 1024);
// Copy ROM disk image to RAM disk // Copy ROM disk image to RAM disk
((RDiskCopy_t)StripAddress(c->copy24))( copy24(RDiskBuf, c->ramdisk, RDiskSize);
RDiskBuf, StripAddress(c->ramdisk), RDiskSize);
// Clearing write protect marks RAM disk enabled // Clearing write protect marks RAM disk enabled
c->status.writeProt = 0; c->status.writeProt = 0;
//FIXME: what if we don't have enough RAM? //FIXME: what if we don't have enough RAM?
@ -234,133 +302,125 @@ static OSErr RDiskInit(IOParamPtr p, DCtlPtr d, RDiskStorage_t *c) {
} }
} }
// If boot disabled... // Unmount if not booting from ROM disk
if (!bootEN) { if (unmountEN) {
// Set drive offline c->status.diskInPlace = 0; // 0 == no disk in drive
c->status.diskInPlace = 0; // 0 means no disk in drive
// Enable accRun to post disk inserted event if mount enabled
if (mountEN) {
d->dCtlDelay = 150;
d->dCtlFlags |= dNeedTimeMask;
}
return offLinErr;
} }
return noErr; // If mount enabled, enable accRun to post disk inserted event later
if (mountEN) {
d->dCtlFlags |= dNeedTimeMask; // Enable accRun
d->dCtlDelay = 150; // Set accRun delay (150 ticks is 2.5 sec.)
}
} }
#pragma parameter __D0 RDiskPrime(__A0, __A1) #pragma parameter __D0 RDiskPrime(__A0, __A1)
OSErr RDiskPrime(IOParamPtr p, DCtlPtr d) { OSErr RDiskPrime(IOParamPtr p, DCtlPtr d) {
RDiskStorage_t *c; RDiskStorage_t *c;
char cmd; char cmd;
char *disk; Ptr disk;
long offset;
// Return disk offline error if dCtlStorage null // Return disk offline error if dCtlStorage null
if (!d->dCtlStorage) { return offLinErr; } if (!d->dCtlStorage) { return notOpenErr; }
// Dereference dCtlStorage to get pointer to our context // Dereference dCtlStorage to get pointer to our context
c = *(RDiskStorage_t**)d->dCtlStorage; c = *(RDiskStorage_t**)d->dCtlStorage;
// Initialize if this is the first prime call
if (!c->initialized) { RDiskInit(p, d, c); }
// Return disk offline error if virtual disk not inserted // Return disk offline error if virtual disk not inserted
if (!c->status.diskInPlace) { return offLinErr; } if (!c->status.diskInPlace) { return offLinErr; }
// Initialize if this is the first prime call
if (!c->initialized) {
OSErr ret = RDiskInit(p, d, c);
if (ret != noErr) { return ret; }
}
// Get pointer to RAM or ROM disk buffer // Get pointer to RAM or ROM disk buffer
disk = c->ramdisk ? c->ramdisk : RDiskBuf; disk = (c->ramdisk ? c->ramdisk : RDiskBuf) + d->dCtlPosition;
// Add offset to buffer pointer according to positioning mode // Bounds checking
switch (p->ioPosMode & 0x000F) { if (d->dCtlPosition >= RDiskSize || p->ioReqCount >= RDiskSize ||
case fsAtMark: offset = d->dCtlPosition; break; d->dCtlPosition + p->ioReqCount >= RDiskSize) { return paramErr; }
case fsFromStart: offset = p->ioPosOffset; break;
case fsFromMark: offset = d->dCtlPosition + p->ioPosOffset; break;
default: break;
}
disk += offset;
// Bounds checking disabled
if (offset >= RDiskSize || p->ioReqCount >= RDiskSize ||
offset + p->ioReqCount >= RDiskSize) { return posErr; }
// Service read or write request // Service read or write request
cmd = p->ioTrap & 0x00FF; cmd = p->ioTrap & 0x00FF;
if (cmd == aRdCmd) { // Read if (cmd == aRdCmd) { // Read
// Return immediately if verify operation requested
//FIXME: follow either old (verify) or new (read uncached) convention
if (p->ioPosMode & rdVerifyMask) {
return noErr;
}
// Read from disk into buffer. // Read from disk into buffer.
if (*MMU32bit) { BlockMove(disk, p->ioBuffer, p->ioReqCount); } if (*MMU32bit) { BlockMove(disk, p->ioBuffer, p->ioReqCount); }
else { else {
((RDiskCopy_t)StripAddress(c->copy24))( // Get address of copy24 routine and then copy
disk, StripAddress(p->ioBuffer), p->ioReqCount); RDiskCopy_t copy24 = (RDiskCopy_t)RDiskCopy24;
copy24(disk, StripAddress(p->ioBuffer), p->ioReqCount);
} }
// Update count
p->ioActCount = p->ioReqCount;
d->dCtlPosition = offset + p->ioReqCount;
p->ioPosOffset = d->dCtlPosition;
return noErr;
} else if (cmd == aWrCmd) { // Write } else if (cmd == aWrCmd) { // Write
// Fail if write protected or RAM disk buffer not set up // Fail if write protected or RAM disk buffer not set up
if (c->status.writeProt || !c->ramdisk) { return wPrErr; } if (c->status.writeProt || !c->ramdisk) { return wPrErr; }
// Write from buffer into disk. // Write from buffer into disk.
if (*MMU32bit) { BlockMove(p->ioBuffer, disk, p->ioReqCount); } if (*MMU32bit) { BlockMove(p->ioBuffer, disk, p->ioReqCount); }
else { else {
((RDiskCopy_t)StripAddress(c->copy24))( // Get address of copy24 routine and then copy
StripAddress(p->ioBuffer), disk, p->ioReqCount); RDiskCopy_t copy24 = (RDiskCopy_t)RDiskCopy24;
copy24(StripAddress(p->ioBuffer), disk, p->ioReqCount);
} }
// Update count and position/offset } else { return noErr; } //FIXME: Fail if cmd isn't read or write?
p->ioActCount = p->ioReqCount;
d->dCtlPosition = offset + p->ioReqCount; // Update count and position/offset, then return
p->ioPosOffset = d->dCtlPosition; d->dCtlPosition += p->ioReqCount;
return noErr; p->ioActCount = p->ioReqCount;
} else { return noErr; } return noErr;
//FIXME: Should we fail if cmd isn't read or write?
} }
#pragma parameter __D0 RDiskControl(__A0, __A1) #pragma parameter __D0 RDiskControl(__A0, __A1)
OSErr RDiskControl(CntrlParamPtr p, DCtlPtr d) { OSErr RDiskControl(CntrlParamPtr p, DCtlPtr d) {
RDiskStorage_t *c; RDiskStorage_t *c;
// Fail if dCtlStorage null // Fail if dCtlStorage null
if (!d->dCtlStorage) { return controlErr; } if (!d->dCtlStorage) { return notOpenErr; }
// Dereference dCtlStorage to get pointer to our context // Dereference dCtlStorage to get pointer to our context
c = *(RDiskStorage_t**)d->dCtlStorage; c = *(RDiskStorage_t**)d->dCtlStorage;
// Handle control request based on csCode // Handle control request based on csCode
switch (p->csCode) { switch (p->csCode) {
case 6: // Format case kFormat:
if (!c->status.diskInPlace || c->status.writeProt || !c->ramdisk) { if (!c->status.diskInPlace || c->status.writeProt || !c->ramdisk) {
return controlErr; return controlErr;
} else { }
char zero[64]; long zero[16];
for (int i = 0; i < sizeof(zero); i++) { zero[i] = 0; } zero[0] = 0;
for (int i = 0; i < RDiskSize / 64; i++) { for (int i = 0; i < 256; i++) {
if (*MMU32bit) { BlockMove(zero, c->ramdisk, sizeof(zero)); } if (*MMU32bit) { BlockMove(zero, c->ramdisk, sizeof(zero)); }
else { else {
((RDiskCopy_t)StripAddress(c->copy24))( // Get address of copy24 routine and then copy
StripAddress(zero), c->ramdisk, sizeof(zero)); RDiskCopy_t copy24 = (RDiskCopy_t)RDiskCopy24;
} copy24((Ptr)zero, c->ramdisk, sizeof(zero));
} }
} }
return noErr; return noErr;
case 5: // Verify (after format) case kVerify:
if (!c->status.diskInPlace || c->status.writeProt || !c->ramdisk) { if (!c->status.diskInPlace) { return controlErr; }
return controlErr; return noErr;
} else { return noErr; } case killCode:
return noErr;
case kEject:
// "Reinsert" disk if ejected illegally
if (c->installed) { PostEvent(diskEvt, c->status.dQDrive); }
return controlErr; // Eject not allowed so return error
case accRun: case accRun:
// Disable accRun d->dCtlFlags &= ~dNeedTimeMask; // Disable accRun
d->dCtlFlags &= ~dNeedTimeMask; c->status.diskInPlace = 8; // 8 is nonejectable disk
// If drive present in drive queue, set drive online PostEvent(diskEvt, c->status.dQDrive); // Post disk inserted event
if (!c->removed) {
c->status.diskInPlace = 8; // 8 means nonejectable disk
PostEvent(diskEvt, c->status.dQDrive);
}
return noErr; return noErr;
case 21: case 22: // Get icon case kDriveIcon: case kMediaIcon: // Get icon
*(Ptr*)&p->csParam = (Ptr)&RDiskIcon; #ifdef RDISK_COMPRESS_ICON
*(Ptr*)p->csParam = (Ptr)c->icon;
#else
*(Ptr*)p->csParam = (Ptr)RDiskIcon;
#endif
return noErr; return noErr;
case 128: case kDriveInfo:
// high word (bytes 2 & 3) clear
// byte 1 = primary + fixed media + internal
// byte 0 = drive type (0x10 is RAM disk) / (0x11 is ROM disk)
if (c->status.writeProt) { *(long*)p->csParam = 0x00000410; }
else { *(long*)p->csParam = 0x00000411; }
return noErr;
case 24: // Return SCSI partition size
*(long*)p->csParam = RDiskSize / 512;
return noErr;
case 2351: // Enable post-boot mode
c->postBoot = 1; c->postBoot = 1;
return noErr; return noErr;
default: return controlErr; default: return controlErr;
@ -371,17 +431,14 @@ OSErr RDiskControl(CntrlParamPtr p, DCtlPtr d) {
OSErr RDiskStatus(CntrlParamPtr p, DCtlPtr d) { OSErr RDiskStatus(CntrlParamPtr p, DCtlPtr d) {
RDiskStorage_t *c; RDiskStorage_t *c;
// Fail if dCtlStorage null // Fail if dCtlStorage null
if (!d->dCtlStorage) { return statusErr; } if (!d->dCtlStorage) { return notOpenErr; }
// Dereference dCtlStorage to get pointer to our context // Dereference dCtlStorage to get pointer to our context
c = *(RDiskStorage_t**)d->dCtlStorage; c = *(RDiskStorage_t**)d->dCtlStorage;
// Handle status request based on csCode // Handle status request based on csCode
switch (p->csCode) { switch (p->csCode) {
case drvStsCode: case kDriveStatus:
BlockMove(*d->dCtlStorage, &p->csParam, sizeof(DrvSts2)); BlockMove(*d->dCtlStorage, &p->csParam, sizeof(DrvSts2));
return noErr; return noErr;
case 128: // Get size
*((long*)p->csParam) = RDiskSize;
return noErr;
default: return statusErr; default: return statusErr;
} }
} }
@ -391,7 +448,6 @@ OSErr RDiskClose(IOParamPtr p, DCtlPtr d) {
// If dCtlStorage not null, dispose of it and its contents // If dCtlStorage not null, dispose of it and its contents
if (!d->dCtlStorage) { return noErr; } if (!d->dCtlStorage) { return noErr; }
RDiskStorage_t *c = *(RDiskStorage_t**)d->dCtlStorage; RDiskStorage_t *c = *(RDiskStorage_t**)d->dCtlStorage;
if (c->copy24) { DisposePtr((Ptr)c->copy24); }
HUnlock(d->dCtlStorage); HUnlock(d->dCtlStorage);
DisposeHandle(d->dCtlStorage); DisposeHandle(d->dCtlStorage);
d->dCtlStorage = NULL; d->dCtlStorage = NULL;

26
rdisk.h
View File

@ -35,31 +35,19 @@ void RDiskBreak() = { 0xA9FF };
typedef void (*RDiskCopy_t)(Ptr, Ptr, unsigned long); typedef void (*RDiskCopy_t)(Ptr, Ptr, unsigned long);
//#define RDISK_COMPRESS_ICON
typedef struct RDiskStorage_s { typedef struct RDiskStorage_s {
DrvSts2 status; DrvSts2 status;
char initialized; char initialized;
char removed; char installed;
char postBoot;
char *ramdisk;
RDiskCopy_t copy24;
} RDiskStorage_t;
/*
typedef void (*RDiskCopy_t)(Ptr, Ptr, unsigned long);
typedef void (*RDiskFormat_t)(Ptr);
typedef struct RDiskStorage_s {
DrvSts2 status;
char initialized;
char removed;
char postBoot; char postBoot;
Ptr ramdisk; Ptr ramdisk;
char copy24[64] __attribute__ ((aligned (4))) ; #ifdef RDISK_COMPRESS_ICON
char format24[64] __attribute__ ((aligned (4))) ; char icon[285];
#endif
} RDiskStorage_t; } RDiskStorage_t;
*/ #define PackBits_Repeat(count) ((-1) * (count - 1))
#define PackBits_Literal(count) (count - 1)
#endif #endif