* CGFRL test
sysclear
archmode esame
r 1a0=00000000800000000000000000000200 # z/Arch restart PSW
r 1d0=0002000080000000000000000000DEAD # z/Arch pgm new PSW
r 200=C038FFFFFFFF # IIHF R3,X'FFFFFFFF' Load R3 bits 0-31
r 206=C039A5A5A5A5 # IILF R3,X'A5A5A5A5' Load R3 bits 32-63
r 20C=C63C00000006 # CGFRL R3,*+12     Compare
r 212=A7F40005     # BRC 15,*+10       Branch around compare value
r 218=A5A5A5A5     # COMPR1 DC X'A5A5A5A5'  Comparison data
r 21C=A7840004     # BRC 8,*+8         Branch if equal
r 220=B2B201D0     # LPSWE PGMNPSW     Load error PSW
r 224=B2B20270     # LPSWE WAITPSW     Load enabled wait PSW
r 270=07020001800000000000000000FED0D0 # WAITPSW Enabled wait state PSW
ostailor null
s+
restart
