uxn

commit 18302105c634e21a409eae1821d622357b06a5bd
parent b610a88083629da3b5dda6fa0ebc1ca4a72cf0ac
Author: neauoire <aliceffekt@gmail.com>
Date:   Wed,  9 Aug 2023 19:38:18 -0700

(uxn.c) PUT2 should not use POKE

Diffstat:
M
src/uxn.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/uxn.c b/src/uxn.c
@@ -29,7 +29,7 @@ WITH REGARD TO THIS SOFTWARE.
 #define FLIP       { s = ins & 0x40 ? &u->wst : &u->rst; }
 #define SET(x, y)  { r = s->ptr; if(x > r) HALT(1) r += (x & k) + y; if(r > 254) HALT(2) ptr = s->dat + r - 1; s->ptr = r; }
 #define PUT1(o, v) { *(ptr - o) = v; }
-#define PUT2(o, v) { r = (v); POKE2(ptr - 1 - o, r); }
+#define PUT2(o, v) { r = (v); *(ptr - o) = r; *(ptr - o - 1) = r >> 8; }
 
 int
 uxn_eval(Uxn *u, Uint16 pc)