diff --git a/apps/plugins/varvara/uxn-fast.c b/apps/plugins/varvara/uxn-fast.c
index c155f005b3..74a7a7801b 100644
--- a/apps/plugins/varvara/uxn-fast.c
+++ b/apps/plugins/varvara/uxn-fast.c
@@ -12,31 +12,43 @@ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 WITH REGARD TO THIS SOFTWARE.
 */
 
-/*
- ^
-/!\ THIS FILE IS AUTOMATICALLY GENERATED
----
-
-Its contents can get overwritten with the processed contents of src/uxn.c.
-See etc/mkuxn-fast.moon for instructions.
-
-*/
-
+#define MODE_SHORT 0x20
 #define MODE_RETURN 0x40
 #define MODE_KEEP 0x80
 
 #pragma mark - Operations
 
 /* clang-format off */
-static void   poke8(Uint8 *m, Uint16 a, Uint8 b) { m[a] = b; }
-static Uint8  peek8(Uint8 *m, Uint16 a) { return m[a]; }
-static int    devw8(Device *d, Uint8 a, Uint8 b) { d->dat[a & 0xf] = b; return d->talk(d, a & 0x0f, 1); }
-static Uint8  devr8(Device *d, Uint8 a) { d->talk(d, a & 0x0f, 0); return d->dat[a & 0xf];  }
-void   poke16(Uint8 *m, Uint16 a, Uint16 b) { poke8(m, a, b >> 8); poke8(m, a + 1, b); }
-Uint16 peek16(Uint8 *m, Uint16 a) { return (peek8(m, a) << 8) + peek8(m, a + 1); }
-static int    devw16(Device *d, Uint8 a, Uint16 b) { return devw8(d, a, b >> 8) && devw8(d, a + 1, b); }
 
-/* clang-format on */
+/* Utilities */
+static void   (*push)(Stack *s, Uint16 a);
+static Uint16 (*pop8)(Stack *s);
+static Uint16 (*pop)(Stack *s);
+static void   (*poke)(Uint8 *m, Uint16 a, Uint16 b);
+static Uint16 (*peek)(Uint8 *m, Uint16 a);
+static void   (*devw)(Device *d, Uint8 a, Uint16 b);
+static Uint16 (*devr)(Device *d, Uint8 a);
+static void   (*warp)(Uxn *u, Uint16 a);
+static void   (*pull)(Uxn *u);
+/* byte mode */
+static void   push8(Stack *s, Uint16 a) { if(s->ptr == 0xff) { s->error = 2; return; } s->dat[s->ptr++] = a; }
+static Uint16 pop8k(Stack *s) { if(s->kptr == 0) { s->error = 1; return 0; } return s->dat[--s->kptr]; }
+static Uint16 pop8d(Stack *s) { if(s->ptr == 0) { s->error = 1; return 0; } return s->dat[--s->ptr]; }
+static void   poke8(Uint8 *m, Uint16 a, Uint16 b) { m[a] = b; }
+static Uint16 peek8(Uint8 *m, Uint16 a) { return m[a]; }
+static void   devw8(Device *d, Uint8 a, Uint16 b) { d->dat[a & 0xf] = b; d->deo(d, a & 0x0f); }
+static Uint16 devr8(Device *d, Uint8 a) { return d->dei(d, a & 0x0f); }
+static void   warp8(Uxn *u, Uint16 a){ u->ram.ptr += (Sint8)a; }
+static void   pull8(Uxn *u){ push8(u->src, peek8(u->ram.dat, u->ram.ptr++)); }
+/* short mode */
+static void   push16(Stack *s, Uint16 a) { push8(s, a >> 8); push8(s, a); }
+static Uint16 pop16(Stack *s) { Uint8 a = pop8(s), b = pop8(s); return a + (b << 8); }
+	   void   poke16(Uint8 *m, Uint16 a, Uint16 b) { poke8(m, a, b >> 8); poke8(m, a + 1, b); }
+	   Uint16 peek16(Uint8 *m, Uint16 a) { return (peek8(m, a) << 8) + peek8(m, a + 1); }
+static void   devw16(Device *d, Uint8 a, Uint16 b) { devw8(d, a, b >> 8); devw8(d, a + 1, b); }
+static Uint16 devr16(Device *d, Uint8 a) { return (devr8(d, a) << 8) + devr8(d, a + 1); }
+static void   warp16(Uxn *u, Uint16 a){ u->ram.ptr = a; }
+static void   pull16(Uxn *u){ push16(u->src, peek16(u->ram.dat, u->ram.ptr++)); u->ram.ptr++; }
 
 #pragma mark - Core
 
@@ -44,3988 +56,85 @@ int
 uxn_eval(Uxn *u, Uint16 vec)
 {
 	Uint8 instr;
-	if(!vec || u->dev[0].dat[0xf]) 
+	Uint16 a,b,c;
+	if(!vec || u->dev[0].dat[0xf])
 		return 0;
 	u->ram.ptr = vec;
 	if(u->wst.ptr > 0xf8) u->wst.ptr = 0xf8;
 	while((instr = u->ram.dat[u->ram.ptr++])) {
-		switch(instr) {
-#pragma GCC diagnostic push
-#pragma GCC diagnostic ignored "-Wunused-value"
-#pragma GCC diagnostic ignored "-Wunused-variable"
-		case 0x00: /* LIT */
-		case 0x80: /* LITk */
-			{
-				u->wst.dat[u->wst.ptr] = peek8(u->ram.dat, u->ram.ptr++);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x01: /* INC */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr - 1] = a + 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x02: /* POP */
-			{
-				u->wst.dat[u->wst.ptr - 1];
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x03: /* DUP */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x04: /* NIP */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x05: /* SWP */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = a;
-				u->wst.dat[u->wst.ptr - 1] = b;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x06: /* OVR */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x07: /* ROT */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3];
-				u->wst.dat[u->wst.ptr - 3] = b;
-				u->wst.dat[u->wst.ptr - 2] = a;
-				u->wst.dat[u->wst.ptr - 1] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x08: /* EQU */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b == a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x09: /* NEQ */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b != a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x0a: /* GTH */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b > a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x0b: /* LTH */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b < a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x0c: /* JMP */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x0d: /* JCN */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				if(u->wst.dat[u->wst.ptr - 2]) u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x0e: /* JSR */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = u->ram.ptr >> 8;
-				u->rst.dat[u->rst.ptr + 1] = u->ram.ptr & 0xff;
-				u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0x0f: /* STH */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0x10: /* LDZ */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr - 1] = peek8(u->ram.dat, a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x11: /* STZ */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint8 b = u->wst.dat[u->wst.ptr - 2];
-				poke8(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x12: /* LDR */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr - 1] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x13: /* STR */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint8 b = u->wst.dat[u->wst.ptr - 2];
-				poke8(u->ram.dat, u->ram.ptr + (Sint8)a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x14: /* LDA */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				u->wst.dat[u->wst.ptr - 2] = peek8(u->ram.dat, a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x15: /* STA */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				Uint8 b = u->wst.dat[u->wst.ptr - 3];
-				poke8(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 3;
-			}
-			break;
-		case 0x16: /* DEI */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr - 1] = devr8(&u->dev[a >> 4], a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x17: /* DEO */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				if(!devw8(&u->dev[a >> 4], a, b))
-					return 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x18: /* ADD */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b + a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x19: /* SUB */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b - a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x1a: /* MUL */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b * a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x1b: /* DIV */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				if(a == 0) {
-					u->wst.error = 3;
-#ifndef NO_STACK_CHECKS
-					goto error;
-#endif
-					a = 1;
-				}
-				u->wst.dat[u->wst.ptr - 2] = b / a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x1c: /* AND */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b & a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x1d: /* ORA */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b | a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x1e: /* EOR */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b ^ a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x1f: /* SFT */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr - 2] = b >> (a & 0x07) << ((a & 0x70) >> 4);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x20: /* LIT2 */
-		case 0xa0: /* LIT2k */
-			{
-				u->wst.dat[u->wst.ptr] = peek8(u->ram.dat, u->ram.ptr++);
-				u->wst.dat[u->wst.ptr + 1] = peek8(u->ram.dat, u->ram.ptr++);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0x21: /* INC2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				u->wst.dat[u->wst.ptr - 2] = (a + 1) >> 8;
-				u->wst.dat[u->wst.ptr - 1] = (a + 1) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x22: /* POP2 */
-			{
-				(u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x23: /* DUP2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b;
-				u->wst.dat[u->wst.ptr + 1] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0x24: /* NIP2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				(u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr - 4] = a >> 8;
-				u->wst.dat[u->wst.ptr - 3] = a & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x25: /* SWP2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4];
-				u->wst.dat[u->wst.ptr - 4] = b;
-				u->wst.dat[u->wst.ptr - 3] = a;
-				u->wst.dat[u->wst.ptr - 2] = d;
-				u->wst.dat[u->wst.ptr - 1] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x26: /* OVR2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4];
-				u->wst.dat[u->wst.ptr] = d;
-				u->wst.dat[u->wst.ptr + 1] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0x27: /* ROT2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4], e = u->wst.dat[u->wst.ptr - 5], f = u->wst.dat[u->wst.ptr - 6];
-				u->wst.dat[u->wst.ptr - 6] = d;
-				u->wst.dat[u->wst.ptr - 5] = c;
-				u->wst.dat[u->wst.ptr - 4] = b;
-				u->wst.dat[u->wst.ptr - 3] = a;
-				u->wst.dat[u->wst.ptr - 2] = f;
-				u->wst.dat[u->wst.ptr - 1] = e;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 6, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x28: /* EQU2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr - 4] = b == a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 3;
-			}
-			break;
-		case 0x29: /* NEQ2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr - 4] = b != a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 3;
-			}
-			break;
-		case 0x2a: /* GTH2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr - 4] = b > a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 3;
-			}
-			break;
-		case 0x2b: /* LTH2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr - 4] = b < a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 3;
-			}
-			break;
-		case 0x2c: /* JMP2 */
-			{
-				u->ram.ptr = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x2d: /* JCN2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				if(u->wst.dat[u->wst.ptr - 3]) u->ram.ptr = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 3;
-			}
-			break;
-		case 0x2e: /* JSR2 */
-			{
-				u->rst.dat[u->rst.ptr] = u->ram.ptr >> 8;
-				u->rst.dat[u->rst.ptr + 1] = u->ram.ptr & 0xff;
-				u->ram.ptr = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0x2f: /* STH2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b;
-				u->rst.dat[u->rst.ptr + 1] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0x30: /* LDZ2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr - 1] = peek8(u->ram.dat, a);
-				u->wst.dat[u->wst.ptr] = peek8(u->ram.dat, a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x31: /* STZ2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint16 b = (u->wst.dat[u->wst.ptr - 2] | (u->wst.dat[u->wst.ptr - 3] << 8));
-				poke16(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 3;
-			}
-			break;
-		case 0x32: /* LDR2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr - 1] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a);
-				u->wst.dat[u->wst.ptr] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x33: /* STR2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint16 b = (u->wst.dat[u->wst.ptr - 2] | (u->wst.dat[u->wst.ptr - 3] << 8));
-				poke16(u->ram.dat, u->ram.ptr + (Sint8)a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 3;
-			}
-			break;
-		case 0x34: /* LDA2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				u->wst.dat[u->wst.ptr - 2] = peek8(u->ram.dat, a);
-				u->wst.dat[u->wst.ptr - 1] = peek8(u->ram.dat, a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x35: /* STA2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				Uint16 b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				poke16(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 4;
-			}
-			break;
-		case 0x36: /* DEI2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr - 1] = devr8(&u->dev[a >> 4], a);
-				u->wst.dat[u->wst.ptr] = devr8(&u->dev[a >> 4], a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x37: /* DEO2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint16 b = (u->wst.dat[u->wst.ptr - 2] | (u->wst.dat[u->wst.ptr - 3] << 8));
-				if(!devw16(&u->dev[a >> 4], a, b))
-					return 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 3;
-			}
-			break;
-		case 0x38: /* ADD2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr - 4] = (b + a) >> 8;
-				u->wst.dat[u->wst.ptr - 3] = (b + a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x39: /* SUB2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr - 4] = (b - a) >> 8;
-				u->wst.dat[u->wst.ptr - 3] = (b - a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x3a: /* MUL2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr - 4] = (b * a) >> 8;
-				u->wst.dat[u->wst.ptr - 3] = (b * a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x3b: /* DIV2 */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				if(a == 0) {
-					u->wst.error = 3;
-#ifndef NO_STACK_CHECKS
-					goto error;
-#endif
-					a = 1;
-				}
-				u->wst.dat[u->wst.ptr - 4] = (b / a) >> 8;
-				u->wst.dat[u->wst.ptr - 3] = (b / a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x3c: /* AND2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4];
-				u->wst.dat[u->wst.ptr - 4] = d & b;
-				u->wst.dat[u->wst.ptr - 3] = c & a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x3d: /* ORA2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4];
-				u->wst.dat[u->wst.ptr - 4] = d | b;
-				u->wst.dat[u->wst.ptr - 3] = c | a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x3e: /* EOR2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4];
-				u->wst.dat[u->wst.ptr - 4] = d ^ b;
-				u->wst.dat[u->wst.ptr - 3] = c ^ a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 2;
-			}
-			break;
-		case 0x3f: /* SFT2 */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint16 b = (u->wst.dat[u->wst.ptr - 2] | (u->wst.dat[u->wst.ptr - 3] << 8));
-				u->wst.dat[u->wst.ptr - 3] = (b >> (a & 0x0f) << ((a & 0xf0) >> 4)) >> 8;
-				u->wst.dat[u->wst.ptr - 2] = (b >> (a & 0x0f) << ((a & 0xf0) >> 4)) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-				u->wst.ptr -= 1;
-			}
-			break;
-		case 0x40: /* LITr */
-		case 0xc0: /* LITkr */
-			{
-				u->rst.dat[u->rst.ptr] = peek8(u->ram.dat, u->ram.ptr++);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0x41: /* INCr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr - 1] = a + 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x42: /* POPr */
-			{
-				u->rst.dat[u->rst.ptr - 1];
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x43: /* DUPr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0x44: /* NIPr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x45: /* SWPr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = a;
-				u->rst.dat[u->rst.ptr - 1] = b;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x46: /* OVRr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0x47: /* ROTr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3];
-				u->rst.dat[u->rst.ptr - 3] = b;
-				u->rst.dat[u->rst.ptr - 2] = a;
-				u->rst.dat[u->rst.ptr - 1] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x48: /* EQUr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b == a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x49: /* NEQr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b != a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x4a: /* GTHr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b > a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x4b: /* LTHr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b < a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x4c: /* JMPr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x4d: /* JCNr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				if(u->rst.dat[u->rst.ptr - 2]) u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x4e: /* JSRr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = u->ram.ptr >> 8;
-				u->wst.dat[u->wst.ptr + 1] = u->ram.ptr & 0xff;
-				u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0x4f: /* STHr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x50: /* LDZr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr - 1] = peek8(u->ram.dat, a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x51: /* STZr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint8 b = u->rst.dat[u->rst.ptr - 2];
-				poke8(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x52: /* LDRr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr - 1] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x53: /* STRr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint8 b = u->rst.dat[u->rst.ptr - 2];
-				poke8(u->ram.dat, u->ram.ptr + (Sint8)a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x54: /* LDAr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				u->rst.dat[u->rst.ptr - 2] = peek8(u->ram.dat, a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x55: /* STAr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				Uint8 b = u->rst.dat[u->rst.ptr - 3];
-				poke8(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 3;
-			}
-			break;
-		case 0x56: /* DEIr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr - 1] = devr8(&u->dev[a >> 4], a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x57: /* DEOr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				if(!devw8(&u->dev[a >> 4], a, b))
-					return 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x58: /* ADDr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b + a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x59: /* SUBr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b - a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x5a: /* MULr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b * a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x5b: /* DIVr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				if(a == 0) {
-					u->rst.error = 3;
-#ifndef NO_STACK_CHECKS
-					goto error;
-#endif
-					a = 1;
-				}
-				u->rst.dat[u->rst.ptr - 2] = b / a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x5c: /* ANDr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b & a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x5d: /* ORAr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b | a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x5e: /* EORr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b ^ a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x5f: /* SFTr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr - 2] = b >> (a & 0x07) << ((a & 0x70) >> 4);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x60: /* LIT2r */
-		case 0xe0: /* LIT2kr */
-			{
-				u->rst.dat[u->rst.ptr] = peek8(u->ram.dat, u->ram.ptr++);
-				u->rst.dat[u->rst.ptr + 1] = peek8(u->ram.dat, u->ram.ptr++);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0x61: /* INC2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				u->rst.dat[u->rst.ptr - 2] = (a + 1) >> 8;
-				u->rst.dat[u->rst.ptr - 1] = (a + 1) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x62: /* POP2r */
-			{
-				(u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x63: /* DUP2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b;
-				u->rst.dat[u->rst.ptr + 1] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0x64: /* NIP2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				(u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr - 4] = a >> 8;
-				u->rst.dat[u->rst.ptr - 3] = a & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x65: /* SWP2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4];
-				u->rst.dat[u->rst.ptr - 4] = b;
-				u->rst.dat[u->rst.ptr - 3] = a;
-				u->rst.dat[u->rst.ptr - 2] = d;
-				u->rst.dat[u->rst.ptr - 1] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x66: /* OVR2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4];
-				u->rst.dat[u->rst.ptr] = d;
-				u->rst.dat[u->rst.ptr + 1] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0x67: /* ROT2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4], e = u->rst.dat[u->rst.ptr - 5], f = u->rst.dat[u->rst.ptr - 6];
-				u->rst.dat[u->rst.ptr - 6] = d;
-				u->rst.dat[u->rst.ptr - 5] = c;
-				u->rst.dat[u->rst.ptr - 4] = b;
-				u->rst.dat[u->rst.ptr - 3] = a;
-				u->rst.dat[u->rst.ptr - 2] = f;
-				u->rst.dat[u->rst.ptr - 1] = e;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 6, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x68: /* EQU2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr - 4] = b == a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 3;
-			}
-			break;
-		case 0x69: /* NEQ2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr - 4] = b != a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 3;
-			}
-			break;
-		case 0x6a: /* GTH2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr - 4] = b > a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 3;
-			}
-			break;
-		case 0x6b: /* LTH2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr - 4] = b < a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 3;
-			}
-			break;
-		case 0x6c: /* JMP2r */
-			{
-				u->ram.ptr = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x6d: /* JCN2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				if(u->rst.dat[u->rst.ptr - 3]) u->ram.ptr = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 3;
-			}
-			break;
-		case 0x6e: /* JSR2r */
-			{
-				u->wst.dat[u->wst.ptr] = u->ram.ptr >> 8;
-				u->wst.dat[u->wst.ptr + 1] = u->ram.ptr & 0xff;
-				u->ram.ptr = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0x6f: /* STH2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b;
-				u->wst.dat[u->wst.ptr + 1] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0x70: /* LDZ2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr - 1] = peek8(u->ram.dat, a);
-				u->rst.dat[u->rst.ptr] = peek8(u->ram.dat, a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0x71: /* STZ2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint16 b = (u->rst.dat[u->rst.ptr - 2] | (u->rst.dat[u->rst.ptr - 3] << 8));
-				poke16(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 3;
-			}
-			break;
-		case 0x72: /* LDR2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr - 1] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a);
-				u->rst.dat[u->rst.ptr] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0x73: /* STR2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint16 b = (u->rst.dat[u->rst.ptr - 2] | (u->rst.dat[u->rst.ptr - 3] << 8));
-				poke16(u->ram.dat, u->ram.ptr + (Sint8)a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 3;
-			}
-			break;
-		case 0x74: /* LDA2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				u->rst.dat[u->rst.ptr - 2] = peek8(u->ram.dat, a);
-				u->rst.dat[u->rst.ptr - 1] = peek8(u->ram.dat, a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x75: /* STA2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				Uint16 b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				poke16(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 4;
-			}
-			break;
-		case 0x76: /* DEI2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr - 1] = devr8(&u->dev[a >> 4], a);
-				u->rst.dat[u->rst.ptr] = devr8(&u->dev[a >> 4], a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0x77: /* DEO2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint16 b = (u->rst.dat[u->rst.ptr - 2] | (u->rst.dat[u->rst.ptr - 3] << 8));
-				if(!devw16(&u->dev[a >> 4], a, b))
-					return 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 3;
-			}
-			break;
-		case 0x78: /* ADD2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr - 4] = (b + a) >> 8;
-				u->rst.dat[u->rst.ptr - 3] = (b + a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x79: /* SUB2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr - 4] = (b - a) >> 8;
-				u->rst.dat[u->rst.ptr - 3] = (b - a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x7a: /* MUL2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr - 4] = (b * a) >> 8;
-				u->rst.dat[u->rst.ptr - 3] = (b * a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x7b: /* DIV2r */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				if(a == 0) {
-					u->rst.error = 3;
-#ifndef NO_STACK_CHECKS
-					goto error;
-#endif
-					a = 1;
-				}
-				u->rst.dat[u->rst.ptr - 4] = (b / a) >> 8;
-				u->rst.dat[u->rst.ptr - 3] = (b / a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x7c: /* AND2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4];
-				u->rst.dat[u->rst.ptr - 4] = d & b;
-				u->rst.dat[u->rst.ptr - 3] = c & a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x7d: /* ORA2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4];
-				u->rst.dat[u->rst.ptr - 4] = d | b;
-				u->rst.dat[u->rst.ptr - 3] = c | a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x7e: /* EOR2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4];
-				u->rst.dat[u->rst.ptr - 4] = d ^ b;
-				u->rst.dat[u->rst.ptr - 3] = c ^ a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 2;
-			}
-			break;
-		case 0x7f: /* SFT2r */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint16 b = (u->rst.dat[u->rst.ptr - 2] | (u->rst.dat[u->rst.ptr - 3] << 8));
-				u->rst.dat[u->rst.ptr - 3] = (b >> (a & 0x0f) << ((a & 0xf0) >> 4)) >> 8;
-				u->rst.dat[u->rst.ptr - 2] = (b >> (a & 0x0f) << ((a & 0xf0) >> 4)) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-				u->rst.ptr -= 1;
-			}
-			break;
-		case 0x81: /* INCk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = a + 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x82: /* POPk */
-			{
-				u->wst.dat[u->wst.ptr - 1];
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x83: /* DUPk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = a;
-				u->wst.dat[u->wst.ptr + 1] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0x84: /* NIPk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x85: /* SWPk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = a;
-				u->wst.dat[u->wst.ptr + 1] = b;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0x86: /* OVRk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b;
-				u->wst.dat[u->wst.ptr + 1] = a;
-				u->wst.dat[u->wst.ptr + 2] = b;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 252, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 3;
-			}
-			break;
-		case 0x87: /* ROTk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3];
-				u->wst.dat[u->wst.ptr] = b;
-				u->wst.dat[u->wst.ptr + 1] = a;
-				u->wst.dat[u->wst.ptr + 2] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 252, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 3;
-			}
-			break;
-		case 0x88: /* EQUk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b == a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x89: /* NEQk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b != a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x8a: /* GTHk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b > a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x8b: /* LTHk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b < a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x8c: /* JMPk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x8d: /* JCNk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				if(u->wst.dat[u->wst.ptr - 2]) u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x8e: /* JSRk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = u->ram.ptr >> 8;
-				u->rst.dat[u->rst.ptr + 1] = u->ram.ptr & 0xff;
-				u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0x8f: /* STHk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0x90: /* LDZk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = peek8(u->ram.dat, a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x91: /* STZk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint8 b = u->wst.dat[u->wst.ptr - 2];
-				poke8(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x92: /* LDRk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x93: /* STRk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint8 b = u->wst.dat[u->wst.ptr - 2];
-				poke8(u->ram.dat, u->ram.ptr + (Sint8)a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x94: /* LDAk */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				u->wst.dat[u->wst.ptr] = peek8(u->ram.dat, a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x95: /* STAk */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				Uint8 b = u->wst.dat[u->wst.ptr - 3];
-				poke8(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x96: /* DEIk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = devr8(&u->dev[a >> 4], a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x97: /* DEOk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				if(!devw8(&u->dev[a >> 4], a, b))
-					return 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0x98: /* ADDk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b + a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x99: /* SUBk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b - a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x9a: /* MULk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b * a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x9b: /* DIVk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				if(a == 0) {
-					u->wst.error = 3;
-#ifndef NO_STACK_CHECKS
-					goto error;
-#endif
-					a = 1;
-				}
-				u->wst.dat[u->wst.ptr] = b / a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x9c: /* ANDk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b & a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x9d: /* ORAk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b | a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x9e: /* EORk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b ^ a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0x9f: /* SFTk */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b >> (a & 0x07) << ((a & 0x70) >> 4);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0xa1: /* INC2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				u->wst.dat[u->wst.ptr] = (a + 1) >> 8;
-				u->wst.dat[u->wst.ptr + 1] = (a + 1) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xa2: /* POP2k */
-			{
-				(u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xa3: /* DUP2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b;
-				u->wst.dat[u->wst.ptr + 1] = a;
-				u->wst.dat[u->wst.ptr + 2] = b;
-				u->wst.dat[u->wst.ptr + 3] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 251, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 4;
-			}
-			break;
-		case 0xa4: /* NIP2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				(u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr] = a >> 8;
-				u->wst.dat[u->wst.ptr + 1] = a & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xa5: /* SWP2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4];
-				u->wst.dat[u->wst.ptr] = b;
-				u->wst.dat[u->wst.ptr + 1] = a;
-				u->wst.dat[u->wst.ptr + 2] = d;
-				u->wst.dat[u->wst.ptr + 3] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 251, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 4;
-			}
-			break;
-		case 0xa6: /* OVR2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4];
-				u->wst.dat[u->wst.ptr] = d;
-				u->wst.dat[u->wst.ptr + 1] = c;
-				u->wst.dat[u->wst.ptr + 2] = b;
-				u->wst.dat[u->wst.ptr + 3] = a;
-				u->wst.dat[u->wst.ptr + 4] = d;
-				u->wst.dat[u->wst.ptr + 5] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 249, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 6;
-			}
-			break;
-		case 0xa7: /* ROT2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4], e = u->wst.dat[u->wst.ptr - 5], f = u->wst.dat[u->wst.ptr - 6];
-				u->wst.dat[u->wst.ptr] = d;
-				u->wst.dat[u->wst.ptr + 1] = c;
-				u->wst.dat[u->wst.ptr + 2] = b;
-				u->wst.dat[u->wst.ptr + 3] = a;
-				u->wst.dat[u->wst.ptr + 4] = f;
-				u->wst.dat[u->wst.ptr + 5] = e;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 6, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 249, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 6;
-			}
-			break;
-		case 0xa8: /* EQU2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr] = b == a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0xa9: /* NEQ2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr] = b != a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0xaa: /* GTH2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr] = b > a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0xab: /* LTH2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr] = b < a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0xac: /* JMP2k */
-			{
-				u->ram.ptr = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xad: /* JCN2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				if(u->wst.dat[u->wst.ptr - 3]) u->ram.ptr = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xae: /* JSR2k */
-			{
-				u->rst.dat[u->rst.ptr] = u->ram.ptr >> 8;
-				u->rst.dat[u->rst.ptr + 1] = u->ram.ptr & 0xff;
-				u->ram.ptr = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xaf: /* STH2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b;
-				u->rst.dat[u->rst.ptr + 1] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xb0: /* LDZ2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = peek8(u->ram.dat, a);
-				u->wst.dat[u->wst.ptr + 1] = peek8(u->ram.dat, a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xb1: /* STZ2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint16 b = (u->wst.dat[u->wst.ptr - 2] | (u->wst.dat[u->wst.ptr - 3] << 8));
-				poke16(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xb2: /* LDR2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a);
-				u->wst.dat[u->wst.ptr + 1] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xb3: /* STR2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint16 b = (u->wst.dat[u->wst.ptr - 2] | (u->wst.dat[u->wst.ptr - 3] << 8));
-				poke16(u->ram.dat, u->ram.ptr + (Sint8)a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xb4: /* LDA2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				u->wst.dat[u->wst.ptr] = peek8(u->ram.dat, a);
-				u->wst.dat[u->wst.ptr + 1] = peek8(u->ram.dat, a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 2, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xb5: /* STA2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8));
-				Uint16 b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				poke16(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xb6: /* DEI2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = devr8(&u->dev[a >> 4], a);
-				u->wst.dat[u->wst.ptr + 1] = devr8(&u->dev[a >> 4], a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 1, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xb7: /* DEO2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint16 b = (u->wst.dat[u->wst.ptr - 2] | (u->wst.dat[u->wst.ptr - 3] << 8));
-				if(!devw16(&u->dev[a >> 4], a, b))
-					return 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xb8: /* ADD2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr] = (b + a) >> 8;
-				u->wst.dat[u->wst.ptr + 1] = (b + a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xb9: /* SUB2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr] = (b - a) >> 8;
-				u->wst.dat[u->wst.ptr + 1] = (b - a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xba: /* MUL2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				u->wst.dat[u->wst.ptr] = (b * a) >> 8;
-				u->wst.dat[u->wst.ptr + 1] = (b * a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xbb: /* DIV2k */
-			{
-				Uint16 a = (u->wst.dat[u->wst.ptr - 1] | (u->wst.dat[u->wst.ptr - 2] << 8)), b = (u->wst.dat[u->wst.ptr - 3] | (u->wst.dat[u->wst.ptr - 4] << 8));
-				if(a == 0) {
-					u->wst.error = 3;
-#ifndef NO_STACK_CHECKS
-					goto error;
-#endif
-					a = 1;
-				}
-				u->wst.dat[u->wst.ptr] = (b / a) >> 8;
-				u->wst.dat[u->wst.ptr + 1] = (b / a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xbc: /* AND2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4];
-				u->wst.dat[u->wst.ptr] = d & b;
-				u->wst.dat[u->wst.ptr + 1] = c & a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xbd: /* ORA2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4];
-				u->wst.dat[u->wst.ptr] = d | b;
-				u->wst.dat[u->wst.ptr + 1] = c | a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xbe: /* EOR2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1], b = u->wst.dat[u->wst.ptr - 2], c = u->wst.dat[u->wst.ptr - 3], d = u->wst.dat[u->wst.ptr - 4];
-				u->wst.dat[u->wst.ptr] = d ^ b;
-				u->wst.dat[u->wst.ptr + 1] = c ^ a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 4, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xbf: /* SFT2k */
-			{
-				Uint8 a = u->wst.dat[u->wst.ptr - 1];
-				Uint16 b = (u->wst.dat[u->wst.ptr - 2] | (u->wst.dat[u->wst.ptr - 3] << 8));
-				u->wst.dat[u->wst.ptr] = (b >> (a & 0x0f) << ((a & 0xf0) >> 4)) >> 8;
-				u->wst.dat[u->wst.ptr + 1] = (b >> (a & 0x0f) << ((a & 0xf0) >> 4)) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->wst.ptr < 3, 0)) {
-					u->wst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xc1: /* INCkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = a + 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xc2: /* POPkr */
-			{
-				u->rst.dat[u->rst.ptr - 1];
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xc3: /* DUPkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = a;
-				u->rst.dat[u->rst.ptr + 1] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xc4: /* NIPkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xc5: /* SWPkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = a;
-				u->rst.dat[u->rst.ptr + 1] = b;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xc6: /* OVRkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b;
-				u->rst.dat[u->rst.ptr + 1] = a;
-				u->rst.dat[u->rst.ptr + 2] = b;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 252, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 3;
-			}
-			break;
-		case 0xc7: /* ROTkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3];
-				u->rst.dat[u->rst.ptr] = b;
-				u->rst.dat[u->rst.ptr + 1] = a;
-				u->rst.dat[u->rst.ptr + 2] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 252, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 3;
-			}
-			break;
-		case 0xc8: /* EQUkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b == a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xc9: /* NEQkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b != a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xca: /* GTHkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b > a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xcb: /* LTHkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b < a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xcc: /* JMPkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xcd: /* JCNkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				if(u->rst.dat[u->rst.ptr - 2]) u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xce: /* JSRkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = u->ram.ptr >> 8;
-				u->wst.dat[u->wst.ptr + 1] = u->ram.ptr & 0xff;
-				u->ram.ptr += (Sint8)a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xcf: /* STHkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->wst.dat[u->wst.ptr] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 254, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 1;
-			}
-			break;
-		case 0xd0: /* LDZkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = peek8(u->ram.dat, a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xd1: /* STZkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint8 b = u->rst.dat[u->rst.ptr - 2];
-				poke8(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xd2: /* LDRkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xd3: /* STRkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint8 b = u->rst.dat[u->rst.ptr - 2];
-				poke8(u->ram.dat, u->ram.ptr + (Sint8)a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xd4: /* LDAkr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				u->rst.dat[u->rst.ptr] = peek8(u->ram.dat, a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xd5: /* STAkr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				Uint8 b = u->rst.dat[u->rst.ptr - 3];
-				poke8(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xd6: /* DEIkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = devr8(&u->dev[a >> 4], a);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xd7: /* DEOkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				if(!devw8(&u->dev[a >> 4], a, b))
-					return 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xd8: /* ADDkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b + a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xd9: /* SUBkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b - a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xda: /* MULkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b * a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xdb: /* DIVkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				if(a == 0) {
-					u->rst.error = 3;
-#ifndef NO_STACK_CHECKS
-					goto error;
-#endif
-					a = 1;
-				}
-				u->rst.dat[u->rst.ptr] = b / a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xdc: /* ANDkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b & a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xdd: /* ORAkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b | a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xde: /* EORkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b ^ a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xdf: /* SFTkr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b >> (a & 0x07) << ((a & 0x70) >> 4);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xe1: /* INC2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				u->rst.dat[u->rst.ptr] = (a + 1) >> 8;
-				u->rst.dat[u->rst.ptr + 1] = (a + 1) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xe2: /* POP2kr */
-			{
-				(u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xe3: /* DUP2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->rst.dat[u->rst.ptr] = b;
-				u->rst.dat[u->rst.ptr + 1] = a;
-				u->rst.dat[u->rst.ptr + 2] = b;
-				u->rst.dat[u->rst.ptr + 3] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 251, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 4;
-			}
-			break;
-		case 0xe4: /* NIP2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				(u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr] = a >> 8;
-				u->rst.dat[u->rst.ptr + 1] = a & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xe5: /* SWP2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4];
-				u->rst.dat[u->rst.ptr] = b;
-				u->rst.dat[u->rst.ptr + 1] = a;
-				u->rst.dat[u->rst.ptr + 2] = d;
-				u->rst.dat[u->rst.ptr + 3] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 251, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 4;
-			}
-			break;
-		case 0xe6: /* OVR2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4];
-				u->rst.dat[u->rst.ptr] = d;
-				u->rst.dat[u->rst.ptr + 1] = c;
-				u->rst.dat[u->rst.ptr + 2] = b;
-				u->rst.dat[u->rst.ptr + 3] = a;
-				u->rst.dat[u->rst.ptr + 4] = d;
-				u->rst.dat[u->rst.ptr + 5] = c;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 249, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 6;
-			}
-			break;
-		case 0xe7: /* ROT2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4], e = u->rst.dat[u->rst.ptr - 5], f = u->rst.dat[u->rst.ptr - 6];
-				u->rst.dat[u->rst.ptr] = d;
-				u->rst.dat[u->rst.ptr + 1] = c;
-				u->rst.dat[u->rst.ptr + 2] = b;
-				u->rst.dat[u->rst.ptr + 3] = a;
-				u->rst.dat[u->rst.ptr + 4] = f;
-				u->rst.dat[u->rst.ptr + 5] = e;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 6, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 249, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 6;
-			}
-			break;
-		case 0xe8: /* EQU2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr] = b == a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xe9: /* NEQ2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr] = b != a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xea: /* GTH2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr] = b > a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xeb: /* LTH2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr] = b < a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 254, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 1;
-			}
-			break;
-		case 0xec: /* JMP2kr */
-			{
-				u->ram.ptr = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xed: /* JCN2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				if(u->rst.dat[u->rst.ptr - 3]) u->ram.ptr = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xee: /* JSR2kr */
-			{
-				u->wst.dat[u->wst.ptr] = u->ram.ptr >> 8;
-				u->wst.dat[u->wst.ptr + 1] = u->ram.ptr & 0xff;
-				u->ram.ptr = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xef: /* STH2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2];
-				u->wst.dat[u->wst.ptr] = b;
-				u->wst.dat[u->wst.ptr + 1] = a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->wst.ptr > 253, 0)) {
-					u->wst.error = 2;
-					goto error;
-				}
-#endif
-				u->wst.ptr += 2;
-			}
-			break;
-		case 0xf0: /* LDZ2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = peek8(u->ram.dat, a);
-				u->rst.dat[u->rst.ptr + 1] = peek8(u->ram.dat, a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xf1: /* STZ2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint16 b = (u->rst.dat[u->rst.ptr - 2] | (u->rst.dat[u->rst.ptr - 3] << 8));
-				poke16(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xf2: /* LDR2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a);
-				u->rst.dat[u->rst.ptr + 1] = peek8(u->ram.dat, u->ram.ptr + (Sint8)a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xf3: /* STR2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint16 b = (u->rst.dat[u->rst.ptr - 2] | (u->rst.dat[u->rst.ptr - 3] << 8));
-				poke16(u->ram.dat, u->ram.ptr + (Sint8)a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xf4: /* LDA2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				u->rst.dat[u->rst.ptr] = peek8(u->ram.dat, a);
-				u->rst.dat[u->rst.ptr + 1] = peek8(u->ram.dat, a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 2, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xf5: /* STA2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8));
-				Uint16 b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				poke16(u->ram.dat, a, b);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xf6: /* DEI2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				u->rst.dat[u->rst.ptr] = devr8(&u->dev[a >> 4], a);
-				u->rst.dat[u->rst.ptr + 1] = devr8(&u->dev[a >> 4], a + 1);
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 1, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xf7: /* DEO2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint16 b = (u->rst.dat[u->rst.ptr - 2] | (u->rst.dat[u->rst.ptr - 3] << 8));
-				if(!devw16(&u->dev[a >> 4], a, b))
-					return 1;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-#endif
-			}
-			break;
-		case 0xf8: /* ADD2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr] = (b + a) >> 8;
-				u->rst.dat[u->rst.ptr + 1] = (b + a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xf9: /* SUB2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr] = (b - a) >> 8;
-				u->rst.dat[u->rst.ptr + 1] = (b - a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xfa: /* MUL2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				u->rst.dat[u->rst.ptr] = (b * a) >> 8;
-				u->rst.dat[u->rst.ptr + 1] = (b * a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xfb: /* DIV2kr */
-			{
-				Uint16 a = (u->rst.dat[u->rst.ptr - 1] | (u->rst.dat[u->rst.ptr - 2] << 8)), b = (u->rst.dat[u->rst.ptr - 3] | (u->rst.dat[u->rst.ptr - 4] << 8));
-				if(a == 0) {
-					u->rst.error = 3;
-#ifndef NO_STACK_CHECKS
-					goto error;
-#endif
-					a = 1;
-				}
-				u->rst.dat[u->rst.ptr] = (b / a) >> 8;
-				u->rst.dat[u->rst.ptr + 1] = (b / a) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xfc: /* AND2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4];
-				u->rst.dat[u->rst.ptr] = d & b;
-				u->rst.dat[u->rst.ptr + 1] = c & a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xfd: /* ORA2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4];
-				u->rst.dat[u->rst.ptr] = d | b;
-				u->rst.dat[u->rst.ptr + 1] = c | a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xfe: /* EOR2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1], b = u->rst.dat[u->rst.ptr - 2], c = u->rst.dat[u->rst.ptr - 3], d = u->rst.dat[u->rst.ptr - 4];
-				u->rst.dat[u->rst.ptr] = d ^ b;
-				u->rst.dat[u->rst.ptr + 1] = c ^ a;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 4, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-		case 0xff: /* SFT2kr */
-			{
-				Uint8 a = u->rst.dat[u->rst.ptr - 1];
-				Uint16 b = (u->rst.dat[u->rst.ptr - 2] | (u->rst.dat[u->rst.ptr - 3] << 8));
-				u->rst.dat[u->rst.ptr] = (b >> (a & 0x0f) << ((a & 0xf0) >> 4)) >> 8;
-				u->rst.dat[u->rst.ptr + 1] = (b >> (a & 0x0f) << ((a & 0xf0) >> 4)) & 0xff;
-#ifndef NO_STACK_CHECKS
-				if(__builtin_expect(u->rst.ptr < 3, 0)) {
-					u->rst.error = 1;
-					goto error;
-				}
-				if(__builtin_expect(u->rst.ptr > 253, 0)) {
-					u->rst.error = 2;
-					goto error;
-				}
-#endif
-				u->rst.ptr += 2;
-			}
-			break;
-#pragma GCC diagnostic pop
+		/* Return Mode */
+		if(instr & MODE_RETURN) {
+			u->src = &u->rst; 
+			u->dst = &u->wst;
+		} else {
+			u->src = &u->wst; 
+			u->dst = &u->rst;
 		}
+		/* Keep Mode */
+		if(instr & MODE_KEEP) {
+			pop8 = pop8k;
+			u->src->kptr = u->src->ptr;
+		} else {
+			pop8 = pop8d;
+		}
+		/* Short Mode */
+		if(instr & MODE_SHORT) {
+			push = push16; pop = pop16;
+			poke = poke16; peek = peek16;
+			devw = devw16; devr = devr16;
+			warp = warp16; pull = pull16;
+		} else {
+			push = push8; pop = pop8;
+			poke = poke8; peek = peek8;
+			devw = devw8; devr = devr8;
+			warp = warp8; pull = pull8;
+		}
+		switch(instr & 0x1f){
+			/* Stack */
+			case 0x00: /* LIT */ pull(u); break;
+			case 0x01: /* INC */ a = pop(u->src); push(u->src, a + 1); break;
+			case 0x02: /* POP */ pop(u->src); break;
+			case 0x03: /* DUP */ a = pop(u->src); push(u->src, a); push(u->src, a); break;
+			case 0x04: /* NIP */ a = pop(u->src); pop(u->src); push(u->src, a); break;
+			case 0x05: /* SWP */ a = pop(u->src), b = pop(u->src); push(u->src, a); push(u->src, b); break;
+			case 0x06: /* OVR */ a = pop(u->src), b = pop(u->src); push(u->src, b); push(u->src, a); push(u->src, b); break;
+			case 0x07: /* ROT */ a = pop(u->src), b = pop(u->src), c = pop(u->src); push(u->src, b); push(u->src, a); push(u->src, c); break;
+			/* Logic */
+			case 0x08: /* EQU */ a = pop(u->src), b = pop(u->src); push8(u->src, b == a); break;
+			case 0x09: /* NEQ */ a = pop(u->src), b = pop(u->src); push8(u->src, b != a); break;
+			case 0x0a: /* GTH */ a = pop(u->src), b = pop(u->src); push8(u->src, b > a); break;
+			case 0x0b: /* LTH */ a = pop(u->src), b = pop(u->src); push8(u->src, b < a); break;
+			case 0x0c: /* JMP */ a = pop(u->src); warp(u, a); break;
+			case 0x0d: /* JCN */ a = pop(u->src); if(pop8(u->src)) warp(u, a); break;
+			case 0x0e: /* JSR */ a = pop(u->src); push16(u->dst, u->ram.ptr); warp(u, a); break;
+			case 0x0f: /* STH */ a = pop(u->src); push(u->dst, a); break;
+			/* Memory */
+			case 0x10: /* LDZ */ a = pop8(u->src); push(u->src, peek(u->ram.dat, a)); break;
+			case 0x11: /* STZ */ a = pop8(u->src); b = pop(u->src); poke(u->ram.dat, a, b); break;
+			case 0x12: /* LDR */ a = pop8(u->src); push(u->src, peek(u->ram.dat, u->ram.ptr + (Sint8)a)); break;
+			case 0x13: /* STR */ a = pop8(u->src); b = pop(u->src); poke(u->ram.dat, u->ram.ptr + (Sint8)a, b); break;
+			case 0x14: /* LDA */ a = pop16(u->src); push(u->src, peek(u->ram.dat, a)); break;
+			case 0x15: /* STA */ a = pop16(u->src); b = pop(u->src); poke(u->ram.dat, a, b); break;
+			case 0x16: /* DEI */ a = pop8(u->src); push(u->src, devr(&u->dev[a >> 4], a)); break;
+			case 0x17: /* DEO */ a = pop8(u->src); b = pop(u->src); devw(&u->dev[a >> 4], a, b); break;
+			/* Arithmetic */
+			case 0x18: /* ADD */ a = pop(u->src), b = pop(u->src); push(u->src, b + a); break;
+			case 0x19: /* SUB */ a = pop(u->src), b = pop(u->src); push(u->src, b - a); break;
+			case 0x1a: /* MUL */ a = pop(u->src), b = pop(u->src); push(u->src, b * a); break;
+			case 0x1b: /* DIV */ a = pop(u->src), b = pop(u->src); if(a == 0) { u->src->error = 3; a = 1; } push(u->src, b / a); break;
+			case 0x1c: /* AND */ a = pop(u->src), b = pop(u->src); push(u->src, b & a); break;
+			case 0x1d: /* ORA */ a = pop(u->src), b = pop(u->src); push(u->src, b | a); break;
+			case 0x1e: /* EOR */ a = pop(u->src), b = pop(u->src); push(u->src, b ^ a); break;
+			case 0x1f: /* SFT */ a = pop8(u->src), b = pop(u->src); push(u->src, b >> (a & 0x0f) << ((a & 0xf0) >> 4)); break;
+		}
+		if(u->wst.error) return uxn_halt(u, u->wst.error, "Working-stack", instr);
+		if(u->rst.error) return uxn_halt(u, u->rst.error, "Return-stack", instr);
 	}
 	return 1;
-#ifndef NO_STACK_CHECKS
-error:
-	if(u->wst.error)
-		return uxn_halt(u, u->wst.error, "Working-stack", instr);
-	else
-		return uxn_halt(u, u->rst.error, "Return-stack", instr);
-#endif
 }
 
+/* clang-format on */
+
 int
 uxn_boot(Uxn *u)
 {
@@ -4037,12 +146,13 @@ uxn_boot(Uxn *u)
 }
 
 Device *
-uxn_port(Uxn *u, Uint8 id, int (*talkfn)(Device *d, Uint8 b0, Uint8 w))
+uxn_port(Uxn *u, Uint8 id, Uint8 (*deifn)(Device *d, Uint8 port), void (*deofn)(Device *d, Uint8 port))
 {
 	Device *d = &u->dev[id];
 	d->addr = id * 0x10;
 	d->u = u;
 	d->mem = u->ram.dat;
-	d->talk = talkfn;
+	d->dei = deifn;
+	d->deo = deofn;
 	return d;
 }
diff --git a/apps/plugins/varvara/uxn.c b/apps/plugins/varvara/uxn.c
index 76a1725bf3..74a7a7801b 100644
--- a/apps/plugins/varvara/uxn.c
+++ b/apps/plugins/varvara/uxn.c
@@ -1,5 +1,5 @@
 #include "uxn.h"
-#include <stdio.h>
+
 /*
 Copyright (u) 2021 Devine Lu Linvega
 Copyright (u) 2021 Andrew Alderwick
@@ -26,7 +26,7 @@ static Uint16 (*pop8)(Stack *s);
 static Uint16 (*pop)(Stack *s);
 static void   (*poke)(Uint8 *m, Uint16 a, Uint16 b);
 static Uint16 (*peek)(Uint8 *m, Uint16 a);
-static int    (*devw)(Device *d, Uint8 a, Uint16 b);
+static void   (*devw)(Device *d, Uint8 a, Uint16 b);
 static Uint16 (*devr)(Device *d, Uint8 a);
 static void   (*warp)(Uxn *u, Uint16 a);
 static void   (*pull)(Uxn *u);
@@ -36,8 +36,8 @@ static Uint16 pop8k(Stack *s) { if(s->kptr == 0) { s->error = 1; return 0; } ret
 static Uint16 pop8d(Stack *s) { if(s->ptr == 0) { s->error = 1; return 0; } return s->dat[--s->ptr]; }
 static void   poke8(Uint8 *m, Uint16 a, Uint16 b) { m[a] = b; }
 static Uint16 peek8(Uint8 *m, Uint16 a) { return m[a]; }
-static int    devw8(Device *d, Uint8 a, Uint16 b) { d->dat[a & 0xf] = b; return d->talk(d, a & 0x0f, 1); }
-static Uint16 devr8(Device *d, Uint8 a) { d->talk(d, a & 0x0f, 0); return d->dat[a & 0xf];  }
+static void   devw8(Device *d, Uint8 a, Uint16 b) { d->dat[a & 0xf] = b; d->deo(d, a & 0x0f); }
+static Uint16 devr8(Device *d, Uint8 a) { return d->dei(d, a & 0x0f); }
 static void   warp8(Uxn *u, Uint16 a){ u->ram.ptr += (Sint8)a; }
 static void   pull8(Uxn *u){ push8(u->src, peek8(u->ram.dat, u->ram.ptr++)); }
 /* short mode */
@@ -45,7 +45,7 @@ static void   push16(Stack *s, Uint16 a) { push8(s, a >> 8); push8(s, a); }
 static Uint16 pop16(Stack *s) { Uint8 a = pop8(s), b = pop8(s); return a + (b << 8); }
 	   void   poke16(Uint8 *m, Uint16 a, Uint16 b) { poke8(m, a, b >> 8); poke8(m, a + 1, b); }
 	   Uint16 peek16(Uint8 *m, Uint16 a) { return (peek8(m, a) << 8) + peek8(m, a + 1); }
-static int    devw16(Device *d, Uint8 a, Uint16 b) { return devw8(d, a, b >> 8) && devw8(d, a + 1, b); }
+static void   devw16(Device *d, Uint8 a, Uint16 b) { devw8(d, a, b >> 8); devw8(d, a + 1, b); }
 static Uint16 devr16(Device *d, Uint8 a) { return (devr8(d, a) << 8) + devr8(d, a + 1); }
 static void   warp16(Uxn *u, Uint16 a){ u->ram.ptr = a; }
 static void   pull16(Uxn *u){ push16(u->src, peek16(u->ram.dat, u->ram.ptr++)); u->ram.ptr++; }
@@ -116,7 +116,7 @@ uxn_eval(Uxn *u, Uint16 vec)
 			case 0x14: /* LDA */ a = pop16(u->src); push(u->src, peek(u->ram.dat, a)); break;
 			case 0x15: /* STA */ a = pop16(u->src); b = pop(u->src); poke(u->ram.dat, a, b); break;
 			case 0x16: /* DEI */ a = pop8(u->src); push(u->src, devr(&u->dev[a >> 4], a)); break;
-			case 0x17: /* DEO */ a = pop8(u->src); b = pop(u->src); if (!devw(&u->dev[a >> 4], a, b)) return 1; break;
+			case 0x17: /* DEO */ a = pop8(u->src); b = pop(u->src); devw(&u->dev[a >> 4], a, b); break;
 			/* Arithmetic */
 			case 0x18: /* ADD */ a = pop(u->src), b = pop(u->src); push(u->src, b + a); break;
 			case 0x19: /* SUB */ a = pop(u->src), b = pop(u->src); push(u->src, b - a); break;
@@ -146,12 +146,13 @@ uxn_boot(Uxn *u)
 }
 
 Device *
-uxn_port(Uxn *u, Uint8 id, int (*talkfn)(Device *d, Uint8 b0, Uint8 w))
+uxn_port(Uxn *u, Uint8 id, Uint8 (*deifn)(Device *d, Uint8 port), void (*deofn)(Device *d, Uint8 port))
 {
 	Device *d = &u->dev[id];
 	d->addr = id * 0x10;
 	d->u = u;
 	d->mem = u->ram.dat;
-	d->talk = talkfn;
+	d->dei = deifn;
+	d->deo = deofn;
 	return d;
 }
diff --git a/apps/plugins/varvara/uxn.h b/apps/plugins/varvara/uxn.h
index 548efdc416..75a9790691 100644
--- a/apps/plugins/varvara/uxn.h
+++ b/apps/plugins/varvara/uxn.h
@@ -30,7 +30,8 @@ typedef struct Device {
 	struct Uxn *u;
 	Uint8 addr, dat[16], *mem;
 	Uint16 vector;
-	int (*talk)(struct Device *d, Uint8, Uint8);
+	Uint8 (*dei)(struct Device *d, Uint8);
+	void (*deo)(struct Device *d, Uint8);
 } Device;
 
 typedef struct Uxn {
@@ -47,4 +48,4 @@ Uint16 peek16(Uint8 *m, Uint16 a);
 int uxn_boot(Uxn *c);
 int uxn_eval(Uxn *u, Uint16 vec);
 int uxn_halt(Uxn *u, Uint8 error, char *name, int id);
-Device *uxn_port(Uxn *u, Uint8 id, int (*talkfn)(Device *, Uint8, Uint8));
+Device *uxn_port(Uxn *u, Uint8 id, Uint8 (*deifn)(Device *, Uint8), void (*deofn)(Device *, Uint8));
diff --git a/apps/plugins/varvara/varvara.c b/apps/plugins/varvara/varvara.c
index e814a3f5bf..26c9aad869 100644
--- a/apps/plugins/varvara/varvara.c
+++ b/apps/plugins/varvara/varvara.c
@@ -11,8 +11,7 @@ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 WITH REGARD TO THIS SOFTWARE.
 
 TODO optimise support for greyscale/1-bit displays
-TODO rom loading
-TODO other varvara devices
+TODO audio device
 TODO clean up
 */
 
@@ -85,89 +84,91 @@ set_palette(Uint8 *addr)
 }
 
 /* taken from uxncli */
-static int
-system_talk(Device *d, Uint8 b0, Uint8 w)
+static void
+system_deo(Device *d, Uint8 port)
 {
-	if(!w) { /* read */
-		switch(b0) {
-		case 0x2: d->dat[0x2] = d->u->wst.ptr; break;
-		case 0x3: d->dat[0x3] = d->u->rst.ptr; break;
-		}
-	} else { /* write */
-		switch(b0) {
+		switch(port) {
 		case 0x2: d->u->wst.ptr = d->dat[0x2]; break;
 		case 0x3: d->u->rst.ptr = d->dat[0x3]; break;
 		case 0xe:
 			inspect(&d->u->wst, "Working-stack");
 			inspect(&d->u->rst, "Return-stack");
 			break;
-		case 0xf: return 0;
+		case 0xf: return;
 		}
-		if(b0 > 0x7 && b0 < 0xe)
+		if(port > 0x7 && port < 0xe)
 			set_palette(&d->dat[0x8]);
-	}
+}
+
+static Uint8 system_dei(Device *d, Uint8 port) {
+	switch(port) {
+	case 0x2: d->dat[0x2] = d->u->wst.ptr; break;
+	case 0x3: d->dat[0x3] = d->u->rst.ptr; break;
+	}	
 	return 1;
 }
 
 /* taken from uxncli */
-static int
-console_talk(Device *d, Uint8 b0, Uint8 w)
+static void
+console_deo(Device *d, Uint8 port)
 {
-	if(b0 == 0x1)
+	if(port == 0x1)
 		d->vector = peek16(d->dat, 0x0);
-	if(w && b0 > 0x7)
-		DEBUGF("%c",(char *)&d->dat[b0]);
-	return 1;
+	if(port > 0x7)
+		DEBUGF("%c",(char *)&d->dat[port]);
 }
 
 /* taken from uxnemu */
-static int
-screen_talk(Device *d, Uint8 b0, Uint8 w)
+static Uint8
+screen_dei(Device *d, Uint8 port)
 {
-	if(!w) switch(b0) {
+	switch(port) {
 		case 0x2: d->dat[0x2] = ppu.width >> 8; break;
 		case 0x3: d->dat[0x3] = ppu.width; break;
 		case 0x4: d->dat[0x4] = ppu.height >> 8; break;
 		case 0x5: d->dat[0x5] = ppu.height; break;
-		}
-	else
-		switch(b0) {
-		case 0x1: d->vector = peek16(d->dat, 0x0); break;
-		case 0x5:
-			break;
-		case 0xe: {
-			Uint16 x = peek16(d->dat, 0x8);
-			Uint16 y = peek16(d->dat, 0xa);
-			Uint8 layer = d->dat[0xe] & 0x40;
-			ppu_write(&ppu, !!layer, x, y, d->dat[0xe] & 0x3);
-			if(d->dat[0x6] & 0x01) poke16(d->dat, 0x8, x + 1); /* auto x+1 */
-			if(d->dat[0x6] & 0x02) poke16(d->dat, 0xa, y + 1); /* auto y+1 */
-			break;
-		}
-		case 0xf: {
-			Uint16 x = peek16(d->dat, 0x8);
-			Uint16 y = peek16(d->dat, 0xa);
-			Uint8 layer = d->dat[0xf] & 0x40;
-			Uint8 *addr = &d->mem[peek16(d->dat, 0xc)];
-			if(d->dat[0xf] & 0x80) {
-				ppu_2bpp(&ppu, !!layer, x, y, addr, d->dat[0xf] & 0xf, d->dat[0xf] & 0x10, d->dat[0xf] & 0x20);
-				if(d->dat[0x6] & 0x04) poke16(d->dat, 0xc, peek16(d->dat, 0xc) + 16); /* auto addr+16 */
-			} else {
-				ppu_1bpp(&ppu, !!layer, x, y, addr, d->dat[0xf] & 0xf, d->dat[0xf] & 0x10, d->dat[0xf] & 0x20);
-				if(d->dat[0x6] & 0x04) poke16(d->dat, 0xc, peek16(d->dat, 0xc) + 8); /* auto addr+8 */
-			}
-			if(d->dat[0x6] & 0x01) poke16(d->dat, 0x8, x + 8); /* auto x+8 */
-			if(d->dat[0x6] & 0x02) poke16(d->dat, 0xa, y + 8); /* auto y+8 */
-			break;
-		}
-		}
+	}
 	return 1;
 }
 
-static int
-file_talk(Device *d, Uint8 b0, Uint8 w)
+static void
+screen_deo(Device *d, Uint8 port) {
+	switch(port) {
+	case 0x1: d->vector = peek16(d->dat, 0x0); break;
+	case 0x5:
+		break;
+	case 0xe: {
+		Uint16 x = peek16(d->dat, 0x8);
+		Uint16 y = peek16(d->dat, 0xa);
+		Uint8 layer = d->dat[0xe] & 0x40;
+		ppu_write(&ppu, !!layer, x, y, d->dat[0xe] & 0x3);
+		if(d->dat[0x6] & 0x01) poke16(d->dat, 0x8, x + 1); /* auto x+1 */
+		if(d->dat[0x6] & 0x02) poke16(d->dat, 0xa, y + 1); /* auto y+1 */
+		break;
+	}
+	case 0xf: {
+		Uint16 x = peek16(d->dat, 0x8);
+		Uint16 y = peek16(d->dat, 0xa);
+		Uint8 layer = d->dat[0xf] & 0x40;
+		Uint8 *addr = &d->mem[peek16(d->dat, 0xc)];
+		if(d->dat[0xf] & 0x80) {
+			ppu_2bpp(&ppu, !!layer, x, y, addr, d->dat[0xf] & 0xf, d->dat[0xf] & 0x10, d->dat[0xf] & 0x20);
+			if(d->dat[0x6] & 0x04) poke16(d->dat, 0xc, peek16(d->dat, 0xc) + 16); /* auto addr+16 */
+		} else {
+			ppu_1bpp(&ppu, !!layer, x, y, addr, d->dat[0xf] & 0xf, d->dat[0xf] & 0x10, d->dat[0xf] & 0x20);
+			if(d->dat[0x6] & 0x04) poke16(d->dat, 0xc, peek16(d->dat, 0xc) + 8); /* auto addr+8 */
+		}
+		if(d->dat[0x6] & 0x01) poke16(d->dat, 0x8, x + 8); /* auto x+8 */
+		if(d->dat[0x6] & 0x02) poke16(d->dat, 0xa, y + 8); /* auto y+8 */
+		break;
+	}
+	}
+}
+
+static void
+file_deo(Device *d, Uint8 port)
 {
-	if(w) switch(b0) {
+	switch(port) {
 		case 0x1: d->vector = peek16(d->dat, 0x0); break;
 		case 0x9: poke16(d->dat, 0x2, file_init(&d->mem[peek16(d->dat, 0x8)])); break;
 		case 0xd: poke16(d->dat, 0x2, file_read(&d->mem[peek16(d->dat, 0xc)], peek16(d->dat, 0xa))); break;
@@ -175,20 +176,25 @@ file_talk(Device *d, Uint8 b0, Uint8 w)
 		case 0x5: poke16(d->dat, 0x2, file_stat(&d->mem[peek16(d->dat, 0x4)], peek16(d->dat, 0xa))); break;
 		case 0x6: poke16(d->dat, 0x2, file_delete()); break;
 		}
-	return 1;
 }
 
-static int
-nil_talk(Device *d, Uint8 b0, Uint8 w)
+
+static void
+nil_deo(Device *d, Uint8 port)
 {
 	(void)d;
-	(void)b0;
-	(void)w;
-	return 1;
+	(void)port;
 }
 
-static int
-datetime_talk(Device *d, Uint8 b0, Uint8 w)
+static Uint8
+nil_dei(Device *d, Uint8 port)
+{
+	(void)d;
+	(void)port;
+	return 1;
+}
+static Uint8
+datetime_dei(Device *d, Uint8 port)
 {
 	struct tm* t = rb->get_time();
 	t->tm_year += 1900;
@@ -201,8 +207,7 @@ datetime_talk(Device *d, Uint8 b0, Uint8 w)
 	d->dat[0x7] = t->tm_wday;
 	poke16(d->dat, 0x08, t->tm_yday);
 	d->dat[0xa] = t->tm_isdst;
-	(void)b0;
-	(void)w;
+	(void)port;
 	return 1;
 }
 
@@ -333,22 +338,22 @@ enum plugin_status plugin_start(const void* parameter)
     ppu_init(&ppu, LCD_WIDTH, LCD_HEIGHT, framebuffer);
 
     // Register ports
-    /* system   */ devsystem = uxn_port(&u, 0x0, system_talk);
-	/* console  */ devconsole = uxn_port(&u, 0x1, console_talk);
-	/* screen   */ devscreen = uxn_port(&u, 0x2, screen_talk);
-	/* audio0   */ uxn_port(&u, 0x3, nil_talk);
-	/* audio1   */ uxn_port(&u, 0x4, nil_talk);
-	/* audio2   */ uxn_port(&u, 0x5, nil_talk);
-	/* audio3   */ uxn_port(&u, 0x6, nil_talk);
-	/* empty    */ uxn_port(&u, 0x7, nil_talk);
-	/* control  */ devctrl = uxn_port(&u, 0x8, nil_talk);
-	/* mouse    */ uxn_port(&u, 0x9, nil_talk);
-	/* file     */ uxn_port(&u, 0xa, file_talk);
-	/* datetime */ uxn_port(&u, 0xb, datetime_talk);
-	/* empty    */ uxn_port(&u, 0xc, nil_talk);
-	/* empty    */ uxn_port(&u, 0xd, nil_talk);
-	/* empty    */ uxn_port(&u, 0xe, nil_talk);
-	/* empty    */ uxn_port(&u, 0xf, nil_talk);
+    /* system   */ devsystem = uxn_port(&u, 0x0, system_dei, system_deo);
+	/* console  */ devconsole = uxn_port(&u, 0x1, nil_dei, console_deo);
+	/* screen   */ devscreen = uxn_port(&u, 0x2, screen_dei, screen_deo);
+	/* audio0   */ uxn_port(&u, 0x3, nil_dei, nil_deo);
+	/* audio1   */ uxn_port(&u, 0x4, nil_dei, nil_deo);
+	/* audio2   */ uxn_port(&u, 0x5, nil_dei, nil_deo);
+	/* audio3   */ uxn_port(&u, 0x6, nil_dei, nil_deo);
+	/* empty    */ uxn_port(&u, 0x7, nil_dei, nil_deo);
+	/* control  */ devctrl = uxn_port(&u, 0x8, nil_dei, nil_deo);
+	/* mouse    */ uxn_port(&u, 0x9, nil_dei, nil_deo);
+	/* file     */ uxn_port(&u, 0xa, nil_dei, file_deo);
+	/* datetime */ uxn_port(&u, 0xb, datetime_dei, nil_deo);
+	/* empty    */ uxn_port(&u, 0xc, nil_dei, nil_deo);
+	/* empty    */ uxn_port(&u, 0xd, nil_dei, nil_deo);
+	/* empty    */ uxn_port(&u, 0xe, nil_dei, nil_deo);
+	/* empty    */ uxn_port(&u, 0xf, nil_dei, nil_deo);
     uxn_eval(&u, 0x0100);
 	run();
 	file_cleanup();