refactor(v4.0.0): the capsule's inner words keep their state in memory

WORD, the dictionary words and the code generator run underneath
whatever the user has on the stacks, which are ten and nine deep (D-2).
Measured, they used five to seven data cells of their own, leaving a
line about three.  Each now keeps what it works on in its file's
scratch cells and has at most three cells on the data stack; , calls
nothing; and the longest chains of calls are shorter.

The public words of core.v4, input.v4 and dict.v4 get dictionary
headers.  NUMBER is split so the interpreter can have a flag instead of
NODE-ERROR.  The host-node tests share one memory map, host_map.h.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

v4/capsule/core.v4

@@ -13,6 +13,7 @@ macro NEGATE inv 1 +                       endmacro
 macro NIP    push drop pop                 endmacro
 
 \ ---- section 4: multiply ------------------------------------------------
+header UM*
 : UM* ( u1 u2 -- ulo uhi )
   over 1 and inv 1 +  over 2/ and      \ u1 u2 t0       t0 = u2 2/ if u1 odd
   over a!  N-1 push                    \ A: u2          R: loop count
@@ -26,6 +27,7 @@ macro NIP    push drop pop                 endmacro
   and 1 and  a 2* +  pop ;
 
 \ ---- section 5.7: doubles ------------------------------------------------
+header D+
 : D+ ( d1 d2 -- d3 )
   push  over push  push drop pop       \ al bl      R: bh ah
   over over xor -if L1
@@ -36,11 +38,13 @@ macro NIP    push drop pop                 endmacro
   C0: pop pop + ;
   C1: pop pop + 1 + ;
 
+header DNEGATE
 : DNEGATE ( d -- -d )
   inv over if L1  drop push inv 1 + pop ;
   L1: drop 1 + ;
 
 \ ---- section 5.3: bytes --------------------------------------------------
+header C@
 : C@ ( baddr -- c )
   dup 2/ 2/ a!  3 and
   if K0  -1 + if K1  -1 + if K2
@@ -49,6 +53,7 @@ macro NIP    push drop pop                 endmacro
   K1: drop @   7 FOR 2/ UNEXT  255 and ;
   K0: drop @  255 and ;
 
+header C!
 : C! ( c baddr -- )
   dup 2/ 2/ a!  3 and  push 255 and pop
   if K0  -1 + if K1  -1 + if K2
@@ -58,6 +63,7 @@ macro NIP    push drop pop                 endmacro
   K0: drop  @ -256 and + ! ;
 
 \ ---- section 5.9: strings ------------------------------------------------
+header CMOVE
 : CMOVE ( src dst u -- )
   -if OK  drop drop drop  NODE-ERROR b! -1 !b ;
   OK: if DONE  push
@@ -65,7 +71,9 @@ macro NIP    push drop pop                 endmacro
   DONE: drop drop drop ;
 
 \ ---- section 5.10: the console -------------------------------------------
+header EMIT
 : EMIT ( c -- )        CONSOLE-TX b! !b ;
+header KEY
 : KEY  ( -- c )
   L: CONSOLE-STATUS b! @b  if WAIT  drop  CONSOLE-RX b! @b ;
   WAIT: drop  jump L