4 * Copyright 1995 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 #include "wine/port.h"
30 #include "wine/winbase16.h"
35 #include "selectors.h"
37 #include "wine/debug.h"
38 #include "stackframe.h"
40 WINE_DEFAULT_DEBUG_CHANNEL(int31
);
42 #define DOS_GET_DRIVE(reg) ((reg) ? (reg) - 1 : DRIVE_GetCurrentDrive())
44 void CreateBPB(int drive
, BYTE
*data
, BOOL16 limited
); /* defined in int21.c */
46 static void* lastvalloced
= NULL
;
49 DOSVM_TABLE Dosvm
= { NULL
, };
51 static HMODULE DosModule
;
53 /**********************************************************************
56 BOOL
DPMI_LoadDosSystem(void)
58 if (DosModule
) return TRUE
;
59 DosModule
= LoadLibraryA( "winedos.dll" );
61 ERR("could not load winedos.dll, DOS subsystem unavailable\n");
64 #define GET_ADDR(func) Dosvm.func = (void *)GetProcAddress(DosModule, #func);
71 GET_ADDR(RawModeSwitch
);
76 GET_ADDR(ASPIHandler
);
81 /**********************************************************************
83 * special virtualalloc, allocates lineary monoton growing memory.
84 * (the usual VirtualAlloc does not satisfy that restriction)
87 DPMI_xalloc(int len
) {
89 LPVOID oldlastv
= lastvalloced
;
95 ret
=VirtualAlloc(lastvalloced
,len
,MEM_COMMIT
|MEM_RESERVE
,PAGE_EXECUTE_READWRITE
);
97 lastvalloced
= (char *) lastvalloced
+ 0x10000;
98 /* we failed to allocate one in the first round.
101 if (!xflag
&& (lastvalloced
<oldlastv
)) { /* wrapped */
102 FIXME("failed to allocate lineary growing memory (%d bytes), using non-linear growing...\n",len
);
105 /* if we even fail to allocate something in the next
108 if ((xflag
==1) && (lastvalloced
>= oldlastv
))
110 if ((xflag
==2) && (lastvalloced
< oldlastv
)) {
111 FIXME("failed to allocate any memory of %d bytes!\n",len
);
116 ret
=VirtualAlloc(NULL
,len
,MEM_COMMIT
|MEM_RESERVE
,PAGE_EXECUTE_READWRITE
);
117 lastvalloced
= (LPVOID
)(((DWORD
)ret
+len
+0xffff)&~0xffff);
122 DPMI_xfree(LPVOID ptr
) {
123 VirtualFree(ptr
,0,MEM_RELEASE
);
126 /* FIXME: perhaps we could grow this mapped area... */
128 DPMI_xrealloc(LPVOID ptr
,DWORD newsize
) {
129 MEMORY_BASIC_INFORMATION mbi
;
132 newptr
= DPMI_xalloc(newsize
);
134 if (!VirtualQuery(ptr
,&mbi
,sizeof(mbi
))) {
135 FIXME("realloc of DPMI_xallocd region %p?\n",ptr
);
138 if (mbi
.State
== MEM_FREE
) {
139 FIXME("realloc of DPMI_xallocd region %p?\n",ptr
);
142 /* We do not shrink allocated memory. most reallocs
143 * only do grows anyway
145 if (newsize
<=mbi
.RegionSize
)
147 memcpy(newptr
,ptr
,mbi
.RegionSize
);
153 /**********************************************************************
156 static void CallRMInt( CONTEXT86
*context
)
158 if (!Dosvm
.CallRMInt
&& !DPMI_LoadDosSystem())
160 ERR("could not setup real-mode calls\n");
163 Dosvm
.CallRMInt( context
);
167 static void CallRMProc( CONTEXT86
*context
, int iret
)
169 if (!Dosvm
.CallRMProc
&& !DPMI_LoadDosSystem())
171 ERR("could not setup real-mode calls\n");
174 Dosvm
.CallRMProc( context
, iret
);
177 static void AllocRMCB( CONTEXT86
*context
)
179 if (!Dosvm
.AllocRMCB
&& !DPMI_LoadDosSystem())
181 ERR("could not setup real-mode calls\n");
184 Dosvm
.AllocRMCB( context
);
187 static void FreeRMCB( CONTEXT86
*context
)
189 if (!Dosvm
.FreeRMCB
) /* cannot have allocated one if dosvm not loaded */
191 SET_LOWORD( context
->Eax
, 0x8024 ); /* invalid callback address */
192 SET_CFLAG( context
);
194 else Dosvm
.FreeRMCB( context
);
197 static void RawModeSwitch( CONTEXT86
*context
)
199 if (!Dosvm
.RawModeSwitch
)
201 ERR("could not setup real-mode calls\n");
207 * FIXME: This routine will not work if it is called
208 * from 32 bit DPMI program and the program returns
209 * to protected mode while ESP or EIP is over 0xffff.
210 * FIXME: This routine will not work if it is not called
211 * using 16-bit-to-Wine callback glue function.
213 STACK16FRAME frame
= *CURRENT_STACK16
;
215 Dosvm
.RawModeSwitch( context
);
218 * After this function returns to relay code, protected mode
219 * 16 bit stack will contain STACK16FRAME and single WORD
220 * (EFlags, see next comment).
222 NtCurrentTeb()->cur_stack
=
223 MAKESEGPTR( context
->SegSs
,
224 context
->Esp
- sizeof(STACK16FRAME
) - sizeof(WORD
) );
227 * After relay code returns to glue function, protected
228 * mode 16 bit stack will contain interrupt return record:
229 * IP, CS and EFlags. Since EFlags is ignored, it won't
230 * need to be initialized.
232 context
->Esp
-= 3 * sizeof(WORD
);
235 * Restore stack frame so that relay code won't be confused.
236 * It should be noted that relay code overwrites IP and CS
237 * in STACK16FRAME with values taken from current CONTEXT86.
238 * These values are what is returned to glue function
239 * (see previous comment).
241 *CURRENT_STACK16
= frame
;
245 /**********************************************************************
246 * INT_Int31Handler (WPROCS.149)
248 * Handler for int 31h (DPMI).
251 void WINAPI
INT_Int31Handler( CONTEXT86
*context
)
254 * Note: For Win32s processes, the whole linear address space is
255 * shifted by 0x10000 relative to the OS linear address space.
256 * See the comment in msdos/vxd.c.
261 if (context
->SegCs
== DOSMEM_dpmi_sel
) {
262 RawModeSwitch( context
);
266 RESET_CFLAG(context
);
267 switch(AX_reg(context
))
269 case 0x0000: /* Allocate LDT descriptors */
270 TRACE("allocate LDT descriptors (%d)\n",CX_reg(context
));
271 if (!(context
->Eax
= AllocSelectorArray16( CX_reg(context
) )))
274 context
->Eax
= 0x8011; /* descriptor unavailable */
277 TRACE("success, array starts at 0x%04x\n",AX_reg(context
));
280 case 0x0001: /* Free LDT descriptor */
281 TRACE("free LDT descriptor (0x%04x)\n",BX_reg(context
));
282 if (FreeSelector16( BX_reg(context
) ))
284 context
->Eax
= 0x8022; /* invalid selector */
289 /* If a segment register contains the selector being freed, */
290 /* set it to zero. */
291 if (!((context
->SegDs
^BX_reg(context
)) & ~3)) context
->SegDs
= 0;
292 if (!((context
->SegEs
^BX_reg(context
)) & ~3)) context
->SegEs
= 0;
293 if (!((context
->SegFs
^BX_reg(context
)) & ~3)) context
->SegFs
= 0;
294 if (!((context
->SegGs
^BX_reg(context
)) & ~3)) context
->SegGs
= 0;
298 case 0x0002: /* Real mode segment to descriptor */
299 TRACE("real mode segment to descriptor (0x%04x)\n",BX_reg(context
));
301 WORD entryPoint
= 0; /* KERNEL entry point for descriptor */
302 switch(BX_reg(context
))
304 case 0x0000: entryPoint
= 183; break; /* __0000H */
305 case 0x0040: entryPoint
= 193; break; /* __0040H */
306 case 0xa000: entryPoint
= 174; break; /* __A000H */
307 case 0xb000: entryPoint
= 181; break; /* __B000H */
308 case 0xb800: entryPoint
= 182; break; /* __B800H */
309 case 0xc000: entryPoint
= 195; break; /* __C000H */
310 case 0xd000: entryPoint
= 179; break; /* __D000H */
311 case 0xe000: entryPoint
= 190; break; /* __E000H */
312 case 0xf000: entryPoint
= 194; break; /* __F000H */
314 context
->Eax
= DOSMEM_AllocSelector(BX_reg(context
));
318 context
->Eax
= LOWORD(GetProcAddress16( GetModuleHandle16( "KERNEL" ),
319 (LPCSTR
)(ULONG_PTR
)entryPoint
));
323 case 0x0003: /* Get next selector increment */
324 TRACE("get selector increment (__AHINCR)\n");
325 context
->Eax
= __AHINCR
;
328 case 0x0004: /* Lock selector (not supported) */
329 FIXME("lock selector not supported\n");
330 context
->Eax
= 0; /* FIXME: is this a correct return value? */
333 case 0x0005: /* Unlock selector (not supported) */
334 FIXME("unlock selector not supported\n");
335 context
->Eax
= 0; /* FIXME: is this a correct return value? */
338 case 0x0006: /* Get selector base address */
339 TRACE("get selector base address (0x%04x)\n",BX_reg(context
));
340 if (!(dw
= GetSelectorBase( BX_reg(context
) )))
342 context
->Eax
= 0x8022; /* invalid selector */
347 CX_reg(context
) = HIWORD(W32S_WINE2APP(dw
));
348 DX_reg(context
) = LOWORD(W32S_WINE2APP(dw
));
352 case 0x0007: /* Set selector base address */
353 TRACE("set selector base address (0x%04x,0x%08lx)\n",
355 W32S_APP2WINE(MAKELONG(DX_reg(context
),CX_reg(context
))));
356 dw
= W32S_APP2WINE(MAKELONG(DX_reg(context
), CX_reg(context
)));
358 /* app wants to access lower 64K of DOS memory, load DOS subsystem */
359 DPMI_LoadDosSystem();
360 SetSelectorBase(BX_reg(context
), dw
);
363 case 0x0008: /* Set selector limit */
364 TRACE("set selector limit (0x%04x,0x%08lx)\n",BX_reg(context
),MAKELONG(DX_reg(context
),CX_reg(context
)));
365 dw
= MAKELONG( DX_reg(context
), CX_reg(context
) );
366 SetSelectorLimit16( BX_reg(context
), dw
);
369 case 0x0009: /* Set selector access rights */
370 TRACE("set selector access rights(0x%04x,0x%04x)\n",BX_reg(context
),CX_reg(context
));
371 SelectorAccessRights16( BX_reg(context
), 1, CX_reg(context
) );
374 case 0x000a: /* Allocate selector alias */
375 TRACE("allocate selector alias (0x%04x)\n",BX_reg(context
));
376 if (!(AX_reg(context
) = AllocCStoDSAlias16( BX_reg(context
) )))
378 AX_reg(context
) = 0x8011; /* descriptor unavailable */
383 case 0x000b: /* Get descriptor */
384 TRACE("get descriptor (0x%04x)\n",BX_reg(context
));
387 wine_ldt_set_base( &entry
, (void*)W32S_WINE2APP(wine_ldt_get_base(&entry
)) );
388 /* FIXME: should use ES:EDI for 32-bit clients */
389 *(LDT_ENTRY
*)MapSL( MAKESEGPTR( context
->SegEs
, LOWORD(context
->Edi
) )) = entry
;
393 case 0x000c: /* Set descriptor */
394 TRACE("set descriptor (0x%04x)\n",BX_reg(context
));
396 LDT_ENTRY entry
= *(LDT_ENTRY
*)MapSL(MAKESEGPTR( context
->SegEs
, LOWORD(context
->Edi
)));
397 wine_ldt_set_base( &entry
, (void*)W32S_APP2WINE(wine_ldt_get_base(&entry
)) );
398 wine_ldt_set_entry( LOWORD(context
->Ebx
), &entry
);
402 case 0x000d: /* Allocate specific LDT descriptor */
403 FIXME("allocate descriptor (0x%04x), stub!\n",BX_reg(context
));
404 AX_reg(context
) = 0x8011; /* descriptor unavailable */
407 case 0x0100: /* Allocate DOS memory block */
408 TRACE("allocate DOS memory block (0x%x paragraphs)\n",BX_reg(context
));
409 dw
= GlobalDOSAlloc16((DWORD
)BX_reg(context
)<<4);
411 AX_reg(context
) = HIWORD(dw
);
412 DX_reg(context
) = LOWORD(dw
);
414 AX_reg(context
) = 0x0008; /* insufficient memory */
415 BX_reg(context
) = DOSMEM_Available()>>4;
419 case 0x0101: /* Free DOS memory block */
420 TRACE("free DOS memory block (0x%04x)\n",DX_reg(context
));
421 dw
= GlobalDOSFree16(DX_reg(context
));
423 AX_reg(context
) = 0x0009; /* memory block address invalid */
427 case 0x0200: /* get real mode interrupt vector */
428 FIXME("get realmode interupt vector(0x%02x) unimplemented.\n",
432 case 0x0201: /* set real mode interrupt vector */
433 FIXME("set realmode interrupt vector(0x%02x,0x%04x:0x%04x) unimplemented\n", BL_reg(context
),CX_reg(context
),DX_reg(context
));
436 case 0x0204: /* Get protected mode interrupt vector */
437 TRACE("get protected mode interrupt handler (0x%02x), stub!\n",BL_reg(context
));
438 dw
= (DWORD
)INT_GetPMHandler( BL_reg(context
) );
439 CX_reg(context
) = HIWORD(dw
);
440 DX_reg(context
) = LOWORD(dw
);
443 case 0x0205: /* Set protected mode interrupt vector */
444 TRACE("set protected mode interrupt handler (0x%02x,%p), stub!\n",
445 BL_reg(context
),MapSL(MAKESEGPTR(CX_reg(context
),DX_reg(context
))));
446 INT_SetPMHandler( BL_reg(context
),
447 (FARPROC16
)MAKESEGPTR( CX_reg(context
), DX_reg(context
) ));
450 case 0x0300: /* Simulate real mode interrupt */
451 CallRMInt( context
);
454 case 0x0301: /* Call real mode procedure with far return */
455 CallRMProc( context
, FALSE
);
458 case 0x0302: /* Call real mode procedure with interrupt return */
459 CallRMProc( context
, TRUE
);
462 case 0x0303: /* Allocate Real Mode Callback Address */
463 AllocRMCB( context
);
466 case 0x0304: /* Free Real Mode Callback Address */
470 case 0x0305: /* Get State Save/Restore Addresses */
471 TRACE("get state save/restore addresses\n");
472 /* we probably won't need this kind of state saving */
474 /* real mode: just point to the lret */
475 BX_reg(context
) = DOSMEM_wrap_seg
;
477 /* protected mode: don't have any handler yet... */
478 FIXME("no protected-mode dummy state save/restore handler yet\n");
483 case 0x0306: /* Get Raw Mode Switch Addresses */
484 TRACE("get raw mode switch addresses\n");
485 /* real mode, point to standard DPMI return wrapper */
486 BX_reg(context
) = DOSMEM_wrap_seg
;
488 /* protected mode, point to DPMI call wrapper */
489 SI_reg(context
) = DOSMEM_dpmi_sel
;
490 context
->Edi
= 8; /* offset of the INT 0x31 call */
492 case 0x0400: /* Get DPMI version */
493 TRACE("get DPMI version\n");
498 AX_reg(context
) = 0x005a; /* DPMI version 0.90 */
499 BX_reg(context
) = 0x0005; /* Flags: 32-bit, virtual memory */
500 CL_reg(context
) = si
.wProcessorLevel
;
501 DX_reg(context
) = 0x0102; /* Master/slave interrupt controller base*/
504 case 0x0500: /* Get free memory information */
505 TRACE("get free memory information\n");
509 mmi
.dwSize
= sizeof(mmi
);
511 ptr
= MapSL(MAKESEGPTR(context
->SegEs
,DI_reg(context
)));
512 /* the layout is just the same as MEMMANINFO, but without
515 memcpy(ptr
,((char*)&mmi
)+4,sizeof(mmi
)-4);
518 case 0x0501: /* Allocate memory block */
519 TRACE("allocate memory block (%ld)\n",MAKELONG(CX_reg(context
),BX_reg(context
)));
520 if (!(ptr
= (BYTE
*)DPMI_xalloc(MAKELONG(CX_reg(context
), BX_reg(context
)))))
522 AX_reg(context
) = 0x8012; /* linear memory not available */
525 BX_reg(context
) = SI_reg(context
) = HIWORD(W32S_WINE2APP(ptr
));
526 CX_reg(context
) = DI_reg(context
) = LOWORD(W32S_WINE2APP(ptr
));
530 case 0x0502: /* Free memory block */
531 TRACE("free memory block (0x%08lx)\n",
532 W32S_APP2WINE(MAKELONG(DI_reg(context
),SI_reg(context
))));
533 DPMI_xfree( (void *)W32S_APP2WINE(MAKELONG(DI_reg(context
), SI_reg(context
))) );
536 case 0x0503: /* Resize memory block */
537 TRACE("resize memory block (0x%08lx,%ld)\n",
538 W32S_APP2WINE(MAKELONG(DI_reg(context
),SI_reg(context
))),
539 MAKELONG(CX_reg(context
),BX_reg(context
)));
540 if (!(ptr
= (BYTE
*)DPMI_xrealloc(
541 (void *)W32S_APP2WINE(MAKELONG(DI_reg(context
),SI_reg(context
))),
542 MAKELONG(CX_reg(context
),BX_reg(context
)))))
544 AX_reg(context
) = 0x8012; /* linear memory not available */
547 BX_reg(context
) = SI_reg(context
) = HIWORD(W32S_WINE2APP(ptr
));
548 CX_reg(context
) = DI_reg(context
) = LOWORD(W32S_WINE2APP(ptr
));
552 case 0x0507: /* Modify page attributes */
553 FIXME("modify page attributes unimplemented\n");
554 break; /* Just ignore it */
556 case 0x0600: /* Lock linear region */
557 FIXME("lock linear region unimplemented\n");
558 break; /* Just ignore it */
560 case 0x0601: /* Unlock linear region */
561 FIXME("unlock linear region unimplemented\n");
562 break; /* Just ignore it */
564 case 0x0602: /* Unlock real-mode region */
565 FIXME("unlock realmode region unimplemented\n");
566 break; /* Just ignore it */
568 case 0x0603: /* Lock real-mode region */
569 FIXME("lock realmode region unimplemented\n");
570 break; /* Just ignore it */
572 case 0x0604: /* Get page size */
573 TRACE("get pagesize\n");
575 CX_reg(context
) = getpagesize();
578 case 0x0702: /* Mark page as demand-paging candidate */
579 FIXME("mark page as demand-paging candidate\n");
580 break; /* Just ignore it */
582 case 0x0703: /* Discard page contents */
583 FIXME("discard page contents\n");
584 break; /* Just ignore it */
586 case 0x0800: /* Physical address mapping */
587 FIXME("map real to linear (0x%08lx)\n",MAKELONG(CX_reg(context
),BX_reg(context
)));
588 if(!(ptr
=DOSMEM_MapRealToLinear(MAKELONG(CX_reg(context
),BX_reg(context
)))))
590 AX_reg(context
) = 0x8021;
595 BX_reg(context
) = HIWORD(W32S_WINE2APP(ptr
));
596 CX_reg(context
) = LOWORD(W32S_WINE2APP(ptr
));
597 RESET_CFLAG(context
);
602 INT_BARF( context
, 0x31 );
603 AX_reg(context
) = 0x8001; /* unsupported function */