* LFPC test
sysclear
archmode esa/390
r 000=0008000080000200                 # ESA/390 restart PSW
r 068=000A00008000DEAD                 # ESA/390 pgm new PSW
r 1a0=00000001800000000000000000000200 # z/Arch restart PSW
r 1d0=0002000180000000000000000000DEAD # z/Arch pgm new PSW
r 200=B7000310     # LCTL R0,R0,CTLR0  Set CR0 bit 45
r 204=B29D0314     # LFPC FPCREG       Load value into FPC register
r 208=82000300     # LPSW WAITPSW      Load enabled wait PSW
r 300=070A000080FED0D0                 # WAITPSW Enabled wait state PSW
r 310=00040000     # CTLR0             Control register 0 (bit45 AFP control)
r 314=F8F8FF73     # FPCREG            Floating point control register
s+
restart
