GetHandleSize, HPurge

toolbox/mm.cpp

@@ -457,10 +457,58 @@ namespace MM
 		return Native::DisposeHandle(hh);
 	}
 
+
+	uint32_t GetHandleSize(uint16_t trap)
+	{
+		/* 
+		 * on entry:
+		 * A0 handle
+		 *
+		 * on exit:
+		 * D0 size (32-bit) or error code
+		 *
+		 */
+
+		uint32_t hh = cpuGetAReg(0);
+
+		Log("%08x GetHandleSize(%08x,)\n", trap, hh);
+
+		auto iter = HandleMap.find(hh);
+
+		if (iter == HandleMap.end()) return SetMemError(memWZErr);
+
+		return iter->second.size;
+	}
+
+
 	#pragma mark Handle attributes
 
 	// these are all nops for now.
 
+	uint16_t HPurge(uint16_t trap)
+	{
+		/* 
+		 * on entry:
+		 * A0 Handle
+		 *
+		 * on exit:
+		 * D0 Result code
+		 *
+		 */
+
+
+		uint32_t hh = cpuGetAReg(0);
+
+		Log("%04x HPurge(%08x)\n", trap, hh);
+
+		auto iter = HandleMap.find(hh);
+
+		if (iter == HandleMap.end()) return SetMemError(memWZErr);
+
+		return 0;
+
+	}
+
 	uint16_t HLock(uint16_t trap)
 	{
 		/* 

toolbox/mm.h

@@ -48,6 +48,8 @@ namespace MM
 	uint16_t HLock(uint16_t trap);
 	uint16_t HUnlock(uint16_t trap);
 
+	uint16_t HPurge(uint16_t trap);
+	
 	uint16_t MoveHHi(uint16_t trap);
 
 }

toolbox/toolbox.cpp

@@ -67,6 +67,10 @@ namespace ToolBox {
 				d0 = MM::DisposeHandle(trap);
 				break;
 
+			case 0xa025:
+				d0 = MM::GetHandleSize(trap);
+				break;
+
 			case 0xa029:
 				d0 = MM::HLock(trap);
 				break;
@@ -80,6 +84,10 @@ namespace ToolBox {
 				d0 = MM::BlockMove(trap);
 				break;
 
+			case 0xa049:
+				d0 = MM::HPurge(trap);
+				break;
+
 			// CompactMem (cbNeeded: Size) : Size;
 			case 0xa04c:
 				d0 = MM::CompactMem(trap);