Split icore in 2 parts

The goal is to insert device drivers in between.

blk/392

@@ -4,4 +4,12 @@ and other defining words. So, in other words, when compiling
 icore, ":" doesn't means what you think it means, go look in
 B260.
 
-To load, run "393 LOAD".
+This is loaded in two "low" and "high" parts. The low part is
+the biggest chunk and has the most definitions. The high part
+is the "sensitive" chunk and contains "LITN", ":" and ";"
+definitions which, once defined, kind of make any more defs
+impossible.
+
+The gap between these 2 parts is the ideal place to put device
+driver code. Load the low part with "393 LOAD", the high part
+with "415 LOAD"

blk/393

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

blk/412

@@ -1,14 +1,8 @@
-( LITN has to be defined after the last immediate usage of
-  it to avoid bootstrapping issues )
-: LITN 32 , , ( 32 == NUMBER ) ;
-
-: IMMED? 1- C@ 0x80 AND ;
-
-( ';' can't have its name right away because, when created, it
-  is not an IMMEDIATE yet and will not be treated properly by
-  xcomp. )
-: _
-    ['] EXIT ,
-    R> DROP     ( exit : )
-; IMMEDIATE
-
+: H@ HERE @ ;
+: IMMEDIATE
+    CURRENT @ 1-
+    DUP C@ 128 OR SWAP C!
+;
+: +! SWAP OVER @ + SWAP ! ;
+: -^ SWAP - ;
+: ALLOT HERE +! ;

blk/415

@@ -0,0 +1 @@
+1 2 LOADR+

blk/416

@@ -0,0 +1,14 @@
+( LITN has to be defined after the last immediate usage of
+  it to avoid bootstrapping issues )
+: LITN 32 , , ( 32 == NUMBER ) ;
+
+: IMMED? 1- C@ 0x80 AND ;
+
+( ';' can't have its name right away because, when created, it
+  is not an IMMEDIATE yet and will not be treated properly by
+  xcomp. )
+: _
+    ['] EXIT ,
+    R> DROP     ( exit : )
+; IMMEDIATE
+

blk/422

@@ -1,8 +1,3 @@
-: H@ HERE @ ;
-: IMMEDIATE
-    CURRENT @ 1-
-    DUP C@ 128 OR SWAP C!
-;
 : [ INTERPRET ; IMMEDIATE
 : ] R> DROP ;
 : LITS 34 , SCPY ;

blk/425

@@ -1,7 +1,3 @@
-: +! SWAP OVER @ + SWAP ! ;
-: -^ SWAP - ;
-: ALLOT HERE +! ;
-
 : IF                ( -- a | a: br cell addr )
     COMPILE (?br)
     H@              ( push a )

emul/xcomp.fs

@@ -10,12 +10,14 @@
 CURRENT @ XCURRENT !
 
 282 LOAD  ( boot.z80 )
-393 LOAD  ( icore )
+393 LOAD  ( icore low )
+: (emit) 0 PC! ;
+: (key) 0 PC@ ;
+415 LOAD  ( icore high )
 (entry) _
 ( Update LATEST )
 PC ORG @ 8 + !
 ," CURRENT @ HERE ! "
-," : (emit) 0 PC! ; : (key) 0 PC@ ; "
 422 459 XPACKR
 ," ' (key) 12 RAM+ ! "
 ORG @ 256 /MOD 2 PC! 2 PC!

recipes/rc2014/xcomp.fs

@@ -18,7 +18,8 @@ CURRENT @ XCURRENT !
 282 LOAD  ( boot.z80 )
 352 LOAD  ( acia.z80 )
 372 LOAD  ( sdc.z80 )
-393 LOAD  ( icore )
+393 LOAD  ( icore low )
+415 LOAD  ( icore high )
 (entry) _
 ( Update LATEST )
 PC ORG @ 8 + !

recipes/ti84/xcomp.fs

@@ -13,7 +13,8 @@ CURRENT @ XCURRENT !
 
 282 LOAD  ( boot.z80 )
 555 LOAD  ( ti.z80 )
-393 LOAD  ( icore )
+393 LOAD  ( icore low )
+415 LOAD  ( icore high )
 (entry) ~FNT CPFNT3x5
 (entry) _
 ( Update LATEST )

recipes/trs80/xcomp.fs

@@ -12,7 +12,8 @@ CURRENT @ XCURRENT !
 0x3000 BIN( !
 282 LOAD  ( boot.z80 )
 492 LOAD  ( trs80.z80 )
-393 LOAD  ( icore )
+393 LOAD  ( icore low )
+415 LOAD  ( icore high )
 (entry) _
 ( Update LATEST )
 PC ORG @ 8 + !