Move IMMED? from z80c to icore

2020-04-08 20:09:32 -04:00 · 2020-04-08 20:09:32 -04:00 · 2a2e3a64a4
commit 2a2e3a64a4
parent a7a2f3d08b
3 changed files with 2 additions and 12 deletions
--- a/emul/forth/z80c.bin
+++ b/emul/forth/z80c.bin
--- a/forth/icore.fs
+++ b/forth/icore.fs
@ -244,6 +244,8 @@
    32 _c , _c ,
 ;

+: IMMED? 1 _c - _c C@ 0x80 _c AND ;
+
 ( : and ; have to be defined last because it can't be
  executed now also, they can't have their real name
  right away.
--- a/forth/z80c.fs
+++ b/forth/z80c.fs
@ -311,18 +311,6 @@ CODE R>
    HL PUSHqq,
 ;CODE

-CODE IMMED?
-    HL POPqq,
-    chkPS,
-    HL DECss,
-    DE 0 LDddnn,
-    7 (HL) BITbr,
-    JRZ, L1 FWR ( notset )
-    DE INCss,
-L1 FSET ( notset )
-    DE PUSHqq,
-;CODE
-
 CODE BYE
    HALT,
 ;CODE