feat(v4.0.0): number output in the capsule, and .S

- capsule/numout.v4: <# # #S HOLD SIGN #>, . .R U. U.R D. D.R, ?, SPACES,
  DECIMAL HEX OCTAL -- the definitions DECOMPOSITION.md 5.8 gives and the
  mesh-node tests execute, now words of the host node's vocabulary.
- .S, which D-16 makes possible again: as v3, the depth, then every value
  from the deepest, then a new line.  It needs six cells of the stack
  free.
- tests/test_host_quit.c: printed from the prompt, with 14 more sessions
  that are transcripts of the v3 binary, and the ends of the number range
  at each cell width.

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

v4/tests/host_map.h

@@ -39,6 +39,8 @@
 #define CVARS        (TOP - 62)                 /* (C): compile.v4, 10 cells */
 #define FVARS        (TOP - 105)                /* (F): forth.v4, 7 cells */
 #define SVARS        (TOP - 540 - (v4_cell)V4_DATA_DEPTH)   /* (S): where PICK and ROLL set stack values aside, one cell for each cell of the stack */
+#define WVARS        (TOP - 99)                 /* (W): numout.v4, 3 cells */
+#define HLD          (TOP - 25)                 /* where the pictured number has got to */
 #define QVARS        (TOP - 52)                 /* (Q): quit.v4, 2 cells */
 
 /* buffers (word addresses; a byte address is four times this) */
@@ -49,6 +51,8 @@
 #define TIB_W        (TOP - 440)                /* the text input buffer: 260 cells = 1040 bytes */
 #define PAD_W        (TOP - 470)                /* PAD: 21 cells = 84 bytes */
 #define SBUF_W       (TOP - 540)                /* 64 cells for the tests' own strings */
+#define HBUF_W       (SVARS - 16)               /* the hold buffer: 16 cells = 64 bytes */
+#define HEND         ((HBUF_W + 16) * 4)
 #define WBUF         (WBUF_W * 4)
 #define TIB          (TIB_W * 4)
 #define PAD          (PAD_W * 4)
@@ -107,6 +111,10 @@ static int host_load(v4_text *tx, v4_node *n, const char *const *files, unsigned
     v4_text_constant(tx, "(Q)", QVARS);
     v4_text_constant(tx, "(F)", FVARS);
     v4_text_constant(tx, "(S)", SVARS);
+    v4_text_constant(tx, "(W)", WVARS);
+    v4_text_constant(tx, "HLD", HLD);
+    v4_text_constant(tx, "HEND", HEND);
+    v4_text_constant(tx, "-HFLOOR", -(HEND - 62));
     v4_text_constant(tx, "DSTACK-DEPTH", DSTACK_REG);
     v4_text_constant(tx, "RSTACK-DEPTH", RSTACK_REG);
     v4_node_stack_regs_attach(n, DSTACK_REG, RSTACK_REG);