mirror of
https://github.com/ksherlock/mpw.git
synced 2024-11-25 19:30:50 +00:00
1010 lines
21 KiB
C++
1010 lines
21 KiB
C++
// clang++ -c -std=c++11 -stdlib=libc++ -Wno-deprecated-declarations loader.cpp
|
|
/*
|
|
* 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 <cstdint>
|
|
#include <cctype>
|
|
#include <cstring>
|
|
#include <string>
|
|
#include <vector>
|
|
#include <chrono>
|
|
|
|
#include <sysexits.h>
|
|
#include <getopt.h>
|
|
#include <libgen.h>
|
|
#include <unistd.h>
|
|
#include <sys/stat.h>
|
|
|
|
#include <CoreServices/CoreServices.h>
|
|
|
|
#include <cpu/defs.h>
|
|
#include <cpu/CpuModule.h>
|
|
#include <cpu/fmem.h>
|
|
|
|
#include <toolbox/toolbox.h>
|
|
#include <toolbox/mm.h>
|
|
#include <toolbox/os.h>
|
|
#include <toolbox/loader.h>
|
|
|
|
#include <mpw/mpw.h>
|
|
|
|
#include <mplite/mplite.h>
|
|
|
|
#include <macos/sysequ.h>
|
|
#include <macos/traps.h>
|
|
|
|
#include "loader.h"
|
|
#include "debugger.h"
|
|
|
|
#include <cxx/string_splitter.h>
|
|
|
|
|
|
#define LOADER_LOAD
|
|
|
|
Settings Flags;
|
|
|
|
const uint32_t kGlobalSize = 0x10000;
|
|
// retained to make debugging easier.
|
|
uint8_t *Memory = nullptr;
|
|
uint32_t MemorySize = 0;
|
|
|
|
|
|
uint8_t ReadByte(const void *data, uint32_t offset)
|
|
{
|
|
offset &= 0xffffff;
|
|
return ((uint8_t *)data)[offset];
|
|
}
|
|
|
|
uint16_t ReadWord(const void *data, uint32_t offset)
|
|
{
|
|
offset &= 0xffffff;
|
|
return (ReadByte(data, offset) << 8) | ReadByte(data, offset+1);
|
|
}
|
|
|
|
uint32_t ReadLong(const void *data, uint32_t offset)
|
|
{
|
|
offset &= 0xffffff;
|
|
return (ReadWord(data, offset) << 16) | ReadWord(data, offset+2);
|
|
}
|
|
|
|
void WriteByte(void *data, uint32_t offset, uint8_t value)
|
|
{
|
|
offset &= 0xffffff;
|
|
((uint8_t *)data)[offset] = value;
|
|
}
|
|
|
|
void WriteWord(void *data, uint32_t offset, uint16_t value)
|
|
{
|
|
offset &= 0xffffff;
|
|
|
|
((uint8_t *)data)[offset++] = value >> 8;
|
|
((uint8_t *)data)[offset++] = value;
|
|
}
|
|
|
|
void WriteLong(void *data, uint32_t offset, uint32_t value)
|
|
{
|
|
offset &= 0xffffff;
|
|
|
|
((uint8_t *)data)[offset++] = value >> 24;
|
|
((uint8_t *)data)[offset++] = value >> 16;
|
|
((uint8_t *)data)[offset++] = value >> 8;
|
|
((uint8_t *)data)[offset++] = value;
|
|
}
|
|
|
|
#ifndef LOADER_LOAD
|
|
void reloc1(const uint8_t *r, uint32_t address, uint32_t offset)
|
|
{
|
|
// %00000000 00000000 -> break
|
|
// %0xxxxxxx -> 7-bit value
|
|
// %1xxxxxxx xxxxxxxx -> 15-bit value
|
|
// %00000000 1xxxxxxx x{8} x{8} x{8} -> 31 bit value
|
|
// ^ that's what the documentation says..
|
|
// that's how the 32-bit bootstrap works
|
|
// DumpCode ignores the high 2 bytes.
|
|
for(;;)
|
|
{
|
|
uint32_t x;
|
|
uint32_t value;
|
|
|
|
x = *r++;
|
|
|
|
if (x == 0x00)
|
|
{
|
|
x = *r++;
|
|
if (x == 0x00) break;
|
|
|
|
x = (x << 8) | *r++;
|
|
x = (x << 8) | *r++;
|
|
x = (x << 8) | *r++;
|
|
}
|
|
else if (x & 0x80)
|
|
{
|
|
x &= 0x7f;
|
|
x = (x << 8) | *r++;
|
|
}
|
|
|
|
x <<= 1; // * 2
|
|
|
|
address += x;
|
|
|
|
value = memoryReadLong(address);
|
|
memoryWriteLong(value + offset, address);
|
|
}
|
|
|
|
}
|
|
|
|
// relocate a far model segment.
|
|
void relocate(uint32_t address, uint32_t size, uint32_t a5)
|
|
{
|
|
// see MacOS RT Architecture, 10-23 .. 10-26
|
|
uint32_t offset;
|
|
|
|
offset = memoryReadLong(address + 0x14);
|
|
if (memoryReadLong(address + 0x18) != a5 && offset != 0)
|
|
{
|
|
memoryWriteLong(a5, address + 0x18); // current value of A5
|
|
reloc1(memoryPointer(address + offset), address, a5);
|
|
}
|
|
|
|
offset = memoryReadLong(address + 0x1c);
|
|
if (memoryReadLong(address + 0x20) != address && offset != 0)
|
|
{
|
|
memoryWriteLong(address, address + 0x20); // segment load address.
|
|
reloc1(memoryPointer(address + offset), address, address + 0x28);
|
|
}
|
|
}
|
|
|
|
uint32_t load(const char *file)
|
|
{
|
|
|
|
ResFileRefNum refNum;
|
|
FSRef ref;
|
|
|
|
uint32_t returnAddress = 0;
|
|
|
|
struct SegInfo {
|
|
public:
|
|
|
|
SegInfo()
|
|
{}
|
|
|
|
SegInfo(uint32_t a, uint32_t s, bool f) :
|
|
address(a), size(s), farModel(f)
|
|
{}
|
|
|
|
uint32_t address = 0;
|
|
uint32_t size = 0;
|
|
bool farModel = 0;
|
|
|
|
};
|
|
std::vector< SegInfo> segments;
|
|
|
|
|
|
uint32_t a5 = 0;
|
|
|
|
uint32_t jtStart = 0;
|
|
uint32_t jtEnd = 0;
|
|
|
|
// todo -- call RM::Native to open and load the Resource File.
|
|
|
|
assert(FSPathMakeRef( (const UInt8 *)file, &ref, NULL) == noErr);
|
|
// todo -- if it wasn't a resource file, this will fail
|
|
// should provide a nicer error message.
|
|
refNum = FSOpenResFile(&ref, fsRdPerm);
|
|
assert(refNum != -1 );
|
|
|
|
int l = Count1Resources('CODE');
|
|
segments.reserve(l);
|
|
|
|
assert(l > 0);
|
|
|
|
for (int i = 0; i < l; ++i)
|
|
{
|
|
ResAttributes attr;
|
|
ResID resID;
|
|
ResType resType;
|
|
Str255 name;
|
|
uint32_t size;
|
|
uint32_t address;
|
|
Handle h;
|
|
const uint8_t *data;
|
|
|
|
uint16_t error;
|
|
|
|
|
|
h = Get1IndResource('CODE', i + 1);
|
|
if (!h) continue;
|
|
HLock(h);
|
|
data = *(const uint8_t **)h;
|
|
|
|
attr = GetResAttrs(h);
|
|
GetResInfo(h, &resID, &resType, name);
|
|
|
|
size = GetHandleSize(h);
|
|
|
|
if (segments.size() <= resID) segments.resize(resID + 1);
|
|
// can't have duplicate resIDs, so no need to check that...
|
|
|
|
if (resID == 0)
|
|
{
|
|
// jump table/a5
|
|
uint32_t above = ReadLong(data, 0);
|
|
uint32_t below = ReadLong(data, 4);
|
|
uint32_t jtSize = ReadLong(data, 8);
|
|
uint32_t jtOffset = ReadLong(data, 12);
|
|
|
|
uint32_t a5size = above + below;
|
|
|
|
// TODO -- verify numbers are on word boundary?
|
|
|
|
|
|
error = MM::Native::NewPtr(a5size, true, address);
|
|
if (error)
|
|
{
|
|
fprintf(stderr, "Memory allocation error.\n");
|
|
return 0;
|
|
}
|
|
|
|
a5 = address + below;
|
|
std::memcpy(memoryPointer(a5 + jtOffset), data + 16 , jtSize);
|
|
|
|
segments[resID] = SegInfo(address, a5size, false);
|
|
|
|
jtStart = a5 + jtOffset;
|
|
jtEnd = jtStart + jtSize;
|
|
|
|
|
|
// 0x0934 - CurJTOffset (16-bit)
|
|
memoryWriteWord(jtOffset, MacOS::CurJTOffset);
|
|
|
|
// 0x0904 -- CurrentA5 (32-bit)
|
|
memoryWriteLong(a5, MacOS::CurrentA5);
|
|
cpuSetAReg(5, a5);
|
|
}
|
|
else
|
|
{
|
|
bool farModel = false;
|
|
if (data[0] == 0xff && data[1] == 0xff) farModel = true;
|
|
|
|
error = MM::Native::NewPtr(size, false, address);
|
|
if (error)
|
|
{
|
|
fprintf(stderr, "Memory allocation error.\n");
|
|
return 0;
|
|
}
|
|
|
|
std::memcpy(memoryPointer(address), data, size);
|
|
|
|
segments[resID] = SegInfo(address, size, farModel);
|
|
}
|
|
|
|
ReleaseResource(h);
|
|
}
|
|
|
|
// now link the segment 0 jump table...
|
|
assert(a5);
|
|
|
|
bool first = true;
|
|
bool farModel = false;
|
|
for (; jtStart < jtEnd; jtStart += 8)
|
|
{
|
|
uint16_t seg;
|
|
uint32_t offset;
|
|
if (farModel)
|
|
{
|
|
seg = memoryReadWord(jtStart + 0);
|
|
offset = memoryReadLong(jtStart + 4);
|
|
|
|
assert(memoryReadWord(jtStart + 2) == 0xA9F0);
|
|
}
|
|
else
|
|
{
|
|
uint16_t farModelCheck;
|
|
offset = memoryReadWord(jtStart);
|
|
farModelCheck = memoryReadWord(jtStart + 2);
|
|
seg = memoryReadWord(jtStart + 4);
|
|
|
|
if (farModelCheck == 0xffff)
|
|
{
|
|
farModel = true;
|
|
continue;
|
|
}
|
|
|
|
assert(memoryReadWord(jtStart + 2) == 0x3F3C);
|
|
assert(memoryReadWord(jtStart + 6) == 0xA9F0);
|
|
}
|
|
|
|
assert(seg < segments.size());
|
|
|
|
auto p = segments[seg];
|
|
//assert(p.first); // missing segment?!
|
|
//assert(offset < p.second);
|
|
|
|
assert(p.address); // missing segment?!
|
|
assert(offset < p.size);
|
|
|
|
// +$4/$28 for the jump table info header.
|
|
uint32_t address = p.address + offset + (p.farModel ? 0x00 : 0x04); // was 0x28
|
|
|
|
// JMP absolute long
|
|
memoryWriteWord(0x4EF9, jtStart + 2);
|
|
memoryWriteLong(address, jtStart + 4);
|
|
|
|
if (first)
|
|
{
|
|
//cpuSetPC(address);
|
|
returnAddress = address;
|
|
first = false;
|
|
}
|
|
}
|
|
|
|
// far-model relocation. This happens here, after a5 is loaded.
|
|
|
|
for (const auto &seg : segments)
|
|
{
|
|
if (seg.farModel)
|
|
{
|
|
relocate(seg.address, seg.size, a5);
|
|
}
|
|
}
|
|
|
|
|
|
// set pc to jump table entry 0.
|
|
return returnAddress;
|
|
}
|
|
#endif
|
|
|
|
|
|
void GlobalInit()
|
|
{
|
|
// todo -- move this somewhere better.
|
|
|
|
|
|
// 0x031a - Lo3Bytes
|
|
memoryWriteLong(0x00ffffff, MacOS::Lo3Bytes);
|
|
|
|
// 0x0a02 - OneOne
|
|
memoryWriteLong(0x00010001, MacOS::OneOne);
|
|
|
|
// 0x0a06 - MinusOne
|
|
memoryWriteLong(0xffffffff, MacOS::MinusOne);
|
|
|
|
|
|
// 0x0130 -- ApplLimit
|
|
memoryWriteLong(Flags.memorySize - Flags.stackSize - 1, MacOS::ApplLimit);
|
|
memoryWriteLong(kGlobalSize, MacOS::ApplZone);
|
|
memoryWriteLong(Flags.memorySize - 1, MacOS::BufPtr);
|
|
|
|
//
|
|
memoryWriteLong(Flags.stackRange.first, MacOS::CurStackBase);
|
|
|
|
}
|
|
|
|
|
|
void CreateStack()
|
|
{
|
|
// allocate stack, set A7...
|
|
|
|
uint32_t address;
|
|
//uint16_t error;
|
|
|
|
#if 0
|
|
Flags.stackSize = (Flags.stackSize + 3) & ~0x03;
|
|
|
|
error = MM::Native::NewPtr(Flags.stackSize, true, address);
|
|
if (error)
|
|
{
|
|
fprintf(stderr, "Unable to allocate stack (%08x bytes)\n", Flags.stackSize);
|
|
exit(EX_CONFIG);
|
|
}
|
|
#else
|
|
|
|
address = Flags.memorySize - Flags.stackSize;
|
|
|
|
#endif
|
|
|
|
Flags.stackRange.first = address;
|
|
Flags.stackRange.second = address + Flags.stackSize;
|
|
|
|
// TODO -- is there a global for the max (min) stack pointer?
|
|
|
|
// address grows down
|
|
// -4 is for the return address.
|
|
cpuSetAReg(7, Flags.stackRange.second - 4);
|
|
// return address.
|
|
memoryWriteLong(MacOS::MinusOne, Flags.stackRange.second - 4); // MinusOne Global -- 0xffff ffff
|
|
}
|
|
|
|
|
|
|
|
void LogToolBox(uint32_t pc, uint16_t trap)
|
|
{
|
|
const char *name;
|
|
|
|
name = TrapName(trap);
|
|
|
|
if (name)
|
|
{
|
|
fprintf(stderr, "$%08X %-51s ; %04X\n", pc, name, trap);
|
|
}
|
|
else
|
|
{
|
|
fprintf(stderr, "$%08X Tool #$%04X ; %04X\n", pc, trap, trap);
|
|
}
|
|
}
|
|
|
|
void InstructionLogger()
|
|
{
|
|
|
|
static char strings[4][256];
|
|
for (unsigned j = 0; j < 4; ++j) strings[j][0] = 0;
|
|
|
|
uint32_t pc = cpuGetPC();
|
|
uint16_t opcode = ReadWord(Memory, pc);
|
|
|
|
if ((opcode & 0xf000) == 0xa000)
|
|
{
|
|
LogToolBox(pc, opcode);
|
|
return;
|
|
}
|
|
|
|
|
|
if (Flags.traceCPU)
|
|
{
|
|
cpuDisOpcode(pc, strings[0], strings[1], strings[2], strings[3]);
|
|
|
|
// address, data, instruction, operand
|
|
fprintf(stderr, "%s %-10s %-40s ; %s\n", strings[0], strings[2], strings[3], strings[1]);
|
|
|
|
// todo -- trace registers (only print changed registers?)
|
|
|
|
#if 0
|
|
if (pc >= 0x00010E94 && pc <= 0x00010FC0)
|
|
{
|
|
fprintf(stderr, "d7 = %08x\n", cpuGetDReg(7));
|
|
}
|
|
#endif
|
|
}
|
|
|
|
int mboffset = 0;
|
|
switch (opcode)
|
|
{
|
|
case 0x4E75: // rts
|
|
case 0x4ED0: // jmp (a0)
|
|
mboffset = 2;
|
|
break;
|
|
case 0x4E74: // rtd #
|
|
mboffset = 4;
|
|
break;
|
|
}
|
|
|
|
if (mboffset) // RTS or JMP (A0)
|
|
{
|
|
pc += mboffset;
|
|
// check for MacsBug name after rts.
|
|
std::string s;
|
|
unsigned b = memoryReadByte(pc);
|
|
if (b >= 0x80 && b <= 0x9f)
|
|
{
|
|
b -= 0x80;
|
|
pc++;
|
|
|
|
if (!b) b = memoryReadByte(pc++);
|
|
|
|
s.reserve(b);
|
|
for (unsigned i = 0; i < b; ++i)
|
|
{
|
|
s.push_back(memoryReadByte(pc++));
|
|
}
|
|
fprintf(stderr, "%s\n\n", s.c_str());
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
void MemoryLogger(uint32_t address, int size, int readWrite, uint32_t value)
|
|
{
|
|
if (address < kGlobalSize)
|
|
{
|
|
const char *name = GlobalName(address);
|
|
if (!name) name = "unknown";
|
|
|
|
fprintf(stderr, "%-20s %08x - ", name, address);
|
|
|
|
if (!readWrite)
|
|
{
|
|
switch(size)
|
|
{
|
|
case 1:
|
|
value = ReadByte(Memory, address);
|
|
break;
|
|
case 2:
|
|
value = ReadWord(Memory, address);
|
|
break;
|
|
case 4:
|
|
value = ReadLong(Memory, address);
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
// todo -- for write, display previous value?
|
|
fprintf(stderr, " %s %d bytes", readWrite ? "write" : "read ", size);
|
|
switch(size)
|
|
{
|
|
case 1:
|
|
fprintf(stderr, " [%02x]\n", value);
|
|
break;
|
|
case 2:
|
|
fprintf(stderr, " [%04x]\n", value);
|
|
break;
|
|
case 3:
|
|
fprintf(stderr, " [%06x]\n", value);
|
|
break;
|
|
case 4:
|
|
fprintf(stderr, " [%08x]\n", value);
|
|
break;
|
|
default:
|
|
fprintf(stderr, "\n");
|
|
break;
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
void MidInstructionExceptionFunc()
|
|
{
|
|
// todo - cpu exception?
|
|
fprintf(stderr, "Mid Instruction Exception!\n");
|
|
//throw std::runtime_error::runtime_error("mid instruction exception");
|
|
}
|
|
|
|
|
|
#define MPW_VERSION "0.8.3"
|
|
void help()
|
|
{
|
|
printf("MPW " MPW_VERSION "\n");
|
|
printf("Usage: mpw [options] utility ...\n");
|
|
printf("\n");
|
|
printf(" --help display usage information\n");
|
|
printf(" --trace-cpu print cpu information\n");
|
|
printf(" --trace-macsbug print macsbug names\n");
|
|
printf(" --trace-toolbox print toolbox calls\n");
|
|
printf(" --trace-mpw print mpw calls\n");
|
|
printf(" --memory-stats print memory usage information\n");
|
|
printf(" --ram=<number> set the ram size. Default=16M\n");
|
|
printf(" --stack=<number> set the stack size. Default=8K\n");
|
|
printf("\n");
|
|
}
|
|
|
|
bool parse_number(const char *input, uint32_t *dest)
|
|
{
|
|
char *end;
|
|
long value;
|
|
int base = 0;
|
|
|
|
// octal is dumb so don't allow it.
|
|
|
|
while (isspace(*input)) ++input;
|
|
if (*input == '0' && isdigit(input[1])) base = 10;
|
|
|
|
errno = 0;
|
|
value = strtol(input, &end, base);
|
|
|
|
if (errno || value < 0 || input == end)
|
|
{
|
|
fprintf(stderr, "%s - invalid input\n", input);
|
|
return false;
|
|
}
|
|
|
|
// M/K
|
|
if (*end)
|
|
{
|
|
int old = value;
|
|
if (strcasecmp(end, "M") == 0 || strcasecmp(end, "MB") == 0)
|
|
value *= 1024 * 1024;
|
|
else if (strcasecmp(end, "K") == 0 || strcasecmp(end, "KB") == 0)
|
|
value *= 1024;
|
|
else
|
|
{
|
|
fprintf(stderr, "%s - invalid input\n", input);
|
|
return false;
|
|
}
|
|
if (value < old)
|
|
{
|
|
// overflow
|
|
fprintf(stderr, "%s - invalid input\n", input);
|
|
return false;
|
|
}
|
|
}
|
|
|
|
if (dest) *dest = value;
|
|
return true;
|
|
}
|
|
|
|
bool file_exists(const std::string & name)
|
|
{
|
|
struct stat st;
|
|
|
|
return ::stat(name.c_str(), &st) == 0 && S_ISREG(st.st_mode);
|
|
}
|
|
|
|
std::string old_find_exe(const std::string &name)
|
|
{
|
|
if (file_exists(name)) return name;
|
|
|
|
// if name is a path, then it doesn't exist.
|
|
if (name.find('/') != name.npos) return std::string();
|
|
|
|
std::string path = MPW::RootDir();
|
|
if (path.empty()) return path;
|
|
|
|
|
|
if (path.back() != '/') path.push_back('/');
|
|
path.append("Tools/");
|
|
path.append(name);
|
|
|
|
if (file_exists(path)) return path;
|
|
|
|
return std::string();
|
|
|
|
}
|
|
|
|
|
|
// this needs to run *after* the MPW environment variables are loaded.
|
|
std::string find_exe(const std::string &name)
|
|
{
|
|
|
|
// if this is an absolute or relative name, return as-is.
|
|
|
|
if (name.find(':') != name.npos) {
|
|
std::string path = ToolBox::MacToUnix(name);
|
|
if (file_exists(path)) return path;
|
|
return "";
|
|
}
|
|
|
|
if (name.find('/') != name.npos) {
|
|
if (file_exists(name)) return name;
|
|
return "";
|
|
}
|
|
|
|
// otherwise, check the Commands variable for locations.
|
|
std::string commands = MPW::GetEnv("Commands");
|
|
if (commands.empty()) return old_find_exe(name);
|
|
|
|
|
|
// string is , separated, possibly in MacOS format.
|
|
|
|
for (auto iter = string_splitter(commands, ','); iter; ++iter)
|
|
{
|
|
if (iter->empty()) continue;
|
|
std::string path = *iter;
|
|
|
|
// convert to unix.
|
|
path = ToolBox::MacToUnix(path);
|
|
// should always have a length...
|
|
if (path.length() && path.back() != '/') path.push_back('/');
|
|
path.append(name);
|
|
if (file_exists(path)) return path;
|
|
}
|
|
|
|
return "";
|
|
}
|
|
|
|
|
|
void MainLoop()
|
|
{
|
|
#if 0
|
|
auto begin_emu_time = std::chrono::high_resolution_clock::now();
|
|
fprintf(stderr, "Begin Emulation Time: %20lld\n", (begin_emu_time - start_time).count());
|
|
#endif
|
|
|
|
|
|
uint64_t cycles = 0;
|
|
for (;;)
|
|
{
|
|
uint32_t pc = cpuGetPC();
|
|
uint32_t sp = cpuGetAReg(7);
|
|
|
|
if (pc == 0x00000000)
|
|
{
|
|
fprintf(stderr, "Exiting - PC = 0\n");
|
|
exit(EX_SOFTWARE);
|
|
}
|
|
|
|
if (sp < Flags.stackRange.first)
|
|
{
|
|
fprintf(stderr, "Stack overflow error - please increase the stack size (--stack=size)\n");
|
|
fprintf(stderr, "Current stack size is 0x%06x\n", Flags.stackSize);
|
|
exit(EX_SOFTWARE);
|
|
}
|
|
|
|
if (sp > Flags.stackRange.second)
|
|
{
|
|
fprintf(stderr, "Stack underflow error\n");
|
|
exit(EX_SOFTWARE);
|
|
}
|
|
|
|
|
|
if (cpuGetStop()) break; // will this also be set by an interrupt?
|
|
|
|
|
|
#ifndef CPU_INSTRUCTION_LOGGING
|
|
if (Flags.traceCPU || Flags.traceMacsbug)
|
|
{
|
|
InstructionLogger();
|
|
}
|
|
#endif
|
|
|
|
cycles += cpuExecuteInstruction();
|
|
}
|
|
|
|
#if 0
|
|
auto end_emu_time = std::chrono::high_resolution_clock::now();
|
|
fprintf(stderr, " End Emulation Time: %20lld\n", (end_emu_time - start_time).count());
|
|
fprintf(stderr, " Cycles: %20lld\n", cycles);
|
|
#endif
|
|
|
|
|
|
}
|
|
|
|
int main(int argc, char **argv)
|
|
{
|
|
// getopt...
|
|
|
|
enum
|
|
{
|
|
kTraceCPU = 1,
|
|
kTraceMacsBug,
|
|
kTraceGlobals,
|
|
kTraceToolBox,
|
|
kTraceMPW,
|
|
kDebugger,
|
|
kMemoryStats,
|
|
kShell,
|
|
};
|
|
static struct option LongOpts[] =
|
|
{
|
|
{ "ram",required_argument, NULL, 'r' },
|
|
{ "stack", required_argument, NULL, 's' },
|
|
{ "machine", required_argument, NULL, 'm' },
|
|
{ "trace-cpu", no_argument, NULL, kTraceCPU },
|
|
{ "trace-macsbug", no_argument, NULL, kTraceMacsBug },
|
|
{ "trace-globals", no_argument, NULL, kTraceGlobals },
|
|
{ "trace-toolbox", no_argument, NULL, kTraceToolBox },
|
|
{ "trace-tools", no_argument, NULL, kTraceToolBox },
|
|
{ "trace-mpw", no_argument, NULL, kTraceMPW },
|
|
|
|
{ "debug", no_argument, NULL, kDebugger },
|
|
{ "debugger", no_argument, NULL, kDebugger },
|
|
|
|
{ "memory-stats", no_argument, NULL, kMemoryStats },
|
|
|
|
{ "help", no_argument, NULL, 'h' },
|
|
{ "version", no_argument, NULL, 'V' },
|
|
{ "shell", no_argument, NULL, kShell },
|
|
{ NULL, 0, NULL, 0 }
|
|
};
|
|
|
|
//auto start_time = std::chrono::high_resolution_clock::now();
|
|
|
|
std::vector<std::string> defines;
|
|
|
|
int c;
|
|
while ((c = getopt_long(argc, argv, "+hVm:r:s:D:", LongOpts, NULL)) != -1)
|
|
{
|
|
switch(c)
|
|
{
|
|
case kTraceCPU:
|
|
Flags.traceCPU = true;
|
|
break;
|
|
|
|
case kTraceMacsBug:
|
|
Flags.traceMacsbug = true;
|
|
break;
|
|
|
|
case kTraceGlobals:
|
|
Flags.traceGlobals = true;
|
|
break;
|
|
|
|
case kTraceToolBox:
|
|
Flags.traceToolBox = true;
|
|
break;
|
|
|
|
case kTraceMPW:
|
|
Flags.traceMPW = true;
|
|
break;
|
|
|
|
case kMemoryStats:
|
|
Flags.memoryStats = true;
|
|
break;
|
|
|
|
case kDebugger:
|
|
Flags.debugger = true;
|
|
break;
|
|
|
|
case kShell:
|
|
break;
|
|
|
|
case 'm':
|
|
if (!parse_number(optarg, &Flags.machine))
|
|
exit(EX_CONFIG);
|
|
break;
|
|
|
|
case 'r':
|
|
if (!parse_number(optarg, &Flags.memorySize))
|
|
exit(EX_CONFIG);
|
|
break;
|
|
|
|
case 's':
|
|
if (!parse_number(optarg, &Flags.stackSize))
|
|
exit(EX_CONFIG);
|
|
break;
|
|
|
|
case 'D':
|
|
defines.push_back(optarg);
|
|
break;
|
|
|
|
case ':':
|
|
case '?':
|
|
help();
|
|
exit(EX_USAGE);
|
|
break;
|
|
|
|
case 'h':
|
|
help();
|
|
exit(EX_OK);
|
|
break;
|
|
|
|
case 'V':
|
|
printf("mpw version " MPW_VERSION "\n");
|
|
exit(EX_OK);
|
|
break;
|
|
}
|
|
|
|
}
|
|
|
|
argc -= optind;
|
|
argv += optind;
|
|
|
|
if (!argc)
|
|
{
|
|
help();
|
|
exit(EX_USAGE);
|
|
}
|
|
|
|
Flags.stackSize = (Flags.stackSize + 0xff) & ~0xff;
|
|
Flags.memorySize = (Flags.memorySize + 0xff) & ~0xff;
|
|
|
|
if (Flags.stackSize < 0x100)
|
|
{
|
|
fprintf(stderr, "Invalid stack size\n");
|
|
exit(EX_CONFIG);
|
|
}
|
|
|
|
if (Flags.memorySize < 0x200)
|
|
{
|
|
fprintf(stderr, "Invalid ram size\n");
|
|
exit(EX_CONFIG);
|
|
}
|
|
|
|
if (Flags.stackSize >= Flags.memorySize)
|
|
{
|
|
fprintf(stderr, "Invalid stack/ram size\n");
|
|
exit(EX_CONFIG);
|
|
}
|
|
|
|
|
|
|
|
MPW::InitEnvironment(defines);
|
|
|
|
std::string command(argv[0]); // InitMPW updates argv...
|
|
command = find_exe(command);
|
|
if (command.empty())
|
|
{
|
|
std::string mpw = MPW::RootDir();
|
|
fprintf(stderr, "Unable to find command %s\n", argv[0]);
|
|
fprintf(stderr, "$MPW = %s\n", mpw.c_str());
|
|
fprintf(stderr, "$Commands = %s\n", MPW::GetEnv("Commands").c_str());
|
|
exit(EX_USAGE);
|
|
}
|
|
argv[0] = ::strdup(command.c_str()); // hmm.. could setenv(mpw_command) instead.
|
|
|
|
|
|
// move to CreateRam()
|
|
Memory = Flags.memory = new uint8_t[Flags.memorySize];
|
|
MemorySize = Flags.memorySize;
|
|
|
|
|
|
/// ahhh... need to set PC after memory.
|
|
// for pre-fetch.
|
|
memorySetMemory(Memory, MemorySize);
|
|
|
|
|
|
MM::Init(Memory, MemorySize, kGlobalSize, Flags.stackSize);
|
|
OS::Init();
|
|
ToolBox::Init();
|
|
MPW::Init(argc, argv);
|
|
|
|
|
|
cpuStartup();
|
|
cpuSetModel(3,0);
|
|
|
|
CreateStack();
|
|
|
|
#ifdef LOADER_LOAD
|
|
uint16_t err = Loader::Native::LoadFile(command);
|
|
if (err) exit(EX_CONFIG);
|
|
#else
|
|
uint32_t address = load(command.c_str());
|
|
if (!address) exit(EX_CONFIG);
|
|
#endif
|
|
GlobalInit();
|
|
|
|
|
|
cpuSetALineExceptionFunc(ToolBox::dispatch);
|
|
cpuSetFLineExceptionFunc(MPW::dispatch);
|
|
|
|
cpuSetMidInstructionExceptionFunc(MidInstructionExceptionFunc);
|
|
|
|
|
|
if (Flags.traceGlobals) //memorySetGlobalLog(kGlobalSize);
|
|
memorySetLoggingFunc(MemoryLogger);
|
|
|
|
MPW::Trace = Flags.traceMPW;
|
|
ToolBox::Trace = Flags.traceToolBox;
|
|
|
|
|
|
if (Flags.traceCPU || Flags.traceMacsbug)
|
|
{
|
|
#ifdef CPU_INSTRUCTION_LOGGING
|
|
cpuSetInstructionLoggingFunc(InstructionLogger);
|
|
#endif
|
|
// else do it manually below.
|
|
}
|
|
|
|
#ifndef LOADER_LOAD
|
|
cpuInitializeFromNewPC(address);
|
|
#endif
|
|
|
|
if (Flags.debugger) Debug::Shell();
|
|
else MainLoop();
|
|
|
|
|
|
|
|
if (Flags.memoryStats)
|
|
{
|
|
MM::Native::PrintMemoryStats();
|
|
}
|
|
|
|
uint32_t rv = MPW::ExitStatus();
|
|
if (rv > 0xff) rv = 0xff;
|
|
|
|
|
|
|
|
exit(rv);
|
|
}
|