From 68852c9d1622a2396a0809ec007be7550d4be799 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sat, 2 Mar 2013 20:53:54 -0500
Subject: [PATCH] RM::CurResFile

---
 toolbox/rm.cpp      | 13 +++++++++++++
 toolbox/rm.h        |  2 ++
 toolbox/toolbox.cpp |  4 ++++
 3 files changed, 19 insertions(+)

diff --git a/toolbox/rm.cpp b/toolbox/rm.cpp
index a115d99..8033e3c 100644
--- a/toolbox/rm.cpp
+++ b/toolbox/rm.cpp
@@ -281,6 +281,19 @@ namespace RM
 	}
 
 
+	uint16_t CurResFile(uint16_t trap)
+	{
+
+		Log("%04x CurResFile()\n", trap);
+
+		ResFileRefNum refNum = ::CurResFile();
+
+		ToolReturn<2>(-1, refNum);
+		return SetResError(::ResError());
+	}
+
+
+
 	// todo -- move since it's not RM related.
 	uint16_t UnloadSeg(uint16_t trap)
 	{
diff --git a/toolbox/rm.h b/toolbox/rm.h
index 2f99607..233d8b5 100644
--- a/toolbox/rm.h
+++ b/toolbox/rm.h
@@ -20,6 +20,8 @@ namespace RM
 	uint16_t OpenResFile(uint16_t trap);
 
 	uint16_t SetResLoad(uint16_t trap);
+
+	uint16_t CurResFile(uint16_t trap);
 }
 
 
diff --git a/toolbox/toolbox.cpp b/toolbox/toolbox.cpp
index 4c50b4f..dcd9c70 100644
--- a/toolbox/toolbox.cpp
+++ b/toolbox/toolbox.cpp
@@ -188,6 +188,10 @@ namespace ToolBox {
 				d0 = RM::Get1NamedResource(trap);
 				break;
 
+			case 0xa994:
+				d0 = RM::CurResFile(trap);
+				break;
+
 			case 0xA997:
 				d0 = RM::OpenResFile(trap);
 				break;