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/keylocks.c | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 reference/C/CONTRIB/SNIP/keylocks.c

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

diff --git a/reference/C/CONTRIB/SNIP/keylocks.c b/reference/C/CONTRIB/SNIP/keylocks.c
new file mode 100755
index 0000000..2c0880f
--- /dev/null
+++ b/reference/C/CONTRIB/SNIP/keylocks.c
@@ -0,0 +1,21 @@
+static volatile unsigned char far *keyflags = (char far *)0x00400017;
+
+void setcaps(void)
+{
+        *keyflags |= 0x40;
+}
+
+void clrcaps(void)
+{
+        *keyflags &= ~0x40;
+}
+
+void setnumlock(void)
+{
+        *keyflags |= 0x20;
+}
+
+void clrnumlock(void)
+{
+        *keyflags &= ~0x20;
+}
-- 
cgit v1.2.3-54-g00ecf