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 21 LOADR+
+1 19 LOADR+

blk/415

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

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 + !