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_peekck.c | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 f_peekck.c

(limited to 'f_peekck.c')

diff --git a/f_peekck.c b/f_peekck.c
new file mode 100644
index 0000000..d3fdd63
--- /dev/null
+++ b/f_peekck.c
@@ -0,0 +1,20 @@
+#include "fossil.h"
+#include <dos.h>
+#include <stdlib.h>
+
+unsigned char F_Peek_Check(void)
+{
+        return F_NBPeek();
+}
+
+unsigned char F_NBPeek(void)
+{
+        union REGS      regs;
+        regs.h.ah = 0x0C;
+        regs.x.dx = (unsigned char) port;
+        int86(FOSSIL_INT, &regs, &regs);
+        
+        if(regs.x.ax == 0xFFFF) return(FALSE);
+        
+        return (TRUE);
+}
-- 
cgit v1.2.3