summaryrefslogtreecommitdiff
path: root/reference/C/CONTRIB/SNIP/keylocks.c
diff options
context:
space:
mode:
Diffstat (limited to 'reference/C/CONTRIB/SNIP/keylocks.c')
-rwxr-xr-xreference/C/CONTRIB/SNIP/keylocks.c21
1 files changed, 21 insertions, 0 deletions
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;
+}