commit 2f03285

(uxn.c) The k value does not need masking

 1@@ -16,10 +16,10 @@ WITH REGARD TO THIS SOFTWARE.
 2 	case 0x20|opc: {enum{_2=1,_r=0}; s = &uxn.wst; init; body; break;}\
 3 	case 0x40|opc: {enum{_2=0,_r=1}; s = &uxn.rst; init; body; break;}\
 4 	case 0x60|opc: {enum{_2=1,_r=1}; s = &uxn.rst; init; body; break;}\
 5-	case 0x80|opc: {enum{_2=0,_r=0}; s = &uxn.wst, kp = uxn.wst.ptr; init; s->ptr = kp; body; break;}\
 6-	case 0xa0|opc: {enum{_2=1,_r=0}; s = &uxn.wst, kp = uxn.wst.ptr; init; s->ptr = kp; body; break;}\
 7-	case 0xc0|opc: {enum{_2=0,_r=1}; s = &uxn.rst, kp = uxn.rst.ptr; init; s->ptr = kp; body; break;}\
 8-	case 0xe0|opc: {enum{_2=1,_r=1}; s = &uxn.rst, kp = uxn.rst.ptr; init; s->ptr = kp; body; break;}\
 9+	case 0x80|opc: {enum{_2=0,_r=0}; s = &uxn.wst, k = uxn.wst.ptr; init; s->ptr = k; body; break;}\
10+	case 0xa0|opc: {enum{_2=1,_r=0}; s = &uxn.wst, k = uxn.wst.ptr; init; s->ptr = k; body; break;}\
11+	case 0xc0|opc: {enum{_2=0,_r=1}; s = &uxn.rst, k = uxn.rst.ptr; init; s->ptr = k; body; break;}\
12+	case 0xe0|opc: {enum{_2=1,_r=1}; s = &uxn.rst, k = uxn.rst.ptr; init; s->ptr = k; body; break;}\
13 }
14 
15 /* Microcode */
16@@ -42,8 +42,8 @@ WITH REGARD TO THIS SOFTWARE.
17 int
18 uxn_eval(Uint16 pc)
19 {
20-	int a,b,c;
21-	Uint8 t, kp;
22+	int a,b,c,k;
23+	Uint8 t;
24 	Uint16 tt;
25 	Stack *s;
26 	if(!pc || uxn.dev[0x0f]) return 0;