From 59c28c66e82ec63a02df07bec386b8bfeb7e90b7 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sun, 11 Feb 2018 12:30:50 +0100 Subject: ... --- j1eforth/j1.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/j1eforth/j1.c b/j1eforth/j1.c index c62938f..d0d5310 100644 --- a/j1eforth/j1.c +++ b/j1eforth/j1.c @@ -95,8 +95,8 @@ static void execute(int entrypoint) case 0xa: _t = t-1; break; /* 1- */ case 0xb: _t = r[rsp]; break; /* r@ */ case 0xc: switch (t) { - case 0xf001: _t = 1; break; - case 0xf000: _t = getch(); break; + case 0x7001: _t = 1; break; + case 0x7000: _t = getch(); break; default: _t = memory[t>>1]; break; } break; /* @ */ @@ -112,8 +112,8 @@ static void execute(int entrypoint) r[rsp] = t; if (insn & 0x20) /* s->[t] */ switch (t) { - case 0xf002: rsp = 0; break; - case 0xf000: putch(s); break; + case 0x7002: rsp = 0; break; + case 0x7000: putch(s); break; default: memory[t>>1]=s; break; /* ! */ } t = _t; -- cgit v1.2.3