diff --git a/blk/392 b/blk/392
index 5fe8205..5afcd1f 100644
--- a/blk/392
+++ b/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"
diff --git a/blk/393 b/blk/393
index 98d16d9..f3183fc 100644
--- a/blk/393
+++ b/blk/393
@@ -12,4 +12,4 @@
     0 0x08 RAM+ !  ( 08 == C<* override )
     LIT< INTERPRET (find) DROP EXECUTE
 ;
-1 21 LOADR+
+1 19 LOADR+
diff --git a/blk/415 b/blk/415
new file mode 100644
index 0000000..8ed1836
--- /dev/null
+++ b/blk/415
@@ -0,0 +1 @@
+1 2 LOADR+
diff --git a/blk/413 b/blk/416
similarity index 100%
rename from blk/413
rename to blk/416
diff --git a/blk/414 b/blk/417
similarity index 100%
rename from blk/414
rename to blk/417
diff --git a/emul/forth.bin b/emul/forth.bin
index 67d1066..92c9af8 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ
diff --git a/emul/xcomp.fs b/emul/xcomp.fs
index 0deddca..e7b63f4 100644
--- a/emul/xcomp.fs
+++ b/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!
diff --git a/recipes/rc2014/xcomp.fs b/recipes/rc2014/xcomp.fs
index dc34efb..6f08080 100644
--- a/recipes/rc2014/xcomp.fs
+++ b/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 + !
diff --git a/recipes/ti84/xcomp.fs b/recipes/ti84/xcomp.fs
index cc73a17..6025228 100644
--- a/recipes/ti84/xcomp.fs
+++ b/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 )
diff --git a/recipes/trs80/xcomp.fs b/recipes/trs80/xcomp.fs
index 42001cb..2db7e2b 100644
--- a/recipes/trs80/xcomp.fs
+++ b/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 + !