Move a bunch of words from core to xcomp core

blk/393

@@ -12,4 +12,4 @@
     0 0x08 RAM+ !  ( 08 == C<* override )
     LIT< INTERPRET (find) DROP EXECUTE
 ;
-1 21 LOADR+
+1 22 LOADR+

blk/413

@@ -1,11 +1,13 @@
+: '? WORD (find) ;
+: '
+    '? (?br) [ 4 , ] EXIT
+    LIT< (wnf) (find) DROP EXECUTE
+;
 : ROLL
     DUP NOT IF EXIT THEN
     1+ DUP PICK          ( n val )
     SWAP 2 * (roll)      ( val )
     SWAP DROP
 ;
-
 : 2OVER 3 PICK 3 PICK ;
 : 2SWAP 3 ROLL 3 ROLL ;
-
-

blk/422

@@ -9,5 +9,7 @@
     34 , ( 34 == litWord ) ," 0 C,
     COMPILE (print)
 ; IMMEDIATE
-
 : ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
+: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
+: CRLF CR LF ; : SPC 32 EMIT ;
+: NL 0x0a RAM+ @ ( NLPTR ) DUP IF EXECUTE ELSE DROP CRLF THEN ;

blk/430

@@ -2,11 +2,6 @@
 : ] R> DROP ;
 : LIT< WORD 34 , SCPY 0 C, ; IMMEDIATE
 : LITA 36 , , ;
-: '? WORD (find) ;
-: '
-    '? (?br) [ 4 , ] EXIT
-    LIT< (wnf) (find) DROP EXECUTE
-;
 : ['] ' LITA ; IMMEDIATE
 : COMPILE ' LITA ['] , , ; IMMEDIATE
 : [COMPILE] ' , ; IMMEDIATE

blk/439

@@ -7,4 +7,6 @@
     = UNTIL
     DROP
 ;
-
+: (ok) SPC ." ok" NL ;
+: (uflw) ABORT" stack underflow" ;
+: (wnf) (print) SPC ABORT" word not found" ;

blk/440

@@ -1,11 +0,0 @@
-: (uflw) ABORT" stack underflow" ;
-: BS 8 EMIT ;
-: LF 10 EMIT ;
-: CR 13 EMIT ;
-: CRLF CR LF ;
-: SPC 32 EMIT ;
-: NL 0x0a RAM+ @ ( NLPTR ) DUP IF EXECUTE ELSE DROP CRLF THEN ;
-
-: (wnf) (print) SPC ABORT" word not found" ;
-: (ok) SPC ." ok" NL ;
-