diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin index 50253e2..05f1005 100644 Binary files a/emul/forth/z80c.bin and b/emul/forth/z80c.bin differ diff --git a/forth/icore.fs b/forth/icore.fs index d02e72a..afc4eab 100644 --- a/forth/icore.fs +++ b/forth/icore.fs @@ -220,7 +220,7 @@ ( maybe number ) ELSE (parse*) @ EXECUTE LITN THEN AGAIN -; IMMEDIATE +; XCURRENT @ ( to PSP ) diff --git a/forth/xcomp.fs b/forth/xcomp.fs index 619210b..0004720 100644 --- a/forth/xcomp.fs +++ b/forth/xcomp.fs @@ -53,8 +53,6 @@ VARIABLE XOFF (xentry) 23 , ; -: _IMM IMMEDIATE ; - : IMMEDIATE XCURRENT @ 1 - DUP C@ 128 OR SWAP C! @@ -88,4 +86,4 @@ VARIABLE XOFF (parse*) @ EXECUTE LITN THEN AGAIN -; _IMM +;