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_peek.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 f_peek.c

(limited to 'f_peek.c')

diff --git a/f_peek.c b/f_peek.c
new file mode 100644
index 0000000..108b9e8
--- /dev/null
+++ b/f_peek.c
@@ -0,0 +1,14 @@
+#include "fossil.h"
+#include <dos.h>
+#include <stdlib.h>
+
+unsigned char F_Peek(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 (regs.h.al);
+}
-- 
cgit v1.2.3