1* $NetBSD: MONADIC.CI5,v 1.2 1994/10/26 07:48:39 cgd Exp $ 2 3* MOTOROLA MICROPROCESSOR & MEMORY TECHNOLOGY GROUP 4* M68000 Hi-Performance Microprocessor Division 5* M68040 Software Package 6* 7* M68040 Software Package Copyright (c) 1993, 1994 Motorola Inc. 8* All rights reserved. 9* 10* THE SOFTWARE is provided on an "AS IS" basis and without warranty. 11* To the maximum extent permitted by applicable law, 12* MOTOROLA DISCLAIMS ALL WARRANTIES WHETHER EXPRESS OR IMPLIED, 13* INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A 14* PARTICULAR PURPOSE and any warranty against infringement with 15* regard to the SOFTWARE (INCLUDING ANY MODIFIED VERSIONS THEREOF) 16* and any accompanying written materials. 17* 18* To the maximum extent permitted by applicable law, 19* IN NO EVENT SHALL MOTOROLA BE LIABLE FOR ANY DAMAGES WHATSOEVER 20* (INCLUDING WITHOUT LIMITATION, DAMAGES FOR LOSS OF BUSINESS 21* PROFITS, BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION, OR 22* OTHER PECUNIARY LOSS) ARISING OF THE USE OR INABILITY TO USE THE 23* SOFTWARE. Motorola assumes no responsibility for the maintenance 24* and support of the SOFTWARE. 25* 26* You are hereby granted a copyright license to use, modify, and 27* distribute the SOFTWARE so long as this entire notice is retained 28* without alteration in any modified and/or redistributed versions, 29* and that such modified versions are clearly identified as such. 30* No licenses are granted by implication, estoppel or otherwise 31* under any patents or trademarks of Motorola, Inc. 32 33* 34* MONADIC.CI5 1.3 4/30/91 35* 36* MONADIC.CI5 --- MONADIC template for CI5 compiler 37* 38 39 xref tag 40 xref _OPr_ 41 xref _OPz_ 42 xref _OPi_ 43 xref _OPn_ 44 xref _OPm_ 45 46 47 xdef _OPd_ 48_OPd_: 49 link a6,#-LOCAL_SIZE 50 fmovem.x fp2-fp3,USER_FP2(a6) 51 fmove.l fpsr,USER_FPSR(a6) 52 fmove.l fpcr,d1 ; user's rounding mode/precision 53 fmove.l #0,fpcr ; force rounding mode/prec to extended,rn 54* 55* copy, convert and tag input argument 56* 57 fmove.d 8(a6),fp0 58 fmove.x fp0,ETEMP(a6) 59 lea ETEMP(a6),a0 60 bsr tag 61 move.b d0,STAG(a6) 62 tst.b d0 63 bne.b _TMP_2 64 bsr _OPr_ ; normalized (regular) number 65 bra.b _TMP_6 66_TMP_2: 67 cmp.b #$20,d0 ; zero? 68 bne.b _TMP_3 69 bsr _OPz_ 70 bra.b _TMP_6 71_TMP_3: 72 cmp.b #$40,d0 ; infinity? 73 bne.b _TMP_4 74 bsr _OPi_ 75 bra.b _TMP_6 76_TMP_4: 77 cmp.b #$60,d0 ; NaN? 78 bne.b _TMP_5 79 bsr _OPn_ 80 bra.b _TMP_6 81_TMP_5: 82 bsr _OPm_ ; assuming a denorm... 83 84_TMP_6: 85 fmove.l fpsr,d0 ; update status register 86 or.b USER_FPSR+3(a6),d0 ;add previously accrued exceptions 87 move.l d0,USER_FPSR(a6) 88* 89* Result is now in FP0 90* 91 fmovem.x USER_FP2(a6),fp2-fp3 ; note: FP1 not restored 92 unlk a6 93 rts 94