diff --git a/src/initkbd.c b/src/initkbd.c
index a90b926..b138f78 100644
--- a/src/initkbd.c
+++ b/src/initkbd.c
@@ -41,46 +41,6 @@
 #include <pixrect/pixrect_hs.h>
 #endif /* SUNDISPLAY */
 
-#ifdef DOS
-#define KBD_COMMAND_PORT 0x64
-#define KBD_ENABLE 0xAE
-#define KBD_DISABLE 0xAD
-#define KBD_RESET 0xF6
-
-#define PORT_8042 0x60
-#define KBD_SCAN_CODE_PORT 0x60
-
-#define KBD_resend 0xFE
-#define KBD_ack 0xFA
-#define KBD_echo_responce 0xEE
-#define KBD_failiure 0xFD
-#define KBD_prefix 0xE0
-#define KBD_pause_prefix 0xE1
-#define KBD_overflow 0x00
-
-#define INTA00 0x20 /* The 8259 port */
-#define ENDOFINTERRUPT 0x20
-
-#define PRTSC_KEY 0x37
-#define HOME_KEY 0x47
-#define UPARROW_KEY 0x48
-#define PGUP_KEY 0x49
-#define LEFTARROW_KEY 0x4b
-#define RIGHTARROW_KEY 0x4d
-#define END_KEY 0x4f
-#define DOWNARROW_KEY 0x50
-#define PGDOWN_KEY 0x51
-#define INS_KEY 0x52
-#define DEL_KEY 0x53
-
-void (*prev_int_09)(); /* keeps address of previous 09 handlr*/
-#pragma interrupt(DOSkbd)
-void DOSkbd(void); /* the flih-kbd handler INT 0x09   */
-unsigned char inchar = 0;
-
-extern int KBDEventFlg;
-#endif /* DOS */
-
 #ifdef XWINDOW
 #include <X11/Xlib.h>
 #include <X11/Xutil.h>
@@ -296,7 +256,6 @@ void init_keyboard(int flg) /* if 0 init else re-init */
     make_mouse_instance(currentmouse);
     (currentmouse->device.enter)(currentmouse, currentdsp);
   }
-/*    outp( KBD_COMMAND_PORT, KBD_RESET); Reset the kbd */
 #endif /* XWINDOW DOS */
 }
 
diff --git a/src/kbdsubrs.c b/src/kbdsubrs.c
index 950eb30..8f724c0 100644
--- a/src/kbdsubrs.c
+++ b/src/kbdsubrs.c
@@ -39,10 +39,6 @@
 
 #ifdef DOS
 #define PORT_A 0x60
-#define KBD_COMMAND_PORT 0x64
-#define KBD_ENABLE 0xAE
-#define KBD_DISABLE 0xAD
-
 #include "devif.h"
 extern KbdInterface currentkbd;
 extern DspInterface currentdsp;
@@ -82,7 +78,6 @@ void KB_enable(LispPTR *args) /* args[0] :	ON/OFF flag
     enable_Xkeyboard(currentdsp);
 #elif DOS
     (currentkbd->device.enter)(currentkbd);
-    /* outp( KBD_COMMAND_PORT, KBD_ENABLE); */
 #endif /* DOS */
   } else if (args[0] == NIL) {
 #ifdef SUNDISPLAY
@@ -91,7 +86,6 @@ void KB_enable(LispPTR *args) /* args[0] :	ON/OFF flag
     disable_Xkeyboard(currentdsp);
 #elif DOS
     (currentkbd->device.exit)(currentkbd);
-    /* outp( KBD_COMMAND_PORT, KBD_DISABLE); */
 #endif /* DOS */
   } else {
     error("KB_enable: illegal arg \n");
diff --git a/src/xc.c b/src/xc.c
index cd48fbe..2d51c20 100644
--- a/src/xc.c
+++ b/src/xc.c
@@ -152,11 +152,6 @@ register LispPTR tscache asm("bx");
 #define PVARL PVar
 #define IVARL IVar
 
-#ifdef DOS
-extern unsigned char inchar;
-extern unsigned short kn;
-#endif
-
 #ifdef XWINDOW
 extern int Event_Req; /* != 0 when it's time to check X events
                                                  on machines that don't get them reliably