[hbelusca] 61283: [NTVDM] Implement basic VDD support: implement the (un)register & dispatch call BOP (called BOP_3RDPARTY): see "Undocumented DOS" by Schulman et al. page 267 (as always ; ) ), as w...

Author: hbelusca
Date: Tue Dec 17 02:19:52 2013
New Revision: 61283

URL: http://svn.reactos.org/svn/reactos?rev=61283&view=rev
Log:
[NTVDM]
Implement basic VDD support:
implement the (un)register & dispatch call BOP (called BOP_3RDPARTY): see
"Undocumented DOS" by Schulman et al. page 267 (as always ;) ), as well as:
http://www.ragestorm.net/tutorial?id=27 - "Tutorial - Calling Win32 from DOS"
http://www.airborn.com.au/layout/vddtest.html - "DOS to 32 bit DLL under XP - an
example" (almost the same explanations as the previous article)
http://sta.c64.org/blog/dosvddaccess.html - "Accessing Windows device drivers from
DOS programs"
and...
... your lovely Win2k / Win2k3 DDK section: "Device Technologies/Other
Devices/Devices Requiring VDDs" !!

Ready to test? :D

Added:
    branches/ntvdm/subsystems/ntvdm/vddsup.c   (with props)
    branches/ntvdm/subsystems/ntvdm/vddsup.h   (with props)
Modified:
    branches/ntvdm/subsystems/ntvdm/CMakeLists.txt
    branches/ntvdm/subsystems/ntvdm/emulator.c

Modified: branches/ntvdm/subsystems/ntvdm/CMakeLists.txt
URL:
http://svn.reactos.org/svn/reactos/branches/ntvdm/subsystems/ntvdm/CMakeLis…
==============================================================================
--- branches/ntvdm/subsystems/ntvdm/CMakeLists.txt	[iso-8859-1] (original)
+++ branches/ntvdm/subsystems/ntvdm/CMakeLists.txt	[iso-8859-1] Tue Dec 17 02:19:52 2013
@@ -16,6 +16,7 @@
     registers.c
     speaker.c
     timer.c
+    vddsup.c
     vga.c
     ntvdm.c
     ntvdm.rc

Modified: branches/ntvdm/subsystems/ntvdm/emulator.c
URL:
http://svn.reactos.org/svn/reactos/branches/ntvdm/subsystems/ntvdm/emulator…
==============================================================================
--- branches/ntvdm/subsystems/ntvdm/emulator.c	[iso-8859-1] (original)
+++ branches/ntvdm/subsystems/ntvdm/emulator.c	[iso-8859-1] Tue Dec 17 02:19:52 2013
@@ -13,6 +13,7 @@
 #include "emulator.h"
 #include "bios.h"
 #include "bop.h"
+#include "vddsup.h"
 #include "io.h"
 #include "registers.h"
 #include "vga.h"
@@ -122,6 +123,9 @@
     /* Enable interrupts */
     setIF(1);
 
+    /* Initialize VDD support */
+    VDDSupInitialize();
+
     /* Register the DebugBreak BOP */
     RegisterBop(BOP_DEBUGGER, EmulatorDebugBreak);
 

Added: branches/ntvdm/subsystems/ntvdm/vddsup.c
URL:
http://svn.reactos.org/svn/reactos/branches/ntvdm/subsystems/ntvdm/vddsup.c…
==============================================================================
--- branches/ntvdm/subsystems/ntvdm/vddsup.c	(added)
+++ branches/ntvdm/subsystems/ntvdm/vddsup.c	[iso-8859-1] Tue Dec 17 02:19:52 2013
@@ -0,0 +1,236 @@
+/*
+ * COPYRIGHT:       GPL - See COPYING in the top level directory
+ * PROJECT:         ReactOS Virtual DOS Machine
+ * FILE:            vddsup.c
+ * PURPOSE:         Virtual DOS Drivers (VDD) Support
+ * PROGRAMMERS:     Hermes Belusca-Maito (hermes.belusca(a)sfr.fr)
+ */
+
+/* INCLUDES *******************************************************************/
+
+#define NDEBUG
+
+#include "emulator.h"
+#include "vddsup.h"
+
+#include "bop.h"
+#include "registers.h"
+
+typedef VOID (CDECL *VDD_INIT_PROC)(VOID);
+typedef VOID (CDECL *VDD_DISPATCH_PROC)(VOID);
+
+typedef struct _VDD_MODULE
+{
+    HMODULE hDll;
+    VDD_DISPATCH_PROC DispatchRoutine;
+} VDD_MODULE, *PVDD_MODULE;
+
+/* BOP Identifiers */
+#define BOP_3RDPARTY    0x58    // 3rd-party VDD BOP
+
+/* PRIVATE VARIABLES **********************************************************/
+
+#define MAX_VDD_MODULES 0xFF
+VDD_MODULE VDDList[MAX_VDD_MODULES] = {{NULL}}; // TODO: Maybe use a linked list.
+                                                // But the number of elements must be
<= MAXUSHORT
+
+/* PRIVATE FUNCTIONS **********************************************************/
+
+USHORT GetNextFreeVDDEntry(VOID)
+{
+    USHORT Entry = MAX_VDD_MODULES;
+    for (Entry = 0; Entry < sizeof(VDDList)/sizeof(VDDList[0]); ++Entry)
+    {
+        if (VDDList[Entry].hDll == NULL) break;
+    }
+    return Entry;
+}
+
+VOID WINAPI ThirdPartyVDDBop(LPWORD Stack)
+{
+    /* Get the Function Number and skip it */
+    BYTE FuncNum = *(PBYTE)SEG_OFF_TO_PTR(getCS(), getIP());
+    setIP(getIP() + 1);
+
+    switch (FuncNum)
+    {
+        /* RegisterModule */
+        case 0:
+        {
+            BOOL Success = TRUE;
+            WORD RetVal = 0;
+            WORD Entry = 0;
+            LPCSTR DllName = NULL,
+                   InitRoutineName = NULL,
+                   DispatchRoutineName = NULL;
+            HMODULE hDll = NULL;
+            VDD_INIT_PROC     InitRoutine = NULL;
+            VDD_DISPATCH_PROC DispatchRoutine = NULL;
+
+            DPRINT1("RegisterModule() called\n");
+
+            /* Clear the Carry Flag (no error happened so far) */
+            setCF(0);
+
+            /* Retrieve the VDD name in DS:SI */
+            DllName = SEG_OFF_TO_PTR(getDS(), getSI());
+
+            /* Retrieve the initialization routine API name in ES:DI (optional -->
ES=DI=0) */
+            if (getES() != 0 || getDI() != 0)
+                InitRoutineName = SEG_OFF_TO_PTR(getES(), getDI());
+
+            /* Retrieve the dispatch routine API name in DS:BX */
+            DispatchRoutineName = SEG_OFF_TO_PTR(getDS(), getBX());
+
+            DPRINT1("DllName = '%s' - InitRoutineName = '%s' -
DispatchRoutineName = '%s'\n",
+                    (DllName ? DllName : "n/a"),
+                    (InitRoutineName ? InitRoutineName : "n/a"),
+                    (DispatchRoutineName ? DispatchRoutineName : "n/a"));
+
+            /* Load the VDD DLL */
+            hDll = LoadLibraryA(DllName);
+            if (hDll == NULL)
+            {
+                DWORD LastError = GetLastError();
+                Success = FALSE;
+
+                if (LastError == ERROR_NOT_ENOUGH_MEMORY)
+                {
+                    DPRINT1("Not enough memory to load DLL '%s'\n",
DllName);
+                    RetVal = 4;
+                    goto Quit;
+                }
+                else
+                {
+                    DPRINT1("Failed to load DLL '%s'; last error =
%d\n", DllName, LastError);
+                    RetVal = 1;
+                    goto Quit;
+                }
+            }
+
+            /* Load the initialization routine if needed */
+            if (InitRoutineName)
+            {
+                InitRoutine = (VDD_INIT_PROC)GetProcAddress(hDll, InitRoutineName);
+                if (InitRoutine == NULL)
+                {
+                    DPRINT1("Failed to load the initialization routine
'%s'\n", InitRoutineName);
+                    Success = FALSE;
+                    RetVal = 3;
+                    goto Quit;
+                }
+            }
+
+            /* Load the dispatch routine */
+            DispatchRoutine = (VDD_DISPATCH_PROC)GetProcAddress(hDll,
DispatchRoutineName);
+            if (DispatchRoutine == NULL)
+            {
+                DPRINT1("Failed to load the dispatch routine '%s'\n",
DispatchRoutineName);
+                Success = FALSE;
+                RetVal = 2;
+                goto Quit;
+            }
+
+            /* If we arrived there, that means everything is OK */
+
+            /* Register the VDD DLL */
+            Entry = GetNextFreeVDDEntry();
+            if (Entry == MAX_VDD_MODULES)
+            {
+                DPRINT1("Failed to create a new VDD module entry\n");
+                Success = FALSE;
+                RetVal = 4;
+                goto Quit;
+            }
+            VDDList[Entry].hDll = hDll;
+            VDDList[Entry].DispatchRoutine = DispatchRoutine;
+
+            /* Call the initialization routine if needed */
+            if (InitRoutine) InitRoutine();
+
+            /* We succeeded */
+            Success = TRUE;
+            RetVal = Entry;
+
+Quit:
+            if (!Success)
+            {
+                /* Unload the VDD DLL */
+                if (hDll) FreeLibrary(hDll);
+
+                /* Set the Carry Flag to indicate that an error happened */
+                setCF(1);
+            }
+            // else
+            // {
+                // /* Clear the Carry Flag (success) */
+                // setCF(0);
+            // }
+            setAX(RetVal);
+            break;
+        }
+
+        /* UnRegisterModule */
+        case 1:
+        {
+            WORD Entry = getAX();
+
+            DPRINT1("UnRegisterModule() called\n");
+
+            /* Sanity checks */
+            if (Entry > MAX_VDD_MODULES || VDDList[Entry].hDll == NULL)
+            {
+                DPRINT1("Invalid VDD DLL Handle: %d\n", Entry);
+                /* Stop the VDM */
+                VdmRunning = FALSE;
+                return;
+            }
+
+            /* Unregister the VDD DLL */
+            FreeLibrary(VDDList[Entry].hDll);
+            VDDList[Entry].hDll = NULL;
+            VDDList[Entry].DispatchRoutine = NULL;
+            break;
+        }
+
+        /* DispatchCall */
+        case 2:
+        {
+            WORD Entry = getAX();
+
+            DPRINT1("DispatchCall() called\n");
+
+            /* Sanity checks */
+            if (Entry > MAX_VDD_MODULES ||
+                VDDList[Entry].hDll == NULL ||
+                VDDList[Entry].DispatchRoutine == NULL)
+            {
+                DPRINT1("Invalid VDD DLL Handle: %d\n", Entry);
+                /* Stop the VDM */
+                VdmRunning = FALSE;
+                return;
+            }
+
+            /* Call the dispatch routine */
+            VDDList[Entry].DispatchRoutine();
+            break;
+        }
+
+        default:
+        {
+            DPRINT1("Unknown 3rd-party VDD BOP Function: 0x%02X\n", FuncNum);
+            setCF(1);
+            break;
+        }
+    }
+}
+
+/* PUBLIC FUNCTIONS ***********************************************************/
+
+VOID VDDSupInitialize(VOID)
+{
+    /* Register the 3rd-party VDD BOP Handler */
+    RegisterBop(BOP_3RDPARTY, ThirdPartyVDDBop);
+}
+
+/* EOF */

Propchange: branches/ntvdm/subsystems/ntvdm/vddsup.c
------------------------------------------------------------------------------
    svn:eol-style = native

Added: branches/ntvdm/subsystems/ntvdm/vddsup.h
URL:
http://svn.reactos.org/svn/reactos/branches/ntvdm/subsystems/ntvdm/vddsup.h…
==============================================================================
--- branches/ntvdm/subsystems/ntvdm/vddsup.h	(added)
+++ branches/ntvdm/subsystems/ntvdm/vddsup.h	[iso-8859-1] Tue Dec 17 02:19:52 2013
@@ -0,0 +1,20 @@
+/*
+ * COPYRIGHT:       GPL - See COPYING in the top level directory
+ * PROJECT:         ReactOS Virtual DOS Machine
+ * FILE:            vddsup.h
+ * PURPOSE:         Virtual DOS Drivers (VDD) Support
+ * PROGRAMMERS:     Hermes Belusca-Maito (hermes.belusca(a)sfr.fr)
+ */
+
+#ifndef _VDDSUP_H_
+#define _VDDSUP_H_
+
+/* DEFINES ********************************************************************/
+
+/* FUNCTIONS ******************************************************************/
+
+VOID VDDSupInitialize(VOID);
+
+#endif // _VDDSUP_H_
+
+/* EOF */

Propchange: branches/ntvdm/subsystems/ntvdm/vddsup.h
------------------------------------------------------------------------------
    svn:eol-style = native