Changeset f51359c in buchla-emu for emu/kbd.c

Timestamp:

09/05/2017 09:49:45 AM (7 years ago)

Author:

Alexander Heinrich <alex.heinrich@…>

Branches:

master

Children:

c8a92ef

Parents:

5475ecf (diff), ca77925 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' of ​ssh://bob.lopatic.de:11501/home/git/buchla-emu into lcda

File:

• emu/kbd.c (modified) (4 diffs)

emu/kbd.c

@@ -24 +24 @@
 int32_t kbd_verbose = 0;
 
+#define BUF_SZ 16
+
+static int32_t buf_hd = 0;
+static int32_t buf_tl = 0;
+static uint8_t buf[BUF_SZ];
+
+static uint8_t reg = 0;
+static bool irq = false;
+
+static void xmit(void)
+{
+        ver2("kbd xmit %d %d", buf_tl, buf_hd);
+
+        if (buf_tl >= buf_hd) {
+                return;
+        }
+
+        reg = buf[buf_tl % BUF_SZ];
+        irq = true;
+        ver2("kbd xmit 0x%02x", reg);
+
+        ++buf_tl;
+
+        if (buf_tl >= BUF_SZ) {
+                buf_hd -= BUF_SZ;
+                buf_tl -= BUF_SZ;
+                ver2("kbd adj %d %d", buf_tl, buf_hd);
+        }
+}
+
+static void out(uint8_t c)
+{
+        ver2("kbd out %d %d 0x%02x", buf_tl, buf_hd, c);
+
+        if (SDL_LockMutex(cpu_mutex) < 0) {
+                fail("SDL_LockMutex() failed: %s", SDL_GetError());
+        }
+
+        if (buf_hd >= buf_tl + BUF_SZ) {
+                err("keyboard port losing data");
+        }
+        else {
+                buf[buf_hd % BUF_SZ] = c;
+                ++buf_hd;
+
+                if (!irq) {
+                        xmit();
+                }
+        }
+
+        if (SDL_UnlockMutex(cpu_mutex) < 0) {
+                fail("SDL_UnlockMutex() failed: %s", SDL_GetError());
+        }
+}
+
+static void but_on(int32_t sig)
+{
+        out((uint8_t)(0x80 | sig));
+        out(0x01);
+}
+
+static void but_off(int32_t sig)
+{
+        out((uint8_t)(0x80 | sig));
+        out(0x00);
+}
+
+static void key_touch(int32_t sig, int32_t val)
+{
+        out((uint8_t)(0x80 | sig));
+        out(0x01);
+        out((uint8_t)val);
+}
+
+static void key_off(int32_t sig)
+{
+        out((uint8_t)(0x80 | sig));
+        out(0x00);
+}
+
+#if defined NOT_YET
+static void pot_128(int32_t sig, int32_t val)
+{
+        out((uint8_t)(0x80 | sig));
+        out((uint8_t)val);
+}
+
+static void pot_256(int32_t sig, int32_t val)
+{
+        out((uint8_t)(0x80 | sig));
+        out((uint8_t)((val >> 7) & 0x01));
+        out((uint8_t)(val & 0x7f));
+}
+#endif
+
+void kbd_key(SDL_KeyboardEvent *ev, bool dn)
+{
+        if ((ev->keysym.mod & KMOD_SHIFT) != 0 &&
+                        ev->keysym.sym >= SDLK_a && ev->keysym.sym <= SDLK_x) {
+                int32_t i = ev->keysym.sym - SDLK_a;
+                ver2("kbd key %d %s", i, dn ? "dn" : "up");
+
+                if (dn) {
+                        key_touch(1 + i, 0x7f);
+                }
+                else {
+                        key_off(1 + i);
+                }
+
+                return;
+        }
+
+        int32_t sig;
+
+        if (ev->keysym.sym >= SDLK_0 && ev->keysym.sym <= '9') {
+                int32_t i = ev->keysym.sym - SDLK_0;
+                ver2("kbd dat %d %s", i, dn ? "dn" : "up");
+                sig = 60 + i;
+        }
+        else {
+                switch (ev->keysym.sym) {
+                case SDLK_x:
+                        ver2("kbd x %s", dn ? "dn" : "up");
+                        sig = 70;
+                        break;
+
+                case SDLK_e:
+                        ver2("kbd e %s", dn ? "dn" : "up");
+                        sig = 71;
+                        break;
+
+                case SDLK_m:
+                        ver2("kbd m %s", dn ? "dn" : "up");
+                        sig = 72;
+                        break;
+
+                default:
+                        return;
+                }
+        }
+
+        if (dn) {
+                but_on(sig);
+        }
+        else {
+                but_off(sig);
+        }
+}
+
 void kbd_init(void)
 {
@@ -37 +186 @@
 {
         ver3("kbd exec");
-        return false;
+        return irq;
 }
 
@@ -43 +192 @@
 {
         ver2("kbd rd %u:%d", off, sz * 8);
-        return 0;
+
+        if (sz != 1 || off > 0) {
+                fail("invalid kbd rd %u:%d", off, sz * 8);
+        }
+
+        irq = false;
+        uint32_t res = reg;
+
+        xmit();
+
+        return res;
 }
 
@@ -49 +208 @@
 {
         ver2("kbd wr %u:%d 0x%0*x", off, sz * 8, sz * 2, val);
-}
+        fail("invalid kbd wr %u:%d", off, sz * 8);
+}