Robert Allan JamesandClaude Sonnet 5
5c1b31669e
These are alternate boot personality capsules, not files doe.4th dispatches from -- confirmed by reading doe.4th itself (it generates its own synthetic workload internally, DOE-WORK) and mkcapsule.c (only the exact filename "init.4th" is special-cased as the active MAMA_INIT capsule). "workload-N.4th" names them for what they are without colliding with that reserved name. Renamed the 10 files (git mv, preserving history) and their own self-referential header comments (also fixed a pre-existing typo, "init-4.th" -> "workload-4.4th"), updated capsules/README.md, capsules/MANIFEST.md (21 references), .claude/CLAUDE.md, and a tools/mkcapsule.c comment. Also fixed experiments/bare_metal/README.md's "Adding a Custom Workload Capsule" section, discovered stale while doing this rename: it documented a WL-HI/WL-LO dispatch table and a wl_id CSV column that don't exist anywhere in the current capsules/ tree or doe.4th's own CSV header -- corrected to describe what's actually there (no pluggable workload dispatch; a custom workload is run by substituting it in as the boot's own init.4th). Verified: mkcapsule --lint clean (35 files, 0 violations), all 3 architectures build with zero new warnings, amd64 boots to zuse)ok> with an unchanged dict_hash/capsule_hash from every prior boot this session (0xc8f4b09e36f4fc4a / 0x1ef4939ed32ec1e6) and zero faults. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01EXieurDfDSsDFdnSyusuWo
62 lines
1.0 KiB
Forth
62 lines
1.0 KiB
Forth
|
|
Block 4406
|
|
|
|
( SQUARE WAVE WORKLOAD - Sharp burst/idle transitions )
|
|
( Randomized amplitude and frequency )
|
|
|
|
: COMPUTE ( n -- )
|
|
0 SWAP 0 DO I 7 * + LOOP DROP ;
|
|
|
|
: BURST ( intensity -- )
|
|
100 * COMPUTE ;
|
|
|
|
: SQUARE-CYCLE ( base-intensity base-wait -- )
|
|
SWAP
|
|
50 150 RANDOM 100 */ BURST
|
|
SWAP
|
|
50 150 RANDOM 100 */ WAIT ;
|
|
|
|
Block 4415
|
|
|
|
( Main square wave loop with random amplitude/frequency )
|
|
|
|
42 SEED
|
|
|
|
: SQUARE-WAVE ( cycles -- )
|
|
0 DO
|
|
80 120 RANDOM ( randomize base intensity 80-120% )
|
|
80 120 RANDOM ( randomize base wait 80-120% )
|
|
SQUARE-CYCLE
|
|
LOOP ;
|
|
|
|
20 SQUARE-WAVE
|
|
|
|
Block 4425
|
|
( Second burst pattern - random selection via CASE )
|
|
|
|
12345 SEED
|
|
|
|
: SQUARE-BURST ( n -- )
|
|
0 DO
|
|
1 3 RANDOM
|
|
CASE
|
|
1 OF 500 BURST 100 WAIT ENDOF
|
|
2 OF 1000 BURST 50 WAIT ENDOF
|
|
3 OF 1500 BURST 25 WAIT ENDOF
|
|
ENDCASE
|
|
LOOP ;
|
|
|
|
1500 SQUARE-BURST
|
|
|
|
Block 4435
|
|
|
|
( Final cooldown with random micro-bursts )
|
|
|
|
9999 SEED
|
|
|
|
: MICRO-BURST ( -- )
|
|
10 30 RANDOM BURST
|
|
50 150 RANDOM WAIT ;
|
|
|
|
100000 0 DO MICRO-BURST LOOP
|