From 99cf9c4dc5855b1f5f26d00267fdbbe672ee27a7 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Mon, 5 Oct 2015 08:38:46 -0400
Subject: Initial commit

---
 purge_in.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 purge_in.c

(limited to 'purge_in.c')

diff --git a/purge_in.c b/purge_in.c
new file mode 100644
index 0000000..d7a82d7
--- /dev/null
+++ b/purge_in.c
@@ -0,0 +1,13 @@
+#include "fossil.h"
+#include <dos.h>
+
+void F_Purge_In()
+{
+        union REGS      regs;
+
+        regs.h.ah = 0x0A;       /* Purge input buffer */
+        regs.h.al = 0x00;
+        regs.x.dx = (unsigned char) port;
+        int86(FOSSIL_INT, &regs, &regs);
+        return;
+ }
-- 
cgit v1.2.3