mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-04-16 00:45:27 +02:00
42 lines
2.0 KiB
Plaintext
42 lines
2.0 KiB
Plaintext
* CGDTR 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=41000006 # LA R0,6 R0=Number of test data
|
|
r 208=41100380 # LA R1,TEST1 R1=>Test data table
|
|
r 20C=41F00400 # LA R15,RES1 R15=>Result table
|
|
r 210=68601000 #A LD F6,0(,R1) Load FPR6=TESTn
|
|
r 214=41200002 # LA R2,2 R2=Number of DRM tests
|
|
r 218=A7390003 # LGHI R3,3 R3=DRM 3 (round down)
|
|
r 21C=B29D0314 #B LFPC FPCREG Load value into FPC register
|
|
r 220=B2B93000 # SRNMT 0(R3) Set DFP rounding mode from R3
|
|
r 224=B3E10076 # CGDTR R7,0,F6 Load R7 from FPR6
|
|
r 228=B2220080 # IPM R8 R8=Cond code and pgm mask
|
|
r 22C=B38C0090 # EFPC R9 R9=Copy of FPC register
|
|
r 230=E370F0000024 # STG R7,0(,R15) Store R7 in result table
|
|
r 236=9089F008 # STM R8,R9,8(R15) Store CC and FPC in table
|
|
r 23A=41F0F010 # LA R15,16(,R15) R15=>next result table
|
|
r 23E=A7390002 # LGHI R3,2 R3=DRM 2 (round up)
|
|
r 242=4620021C # BCT R2,B Loop for DRM 2
|
|
r 246=41101008 # LA R1,8(,R1) R1=>Next TESTn
|
|
r 24A=46000210 # BCT R0,A Loop to end of TEST table
|
|
r 24E=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 380=2238000000000000 # TEST1 DC DD'0' Zero positive
|
|
r 388=2238000000000078 # TEST2 DC DD'78' Normal positive
|
|
r 390=2BCDEF0123456789 # TEST3 DC DD'2.989004434259709E116' Large positive
|
|
r 398=7CABCDEF01234567 # TEST4 DC DD'QNAN' QNaN positive
|
|
r 3A0=FE0000000000ABCD # TEST5 DC DD'-SNAN' SNaN negative
|
|
r 3A8=78123456789ABCDE # TEST6 DC DD'INF' Infinity positive
|
|
pgmtrace +7
|
|
restart
|
|
pause 1
|
|
* Display test data
|
|
r 380.30
|
|
* Display results
|
|
r 400.C0
|