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

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

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;
+}
-- 
cgit v1.2.3-54-g00ecf