* KMCTR 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=41100500     # 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=41600800     # LA R6,TO          R6->third address
r 224=B92D6024     # KMCTR R2,R6,R4    Cipher message with counter
r 228=41200900     # LA R2,FO          R2->first operand
r 22C=41400600     # LA R4,SO          R4->second operand
r 230=41500010     # LA R5,SOL         R5->second operand length
r 234=41600800     # LA R6,TO          R6->third operand
r 238=B92D6024     # KMCTR R2,R6,R4    Cipher message with counter
r 23C=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 600=101112131415161718191A1B1C1D1E1F # CV
r 700=202122232425262728292A2B2C2D2E2F # First operand
r 800=303132333435363738393A3B3C3D3E3F # Expected result
*
r 680=C2552CA9DEF1C2F675244C301403E4A6 # Expected result
*
ostailor null
restart
pause 1
* Display parameter blocks
r 600.8
r 900.8
* Expected results
r 680.8
r 700.8
