4 * Copyright 1995 Alexandre Julliard
10 #include "wine/winbase16.h"
17 #include "thread.h" /* for !MZ_SUPPORTED */
18 #include "stackframe.h" /* for !MZ_SUPPORTED */
20 #include "selectors.h"
25 DEFAULT_DEBUG_CHANNEL(int31
)
27 #define DOS_GET_DRIVE(reg) ((reg) ? (reg) - 1 : DRIVE_GetCurrentDrive())
29 void CreateBPB(int drive
, BYTE
*data
, BOOL16 limited
); /* defined in int21.c */
31 static void* lastvalloced
= NULL
;
33 /* Structure for real-mode callbacks */
57 typedef struct tagRMCB
{
59 DWORD proc_ofs
,proc_sel
;
60 DWORD regs_ofs
,regs_sel
;
64 static RMCB
*FirstRMCB
= NULL
;
68 /**********************************************************************
70 * special virtualalloc, allocates lineary monoton growing memory.
71 * (the usual VirtualAlloc does not satisfy that restriction)
74 DPMI_xalloc(int len
) {
76 LPVOID oldlastv
= lastvalloced
;
82 ret
=VirtualAlloc(lastvalloced
,len
,MEM_COMMIT
|MEM_RESERVE
,PAGE_EXECUTE_READWRITE
);
84 lastvalloced
+=0x10000;
85 /* we failed to allocate one in the first round.
88 if (!xflag
&& (lastvalloced
<oldlastv
)) { /* wrapped */
89 FIXME(int31
,"failed to allocate lineary growing memory (%d bytes), using non-linear growing...\n",len
);
92 /* if we even fail to allocate something in the next
95 if ((xflag
==1) && (lastvalloced
>= oldlastv
))
97 if ((xflag
==2) && (lastvalloced
< oldlastv
)) {
98 FIXME(int31
,"failed to allocate any memory of %d bytes!\n",len
);
103 ret
=VirtualAlloc(NULL
,len
,MEM_COMMIT
|MEM_RESERVE
,PAGE_EXECUTE_READWRITE
);
104 lastvalloced
= (LPVOID
)(((DWORD
)ret
+len
+0xffff)&~0xffff);
109 DPMI_xfree(LPVOID ptr
) {
110 VirtualFree(ptr
,0,MEM_RELEASE
);
113 /* FIXME: perhaps we could grow this mapped area... */
115 DPMI_xrealloc(LPVOID ptr
,int newsize
) {
116 MEMORY_BASIC_INFORMATION mbi
;
119 newptr
= DPMI_xalloc(newsize
);
121 if (!VirtualQuery(ptr
,&mbi
,sizeof(mbi
))) {
122 FIXME(int31
,"realloc of DPMI_xallocd region %p?\n",ptr
);
125 if (mbi
.State
== MEM_FREE
) {
126 FIXME(int31
,"realloc of DPMI_xallocd region %p?\n",ptr
);
129 /* We do not shrink allocated memory. most reallocs
130 * only do grows anyway
132 if (newsize
<=mbi
.RegionSize
)
134 memcpy(newptr
,ptr
,mbi
.RegionSize
);
139 /**********************************************************************
140 * INT_GetRealModeContext
142 static void INT_GetRealModeContext( REALMODECALL
*call
, CONTEXT
*context
)
144 EAX_reg(context
) = call
->eax
;
145 EBX_reg(context
) = call
->ebx
;
146 ECX_reg(context
) = call
->ecx
;
147 EDX_reg(context
) = call
->edx
;
148 ESI_reg(context
) = call
->esi
;
149 EDI_reg(context
) = call
->edi
;
150 EBP_reg(context
) = call
->ebp
;
151 EFL_reg(context
) = call
->fl
| V86_FLAG
;
152 EIP_reg(context
) = call
->ip
;
153 ESP_reg(context
) = call
->sp
;
154 CS_reg(context
) = call
->cs
;
155 DS_reg(context
) = call
->ds
;
156 ES_reg(context
) = call
->es
;
157 FS_reg(context
) = call
->fs
;
158 GS_reg(context
) = call
->gs
;
159 SS_reg(context
) = call
->ss
;
160 (char*)V86BASE(context
) = DOSMEM_MemoryBase(0);
164 /**********************************************************************
165 * INT_SetRealModeContext
167 static void INT_SetRealModeContext( REALMODECALL
*call
, CONTEXT
*context
)
169 call
->eax
= EAX_reg(context
);
170 call
->ebx
= EBX_reg(context
);
171 call
->ecx
= ECX_reg(context
);
172 call
->edx
= EDX_reg(context
);
173 call
->esi
= ESI_reg(context
);
174 call
->edi
= EDI_reg(context
);
175 call
->ebp
= EBP_reg(context
);
176 call
->fl
= FL_reg(context
);
177 call
->ip
= IP_reg(context
);
178 call
->sp
= SP_reg(context
);
179 call
->cs
= CS_reg(context
);
180 call
->ds
= DS_reg(context
);
181 call
->es
= ES_reg(context
);
182 call
->fs
= FS_reg(context
);
183 call
->gs
= GS_reg(context
);
184 call
->ss
= SS_reg(context
);
188 /**********************************************************************
191 * This routine does the hard work of calling a callback procedure.
193 static void DPMI_CallRMCBProc( CONTEXT
*context
, RMCB
*rmcb
, WORD flag
)
195 if (IS_SELECTOR_SYSTEM( rmcb
->proc_sel
)) {
196 /* Wine-internal RMCB, call directly */
197 ((RMCBPROC
)rmcb
->proc_ofs
)(context
);
203 INT_SetRealModeContext((REALMODECALL
*)PTR_SEG_OFF_TO_LIN( rmcb
->regs_sel
, rmcb
->regs_ofs
), context
);
204 ss
= SELECTOR_AllocBlock( DOSMEM_MemoryBase(0) + (DWORD
)(SS_reg(context
)<<4), 0x10000, SEGMENT_DATA
, FALSE
, FALSE
);
206 FIXME(int31
,"untested!\n");
208 /* The called proc ends with an IRET, and takes these parameters:
209 * DS:ESI = pointer to real-mode SS:SP
210 * ES:EDI = pointer to real-mode call structure
212 * ES:EDI = pointer to real-mode call structure (may be a copy)
213 * It is the proc's responsibility to change the return CS:IP in the
214 * real-mode call structure. */
217 /* 32-bit DPMI client */
218 __asm__
__volatile__("
229 : "=g" (es
), "=D" (edi
), "=S" (_clobber
)
230 : "m" (rmcb
->proc_ofs
),
231 "g" (ss
), "g" (rmcb
->regs_sel
),
232 "S" (ESP_reg(context
)), "1" (rmcb
->regs_ofs
)
233 : "ecx", "edx", "ebp" );
235 /* 16-bit DPMI client */
236 CONTEXT ctx
= *context
;
237 CS_reg(&ctx
) = rmcb
->proc_sel
;
238 EIP_reg(&ctx
) = rmcb
->proc_ofs
;
240 ESI_reg(&ctx
) = ESP_reg(context
);
241 ES_reg(&ctx
) = rmcb
->regs_sel
;
242 EDI_reg(&ctx
) = rmcb
->regs_ofs
;
243 Callbacks
->CallRegisterShortProc(&ctx
, 2);
247 UnMapLS(PTR_SEG_OFF_TO_SEGPTR(ss
,0));
248 INT_GetRealModeContext((REALMODECALL
*)PTR_SEG_OFF_TO_LIN( es
, edi
), context
);
250 ERR(int31
,"RMCBs only implemented for i386\n");
256 /**********************************************************************
259 * This routine does the hard work of calling a real mode procedure.
261 int DPMI_CallRMProc( CONTEXT
*context
, LPWORD stack
, int args
, int iret
)
265 THDB
*thdb
= THREAD_Current();
268 #endif /* !MZ_SUPPORTED */
269 LPVOID addr
= NULL
; /* avoid gcc warning */
270 TDB
*pTask
= (TDB
*)GlobalLock16( GetCurrentTask() );
271 NE_MODULE
*pModule
= pTask
? NE_GetPtr( pTask
->hModule
) : NULL
;
273 int alloc
= 0, already
= 0;
275 GlobalUnlock16( GetCurrentTask() );
277 TRACE(int31
, "EAX=%08lx EBX=%08lx ECX=%08lx EDX=%08lx\n",
278 EAX_reg(context
), EBX_reg(context
), ECX_reg(context
), EDX_reg(context
) );
279 TRACE(int31
, "ESI=%08lx EDI=%08lx ES=%04lx DS=%04lx CS:IP=%04lx:%04x, %d WORD arguments, %s\n",
280 ESI_reg(context
), EDI_reg(context
), ES_reg(context
), DS_reg(context
),
281 CS_reg(context
), IP_reg(context
), args
, iret
?"IRET":"FAR" );
285 /* shortcut for chaining to internal interrupt handlers */
286 if ((CS_reg(context
) == 0xF000) && iret
) {
287 return INT_RealModeInterrupt( IP_reg(context
)/4, context
);
290 /* shortcut for RMCBs */
291 CurrRMCB
= FirstRMCB
;
293 while (CurrRMCB
&& (HIWORD(CurrRMCB
->address
) != CS_reg(context
)))
294 CurrRMCB
= CurrRMCB
->next
;
297 if (!(CurrRMCB
|| pModule
->lpDosTask
)) {
298 FIXME(int31
,"DPMI real-mode call using DOS VM task system, not fully tested!\n");
299 TRACE(int31
,"creating VM86 task\n");
300 if (!MZ_InitTask( MZ_AllocDPMITask( pModule
->self
) )) {
301 ERR(int31
,"could not setup VM86 task\n");
306 if (!SS_reg(context
)) {
307 alloc
= 1; /* allocate default stack */
308 stack16
= addr
= DOSMEM_GetBlock( pModule
->self
, 64, (UINT16
*)&(SS_reg(context
)) );
309 SP_reg(context
) = 64-2;
312 ERR(int31
,"could not allocate default stack\n");
316 stack16
= CTX_SEG_OFF_TO_LIN(context
, SS_reg(context
), ESP_reg(context
));
318 SP_reg(context
) -= (args
+ (iret
?1:0)) * sizeof(WORD
);
321 stack16
= THREAD_STACK16(thdb
);
324 if (args
) memcpy(stack16
, stack
, args
*sizeof(WORD
) );
325 /* push flags if iret */
328 *stack16
= FL_reg(context
);
331 /* push return address (return to interrupt wrapper) */
332 *(--stack16
) = DPMI_wrap_seg
;
335 SP_reg(context
) -= 2*sizeof(WORD
);
341 /* RMCB call, invoke protected-mode handler directly */
342 DPMI_CallRMCBProc(context
, CurrRMCB
, pModule
->lpDosTask
?pModule
->lpDosTask
->dpmi_flag
:0);
343 /* check if we returned to where we thought we would */
344 if ((CS_reg(context
) != DPMI_wrap_seg
) ||
345 (IP_reg(context
) != 0)) {
346 /* we need to continue at different address in real-mode space,
347 so we need to set it all up for real mode again */
348 goto callrmproc_again
;
352 #if 0 /* this was probably unnecessary */
353 /* push call address */
354 *(--stack16
) = CS_reg(context
);
355 *(--stack16
) = IP_reg(context
);
357 SP_reg(context
) -= 2*sizeof(WORD
);
358 /* set initial CS:IP to the wrapper's "lret" */
359 CS_reg(context
) = DPMI_wrap_seg
;
362 TRACE(int31
,"entering real mode...\n");
363 DOSVM_Enter( context
);
364 TRACE(int31
,"returned from real-mode call\n");
366 addr
= CTX_SEG_OFF_TO_LIN(context
, CS_reg(context
), EIP_reg(context
));
367 sel
= SELECTOR_AllocBlock( addr
, 0x10000, SEGMENT_CODE
, FALSE
, FALSE
);
368 seg_addr
= PTR_SEG_OFF_TO_SEGPTR( sel
, 0 );
370 CS_reg(context
) = HIWORD(seg_addr
);
371 IP_reg(context
) = LOWORD(seg_addr
);
372 EBP_reg(context
) = OFFSETOF( thdb
->cur_stack
)
373 + (WORD
)&((STACK16FRAME
*)0)->bp
;
374 Callbacks
->CallRegisterShortProc(context
, args
*sizeof(WORD
));
378 if (alloc
) DOSMEM_FreeBlock( pModule
->self
, addr
);
383 /**********************************************************************
386 static void CallRMInt( CONTEXT
*context
)
388 CONTEXT realmode_ctx
;
389 FARPROC16 rm_int
= INT_GetRMHandler( BL_reg(context
) );
390 REALMODECALL
*call
= (REALMODECALL
*)PTR_SEG_OFF_TO_LIN( ES_reg(context
),
392 INT_GetRealModeContext( call
, &realmode_ctx
);
394 /* we need to check if a real-mode program has hooked the interrupt */
395 if (HIWORD(rm_int
)!=0xF000) {
396 /* yup, which means we need to switch to real mode... */
397 CS_reg(&realmode_ctx
) = HIWORD(rm_int
);
398 EIP_reg(&realmode_ctx
) = LOWORD(rm_int
);
399 if (DPMI_CallRMProc( &realmode_ctx
, NULL
, 0, TRUE
))
402 RESET_CFLAG(context
);
403 /* use the IP we have instead of BL_reg, in case some apps
404 decide to move interrupts around for whatever reason... */
405 if (INT_RealModeInterrupt( LOWORD(rm_int
)/4, &realmode_ctx
))
407 if (EFL_reg(context
)&1) {
408 FIXME(int31
,"%02x: EAX=%08lx EBX=%08lx ECX=%08lx EDX=%08lx\n",
409 BL_reg(context
), EAX_reg(&realmode_ctx
), EBX_reg(&realmode_ctx
),
410 ECX_reg(&realmode_ctx
), EDX_reg(&realmode_ctx
));
411 FIXME(int31
," ESI=%08lx EDI=%08lx DS=%04lx ES=%04lx\n",
412 ESI_reg(&realmode_ctx
), EDI_reg(&realmode_ctx
),
413 DS_reg(&realmode_ctx
), ES_reg(&realmode_ctx
) );
416 INT_SetRealModeContext( call
, &realmode_ctx
);
420 static void CallRMProc( CONTEXT
*context
, int iret
)
422 REALMODECALL
*p
= (REALMODECALL
*)PTR_SEG_OFF_TO_LIN( ES_reg(context
), DI_reg(context
) );
425 TRACE(int31
, "RealModeCall: EAX=%08lx EBX=%08lx ECX=%08lx EDX=%08lx\n",
426 p
->eax
, p
->ebx
, p
->ecx
, p
->edx
);
427 TRACE(int31
, " ESI=%08lx EDI=%08lx ES=%04x DS=%04x CS:IP=%04x:%04x, %d WORD arguments, %s\n",
428 p
->esi
, p
->edi
, p
->es
, p
->ds
, p
->cs
, p
->ip
, CX_reg(context
), iret
?"IRET":"FAR" );
430 if (!(p
->cs
) && !(p
->ip
)) { /* remove this check
431 if Int21/6501 case map function
432 has been implemented */
436 INT_GetRealModeContext(p
, &context16
);
437 DPMI_CallRMProc( &context16
, ((LPWORD
)PTR_SEG_OFF_TO_LIN(SS_reg(context
), SP_reg(context
)))+3,
438 CX_reg(context
), iret
);
439 INT_SetRealModeContext(p
, &context16
);
443 static void WINAPI WINE_UNUSED
RMCallbackProc( RMCB
*rmcb
)
445 /* This routine should call DPMI_CallRMCBProc, but we don't have the
446 register structure available - this is easily fixed by going through
447 a Win16 register relay instead of calling RMCallbackProc "directly",
448 but I won't bother at this time. */
449 FIXME(int31
,"not properly supported on your architecture!\n");
452 static RMCB
*DPMI_AllocRMCB( void )
454 RMCB
*NewRMCB
= HeapAlloc(GetProcessHeap(), 0, sizeof(RMCB
));
460 LPVOID RMCBmem
= DOSMEM_GetBlock(0, 4, &uParagraph
);
463 *p
++ = 0xcd; /* RMCB: */
464 *p
++ = 0x31; /* int $0x31 */
465 /* it is the called procedure's task to change the return CS:EIP
466 the DPMI 0.9 spec states that if it doesn't, it will be called again */
468 *p
++ = 0xfc; /* jmp RMCB */
470 LPVOID RMCBmem
= DOSMEM_GetBlock(0, 15, &uParagraph
);
473 *p
++ = 0x68; /* pushl */
474 *(LPVOID
*)p
= NewRMCB
;
476 *p
++ = 0x9a; /* lcall */
477 *(FARPROC16
*)p
= (FARPROC16
)RMCallbackProc
; /* FIXME: register relay */
481 *p
++=0xc3; /* lret (FIXME?) */
483 NewRMCB
->address
= MAKELONG(0, uParagraph
);
484 NewRMCB
->next
= FirstRMCB
;
491 static void AllocRMCB( CONTEXT
*context
)
493 RMCB
*NewRMCB
= DPMI_AllocRMCB();
495 TRACE(int31
, "Function to call: %04x:%04x\n", (WORD
)DS_reg(context
), SI_reg(context
) );
499 /* FIXME: if 32-bit DPMI client, use ESI and EDI */
500 NewRMCB
->proc_ofs
= SI_reg(context
);
501 NewRMCB
->proc_sel
= DS_reg(context
);
502 NewRMCB
->regs_ofs
= DI_reg(context
);
503 NewRMCB
->regs_sel
= ES_reg(context
);
504 CX_reg(context
) = HIWORD(NewRMCB
->address
);
505 DX_reg(context
) = LOWORD(NewRMCB
->address
);
509 AX_reg(context
) = 0x8015; /* callback unavailable */
515 FARPROC16 WINAPI
DPMI_AllocInternalRMCB( RMCBPROC proc
)
517 RMCB
*NewRMCB
= DPMI_AllocRMCB();
520 NewRMCB
->proc_ofs
= (DWORD
)proc
;
521 NewRMCB
->proc_sel
= 0;
522 NewRMCB
->regs_ofs
= 0;
523 NewRMCB
->regs_sel
= 0;
524 return (FARPROC16
)(NewRMCB
->address
);
530 static int DPMI_FreeRMCB( DWORD address
)
532 RMCB
*CurrRMCB
= FirstRMCB
;
533 RMCB
*PrevRMCB
= NULL
;
535 while (CurrRMCB
&& (CurrRMCB
->address
!= address
))
538 CurrRMCB
= CurrRMCB
->next
;
543 PrevRMCB
->next
= CurrRMCB
->next
;
545 FirstRMCB
= CurrRMCB
->next
;
546 DOSMEM_FreeBlock(0, DOSMEM_MapRealToLinear(CurrRMCB
->address
));
547 HeapFree(GetProcessHeap(), 0, CurrRMCB
);
554 static void FreeRMCB( CONTEXT
*context
)
556 FIXME(int31
, "callback address: %04x:%04x\n",
557 CX_reg(context
), DX_reg(context
));
559 if (DPMI_FreeRMCB(MAKELONG(DX_reg(context
), CX_reg(context
)))) {
560 AX_reg(context
) = 0x8024; /* invalid callback address */
566 void WINAPI
DPMI_FreeInternalRMCB( FARPROC16 proc
)
568 DPMI_FreeRMCB( (DWORD
)proc
);
573 /* (see loader/dos/module.c, function MZ_InitDPMI) */
575 static void StartPM( CONTEXT
*context
, LPDOSTASK lpDosTask
)
577 char *base
= DOSMEM_MemoryBase(0);
578 UINT16 cs
, ss
, ds
, es
;
581 RESET_CFLAG(context
);
582 lpDosTask
->dpmi_flag
= AX_reg(context
);
583 /* our mode switch wrapper have placed the desired CS into DX */
584 cs
= SELECTOR_AllocBlock( base
+ (DWORD
)(DX_reg(context
)<<4), 0x10000, SEGMENT_CODE
, FALSE
, FALSE
);
585 ss
= SELECTOR_AllocBlock( base
+ (DWORD
)(SS_reg(context
)<<4), 0x10000, SEGMENT_DATA
, FALSE
, FALSE
);
586 ds
= SELECTOR_AllocBlock( base
+ (DWORD
)(DS_reg(context
)<<4), 0x10000, SEGMENT_DATA
, FALSE
, FALSE
);
587 es
= SELECTOR_AllocBlock( base
+ (DWORD
)(lpDosTask
->psp_seg
<<4), 0x100, SEGMENT_DATA
, FALSE
, FALSE
);
590 CS_reg(&pm_ctx
) = lpDosTask
->dpmi_sel
;
591 /* our mode switch wrapper expects the new CS in DX, and the new SS in AX */
592 AX_reg(&pm_ctx
) = ss
;
593 DX_reg(&pm_ctx
) = cs
;
594 DS_reg(&pm_ctx
) = ds
;
595 ES_reg(&pm_ctx
) = es
;
599 TRACE(int31
,"DOS program is now entering protected mode\n");
600 Callbacks
->CallRegisterShortProc(&pm_ctx
, 0);
602 /* in the current state of affairs, we won't ever actually return here... */
604 UnMapLS(PTR_SEG_OFF_TO_SEGPTR(es
,0));
605 UnMapLS(PTR_SEG_OFF_TO_SEGPTR(ds
,0));
606 UnMapLS(PTR_SEG_OFF_TO_SEGPTR(ss
,0));
607 UnMapLS(PTR_SEG_OFF_TO_SEGPTR(cs
,0));
611 /**********************************************************************
614 * Handler for int 31h (DPMI).
617 void WINAPI
INT_Int31Handler( CONTEXT
*context
)
620 * Note: For Win32s processes, the whole linear address space is
621 * shifted by 0x10000 relative to the OS linear address space.
622 * See the comment in msdos/vxd.c.
624 DWORD offset
= W32S_APPLICATION() ? W32S_OFFSET
: 0;
629 TDB
*pTask
= (TDB
*)GlobalLock16( GetCurrentTask() );
630 NE_MODULE
*pModule
= pTask
? NE_GetPtr( pTask
->hModule
) : NULL
;
632 GlobalUnlock16( GetCurrentTask() );
635 if (ISV86(context
) && pModule
&& pModule
->lpDosTask
) {
636 /* Called from real mode, check if it's our wrapper */
637 TRACE(int31
,"called from real mode\n");
638 if (CS_reg(context
)==pModule
->lpDosTask
->dpmi_seg
) {
639 /* This is the protected mode switch */
640 StartPM(context
,pModule
->lpDosTask
);
643 if (CS_reg(context
)==pModule
->lpDosTask
->xms_seg
) {
644 /* This is the XMS driver entry point */
645 XMS_Handler(context
);
650 RMCB
*CurrRMCB
= FirstRMCB
;
652 while (CurrRMCB
&& (HIWORD(CurrRMCB
->address
) != CS_reg(context
)))
653 CurrRMCB
= CurrRMCB
->next
;
656 /* RMCB call, propagate to protected-mode handler */
657 DPMI_CallRMCBProc(context
, CurrRMCB
, pModule
->lpDosTask
->dpmi_flag
);
664 RESET_CFLAG(context
);
665 switch(AX_reg(context
))
667 case 0x0000: /* Allocate LDT descriptors */
668 TRACE(int31
,"allocate LDT descriptors (%d)\n",CX_reg(context
));
669 if (!(AX_reg(context
) = AllocSelectorArray16( CX_reg(context
) )))
671 TRACE(int31
,"failed\n");
672 AX_reg(context
) = 0x8011; /* descriptor unavailable */
675 TRACE(int31
,"success, array starts at 0x%04x\n",AX_reg(context
));
678 case 0x0001: /* Free LDT descriptor */
679 TRACE(int31
,"free LDT descriptor (0x%04x)\n",BX_reg(context
));
680 if (FreeSelector16( BX_reg(context
) ))
682 AX_reg(context
) = 0x8022; /* invalid selector */
687 /* If a segment register contains the selector being freed, */
688 /* set it to zero. */
689 if (!((DS_reg(context
)^BX_reg(context
)) & ~3)) DS_reg(context
) = 0;
690 if (!((ES_reg(context
)^BX_reg(context
)) & ~3)) ES_reg(context
) = 0;
691 if (!((FS_reg(context
)^BX_reg(context
)) & ~3)) FS_reg(context
) = 0;
692 if (!((GS_reg(context
)^BX_reg(context
)) & ~3)) GS_reg(context
) = 0;
696 case 0x0002: /* Real mode segment to descriptor */
697 TRACE(int31
,"real mode segment to descriptor (0x%04x)\n",BX_reg(context
));
699 WORD entryPoint
= 0; /* KERNEL entry point for descriptor */
700 switch(BX_reg(context
))
702 case 0x0000: entryPoint
= 183; break; /* __0000H */
703 case 0x0040: entryPoint
= 193; break; /* __0040H */
704 case 0xa000: entryPoint
= 174; break; /* __A000H */
705 case 0xb000: entryPoint
= 181; break; /* __B000H */
706 case 0xb800: entryPoint
= 182; break; /* __B800H */
707 case 0xc000: entryPoint
= 195; break; /* __C000H */
708 case 0xd000: entryPoint
= 179; break; /* __D000H */
709 case 0xe000: entryPoint
= 190; break; /* __E000H */
710 case 0xf000: entryPoint
= 194; break; /* __F000H */
712 AX_reg(context
) = DOSMEM_AllocSelector(BX_reg(context
));
716 AX_reg(context
) = LOWORD(NE_GetEntryPoint(
717 GetModuleHandle16( "KERNEL" ),
722 case 0x0003: /* Get next selector increment */
723 TRACE(int31
,"get selector increment (__AHINCR)\n");
724 AX_reg(context
) = __AHINCR
;
727 case 0x0004: /* Lock selector (not supported) */
728 FIXME(int31
,"lock selector not supported\n");
729 AX_reg(context
) = 0; /* FIXME: is this a correct return value? */
732 case 0x0005: /* Unlock selector (not supported) */
733 FIXME(int31
,"unlock selector not supported\n");
734 AX_reg(context
) = 0; /* FIXME: is this a correct return value? */
737 case 0x0006: /* Get selector base address */
738 TRACE(int31
,"get selector base address (0x%04x)\n",BX_reg(context
));
739 if (!(dw
= GetSelectorBase( BX_reg(context
) )))
741 AX_reg(context
) = 0x8022; /* invalid selector */
747 if (pModule
&& pModule
->lpDosTask
) {
748 DWORD base
= (DWORD
)DOSMEM_MemoryBase(pModule
->self
);
749 if ((dw
>= base
) && (dw
< base
+ 0x110000)) dw
-= base
;
752 CX_reg(context
) = HIWORD(W32S_WINE2APP(dw
, offset
));
753 DX_reg(context
) = LOWORD(W32S_WINE2APP(dw
, offset
));
757 case 0x0007: /* Set selector base address */
758 TRACE(int31
, "set selector base address (0x%04x,0x%08lx)\n",
760 W32S_APP2WINE(MAKELONG(DX_reg(context
),CX_reg(context
)), offset
));
761 dw
= W32S_APP2WINE(MAKELONG(DX_reg(context
), CX_reg(context
)), offset
);
763 /* well, what else could we possibly do? */
764 if (pModule
&& pModule
->lpDosTask
) {
765 if (dw
< 0x110000) dw
+= (DWORD
)DOSMEM_MemoryBase(pModule
->self
);
768 SetSelectorBase(BX_reg(context
), dw
);
771 case 0x0008: /* Set selector limit */
772 TRACE(int31
,"set selector limit (0x%04x,0x%08lx)\n",BX_reg(context
),MAKELONG(DX_reg(context
),CX_reg(context
)));
773 dw
= MAKELONG( DX_reg(context
), CX_reg(context
) );
775 if (pModule
&& pModule
->lpDosTask
) {
776 DWORD base
= GetSelectorBase( BX_reg(context
) );
777 if ((dw
== 0xffffffff) || ((base
< 0x110000) && (base
+ dw
> 0x110000))) {
778 AX_reg(context
) = 0x8021; /* invalid value */
784 SetSelectorLimit16( BX_reg(context
), dw
);
787 case 0x0009: /* Set selector access rights */
788 TRACE(int31
,"set selector access rights(0x%04x,0x%04x)\n",BX_reg(context
),CX_reg(context
));
789 SelectorAccessRights16( BX_reg(context
), 1, CX_reg(context
) );
792 case 0x000a: /* Allocate selector alias */
793 TRACE(int31
,"allocate selector alias (0x%04x)\n",BX_reg(context
));
794 if (!(AX_reg(context
) = AllocCStoDSAlias16( BX_reg(context
) )))
796 AX_reg(context
) = 0x8011; /* descriptor unavailable */
801 case 0x000b: /* Get descriptor */
802 TRACE(int31
,"get descriptor (0x%04x)\n",BX_reg(context
));
805 LDT_GetEntry( SELECTOR_TO_ENTRY( BX_reg(context
) ), &entry
);
806 entry
.base
= W32S_WINE2APP(entry
.base
, offset
);
808 /* FIXME: should use ES:EDI for 32-bit clients */
809 LDT_EntryToBytes( PTR_SEG_OFF_TO_LIN( ES_reg(context
),
810 DI_reg(context
) ), &entry
);
814 case 0x000c: /* Set descriptor */
815 TRACE(int31
,"set descriptor (0x%04x)\n",BX_reg(context
));
818 LDT_BytesToEntry( PTR_SEG_OFF_TO_LIN( ES_reg(context
),
819 DI_reg(context
) ), &entry
);
820 entry
.base
= W32S_APP2WINE(entry
.base
, offset
);
822 LDT_SetEntry( SELECTOR_TO_ENTRY( BX_reg(context
) ), &entry
);
826 case 0x000d: /* Allocate specific LDT descriptor */
827 FIXME(int31
,"allocate descriptor (0x%04x), stub!\n",BX_reg(context
));
828 AX_reg(context
) = 0x8011; /* descriptor unavailable */
831 case 0x0100: /* Allocate DOS memory block */
832 TRACE(int31
,"allocate DOS memory block (0x%x paragraphs)\n",BX_reg(context
));
833 dw
= GlobalDOSAlloc16((DWORD
)BX_reg(context
)<<4);
835 AX_reg(context
) = HIWORD(dw
);
836 DX_reg(context
) = LOWORD(dw
);
838 AX_reg(context
) = 0x0008; /* insufficient memory */
839 BX_reg(context
) = DOSMEM_Available(0)>>4;
843 case 0x0101: /* Free DOS memory block */
844 TRACE(int31
,"free DOS memory block (0x%04x)\n",DX_reg(context
));
845 dw
= GlobalDOSFree16(DX_reg(context
));
847 AX_reg(context
) = 0x0009; /* memory block address invalid */
851 case 0x0200: /* get real mode interrupt vector */
852 FIXME(int31
,"get realmode interupt vector(0x%02x) unimplemented.\n",
856 case 0x0201: /* set real mode interrupt vector */
857 FIXME(int31
, "set realmode interupt vector(0x%02x,0x%04x:0x%04x) unimplemented\n", BL_reg(context
),CX_reg(context
),DX_reg(context
));
860 case 0x0204: /* Get protected mode interrupt vector */
861 TRACE(int31
,"get protected mode interrupt handler (0x%02x), stub!\n",BL_reg(context
));
862 dw
= (DWORD
)INT_GetPMHandler( BL_reg(context
) );
863 CX_reg(context
) = HIWORD(dw
);
864 DX_reg(context
) = LOWORD(dw
);
867 case 0x0205: /* Set protected mode interrupt vector */
868 TRACE(int31
,"set protected mode interrupt handler (0x%02x,%p), stub!\n",
869 BL_reg(context
),PTR_SEG_OFF_TO_LIN(CX_reg(context
),DX_reg(context
)));
870 INT_SetPMHandler( BL_reg(context
),
871 (FARPROC16
)PTR_SEG_OFF_TO_SEGPTR( CX_reg(context
),
875 case 0x0300: /* Simulate real mode interrupt */
876 CallRMInt( context
);
879 case 0x0301: /* Call real mode procedure with far return */
880 CallRMProc( context
, FALSE
);
883 case 0x0302: /* Call real mode procedure with interrupt return */
884 CallRMProc( context
, TRUE
);
887 case 0x0303: /* Allocate Real Mode Callback Address */
888 AllocRMCB( context
);
891 case 0x0304: /* Free Real Mode Callback Address */
895 case 0x0400: /* Get DPMI version */
896 TRACE(int31
,"get DPMI version\n");
901 AX_reg(context
) = 0x005a; /* DPMI version 0.90 */
902 BX_reg(context
) = 0x0005; /* Flags: 32-bit, virtual memory */
903 CL_reg(context
) = si
.wProcessorLevel
;
904 DX_reg(context
) = 0x0102; /* Master/slave interrupt controller base*/
907 case 0x0500: /* Get free memory information */
908 TRACE(int31
,"get free memory information\n");
912 mmi
.dwSize
= sizeof(mmi
);
914 ptr
= (BYTE
*)PTR_SEG_OFF_TO_LIN(ES_reg(context
),DI_reg(context
));
915 /* the layout is just the same as MEMMANINFO, but without
918 memcpy(ptr
,((char*)&mmi
)+4,sizeof(mmi
)-4);
921 case 0x0501: /* Allocate memory block */
922 TRACE(int31
,"allocate memory block (%ld)\n",MAKELONG(CX_reg(context
),BX_reg(context
)));
923 if (!(ptr
= (BYTE
*)DPMI_xalloc(MAKELONG(CX_reg(context
), BX_reg(context
)))))
925 AX_reg(context
) = 0x8012; /* linear memory not available */
928 BX_reg(context
) = SI_reg(context
) = HIWORD(W32S_WINE2APP(ptr
, offset
));
929 CX_reg(context
) = DI_reg(context
) = LOWORD(W32S_WINE2APP(ptr
, offset
));
933 case 0x0502: /* Free memory block */
934 TRACE(int31
, "free memory block (0x%08lx)\n",
935 W32S_APP2WINE(MAKELONG(DI_reg(context
),SI_reg(context
)), offset
));
936 DPMI_xfree( (void *)W32S_APP2WINE(MAKELONG(DI_reg(context
),
937 SI_reg(context
)), offset
) );
940 case 0x0503: /* Resize memory block */
941 TRACE(int31
, "resize memory block (0x%08lx,%ld)\n",
942 W32S_APP2WINE(MAKELONG(DI_reg(context
),SI_reg(context
)), offset
),
943 MAKELONG(CX_reg(context
),BX_reg(context
)));
944 if (!(ptr
= (BYTE
*)DPMI_xrealloc(
945 (void *)W32S_APP2WINE(MAKELONG(DI_reg(context
),SI_reg(context
)), offset
),
946 MAKELONG(CX_reg(context
),BX_reg(context
)))))
948 AX_reg(context
) = 0x8012; /* linear memory not available */
951 BX_reg(context
) = SI_reg(context
) = HIWORD(W32S_WINE2APP(ptr
, offset
));
952 CX_reg(context
) = DI_reg(context
) = LOWORD(W32S_WINE2APP(ptr
, offset
));
956 case 0x0507: /* Modify page attributes */
957 FIXME(int31
,"modify page attributes unimplemented\n");
958 break; /* Just ignore it */
960 case 0x0600: /* Lock linear region */
961 FIXME(int31
,"lock linear region unimplemented\n");
962 break; /* Just ignore it */
964 case 0x0601: /* Unlock linear region */
965 FIXME(int31
,"unlock linear region unimplemented\n");
966 break; /* Just ignore it */
968 case 0x0602: /* Unlock real-mode region */
969 FIXME(int31
,"unlock realmode region unimplemented\n");
970 break; /* Just ignore it */
972 case 0x0603: /* Lock real-mode region */
973 FIXME(int31
,"lock realmode region unimplemented\n");
974 break; /* Just ignore it */
976 case 0x0604: /* Get page size */
977 TRACE(int31
,"get pagesize\n");
979 CX_reg(context
) = VIRTUAL_GetPageSize();
982 case 0x0702: /* Mark page as demand-paging candidate */
983 FIXME(int31
,"mark page as demand-paging candidate\n");
984 break; /* Just ignore it */
986 case 0x0703: /* Discard page contents */
987 FIXME(int31
,"discard page contents\n");
988 break; /* Just ignore it */
990 case 0x0800: /* Physical address mapping */
991 FIXME(int31
,"map real to linear (0x%08lx)\n",MAKELONG(CX_reg(context
),BX_reg(context
)));
992 if(!(ptr
=DOSMEM_MapRealToLinear(MAKELONG(CX_reg(context
),BX_reg(context
)))))
994 AX_reg(context
) = 0x8021;
999 BX_reg(context
) = HIWORD(W32S_WINE2APP(ptr
, offset
));
1000 CX_reg(context
) = LOWORD(W32S_WINE2APP(ptr
, offset
));
1001 RESET_CFLAG(context
);
1006 INT_BARF( context
, 0x31 );
1007 AX_reg(context
) = 0x8001; /* unsupported function */