From 7e0f021a9aec35fd8e6725e87e3313b101d26f5e Mon Sep 17 00:00:00 2001
From: Tobias Klauser <tklauser@distanz.ch>
Date: Sun, 27 Jan 2008 11:37:44 +0100
Subject: Initial import (2.0.2-6)

---
 reference/C/CONTRIB/SNIP/faskbhit.c | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 reference/C/CONTRIB/SNIP/faskbhit.c

(limited to 'reference/C/CONTRIB/SNIP/faskbhit.c')

diff --git a/reference/C/CONTRIB/SNIP/faskbhit.c b/reference/C/CONTRIB/SNIP/faskbhit.c
new file mode 100755
index 0000000..5c14022
--- /dev/null
+++ b/reference/C/CONTRIB/SNIP/faskbhit.c
@@ -0,0 +1,28 @@
+/*
+**  by David Goodenough & Bob Stout
+*/
+
+#ifdef __TURBOC__
+ #define FAR far
+#else
+ #define FAR _far
+#endif
+
+#ifndef MK_FP
+ #define MK_FP(seg,offset) \
+        ((void FAR *)(((unsigned long)(seg)<<16) | (unsigned)(offset)))
+#endif
+ 
+#define biosseg 0x40
+
+int fast_kbhit(void)
+{
+      return *((unsigned FAR *)MK_FP(biosseg, 0x1a)) -
+            *((unsigned FAR *)MK_FP(biosseg, 0x1c));
+}
+
+void fast_kbflush(void)
+{
+      *((unsigned FAR *)MK_FP(biosseg, 0x1a)) =
+            *((unsigned FAR *)MK_FP(biosseg, 0x1c));
+}
-- 
cgit v1.2.3-54-g00ecf