1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
|
/*
* Copyright 1993 Bob Amstadt
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include <stdlib.h>
#include "windef.h"
#include "wine/debug.h"
WINE_DEFAULT_DEBUG_CHANNEL(int);
struct Win87EmInfoStruct
{
unsigned short Version;
unsigned short SizeSaveArea;
unsigned short WinDataSeg;
unsigned short WinCodeSeg;
unsigned short Have80x87;
unsigned short Unused;
};
/* Implementing this is easy cause Linux and *BSD* ALWAYS have a numerical
* coprocessor. (either real or emulated on kernellevel)
*/
/* win87em.dll also sets interrupt vectors: 2 (NMI), 0x34 - 0x3f (emulator
* calls of standard libraries, see Ralph Browns interrupt list), 0x75
* (int13 error reporting of coprocessor)
*/
/* have a look at /usr/src/linux/arch/i386/math-emu/ *.[ch] for more info
* especially control_w.h and status_w.h
*/
/* FIXME: Still rather skeletal implementation only */
static BOOL Installed = 0;
static WORD RefCount = 0;
static WORD CtrlWord_1 = 0;
static WORD CtrlWord_2 = 0;
static WORD CtrlWord_Internal = 0;
static WORD StatusWord_1 = 0x000b;
static WORD StatusWord_2 = 0;
static WORD StatusWord_3 = 0;
static WORD StackTop = 175;
static WORD StackBottom = 0;
static WORD Inthandler02hVar = 1;
static void WIN87_ClearCtrlWord( CONTEXT86 *context )
{
context->Eax &= ~0xffff; /* set AX to 0 */
if (Installed)
#ifdef __i386__
__asm__("fclex");
#else
;
#endif
StatusWord_3 = StatusWord_2 = 0;
}
static void WIN87_SetCtrlWord( CONTEXT86 *context )
{
CtrlWord_1 = LOWORD(context->Eax);
context->Eax &= ~0x00c3;
if (Installed) {
CtrlWord_Internal = LOWORD(context->Eax);
#ifdef __i386__
__asm__("wait;fldcw %0" : : "m" (CtrlWord_Internal));
#endif
}
CtrlWord_2 = LOWORD(context->Eax);
}
static void WIN87_Init( CONTEXT86 *context )
{
if (Installed) {
#ifdef __i386__
__asm__("fninit");
__asm__("fninit");
#endif
}
StackBottom = StackTop;
context->Eax = (context->Eax & ~0xffff) | 0x1332;
WIN87_SetCtrlWord(context);
WIN87_ClearCtrlWord(context);
}
/***********************************************************************
* _fpMath (WIN87EM.1)
*/
void WINAPI WIN87_fpmath( CONTEXT86 *context )
{
TRACE("(cs:eip=%x:%x es=%x bx=%04x ax=%04x dx=%04x)\n",
(WORD)context->SegCs, context->Eip,
(WORD)context->SegEs, (WORD)context->Ebx,
(WORD)context->Eax, (WORD)context->Edx );
switch(LOWORD(context->Ebx))
{
case 0: /* install (increase instanceref) emulator, install NMI vector */
RefCount++;
#if 0
if (Installed)
InstallIntVecs02hAnd75h();
#endif
WIN87_Init(context);
context->Eax &= ~0xffff; /* set AX to 0 */
break;
case 1: /* Init Emulator */
WIN87_Init(context);
break;
case 2: /* deinstall emulator (decrease instanceref), deinstall NMI vector
* if zero. Every '0' call should have a matching '2' call.
*/
WIN87_Init(context);
RefCount--;
#if 0
if (!RefCount && Installed)
RestoreInt02h();
#endif
break;
case 3:
/*INT_SetHandler(0x3E,MAKELONG(AX,DX));*/
break;
case 4: /* set control word (& ~(CW_Denormal|CW_Invalid)) */
/* OUT: newset control word in AX */
WIN87_SetCtrlWord(context);
break;
case 5: /* return internal control word in AX */
context->Eax = (context->Eax & ~0xffff) | CtrlWord_1;
break;
case 6: /* round top of stack to integer using method AX & 0x0C00 */
/* returns current controlword */
{
DWORD dw=0;
WORD save,mask;
/* I don't know much about asm() programming. This could be
* wrong.
*/
#ifdef __i386__
__asm__ __volatile__("fstcw %0;wait" : "=m" (save) : : "memory");
__asm__ __volatile__("fstcw %0;wait" : "=m" (mask) : : "memory");
__asm__ __volatile__("orw $0xC00,%0" : "=m" (mask) : : "memory");
__asm__ __volatile__("fldcw %0;wait" : : "m" (mask));
__asm__ __volatile__("frndint");
__asm__ __volatile__("fist %0;wait" : "=m" (dw) : : "memory");
__asm__ __volatile__("fldcw %0" : : "m" (save));
#endif
TRACE("On top of stack is %d\n",dw);
}
break;
case 7: /* POP top of stack as integer into DX:AX */
/* IN: AX&0x0C00 rounding protocol */
/* OUT: DX:AX variable popped */
{
DWORD dw=0;
/* I don't know much about asm() programming. This could be
* wrong.
*/
/* FIXME: could someone who really understands asm() fix this please? --AJ */
/* __asm__("fistp %0;wait" : "=m" (dw) : : "memory"); */
TRACE("On top of stack was %d\n",dw);
context->Eax = (context->Eax & ~0xffff) | LOWORD(dw);
context->Edx = (context->Edx & ~0xffff) | HIWORD(dw);
}
break;
case 8: /* restore internal status words from emulator status word */
context->Eax &= ~0xffff; /* set AX to 0 */
if (Installed) {
#ifdef __i386__
__asm__("fstsw %0;wait" : "=m" (StatusWord_1));
#endif
context->Eax |= StatusWord_1 & 0x3f;
}
context->Eax = (context->Eax | StatusWord_2) & ~0xe000;
StatusWord_2 = LOWORD(context->Eax);
break;
case 9: /* clear emu control word and some other things */
WIN87_ClearCtrlWord(context);
break;
case 10: /* dunno. but looks like returning nr. of things on stack in AX */
context->Eax &= ~0xffff; /* set AX to 0 */
break;
case 11: /* just returns the installed flag in DX:AX */
context->Edx &= ~0xffff; /* set DX to 0 */
context->Eax = (context->Eax & ~0xffff) | Installed;
break;
case 12: /* save AX in some internal state var */
Inthandler02hVar = LOWORD(context->Eax);
break;
default: /* error. Say that loud and clear */
FIXME("unhandled switch %d\n",LOWORD(context->Ebx));
context->Eax |= 0xffff;
context->Edx |= 0xffff;
break;
}
}
/***********************************************************************
* __WinEm87Info (WIN87EM.3)
*/
void WINAPI WIN87_WinEm87Info(struct Win87EmInfoStruct *pWIS,
int cbWin87EmInfoStruct)
{
FIXME("(%p,%d), stub !\n",pWIS,cbWin87EmInfoStruct);
}
/***********************************************************************
* __WinEm87Restore (WIN87EM.4)
*/
void WINAPI WIN87_WinEm87Restore(void *pWin87EmSaveArea,
int cbWin87EmSaveArea)
{
FIXME("(%p,%d), stub !\n",
pWin87EmSaveArea,cbWin87EmSaveArea);
}
/***********************************************************************
* __WinEm87Save (WIN87EM.5)
*/
void WINAPI WIN87_WinEm87Save(void *pWin87EmSaveArea, int cbWin87EmSaveArea)
{
FIXME("(%p,%d), stub !\n",
pWin87EmSaveArea,cbWin87EmSaveArea);
}
|
