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/biport.c |
Initial import (2.0.2-6)2.0.2-6
Diffstat (limited to 'reference/C/CONTRIB/SNIP/biport.c')
-rwxr-xr-x | reference/C/CONTRIB/SNIP/biport.c | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/reference/C/CONTRIB/SNIP/biport.c b/reference/C/CONTRIB/SNIP/biport.c new file mode 100755 index 0000000..1b1e6bb --- /dev/null +++ b/reference/C/CONTRIB/SNIP/biport.c @@ -0,0 +1,16 @@ +/*
+** BIPORT.C - Port TC/TC++/BC++ code using register pseudovariables
+**
+** public domain by Bob Stout
+*/
+
+#include "biport.h"
+
+union REGS BIP_regs_;
+struct SREGS BIP_sregs_;
+
+unsigned _pascal geninterrupt(int int_no)
+{
+ int86x(int_no, &BIP_regs_, &BIP_regs_, &BIP_sregs_);
+ return BIP_regs_.x.ax;
+}
|