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/msc_peek.c |
Initial import (2.0.2-6)2.0.2-6
Diffstat (limited to 'reference/C/CONTRIB/SNIP/msc_peek.c')
-rwxr-xr-x | reference/C/CONTRIB/SNIP/msc_peek.c | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/reference/C/CONTRIB/SNIP/msc_peek.c b/reference/C/CONTRIB/SNIP/msc_peek.c new file mode 100755 index 0000000..03ec54f --- /dev/null +++ b/reference/C/CONTRIB/SNIP/msc_peek.c @@ -0,0 +1,48 @@ +/*
+** For MSC which lacks these very basic (sic) functions
+**
+** public domain by Bob Stout
+*/
+
+#include <dos.h>
+
+#ifndef MK_FP
+ #define MK_FP(seg,offset) \
+ ((void _far *)(((unsigned long)(seg)<<16) | (unsigned)(offset)))
+#endif
+
+unsigned char peekb(unsigned seg, unsigned ofs)
+{
+ unsigned char _far *ptr;
+
+ FP_SEG(ptr) = seg;
+ FP_OFF(ptr) = ofs;
+ return *ptr;
+}
+
+unsigned peek(unsigned seg, unsigned ofs)
+{
+ unsigned _far *ptr;
+
+ FP_SEG(ptr) = seg;
+ FP_OFF(ptr) = ofs;
+ return *ptr;
+}
+
+void pokeb(unsigned seg, unsigned ofs, unsigned char ch)
+{
+ unsigned char _far *ptr;
+
+ FP_SEG(ptr) = seg;
+ FP_OFF(ptr) = ofs;
+ *ptr = ch;
+}
+
+void poke(unsigned seg, unsigned ofs, unsigned num)
+{
+ unsigned _far *ptr;
+
+ FP_SEG(ptr) = seg;
+ FP_OFF(ptr) = ofs;
+ *ptr = num;
+}
|