1*7ef44d65SYaroslav Kolomiiets #include "lib9.h" 2*7ef44d65SYaroslav Kolomiiets 3*7ef44d65SYaroslav Kolomiiets ulong getfcr(void)4*7ef44d65SYaroslav Kolomiietsgetfcr(void) 5*7ef44d65SYaroslav Kolomiiets { 6*7ef44d65SYaroslav Kolomiiets double fpscr; 7*7ef44d65SYaroslav Kolomiiets 8*7ef44d65SYaroslav Kolomiiets fpscr = __readflm(); 9*7ef44d65SYaroslav Kolomiiets return ((ulong*)&fpscr)[1]; 10*7ef44d65SYaroslav Kolomiiets } 11*7ef44d65SYaroslav Kolomiiets 12*7ef44d65SYaroslav Kolomiiets ulong getfsr(void)13*7ef44d65SYaroslav Kolomiietsgetfsr(void) 14*7ef44d65SYaroslav Kolomiiets { 15*7ef44d65SYaroslav Kolomiiets double fpscr; 16*7ef44d65SYaroslav Kolomiiets 17*7ef44d65SYaroslav Kolomiiets fpscr = __readflm(); 18*7ef44d65SYaroslav Kolomiiets return ((ulong*)&fpscr)[1]; 19*7ef44d65SYaroslav Kolomiiets } 20*7ef44d65SYaroslav Kolomiiets 21*7ef44d65SYaroslav Kolomiiets void setfsr(ulong fsr)22*7ef44d65SYaroslav Kolomiietssetfsr(ulong fsr) 23*7ef44d65SYaroslav Kolomiiets { 24*7ef44d65SYaroslav Kolomiiets double fpscr; 25*7ef44d65SYaroslav Kolomiiets 26*7ef44d65SYaroslav Kolomiiets fpscr = __readflm(); 27*7ef44d65SYaroslav Kolomiiets (((ulong*)&fpscr)[1]) = fsr; 28*7ef44d65SYaroslav Kolomiiets __setflm(fpscr); 29*7ef44d65SYaroslav Kolomiiets } 30*7ef44d65SYaroslav Kolomiiets 31*7ef44d65SYaroslav Kolomiiets void setfcr(ulong fcr)32*7ef44d65SYaroslav Kolomiietssetfcr(ulong fcr) 33*7ef44d65SYaroslav Kolomiiets { 34*7ef44d65SYaroslav Kolomiiets double fpscr; 35*7ef44d65SYaroslav Kolomiiets 36*7ef44d65SYaroslav Kolomiiets fpscr = __readflm(); 37*7ef44d65SYaroslav Kolomiiets (((ulong*)&fpscr)[1]) = fcr; 38*7ef44d65SYaroslav Kolomiiets __setflm(fpscr); 39*7ef44d65SYaroslav Kolomiiets } 40