RM::CurResFile

This commit is contained in:
Kelvin Sherlock 2013-03-02 20:53:54 -05:00
parent ceeabfb1b0
commit 68852c9d16
3 changed files with 19 additions and 0 deletions

View File

@ -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)
{

View File

@ -20,6 +20,8 @@ namespace RM
uint16_t OpenResFile(uint16_t trap);
uint16_t SetResLoad(uint16_t trap);
uint16_t CurResFile(uint16_t trap);
}

View File

@ -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;