/* * Copyright (c) 2013, Kelvin W Sherlock * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions are met: * * 1. Redistributions of source code must retain the above copyright notice, this * list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright notice, * this list of conditions and the following disclaimer in the documentation * and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * */ #include #include #include #include #include #include #include #include #include #include #include #include "toolbox.h" #include "loader.h" #include "mm.h" #include "os.h" #include "packages.h" #include "process.h" #include "qd.h" #include "rm.h" #include "sane.h" #include "stackframe.h" #include "utility.h" #include "debug.h" // yuck. TST.W d0 extern "C" void cpuSetFlagsNZ00NewW(uint16_t res); namespace ToolBox { bool Trace = false; #ifdef OLD_TRAP_DISPATCH uint16_t OSDispatch(uint16_t trap) { uint16_t selector; StackFrame<2>(selector); Log("%04x OSDispatch(%04x)\n", trap, selector); switch(selector) { case 0x0015: return MM::TempMaxMem(); case 0x0018: return MM::TempFreeMem(); case 0x001d: return MM::TempNewHandle(); case 0x001e: return MM::TempHLock(); case 0x001f: return MM::TempHUnlock(); case 0x0020: return MM::TempDisposeHandle(); case 0x0037: return Process::GetCurrentProcess(); case 0x003a: return Process::GetProcessInformation(); default: fprintf(stderr, "OSDispatch: selector %04x not implemented\n", selector); exit(1); } } void dispatch(uint16_t trap) { uint32_t d0 = 0; switch (trap) { case 0xa000: // Open case 0xa200: // HOpen d0 = OS::Open(trap); break; case 0xa00a: // OpenRF case 0xa20a: // HOpenRF d0 = OS::OpenRF(trap); break; case 0xa001: d0 = OS::Close(trap); break; case 0xa002: d0 = OS::Read(trap); break; case 0xa003: d0 = OS::Write(trap); break; case 0xa207: d0 = OS::HGetVInfo(trap); break; case 0xa008: // Create case 0xa208: // HCreate d0 = OS::Create(trap); break; case 0xa009: // Delete case 0xa209: // HDelete d0 = OS::Delete(trap); break; case 0xa00c: // GetFInfo case 0xa20c: // HGetFInfo d0 = OS::GetFileInfo(trap); break; case 0xa00d: // SetFileInfo case 0xa20d: // HSetFileInfo d0 = OS::SetFileInfo(trap); break; case 0xa011: d0 = OS::GetEOF(trap); break; case 0xa012: d0 = OS::SetEOF(trap); break; case 0xa013: d0 = OS::FlushVol(trap); break; case 0xa014: d0 = OS::GetVol(trap); break; case 0xa214: d0 = OS::HGetVol(trap); break; case 0xa015: // SetVol d0 = OS::SetVol(trap); break; case 0xa215: // HSetVol d0 = OS::HSetVol(trap); break; case 0xa018: d0 = OS::GetFPos(trap); break; case 0xa044: d0 = OS::SetFPos(trap); break; // _RelString [,MARKS, CASE] case 0xa050: case 0xa250: case 0xa450: case 0xa650: d0 = OS::RelString(trap); break; case 0xa051: d0 = OS::ReadXPRam(trap); break; case 0xa060: d0 = OS::FSDispatch(trap); break; case 0xa260: d0 = OS::HFSDispatch(trap); break; case 0xaa52: d0 = OS::HighLevelHFSDispatch(trap); break; case 0xA746: d0 = OS::GetToolTrapAddress(trap); break; case 0xa647: d0 = OS::SetToolTrapAddress(trap); break; case 0xA346: d0 = OS::GetOSTrapAddress(trap); break; case 0xa247: d0 = OS::SetOSTrapAddress(trap); break; case 0xA823: d0 = OS::AliasDispatch(trap); break; case 0xA1AD: d0 = OS::Gestalt(trap); break; case 0xa090: d0 = OS::SysEnvirons(trap); break; // SetPtrSize (p: Ptr; newSize: Size); case 0xa020: d0 = MM::SetPtrSize(trap); break; // GetPtrSize (p: Ptr) : Size case 0xa021: d0 = MM::GetPtrSize(trap); break; case 0xA023: d0 = MM::DisposeHandle(trap); break; case 0xa024: d0 = MM::SetHandleSize(trap); break; case 0xa025: d0 = MM::GetHandleSize(trap); break; case 0xa029: d0 = MM::HLock(trap); break; case 0xa02a: d0 = MM::HUnlock(trap); break; case 0xa02d: d0 = MM::SetApplLimit(trap); break; // BlockMove (sourcePtr,destPtr: Ptr; byteCount: Size); case 0xa02e: // BlockMove case 0xa22e: // BlockMoveData d0 = MM::BlockMove(trap); break; case 0xa049: d0 = MM::HPurge(trap); break; case 0xa04a: d0 = MM::HNoPurge(trap); break; case 0xA11D: d0 = MM::MaxMem(trap); break; case 0xA01C: d0 = MM::FreeMem(trap); break; // CompactMem (cbNeeded: Size) : Size; case 0xa04c: d0 = MM::CompactMem(trap); break; case 0xa040: d0 = MM::ReserveMem(trap); break; case 0xa055: d0 = MM::StripAddress(trap); break; case 0xa061: d0 = MM::MaxBlock(trap); break; case 0xa069: d0 = MM::HGetState(trap); break; case 0xa06a: d0 = MM::HSetState(trap); break; // MoveHHi (h: Handle); case 0xa064: d0 = MM::MoveHHi(trap); break; case 0xa9e1: d0 = MM::HandToHand(trap); break; case 0xa9e3: d0 = MM::PtrToHand(trap); break; case 0xa9ef: d0 = MM::PtrAndHand(trap); break; case 0xa11a: d0 = MM::GetZone(trap); break; case 0xa01b: d0 = MM::SetZone(trap); break; case 0xa126: d0 = MM::HandleZone(trap); break; case 0xa128: d0 = MM::RecoverHandle(trap); break; // MaxApplZone case 0xa063: d0 = MM::MaxApplZone(trap); break; case 0xa162: d0 = MM::PurgeSpace(trap); break; // ReadDateTime (VAR sees: LONGINT) : OSErr; case 0xa039: d0 = OS::ReadDateTime(trap); break; // SecondsToDate (s: LongInt; VAR d: DateTimeRec); case 0xa9c6: d0 = OS::SecondsToDate(trap); break; // TickCount : LONGINT; case 0xa975: d0 = OS::TickCount(trap); break; case 0xa193: d0 = OS::Microseconds(trap); break; case 0xa9ed: d0 = Packages::Pack6(trap); break; //_CmpString [MARKS,CASE] case 0xa03c: case 0xa23c: case 0xa43c: case 0xa63c: d0 = OS::CmpString(trap); break; // NewPtr [Sys, Clear] (logicalSize: Size): Ptr; case 0xa11e: case 0xa31e: case 0xa51e: case 0xa71e: // clear = bit 9, sys = bit 10 d0 = MM::NewPtr(trap); break; // DisposPtr (p: Ptr); case 0xa01f: d0 = MM::DisposePtr(trap); break; case 0xa065: d0 = MM::StackSpace(trap); break; // NewHandle (logicalSize: Size) : Handle; case 0xA122: case 0xa322: d0 = MM::NewHandle(trap); break; case 0xA027: d0 = MM::ReallocHandle(trap); break; case 0xA02B: d0 = MM::EmptyHandle(trap); break; case 0xa058: d0 = OS::InsTime(trap); break; case 0xa059: d0 = OS::RmvTime(trap); break; case 0xa05a: d0 = OS::PrimeTime(trap); break; case 0xA0BD: d0 = OS::FlushCodeCache(trap); break; case 0xA098: case 0xA198: // don't save a0 d0 = OS::HWPriv(trap); break; // resource manager stuff. // Count1Resources (theType: ResType): Integer; case 0xa80d: d0 = RM::Count1Resources(trap); break; case 0xa80e: d0 = RM::Get1IndResource(trap); break; case 0xa80f: d0 = RM::Get1IndType(trap); break; case 0xa81a: d0 = RM::HOpenResFile(trap); break; case 0xa81b: d0 = RM::HCreateResFile(trap); break; case 0xa81c: d0 = RM::Count1Types(trap); break; // Get1Resource (theType: ResType; thelD: INTEGER) : Handle; case 0xa81f: d0 = RM::Get1Resource(trap); break; // Get1NamedResource (theType: ResType; name: Str255) : Handle; case 0xa820: d0 = RM::Get1NamedResource(trap); break; case 0xa992: d0 = RM::DetachResource(trap); break; case 0xa994: d0 = RM::CurResFile(trap); break; case 0xA997: d0 = RM::OpenResFile(trap); break; case 0xA998: d0 = RM::UseResFile(trap); break; case 0xa999: d0 = RM::UpdateResFile(trap); break; case 0xa99a: d0 = RM::CloseResFile(trap); break; case 0xa99b: d0 = RM::SetResLoad(trap); break; // GetResource (theType: ResType; thelD: INTEGER) : Handle; case 0xa9a0: d0 = RM::GetResource(trap); break; case 0xa9a1: d0 = RM::GetNamedResource(trap); break; case 0xa9a2: d0 = RM::LoadResource(trap); break; // ReleaseResource (theResource: Handle); case 0xa9a3: d0 = RM::ReleaseResource(trap); break; case 0xa9a4: d0 = RM::HomeResFile(trap); break; case 0xa9a5: d0 = RM::GetResourceSizeOnDisk(trap); break; case 0xa9a6: d0 = RM::GetResAttrs(trap); break; case 0xa9a7: d0 = RM::SetResAttrs(trap); break; case 0xa9a8: d0 = RM::GetResInfo(trap); break; case 0xa9ab: d0 = RM::AddResource(trap); break; case 0xa9aa: d0 = RM::ChangedResource(trap); break; case 0xa9ad: d0 = RM::RemoveResource(trap); break; // ResError : INTEGER; case 0xa9af: d0 = RM::ResError(trap); break; case 0xa9b0: d0 = RM::WriteResource(trap); break; // CreateResFile(fileName: Str255); case 0xa9b1: d0 = RM::CreateResFile(trap); break; // OpenRFPerm (fileName: Str255; vRefNum: Integer; // permission: SignedByte): Integer; case 0xa9c4: d0 = RM::OpenRFPerm(trap); break; case 0xa9f6: d0 = RM::GetResFileAttrs(trap); break; case 0xa9f7: d0 = RM::SetResFileAttrs(trap); break; // UnloadSeg (routineAddr: Ptr); case 0xa9f1: d0 = Loader::UnloadSeg(trap); break; // quickdraw (AsmIIgs ... ) // _ShowCursor(); case 0xA853: d0 = QD::ShowCursor(trap); break; // GetCursor (cursorlD: INTEGER) : CursHandle; case 0xA9B9: d0 = QD::GetCursor(trap); break; case 0xa834: d0 = QD::SetFScaleDisable(trap); break; //SetCursor (crsr: Cursor) case 0xA851: d0 = QD::SetCursor(trap); break; case 0xa86e: d0 = QD::InitGraf(trap); break; // GetFNum (fontName: Str255; VAR theNum: INTEGER); case 0xa900: d0 = QD::GetFNum(trap); break; // sane case 0xa9Eb: d0 = SANE::fp68k(trap); cpuSetDReg(0, d0); return; // SANE sets the flags. break; case 0x0a9ee: d0 = SANE::decstr68k(trap); break; // utility case 0xa906: d0 = Utility::NewString(trap); break; case 0xa9ba: d0 = Utility::GetString(trap); break; case 0xa85d: d0 = Utility::BitTst(trap); break; case 0xa88f: d0 = OSDispatch(trap); break; case 0xABFF: d0 = Debug::DebugStr(trap); break; default: fprintf(stderr, "Unsupported tool trap: %04x (%s)\n", trap, TrapName(trap)); fprintf(stderr, "pc: %08x\n", cpuGetPC()); exit(255); } if (d0) { int16_t v = (int16_t)d0; Log(" -> %d\n", v); } cpuSetDReg(0, d0); cpuSetFlagsNZ00NewW(d0); } #endif std::string ReadCString(uint32_t address, bool fname) { std::string tmp; if (address) { tmp.assign((char *)memoryPointer(address)); } if (fname) tmp = MacToUnix(tmp); return tmp; } std::string ReadPString(uint32_t address, bool fname) { std::string tmp; if (address) { unsigned length = memoryReadByte(address); tmp.assign((char *)memoryPointer(address + 1), length); if (fname) tmp = MacToUnix(tmp); } return tmp; } std::string ReadString(uint32_t address, uint32_t length) { std::string tmp; if (address) { tmp.assign((char *)memoryPointer(address), length); } return tmp; } bool WritePString(uint32_t address, const std::string &s) { int length = s.length(); if (length > 255) return false; if (address == 0) return false; uint8_t *ptr = memoryPointer(address); *ptr++ = (uint8_t)length; for (char c : s) { *ptr++ = (uint8_t)c; } return true; } std::string TypeToString(uint32_t type) { char tmp[5] = { 0, 0, 0, 0, 0}; for (unsigned i = 0; i < 4; ++i) { char c = type & 0xff; type >>= 8; c = isprint(c) ? c : '.'; tmp[3 - i] = c; } return std::string(tmp); } }