mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-04-13 15:35:41 +02:00
53 lines
2.0 KiB
Plaintext
53 lines
2.0 KiB
Plaintext
* KMC fc28
|
|
stopall
|
|
pause 1
|
|
sysclear
|
|
archmode esame
|
|
r 1A0=00000001800000000000000000000200 # z/Arch restart PSW
|
|
r 1D0=0002000180000000000000000000DEAD # z/Arch pgm new PSW
|
|
r 200=41000014 # LA R0,X'14' R0->function code 20
|
|
r 204=41100510 # LA R1,PB R1->parameter block address
|
|
r 208=B9280000 # PCKMO Encrypt DEA Key
|
|
r 20C=4100001C # LA R0,X'1C' R0->function code 28 encrypt
|
|
r 210=41100500 # LA R1,PB R1->parameter block address
|
|
r 214=41200600 # LA R2,FO R2->first operand
|
|
r 218=41400700 # LA R4,SO R4->second operand
|
|
r 21C=41500010 # LA R5,SOL R5->second operand length
|
|
r 220=B92F0024 # KMC R2,R4 Cipher message
|
|
r 224=41800590 # LA R8,CV Load address CV
|
|
r 228=D20F10008000 # MVC ? Copy CV parameter value
|
|
r 22E=4100009C # LA R0,X'9C' R0->function code 28 decrypt
|
|
r 232=41100500 # LA R1,PB R1->parameter block address
|
|
r 236=41200800 # LA R2,SO R2->second operand from encrypt operation
|
|
r 23A=41400600 # LA R4,FO R4->first operand from encrypt operation
|
|
r 23E=41500010 # LA R5,FOL R5->first operand length
|
|
r 242=B92F0024 # KMC R2,R4 Cipher message
|
|
r 246=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=202122232425262728292A2B2C2D2E2F # Parameter block
|
|
r 530=303132333435363738393A3B3C3D3E3F # Parameter block
|
|
r 540=404142434445464748494A4B4C4D4E4F # Parameter block
|
|
*
|
|
r 590=000102030405060708090A0B0C0D0E0F # CV
|
|
*
|
|
r 600=000102030405060708090A0B0C0D0E0F # First operand
|
|
*
|
|
r 680=5390628A3ACF964F6E02053976A8035D # Expected result
|
|
*
|
|
r 700=000102030405060708090A0B0C0D0E0F # Second operand
|
|
*
|
|
r 800=FFFFFFFFFFFFFFFF # Expected result
|
|
*
|
|
ostailor null
|
|
restart
|
|
pause 1
|
|
* Display parameter blocks
|
|
r 600.10
|
|
r 800.10
|
|
* Expected results
|
|
r 680.10
|
|
r 700.10
|