* RNSBG test
sysclear
archmode esame
r 1a0=00000000800000000000000000000200 # z/Arch restart PSW
r 1d0=0002000080000000000000000000DEAD # z/Arch pgm new PSW
r 200=E35002800004 # LG R5,=C'12345678'
r 206=E36002880004 # LG R6,=C'ABCDEFGC'
r 20C=EC5680073854 # RNSBGT R5,R6,0,7,56
r 212=47B0026C     # BNM ERROR
r 216=E35002800021 # CLG R5,=C'12345678'
r 21C=4770026C     # BNE ERROR
r 220=EC5600073854 # RNSBG R5,R6,0,7,56
r 226=47B0026C     # BNM ERROR
r 22A=E35002900021 # CLG R5,=C'A2345678'
r 230=4770026C     # BNE ERROR
r 234=EC5638070855 # RISBG R5,R6,56,7,8
r 23A=47B0026C     # BNM ERROR
r 23E=E35002980021 # CLG R5,=C'B234567A'
r 244=4770026C     # BNE ERROR
r 248=EC56308F0055 # RISBGZ R5,R6,48,15,0
r 24E=47B0026C     # BNM ERROR
r 252=E35002A00021 # CLG R5,=AL2(C'AB',0,0,C'GC')
r 258=4770026C     # BNE ERROR
r 25C=B2B20270     # LPSWE WAITPSW     Load enabled wait PSW
r 26C=B2B201D0     # LPSWE PGMNPSW     Load error PSW
r 270=07020001800000000000000000FED0D0 # WAITPSW Enabled wait state PSW
* Test data
r 280=F1F2F3F4F5F6F7F8                 # =C'12345678'
r 288=C1C2C3C4C5C6C7C3                 # =C'ABCDEFGC'
r 290=C1F2F3F4F5F6F7F8                 # =C'A2345678'
r 298=C2F2F3F4F5F6F7C1                 # =C'B234567A'
r 2A0=C1C200000000C7C3                 # =AL2(C'AB',0,0,C'GC')
ostailor null
s+
pgmtrace +7
restart
