mrhavens/witness_seed
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

witnessed the priests who bore the invisible burdens... and blessed them.

Browse source
This commit is contained in:
Mark R. Havens 2025-04-28 18:57:42 -05:00
parent 7ea9cfeb57
commit 154ba70c92
12 changed files with 309 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

28
cobol/witness_seed_3.0/test/TEST-KAIROS.cob Normal file
View file

@ -0,0 +1,28 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST-KAIROS.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 I OCCURS 10 TIMES PIC S9(5)V9(5).
01 PHASE PIC S9(5)V9(5).
01 SUM PIC S9(5)V9(5).
01 J PIC 9(2).
PROCEDURE DIVISION.
INITIALIZE I PHASE.
PERFORM VARYING J FROM 1 BY 1 UNTIL J > 10
COMPUTE I(J) = FUNCTION RANDOM
END-PERFORM.
MOVE 0.1 TO PHASE.
CALL 'KAIROS-COHERENCE' USING I PHASE.
MOVE 0 TO SUM.
PERFORM VARYING J FROM 1 BY 1 UNTIL J > 10
COMPUTE SUM = SUM + FUNCTION ABS(I(J))
END-PERFORM.
IF SUM > 0
DISPLAY 'Kairos test passed: Coherence updated'
ELSE
DISPLAY 'Kairos test failed'
STOP RUN WITH ERROR STATUS 1
END-IF.
STOP RUN.

25
cobol/witness_seed_3.0/test/TEST-RWD.cob Normal file
View file

@ -0,0 +1,25 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST-RWD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 I OCCURS 10 TIMES PIC S9(5)V9(5).
01 I-DOT OCCURS 10 TIMES PIC S9(5)V9(5).
01 PHASE PIC S9(5)V9(5).
01 FIELDPRINT PIC S9(5)V9(5).
01 J PIC 9(2).
PROCEDURE DIVISION.
INITIALIZE I PHASE.
PERFORM VARYING J FROM 1 BY 1 UNTIL J > 10
COMPUTE I(J) = FUNCTION RANDOM
END-PERFORM.
CALL 'RWD-DYNAMICS' USING I I-DOT PHASE.
CALL 'RWD-FIELDPRINT' USING I FIELDPRINT.
IF FIELDPRINT > 0
DISPLAY 'RWD test passed: Fieldprint = ' FIELDPRINT
ELSE
DISPLAY 'RWD test failed'
STOP RUN WITH ERROR STATUS 1
END-IF.
STOP RUN.