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

---
 f_purge.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 f_purge.c

(limited to 'f_purge.c')

diff --git a/f_purge.c b/f_purge.c
new file mode 100644
index 0000000..4357ba0
--- /dev/null
+++ b/f_purge.c
@@ -0,0 +1,14 @@
+#include "fossil.h"
+#include <dos.h>
+
+void F_Purge_Out()
+{
+        union REGS      regs;
+
+        regs.h.ah = 0x09;     /* function = request status */
+        regs.h.al = 0x00;
+        regs.x.dx = (unsigned char) port;
+        int86(FOSSIL_INT, &regs, &regs);
+        return;
+ }
+
-- 
cgit v1.2.3