dem.c File Reference

#include "ntvdm.h"
#include <debug.h>
#include "emulator.h"
#include <isvbop.h>
#include "utils.h"
#include "dem.h"
#include "dos/dos32krnl/device.h"
#include "dos/dos32krnl/memory.h"
#include "dos/dos32krnl/process.h"
#include "cpu/bop.h"
#include "cpu/cpu.h"
#include "bios/bios.h"
#include "mouse32.h"
#include "vddsup.h"
#include "command_com.h"

Include dependency graph for dem.c:

Go to the source code of this file.

Classes
struct	_COMSPEC_INFO
struct	_NEXT_CMD
struct	_DOS_START_PROC32

Macros
#define	NDEBUG

Typedefs
typedef struct _COMSPEC_INFO	COMSPEC_INFO
typedef struct _COMSPEC_INFO *	PCOMSPEC_INFO
typedef struct _NEXT_CMD	NEXT_CMD
typedef struct _NEXT_CMD *	PNEXT_CMD
typedef struct _DOS_START_PROC32	DOS_START_PROC32
typedef struct _DOS_START_PROC32 *	PDOS_START_PROC32

Functions
VOID	Dem_BiosCharPrint (CHAR Character)
VOID	DosCharPrint (CHAR Character)
static VOID	DemLoadNTDOSKernel (VOID)
static VOID WINAPI	DosSystemBop (LPWORD Stack)
static PCOMSPEC_INFO	FindComSpecInfoByPsp (WORD Psp)
static VOID	InsertComSpecInfo (PCOMSPEC_INFO ComSpecInfo)
static VOID	RemoveComSpecInfo (PCOMSPEC_INFO ComSpecInfo)
static VOID	DosProcessConsoleAttach (VOID)
static VOID	DosProcessConsoleDetach (VOID)
static VOID	CmdStartProcess (VOID)
static VOID	CmdStartExternalCommand (VOID)
static VOID	CmdStartComSpec32 (VOID)
static VOID	CmdSetExitCode (VOID)
static VOID WINAPI	DosCmdInterpreterBop (LPWORD Stack)
static DWORD	DosStartComSpec (IN BOOLEAN Permanent, IN LPCSTR Environment OPTIONAL, IN DWORD ReturnAddress OPTIONAL, OUT PWORD ComSpecPsp OPTIONAL)
static DWORD WINAPI	CommandThreadProc (LPVOID Parameter)
DWORD	DosStartProcess32 (IN LPCSTR ExecutablePath, IN LPCSTR CommandLine, IN LPCSTR Environment OPTIONAL, IN DWORD ReturnAddress OPTIONAL, IN BOOLEAN StartComSpec)
static VOID WINAPI	DosInitialize (LPWORD Stack)
VOID	DosBootsectorInitialize (VOID)
static VOID WINAPI	DosStart (LPWORD Stack)
BOOLEAN	DosShutdown (BOOLEAN Immediate)
DWORD WINAPI	demClientErrorEx (IN HANDLE FileHandle, IN CHAR Unknown, IN BOOL Flag)
DWORD WINAPI	demFileDelete (IN LPCSTR FileName)
static BOOLEAN	dempIsFileMatch (_Inout_ PWIN32_FIND_DATAA FindData, _In_ WORD AttribMask, _Out_ PCSTR *ShortName)
	Helper for demFileFindFirst() and demFileFindNext(). Returns TRUE if a file matches the DOS attributes and has a 8.3 file name.
demFileFindFirst
Implementation of the DOS INT 21h, AH=4Eh "Find First File" function. Starts enumerating files that match the given file search specification and whose attributes are at most those specified by the mask. This means in particular that "normal files", i.e. files with no attributes set, are always enumerated along those matching the requested attributes. Parameters [out] pFindFileData Pointer to the DTA (Disk Transfer Area) filled with FindFirst data block. [in] FileName File search specification (may include path and wildcards). [in] AttribMask Mask of file attributes. Includes files with a given attribute bit set if the corresponding bit is set to 1 in the mask. Excludes files with a given attribute bit set if the corresponding bit is set to 0 in the mask. Supported file attributes: FA_NORMAL 0x0000 FA_READONLY 0x0001 (ignored) FA_HIDDEN 0x0002 FA_SYSTEM 0x0004 FA_VOLID 0x0008 (not currently supported) FA_LABEL FA_DIRECTORY 0x0010 FA_ARCHIVE 0x0020 (ignored) FA_DEVICE 0x0040 (ignored) Returns ERROR_SUCCESS on success (found match), or a last error (match not found). See also demFileFindNext()
DWORD WINAPI	demFileFindFirst (_Out_ PVOID pFindFileData, _In_ PCSTR FileName, _In_ WORD AttribMask)
demFileFindNext
Implementation of the DOS INT 21h, AH=4Fh "Find Next File" function. Continues enumerating files, with the same file search specification and attributes as those given to the first demFileFindFirst() call. Parameters [in,out] pFindFileData Pointer to the DTA (Disk Transfer Area) filled with FindFirst data block. Returns ERROR_SUCCESS on success (found match), or a last error (match not found). See also demFileFindFirst()
DWORD WINAPI	demFileFindNext (_Inout_ PVOID pFindFileData)
UCHAR WINAPI	demGetPhysicalDriveType (IN UCHAR DriveNumber)
BOOL WINAPI	demIsShortPathName (IN LPCSTR Path, IN BOOL Unknown)
DWORD WINAPI	demSetCurrentDirectoryGetDrive (IN LPCSTR CurrentDirectory, OUT PUCHAR DriveNumber)

Variables
static ULONG	SessionId = 0
static COMSPEC_INFO	RootCmd
static DWORD	ReentrancyCount = 0
static LIST_ENTRY	ComSpecInfoList = { &ComSpecInfoList, &ComSpecInfoList }
static VDM_COMMAND_INFO	CommandInfo
static BOOLEAN	Repeat = FALSE
static BOOLEAN	Reentry = FALSE
static BOOLEAN	First = TRUE
static CHAR	CmdLine [MAX_PATH] = ""
static CHAR	AppName [MAX_PATH] = ""
static CHAR	PifFile [MAX_PATH] = ""
static CHAR	CurDirectory [MAX_PATH] = ""
static CHAR	Desktop [MAX_PATH] = ""
static CHAR	Title [MAX_PATH] = ""
static ULONG	EnvSize = 256
static PVOID	Env = NULL
static BYTE	Bootsector1 []
static BYTE	Bootsector2 []
static BYTE	Startup []

Macro Definition Documentation

NDEBUG

#define NDEBUG

Definition at line 17 of file dem.c.

Typedef Documentation

COMSPEC_INFO

typedef struct _COMSPEC_INFO COMSPEC_INFO

DOS_START_PROC32

typedef struct _DOS_START_PROC32 DOS_START_PROC32

NEXT_CMD

typedef struct _NEXT_CMD NEXT_CMD

PCOMSPEC_INFO

typedef struct _COMSPEC_INFO * PCOMSPEC_INFO

PDOS_START_PROC32

typedef struct _DOS_START_PROC32 * PDOS_START_PROC32

PNEXT_CMD

typedef struct _NEXT_CMD * PNEXT_CMD

Function Documentation

CmdSetExitCode()

static VOID CmdSetExitCode ( VOID  )

static

Definition at line 505 of file dem.c.

{
#ifndef STANDALONE
    BOOL Success;
    PCOMSPEC_INFO ComSpecInfo;
    VDM_COMMAND_INFO CommandInfo;
#endif
 
    /* Pause the VM */
    EmulatorPause();
 
#ifndef STANDALONE
    /*
     * Check whether we need to shell out now in case we were started by a 32-bit app,
     * or we were started alone along with the root 32-bit app.
     */
    ComSpecInfo = FindComSpecInfoByPsp(Sda->CurrentPsp);
    if ((ComSpecInfo && ComSpecInfo->Terminated) ||
        (ComSpecInfo == &RootCmd && SessionId != 0))
    {
        RemoveComSpecInfo(ComSpecInfo);
#endif
        DPRINT1("Exit DOS from ExitCode (prologue)!\n");
        setCF(0);
        goto Quit;
#ifndef STANDALONE
    }
 
    /* Clear the VDM structure */
    RtlZeroMemory(&CommandInfo, sizeof(CommandInfo));
 
Retry:
    /* Update the VDM state of the task */
    // CommandInfo.TaskId = SessionId;
    CommandInfo.ExitCode = getDX();
    CommandInfo.VDMState = VDM_FLAG_DONT_WAIT;
    DPRINT1("Calling GetNextVDMCommand 32bit end of VDM task\n");
    Success = GetNextVDMCommand(&CommandInfo);
    DPRINT1("GetNextVDMCommand 32bit end of VDM task success = %s, last error = %d\n", Success ? "true" : "false", GetLastError());
 
    /*
     * Check whether we were awaited because the 32-bit process was stopped,
     * or because it started a new DOS application.
     */
    if (CommandInfo.CmdLen != 0 || CommandInfo.AppLen != 0 || CommandInfo.PifLen != 0)
    {
        DPRINT1("GetNextVDMCommand end-of-app, this is for a new VDM task - CmdLen = %d, AppLen = %d, PifLen = %d\n",
                CommandInfo.CmdLen, CommandInfo.AppLen, CommandInfo.PifLen);
 
        /* Repeat the request */
        Repeat = TRUE;
        setCF(1);
    }
    else
    {
        DPRINT1("GetNextVDMCommand end-of-app, the app stopped\n");
 
        /* Check whether we need to shell out now in case we were started by a 32-bit app */
        ComSpecInfo = FindComSpecInfoByPsp(Sda->CurrentPsp);
        if (!ComSpecInfo || !ComSpecInfo->Terminated)
        {
            DPRINT1("Not our 32-bit app, retrying...\n");
            goto Retry;
        }
 
        ASSERT(ComSpecInfo->Terminated == TRUE);
 
        /* Record found, remove it and exit now */
        RemoveComSpecInfo(ComSpecInfo);
 
        DPRINT1("Exit DOS from ExitCode wait!\n");
        setCF(0);
    }
#endif
 
    // FIXME: Use the retrieved exit code as the value of our exit code
    // when COMMAND.COM will shell-out ??
 
Quit:
    /* Resume the VM */
    EmulatorResume();
}

Referenced by DosCmdInterpreterBop().

CmdStartComSpec32()

static VOID CmdStartComSpec32 ( VOID  )

static

Definition at line 465 of file dem.c.

{
    DWORD Result;
 
    // TODO: improve: this code has strong similarities with the
    // 'default' case of DosCreateProcess and with the 'case 0x08'.
 
    CHAR CmdLine[sizeof("cmd.exe") + 1] = "";
 
    /* Spawn a user-defined 32-bit command preprocessor */
 
    // FIXME: Use COMSPEC env var!!
    strcpy(CmdLine, "cmd.exe");
 
    DPRINT1("CMD Run 32-bit Command Interpreter '%s'\n", CmdLine);
 
    /*
     * No need to prepare the stack for DosStartComSpec since we won't start it.
     */
    Result = DosStartProcess32(CmdLine, CmdLine,
                               SEG_OFF_TO_PTR(getES(), 0) /*Environment*/,
                               MAKELONG(getIP(), getCS()) /*ReturnAddress*/,
                               FALSE);
    if (Result != ERROR_SUCCESS)
    {
        DosDisplayMessage("Failed to start 32-bit Command Interpreter '%s'. Error: %u\n", CmdLine, Result);
        setCF(0);
        setAL((UCHAR)Result);
    }
    else
    {
        DosDisplayMessage("32-bit Command Interpreter '%s' started successfully.\n", CmdLine);
#ifndef STANDALONE
        setCF(Repeat); // Set CF if we need to start a 16-bit process
#else
        setCF(0);
#endif
    }
}

Referenced by DosCmdInterpreterBop().

CmdStartExternalCommand()

static VOID CmdStartExternalCommand ( VOID  )

static

Definition at line 411 of file dem.c.

{
    DWORD Result;
 
    // TODO: improve: this code has strong similarities
    // with the 'default' case of DosCreateProcess.
 
    LPSTR Command = (LPSTR)SEG_OFF_TO_PTR(getDS(), getSI());
    CHAR CmdLine[sizeof("cmd.exe /c ") + DOS_CMDLINE_LENGTH + 1] = "";
    LPSTR CmdLinePtr;
    SIZE_T CmdLineLen;
 
    /* Spawn a user-defined 32-bit command preprocessor */
 
    // FIXME: Use COMSPEC env var!!
    CmdLinePtr = CmdLine;
    strcpy(CmdLinePtr, "cmd.exe /c ");
    CmdLinePtr += strlen(CmdLinePtr);
 
    /* Build a Win32-compatible command-line */
    CmdLineLen = min(strlen(Command), sizeof(CmdLine) - strlen(CmdLinePtr) - 1);
    RtlCopyMemory(CmdLinePtr, Command, CmdLineLen);
    CmdLinePtr[CmdLineLen] = '\0';
 
    /* Remove any trailing return carriage character and NULL-terminate the command line */
    while (*CmdLinePtr && *CmdLinePtr != '\r' && *CmdLinePtr != '\n') CmdLinePtr++;
    *CmdLinePtr = '\0';
 
    DPRINT1("CMD Run Command '%s' ('%s')\n", Command, CmdLine);
 
    /*
     * No need to prepare the stack for DosStartComSpec since we won't start it.
     */
    Result = DosStartProcess32(Command, CmdLine,
                               SEG_OFF_TO_PTR(getES(), 0) /*Environment*/,
                               MAKELONG(getIP(), getCS()) /*ReturnAddress*/,
                               FALSE);
    if (Result != ERROR_SUCCESS)
    {
        DosDisplayMessage("Failed to start command '%s' ('%s'). Error: %u\n", Command, CmdLine, Result);
        setCF(0);
        setAL((UCHAR)Result);
    }
    else
    {
        DosDisplayMessage("Command '%s' ('%s') started successfully.\n", Command, CmdLine);
#ifndef STANDALONE
        setCF(Repeat); // Set CF if we need to start a 16-bit process
#else
        setCF(0);
#endif
    }
}

Referenced by DosCmdInterpreterBop().

CmdStartProcess()

static VOID CmdStartProcess ( VOID  )

static

Definition at line 290 of file dem.c.

{
#ifndef STANDALONE
    PCOMSPEC_INFO ComSpecInfo;
#endif
    SIZE_T CmdLen;
    PNEXT_CMD DataStruct = (PNEXT_CMD)SEG_OFF_TO_PTR(getDS(), getDX());
 
    DPRINT1("CmdStartProcess -- DS:DX = %04X:%04X (DataStruct = 0x%p)\n",
            getDS(), getDX(), DataStruct);
 
    /* Pause the VM */
    EmulatorPause();
 
#ifndef STANDALONE
    /* Check whether we need to shell out now in case we were started by a 32-bit app */
    ComSpecInfo = FindComSpecInfoByPsp(Sda->CurrentPsp);
    if (ComSpecInfo && ComSpecInfo->Terminated)
    {
        RemoveComSpecInfo(ComSpecInfo);
 
        DPRINT1("Exit DOS from start-app BOP\n");
        setCF(1);
        goto Quit;
    }
 
    /* Clear the structure */
    RtlZeroMemory(&CommandInfo, sizeof(CommandInfo));
 
    /* Initialize the structure members */
    CommandInfo.TaskId = SessionId;
    CommandInfo.VDMState = VDM_FLAG_DOS;
    CommandInfo.CmdLine = CmdLine;
    CommandInfo.CmdLen = sizeof(CmdLine);
    CommandInfo.AppName = AppName;
    CommandInfo.AppLen = sizeof(AppName);
    CommandInfo.PifFile = PifFile;
    CommandInfo.PifLen = sizeof(PifFile);
    CommandInfo.CurDirectory = CurDirectory;
    CommandInfo.CurDirectoryLen = sizeof(CurDirectory);
    CommandInfo.Desktop = Desktop;
    CommandInfo.DesktopLen = sizeof(Desktop);
    CommandInfo.Title = Title;
    CommandInfo.TitleLen = sizeof(Title);
    CommandInfo.Env = Env;
    CommandInfo.EnvLen = EnvSize;
 
    if (First) CommandInfo.VDMState |= VDM_FLAG_FIRST_TASK;
 
Command:
 
    if (Repeat) CommandInfo.VDMState |= VDM_FLAG_RETRY;
    Repeat = FALSE;
 
    /* Get the VDM command information */
    DPRINT1("Calling GetNextVDMCommand in CmdStartProcess: wait for new VDM task...\n");
    if (!GetNextVDMCommand(&CommandInfo))
    {
        DPRINT1("CmdStartProcess - GetNextVDMCommand failed, retrying... last error = %d\n", GetLastError());
        if (CommandInfo.EnvLen > EnvSize)
        {
            /* Expand the environment size */
            EnvSize = CommandInfo.EnvLen;
            CommandInfo.Env = Env = RtlReAllocateHeap(RtlGetProcessHeap(), HEAP_ZERO_MEMORY, Env, EnvSize);
 
            /* Repeat the request */
            Repeat = TRUE;
            goto Command;
        }
 
        /* Shouldn't happen */
        DisplayMessage(L"An unrecoverable failure happened from start-app BOP; exiting DOS.");
        setCF(1);
        goto Quit;
    }
 
    // FIXME: What happens if some other 32-bit app is killed while we are waiting there??
 
    DPRINT1("CmdStartProcess - GetNextVDMCommand succeeded, start app...\n");
 
#else
 
    if (!First)
    {
        DPRINT1("Exit DOS from start-app BOP\n");
        setCF(1);
        goto Quit;
    }
 
#endif
 
    /* Compute the command line length, not counting the terminating "\r\n" */
    CmdLen = strlen(CmdLine);
    if (CmdLen >= 2 && CmdLine[CmdLen - 2] == '\r')
        CmdLen -= 2;
 
    DPRINT1("Starting '%s' ('%.*s')...\n", AppName, CmdLen, CmdLine);
 
    /* Start the process */
    // FIXME: Merge 'Env' with the master environment SEG_OFF_TO_PTR(SYSTEM_ENV_BLOCK, 0)
    // FIXME: Environment
    RtlCopyMemory(SEG_OFF_TO_PTR(DataStruct->AppNameSeg, DataStruct->AppNameOff), AppName, MAX_PATH);
    *(PBYTE)(SEG_OFF_TO_PTR(DataStruct->CmdLineSeg, DataStruct->CmdLineOff)) = (BYTE)CmdLen;
    RtlCopyMemory(SEG_OFF_TO_PTR(DataStruct->CmdLineSeg, DataStruct->CmdLineOff + 1), CmdLine, DOS_CMDLINE_LENGTH);
 
#ifndef STANDALONE
    /* Update console title if we run in a separate console */
    if (SessionId != 0)
        SetConsoleTitleA(AppName);
#endif
 
    First = FALSE;
    setCF(0);
 
    DPRINT1("App started!\n");
 
Quit:
    /* Resume the VM */
    EmulatorResume();
}

Referenced by DosCmdInterpreterBop().

CommandThreadProc()

static DWORD WINAPI CommandThreadProc ( LPVOID  Parameter )

static

Definition at line 828 of file dem.c.

{
    BOOL Success;
    PROCESS_INFORMATION ProcessInfo;
    STARTUPINFOA StartupInfo;
    DWORD dwExitCode;
    PDOS_START_PROC32 DosStartProc32 = (PDOS_START_PROC32)Parameter;
#ifndef STANDALONE
    VDM_COMMAND_INFO CommandInfo;
    PCOMSPEC_INFO ComSpecInfo = DosStartProc32->ComSpecInfo;
#endif
 
    /* Set up the VDM, startup and process info structures */
#ifndef STANDALONE
    RtlZeroMemory(&CommandInfo, sizeof(CommandInfo));
#endif
    RtlZeroMemory(&ProcessInfo, sizeof(ProcessInfo));
    RtlZeroMemory(&StartupInfo, sizeof(StartupInfo));
    StartupInfo.cb = sizeof(StartupInfo);
 
    // FIXME: Build suitable 32-bit environment!!
 
#ifndef STANDALONE
    /*
     * Wait for signaling a new VDM task and increment the VDM re-entry count so
     * that we can handle 16-bit apps that may be possibly started by the 32-bit app.
     */
    CommandInfo.VDMState = VDM_INC_REENTER_COUNT;
    DPRINT1("Calling GetNextVDMCommand reenter++\n");
    Success = GetNextVDMCommand(&CommandInfo);
    DPRINT1("GetNextVDMCommand reenter++ success = %s, last error = %d\n", Success ? "true" : "false", GetLastError());
    ++ReentrancyCount;
#endif
 
    /* Start the process */
    Success = CreateProcessA(NULL, // ProgramName,
                             DosStartProc32->CommandLine,
                             NULL,
                             NULL,
                             TRUE, // Inherit handles
                             CREATE_DEFAULT_ERROR_MODE | CREATE_SUSPENDED,
                             DosStartProc32->Environment,
                             NULL, // lpCurrentDirectory, see "START" command in cmd.exe
                             &StartupInfo,
                             &ProcessInfo);
 
#ifndef STANDALONE
    /* Signal our caller the process was started */
    SetEvent(DosStartProc32->hEvent);
    // After this point, 'DosStartProc32' is not valid anymore.
#endif
 
    if (Success)
    {
        /* Resume the process */
        ResumeThread(ProcessInfo.hThread);
 
        /* Wait for the process to finish running and retrieve its exit code */
        WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
        GetExitCodeProcess(ProcessInfo.hProcess, &dwExitCode);
 
        /* Close the handles */
        CloseHandle(ProcessInfo.hThread);
        CloseHandle(ProcessInfo.hProcess);
    }
    else
    {
        dwExitCode = GetLastError();
    }
 
#ifndef STANDALONE
    ASSERT(ComSpecInfo);
    ComSpecInfo->Terminated = TRUE;
    ComSpecInfo->dwExitCode = dwExitCode;
 
    /* Decrement the VDM re-entry count */
    CommandInfo.VDMState = VDM_DEC_REENTER_COUNT;
    DPRINT1("Calling GetNextVDMCommand reenter--\n");
    Success = GetNextVDMCommand(&CommandInfo);
    DPRINT1("GetNextVDMCommand reenter-- success = %s, last error = %d\n", Success ? "true" : "false", GetLastError());
    --ReentrancyCount;
 
    return 0;
#else
    return dwExitCode;
#endif
}

Referenced by DosStartProcess32().

Dem_BiosCharPrint()

VOID Dem_BiosCharPrint

(

CHAR

Character

)

Definition at line 57 of file dem.c.

{
    /* Save AX and BX */
    USHORT AX = getAX();
    USHORT BX = getBX();
 
    /*
     * Set the parameters:
     * AL contains the character to print,
     * BL contains the character attribute,
     * BH contains the video page to use.
     */
    setAL(Character);
    setBL(DEFAULT_ATTRIBUTE);
    setBH(Bda->VideoPage);
 
    /* Call the BIOS INT 10h, AH=0Eh "Teletype Output" */
    setAH(0x0E);
    Int32Call(&DosContext, BIOS_VIDEO_INTERRUPT);
 
    /* Restore AX and BX */
    setBX(BX);
    setAX(AX);
}

demClientErrorEx()

DWORD WINAPI demClientErrorEx	(	IN HANDLE	FileHandle,
		IN CHAR	Unknown,
		IN BOOL	Flag
	)

Definition at line 1392 of file dem.c.

{
    UNIMPLEMENTED;
    return GetLastError();
}

demFileDelete()

DWORD WINAPI demFileDelete

(

IN LPCSTR

FileName

)

Definition at line 1402 of file dem.c.

{
    if (DeleteFileA(FileName)) SetLastError(ERROR_SUCCESS);
 
    return GetLastError();
}

Referenced by DosInt21h().

demFileFindFirst()

DWORD WINAPI demFileFindFirst	(	_Out_ PVOID	pFindFileData,
		_In_ PCSTR	FileName,
		_In_ WORD	AttribMask
	)

Definition at line 1515 of file dem.c.

{
    PDOS_FIND_FILE_BLOCK FindFileBlock = (PDOS_FIND_FILE_BLOCK)pFindFileData;
    HANDLE SearchHandle;
    WIN32_FIND_DATAA FindData;
    PCSTR ShortName = NULL;
 
    /* Reset the private block fields */
    RtlZeroMemory(FindFileBlock, RTL_SIZEOF_THROUGH_FIELD(DOS_FIND_FILE_BLOCK, SearchHandle));
 
    // TODO: Handle FA_VOLID for volume label.
    if (AttribMask & FA_VOLID)
    {
        DPRINT1("demFileFindFirst: Volume label attribute is UNIMPLEMENTED!\n");
        AttribMask &= ~FA_VOLID; // Remove it for the time being...
    }
 
    /* Filter out the ignored attributes */
    AttribMask &= ~(FA_DEVICE | FA_ARCHIVE | FA_READONLY);
 
    /* Start a search */
    SearchHandle = FindFirstFileA(FileName, &FindData);
    if (SearchHandle == INVALID_HANDLE_VALUE)
        return GetLastError();
 
    /* Check the attributes and retry as long as we haven't found a matching file */
    while (!dempIsFileMatch(&FindData, AttribMask, &ShortName))
    {
        /* Continue searching. If we fail at some point,
         * stop the search and return an error. */
        if (!FindNextFileA(SearchHandle, &FindData))
        {
            FindClose(SearchHandle);
            return GetLastError();
        }
    }
 
    /* Fill the block */
    FindFileBlock->DriveLetter  = DosData->Sda.CurrentDrive + 'A';
    strncpy(FindFileBlock->Pattern, FileName, _countof(FindFileBlock->Pattern));
    FindFileBlock->AttribMask   = AttribMask;
    FindFileBlock->SearchHandle = SearchHandle;
    FindFileBlock->Attributes   = LOBYTE(FindData.dwFileAttributes);
    FileTimeToDosDateTime(&FindData.ftLastWriteTime,
                          &FindFileBlock->FileDate,
                          &FindFileBlock->FileTime);
    FindFileBlock->FileSize = FindData.nFileSizeHigh ? MAXDWORD
                                                     : FindData.nFileSizeLow;
 
    /* Copy the NULL-terminated short file name */
    RtlStringCchCopyA(FindFileBlock->FileName,
                      _countof(FindFileBlock->FileName),
                      ShortName);
 
    return ERROR_SUCCESS;
}

Referenced by DosInt21h().

demFileFindNext()

DWORD WINAPI demFileFindNext

(

_Inout_ PVOID

pFindFileData

)

Definition at line 1592 of file dem.c.

{
    PDOS_FIND_FILE_BLOCK FindFileBlock = (PDOS_FIND_FILE_BLOCK)pFindFileData;
    HANDLE SearchHandle = FindFileBlock->SearchHandle;
    WIN32_FIND_DATAA FindData;
    PCSTR ShortName = NULL;
 
    do
    {
        /* Continue searching. If we fail at some point,
         * stop the search and return an error. */
        if (!FindNextFileA(SearchHandle, &FindData))
        {
            FindClose(SearchHandle);
 
            /* Reset the private block fields */
            RtlZeroMemory(FindFileBlock, RTL_SIZEOF_THROUGH_FIELD(DOS_FIND_FILE_BLOCK, SearchHandle));
            return GetLastError();
        }
    }
    /* Check the attributes and retry as long as we haven't found a matching file */
    while (!dempIsFileMatch(&FindData, FindFileBlock->AttribMask, &ShortName));
 
    /* Update the block */
    FindFileBlock->Attributes = LOBYTE(FindData.dwFileAttributes);
    FileTimeToDosDateTime(&FindData.ftLastWriteTime,
                          &FindFileBlock->FileDate,
                          &FindFileBlock->FileTime);
    FindFileBlock->FileSize = FindData.nFileSizeHigh ? MAXDWORD
                                                     : FindData.nFileSizeLow;
 
    /* Copy the NULL-terminated short file name */
    RtlStringCchCopyA(FindFileBlock->FileName,
                      _countof(FindFileBlock->FileName),
                      ShortName);
 
    return ERROR_SUCCESS;
}

Referenced by DosInt21h().

demGetPhysicalDriveType()

UCHAR WINAPI demGetPhysicalDriveType

(

IN UCHAR

DriveNumber

)

Definition at line 1634 of file dem.c.

{
    UNIMPLEMENTED;
    return DOSDEVICE_DRIVE_UNKNOWN;
}

demIsShortPathName()

BOOL WINAPI demIsShortPathName	(	IN LPCSTR	Path,
		IN BOOL	Unknown
	)

Definition at line 1642 of file dem.c.

{
    UNIMPLEMENTED;
    return FALSE;
}

DemLoadNTDOSKernel()

static VOID DemLoadNTDOSKernel ( VOID  )

static

Definition at line 88 of file dem.c.

{
    BOOLEAN Success = FALSE;
    LPCSTR  DosKernelFileName = "ntdos.sys";
    HANDLE  hDosKernel;
    ULONG   ulDosKernelSize = 0;
 
    DPRINT1("You are loading Windows NT DOS!\n");
 
    /* Open the DOS kernel file */
    hDosKernel = FileOpen(DosKernelFileName, &ulDosKernelSize);
    if (hDosKernel == NULL) goto Quit;
 
    /*
     * Attempt to load the DOS kernel into memory.
     * The segment where to load the DOS kernel is defined
     * by the DOS BIOS and is found in DI:0000 .
     */
    Success = FileLoadByHandle(hDosKernel,
                               REAL_TO_PHYS(TO_LINEAR(getDI(), 0x0000)),
                               ulDosKernelSize,
                               &ulDosKernelSize);
 
    DPRINT1("Windows NT DOS file '%s' loading %s at %04X:%04X, size 0x%X (Error: %u).\n",
            DosKernelFileName,
            (Success ? "succeeded" : "failed"),
            getDI(), 0x0000,
            ulDosKernelSize,
            GetLastError());
 
    /* Close the DOS kernel file */
    FileClose(hDosKernel);
 
Quit:
    if (!Success)
    {
        /* We failed everything, stop the VDM */
        BiosDisplayMessage("Windows NT DOS kernel file '%s' loading failed (Error: %u). The VDM will shut down.\n",
                           DosKernelFileName, GetLastError());
        EmulatorTerminate();
        return;
    }
}

Referenced by DosSystemBop().

dempIsFileMatch()

static BOOLEAN dempIsFileMatch ( _Inout_ PWIN32_FIND_DATAA  FindData, _In_ WORD  AttribMask, _Out_ PCSTR *  ShortName  )

static

Helper for demFileFindFirst() and demFileFindNext(). Returns TRUE if a file matches the DOS attributes and has a 8.3 file name.

Definition at line 1414 of file dem.c.

{
    /* Convert in place the attributes to DOS format */
    FindData->dwFileAttributes = NT_TO_DOS_FA(FindData->dwFileAttributes);
 
    /* Check the attributes */
    if ((FindData->dwFileAttributes & (FA_HIDDEN | FA_SYSTEM | FA_DIRECTORY))
        & ~AttribMask)
    {
        return FALSE;
    }
 
    /* Check whether the file has a 8.3 file name */
    if (*FindData->cAlternateFileName)
    {
        /* Use the available one */
        *ShortName = FindData->cAlternateFileName;
        return TRUE;
    }
    else
    {
        /*
         * Verify whether the original long name is actually a valid
         * 8.3 file name. Note that we cannot use GetShortPathName()
         * since the latter works on full paths, that we do not always have.
         */
        BOOLEAN IsNameLegal, SpacesInName;
        WCHAR FileNameBufferU[_countof(FindData->cFileName) + 1];
        UNICODE_STRING FileNameU;
        ANSI_STRING FileNameA;
 
        RtlInitAnsiString(&FileNameA, FindData->cFileName);
        RtlInitEmptyUnicodeString(&FileNameU, FileNameBufferU, sizeof(FileNameBufferU));
        RtlAnsiStringToUnicodeString(&FileNameU, &FileNameA, FALSE);
 
        IsNameLegal = RtlIsNameLegalDOS8Dot3(&FileNameU,
                                             NULL, // (lpOemName ? &AnsiName : NULL),
                                             &SpacesInName);
 
        if (!IsNameLegal || SpacesInName)
        {
            /* This is an error situation */
            DPRINT1("'%.*s' is %s 8.3 filename %s spaces\n",
                    _countof(FindData->cFileName), FindData->cFileName,
                    (IsNameLegal ? "a valid" : "an invalid"), (SpacesInName ? "with" : "without"));
        }
 
        if (IsNameLegal && !SpacesInName)
        {
            /* We can use the original name */
            *ShortName = FindData->cFileName;
            return TRUE;
        }
    }
 
    DPRINT1("No short 8.3 filename available for '%.*s'\n",
            _countof(FindData->cFileName), FindData->cFileName);
 
    return FALSE;
}

Referenced by demFileFindFirst(), and demFileFindNext().

demSetCurrentDirectoryGetDrive()

DWORD WINAPI demSetCurrentDirectoryGetDrive	(	IN LPCSTR	CurrentDirectory,
		OUT PUCHAR	DriveNumber
	)

Definition at line 1651 of file dem.c.

{
    UNIMPLEMENTED;
    return ERROR_SUCCESS;
}

DosBootsectorInitialize()

VOID DosBootsectorInitialize

(

VOID

)

Definition at line 1089 of file dem.c.

{
    /* We write the bootsector at 0000:7C00 */
    ULONG_PTR StartAddress = (ULONG_PTR)SEG_OFF_TO_PTR(0x0000, 0x7C00);
    ULONG_PTR Address = StartAddress;
    CHAR DosKernelFileName[] = ""; // No DOS BIOS file name, therefore we will load DOS32
 
    DPRINT("DosBootsectorInitialize\n");
 
    /* Write the "bootsector" */
    RtlCopyMemory((PVOID)Address, Bootsector1, sizeof(Bootsector1));
    Address += sizeof(Bootsector1);
    RtlCopyMemory((PVOID)Address, DosKernelFileName, sizeof(DosKernelFileName));
    Address += sizeof(DosKernelFileName);
    RtlCopyMemory((PVOID)Address, Bootsector2, sizeof(Bootsector2));
    Address += sizeof(Bootsector2);
 
    /* Initialize the callback context */
    InitializeContext(&DosContext, 0x0000,
                      (ULONG_PTR)MEM_ALIGN_UP(0x7C00 + Address - StartAddress, sizeof(WORD)));
 
    /* Register the DOS Loading BOP */
    RegisterBop(BOP_LOAD_DOS, DosInitialize);
}

Referenced by BiosBootstrapLoader().

DosCharPrint()

VOID DosCharPrint

(

CHAR

Character

)

Definition at line 82 of file dem.c.

{
    DosPrintCharacter(DOS_OUTPUT_HANDLE, Character);
}

DosCmdInterpreterBop()

static VOID WINAPI DosCmdInterpreterBop ( LPWORD  Stack )

static

Definition at line 588 of file dem.c.

{
    /* Get the Function Number and skip it */
    BYTE FuncNum = *(PBYTE)SEG_OFF_TO_PTR(getCS(), getIP());
    setIP(getIP() + 1);
 
    switch (FuncNum)
    {
        /* Kill the VDM */
        case 0x00:
        {
            /* Stop the VDM */
            EmulatorTerminate();
            return;
        }
 
        /*
         * Get a new app to start
         *
         * Input
         *     DS:DX : Data block.
         *
         * Output
         *     CF    : 0: Success; 1: Failure.
         */
        case 0x01:
        {
            CmdStartProcess();
            break;
        }
 
        /*
         * Check binary format
         *
         * Input
         *     DS:DX : Program to check.
         *
         * Output
         *     CF    : 0: Success; 1: Failure.
         *     AX    : Error code.
         */
        case 0x07:
        {
            DWORD BinaryType;
            LPSTR ProgramName = (LPSTR)SEG_OFF_TO_PTR(getDS(), getDX());
 
            if (!GetBinaryTypeA(ProgramName, &BinaryType))
            {
                /* An error happened, bail out */
                setCF(1);
                setAX(LOWORD(GetLastError()));
                break;
            }
 
            // FIXME: We only support DOS binaries for now...
            ASSERT(BinaryType == SCS_DOS_BINARY);
            if (BinaryType != SCS_DOS_BINARY)
            {
                /* An error happened, bail out */
                setCF(1);
                setAX(LOWORD(ERROR_BAD_EXE_FORMAT));
                break;
            }
 
            /* Return success: DOS application */
            setCF(0);
            break;
        }
 
        /*
         * Start an external command
         *
         * Input
         *     DS:SI : Command to start.
         *     ES    : Environment block segment.
         *     AL    : Current drive number.
         *     AH    : 0: Directly start the command;
         *             1: Use "cmd.exe /c" to start the command.
         *
         * Output
         *     CF    : 0: Shell-out; 1: Continue.
         *     AL    : Error/Exit code.
         */
        case 0x08:
        {
            CmdStartExternalCommand();
            break;
        }
 
        /*
         * Start the default 32-bit command interpreter (COMSPEC)
         *
         * Input
         *     ES    : Environment block segment.
         *     AL    : Current drive number.
         *
         * Output
         *     CF    : 0: Shell-out; 1: Continue.
         *     AL    : Error/Exit code.
         */
        case 0x0A:
        {
            CmdStartComSpec32();
            break;
        }
 
        /*
         * Set exit code
         *
         * Input
         *     DX    : Exit code
         *
         * Output
         *     CF    : 0: Shell-out; 1: Continue.
         */
        case 0x0B:
        {
            CmdSetExitCode();
            break;
        }
 
        /*
         * Get start information
         *
         * Output
         *     AL    : 0 (resp. 1): Started from (resp. without) an existing console.
         */
        case 0x10:
        {
#ifndef STANDALONE
            /*
             * When a new instance of our (internal) COMMAND.COM is started,
             * we check whether we need to run a 32-bit COMSPEC. This goes by
             * checking whether we were started in a new console (no parent
             * console process) or from an existing one.
             *
             * However COMMAND.COM can also be started in the case where a
             * 32-bit process (started by a 16-bit parent) wants to start a new
             * 16-bit process: to ensure DOS reentry we need to start a new
             * instance of COMMAND.COM. On Windows the COMMAND.COM is started
             * just before the 32-bit process (in fact, it is this COMMAND.COM
             * which starts the 32-bit process via an undocumented command-line
             * switch '/z', which syntax is:
             *     COMMAND.COM /z\bAPPNAME.EXE
             * notice the '\b' character inserted in-between. Then COMMAND.COM
             * issues a BOP_CMD 08h with AH=00h to start the process).
             *
             * Instead, we do the reverse, i.e. we start the 32-bit process,
             * and *only* if needed, i.e. if this process wants to start a
             * new 16-bit process, we start our COMMAND.COM.
             *
             * The problem we then face is that our COMMAND.COM will possibly
             * want to start a new COMSPEC, however we do not want this.
             * The chosen solution is to flag this case -- done with the 'Reentry'
             * boolean -- so that COMMAND.COM will not attempt to start COMSPEC
             * but instead will directly try to start the 16-bit process.
             */
            // setAL(SessionId != 0);
            setAL((SessionId != 0) && !Reentry);
            /* Reset 'Reentry' */
            Reentry = FALSE;
#else
            setAL(0);
#endif
            break;
        }
 
        default:
        {
            DPRINT1("Unknown DOS CMD Interpreter BOP Function: 0x%02X\n", FuncNum);
            // setCF(1); // Disable, otherwise we enter an infinite loop
            break;
        }
    }
}

Referenced by DosInitialize().

DosInitialize()

static VOID WINAPI DosInitialize ( LPWORD  Stack )

static

Definition at line 1129 of file dem.c.

{
    /* Get the DOS BIOS file name (NULL-terminated) */
    // FIXME: Isn't it possible to use some DS:SI instead??
    LPCSTR DosBiosFileName = (LPCSTR)SEG_OFF_TO_PTR(getCS(), getIP());
    setIP(getIP() + (USHORT)strlen(DosBiosFileName) + 1); // Skip it
 
    DPRINT("DosInitialize('%s')\n", DosBiosFileName);
 
    /*
     * We succeeded, deregister the DOS Loading BOP
     * so that no app will be able to call us back.
     */
    RegisterBop(BOP_LOAD_DOS, NULL);
 
    /* Register the DOS BOPs */
    RegisterBop(BOP_DOS, DosSystemBop        );
    RegisterBop(BOP_CMD, DosCmdInterpreterBop);
 
    if (DosBiosFileName[0] != '\0')
    {
        BOOLEAN Success = FALSE;
        HANDLE  hDosBios;
        ULONG   ulDosBiosSize = 0;
 
        /* Open the DOS BIOS file */
        hDosBios = FileOpen(DosBiosFileName, &ulDosBiosSize);
        if (hDosBios == NULL) goto Quit;
 
        /* Attempt to load the DOS BIOS into memory */
        Success = FileLoadByHandle(hDosBios,
                                   REAL_TO_PHYS(TO_LINEAR(0x0070, 0x0000)),
                                   ulDosBiosSize,
                                   &ulDosBiosSize);
 
        DPRINT1("DOS BIOS file '%s' loading %s at %04X:%04X, size 0x%X (Error: %u).\n",
                DosBiosFileName,
                (Success ? "succeeded" : "failed"),
                0x0070, 0x0000,
                ulDosBiosSize,
                GetLastError());
 
        /* Close the DOS BIOS file */
        FileClose(hDosBios);
 
Quit:
        if (!Success)
        {
            BiosDisplayMessage("DOS BIOS file '%s' loading failed (Error: %u). The VDM will shut down.\n",
                               DosBiosFileName, GetLastError());
            return;
        }
    }
    else
    {
        /* Load the 16-bit startup code for DOS32 and register its Starting BOP */
        RtlCopyMemory(SEG_OFF_TO_PTR(0x0070, 0x0000), Startup, sizeof(Startup));
 
        // This is the equivalent of BOP_LOAD_DOS, function 0x11 "Load the DOS kernel"
        // for the Windows NT DOS.
        RegisterBop(BOP_START_DOS, DosStart);
    }
 
    /* Position execution pointers for DOS startup and return */
    setCS(0x0070);
    setIP(0x0000);
}

Referenced by DosBootsectorInitialize().

DosProcessConsoleAttach()

static VOID DosProcessConsoleAttach ( VOID  )

static

Definition at line 228 of file dem.c.

{
    /* Attach to the console */
    ConsoleAttach();
    VidBiosAttachToConsole();
}

Referenced by DosStart(), and DosStartProcess32().

DosProcessConsoleDetach()

static VOID DosProcessConsoleDetach ( VOID  )

static

Definition at line 235 of file dem.c.

{
    /* Detach from the console */
    VidBiosDetachFromConsole();
    ConsoleDetach();
}

Referenced by DosStartProcess32().

DosShutdown()

BOOLEAN DosShutdown

(

BOOLEAN

Immediate

)

Definition at line 1331 of file dem.c.

{
    /*
     * Immediate = TRUE:  Immediate shutdown;
     *             FALSE: Delayed shutdown (notification).
     */
 
#ifndef STANDALONE
    if (Immediate)
    {
        ExitVDM(FALSE, 0);
        return TRUE;
    }
    else
    {
// HACK!
extern HANDLE VdmTaskEvent; // see emulator.c
 
        /*
         * Signal the root COMMAND.COM that it should terminate
         * when it checks for a new command.
         */
        RootCmd.Terminated = TRUE;
 
        /* If the list is already empty, or just contains only one element, bail out */
        // FIXME: Question: if the list has only one element, is it ALWAYS RootCmd ??
        // FIXME: The following is hackish.
        if ((IsListEmpty(&ComSpecInfoList) ||
            (ComSpecInfoList.Flink == &RootCmd.Entry   &&
             ComSpecInfoList.Blink == &RootCmd.Entry)) &&
            ReentrancyCount == 0 &&
            WaitForSingleObject(VdmTaskEvent, 0) == WAIT_TIMEOUT)
        {
            /* Nothing runs, so exit immediately */
            ExitVDM(FALSE, 0);
            return TRUE;
        }
 
        return FALSE;
    }
#else
    UNREFERENCED_PARAMETER(Immediate);
    return TRUE;
#endif
}

Referenced by VdmShutdown().

DosStart()

static VOID WINAPI DosStart ( LPWORD  Stack )

static

Definition at line 1197 of file dem.c.

{
    BOOLEAN Success;
    DWORD Result;
#ifndef STANDALONE
    INT i;
#endif
 
    DPRINT("DosStart\n");
 
    /*
     * We succeeded, deregister the DOS Starting BOP
     * so that no app will be able to call us back.
     */
    RegisterBop(BOP_START_DOS, NULL);
 
    /* Initialize the callback context */
    InitializeContext(&DosContext, BIOS_CODE_SEGMENT, 0x0010);
 
    Success  = DosBIOSInitialize();
//  Success &= DosKRNLInitialize();
    if (!Success)
    {
        BiosDisplayMessage("DOS32 loading failed (Error: %u). The VDM will shut down.\n", GetLastError());
        EmulatorTerminate();
        return;
    }
 
    /* Load the mouse driver */
    DosMouseInitialize();
 
#ifndef STANDALONE
 
    /* Parse the command line arguments */
    for (i = 1; i < NtVdmArgc; i++)
    {
        if (wcsncmp(NtVdmArgv[i], L"-i", 2) == 0)
        {
            /* This is the session ID (hex format) */
            SessionId = wcstoul(NtVdmArgv[i] + 2, NULL, 16);
        }
    }
 
    /* Initialize Win32-VDM environment */
    Env = RtlAllocateHeap(RtlGetProcessHeap(), HEAP_ZERO_MEMORY, EnvSize);
    if (Env == NULL)
    {
        DosDisplayMessage("Failed to initialize the global environment (Error: %u). The VDM will shut down.\n", GetLastError());
        EmulatorTerminate();
        return;
    }
 
    /* Clear the structure */
    RtlZeroMemory(&CommandInfo, sizeof(CommandInfo));
 
    /* Get the initial information */
    CommandInfo.TaskId = SessionId;
    CommandInfo.VDMState = VDM_GET_FIRST_COMMAND | VDM_FLAG_DOS;
    GetNextVDMCommand(&CommandInfo);
 
#else
 
    /* Retrieve the command to start */
    if (NtVdmArgc >= 2)
    {
        WideCharToMultiByte(CP_ACP, 0, NtVdmArgv[1], -1, AppName, sizeof(AppName), NULL, NULL);
 
        if (NtVdmArgc >= 3)
            WideCharToMultiByte(CP_ACP, 0, NtVdmArgv[2], -1, CmdLine, sizeof(CmdLine), NULL, NULL);
        else
            strcpy(CmdLine, "");
    }
    else
    {
        DosDisplayMessage("Invalid DOS command line\n");
        EmulatorTerminate();
        return;
    }
 
#endif
 
    /*
     * At this point, CS:IP points to the DOS BIOS exit code. If the
     * root command interpreter fails to start (or if it exits), DOS
     * exits and the VDM terminates.
     */
 
    /* Start the root command interpreter */
    // TODO: Really interpret the 'SHELL=' line of CONFIG.NT, and use it!
 
    /*
     * Prepare the stack for DosStartComSpec:
     * push Flags, CS and IP, and an extra WORD.
     */
    setSP(getSP() - sizeof(WORD));
    *((LPWORD)SEG_OFF_TO_PTR(getSS(), getSP())) = (WORD)getEFLAGS();
    setSP(getSP() - sizeof(WORD));
    *((LPWORD)SEG_OFF_TO_PTR(getSS(), getSP())) = getCS();
    setSP(getSP() - sizeof(WORD));
    *((LPWORD)SEG_OFF_TO_PTR(getSS(), getSP())) = getIP();
    setSP(getSP() - sizeof(WORD));
 
    Result = DosStartComSpec(TRUE, SEG_OFF_TO_PTR(SYSTEM_ENV_BLOCK, 0),
                             MAKELONG(getIP(), getCS()),
#ifndef STANDALONE
                             &RootCmd.ComSpecPsp
#else
                             NULL
#endif
                             );
    if (Result != ERROR_SUCCESS)
    {
        /* Unprepare the stack for DosStartComSpec */
        setSP(getSP() + 4*sizeof(WORD));
 
        DosDisplayMessage("Failed to start the Command Interpreter (Error: %u). The VDM will shut down.\n", Result);
        EmulatorTerminate();
        return;
    }
 
#ifndef STANDALONE
    RootCmd.Terminated = FALSE;
    InsertComSpecInfo(&RootCmd);
#endif
 
    
    /* Attach to the console and resume the VM */
    DosProcessConsoleAttach();
    EmulatorResume();
    
 
    return;
}

Referenced by DosInitialize().

DosStartComSpec()

static DWORD DosStartComSpec ( IN BOOLEAN  Permanent, IN LPCSTR Environment  OPTIONAL, IN DWORD ReturnAddress  OPTIONAL, OUT PWORD ComSpecPsp  OPTIONAL  )

static

Definition at line 772 of file dem.c.

{
    /*
     * BOOLEAN Permanent
     *   TRUE to simulate the /P switch of command.com: starts AUTOEXEC.BAT/NT
     *   and makes the interpreter permanent (cannot exit).
     */
 
    DWORD Result;
 
    if (ComSpecPsp) *ComSpecPsp = 0;
 
    Result =
#ifndef COMSPEC_FULLY_EXTERNAL
    DosLoadExecutableInternal(DOS_LOAD_AND_EXECUTE,
                              CommandCom,
                              sizeof(CommandCom),
                              "COMMAND.COM",
#else
            DosLoadExecutable(DOS_LOAD_AND_EXECUTE,
#ifndef STANDALONE  // FIXME: Those values are hardcoded paths on my local test machines!!
                              "C:\\CMDCMD.COM",
#else
                              "H:\\DOS_tests\\CMDCMD.COM",
#endif // STANDALONE
#endif // COMSPEC_FULLY_EXTERNAL
                              NULL,
                              Permanent ? "/P" : "",
                              Environment ? Environment : "", // FIXME: Default environment!
                              ReturnAddress);
    if (Result != ERROR_SUCCESS) return Result;
 
    /* TODO: Read AUTOEXEC.NT/BAT */
 
    /* Retrieve the PSP of the COMSPEC (current PSP set by DosLoadExecutable) */
    if (ComSpecPsp) *ComSpecPsp = Sda->CurrentPsp;
 
    return Result;
}

Referenced by DosStart(), and DosStartProcess32().

DosStartProcess32()

DWORD DosStartProcess32	(	IN LPCSTR	ExecutablePath,
		IN LPCSTR	CommandLine,
		IN LPCSTR Environment	OPTIONAL,
		IN DWORD ReturnAddress	OPTIONAL,
		IN BOOLEAN	StartComSpec
	)

Definition at line 916 of file dem.c.

{
    DWORD Result = ERROR_SUCCESS;
    HANDLE CommandThread;
    DOS_START_PROC32 DosStartProc32;
#ifndef STANDALONE
    BOOL Success;
    VDM_COMMAND_INFO CommandInfo;
#endif
 
    DosStartProc32.ExecutablePath = (LPSTR)ExecutablePath;
    DosStartProc32.CommandLine    = (LPSTR)CommandLine;
    DosStartProc32.Environment    = (LPSTR)Environment;
 
#ifndef STANDALONE
    DosStartProc32.ComSpecInfo =
        RtlAllocateHeap(RtlGetProcessHeap(),
                        HEAP_ZERO_MEMORY,
                        sizeof(*DosStartProc32.ComSpecInfo));
    ASSERT(DosStartProc32.ComSpecInfo);
 
    DosStartProc32.hEvent = CreateEventW(NULL, FALSE, FALSE, NULL);
    ASSERT(DosStartProc32.hEvent);
#endif
 
    /* Pause the VM and detach from the console */
    EmulatorPause();
    DosProcessConsoleDetach();
 
    /* Start the 32-bit process via another thread */
    CommandThread = CreateThread(NULL, 0, &CommandThreadProc, &DosStartProc32, 0, NULL);
    if (CommandThread == NULL)
    {
        DisplayMessage(L"FATAL: Failed to create the command processing thread: %d", GetLastError());
        Result = GetLastError();
        goto Quit;
    }
 
#ifndef STANDALONE
    /* Close the thread handle */
    CloseHandle(CommandThread);
 
    /* Wait for the process to be ready to start */
    WaitForSingleObject(DosStartProc32.hEvent, INFINITE);
 
    /* Wait for any potential new DOS app started by the 32-bit process */
    RtlZeroMemory(&CommandInfo, sizeof(CommandInfo));
 
Retry:
    CommandInfo.VDMState = VDM_FLAG_NESTED_TASK | VDM_FLAG_DONT_WAIT;
    DPRINT1("Calling GetNextVDMCommand 32bit for possible new VDM task...\n");
    Success = GetNextVDMCommand(&CommandInfo);
    DPRINT1("GetNextVDMCommand 32bit awaited, success = %s, last error = %d\n", Success ? "true" : "false", GetLastError());
 
    /*
     * Check whether we were awaited because the 32-bit process was stopped,
     * or because it started a new DOS application.
     */
    if (CommandInfo.CmdLen != 0 || CommandInfo.AppLen != 0 || CommandInfo.PifLen != 0)
    {
        DPRINT1("GetNextVDMCommand 32bit, this is for a new VDM task - CmdLen = %d, AppLen = %d, PifLen = %d\n",
                CommandInfo.CmdLen, CommandInfo.AppLen, CommandInfo.PifLen);
 
        /* Repeat the request */
        Repeat = TRUE;
 
        /*
         * Set 'Reentry' to TRUE or FALSE depending on whether we are going
         * to reenter with a new COMMAND.COM. See the comment for:
         *     BOP_CMD 0x10 'Get start information'
         * (dem.c!DosCmdInterpreterBop) for more details.
         */
        Reentry = StartComSpec;
 
        /* If needed, start a new command interpreter to handle the possible incoming DOS commands */
        if (StartComSpec)
        {
            //
            // DosStartProcess32 was only called by DosCreateProcess, called from INT 21h,
            // so the caller stack is already prepared for running a new DOS program
            // (Flags, CS and IP, and the extra interrupt number, are already pushed).
            //
            Result = DosStartComSpec(FALSE, Environment, ReturnAddress,
                                     &DosStartProc32.ComSpecInfo->ComSpecPsp);
            if (Result != ERROR_SUCCESS)
            {
                DosDisplayMessage("Failed to start a new Command Interpreter (Error: %u).\n", Result);
                goto Quit;
            }
        }
        else
        {
            /* Retrieve the PSP of the COMSPEC (current PSP set by DosLoadExecutable) */
            DosStartProc32.ComSpecInfo->ComSpecPsp = Sda->CurrentPsp;
            Result = ERROR_SUCCESS;
        }
 
        /* Insert the new entry in the list; it will be freed when needed by COMMAND.COM */
        InsertComSpecInfo(DosStartProc32.ComSpecInfo);
    }
    else
    {
        DPRINT1("GetNextVDMCommand 32bit, 32-bit app stopped\n");
 
        /* Check whether this was our 32-bit app which was killed */
        if (!DosStartProc32.ComSpecInfo->Terminated)
        {
            DPRINT1("Not our 32-bit app, retrying...\n");
            goto Retry;
        }
 
        Result = DosStartProc32.ComSpecInfo->dwExitCode;
 
        /* Delete the entry */
        RtlFreeHeap(RtlGetProcessHeap(), 0, DosStartProc32.ComSpecInfo);
    }
#else
    /* Wait for the thread to finish */
    WaitForSingleObject(CommandThread, INFINITE);
    GetExitCodeThread(CommandThread, &Result);
 
    /* Close the thread handle */
    CloseHandle(CommandThread);
 
    DPRINT1("32-bit app stopped\n");
#endif
 
Quit:
#ifndef STANDALONE
    CloseHandle(DosStartProc32.hEvent);
#endif
 
    /* Attach to the console and resume the VM */
    DosProcessConsoleAttach();
    EmulatorResume();
 
    return Result;
}

Referenced by CmdStartComSpec32(), CmdStartExternalCommand(), and DosCreateProcess().

DosSystemBop()

static VOID WINAPI DosSystemBop ( LPWORD  Stack )

static

Definition at line 132 of file dem.c.

{
    /* Get the Function Number and skip it */
    BYTE FuncNum = *(PBYTE)SEG_OFF_TO_PTR(getCS(), getIP());
    setIP(getIP() + 1);
 
    switch (FuncNum)
    {
        /* Load the DOS kernel */
        case 0x11:
        {
            DemLoadNTDOSKernel();
            break;
        }
 
        /* Call 32-bit Driver Strategy Routine */
        case BOP_DRV_STRATEGY:
        {
            DeviceStrategyBop();
            break;
        }
 
        /* Call 32-bit Driver Interrupt Routine */
        case BOP_DRV_INTERRUPT:
        {
            DeviceInterruptBop();
            break;
        }
 
        default:
        {
            DPRINT1("Unknown DOS System BOP Function: 0x%02X\n", FuncNum);
            // setCF(1); // Disable, otherwise we enter an infinite loop
            break;
        }
    }
}

Referenced by DosInitialize().

FindComSpecInfoByPsp()

static PCOMSPEC_INFO FindComSpecInfoByPsp ( WORD  Psp )

static

Definition at line 199 of file dem.c.

{
    PLIST_ENTRY Pointer;
    PCOMSPEC_INFO ComSpecInfo;
 
    for (Pointer = ComSpecInfoList.Flink; Pointer != &ComSpecInfoList; Pointer = Pointer->Flink)
    {
        ComSpecInfo = CONTAINING_RECORD(Pointer, COMSPEC_INFO, Entry);
        if (ComSpecInfo->ComSpecPsp == Psp) return ComSpecInfo;
    }
 
    return NULL;
}

Referenced by CmdSetExitCode(), and CmdStartProcess().

InsertComSpecInfo()

static VOID InsertComSpecInfo ( PCOMSPEC_INFO  ComSpecInfo )

static

Definition at line 214 of file dem.c.

{
    InsertHeadList(&ComSpecInfoList, &ComSpecInfo->Entry);
}

Referenced by DosStart(), and DosStartProcess32().

RemoveComSpecInfo()

static VOID RemoveComSpecInfo ( PCOMSPEC_INFO  ComSpecInfo )

static

Definition at line 220 of file dem.c.

{
    RemoveEntryList(&ComSpecInfo->Entry);
    if (ComSpecInfo != &RootCmd)
        RtlFreeHeap(RtlGetProcessHeap(), 0, ComSpecInfo);
}

Referenced by CmdSetExitCode(), and CmdStartProcess().

Variable Documentation

AppName

CHAR AppName[MAX_PATH] = ""

static

Definition at line 252 of file dem.c.

Referenced by AllocConsole(), BasepComputeProcessPath(), CmdStartProcess(), ConDllInitialize(), DosCreateProcess(), DosStart(), FindLabelContext(), GetINIValue(), IntAllocConsole(), main(), SetUpAppName(), shell(), and test_match_ex().

Bootsector1

BYTE Bootsector1[]

static

Initial value:

=
{
    LOBYTE(EMULATOR_BOP), HIBYTE(EMULATOR_BOP), BOP_LOAD_DOS
}

Definition at line 1076 of file dem.c.

Referenced by DosBootsectorInitialize().

Bootsector2

BYTE Bootsector2[]

static

Initial value:

=
{
    LOBYTE(EMULATOR_BOP), HIBYTE(EMULATOR_BOP), BOP_UNSIMULATE
}

Definition at line 1082 of file dem.c.

Referenced by DosBootsectorInitialize().

CmdLine

CHAR CmdLine[MAX_PATH] = ""

static

Definition at line 251 of file dem.c.

Referenced by CmdStartComSpec32(), CmdStartExternalCommand(), CmdStartProcess(), and DosStart().

CommandInfo

VDM_COMMAND_INFO CommandInfo

static

Definition at line 246 of file dem.c.

Referenced by BaseSrvCopyCommand(), BaseSrvFillCommandInfo(), BaseSrvFreeVDMInfo(), CmdSetExitCode(), CmdStartProcess(), CommandThreadProc(), DosStart(), and DosStartProcess32().

ComSpecInfoList

LIST_ENTRY ComSpecInfoList = { &ComSpecInfoList, &ComSpecInfoList }

static

Definition at line 196 of file dem.c.

Referenced by DosShutdown(), FindComSpecInfoByPsp(), and InsertComSpecInfo().

CurDirectory

CHAR CurDirectory[MAX_PATH] = ""

static

Definition at line 255 of file dem.c.

Referenced by CmdStartProcess().

Desktop

CHAR Desktop[MAX_PATH] = ""

static

Definition at line 256 of file dem.c.

Referenced by CmdStartProcess().

Env

PVOID Env = NULL

static

Definition at line 259 of file dem.c.

Referenced by CmdStartProcess(), DosStart(), and test_Predefined().

EnvSize

ULONG EnvSize = 256

static

Definition at line 258 of file dem.c.

Referenced by CmdStartProcess(), DosStart(), and test_Predefined().

First

BOOLEAN First = TRUE

static

Definition at line 250 of file dem.c.

Referenced by CmdStartProcess().

PifFile

CHAR PifFile[MAX_PATH] = ""

static

Definition at line 254 of file dem.c.

Referenced by CmdStartProcess().

ReentrancyCount

DWORD ReentrancyCount = 0

static

Definition at line 193 of file dem.c.

Referenced by CommandThreadProc(), and DosShutdown().

Reentry

BOOLEAN Reentry = FALSE

static

Definition at line 248 of file dem.c.

Referenced by DosCmdInterpreterBop(), and DosStartProcess32().

Repeat

BOOLEAN Repeat = FALSE

static

Definition at line 247 of file dem.c.

Referenced by CheckPattern(), CmdSetExitCode(), CmdStartComSpec32(), CmdStartExternalCommand(), CmdStartProcess(), DosStartProcess32(), FAST486_OPCODE_HANDLER(), MakePattern(), and ProcessTest().

RootCmd

COMSPEC_INFO RootCmd

static

Definition at line 192 of file dem.c.

Referenced by CmdSetExitCode(), DosShutdown(), DosStart(), and RemoveComSpecInfo().

SessionId

ULONG SessionId = 0

static

Definition at line 179 of file dem.c.

Referenced by CmdSetExitCode(), CmdStartProcess(), DosCmdInterpreterBop(), and DosStart().

Startup

BYTE Startup[]

static

Initial value:

=
{
    LOBYTE(EMULATOR_BOP), HIBYTE(EMULATOR_BOP), BOP_START_DOS,
    LOBYTE(EMULATOR_BOP), HIBYTE(EMULATOR_BOP), BOP_UNSIMULATE
}

Definition at line 1121 of file dem.c.

Referenced by DosInitialize(), and CImageDx::SHARED::Init().

Title

CHAR Title[MAX_PATH] = ""

static

Definition at line 257 of file dem.c.

Referenced by CmdStartProcess().