git.oblomov.eu Git - wine/blob - dlls/winedos/int21.c

   1 /*
   2  * DOS interrupt 21h handler
   3  *
   4  * Copyright 1993, 1994 Erik Bos
   5  * Copyright 1996 Alexandre Julliard
   6  * Copyright 1997 Andreas Mohr
   7  * Copyright 1998 Uwe Bonnes
   8  * Copyright 1998, 1999 Ove Kaaven
   9  * Copyright 2003 Thomas Mertes
  10  *
  11  * This library is free software; you can redistribute it and/or
  12  * modify it under the terms of the GNU Lesser General Public
  13  * License as published by the Free Software Foundation; either
  14  * version 2.1 of the License, or (at your option) any later version.
  15  *
  16  * This library is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19  * Lesser General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU Lesser General Public
  22  * License along with this library; if not, write to the Free Software
  23  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  24  */
  25
  26 #include "config.h"
  27 #include "wine/port.h"
  28
  29 #include <stdarg.h>
  30 #include <stdio.h>
  31 #ifdef HAVE_SYS_STAT_H
  32 # include <sys/stat.h>
  33 #endif
  34 #ifdef HAVE_UNISTD_H
  35 # include <unistd.h>
  36 #endif
  37
  38 #include "windef.h"
  39 #include "winbase.h"
  40 #include "winreg.h"
  41 #include "winternl.h"
  42 #include "wine/winbase16.h"
  43 #include "dosexe.h"
  44 #include "winerror.h"
  45 #include "winuser.h"
  46 #include "wine/unicode.h"
  47 #include "wine/server.h"
  48 #include "wine/debug.h"
  49 #include "wine/exception.h"
  50
  51 BOOL    WINAPI VerifyConsoleIoHandle(HANDLE);
  52 /*
  53  * Note:
  54  * - Most of the file related functions are wrong. NT's kernel32
  55  *   doesn't maintain a per drive current directory, while DOS does.
  56  *   We should in fact keep track in here of those per drive
  57  *   directories, and use this info while dealing with partial paths
  58  *   (drive defined, but only relative paths). This could even be
  59  *   created as an array of CDS (there should be an entry for that in
  60  *   the LOL)
  61  */
  62
  63 /*
  64  * Forward declarations.
  65  */
  66 static BOOL INT21_RenameFile( CONTEXT86 *context );
  67
  68 WINE_DEFAULT_DEBUG_CHANNEL(int21);
  69
  70
  71 #include "pshpack1.h"
  72
  73 /*
  74  * Extended Drive Parameter Block.
  75  * This structure is compatible with standard DOS4+ DPB and
  76  * extended DOS7 DPB.
  77  */
  78 typedef struct _INT21_DPB {
  79     BYTE   drive;                /* 00 drive number (0=A, ...) */
  80     BYTE   unit;                 /* 01 unit number within device driver */
  81     WORD   sector_bytes;         /* 02 bytes per sector */
  82     BYTE   cluster_sectors;      /* 04 highest sector number within a cluster */
  83     BYTE   shift;                /* 05 shift count to convert clusters into sectors */
  84     WORD   num_reserved;         /* 06 reserved sectors at beginning of drive */
  85     BYTE   num_FAT;              /* 08 number of FATs */
  86     WORD   num_root_entries;     /* 09 number of root directory entries */
  87     WORD   first_data_sector;    /* 0b number of first sector containing user data */
  88     WORD   num_clusters1;        /* 0d highest cluster number (number of data clusters + 1) */
  89     WORD   sectors_per_FAT;      /* 0f number of sectors per FAT */
  90     WORD   first_dir_sector;     /* 11 sector number of first directory sector */
  91     SEGPTR driver_header;        /* 13 address of device driver header */
  92     BYTE   media_ID;             /* 17 media ID byte */
  93     BYTE   access_flag;          /* 18 0x00 if disk accessed, 0xff if not */
  94     SEGPTR next;                 /* 19 pointer to next DPB */
  95     WORD   search_cluster1;      /* 1d cluster at which to start search for free space */
  96     WORD   free_clusters_lo;     /* 1f number of free clusters on drive or 0xffff if unknown */
  97     WORD   free_clusters_hi;     /* 21 hiword of clusters_free */
  98     WORD   mirroring_flags;      /* 23 active FAT/mirroring flags */
  99     WORD   info_sector;          /* 25 sector number of file system info sector or 0xffff for none */
 100     WORD   spare_boot_sector;    /* 27 sector number of backup boot sector or 0xffff for none */
 101     DWORD  first_cluster_sector; /* 29 sector number of the first cluster */
 102     DWORD  num_clusters2;        /* 2d maximum cluster number */
 103     DWORD  fat_clusters;         /* 31 number of clusters occupied by FAT */
 104     DWORD  root_cluster;         /* 35 cluster number of start of root directory */
 105     DWORD  search_cluster2;      /* 39 cluster at which to start searching for free space */
 106 } INT21_DPB;
 107
 108
 109 /*
 110  * Structure for DOS data that can be accessed directly from applications.
 111  * Real and protected mode pointers will be returned to this structure so
 112  * the structure must be correctly packed.
 113  */
 114 typedef struct _INT21_HEAP {
 115     WORD uppercase_size;             /* Size of the following table in bytes */
 116     BYTE uppercase_table[128];       /* Uppercase equivalents of chars from 0x80 to 0xff. */
 117
 118     WORD lowercase_size;             /* Size of the following table in bytes */
 119     BYTE lowercase_table[256];       /* Lowercase equivalents of chars from 0x00 to 0xff. */
 120
 121     WORD collating_size;             /* Size of the following table in bytes */
 122     BYTE collating_table[256];       /* Values used to sort characters from 0x00 to 0xff. */
 123
 124     WORD filename_size;              /* Size of the following filename data in bytes */
 125     BYTE filename_reserved1;         /* 0x01 for MS-DOS 3.30-6.00 */
 126     BYTE filename_lowest;            /* Lowest permissible character value for filename */
 127     BYTE filename_highest;           /* Highest permissible character value for filename */
 128     BYTE filename_reserved2;         /* 0x00 for MS-DOS 3.30-6.00 */
 129     BYTE filename_exclude_first;     /* First illegal character in permissible range */
 130     BYTE filename_exclude_last;      /* Last illegal character in permissible range */
 131     BYTE filename_reserved3;         /* 0x02 for MS-DOS 3.30-6.00 */
 132     BYTE filename_illegal_size;      /* Number of terminators in the following table */
 133     BYTE filename_illegal_table[16]; /* Characters which terminate a filename */
 134
 135     WORD dbcs_size;                  /* Number of valid ranges in the following table */
 136     BYTE dbcs_table[16];             /* Start/end bytes for N ranges and 00/00 as terminator */
 137
 138     BYTE      misc_indos;                    /* Interrupt 21 nesting flag */
 139     WORD      misc_segment;                  /* Real mode segment for INT21_HEAP */
 140     WORD      misc_selector;                 /* Protected mode selector for INT21_HEAP */
 141     INT21_DPB misc_dpb_list[MAX_DOS_DRIVES]; /* Drive parameter blocks for all drives */
 142
 143 } INT21_HEAP;
 144
 145
 146 struct FCB {
 147     BYTE  drive_number;
 148     CHAR  file_name[8];
 149     CHAR  file_extension[3];
 150     WORD  current_block_number;
 151     WORD  logical_record_size;
 152     DWORD file_size;
 153     WORD  date_of_last_write;
 154     WORD  time_of_last_write;
 155     BYTE  file_number;
 156     BYTE  attributes;
 157     WORD  starting_cluster;
 158     WORD  sequence_number;
 159     BYTE  file_attributes;
 160     BYTE  unused;
 161     BYTE  record_within_current_block;
 162     BYTE  random_access_record_number[4];
 163 };
 164
 165
 166 struct XFCB {
 167     BYTE  xfcb_signature;
 168     BYTE  reserved[5];
 169     BYTE  xfcb_file_attribute;
 170     BYTE  fcb[37];
 171 };
 172
 173 /* DTA layout for FindFirst/FindNext */
 174 typedef struct
 175 {
 176     BYTE   drive;        /* 00 drive letter */
 177     char   mask[11];     /* 01 search template */
 178     BYTE   search_attr;  /* 0c search attributes */
 179     WORD   count;        /* 0d entry count within directory */
 180     WORD   cluster;      /* 0f cluster of parent directory */
 181     WCHAR *fullPath;     /* 11 full path (was: reserved) */
 182     BYTE   fileattr;     /* 15 file attributes */
 183     WORD   filetime;     /* 16 file time */
 184     WORD   filedate;     /* 18 file date */
 185     DWORD  filesize;     /* 1a file size */
 186     char   filename[13]; /* 1e file name + extension */
 187 } FINDFILE_DTA;
 188
 189 /* FCB layout for FindFirstFCB/FindNextFCB */
 190 typedef struct
 191 {
 192     BYTE   drive;                /* 00 drive letter */
 193     char   filename[11];         /* 01 filename 8+3 format */
 194     int    count;                /* 0c entry count (was: reserved) */
 195     WCHAR *fullPath;             /* 10 full path (was: reserved) */
 196 } FINDFILE_FCB;
 197
 198 /* DOS directory entry for FindFirstFCB/FindNextFCB */
 199 typedef struct
 200 {
 201     char   filename[11];         /* 00 filename 8+3 format */
 202     BYTE   fileattr;             /* 0b file attributes */
 203     BYTE   reserved[10];         /* 0c reserved */
 204     WORD   filetime;             /* 16 file time */
 205     WORD   filedate;             /* 18 file date */
 206     WORD   cluster;              /* 1a file first cluster */
 207     DWORD  filesize;             /* 1c file size */
 208 } DOS_DIRENTRY_LAYOUT;
 209
 210 #include "poppack.h"
 211
 212 /* dos file attributes */
 213 #define FA_NORMAL    0x00        /* Normal file, no attributes */
 214 #define FA_RDONLY    0x01        /* Read only attribute */
 215 #define FA_HIDDEN    0x02        /* Hidden file */
 216 #define FA_SYSTEM    0x04        /* System file */
 217 #define FA_LABEL     0x08        /* Volume label */
 218 #define FA_DIRECTORY 0x10        /* Directory */
 219 #define FA_ARCHIVE   0x20        /* Archive */
 220 #define FA_UNUSED    0x40        /* Unused */
 221
 222 /* Error codes */
 223 #define ER_NoNetwork         0x49
 224
 225 /* Error classes */
 226 #define EC_OutOfResource     0x01
 227 #define EC_Temporary         0x02
 228 #define EC_AccessDenied      0x03
 229 #define EC_InternalError     0x04
 230 #define EC_HardwareFailure   0x05
 231 #define EC_SystemFailure     0x06
 232 #define EC_ProgramError      0x07
 233 #define EC_NotFound          0x08
 234 #define EC_MediaError        0x0b
 235 #define EC_Exists            0x0c
 236 #define EC_Unknown           0x0d
 237
 238 /* Suggested actions */
 239 #define SA_Retry             0x01
 240 #define SA_DelayedRetry      0x02
 241 #define SA_Abort             0x04
 242 #define SA_Ignore            0x06
 243 #define SA_Ask4Retry         0x07
 244
 245 /* Error locus */
 246 #define EL_Unknown           0x01
 247 #define EL_Disk              0x02
 248 #define EL_Network           0x03
 249 #define EL_Serial            0x04
 250 #define EL_Memory            0x05
 251
 252 /* BIOS Keyboard Scancodes */
 253 #define KEY_LEFT        0x4B
 254 #define KEY_RIGHT       0x4D
 255 #define KEY_UP          0x48
 256 #define KEY_DOWN        0x50
 257 #define KEY_IC          0x52 /* insert char */
 258 #define KEY_DC          0x53 /* delete char */
 259 #define KEY_BACKSPACE   0x0E
 260 #define KEY_HOME        0x47
 261 #define KEY_END         0x4F
 262 #define KEY_NPAGE       0x49
 263 #define KEY_PPAGE       0x51
 264
 265
 266 struct magic_device
 267 {
 268     WCHAR  name[10];
 269     HANDLE handle;
 270     dev_t  dev;
 271     ino_t  ino;
 272     void (*ioctl_handler)(CONTEXT86 *);
 273 };
 274
 275 static void INT21_IoctlScsiMgrHandler( CONTEXT86 * );
 276 static void INT21_IoctlEMSHandler( CONTEXT86 * );
 277 static void INT21_IoctlHPScanHandler( CONTEXT86 * );
 278
 279 static struct magic_device magic_devices[] =
 280 {
 281     { {'s','c','s','i','m','g','r','$',0}, NULL, 0, 0, INT21_IoctlScsiMgrHandler },
 282     { {'e','m','m','x','x','x','x','0',0}, NULL, 0, 0, INT21_IoctlEMSHandler },
 283     { {'h','p','s','c','a','n',0},         NULL, 0, 0, INT21_IoctlHPScanHandler },
 284 };
 285
 286 #define NB_MAGIC_DEVICES  (sizeof(magic_devices)/sizeof(magic_devices[0]))
 287
 288
 289 /* Many calls translate a drive argument like this:
 290    drive number (00h = default, 01h = A:, etc)
 291    */
 292 /******************************************************************
 293  *              INT21_DriveName
 294  *
 295  * Many calls translate a drive argument like this:
 296  * drive number (00h = default, 01h = A:, etc)
 297  */
 298 static const char *INT21_DriveName(int drive)
 299 {
 300     if (drive > 0)
 301     {
 302         if (drive <= 26) return wine_dbg_sprintf("%c:", 'A' + drive - 1);
 303         else return wine_dbg_sprintf( "<Bad drive: %d>", drive);
 304     }
 305     return "default";
 306 }
 307
 308 /***********************************************************************
 309  *           INT21_GetCurrentDrive
 310  *
 311  * Return current drive using scheme (0=A:, 1=B:, 2=C:, ...) or
 312  * MAX_DOS_DRIVES on error.
 313  */
 314 static BYTE INT21_GetCurrentDrive(void)
 315 {
 316     WCHAR current_directory[MAX_PATH];
 317
 318     if (!GetCurrentDirectoryW( MAX_PATH, current_directory ) ||
 319         current_directory[1] != ':')
 320     {
 321         TRACE( "Failed to get current drive.\n" );
 322         return MAX_DOS_DRIVES;
 323     }
 324
 325     return toupperW( current_directory[0] ) - 'A';
 326 }
 327
 328
 329 /***********************************************************************
 330  *           INT21_MapDrive
 331  *
 332  * Convert drive number from scheme (0=default, 1=A:, 2=B:, ...) into
 333  * scheme (0=A:, 1=B:, 2=C:, ...) or MAX_DOS_DRIVES on error.
 334  */
 335 static BYTE INT21_MapDrive( BYTE drive )
 336 {
 337     if (drive)
 338     {
 339         WCHAR drivespec[3] = {'A', ':', 0};
 340         UINT  drivetype;
 341
 342         drivespec[0] += drive - 1;
 343         drivetype = GetDriveTypeW( drivespec );
 344
 345         if (drivetype == DRIVE_UNKNOWN || drivetype == DRIVE_NO_ROOT_DIR)
 346             return MAX_DOS_DRIVES;
 347
 348         return drive - 1;
 349     }
 350
 351     return INT21_GetCurrentDrive();
 352 }
 353
 354
 355 /***********************************************************************
 356  *           INT21_SetCurrentDrive
 357  *
 358  * Set current drive. Uses scheme (0=A:, 1=B:, 2=C:, ...).
 359  */
 360 static void INT21_SetCurrentDrive( BYTE drive )
 361 {
 362     WCHAR drivespec[3] = {'A', ':', 0};
 363
 364     drivespec[0] += drive;
 365
 366     if (!SetCurrentDirectoryW( drivespec ))
 367         TRACE( "Failed to set current drive.\n" );
 368 }
 369
 370
 371 /***********************************************************************
 372  *           INT21_ReadChar
 373  *
 374  * Reads a character from the standard input.
 375  * Extended keycodes will be returned as two separate characters.
 376  */
 377 static BOOL INT21_ReadChar( BYTE *input, CONTEXT86 *waitctx )
 378 {
 379     static BYTE pending_scan = 0;
 380
 381     if (pending_scan)
 382     {
 383         if (input)
 384             *input = pending_scan;
 385         if (waitctx)
 386             pending_scan = 0;
 387         return TRUE;
 388     }
 389     else
 390     {
 391         BYTE ascii;
 392         BYTE scan;
 393         if (!DOSVM_Int16ReadChar( &ascii, &scan, waitctx ))
 394             return FALSE;
 395
 396         if (input)
 397             *input = ascii;
 398         if (waitctx && !ascii)
 399             pending_scan = scan;
 400         return TRUE;
 401     }
 402 }
 403
 404
 405 /***********************************************************************
 406  *           INT21_GetSystemCountryCode
 407  *
 408  * Return DOS country code for default system locale.
 409  */
 410 static WORD INT21_GetSystemCountryCode( void )
 411 {
 412     /*
 413      * FIXME: Determine country code. We should probably use
 414      *        DOSCONF structure for that.
 415      */
 416     return GetSystemDefaultLangID();
 417 }
 418
 419
 420 /***********************************************************************
 421  *           INT21_FillCountryInformation
 422  *
 423  * Fill 34-byte buffer with country information data using
 424  * default system locale.
 425  */
 426 static void INT21_FillCountryInformation( BYTE *buffer )
 427 {
 428     /* 00 - WORD: date format
 429      *          00 = mm/dd/yy
 430      *          01 = dd/mm/yy
 431      *          02 = yy/mm/dd
 432      */
 433     *(WORD*)(buffer + 0) = 0; /* FIXME: Get from locale */
 434
 435     /* 02 - BYTE[5]: ASCIIZ currency symbol string */
 436     buffer[2] = '$'; /* FIXME: Get from locale */
 437     buffer[3] = 0;
 438
 439     /* 07 - BYTE[2]: ASCIIZ thousands separator */
 440     buffer[7] = 0; /* FIXME: Get from locale */
 441     buffer[8] = 0;
 442
 443     /* 09 - BYTE[2]: ASCIIZ decimal separator */
 444     buffer[9]  = '.'; /* FIXME: Get from locale */
 445     buffer[10] = 0;
 446
 447     /* 11 - BYTE[2]: ASCIIZ date separator */
 448     buffer[11] = '/'; /* FIXME: Get from locale */
 449     buffer[12] = 0;
 450
 451     /* 13 - BYTE[2]: ASCIIZ time separator */
 452     buffer[13] = ':'; /* FIXME: Get from locale */
 453     buffer[14] = 0;
 454
 455     /* 15 - BYTE: Currency format
 456      *          bit 2 = set if currency symbol replaces decimal point
 457      *          bit 1 = number of spaces between value and currency symbol
 458      *          bit 0 = 0 if currency symbol precedes value
 459      *                  1 if currency symbol follows value
 460      */
 461     buffer[15] = 0; /* FIXME: Get from locale */
 462
 463     /* 16 - BYTE: Number of digits after decimal in currency */
 464     buffer[16] = 0; /* FIXME: Get from locale */
 465
 466     /* 17 - BYTE: Time format
 467      *          bit 0 = 0 if 12-hour clock
 468      *                  1 if 24-hour clock
 469      */
 470     buffer[17] = 1; /* FIXME: Get from locale */
 471
 472     /* 18 - DWORD: Address of case map routine */
 473     *(DWORD*)(buffer + 18) = 0; /* FIXME: ptr to case map routine */
 474
 475     /* 22 - BYTE[2]: ASCIIZ data-list separator */
 476     buffer[22] = ','; /* FIXME: Get from locale */
 477     buffer[23] = 0;
 478
 479     /* 24 - BYTE[10]: Reserved */
 480     memset( buffer + 24, 0, 10 );
 481 }
 482
 483
 484 /***********************************************************************
 485  *           INT21_FillHeap
 486  *
 487  * Initialize DOS heap.
 488  *
 489  * Filename Terminator Table of w2k DE NTVDM:
 490  * 16 00 01 00 FF 00 00 20-02 0E 2E 22 2F 5C 5B 5D  ....... ..."/\[]
 491  * 3A 7C 3C 3E 2B 3D 3B 2C-00                       :|<>+=;,
 492  */
 493 static void INT21_FillHeap( INT21_HEAP *heap )
 494 {
 495     static const char terminators[] = ".\"/\\[]:|<>+=;,";
 496     int i;
 497
 498     /*
 499      * Uppercase table.
 500      */
 501     heap->uppercase_size = 128;
 502     for (i = 0; i < 128; i++)
 503         heap->uppercase_table[i] = toupper( 128 + i );
 504
 505     /*
 506      * Lowercase table.
 507      */
 508     heap->lowercase_size = 256;
 509     for (i = 0; i < 256; i++)
 510         heap->lowercase_table[i] = tolower( i );
 511
 512     /*
 513      * Collating table.
 514      */
 515     heap->collating_size = 256;
 516     for (i = 0; i < 256; i++)
 517         heap->collating_table[i] = i;
 518
 519     /*
 520      * Filename table.
 521      */
 522     heap->filename_size = 8 + strlen(terminators);
 523     heap->filename_illegal_size = strlen(terminators);
 524     memcpy( heap->filename_illegal_table, terminators, heap->filename_illegal_size );
 525
 526     heap->filename_reserved1 = 0x01;
 527     heap->filename_lowest = 0x00;
 528     heap->filename_highest = 0xff;
 529     heap->filename_reserved2 = 0x00;
 530     heap->filename_exclude_first = 0x00;
 531     heap->filename_exclude_last = 0x20;
 532     heap->filename_reserved3 = 0x02;
 533
 534     /*
 535      * DBCS lead byte table. This table is empty.
 536      */
 537     heap->dbcs_size = 0;
 538     memset( heap->dbcs_table, 0, sizeof(heap->dbcs_table) );
 539
 540     /*
 541      * Initialize InDos flag.
 542      */
 543     heap->misc_indos = 0;
 544
 545     /*
 546      * FIXME: Should drive parameter blocks (DPB) be
 547      *        initialized here and linked to DOS LOL?
 548      */
 549 }
 550
 551
 552 /***********************************************************************
 553  *           INT21_GetHeapPointer
 554  *
 555  * Get pointer for DOS heap (INT21_HEAP).
 556  * Creates and initializes heap on first call.
 557  */
 558 static INT21_HEAP *INT21_GetHeapPointer( void )
 559 {
 560     static INT21_HEAP *heap_pointer = NULL;
 561
 562     if (!heap_pointer)
 563     {
 564         WORD heap_segment;
 565         WORD heap_selector;
 566
 567         heap_pointer = DOSVM_AllocDataUMB( sizeof(INT21_HEAP),
 568                                            &heap_segment,
 569                                            &heap_selector );
 570
 571         heap_pointer->misc_segment  = heap_segment;
 572         heap_pointer->misc_selector = heap_selector;
 573         INT21_FillHeap( heap_pointer );
 574     }
 575
 576     return heap_pointer;
 577 }
 578
 579
 580 /***********************************************************************
 581  *           INT21_GetHeapSelector
 582  *
 583  * Get segment/selector for DOS heap (INT21_HEAP).
 584  * Creates and initializes heap on first call.
 585  */
 586 static WORD INT21_GetHeapSelector( CONTEXT86 *context )
 587 {
 588     INT21_HEAP *heap = INT21_GetHeapPointer();
 589
 590     if (!ISV86(context) && DOSVM_IsWin16())
 591         return heap->misc_selector;
 592     else
 593         return heap->misc_segment;
 594 }
 595
 596
 597 /***********************************************************************
 598  *           INT21_FillDrivePB
 599  *
 600  * Fill DOS heap drive parameter block for the specified drive.
 601  * Return TRUE if drive was valid and there were
 602  * no errors while reading drive information.
 603  */
 604 static BOOL INT21_FillDrivePB( BYTE drive )
 605 {
 606     WCHAR       drivespec[3] = {'A', ':', 0};
 607     INT21_HEAP *heap = INT21_GetHeapPointer();
 608     INT21_DPB  *dpb;
 609     UINT        drivetype;
 610     DWORD       cluster_sectors;
 611     DWORD       sector_bytes;
 612     DWORD       free_clusters;
 613     DWORD       total_clusters;
 614
 615     if (drive >= MAX_DOS_DRIVES)
 616         return FALSE;
 617
 618     dpb = &heap->misc_dpb_list[drive];
 619     drivespec[0] += drive;
 620     drivetype = GetDriveTypeW( drivespec );
 621
 622     /*
 623      * FIXME: Does this check work correctly with floppy/cdrom drives?
 624      */
 625     if (drivetype == DRIVE_NO_ROOT_DIR || drivetype == DRIVE_UNKNOWN)
 626         return FALSE;
 627
 628     /*
 629      * FIXME: Does this check work correctly with floppy/cdrom drives?
 630      */
 631     if (!GetDiskFreeSpaceW( drivespec, &cluster_sectors, &sector_bytes,
 632                             &free_clusters, &total_clusters ))
 633         return FALSE;
 634
 635     /*
 636      * FIXME: Most of the values listed below are incorrect.
 637      *        All values should be validated.
 638      */
 639
 640     dpb->drive           = drive;
 641     dpb->unit            = 0;
 642     dpb->sector_bytes    = sector_bytes;
 643     dpb->cluster_sectors = cluster_sectors - 1;
 644
 645     dpb->shift = 0;
 646     while (cluster_sectors > 1)
 647     {
 648         cluster_sectors /= 2;
 649         dpb->shift++;
 650     }
 651
 652     dpb->num_reserved         = 0;
 653     dpb->num_FAT              = 1;
 654     dpb->num_root_entries     = 2;
 655     dpb->first_data_sector    = 2;
 656     dpb->num_clusters1        = total_clusters;
 657     dpb->sectors_per_FAT      = 1;
 658     dpb->first_dir_sector     = 1;
 659     dpb->driver_header        = 0;
 660     dpb->media_ID             = (drivetype == DRIVE_FIXED) ? 0xF8 : 0xF0;
 661     dpb->access_flag          = 0;
 662     dpb->next                 = 0;
 663     dpb->search_cluster1      = 0;
 664     dpb->free_clusters_lo     = LOWORD(free_clusters);
 665     dpb->free_clusters_hi     = HIWORD(free_clusters);
 666     dpb->mirroring_flags      = 0;
 667     dpb->info_sector          = 0xffff;
 668     dpb->spare_boot_sector    = 0xffff;
 669     dpb->first_cluster_sector = 0;
 670     dpb->num_clusters2        = total_clusters;
 671     dpb->fat_clusters         = 32;
 672     dpb->root_cluster         = 0;
 673     dpb->search_cluster2      = 0;
 674
 675     return TRUE;
 676 }
 677
 678
 679 /***********************************************************************
 680  *           INT21_GetCurrentDirectory
 681  *
 682  * Handler for:
 683  * - function 0x47
 684  * - subfunction 0x47 of function 0x71
 685  */
 686 static BOOL INT21_GetCurrentDirectory( CONTEXT86 *context, BOOL islong )
 687 {
 688     char  *buffer = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Esi);
 689     BYTE   drive = INT21_MapDrive( DL_reg(context) );
 690     WCHAR  pathW[MAX_PATH];
 691     char   pathA[MAX_PATH];
 692     WCHAR *ptr = pathW;
 693
 694     TRACE( "drive %d\n", DL_reg(context) );
 695
 696     if (drive == MAX_DOS_DRIVES)
 697     {
 698         SetLastError(ERROR_INVALID_DRIVE);
 699         return FALSE;
 700     }
 701
 702     /*
 703      * Grab current directory.
 704      */
 705
 706     if (!GetCurrentDirectoryW( MAX_PATH, pathW )) return FALSE;
 707
 708     if (toupperW(pathW[0]) - 'A' != drive || pathW[1] != ':')
 709     {
 710         /* cwd is not on the requested drive, get the environment string instead */
 711
 712         WCHAR env_var[4];
 713
 714         env_var[0] = '=';
 715         env_var[1] = 'A' + drive;
 716         env_var[2] = ':';
 717         env_var[3] = 0;
 718         if (!GetEnvironmentVariableW( env_var, pathW, MAX_PATH ))
 719         {
 720             /* return empty path */
 721             buffer[0] = 0;
 722             return TRUE;
 723         }
 724     }
 725
 726     /*
 727      * Convert into short format.
 728      */
 729
 730     if (!islong)
 731     {
 732         DWORD result = GetShortPathNameW( pathW, pathW, MAX_PATH );
 733         if (!result)
 734             return FALSE;
 735         if (result > MAX_PATH)
 736         {
 737             WARN( "Short path too long!\n" );
 738             SetLastError(ERROR_NETWORK_BUSY); /* Internal Wine error. */
 739             return FALSE;
 740         }
 741     }
 742
 743     /*
 744      * The returned pathname does not include
 745      * the drive letter, colon or leading backslash.
 746      */
 747
 748     if (ptr[0] == '\\')
 749     {
 750         /*
 751          * FIXME: We should probably just strip host part from name...
 752          */
 753         FIXME( "UNC names are not supported.\n" );
 754         SetLastError(ERROR_NETWORK_BUSY); /* Internal Wine error. */
 755         return FALSE;
 756     }
 757     else if (!ptr[0] || ptr[1] != ':' || ptr[2] != '\\')
 758     {
 759         WARN( "Path is neither UNC nor DOS path: %s\n",
 760               wine_dbgstr_w(ptr) );
 761         SetLastError(ERROR_NETWORK_BUSY); /* Internal Wine error. */
 762         return FALSE;
 763     }
 764     else
 765     {
 766         /* Remove drive letter, colon and leading backslash. */
 767         ptr += 3;
 768     }
 769
 770     /*
 771      * Convert into OEM string.
 772      */
 773
 774     if (!WideCharToMultiByte(CP_OEMCP, 0, ptr, -1, pathA,
 775                              MAX_PATH, NULL, NULL))
 776     {
 777         WARN( "Cannot convert path!\n" );
 778         SetLastError(ERROR_NETWORK_BUSY); /* Internal Wine error. */
 779         return FALSE;
 780     }
 781
 782     /*
 783      * Success.
 784      */
 785
 786     if (!islong)
 787     {
 788         /* Undocumented success code. */
 789         SET_AX( context, 0x0100 );
 790
 791         /* Truncate buffer to 64 bytes. */
 792         pathA[63] = 0;
 793     }
 794
 795     TRACE( "%c:=%s\n", 'A' + drive, pathA );
 796
 797     strcpy( buffer, pathA );
 798     return TRUE;
 799 }
 800
 801
 802 /***********************************************************************
 803  *           INT21_SetCurrentDirectory
 804  *
 805  * Handler for:
 806  * - function 0x3b
 807  * - subfunction 0x3b of function 0x71
 808  */
 809 static BOOL INT21_SetCurrentDirectory( CONTEXT86 *context )
 810 {
 811     WCHAR dirW[MAX_PATH];
 812     WCHAR env_var[4];
 813     DWORD attr;
 814     char *dirA = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
 815     BYTE  drive = INT21_GetCurrentDrive();
 816     BOOL  result;
 817
 818     TRACE( "SET CURRENT DIRECTORY %s\n", dirA );
 819
 820     MultiByteToWideChar(CP_OEMCP, 0, dirA, -1, dirW, MAX_PATH);
 821     if (!GetFullPathNameW( dirW, MAX_PATH, dirW, NULL )) return FALSE;
 822
 823     attr = GetFileAttributesW( dirW );
 824     if (attr == INVALID_FILE_ATTRIBUTES || !(attr & FILE_ATTRIBUTE_DIRECTORY))
 825     {
 826         SetLastError( ERROR_PATH_NOT_FOUND );
 827         return FALSE;
 828     }
 829
 830     env_var[0] = '=';
 831     env_var[1] = dirW[0];
 832     env_var[2] = ':';
 833     env_var[3] = 0;
 834     result = SetEnvironmentVariableW( env_var, dirW );
 835
 836     /* only set current directory if on the current drive */
 837     if (result && (toupperW(dirW[0]) - 'A' == drive)) result = SetCurrentDirectoryW( dirW );
 838
 839     return result;
 840 }
 841
 842 /***********************************************************************
 843  *           INT21_CreateMagicDeviceHandle
 844  *
 845  * Create a dummy file handle for a "magic" device.
 846  */
 847 static HANDLE INT21_CreateMagicDeviceHandle( LPCWSTR name )
 848 {
 849     const char *dir = wine_get_server_dir();
 850     int len;
 851     HANDLE ret;
 852     NTSTATUS status;
 853     OBJECT_ATTRIBUTES attr;
 854     UNICODE_STRING nameW;
 855     IO_STATUS_BLOCK io;
 856
 857     len = MultiByteToWideChar( CP_UNIXCP, 0, dir, -1, NULL, 0 );
 858     nameW.Length = (len + 1 + strlenW( name )) * sizeof(WCHAR);
 859     nameW.MaximumLength = nameW.Length + sizeof(WCHAR);
 860     if (!(nameW.Buffer = HeapAlloc( GetProcessHeap(), 0, nameW.Length )))
 861     {
 862         SetLastError( ERROR_NOT_ENOUGH_MEMORY );
 863         return 0;
 864     }
 865     MultiByteToWideChar( CP_UNIXCP, 0, dir, -1, nameW.Buffer, len );
 866     nameW.Buffer[len-1] = '/';
 867     strcpyW( nameW.Buffer + len, name );
 868
 869     attr.Length = sizeof(attr);
 870     attr.RootDirectory = 0;
 871     attr.Attributes = 0;
 872     attr.ObjectName = &nameW;
 873     attr.SecurityDescriptor = NULL;
 874     attr.SecurityQualityOfService = NULL;
 875
 876     status = NtCreateFile( &ret, GENERIC_READ|GENERIC_WRITE, &attr, &io, NULL, 0,
 877                            FILE_SHARE_READ|FILE_SHARE_WRITE, FILE_OPEN_IF,
 878                            FILE_SYNCHRONOUS_IO_ALERT, NULL, 0 );
 879     if (status)
 880     {
 881         ret = 0;
 882         SetLastError( RtlNtStatusToDosError(status) );
 883     }
 884     RtlFreeUnicodeString( &nameW );
 885     return ret;
 886 }
 887
 888
 889 /***********************************************************************
 890  *           INT21_OpenMagicDevice
 891  *
 892  * Open a file handle for "magic" devices like EMMXXXX0.
 893  */
 894 static HANDLE INT21_OpenMagicDevice( LPCWSTR name, DWORD access )
 895 {
 896     unsigned int i;
 897     const WCHAR *p;
 898     HANDLE handle;
 899
 900     if (name[0] && (name[1] == ':')) name += 2;
 901     if ((p = strrchrW( name, '/' ))) name = p + 1;
 902     if ((p = strrchrW( name, '\\' ))) name = p + 1;
 903
 904     for (i = 0; i < NB_MAGIC_DEVICES; i++)
 905     {
 906         int len = strlenW( magic_devices[i].name );
 907         if (!strncmpiW( magic_devices[i].name, name, len ) &&
 908             (!name[len] || name[len] == '.' || name[len] == ':')) break;
 909     }
 910     if (i == NB_MAGIC_DEVICES) return 0;
 911
 912     if (!magic_devices[i].handle) /* need to open it */
 913     {
 914         int fd;
 915         struct stat st;
 916
 917         if (!(handle = INT21_CreateMagicDeviceHandle( magic_devices[i].name ))) return 0;
 918         wine_server_handle_to_fd( handle, 0, &fd, NULL );
 919         fstat( fd, &st );
 920         wine_server_release_fd( handle, fd );
 921         magic_devices[i].dev = st.st_dev;
 922         magic_devices[i].ino = st.st_ino;
 923         magic_devices[i].handle = handle;
 924     }
 925     if (!DuplicateHandle( GetCurrentProcess(), magic_devices[i].handle,
 926                           GetCurrentProcess(), &handle, access, FALSE, 0 )) handle = 0;
 927     return handle;
 928 }
 929
 930
 931 /***********************************************************************
 932  *           INT21_CreateFile
 933  *
 934  * Handler for:
 935  * - function 0x3c
 936  * - function 0x3d
 937  * - function 0x5b
 938  * - function 0x6c
 939  * - subfunction 0x6c of function 0x71
 940  */
 941 static BOOL INT21_CreateFile( CONTEXT86 *context,
 942                               DWORD      pathSegOff,
 943                               BOOL       returnStatus,
 944                               WORD       dosAccessShare,
 945                               BYTE       dosAction )
 946 {
 947     WORD   dosStatus;
 948     char  *pathA = CTX_SEG_OFF_TO_LIN(context, context->SegDs, pathSegOff);
 949     WCHAR  pathW[MAX_PATH];
 950     DWORD  winAccess;
 951     DWORD  winAttributes;
 952     HANDLE winHandle;
 953     DWORD  winMode;
 954     DWORD  winSharing;
 955
 956     TRACE( "CreateFile called: function=%02x, action=%02x, access/share=%04x, "
 957            "create flags=%04x, file=%s.\n",
 958            AH_reg(context), dosAction, dosAccessShare, CX_reg(context), pathA );
 959
 960     /*
 961      * Application tried to create/open a file whose name
 962      * ends with a backslash. This is not allowed.
 963      *
 964      * FIXME: This needs to be validated, especially the return value.
 965      */
 966     if (pathA[strlen(pathA) - 1] == '/')
 967     {
 968         SetLastError( ERROR_FILE_NOT_FOUND );
 969         return FALSE;
 970     }
 971
 972     /*
 973      * Convert DOS action flags into Win32 creation disposition parameter.
 974      */
 975     switch(dosAction)
 976     {
 977     case 0x01:
 978         winMode = OPEN_EXISTING;
 979         break;
 980     case 0x02:
 981         winMode = TRUNCATE_EXISTING;
 982         break;
 983     case 0x10:
 984         winMode = CREATE_NEW;
 985         break;
 986     case 0x11:
 987         winMode = OPEN_ALWAYS;
 988         break;
 989     case 0x12:
 990         winMode = CREATE_ALWAYS;
 991         break;
 992     default:
 993         SetLastError( ERROR_INVALID_PARAMETER );
 994         return FALSE;
 995     }
 996
 997     /*
 998      * Convert DOS access/share flags into Win32 desired access parameter.
 999      */
1000     switch(dosAccessShare & 0x07)
1001     {
1002     case OF_READ:
1003         winAccess = GENERIC_READ;
1004         break;
1005     case OF_WRITE:
1006         winAccess = GENERIC_WRITE;
1007         break;
1008     case OF_READWRITE:
1009         winAccess = GENERIC_READ | GENERIC_WRITE;
1010         break;
1011     case 0x04:
1012         /*
1013          * Read-only, do not modify file's last-access time (DOS7).
1014          *
1015          * FIXME: How to prevent modification of last-access time?
1016          */
1017         winAccess = GENERIC_READ;
1018         break;
1019     default:
1020         winAccess = 0;
1021     }
1022
1023     /*
1024      * Convert DOS access/share flags into Win32 share mode parameter.
1025      */
1026     switch(dosAccessShare & 0x70)
1027     {
1028     case OF_SHARE_EXCLUSIVE:
1029         winSharing = 0;
1030         break;
1031     case OF_SHARE_DENY_WRITE:
1032         winSharing = FILE_SHARE_READ;
1033         break;
1034     case OF_SHARE_DENY_READ:
1035         winSharing = FILE_SHARE_WRITE;
1036         break;
1037     case OF_SHARE_DENY_NONE:
1038     case OF_SHARE_COMPAT:
1039     default:
1040         winSharing = FILE_SHARE_READ | FILE_SHARE_WRITE;
1041     }
1042
1043     /*
1044      * FIXME: Bit (dosAccessShare & 0x80) represents inheritance.
1045      *        What to do with this bit?
1046      * FIXME: Bits in the high byte of dosAccessShare are not supported.
1047      *        See both function 0x6c and subfunction 0x6c of function 0x71 for
1048      *        definition of these bits.
1049      */
1050
1051     /*
1052      * Convert DOS create attributes into Win32 flags and attributes parameter.
1053      */
1054     if (winMode == OPEN_EXISTING || winMode == TRUNCATE_EXISTING)
1055     {
1056         winAttributes = 0;
1057     }
1058     else
1059     {
1060         WORD dosAttributes = CX_reg(context);
1061
1062         if (dosAttributes & FA_LABEL)
1063         {
1064             /*
1065              * Application tried to create volume label entry.
1066              * This is difficult to support so we do not allow it.
1067              *
1068              * FIXME: If volume does not already have a label,
1069              *        this function is supposed to succeed.
1070              */
1071             SetLastError( ERROR_ACCESS_DENIED );
1072             return TRUE;
1073         }
1074
1075         winAttributes = dosAttributes &
1076             (FILE_ATTRIBUTE_READONLY | FILE_ATTRIBUTE_HIDDEN |
1077              FILE_ATTRIBUTE_SYSTEM | FILE_ATTRIBUTE_ARCHIVE);
1078     }
1079
1080     /*
1081      * Open the file.
1082      */
1083     MultiByteToWideChar(CP_OEMCP, 0, pathA, -1, pathW, MAX_PATH);
1084
1085     if ((winHandle = INT21_OpenMagicDevice( pathW, winAccess )))
1086     {
1087         dosStatus = 1;
1088     }
1089     else
1090     {
1091         winHandle = CreateFileW( pathW, winAccess, winSharing, NULL,
1092                                  winMode, winAttributes, 0 );
1093         /* DOS allows to open files on a CDROM R/W */
1094         if( winHandle == INVALID_HANDLE_VALUE &&
1095                 GetLastError()== ERROR_WRITE_PROTECT) {
1096             winHandle = CreateFileW( pathW, winAccess & ~GENERIC_WRITE,
1097                     winSharing, NULL, winMode, winAttributes, 0 );
1098         }
1099
1100         if (winHandle == INVALID_HANDLE_VALUE)
1101             return FALSE;
1102
1103         /*
1104          * Determine DOS file status.
1105          *
1106          * 1 = file opened
1107          * 2 = file created
1108          * 3 = file replaced
1109          */
1110         switch(winMode)
1111         {
1112         case OPEN_EXISTING:
1113             dosStatus = 1;
1114             break;
1115         case TRUNCATE_EXISTING:
1116             dosStatus = 3;
1117             break;
1118         case CREATE_NEW:
1119             dosStatus = 2;
1120             break;
1121         case OPEN_ALWAYS:
1122             dosStatus = (GetLastError() == ERROR_ALREADY_EXISTS) ? 1 : 2;
1123             break;
1124         case CREATE_ALWAYS:
1125             dosStatus = (GetLastError() == ERROR_ALREADY_EXISTS) ? 3 : 2;
1126             break;
1127         default:
1128             dosStatus = 0;
1129         }
1130     }
1131
1132     /*
1133      * Return DOS file handle and DOS status.
1134      */
1135     SET_AX( context, Win32HandleToDosFileHandle(winHandle) );
1136
1137     if (returnStatus)
1138         SET_CX( context, dosStatus );
1139
1140     TRACE( "CreateFile finished: handle=%d, status=%d.\n",
1141            AX_reg(context), dosStatus );
1142
1143     return TRUE;
1144 }
1145
1146
1147 /***********************************************************************
1148  *           INT21_BufferedInput
1149  *
1150  * Handler for function 0x0a and reading from console using
1151  * function 0x3f.
1152  *
1153  * Reads a string of characters from standard input until
1154  * enter key is pressed. Returns either number of characters
1155  * read from console including terminating CR or
1156  * zero if capacity was zero.
1157  */
1158 static WORD INT21_BufferedInput( CONTEXT86 *context, BYTE *ptr, WORD capacity )
1159 {
1160     BYTE length = 0;
1161
1162     /*
1163      * Return immediately if capacity is zero.
1164      */
1165     if (capacity == 0)
1166         return 0;
1167
1168     while(TRUE)
1169     {
1170         BYTE ascii;
1171         BYTE scan;
1172
1173         DOSVM_Int16ReadChar( &ascii, &scan, context );
1174
1175         if (ascii == '\r' || ascii == '\n')
1176         {
1177             ptr[length] = '\r';
1178             return length + 1;
1179         }
1180
1181         /*
1182          * DOS handles only backspace and KEY_LEFT
1183          *        perhaps we should do more
1184          */
1185         if (ascii == '\b' || scan == KEY_LEFT)
1186         {
1187             if (length==0) continue;
1188             DOSVM_PutChar( '\b' );
1189             length--;
1190             continue;
1191         }
1192
1193         /*
1194          * If the buffer becomes filled to within one byte of
1195          * capacity, DOS rejects all further characters up to,
1196          * but not including, the terminating carriage return.
1197          */
1198         if (ascii != 0 && length < capacity-1)
1199         {
1200             DOSVM_PutChar( ascii );
1201             ptr[length] = ascii;
1202             length++;
1203         }
1204     }
1205 }
1206
1207
1208 /***********************************************************************
1209  *           INT21_GetCurrentDTA
1210  */
1211 static BYTE *INT21_GetCurrentDTA( CONTEXT86 *context )
1212 {
1213     TDB *pTask = GlobalLock16(GetCurrentTask());
1214
1215     /* FIXME: This assumes DTA was set correctly! */
1216     return (BYTE *)CTX_SEG_OFF_TO_LIN( context, SELECTOROF(pTask->dta),
1217                                                 (DWORD)OFFSETOF(pTask->dta) );
1218 }
1219
1220
1221 /***********************************************************************
1222  *           INT21_OpenFileUsingFCB
1223  *
1224  * Handler for function 0x0f.
1225  *
1226  * PARAMS
1227  *  DX:DX [I/O] File control block (FCB or XFCB) of unopened file
1228  *
1229  * RETURNS (in AL)
1230  *  0x00: successful
1231  *  0xff: failed
1232  *
1233  * NOTES
1234  *  Opens a FCB file for read/write in compatibility mode. Upon calling
1235  *  the FCB must have the drive_number, file_name, and file_extension
1236  *  fields filled and all other bytes cleared.
1237  */
1238 static void INT21_OpenFileUsingFCB( CONTEXT86 *context )
1239 {
1240     struct FCB *fcb;
1241     struct XFCB *xfcb;
1242     char file_path[16];
1243     char *pos;
1244     HANDLE handle;
1245     HFILE16 hfile16;
1246     BY_HANDLE_FILE_INFORMATION info;
1247     BYTE AL_result;
1248
1249     fcb = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
1250     if (fcb->drive_number == 0xff) {
1251         xfcb = (struct XFCB *) fcb;
1252         fcb = (struct FCB *) xfcb->fcb;
1253     } /* if */
1254
1255     AL_result = 0;
1256     file_path[0] = 'A' + INT21_MapDrive( fcb->drive_number );
1257
1258     if (AL_result == 0) {
1259         file_path[1] = ':';
1260         pos = &file_path[2];
1261         memcpy(pos, fcb->file_name, 8);
1262         pos[8] = ' ';
1263         pos[9] = '\0';
1264         pos = strchr(pos, ' ');
1265         *pos = '.';
1266         pos++;
1267         memcpy(pos, fcb->file_extension, 3);
1268         pos[3] = ' ';
1269         pos[4] = '\0';
1270         pos = strchr(pos, ' ');
1271         *pos = '\0';
1272
1273         handle = (HANDLE) _lopen(file_path, OF_READWRITE);
1274         if (handle == INVALID_HANDLE_VALUE) {
1275             TRACE("_lopen(\"%s\") failed: INVALID_HANDLE_VALUE\n", file_path);
1276             AL_result = 0xff; /* failed */
1277         } else {
1278             hfile16 = Win32HandleToDosFileHandle(handle);
1279             if (hfile16 == HFILE_ERROR16) {
1280                 TRACE("Win32HandleToDosFileHandle(%p) failed: HFILE_ERROR\n", handle);
1281                 CloseHandle(handle);
1282                 AL_result = 0xff; /* failed */
1283             } else if (hfile16 > 255) {
1284                 TRACE("hfile16 (=%d) larger than 255 for \"%s\"\n", hfile16, file_path);
1285                 _lclose16(hfile16);
1286                 AL_result = 0xff; /* failed */
1287             } else {
1288                 if (!GetFileInformationByHandle(handle, &info)) {
1289                     TRACE("GetFileInformationByHandle(%d, %p) for \"%s\" failed\n",
1290                           hfile16, handle, file_path);
1291                     _lclose16(hfile16);
1292                     AL_result = 0xff; /* failed */
1293                 } else {
1294                     fcb->drive_number = file_path[0] - 'A' + 1;
1295                     fcb->current_block_number = 0;
1296                     fcb->logical_record_size = 128;
1297                     fcb->file_size = info.nFileSizeLow;
1298                     FileTimeToDosDateTime(&info.ftLastWriteTime,
1299                         &fcb->date_of_last_write, &fcb->time_of_last_write);
1300                     fcb->file_number = hfile16;
1301                     fcb->attributes = 0xc2;
1302                     fcb->starting_cluster = 0; /* don't know correct init value */
1303                     fcb->sequence_number = 0; /* don't know correct init value */
1304                     fcb->file_attributes = info.dwFileAttributes;
1305                     /* The following fields are not initialized */
1306                     /* by the native function: */
1307                     /* unused */
1308                     /* record_within_current_block */
1309                     /* random_access_record_number */
1310
1311                     TRACE("successful opened file \"%s\" as %d (handle %p)\n",
1312                           file_path, hfile16, handle);
1313                     AL_result = 0x00; /* successful */
1314                 } /* if */
1315             } /* if */
1316         } /* if */
1317     } /* if */
1318     SET_AL(context, AL_result);
1319 }
1320
1321
1322 /***********************************************************************
1323  *           INT21_CloseFileUsingFCB
1324  *
1325  * Handler for function 0x10.
1326  *
1327  * PARAMS
1328  *  DX:DX [I/O] File control block (FCB or XFCB) of open file
1329  *
1330  * RETURNS (in AL)
1331  *  0x00: successful
1332  *  0xff: failed
1333  *
1334  * NOTES
1335  *  Closes a FCB file.
1336  */
1337 static void INT21_CloseFileUsingFCB( CONTEXT86 *context )
1338 {
1339     struct FCB *fcb;
1340     struct XFCB *xfcb;
1341     BYTE AL_result;
1342
1343     fcb = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
1344     if (fcb->drive_number == 0xff) {
1345         xfcb = (struct XFCB *) fcb;
1346         fcb = (struct FCB *) xfcb->fcb;
1347     } /* if */
1348
1349     if (_lclose16((HFILE16) fcb->file_number) != 0) {
1350         TRACE("_lclose16(%d) failed\n", fcb->file_number);
1351         AL_result = 0xff; /* failed */
1352     } else {
1353         TRACE("successful closed file %d\n", fcb->file_number);
1354         AL_result = 0x00; /* successful */
1355     } /* if */
1356     SET_AL(context, AL_result);
1357 }
1358
1359
1360 /***********************************************************************
1361  *           INT21_SequentialReadFromFCB
1362  *
1363  * Handler for function 0x14.
1364  *
1365  * PARAMS
1366  *  DX:DX [I/O] File control block (FCB or XFCB) of open file
1367  *
1368  * RETURNS (in AL)
1369  *  0: successful
1370  *  1: end of file, no data read
1371  *  2: segment wrap in DTA, no data read (not returned now)
1372  *  3: end of file, partial record read
1373  *
1374  * NOTES
1375  *  Reads a record with the size FCB->logical_record_size from the FCB
1376  *  to the disk transfer area. The position of the record is specified
1377  *  with FCB->current_block_number and FCB->record_within_current_block.
1378  *  Then FCB->current_block_number and FCB->record_within_current_block
1379  *  are updated to point to the next record. If a partial record is
1380  *  read, it is filled with zeros up to the FCB->logical_record_size.
1381  */
1382 static void INT21_SequentialReadFromFCB( CONTEXT86 *context )
1383 {
1384     struct FCB *fcb;
1385     struct XFCB *xfcb;
1386     HANDLE handle;
1387     DWORD record_number;
1388     long position;
1389     BYTE *disk_transfer_area;
1390     UINT bytes_read;
1391     BYTE AL_result;
1392
1393     fcb = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
1394     if (fcb->drive_number == 0xff) {
1395         xfcb = (struct XFCB *) fcb;
1396         fcb = (struct FCB *) xfcb->fcb;
1397     } /* if */
1398
1399     handle = DosFileHandleToWin32Handle((HFILE16) fcb->file_number);
1400     if (handle == INVALID_HANDLE_VALUE) {
1401         TRACE("DosFileHandleToWin32Handle(%d) failed: INVALID_HANDLE_VALUE\n",
1402             fcb->file_number);
1403         AL_result = 0x01; /* end of file, no data read */
1404     } else {
1405         record_number = 128 * fcb->current_block_number + fcb->record_within_current_block;
1406         position = SetFilePointer(handle, record_number * fcb->logical_record_size, NULL, 0);
1407         if (position != record_number * fcb->logical_record_size) {
1408             TRACE("seek(%d, %ld, 0) failed with %ld\n",
1409                   fcb->file_number, record_number * fcb->logical_record_size, position);
1410             AL_result = 0x01; /* end of file, no data read */
1411         } else {
1412             disk_transfer_area = INT21_GetCurrentDTA(context);
1413             bytes_read = _lread((HFILE) handle, disk_transfer_area, fcb->logical_record_size);
1414             if (bytes_read != fcb->logical_record_size) {
1415                 TRACE("_lread(%d, %p, %d) failed with %d\n",
1416                       fcb->file_number, disk_transfer_area, fcb->logical_record_size, bytes_read);
1417                 if (bytes_read == 0) {
1418                     AL_result = 0x01; /* end of file, no data read */
1419                 } else {
1420                     memset(&disk_transfer_area[bytes_read], 0, fcb->logical_record_size - bytes_read);
1421                     AL_result = 0x03; /* end of file, partial record read */
1422                 } /* if */
1423             } else {
1424                 TRACE("successful read %d bytes from record %ld (position %ld) of file %d (handle %p)\n",
1425                     bytes_read, record_number, position, fcb->file_number, handle);
1426                 AL_result = 0x00; /* successful */
1427             } /* if */
1428         } /* if */
1429     } /* if */
1430     if (AL_result == 0x00 || AL_result == 0x03) {
1431         if (fcb->record_within_current_block == 127) {
1432             fcb->record_within_current_block = 0;
1433             fcb->current_block_number++;
1434         } else {
1435             fcb->record_within_current_block++;
1436         } /* if */
1437     } /* if */
1438     SET_AL(context, AL_result);
1439 }
1440
1441
1442 /***********************************************************************
1443  *           INT21_SequentialWriteToFCB
1444  *
1445  * Handler for function 0x15.
1446  *
1447  * PARAMS
1448  *  DX:DX [I/O] File control block (FCB or XFCB) of open file
1449  *
1450  * RETURNS (in AL)
1451  *  0: successful
1452  *  1: disk full
1453  *  2: segment wrap in DTA (not returned now)
1454  *
1455  * NOTES
1456  *  Writes a record with the size FCB->logical_record_size from the disk
1457  *  transfer area to the FCB. The position of the record is specified
1458  *  with FCB->current_block_number and FCB->record_within_current_block.
1459  *  Then FCB->current_block_number and FCB->record_within_current_block
1460  *  are updated to point to the next record.
1461  */
1462 static void INT21_SequentialWriteToFCB( CONTEXT86 *context )
1463 {
1464     struct FCB *fcb;
1465     struct XFCB *xfcb;
1466     HANDLE handle;
1467     DWORD record_number;
1468     long position;
1469     BYTE *disk_transfer_area;
1470     UINT bytes_written;
1471     BYTE AL_result;
1472
1473     fcb = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
1474     if (fcb->drive_number == 0xff) {
1475         xfcb = (struct XFCB *) fcb;
1476         fcb = (struct FCB *) xfcb->fcb;
1477     } /* if */
1478
1479     handle = DosFileHandleToWin32Handle((HFILE16) fcb->file_number);
1480     if (handle == INVALID_HANDLE_VALUE) {
1481         TRACE("DosFileHandleToWin32Handle(%d) failed: INVALID_HANDLE_VALUE\n",
1482             fcb->file_number);
1483         AL_result = 0x01; /* disk full */
1484     } else {
1485         record_number = 128 * fcb->current_block_number + fcb->record_within_current_block;
1486         position = SetFilePointer(handle, record_number * fcb->logical_record_size, NULL, 0);
1487         if (position != record_number * fcb->logical_record_size) {
1488             TRACE("seek(%d, %ld, 0) failed with %ld\n",
1489                   fcb->file_number, record_number * fcb->logical_record_size, position);
1490             AL_result = 0x01; /* disk full */
1491         } else {
1492             disk_transfer_area = INT21_GetCurrentDTA(context);
1493             bytes_written = _lwrite((HFILE) handle, (LPCSTR)disk_transfer_area, fcb->logical_record_size);
1494             if (bytes_written != fcb->logical_record_size) {
1495                 TRACE("_lwrite(%d, %p, %d) failed with %d\n",
1496                       fcb->file_number, disk_transfer_area, fcb->logical_record_size, bytes_written);
1497                 AL_result = 0x01; /* disk full */
1498             } else {
1499                 TRACE("successful written %d bytes from record %ld (position %ld) of file %d (handle %p)\n",
1500                     bytes_written, record_number, position, fcb->file_number, handle);
1501                 AL_result = 0x00; /* successful */
1502             } /* if */
1503         } /* if */
1504     } /* if */
1505     if (AL_result == 0x00) {
1506         if (fcb->record_within_current_block == 127) {
1507             fcb->record_within_current_block = 0;
1508             fcb->current_block_number++;
1509         } else {
1510             fcb->record_within_current_block++;
1511         } /* if */
1512     } /* if */
1513     SET_AL(context, AL_result);
1514 }
1515
1516
1517 /***********************************************************************
1518  *           INT21_ReadRandomRecordFromFCB
1519  *
1520  * Handler for function 0x21.
1521  *
1522  * PARAMS
1523  *  DX:DX [I/O] File control block (FCB or XFCB) of open file
1524  *
1525  * RETURNS (in AL)
1526  *  0: successful
1527  *  1: end of file, no data read
1528  *  2: segment wrap in DTA, no data read (not returned now)
1529  *  3: end of file, partial record read
1530  *
1531  * NOTES
1532  *  Reads a record with the size FCB->logical_record_size from
1533  *  the FCB to the disk transfer area. The position of the record
1534  *  is specified with FCB->random_access_record_number. The
1535  *  FCB->random_access_record_number is not updated. If a partial record
1536  *  is read, it is filled with zeros up to the FCB->logical_record_size.
1537  */
1538 static void INT21_ReadRandomRecordFromFCB( CONTEXT86 *context )
1539 {
1540     struct FCB *fcb;
1541     struct XFCB *xfcb;
1542     HANDLE handle;
1543     DWORD record_number;
1544     long position;
1545     BYTE *disk_transfer_area;
1546     UINT bytes_read;
1547     BYTE AL_result;
1548
1549     fcb = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
1550     if (fcb->drive_number == 0xff) {
1551         xfcb = (struct XFCB *) fcb;
1552         fcb = (struct FCB *) xfcb->fcb;
1553     } /* if */
1554
1555     memcpy(&record_number, fcb->random_access_record_number, 4);
1556     handle = DosFileHandleToWin32Handle((HFILE16) fcb->file_number);
1557     if (handle == INVALID_HANDLE_VALUE) {
1558         TRACE("DosFileHandleToWin32Handle(%d) failed: INVALID_HANDLE_VALUE\n",
1559             fcb->file_number);
1560         AL_result = 0x01; /* end of file, no data read */
1561     } else {
1562         position = SetFilePointer(handle, record_number * fcb->logical_record_size, NULL, 0);
1563         if (position != record_number * fcb->logical_record_size) {
1564             TRACE("seek(%d, %ld, 0) failed with %ld\n",
1565                   fcb->file_number, record_number * fcb->logical_record_size, position);
1566             AL_result = 0x01; /* end of file, no data read */
1567         } else {
1568             disk_transfer_area = INT21_GetCurrentDTA(context);
1569             bytes_read = _lread((HFILE) handle, disk_transfer_area, fcb->logical_record_size);
1570             if (bytes_read != fcb->logical_record_size) {
1571                 TRACE("_lread(%d, %p, %d) failed with %d\n",
1572                       fcb->file_number, disk_transfer_area, fcb->logical_record_size, bytes_read);
1573                 if (bytes_read == 0) {
1574                     AL_result = 0x01; /* end of file, no data read */
1575                 } else {
1576                     memset(&disk_transfer_area[bytes_read], 0, fcb->logical_record_size - bytes_read);
1577                     AL_result = 0x03; /* end of file, partial record read */
1578                 } /* if */
1579             } else {
1580                 TRACE("successful read %d bytes from record %ld (position %ld) of file %d (handle %p)\n",
1581                     bytes_read, record_number, position, fcb->file_number, handle);
1582                 AL_result = 0x00; /* successful */
1583             } /* if */
1584         } /* if */
1585     } /* if */
1586     fcb->current_block_number = record_number / 128;
1587     fcb->record_within_current_block = record_number % 128;
1588     SET_AL(context, AL_result);
1589 }
1590
1591
1592 /***********************************************************************
1593  *           INT21_WriteRandomRecordToFCB
1594  *
1595  * Handler for function 0x22.
1596  *
1597  * PARAMS
1598  *  DX:DX [I/O] File control block (FCB or XFCB) of open file
1599  *
1600  * RETURNS (in AL)
1601  *  0: successful
1602  *  1: disk full
1603  *  2: segment wrap in DTA (not returned now)
1604  *
1605  * NOTES
1606  *  Writes a record with the size FCB->logical_record_size from
1607  *  the disk transfer area to the FCB. The position of the record
1608  *  is specified with FCB->random_access_record_number. The
1609  *  FCB->random_access_record_number is not updated.
1610  */
1611 static void INT21_WriteRandomRecordToFCB( CONTEXT86 *context )
1612 {
1613     struct FCB *fcb;
1614     struct XFCB *xfcb;
1615     HANDLE handle;
1616     DWORD record_number;
1617     long position;
1618     BYTE *disk_transfer_area;
1619     UINT bytes_written;
1620     BYTE AL_result;
1621
1622     fcb = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
1623     if (fcb->drive_number == 0xff) {
1624         xfcb = (struct XFCB *) fcb;
1625         fcb = (struct FCB *) xfcb->fcb;
1626     } /* if */
1627
1628     memcpy(&record_number, fcb->random_access_record_number, 4);
1629     handle = DosFileHandleToWin32Handle((HFILE16) fcb->file_number);
1630     if (handle == INVALID_HANDLE_VALUE) {
1631         TRACE("DosFileHandleToWin32Handle(%d) failed: INVALID_HANDLE_VALUE\n",
1632             fcb->file_number);
1633         AL_result = 0x01; /* disk full */
1634     } else {
1635         position = SetFilePointer(handle, record_number * fcb->logical_record_size, NULL, 0);
1636         if (position != record_number * fcb->logical_record_size) {
1637             TRACE("seek(%d, %ld, 0) failed with %ld\n",
1638                   fcb->file_number, record_number * fcb->logical_record_size, position);
1639             AL_result = 0x01; /* disk full */
1640         } else {
1641             disk_transfer_area = INT21_GetCurrentDTA(context);
1642             bytes_written = _lwrite((HFILE) handle, (LPCSTR)disk_transfer_area, fcb->logical_record_size);
1643             if (bytes_written != fcb->logical_record_size) {
1644                 TRACE("_lwrite(%d, %p, %d) failed with %d\n",
1645                       fcb->file_number, disk_transfer_area, fcb->logical_record_size, bytes_written);
1646                 AL_result = 0x01; /* disk full */
1647             } else {
1648                 TRACE("successful written %d bytes from record %ld (position %ld) of file %d (handle %p)\n",
1649                     bytes_written, record_number, position, fcb->file_number, handle);
1650                 AL_result = 0x00; /* successful */
1651             } /* if */
1652         } /* if */
1653     } /* if */
1654     fcb->current_block_number = record_number / 128;
1655     fcb->record_within_current_block = record_number % 128;
1656     SET_AL(context, AL_result);
1657 }
1658
1659
1660 /***********************************************************************
1661  *           INT21_RandomBlockReadFromFCB
1662  *
1663  * Handler for function 0x27.
1664  *
1665  * PARAMS
1666  *  CX    [I/O] Number of records to read
1667  *  DX:DX [I/O] File control block (FCB or XFCB) of open file
1668  *
1669  * RETURNS (in AL)
1670  *  0: successful
1671  *  1: end of file, no data read
1672  *  2: segment wrap in DTA, no data read (not returned now)
1673  *  3: end of file, partial record read
1674  *
1675  * NOTES
1676  *  Reads several records with the size FCB->logical_record_size from
1677  *  the FCB to the disk transfer area. The number of records to be
1678  *  read is specified in the CX register. The position of the first
1679  *  record is specified with FCB->random_access_record_number. The
1680  *  FCB->random_access_record_number, the FCB->current_block_number
1681  *  and FCB->record_within_current_block are updated to point to the
1682  *  next record after the records read. If a partial record is read,
1683  *  it is filled with zeros up to the FCB->logical_record_size. The
1684  *  CX register is set to the number of successfully read records.
1685  */
1686 static void INT21_RandomBlockReadFromFCB( CONTEXT86 *context )
1687 {
1688     struct FCB *fcb;
1689     struct XFCB *xfcb;
1690     HANDLE handle;
1691     DWORD record_number;
1692     long position;
1693     BYTE *disk_transfer_area;
1694     UINT records_requested;
1695     UINT bytes_requested;
1696     UINT bytes_read;
1697     UINT records_read;
1698     BYTE AL_result;
1699
1700     fcb = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
1701     if (fcb->drive_number == 0xff) {
1702         xfcb = (struct XFCB *) fcb;
1703         fcb = (struct FCB *) xfcb->fcb;
1704     } /* if */
1705
1706     memcpy(&record_number, fcb->random_access_record_number, 4);
1707     handle = DosFileHandleToWin32Handle((HFILE16) fcb->file_number);
1708     if (handle == INVALID_HANDLE_VALUE) {
1709         TRACE("DosFileHandleToWin32Handle(%d) failed: INVALID_HANDLE_VALUE\n",
1710             fcb->file_number);
1711         records_read = 0;
1712         AL_result = 0x01; /* end of file, no data read */
1713     } else {
1714         position = SetFilePointer(handle, record_number * fcb->logical_record_size, NULL, 0);
1715         if (position != record_number * fcb->logical_record_size) {
1716             TRACE("seek(%d, %ld, 0) failed with %ld\n",
1717                   fcb->file_number, record_number * fcb->logical_record_size, position);
1718             records_read = 0;
1719             AL_result = 0x01; /* end of file, no data read */
1720         } else {
1721             disk_transfer_area = INT21_GetCurrentDTA(context);
1722             records_requested = CX_reg(context);
1723             bytes_requested = (UINT) records_requested * fcb->logical_record_size;
1724             bytes_read = _lread((HFILE) handle, disk_transfer_area, bytes_requested);
1725             if (bytes_read != bytes_requested) {
1726                 TRACE("_lread(%d, %p, %d) failed with %d\n",
1727                       fcb->file_number, disk_transfer_area, bytes_requested, bytes_read);
1728                 records_read = bytes_read / fcb->logical_record_size;
1729                 if (bytes_read % fcb->logical_record_size == 0) {
1730                     AL_result = 0x01; /* end of file, no data read */
1731                 } else {
1732                     records_read++;
1733                     memset(&disk_transfer_area[bytes_read], 0, records_read * fcb->logical_record_size - bytes_read);
1734                     AL_result = 0x03; /* end of file, partial record read */
1735                 } /* if */
1736             } else {
1737                 TRACE("successful read %d bytes from record %ld (position %ld) of file %d (handle %p)\n",
1738                     bytes_read, record_number, position, fcb->file_number, handle);
1739                 records_read = records_requested;
1740                 AL_result = 0x00; /* successful */
1741             } /* if */
1742         } /* if */
1743     } /* if */
1744     record_number += records_read;
1745     memcpy(fcb->random_access_record_number, &record_number, 4);
1746     fcb->current_block_number = record_number / 128;
1747     fcb->record_within_current_block = record_number % 128;
1748     SET_CX(context, records_read);
1749     SET_AL(context, AL_result);
1750 }
1751
1752
1753 /***********************************************************************
1754  *           INT21_RandomBlockWriteToFCB
1755  *
1756  * Handler for function 0x28.
1757  *
1758  * PARAMS
1759  *  CX    [I/O] Number of records to write
1760  *  DX:DX [I/O] File control block (FCB or XFCB) of open file
1761  *
1762  * RETURNS (in AL)
1763  *  0: successful
1764  *  1: disk full
1765  *  2: segment wrap in DTA (not returned now)
1766  *
1767  * NOTES
1768  *  Writes several records with the size FCB->logical_record_size from
1769  *  the disk transfer area to the FCB. The number of records to be
1770  *  written is specified in the CX register. The position of the first
1771  *  record is specified with FCB->random_access_record_number. The
1772  *  FCB->random_access_record_number, the FCB->current_block_number
1773  *  and FCB->record_within_current_block are updated to point to the
1774  *  next record after the records written. The CX register is set to
1775  *  the number of successfully written records.
1776  */
1777 static void INT21_RandomBlockWriteToFCB( CONTEXT86 *context )
1778 {
1779     struct FCB *fcb;
1780     struct XFCB *xfcb;
1781     HANDLE handle;
1782     DWORD record_number;
1783     long position;
1784     BYTE *disk_transfer_area;
1785     UINT records_requested;
1786     UINT bytes_requested;
1787     UINT bytes_written;
1788     UINT records_written;
1789     BYTE AL_result;
1790
1791     fcb = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
1792     if (fcb->drive_number == 0xff) {
1793         xfcb = (struct XFCB *) fcb;
1794         fcb = (struct FCB *) xfcb->fcb;
1795     } /* if */
1796
1797     memcpy(&record_number, fcb->random_access_record_number, 4);
1798     handle = DosFileHandleToWin32Handle((HFILE16) fcb->file_number);
1799     if (handle == INVALID_HANDLE_VALUE) {
1800         TRACE("DosFileHandleToWin32Handle(%d) failed: INVALID_HANDLE_VALUE\n",
1801             fcb->file_number);
1802         records_written = 0;
1803         AL_result = 0x01; /* disk full */
1804     } else {
1805         position = SetFilePointer(handle, record_number * fcb->logical_record_size, NULL, 0);
1806         if (position != record_number * fcb->logical_record_size) {
1807             TRACE("seek(%d, %ld, 0) failed with %ld\n",
1808                   fcb->file_number, record_number * fcb->logical_record_size, position);
1809             records_written = 0;
1810             AL_result = 0x01; /* disk full */
1811         } else {
1812             disk_transfer_area = INT21_GetCurrentDTA(context);
1813             records_requested = CX_reg(context);
1814             bytes_requested = (UINT) records_requested * fcb->logical_record_size;
1815             bytes_written = _lwrite((HFILE) handle, (LPCSTR)disk_transfer_area, bytes_requested);
1816             if (bytes_written != bytes_requested) {
1817                 TRACE("_lwrite(%d, %p, %d) failed with %d\n",
1818                       fcb->file_number, disk_transfer_area, bytes_requested, bytes_written);
1819                 records_written = bytes_written / fcb->logical_record_size;
1820                 AL_result = 0x01; /* disk full */
1821             } else {
1822                 TRACE("successful write %d bytes from record %ld (position %ld) of file %d (handle %p)\n",
1823                     bytes_written, record_number, position, fcb->file_number, handle);
1824                 records_written = records_requested;
1825                 AL_result = 0x00; /* successful */
1826             } /* if */
1827         } /* if */
1828     } /* if */
1829     record_number += records_written;
1830     memcpy(fcb->random_access_record_number, &record_number, 4);
1831     fcb->current_block_number = record_number / 128;
1832     fcb->record_within_current_block = record_number % 128;
1833     SET_CX(context, records_written);
1834     SET_AL(context, AL_result);
1835 }
1836
1837
1838 /***********************************************************************
1839  *           INT21_CreateDirectory
1840  *
1841  * Handler for:
1842  * - function 0x39
1843  * - subfunction 0x39 of function 0x71
1844  * - subfunction 0xff of function 0x43 (CL == 0x39)
1845  */
1846 static BOOL INT21_CreateDirectory( CONTEXT86 *context )
1847 {
1848     WCHAR dirW[MAX_PATH];
1849     char *dirA = CTX_SEG_OFF_TO_LIN(context,
1850                                     context->SegDs,
1851                                     context->Edx);
1852
1853     TRACE( "CREATE DIRECTORY %s\n", dirA );
1854
1855     MultiByteToWideChar(CP_OEMCP, 0, dirA, -1, dirW, MAX_PATH);
1856
1857     if (CreateDirectoryW(dirW, NULL))
1858         return TRUE;
1859
1860     /*
1861      * FIXME: CreateDirectory's LastErrors will clash with the ones
1862      *        used by DOS. AH=39 only returns 3 (path not found) and
1863      *        5 (access denied), while CreateDirectory return several
1864      *        ones. Remap some of them. -Marcus
1865      */
1866     switch (GetLastError())
1867     {
1868     case ERROR_ALREADY_EXISTS:
1869     case ERROR_FILENAME_EXCED_RANGE:
1870     case ERROR_DISK_FULL:
1871         SetLastError(ERROR_ACCESS_DENIED);
1872         break;
1873     default:
1874         break;
1875     }
1876
1877     return FALSE;
1878 }
1879
1880
1881 /***********************************************************************
1882  *           INT21_ExtendedCountryInformation
1883  *
1884  * Handler for function 0x65.
1885  */
1886 static void INT21_ExtendedCountryInformation( CONTEXT86 *context )
1887 {
1888     BYTE *dataptr = CTX_SEG_OFF_TO_LIN( context, context->SegEs, context->Edi );
1889     BYTE buffsize = CX_reg (context);
1890
1891     TRACE( "GET EXTENDED COUNTRY INFORMATION, subfunction %02x\n",
1892            AL_reg(context) );
1893
1894     /*
1895      * Check subfunctions that are passed country and code page.
1896      */
1897     if (AL_reg(context) >= 0x01 && AL_reg(context) <= 0x07)
1898     {
1899         WORD country = DX_reg(context);
1900         WORD codepage = BX_reg(context);
1901
1902         if (country != 0xffff && country != INT21_GetSystemCountryCode())
1903             FIXME( "Requested info on non-default country %04x\n", country );
1904
1905         if (codepage != 0xffff && codepage != GetOEMCP())
1906             FIXME( "Requested info on non-default code page %04x\n", codepage );
1907     }
1908
1909     switch (AL_reg(context)) {
1910     case 0x00: /* SET GENERAL INTERNATIONALIZATION INFO */
1911         INT_BARF( context, 0x21 );
1912         SET_CFLAG( context );
1913         break;
1914
1915     case 0x01: /* GET GENERAL INTERNATIONALIZATION INFO */
1916         TRACE( "Get general internationalization info\n" );
1917         dataptr[0] = 0x01; /* Info ID */
1918         *(WORD*)(dataptr+1) = 38; /* Size of the following info */
1919         *(WORD*)(dataptr+3) = INT21_GetSystemCountryCode(); /* Country ID */
1920         *(WORD*)(dataptr+5) = GetOEMCP(); /* Code page */
1921         /* FIXME: fill buffer partially up to buffsize bytes*/
1922         if (buffsize >= 0x29){
1923             INT21_FillCountryInformation( dataptr + 7 );
1924             SET_CX( context, 0x29 ); /* Size of returned info */
1925         }else{
1926             SET_CX( context, 0x07 ); /* Size of returned info */
1927         }
1928         break;
1929
1930     case 0x02: /* GET POINTER TO UPPERCASE TABLE */
1931     case 0x04: /* GET POINTER TO FILENAME UPPERCASE TABLE */
1932         TRACE( "Get pointer to uppercase table\n" );
1933         dataptr[0] = AL_reg(context); /* Info ID */
1934         *(DWORD*)(dataptr+1) = MAKESEGPTR( INT21_GetHeapSelector( context ),
1935                                            offsetof(INT21_HEAP, uppercase_size) );
1936         SET_CX( context, 5 ); /* Size of returned info */
1937         break;
1938
1939     case 0x03: /* GET POINTER TO LOWERCASE TABLE */
1940         TRACE( "Get pointer to lowercase table\n" );
1941         dataptr[0] = 0x03; /* Info ID */
1942         *(DWORD*)(dataptr+1) = MAKESEGPTR( INT21_GetHeapSelector( context ),
1943                                            offsetof(INT21_HEAP, lowercase_size) );
1944         SET_CX( context, 5 ); /* Size of returned info */
1945         break;
1946
1947     case 0x05: /* GET POINTER TO FILENAME TERMINATOR TABLE */
1948         TRACE("Get pointer to filename terminator table\n");
1949         dataptr[0] = 0x05; /* Info ID */
1950         *(DWORD*)(dataptr+1) = MAKESEGPTR( INT21_GetHeapSelector( context ),
1951                                            offsetof(INT21_HEAP, filename_size) );
1952         SET_CX( context, 5 ); /* Size of returned info */
1953         break;
1954
1955     case 0x06: /* GET POINTER TO COLLATING SEQUENCE TABLE */
1956         TRACE("Get pointer to collating sequence table\n");
1957         dataptr[0] = 0x06; /* Info ID */
1958         *(DWORD*)(dataptr+1) = MAKESEGPTR( INT21_GetHeapSelector( context ),
1959                                            offsetof(INT21_HEAP, collating_size) );
1960         SET_CX( context, 5 ); /* Size of returned info */
1961         break;
1962
1963     case 0x07: /* GET POINTER TO DBCS LEAD BYTE TABLE */
1964         TRACE("Get pointer to DBCS lead byte table\n");
1965         dataptr[0] = 0x07; /* Info ID */
1966         *(DWORD*)(dataptr+1) = MAKESEGPTR( INT21_GetHeapSelector( context ),
1967                                            offsetof(INT21_HEAP, dbcs_size) );
1968         SET_CX( context, 5 ); /* Size of returned info */
1969         break;
1970
1971     case 0x20: /* CAPITALIZE CHARACTER */
1972     case 0xa0: /* CAPITALIZE FILENAME CHARACTER */
1973         TRACE("Convert char to uppercase\n");
1974         SET_DL( context, toupper(DL_reg(context)) );
1975         break;
1976
1977     case 0x21: /* CAPITALIZE STRING */
1978     case 0xa1: /* CAPITALIZE COUNTED FILENAME STRING */
1979         TRACE("Convert string to uppercase with length\n");
1980         {
1981             char *ptr = (char *)CTX_SEG_OFF_TO_LIN( context,
1982                                                     context->SegDs,
1983                                                     context->Edx );
1984             WORD len = CX_reg(context);
1985             while (len--) { *ptr = toupper(*ptr); ptr++; }
1986         }
1987         break;
1988
1989     case 0x22: /* CAPITALIZE ASCIIZ STRING */
1990     case 0xa2: /* CAPITALIZE ASCIIZ FILENAME */
1991         TRACE("Convert ASCIIZ string to uppercase\n");
1992         {
1993             char *p = CTX_SEG_OFF_TO_LIN( context, context->SegDs, context->Edx );
1994             for ( ; *p; p++) *p = toupper(*p);
1995         }
1996         break;
1997
1998     case 0x23: /* DETERMINE IF CHARACTER REPRESENTS YES/NO RESPONSE */
1999         INT_BARF( context, 0x21 );
2000         SET_CFLAG( context );
2001         break;
2002
2003     default:
2004         INT_BARF( context, 0x21 );
2005         SET_CFLAG(context);
2006         break;
2007     }
2008 }
2009
2010
2011 /***********************************************************************
2012  *           INT21_FileAttributes
2013  *
2014  * Handler for:
2015  * - function 0x43
2016  * - subfunction 0x43 of function 0x71
2017  */
2018 static BOOL INT21_FileAttributes( CONTEXT86 *context,
2019                                   BYTE       subfunction,
2020                                   BOOL       islong )
2021 {
2022     WCHAR fileW[MAX_PATH];
2023     char *fileA = CTX_SEG_OFF_TO_LIN(context,
2024                                      context->SegDs,
2025                                      context->Edx);
2026     HANDLE   handle;
2027     BOOL     status;
2028     FILETIME filetime;
2029     DWORD    result;
2030     WORD     date, time;
2031
2032     switch (subfunction)
2033     {
2034     case 0x00: /* GET FILE ATTRIBUTES */
2035         TRACE( "GET FILE ATTRIBUTES for %s\n", fileA );
2036         MultiByteToWideChar(CP_OEMCP, 0, fileA, -1, fileW, MAX_PATH);
2037
2038         result = GetFileAttributesW( fileW );
2039         if (result == INVALID_FILE_ATTRIBUTES)
2040             return FALSE;
2041         else
2042         {
2043             SET_CX( context, (WORD)result );
2044             if (!islong)
2045                 SET_AX( context, (WORD)result ); /* DR DOS */
2046         }
2047         break;
2048
2049     case 0x01: /* SET FILE ATTRIBUTES */
2050         TRACE( "SET FILE ATTRIBUTES 0x%02x for %s\n",
2051                CX_reg(context), fileA );
2052         MultiByteToWideChar(CP_OEMCP, 0, fileA, -1, fileW, MAX_PATH);
2053
2054         if (!SetFileAttributesW( fileW, CX_reg(context) ))
2055             return FALSE;
2056         break;
2057
2058     case 0x02: /* GET COMPRESSED FILE SIZE */
2059         TRACE( "GET COMPRESSED FILE SIZE for %s\n", fileA );
2060         MultiByteToWideChar(CP_OEMCP, 0, fileA, -1, fileW, MAX_PATH);
2061
2062         result = GetCompressedFileSizeW( fileW, NULL );
2063         if (result == INVALID_FILE_SIZE)
2064             return FALSE;
2065         else
2066         {
2067             SET_AX( context, LOWORD(result) );
2068             SET_DX( context, HIWORD(result) );
2069         }
2070         break;
2071
2072     case 0x03: /* SET FILE LAST-WRITTEN DATE AND TIME */
2073         if (!islong)
2074             INT_BARF( context, 0x21 );
2075         else
2076         {
2077             TRACE( "SET FILE LAST-WRITTEN DATE AND TIME, file %s\n", fileA );
2078             MultiByteToWideChar(CP_OEMCP, 0, fileA, -1, fileW, MAX_PATH);
2079
2080             handle = CreateFileW( fileW, GENERIC_WRITE,
2081                                   FILE_SHARE_READ | FILE_SHARE_WRITE,
2082                                   NULL, OPEN_EXISTING, 0, 0 );
2083             if (handle == INVALID_HANDLE_VALUE)
2084                 return FALSE;
2085
2086             DosDateTimeToFileTime( DI_reg(context),
2087                                    CX_reg(context),
2088                                    &filetime );
2089             status = SetFileTime( handle, NULL, NULL, &filetime );
2090
2091             CloseHandle( handle );
2092             return status;
2093         }
2094         break;
2095
2096     case 0x04: /* GET FILE LAST-WRITTEN DATE AND TIME */
2097         if (!islong)
2098             INT_BARF( context, 0x21 );
2099         else
2100         {
2101             TRACE( "GET FILE LAST-WRITTEN DATE AND TIME, file %s\n", fileA );
2102             MultiByteToWideChar(CP_OEMCP, 0, fileA, -1, fileW, MAX_PATH);
2103
2104             handle = CreateFileW( fileW, GENERIC_READ,
2105                                   FILE_SHARE_READ | FILE_SHARE_WRITE,
2106                                   NULL, OPEN_EXISTING, 0, 0 );
2107             if (handle == INVALID_HANDLE_VALUE)
2108                 return FALSE;
2109
2110             status = GetFileTime( handle, NULL, NULL, &filetime );
2111             if (status)
2112             {
2113                 FileTimeToDosDateTime( &filetime, &date, &time );
2114                 SET_DI( context, date );
2115                 SET_CX( context, time );
2116             }
2117
2118             CloseHandle( handle );
2119             return status;
2120         }
2121         break;
2122
2123     case 0x05: /* SET FILE LAST ACCESS DATE */
2124         if (!islong)
2125             INT_BARF( context, 0x21 );
2126         else
2127         {
2128             TRACE( "SET FILE LAST ACCESS DATE, file %s\n", fileA );
2129             MultiByteToWideChar(CP_OEMCP, 0, fileA, -1, fileW, MAX_PATH);
2130
2131             handle = CreateFileW( fileW, GENERIC_WRITE,
2132                                   FILE_SHARE_READ | FILE_SHARE_WRITE,
2133                                   NULL, OPEN_EXISTING, 0, 0 );
2134             if (handle == INVALID_HANDLE_VALUE)
2135                 return FALSE;
2136
2137             DosDateTimeToFileTime( DI_reg(context),
2138                                    0,
2139                                    &filetime );
2140             status = SetFileTime( handle, NULL, &filetime, NULL );
2141
2142             CloseHandle( handle );
2143             return status;
2144         }
2145         break;
2146
2147     case 0x06: /* GET FILE LAST ACCESS DATE */
2148         if (!islong)
2149             INT_BARF( context, 0x21 );
2150         else
2151         {
2152             TRACE( "GET FILE LAST ACCESS DATE, file %s\n", fileA );
2153             MultiByteToWideChar(CP_OEMCP, 0, fileA, -1, fileW, MAX_PATH);
2154
2155             handle = CreateFileW( fileW, GENERIC_READ,
2156                                   FILE_SHARE_READ | FILE_SHARE_WRITE,
2157                                   NULL, OPEN_EXISTING, 0, 0 );
2158             if (handle == INVALID_HANDLE_VALUE)
2159                 return FALSE;
2160
2161             status = GetFileTime( handle, NULL, &filetime, NULL );
2162             if (status)
2163             {
2164                 FileTimeToDosDateTime( &filetime, &date, NULL );
2165                 SET_DI( context, date );
2166             }
2167
2168             CloseHandle( handle );
2169             return status;
2170         }
2171         break;
2172
2173     case 0x07: /* SET FILE CREATION DATE AND TIME */
2174         if (!islong)
2175             INT_BARF( context, 0x21 );
2176         else
2177         {
2178             TRACE( "SET FILE CREATION DATE AND TIME, file %s\n", fileA );
2179
2180             handle = CreateFileW( fileW, GENERIC_WRITE,
2181                                   FILE_SHARE_READ | FILE_SHARE_WRITE,
2182                                   NULL, OPEN_EXISTING, 0, 0 );
2183             if (handle == INVALID_HANDLE_VALUE)
2184                 return FALSE;
2185
2186             /*
2187              * FIXME: SI has number of 10-millisecond units past time in CX.
2188              */
2189             DosDateTimeToFileTime( DI_reg(context),
2190                                    CX_reg(context),
2191                                    &filetime );
2192             status = SetFileTime( handle, &filetime, NULL, NULL );
2193
2194             CloseHandle( handle );
2195             return status;
2196         }
2197         break;
2198
2199     case 0x08: /* GET FILE CREATION DATE AND TIME */
2200         if (!islong)
2201             INT_BARF( context, 0x21 );
2202         else
2203         {
2204             TRACE( "GET FILE CREATION DATE AND TIME, handle %d\n",
2205                    BX_reg(context) );
2206
2207             handle = CreateFileW( fileW, GENERIC_READ,
2208                                   FILE_SHARE_READ | FILE_SHARE_WRITE,
2209                                   NULL, OPEN_EXISTING, 0, 0 );
2210             if (handle == INVALID_HANDLE_VALUE)
2211                 return FALSE;
2212
2213             status = GetFileTime( handle, &filetime, NULL, NULL );
2214             if (status)
2215             {
2216                 FileTimeToDosDateTime( &filetime, &date, &time );
2217                 SET_DI( context, date );
2218                 SET_CX( context, time );
2219                 /*
2220                  * FIXME: SI has number of 10-millisecond units past
2221                  *        time in CX.
2222                  */
2223                 SET_SI( context, 0 );
2224             }
2225
2226             CloseHandle(handle);
2227             return status;
2228         }
2229         break;
2230
2231     case 0xff: /* EXTENDED-LENGTH FILENAME OPERATIONS */
2232         if (islong || context->Ebp != 0x5053)
2233             INT_BARF( context, 0x21 );
2234         else
2235         {
2236             switch(CL_reg(context))
2237             {
2238             case 0x39:
2239                 if (!INT21_CreateDirectory( context ))
2240                     return FALSE;
2241                 break;
2242
2243             case 0x56:
2244                 if (!INT21_RenameFile( context ))
2245                     return FALSE;
2246                 break;
2247
2248             default:
2249                 INT_BARF( context, 0x21 );
2250             }
2251         }
2252         break;
2253
2254     default:
2255         INT_BARF( context, 0x21 );
2256     }
2257
2258     return TRUE;
2259 }
2260
2261
2262 /***********************************************************************
2263  *           INT21_FileDateTime
2264  *
2265  * Handler for function 0x57.
2266  */
2267 static BOOL INT21_FileDateTime( CONTEXT86 *context )
2268 {
2269     HANDLE   handle = DosFileHandleToWin32Handle(BX_reg(context));
2270     FILETIME filetime;
2271     WORD     date, time;
2272
2273     switch (AL_reg(context)) {
2274     case 0x00:  /* Get last-written stamp */
2275         TRACE( "GET FILE LAST-WRITTEN DATE AND TIME, handle %d\n",
2276                BX_reg(context) );
2277         {
2278             if (!GetFileTime( handle, NULL, NULL, &filetime ))
2279                 return FALSE;
2280             FileTimeToDosDateTime( &filetime, &date, &time );
2281             SET_DX( context, date );
2282             SET_CX( context, time );
2283             break;
2284         }
2285
2286     case 0x01:  /* Set last-written stamp */
2287         TRACE( "SET FILE LAST-WRITTEN DATE AND TIME, handle %d\n",
2288                BX_reg(context) );
2289         {
2290             DosDateTimeToFileTime( DX_reg(context),
2291                                    CX_reg(context),
2292                                    &filetime );
2293             if (!SetFileTime( handle, NULL, NULL, &filetime ))
2294                 return FALSE;
2295             break;
2296         }
2297
2298     case 0x04:  /* Get last access stamp, DOS 7 */
2299         TRACE( "GET FILE LAST ACCESS DATE AND TIME, handle %d\n",
2300                BX_reg(context) );
2301         {
2302             if (!GetFileTime( handle, NULL, &filetime, NULL ))
2303                 return FALSE;
2304             FileTimeToDosDateTime( &filetime, &date, &time );
2305             SET_DX( context, date );
2306             SET_CX( context, time );
2307             break;
2308         }
2309
2310     case 0x05:  /* Set last access stamp, DOS 7 */
2311         TRACE( "SET FILE LAST ACCESS DATE AND TIME, handle %d\n",
2312                BX_reg(context) );
2313         {
2314             DosDateTimeToFileTime( DX_reg(context),
2315                                    CX_reg(context),
2316                                    &filetime );
2317             if (!SetFileTime( handle, NULL, &filetime, NULL ))
2318                 return FALSE;
2319             break;
2320         }
2321
2322     case 0x06:  /* Get creation stamp, DOS 7 */
2323         TRACE( "GET FILE CREATION DATE AND TIME, handle %d\n",
2324                BX_reg(context) );
2325         {
2326             if (!GetFileTime( handle, &filetime, NULL, NULL ))
2327                 return FALSE;
2328             FileTimeToDosDateTime( &filetime, &date, &time );
2329             SET_DX( context, date );
2330             SET_CX( context, time );
2331             /*
2332              * FIXME: SI has number of 10-millisecond units past time in CX.
2333              */
2334             SET_SI( context, 0 );
2335             break;
2336         }
2337
2338     case 0x07:  /* Set creation stamp, DOS 7 */
2339         TRACE( "SET FILE CREATION DATE AND TIME, handle %d\n",
2340                BX_reg(context) );
2341         {
2342             /*
2343              * FIXME: SI has number of 10-millisecond units past time in CX.
2344              */
2345             DosDateTimeToFileTime( DX_reg(context),
2346                                    CX_reg(context),
2347                                    &filetime );
2348             if (!SetFileTime( handle, &filetime, NULL, NULL ))
2349                 return FALSE;
2350             break;
2351         }
2352
2353     default:
2354         INT_BARF( context, 0x21 );
2355         break;
2356     }
2357
2358     return TRUE;
2359 }
2360
2361
2362 /***********************************************************************
2363  *           INT21_GetPSP
2364  *
2365  * Handler for functions 0x51 and 0x62.
2366  */
2367 static void INT21_GetPSP( CONTEXT86 *context )
2368 {
2369     TRACE( "GET CURRENT PSP ADDRESS (%02x)\n", AH_reg(context) );
2370
2371     /*
2372      * FIXME: should we return the original DOS PSP upon
2373      *        Windows startup ?
2374      */
2375     if (!ISV86(context) && DOSVM_IsWin16())
2376         SET_BX( context, LOWORD(GetCurrentPDB16()) );
2377     else
2378         SET_BX( context, DOSVM_psp );
2379 }
2380
2381 static inline void setword( BYTE *ptr, WORD w )
2382 {
2383     ptr[0] = (BYTE)w;
2384     ptr[1] = (BYTE)(w >> 8);
2385 }
2386
2387 static void CreateBPB(int drive, BYTE *data, BOOL16 limited)
2388 /* limited == TRUE is used with INT 0x21/0x440d */
2389 {
2390     /* FIXME: we're forcing some values without checking that those are valid */
2391     if (drive > 1)
2392     {
2393         setword(data, 512);
2394         data[2] = 2;
2395         setword(&data[3], 0);
2396         data[5] = 2;
2397         setword(&data[6], 240);
2398         setword(&data[8], 64000);
2399         data[0x0a] = 0xf8;
2400         setword(&data[0x0b], 40);
2401         setword(&data[0x0d], 56);
2402         setword(&data[0x0f], 2);
2403         setword(&data[0x11], 0);
2404         if (!limited)
2405         {
2406             setword(&data[0x1f], 800);
2407             data[0x21] = 5;
2408             setword(&data[0x22], 1);
2409         }
2410     }
2411     else
2412     { /* 1.44mb */
2413         setword(data, 512);
2414         data[2] = 2;
2415         setword(&data[3], 0);
2416         data[5] = 2;
2417         setword(&data[6], 240);
2418         setword(&data[8], 2880);
2419         data[0x0a] = 0xf8;
2420         setword(&data[0x0b], 6);
2421         setword(&data[0x0d], 18);
2422         setword(&data[0x0f], 2);
2423         setword(&data[0x11], 0);
2424         if (!limited)
2425         {
2426             setword(&data[0x1f], 80);
2427             data[0x21] = 7;
2428             setword(&data[0x22], 2);
2429         }
2430     }
2431 }
2432
2433 inline DWORD INT21_Ioctl_CylHeadSect2Lin(DWORD cyl, WORD head, WORD sec, WORD cyl_cnt, WORD head_cnt, WORD sec_cnt)
2434 {
2435     DWORD res = (cyl * head_cnt*sec_cnt + head * sec_cnt + sec);
2436     return res;
2437 }
2438
2439 /***********************************************************************
2440  *           INT21_Ioctl_Block
2441  *
2442  * Handler for block device IOCTLs.
2443  */
2444 static void INT21_Ioctl_Block( CONTEXT86 *context )
2445 {
2446     BYTE *dataptr;
2447     BYTE  drive = INT21_MapDrive( BL_reg(context) );
2448     WCHAR drivespec[4] = {'A', ':', '\\', 0};
2449     UINT  drivetype;
2450
2451     drivespec[0] += drive;
2452     drivetype = GetDriveTypeW( drivespec );
2453
2454     RESET_CFLAG(context);
2455     if (drivetype == DRIVE_UNKNOWN || drivetype == DRIVE_NO_ROOT_DIR)
2456     {
2457         TRACE( "IOCTL - SUBFUNCTION %d - INVALID DRIVE %c:\n",
2458                AL_reg(context), 'A' + drive );
2459         SetLastError( ERROR_INVALID_DRIVE );
2460         SET_AX( context, ERROR_INVALID_DRIVE );
2461         SET_CFLAG( context );
2462         return;
2463     }
2464
2465     switch (AL_reg(context))
2466     {
2467     case 0x04: /* READ FROM BLOCK DEVICE CONTROL CHANNEL */
2468     case 0x05: /* WRITE TO BLOCK DEVICE CONTROL CHANNEL */
2469         INT_BARF( context, 0x21 );
2470         break;
2471
2472     case 0x08: /* CHECK IF BLOCK DEVICE REMOVABLE */
2473         TRACE( "IOCTL - CHECK IF BLOCK DEVICE REMOVABLE - %c:\n",
2474                'A' + drive );
2475
2476         if (drivetype == DRIVE_REMOVABLE)
2477             SET_AX( context, 0 ); /* removable */
2478         else
2479             SET_AX( context, 1 ); /* not removable */
2480         break;
2481
2482     case 0x09: /* CHECK IF BLOCK DEVICE REMOTE */
2483         TRACE( "IOCTL - CHECK IF BLOCK DEVICE REMOTE - %c:\n",
2484                'A' + drive );
2485
2486         if (drivetype == DRIVE_REMOTE)
2487             SET_DX( context, (1<<9) | (1<<12) ); /* remote + no direct IO */
2488         else
2489             SET_DX( context, 0 ); /* FIXME: use driver attr here */
2490         break;
2491
2492     case 0x0d: /* GENERIC BLOCK DEVICE REQUEST */
2493         /* Get pointer to IOCTL parameter block */
2494         dataptr = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
2495
2496         switch (CX_reg(context))
2497         {
2498         case 0x0841: /* write logical device track */
2499             TRACE( "GENERIC IOCTL - Write logical device track - %c:\n",
2500                    'A' + drive);
2501             {
2502                 WORD head   = *(WORD *)(dataptr+1);
2503                 WORD cyl    = *(WORD *)(dataptr+3);
2504                 WORD sect   = *(WORD *)(dataptr+5);
2505                 WORD nrsect = *(WORD *)(dataptr+7);
2506                 BYTE *data  = CTX_SEG_OFF_TO_LIN(context, *(WORD *)(dataptr+11), *(WORD *)(dataptr+9));
2507                 WORD cyl_cnt, head_cnt, sec_cnt;
2508
2509                 /* FIXME: we're faking some values here */
2510                 if (drive > 1)
2511                 {
2512                     /* cyl_cnt = 0x300;
2513                     head_cnt = 16;
2514                     sec_cnt = 255; */
2515                     SET_AX( context, ERROR_WRITE_FAULT );
2516                     SET_CFLAG(context);
2517                     break;
2518                 }
2519                 else
2520                 { /* floppy */
2521                     cyl_cnt = 80;
2522                     head_cnt = 2;
2523                     sec_cnt = 18;
2524                 }
2525
2526                 if (!DOSVM_RawWrite(drive, INT21_Ioctl_CylHeadSect2Lin(cyl, head, sect, cyl_cnt, head_cnt, sec_cnt), nrsect, data, FALSE))
2527                 {
2528                     SET_AX( context, ERROR_WRITE_FAULT );
2529                     SET_CFLAG(context);
2530                 }
2531             }
2532             break;
2533
2534         case 0x084a: /* lock logical volume */
2535             TRACE( "GENERIC IOCTL - Lock logical volume, level %d mode %d - %c:\n",
2536                    BH_reg(context), DX_reg(context), 'A' + drive );
2537             break;
2538
2539         case 0x0860: /* get device parameters */
2540             /* FIXME: we're faking some values here */
2541             /* used by w4wgrp's winfile */
2542             memset(dataptr, 0, 0x20); /* DOS 6.22 uses 0x20 bytes */
2543             dataptr[0] = 0x04;
2544             dataptr[6] = 0; /* media type */
2545             if (drive > 1)
2546             {
2547                 dataptr[1] = 0x05; /* fixed disk */
2548                 setword(&dataptr[2], 0x01); /* non removable */
2549                 setword(&dataptr[4], 0x300); /* # of cylinders */
2550             }
2551             else
2552             {
2553                 dataptr[1] = 0x07; /* block dev, floppy */
2554                 setword(&dataptr[2], 0x02); /* removable */
2555                 setword(&dataptr[4], 80); /* # of cylinders */
2556             }
2557             CreateBPB(drive, &dataptr[7], TRUE);
2558             RESET_CFLAG(context);
2559             break;
2560
2561         case 0x0861: /* read logical device track */
2562             TRACE( "GENERIC IOCTL - Read logical device track - %c:\n",
2563                    'A' + drive);
2564             {
2565                 WORD head   = *(WORD *)(dataptr+1);
2566                 WORD cyl    = *(WORD *)(dataptr+3);
2567                 WORD sect   = *(WORD *)(dataptr+5);
2568                 WORD nrsect = *(WORD *)(dataptr+7);
2569                 BYTE *data  = CTX_SEG_OFF_TO_LIN(context, *(WORD *)(dataptr+11), *(WORD *)(dataptr+9));
2570                 WORD cyl_cnt, head_cnt, sec_cnt;
2571
2572                 /* FIXME: we're faking some values here */
2573                 if (drive > 1)
2574                 {
2575                     cyl_cnt = 0x300;
2576                     head_cnt = 16;
2577                     sec_cnt = 255;
2578                 }
2579                 else
2580                 { /* floppy */
2581                     cyl_cnt = 80;
2582                     head_cnt = 2;
2583                     sec_cnt = 18;
2584                 }
2585
2586                 if (!DOSVM_RawRead(drive, INT21_Ioctl_CylHeadSect2Lin(cyl, head, sect, cyl_cnt, head_cnt, sec_cnt), nrsect, data, FALSE))
2587                 {
2588                     SET_AX( context, ERROR_READ_FAULT );
2589                     SET_CFLAG(context);
2590                 }
2591             }
2592             break;
2593
2594         case 0x0866: /* get volume serial number */
2595             {
2596                 WCHAR   label[12],fsname[9];
2597                 DWORD   serial;
2598
2599                 drivespec[0] += drive;
2600                 GetVolumeInformationW(drivespec, label, 12, &serial, NULL, NULL, fsname, 9);
2601                 *(WORD*)dataptr = 0;
2602                 memcpy(dataptr+2,&serial,4);
2603                 WideCharToMultiByte(CP_OEMCP, 0, label, 11, (LPSTR)dataptr + 6, 11, NULL, NULL);
2604                 WideCharToMultiByte(CP_OEMCP, 0, fsname, 8, (LPSTR)dataptr + 17, 8, NULL, NULL);
2605             }
2606             break;
2607
2608         case 0x086a: /* unlock logical volume */
2609             TRACE( "GENERIC IOCTL - Logical volume unlocked - %c:\n",
2610                    'A' + drive );
2611             break;
2612
2613         case 0x086f: /* get drive map information */
2614             memset(dataptr+1, '\0', dataptr[0]-1);
2615             dataptr[1] = dataptr[0];
2616             dataptr[2] = 0x07; /* protected mode driver; no eject; no notification */
2617             dataptr[3] = 0xFF; /* no physical drive */
2618             break;
2619
2620         case 0x0872:
2621             /* Trial and error implementation */
2622             SET_AX( context, drivetype == DRIVE_UNKNOWN ? 0x0f : 0x01 );
2623             SET_CFLAG(context); /* Seems to be set all the time */
2624             break;
2625
2626         default:
2627             INT_BARF( context, 0x21 );
2628         }
2629         break;
2630
2631     case 0x0e: /* GET LOGICAL DRIVE MAP */
2632         TRACE( "IOCTL - GET LOGICAL DRIVE MAP - %c:\n",
2633                'A' + drive );
2634         /* FIXME: this is not correct if drive has mappings */
2635         SET_AL( context, 0 ); /* drive has no mapping */
2636         break;
2637
2638     case 0x0f: /* SET LOGICAL DRIVE MAP */
2639         TRACE("IOCTL - SET LOGICAL DRIVE MAP for drive %s\n",
2640               INT21_DriveName( BL_reg(context)));
2641         /* FIXME: as of today, we don't support logical drive mapping... */
2642         SET_AL( context, 0 );
2643         break;
2644
2645     case 0x11: /* QUERY GENERIC IOCTL CAPABILITY */
2646     default:
2647         INT_BARF( context, 0x21 );
2648     }
2649 }
2650
2651
2652 /***********************************************************************
2653  *           INT21_IoctlScsiMgrHandler
2654  *
2655  * IOCTL handler for the SCSIMGR device.
2656  */
2657 static void INT21_IoctlScsiMgrHandler( CONTEXT86 *context )
2658 {
2659     switch (AL_reg(context))
2660     {
2661     case 0x00: /* GET DEVICE INFORMATION */
2662         SET_DX( context, 0xc0c0 );
2663         break;
2664
2665     case 0x02: /* READ FROM CHARACTER DEVICE CONTROL CHANNEL */
2666         DOSVM_ASPIHandler(context);
2667         break;
2668
2669     case 0x0a: /* CHECK IF HANDLE IS REMOTE */
2670         SET_DX( context, 0 );
2671         break;
2672
2673     case 0x01: /* SET DEVICE INFORMATION */
2674     case 0x03: /* WRITE TO CHARACTER DEVICE CONTROL CHANNEL */
2675     case 0x06: /* GET INPUT STATUS */
2676     case 0x07: /* GET OUTPUT STATUS */
2677     case 0x0c: /* GENERIC CHARACTER DEVICE REQUEST */
2678     case 0x10: /* QUERY GENERIC IOCTL CAPABILITY */
2679     default:
2680         INT_BARF( context, 0x21 );
2681         break;
2682     }
2683 }
2684
2685
2686 /***********************************************************************
2687  *           INT21_IoctlEMSHandler
2688  *
2689  * IOCTL handler for the EMXXXX0 device.
2690  */
2691 static void INT21_IoctlEMSHandler( CONTEXT86 *context )
2692 {
2693     EMS_Ioctl_Handler(context);
2694 }
2695
2696
2697 /***********************************************************************
2698  *           INT21_IoctlHPScanHandler
2699  *
2700  * IOCTL handler for the HPSCAN device.
2701  */
2702 static void INT21_IoctlHPScanHandler( CONTEXT86 *context )
2703 {
2704     switch (AL_reg(context))
2705     {
2706     case 0x00: /* GET DEVICE INFORMATION */
2707         SET_DX( context, 0xc0c0 );
2708         break;
2709
2710     case 0x0a: /* CHECK IF HANDLE IS REMOTE */
2711         SET_DX( context, 0 );
2712         break;
2713
2714     case 0x01: /* SET DEVICE INFORMATION */
2715     case 0x02: /* READ FROM CHARACTER DEVICE CONTROL CHANNEL */
2716     case 0x03: /* WRITE TO CHARACTER DEVICE CONTROL CHANNEL */
2717     case 0x06: /* GET INPUT STATUS */
2718     case 0x07: /* GET OUTPUT STATUS */
2719     case 0x0c: /* GENERIC CHARACTER DEVICE REQUEST */
2720     case 0x10: /* QUERY GENERIC IOCTL CAPABILITY */
2721     default:
2722         INT_BARF( context, 0x21 );
2723         break;
2724     }
2725 }
2726
2727
2728 /***********************************************************************
2729  *           INT21_Ioctl_Char
2730  *
2731  * Handler for character device IOCTLs.
2732  */
2733 static void INT21_Ioctl_Char( CONTEXT86 *context )
2734 {
2735     struct stat st;
2736     int status, i, fd;
2737     int IsConsoleIOHandle = 0;
2738     HANDLE handle = DosFileHandleToWin32Handle(BX_reg(context));
2739
2740     status = wine_server_handle_to_fd( handle, 0, &fd, NULL );
2741     if (status)
2742     {
2743         if( VerifyConsoleIoHandle( handle))
2744             IsConsoleIOHandle = 1;
2745         else {
2746             SET_AX( context, RtlNtStatusToDosError(status) );
2747             SET_CFLAG( context );
2748             return;
2749         }
2750     } else {
2751         fstat( fd, &st );
2752         IsConsoleIOHandle = isatty( fd);
2753         wine_server_release_fd( handle, fd );
2754         for (i = 0; i < NB_MAGIC_DEVICES; i++)
2755         {
2756             if (!magic_devices[i].handle) continue;
2757             if (magic_devices[i].dev == st.st_dev &&
2758                     magic_devices[i].ino == st.st_ino)
2759             {
2760                 /* found it */
2761                 magic_devices[i].ioctl_handler( context );
2762                 return;
2763             }
2764         }
2765     }
2766
2767     /* no magic device found, do default handling */
2768
2769     switch (AL_reg(context))
2770     {
2771     case 0x00: /* GET DEVICE INFORMATION */
2772         TRACE( "IOCTL - GET DEVICE INFORMATION - %d\n", BX_reg(context) );
2773         if (IsConsoleIOHandle || S_ISCHR(st.st_mode))
2774         {
2775             /*
2776              * Returns attribute word in DX:
2777              *   Bit 14 - Device driver can process IOCTL requests.
2778              *   Bit 13 - Output until busy supported.
2779              *   Bit 11 - Driver supports OPEN/CLOSE calls.
2780              *   Bit  8 - Unknown.
2781              *   Bit  7 - Set (indicates device).
2782              *   Bit  6 - EOF on input.
2783              *   Bit  5 - Raw (binary) mode.
2784              *   Bit  4 - Device is special (uses int29).
2785              *   Bit  3 - Clock device.
2786              *   Bit  2 - NUL device.
2787              *   Bit  1 - Console output device.
2788              *   Bit  0 - Console input device.
2789              */
2790             SET_DX( context, IsConsoleIOHandle ? 0x80c3 : 0x80c0 /* FIXME */ );
2791         }
2792         else
2793         {
2794             /*
2795              * Returns attribute word in DX:
2796              *   Bit 15    - File is remote.
2797              *   Bit 14    - Don't set file date/time on closing.
2798              *   Bit 11    - Media not removable.
2799              *   Bit  8    - Generate int24 if no disk space on write
2800              *               or read past end of file
2801              *   Bit  7    - Clear (indicates file).
2802              *   Bit  6    - File has not been written.
2803              *   Bit  5..0 - Drive number (0=A:,...)
2804              *
2805              * FIXME: Should check if file is on remote or removable drive.
2806              * FIXME: Should use drive file is located on (and not current).
2807              */
2808             SET_DX( context, 0x0140 + INT21_GetCurrentDrive() );
2809         }
2810         break;
2811
2812     case 0x0a: /* CHECK IF HANDLE IS REMOTE */
2813         TRACE( "IOCTL - CHECK IF HANDLE IS REMOTE - %d\n", BX_reg(context) );
2814         /*
2815          * Returns attribute word in DX:
2816          *   Bit 15 - Set if remote.
2817          *   Bit 14 - Set if date/time not set on close.
2818          *
2819          * FIXME: Should check if file is on remote drive.
2820          */
2821         SET_DX( context, 0 );
2822         break;
2823
2824     case 0x01: /* SET DEVICE INFORMATION */
2825     case 0x02: /* READ FROM CHARACTER DEVICE CONTROL CHANNEL */
2826     case 0x03: /* WRITE TO CHARACTER DEVICE CONTROL CHANNEL */
2827     case 0x06: /* GET INPUT STATUS */
2828     case 0x07: /* GET OUTPUT STATUS */
2829     case 0x0c: /* GENERIC CHARACTER DEVICE REQUEST */
2830     case 0x10: /* QUERY GENERIC IOCTL CAPABILITY */
2831     default:
2832         INT_BARF( context, 0x21 );
2833         break;
2834     }
2835 }
2836
2837
2838 /***********************************************************************
2839  *           INT21_Ioctl
2840  *
2841  * Handler for function 0x44.
2842  */
2843 static void INT21_Ioctl( CONTEXT86 *context )
2844 {
2845     switch (AL_reg(context))
2846     {
2847     case 0x00:
2848     case 0x01:
2849     case 0x02:
2850     case 0x03:
2851         INT21_Ioctl_Char( context );
2852         break;
2853
2854     case 0x04:
2855     case 0x05:
2856         INT21_Ioctl_Block( context );
2857         break;
2858
2859     case 0x06:
2860     case 0x07:
2861         INT21_Ioctl_Char( context );
2862         break;
2863
2864     case 0x08:
2865     case 0x09:
2866         INT21_Ioctl_Block( context );
2867         break;
2868
2869     case 0x0a:
2870         INT21_Ioctl_Char( context );
2871         break;
2872
2873     case 0x0b: /* SET SHARING RETRY COUNT */
2874         TRACE( "SET SHARING RETRY COUNT: Pause %d, retries %d.\n",
2875                CX_reg(context), DX_reg(context) );
2876         if (!CX_reg(context))
2877         {
2878             SET_AX( context, 1 );
2879             SET_CFLAG( context );
2880         }
2881         else
2882         {
2883             DOSDEV_SetSharingRetry( CX_reg(context), DX_reg(context) );
2884             RESET_CFLAG( context );
2885         }
2886         break;
2887
2888     case 0x0c:
2889         INT21_Ioctl_Char( context );
2890         break;
2891
2892     case 0x0d:
2893     case 0x0e:
2894     case 0x0f:
2895         INT21_Ioctl_Block( context );
2896         break;
2897
2898     case 0x10:
2899         INT21_Ioctl_Char( context );
2900         break;
2901
2902     case 0x11:
2903         INT21_Ioctl_Block( context );
2904         break;
2905
2906     case 0x12: /*  DR DOS - DETERMINE DOS TYPE (OBSOLETE FUNCTION) */
2907         TRACE( "DR DOS - DETERMINE DOS TYPE (OBSOLETE FUNCTION)\n" );
2908         SET_CFLAG(context);        /* Error / This is not DR DOS. */
2909         SET_AX( context, 0x0001 ); /* Invalid function */
2910         break;
2911
2912     case 0x52: /* DR DOS - DETERMINE DOS TYPE */
2913         TRACE( "DR DOS - DETERMINE DOS TYPE\n" );
2914         SET_CFLAG(context);        /* Error / This is not DR DOS. */
2915         SET_AX( context, 0x0001 ); /* Invalid function */
2916         break;
2917
2918     case 0xe0:  /* Sun PC-NFS API */
2919         TRACE( "Sun PC-NFS API\n" );
2920         /* not installed */
2921         break;
2922
2923     default:
2924         INT_BARF( context, 0x21 );
2925     }
2926 }
2927
2928
2929 /***********************************************************************
2930  *           INT21_Fat32
2931  *
2932  * Handler for function 0x73.
2933  */
2934 static BOOL INT21_Fat32( CONTEXT86 *context )
2935 {
2936     switch (AL_reg(context))
2937     {
2938     case 0x02: /* FAT32 - GET EXTENDED DPB */
2939         {
2940             BYTE drive = INT21_MapDrive( DL_reg(context) );
2941             WORD *ptr = CTX_SEG_OFF_TO_LIN(context,
2942                                            context->SegEs, context->Edi);
2943             INT21_DPB *target = (INT21_DPB*)(ptr + 1);
2944             INT21_DPB *source;
2945
2946             TRACE( "FAT32 - GET EXTENDED DPB %d\n", DL_reg(context) );
2947
2948             if ( CX_reg(context) < sizeof(INT21_DPB) + 2 || *ptr < sizeof(INT21_DPB) )
2949             {
2950                 SetLastError( ERROR_BAD_LENGTH );
2951                 return FALSE;
2952             }
2953
2954             if ( !INT21_FillDrivePB( drive ) )
2955             {
2956                 SetLastError( ERROR_INVALID_DRIVE );
2957                 return FALSE;
2958             }
2959
2960             source = &INT21_GetHeapPointer()->misc_dpb_list[drive];
2961
2962             *ptr = sizeof(INT21_DPB);
2963             memcpy( target, source, sizeof(INT21_DPB));
2964
2965             if (LOWORD(context->Esi) != 0xF1A6)
2966             {
2967                 target->driver_header = 0;
2968                 target->next          = 0;
2969             }
2970             else
2971             {
2972                 FIXME( "Caller requested driver and next DPB pointers!\n" );
2973             }
2974         }
2975         break;
2976
2977     case 0x03: /* FAT32 - GET EXTENDED FREE SPACE ON DRIVE */
2978         {
2979             WCHAR dirW[MAX_PATH];
2980             char *dirA = CTX_SEG_OFF_TO_LIN( context,
2981                                              context->SegDs, context->Edx );
2982             BYTE *data = CTX_SEG_OFF_TO_LIN( context,
2983                                              context->SegEs, context->Edi );
2984             DWORD cluster_sectors;
2985             DWORD sector_bytes;
2986             DWORD free_clusters;
2987             DWORD total_clusters;
2988
2989             TRACE( "FAT32 - GET EXTENDED FREE SPACE ON DRIVE %s\n", dirA );
2990             MultiByteToWideChar(CP_OEMCP, 0, dirA, -1, dirW, MAX_PATH);
2991
2992             if (CX_reg(context) < 44)
2993             {
2994                 SetLastError( ERROR_BAD_LENGTH );
2995                 return FALSE;
2996             }
2997
2998             if (!GetDiskFreeSpaceW( dirW, &cluster_sectors, &sector_bytes,
2999                                     &free_clusters, &total_clusters ))
3000                 return FALSE;
3001
3002             *(WORD*) (data +  0) = 44; /* size of structure */
3003             *(WORD*) (data +  2) = 0;  /* version */
3004             *(DWORD*)(data +  4) = cluster_sectors;
3005             *(DWORD*)(data +  8) = sector_bytes;
3006             *(DWORD*)(data + 12) = free_clusters;
3007             *(DWORD*)(data + 16) = total_clusters;
3008
3009             /*
3010              * Below we have free/total sectors and
3011              * free/total allocation units without adjustment
3012              * for compression. We fake both using cluster information.
3013              */
3014             *(DWORD*)(data + 20) = free_clusters * cluster_sectors;
3015             *(DWORD*)(data + 24) = total_clusters * cluster_sectors;
3016             *(DWORD*)(data + 28) = free_clusters;
3017             *(DWORD*)(data + 32) = total_clusters;
3018
3019             /*
3020              * Between (data + 36) and (data + 43) there
3021              * are eight reserved bytes.
3022              */
3023         }
3024         break;
3025
3026     default:
3027         INT_BARF( context, 0x21 );
3028     }
3029
3030     return TRUE;
3031 }
3032
3033 static void INT21_ConvertFindDataWtoA(WIN32_FIND_DATAA *dataA,
3034                                       const WIN32_FIND_DATAW *dataW)
3035 {
3036     dataA->dwFileAttributes = dataW->dwFileAttributes;
3037     dataA->ftCreationTime   = dataW->ftCreationTime;
3038     dataA->ftLastAccessTime = dataW->ftLastAccessTime;
3039     dataA->ftLastWriteTime  = dataW->ftLastWriteTime;
3040     dataA->nFileSizeHigh    = dataW->nFileSizeHigh;
3041     dataA->nFileSizeLow     = dataW->nFileSizeLow;
3042     WideCharToMultiByte( CP_OEMCP, 0, dataW->cFileName, -1,
3043                          dataA->cFileName, sizeof(dataA->cFileName), NULL, NULL );
3044     WideCharToMultiByte( CP_OEMCP, 0, dataW->cAlternateFileName, -1,
3045                          dataA->cAlternateFileName, sizeof(dataA->cAlternateFileName), NULL, NULL );
3046 }
3047
3048 /***********************************************************************
3049  *           INT21_LongFilename
3050  *
3051  * Handler for function 0x71.
3052  */
3053 static void INT21_LongFilename( CONTEXT86 *context )
3054 {
3055     BOOL bSetDOSExtendedError = FALSE;
3056     WCHAR pathW[MAX_PATH];
3057     char* pathA;
3058
3059     if (HIBYTE(HIWORD(GetVersion16())) < 0x07)
3060     {
3061         TRACE( "LONG FILENAME - functions supported only under DOS7\n" );
3062         SET_CFLAG( context );
3063         SET_AL( context, 0 );
3064         return;
3065     }
3066
3067     switch (AL_reg(context))
3068     {
3069     case 0x0d: /* RESET DRIVE */
3070         INT_BARF( context, 0x21 );
3071         break;
3072
3073     case 0x39: /* LONG FILENAME - MAKE DIRECTORY */
3074         if (!INT21_CreateDirectory( context ))
3075             bSetDOSExtendedError = TRUE;
3076         break;
3077
3078     case 0x3a: /* LONG FILENAME - REMOVE DIRECTORY */
3079         pathA = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
3080
3081         TRACE( "LONG FILENAME - REMOVE DIRECTORY %s\n", pathA);
3082         MultiByteToWideChar(CP_OEMCP, 0, pathA, -1, pathW, MAX_PATH);
3083         if (!RemoveDirectoryW( pathW )) bSetDOSExtendedError = TRUE;
3084         break;
3085
3086     case 0x3b: /* LONG FILENAME - CHANGE DIRECTORY */
3087         if (!INT21_SetCurrentDirectory( context ))
3088             bSetDOSExtendedError = TRUE;
3089         break;
3090
3091     case 0x41: /* LONG FILENAME - DELETE FILE */
3092         pathA = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
3093
3094         TRACE( "LONG FILENAME - DELETE FILE %s\n", pathA );
3095         MultiByteToWideChar(CP_OEMCP, 0, pathA, -1, pathW, MAX_PATH);
3096
3097         if (!DeleteFileW( pathW )) bSetDOSExtendedError = TRUE;
3098         break;
3099
3100     case 0x43: /* LONG FILENAME - EXTENDED GET/SET FILE ATTRIBUTES */
3101         if (!INT21_FileAttributes( context, BL_reg(context), TRUE ))
3102             bSetDOSExtendedError = TRUE;
3103         break;
3104
3105     case 0x47: /* LONG FILENAME - GET CURRENT DIRECTORY */
3106         if (!INT21_GetCurrentDirectory( context, TRUE ))
3107             bSetDOSExtendedError = TRUE;
3108         break;
3109
3110     case 0x4e: /* LONG FILENAME - FIND FIRST MATCHING FILE */
3111         {
3112             HANDLE              handle;
3113             HGLOBAL16           h16;
3114             WIN32_FIND_DATAW    dataW;
3115             WIN32_FIND_DATAA*   dataA;
3116
3117             pathA = CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Edx);
3118             TRACE(" LONG FILENAME - FIND FIRST MATCHING FILE for %s\n", pathA);
3119
3120             MultiByteToWideChar(CP_OEMCP, 0, pathA, -1, pathW, MAX_PATH);
3121             handle = FindFirstFileW(pathW, &dataW);
3122
3123             dataA = (WIN32_FIND_DATAA *)CTX_SEG_OFF_TO_LIN(context, context->SegEs,
3124                                                            context->Edi);
3125             if (handle != INVALID_HANDLE_VALUE &&
3126                 (h16 = GlobalAlloc16(GMEM_MOVEABLE, sizeof(handle))))
3127             {
3128                 HANDLE* ptr = GlobalLock16( h16 );
3129                 *ptr = handle;
3130                 GlobalUnlock16( h16 );
3131                 SET_AX( context, h16 );
3132                 INT21_ConvertFindDataWtoA(dataA, &dataW);
3133             }
3134             else
3135             {
3136                 if (handle != INVALID_HANDLE_VALUE) FindClose(handle);
3137                 SET_AX( context, INVALID_HANDLE_VALUE16);
3138                 bSetDOSExtendedError = TRUE;
3139             }
3140         }
3141         break;
3142
3143     case 0x4f: /* LONG FILENAME - FIND NEXT MATCHING FILE */
3144         {
3145             HGLOBAL16           h16 = BX_reg(context);
3146             HANDLE*             ptr;
3147             WIN32_FIND_DATAW    dataW;
3148             WIN32_FIND_DATAA*   dataA;
3149
3150             TRACE("LONG FILENAME - FIND NEXT MATCHING FILE for handle %d\n",
3151                   BX_reg(context));
3152
3153             dataA = (WIN32_FIND_DATAA *)CTX_SEG_OFF_TO_LIN(context, context->SegEs,
3154                                                            context->Edi);
3155
3156             if (h16 != INVALID_HANDLE_VALUE16 && (ptr = GlobalLock16( h16 )))
3157             {
3158                 if (!FindNextFileW(*ptr, &dataW)) bSetDOSExtendedError = TRUE;
3159                 else INT21_ConvertFindDataWtoA(dataA, &dataW);
3160                 GlobalUnlock16( h16 );
3161             }
3162             else
3163             {
3164                 SetLastError( ERROR_INVALID_HANDLE );
3165                 bSetDOSExtendedError = TRUE;
3166             }
3167         }
3168         break;
3169
3170     case 0x56: /* LONG FILENAME - RENAME FILE */
3171         if (!INT21_RenameFile(context))
3172             bSetDOSExtendedError = TRUE;
3173         break;
3174
3175     case 0x60: /* LONG FILENAME - CONVERT PATH */
3176         {
3177             WCHAR   res[MAX_PATH];
3178
3179             switch (CL_reg(context))
3180             {
3181             case 0x00:  /* "truename" - Canonicalize path */
3182                 /*
3183                  * FIXME: This is not 100% equal to 0x01 case,
3184                  *        if you fix this, fix int21 subfunction 0x60, too.
3185                  */
3186
3187             case 0x01:  /* Get short filename or path */
3188                 MultiByteToWideChar(CP_OEMCP, 0, CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Esi), -1, pathW, MAX_PATH);
3189                 if (!GetShortPathNameW(pathW, res, 67))
3190                     bSetDOSExtendedError = TRUE;
3191                 else
3192                 {
3193                     SET_AX( context, 0 );
3194                     WideCharToMultiByte(CP_OEMCP, 0, res, -1,
3195                                         CTX_SEG_OFF_TO_LIN(context, context->SegEs, context->Edi),
3196                                         67, NULL, NULL);
3197                 }
3198                 break;
3199
3200             case 0x02:  /* Get canonical long filename or path */
3201                 MultiByteToWideChar(CP_OEMCP, 0, CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Esi), -1, pathW, MAX_PATH);
3202                 if (!GetFullPathNameW(pathW, 128, res, NULL))
3203                     bSetDOSExtendedError = TRUE;
3204                 else
3205                 {
3206                     SET_AX( context, 0 );
3207                     WideCharToMultiByte(CP_OEMCP, 0, res, -1,
3208                                         CTX_SEG_OFF_TO_LIN(context, context->SegEs, context->Edi),
3209                                         128, NULL, NULL);
3210                 }
3211                 break;
3212             default:
3213                 FIXME("Unimplemented long file name function:\n");
3214                 INT_BARF( context, 0x21 );
3215                 SET_CFLAG(context);
3216                 SET_AL( context, 0 );
3217                 break;
3218             }
3219         }
3220         break;
3221
3222     case 0x6c: /* LONG FILENAME - CREATE OR OPEN FILE */
3223         if (!INT21_CreateFile( context, context->Esi, TRUE,
3224                                BX_reg(context), DL_reg(context) ))
3225             bSetDOSExtendedError = TRUE;
3226         break;
3227
3228     case 0xa0: /* LONG FILENAME - GET VOLUME INFORMATION */
3229         {
3230             DWORD filename_len, flags;
3231             WCHAR dstW[8];
3232
3233             pathA = CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Edx);
3234
3235             TRACE("LONG FILENAME - GET VOLUME INFORMATION for drive having root dir '%s'.\n", pathA);
3236             SET_AX( context, 0 );
3237             MultiByteToWideChar(CP_OEMCP, 0, pathA, -1, pathW, MAX_PATH);
3238             if (!GetVolumeInformationW( pathW, NULL, 0, NULL, &filename_len,
3239                                         &flags, dstW, 8 ))
3240             {
3241                 INT_BARF( context, 0x21 );
3242                 SET_CFLAG(context);
3243                 break;
3244             }
3245             SET_BX( context, flags | 0x4000 ); /* support for LFN functions */
3246             SET_CX( context, filename_len );
3247             SET_DX( context, MAX_PATH ); /* FIXME: which len if DRIVE_SHORT_NAMES ? */
3248             WideCharToMultiByte(CP_OEMCP, 0, dstW, -1,
3249                                 CTX_SEG_OFF_TO_LIN(context, context->SegEs, context->Edi),
3250                                 8, NULL, NULL);
3251         }
3252         break;
3253
3254     case 0xa1: /* LONG FILENAME - "FindClose" - TERMINATE DIRECTORY SEARCH */
3255         {
3256             HGLOBAL16 h16 = BX_reg(context);
3257             HANDLE* ptr;
3258
3259             TRACE("LONG FILENAME - FINDCLOSE for handle %d\n",
3260                   BX_reg(context));
3261             if (h16 != INVALID_HANDLE_VALUE16 && (ptr = GlobalLock16( h16 )))
3262             {
3263                 if (!FindClose( *ptr )) bSetDOSExtendedError = TRUE;
3264                 GlobalUnlock16( h16 );
3265                 GlobalFree16( h16 );
3266             }
3267             else
3268             {
3269                 SetLastError( ERROR_INVALID_HANDLE );
3270                 bSetDOSExtendedError = TRUE;
3271             }
3272         }
3273         break;
3274
3275     case 0xa6: /* LONG FILENAME - GET FILE INFO BY HANDLE */
3276         {
3277             HANDLE handle = DosFileHandleToWin32Handle(BX_reg(context));
3278             BY_HANDLE_FILE_INFORMATION *info =
3279                 CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
3280
3281             TRACE( "LONG FILENAME - GET FILE INFO BY HANDLE\n" );
3282
3283             if (!GetFileInformationByHandle(handle, info))
3284                 bSetDOSExtendedError = TRUE;
3285         }
3286         break;
3287
3288     case 0xa7: /* LONG FILENAME - CONVERT TIME */
3289         switch (BL_reg(context))
3290         {
3291         case 0x00: /* FILE TIME TO DOS TIME */
3292             {
3293                 WORD      date, time;
3294                 FILETIME *filetime = CTX_SEG_OFF_TO_LIN(context,
3295                                                         context->SegDs,
3296                                                         context->Esi);
3297
3298                 TRACE( "LONG FILENAME - FILE TIME TO DOS TIME\n" );
3299
3300                 FileTimeToDosDateTime( filetime, &date, &time );
3301
3302                 SET_DX( context, date );
3303                 SET_CX( context, time );
3304
3305                 /*
3306                  * FIXME: BH has number of 10-millisecond units
3307                  * past time in CX.
3308                  */
3309                 SET_BH( context, 0 );
3310             }
3311             break;
3312
3313         case 0x01: /* DOS TIME TO FILE TIME */
3314             {
3315                 FILETIME *filetime = CTX_SEG_OFF_TO_LIN(context,
3316                                                         context->SegEs,
3317                                                         context->Edi);
3318
3319                 TRACE( "LONG FILENAME - DOS TIME TO FILE TIME\n" );
3320
3321                 /*
3322                  * FIXME: BH has number of 10-millisecond units
3323                  * past time in CX.
3324                  */
3325                 DosDateTimeToFileTime( DX_reg(context), CX_reg(context),
3326                                        filetime );
3327             }
3328             break;
3329
3330         default:
3331             INT_BARF( context, 0x21 );
3332             break;
3333         }
3334         break;
3335
3336     case 0xa8: /* LONG FILENAME - GENERATE SHORT FILENAME */
3337     case 0xa9: /* LONG FILENAME - SERVER CREATE OR OPEN FILE */
3338     case 0xaa: /* LONG FILENAME - SUBST */
3339     default:
3340         FIXME("Unimplemented long file name function:\n");
3341         INT_BARF( context, 0x21 );
3342         SET_CFLAG(context);
3343         SET_AL( context, 0 );
3344         break;
3345     }
3346
3347     if (bSetDOSExtendedError)
3348     {
3349         SET_AX( context, GetLastError() );
3350         SET_CFLAG( context );
3351     }
3352 }
3353
3354
3355 /***********************************************************************
3356  *           INT21_RenameFile
3357  *
3358  * Handler for:
3359  * - function 0x56
3360  * - subfunction 0x56 of function 0x71
3361  * - subfunction 0xff of function 0x43 (CL == 0x56)
3362  */
3363 static BOOL INT21_RenameFile( CONTEXT86 *context )
3364 {
3365     WCHAR fromW[MAX_PATH];
3366     WCHAR toW[MAX_PATH];
3367     char *fromA = CTX_SEG_OFF_TO_LIN(context,
3368                                      context->SegDs,context->Edx);
3369     char *toA = CTX_SEG_OFF_TO_LIN(context,
3370                                    context->SegEs,context->Edi);
3371
3372     TRACE( "RENAME FILE %s to %s\n", fromA, toA );
3373     MultiByteToWideChar(CP_OEMCP, 0, fromA, -1, fromW, MAX_PATH);
3374     MultiByteToWideChar(CP_OEMCP, 0, toA, -1, toW, MAX_PATH);
3375
3376     return MoveFileW( fromW, toW );
3377 }
3378
3379
3380 /***********************************************************************
3381  *           INT21_NetworkFunc
3382  *
3383  * Handler for:
3384  * - function 0x5e
3385  */
3386 static BOOL INT21_NetworkFunc (CONTEXT86 *context)
3387 {
3388     switch (AL_reg(context))
3389     {
3390     case 0x00: /* Get machine name. */
3391         {
3392             WCHAR dstW[MAX_COMPUTERNAME_LENGTH + 1];
3393             DWORD s = sizeof(dstW) / sizeof(WCHAR);
3394             int len;
3395
3396             char *dst = CTX_SEG_OFF_TO_LIN (context,context->SegDs,context->Edx);
3397             TRACE("getting machine name to %p\n", dst);
3398             if (!GetComputerNameW(dstW, &s) ||
3399                 !WideCharToMultiByte(CP_OEMCP, 0, dstW, -1, dst, 16, NULL, NULL))
3400             {
3401                 WARN("failed!\n");
3402                 SetLastError( ER_NoNetwork );
3403                 return TRUE;
3404             }
3405             for (len = strlen(dst); len < 15; len++) dst[len] = ' ';
3406             dst[15] = 0;
3407             SET_CH( context, 1 ); /* Valid */
3408             SET_CL( context, 1 ); /* NETbios number??? */
3409             TRACE("returning %s\n", debugstr_an(dst, 16));
3410             return FALSE;
3411         }
3412
3413     default:
3414         SetLastError( ER_NoNetwork );
3415         return TRUE;
3416     }
3417 }
3418
3419 /******************************************************************
3420  *              INT21_GetDiskSerialNumber
3421  *
3422  */
3423 static int INT21_GetDiskSerialNumber( CONTEXT86 *context )
3424 {
3425     BYTE *dataptr = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
3426     WCHAR path[] = {'A',':',0}, label[11];
3427     DWORD serial;
3428
3429     path[0] += INT21_MapDrive(BL_reg(context));
3430     if (!GetVolumeInformationW( path, label, 11, &serial, NULL, NULL, NULL, 0))
3431     {
3432         SetLastError( ERROR_INVALID_DRIVE );
3433         return 0;
3434     }
3435
3436     *(WORD *)dataptr = 0;
3437     memcpy(dataptr + 2, &serial, sizeof(DWORD));
3438     WideCharToMultiByte(CP_OEMCP, 0, label, 11, (LPSTR)dataptr + 6, 11, NULL, NULL);
3439     memcpy(dataptr + 17, "FAT16   ", 8);
3440     return 1;
3441 }
3442
3443
3444 /******************************************************************
3445  *              INT21_SetDiskSerialNumber
3446  *
3447  */
3448 static int INT21_SetDiskSerialNumber( CONTEXT86 *context )
3449 {
3450 #if 0
3451     BYTE *dataptr = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
3452     int drive = INT21_MapDrive(BL_reg(context));
3453
3454     if (!is_valid_drive(drive))
3455     {
3456         SetLastError( ERROR_INVALID_DRIVE );
3457         return 0;
3458     }
3459
3460     DRIVE_SetSerialNumber( drive, *(DWORD *)(dataptr + 2) );
3461     return 1;
3462 #else
3463     FIXME("Setting drive serial number is no longer supported\n");
3464     SetLastError( ERROR_NOT_SUPPORTED );
3465     return 0;
3466 #endif
3467 }
3468
3469
3470 /******************************************************************
3471  *              INT21_GetFreeDiskSpace
3472  *
3473  */
3474 static int INT21_GetFreeDiskSpace( CONTEXT86 *context )
3475 {
3476     DWORD cluster_sectors, sector_bytes, free_clusters, total_clusters;
3477     WCHAR root[] = {'A',':','\\',0};
3478     const DWORD max_clusters = 0x3d83;
3479     const DWORD max_sectors_per_cluster = 0x7f;
3480     const DWORD max_bytes_per_sector = 0x200;
3481
3482     root[0] += INT21_MapDrive(DL_reg(context));
3483     if (!GetDiskFreeSpaceW( root, &cluster_sectors, &sector_bytes,
3484                             &free_clusters, &total_clusters )) return 0;
3485
3486     /* Some old win31 apps (Lotus SmartSuite 5.1) crap out if there's too
3487      * much disk space, so Windows XP seems to apply the following limits:
3488      *  cluster_sectors <= 0x7f
3489      *  sector size <= 0x200
3490      *  clusters <= 0x3D83
3491      * This means total reported space is limited to about 1GB.
3492      */
3493
3494     /* Make sure bytes-per-sector is in [, max] */
3495     while (sector_bytes > max_bytes_per_sector) {
3496         sector_bytes >>= 1;
3497         free_clusters <<= 1;
3498         total_clusters <<= 1;
3499     }
3500     /* Then make sure sectors-per-cluster is in [max/2, max]. */
3501     while (cluster_sectors <= max_sectors_per_cluster/2) {
3502         cluster_sectors <<= 1;
3503         free_clusters >>= 1;
3504         total_clusters >>= 1;
3505     }
3506     while (cluster_sectors > max_sectors_per_cluster) {
3507         cluster_sectors >>= 1;
3508         free_clusters <<= 1;
3509         total_clusters <<= 1;
3510     }
3511
3512     /* scale up sectors_per_cluster to exactly max_sectors_per_cluster.
3513      * We could skip this, but that would impose an artificially low
3514      * limit on reported disk space.
3515      * To avoid overflow, first apply a preliminary cap on sector count;
3516      * this will not affect the correctness of the final result,
3517      * because if the preliminary cap hits, the final one will, too.
3518      */
3519     if (total_clusters > 4 * max_clusters)
3520         total_clusters = 4 * max_clusters;
3521     if (free_clusters > 4 * max_clusters)
3522         free_clusters = 4 * max_clusters;
3523     if (cluster_sectors < max_sectors_per_cluster) {
3524         free_clusters *= cluster_sectors;
3525         free_clusters /= max_sectors_per_cluster;
3526         total_clusters *= cluster_sectors;
3527         total_clusters /= max_sectors_per_cluster;
3528         cluster_sectors = max_sectors_per_cluster;
3529     }
3530
3531     /* Finally, apply real cluster count cap. */
3532     if (total_clusters > max_clusters)
3533         total_clusters = max_clusters;
3534     if (free_clusters > max_clusters)
3535         free_clusters = max_clusters;
3536
3537     SET_AX( context, cluster_sectors );
3538     SET_BX( context, free_clusters );
3539     SET_CX( context, sector_bytes );
3540     SET_DX( context, total_clusters );
3541     return 1;
3542 }
3543
3544 /******************************************************************
3545  *              INT21_GetDriveAllocInfo
3546  *
3547  */
3548 static int INT21_GetDriveAllocInfo( CONTEXT86 *context, BYTE drive )
3549 {
3550     INT21_DPB  *dpb;
3551
3552     drive = INT21_MapDrive( drive );
3553     if (!INT21_FillDrivePB( drive )) return 0;
3554     dpb = &(INT21_GetHeapPointer()->misc_dpb_list[drive]);
3555     SET_AL( context, dpb->cluster_sectors + 1 );
3556     SET_CX( context, dpb->sector_bytes );
3557     SET_DX( context, dpb->num_clusters1 );
3558
3559     context->SegDs = INT21_GetHeapSelector( context );
3560     SET_BX( context, offsetof( INT21_HEAP, misc_dpb_list[drive].media_ID ) );
3561     return 1;
3562 }
3563
3564 /***********************************************************************
3565  *           INT21_GetExtendedError
3566  */
3567 static void INT21_GetExtendedError( CONTEXT86 *context )
3568 {
3569     BYTE class, action, locus;
3570     WORD error = GetLastError();
3571
3572     switch(error)
3573     {
3574     case ERROR_SUCCESS:
3575         class = action = locus = 0;
3576         break;
3577     case ERROR_DIR_NOT_EMPTY:
3578         class  = EC_Exists;
3579         action = SA_Ignore;
3580         locus  = EL_Disk;
3581         break;
3582     case ERROR_ACCESS_DENIED:
3583         class  = EC_AccessDenied;
3584         action = SA_Abort;
3585         locus  = EL_Disk;
3586         break;
3587     case ERROR_CANNOT_MAKE:
3588         class  = EC_AccessDenied;
3589         action = SA_Abort;
3590         locus  = EL_Unknown;
3591         break;
3592     case ERROR_DISK_FULL:
3593     case ERROR_HANDLE_DISK_FULL:
3594         class  = EC_MediaError;
3595         action = SA_Abort;
3596         locus  = EL_Disk;
3597         break;
3598     case ERROR_FILE_EXISTS:
3599     case ERROR_ALREADY_EXISTS:
3600         class  = EC_Exists;
3601         action = SA_Abort;
3602         locus  = EL_Disk;
3603         break;
3604     case ERROR_FILE_NOT_FOUND:
3605         class  = EC_NotFound;
3606         action = SA_Abort;
3607         locus  = EL_Disk;
3608         break;
3609     case ERROR_GEN_FAILURE:
3610         class  = EC_SystemFailure;
3611         action = SA_Abort;
3612         locus  = EL_Unknown;
3613         break;
3614     case ERROR_INVALID_DRIVE:
3615         class  = EC_MediaError;
3616         action = SA_Abort;
3617         locus  = EL_Disk;
3618         break;
3619     case ERROR_INVALID_HANDLE:
3620         class  = EC_ProgramError;
3621         action = SA_Abort;
3622         locus  = EL_Disk;
3623         break;
3624     case ERROR_LOCK_VIOLATION:
3625         class  = EC_AccessDenied;
3626         action = SA_Abort;
3627         locus  = EL_Disk;
3628         break;
3629     case ERROR_NO_MORE_FILES:
3630         class  = EC_MediaError;
3631         action = SA_Abort;
3632         locus  = EL_Disk;
3633         break;
3634     case ER_NoNetwork:
3635         class  = EC_NotFound;
3636         action = SA_Abort;
3637         locus  = EL_Network;
3638         break;
3639     case ERROR_NOT_ENOUGH_MEMORY:
3640         class  = EC_OutOfResource;
3641         action = SA_Abort;
3642         locus  = EL_Memory;
3643         break;
3644     case ERROR_PATH_NOT_FOUND:
3645         class  = EC_NotFound;
3646         action = SA_Abort;
3647         locus  = EL_Disk;
3648         break;
3649     case ERROR_SEEK:
3650         class  = EC_NotFound;
3651         action = SA_Ignore;
3652         locus  = EL_Disk;
3653         break;
3654     case ERROR_SHARING_VIOLATION:
3655         class  = EC_Temporary;
3656         action = SA_Retry;
3657         locus  = EL_Disk;
3658         break;
3659     case ERROR_TOO_MANY_OPEN_FILES:
3660         class  = EC_ProgramError;
3661         action = SA_Abort;
3662         locus  = EL_Disk;
3663         break;
3664     default:
3665         FIXME("Unknown error %d\n", error );
3666         class  = EC_SystemFailure;
3667         action = SA_Abort;
3668         locus  = EL_Unknown;
3669         break;
3670     }
3671     TRACE("GET EXTENDED ERROR code 0x%02x class 0x%02x action 0x%02x locus %02x\n",
3672            error, class, action, locus );
3673     SET_AX( context, error );
3674     SET_BH( context, class );
3675     SET_BL( context, action );
3676     SET_CH( context, locus );
3677 }
3678
3679 static BOOL INT21_CreateTempFile( CONTEXT86 *context )
3680 {
3681     static int counter = 0;
3682     char *name = CTX_SEG_OFF_TO_LIN(context,  context->SegDs, context->Edx );
3683     char *p = name + strlen(name);
3684
3685     /* despite what Ralf Brown says, some programs seem to call without
3686      * ending backslash (DOS accepts that, so we accept it too) */
3687     if ((p == name) || (p[-1] != '\\')) *p++ = '\\';
3688
3689     for (;;)
3690     {
3691         sprintf( p, "wine%04x.%03d", (int)getpid(), counter );
3692         counter = (counter + 1) % 1000;
3693
3694         SET_AX( context,
3695                 Win32HandleToDosFileHandle(
3696                     CreateFileA( name, GENERIC_READ | GENERIC_WRITE,
3697                                  FILE_SHARE_READ | FILE_SHARE_WRITE, NULL,
3698                                  CREATE_NEW, 0, 0 ) ) );
3699         if (AX_reg(context) != HFILE_ERROR16)
3700         {
3701             TRACE("created %s\n", name );
3702             return TRUE;
3703         }
3704         if (GetLastError() != ERROR_FILE_EXISTS) return FALSE;
3705     }
3706 }
3707
3708 /***********************************************************************
3709  *           DOSFS_ToDosFCBFormat
3710  *
3711  * Convert a file name to DOS FCB format (8+3 chars, padded with blanks),
3712  * expanding wild cards and converting to upper-case in the process.
3713  * File name can be terminated by '\0', '\\' or '/'.
3714  * Return FALSE if the name is not a valid DOS name.
3715  * 'buffer' must be at least 12 characters long.
3716  */
3717 /* Chars we don't want to see in DOS file names */
3718 static BOOL INT21_ToDosFCBFormat( LPCWSTR name, LPWSTR buffer )
3719 {
3720     static const WCHAR invalid_chars[] = {'*','?','<','>','|','\\','"','+','=',',',';','[',']',' ','\345',0};
3721     LPCWSTR p = name;
3722     int i;
3723
3724     /* Check for "." and ".." */
3725     if (*p == '.')
3726     {
3727         p++;
3728         buffer[0] = '.';
3729         for(i = 1; i < 11; i++) buffer[i] = ' ';
3730         buffer[11] = 0;
3731         if (*p == '.')
3732         {
3733             buffer[1] = '.';
3734             p++;
3735         }
3736         return (!*p || (*p == '/') || (*p == '\\'));
3737     }
3738
3739     for (i = 0; i < 8; i++)
3740     {
3741         switch(*p)
3742         {
3743         case '\0':
3744         case '\\':
3745         case '/':
3746         case '.':
3747             buffer[i] = ' ';
3748             break;
3749         case '?':
3750             p++;
3751             /* fall through */
3752         case '*':
3753             buffer[i] = '?';
3754             break;
3755         default:
3756             if (strchrW( invalid_chars, *p )) return FALSE;
3757             buffer[i] = toupperW(*p);
3758             p++;
3759             break;
3760         }
3761     }
3762
3763     if (*p == '*')
3764     {
3765         /* Skip all chars after wildcard up to first dot */
3766         while (*p && (*p != '/') && (*p != '\\') && (*p != '.')) p++;
3767     }
3768     else
3769     {
3770         /* Check if name too long */
3771         if (*p && (*p != '/') && (*p != '\\') && (*p != '.')) return FALSE;
3772     }
3773     if (*p == '.') p++;  /* Skip dot */
3774
3775     for (i = 8; i < 11; i++)
3776     {
3777         switch(*p)
3778         {
3779         case '\0':
3780         case '\\':
3781         case '/':
3782             buffer[i] = ' ';
3783             break;
3784         case '.':
3785             return FALSE;  /* Second extension not allowed */
3786         case '?':
3787             p++;
3788             /* fall through */
3789         case '*':
3790             buffer[i] = '?';
3791             break;
3792         default:
3793             if (strchrW( invalid_chars, *p )) return FALSE;
3794             buffer[i] = toupperW(*p);
3795             p++;
3796             break;
3797         }
3798     }
3799     buffer[11] = '\0';
3800
3801     /* at most 3 character of the extension are processed
3802      * is something behind this ?
3803      */
3804     while (*p == '*' || *p == ' ') p++; /* skip wildcards and spaces */
3805     return (!*p || (*p == '/') || (*p == '\\'));
3806 }
3807
3808 static HANDLE       INT21_FindHandle;
3809 static const WCHAR *INT21_FindPath; /* will point to current dta->fullPath search */
3810
3811 /******************************************************************
3812  *              INT21_FindFirst
3813  */
3814 static int INT21_FindFirst( CONTEXT86 *context )
3815 {
3816     WCHAR *p, *q;
3817     const char *path;
3818     FINDFILE_DTA *dta = (FINDFILE_DTA *)INT21_GetCurrentDTA(context);
3819     WCHAR maskW[12], pathW[MAX_PATH];
3820     static const WCHAR wildcardW[] = {'*','.','*',0};
3821
3822     path = (const char *)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
3823     MultiByteToWideChar(CP_OEMCP, 0, path, -1, pathW, MAX_PATH);
3824
3825     p = strrchrW( pathW, '\\');
3826     q = strrchrW( pathW, '/');
3827     if (q>p) p = q;
3828     if (!p)
3829     {
3830         if (pathW[0] && pathW[1] == ':') p = pathW + 2;
3831         else p = pathW;
3832     }
3833     else p++;
3834
3835     /* Note: terminating NULL in dta->mask overwrites dta->search_attr
3836      *       (doesn't matter as it is set below anyway)
3837      */
3838     if (!INT21_ToDosFCBFormat( p, maskW ))
3839     {
3840         SetLastError( ERROR_FILE_NOT_FOUND );
3841         SET_AX( context, ERROR_FILE_NOT_FOUND );
3842         SET_CFLAG(context);
3843         return 0;
3844     }
3845     WideCharToMultiByte(CP_OEMCP, 0, maskW, 12, dta->mask, sizeof(dta->mask), NULL, NULL);
3846
3847     dta->fullPath = HeapAlloc( GetProcessHeap(), 0, sizeof(wildcardW) + (p - pathW)*sizeof(WCHAR) );
3848     memcpy( dta->fullPath, pathW, (p - pathW) * sizeof(WCHAR) );
3849     memcpy( dta->fullPath + (p - pathW), wildcardW, sizeof(wildcardW) );
3850     /* we must have a fully qualified file name in dta->fullPath
3851      * (we could have a UNC path, but this would lead to some errors later on)
3852      */
3853     dta->drive = toupperW(dta->fullPath[0]) - 'A';
3854     dta->count = 0;
3855     dta->search_attr = CL_reg(context);
3856     return 1;
3857 }
3858
3859 /******************************************************************
3860  *              match_short
3861  *
3862  * Check is a short path name (DTA unicode) matches a mask (FCB ansi)
3863  */
3864 static BOOL match_short(LPCWSTR shortW, LPCSTR maskA)
3865 {
3866     WCHAR mask[11], file[12];
3867     int i;
3868
3869     if (!INT21_ToDosFCBFormat( shortW, file )) return FALSE;
3870     MultiByteToWideChar(CP_OEMCP, 0, maskA, 11, mask, 11);
3871     for (i = 0; i < 11; i++)
3872         if (mask[i] != '?' && mask[i] != file[i]) return FALSE;
3873     return TRUE;
3874 }
3875
3876 static unsigned INT21_FindHelper(LPCWSTR fullPath, unsigned drive, unsigned count,
3877                                  LPCSTR mask, unsigned search_attr,
3878                                  WIN32_FIND_DATAW* entry)
3879 {
3880     unsigned ncalls;
3881
3882     if ((search_attr & ~(FA_UNUSED | FA_ARCHIVE | FA_RDONLY)) == FA_LABEL)
3883     {
3884         WCHAR path[] = {' ',':',0};
3885
3886         if (count) return 0;
3887         path[0] = drive + 'A';
3888         if (!GetVolumeInformationW(path, entry->cAlternateFileName, 13, NULL, NULL, NULL, NULL, 0)) return 0;
3889         RtlSecondsSince1970ToTime( (time_t)0, (LARGE_INTEGER *)&entry->ftCreationTime );
3890         RtlSecondsSince1970ToTime( (time_t)0, (LARGE_INTEGER *)&entry->ftLastAccessTime );
3891         RtlSecondsSince1970ToTime( (time_t)0, (LARGE_INTEGER *)&entry->ftLastWriteTime );
3892         entry->dwFileAttributes = FA_LABEL;
3893         entry->nFileSizeHigh = entry->nFileSizeLow = 0;
3894         TRACE("returning %s as label\n", debugstr_w(entry->cAlternateFileName));
3895         return 1;
3896     }
3897
3898     if (!INT21_FindHandle || INT21_FindPath != fullPath || count == 0)
3899     {
3900         if (INT21_FindHandle) FindClose(INT21_FindHandle);
3901         INT21_FindHandle = FindFirstFileW(fullPath, entry);
3902         if (INT21_FindHandle == INVALID_HANDLE_VALUE)
3903         {
3904             INT21_FindHandle = 0;
3905             return 0;
3906         }
3907         INT21_FindPath = fullPath;
3908         /* we need to resync search */
3909         ncalls = count;
3910     }
3911     else ncalls = 1;
3912
3913     while (ncalls-- != 0)
3914     {
3915         if (!FindNextFileW(INT21_FindHandle, entry))
3916         {
3917             FindClose(INT21_FindHandle); INT21_FindHandle = 0;
3918             return 0;
3919         }
3920     }
3921     while (count < 0xffff)
3922     {
3923         count++;
3924         /* Check the file attributes, and path */
3925         if (!(entry->dwFileAttributes & ~search_attr) &&
3926             match_short(entry->cAlternateFileName[0] ? entry->cAlternateFileName : entry->cFileName,
3927                         mask))
3928         {
3929             return count;
3930         }
3931         if (!FindNextFileW(INT21_FindHandle, entry))
3932         {
3933             FindClose(INT21_FindHandle); INT21_FindHandle = 0;
3934             return 0;
3935         }
3936     }
3937     WARN("Too many directory entries in %s\n", debugstr_w(fullPath) );
3938     return 0;
3939 }
3940
3941 /******************************************************************
3942  *              INT21_FindNext
3943  */
3944 static int INT21_FindNext( CONTEXT86 *context )
3945 {
3946     FINDFILE_DTA *dta = (FINDFILE_DTA *)INT21_GetCurrentDTA(context);
3947     DWORD attr = dta->search_attr | FA_UNUSED | FA_ARCHIVE | FA_RDONLY;
3948     WIN32_FIND_DATAW entry;
3949     int n;
3950
3951     if (!dta->fullPath) return 0;
3952
3953     n = INT21_FindHelper(dta->fullPath, dta->drive, dta->count,
3954                          dta->mask, attr, &entry);
3955     if (n)
3956     {
3957         dta->fileattr = entry.dwFileAttributes;
3958         dta->filesize = entry.nFileSizeLow;
3959         FileTimeToDosDateTime( &entry.ftLastWriteTime, &dta->filedate, &dta->filetime );
3960         if (entry.cAlternateFileName[0])
3961             WideCharToMultiByte(CP_OEMCP, 0, entry.cAlternateFileName, -1,
3962                                 dta->filename, 13, NULL, NULL);
3963         else
3964             WideCharToMultiByte(CP_OEMCP, 0, entry.cFileName, -1, dta->filename, 13, NULL, NULL);
3965
3966         if (!memchr(dta->mask,'?',11))
3967         {
3968             /* wildcardless search, release resources in case no findnext will
3969              * be issued, and as a workaround in case file creation messes up
3970              * findnext, as sometimes happens with pkunzip
3971              */
3972             HeapFree( GetProcessHeap(), 0, dta->fullPath );
3973             INT21_FindPath = dta->fullPath = NULL;
3974         }
3975         dta->count = n;
3976         return 1;
3977     }
3978     HeapFree( GetProcessHeap(), 0, dta->fullPath );
3979     INT21_FindPath = dta->fullPath = NULL;
3980     return 0;
3981 }
3982
3983 /* microsoft's programmers should be shot for using CP/M style int21
3984    calls in Windows for Workgroup's winfile.exe */
3985
3986 /******************************************************************
3987  *              INT21_FindFirstFCB
3988  *
3989  */
3990 static int INT21_FindFirstFCB( CONTEXT86 *context )
3991 {
3992     BYTE *fcb = (BYTE *)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
3993     FINDFILE_FCB *pFCB;
3994     int drive;
3995     WCHAR p[] = {' ',':',};
3996
3997     if (*fcb == 0xff) pFCB = (FINDFILE_FCB *)(fcb + 7);
3998     else pFCB = (FINDFILE_FCB *)fcb;
3999     drive = INT21_MapDrive( pFCB->drive );
4000     if (drive == MAX_DOS_DRIVES) return 0;
4001
4002     p[0] = 'A' + drive;
4003     pFCB->fullPath = HeapAlloc(GetProcessHeap(), 0, MAX_PATH * sizeof(WCHAR));
4004     if (!pFCB->fullPath) return 0;
4005     GetLongPathNameW(p, pFCB->fullPath, MAX_PATH);
4006     pFCB->count = 0;
4007     return 1;
4008 }
4009
4010 /******************************************************************
4011  *              INT21_FindNextFCB
4012  *
4013  */
4014 static int INT21_FindNextFCB( CONTEXT86 *context )
4015 {
4016     BYTE *fcb = (BYTE *)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
4017     FINDFILE_FCB *pFCB;
4018     LPBYTE pResult = INT21_GetCurrentDTA(context);
4019     DOS_DIRENTRY_LAYOUT *ddl;
4020     WIN32_FIND_DATAW entry;
4021     BYTE attr;
4022     int n;
4023     WCHAR nameW[12];
4024
4025     if (*fcb == 0xff) /* extended FCB ? */
4026     {
4027         attr = fcb[6];
4028         pFCB = (FINDFILE_FCB *)(fcb + 7);
4029     }
4030     else
4031     {
4032         attr = 0;
4033         pFCB = (FINDFILE_FCB *)fcb;
4034     }
4035
4036     if (!pFCB->fullPath) return 0;
4037     n = INT21_FindHelper(pFCB->fullPath, INT21_MapDrive( pFCB->drive ),
4038                          pFCB->count, pFCB->filename, attr, &entry);
4039     if (!n)
4040     {
4041         HeapFree( GetProcessHeap(), 0, pFCB->fullPath );
4042         INT21_FindPath = pFCB->fullPath = NULL;
4043         return 0;
4044     }
4045     pFCB->count += n;
4046
4047     if (*fcb == 0xff)
4048     {
4049         /* place extended FCB header before pResult if called with extended FCB */
4050         *pResult = 0xff;
4051          pResult += 6; /* leave reserved field behind */
4052         *pResult++ = entry.dwFileAttributes;
4053     }
4054     *pResult++ = INT21_MapDrive( pFCB->drive ); /* DOS_DIRENTRY_LAYOUT after current drive number */
4055     ddl = (DOS_DIRENTRY_LAYOUT*)pResult;
4056     ddl->fileattr = entry.dwFileAttributes;
4057     ddl->cluster  = 0;  /* what else? */
4058     ddl->filesize = entry.nFileSizeLow;
4059     memset( ddl->reserved, 0, sizeof(ddl->reserved) );
4060     FileTimeToDosDateTime( &entry.ftLastWriteTime,
4061                            &ddl->filedate, &ddl->filetime );
4062
4063     /* Convert file name to FCB format */
4064     if (entry.cAlternateFileName[0])
4065         INT21_ToDosFCBFormat( entry.cAlternateFileName, nameW );
4066     else
4067         INT21_ToDosFCBFormat( entry.cFileName, nameW );
4068     WideCharToMultiByte(CP_OEMCP, 0, nameW, 11, ddl->filename, 11, NULL, NULL);
4069     return 1;
4070 }
4071
4072
4073 /******************************************************************
4074  *              INT21_ParseFileNameIntoFCB
4075  *
4076  */
4077 static void INT21_ParseFileNameIntoFCB( CONTEXT86 *context )
4078 {
4079     char *filename =
4080         CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Esi );
4081     char *fcb =
4082         CTX_SEG_OFF_TO_LIN(context, context->SegEs, context->Edi );
4083     char *s;
4084     WCHAR *buffer;
4085     WCHAR fcbW[12];
4086     INT buffer_len, len;
4087
4088     SET_AL( context, 0xff ); /* failed */
4089
4090     TRACE("filename: '%s'\n", filename);
4091
4092     s = filename;
4093     while (*s && (*s != ' ') && (*s != '\r') && (*s != '\n'))
4094         s++;
4095     len = filename - s;
4096
4097     buffer_len = MultiByteToWideChar(CP_OEMCP, 0, filename, len, NULL, 0);
4098     buffer = HeapAlloc( GetProcessHeap(), 0, (buffer_len + 1) * sizeof(WCHAR));
4099     len = MultiByteToWideChar(CP_OEMCP, 0, filename, len, buffer, buffer_len);
4100     buffer[len] = 0;
4101     INT21_ToDosFCBFormat(buffer, fcbW);
4102     HeapFree(GetProcessHeap(), 0, buffer);
4103     WideCharToMultiByte(CP_OEMCP, 0, fcbW, 12, fcb + 1, 12, NULL, NULL);
4104     *fcb = 0;
4105     TRACE("FCB: '%s'\n", fcb + 1);
4106
4107     SET_AL( context, ((strchr(filename, '*')) || (strchr(filename, '$'))) != 0 );
4108
4109     /* point DS:SI to first unparsed character */
4110     SET_SI( context, context->Esi + (int)s - (int)filename );
4111 }
4112
4113 static BOOL     INT21_Dup2(HFILE16 hFile1, HFILE16 hFile2)
4114 {
4115     HFILE16     res = HFILE_ERROR16;
4116     HANDLE      handle, new_handle;
4117 #define DOS_TABLE_SIZE  256
4118     DWORD       map[DOS_TABLE_SIZE / 32];
4119     int         i;
4120
4121     handle = DosFileHandleToWin32Handle(hFile1);
4122     if (handle == INVALID_HANDLE_VALUE)
4123         return FALSE;
4124
4125     _lclose16(hFile2);
4126     /* now loop to allocate the same one... */
4127     memset(map, 0, sizeof(map));
4128     for (i = 0; i < DOS_TABLE_SIZE; i++)
4129     {
4130         if (!DuplicateHandle(GetCurrentProcess(), handle,
4131                              GetCurrentProcess(), &new_handle,
4132                              0, FALSE, DUPLICATE_SAME_ACCESS))
4133         {
4134             res = HFILE_ERROR16;
4135             break;
4136         }
4137         res = Win32HandleToDosFileHandle(new_handle);
4138         if (res == HFILE_ERROR16 || res == hFile2) break;
4139         map[res / 32] |= 1 << (res % 32);
4140     }
4141     /* clean up the allocated slots */
4142     for (i = 0; i < DOS_TABLE_SIZE; i++)
4143     {
4144         if (map[i / 32] & (1 << (i % 32)))
4145             _lclose16((HFILE16)i);
4146     }
4147     return res == hFile2;
4148 }
4149
4150
4151 /***********************************************************************
4152  *           DOSVM_Int21Handler
4153  *
4154  * Interrupt 0x21 handler.
4155  */
4156 void WINAPI DOSVM_Int21Handler( CONTEXT86 *context )
4157 {
4158     BOOL bSetDOSExtendedError = FALSE;
4159
4160     TRACE( "AX=%04x BX=%04x CX=%04x DX=%04x "
4161            "SI=%04x DI=%04x DS=%04x ES=%04x EFL=%08lx\n",
4162            AX_reg(context), BX_reg(context),
4163            CX_reg(context), DX_reg(context),
4164            SI_reg(context), DI_reg(context),
4165            (WORD)context->SegDs, (WORD)context->SegEs,
4166            context->EFlags );
4167
4168    /*
4169     * Extended error is used by (at least) functions 0x2f to 0x62.
4170     * Function 0x59 returns extended error and error should not
4171     * be cleared before handling the function.
4172     */
4173     if (AH_reg(context) >= 0x2f && AH_reg(context) != 0x59)
4174         SetLastError(0);
4175
4176     RESET_CFLAG(context); /* Not sure if this is a good idea. */
4177
4178     switch(AH_reg(context))
4179     {
4180     case 0x00: /* TERMINATE PROGRAM */
4181         TRACE("TERMINATE PROGRAM\n");
4182         if (DOSVM_IsWin16())
4183             ExitThread( 0 );
4184         else if(ISV86(context))
4185             MZ_Exit( context, FALSE, 0 );
4186         else
4187             ERR( "Called from DOS protected mode\n" );
4188         break;
4189
4190     case 0x01: /* READ CHARACTER FROM STANDARD INPUT, WITH ECHO */
4191         {
4192             BYTE ascii;
4193             TRACE("DIRECT CHARACTER INPUT WITH ECHO\n");
4194             INT21_ReadChar( &ascii, context );
4195             SET_AL( context, ascii );
4196             /*
4197              * FIXME: What to echo when extended keycodes are read?
4198              */
4199             DOSVM_PutChar(AL_reg(context));
4200         }
4201         break;
4202
4203     case 0x02: /* WRITE CHARACTER TO STANDARD OUTPUT */
4204         TRACE("Write Character to Standard Output\n");
4205         DOSVM_PutChar(DL_reg(context));
4206         break;
4207
4208     case 0x03: /* READ CHARACTER FROM STDAUX  */
4209     case 0x04: /* WRITE CHARACTER TO STDAUX */
4210     case 0x05: /* WRITE CHARACTER TO PRINTER */
4211         INT_BARF( context, 0x21 );
4212         break;
4213
4214     case 0x06: /* DIRECT CONSOLE IN/OUTPUT */
4215         if (DL_reg(context) == 0xff)
4216         {
4217             TRACE("Direct Console Input\n");
4218
4219             if (INT21_ReadChar( NULL, NULL ))
4220             {
4221                 BYTE ascii;
4222                 INT21_ReadChar( &ascii, context );
4223                 SET_AL( context, ascii );
4224                 RESET_ZFLAG( context );
4225             }
4226             else
4227             {
4228                 /* no character available */
4229                 SET_AL( context, 0 );
4230                 SET_ZFLAG( context );
4231             }
4232         }
4233         else
4234         {
4235             TRACE("Direct Console Output\n");
4236             DOSVM_PutChar(DL_reg(context));
4237             /*
4238              * At least DOS versions 2.1-7.0 return character
4239              * that was written in AL register.
4240              */
4241             SET_AL( context, DL_reg(context) );
4242         }
4243         break;
4244
4245     case 0x07: /* DIRECT CHARACTER INPUT WITHOUT ECHO */
4246         {
4247             BYTE ascii;
4248             TRACE("DIRECT CHARACTER INPUT WITHOUT ECHO\n");
4249             INT21_ReadChar( &ascii, context );
4250             SET_AL( context, ascii );
4251         }
4252         break;
4253
4254     case 0x08: /* CHARACTER INPUT WITHOUT ECHO */
4255         {
4256             BYTE ascii;
4257             TRACE("CHARACTER INPUT WITHOUT ECHO\n");
4258             INT21_ReadChar( &ascii, context );
4259             SET_AL( context, ascii );
4260         }
4261         break;
4262
4263     case 0x09: /* WRITE STRING TO STANDARD OUTPUT */
4264         TRACE("WRITE '$'-terminated string from %04lX:%04X to stdout\n",
4265               context->SegDs, DX_reg(context) );
4266         {
4267             LPSTR data = CTX_SEG_OFF_TO_LIN( context,
4268                                              context->SegDs, context->Edx );
4269             LPSTR p = data;
4270             DWORD w;
4271             /*
4272              * Do NOT use strchr() to calculate the string length,
4273              * as '\0' is valid string content, too!
4274              * Maybe we should check for non-'$' strings, but DOS doesn't.
4275              */
4276             while (*p != '$') p++;
4277
4278             if (DOSVM_IsWin16())
4279                 WriteFile( DosFileHandleToWin32Handle(1),
4280                            data, p - data, &w, NULL );
4281             else
4282                 for(; data != p; data++)
4283                     DOSVM_PutChar( *data );
4284
4285             SET_AL( context, '$' ); /* yes, '$' (0x24) gets returned in AL */
4286         }
4287         break;
4288
4289     case 0x0a: /* BUFFERED INPUT */
4290         {
4291             BYTE *ptr = CTX_SEG_OFF_TO_LIN(context,
4292                                            context->SegDs,
4293                                            context->Edx);
4294             WORD result;
4295
4296             TRACE( "BUFFERED INPUT (size=%d)\n", ptr[0] );
4297
4298             /*
4299              * FIXME: Some documents state that
4300              *        ptr[1] holds number of chars from last input which
4301              *        may be recalled on entry, other documents do not mention
4302              *        this at all.
4303              */
4304             if (ptr[1])
4305                 TRACE( "Handle old chars in buffer!\n" );
4306
4307             /*
4308              * ptr[0] - capacity (includes terminating CR)
4309              * ptr[1] - characters read (excludes terminating CR)
4310              */
4311             result = INT21_BufferedInput( context, ptr + 2, ptr[0] );
4312             if (result > 0)
4313                 ptr[1] = (BYTE)result - 1;
4314             else
4315                 ptr[1] = 0;
4316         }
4317         break;
4318
4319     case 0x0b: /* GET STDIN STATUS */
4320         TRACE( "GET STDIN STATUS\n" );
4321         {
4322             if (INT21_ReadChar( NULL, NULL ))
4323                 SET_AL( context, 0xff ); /* character available */
4324             else
4325                 SET_AL( context, 0 ); /* no character available */
4326         }
4327         break;
4328
4329     case 0x0c: /* FLUSH BUFFER AND READ STANDARD INPUT */
4330         {
4331             BYTE al = AL_reg(context); /* Input function to execute after flush. */
4332
4333             TRACE( "FLUSH BUFFER AND READ STANDARD INPUT - 0x%02x\n", al );
4334
4335             /* FIXME: buffers are not flushed */
4336
4337             /*
4338              * If AL is one of 0x01, 0x06, 0x07, 0x08, or 0x0a,
4339              * int21 function identified by AL will be called.
4340              */
4341             if(al == 0x01 || al == 0x06 || al == 0x07 || al == 0x08 || al == 0x0a)
4342             {
4343                 SET_AH( context, al );
4344                 DOSVM_Int21Handler( context );
4345             }
4346         }
4347         break;
4348
4349     case 0x0d: /* DISK BUFFER FLUSH */
4350         TRACE("DISK BUFFER FLUSH ignored\n");
4351         break;
4352
4353     case 0x0e: /* SELECT DEFAULT DRIVE */
4354         TRACE( "SELECT DEFAULT DRIVE - %c:\n", 'A' + DL_reg(context) );
4355         INT21_SetCurrentDrive( DL_reg(context) );
4356         SET_AL( context, MAX_DOS_DRIVES );
4357         break;
4358
4359     case 0x0f: /* OPEN FILE USING FCB */
4360         INT21_OpenFileUsingFCB( context );
4361         break;
4362
4363     case 0x10: /* CLOSE FILE USING FCB */
4364         INT21_CloseFileUsingFCB( context );
4365         break;
4366
4367     case 0x11: /* FIND FIRST MATCHING FILE USING FCB */
4368         TRACE("FIND FIRST MATCHING FILE USING FCB %p\n",
4369               CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx));
4370         if (!INT21_FindFirstFCB(context))
4371         {
4372             SET_AL( context, 0xff );
4373             break;
4374         }
4375         /* else fall through */
4376
4377     case 0x12: /* FIND NEXT MATCHING FILE USING FCB */
4378         SET_AL( context, INT21_FindNextFCB(context) ? 0x00 : 0xff );
4379         break;
4380
4381      case 0x13: /* DELETE FILE USING FCB */
4382         INT_BARF( context, 0x21 );
4383         break;
4384
4385     case 0x14: /* SEQUENTIAL READ FROM FCB FILE */
4386         INT21_SequentialReadFromFCB( context );
4387         break;
4388
4389     case 0x15: /* SEQUENTIAL WRITE TO FCB FILE */
4390         INT21_SequentialWriteToFCB( context );
4391         break;
4392
4393     case 0x16: /* CREATE OR TRUNCATE FILE USING FCB */
4394     case 0x17: /* RENAME FILE USING FCB */
4395         INT_BARF( context, 0x21 );
4396         break;
4397
4398     case 0x18: /* NULL FUNCTION FOR CP/M COMPATIBILITY */
4399         SET_AL( context, 0 );
4400         break;
4401
4402     case 0x19: /* GET CURRENT DEFAULT DRIVE */
4403         SET_AL( context, INT21_GetCurrentDrive() );
4404         TRACE( "GET CURRENT DRIVE -> %c:\n", 'A' + AL_reg( context ) );
4405         break;
4406
4407     case 0x1a: /* SET DISK TRANSFER AREA ADDRESS */
4408         TRACE( "SET DISK TRANSFER AREA ADDRESS %04lX:%04X\n",
4409                context->SegDs, DX_reg(context) );
4410         {
4411             TDB *task = GlobalLock16( GetCurrentTask() );
4412             task->dta = MAKESEGPTR( context->SegDs, DX_reg(context) );
4413         }
4414         break;
4415
4416     case 0x1b: /* GET ALLOCATION INFORMATION FOR DEFAULT DRIVE */
4417         if (!INT21_GetDriveAllocInfo(context, 0))
4418             SET_AX( context, 0xffff );
4419         break;
4420
4421     case 0x1c: /* GET ALLOCATION INFORMATION FOR SPECIFIC DRIVE */
4422         if (!INT21_GetDriveAllocInfo(context, DL_reg(context)))
4423             SET_AX( context, 0xffff );
4424         break;
4425
4426     case 0x1d: /* NULL FUNCTION FOR CP/M COMPATIBILITY */
4427     case 0x1e: /* NULL FUNCTION FOR CP/M COMPATIBILITY */
4428         SET_AL( context, 0 );
4429         break;
4430
4431     case 0x1f: /* GET DRIVE PARAMETER BLOCK FOR DEFAULT DRIVE */
4432         {
4433             BYTE drive = INT21_MapDrive( 0 );
4434             TRACE( "GET DPB FOR DEFAULT DRIVE\n" );
4435
4436             if (INT21_FillDrivePB( drive ))
4437             {
4438                 SET_AL( context, 0x00 ); /* success */
4439                 SET_BX( context, offsetof( INT21_HEAP, misc_dpb_list[drive] ) );
4440                 context->SegDs = INT21_GetHeapSelector( context );
4441             }
4442             else
4443             {
4444                 SET_AL( context, 0xff ); /* invalid or network drive */
4445             }
4446         }
4447         break;
4448
4449     case 0x20: /* NULL FUNCTION FOR CP/M COMPATIBILITY */
4450         SET_AL( context, 0 );
4451         break;
4452
4453     case 0x21: /* READ RANDOM RECORD FROM FCB FILE */
4454         INT21_ReadRandomRecordFromFCB( context );
4455         break;
4456
4457     case 0x22: /* WRITE RANDOM RECORD TO FCB FILE */
4458         INT21_WriteRandomRecordToFCB( context );
4459         break;
4460
4461     case 0x23: /* GET FILE SIZE FOR FCB */
4462     case 0x24: /* SET RANDOM RECORD NUMBER FOR FCB */
4463         INT_BARF( context, 0x21 );
4464         break;
4465
4466     case 0x25: /* SET INTERRUPT VECTOR */
4467         TRACE("SET INTERRUPT VECTOR 0x%02x\n",AL_reg(context));
4468         {
4469             FARPROC16 ptr = (FARPROC16)MAKESEGPTR( context->SegDs, DX_reg(context) );
4470             if (!ISV86(context) && DOSVM_IsWin16())
4471                 DOSVM_SetPMHandler16(  AL_reg(context), ptr );
4472             else
4473                 DOSVM_SetRMHandler( AL_reg(context), ptr );
4474         }
4475         break;
4476
4477     case 0x26: /* CREATE NEW PROGRAM SEGMENT PREFIX */
4478         INT_BARF( context, 0x21 );
4479         break;
4480
4481     case 0x27: /* RANDOM BLOCK READ FROM FCB FILE */
4482         INT21_RandomBlockReadFromFCB( context );
4483         break;
4484
4485     case 0x28: /* RANDOM BLOCK WRITE TO FCB FILE */
4486         INT21_RandomBlockWriteToFCB( context );
4487         break;
4488
4489     case 0x29: /* PARSE FILENAME INTO FCB */
4490         INT21_ParseFileNameIntoFCB(context);
4491         break;
4492
4493     case 0x2a: /* GET SYSTEM DATE */
4494         TRACE( "GET SYSTEM DATE\n" );
4495         {
4496             SYSTEMTIME systime;
4497             GetLocalTime( &systime );
4498             SET_CX( context, systime.wYear );
4499             SET_DH( context, systime.wMonth );
4500             SET_DL( context, systime.wDay );
4501             SET_AL( context, systime.wDayOfWeek );
4502         }
4503         break;
4504
4505     case 0x2b: /* SET SYSTEM DATE */
4506         TRACE( "SET SYSTEM DATE\n" );
4507         {
4508             WORD year  = CX_reg(context);
4509             BYTE month = DH_reg(context);
4510             BYTE day   = DL_reg(context);
4511
4512             if (year  >= 1980 && year  <= 2099 &&
4513                 month >= 1    && month <= 12   &&
4514                 day   >= 1    && day   <= 31)
4515             {
4516                 FIXME( "SetSystemDate(%02d/%02d/%04d): not allowed\n",
4517                        day, month, year );
4518                 SET_AL( context, 0 );  /* Let's pretend we succeeded */
4519             }
4520             else
4521             {
4522                 SET_AL( context, 0xff ); /* invalid date */
4523                 TRACE( "SetSystemDate(%02d/%02d/%04d): invalid date\n",
4524                        day, month, year );
4525             }
4526         }
4527         break;
4528
4529     case 0x2c: /* GET SYSTEM TIME */
4530         TRACE( "GET SYSTEM TIME\n" );
4531         {
4532             SYSTEMTIME systime;
4533             GetLocalTime( &systime );
4534             SET_CH( context, systime.wHour );
4535             SET_CL( context, systime.wMinute );
4536             SET_DH( context, systime.wSecond );
4537             SET_DL( context, systime.wMilliseconds / 10 );
4538         }
4539         break;
4540
4541     case 0x2d: /* SET SYSTEM TIME */
4542         if( CH_reg(context) >= 24 || CL_reg(context) >= 60 || DH_reg(context) >= 60 || DL_reg(context) >= 100 ) {
4543             TRACE("SetSystemTime(%02d:%02d:%02d.%02d): wrong time\n",
4544               CH_reg(context), CL_reg(context),
4545               DH_reg(context), DL_reg(context) );
4546             SET_AL( context, 0xFF );
4547         }
4548         else
4549         {
4550             FIXME("SetSystemTime(%02d:%02d:%02d.%02d): not allowed\n",
4551                   CH_reg(context), CL_reg(context),
4552                   DH_reg(context), DL_reg(context) );
4553             SET_AL( context, 0 );  /* Let's pretend we succeeded */
4554         }
4555         break;
4556
4557     case 0x2e: /* SET VERIFY FLAG */
4558         TRACE("SET VERIFY FLAG ignored\n");
4559         /* we cannot change the behaviour anyway, so just ignore it */
4560         break;
4561
4562     case 0x2f: /* GET DISK TRANSFER AREA ADDRESS */
4563         TRACE( "GET DISK TRANSFER AREA ADDRESS\n" );
4564         {
4565             TDB *task = GlobalLock16( GetCurrentTask() );
4566             context->SegEs = SELECTOROF( task->dta );
4567             SET_BX( context, OFFSETOF( task->dta ) );
4568         }
4569         break;
4570
4571     case 0x30: /* GET DOS VERSION */
4572         TRACE( "GET DOS VERSION - %s requested\n",
4573                (AL_reg(context) == 0x00) ? "OEM number" : "version flag" );
4574
4575         if (AL_reg(context) == 0x00)
4576             SET_BH( context, 0xff ); /* OEM number => undefined */
4577         else
4578             SET_BH( context, 0x08 ); /* version flag => DOS is in ROM */
4579
4580         SET_AL( context, HIBYTE(HIWORD(GetVersion16())) ); /* major version */
4581         SET_AH( context, LOBYTE(HIWORD(GetVersion16())) ); /* minor version */
4582
4583         SET_BL( context, 0x12 );     /* 0x123456 is 24-bit Wine's serial # */
4584         SET_CX( context, 0x3456 );
4585         break;
4586
4587     case 0x31: /* TERMINATE AND STAY RESIDENT */
4588         FIXME("TERMINATE AND STAY RESIDENT stub\n");
4589         break;
4590
4591     case 0x32: /* GET DOS DRIVE PARAMETER BLOCK FOR SPECIFIC DRIVE */
4592         {
4593             BYTE drive = INT21_MapDrive( DL_reg(context) );
4594             TRACE( "GET DPB FOR SPECIFIC DRIVE %d\n", DL_reg(context) );
4595
4596             if (INT21_FillDrivePB( drive ))
4597             {
4598                 SET_AL( context, 0x00 ); /* success */
4599                 SET_DX( context, offsetof( INT21_HEAP, misc_dpb_list[drive] ) );
4600                 context->SegDs = INT21_GetHeapSelector( context );
4601             }
4602             else
4603             {
4604                 SET_AL( context, 0xff ); /* invalid or network drive */
4605             }
4606         }
4607         break;
4608
4609     case 0x33: /* MULTIPLEXED */
4610         switch (AL_reg(context))
4611         {
4612         case 0x00: /* GET CURRENT EXTENDED BREAK STATE */
4613             TRACE("GET CURRENT EXTENDED BREAK STATE\n");
4614             SET_DL( context, DOSCONF_GetConfig()->brk_flag );
4615             break;
4616
4617         case 0x01: /* SET EXTENDED BREAK STATE */
4618             TRACE("SET CURRENT EXTENDED BREAK STATE\n");
4619             DOSCONF_GetConfig()->brk_flag = (DL_reg(context) > 0) ? 1 : 0;
4620             break;
4621
4622         case 0x02: /* GET AND SET EXTENDED CONTROL-BREAK CHECKING STATE*/
4623             TRACE("GET AND SET EXTENDED CONTROL-BREAK CHECKING STATE\n");
4624             /* ugly coding in order to stay reentrant */
4625             if (DL_reg(context))
4626             {
4627                 SET_DL( context, DOSCONF_GetConfig()->brk_flag );
4628                 DOSCONF_GetConfig()->brk_flag = 1;
4629             }
4630             else
4631             {
4632                 SET_DL( context, DOSCONF_GetConfig()->brk_flag );
4633                 DOSCONF_GetConfig()->brk_flag = 0;
4634             }
4635             break;
4636
4637         case 0x05: /* GET BOOT DRIVE */
4638             TRACE("GET BOOT DRIVE\n");
4639             SET_DL( context, 3 );
4640             /* c: is Wine's bootdrive (a: is 1)*/
4641             break;
4642
4643         case 0x06: /* GET TRUE VERSION NUMBER */
4644             TRACE("GET TRUE VERSION NUMBER\n");
4645             SET_BL( context, HIBYTE(HIWORD(GetVersion16())) ); /* major */
4646             SET_BH( context, LOBYTE(HIWORD(GetVersion16())) ); /* minor */
4647             SET_DL( context, 0x00 ); /* revision */
4648             SET_DH( context, 0x08 ); /* DOS is in ROM */
4649             break;
4650
4651         default:
4652             INT_BARF( context, 0x21 );
4653             break;
4654         }
4655         break;
4656
4657     case 0x34: /* GET ADDRESS OF INDOS FLAG */
4658         TRACE( "GET ADDRESS OF INDOS FLAG\n" );
4659         context->SegEs = INT21_GetHeapSelector( context );
4660         SET_BX( context, offsetof(INT21_HEAP, misc_indos) );
4661         break;
4662
4663     case 0x35: /* GET INTERRUPT VECTOR */
4664         TRACE("GET INTERRUPT VECTOR 0x%02x\n",AL_reg(context));
4665         {
4666             FARPROC16 addr;
4667             if (!ISV86(context) && DOSVM_IsWin16())
4668                 addr = DOSVM_GetPMHandler16( AL_reg(context) );
4669             else
4670                 addr = DOSVM_GetRMHandler( AL_reg(context) );
4671             context->SegEs = SELECTOROF(addr);
4672             SET_BX( context, OFFSETOF(addr) );
4673         }
4674         break;
4675
4676     case 0x36: /* GET FREE DISK SPACE */
4677         TRACE("GET FREE DISK SPACE FOR DRIVE %s (limited to about 1GB)\n",
4678               INT21_DriveName( DL_reg(context) ));
4679         if (!INT21_GetFreeDiskSpace(context)) SET_AX( context, 0xffff );
4680         break;
4681
4682     case 0x37: /* SWITCHAR */
4683         {
4684             switch (AL_reg(context))
4685             {
4686             case 0x00: /* "SWITCHAR" - GET SWITCH CHARACTER */
4687                 TRACE( "SWITCHAR - GET SWITCH CHARACTER\n" );
4688                 SET_AL( context, 0x00 ); /* success*/
4689                 SET_DL( context, '/' );
4690                 break;
4691             case 0x01: /*"SWITCHAR" - SET SWITCH CHARACTER*/
4692                 FIXME( "SWITCHAR - SET SWITCH CHARACTER: %c\n",
4693                        DL_reg( context ));
4694                 SET_AL( context, 0x00 ); /* success*/
4695                 break;
4696             default:
4697                 INT_BARF( context, 0x21 );
4698                 break;
4699             }
4700         }
4701         break;
4702
4703     case 0x38: /* GET COUNTRY-SPECIFIC INFORMATION */
4704         TRACE( "GET COUNTRY-SPECIFIC INFORMATION\n" );
4705         if (AL_reg(context))
4706         {
4707             WORD country = AL_reg(context);
4708             if (country == 0xff)
4709                 country = BX_reg(context);
4710             if (country != INT21_GetSystemCountryCode()) {
4711                 FIXME( "Requested info on non-default country %04x\n", country );
4712                 SET_AX(context, 2);
4713                 SET_CFLAG(context);
4714             }
4715         }
4716         if(AX_reg(context) != 2 )
4717         {
4718             INT21_FillCountryInformation( CTX_SEG_OFF_TO_LIN(context,
4719                                                              context->SegDs,
4720                                                              context->Edx) );
4721             SET_AX( context, INT21_GetSystemCountryCode() );
4722             SET_BX( context, INT21_GetSystemCountryCode() );
4723             RESET_CFLAG(context);
4724         }
4725         break;
4726
4727     case 0x39: /* "MKDIR" - CREATE SUBDIRECTORY */
4728         if (!INT21_CreateDirectory( context ))
4729             bSetDOSExtendedError = TRUE;
4730         else
4731             RESET_CFLAG(context);
4732         break;
4733
4734     case 0x3a: /* "RMDIR" - REMOVE DIRECTORY */
4735         {
4736             WCHAR dirW[MAX_PATH];
4737             char *dirA = CTX_SEG_OFF_TO_LIN(context,
4738                                             context->SegDs, context->Edx);
4739
4740             TRACE( "REMOVE DIRECTORY %s\n", dirA );
4741
4742             MultiByteToWideChar(CP_OEMCP, 0, dirA, -1, dirW, MAX_PATH);
4743
4744             if (!RemoveDirectoryW( dirW ))
4745                 bSetDOSExtendedError = TRUE;
4746             else
4747                 RESET_CFLAG(context);
4748         }
4749         break;
4750
4751     case 0x3b: /* "CHDIR" - SET CURRENT DIRECTORY */
4752         if (!INT21_SetCurrentDirectory( context ))
4753             bSetDOSExtendedError = TRUE;
4754         else
4755             RESET_CFLAG(context);
4756         break;
4757
4758     case 0x3c: /* "CREAT" - CREATE OR TRUNCATE FILE */
4759         if (!INT21_CreateFile( context, context->Edx, FALSE,
4760                                OF_READWRITE | OF_SHARE_COMPAT, 0x12 ))
4761             bSetDOSExtendedError = TRUE;
4762         else
4763             RESET_CFLAG(context);
4764         break;
4765
4766     case 0x3d: /* "OPEN" - OPEN EXISTING FILE */
4767         if (!INT21_CreateFile( context, context->Edx, FALSE,
4768                                AL_reg(context), 0x01 ))
4769             bSetDOSExtendedError = TRUE;
4770         else
4771             RESET_CFLAG(context);
4772         break;
4773
4774     case 0x3e: /* "CLOSE" - CLOSE FILE */
4775         TRACE( "CLOSE handle %d\n", BX_reg(context) );
4776         if (_lclose16( BX_reg(context) ) == HFILE_ERROR16)
4777             bSetDOSExtendedError = TRUE;
4778         else
4779             RESET_CFLAG(context);
4780         break;
4781
4782     case 0x3f: /* "READ" - READ FROM FILE OR DEVICE */
4783         TRACE( "READ from %d to %04lX:%04X for %d bytes\n",
4784                BX_reg(context),
4785                context->SegDs,
4786                DX_reg(context),
4787                CX_reg(context) );
4788         {
4789             DWORD result;
4790             WORD  count  = CX_reg(context);
4791             BYTE *buffer = CTX_SEG_OFF_TO_LIN( context,
4792                                                context->SegDs,
4793                                                context->Edx );
4794
4795             /* Some programs pass a count larger than the allocated buffer */
4796             if (DOSVM_IsWin16())
4797             {
4798                 DWORD maxcount = GetSelectorLimit16( context->SegDs )
4799                     - DX_reg(context) + 1;
4800                 if (count > maxcount)
4801                     count = maxcount;
4802             }
4803
4804             /*
4805              * FIXME: Reading from console (BX=1) in DOS mode
4806              *        does not work as it is supposed to work.
4807              */
4808
4809             RESET_CFLAG(context); /* set if error */
4810             if (!DOSVM_IsWin16() && BX_reg(context) == 0)
4811             {
4812                 result = INT21_BufferedInput( context, buffer, count );
4813                 SET_AX( context, (WORD)result );
4814             }
4815             else if (ReadFile( DosFileHandleToWin32Handle(BX_reg(context)),
4816                                buffer, count, &result, NULL ))
4817                 SET_AX( context, (WORD)result );
4818             else
4819                 bSetDOSExtendedError = TRUE;
4820         }
4821         break;
4822
4823     case 0x40:  /* "WRITE" - WRITE TO FILE OR DEVICE */
4824         TRACE( "WRITE from %04lX:%04X to handle %d for %d byte\n",
4825                context->SegDs, DX_reg(context),
4826                BX_reg(context), CX_reg(context) );
4827         {
4828             char *ptr = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
4829
4830             if (!DOSVM_IsWin16() &&
4831                 (BX_reg(context) == 1 || BX_reg(context) == 2))
4832             {
4833                 int i;
4834                 for(i=0; i<CX_reg(context); i++)
4835                     DOSVM_PutChar(ptr[i]);
4836                 SET_AX(context, CX_reg(context));
4837                 RESET_CFLAG(context);
4838             }
4839             else
4840             {
4841                 HFILE handle = (HFILE)DosFileHandleToWin32Handle(BX_reg(context));
4842                 LONG result = _hwrite( handle, ptr, CX_reg(context) );
4843                 if (result == HFILE_ERROR)
4844                     bSetDOSExtendedError = TRUE;
4845                 else
4846                 {
4847                     SET_AX( context, (WORD)result );
4848                     RESET_CFLAG(context);
4849                 }
4850             }
4851         }
4852         break;
4853
4854     case 0x41: /* "UNLINK" - DELETE FILE */
4855         {
4856             WCHAR fileW[MAX_PATH];
4857             char *fileA = CTX_SEG_OFF_TO_LIN(context,
4858                                              context->SegDs,
4859                                              context->Edx);
4860
4861             TRACE( "UNLINK %s\n", fileA );
4862             MultiByteToWideChar(CP_OEMCP, 0, fileA, -1, fileW, MAX_PATH);
4863
4864             if (!DeleteFileW( fileW ))
4865                 bSetDOSExtendedError = TRUE;
4866             else
4867                 RESET_CFLAG(context);
4868         }
4869         break;
4870
4871     case 0x42: /* "LSEEK" - SET CURRENT FILE POSITION */
4872         TRACE( "LSEEK handle %d offset %ld from %s\n",
4873                BX_reg(context),
4874                MAKELONG( DX_reg(context), CX_reg(context) ),
4875                (AL_reg(context) == 0) ?
4876                "start of file" : ((AL_reg(context) == 1) ?
4877                                   "current file position" : "end of file") );
4878         {
4879             HANDLE handle = DosFileHandleToWin32Handle(BX_reg(context));
4880             LONG   offset = MAKELONG( DX_reg(context), CX_reg(context) );
4881             DWORD  status = SetFilePointer( handle, offset,
4882                                             NULL, AL_reg(context) );
4883             if (status == INVALID_SET_FILE_POINTER)
4884                 bSetDOSExtendedError = TRUE;
4885             else
4886             {
4887                 SET_AX( context, LOWORD(status) );
4888                 SET_DX( context, HIWORD(status) );
4889                 RESET_CFLAG(context);
4890             }
4891         }
4892         break;
4893
4894     case 0x43: /* FILE ATTRIBUTES */
4895         if (!INT21_FileAttributes( context, AL_reg(context), FALSE ))
4896             bSetDOSExtendedError = TRUE;
4897         else
4898             RESET_CFLAG(context);
4899         break;
4900
4901     case 0x44: /* IOCTL */
4902         INT21_Ioctl( context );
4903         break;
4904
4905     case 0x45: /* "DUP" - DUPLICATE FILE HANDLE */
4906         TRACE( "DUPLICATE FILE HANDLE %d\n", BX_reg(context) );
4907         {
4908             HANDLE handle32;
4909             HFILE  handle16 = HFILE_ERROR;
4910
4911             if (DuplicateHandle( GetCurrentProcess(),
4912                                  DosFileHandleToWin32Handle(BX_reg(context)),
4913                                  GetCurrentProcess(),
4914                                  &handle32,
4915                                  0, TRUE, DUPLICATE_SAME_ACCESS ))
4916                 handle16 = Win32HandleToDosFileHandle(handle32);
4917
4918             if (handle16 == HFILE_ERROR)
4919                 bSetDOSExtendedError = TRUE;
4920             else
4921             {
4922                 SET_AX( context, handle16 );
4923                 RESET_CFLAG(context);
4924             }
4925         }
4926         break;
4927
4928     case 0x46: /* "DUP2", "FORCEDUP" - FORCE DUPLICATE FILE HANDLE */
4929         TRACE( "FORCEDUP - FORCE DUPLICATE FILE HANDLE %d to %d\n",
4930                BX_reg(context), CX_reg(context) );
4931         if (!INT21_Dup2(BX_reg(context), CX_reg(context)))
4932             bSetDOSExtendedError = TRUE;
4933         else
4934             RESET_CFLAG(context);
4935         break;
4936
4937     case 0x47: /* "CWD" - GET CURRENT DIRECTORY */
4938         if (!INT21_GetCurrentDirectory( context, FALSE ))
4939             bSetDOSExtendedError = TRUE;
4940         else
4941             RESET_CFLAG(context);
4942         break;
4943
4944     case 0x48: /* ALLOCATE MEMORY */
4945         TRACE( "ALLOCATE MEMORY for %d paragraphs\n", BX_reg(context) );
4946         {
4947             WORD  selector = 0;
4948             DWORD bytes = (DWORD)BX_reg(context) << 4;
4949
4950             if (!ISV86(context) && DOSVM_IsWin16())
4951             {
4952                 DWORD rv = GlobalDOSAlloc16( bytes );
4953                 selector = LOWORD( rv );
4954             }
4955             else
4956                 DOSMEM_AllocBlock( bytes, &selector );
4957
4958             if (selector)
4959             {
4960                 SET_AX( context, selector );
4961                 RESET_CFLAG(context);
4962             }
4963             else
4964             {
4965                 SET_CFLAG(context);
4966                 SET_AX( context, 0x0008 ); /* insufficient memory */
4967                 SET_BX( context, DOSMEM_Available() >> 4 );
4968             }
4969         }
4970         break;
4971
4972     case 0x49: /* FREE MEMORY */
4973         TRACE( "FREE MEMORY segment %04lX\n", context->SegEs );
4974         {
4975             BOOL ok;
4976
4977             if (!ISV86(context) && DOSVM_IsWin16())
4978             {
4979                 ok = !GlobalDOSFree16( context->SegEs );
4980
4981                 /* If we don't reset ES_reg, we will fail in the relay code */
4982                 if (ok)
4983                     context->SegEs = 0;
4984             }
4985             else
4986                 ok = DOSMEM_FreeBlock( PTR_REAL_TO_LIN(context->SegEs, 0) );
4987
4988             if (!ok)
4989             {
4990                 TRACE("FREE MEMORY failed\n");
4991                 SET_CFLAG(context);
4992                 SET_AX( context, 0x0009 ); /* memory block address invalid */
4993             }
4994         }
4995         break;
4996
4997     case 0x4a: /* RESIZE MEMORY BLOCK */
4998         TRACE( "RESIZE MEMORY segment %04lX to %d paragraphs\n",
4999                context->SegEs, BX_reg(context) );
5000         {
5001             DWORD newsize = (DWORD)BX_reg(context) << 4;
5002
5003             if (!ISV86(context) && DOSVM_IsWin16())
5004             {
5005                 FIXME( "Resize memory block - unsupported under Win16\n" );
5006                 SET_CFLAG(context);
5007             }
5008             else
5009             {
5010                 LPVOID address = (void*)((DWORD)context->SegEs << 4);
5011                 UINT blocksize = DOSMEM_ResizeBlock( address, newsize, FALSE );
5012
5013                 RESET_CFLAG(context);
5014                 if (blocksize == (UINT)-1)
5015                 {
5016                     SET_CFLAG( context );
5017                     SET_AX( context, 0x0009 ); /* illegal address */
5018                 }
5019                 else if(blocksize != newsize)
5020                 {
5021                     SET_CFLAG( context );
5022                     SET_AX( context, 0x0008 );    /* insufficient memory */
5023                     SET_BX( context, blocksize >> 4 ); /* new block size */
5024                 }
5025             }
5026         }
5027         break;
5028
5029     case 0x4b: /* "EXEC" - LOAD AND/OR EXECUTE PROGRAM */
5030         {
5031             char *program = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
5032             BYTE *paramblk = CTX_SEG_OFF_TO_LIN(context, context->SegEs, context->Ebx);
5033
5034             TRACE( "EXEC %s\n", program );
5035
5036             RESET_CFLAG(context);
5037             if (DOSVM_IsWin16())
5038             {
5039                 HINSTANCE16 instance = WinExec16( program, SW_NORMAL );
5040                 if (instance < 32)
5041                 {
5042                     SET_CFLAG( context );
5043                     SET_AX( context, instance );
5044                 }
5045             }
5046             else
5047             {
5048                 if (!MZ_Exec( context, program, AL_reg(context), paramblk))
5049                     bSetDOSExtendedError = TRUE;
5050             }
5051         }
5052         break;
5053
5054     case 0x4c: /* "EXIT" - TERMINATE WITH RETURN CODE */
5055         TRACE( "EXIT with return code %d\n", AL_reg(context) );
5056         if (DOSVM_IsWin16())
5057             ExitThread( AL_reg(context) );
5058         else if(ISV86(context))
5059             MZ_Exit( context, FALSE, AL_reg(context) );
5060         else
5061         {
5062             /*
5063              * Exit from DPMI.
5064              */
5065             DWORD rv = AL_reg(context);
5066             RaiseException( EXCEPTION_VM86_INTx, 0, 1, &rv );
5067         }
5068         break;
5069
5070     case 0x4d: /* GET RETURN CODE */
5071         TRACE("GET RETURN CODE (ERRORLEVEL)\n");
5072         SET_AX( context, DOSVM_retval );
5073         DOSVM_retval = 0;
5074         break;
5075
5076     case 0x4e: /* "FINDFIRST" - FIND FIRST MATCHING FILE */
5077         TRACE("FINDFIRST mask 0x%04x spec %s\n",CX_reg(context),
5078               (LPCSTR)CTX_SEG_OFF_TO_LIN(context,  context->SegDs, context->Edx));
5079         if (!INT21_FindFirst(context)) break;
5080         /* fall through */
5081
5082     case 0x4f: /* "FINDNEXT" - FIND NEXT MATCHING FILE */
5083         TRACE("FINDNEXT\n");
5084         if (!INT21_FindNext(context))
5085         {
5086             SetLastError( ERROR_NO_MORE_FILES );
5087             SET_AX( context, ERROR_NO_MORE_FILES );
5088             SET_CFLAG(context);
5089         }
5090         else SET_AX( context, 0 );  /* OK */
5091         break;
5092
5093     case 0x50: /* SET CURRENT PROCESS ID (SET PSP ADDRESS) */
5094         TRACE("SET CURRENT PROCESS ID (SET PSP ADDRESS)\n");
5095         DOSVM_psp = BX_reg(context);
5096         break;
5097
5098     case 0x51: /* GET PSP ADDRESS */
5099         INT21_GetPSP( context );
5100         break;
5101
5102     case 0x52: /* "SYSVARS" - GET LIST OF LISTS */
5103         {
5104             SEGPTR ptr = DOSDEV_GetLOL( ISV86(context) || !DOSVM_IsWin16() );
5105             context->SegEs = SELECTOROF(ptr);
5106             SET_BX( context, OFFSETOF(ptr) );
5107         }
5108         break;
5109
5110     case 0x54: /* Get Verify Flag */
5111         TRACE("Get Verify Flag - Not Supported\n");
5112         SET_AL( context, 0x00 );  /* pretend we can tell. 00h = off 01h = on */
5113         break;
5114
5115     case 0x56: /* "RENAME" - RENAME FILE */
5116         if (!INT21_RenameFile( context ))
5117             bSetDOSExtendedError = TRUE;
5118         else
5119             RESET_CFLAG(context);
5120         break;
5121
5122     case 0x57: /* FILE DATE AND TIME */
5123         if (!INT21_FileDateTime( context ))
5124             bSetDOSExtendedError = TRUE;
5125         else
5126             RESET_CFLAG(context);
5127         break;
5128
5129     case 0x58: /* GET OR SET MEMORY ALLOCATION STRATEGY */
5130         switch (AL_reg(context))
5131         {
5132         case 0x00: /* GET MEMORY ALLOCATION STRATEGY */
5133             TRACE( "GET MEMORY ALLOCATION STRATEGY\n" );
5134             SET_AX( context, 0 ); /* low memory first fit */
5135             break;
5136
5137         case 0x01: /* SET ALLOCATION STRATEGY */
5138             TRACE( "SET MEMORY ALLOCATION STRATEGY to %d - ignored\n",
5139                    BL_reg(context) );
5140             break;
5141
5142         case 0x02: /* GET UMB LINK STATE */
5143             TRACE( "GET UMB LINK STATE\n" );
5144             SET_AL( context, 0 ); /* UMBs not part of DOS memory chain */
5145             break;
5146
5147         case 0x03: /* SET UMB LINK STATE */
5148             TRACE( "SET UMB LINK STATE to %d - ignored\n",
5149                    BX_reg(context) );
5150             break;
5151
5152         default:
5153             INT_BARF( context, 0x21 );
5154         }
5155         break;
5156
5157     case 0x59: /* GET EXTENDED ERROR INFO */
5158         INT21_GetExtendedError( context );
5159         break;
5160
5161     case 0x5a: /* CREATE TEMPORARY FILE */
5162         TRACE("CREATE TEMPORARY FILE\n");
5163         bSetDOSExtendedError = !INT21_CreateTempFile(context);
5164         break;
5165
5166     case 0x5b: /* CREATE NEW FILE */
5167         if (!INT21_CreateFile( context, context->Edx, FALSE,
5168                                OF_READWRITE | OF_SHARE_COMPAT, 0x10 ))
5169             bSetDOSExtendedError = TRUE;
5170         else
5171             RESET_CFLAG(context);
5172         break;
5173
5174     case 0x5c: /* "FLOCK" - RECORD LOCKING */
5175         {
5176             DWORD  offset = MAKELONG(DX_reg(context), CX_reg(context));
5177             DWORD  length = MAKELONG(DI_reg(context), SI_reg(context));
5178             HANDLE handle = DosFileHandleToWin32Handle(BX_reg(context));
5179
5180             RESET_CFLAG(context);
5181             switch (AL_reg(context))
5182             {
5183             case 0x00: /* LOCK */
5184                 TRACE( "lock handle %d offset %ld length %ld\n",
5185                        BX_reg(context), offset, length );
5186                 if (!LockFile( handle, offset, 0, length, 0 ))
5187                     bSetDOSExtendedError = TRUE;
5188                 break;
5189
5190             case 0x01: /* UNLOCK */
5191                 TRACE( "unlock handle %d offset %ld length %ld\n",
5192                        BX_reg(context), offset, length );
5193                 if (!UnlockFile( handle, offset, 0, length, 0 ))
5194                     bSetDOSExtendedError = TRUE;
5195                 break;
5196
5197             default:
5198                 INT_BARF( context, 0x21 );
5199             }
5200         }
5201         break;
5202
5203     case 0x5d: /* NETWORK 5D */
5204         FIXME( "Network function 5D not implemented.\n" );
5205         SetLastError( ER_NoNetwork );
5206         bSetDOSExtendedError = TRUE;
5207         break;
5208
5209     case 0x5e: /* NETWORK 5E */
5210         bSetDOSExtendedError = INT21_NetworkFunc( context);
5211         break;
5212
5213     case 0x5f: /* NETWORK 5F */
5214         /* FIXME: supporting this would need to 1:
5215          * - implement per drive current directory (as kernel32 doesn't)
5216          * - assign enabled/disabled flag on a per drive basis
5217          */
5218         /* network software not installed */
5219         TRACE("NETWORK function AX=%04x not implemented\n",AX_reg(context));
5220         SetLastError( ER_NoNetwork );
5221         bSetDOSExtendedError = TRUE;
5222         break;
5223
5224     case 0x60: /* "TRUENAME" - CANONICALIZE FILENAME OR PATH */
5225         {
5226             WCHAR       pathW[MAX_PATH], res[MAX_PATH];
5227             /* FIXME: likely to be broken */
5228
5229             TRACE("TRUENAME %s\n",
5230                   (LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Esi));
5231             MultiByteToWideChar(CP_OEMCP, 0, CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Esi), -1, pathW, MAX_PATH);
5232             if (!GetFullPathNameW( pathW, 128, res, NULL ))
5233                 bSetDOSExtendedError = TRUE;
5234             else
5235             {
5236                 SET_AX( context, 0 );
5237                 WideCharToMultiByte(CP_OEMCP, 0, res, -1,
5238                                     CTX_SEG_OFF_TO_LIN(context, context->SegEs, context->Edi),
5239                                     128, NULL, NULL);
5240             }
5241         }
5242         break;
5243
5244     case 0x61: /* UNUSED */
5245         SET_AL( context, 0 );
5246         break;
5247
5248     case 0x62: /* GET PSP ADDRESS */
5249         INT21_GetPSP( context );
5250         break;
5251
5252     case 0x63: /* MISC. LANGUAGE SUPPORT */
5253         switch (AL_reg(context)) {
5254         case 0x00: /* GET DOUBLE BYTE CHARACTER SET LEAD-BYTE TABLE */
5255             TRACE( "GET DOUBLE BYTE CHARACTER SET LEAD-BYTE TABLE\n" );
5256             context->SegDs = INT21_GetHeapSelector( context );
5257             SET_SI( context, offsetof(INT21_HEAP, dbcs_table) );
5258             SET_AL( context, 0 ); /* success */
5259             break;
5260         }
5261         break;
5262
5263     case 0x64: /* OS/2 DOS BOX */
5264         INT_BARF( context, 0x21 );
5265         SET_CFLAG(context);
5266         break;
5267
5268     case 0x65: /* EXTENDED COUNTRY INFORMATION */
5269         INT21_ExtendedCountryInformation( context );
5270         break;
5271
5272     case 0x66: /* GLOBAL CODE PAGE TABLE */
5273         switch (AL_reg(context))
5274         {
5275         case 0x01:
5276             TRACE( "GET GLOBAL CODE PAGE TABLE\n" );
5277             SET_BX( context, GetOEMCP() );
5278             SET_DX( context, GetOEMCP() );
5279             break;
5280         case 0x02:
5281             FIXME( "SET GLOBAL CODE PAGE TABLE, active %d, system %d - ignored\n",
5282                    BX_reg(context), DX_reg(context) );
5283             break;
5284         }
5285         break;
5286
5287     case 0x67: /* SET HANDLE COUNT */
5288         TRACE( "SET HANDLE COUNT to %d\n", BX_reg(context) );
5289         if (SetHandleCount( BX_reg(context) ) < BX_reg(context) )
5290             bSetDOSExtendedError = TRUE;
5291         break;
5292
5293     case 0x68: /* "FFLUSH" - COMMIT FILE */
5294         TRACE( "FFLUSH - handle %d\n", BX_reg(context) );
5295         if (!FlushFileBuffers( DosFileHandleToWin32Handle(BX_reg(context)) ))
5296             bSetDOSExtendedError = TRUE;
5297         break;
5298
5299     case 0x69: /* DISK SERIAL NUMBER */
5300         switch (AL_reg(context))
5301         {
5302         case 0x00:
5303             TRACE("GET DISK SERIAL NUMBER for drive %s\n",
5304                   INT21_DriveName(BL_reg(context)));
5305             if (!INT21_GetDiskSerialNumber(context)) bSetDOSExtendedError = TRUE;
5306             else SET_AX( context, 0 );
5307             break;
5308
5309         case 0x01:
5310             TRACE("SET DISK SERIAL NUMBER for drive %s\n",
5311                   INT21_DriveName(BL_reg(context)));
5312             if (!INT21_SetDiskSerialNumber(context)) bSetDOSExtendedError = TRUE;
5313             else SET_AX( context, 1 );
5314             break;
5315         }
5316         break;
5317
5318     case 0x6a: /* COMMIT FILE */
5319         TRACE( "COMMIT FILE - handle %d\n", BX_reg(context) );
5320         if (!FlushFileBuffers( DosFileHandleToWin32Handle(BX_reg(context)) ))
5321             bSetDOSExtendedError = TRUE;
5322         break;
5323
5324     case 0x6b: /* NULL FUNCTION FOR CP/M COMPATIBILITY */
5325         SET_AL( context, 0 );
5326         break;
5327
5328     case 0x6c: /* EXTENDED OPEN/CREATE */
5329         if (!INT21_CreateFile( context, context->Esi, TRUE,
5330                                BX_reg(context), DL_reg(context) ))
5331             bSetDOSExtendedError = TRUE;
5332         break;
5333
5334     case 0x70: /* MSDOS 7 - GET/SET INTERNATIONALIZATION INFORMATION */
5335         FIXME( "MS-DOS 7 - GET/SET INTERNATIONALIZATION INFORMATION\n" );
5336         SET_CFLAG( context );
5337         SET_AL( context, 0 );
5338         break;
5339
5340     case 0x71: /* MSDOS 7 - LONG FILENAME FUNCTIONS */
5341         INT21_LongFilename( context );
5342         break;
5343
5344     case 0x73: /* MSDOS7 - FAT32 */
5345         RESET_CFLAG( context );
5346         if (!INT21_Fat32( context ))
5347             bSetDOSExtendedError = TRUE;
5348         break;
5349
5350     case 0xdc: /* CONNECTION SERVICES - GET CONNECTION NUMBER */
5351         TRACE( "CONNECTION SERVICES - GET CONNECTION NUMBER - ignored\n" );
5352         break;
5353
5354     case 0xea: /* NOVELL NETWARE - RETURN SHELL VERSION */
5355         TRACE( "NOVELL NETWARE - RETURN SHELL VERSION - ignored\n" );
5356         break;
5357
5358     case 0xff: /* DOS32 EXTENDER (DOS/4GW) - API */
5359         /* we don't implement a DOS32 extender */
5360         TRACE( "DOS32 EXTENDER API - ignored\n" );
5361         break;
5362
5363     default:
5364         INT_BARF( context, 0x21 );
5365         break;
5366
5367     } /* END OF SWITCH */
5368
5369     /* Set general error condition. */
5370     if (bSetDOSExtendedError)
5371     {
5372         SET_AX( context, GetLastError() );
5373         SET_CFLAG( context );
5374     }
5375
5376     /* Print error code if carry flag is set. */
5377     if (context->EFlags & 0x0001)
5378         TRACE("failed, error %ld\n", GetLastError() );
5379
5380     TRACE( "returning: AX=%04x BX=%04x CX=%04x DX=%04x "
5381            "SI=%04x DI=%04x DS=%04x ES=%04x EFL=%08lx\n",
5382            AX_reg(context), BX_reg(context),
5383            CX_reg(context), DX_reg(context),
5384            SI_reg(context), DI_reg(context),
5385            (WORD)context->SegDs, (WORD)context->SegEs,
5386            context->EFlags );
5387 }