blk/392

@@ -4,12 +4,4 @@ and other defining words. So, in other words, when compiling
 icore, ":" doesn't means what you think it means, go look in
 B260.
 
-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"
+To load, run "393 LOAD".

blk/393

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

blk/412

@@ -1,8 +1,14 @@
-: H@ HERE @ ;
-: IMMEDIATE
-    CURRENT @ 1-
-    DUP C@ 128 OR SWAP C!
-;
-: +! SWAP OVER @ + SWAP ! ;
-: -^ SWAP - ;
-: ALLOT HERE +! ;
+( 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/415

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

blk/416

@@ -1,14 +0,0 @@
-( 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,3 +1,8 @@
+: H@ HERE @ ;
+: IMMEDIATE
+    CURRENT @ 1-
+    DUP C@ 128 OR SWAP C!
+;
 : [ INTERPRET ; IMMEDIATE
 : ] R> DROP ;
 : LITS 34 , SCPY ;

blk/425

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

emul/xcomp.fs

@@ -10,14 +10,12 @@
 CURRENT @ XCURRENT !
 
 282 LOAD  ( boot.z80 )
-393 LOAD  ( icore low )
-: (emit) 0 PC! ;
-: (key) 0 PC@ ;
-415 LOAD  ( icore high )
+393 LOAD  ( icore )
 (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,8 +18,7 @@ CURRENT @ XCURRENT !
 282 LOAD  ( boot.z80 )
 352 LOAD  ( acia.z80 )
 372 LOAD  ( sdc.z80 )
-393 LOAD  ( icore low )
-415 LOAD  ( icore high )
+393 LOAD  ( icore )
 (entry) _
 ( Update LATEST )
 PC ORG @ 8 + !

recipes/ti84/xcomp.fs

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

recipes/trs80/xcomp.fs

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