* KIMD fc0
stopall
pause 1
sysclear
archmode esame
r 1A0=00000001800000000000000000000200 # z/Arch restart PSW
r 1D0=0002000180000000000000000000DEAD # z/Arch pgm new PSW
r 200=41000000     # LA R0,0           R0->function code 0
r 204=41100500     # LA R1,PB          R1->parameter block
r 208=41200000     # LA R2,SO          R2->second operand address
r 20C=41300000     # LA R3,SOL         R3->second operand length
r 210=B93E0002     # KIMD R0,R2        Compute intermediate message digest
r 214=B2B20300     # LPSWE WAITPSW     Load enabled wait PSW
r 300=07020001800000000123456789ABCDEF # WAITPSW Enabled wait state PSW
*
r 500=000102030405060708090A0B0C0D0E0F # Parameter block
*
r 580=F0000000000000004000000000000000 # Expected result
*
ostailor null
restart
pause 1
* Display parameter block
r 500.10
* Expected result
r 580.10
