diff options
| author | Tobias Klauser <tklauser@distanz.ch> | 2008-01-27 11:37:44 +0100 |
|---|---|---|
| committer | Tobias Klauser <tklauser@xenon.tklauser.home> | 2008-01-27 11:37:44 +0100 |
| commit | 7e0f021a9aec35fd8e6725e87e3313b101d26f5e (patch) | |
| tree | b1cacc4b24393f517aeb4610e9e1021f954307a8 /reference/C/CONTRIB/SNIP/keylocks.c | |
Initial import (2.0.2-6)2.0.2-6
Diffstat (limited to 'reference/C/CONTRIB/SNIP/keylocks.c')
| -rwxr-xr-x | reference/C/CONTRIB/SNIP/keylocks.c | 21 |
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;
+}
|