Free some space for xcomp core

blk/001

@@ -7,7 +7,7 @@ MASTER INDEX
 200 Z80 assembler             260 Cross compilation
 280 Z80 boot code             350 ACIA driver
 370 SD Card driver            390 Cross-compiled core
-428 Core words                480 AT28 Driver
+439 Core words                480 AT28 Driver
 490 TRS-80 Recipe             520 Fonts
 550 TI-84+ Recipe
 

blk/428

@@ -1,12 +0,0 @@
-Core words
-
-These words follow cross-compiled words, but unlike them, these
-are self-bootstrapping and don't depend on the Cross Compiler.
-They will typically be included in source form right after a
-stage1 binary which will interpret it on boot and bootstrap
-itself to a full intepreter, which can then be relinked with
-the Relinker. There is no loader for these libraries because
-you will typically XPACK (B267) them.
-
-430 core                       442 fmt
-447 readln                     453 blk

blk/430

@@ -1,10 +0,0 @@
-: [ INTERPRET ; IMMEDIATE
-: ] R> DROP ;
-: LIT< WORD 34 , SCPY 0 C, ; IMMEDIATE
-: LITA 36 , , ;
-: ['] ' LITA ; IMMEDIATE
-: COMPILE ' LITA ['] , , ; IMMEDIATE
-: [COMPILE] ' , ; IMMEDIATE
-: BEGIN H@ ; IMMEDIATE
-: AGAIN COMPILE (br) H@ - , ; IMMEDIATE
-: UNTIL COMPILE (?br) H@ - , ; IMMEDIATE

blk/439

@@ -1,12 +1,12 @@
-( Drop RSP until I-2 == INTERPRET. )
+Core words
-: EXIT!
+
-    ['] INTERPRET       ( I )
+These words follow cross-compiled words, but unlike them, these
-    BEGIN               ( I )
+are self-bootstrapping and don't depend on the Cross Compiler.
-    DUP                 ( I I )
+They will typically be included in source form right after a
-    R> DROP I 2- @     ( I I a )
+stage1 binary which will interpret it on boot and bootstrap
-    = UNTIL
+itself to a full intepreter, which can then be relinked with
-    DROP
+the Relinker. There is no loader for these libraries because
-;
+you will typically XPACK (B267) them.
-: (ok) SPC ." ok" NL ;
+
-: (uflw) ABORT" stack underflow" ;
+440 core                       447 readln                   
-: (wnf) (print) SPC ABORT" word not found" ;
+453 blk

blk/440

@@ -0,0 +1,10 @@
+: [ INTERPRET ; IMMEDIATE
+: ] R> DROP ;
+: LIT< WORD 34 , SCPY 0 C, ; IMMEDIATE
+: LITA 36 , , ;
+: ['] ' LITA ; IMMEDIATE
+: COMPILE ' LITA ['] , , ; IMMEDIATE
+: [COMPILE] ' , ; IMMEDIATE
+: BEGIN H@ ; IMMEDIATE
+: AGAIN COMPILE (br) H@ - , ; IMMEDIATE
+: UNTIL COMPILE (?br) H@ - , ; IMMEDIATE

blk/446

@@ -0,0 +1,12 @@
+( Drop RSP until I-2 == INTERPRET. )
+: EXIT!
+    ['] INTERPRET       ( I )
+    BEGIN               ( I )
+    DUP                 ( I I )
+    R> DROP I 2- @     ( I I a )
+    = UNTIL
+    DROP
+;
+: (ok) SPC ." ok" NL ;
+: (uflw) ABORT" stack underflow" ;
+: (wnf) (print) SPC ABORT" word not found" ;

emul/xcomp.fs

@@ -21,7 +21,7 @@ CURRENT @ XCURRENT !
 ( Update LATEST )
 PC ORG @ 8 + !
 ," CURRENT @ HERE ! "
-430 459 XPACKR
+440 459 XPACKR
 ," ' (key) 12 RAM+ ! "
 ORG @ 256 /MOD 2 PC! 2 PC!
 H@ 256 /MOD 2 PC! 2 PC!

recipes/rc2014/xcomp.fs

@@ -27,7 +27,7 @@ CURRENT @ XCURRENT !
 (entry) _
 ( Update LATEST )
 PC ORG @ 8 + !
-430 452 XPACKR ( core fmt readln )
+440 452 XPACKR ( core )
 123 132 XPACKR ( linker )
 ," : _ ACIA$ RDLN$ (ok) ; _ "
 ORG @ 256 /MOD 2 PC! 2 PC!

recipes/ti84/xcomp.fs

@@ -74,7 +74,7 @@ CREATE ~FNT CPFNT3x5
 (entry) _
 ( Update LATEST )
 PC ORG @ 8 + !
-430 451 XPACKR ( core fmt readln )
+440 451 XPACKR ( core )
 ," : _ LCD$ KBD$ (ok) RDLN$ ; _ "
 ORG @ 0x100 - 256 /MOD 2 PC! 2 PC!
 H@ 256 /MOD 2 PC! 2 PC!

recipes/trs80/xcomp.fs

@@ -21,7 +21,7 @@ CURRENT @ XCURRENT !
 ( Update LATEST )
 PC ORG @ 8 + !
 ," CURRENT @ HERE ! "
-430 459 XPACKR ( core readln fmt blk )
+440 459 XPACKR ( core )
 499 500 XPACKR ( trs80.fs )
 ( 0x0a == NLPTR. TRS-80 wants CR-only newlines )
 ," : _ ['] CR 0x0a RAM+ ! BLK$ FD$ (ok) RDLN$ ; _ "