aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2018-02-11 12:30:50 +0100
committerDimitri Sokolyuk <demon@dim13.org>2018-02-11 12:30:50 +0100
commit59c28c66e82ec63a02df07bec386b8bfeb7e90b7 (patch)
tree6483e1e86462f5bf394c26289b07ed695e6eead6
parentc2c1402d532ebf3cfd8ef8d24f319fa071194a50 (diff)
...
-rw-r--r--j1eforth/j1.c8
1 files 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;