?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
wer: Add new stubbed wer.dll.
[wine/hramrach.git] / dlls / krnl386.exe16 / dosdev.c
bloba82fb7b8488ae643fcbc2ed5e04cb5cc85ac50f4
1 /*
2 * DOS devices
3 *
4 * Copyright 1999 Ove Kåven
5 *
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.
10 *
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.
15 *
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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 */
20
21 #include <stdlib.h>
22 #include <string.h>
23 #include "wine/winbase16.h"
24 #include "dosexe.h"
25 #include "wine/debug.h"
26
27 #include "pshpack1.h"
28
29 /* Warning: need to return LOL ptr w/ offset 0 (&ptr_first_DPB) to programs ! */
30 typedef struct _DOS_LISTOFLISTS
31 {
32 WORD CX_Int21_5e01; /* -24d contents of CX from INT 21/AX=5E01h */
33 WORD LRU_count_FCB_cache; /* -22d */
34 WORD LRU_count_FCB_open; /* -20d */
35 DWORD OEM_func_handler; /* -18d OEM function of INT 21/AH=F8h */
36 WORD INT21_offset; /* -14d offset in DOS CS of code to return from INT 21 call */
37 WORD sharing_retry_count; /* -12d */
38 WORD sharing_retry_delay; /* -10d */
39 DWORD ptr_disk_buf; /* -8d ptr to current disk buf */
40 WORD offs_unread_CON; /* -4d pointer in DOS data segment of unread CON input */
41 WORD seg_first_MCB; /* -2d */
42 DWORD ptr_first_DPB; /* 00 */
43 DWORD ptr_first_SysFileTable; /* 04 */
44 DWORD ptr_clock_dev_hdr; /* 08 */
45 DWORD ptr_CON_dev_hdr; /* 0C */
46 WORD max_byte_per_sec; /* 10 maximum bytes per sector of any block device */
47 DWORD ptr_disk_buf_info; /* 12 */
48 DWORD ptr_array_CDS; /* 16 current directory structure */
49 DWORD ptr_sys_FCB; /* 1A */
50 WORD nr_protect_FCB; /* 1E */
51 BYTE nr_block_dev; /* 20 */
52 BYTE nr_avail_drive_letters; /* 21 */
53 DOS_DEVICE_HEADER NUL_dev; /* 22 */
54 BYTE nr_drives_JOINed; /* 34 */
55 WORD ptr_spec_prg_names; /* 35 */
56 DWORD ptr_SETVER_prg_list; /* 37 */
57 WORD DOS_HIGH_A20_func_offs;/* 3B */
58 WORD PSP_last_exec; /* 3D if DOS in HMA: PSP of program executed last; if DOS low: 0000h */
59 WORD BUFFERS_val; /* 3F */
60 WORD BUFFERS_nr_lookahead; /* 41 */
61 BYTE boot_drive; /* 43 */
62 BYTE flag_DWORD_moves; /* 44 01h for 386+, 00h otherwise */
63 WORD size_extended_mem; /* 45 size of extended mem in KB */
64 SEGPTR wine_rm_lol; /* -- wine: Real mode pointer to LOL */
65 SEGPTR wine_pm_lol; /* -- wine: Protected mode pointer to LOL */
66 } DOS_LISTOFLISTS;
67
68 #include "poppack.h"
69
70 #define CON_BUFFER 128
71
72 enum strategy { SYSTEM_STRATEGY_NUL, SYSTEM_STRATEGY_CON, NB_SYSTEM_STRATEGIES };
73
74 static void *strategy_data[NB_SYSTEM_STRATEGIES];
75
76 #define LJMP 0xea
77
78
79 /* prototypes */
80 static void WINAPI nul_strategy(CONTEXT86*ctx);
81 static void WINAPI nul_interrupt(CONTEXT86*ctx);
82 static void WINAPI con_strategy(CONTEXT86*ctx);
83 static void WINAPI con_interrupt(CONTEXT86*ctx);
84
85 /* devices */
86 static const WINEDEV devs[] =
87 {
88 { "NUL ",
89 ATTR_CHAR|ATTR_NUL|ATTR_DEVICE,
90 nul_strategy, nul_interrupt },
91
92 { "CON ",
93 ATTR_CHAR|ATTR_STDIN|ATTR_STDOUT|ATTR_FASTCON|ATTR_NOTEOF|ATTR_DEVICE,
94 con_strategy, con_interrupt }
95 };
96
97 #define NR_DEVS (sizeof(devs)/sizeof(WINEDEV))
98
99 /* DOS data segment */
100 typedef struct
101 {
102 DOS_LISTOFLISTS lol;
103 DOS_DEVICE_HEADER dev[NR_DEVS-1];
104 DOS_DEVICE_HEADER *last_dev; /* ptr to last registered device driver */
105 WINEDEV_THUNK thunk[NR_DEVS];
106 REQ_IO req;
107 BYTE buffer[CON_BUFFER];
108
109 } DOS_DATASEG;
110
111 #define DOS_DATASEG_OFF(xxx) FIELD_OFFSET(DOS_DATASEG, xxx)
112
113 static DWORD DOS_LOLSeg;
114
115 static struct _DOS_LISTOFLISTS * DOSMEM_LOL(void)
116 {
117 return PTR_REAL_TO_LIN(HIWORD(DOS_LOLSeg),0);
118 }
119
120
121 /* the device implementations */
122 static void do_lret(CONTEXT86*ctx)
123 {
124 WORD *stack = CTX_SEG_OFF_TO_LIN(ctx, ctx->SegSs, ctx->Esp);
125
126 ctx->Eip = *(stack++);
127 ctx->SegCs = *(stack++);
128 ctx->Esp += 2*sizeof(WORD);
129 }
130
131 static void do_strategy(CONTEXT86*ctx, int id, int extra)
132 {
133 REQUEST_HEADER *hdr = CTX_SEG_OFF_TO_LIN(ctx, ctx->SegEs, ctx->Ebx);
134 void **hdr_ptr = strategy_data[id];
135
136 if (!hdr_ptr) {
137 hdr_ptr = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(void *)+extra);
138 strategy_data[id] = hdr_ptr;
139 }
140 *hdr_ptr = hdr;
141 do_lret(ctx);
142 }
143
144 static REQUEST_HEADER * get_hdr(int id, void**extra)
145 {
146 void **hdr_ptr = strategy_data[id];
147 if (extra)
148 *extra = hdr_ptr ? (void*)(hdr_ptr+1) : NULL;
149 return hdr_ptr ? *hdr_ptr : NULL;
150 }
151
152 static void WINAPI nul_strategy(CONTEXT86*ctx)
153 {
154 do_strategy(ctx, SYSTEM_STRATEGY_NUL, 0);
155 }
156
157 static void WINAPI nul_interrupt(CONTEXT86*ctx)
158 {
159 REQUEST_HEADER *hdr = get_hdr(SYSTEM_STRATEGY_NUL, NULL);
160 /* eat everything and recycle nothing */
161 switch (hdr->command) {
162 case CMD_INPUT:
163 ((REQ_IO*)hdr)->count = 0;
164 hdr->status = STAT_DONE;
165 break;
166 case CMD_SAFEINPUT:
167 hdr->status = STAT_DONE|STAT_BUSY;
168 break;
169 default:
170 hdr->status = STAT_DONE;
171 }
172 do_lret(ctx);
173 }
174
175 static void WINAPI con_strategy(CONTEXT86*ctx)
176 {
177 do_strategy(ctx, SYSTEM_STRATEGY_CON, sizeof(int));
178 }
179
180 static void WINAPI con_interrupt(CONTEXT86*ctx)
181 {
182 int *scan;
183 REQUEST_HEADER *hdr = get_hdr(SYSTEM_STRATEGY_CON,(void **)&scan);
184 BIOSDATA *bios = DOSVM_BiosData();
185 WORD CurOfs = bios->NextKbdCharPtr;
186 DOS_LISTOFLISTS *lol = DOSMEM_LOL();
187 DOS_DATASEG *dataseg = (DOS_DATASEG *)lol;
188 BYTE *linebuffer = dataseg->buffer;
189 BYTE *curbuffer = (lol->offs_unread_CON) ?
190 (((BYTE*)dataseg) + lol->offs_unread_CON) : NULL;
191 DOS_DEVICE_HEADER *con = dataseg->dev;
192 DWORD w;
193
194 switch (hdr->command) {
195 case CMD_INPUT:
196 {
197 REQ_IO *io = (REQ_IO *)hdr;
198 WORD count = io->count, len = 0;
199 BYTE *buffer = CTX_SEG_OFF_TO_LIN(ctx,
200 SELECTOROF(io->buffer),
201 (DWORD)OFFSETOF(io->buffer));
202
203 hdr->status = STAT_BUSY;
204 /* first, check whether we already have data in line buffer */
205 if (curbuffer) {
206 /* yep, copy as much as we can */
207 BYTE data = 0;
208 while ((len<count) && (data != '\r')) {
209 data = *curbuffer++;
210 buffer[len++] = data;
211 }
212 if (data == '\r') {
213 /* line buffer emptied */
214 lol->offs_unread_CON = 0;
215 curbuffer = NULL;
216 /* if we're not in raw mode, call it a day */
217 if (!(con->attr & ATTR_RAW)) {
218 hdr->status = STAT_DONE;
219 io->count = len;
220 break;
221 }
222 } else {
223 /* still some data left */
224 lol->offs_unread_CON = curbuffer - (BYTE*)lol;
225 /* but buffer was filled, we're done */
226 hdr->status = STAT_DONE;
227 io->count = len;
228 break;
229 }
230 }
231
232 /* if we're in raw mode, we just need to fill the buffer */
233 if (con->attr & ATTR_RAW) {
234 while (len<count) {
235 WORD data;
236
237 /* do we have a waiting scancode? */
238 if (*scan) {
239 /* yes, store scancode in buffer */
240 buffer[len++] = *scan;
241 *scan = 0;
242 if (len==count) break;
243 }
244
245 /* check for new keyboard input */
246 while (CurOfs == bios->FirstKbdCharPtr) {
247 /* no input available yet, so wait... */
248 DOSVM_Wait( ctx );
249 }
250 /* read from keyboard queue (call int16?) */
251 data = ((WORD*)bios)[CurOfs];
252 CurOfs += 2;
253 if (CurOfs >= bios->KbdBufferEnd) CurOfs = bios->KbdBufferStart;
254 bios->NextKbdCharPtr = CurOfs;
255 /* if it's an extended key, save scancode */
256 if (LOBYTE(data) == 0) *scan = HIBYTE(data);
257 /* store ASCII char in buffer */
258 buffer[len++] = LOBYTE(data);
259 }
260 } else {
261 /* we're not in raw mode, so we need to do line input... */
262 while (TRUE) {
263 WORD data;
264 /* check for new keyboard input */
265 while (CurOfs == bios->FirstKbdCharPtr) {
266 /* no input available yet, so wait... */
267 DOSVM_Wait( ctx );
268 }
269 /* read from keyboard queue (call int16?) */
270 data = ((WORD*)bios)[CurOfs];
271 CurOfs += 2;
272 if (CurOfs >= bios->KbdBufferEnd) CurOfs = bios->KbdBufferStart;
273 bios->NextKbdCharPtr = CurOfs;
274
275 if (LOBYTE(data) == '\r') {
276 /* it's the return key, we're done */
277 linebuffer[len++] = LOBYTE(data);
278 break;
279 }
280 else if (LOBYTE(data) >= ' ') {
281 /* a character */
282 if ((len+1)<CON_BUFFER) {
283 linebuffer[len] = LOBYTE(data);
284 WriteFile(GetStdHandle(STD_OUTPUT_HANDLE), &linebuffer[len++], 1, &w, NULL);
285 }
286 /* else beep, but I don't like noise */
287 }
288 else switch (LOBYTE(data)) {
289 case '\b':
290 if (len>0) {
291 len--;
292 WriteFile(GetStdHandle(STD_OUTPUT_HANDLE), "\b \b", 3, &w, NULL);
293 }
294 break;
295 }
296 }
297 if (len > count) {
298 /* save rest of line for later */
299 lol->offs_unread_CON = linebuffer - (BYTE*)lol + count;
300 len = count;
301 }
302 memcpy(buffer, linebuffer, len);
303 }
304 hdr->status = STAT_DONE;
305 io->count = len;
306 }
307 break;
308 case CMD_SAFEINPUT:
309 if (curbuffer) {
310 /* some line input waiting */
311 hdr->status = STAT_DONE;
312 ((REQ_SAFEINPUT*)hdr)->data = *curbuffer;
313 }
314 else if (con->attr & ATTR_RAW) {
315 if (CurOfs == bios->FirstKbdCharPtr) {
316 /* no input */
317 hdr->status = STAT_DONE|STAT_BUSY;
318 } else {
319 /* some keyboard input waiting */
320 hdr->status = STAT_DONE;
321 ((REQ_SAFEINPUT*)hdr)->data = ((BYTE*)bios)[CurOfs];
322 }
323 } else {
324 /* no line input */
325 hdr->status = STAT_DONE|STAT_BUSY;
326 }
327 break;
328 case CMD_INSTATUS:
329 if (curbuffer) {
330 /* we have data */
331 hdr->status = STAT_DONE;
332 }
333 else if (con->attr & ATTR_RAW) {
334 if (CurOfs == bios->FirstKbdCharPtr) {
335 /* no input */
336 hdr->status = STAT_DONE|STAT_BUSY;
337 } else {
338 /* some keyboard input waiting */
339 hdr->status = STAT_DONE;
340 }
341 } else {
342 /* no line input */
343 hdr->status = STAT_DONE|STAT_BUSY;
344 }
345
346 break;
347 case CMD_INFLUSH:
348 /* flush line and keyboard queue */
349 lol->offs_unread_CON = 0;
350 bios->NextKbdCharPtr = bios->FirstKbdCharPtr;
351 break;
352 case CMD_OUTPUT:
353 case CMD_SAFEOUTPUT:
354 {
355 REQ_IO *io = (REQ_IO *)hdr;
356 BYTE *buffer = CTX_SEG_OFF_TO_LIN(ctx,
357 SELECTOROF(io->buffer),
358 (DWORD)OFFSETOF(io->buffer));
359 DWORD result = 0;
360 WriteFile(GetStdHandle(STD_OUTPUT_HANDLE), buffer, io->count, &result, NULL);
361 io->count = result;
362 hdr->status = STAT_DONE;
363 }
364 break;
365 default:
366 hdr->status = STAT_DONE;
367 }
368 do_lret(ctx);
369 }
370
371 static void InitListOfLists(DOS_LISTOFLISTS *DOS_LOL)
372 {
373 /*
374 Output of DOS 6.22:
375
376 0133:0020 6A 13-33 01 CC 00 33 01 59 00 j.3...3.Y.
377 0133:0030 70 00 00 00 72 02 00 02-6D 00 33 01 00 00 2E 05 p...r...m.3.....
378 0133:0040 00 00 FC 04 00 00 03 08-92 21 11 E0 04 80 C6 0D .........!......
379 0133:0050 CC 0D 4E 55 4C 20 20 20-20 20 00 00 00 00 00 00 ..NUL ......
380 0133:0060 00 4B BA C1 06 14 00 00-00 03 01 00 04 70 CE FF .K...........p..
381 0133:0070 FF 00 00 00 00 00 00 00-00 01 00 00 0D 05 00 00 ................
382 0133:0080 00 FF FF 00 00 00 00 FE-00 00 F8 03 FF 9F 70 02 ..............p.
383 0133:0090 D0 44 C8 FD D4 44 C8 FD-D4 44 C8 FD D0 44 C8 FD .D...D...D...D..
384 0133:00A0 D0 44 C8 FD D0 44 .D...D
385 */
386 DOS_LOL->CX_Int21_5e01 = 0x0;
387 DOS_LOL->LRU_count_FCB_cache = 0x0;
388 DOS_LOL->LRU_count_FCB_open = 0x0;
389 DOS_LOL->OEM_func_handler = -1; /* not available */
390 DOS_LOL->INT21_offset = 0x0;
391 DOS_LOL->sharing_retry_count = 3;
392 DOS_LOL->sharing_retry_delay = 1;
393 DOS_LOL->ptr_disk_buf = 0x0;
394 DOS_LOL->offs_unread_CON = 0x0;
395 DOS_LOL->seg_first_MCB = 0x0;
396 DOS_LOL->ptr_first_DPB = 0x0;
397 DOS_LOL->ptr_first_SysFileTable = 0x0;
398 DOS_LOL->ptr_clock_dev_hdr = 0x0;
399 DOS_LOL->ptr_CON_dev_hdr = 0x0;
400 DOS_LOL->max_byte_per_sec = 512;
401 DOS_LOL->ptr_disk_buf_info = 0x0;
402 DOS_LOL->ptr_array_CDS = 0x0;
403 DOS_LOL->ptr_sys_FCB = 0x0;
404 DOS_LOL->nr_protect_FCB = 0x0;
405 DOS_LOL->nr_block_dev = 0x0;
406 DOS_LOL->nr_avail_drive_letters = 26; /* A - Z */
407 DOS_LOL->nr_drives_JOINed = 0x0;
408 DOS_LOL->ptr_spec_prg_names = 0x0;
409 DOS_LOL->ptr_SETVER_prg_list = 0x0; /* no SETVER list */
410 DOS_LOL->DOS_HIGH_A20_func_offs = 0x0;
411 DOS_LOL->PSP_last_exec = 0x0;
412 DOS_LOL->BUFFERS_val = 99; /* maximum: 99 */
413 DOS_LOL->BUFFERS_nr_lookahead = 8; /* maximum: 8 */
414 DOS_LOL->boot_drive = 3; /* C: */
415 DOS_LOL->flag_DWORD_moves = 0x01; /* i386+ */
416 DOS_LOL->size_extended_mem = 0xf000; /* very high value */
417 }
418
419 void DOSDEV_SetupDevice(const WINEDEV * devinfo,
420 WORD seg, WORD off_dev, WORD off_thunk)
421 {
422 DOS_DEVICE_HEADER *dev = PTR_REAL_TO_LIN(seg, off_dev);
423 WINEDEV_THUNK *thunk = PTR_REAL_TO_LIN(seg, off_thunk);
424 DOS_DATASEG *dataseg = (DOS_DATASEG*)DOSMEM_LOL();
425
426 dev->attr = devinfo->attr;
427 dev->strategy = off_thunk + FIELD_OFFSET(WINEDEV_THUNK, ljmp1);
428 dev->interrupt = off_thunk + FIELD_OFFSET(WINEDEV_THUNK, ljmp2);
429 memcpy(dev->name, devinfo->name, 8);
430
431 thunk->ljmp1 = LJMP;
432 thunk->strategy = DPMI_AllocInternalRMCB(devinfo->strategy);
433 thunk->ljmp2 = LJMP;
434 thunk->interrupt = DPMI_AllocInternalRMCB(devinfo->interrupt);
435
436 dev->next_dev = NONEXT;
437 if (dataseg->last_dev)
438 dataseg->last_dev->next_dev = MAKESEGPTR(seg, off_dev);
439 dataseg->last_dev = dev;
440 }
441
442 void DOSDEV_InstallDOSDevices(void)
443 {
444 DOS_DATASEG *dataseg;
445 WORD seg;
446 WORD selector;
447 unsigned int n;
448
449 /* allocate DOS data segment or something */
450 dataseg = DOSVM_AllocDataUMB( sizeof(DOS_DATASEG), &seg, &selector );
451
452 DOS_LOLSeg = MAKESEGPTR( seg, 0 );
453 DOSMEM_LOL()->wine_rm_lol =
454 MAKESEGPTR( seg, FIELD_OFFSET(DOS_LISTOFLISTS, ptr_first_DPB) );
455 DOSMEM_LOL()->wine_pm_lol =
456 MAKESEGPTR( selector, FIELD_OFFSET(DOS_LISTOFLISTS, ptr_first_DPB) );
457
458 /* initialize the magnificent List Of Lists */
459 InitListOfLists(&dataseg->lol);
460
461 /* Set up first device (NUL) */
462 dataseg->last_dev = NULL;
463 DOSDEV_SetupDevice( &devs[0],
464 seg,
465 DOS_DATASEG_OFF(lol.NUL_dev),
466 DOS_DATASEG_OFF(thunk[0]) );
467
468 /* Set up the remaining devices */
469 for (n = 1; n < NR_DEVS; n++)
470 DOSDEV_SetupDevice( &devs[n],
471 seg,
472 DOS_DATASEG_OFF(dev[n-1]),
473 DOS_DATASEG_OFF(thunk[n]) );
474
475 /* CON is device 1 */
476 dataseg->lol.ptr_CON_dev_hdr = MAKESEGPTR(seg, DOS_DATASEG_OFF(dev[0]));
477 }
478
479 void DOSDEV_SetSharingRetry(WORD delay, WORD count)
480 {
481 DOSMEM_LOL()->sharing_retry_delay = delay;
482 if (count) DOSMEM_LOL()->sharing_retry_count = count;
483 }
484
485 SEGPTR DOSDEV_GetLOL(BOOL v86)
486 {
487 if (v86) return DOSMEM_LOL()->wine_rm_lol;
488 else return DOSMEM_LOL()->wine_pm_lol;
489 }
an attempt at megring old patches into wine