feat(v4): the ROM assembles text as text.c does -- words, labels, macros, FOR, directives, start

word.f18: (NEXT-TOKEN) reads the console or a macro being expanded; labels,
branches by name (a label of the word, or a word, now or later), the
table of branches waiting, end of word, FOR/NEXT/UNEXT, macros, &NAME,
CONST+N, and (ONE), which dispatches a token.  A forward branch to a name
not yet defined waits on a placeholder symbol, filled in by (DEFINE).
dir.f18: constant set here #, ", store, and start, which resolves, clears
the tables the ROM used and runs the word it names.  main.f18: the ROM
itself, entry 12; on an error it stops at (ROM-FAILED) with the code and
line in its state, for the loader to report.  sym.f18 generalized: any
counted string, placeholders, a hash of only a name's own cells.

test_host_rom_asm.c gives test_text.c's own texts (accepted and refused),
its four real definitions and the ROM's directives to text.c and to the
ROM: the same words, the same errors on the same lines, at both widths.
The ROM is 2036 words.

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

capsules/v4/rom/in.f18

@@ -17,6 +17,7 @@
 \   (EOF)     non-zero once EOT has been read
 \   (FAILED)  0, or the code of the error that stopped the ROM
 \   (ERRLINE) (LINE) when it failed
+\   (RAW)     1 while a token is read raw: ( and \ are then names
 \ Every routine here uses A.
 
 \ ( -- c )   wait for a character, then take it
@@ -78,6 +79,8 @@
     drop  jump READ
   TEND: drop  (BACK)
     (TOKN) a! @  (TOK) a! @ xor !
+    (RAW) a! @ if COOKED  drop  (TOKN) a! @ ;
+  COOKED: drop
     (TOKN) a! @ 1 xor if ONE
     drop  (TOKN) a! @ ;
   ONE: drop  0 (CHAR@)
@@ -103,3 +106,6 @@
   NL: drop drop  (LF+)  jump SKIP
   SP: drop drop  jump SKIP
   LONG: drop drop  ERR-TOO-LONG (FAIL)  0 ;
+
+\ ( -- len )   the next token, raw: ( and \ are names, not comments
+: (RAW-TOKEN)   1 (RAW) a! !  (TOKEN)  0 (RAW) a! ! ;