diff --git a/src/dos/dos_classes.cpp b/src/dos/dos_classes.cpp
index f03bf19c..79f374ab 100644
--- a/src/dos/dos_classes.cpp
+++ b/src/dos/dos_classes.cpp
@@ -145,6 +145,16 @@ Bit16u DOS_PSP::FindFreeFileEntry(void)
 	return 0xff;
 };
 
+Bit16u DOS_PSP::FindEntryByHandle(Bit8u handle)
+{
+	PhysPt files=Real2Phys(sGet(sPSP,file_table));
+	Bit16u max = sGet(sPSP,max_files);
+	for (Bit16u i=0;i<sGet(sPSP,max_files);i++) {
+		if (mem_readb(files+i)==handle) return i;
+	}	
+	return 0xFF;
+};
+
 void DOS_PSP::CopyFileTable(DOS_PSP* srcpsp)
 {
 	/* Copy file table from calling process */