\ end.f18 -- the end of the system's source: the state it is switched on in.
\
\ What was set in C when the nucleus was prebuilt (v4/tools/mkimage.c, gone
\ since the machine's ROM assembles the system), said with the
\ ROM's directives (MACHINE.md, the ROM's language).  RAM is all zeroes
\ when the machine starts, so only what is not zero is stored.  Then the
\ image record (map: (IMG)), the addresses a host needs (v4/image.h), and
\ start: the ROM clears what it used and the node waits for a message.

\ the dictionary: empty, at DBASE; the newest entry, the nucleus's last
store DP  DBASE
store (LATEST)  HDR-LINK
\ the control-flow stack, the number base, the log level
store (CFP)  CFBASE
store BASE  10
store (LOG-LEVEL)  2
\ one vocabulary, FORTH, whose head cell is LATEST; new words go into it
store CONTEXT  (LATEST)
store CURRENT  (LATEST)
\ the text interpreted is the terminal's
store (SRC)  TIB
\ what COLD comes back to, and the lowest FORGET goes: the nucleus as it is
store (BOOT)  DBASE
store (BOOT)+1  HDR-LINK
store FENCE  DICT-W
\ nothing has ended badly; nothing has been printed
store (LINE-STATUS)  1
store (OUT^)  (OUT)

\ the image record: where the node waits, its fault table, KEY's code
store (IMG)  &(IDLE)
store (IMG)+1  &(FAULTS)
store (IMG)+2  &KEY
store (IMG)+3  &CR

start (IDLE)