* KMO fc3
stopall
pause 1
sysclear
archmode esame
r 1A0=00000001800000000000000000000200 # z/Arch restart PSW
r 1D0=0002000180000000000000000000DEAD # z/Arch pgm new PSW
r 200=58000400     # L R0,=X'03'       R0->function code 3 encrypt
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=B92B0024     # KMO R2,R4         Cipher message with output feedback
r 218=58000408     # L R0,=X'83'       R0->function code 3 decrypt
r 21C=41100580     # LA R1,PB          R1->parameter block address
r 220=41200800     # LA R2,SO          R2->second operand from encrypt operation
r 224=41400600     # LA R4,FO          R4->first operand from encrypt operation
r 228=41500008     # LA R5,FOL         R5->first operand length
r 22C=B92B0024     # KMO R2,R4         Cipher message with output feedback
r 230=B2B20300     # LPSWE WAITPSW     Load enabled wait PSW
r 230=D20706000680 # CLC FO(8),FE      First operand = expected result?
r 236=477002FC     # BNE DIE           Error if not equal
r 23A=D20707000800 # CLC SO(8),SE      Second operand = expected result?
r 240=477002FC     # BNE DIE           Error if not equal
r 244=B2B20300     # LPSWE WAITPSW     Load enabled wait PSW
r 2FC=B2B20310     # LPSWE DISWAIT     Load disabled wait PSW
r 300=07020001800000000000000000AAAAAA # WAITPSW Enabled wait state PSW
r 310=00020001800000000000000000BADBAD # DISWAIT Disabled wait state PSW
*
r 400=04000003
r 408=04000083
r 500=000102030405060708090A0B0C0D0E0F # Parameter block
r 510=101112131415161718191A1B1C1D1E1F # Parameter block
r 580=000102030405060708090A0B0C0D0E0F # Parameter block
r 590=101112131415161718191A1B1C1D1E1F # Parameter block
*
r 600=0001020304050607                 # FO First operand
r 680=C8A06C9E3CD315ED                 # FE Expected result
*
r 700=0001020304050607                 # SO Second operand
r 800=FFFFFFFFFFFFFFFF                 # SE Expected result
*
ostailor null
restart
pause 1
* Actual results
r 600.8
r 700.8
* Expected results
r 680.8
r 800.8
