[!HAVE_X_WINDOWS]:

Reworked display code to perform immediate screen output.
Added menu-bar clock.
Reworked keyboard code to support international keyboards.
Improved keypad handling (see dos-keypad-mode).
Properly distinguish between C-end and C-kp-1 etc.
Corrected M-return & M-kp-enter.
Added support for hyper and super keys.
Reworked mouse code to avoid mouse flicker.
Saves and restores DOS-screen prior to emacs startup.
(sys_select): Would abort if rfds = NULL.
(dos_direct_output): New function.
(dos_dump_scancodes): New variable.

1 files changed, 1698 insertions, 1295 deletions

diff --git a/src/msdos.c b/src/msdos.c
index a72e59a315a..cf064306cec 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -18,6 +18,7 @@ along with GNU Emacs; see the file COPYING.  If not, write to
 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 /* Contributed by Morten Welinder */
+/* New display, keyboard, and mouse control by Kim F. Storm */
 
 /* Note: some of the stuff here was taken from end of sysdep.c in demacs. */
 
@@ -45,850 +46,242 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 /* Damn that local process.h!  Instead we can define P_WAIT ourselves.  */
 #define P_WAIT 1
 
-static int break_stat;	 /* BREAK check mode status.	*/
-static int stdin_stat;	 /* stdin IOCTL status.		*/
-static int extended_kbd; /* 101 (102) keyboard present.	*/
-
-int have_mouse;          /* Mouse present?		*/
-static int mouse_last_x;
-static int mouse_last_y;
-
-#define DO_TERMSCRIPT	/* define if you want open-termscript to work on msdos */
-
-/* Standard putchar may call _flsbuf which doesn't go through
-   fflush's overlayed internal_flush routine. */
-#undef putchar
-#define putchar(x) \
-  (--(stdout)->_cnt>=0? \
-  ((int)((unsigned char)((*(stdout)->_ptr++=(unsigned)(x))))): \
-  (internal_flush (stdout), --(stdout)->_cnt, *(stdout)->_ptr++=(unsigned)(x)))
-
-static void
-mouse_get_xy (int *x, int *y);
-
-/*  Turn off Dos' Ctrl-C checking and inhibit interpretation of control chars
-    by Dos.  Determine the keyboard type.  */
-int
-dos_ttraw ()
-{
-  union REGS inregs, outregs;
-  static int only_once = 1;
-  
-  if (only_once) {
-    inregs.h.ah = 0xc0;
-    int86 (0x15, &inregs, &outregs);
-    extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0);
-  }
-  
-  break_stat = getcbrk ();
-  setcbrk (0);
-  install_ctrl_break_check ();
-
-  if (only_once)
-    have_mouse = mouse_init1 ();
-
-  inregs.x.ax = 0x4400;		/* Get IOCTL status. */
-  inregs.x.bx = 0x00;		/* 0 = stdin. */
-  intdos (&inregs, &outregs);
-  stdin_stat = outregs.h.dl;
-
-  only_once = 0;
-  
-  inregs.x.dx = stdin_stat | 0x0020; /* raw mode */
-  inregs.x.ax = 0x4401;		/* Set IOCTL status */
-  intdos (&inregs, &outregs);
-  return !outregs.x.cflag;
-}
-
-/*  Restore status of standard input and Ctrl-C checking.  */
-int
-dos_ttcooked ()
-{
-  union REGS inregs, outregs;
-
-  setcbrk (break_stat);
-  mouse_off ();
-
-  inregs.x.ax = 0x4401;	/* Set IOCTL status.	*/
-  inregs.x.bx = 0x00;	/* 0 = stdin.		*/
-  inregs.x.dx = stdin_stat;
-  intdos (&inregs, &outregs);
-  return !outregs.x.cflag;
-}
-
-/* generate a reliable event timestamp, KFS 1995-07-06 */
 
 static unsigned long
 event_timestamp ()
 {
   struct time t;
   unsigned long s;
-	
+  
   gettime (&t);
   s = t.ti_min;
   s *= 60;
   s += t.ti_sec;
   s *= 1000;
   s += t.ti_hund * 10;
-	
+  
   return s;
 }
 
-static unsigned short
-ibmpc_translate_map[] =
-{
-  /* --------------- 00 to 0f --------------- */
-  0, /* Ctrl Break */
-  0xff1b, /* Escape */
-  0xffb1, /* Keypad 1 */
-  0xffb2, /* Keypad 2 */
-  0xffb3, /* Keypad 3 */
-  0xffb4, /* Keypad 4 */
-  0xffb5, /* Keypad 5 */
-  0xffb6, /* Keypad 6 */
-  0xffb7, /* Keypad 7 */
-  0xffb8, /* Keypad 8 */
-  0xffb9, /* Keypad 9 */
-  0xffb0, /* Keypad 0 */
-  '-', '=',
-  0xff08, /* Backspace */
-  0xff74, /* (Shift) Tab [Tab doesn't use this table] */
-
-  /* --------------- 10 to 1f --------------- */
-  'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', '[', ']',
-  0xff8d, /* Keypad Enter */
-  0, /* Ctrl */
-  'a', 's',
-
-  /* --------------- 20 to 2f --------------- */
-  'd', 'f', 'g', 'h', 'j', 'k', 'l', ';', '\'', '`',
-  0, /* Left shift */
-  '\\', 'z', 'x', 'c', 'v',
-
-  /* --------------- 30 to 3f --------------- */
-  'b', 'n', 'm', ',', '.',
-  0xffaf, /* Grey / */
-  0, /* Right shift */
-  0xffaa, /* Grey * */
-  0, /* Alt */
-  ' ',
-  0, /* Caps Lock */
-  0xffbe, /* F1 */
-  0xffbf, /* F2 */
-  0xffc0, /* F3 */
-  0xffc1, /* F4 */
-  0xffc2, /* F5 */
-
-  /* --------------- 40 to 4f --------------- */
-  0xffc3, /* F6 */
-  0xffc4, /* F7 */
-  0xffc5, /* F8 */
-  0xffc6, /* F9 */
-  0xffc7, /* F10 */
-  0, /* Num Lock */
-  0, /* Scroll Lock */
-  0xff50, /* Home */
-  0xff52, /* Up */
-  0xff55, /* Page Up */
-  0xffad, /* Grey - */
-  0xff51, /* Left */
-  0xffb5, /* Keypad 5 */
-  0xff53, /* Right */
-  0xffab, /* Grey + */
-  0xff57, /* End */
-
-  /* --------------- 50 to 5f --------------- */
-  0xff54, /* Down */
-  0xff56, /* Page Down */
-  0xff63, /* Insert */
-  0xffff, /* Delete */
-  0xffbe, /* (Shift) F1 */
-  0xffbf, /* (Shift) F2 */
-  0xffc0, /* (Shift) F3 */
-  0xffc1, /* (Shift) F4 */
-  0xffc2, /* (Shift) F5 */
-  0xffc3, /* (Shift) F6 */
-  0xffc4, /* (Shift) F7 */
-  0xffc5, /* (Shift) F8 */
-  0xffc6, /* (Shift) F9 */
-  0xffc7, /* (Shift) F10 */
-  0xffbe, /* (Ctrl) F1 */
-  0xffbf, /* (Ctrl) F2 */
-
-  /* --------------- 60 to 6f --------------- */
-  0xffc0, /* (Ctrl) F3 */
-  0xffc1, /* (Ctrl) F4 */
-  0xffc2, /* (Ctrl) F5 */
-  0xffc3, /* (Ctrl) F6 */
-  0xffc4, /* (Ctrl) F7 */
-  0xffc5, /* (Ctrl) F8 */
-  0xffc6, /* (Ctrl) F9 */
-  0xffc7, /* (Ctrl) F10 */
-  0xffbe, /* (Alt) F1 */
-  0xffbf, /* (Alt) F2 */
-  0xffc0, /* (Alt) F3 */
-  0xffc1, /* (Alt) F4 */
-  0xffc2, /* (Alt) F5 */
-  0xffc3, /* (Alt) F6 */
-  0xffc4, /* (Alt) F7 */
-  0xffc5, /* (Alt) F8 */
+
+/* ------------------------ Mouse control ---------------------------
+ *
+ * Coordinates are in screen positions and zero based.
+ * Mouse buttons are numbered from left to right and also zero based.
+ */
 
-  /* --------------- 70 to 7f --------------- */
-  0xffc6, /* (Alt) F9 */
-  0xffc7, /* (Alt) F10 */
-  0xff6d, /* (Ctrl) Sys Rq */
-  0xff51, /* (Ctrl) Left */
-  0xff53, /* (Ctrl) Right */
-  0xff57, /* (Ctrl) End */
-  0xff56, /* (Ctrl) Page Down */
-  0xff50, /* (Ctrl) Home */
-  '1', '2', '3', '4', '5', '6', '7', '8', /* (Alt) */
+int have_mouse;          /* 0: no, 1: enabled, -1: disabled */
+static int mouse_visible;
 
-  /* --------------- 80 to 8f --------------- */
-  '9', '0', '-', '=', /* (Alt) */
-  0xff55, /* (Ctrl) Page Up */
-  0xffc8, /* F11 */
-  0xffc9, /* F12 */
-  0xffc8, /* (Shift) F11 */
-  0xffc9, /* (Shift) F12 */
-  0xffc8, /* (Ctrl) F11 */
-  0xffc9, /* (Ctrl) F12 */
-  0xffc8, /* (Alt) F11 */
-  0xffc9, /* (Alt) F12 */
-  0xff52, /* (Ctrl) Up */
-  0xffae, /* (Ctrl) Grey - */
-  0xffb5, /* (Ctrl) Keypad 5 */
-
-  /* --------------- 90 to 9f --------------- */
-  0xffab, /* (Ctrl) Grey + */
-  0xff54, /* (Ctrl) Down */
-  0xff63, /* (Ctrl) Insert */
-  0xffff, /* (Ctrl) Delete */
-  0xff09, /* (Ctrl) Tab */
-  0xffaf, /* (Ctrl) Grey / */
-  0xffaa, /* (Ctrl) Grey * */
-  0xff50, /* (Alt) Home */
-  0xff52, /* (Alt) Up */
-  0xff55, /* (Alt) Page Up */
-  0, /* NO KEY */
-  0xff51, /* (Alt) Left */
-  0, /* NO KEY */
-  0xff53, /* (Alt) Right */
-  0, /* NO KEY */
-  0xff57, /* (Alt) End */
+static int mouse_last_x;
+static int mouse_last_y;
 
-  /* --------------- a0 to af --------------- */
-  0xff54, /* (Alt) Down */
-  0xff56, /* (Alt) Page Down */
-  0xff63, /* (Alt) Insert */
-  0xffff, /* (Alt) Delete */
-  0xffaf, /* (Alt) Grey / */
-  0xff09, /* (Alt) Tab */
-  0xff0d  /* (Alt) Enter */
-};
+static int mouse_button_translate[NUM_MOUSE_BUTTONS];
+static int mouse_button_count;
 
-/* Get a char from keyboard.  Function keys are put into the event queue.  */
-static int
-dos_rawgetc ()
+void
+mouse_on ()
 {
-  struct input_event event;
   union REGS regs;
-  int ctrl_p, alt_p, shift_p;
-  
-  /* Calculate modifier bits */
-  regs.h.ah = extended_kbd ? 0x12 : 0x02;
-  int86 (0x16, &regs, &regs);
-  ctrl_p = ((regs.h.al & 4) != 0);
-  shift_p = ((regs.h.al & 3) != 0);
-  /* Please be very careful here not to break international keyboard support.
-     When Keyb.Com is loaded, the key marked `Alt Gr' is used for accessing
-     characters like { and } if their positions are overlaid.  */
-  alt_p = ((extended_kbd ? (regs.h.ah & 2) : (regs.h.al & 8)) != 0);
-
-  /* The following condition is equivalent to `kbhit ()', except that
-     it uses the bios to do its job.  This pleases DESQview/X.  */
-  while ((regs.h.ah = extended_kbd ? 0x11 : 0x01),
-	 int86 (0x16, &regs, &regs),
-	 (regs.x.flags & 0x40) == 0)
-    {
-      union REGS regs;
-      register unsigned char c;
-      int sc, code;
-
-      regs.h.ah = extended_kbd ? 0x10 : 0x00;
-      int86 (0x16, &regs, &regs);
-      c = regs.h.al;
-      sc = regs.h.ah;
-
-      /* Determine from the scan code if a keypad key was pressed.  */
-      if (c >= '0' && c <= '9' && sc > 0xb)
-	sc = (c == '0') ? 0xb : (c - '0' + 1), c = 0;
-      else if (sc == 0x53 && c != 0xe0)
-	{
-	  code = 0xffae;	/* Keypad decimal point/comma.  */
-	  goto nonascii;
-	}
-      else if (sc == 0xe0)
-	{
-	  switch (c)
-	    {
-	    case 10:		/* Ctrl Enter */
-	    case 13:
-	      sc = 0x1c;
-	      break;
-	    case '/':
-	      sc = 0x35;
-	      break;
-	    default:
-	      sc = 0;
-	    };
-	  c = 0;
-	}
 
-      if (c == 0
-	  || c == ' '
-	  || alt_p
-	  || (ctrl_p && shift_p)
-	  || (c == 0xe0 && sc != 0) /* Pseudo-key */
-	  || sc == 0x37		/* Grey * */
-	  || sc == 0x4a		/* Grey - */
-	  || sc == 0x4e		/* Grey + */
-	  || sc == 0x0e)	/* Back space *key*, not Ctrl-h */
-	{
-	  if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short)))
-	    code = 0;
-	  else
-	    code = ibmpc_translate_map[sc];
-	  if (code != 0)
-	    {
-	      if (code >= 0x100)
-		{
-		nonascii:
-		  event.kind = non_ascii_keystroke;
-		  event.code = (code & 0xff) + 0xff00;
-		}
-	      else
-		{
-		  /* Don't return S- if we don't have to.  `shifted' is
-		     supposed to be the shifted versions of the characters
-		     in `unshifted'.  Unfortunately, this is only true for
-		     US keyboard layout.  If anyone knows how to do this
-		     right, please tell us.  */
-		  static char *unshifted
-		    = "abcdefghijklmnopqrstuvwxyz,./=;[\\]'-`0123456789";
-		  static char *shifted
-		    = "ABCDEFGHIJKLMNOPQRSTUVWXYZ<>?+:{|}\"_~)!@#$%^&*(";
-		  char *pos;
-
-		  if (shift_p && (pos = strchr (unshifted, code)))
-		    {
-		      c = shifted[pos - unshifted];
-		      shift_p = 0;
-		    }
-		  else
-		    if (c == 0) c = code;
-		  event.kind = ascii_keystroke;
-		  event.code = c;
-		}
-	      event.modifiers
-		= (shift_p ? shift_modifier : 0)
-		  + (ctrl_p ? ctrl_modifier : 0)
-		    + (alt_p ? meta_modifier : 0);
-	      /* EMACS == Enter Meta Alt Control Shift */
-	      XSETFRAME (event.frame_or_window, selected_frame);
-	      event.timestamp = event_timestamp ();
-	      kbd_buffer_store_event (&event);
-	    }
-	} else
-	  return c;
-    }
-
-  if (have_mouse > 0)
+  if (have_mouse > 0 && !mouse_visible)
     {
-      int but, press, x, y, ok;
-
-      /* Check for mouse movement *before* buttons.  */
-      mouse_check_moved ();
-
-      for (but = 0; but < NUM_MOUSE_BUTTONS; but++)
-	for (press = 0; press < 2; press++)
-	  {
-	    if (press)
-	      ok = mouse_pressed (but, &x, &y);
-	    else
-	      ok = mouse_released (but, &x, &y);
-	    if (ok)
-	      {
-		event.kind = mouse_click;
-		event.code = but;
-		event.modifiers
-		  = (shift_p ? shift_modifier : 0)
-		    + (ctrl_p ? ctrl_modifier : 0)
-		      + (alt_p ? meta_modifier : 0)
-			+ (press ? down_modifier : up_modifier);
-		event.x = x;
-		event.y = y;
-		XSETFRAME (event.frame_or_window, selected_frame);
-		event.timestamp = event_timestamp ();
-		kbd_buffer_store_event (&event);
-	      }
-	  }
+      if (termscript)
+	fprintf (termscript, "<M_ON>");
+      regs.x.ax = 0x0001;
+      int86 (0x33, &regs, &regs);
+      mouse_visible = 1;
     }
-
-  return -1;
 }
 
-static int prev_get_char = -1;
-
-/* Return 1 if a key is ready to be read without suspending execution.  */
-dos_keysns ()
+void
+mouse_off ()
 {
-  if (prev_get_char != -1)
-    return 1;
-  else
-    return ((prev_get_char = dos_rawgetc ()) != -1);
-}
+  union REGS regs;
 
-/* Read a key.  Return -1 if no key is ready.  */
-dos_keyread ()
-{
-  if (prev_get_char != -1)
+  if (have_mouse > 0 && mouse_visible)
     {
-      int c = prev_get_char;
-      prev_get_char = -1;
-      return c;
+      if (termscript)
+	fprintf (termscript, "<M_OFF>");
+      regs.x.ax = 0x0002;
+      int86 (0x33, &regs, &regs);
+      mouse_visible = 0;
     }
-  else
-    return dos_rawgetc ();
 }
 
-/* Hostnames for a pc are not really funny, but they are used in change log
-   so we emulate the best we can.  */
-gethostname (p, size)
-     char *p;
-     int size;
+void
+mouse_moveto (x, y)
+     int x, y;
 {
-  char *q = egetenv ("HOSTNAME");
+  union REGS regs;
 
-  if (!q) q = "pc";
-  strcpy (p, q);
-  return 0;
+  if (termscript)
+    fprintf (termscript, "<M_XY=%dx%d>", x, y);
+  regs.x.ax = 0x0004;
+  mouse_last_x = regs.x.cx = x * 8;
+  mouse_last_y = regs.x.dx = y * 8;
+  int86 (0x33, &regs, &regs);
 }
 
-/* Destructively turn backslashes into slashes.  */
-void
-dostounix_filename (p)
-     register char *p;
+static int
+mouse_pressed (b, xp, yp)
+     int b, *xp, *yp;
 {
-  while (*p)
-    {
-      if (*p == '\\')
-	*p = '/';
-      p++;
-    }
-}
+  union REGS regs;
 
-/* Destructively turn slashes into backslashes.  */
-void
-unixtodos_filename (p)
-     register char *p;
-{
-  while (*p)
-    {
-      if (*p == '/')
-	*p = '\\';
-      p++;
-    }
+  if (b >= mouse_button_count)
+    return 0;
+  regs.x.ax = 0x0005;
+  regs.x.bx = mouse_button_translate[b];
+  int86 (0x33, &regs, &regs);
+  if (regs.x.bx)
+    *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
+  return (regs.x.bx != 0);
 }
 
-/* Get the default directory for a given drive.  0=def, 1=A, 2=B, ...  */
-int
-getdefdir (drive, dst)
-     int drive;
-     char *dst;
+static int
+mouse_released (b, xp, yp)
+     int b, *xp, *yp;
 {
   union REGS regs;
 
-  *dst++ = '/';
-  regs.h.dl = drive;
-  regs.x.si = (int) dst;
-  regs.h.ah = 0x47;
-  intdos (&regs, &regs);
-  return !regs.x.cflag;
+  if (b >= mouse_button_count)
+    return 0;
+  regs.x.ax = 0x0006;
+  regs.x.bx = mouse_button_translate[b];
+  int86 (0x33, &regs, &regs);
+  if (regs.x.bx)
+    *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
+  return (regs.x.bx != 0);
 }
 
-/* Remove all CR's that are followed by a LF.  */
-int
-crlf_to_lf (n, buf)
-     register int n;
-     register unsigned char *buf;
+static void
+mouse_get_xy (int *x, int *y)
 {
-  unsigned char *np = buf;
-  unsigned char *startp = buf;
-  unsigned char *endp = buf + n;
-  unsigned char c;
+  union REGS regs;
 
-  if (n == 0)
-    return n;
-  while (buf < endp - 1)
-    {
-      if (*buf == 0x0d)
-	{
-	  if (*(++buf) != 0x0a)
-	    *np++ = 0x0d;
-	}
-      else
-	*np++ = *buf++;
-    }
-  if (buf < endp)
-    *np++ = *buf++;
-  return np - startp;
+  regs.x.ax = 0x0003;
+  int86 (0x33, &regs, &regs);
+  *x = regs.x.cx / 8;
+  *y = regs.x.dx / 8;
 }
 
-
-/* Run command as specified by ARGV in directory DIR.
-   The command is run with input from TEMPIN and output to file TEMPOUT.  */
-int
-run_msdos_command (argv, dir, tempin, tempout)
-     unsigned char **argv;
-     Lisp_Object dir;
-     int tempin, tempout;
+void
+mouse_get_pos (f, insist, bar_window, part, x, y, time)
+     FRAME_PTR *f;
+     int insist;
+     Lisp_Object *bar_window, *x, *y;
+     enum scroll_bar_part *part;
+     unsigned long *time;
 {
-  char *saveargv1, *saveargv2, **envv;
-  char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS.  */
-  int msshell, result = -1;
-  int in, out, inbak, outbak, errbak;
-  int x, y;
-  Lisp_Object cmd;
-
-  /* Get current directory as MSDOS cwd is not per-process.  */
-  getwd (oldwd);
-
-  cmd = Ffile_name_nondirectory (build_string (argv[0]));
-  msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells"))))
-    && !strcmp ("-c", argv[1]);
-  if (msshell)
-    {
-      saveargv1 = argv[1];
-      saveargv2 = argv[2];
-      argv[1] = "/c";
-      if (argv[2])
-	{
-	  char *p = alloca (strlen (argv[2]) + 1);
-
-	  strcpy (argv[2] = p, saveargv2);
-	  while (*p && isspace (*p))
-	    p++;
-	  while (*p && !isspace (*p))
-	    if (*p == '/')
-	      *p++ = '\\';
-	    else
-	      p++;
-	}
-    }
-
-  /* Build the environment array.  */
-  {
-    extern Lisp_Object Vprocess_environment;
-    Lisp_Object tmp, lst;
-    int i, len;
-
-    lst = Vprocess_environment;
-    len = XFASTINT (Flength (lst));
-
-    envv = alloca ((len + 1) * sizeof (char *));
-    for (i = 0; i < len; i++)
-      {
-	tmp = Fcar (lst);
-	lst = Fcdr (lst);
-	CHECK_STRING (tmp, 0);
-	envv[i] = alloca (XSTRING (tmp)->size + 1);
-	strcpy (envv[i], XSTRING (tmp)->data);
-      }
-    envv[len] = (char *) 0;
-  }
-
-  if (STRINGP (dir))
-    chdir (XSTRING (dir)->data);
-  inbak = dup (0);
-  outbak = dup (1);
-  errbak = dup (2);
-  if (inbak < 0 || outbak < 0 || errbak < 0)
-    goto done; /* Allocation might fail due to lack of descriptors.  */
-
-  if (have_mouse > 0)
-    {
-      mouse_get_xy (&x, &y);
-      mouse_off ();
-    }
-  dos_ttcooked();	/* do it here while 0 = stdin */
-  
-  dup2 (tempin, 0);
-  dup2 (tempout, 1);
-  dup2 (tempout, 2);
-
-  result = spawnve (P_WAIT, argv[0], argv, envv);
-
-  dup2 (inbak, 0);
-  dup2 (outbak, 1);
-  dup2 (errbak, 2);
-  close (inbak);
-  close (outbak);
-  close (errbak);
+  int ix, iy;
+  union REGS regs;
 
-  dos_ttraw();
-  if (have_mouse > 0) {
-    mouse_init ();
-    mouse_moveto (x, y);
-  }
-  
- done:
-  chdir (oldwd);
-  if (msshell)
-    {
-      argv[1] = saveargv1;
-      argv[2] = saveargv2;
-    }
-  return result;
+  regs.x.ax = 0x0003;
+  int86 (0x33, &regs, &regs);
+  *f = selected_frame;
+  *bar_window = Qnil;
+  mouse_get_xy (&ix, &iy);
+  selected_frame->mouse_moved = 0;
+  *x = make_number (ix);
+  *y = make_number (iy);
+  *time = event_timestamp ();
 }
 
-
-croak (badfunc)
-     char *badfunc;
+static void
+mouse_check_moved ()
 {
-  fprintf (stderr, "%s not yet implemented\r\n", badfunc);
-  reset_sys_modes ();
-  exit (1);
-}
-
-/* A list of unimplemented functions that we silently ignore.  */
-unsigned alarm (s) unsigned s; {}
-fork () { return 0; }
-int kill (x, y) int x, y; { return -1; }
-nice (p) int p; {}
-void volatile pause () {}
-request_sigio () {}
-setpgrp () {return 0; }
-setpriority (x,y,z) int x,y,z; { return 0; }
-sigsetmask (x) int x; { return 0; }
-unrequest_sigio () {}
+  int x, y;
 
-#ifdef chdir
-#undef chdir
-#endif
+  mouse_get_xy (&x, &y);
+  selected_frame->mouse_moved |= (x != mouse_last_x || y != mouse_last_y);
+  mouse_last_x = x;
+  mouse_last_y = y;
+}
 
-int
-sys_chdir (path)
-     const char* path;
+void
+mouse_init ()
 {
-  int len = strlen (path);
-  char *tmp = (char *)path;
-  /* Gotta do this extern here due to the corresponding #define: */
-  extern int chdir ();
-
-  if (*tmp && tmp[1] == ':')
-    {
-      if (getdisk () != tolower (tmp[0]) - 'a')
-	setdisk (tolower (tmp[0]) - 'a');
-      tmp += 2;			/* strip drive: KFS 1995-07-06 */
-      len -= 2;
-    }
-  
-  if (len > 1 && (tmp[len - 1] == '/'))
-    {
-      char *tmp1 = (char *) alloca (len + 1);
-      strcpy (tmp1, tmp);
-      tmp1[len - 1] = 0;
-      tmp = tmp1;
-    }
-  return chdir (tmp);
-}
+  union REGS regs;
 
-#ifndef HAVE_SELECT
-#include "sysselect.h"
+  if (termscript)
+    fprintf (termscript, "<M_INIT>");
 
-/* Only event queue is checked.  */
-int
-sys_select (nfds, rfds, wfds, efds, timeout)
-     int nfds;
-     SELECT_TYPE *rfds, *wfds, *efds;
-     EMACS_TIME *timeout;
-{
-  SELECT_TYPE orfds;
-  long timeoutval, clnow, cllast;
-  struct time t;
+  regs.x.ax = 0x0021;
+  int86 (0x33, &regs, &regs);
 
-  FD_ZERO (&orfds);
-  if (rfds)
-    {
-      orfds = *rfds;
-      FD_ZERO (rfds);
-    }
-  if (wfds)
-    FD_ZERO (wfds);
-  if (efds)
-    FD_ZERO (efds);
+  regs.x.ax = 0x0007;
+  regs.x.cx = 0;
+  regs.x.dx = 8 * (ScreenCols () - 1);
+  int86 (0x33, &regs, &regs);
 
-  if (nfds != 1 || !FD_ISSET (0, &orfds))
-    abort ();
-  
-  /* If we are looking only for the terminal, with no timeout,
-     just read it and wait -- that's more efficient.  */
-  if (!timeout)
-    {
-      while (! detect_input_pending ());
-    }
-  else
-    {
-      timeoutval = EMACS_SECS (*timeout) * 100 + EMACS_USECS (*timeout) / 10000;
-      gettime (&t);
-      cllast = t.ti_sec * 100 + t.ti_hund;
+  regs.x.ax = 0x0008;
+  regs.x.cx = 0;
+  regs.x.dx = 8 * (ScreenRows () - 1);
+  int86 (0x33, &regs, &regs);
 
-      while (!detect_input_pending ())
-	{
-	  gettime (&t);
-	  clnow = t.ti_sec * 100 + t.ti_hund;
-	  if (clnow < cllast) /* time wrap */
-	    timeoutval -= clnow + 6000 - cllast;
-	  else
-	    timeoutval -= clnow - cllast;
-	  if (timeoutval <= 0)  /* Stop on timer being cleared */
-	    return 0;
-	  cllast = clnow;
-	}
-    }
-  
-  FD_SET (0, rfds);
-  return 1;
+  mouse_moveto (0, 0);
+  mouse_visible = 0;
 }
-#endif
 
-/* The Emacs root directory as determined by init_environment.  */
-static char emacsroot[MAXPATHLEN];
+/* ------------------------- Screen control ----------------------
+ *
+ */
 
-char *
-rootrelativepath (rel)
-     char *rel;
-{
-  static char result[MAXPATHLEN + 10];
+static int internal_terminal = 0;
 
-  strcpy (result, emacsroot);
-  strcat (result, "/");
-  strcat (result, rel);
-  return result;
-}
+#ifndef HAVE_X_WINDOWS
+extern unsigned char ScreenAttrib;
+static int screen_face;
+static int highlight;
 
-/* Define a lot of environment variables if not already defined.  Don't
-   remove anything unless you know what you're doing -- lots of code will
-   break if one or more of these are missing.  */
-void
-init_environment (argc, argv, skip_args)
-     int argc;
-     char **argv;
-     int skip_args;
-{
-  char *s, *t, *root;
-  int len;
+static int screen_size_X;
+static int screen_size_Y;
+static int screen_size;
 
-  /* Find our root from argv[0].  Assuming argv[0] is, say,
-     "c:/emacs/bin/emacs.exe" our root will be "c:/emacs".  */
-  root = alloca (MAXPATHLEN + 20);
-  _fixpath (argv[0], root);
-  strlwr (root);
-  len = strlen (root);
-  while (len > 0 && root[len] != '/' && root[len] != ':')
-    len--;
-  root[len] = '\0';
-  if (len > 4 && strcmp (root + len - 4, "/bin") == 0)
-    root[len - 4] = '\0';
-  else
-    strcpy (root, "c:/emacs");  /* Only under debuggers, I think.  */
-  len = strlen (root);
-  strcpy (emacsroot, root);
+static int current_pos_X;
+static int current_pos_Y;
+static int new_pos_X;
+static int new_pos_Y;
 
-  /* We default HOME to our root.  */
-  setenv ("HOME", root, 0);
-
-  /* We default EMACSPATH to root + "/bin".  */
-  strcpy (root + len, "/bin");
-  setenv ("EMACSPATH", root, 0);
+static void *startup_screen_buffer;
+static int startup_screen_size_X;
+static int startup_screen_size_Y;
+static int startup_pos_X;
+static int startup_pos_Y;
 
-  /* I don't expect anybody to ever use other terminals so the internal
-     terminal is the default.  */
-  setenv ("TERM", "internal", 0);
+static int term_setup_done;
 
-#ifdef HAVE_X_WINDOWS
-  /* Emacs expects DISPLAY to be set.  */
-  setenv ("DISPLAY", "unix:0.0", 0);
-#endif
+/* Similar to the_only_frame.  */
+struct x_display the_only_x_display;
 
-  /* SHELL is a bit tricky -- COMSPEC is the closest we come, but we must
-     downcase it and mirror the backslashes.  */
-  s = getenv ("COMSPEC");
-  if (!s) s = "c:/command.com";
-  t = alloca (strlen (s) + 1);
-  strcpy (t, s);
-  strlwr (t);
-  dostounix_filename (t);
-  setenv ("SHELL", t, 0);
+/* This is never dereferenced.  */
+Display *x_current_display;
 
-  /* PATH is also downcased and backslashes mirrored.  */
-  s = getenv ("PATH");
-  if (!s) s = "";
-  t = alloca (strlen (s) + 3);
-  /* Current directory is always considered part of MsDos's path but it is
-     not normally mentioned.  Now it is.  */
-  strcat (strcpy (t, ".;"), s);
-  strlwr (t);
-  dostounix_filename (t); /* Not a single file name, but this should work.  */
-  setenv ("PATH", t, 1);
 
-  /* In some sense all dos users have root privileges, so...  */
-  setenv ("USER", "root", 0);
-  setenv ("NAME", getenv ("USER"), 0);
+#define SCREEN_SET_CURSOR() 						\
+  if (current_pos_X != new_pos_X || current_pos_Y != new_pos_Y) 	\
+    ScreenSetCursor (current_pos_Y = new_pos_Y, current_pos_X = new_pos_X)
 
-  /* Time zone determined from country code.  To make this possible, the
-     country code may not span more than one time zone.  In other words,
-     in the USA, you lose.  */
-  switch (dos_country_code)
-    {
-    case 31: /* Belgium */
-    case 32: /* The Netherlands */
-    case 33: /* France */
-    case 34: /* Spain */
-    case 36: /* Hungary */
-    case 38: /* Yugoslavia (or what's left of it?) */
-    case 39: /* Italy */
-    case 41: /* Switzerland */
-    case 42: /* Tjekia */
-    case 45: /* Denmark */
-    case 46: /* Sweden */
-    case 47: /* Norway */
-    case 48: /* Poland */
-    case 49: /* Germany */
-      /* Daylight saving from last Sunday in March to last Sunday in
-	 September, both at 2AM.  */
-      setenv ("TZ", "MET-01METDST-02,M3.5.0/02:00,M9.5.0/02:00", 0);
-      break;
-    case 44: /* United Kingdom */
-    case 351: /* Portugal */
-    case 354: /* Iceland */
-      setenv ("TZ", "GMT+00", 0);
-      break;
-    case 81: /* Japan */
-    case 82: /* Korea */
-      setenv ("TZ", "???-09", 0);
-      break;
-    case 90: /* Turkey */
-    case 358: /* Finland */
-    case 972: /* Israel */
-      setenv ("TZ", "EET-02", 0);
-      break;
-    }
+static
+dos_direct_output (y, x, buf, len)
+     int y;
+     int x;
+     char *buf;
+     int len;
+{
+  int t = (int) ScreenPrimary + 2 * (x + y * screen_size_X);
+  
+  while (--len >= 0) {
+    dosmemput (buf++, 1, t);
+    t += 2;
+  }
 }
+#endif
 
 /* Flash the screen as a substitute for BEEPs.  */
 
+#if (__DJGPP__ < 2)
 static void
 do_visible_bell (xorattr)
      unsigned char xorattr;
@@ -919,241 +312,41 @@ visible_bell_2:
 	jmp    visible_bell_0
 visible_bell_3:"
      : /* no output */
-     : "m" (xorattr), "g" (ScreenCols () * ScreenRows ())
+     : "m" (xorattr), "g" (screen_size)
      : "%eax", "%ebx", /* "%gs",*/ "%ecx", "%edx");
 }
 
-/* At screen position (X,Y), output C characters from string S with
-   attribute A.  Do it fast!  */
-
 static void
-output_string (x, y, s, c, a)
-     int x, y, c;
-     unsigned char *s;
-     unsigned char a;
+ScreenVisualBell (void)
 {
-  char *t = (char *)ScreenPrimary + 2 * (x + ScreenCols () * y);
-#ifdef DO_TERMSCRIPT
-  if (termscript)
-    {
-      fprintf (termscript, "<%d@%dx%d>", c, x, y);
-      fwrite (s, sizeof (unsigned char), c, termscript);
-    }
-#endif  
-  asm volatile
-    ("  movl   %1,%%eax
-        call   dosmemsetup
-        movl   %%eax,%%edi
-        movb   %0,%%ah
-        movl   %2,%%ecx
-        movl   %3,%%esi
-output_string1:
-        movb   (%%esi),%%al
-        movw   %%ax,%%gs:(%%edi)
-        addl   $2,%%edi
-        incl   %%esi
-        decl   %%ecx
-        jne    output_string1"
-     :				/* no output */
-     : "m" (a), "g" (t), "g" (c), "g" (s)
-     : "%eax", "%ecx",		/* "%gs",*/ "%esi", "%edi");
+  /* This creates an xor-mask that will swap the default fore- and
+     background colors.  */
+  do_visible_bell (((the_only_x_display.foreground_pixel
+		     ^ the_only_x_display.background_pixel)
+		    * 0x11) & 0x7f);
 }
+#endif
 
-static int internal_terminal = 0;
-static int highlight;
-
-#undef fflush
-
-static int	/* number of characters used by escape; -1 if incomplete */
-flush_escape (resume, cp, count, xp, yp)
-     int resume;
-     unsigned char *cp;
-     int count;
-     int *xp;
-     int *yp;
-{
-  static char spaces[] = "                                                                                ";
-  static unsigned char esc_cmd[8];
-  static int esc_count = 0;
-  int esc_needed;
-  int i, j, used = 0;
-  
-  if (!resume)
-    {
-      esc_cmd[0] = '\e';
-      esc_count = 1;
-      used++;
-    }
-  
-  while (esc_count < 2)
-    {
-      if (used == count)
-	return -1;
-      esc_cmd[esc_count++] = *cp++;
-      used++;
-    }
-
-  switch (esc_cmd[1])
-    {
-    case '@':
-      esc_needed = 4;
-      break;
-    case 'A':
-    case 'B':
-    case 'X':
-      esc_needed = 3;
-      break;
-    default:
-      esc_needed = 2;
-      break;
-    }
-
-  while (esc_count < esc_needed)
-    {
-      if (used == count)
-	return -1;
-      esc_cmd[esc_count++] = *cp++;
-      used++;
-    }
-  
-  switch (esc_cmd[1])
-    {
-    case '@':
-      *yp = esc_cmd[2];
-      *xp = esc_cmd[3];
-      break;
-    case 'A':
-      ScreenAttrib = esc_cmd[2];
-      break;
-    case 'B':
-      do_visible_bell (esc_cmd[2]);
-      break;
-    case 'C':
-      ScreenClear ();
-      *xp = *yp = 0;
-      break;
-    case 'E':
-      i = ScreenCols () - *xp;
-      j = *xp;
-      while (i >= sizeof spaces)
-	{
-	  output_string (j, *yp, spaces, sizeof spaces, ScreenAttrib);
-	  j += sizeof spaces;
-	  i -= sizeof spaces;
-	}
-      if (i > 0)
-	output_string (j, *yp, spaces, i, ScreenAttrib);
-      break;
-    case 'R':
-      ++*xp;
-      break;
-    case 'U':
-      --*yp;
-      break;
-    case 'X':
-      ScreenAttrib ^= esc_cmd[2];
-      break;
-    case '\e':
-      output_string (*xp, *yp, &esc_cmd[1], 1, ScreenAttrib);
-      ++*xp;
-      break;
-    }
+#ifndef HAVE_X_WINDOWS
 
-  esc_count = 0;
-  return used;
-}
+/*
+ * If we write a character in the position where the mouse is,
+ * the mouse cursor may need to be refreshed.
+ */
 
-int
-internal_flush (f)
-     FILE *f;
+static void
+mouse_off_maybe ()
 {
-  static int x;
-  static int y;
-  static int resume_esc = 0;
-  unsigned char *cp, *cp0;
-  int count, i;
-
-  if (!internal_terminal || f != stdout)
-    {
-      /* This is a call to the original fflush.  */
-      fflush (f);
-      return;
-    }
+  int x, y;
   
-  mouse_off ();
-  cp = stdout->_base;
-  count = stdout->_ptr - stdout->_base;
-
-#ifdef DO_TERMSCRIPT
-  if (termscript)
-    fprintf (termscript, "\n<FLUSH%s %d>\n", resume_esc ? " RESUME" : "", count);
-#endif
+  if (!mouse_visible)
+    return;
   
-  if (resume_esc)
-    {
-      i = flush_escape (1, cp, count, &x, &y);
-      if (i < 0)
-	count = 0;
-      else
-	{
-	  resume_esc = 0;
-	  count -= i;
-	  cp += i;
-	}
-    }
+  mouse_get_xy (&x, &y);
+  if (y != new_pos_Y || x < new_pos_X)
+    return;
   
-  while (count > 0)
-    {
-      switch (*cp++)
-	{
-	case 27:
-	  i = flush_escape (0, cp, count, &x, &y);
-	  if (i < 0)
-	    {
-	      resume_esc = 1;
-	      count = 0;
-	    }
-	  else
-	    {
-	      count -= i;
-	      cp += i - 1;
-	    }
-	  break;
-	case 7:
-	  write (1, "\007", 1);
-	  count--;
-	  break;
-	case 8:
-	  x--;
-	  count--;
-	  break;
-	case 13:
-	  x = 0;
-	  count--;
-	  break;
-	case 10:
-	  y++;
-	  count--;
-	  break;
-	default:
-	  cp0 = cp - 1;
-	  count--;
-	  while (count > 0 && *cp >= ' ')
-	    cp++, count--;
-	  output_string (x, y, cp0, cp - cp0, ScreenAttrib);
-	  x += (cp - cp0);
-	}
-    }
-  fpurge (stdout);
-  ScreenSetCursor (y, x);
-  mouse_on ();
-}
-
-#ifndef HAVE_X_WINDOWS
-static void
-rien_du_tout ()
-{
-  /* Rien du tout, cela va sans dire!  */
+  mouse_off ();
 }
 
 static
@@ -1161,17 +354,10 @@ IT_ring_bell ()
 {
   if (visible_bell)
     {
-      /* This creates an xor-mask that will swap the default fore- and
-	 background colors.  */
       mouse_off ();
-      do_visible_bell (((the_only_x_display.foreground_pixel
-			 ^ the_only_x_display.background_pixel)
-			* 0x11) & 0x7f);
-      mouse_on ();
+      ScreenVisualBell ();
     }
   else
-    /* Write it directly to ms-dos -- don't let it go through our terminal
-       emulator.  This way the mouse cursor won't blink.  */
     write (1, "\007", 1);
 }
 
@@ -1187,63 +373,100 @@ IT_set_face (int face)
     fp = FRAME_DEFAULT_FACE (foo);
   else
     fp = intern_face (selected_frame, FRAME_COMPUTED_FACES (foo)[face]);
-#ifdef DO_TERMSCRIPT
   if (termscript)
     fprintf (termscript, "<FACE:%d:%d>", FACE_FOREGROUND (fp), FACE_BACKGROUND (fp));
-#endif
-  putchar ('\e');
-  putchar ('A');
-  putchar ((FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp));
+  screen_face = face;
+  ScreenAttrib = (FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp);
 }
 
 static
 IT_write_glyphs (GLYPH *str, int len)
 {
-  int face = -1;
   int newface;
-  int ch;
+  int ch, l = len;
+  unsigned char *buf, *bp;
+
+  if (len == 0) return;
+  
+  buf = bp = alloca (len * 2);
   
-  while (len > 0)
+  while (--l >= 0)
     {
       newface = FAST_GLYPH_FACE (*str);
-      if (newface != face)
-	IT_set_face ((face = newface));
+      if (newface != screen_face)
+	IT_set_face (newface);
       ch = FAST_GLYPH_CHAR (*str);
-#ifdef DO_TERMSCRIPT
+      *bp++ = (unsigned char)ch;
+      *bp++ = ScreenAttrib;
+      
       if (termscript)
 	fputc (ch, termscript);
-#endif      
-      if (ch == '\e') putchar (ch);	/* allow esc to be printed */
-      putchar (ch);
-      str++, len--;
+      str++;
     }
+
+  mouse_off_maybe ();
+  dosmemput (buf, 2 * len, 
+	     (int)ScreenPrimary + 2 * (new_pos_X + screen_size_X * new_pos_Y));
+  new_pos_X += len;
 }
 
 static
 IT_clear_end_of_line (first_unused)
 {
+  char *spaces, *sp;
+  int i, j;
+
   IT_set_face (0);
-#ifdef DO_TERMSCRIPT
   if (termscript)
     fprintf (termscript, "<CLR:EOL>");
-#endif
-  putchar ('\e');
-  putchar ('E');
+  i = (j = screen_size_X - new_pos_X) * 2;
+  spaces = sp = alloca (i);
+  
+  while (--j >= 0)
+    {
+      *sp++ = ' ';
+      *sp++ = ScreenAttrib;
+    }
+
+  mouse_off_maybe ();
+  dosmemput (spaces, i, 
+	     (int)ScreenPrimary + 2 * (new_pos_X + screen_size_X * new_pos_Y));
+}
+
+static
+IT_clear_screen (void)
+{
+  if (termscript)
+    fprintf (termscript, "<CLR:SCR>");
+  IT_set_face (0);
+  mouse_off ();
+  ScreenClear ();
+  new_pos_X = new_pos_Y = 0;
+}
+
+static
+IT_clear_to_end (void)
+{
+  if (termscript)
+    fprintf (termscript, "<CLR:EOS>");
+
+  while (new_pos_Y < screen_size_Y) {
+    new_pos_X = 0;
+    IT_clear_end_of_line (0);
+    new_pos_Y++;
+  }
 }
 
 static
 IT_cursor_to (int y, int x)
 {
-#ifdef DO_TERMSCRIPT
   if (termscript)
     fprintf (termscript, "\n<XY=%dx%d>", x, y);
-#endif
-  putchar ('\e');
-  putchar ('@');
-  putchar (y);
-  putchar (x);
+  new_pos_X = x;
+  new_pos_Y = y;
 }
 
+static
 IT_reassert_line_highlight (new, vpos)
      int new, vpos;
 {
@@ -1265,6 +488,12 @@ IT_update_begin ()
 {
   highlight = 0;
   IT_set_face (0); /* To possibly clear the highlighting.  */
+  screen_face = -1;
+}
+
+static
+IT_update_end ()
+{
 }
 
 /* This was more or less copied from xterm.c */
@@ -1290,6 +519,74 @@ IT_set_menu_bar_lines (window, n)
     }
 }
 
+/*
+ * IT_set_terminal_modes is called when emacs is started,
+ * resumed, and whenever the screen is redrawn!
+ */
+
+static
+IT_set_terminal_modes (void)
+{
+  char *colors;
+  FRAME_PTR f;
+  struct face *fp;
+
+  if (termscript)
+    fprintf (termscript, "\n<SET_TERM>");
+  highlight = 0;
+
+  screen_size_X = ScreenCols ();
+  screen_size_Y = ScreenRows ();
+  screen_size = screen_size_X * screen_size_Y;
+  
+  new_pos_X = new_pos_Y = 0;
+  current_pos_X = current_pos_Y = -1;
+
+  if (term_setup_done)
+    return;
+  term_setup_done = 1;
+  
+  startup_screen_size_X = screen_size_X;
+  startup_screen_size_Y = screen_size_Y;
+
+  ScreenGetCursor (&startup_pos_Y, &startup_pos_X);
+  ScreenRetrieve (startup_screen_buffer = xmalloc (screen_size * 2));
+
+  if (termscript)
+    fprintf (termscript, "<SCREEN SAVED>\n");
+}
+
+/*
+ * IT_reset_terminal_modes is called when emacs is
+ * suspended or killed.
+ */
+
+static
+IT_reset_terminal_modes (void)
+{
+  if (termscript)
+    fprintf(termscript, "\n<RESET_TERM>");
+
+  highlight = 0;
+
+  if (!term_setup_done)
+    return;
+  
+  ScreenUpdate (startup_screen_buffer);
+  ScreenSetCursor (startup_pos_Y, startup_pos_X);
+  xfree (startup_screen_buffer);
+
+  if (termscript)
+    fprintf (termscript, "<SCREEN RESTORED>\n");
+
+  term_setup_done = 0;
+}
+
+static
+IT_set_terminal_window (void)
+{
+}
+
 void
 IT_set_frame_parameters (frame, alist)
      FRAME_PTR frame;
@@ -1349,21 +646,16 @@ IT_set_frame_parameters (frame, alist)
     }
 }
 
-/* Similar to the_only_frame.  */
-struct x_display the_only_x_display;
-
-/* This is never dereferenced.  */
-Display *x_current_display;
-
 #endif /* !HAVE_X_WINDOWS */
 
+
 /* Do we need the internal terminal? */
 void
 internal_terminal_init ()
 {
   char *term = getenv ("TERM");
   char *colors;
-  
+
 #ifdef HAVE_X_WINDOWS
   if (!inhibit_window_system)
     return;
@@ -1372,316 +664,715 @@ internal_terminal_init ()
   internal_terminal
     = (!noninteractive) && term && !strcmp (term, "internal");
 
+  if (getenv ("EMACSTEST"))
+    termscript = fopen(getenv ("EMACSTEST"), "wt");
+  
 #ifndef HAVE_X_WINDOWS
-  if (internal_terminal && !inhibit_window_system)
+  if (!internal_terminal || inhibit_window_system)
     {
-      Vwindow_system = intern ("pc");
-      Vwindow_system_version = make_number (1);
+      the_only_frame.output_method = output_termcap;
+      return;
+    }
+
+  Vwindow_system = intern ("pc");
+  Vwindow_system_version = make_number (1);
  
-      bzero (&the_only_x_display, sizeof the_only_x_display);
-      the_only_x_display.background_pixel = 7; /* White */
-      the_only_x_display.foreground_pixel = 0; /* Black */
-      colors = getenv ("EMACSCOLORS");
-      if (colors && strlen (colors) >=2)
-	{
-	  the_only_x_display.foreground_pixel = colors[0] & 0x07;
-	  the_only_x_display.background_pixel = colors[1] & 0x07;
-	}
-      the_only_x_display.line_height = 1;
-      the_only_frame.display.x = &the_only_x_display;
-      the_only_frame.output_method = output_msdos_raw;
-
-      init_frame_faces ((FRAME_PTR) &the_only_frame);
-
-      ring_bell_hook = IT_ring_bell;
-      write_glyphs_hook = IT_write_glyphs;
-      cursor_to_hook = raw_cursor_to_hook = IT_cursor_to;
-      clear_end_of_line_hook = IT_clear_end_of_line;
-      change_line_highlight_hook = IT_change_line_highlight;
-      update_begin_hook = IT_update_begin;
-      reassert_line_highlight_hook = IT_reassert_line_highlight;
-
-      /* These hooks are called by term.c without being checked.  */
-      set_terminal_modes_hook
-	= reset_terminal_modes_hook
-	  = update_end_hook
-	    = set_terminal_window_hook
-	      = (void *)rien_du_tout;
+  bzero (&the_only_x_display, sizeof the_only_x_display);
+  the_only_x_display.background_pixel = 7; /* White */
+  the_only_x_display.foreground_pixel = 0; /* Black */
+  colors = getenv("EMACSCOLORS");
+  if (colors && strlen (colors) >= 2)
+    {
+      the_only_x_display.foreground_pixel = colors[0] & 0x07;
+      the_only_x_display.background_pixel = colors[1] & 0x07;
     }
-  else
-    the_only_frame.output_method = output_termcap;
+  the_only_x_display.line_height = 1;
+  the_only_frame.display.x = &the_only_x_display;
+  the_only_frame.output_method = output_msdos_raw;
+
+  init_frame_faces ((FRAME_PTR) &the_only_frame);
+
+  ring_bell_hook = IT_ring_bell;
+  write_glyphs_hook = IT_write_glyphs;
+  cursor_to_hook = raw_cursor_to_hook = IT_cursor_to;
+  clear_to_end_hook = IT_clear_to_end;
+  clear_end_of_line_hook = IT_clear_end_of_line;
+  clear_frame_hook = IT_clear_screen;
+  change_line_highlight_hook = IT_change_line_highlight;
+  update_begin_hook = IT_update_begin;
+  update_end_hook = IT_update_end;
+  reassert_line_highlight_hook = IT_reassert_line_highlight;
+
+  /* These hooks are called by term.c without being checked.  */
+  set_terminal_modes_hook = IT_set_terminal_modes;
+  reset_terminal_modes_hook = IT_reset_terminal_modes;
+  set_terminal_window_hook = IT_set_terminal_window;
 #endif
 }
-
-/* When time zones are set from Ms-Dos too may C-libraries are playing
-   tricks with time values.  We solve this by defining our own version
-   of `gettimeofday' bypassing GO32.  Our version needs to be initialized
-   once and after each call to `tzset' with TZ changed.  */
-
-static int daylight, gmtoffset;
 
-int
-gettimeofday (struct timeval *tp, struct timezone *tzp)
+dos_get_saved_screen (screen, rows, cols)
+     char **screen;
+     int *rows;
+     int *cols;
 {
-  if (tp)
-    {
-      struct time t;
-      struct date d;
-      struct tm tmrec;
-
-      gettime (&t);
-      /* If midnight occurs here, the results can be incorrect.  */
-      getdate (&d);
-      tmrec.tm_year = d.da_year - 1900;
-      tmrec.tm_mon = d.da_mon - 1;
-      tmrec.tm_mday = d.da_day;
-      tmrec.tm_hour = t.ti_hour;
-      tmrec.tm_min = t.ti_min;
-      tmrec.tm_sec = t.ti_sec;
-      tmrec.tm_gmtoff = gmtoffset;
-      tmrec.tm_isdst = daylight;
-      tp->tv_sec = mktime (&tmrec);
-      tp->tv_usec = t.ti_hund * (1000000 / 100);
-    }
-  /* Ignore tzp; it's obsolescent.  */
+#ifndef HAVE_X_WINDOWS
+  *screen = startup_screen_buffer;
+  *cols = startup_screen_size_X;
+  *rows = startup_screen_size_Y;
+  return 1;
+#else
   return 0;
+#endif  
 }
 
-void
-init_gettimeofday ()
+
+/* ----------------------- Keyboard control ----------------------
+ *
+ * Keymaps reflect the following keyboard layout:
+ *
+ *    0  1  2  3  4  5  6  7  8  9  10 11 12  BS
+ *    TAB 15 16 17 18 19 20 21 22 23 24 25 26 (41)
+ *    CLOK 30 31 32 33 34 35 36 37 38 39 40 (41) RET
+ *    SH () 45 46 47 48 49 50 51 52 53 54  SHIFT
+ *                    SPACE
+ */
+
+static int extended_kbd; /* 101 (102) keyboard present.	*/
+
+struct dos_keyboard_map
 {
-  time_t ltm, gtm;
-  struct tm *lstm;
-#undef tzset
-  extern void tzset (void);
+  char *unshifted;
+  char *shifted;
+  char *alt_gr;
+};
 
-  tzset ();
-  daylight = 0;
-  gmtoffset = 0;
-  ltm = gtm = time (NULL);
-  ltm = mktime (lstm = localtime (&ltm));
-  gtm = mktime (gmtime (&gtm));
-  daylight = lstm->tm_isdst;
-  gmtoffset = (int)(gtm - ltm) / 60;
-}
-
-/* These must be global.  */
-static _go32_dpmi_seginfo ctrl_break_vector;
-static _go32_dpmi_registers ctrl_break_regs;
-static int ctrlbreakinstalled = 0;
 
-/* Interrupt level detection of Ctrl-Break.  Don't do anything fancy here!  */
-void
-ctrl_break_func (regs)
-     _go32_dpmi_registers *regs;
+static struct dos_keyboard_map us_keyboard = {
+/* 0         1         2         3         4         5      */
+/* 01234567890123456789012345678901234567890 12345678901234 */
+  "`1234567890-=  qwertyuiop[]   asdfghjkl;'\\   zxcvbnm,./  ",
+/* 0123456789012345678901234567890123456789 012345678901234 */
+  "~!@#$%^&*()_+  QWERTYUIOP{}   ASDFGHJKL:\"|   ZXCVBNM<>?  ",
+  0				/* no Alt-Gr key */
+};
+
+static struct dos_keyboard_map fr_keyboard = {
+/* 0         1         2         3         4         5      */
+/* 012 3456789012345678901234567890123456789012345678901234 */
+  "ý&‚\",(-Š_€…)=  azertyuiop^$   qsdfghjklm—*   wxcvbnm;:!  ",
+/* 0123456789012345678901234567890123456789012345678901234 */
+  " 1234567890ø+  AZERTYUIOPùœ   QSDFGHJKLM%æ   WXCVBN?./õ  ",
+/* 01234567 89012345678901234567890123456789012345678901234 */
+  "  ~#{[|`\\^@]}             Ï                              "
+};
+
+static struct dos_keyboard_map dk_keyboard = {
+/* 0         1         2         3         4         5      */
+/* 0123456789012345678901234567890123456789012345678901234 */
+  "«1234567890+|  qwertyuiop†~   asdfghjkl‘›'   zxcvbnm,.-  ",
+/* 01 23456789012345678901234567890123456789012345678901234 */
+  "õ!\"#$%&/()=?`  QWERTYUIOP�^   ASDFGHJKL’�*   ZXCVBNM;:_  ",
+/* 0123456789012345678901234567890123456789012345678901234 */
+  "  @œ$  {[]} |                                             "
+};
+
+static struct keyboard_layout_list
 {
-  Vquit_flag = Qt;
-}
+  int country_code;
+  struct dos_keyboard_map *keyboard_map;
+} keyboard_layout_list[] = {
+    1, &us_keyboard,
+   33, &fr_keyboard,
+   45, &dk_keyboard
+};
 
-void
-install_ctrl_break_check ()
+static struct dos_keyboard_map *keyboard;
+static int keyboard_map_all;
+
+int
+dos_set_keyboard (code, always)
+     int code;
+     int always;
 {
-  if (!ctrlbreakinstalled)
-    {
-      /* Don't press Ctrl-Break if you don't have either DPMI or Emacs
-	 was compiler with Djgpp 1.11 maintenance level 5 or later!  */
-      ctrlbreakinstalled = 1;
-      ctrl_break_vector.pm_offset = (int) ctrl_break_func;
-      _go32_dpmi_allocate_real_mode_callback_iret (&ctrl_break_vector,
-						   &ctrl_break_regs);
-      _go32_dpmi_set_real_mode_interrupt_vector (0x1b, &ctrl_break_vector);
-    }
+  int i;
+  for (i = 0; i < (sizeof (keyboard_layout_list)/sizeof (struct keyboard_layout_list)); i++)
+    if (code == keyboard_layout_list[i].country_code)
+      {
+	keyboard = keyboard_layout_list[i].keyboard_map;
+	keyboard_map_all = always;
+	dos_keyboard_layout = code;
+	return 1;
+      }
+  return 0;
 }
-
-/* Mouse routines follow.  Coordinates are in screen positions and zero
-   based.  Mouse buttons are numbered from left to right and also zero
-   based.  */
 
-static int mouse_button_translate[NUM_MOUSE_BUTTONS];
-static int mouse_button_count;
+#define Ignore	0x0000
+#define Normal	0x0000	/* normal key - alt changes scan-code */
+#define FctKey	0x1000	/* func key if c == 0, else c */
+#define Special	0x2000	/* func key even if c != 0 */
+#define ModFct	0x3000	/* special if mod-keys, else 'c' */
+#define Map	0x4000	/* alt scan-code, map to unshift/shift key */
+#define KeyPad	0x5000	/* map to insert/kp-0 depending on c == 0xe0 */
+#define Grey	0x6000	/* Grey keypad key */
+
+#define Alt	0x0100	/* alt scan-code */
+#define Ctrl	0x0200	/* ctrl scan-code */
+#define Shift	0x0400	/* shift scan-code */
+
+static struct
+{
+  unsigned char char_code;	/* normal code	*/
+  unsigned char meta_code;	/* M- code	*/
+  unsigned char keypad_code;	/* keypad code	*/
+  unsigned char editkey_code;	/* edit key	*/
+} keypad_translate_map[] = {
+  '0',  '0',  0xb0, /* kp-0 */		0x63, /* insert */
+  '1',  '1',  0xb1, /* kp-1 */		0x57, /* end */
+  '2',  '2',  0xb2, /* kp-2 */		0x54, /* down */
+  '3',  '3',  0xb3, /* kp-3 */		0x56, /* next */
+  '4',  '4',  0xb4, /* kp-4 */		0x51, /* left */
+  '5',  '5',  0xb5, /* kp-5 */		0xb5, /* kp-5 */
+  '6',  '6',  0xb6, /* kp-6 */		0x53, /* right */
+  '7',  '7',  0xb7, /* kp-7 */		0x50, /* home */
+  '8',  '8',  0xb8, /* kp-8 */		0x52, /* up */
+  '9',  '9',  0xb9, /* kp-9 */		0x55, /* prior */
+  '.',  '-',  0xae, /* kp-decimal */	0xff  /* delete */
+};
 
-void
-mouse_init ()
+static struct
 {
-  union REGS regs;
-
-  regs.x.ax = 0x0007;
-  regs.x.cx = 0;
-  regs.x.dx = 8 * (ScreenCols () - 1);
-  int86 (0x33, &regs, &regs);
+  unsigned char char_code;	/* normal code	*/
+  unsigned char keypad_code;	/* keypad code	*/
+} grey_key_translate_map[] = {
+  '/',  0xaf, /* kp-decimal */
+  '*',  0xaa, /* kp-multiply */
+  '-',  0xad, /* kp-subtract */
+  '+',  0xab, /* kp-add */
+  '\r', 0x8d  /* kp-enter */
+};
 
-  regs.x.ax = 0x0008;
-  regs.x.cx = 0;
-  regs.x.dx = 8 * (ScreenRows () - 1);
-  int86 (0x33, &regs, &regs);
+static unsigned short
+ibmpc_translate_map[] =
+{
+  /* --------------- 00 to 0f --------------- */
+  Normal | 0xff,	/* Ctrl Break + Alt-NNN */
+  Alt | ModFct | 0x1b,		/* Escape */
+  Normal | 1,			/* '1' */
+  Normal | 2,			/* '2' */
+  Normal | 3,			/* '3' */
+  Normal | 4,			/* '4' */
+  Normal | 5,			/* '5' */
+  Normal | 6,			/* '6' */
+  Normal | 7,			/* '7' */
+  Normal | 8,			/* '8' */
+  Normal | 9,			/* '9' */
+  Normal | 10,			/* '0' */
+  Normal | 11,			/* '-' */
+  Normal | 12,			/* '=' */
+  Special | 0x08,		/* Backspace */
+  ModFct | 0x74,		/* Tab/Backtab */
 
-  mouse_moveto (ScreenCols () - 1, ScreenRows () - 1);
-  mouse_on ();
-}
+  /* --------------- 10 to 1f --------------- */
+  Map | 15,			/* 'q' */
+  Map | 16,			/* 'w' */
+  Map | 17,			/* 'e' */
+  Map | 18,			/* 'r' */
+  Map | 19,			/* 't' */
+  Map | 20,			/* 'y' */
+  Map | 21,			/* 'u' */
+  Map | 22,			/* 'i' */
+  Map | 23,			/* 'o' */
+  Map | 24,			/* 'p' */
+  Map | 25,			/* '[' */
+  Map | 26,			/* ']' */ 
+  ModFct | 0x0d,		/* Return */
+  Ignore,			/* Ctrl */
+  Map | 30,			/* 'a' */
+  Map | 31,			/* 's' */
 
-void
-mouse_on ()
-{
-  union REGS regs;
+  /* --------------- 20 to 2f --------------- */
+  Map | 32,			/* 'd' */
+  Map | 33,			/* 'f' */
+  Map | 34,			/* 'g' */
+  Map | 35,			/* 'h' */
+  Map | 36,			/* 'j' */
+  Map | 37,			/* 'k' */
+  Map | 38,			/* 'l' */
+  Map | 39,			/* ';' */
+  Map | 40,			/* '\'' */
+  Map |  0,			/* '`' */
+  Ignore,			/* Left shift */
+  Map | 41,			/* '\\' */
+  Map | 45,			/* 'z' */
+  Map | 46,			/* 'x' */
+  Map | 47,			/* 'c' */
+  Map | 48,			/* 'v' */
 
-  if (have_mouse > 0)
-    {
-      regs.x.ax = 0x0001;
-      int86 (0x33, &regs, &regs);
-    }
-}
+  /* --------------- 30 to 3f --------------- */
+  Map | 49,			/* 'b' */
+  Map | 50,			/* 'n' */
+  Map | 51,			/* 'm' */
+  Map | 52,			/* ',' */
+  Map | 53,			/* '.' */
+  Map | 54,			/* '/' */
+  Ignore,			/* Right shift */
+  Grey | 1,			/* Grey * */
+  Ignore,			/* Alt */
+  Normal |  ' ',		/* ' ' */
+  Ignore,			/* Caps Lock */
+  FctKey | 0xbe,		/* F1 */
+  FctKey | 0xbf,		/* F2 */
+  FctKey | 0xc0,		/* F3 */
+  FctKey | 0xc1,		/* F4 */
+  FctKey | 0xc2,		/* F5 */
 
-void
-mouse_off ()
-{
-  union REGS regs;
+  /* --------------- 40 to 4f --------------- */
+  FctKey | 0xc3,		/* F6 */
+  FctKey | 0xc4,		/* F7 */
+  FctKey | 0xc5,		/* F8 */
+  FctKey | 0xc6,		/* F9 */
+  FctKey | 0xc7,		/* F10 */
+  Ignore,			/* Num Lock */
+  Ignore,			/* Scroll Lock */
+  KeyPad | 7,			/* Home */
+  KeyPad | 8,			/* Up */
+  KeyPad | 9,			/* Page Up */
+  Grey | 2,			/* Grey - */
+  KeyPad | 4,			/* Left */
+  KeyPad | 5,			/* Keypad 5 */
+  KeyPad | 6,			/* Right */
+  Grey | 3,			/* Grey + */
+  KeyPad | 1,			/* End */
 
-  if (have_mouse > 0)
-    {
-      regs.x.ax = 0x0002;
-      int86 (0x33, &regs, &regs);
-    }
-}
+  /* --------------- 50 to 5f --------------- */
+  KeyPad | 2,			/* Down */
+  KeyPad | 3,			/* Page Down */
+  KeyPad | 0,			/* Insert */
+  KeyPad | 10,			/* Delete */
+  Shift | FctKey | 0xbe,	/* (Shift) F1 */
+  Shift | FctKey | 0xbf,	/* (Shift) F2 */
+  Shift | FctKey | 0xc0,	/* (Shift) F3 */
+  Shift | FctKey | 0xc1,	/* (Shift) F4 */
+  Shift | FctKey | 0xc2,	/* (Shift) F5 */
+  Shift | FctKey | 0xc3,	/* (Shift) F6 */
+  Shift | FctKey | 0xc4,	/* (Shift) F7 */
+  Shift | FctKey | 0xc5,	/* (Shift) F8 */
+  Shift | FctKey | 0xc6,	/* (Shift) F9 */
+  Shift | FctKey | 0xc7,	/* (Shift) F10 */
+  Ctrl | FctKey | 0xbe,		/* (Ctrl) F1 */
+  Ctrl | FctKey | 0xbf,		/* (Ctrl) F2 */
 
-void
-mouse_moveto (x, y)
-     int x, y;
-{
-  union REGS regs;
+  /* --------------- 60 to 6f --------------- */
+  Ctrl | FctKey | 0xc0,		/* (Ctrl) F3 */
+  Ctrl | FctKey | 0xc1,		/* (Ctrl) F4 */
+  Ctrl | FctKey | 0xc2,		/* (Ctrl) F5 */
+  Ctrl | FctKey | 0xc3,		/* (Ctrl) F6 */
+  Ctrl | FctKey | 0xc4,		/* (Ctrl) F7 */
+  Ctrl | FctKey | 0xc5,		/* (Ctrl) F8 */
+  Ctrl | FctKey | 0xc6,		/* (Ctrl) F9 */
+  Ctrl | FctKey | 0xc7,		/* (Ctrl) F10 */
+  Alt | FctKey | 0xbe,		/* (Alt) F1 */
+  Alt | FctKey | 0xbf,		/* (Alt) F2 */
+  Alt | FctKey | 0xc0,		/* (Alt) F3 */
+  Alt | FctKey | 0xc1,		/* (Alt) F4 */
+  Alt | FctKey | 0xc2,		/* (Alt) F5 */
+  Alt | FctKey | 0xc3,		/* (Alt) F6 */
+  Alt | FctKey | 0xc4,		/* (Alt) F7 */
+  Alt | FctKey | 0xc5,		/* (Alt) F8 */
 
-  regs.x.ax = 0x0004;
-  mouse_last_x = regs.x.cx = x * 8;
-  mouse_last_y = regs.x.dx = y * 8;
-  int86 (0x33, &regs, &regs);
-}
+  /* --------------- 70 to 7f --------------- */
+  Alt | FctKey | 0xc6,		/* (Alt) F9 */
+  Alt | FctKey | 0xc7,		/* (Alt) F10 */
+  Ctrl | FctKey | 0x6d,		/* (Ctrl) Sys Rq */
+  Ctrl | KeyPad | 4,		/* (Ctrl) Left */
+  Ctrl | KeyPad | 6,		/* (Ctrl) Right */
+  Ctrl | KeyPad | 1,		/* (Ctrl) End */
+  Ctrl | KeyPad | 3,		/* (Ctrl) Page Down */
+  Ctrl | KeyPad | 7,		/* (Ctrl) Home */
+  Alt | Map | 1,		/* '1' */
+  Alt | Map | 2,		/* '2' */
+  Alt | Map | 3,		/* '3' */
+  Alt | Map | 4,		/* '4' */
+  Alt | Map | 5,		/* '5' */
+  Alt | Map | 6,		/* '6' */
+  Alt | Map | 7,		/* '7' */
+  Alt | Map | 8,		/* '8' */
 
-int
-mouse_pressed (b, xp, yp)
-     int b, *xp, *yp;
-{
-  union REGS regs;
+  /* --------------- 80 to 8f --------------- */
+  Alt | Map | 9,		/* '9' */
+  Alt | Map | 10,		/* '0' */
+  Alt | Map | 11,		/* '-' */
+  Alt | Map | 12,		/* '=' */
+  Ctrl | KeyPad | 9,		/* (Ctrl) Page Up */
+  FctKey | 0xc8,		/* F11 */
+  FctKey | 0xc9,		/* F12 */
+  Shift | FctKey | 0xc8,	/* (Shift) F11 */
+  Shift | FctKey | 0xc9,	/* (Shift) F12 */
+  Ctrl | FctKey | 0xc8,		/* (Ctrl) F11 */
+  Ctrl | FctKey | 0xc9,		/* (Ctrl) F12 */
+  Alt | FctKey | 0xc8,		/* (Alt) F11 */
+  Alt | FctKey | 0xc9,		/* (Alt) F12 */
+  Ctrl | KeyPad | 8,		/* (Ctrl) Up */
+  Ctrl | Grey | 2,		/* (Ctrl) Grey - */
+  Ctrl | KeyPad | 5,		/* (Ctrl) Keypad 5 */
 
-  if (b >= mouse_button_count)
-    return 0;
-  regs.x.ax = 0x0005;
-  regs.x.bx = mouse_button_translate[b];
-  int86 (0x33, &regs, &regs);
-  if (regs.x.bx)
-    *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
-  return (regs.x.bx != 0);
-}
+  /* --------------- 90 to 9f --------------- */
+  Ctrl | Grey | 3,		/* (Ctrl) Grey + */
+  Ctrl | KeyPad | 2,		/* (Ctrl) Down */
+  Ctrl | KeyPad | 0,		/* (Ctrl) Insert */
+  Ctrl | KeyPad | 10,		/* (Ctrl) Delete */
+  Ctrl | FctKey | 0x09,		/* (Ctrl) Tab */
+  Ctrl | Grey | 0,		/* (Ctrl) Grey / */
+  Ctrl | Grey | 1,		/* (Ctrl) Grey * */
+  Alt | FctKey | 0x50,		/* (Alt) Home */
+  Alt | FctKey | 0x52,		/* (Alt) Up */
+  Alt | FctKey | 0x55,		/* (Alt) Page Up */
+  Ignore,			/* NO KEY */
+  Alt | FctKey | 0x51,		/* (Alt) Left */
+  Ignore,			/* NO KEY */
+  Alt | FctKey | 0x53,		/* (Alt) Right */
+  Ignore,			/* NO KEY */
+  Alt | FctKey | 0x57,		/* (Alt) End */
 
-int
-mouse_released (b, xp, yp)
-     int b, *xp, *yp;
-{
-  union REGS regs;
+  /* --------------- a0 to af --------------- */
+  Alt | KeyPad | 2,		/* (Alt) Down */
+  Alt | KeyPad | 3,		/* (Alt) Page Down */
+  Alt | KeyPad | 0,		/* (Alt) Insert */
+  Alt | KeyPad | 10,		/* (Alt) Delete */
+  Alt | Grey | 0,		/* (Alt) Grey / */
+  Alt | FctKey | 0x09,		/* (Alt) Tab */
+  Alt | Grey | 4		/* (Alt) Keypad Enter */
+};
 
-  if (b >= mouse_button_count)
-    return 0;
-  regs.x.ax = 0x0006;
-  regs.x.bx = mouse_button_translate[b];
-  int86 (0x33, &regs, &regs);
-#if 0
-  if (regs.x.ax & (1 << mouse_button_translate[b]))
-    regs.x.bx = 0;	/* if mouse is still pressed, ignore release */
-#endif
-  if (regs.x.bx)
-    *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
-  return (regs.x.bx != 0);
-}
+/* These bit-positions corresponds to values returned by BIOS */
+#define SHIFT_P		0x0003	/* two bits! */
+#define CTRL_P		0x0004
+#define ALT_P		0x0008
+#define SCRLOCK_P	0x0010
+#define NUMLOCK_P	0x0020
+#define CAPSLOCK_P	0x0040
+#define ALT_GR_P	0x0800
+#define SUPER_P		0x4000	/* pseudo */
+#define HYPER_P		0x8000	/* pseudo */
 
-static void
-mouse_get_xy (int *x, int *y)
+static int
+dos_get_modifiers (keymask)
+     int *keymask;
 {
   union REGS regs;
+  int mask;
+  int modifiers = 0;
+  
+  /* Calculate modifier bits */
+  regs.h.ah = extended_kbd ? 0x12 : 0x02;
+  int86 (0x16, &regs, &regs);
 
-  regs.x.ax = 0x0003;
-  int86 (0x33, &regs, &regs);
-  *x = regs.x.cx / 8;
-  *y = regs.x.dx / 8;
-}
+  if (!extended_kbd)
+    {
+      mask = regs.h.al & (SHIFT_P | CTRL_P | ALT_P | 
+			  SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P);
+    }
+  else
+    {
+      mask = regs.h.al & (SHIFT_P |
+			  SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P);
+  
+      /* Do not break international keyboard support.   */
+      /* When Keyb.Com is loaded, the right Alt key is  */
+      /* used for accessing characters like { and } 	  */
+      if (regs.h.ah & 2)		/* Left ALT pressed ? */
+	mask |= ALT_P;
 
-void
-mouse_get_pos (f, insist, bar_window, part, x, y, time)
-     FRAME_PTR *f;
-     int insist;
-     Lisp_Object *bar_window, *x, *y;
-     enum scroll_bar_part *part;
-     unsigned long *time;
-{
-  int ix, iy;
-  union REGS regs;
+      if ((regs.h.ah & 8) != 0)		/* Right ALT pressed ? */
+	{
+	  mask |= ALT_GR_P;
+	  if (dos_hyper_key == 1)
+	    {
+	      mask |= HYPER_P;
+	      modifiers |= hyper_modifier;
+	    }
+	  else if (dos_super_key == 1)
+	    {
+	      mask |= SUPER_P;
+	      modifiers |= super_modifier;
+	    }
+	}
+      
+      if (regs.h.ah & 1)		/* Left CTRL pressed
+	mask |= CTRL_P;
 
-  regs.x.ax = 0x0003;
-  int86 (0x33, &regs, &regs);
-  *f = selected_frame;
-  *bar_window = Qnil;
-  mouse_get_xy (&ix, &iy);
-  selected_frame->mouse_moved = 0;
-  *x = make_number (ix);
-  *y = make_number (iy);
-  *time = event_timestamp ();
-}
+      if (regs.h.ah & 4)	 	/* Right CTRL pressed ? */
+	{
+	  if (dos_hyper_key == 2)
+	    {
+	      mask |= HYPER_P;
+	      modifiers |= hyper_modifier;
+	    }
+	  else if (dos_super_key == 2)
+	    {
+	      mask |= SUPER_P;
+	      modifiers |= super_modifier;
+	    }
+	  else
+	    mask |= CTRL_P;
+	}
+    }
 
-void
-mouse_check_moved ()
-{
-  int x, y;
+  if (mask & SHIFT_P)
+    modifiers |= shift_modifier;
+  if (mask & CTRL_P)
+    modifiers |= ctrl_modifier;
+  if (mask & ALT_P)
+    modifiers |= meta_modifier;
 
-  mouse_get_xy (&x, &y);
-  selected_frame->mouse_moved |= (x != mouse_last_x || y != mouse_last_y);
-  mouse_last_x = x;
-  mouse_last_y = y;
+  if (keymask)
+    *keymask = mask;
+  return modifiers;
 }
 
-int
-mouse_init1 ()
+/* Get a char from keyboard.  Function keys are put into the event queue.  */
+static int
+dos_rawgetc ()
 {
+  struct input_event event;
   union REGS regs;
-  int present;
-
-#ifdef HAVE_X_WINDOWS
-  if (!inhibit_window_system)
-    return 0;
+  
+#ifndef HAVE_X_WINDOWS
+  SCREEN_SET_CURSOR();
+  if (!mouse_visible) mouse_on ();
 #endif
-  if (!internal_terminal)
-    return 0;
-
-  regs.x.ax = 0x0021;
-  int86 (0x33, &regs, &regs);
-  present = (regs.x.ax & 0xffff) == 0xffff;
-  if (!present)
+    
+  /* The following condition is equivalent to `kbhit ()', except that
+     it uses the bios to do its job.  This pleases DESQview/X.  */
+  while ((regs.h.ah = extended_kbd ? 0x11 : 0x01),
+	 int86 (0x16, &regs, &regs),
+	 (regs.x.flags & 0x40) == 0)
     {
-      /* Reportedly, the above doesn't work for some mouse drivers.  There
-	 is an additional detection method that should work, but might be
-	 a little slower.  Use that as an alternative.  */
-      regs.x.ax = 0x0000;
-      int86 (0x33, &regs, &regs);
-      present = (regs.x.ax & 0xffff) == 0xffff;
-    }
+      union REGS regs;
+      register unsigned char c;
+      int sc, code, mask, kp_mode;
+      int modifiers;
 
-  if (present)
-    {
-      if (regs.x.bx == 3)
+      regs.h.ah = extended_kbd ? 0x10 : 0x00;
+      int86 (0x16, &regs, &regs);
+      c = regs.h.al;
+      sc = regs.h.ah;
+
+      modifiers = dos_get_modifiers( &mask );
+      
+#ifndef HAVE_X_WINDOWS
+      if (!NILP(Vdos_display_scancodes))
 	{
-	  mouse_button_count = 3;
-	  mouse_button_translate[0] = 0; /* Left */
-	  mouse_button_translate[1] = 2; /* Middle */
-	  mouse_button_translate[2] = 1; /* Right */
+	  char buf[10];
+	  sprintf (buf, "%02x:%02x*%04x",
+		   (unsigned) (sc&0xff), (unsigned) c, mask);
+	  dos_direct_output (screen_size_Y - 2, screen_size_X - 12, buf, 10);
+	}
+#endif
+
+      if (sc == 0xe0)
+	{
+	  switch (c)
+	    {
+	    case 10:		/* Ctrl Grey Enter */
+	      code = Ctrl | Grey | 4;
+	      break;
+	    case 13:		/* Grey Enter */
+	      code = Grey | 4;
+	      break;
+	    case '/':		/* Grey / */
+	      code = Grey | 0;
+	      break;
+	    default:
+	      continue;
+	    };
+	  c = 0;
 	}
       else
 	{
-	  mouse_button_count = 2;
-	  mouse_button_translate[0] = 0;
-	  mouse_button_translate[1] = 1;
+	  if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short)))
+	    continue;
+	  if ((code = ibmpc_translate_map[sc]) == Ignore)
+	    continue;
 	}
-      mouse_position_hook = &mouse_get_pos;
-      mouse_init ();
+      
+      if (c == 0)
+	{
+	  if (code & Alt)
+	    modifiers |= meta_modifier;
+	  if (code & Ctrl)
+	    modifiers |= ctrl_modifier;
+	  if (code & Shift)
+	    modifiers |= shift_modifier;
+	}
+      
+      switch (code & 0xf000)
+	{
+	case ModFct:
+	  if (c && !(mask & (SHIFT_P | ALT_P | CTRL_P | HYPER_P | SUPER_P)))
+	    return c;
+	  c = 0;		/* Special */
+	  
+	case FctKey:
+	  if (c != 0)
+	    return c;
+	    
+	case Special:
+	  code |= 0xff00;
+	  break;
+	  
+	case Normal:
+	  if (sc == 0)
+	    {
+	      if (c == 0)	/* ctrl-break */
+		continue;
+	      return c;		/* ALT-nnn */
+	    }
+	  if (!keyboard_map_all)
+	    {
+	      if (c != ' ')
+		return c;
+	      code = c;
+	      break;
+	    }
+	  
+	case Map:
+	  if (c && !(mask & ALT_P) && !((mask & SHIFT_P) && (mask & CTRL_P)))
+	    if (!keyboard_map_all)
+	      return c;
+
+	  code &= 0xff;
+	  if (mask & ALT_P && code <= 10 && code > 0 && dos_keypad_mode & 0x200)
+	    mask |= SHIFT_P;	/* ALT-1 => M-! etc. */
+	  
+	  if (mask & SHIFT_P)
+	    {
+	      code = keyboard->shifted[ code ];
+	      mask -= SHIFT_P;
+	      modifiers &= ~shift_modifier;
+	    }
+	  else
+	    if ((mask & ALT_GR_P) && keyboard->alt_gr && keyboard->alt_gr[ code ] != ' ')
+	      code = keyboard->alt_gr[ code ];
+	    else
+	      code = keyboard->unshifted[ code ];
+	  break;
+
+	case KeyPad:
+	  code &= 0xff;
+	  if (c == 0xe0)	/* edit key */
+	    kp_mode = 3;
+	  else
+	    if ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) /* numlock on */
+	      kp_mode = dos_keypad_mode & 0x03;
+	    else
+	      kp_mode = (dos_keypad_mode >> 4) & 0x03;
+	  
+	  switch (kp_mode)
+	    {
+	    case 0:
+	      if (code == 10 && dos_decimal_point)
+		return dos_decimal_point;
+	      return keypad_translate_map[ code ].char_code;
+
+	    case 1:
+	      code = 0xff00 | keypad_translate_map[ code ].keypad_code;
+	      break;
+
+	    case 2:
+	      code = keypad_translate_map[ code ].meta_code;
+	      modifiers = meta_modifier;
+	      break;
+	      
+	    case 3:
+	      code = 0xff00 | keypad_translate_map[ code ].editkey_code;
+	      break;
+	    }
+	  break;
+	  
+	case Grey:
+	  code &= 0xff;
+	  kp_mode = ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) ? 0x04 : 0x40;
+	  if (dos_keypad_mode & kp_mode)
+	    code = 0xff00 | grey_key_translate_map[ code ].keypad_code;
+	  else
+	    code = grey_key_translate_map[ code ].char_code;
+	  break;
+	}
+      
+    make_event:
+      if (code == 0)
+	continue;
+      
+      if (code >= 0x100)
+	event.kind = non_ascii_keystroke;
+      else
+	event.kind = ascii_keystroke;
+      event.code = code;
+      event.modifiers =	modifiers;
+      XSETFRAME (event.frame_or_window, selected_frame);
+      event.timestamp = event_timestamp ();
+      kbd_buffer_store_event (&event);
+    }
+
+  if (have_mouse > 0)
+    {
+      int but, press, x, y, ok;
+
+      /* Check for mouse movement *before* buttons.  */
+      mouse_check_moved ();
+
+      for (but = 0; but < NUM_MOUSE_BUTTONS; but++)
+	for (press = 0; press < 2; press++)
+	  {
+	    if (press)
+	      ok = mouse_pressed (but, &x, &y);
+	    else
+	      ok = mouse_released (but, &x, &y);
+	    if (ok)
+	      {
+		event.kind = mouse_click;
+		event.code = but;
+		event.modifiers = dos_get_modifiers (0)
+		  | (press ? down_modifier : up_modifier);
+		event.x = x;
+		event.y = y;
+		XSETFRAME (event.frame_or_window, selected_frame);
+		event.timestamp = event_timestamp ();
+		kbd_buffer_store_event (&event);
+	      }
+	  }
     }
-  return present;
+
+  return -1;
 }
 
+static int prev_get_char = -1;
+
+/* Return 1 if a key is ready to be read without suspending execution.  */
+dos_keysns ()
+{
+  if (prev_get_char != -1)
+    return 1;
+  else
+    return ((prev_get_char = dos_rawgetc ()) != -1);
+}
+
+/* Read a key.  Return -1 if no key is ready.  */
+dos_keyread ()
+{
+  if (prev_get_char != -1)
+    {
+      int c = prev_get_char;
+      prev_get_char = -1;
+      return c;
+    }
+  else
+    return dos_rawgetc ();
+}
+
+
+
 #ifndef HAVE_X_WINDOWS
 /* See xterm.c for more info.  */
 void
@@ -1766,7 +1457,7 @@ IT_menu_search_pane (XMenu *menu, int pane)
       {
 	if (pane == menu->panenumber[i])
 	  return menu->submenu[i];
-	else if ((try = IT_menu_search_pane (menu->submenu[i], pane)))
+	if ((try = IT_menu_search_pane (menu->submenu[i], pane)))
 	  return try;
       }
   return (XMenu *) 0;
@@ -1810,11 +1501,10 @@ IT_menu_display (XMenu *menu, int y, int x, int *faces)
   text = (GLYPH *) xmalloc ((width + 2) * sizeof (GLYPH));
   ScreenGetCursor (&row, &col);
   mouse_get_xy (&mx, &my);
-  mouse_off ();
-  (*update_begin_hook) ();
+  IT_update_begin ();
   for (i = 0; i < menu->count; i++)
     {
-      (*cursor_to_hook) (y + i, x);
+      IT_cursor_to (y + i, x);
       enabled
 	= (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]);
       mousehere = (y + i == my && x <= mx && mx < x + width + 2);
@@ -1826,15 +1516,15 @@ IT_menu_display (XMenu *menu, int y, int x, int *faces)
       for (; j < width; j++)
 	*p++ = FAST_MAKE_GLYPH (' ', face);
       *p++ = FAST_MAKE_GLYPH (menu->submenu[i] ? 16 : ' ', face);
-      (*write_glyphs_hook) (text, width + 2);
+      IT_write_glyphs (text, width + 2);
     }
-  internal_flush (stdout);
-  (*update_end_hook) ();
-  mouse_on ();
-  ScreenSetCursor (row, col);
+  IT_update_end ();
+  IT_cursor_to (row, col);
   xfree (text);
 }
 
+/* --------------------------- X Menu emulation ---------------------- */
+
 /* Create a brand new menu structure.  */
 
 XMenu *
@@ -1929,7 +1619,7 @@ XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
     return XM_IA_SELECT;
 
   state = alloca (menu->panecount * sizeof (struct IT_menu_state));
-  screensize = ScreenRows () * ScreenCols () * 2;
+  screensize = screen_size * 2;
   faces[0]
     = compute_glyph_face (&the_only_frame,
 			  face_name_id_number
@@ -1951,7 +1641,6 @@ XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
   state[0].menu = menu;
   mouse_off ();
   ScreenRetrieve (state[0].screen_behind = xmalloc (screensize));
-  mouse_on ();
   if ((onepane = menu->count == 1 && menu->submenu[0]))
     {
       menu->width = menu->submenu[0]->width;
@@ -1969,6 +1658,7 @@ XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
   leave = 0;
   while (!leave)
     {
+      if (!mouse_visible) mouse_on ();
       mouse_check_moved ();
       if (selected_frame->mouse_moved)
 	{
@@ -1998,7 +1688,6 @@ XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
 			  statecount--;
 			  mouse_off ();
 			  ScreenUpdate (state[statecount].screen_behind);
-			  mouse_on ();
 			  xfree (state[statecount].screen_behind);
 			}
 		    if (i == statecount - 1 && state[i].menu->submenu[dy])
@@ -2012,7 +1701,6 @@ XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
 			mouse_off ();
 			ScreenRetrieve (state[statecount].screen_behind
 					= xmalloc (screensize));
-			mouse_on ();
 			state[statecount].x
 			  = state[i].x + state[i].menu->width + 2;
 			state[statecount].y = y;
@@ -2035,7 +1723,6 @@ XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
 
   mouse_off ();
   ScreenUpdate (state[0].screen_behind);
-  mouse_on ();
   while (statecount--)
     xfree (state[statecount].screen_behind);
   return result;
@@ -2072,4 +1759,720 @@ x_pixel_height (struct frame *f)
 }
 #endif /* !HAVE_X_WINDOWS */
 
+
+/* ----------------------- DOS / UNIX conversion --------------------- */
+
+/* Destructively turn backslashes into slashes.  */
+
+void
+dostounix_filename (p)
+     register char *p;
+{
+  while (*p)
+    {
+      if (*p == '\\')
+	*p = '/';
+      p++;
+    }
+}
+
+/* Destructively turn slashes into backslashes.  */
+
+void
+unixtodos_filename (p)
+     register char *p;
+{
+  while (*p)
+    {
+      if (*p == '/')
+	*p = '\\';
+      p++;
+    }
+}
+
+/* Get the default directory for a given drive.  0=def, 1=A, 2=B, ...  */
+
+int
+getdefdir (drive, dst)
+     int drive;
+     char *dst;
+{
+  union REGS regs;
+
+  *dst++ = '/';
+  regs.h.dl = drive;
+  regs.x.si = (int) dst;
+  regs.h.ah = 0x47;
+  intdos (&regs, &regs);
+  return !regs.x.cflag;
+}
+
+/* Remove all CR's that are followed by a LF.  */
+
+int
+crlf_to_lf (n, buf)
+     register int n;
+     register unsigned char *buf;
+{
+  unsigned char *np = buf;
+  unsigned char *startp = buf;
+  unsigned char *endp = buf + n;
+  unsigned char c;
+
+  if (n == 0)
+    return n;
+  while (buf < endp - 1)
+    {
+      if (*buf == 0x0d)
+	{
+	  if (*(++buf) != 0x0a)
+	    *np++ = 0x0d;
+	}
+      else
+	*np++ = *buf++;
+    }
+  if (buf < endp)
+    *np++ = *buf++;
+  return np - startp;
+}
+
+/* The Emacs root directory as determined by init_environment.  */
+
+static char emacsroot[MAXPATHLEN];
+
+char *
+rootrelativepath (rel)
+     char *rel;
+{
+  static char result[MAXPATHLEN + 10];
+
+  strcpy (result, emacsroot);
+  strcat (result, "/");
+  strcat (result, rel);
+  return result;
+}
+
+/* Define a lot of environment variables if not already defined.  Don't
+   remove anything unless you know what you're doing -- lots of code will
+   break if one or more of these are missing.  */
+
+void
+init_environment (argc, argv, skip_args)
+     int argc;
+     char **argv;
+     int skip_args;
+{
+  char *s, *t, *root;
+  int len;
+
+  /* Find our root from argv[0].  Assuming argv[0] is, say,
+     "c:/emacs/bin/emacs.exe" our root will be "c:/emacs".  */
+  root = alloca (MAXPATHLEN + 20);
+  _fixpath (argv[0], root);
+  strlwr (root);
+  len = strlen (root);
+  while (len > 0 && root[len] != '/' && root[len] != ':')
+    len--;
+  root[len] = '\0';
+  if (len > 4 && strcmp (root + len - 4, "/bin") == 0)
+    root[len - 4] = '\0';
+  else
+    strcpy (root, "c:/emacs");  /* Only under debuggers, I think.  */
+  len = strlen (root);
+  strcpy (emacsroot, root);
+
+  /* We default HOME to our root.  */
+  setenv ("HOME", root, 0);
+
+  /* We default EMACSPATH to root + "/bin".  */
+  strcpy (root + len, "/bin");
+  setenv ("EMACSPATH", root, 0);
+
+  /* I don't expect anybody to ever use other terminals so the internal
+     terminal is the default.  */
+  setenv ("TERM", "internal", 0);
+
+#ifdef HAVE_X_WINDOWS
+  /* Emacs expects DISPLAY to be set.  */
+  setenv ("DISPLAY", "unix:0.0", 0);
+#endif
+
+  /* SHELL is a bit tricky -- COMSPEC is the closest we come, but we must
+     downcase it and mirror the backslashes.  */
+  s = getenv ("COMSPEC");
+  if (!s) s = "c:/command.com";
+  t = alloca (strlen (s) + 1);
+  strcpy (t, s);
+  strlwr (t);
+  dostounix_filename (t);
+  setenv ("SHELL", t, 0);
+
+  /* PATH is also downcased and backslashes mirrored.  */
+  s = getenv ("PATH");
+  if (!s) s = "";
+  t = alloca (strlen (s) + 3);
+  /* Current directory is always considered part of MsDos's path but it is
+     not normally mentioned.  Now it is.  */
+  strcat (strcpy (t, ".;"), s);
+  strlwr (t);
+  dostounix_filename (t); /* Not a single file name, but this should work.  */
+  setenv ("PATH", t, 1);
+
+  /* In some sense all dos users have root privileges, so...  */
+  setenv ("USER", "root", 0);
+  setenv ("NAME", getenv ("USER"), 0);
+
+  /* Time zone determined from country code.  To make this possible, the
+     country code may not span more than one time zone.  In other words,
+     in the USA, you lose.  */
+  if (!getenv("TZ"))
+    switch (dos_country_code)
+      {
+      case 31:			/* Belgium */
+      case 32:			/* The Netherlands */
+      case 33:			/* France */
+      case 34:			/* Spain */
+      case 36:			/* Hungary */
+      case 38:			/* Yugoslavia (or what's left of it?) */
+      case 39:			/* Italy */
+      case 41:			/* Switzerland */
+      case 42:			/* Tjekia */
+      case 45:			/* Denmark */
+      case 46:			/* Sweden */
+      case 47:			/* Norway */
+      case 48:			/* Poland */
+      case 49:			/* Germany */
+	/* Daylight saving from last Sunday in March to last Sunday in
+	   September, both at 2AM.  */
+	setenv ("TZ", "MET" /* "-01METDST-02,M3.5.0/02:00,M9.5.0/02:00" */, 0);
+	break;
+      case 44:			/* United Kingdom */
+      case 351:			/* Portugal */
+      case 354:			/* Iceland */
+	setenv ("TZ", "GMT" /* "+00" */, 0);
+	break;
+      case 81:			/* Japan */
+      case 82:			/* Korea */
+	setenv ("TZ", "JST" /* "-09" */, 0);
+	break;
+      case 90:			/* Turkey */
+      case 358:			/* Finland */
+      case 972:			/* Israel */
+	setenv ("TZ", "EET" /* "-02" */, 0);
+	break;
+      }
+}
+
+
+
+static int break_stat;	 /* BREAK check mode status.	*/
+static int stdin_stat;	 /* stdin IOCTL status.		*/
+
+/* These must be global.  */
+static _go32_dpmi_seginfo ctrl_break_vector;
+static _go32_dpmi_registers ctrl_break_regs;
+static int ctrlbreakinstalled = 0;
+
+/* Interrupt level detection of Ctrl-Break.  Don't do anything fancy here!  */
+
+void
+ctrl_break_func (regs)
+     _go32_dpmi_registers *regs;
+{
+  Vquit_flag = Qt;
+}
+
+void
+install_ctrl_break_check ()
+{
+  if (!ctrlbreakinstalled)
+    {
+      /* Don't press Ctrl-Break if you don't have either DPMI or Emacs
+	 was compiler with Djgpp 1.11 maintenance level 5 or later!  */
+      ctrlbreakinstalled = 1;
+      ctrl_break_vector.pm_offset = (int) ctrl_break_func;
+      _go32_dpmi_allocate_real_mode_callback_iret (&ctrl_break_vector,
+						   &ctrl_break_regs);
+      _go32_dpmi_set_real_mode_interrupt_vector (0x1b, &ctrl_break_vector);
+    }
+}
+
+/*
+ * Turn off Dos' Ctrl-C checking and inhibit interpretation of
+ * control chars by Dos.
+ * Determine the keyboard type.
+ */
+
+int
+dos_ttraw ()
+{
+  union REGS inregs, outregs;
+  static int first_time = 1;
+  
+  break_stat = getcbrk ();
+  setcbrk (0);
+  install_ctrl_break_check ();
+
+  if (first_time)
+    {
+      inregs.h.ah = 0xc0;
+      int86 (0x15, &inregs, &outregs);
+      extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0);
+  
+      have_mouse = 0;
+
+      if (internal_terminal
+#ifdef HAVE_X_WINDOWS
+	  && inhibit_window_system
+#endif
+	  )
+	{
+	  inregs.x.ax = 0x0021;
+	  int86 (0x33, &inregs, &outregs);
+	  have_mouse = (outregs.x.ax & 0xffff) == 0xffff;
+	  if (!have_mouse)
+	    {
+	      /* Reportedly, the above doesn't work for some mouse drivers.  There
+		 is an additional detection method that should work, but might be
+		 a little slower.  Use that as an alternative.  */
+	      inregs.x.ax = 0x0000;
+	      int86 (0x33, &inregs, &outregs);
+	      have_mouse = (outregs.x.ax & 0xffff) == 0xffff;
+	    }
+
+	  if (have_mouse)
+	    {
+	      have_mouse = 1;	/* enable mouse */
+	      mouse_visible = 0;
+	      
+	      if (outregs.x.bx == 3)
+		{
+		  mouse_button_count = 3;
+		  mouse_button_translate[0] = 0; /* Left */
+		  mouse_button_translate[1] = 2; /* Middle */
+		  mouse_button_translate[2] = 1; /* Right */
+		}
+	      else
+		{
+		  mouse_button_count = 2;
+		  mouse_button_translate[0] = 0;
+		  mouse_button_translate[1] = 1;
+		}
+	      mouse_position_hook = &mouse_get_pos;
+	      mouse_init ();
+	    }
+	}
+      
+      first_time = 0;
+    }
+
+  inregs.x.ax = 0x4400;		/* Get IOCTL status. */
+  inregs.x.bx = 0x00;		/* 0 = stdin. */
+  intdos (&inregs, &outregs);
+  stdin_stat = outregs.h.dl;
+
+  inregs.x.dx = stdin_stat | 0x0020; /* raw mode */
+  inregs.x.ax = 0x4401;		/* Set IOCTL status */
+  intdos (&inregs, &outregs);
+  return !outregs.x.cflag;
+}
+
+/*  Restore status of standard input and Ctrl-C checking.  */
+int
+dos_ttcooked ()
+{
+  union REGS inregs, outregs;
+
+  setcbrk (break_stat);
+  mouse_off ();
+
+  inregs.x.ax = 0x4401;	/* Set IOCTL status.	*/
+  inregs.x.bx = 0x00;	/* 0 = stdin.		*/
+  inregs.x.dx = stdin_stat;
+  intdos (&inregs, &outregs);
+  return !outregs.x.cflag;
+}
+
+
+/* Run command as specified by ARGV in directory DIR.
+   The command is run with input from TEMPIN and output to file TEMPOUT.  */
+int
+run_msdos_command (argv, dir, tempin, tempout)
+     unsigned char **argv;
+     Lisp_Object dir;
+     int tempin, tempout;
+{
+  char *saveargv1, *saveargv2, **envv;
+  char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS.  */
+  int msshell, result = -1;
+  int in, out, inbak, outbak, errbak;
+  int x, y;
+  Lisp_Object cmd;
+
+  /* Get current directory as MSDOS cwd is not per-process.  */
+  getwd (oldwd);
+
+  cmd = Ffile_name_nondirectory (build_string (argv[0]));
+  msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells"))))
+    && !strcmp ("-c", argv[1]);
+  if (msshell)
+    {
+      saveargv1 = argv[1];
+      saveargv2 = argv[2];
+      argv[1] = "/c";
+      if (argv[2])
+	{
+	  char *p = alloca (strlen (argv[2]) + 1);
+
+	  strcpy (argv[2] = p, saveargv2);
+	  while (*p && isspace (*p))
+	    p++;
+	  while (*p && !isspace (*p))
+	    if (*p == '/')
+	      *p++ = '\\';
+	    else
+	      p++;
+	}
+    }
+
+  /* Build the environment array.  */
+  {
+    extern Lisp_Object Vprocess_environment;
+    Lisp_Object tmp, lst;
+    int i, len;
+
+    lst = Vprocess_environment;
+    len = XFASTINT (Flength (lst));
+
+    envv = alloca ((len + 1) * sizeof (char *));
+    for (i = 0; i < len; i++)
+      {
+	tmp = Fcar (lst);
+	lst = Fcdr (lst);
+	CHECK_STRING (tmp, 0);
+	envv[i] = alloca (XSTRING (tmp)->size + 1);
+	strcpy (envv[i], XSTRING (tmp)->data);
+      }
+    envv[len] = (char *) 0;
+  }
+
+  if (STRINGP (dir))
+    chdir (XSTRING (dir)->data);
+  inbak = dup (0);
+  outbak = dup (1);
+  errbak = dup (2);
+  if (inbak < 0 || outbak < 0 || errbak < 0)
+    goto done; /* Allocation might fail due to lack of descriptors.  */
+
+  if (have_mouse > 0)
+    mouse_get_xy (&x, &y);
+
+  dos_ttcooked ();	/* do it here while 0 = stdin */
+  
+  dup2 (tempin, 0);
+  dup2 (tempout, 1);
+  dup2 (tempout, 2);
+
+  result = spawnve (P_WAIT, argv[0], argv, envv);
+  
+  dup2 (inbak, 0);
+  dup2 (outbak, 1);
+  dup2 (errbak, 2);
+  close (inbak);
+  close (outbak);
+  close (errbak);
+
+  dos_ttraw();
+  if (have_mouse > 0)
+    {
+      mouse_init ();
+      mouse_moveto (x, y);
+    }
+  
+ done:
+  chdir (oldwd);
+  if (msshell)
+    {
+      argv[1] = saveargv1;
+      argv[2] = saveargv2;
+    }
+  return result;
+}
+
+croak (badfunc)
+     char *badfunc;
+{
+  fprintf (stderr, "%s not yet implemented\r\n", badfunc);
+  reset_sys_modes ();
+  exit (1);
+}
+
+
+/* ------------------------- Compatibility functions -------------------
+ *	gethostname
+ *	gettimeofday
+ */
+
+/*
+ * Hostnames for a pc are not really funny,
+ * but they are used in change log so we emulate the best we can.
+ */
+
+gethostname (p, size)
+     char *p;
+     int size;
+{
+  char *q = egetenv ("HOSTNAME");
+
+  if (!q) q = "pc";
+  strcpy (p, q);
+  return 0;
+}
+
+/* When time zones are set from Ms-Dos too may C-libraries are playing
+   tricks with time values.  We solve this by defining our own version
+   of `gettimeofday' bypassing GO32.  Our version needs to be initialized
+   once and after each call to `tzset' with TZ changed.  That is 
+   accomplished by aliasing tzset to init_gettimeofday. */
+
+static struct tm time_rec;
+
+int
+gettimeofday (struct timeval *tp, struct timezone *tzp)
+{
+  if (tp)
+    {
+      struct time t;
+      struct tm tm;
+      
+      gettime (&t);
+      if (t.ti_hour < time_rec.tm_hour) /* midnight wrap */
+	{
+	  struct date d;
+	  getdate (&d);
+	  time_rec.tm_year = d.da_year - 1900;
+	  time_rec.tm_mon = d.da_mon - 1;
+	  time_rec.tm_mday = d.da_day;
+	}
+      
+      time_rec.tm_hour = t.ti_hour;
+      time_rec.tm_min = t.ti_min;
+      time_rec.tm_sec = t.ti_sec;
+
+      tm = time_rec;
+      tm.tm_gmtoff = dos_timezone_offset;
+      
+      tp->tv_sec = mktime (&tm);	/* may modify tm */
+      tp->tv_usec = t.ti_hund * (1000000 / 100);
+    }
+  /* Ignore tzp; it's obsolescent.  */
+  return 0;
+}
+
+
+/*
+ * A list of unimplemented functions that we silently ignore.
+ */
+
+unsigned alarm (s) unsigned s; {}
+fork () { return 0; }
+int kill (x, y) int x, y; { return -1; }
+nice (p) int p; {}
+void volatile pause () {}
+request_sigio () {}
+setpgrp () {return 0; }
+setpriority (x,y,z) int x,y,z; { return 0; }
+sigsetmask (x) int x; { return 0; }
+unrequest_sigio () {}
+
+int run_dos_timer_hooks = 0;
+
+#ifndef HAVE_SELECT
+#include "sysselect.h"
+
+static int last_ti_sec = -1;
+
+static void
+check_timer (t)
+  struct time *t;
+{
+  gettime (t);
+  
+  if (t->ti_sec == last_ti_sec)
+    return;
+  last_ti_sec = t->ti_sec;
+
+  if (!NILP (Vdos_menubar_clock))
+    {
+      char clock_str[16];
+      int len;
+      int min = t->ti_min;
+      int hour = t->ti_hour;
+
+      if (dos_timezone_offset)
+	{
+	  int tz = dos_timezone_offset;
+	  min -= tz % 60;
+	  if (min < 0)
+	    min += 60, hour--;
+	  else
+	    if (min >= 60)
+	      min -= 60, hour++;
+	  
+	  if ((hour -= (tz / 60)) < 0)
+	    hour += 24;
+	  else
+	    hour %= 24;
+	}
+      
+      if ((dos_country_info[0x11] & 0x01) == 0) /* 12 hour clock */
+	{
+	  hour %= 12;
+	  if (hour == 0) hour = 12;
+	}
+
+      len = sprintf (clock_str, "%2d.%02d.%02d", hour, min, t->ti_sec);
+      dos_direct_output (0, screen_size_X - len - 1, clock_str, len);
+    }
+  
+  if (!NILP (Vdos_timer_hooks))
+    run_dos_timer_hooks++;
+}
+
+/* Only event queue is checked.  */
+int
+sys_select (nfds, rfds, wfds, efds, timeout)
+     int nfds;
+     SELECT_TYPE *rfds, *wfds, *efds;
+     EMACS_TIME *timeout;
+{
+  int check_input;
+  long timeoutval, clnow, cllast;
+  struct time t;
+
+  check_input = 0;
+  if (rfds)
+    {
+      check_input = FD_ISSET (0, rfds);
+      FD_ZERO (rfds);
+    }
+  if (wfds)
+    FD_ZERO (wfds);
+  if (efds)
+    FD_ZERO (efds);
+
+  if (nfds != 1)
+    abort ();
+  
+  /* If we are looking only for the terminal, with no timeout,
+     just read it and wait -- that's more efficient.  */
+  if (!timeout)
+    {
+      while (! detect_input_pending ())
+	check_timer (&t);
+    }
+  else
+    {
+      timeoutval = EMACS_SECS (*timeout) * 100 + EMACS_USECS (*timeout) / 10000;
+      check_timer (&t);
+      cllast = t.ti_sec * 100 + t.ti_hund;
+
+      while (!check_input || !detect_input_pending ())
+	{
+	  check_timer (&t);
+	  clnow = t.ti_sec * 100 + t.ti_hund;
+	  if (clnow < cllast) /* time wrap */
+	    timeoutval -= clnow + 6000 - cllast;
+	  else
+	    timeoutval -= clnow - cllast;
+	  if (timeoutval <= 0)  /* Stop on timer being cleared */
+	    return 0;
+	  cllast = clnow;
+	}
+    }
+  
+  FD_SET (0, rfds);
+  return 1;
+}
+#endif
+
+/*
+ * Define overlayed functions:
+ *
+ *	chdir -> sys_chdir
+ *	tzset -> init_gettimeofday
+ *	abort -> dos_abort
+ */
+
+#ifdef chdir
+#undef chdir
+extern int chdir ();
+
+int
+sys_chdir (path)
+     const char* path;
+{
+  int len = strlen (path);
+  char *tmp = (char *)path;
+
+  if (*tmp && tmp[1] == ':')
+    {
+      if (getdisk () != tolower (tmp[0]) - 'a')
+	setdisk (tolower (tmp[0]) - 'a');
+      tmp += 2;	/* strip drive: KFS 1995-07-06 */
+      len -= 2;
+    }
+  
+  if (len > 1 && (tmp[len - 1] == '/'))
+    {
+      char *tmp1 = (char *) alloca (len + 1);
+      strcpy (tmp1, tmp);
+      tmp1[len - 1] = 0;
+      tmp = tmp1;
+    }
+  return chdir (tmp);
+}
+#endif
+
+#ifdef tzset
+#undef tzset
+extern void tzset (void);
+
+void
+init_gettimeofday ()
+{
+  time_t ltm, gtm;
+  struct tm *lstm;
+
+  tzset ();
+  ltm = gtm = time (NULL);
+  ltm = mktime (lstm = localtime (&ltm));
+  gtm = mktime (gmtime (&gtm));
+  time_rec.tm_hour = 99;	/* force gettimeofday to get date */
+  time_rec.tm_isdst = lstm->tm_isdst;
+  dos_timezone_offset = time_rec.tm_gmtoff = (int)(gtm - ltm) / 60;
+}
+#endif
+
+#ifdef abort
+#undef abort
+void
+dos_abort (file, line)
+     char *file;
+     int  line;
+{
+  char buffer1[200], buffer2[400];
+  int i, j;
+  
+  sprintf (buffer1, "<EMACS FATAL ERROR IN %s LINE %d>", file, line);
+  for (i = j = 0; buffer1[i]; i++) {
+    buffer2[j++] = buffer1[i];
+    buffer2[j++] = 0x70;
+  }
+  dosmemput (buffer2, j, (int)ScreenPrimary);
+  ScreenSetCursor (2, 0);
+  abort ();
+}
+#endif
+
 #endif /* MSDOS */