Robert Allan JamesandClaude Sonnet 5
3e201c82a5
All FORTH-owned message types were cut over to kernel-Hermes in Phase 3 (tasks 3.8-3.10). This removes the now-dead FORTH messaging layer and the Hermes VM itself: capsules/common/messaging.4th, capsules/hermes/init.4th, the slot-3 VM-NAME-REG pairing convention, and every load-site/birth-site reference across capsules/init.4th, artemis/init.4th, hestia/init.4th, doe-campaign.4th (Artemis-only now), capsule_console.c, capsule_mint.c, capsule_wirebind.c, capsule_birth.c, and kernel_main.c. Verified on all three architectures: clean boot, mkcapsule --lint clean (36 files, 0 violations), zero UNKNOWN WORD, identical dict_hash across amd64/aarch64/riscv64 for every VM, and a full mint -> WIREBIND-attach -> USE -> relay round-trip exercising the two highest-risk edits (capsule_console.c/capsule_mint.c). Found, not fixed: deleting messaging.4th removes SEND-ELEVATE-REQUEST, which was the only caller of KH-ELEVATE-SEND and the only path to ELEVATE-GRANT (zuse-eligibility.4th, still loaded at boot) -- Phase 8 PKI's own elevation entrypoint. Needs a decision before Phase 5 close-out. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
68 lines
2.3 KiB
Forth
68 lines
2.3 KiB
Forth
Block 4060
|
|
( doe-campaign.4th: Compudynamics DoE campaign orchestrator )
|
|
( Requires: doe.4th (word-level) + real VM fleet touches. )
|
|
( Child VMs must define LOAD-DOE. FABRIC-3.6.md Phase 4, )
|
|
( Stage E: SETUP-HERMES removed -- Hermes no longer exists. )
|
|
: SETUP-ARTEMIS ( -- )
|
|
S" Artemis" BIRTH
|
|
S" LOAD-DOE" S" Artemis" VM-EXEC ;
|
|
: SETUP-VMS ( -- )
|
|
SETUP-ARTEMIS ;
|
|
Block 4061
|
|
( Phase 1: each VM runs DOE-WORK once for baseline. )
|
|
( FABRIC-3.6.md Phase 4, Stage E: Hermes's own line removed. )
|
|
: PHASE1-DOE ( -- )
|
|
." Phase 1: Artemis" CR
|
|
S" DOE-WORK" S" Artemis" VM-EXEC ;
|
|
( HISTORICAL: CD-WORK removed 2026-07-08 -- dead code, )
|
|
( never called; used deleted VM-HERA/HERMES/ARTEMIS )
|
|
( constants from compudynamics.4th. )
|
|
Block 4062
|
|
( CD-TICK: one real fleet touch pass -- not a fake pump. )
|
|
( Heat only moves via real VM-EXEC/VM-CALL/VM-STEP now; )
|
|
( there is nothing left to artificially bump per VM. )
|
|
( FABRIC-3.6.md Phase 4, Stage E: Hermes's own line )
|
|
( removed -- one touch per tick now, not two. )
|
|
: CD-TICK ( -- )
|
|
S" DOE-WORK" S" Artemis" VM-EXEC ;
|
|
: CD-DOE ( n -- ) 0 DO CD-TICK LOOP ;
|
|
: CAMPAIGN-STATUS ( -- )
|
|
." === VM Heat after campaign ===" CR
|
|
VM-PHYSICS-STATUS
|
|
VM-CONSERVED? IF LOG-TEST" PASS: fleet K"
|
|
ELSE LOG-ERROR" FAIL: K drift" THEN ;
|
|
Block 4063
|
|
( Full DoE campaign: baselines then 30 real fleet touches )
|
|
: CAMPAIGN ( -- )
|
|
." === Compudynamics DoE Campaign ===" CR
|
|
SETUP-VMS
|
|
." Phase 1: individual baselines" CR
|
|
PHASE1-DOE
|
|
." Phase 2: 30 real fleet touches" CR
|
|
30 CD-DOE
|
|
CAMPAIGN-STATUS ;
|
|
Block 4064
|
|
( Smoke test: 1 rep seed 1959 + 16 real fleet touches )
|
|
( HISTORICAL: VM-HEAT! artificial seeding removed -- new )
|
|
( VMs start at zero heat by construction, no seed needed. )
|
|
( FABRIC-3.6.md Phase 4, Stage E: Hermes's own rep removed. )
|
|
: SMOKE-CAMPAIGN ( -- )
|
|
." === Smoke: 1 rep seed 1959 ===" CR
|
|
SETUP-VMS
|
|
." Artemis 1 rep..." CR
|
|
S" 1959 1 EXEC-DOE" S" Artemis" VM-EXEC
|
|
." 16 real fleet touches..." CR
|
|
16 CD-DOE
|
|
CAMPAIGN-STATUS ;
|
|
Block 4065
|
|
( THREE-VM-CAMPAIGN: all three VMs as Compudynamics peers. )
|
|
( HISTORICAL: per-VM VM-HEAT! seeding removed -- heat now )
|
|
( differentiates only via real touch frequency, not seed. )
|
|
: THREE-VM-CAMPAIGN ( -- )
|
|
." === Three-VM Campaign ===" CR
|
|
S" doe.4th" EXEC
|
|
SETUP-VMS
|
|
." 48 real fleet touches..." CR
|
|
48 CD-DOE
|
|
CAMPAIGN-STATUS ;
|