Skip to content

Instantly share code, notes, and snippets.

@shelajev

shelajev/keccak-wrapper.cob

Created October 15, 2020 14:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save shelajev/ab1ce437b3f7f050b1b9d9b9dcdf2955 to your computer and use it in GitHub Desktop.
Save shelajev/ab1ce437b3f7f050b1b9d9b9dcdf2955 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
keccak-wrapper.cob
IDENTIFICATION DIVISION.
PROGRAM-ID. KECCAK-Wrapper.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-KECCAK-RATE BINARY-LONG UNSIGNED.
01 WS-KECCAK-CAPACITY BINARY-LONG UNSIGNED.
01 WS-KECCAK-DELIMITED-SUFFIX BINARY-CHAR UNSIGNED.
01 WS-KECCAK-OUTPUT-BYTE-LEN BINARY-DOUBLE UNSIGNED.
LINKAGE SECTION.
01 LNK-KECCAK-RATE-POLYGLOT POINTER.
01 LNK-KECCAK-CAPACITY-POLYGLOT POINTER.
01 LNK-KECCAK-INPUT PIC X.
01 LNK-KECCAK-INPUT-BYTE-LEN BINARY-DOUBLE UNSIGNED.
01 LNK-KECCAK-DELIMITED-SUFFIX-POLYGLOT POINTER.
01 LNK-KECCAK-OUTPUT PIC X.
01 LNK-KECCAK-OUTPUT-BYTE-LEN-POLYGLOT POINTER.
PROCEDURE DIVISION USING LNK-KECCAK-RATE-POLYGLOT
LNK-KECCAK-CAPACITY-POLYGLOT
LNK-KECCAK-INPUT
LNK-KECCAK-INPUT-BYTE-LEN
LNK-KECCAK-DELIMITED-SUFFIX-POLYGLOT
LNK-KECCAK-OUTPUT
LNK-KECCAK-OUTPUT-BYTE-LEN-POLYGLOT.
CALL "polyglot_as_i32" USING
LNK-KECCAK-RATE-POLYGLOT
returning WS-KECCAK-RATE
END-CALL
CALL "polyglot_as_i32" USING
LNK-KECCAK-CAPACITY-POLYGLOT
returning WS-KECCAK-CAPACITY
END-CALL
CALL "polyglot_as_i8" USING
LNK-KECCAK-DELIMITED-SUFFIX-POLYGLOT
returning WS-KECCAK-DELIMITED-SUFFIX
END-CALL
CALL "polyglot_as_i64" USING
LNK-KECCAK-OUTPUT-BYTE-LEN-POLYGLOT
returning WS-KECCAK-OUTPUT-BYTE-LEN
END-CALL
CALL "KECCAK" USING
WS-KECCAK-RATE
WS-KECCAK-CAPACITY
LNK-KECCAK-INPUT
LNK-KECCAK-INPUT-BYTE-LEN
WS-KECCAK-DELIMITED-SUFFIX
LNK-KECCAK-OUTPUT
WS-KECCAK-OUTPUT-BYTE-LEN
END-CALL
EXIT.
END PROGRAM KECCAK-Wrapper.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment