DCL DD PROCEDURE-CHECKSUM CHAR(4) INIT(X'3C487D28');
DCL DD PROGRAM-CHECKSUM   CHAR(4) INIT(X'8727D055');
DCL DD MODULE-CHECKSUM    CHAR(4) INIT(X'2EAB5B77');
DCL DD PROGRAM-DOMAIN     CHAR(2) INIT(X'0001');
DCL DD PROGRAM-STATE      CHAR(2) INIT(X'0001');
DCL DD MODULE-STATE       CHAR(2) INIT(X'0001');
DCL DD BINDER-LEVEL       CHAR(1) INIT(X'02');
DCL DD MODULE-LEVEL       CHAR(1) INIT(X'02');

DCL DD COMP(8) CHAR(8);
DCL DD RESULT  CHAR(16);
    DCL DD SELECTOR BIN(2) DEF(RESULT) POS(9);

DCL DD METHODS CHAR(8) INIT("1");
    DCL DD METHOD(8) ZND(1,0) DEF(METHODS) POS(1);

DCL DD PATH(0:3) CHAR(7) INIT
               ("2346578", "8367254", "4735826", "3624587");

DCL DD STEP BIN(2);
DCL DD TO   BIN(2);
DCL DD FROM BIN(2);
DCL DD THIS BIN(2);

DCL DD SECRET(0:3) CHAR(8) INIT (X'0E882228A0093A2B',  /* US UD */
                                 X'1888B20AF012A1EA',  /* SS UD */
                                 X'17C0597C521E2C8D',  /* US SD */
                                 X'21C0E95EA227934C'); /* SS SD */

LOAD-COMPONENTS:
    CPYBLAP     COMP(1), PROCEDURE-CHECKSUM, X'00';
    CPYBLAP     COMP(2), PROGRAM-CHECKSUM  , X'00';
    CPYBLAP     COMP(3), MODULE-CHECKSUM   , X'00';
    CPYBLAP     COMP(4), PROGRAM-DOMAIN    , X'00';
    CPYBLAP     COMP(5), PROGRAM-STATE     , X'00';
    CPYBLAP     COMP(6), MODULE-STATE      , X'00';
    CPYBLAP     COMP(7), BINDER-LEVEL      , X'00';
    CPYBLAP     COMP(8), MODULE-LEVEL      , X'00';

SECRET-SEEDING:
    CPYNV       SELECTOR, 0;  /* US, UD */
    CMPBLA(B)   PROGRAM-STATE,  X'0001'/EQ(=+2);
    CPYNV       SELECTOR, 1;: /* SS, UD */
    CMPBLA(B)   PROGRAM-DOMAIN, X'0001'/EQ(=+2);
    ADDN(S)     SELECTOR, 2;: /* **, SD */
    CPYBLA      RESULT, SECRET(SELECTOR);

    CPYNV       STEP, 1;
SELECT:
    CPYBLA      RESULT(9:8), RESULT(1:8);
    CPYBTLLS    RESULT, RESULT, 17;
    CPYNV       THIS, METHOD(STEP);
    CPYBLA      RESULT(9:8), COMP(THIS);

    CPYNV       TO, 8;
FOLD:
    SUBN        FROM, 17, TO;
    ADDLC(S)    RESULT(TO:1), RESULT(FROM:1);
    SUBN(SB)    TO, 1/POS(FOLD);

    ADDN(S)     STEP, 1;
    CMPNV(B)    STEP, 8/HI(DONE);
    CMPNV(B)    STEP, 2/NEQ(SELECT);

    CPYNV       FROM, 8;
    CPYBLA      RESULT(9:1), X'00';
HASH:
    ADDLC(S)    RESULT(9:1), RESULT(FROM:1);
    SUBN(SB)    FROM, 1/POS(HASH);

    CPYBTRLS    SELECTOR, SELECTOR, 14;
    CPYBLA      METHODS(2:7), PATH(SELECTOR);
    B           SELECT;

DONE:
    CVTHC       MSG-TEXT(1:16), RESULT(1:8);
    CALLI       SHOW-MESSAGE, *, .SHOW-MESSAGE;
    RTX         *;

%INCLUDE SHOWMSG