* KMAC fc9
stopall
pause 1
sysclear
archmode esame
r 1A0=00000001800000000000000000000200 # z/Arch restart PSW
r 1D0=0002000180000000000000000000DEAD # z/Arch pgm new PSW
r 200=41000001     # LA R0,X'01'       R0->function code 1 encrypt
r 204=41100508     # LA R1,PB          R1->parameter block address
r 208=B9280000     # PCKMO             Encrypt DEA Key
r 20C=41000009     # LA R0,X'09'       R0->function code 9 encrypt
r 210=41100500     # LA R1,PB          R1->parameter block address
r 214=41400700     # LA R4,SO          R4->second operand
r 218=41500008     # LA R5,SOL         R5->second operand length
r 21C=B91E0024     # KMAC R2,R4        Compute message authentication code
r 220=B2B20300     # LPSWE WAITPSW     Load enabled wait PSW
r 300=07020001800000000123456789ABCDEF # WAITPSW Enabled wait state PSW
*
r 500=000102030405060708090A0B0C0D0E0F # Parameter block
r 510=101112131415161718191A1B1C1D1E1F # Parameter block
r 520=2021222324252627                 # Parameter block
*
r 580=D7423E1B84911C2E                 # Expected result
*
r 700=0001020304050607                 # Second operand
*
ostailor null
restart
pause 1
* Display parameter blocks
r 500.8
* Expected results
r 580.8
