*
*-------------------------------------------------------------------------------
*                         Simple CSST test
*-------------------------------------------------------------------------------
*
sysclear
*
archlvl z/Arch
*
#-------------------------------------------------------------------------------
*
r 1A0=0000000000000000  # z/Arch restart PSW
r 1A8=0000000000000200  #         "
*
r 1D0=0002000000000000  # z/Arch pgm new PSW
r 1D8=000000000000DEAD  #         "
*
#-------------------------------------------------------------------------------
*
r 200=58000310          #  L      R0,CODE4          R0: SC=03 (DW), FC=00 (FW)
r 204=E31003400004      #  LG     R1,PLPTR          R1: Parameter list pointer
r 20A=E34003480004      #  LG     R4,CMPVA          R4: Comparison value
r 210=C84203700380      #  CSST   AREA1,AREA2,R4    Compare and Swap and Store
*
r 216=58000314          #  L      R0,CODE8          R0: SC=01 (HW), FC=01 (DW)
r 21A=E31003400004      #  LG     R1,PLPTR          R1: Parameter list pointer
r 220=E34003480004      #  LG     R4,CMPVA          R4: Comparison value
r 226=C84203700380      #  CSST   AREA1,AREA2,R4    Compare and Swap and Store
*
r 22C=58000318          #  L      R0,CODE16         R0: SC=04 (QW), FC=02 (QW)
r 230=E31003400004      #  LG     R1,PLPTR          R1: Parameter list pointer
r 236=E34003480004      #  LG     R4,CMPVA          R4: Comparison value
r 23C=C84203700380      #  CSST   AREA1,AREA2,R4    Compare and Swap and Store
*
r 242=B2B20300          #  LPSWE  GOODPSW           Load Success PSW
*
#-------------------------------------------------------------------------------
*
r 300=0002000000000000  # GOODPSW Successful Completion Disabled Wait PSW
r 308=0000000000000000  #    "
*
r 310=00000300          # CODE4  SC=03 (DW), FC=00 (FW)
r 314=00000101          # CODE8  SC=01 (HW), FC=01 (DW)
r 318=00000402          # CODE16 SC=04 (QW), FC=02 (QW)
*
r 340=A5A5A5A5A5000350  # PLPTR  DC  A(PLIST)
r 348=FFFFFFFFA5A6A7A8  # CMPVA  Compare value
*
r 350=1234567890ABCDEF  # PLIST  Replacement value
r 358=0000000000000000  #   "    Replacement value
r 360=9FEDCBA087654321  #   "    Store value
r 368=0000000000000000  #   "    Store value
*
r 370=A5A6A7A812345678  # AREA1  First  operand
r 378=A5A6A7A812345678  #   "
r 380=FFFFFFFFFFFFFFFF  # AREA2  Second operand
r 388=FFFFFFFFFFFFFFFF  #   "
*
#-------------------------------------------------------------------------------
*
*
u 200-242
*
*
r 370.20
*
*
traceopt regsfirst
*
t+
*
restart
*
pause 0.1
*
*
r 370.20
*
*
#-------------------------------------------------------------------------------
