From f6727f8e341051aa454233a01a5a39d3cec646f0 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Wed, 15 Apr 2020 20:15:24 -0400
Subject: [PATCH] boot: use CODE where possible

Now that we use xcomp unit, boot entry creation can be a bit
cleaner.
---
 forth/boot.fs | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/forth/boot.fs b/forth/boot.fs
index 7abfa0e..0f47005 100644
--- a/forth/boot.fs
+++ b/forth/boot.fs
@@ -51,7 +51,7 @@ NOP,              ( unused )
 'E' A, 'X' A, 'I' A, 'T' A,
 0 A,,   ( prev )
 4 A,
-L1 BSET ( EXIT, 0x43 )
+H@ XCURRENT !        ( set current tip of dict, 0x43 )
     0x17 A,         ( nativeWord )
     0x14 CALLnn,    ( popRS )
     HL PUSHqq, IY POPqq, ( --> IP )
@@ -59,11 +59,7 @@ L1 BSET ( EXIT, 0x43 )
 
 NOP, NOP, NOP, NOP,  ( unused )
 
-'(' A, 'b' A, 'r' A, ')' A,
-PC L1 @ - A,, ( prev )
-4 A,
-L1 BSET ( BR )
-    0x17 A,         ( nativeWord )
+CODE (br)            ( 0x58 )
 L2 BSET ( used in CBR )
     E 0 IY+ LDrIXY,
     D 1 IY+ LDrIXY,
@@ -72,11 +68,7 @@ L2 BSET ( used in CBR )
 
 NOP, NOP, NOP, NOP, ( unused )
 
-'(' A, '?' A, 'b' A, 'r' A, ')' A,
-PC L1 @ - A,, ( prev )
-5 A,
-H@ XCURRENT !        ( set current tip of dict )
-    0x17 A,          ( nativeWord )
+CODE (?br)           ( 0x70 )
     HL POPqq,
     chkPS,
     A H LDrr,