Annotation of sys/arch/m68k/fpsp/MONADIC.GEN, Revision 1.1.1.1
1.1 nbrk 1: * $OpenBSD: MONADIC.GEN,v 1.2 1996/05/29 21:05:22 niklas Exp $
2: * $NetBSD: MONADIC.GEN,v 1.3 1994/10/26 07:48:42 cgd Exp $
3:
4: * MOTOROLA MICROPROCESSOR & MEMORY TECHNOLOGY GROUP
5: * M68000 Hi-Performance Microprocessor Division
6: * M68040 Software Package
7: *
8: * M68040 Software Package Copyright (c) 1993, 1994 Motorola Inc.
9: * All rights reserved.
10: *
11: * THE SOFTWARE is provided on an "AS IS" basis and without warranty.
12: * To the maximum extent permitted by applicable law,
13: * MOTOROLA DISCLAIMS ALL WARRANTIES WHETHER EXPRESS OR IMPLIED,
14: * INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A
15: * PARTICULAR PURPOSE and any warranty against infringement with
16: * regard to the SOFTWARE (INCLUDING ANY MODIFIED VERSIONS THEREOF)
17: * and any accompanying written materials.
18: *
19: * To the maximum extent permitted by applicable law,
20: * IN NO EVENT SHALL MOTOROLA BE LIABLE FOR ANY DAMAGES WHATSOEVER
21: * (INCLUDING WITHOUT LIMITATION, DAMAGES FOR LOSS OF BUSINESS
22: * PROFITS, BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION, OR
23: * OTHER PECUNIARY LOSS) ARISING OF THE USE OR INABILITY TO USE THE
24: * SOFTWARE. Motorola assumes no responsibility for the maintenance
25: * and support of the SOFTWARE.
26: *
27: * You are hereby granted a copyright license to use, modify, and
28: * distribute the SOFTWARE so long as this entire notice is retained
29: * without alteration in any modified and/or redistributed versions,
30: * and that such modified versions are clearly identified as such.
31: * No licenses are granted by implication, estoppel or otherwise
32: * under any patents or trademarks of Motorola, Inc.
33:
34: *
35: * MONADIC.GEN 1.5 5/18/92
36: *
37: * MONADIC.GEN 1.4 1/16/92
38: *
39: * MONADIC.GEN 1.3 4/30/91
40: *
41: * MONADIC.GEN --- generic MONADIC template
42: *
43: * This version saves all registers that will be used by the emulation
44: * routines and restores all but FP0 on exit. The FPSR is
45: * updated to reflect the result of the operation. Return value
46: * is placed in FP0 for single, double and extended results.
47: *
48: * The package subroutines expect the incoming FPCR to be zeroed
49: * since they need extended precision to work properly. The
50: * 'final' FPCR is expected in d1 so that the calculated result
51: * can be properly sized and rounded. Also, if the incoming FPCR
52: * has enabled any exceptions, the exception will be taken on the
53: * final fmovem in this template.
54: *
55: * Customizations:
56: * 1. Remove the movem.l at the entry and exit of
57: * each routine if your compiler treats those
58: * registers as scratch.
59: * 2. Likewise, don't save FP0/FP1 if they are scratch
60: * registers.
61: * 3. Delete handling of the fpsr if you only care about
62: * the result.
63: * 4. Some (most?) C compilers convert all float arguments
64: * to double, and provide no support at all for extended
65: * precision so remove the _OPs_ and _OPx_ entry points.
66: * 5. Move the result to d0/d1 if the compiler is that old.
67: *
68:
69: xref tag
70: xref _OPr_
71: xref _OPz_
72: xref _OPi_
73: xref _OPn_
74: xref _OPm_
75:
76: xdef _OPs_
77: _OPs_:
78: link a6,#-LOCAL_SIZE
79: movem.l d0-d1/a0-a1,USER_DA(a6)
80: fmovem.x fp0-fp3,USER_FP0(a6)
81: fmove.l fpsr,USER_FPSR(a6)
82: fmove.l fpcr,USER_FPCR(a6)
83: fmove.l fpcr,d1 ; user's rounding mode/precision
84: fmove.l #0,fpcr ; force rounding mode/prec to extended,rn
85: *
86: * copy, convert and tag input argument
87: *
88: fmove.s 8(a6),fp0
89: fmove.x fp0,ETEMP(a6)
90: lea ETEMP(a6),a0
91: bsr tag
92: move.b d0,STAG(a6)
93: tst.b d0
94: bne.b _TMP_2
95: bsr _OPr_ ; normalized (regular) number
96: bra.b _TMP_6
97: _TMP_2:
98: cmp.b #$20,d0 ; zero?
99: bne.b _TMP_3
100: bsr _OPz_
101: bra.b _TMP_6
102: _TMP_3:
103: cmp.b #$40,d0 ; infinity?
104: bne.b _TMP_4
105: bsr _OPi_
106: bra.b _TMP_6
107: _TMP_4:
108: cmp.b #$60,d0 ; NaN?
109: bne.b _TMP_5
110: bsr _OPn_
111: bra.b _TMP_6
112: _TMP_5:
113: bsr _OPm_ ; assuming a denorm...
114:
115: _TMP_6:
116: fmove.l fpsr,d0 ; update status register
117: or.b FPSR_AEXCEPT(a6),d0 ;add previously accrued exceptions
118: fmove.l d0,fpsr
119: *
120: * Result is now in FP0
121: *
122: movem.l USER_DA(a6),d0-d1/a0-a1
123: fmovem.x USER_FP1(a6),fp1-fp3 ; note: FP0 not restored
124: fmove.l USER_FPCR(a6),fpcr ; fpcr restored
125: unlk a6
126: rts
127:
128: xdef _OPd_
129: _OPd_:
130: link a6,#-LOCAL_SIZE
131: movem.l d0-d1/a0-a1,USER_DA(a6)
132: fmovem.x fp0-fp3,USER_FP0(a6)
133: fmove.l fpsr,USER_FPSR(a6)
134: fmove.l fpcr,USER_FPCR(a6)
135: fmove.l fpcr,d1 ; user's rounding mode/precision
136: fmove.l #0,fpcr ; force rounding mode/prec to extended,rn
137: *
138: * copy, convert and tag input argument
139: *
140: fmove.d 8(a6),fp0
141: fmove.x fp0,ETEMP(a6)
142: lea ETEMP(a6),a0
143: bsr tag
144: move.b d0,STAG(a6)
145: tst.b d0
146: bne.b _TMP_7
147: bsr _OPr_ ; normalized (regular) number
148: bra.b _TMP_B
149: _TMP_7:
150: cmp.b #$20,d0 ; zero?
151: bne.b _TMP_8
152: bsr _OPz_
153: bra.b _TMP_B
154: _TMP_8:
155: cmp.b #$40,d0 ; infinity?
156: bne.b _TMP_9
157: bsr _OPi_
158: bra.b _TMP_B
159: _TMP_9:
160: cmp.b #$60,d0 ; NaN?
161: bne.b _TMP_A
162: bsr _OPn_
163: bra.b _TMP_B
164: _TMP_A:
165: bsr _OPm_ ; assuming a denorm...
166:
167: _TMP_B:
168: fmove.l fpsr,d0 ; update status register
169: or.b FPSR_AEXCEPT(a6),d0 ;add previously accrued exceptions
170: fmove.l d0,fpsr
171: *
172: * Result is now in FP0
173: *
174: movem.l USER_DA(a6),d0-d1/a0-a1
175: fmovem.x USER_FP1(a6),fp1-fp3 ; note: FP0 not restored
176: fmove.l USER_FPCR(a6),fpcr ; fpcr restored
177: unlk a6
178: rts
179:
180: xdef _OPx_
181: _OPx_:
182: link a6,#-LOCAL_SIZE
183: movem.l d0-d1/a0-a1,USER_DA(a6)
184: fmovem.x fp0-fp3,USER_FP0(a6)
185: fmove.l fpsr,USER_FPSR(a6)
186: fmove.l fpcr,USER_FPCR(a6)
187: fmove.l fpcr,d1 ; user's rounding mode/precision
188: fmove.l #0,fpcr ; force rounding mode/prec to extended,rn
189: *
190: * copy, convert and tag input argument
191: *
192: fmove.x 8(a6),fp0
193: fmove.x fp0,ETEMP(a6)
194: lea ETEMP(a6),a0
195: bsr tag
196: move.b d0,STAG(a6)
197: tst.b d0
198: bne.b _TMP_C
199: bsr _OPr_ ; normalized (regular) number
200: bra.b _TMP_G
201: _TMP_C:
202: cmp.b #$20,d0 ; zero?
203: bne.b _TMP_D
204: bsr _OPz_
205: bra.b _TMP_G
206: _TMP_D:
207: cmp.b #$40,d0 ; infinity?
208: bne.b _TMP_E
209: bsr _OPi_
210: bra.b _TMP_G
211: _TMP_E:
212: cmp.b #$60,d0 ; NaN?
213: bne.b _TMP_F
214: bsr _OPn_
215: bra.b _TMP_G
216: _TMP_F:
217: bsr _OPm_ ; assuming a denorm...
218:
219: _TMP_G:
220: fmove.l fpsr,d0 ; update status register
221: or.b FPSR_AEXCEPT(a6),d0 ;add previously accrued exceptions
222: fmove.l d0,fpsr
223: *
224: * Result is now in FP0
225: *
226: movem.l USER_DA(a6),d0-d1/a0-a1
227: fmovem.x USER_FP1(a6),fp1-fp3 ; note: FP0 not restored
228: fmove.l USER_FPCR(a6),fpcr ; fpcr restored
229: unlk a6
230: rts
231:
CVSweb
![[BACK]](/icons/back.gif){kind=icon}
Return to MONADIC.GEN CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [local] / sys / arch / m68k / fpsp