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
Indexes created Fri Oct 31 11:10:07 GMT 2025