1 files changed, 66 insertions, 0 deletions
diff --git a/atari/gemtk/utils.c b/atari/gemtk/utils.c
new file mode 100644
index 000000000..3fc668a06
--- /dev/null
+++ b/atari/gemtk/utils.c
@@ -0,0 +1,66 @@
+#include <stdlib.h>
+#include <stdint.h>
+#include <stdbool.h>
+#include <gem.h>
+#include "gemtk.h"
+
+/* -------------------------------------------------------------------------- */
+/* GEM Utillity functions:                                                    */
+/* -------------------------------------------------------------------------- */
+
+unsigned short _systype_v;
+unsigned short _systype (void)
+{
+    int32_t * cptr = NULL;
+    _systype_v = SYS_TOS;
+
+    cptr = (int32_t *)Setexc(0x0168, -1L);
+    if (cptr == NULL ) {
+        return _systype_v;   /* stone old TOS without any cookie support */
+    }
+    while (*cptr) {
+        if (*cptr == C_MgMc || *cptr == C_MgMx ) {
+            _systype_v = (_systype_v & ~0xF) | SYS_MAGIC;
+        } else if (*cptr == C_MiNT ) {
+            _systype_v = (_systype_v & ~0xF) | SYS_MINT;
+        } else if (*cptr == C_Gnva /* Gnva */ ) {
+            _systype_v |= SYS_GENEVA;
+        } else if (*cptr == C_nAES /* nAES */ ) {
+            _systype_v |= SYS_NAES;
+        }
+        cptr += 2;
+    }
+    if (_systype_v & SYS_MINT) { /* check for XaAES */
+        short out = 0, u;
+        if (wind_get (0, (((short)'X') <<8)|'A', &out, &u,&u,&u) && out) {
+            _systype_v |= SYS_XAAES;
+        }
+    }
+    return _systype_v;
+}
+
+bool rc_intersect_ro(GRECT *a, GRECT *b)
+{
+    GRECT r1, r2;
+
+    r1 = *a;
+    r2 = *b;
+
+    return((bool)rc_intersect(&r1, &r2));
+}
+
+
+typedef struct {
+    char *unshift;
+    char *shift;
+    char *capslock;
+} MY_KEYTAB;
+
+int keybd2ascii( int keybd, int shift)
+{
+
+    MY_KEYTAB *key;
+    key = (MY_KEYTAB *)Keytbl( (char*)-1, (char*)-1, (char*)-1);
+    return (shift)?key->shift[keybd>>8]:key->unshift[keybd>>8];
+}
+