From 99cf9c4dc5855b1f5f26d00267fdbbe672ee27a7 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Mon, 5 Oct 2015 08:38:46 -0400
Subject: Initial commit

---
 f_get_st.c | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 f_get_st.c

(limited to 'f_get_st.c')

diff --git a/f_get_st.c b/f_get_st.c
new file mode 100644
index 0000000..a8d9c03
--- /dev/null
+++ b/f_get_st.c
@@ -0,0 +1,50 @@
+#include "fossil.h"
+#include <dos.h>
+#include <stdlib.h>
+int F_Get_Status(unsigned char function)
+{
+        int         arg = 0;
+
+        union REGS      regs;
+
+        if(function == CK_DCD && dcd_ignore)
+                return TRUE;
+
+        regs.h.ah = 0x03;       /* function = request status */
+        regs.h.al = 0x00;
+        regs.x.dx = (unsigned char) port;
+        int86(FOSSIL_INT, &regs, &regs);
+
+
+        switch (function) {
+        case 1:
+                arg = ((regs.h.al & 0x10) == 0x10) ? 1 : 0;  /* CTS * /
+                        break;
+        case 2:
+                arg = ((regs.h.al & 0x20) == 0x20) ? 1 : 0;  /* DSR */
+                break;
+        case 3:
+                arg = ((regs.h.al & 0x40) == 0x40) ? 1 : 0;  /* RING */
+                break;
+        case 4:
+                arg = ((regs.h.al & 0x80) == 0x80) ? 1 : 0;   /* DCD */
+                break;
+        case 5:
+                arg = ((regs.h.ah & 0x00) == 0x00) ? 1 : 0;   /* RDA */
+                break;
+        case 6:
+                arg = ((regs.h.ah & 0x02) == 0x02) ? 1 : 0;   /* OVRN */
+                break;
+        case 7:
+                arg = ((regs.h.ah & 0x20) == 0x20) ? 1 : 0;   /* THRE */
+                break;
+        case 8:
+                arg = ((regs.h.ah & 0x40) == 0x040) ? 1 : 0;  /* TSRE */
+                break;
+        case 9:
+                arg = ((regs.h.ah & 0x80) == 0x80) ? 1 : 0;   /* TIMEOUT */
+        default:
+                return (FALSE);
+        }
+        return (arg);
+}
-- 
cgit v1.2.3