Sweden-Number/msdos/int2f.c

618 lines
18 KiB
C

/* -*- tab-width: 8; c-basic-offset: 4 -*- */
/*
* DOS interrupt 2fh handler
*
* Cdrom - device driver emulation - Audio features.
* (c) 1998 Petr Tomasek <tomasek@etf.cuni.cz>
* (c) 1999 Eric Pouech
*/
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include "wine/winbase16.h"
#include "ldt.h"
#include "drive.h"
#include "msdos.h"
#include "miscemu.h"
#include "module.h"
#include "task.h"
#include "dosexe.h"
#include "heap.h"
/* #define DEBUG_INT */
#include "debug.h"
#include "cdrom.h"
/* base WPROCS.DLL ordinal number for VxDs */
#define VXD_BASE 400
static void do_int2f_16( CONTEXT *context );
static void do_mscdex( CONTEXT *context );
/**********************************************************************
* INT_Int2fHandler
*
* Handler for int 2fh (multiplex).
*/
void WINAPI INT_Int2fHandler( CONTEXT *context )
{
TRACE(int,"Subfunction 0x%X\n", AX_reg(context));
switch(AH_reg(context))
{
case 0x10:
AL_reg(context) = 0xff; /* share is installed */
break;
case 0x11: /* Network Redirector / IFSFUNC */
switch (AL_reg(context))
{
case 0x00: /* Install check */
/* not installed */
break;
case 0x80: /* Enhanced services - Install check */
/* not installed */
break;
default:
INT_BARF( context, 0x2f );
break;
}
break;
case 0x12:
switch (AL_reg(context))
{
case 0x2e: /* get or set DOS error table address */
switch (DL_reg(context))
{
/* Four tables: even commands are 'get', odd are 'set' */
/* DOS 5.0+ ignores "set" commands */
case 0x01:
case 0x03:
case 0x05:
case 0x07:
case 0x09:
break;
/* Instead of having a message table in DOS-space, */
/* we can use a special case for MS-DOS to force */
/* the secondary interface. */
case 0x00:
case 0x02:
case 0x04:
case 0x06:
ES_reg(context) = 0x0001;
DI_reg(context) = 0x0000;
break;
case 0x08:
FIXME(int, "No real-mode handler for errors yet! (bye!)");
break;
default:
INT_BARF(context, 0x2f);
}
break;
default:
INT_BARF(context, 0x2f);
}
break;
case 0x15: /* mscdex */
do_mscdex(context);
break;
case 0x16:
do_int2f_16( context );
break;
case 0x1a: /* ANSI.SYS / AVATAR.SYS Install Check */
/* Not supported yet, do nothing */
break;
case 0x43:
#if 1
switch (AL_reg(context))
{
case 0x00: /* XMS v2+ installation check */
WARN(int,"XMS is not fully implemented\n");
AL_reg(context) = 0x80;
break;
case 0x10: /* XMS v2+ get driver address */
{
TDB *pTask = (TDB *)GlobalLock16( GetCurrentTask() );
NE_MODULE *pModule = pTask ? NE_GetPtr( pTask->hModule ) : NULL;
GlobalUnlock16( GetCurrentTask() );
#ifdef MZ_SUPPORTED
if (pModule && pModule->lpDosTask)
ES_reg(context) = pModule->lpDosTask->xms_seg;
else
#endif
ES_reg(context) = 0;
BX_reg(context) = 0;
break;
}
default:
INT_BARF( context, 0x2f );
}
#else
FIXME(int,"check for XMS (not supported)\n");
AL_reg(context) = 0x42; /* != 0x80 */
#endif
break;
case 0x45:
switch (AL_reg(context))
{
case 0x00:
case 0x01:
case 0x02:
case 0x03:
case 0x04:
case 0x05:
case 0x06:
case 0x07:
case 0x08:
/* Microsoft Profiler - not installed */
break;
default:
INT_BARF( context, 0x2f );
}
break;
case 0x4a:
switch(AL_reg(context))
{
case 0x10: /* smartdrv */
break; /* not installed */
case 0x11: /* dblspace */
break; /* not installed */
case 0x12: /* realtime compression interface */
break; /* not installed */
case 0x32: /* patch IO.SYS (???) */
break; /* we have no IO.SYS, so we can't patch it :-/ */
default:
INT_BARF( context, 0x2f );
}
break;
case 0x56: /* INTERLNK */
switch(AL_reg(context))
{
case 0x01: /* check if redirected drive */
AL_reg(context) = 0; /* not redirected */
break;
default:
INT_BARF( context, 0x2f );
}
break;
case 0x7a: /* NOVELL NetWare */
switch (AL_reg(context))
{
case 0x20: /* Get VLM Call Address */
/* return nothing -> NetWare not installed */
break;
default:
INT_BARF( context, 0x2f );
break;
}
break;
case 0xb7: /* append */
AL_reg(context) = 0; /* not installed */
break;
case 0xb8: /* network */
switch (AL_reg(context))
{
case 0x00: /* Install check */
/* not installed */
break;
default:
INT_BARF( context, 0x2f );
break;
}
break;
case 0xbd: /* some Novell network install check ??? */
AX_reg(context) = 0xa5a5; /* pretend to have Novell IPX installed */
break;
case 0xbf: /* REDIRIFS.EXE */
switch (AL_reg(context))
{
case 0x00: /* Install check */
/* not installed */
break;
default:
INT_BARF( context, 0x2f );
break;
}
break;
case 0xd7: /* Banyan Vines */
switch (AL_reg(context))
{
case 0x01: /* Install check - Get Int Number */
/* not installed */
break;
default:
INT_BARF( context, 0x2f );
break;
}
break;
case 0xfa: /* Watcom debugger check, returns 0x666 if installed */
break;
default:
INT_BARF( context, 0x2f );
break;
}
}
/**********************************************************************
* do_int2f_16
*/
static void do_int2f_16( CONTEXT *context )
{
DWORD addr;
switch(AL_reg(context))
{
case 0x00: /* Windows enhanced mode installation check */
AX_reg(context) = (GetWinFlags() & WF_ENHANCED) ?
LOWORD(GetVersion16()) : 0;
break;
case 0x0a: /* Get Windows version and type */
AX_reg(context) = 0;
BX_reg(context) = (LOWORD(GetVersion16()) << 8) |
(LOWORD(GetVersion16()) >> 8);
CX_reg(context) = (GetWinFlags() & WF_ENHANCED) ? 3 : 2;
break;
case 0x0b: /* Identify Windows-aware TSRs */
/* we don't have any pre-Windows TSRs */
break;
case 0x11: /* Get Shell Parameters - (SHELL= in CONFIG.SYS) */
/* We can mock this up. But not today... */
FIXME(int, "Get Shell Parameters\n");
break;
case 0x80: /* Release time-slice */
AL_reg(context) = 0;
break;
case 0x81: /* Begin critical section. */
/* FIXME? */
break;
case 0x82: /* End critical section. */
/* FIXME? */
break;
case 0x83: /* Return Current Virtual Machine ID */
/* Virtual Machines are usually created/destroyed when Windows runs
* DOS programs. Since we never do, we are always in the System VM.
* According to Ralf Brown's Interrupt List, never return 0. But it
* seems to work okay (returning 0), just to be sure we return 1.
*/
BX_reg(context) = 1; /* VM 1 is probably the System VM */
break;
case 0x84: /* Get device API entry point */
addr = (DWORD)NE_GetEntryPoint( GetModuleHandle16("WPROCS"),
VXD_BASE + BX_reg(context) );
if (!addr) /* not supported */
{
ERR(int,"Accessing unknown VxD %04x - Expect a failure now.\n",
BX_reg(context) );
}
ES_reg(context) = SELECTOROF(addr);
DI_reg(context) = OFFSETOF(addr);
break;
case 0x86: /* DPMI detect mode */
AX_reg(context) = 0; /* Running under DPMI */
break;
case 0x87: /* DPMI installation check */
#if 1 /* DPMI still breaks pkunzip */
if (ISV86(context)) break; /* so bail out for now if in v86 mode */
#endif
{
TDB *pTask = (TDB *)GlobalLock16( GetCurrentTask() );
NE_MODULE *pModule = pTask ? NE_GetPtr( pTask->hModule ) : NULL;
SYSTEM_INFO si;
GlobalUnlock16( GetCurrentTask() );
GetSystemInfo(&si);
AX_reg(context) = 0x0000; /* DPMI Installed */
BX_reg(context) = 0x0001; /* 32bits available */
CL_reg(context) = si.wProcessorLevel;
DX_reg(context) = 0x005a; /* DPMI major/minor 0.90 */
SI_reg(context) = 0; /* # of para. of DOS extended private data */
#ifdef MZ_SUPPORTED /* ES:DI is DPMI switch entry point */
if (pModule && pModule->lpDosTask)
ES_reg(context) = pModule->lpDosTask->dpmi_seg;
else
#endif
ES_reg(context) = 0;
DI_reg(context) = 0;
break;
}
case 0x8a: /* DPMI get vendor-specific API entry point. */
/* The 1.0 specs say this should work with all 0.9 hosts. */
break;
default:
INT_BARF( context, 0x2f );
}
}
void do_mscdex( CONTEXT *context )
{
int drive, count;
char* p;
switch(AL_reg(context)) {
case 0x00: /* Installation check */
/* Count the number of contiguous CDROM drives
*/
for (drive = count = 0; drive < MAX_DOS_DRIVES; drive++) {
if (DRIVE_GetType(drive) == TYPE_CDROM) {
while (DRIVE_GetType(drive + count) == TYPE_CDROM) count++;
break;
}
}
TRACE(int, "Installation check: %d cdroms, starting at %d\n", count, drive);
BX_reg(context) = count;
CX_reg(context) = (drive < MAX_DOS_DRIVES) ? drive : 0;
break;
case 0x0B: /* drive check */
AX_reg(context) = (DRIVE_GetType(CX_reg(context)) == TYPE_CDROM);
BX_reg(context) = 0xADAD;
break;
case 0x0C: /* get version */
BX_reg(context) = 0x020a;
break;
case 0x0D: /* get drive letters */
p = CTX_SEG_OFF_TO_LIN(context, ES_reg(context), EBX_reg(context));
memset( p, 0, MAX_DOS_DRIVES );
for (drive = 0; drive < MAX_DOS_DRIVES; drive++) {
if (DRIVE_GetType(drive) == TYPE_CDROM) *p++ = drive;
}
break;
case 0x10: /* direct driver acces */
{
static WINE_CDAUDIO wcda;
BYTE* driver_request;
BYTE* io_stru;
u_char Error = 255; /* No Error */
int dorealmode = ISV86(context);
driver_request = (dorealmode) ?
DOSMEM_MapRealToLinear(MAKELONG(BX_reg(context),ES_reg(context))) :
PTR_SEG_OFF_TO_LIN(ES_reg(context),BX_reg(context));
if (!driver_request) {
/* FIXME - to be deleted ?? */
ERR(int," ES:BX==0 ! SEGFAULT ?\n");
ERR(int," -->BX=0x%04x, ES=0x%04lx, DS=0x%04lx, CX=0x%04x\n",
BX_reg(context), ES_reg(context), DS_reg(context), CX_reg(context));
} else {
/* FIXME - would be best to open the device at the begining of the wine session ....
*/
if (wcda.unixdev <= 0)
CDAUDIO_Open(&wcda);
}
TRACE(int,"CDROM device driver -> command <%d>\n", (unsigned char)driver_request[2]);
/* set status to 0 */
driver_request[3] = driver_request[4] = 0;
CDAUDIO_GetCDStatus(&wcda);
switch (driver_request[2]) {
case 3:
io_stru = (dorealmode) ?
DOSMEM_MapRealToLinear(MAKELONG(*((WORD*)(driver_request + 14)), *((WORD*)(driver_request + 16)))) :
PTR_SEG_OFF_TO_LIN(*((WORD*)(driver_request + 16)), *((WORD*)(driver_request + 18)));
TRACE(int," --> IOCTL INPUT <%d>\n", io_stru[0]);
switch (io_stru[0]) {
#if 0
case 0: /* Get device Header */
{
static LPSTR ptr = 0;
if (ptr == 0) {
ptr = SEGPTR_ALLOC(22);
*((DWORD*)(ptr )) = ~1; /* Next Device Driver */
*((WORD* )(ptr + 4)) = 0xC800; /* Device attributes */
*((WORD* )(ptr + 6)) = 0x1234; /* Pointer to device strategy routine: FIXME */
*((WORD* )(ptr + 8)) = 0x3142; /* Pointer to device interrupt routine: FIXME */
*((char*) (ptr + 10)) = 'W'; /* 8-byte character device name field */
*((char*) (ptr + 11)) = 'I';
*((char*) (ptr + 12)) = 'N';
*((char*) (ptr + 13)) = 'E';
*((char*) (ptr + 14)) = '_';
*((char*) (ptr + 15)) = 'C';
*((char*) (ptr + 16)) = 'D';
*((char*) (ptr + 17)) = '_';
*((WORD*) (ptr + 18)) = 0; /* Reserved (must be zero) */
*((BYTE*) (ptr + 20)) = 0; /* Drive letter (must be zero) */
*((BYTE*) (ptr + 21)) = 1; /* Number of units supported (one or more) FIXME*/
}
((DWORD*)io_stru+1)[0] = SEGPTR_GET(ptr);
}
break;
#endif
case 1: /* location of head */
if (io_stru[1] == 0) {
/* FIXME: what if io_stru+2 is not DWORD aligned ? */
((DWORD*)io_stru+2)[0] = wcda.dwCurFrame;
TRACE(int," ----> HEAD LOCATION <%ld>\n", ((DWORD*)io_stru+2)[0]);
} else {
ERR(int,"CDRom-Driver: Unsupported addressing mode !!\n");
Error = 0x0c;
}
break;
case 4: /* Audio channel info */
io_stru[1] = 0;
io_stru[2] = 0xff;
io_stru[3] = 1;
io_stru[4] = 0xff;
io_stru[5] = 2;
io_stru[6] = 0xff;
io_stru[7] = 3;
io_stru[8] = 0xff;
TRACE(int," ----> AUDIO CHANNEL CONTROL\n");
break;
case 6: /* device status */
/* FIXME .. does this work properly ?? */
io_stru[3] = io_stru[4] = 0;
io_stru[2] = 1; /* supports audio channels (?? FIXME ??) */
io_stru[1] = 16; /* data read and plays audio tracks */
if (wcda.cdaMode == WINE_CDA_OPEN)
io_stru[1] |= 1;
TRACE(int," ----> DEVICE STATUS <0x%08lx>\n", (DWORD)io_stru[1]);
break;
case 8: /* Volume size */
*((DWORD*)(io_stru+1)) = wcda.dwTotalLen;
TRACE(int," ----> VOLMUE SIZE <0x%08lx>\n", *((DWORD*)(io_stru+1)));
break;
case 9: /* media changed ? */
/* answers don't know... -1/1 for yes/no would be better */
io_stru[0] = 0; /* FIXME? 1? */
break;
case 10: /* audio disk info */
io_stru[1] = wcda.nFirstTrack; /* starting track of the disc */
io_stru[2] = wcda.nLastTrack; /* ending track */
((DWORD*)io_stru+3)[0] = wcda.dwFirstOffset;
TRACE(int," ----> AUDIO DISK INFO <%d-%d/%ld>\n",
io_stru[1], io_stru[2], ((DWORD *)io_stru+3)[0]);
break;
case 11: /* audio track info */
((DWORD*)io_stru+2)[0] = wcda.lpdwTrackPos[io_stru[1]];
/* starting point if the track */
io_stru[6] = wcda.lpbTrackFlags[io_stru[1]];
TRACE(int," ----> AUDIO TRACK INFO <track=%d>[%ld:%d]\n",
io_stru[1],((DWORD *)io_stru+2)[0], io_stru[6]);
break;
case 12: /* get Q-Channel / Subchannel (??) info */
io_stru[ 1] = wcda.lpbTrackFlags[wcda.nCurTrack];
io_stru[ 2] = wcda.nCurTrack;
io_stru[ 3] = 0; /* FIXME ?? */
{
DWORD f = wcda.lpdwTrackPos[wcda.nCurTrack] - wcda.dwCurFrame;
io_stru[ 4] = f / CDFRAMES_PERMIN;
io_stru[ 5] = (f - CDFRAMES_PERMIN * io_stru[4]) / CDFRAMES_PERSEC;
io_stru[ 6] = f - CDFRAMES_PERMIN * io_stru[4] - CDFRAMES_PERSEC * io_stru[5];
}
io_stru[ 7] = 0;
{
DWORD f = wcda.dwCurFrame;
io_stru[ 8] = f / CDFRAMES_PERMIN;
io_stru[ 9] = (f - CDFRAMES_PERMIN * io_stru[4]) / CDFRAMES_PERSEC;
io_stru[10] = f - CDFRAMES_PERMIN * io_stru[4] - CDFRAMES_PERSEC * io_stru[5];
}
break;
case 15: /* Audio status info */
/* !!!! FIXME FIXME FIXME !! */
*((WORD*)(io_stru+1)) = (wcda.cdaMode == WINE_CDA_PAUSE);
*((DWORD*)(io_stru+3)) = wcda.lpdwTrackPos[0];
*((DWORD*)(io_stru+7)) = wcda.lpdwTrackPos[wcda.nTracks - 1];
break;
default:
FIXME(int," Cdrom-driver: IOCTL INPUT: Unimplemented <%d>!!\n", io_stru[0]);
Error=0x0c;
break;
}
break;
case 12:
io_stru = (dorealmode) ?
DOSMEM_MapRealToLinear(MAKELONG(*((WORD*)(driver_request + 14)), *((WORD*)(driver_request + 16)))) :
PTR_SEG_OFF_TO_LIN(*((WORD*)(driver_request + 16)), *((WORD*)(driver_request + 18)));
TRACE(int," --> IOCTL OUTPUT <%d>\n",io_stru[0]);
switch (io_stru[0]) {
case 0: /* eject */
CDAUDIO_SetDoor(&wcda, 1);
TRACE(int," ----> EJECT\n");
break;
case 2: /* reset drive */
CDAUDIO_Reset(&wcda);
TRACE(int," ----> RESET\n");
break;
case 3: /* Audio Channel Control */
FIXME(int, " ----> AUDIO CHANNEL CONTROL (NIY)\n");
break;
case 5: /* close tray */
CDAUDIO_SetDoor(&wcda, 0);
TRACE(int," ----> CLOSE TRAY\n");
break;
default:
FIXME(int," Cdrom-driver: IOCTL OUPUT: Unimplemented <%d>!!\n",
io_stru[0]);
Error=0x0c;
break;
}
break;
case 132: /* FIXME - It didn't function for me... */
TRACE(int," --> PLAY AUDIO\n");
if (driver_request[13] == 0) {
TRACE(int,"Mode :<0x%02X> , [%ld-%ld]\n",
(unsigned char)driver_request[13],
((DWORD*)driver_request+14)[0],
((DWORD*)driver_request+18)[0]);
CDAUDIO_Play(&wcda, ((DWORD*)driver_request+14)[0], ((DWORD*)driver_request+14)[0] + ((DWORD*)driver_request+18)[0]);
} else {
ERR(int, "CDRom-Driver: Unsupported address mode !!\n");
Error=0x0c;
}
break;
case 133:
if (wcda.cdaMode == WINE_CDA_PLAY) {
CDAUDIO_Pause(&wcda, 1);
TRACE(int," --> STOP AUDIO (Paused)\n");
} else {
CDAUDIO_Stop(&wcda);
TRACE(int," --> STOP AUDIO (Stopped)\n");
}
break;
case 136:
TRACE(int," --> RESUME AUDIO\n");
CDAUDIO_Pause(&wcda, 0);
break;
default:
FIXME(int," CDRom-Driver - ioctl uninplemented <%d>\n",driver_request[2]);
Error=0x0c;
}
if (Error<255) {
driver_request[4] |= 127;
driver_request[3] = Error;
}
driver_request[4] |= 2 * (wcda.cdaMode = WINE_CDA_PLAY);
/* close (fdcd); FIXME !! -- cannot use close when ejecting
the cd-rom - close would close it again */
}
break;
default:
FIXME(int, "Unimplemented MSCDEX function 0x%02X.\n", AL_reg(context));
break;
}
}