mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-04-15 16:35:31 +02:00
34 lines
1.2 KiB
Plaintext
34 lines
1.2 KiB
Plaintext
* KIMD fc1
|
|
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,1 R0->function code 1
|
|
r 204=41100500 # LA R1,PB R1->parameter block
|
|
r 208=41200600 # LA R2,SO R2->second operand address
|
|
r 20C=41300040 # 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=67452301EFCDAB8998BADCFE10325476 # Parameter block
|
|
r 510=C3D2E1F0 # Parameter block
|
|
*
|
|
r 580=B9AC757BBC2979252E22727406872F94 # Expected result
|
|
r 590=CBEA56A1000000000000000000000000 # Expected result
|
|
*
|
|
r 600=000102030405060708090A0B0C0D0E0F # Second operand
|
|
r 610=101112131415161718191A1B1C1D1E1F # Second operand
|
|
r 620=202122232425262728292A2B2C2D2E2F # Second operand
|
|
r 630=303132333435363738393A3B3C3D3E3F # Second operand
|
|
*
|
|
ostailor null
|
|
restart
|
|
pause 1
|
|
* Display parameter block
|
|
r 500.14
|
|
* Expected result
|
|
r 580.14
|