Macintosh-SW
/
mpw
mirror of https://github.com/ksherlock/mpw.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

SetApplLimit toolcall

This commit is contained in:
Kelvin Sherlock 2015-02-27 08:55:10 -05:00
parent 56fb5d9743
commit 861ca9b83a
4 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
toolbox/dispatch.cpp
View File

@ -622,6 +622,10 @@ namespace ToolBox {
d0 = MM::HUnlock(trap);
break;
case 0xa02d:
d0 = MM::SetApplLimit(trap);
break;
// BlockMove (sourcePtr,destPtr: Ptr; byteCount: Size);
case 0xa02e: // BlockMove
case 0xa22e: // BlockMoveData

20
toolbox/mm.cpp
View File

@ -1567,6 +1567,26 @@ namespace MM
return 0;
}
uint16_t SetApplLimit(uint16_t trap)
{
// PROCEDURE SetApplLimit (zoneLimit: Ptr);
/*
* on entry
* A0 Pointer to desired new zone limit
*
* on exit
* D0 Result code
*/
uint32_t zoneLimit = cpuGetAReg(0);
Log("%04x SetApplLimit(%08x)\n", trap, zoneLimit);
return 0;
}
uint32_t PurgeSpace(uint16_t trap)
{
// PROCEDURE PurgeSpace (VAR total: LongInt; VAR contig: LongInt);

2
toolbox/mm.h
View File

@ -115,6 +115,8 @@ namespace MM
uint16_t MaxApplZone(uint16_t trap);
uint16_t SetApplLimit(uint16_t trap);
// OS Dispatch
uint16_t TempMaxMem(void);

4
toolbox/toolbox.cpp
View File

@ -273,6 +273,10 @@ namespace ToolBox {
d0 = MM::HUnlock(trap);
break;
case 0xa02d:
d0 = MM::SetApplLimit(trap);
break;
// BlockMove (sourcePtr,destPtr: Ptr; byteCount: Size);
case 0xa02e: // BlockMove
case 0xa22e: // BlockMoveData