Almost done De-XPACKing!

blk/001

@@ -6,7 +6,6 @@ MASTER INDEX
 150 Extra words
 200 Z80 assembler             260 Cross compilation
 280 Z80 boot code             390 Cross-compiled core
-439 XPACKed core              
 490 TRS-80 Recipe             520 Fonts
 550 TI-84+ Recipe             580 RC2014 Recipe
 

blk/420

@@ -1 +1 @@
-1 18 LOADR+ ( xcomp core high )
+1 19 LOADR+ ( xcomp core high )

blk/438

@@ -1,10 +1,14 @@
-( ';' can't have its name right away because, when created, it
+: IF                ( -- a | a: br cell addr )
-  is not an IMMEDIATE yet and will not be treated properly by
+    COMPILE (?br) H@ 2 ALLOT ( br cell allot )
-  xcomp. )
-: _
-    ['] EXIT ,
-    R> DROP     ( exit : )
 ; IMMEDIATE
-';' XCURRENT @ 4 - C!
+: THEN              ( a -- | a: br cell addr )
-':' X' _ 4 - C! ( give : its name )
+    DUP H@ -^ SWAP ( a-H a ) !
-'(' X' _ 4 - C!
+; IMMEDIATE
+: ELSE              ( a1 -- a2 | a1: IF cell a2: ELSE cell )
+    COMPILE (br)
+    2 ALLOT
+    DUP H@ -^ SWAP  ( a-H a )
+    !
+    H@ 2-          ( push a. -2 for allot offset )
+; IMMEDIATE
+

blk/439

@@ -0,0 +1,10 @@
+( ';' 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
+';' XCURRENT @ 4 - C!
+':' X' _ 4 - C! ( give : its name )
+'(' X' _ 4 - C!

blk/442

@@ -1,11 +0,0 @@
-: IF                ( -- a | a: br cell addr )
-    COMPILE (?br)
-    H@              ( push a )
-    2 ALLOT         ( br cell allot )
-; IMMEDIATE
-
-: THEN              ( a -- | a: br cell addr )
-    DUP H@ -^ SWAP   ( a-H a )
-    !
-; IMMEDIATE
-

blk/443

@@ -1,8 +0,0 @@
-: ELSE              ( a1 -- a2 | a1: IF cell a2: ELSE cell )
-    COMPILE (br)
-    2 ALLOT
-    DUP H@ -^ SWAP  ( a-H a )
-    !
-    H@ 2-          ( push a. -2 for allot offset )
-; IMMEDIATE
-