* KIMD fc3
stopall
pause 1
sysclear
archmode esame
r 1A0=00000001800000000000000000000200 # z/Arch restart PSW
r 1D0=0002000180000000000000000000DEAD # z/Arch pgm new PSW
r 200=41000003     # LA R0,3           R0->function code 3
r 204=41100500     # LA R1,PB          R1->parameter block
r 208=41200600     # LA R2,SO          R2->second operand address
r 20C=41300080     # 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=6A09E667F3BCC908BB67AE8584CAA73B # Parameter block
r 510=3C6EF372FE94F82BA54FF53A5F1D36F1 # Parameter block
r 520=510E527FADE682D19B05688C2B3E6C1F # Parameter block
r 530=1F83D9ABFB41BD6B5BE0CD19137E2179 # Parameter block
*
r 580=8E03953CD57CD6879321270AFA70C582 # Expected result
r 590=7BB5B69BE59A8F0130147E94F2AEDF7B # Expected result
r 5A0=DC01C56C92343CA8BD837BB7F0208F5A # Expected result
r 5B0=23E155694516B6F147099D491A30B151 # Expected result
*
r 600=000102030405060708090A0B0C0D0E0F # Second operand
r 610=101112131415161718191A1B1C1D1E1F # Second operand
r 620=202122232425262728292A2B2C2D2E2F # Second operand
r 630=303132333435363738393A3B3C3D3E3F # Second operand
r 640=404142434445464748494A4B4C4D4E4F # Second operand
r 650=505152535455565758595A5B5C5D5E5F # Second operand
r 660=606162636465666768696A6B6C6D6E6F # Second oparand
r 670=707172737475767778797A7B7C7D7E7F # Second operand
*
ostailor null
restart
pause 1
* Display parameter block
r 500.40
* Expected result
r 580.40
