mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-04-13 15:35:41 +02:00
38 lines
1.4 KiB
Plaintext
38 lines
1.4 KiB
Plaintext
* KMCTR 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 address
|
|
r 208=41200600 # LA R2,FO R2->first operand
|
|
r 20C=41400700 # LA R4,SO R4->second operand
|
|
r 210=41500008 # LA R5,SOL R5->second operand length
|
|
r 214=41600800 # LA R6,TO R6->third operand
|
|
r 218=B92D6024 # KMCTR R2,R6,R4 Cipher message with counter
|
|
r 21C=41200900 # LA R2,FO R2->first operand
|
|
r 220=41400600 # LA R4,SO R4->second operand
|
|
r 224=41500008 # LA R5,SOL R5->second operand length
|
|
r 228=41600800 # LA R6,TO R6->third operand
|
|
r 22C=B92D6024 # KMCTR R2,R6,R4 Cipher message with counter
|
|
r 230=B2B20300 # LPSWE WAITPSW Load enabled wait PSW
|
|
r 300=07020001800000000123456789ABCDEF # WAITPSW Enabled wait state PSW
|
|
*
|
|
r 500=000102030405060708090A0B0C0D0E0F # Parameter block
|
|
r 510=1011121314151617 # Parameter block
|
|
r 600=1011121314151617 # First operand
|
|
r 700=2021222324252627 # Second operand
|
|
r 800=3031323334353637 # Third operand
|
|
*
|
|
r 680=C53B7B40838457C8 # Expected result
|
|
*
|
|
ostailor null
|
|
restart
|
|
pause 1
|
|
* Display parameter block
|
|
r 600.f
|
|
* Expected result
|
|
r 680.f
|