1* $NetBSD: MONADIC.R3V6,v 1.2 1994/10/26 07:48:44 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.R3V6 1.3 4/30/91 35* 36* MONADIC.R3V6 --- MONADIC template for MCD R3V6 native C compiler 37* 38* The MCD compiler is old. It returns float and double values 39* as a double stored in d0/d1. There is no support for single or extended 40* precision operations. It's not clear whether the float registers 41* should be preserved, so for speed, they're not. 42* 43 44 xref tag 45 xref _OPr_ 46 xref _OPz_ 47 xref _OPi_ 48 xref _OPn_ 49 xref _OPm_ 50 51 xdef _OPd_ 52_OPd_: 53 link a6,#-LOCAL_SIZE 54 fmove.l fpcr,d1 ; user's rounding mode/precision 55 fmove.l #0,fpcr ; force rounding mode/prec to extended,rn 56* 57* copy, convert and tag input argument 58* 59 fmove.d 8(a6),fp0 60 fmove.x fp0,ETEMP(a6) 61 lea ETEMP(a6),a0 62 bsr tag 63 move.b d0,STAG(a6) 64 tst.b d0 65 bne.b _TMP_2 66 bsr _OPr_ ; normalized (regular) number 67 bra.b _TMP_6 68_TMP_2: 69 cmp.b #$20,d0 ; zero? 70 bne.b _TMP_3 71 bsr _OPz_ 72 bra.b _TMP_6 73_TMP_3: 74 cmp.b #$40,d0 ; infinity? 75 bne.b _TMP_4 76 bsr _OPi_ 77 bra.b _TMP_6 78_TMP_4: 79 cmp.b #$60,d0 ; NaN? 80 bne.b _TMP_5 81 bsr _OPn_ 82 bra.b _TMP_6 83_TMP_5: 84 bsr _OPm_ ; assuming a denorm... 85 86_TMP_6: 87 fmove.d fp0,USER_D0(a6) ; result goes into d0/d1 pair 88 movem.l USER_D0(a6),d0-d1 89 unlk a6 90 rts 91 92