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

MM::MaxMem / MM::FreeMem (68k Pascal)

Browse Source
This commit is contained in:
Kelvin Sherlock 2013-03-30 18:45:20 -04:00
parent 6f93bd0826
commit 231e34627d
3 changed files with 48 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
toolbox/mm.cpp
View File

@ -270,10 +270,45 @@ namespace MM
Log("%04x CompactMem(%08x)\n", trap, cbNeeded);
// todo -- add mplite call to return total free mem, largest block.
return 0x0f0000;
return mplite_maxmem(&pool);
}
uint32_t MaxMem(uint16_t trap)
{
// return largest contiguous free block size.
/*
* on entry:
* (nothing)
*
* on exit:
* D0: function result (long word)
*
*/
Log("%04x MaxMem()\n", trap);
return mplite_maxmem(&pool);
}
uint32_t FreeMem(uint16_t trap)
{
// total free memory.
/*
* on entry:
* (nothing)
*
* on exit:
* D0: function result (long word)
*
*/
Log("%04x FreeMem()\n", trap);
return mplite_freemem(&pool);
}
uint16_t MoveHHi(uint16_t trap)
{
/*

4
toolbox/mm.h
View File

@ -26,7 +26,9 @@ namespace MM
uint16_t BlockMove(uint16_t trap);
uint32_t CompactMem(uint16_t trap);
uint32_t MaxMem(uint16_t trap);
uint32_t FreeMem(uint16_t trap);
uint16_t DisposeHandle(uint16_t trap);
uint16_t DisposePtr(uint16_t trap);

8
toolbox/toolbox.cpp
View File

@ -128,6 +128,14 @@ namespace ToolBox {
d0 = MM::HPurge(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);