- DOE sets up, JOINs EV-DONE and starts trial 1, then returns. Each trial
births and sends WL-RUN only; completion arrives as the OS's EV-DONE.
- ON-DONE counts this campaign's own workers while active; the last one
ends the trial (KILL all, marker, persist) and starts the next, or
finishes (HB-OFF, UNJOIN, MU-CAMPAIGN: complete). MU-WAIT-ALL is gone;
the start/end cycle goes through MU-END-XT.
- WL-DONE-ARGS removed from all ten workload capsules; lint passes.
Smoke campaign (amd64, 1 rep, rows off per Captain Bob): DOE returns, the
prompt answers mid-trial, all 6 trials chain on events, fail=0 each,
28/28 born/killed/departed, MU-CAMPAIGN: complete in ~61 min. Standard
sequence passes on all three ISAs (with the xHCI fix it exposed, df150e86).
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
35 lines
546 B
Forth
35 lines
546 B
Forth
Block 2130
|
|
( workload-4.4th - pi series )
|
|
VARIABLE PI-ACC
|
|
VARIABLE PI-SGN
|
|
1000000 CONSTANT PI-SCALE
|
|
: RESET-PI 0 PI-ACC ! 1 PI-SGN ! ;
|
|
: FLIP-SIGN
|
|
PI-SGN @ 0< IF 1 PI-SGN ! ELSE -1 PI-SGN ! THEN
|
|
;
|
|
Block 2131
|
|
: PI-STEP ( n -- )
|
|
2 * 1 +
|
|
PI-SCALE SWAP / PI-SGN @ * PI-ACC @ + PI-ACC !
|
|
FLIP-SIGN
|
|
;
|
|
: PI-CHUNK
|
|
100 0 DO
|
|
I PI-STEP
|
|
LOOP
|
|
;
|
|
Block 2132
|
|
: DO-PI
|
|
RESET-PI
|
|
5 0 DO
|
|
PI-CHUNK
|
|
LOOP
|
|
;
|
|
: RUN-PI
|
|
8 0 DO
|
|
DO-PI
|
|
LOOP
|
|
;
|
|
( FABRIC-3.8 3.9: defs only; the DoE SENDs WL-RUN )
|
|
: WL-RUN RUN-PI ." 4:dopi-ok" CR RUN-PI RUN-PI ;
|