Macintosh-SW/mpw
1
0
Fork 0
mirror of https://github.com/ksherlock/mpw.git synced 2024-11-22 00:32:44 +00:00
Code Issues Projects Releases Wiki Activity

support the auto-pop bit for tool calls (MPW Pascal IIgs 1.0b1)

Browse Source
This commit is contained in:
Kelvin Sherlock 2015-01-18 17:31:09 -05:00
parent 2e9ab5200c
commit c0fe74c1b8
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
toolbox/dispatch.cpp
View File

@ -262,16 +262,15 @@ namespace ToolBox {
void dispatch(uint16_t trap) void dispatch(uint16_t trap)
{ {
return native_dispatch(trap);
// hold off on actually _calling_ for now...
#if 0
uint32_t returnPC = 0; uint32_t returnPC = 0;
bool saveA0 = false; bool saveA0 = false;
uint32_t a0 = cpuGetAReg(0); uint32_t a0 = cpuGetAReg(0);
// hold off on actually _calling_ for now...
#if 0
if (trap == 0xafff) if (trap == 0xafff)
{ {
// called from the trap address stub. // called from the trap address stub.
@ -330,7 +329,7 @@ namespace ToolBox {
return; return;
} }
#endif
/* /*
* The auto-pop bit is bit 10 in an A-line instruction for a * The auto-pop bit is bit 10 in an A-line instruction for a
@ -370,6 +369,7 @@ namespace ToolBox {
} }
#if 0
if (is_tool_trap(trap)) if (is_tool_trap(trap))
{ {
uint16_t tt = trap & 0x03ff; uint16_t tt = trap & 0x03ff;
@ -414,13 +414,12 @@ namespace ToolBox {
assert("OS trap overrides are not yet supported."); assert("OS trap overrides are not yet supported.");
} }
} }
#endif
native_dispatch(trap); native_dispatch(trap);
if (saveA0) cpuSetAReg(0, a0); if (saveA0) cpuSetAReg(0, a0);
if (returnPC) cpuInitializeFromNewPC(returnPC); if (returnPC) cpuInitializeFromNewPC(returnPC);
#endif
} }
void native_dispatch(uint16_t trap) void native_dispatch(uint16_t trap)