* CGXTR test
sysclear
archmode esame
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=47000000     # NOP               Spare
r 208=41000009     # LA R0,9           R0=Number of test data
r 20C=41100320     # LA R1,TEST1       R1=>Test data table
r 210=41F00400     # LA R15,RES1       R15=>Result table
r 214=E3401000008F #A LPQ R4,0(,R1)    Load R4,R5=TESTn
r 21A=B3C10044     # LDGR F4,R4        Load FPR4 from R4
r 21E=B3C10065     # LDGR F6,R5        Load FPR6 from R5
r 222=41200002     # LA R2,2           R2=Number of DRM tests
r 226=A7390003     # LGHI R3,3         R3=DRM 3 (round down)
r 22A=B29D0314     #B LFPC FPCREG      Load value into FPC register
r 22E=B2B93000     # SRNMT 0(R3)       Set DFP rounding mode from R3
r 232=B3E90074     # CGXTR R7,0,F4     Load R7 from FPR4,6
r 236=B2220080     # IPM R8            R8=Cond code and pgm mask
r 23A=B38C0090     # EFPC R9           R9=Copy of FPC register
r 23E=E370F0000024 # STG R7,0(,R15)    Store R7 in result table
r 244=9089F008     # STM R8,R9,8(R15)  Store CC and FPC in table
r 248=41F0F010     # LA R15,16(,R15)   R15=>next result table
r 24C=A7390002     # LGHI R3,2         R3=DRM 2 (round up)
r 250=4620022A     # BCT R2,B          Loop for DRM 2
r 254=41101010     # LA R1,16(,R1)     R1=>Next TESTn
r 258=46000214     # BCT R0,A          Loop to end of TEST table
r 25C=B2B20300     # LPSWE WAITPSW     Load enabled wait PSW
r 300=07020001800000000000000000FED0D0 # WAITPSW Enabled wait state PSW
r 310=00040000     # CTLR0             Control register 0 (bit45 AFP control)
r 314=00000000     # FPCREG            Floating point control register
r 320=A207C00000000003A4CFA07A2C7F604B # TEST1 DC LD'-9223372036854775808.5'
r 330=A208000000000000948DF20DA5CFD42E # TEST2 DC LD'-9223372036854775808'
r 340=A207C000000000000000000000000005 # TEST3 DC LD'-0.5'
r 350=A2080000000000000000000000000000 # TEST4 DC LD'-0'
r 360=2207C000000000000000000000000035 # TEST5 DC LD'3.5'
r 370=2208000000000000948DF20DA5CFD70D # TEST6 DC LD'9223372036854775807'
r 380=2207C00000000003A4CFA07A2C7F6075 # TEST7 DC LD'9223372036854775807.5'
r 390=78123456789ABCDE0123456789ABCDEF # TEST8 DC LD'INF'
r 3A0=7EABCDEF01234567890123456789ABCD # TEST9 DC LD'SNAN'
pgmtrace +7
restart
pause 1
* Display test data
r 320.90
* Display results
r 400.120
