feat(v4.0.0): SEE, a disassembler written in FORTH

- capsule/tools.fth: SEE as FORTH source the node compiles itself.  v4
  code is native, so it shows each instruction word of a definition: the
  opcodes by name, literals' values, the names of the words called or
  jumped to, and text compiled by ." S" and ABORT" as text.  A data word
  shows what it holds; an immediate word says so.
- quit.v4: the three string run-time words get names, compile-only, so
  that SEE can tell text from code.
- tests/test_host_quit.c: definitions with literals, text, IF and loops;
  the capsule's own words; SEE shown by SEE.

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

v4/capsule/quit.v4

@@ -124,6 +124,8 @@ header ABORT
   jump (FAULT)  jump (D-OVER)  jump (D-UNDER)  jump (R-OVER)  jump (R-UNDER)  jump (RAISED)
 
 \ ---- text in the source ---------------------------------------------------------
+\ The three run-time words have names, as v3's have, so that SEE can tell a
+\ string in a definition from code; they cannot be used from the prompt.
 \ ." and ABORT" take the text up to the next " , which may be none at all
 \ (input.v4's (PARSE)); with no closing " it is the rest of the line.  Inside a definition they lay
 \ down a call to their run-time word and, after it, the text as a counted
@@ -147,6 +149,7 @@ header ABORT
 \ It takes the return address off before it calls anything and keeps the
 \ count there instead, so a word that prints text goes no deeper than one
 \ that calls any other word.
+header (.") compile-only
 : (.")
   pop 4*  dup C@                             \ baddr n
   L: if DONE
@@ -165,6 +168,7 @@ header ." immediate
 \ ( flag -- )   the run time of ABORT" : if the flag is not zero print the
 \ string after the call, start a new line and ABORT; otherwise go on after
 \ the string.
+header (ABORT") compile-only
 : (ABORT")
   if NO
   drop  pop 4*  R-CLEAR  COUNT TYPE  CR  jump ABORT
@@ -183,6 +187,7 @@ header ABORT" immediate
 
 \ The run time of S" : leave the address and length of the string after the
 \ call, and go on after it.
+header (S") compile-only
 : (S")
   pop 4*  dup C@                             \ baddr n
   over over + 4/ 1 + push                    \ the cell after the last character