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

MaxBlock (SC)

Browse Source
This commit is contained in:
Kelvin Sherlock 2013-05-17 19:05:03 -04:00
parent 2fb4e67323
commit caa0b8b74f
3 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
toolbox/mm.cpp
View File

@ -294,6 +294,29 @@ namespace MM
return mplite_maxmem(&pool);
}
uint32_t MaxBlock(uint16_t trap)
{
/*
* The MaxBlock function returns the maximum contiguous space, in bytes, that you
* could obtain after compacting the current heap zone. MaxBlock does not actually
* do the compaction.
*/
/*
* on entry:
* (nothing)
*
* on exit:
* D0: function result (long word)
*
*/
Log("%04x MaxBlock()\n", trap);
SetMemError(0);
return mplite_maxmem(&pool);
}
uint32_t FreeMem(uint16_t trap)
{
// total free memory.
@ -312,6 +335,9 @@ namespace MM
return mplite_freemem(&pool);
}
uint16_t ReserveMem(uint16_t trap)
{
/*

1
toolbox/mm.h
View File

@ -27,6 +27,7 @@ namespace MM
uint16_t BlockMove(uint16_t trap);
uint32_t CompactMem(uint16_t trap);
uint32_t MaxMem(uint16_t trap);
uint32_t MaxBlock(uint16_t trap);
uint32_t FreeMem(uint16_t trap);
uint16_t ReserveMem(uint16_t trap);

4
toolbox/toolbox.cpp
View File

@ -159,6 +159,10 @@ namespace ToolBox {
d0 = MM::StripAddress(trap);
break;
case 0xa061:
d0 = MM::MaxBlock(trap);
break;
// MoveHHi (h: Handle);
case 0xa064:
d0 = MM::MoveHHi(trap);