feat(v4): HEAT-OP[0..31] and ANTICLOCK, read by HEAT-OP@ and ANTICLOCK@

#189 -- Captain Bob, 2026-11-12: "Add HEAT-OP. If it's a huge performance
hit, we'll revert it. If not ... it stands"; a full 33-cell array, as
DECOMPOSITION.md section 7 draws it; the Stadium feed is Phase 1's.

- node.h/node.c: v4_node_heat_regs_attach; a data fetch from base+k gives
  opcode k's count, base+32 the anti-clock (the low cell at 32 bits); a
  store changes nothing. Reset detaches them.
- host_map.h: HEAT_REG at word 13824, in what was free between the
  dictionary space and SEND_TEXT; the compile-time check covers it.
  Nothing moved. map-*.f18: HEAT-OP 13824, ANTICLOCK 13856.
- image.h/image.c/mkmap.c: the image carries the address; v4_image_born
  attaches the node's own counts.
- system.f18: HEAT-OP@ ( op -- n ), op mod 32; ANTICLOCK@ ( -- n ).
  word_count 318 -> 320 (hosted 317 -> 319): dict_hash changes.
- v4-dictionary.tsv: both words; DECOMPOSITION.md 7 records the build.

Also in this batch:
- Makefile: make init installs qemu-user -- hosted-check needs it
  (Captain Bob: "Add to make init now").
- .claude/memory/rules.md, rule 5: stop and ask when something comes up
  (Captain Bob: "you are supposed to stop and ask").

Tests first (logs/20261113-005047/heat-op): test_node did not compile;
test_host_quit 3 of 1337 failed. Suite: 199 programs, 7448554 checks, 0
failures; hosted-check, the three alike. Timing: no measurable cost.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_017RzZgrf7V7Zk2iczBXDRbm

capsules/v4/sys/map-32.f18

@@ -112,6 +112,8 @@ constant HEND 63248
 constant -HFLOOR -63186
 constant DSTACK-DEPTH 16369
 constant RSTACK-DEPTH 16368
+constant HEAT-OP 13824
+constant ANTICLOCK 13856
 constant CFBASE 16288
 constant CFEND 16320
 constant ROM-UM* 16384

capsules/v4/sys/map-64.f18

@@ -112,6 +112,8 @@ constant HEND 63248
 constant -HFLOOR -63186
 constant DSTACK-DEPTH 16369
 constant RSTACK-DEPTH 16368
+constant HEAT-OP 13824
+constant ANTICLOCK 13856
 constant CFBASE 16288
 constant CFEND 16320
 constant ROM-UM* 16384

capsules/v4/sys/system.f18

@@ -8,9 +8,21 @@
 \           that starts below the address it holds
 \   VOC-LINK   word address of the variable: the newest vocabulary, or 0
 \   (BOOT)  word address of two cells: DP and (LATEST) as the loader left them
+\   HEAT-OP ANTICLOCK   word addresses of HEAT-OP[0] and ANTICLOCK, the heat
+\           registers (DECOMPOSITION.md section 7): read-only
 
 set HDR-NFA here  ", FENCE  #, 8  #, HDR-NFA  #, HDR-LINK  set HDR-LINK here  : FENCE'  FENCE ;
 
+\ ---- the heat registers (DECOMPOSITION.md section 7; #189) -----------------------
+\ Captain Bob, 2026-11-12: "Add HEAT-OP".  The node counts every instruction it
+\ retires, by opcode, and the anti-clock ticks once for each; these read them.
+\ ( op -- n )   how many times opcode op has retired; op is taken mod 32
+set HDR-NFA here  ", HEAT-OP@  #, 0  #, HDR-NFA  #, HDR-LINK  set HDR-LINK here  
+: HEAT-OP@   31 and HEAT-OP + b! @b ;
+\ ( -- n )   the anti-clock: one tick per instruction retired
+set HDR-NFA here  ", ANTICLOCK@  #, 0  #, HDR-NFA  #, HDR-LINK  set HDR-LINK here  
+: ANTICLOCK@   ANTICLOCK b! @b ;
+
 \ ---- vocabularies (FORTH-79) ----------------------------------------------------
 \ A vocabulary is two cells: its head -- the xt of its newest entry, or 0 --
 \ and the address of the vocabulary defined before it, or 0.  VOC-LINK holds