Move SCPY from z80c to icore

This way, it can be affected by memory mappers.

forth/icore.fs

@@ -181,6 +181,15 @@
     0x0e _c RAM+
 ;
 
+: SCPY
+    BEGIN               ( a )
+        _c DUP _c C@    ( a c )
+        _c DUP _c C,    ( a c )
+        _c NOT IF _c DROP EXIT THEN
+        1 _c +          ( a+1 )
+    AGAIN
+;
+
 : (entry)
     _c HERE _c @    ( h )
     _c WORD         ( h s )

forth/z80c.fs

@@ -390,24 +390,6 @@ L1 FSET ( found )
     DE PUSHqq,
 ;CODE
 
-CODE SCPY
-    HL POPqq,
-    chkPS,
-    ( HERE == RAM+4 )
-    DE RAMSTART 0x04 + LDdd(nn),
-    B 0 LDrn,
-L1 BSET ( loop )
-    A (HL) LDrr,
-    LD(DE)A,
-    HL INCss,
-    DE INCss,
-    B INCr,
-    A ORr,
-    JRNZ, L1 BWR ( loop )
-    DE A LD(dd)r
-    RAMSTART 0x04 + DE LD(nn)dd,
-;CODE
-
 CODE (im1)
     IM1,
     EI,