xref: /OK3568_Linux_fs/kernel/arch/m68k/ifpsp060/src/ftest.S (revision 4882a59341e53eb6f0b4789bf948001014eff981)
1*4882a593Smuzhiyun~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2*4882a593SmuzhiyunMOTOROLA MICROPROCESSOR & MEMORY TECHNOLOGY GROUP
3*4882a593SmuzhiyunM68000 Hi-Performance Microprocessor Division
4*4882a593SmuzhiyunM68060 Software Package
5*4882a593SmuzhiyunProduction Release P1.00 -- October 10, 1994
6*4882a593Smuzhiyun
7*4882a593SmuzhiyunM68060 Software Package Copyright © 1993, 1994 Motorola Inc.  All rights reserved.
8*4882a593Smuzhiyun
9*4882a593SmuzhiyunTHE SOFTWARE is provided on an "AS IS" basis and without warranty.
10*4882a593SmuzhiyunTo the maximum extent permitted by applicable law,
11*4882a593SmuzhiyunMOTOROLA DISCLAIMS ALL WARRANTIES WHETHER EXPRESS OR IMPLIED,
12*4882a593SmuzhiyunINCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE
13*4882a593Smuzhiyunand any warranty against infringement with regard to the SOFTWARE
14*4882a593Smuzhiyun(INCLUDING ANY MODIFIED VERSIONS THEREOF) and any accompanying written materials.
15*4882a593Smuzhiyun
16*4882a593SmuzhiyunTo the maximum extent permitted by applicable law,
17*4882a593SmuzhiyunIN NO EVENT SHALL MOTOROLA BE LIABLE FOR ANY DAMAGES WHATSOEVER
18*4882a593Smuzhiyun(INCLUDING WITHOUT LIMITATION, DAMAGES FOR LOSS OF BUSINESS PROFITS,
19*4882a593SmuzhiyunBUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION, OR OTHER PECUNIARY LOSS)
20*4882a593SmuzhiyunARISING OF THE USE OR INABILITY TO USE THE SOFTWARE.
21*4882a593SmuzhiyunMotorola assumes no responsibility for the maintenance and support of the SOFTWARE.
22*4882a593Smuzhiyun
23*4882a593SmuzhiyunYou are hereby granted a copyright license to use, modify, and distribute the SOFTWARE
24*4882a593Smuzhiyunso long as this entire notice is retained without alteration in any modified and/or
25*4882a593Smuzhiyunredistributed versions, and that such modified versions are clearly identified as such.
26*4882a593SmuzhiyunNo licenses are granted by implication, estoppel or otherwise under any patents
27*4882a593Smuzhiyunor trademarks of Motorola, Inc.
28*4882a593Smuzhiyun~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
29*4882a593Smuzhiyun#############################################
30*4882a593Smuzhiyunset	SREGS,		-64
31*4882a593Smuzhiyunset	IREGS,		-128
32*4882a593Smuzhiyunset	IFPREGS,	-224
33*4882a593Smuzhiyunset	SFPREGS,	-320
34*4882a593Smuzhiyunset	IFPCREGS,	-332
35*4882a593Smuzhiyunset	SFPCREGS,	-344
36*4882a593Smuzhiyunset	ICCR,		-346
37*4882a593Smuzhiyunset	SCCR,		-348
38*4882a593Smuzhiyunset	TESTCTR,	-352
39*4882a593Smuzhiyunset	DATA,		-384
40*4882a593Smuzhiyun
41*4882a593Smuzhiyun#############################################
42*4882a593SmuzhiyunTESTTOP:
43*4882a593Smuzhiyun	bra.l		_060TESTS_
44*4882a593Smuzhiyun	short		0x0000
45*4882a593Smuzhiyun
46*4882a593Smuzhiyun	bra.l		_060TESTS_unimp
47*4882a593Smuzhiyun	short		0x0000
48*4882a593Smuzhiyun
49*4882a593Smuzhiyun	bra.l		_060TESTS_enable
50*4882a593Smuzhiyun	short		0x0000
51*4882a593Smuzhiyun
52*4882a593Smuzhiyunstart_str:
53*4882a593Smuzhiyun	string		"Testing 68060 FPSP started:\n"
54*4882a593Smuzhiyun
55*4882a593Smuzhiyunstart_str_unimp:
56*4882a593Smuzhiyun	string		"Testing 68060 FPSP unimplemented instruction started:\n"
57*4882a593Smuzhiyun
58*4882a593Smuzhiyunstart_str_enable:
59*4882a593Smuzhiyun	string		"Testing 68060 FPSP exception enabled started:\n"
60*4882a593Smuzhiyun
61*4882a593Smuzhiyunpass_str:
62*4882a593Smuzhiyun	string		"passed\n"
63*4882a593Smuzhiyun
64*4882a593Smuzhiyunfail_str:
65*4882a593Smuzhiyun	string		" failed\n"
66*4882a593Smuzhiyun
67*4882a593Smuzhiyun	align		0x4
68*4882a593Smuzhiyunchk_test:
69*4882a593Smuzhiyun	tst.l		%d0
70*4882a593Smuzhiyun	bne.b		test_fail
71*4882a593Smuzhiyuntest_pass:
72*4882a593Smuzhiyun	pea		pass_str(%pc)
73*4882a593Smuzhiyun	bsr.l		_print_str
74*4882a593Smuzhiyun	addq.l		&0x4,%sp
75*4882a593Smuzhiyun	rts
76*4882a593Smuzhiyuntest_fail:
77*4882a593Smuzhiyun	mov.l		%d1,-(%sp)
78*4882a593Smuzhiyun	bsr.l		_print_num
79*4882a593Smuzhiyun	addq.l		&0x4,%sp
80*4882a593Smuzhiyun
81*4882a593Smuzhiyun	pea		fail_str(%pc)
82*4882a593Smuzhiyun	bsr.l		_print_str
83*4882a593Smuzhiyun	addq.l		&0x4,%sp
84*4882a593Smuzhiyun	rts
85*4882a593Smuzhiyun
86*4882a593Smuzhiyun#############################################
87*4882a593Smuzhiyun_060TESTS_:
88*4882a593Smuzhiyun	link		%a6,&-384
89*4882a593Smuzhiyun
90*4882a593Smuzhiyun	movm.l		&0x3f3c,-(%sp)
91*4882a593Smuzhiyun	fmovm.x		&0xff,-(%sp)
92*4882a593Smuzhiyun
93*4882a593Smuzhiyun	pea		start_str(%pc)
94*4882a593Smuzhiyun	bsr.l		_print_str
95*4882a593Smuzhiyun	addq.l		&0x4,%sp
96*4882a593Smuzhiyun
97*4882a593Smuzhiyun### effadd
98*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
99*4882a593Smuzhiyun	pea		effadd_str(%pc)
100*4882a593Smuzhiyun	bsr.l		_print_str
101*4882a593Smuzhiyun	addq.l		&0x4,%sp
102*4882a593Smuzhiyun
103*4882a593Smuzhiyun	bsr.l		effadd_0
104*4882a593Smuzhiyun
105*4882a593Smuzhiyun	bsr.l		chk_test
106*4882a593Smuzhiyun
107*4882a593Smuzhiyun### unsupp
108*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
109*4882a593Smuzhiyun	pea		unsupp_str(%pc)
110*4882a593Smuzhiyun	bsr.l		_print_str
111*4882a593Smuzhiyun	addq.l		&0x4,%sp
112*4882a593Smuzhiyun
113*4882a593Smuzhiyun	bsr.l		unsupp_0
114*4882a593Smuzhiyun
115*4882a593Smuzhiyun	bsr.l		chk_test
116*4882a593Smuzhiyun
117*4882a593Smuzhiyun### ovfl non-maskable
118*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
119*4882a593Smuzhiyun	pea		ovfl_nm_str(%pc)
120*4882a593Smuzhiyun	bsr.l		_print_str
121*4882a593Smuzhiyun	bsr.l		ovfl_nm_0
122*4882a593Smuzhiyun
123*4882a593Smuzhiyun	bsr.l		chk_test
124*4882a593Smuzhiyun
125*4882a593Smuzhiyun### unfl non-maskable
126*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
127*4882a593Smuzhiyun	pea		unfl_nm_str(%pc)
128*4882a593Smuzhiyun	bsr.l		_print_str
129*4882a593Smuzhiyun	bsr.l		unfl_nm_0
130*4882a593Smuzhiyun
131*4882a593Smuzhiyun	bsr.l		chk_test
132*4882a593Smuzhiyun
133*4882a593Smuzhiyun	movm.l		(%sp)+,&0x3cfc
134*4882a593Smuzhiyun	fmovm.x		(%sp)+,&0xff
135*4882a593Smuzhiyun
136*4882a593Smuzhiyun	unlk		%a6
137*4882a593Smuzhiyun	rts
138*4882a593Smuzhiyun
139*4882a593Smuzhiyun_060TESTS_unimp:
140*4882a593Smuzhiyun	link		%a6,&-384
141*4882a593Smuzhiyun
142*4882a593Smuzhiyun	movm.l		&0x3f3c,-(%sp)
143*4882a593Smuzhiyun	fmovm.x		&0xff,-(%sp)
144*4882a593Smuzhiyun
145*4882a593Smuzhiyun	pea		start_str_unimp(%pc)
146*4882a593Smuzhiyun	bsr.l		_print_str
147*4882a593Smuzhiyun	addq.l		&0x4,%sp
148*4882a593Smuzhiyun
149*4882a593Smuzhiyun### unimp
150*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
151*4882a593Smuzhiyun	pea		unimp_str(%pc)
152*4882a593Smuzhiyun	bsr.l		_print_str
153*4882a593Smuzhiyun	addq.l		&0x4,%sp
154*4882a593Smuzhiyun
155*4882a593Smuzhiyun	bsr.l		unimp_0
156*4882a593Smuzhiyun
157*4882a593Smuzhiyun	bsr.l		chk_test
158*4882a593Smuzhiyun
159*4882a593Smuzhiyun	movm.l		(%sp)+,&0x3cfc
160*4882a593Smuzhiyun	fmovm.x		(%sp)+,&0xff
161*4882a593Smuzhiyun
162*4882a593Smuzhiyun	unlk		%a6
163*4882a593Smuzhiyun	rts
164*4882a593Smuzhiyun
165*4882a593Smuzhiyun_060TESTS_enable:
166*4882a593Smuzhiyun	link		%a6,&-384
167*4882a593Smuzhiyun
168*4882a593Smuzhiyun	movm.l		&0x3f3c,-(%sp)
169*4882a593Smuzhiyun	fmovm.x		&0xff,-(%sp)
170*4882a593Smuzhiyun
171*4882a593Smuzhiyun	pea		start_str_enable(%pc)
172*4882a593Smuzhiyun	bsr.l		_print_str
173*4882a593Smuzhiyun	addq.l		&0x4,%sp
174*4882a593Smuzhiyun
175*4882a593Smuzhiyun### snan
176*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
177*4882a593Smuzhiyun	pea		snan_str(%pc)
178*4882a593Smuzhiyun	bsr.l		_print_str
179*4882a593Smuzhiyun	bsr.l		snan_0
180*4882a593Smuzhiyun
181*4882a593Smuzhiyun	bsr.l		chk_test
182*4882a593Smuzhiyun
183*4882a593Smuzhiyun### operr
184*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
185*4882a593Smuzhiyun	pea		operr_str(%pc)
186*4882a593Smuzhiyun	bsr.l		_print_str
187*4882a593Smuzhiyun	bsr.l		operr_0
188*4882a593Smuzhiyun
189*4882a593Smuzhiyun	bsr.l		chk_test
190*4882a593Smuzhiyun
191*4882a593Smuzhiyun### ovfl
192*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
193*4882a593Smuzhiyun	pea		ovfl_str(%pc)
194*4882a593Smuzhiyun	bsr.l		_print_str
195*4882a593Smuzhiyun	bsr.l		ovfl_0
196*4882a593Smuzhiyun
197*4882a593Smuzhiyun	bsr.l		chk_test
198*4882a593Smuzhiyun
199*4882a593Smuzhiyun### unfl
200*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
201*4882a593Smuzhiyun	pea		unfl_str(%pc)
202*4882a593Smuzhiyun	bsr.l		_print_str
203*4882a593Smuzhiyun	bsr.l		unfl_0
204*4882a593Smuzhiyun
205*4882a593Smuzhiyun	bsr.l		chk_test
206*4882a593Smuzhiyun
207*4882a593Smuzhiyun### dz
208*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
209*4882a593Smuzhiyun	pea		dz_str(%pc)
210*4882a593Smuzhiyun	bsr.l		_print_str
211*4882a593Smuzhiyun	bsr.l		dz_0
212*4882a593Smuzhiyun
213*4882a593Smuzhiyun	bsr.l		chk_test
214*4882a593Smuzhiyun
215*4882a593Smuzhiyun### inexact
216*4882a593Smuzhiyun	clr.l		TESTCTR(%a6)
217*4882a593Smuzhiyun	pea		inex_str(%pc)
218*4882a593Smuzhiyun	bsr.l		_print_str
219*4882a593Smuzhiyun	bsr.l		inex_0
220*4882a593Smuzhiyun
221*4882a593Smuzhiyun	bsr.l		chk_test
222*4882a593Smuzhiyun
223*4882a593Smuzhiyun	movm.l		(%sp)+,&0x3cfc
224*4882a593Smuzhiyun	fmovm.x		(%sp)+,&0xff
225*4882a593Smuzhiyun
226*4882a593Smuzhiyun	unlk		%a6
227*4882a593Smuzhiyun	rts
228*4882a593Smuzhiyun
229*4882a593Smuzhiyun#############################################
230*4882a593Smuzhiyun#############################################
231*4882a593Smuzhiyun
232*4882a593Smuzhiyununimp_str:
233*4882a593Smuzhiyun	string		"\tUnimplemented FP instructions..."
234*4882a593Smuzhiyun
235*4882a593Smuzhiyun	align		0x4
236*4882a593Smuzhiyununimp_0:
237*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
238*4882a593Smuzhiyun
239*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
240*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
241*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
242*4882a593Smuzhiyun
243*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
244*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
245*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
246*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
247*4882a593Smuzhiyun
248*4882a593Smuzhiyun	mov.l		&0x40000000,DATA+0x0(%a6)
249*4882a593Smuzhiyun	mov.l		&0xc90fdaa2,DATA+0x4(%a6)
250*4882a593Smuzhiyun	mov.l		&0x2168c235,DATA+0x8(%a6)
251*4882a593Smuzhiyun
252*4882a593Smuzhiyun	mov.w		&0x0000,%cc
253*4882a593Smuzhiyununimp_0_pc:
254*4882a593Smuzhiyun	fsin.x		DATA(%a6),%fp0
255*4882a593Smuzhiyun
256*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
257*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
258*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
259*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
260*4882a593Smuzhiyun
261*4882a593Smuzhiyun	mov.l		&0xbfbf0000,IFPREGS+0x0(%a6)
262*4882a593Smuzhiyun	mov.l		&0x80000000,IFPREGS+0x4(%a6)
263*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
264*4882a593Smuzhiyun	mov.l		&0x08000208,IFPCREGS+0x4(%a6)
265*4882a593Smuzhiyun	lea		unimp_0_pc(%pc),%a0
266*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
267*4882a593Smuzhiyun
268*4882a593Smuzhiyun	bsr.l		chkregs
269*4882a593Smuzhiyun	tst.b		%d0
270*4882a593Smuzhiyun	bne.l		error
271*4882a593Smuzhiyun
272*4882a593Smuzhiyun	bsr.l		chkfpregs
273*4882a593Smuzhiyun	tst.b		%d0
274*4882a593Smuzhiyun	bne.l		error
275*4882a593Smuzhiyun
276*4882a593Smuzhiyununimp_1:
277*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
278*4882a593Smuzhiyun
279*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
280*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
281*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
282*4882a593Smuzhiyun
283*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
284*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
285*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
286*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
287*4882a593Smuzhiyun
288*4882a593Smuzhiyun	mov.l		&0x3ffe0000,DATA+0x0(%a6)
289*4882a593Smuzhiyun	mov.l		&0xc90fdaa2,DATA+0x4(%a6)
290*4882a593Smuzhiyun	mov.l		&0x2168c235,DATA+0x8(%a6)
291*4882a593Smuzhiyun
292*4882a593Smuzhiyun	mov.w		&0x0000,%cc
293*4882a593Smuzhiyununimp_1_pc:
294*4882a593Smuzhiyun	ftan.x		DATA(%a6),%fp0
295*4882a593Smuzhiyun
296*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
297*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
298*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
299*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
300*4882a593Smuzhiyun
301*4882a593Smuzhiyun	mov.l		&0x3fff0000,IFPREGS+0x0(%a6)
302*4882a593Smuzhiyun	mov.l		&0x80000000,IFPREGS+0x4(%a6)
303*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
304*4882a593Smuzhiyun	mov.l		&0x00000208,IFPCREGS+0x4(%a6)
305*4882a593Smuzhiyun	lea		unimp_1_pc(%pc),%a0
306*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
307*4882a593Smuzhiyun
308*4882a593Smuzhiyun	bsr.l		chkregs
309*4882a593Smuzhiyun	tst.b		%d0
310*4882a593Smuzhiyun	bne.l		error
311*4882a593Smuzhiyun
312*4882a593Smuzhiyun	bsr.l		chkfpregs
313*4882a593Smuzhiyun	tst.b		%d0
314*4882a593Smuzhiyun	bne.l		error
315*4882a593Smuzhiyun
316*4882a593Smuzhiyun# fmovecr
317*4882a593Smuzhiyununimp_2:
318*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
319*4882a593Smuzhiyun
320*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
321*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
322*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
323*4882a593Smuzhiyun
324*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
325*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
326*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
327*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
328*4882a593Smuzhiyun
329*4882a593Smuzhiyun	mov.w		&0x0000,%cc
330*4882a593Smuzhiyununimp_2_pc:
331*4882a593Smuzhiyun	fmovcr.x	&0x31,%fp0
332*4882a593Smuzhiyun
333*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
334*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
335*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
336*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
337*4882a593Smuzhiyun
338*4882a593Smuzhiyun	mov.l		&0x40000000,IFPREGS+0x0(%a6)
339*4882a593Smuzhiyun	mov.l		&0x935d8ddd,IFPREGS+0x4(%a6)
340*4882a593Smuzhiyun	mov.l		&0xaaa8ac17,IFPREGS+0x8(%a6)
341*4882a593Smuzhiyun	mov.l		&0x00000208,IFPCREGS+0x4(%a6)
342*4882a593Smuzhiyun	lea		unimp_2_pc(%pc),%a0
343*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
344*4882a593Smuzhiyun
345*4882a593Smuzhiyun	bsr.l		chkregs
346*4882a593Smuzhiyun	tst.b		%d0
347*4882a593Smuzhiyun	bne.l		error
348*4882a593Smuzhiyun
349*4882a593Smuzhiyun	bsr.l		chkfpregs
350*4882a593Smuzhiyun	tst.b		%d0
351*4882a593Smuzhiyun	bne.l		error
352*4882a593Smuzhiyun
353*4882a593Smuzhiyun# fscc
354*4882a593Smuzhiyununimp_3:
355*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
356*4882a593Smuzhiyun
357*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
358*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
359*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
360*4882a593Smuzhiyun
361*4882a593Smuzhiyun	fmov.l		&0x0f000000,%fpsr
362*4882a593Smuzhiyun	mov.l		&0x00,%d7
363*4882a593Smuzhiyun
364*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
365*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
366*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
367*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
368*4882a593Smuzhiyun
369*4882a593Smuzhiyun	mov.w		&0x0000,%cc
370*4882a593Smuzhiyununimp_3_pc:
371*4882a593Smuzhiyun	fsgt		%d7
372*4882a593Smuzhiyun
373*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
374*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
375*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
376*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
377*4882a593Smuzhiyun	mov.l		&0x0f008080,IFPCREGS+0x4(%a6)
378*4882a593Smuzhiyun	lea		unimp_3_pc(%pc),%a0
379*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
380*4882a593Smuzhiyun
381*4882a593Smuzhiyun	bsr.l		chkregs
382*4882a593Smuzhiyun	tst.b		%d0
383*4882a593Smuzhiyun	bne.l		error
384*4882a593Smuzhiyun
385*4882a593Smuzhiyun	bsr.l		chkfpregs
386*4882a593Smuzhiyun	tst.b		%d0
387*4882a593Smuzhiyun	bne.l		error
388*4882a593Smuzhiyun
389*4882a593Smuzhiyun# fdbcc
390*4882a593Smuzhiyununimp_4:
391*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
392*4882a593Smuzhiyun
393*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
394*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
395*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
396*4882a593Smuzhiyun
397*4882a593Smuzhiyun	fmov.l		&0x0f000000,%fpsr
398*4882a593Smuzhiyun	mov.l		&0x2,%d7
399*4882a593Smuzhiyun
400*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
401*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
402*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
403*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
404*4882a593Smuzhiyun
405*4882a593Smuzhiyun	mov.w		&0x0000,%cc
406*4882a593Smuzhiyununimp_4_pc:
407*4882a593Smuzhiyun	fdbgt.w		%d7,unimp_4_pc
408*4882a593Smuzhiyun
409*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
410*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
411*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
412*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
413*4882a593Smuzhiyun	mov.w		&0xffff,IREGS+28+2(%a6)
414*4882a593Smuzhiyun	mov.l		&0x0f008080,IFPCREGS+0x4(%a6)
415*4882a593Smuzhiyun	lea		unimp_4_pc(%pc),%a0
416*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
417*4882a593Smuzhiyun
418*4882a593Smuzhiyun	bsr.l		chkregs
419*4882a593Smuzhiyun	tst.b		%d0
420*4882a593Smuzhiyun	bne.l		error
421*4882a593Smuzhiyun
422*4882a593Smuzhiyun	bsr.l		chkfpregs
423*4882a593Smuzhiyun	tst.b		%d0
424*4882a593Smuzhiyun	bne.l		error
425*4882a593Smuzhiyun
426*4882a593Smuzhiyun# ftrapcc
427*4882a593Smuzhiyununimp_5:
428*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
429*4882a593Smuzhiyun
430*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
431*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
432*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
433*4882a593Smuzhiyun
434*4882a593Smuzhiyun	fmov.l		&0x0f000000,%fpsr
435*4882a593Smuzhiyun
436*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
437*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
438*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
439*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
440*4882a593Smuzhiyun
441*4882a593Smuzhiyun	mov.w		&0x0000,%cc
442*4882a593Smuzhiyununimp_5_pc:
443*4882a593Smuzhiyun	ftpgt.l		&0xabcdef01
444*4882a593Smuzhiyun
445*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
446*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
447*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
448*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
449*4882a593Smuzhiyun	mov.l		&0x0f008080,IFPCREGS+0x4(%a6)
450*4882a593Smuzhiyun	lea		unimp_5_pc(%pc),%a0
451*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
452*4882a593Smuzhiyun
453*4882a593Smuzhiyun	bsr.l		chkregs
454*4882a593Smuzhiyun	tst.b		%d0
455*4882a593Smuzhiyun	bne.l		error
456*4882a593Smuzhiyun
457*4882a593Smuzhiyun	bsr.l		chkfpregs
458*4882a593Smuzhiyun	tst.b		%d0
459*4882a593Smuzhiyun	bne.l		error
460*4882a593Smuzhiyun
461*4882a593Smuzhiyun	clr.l		%d0
462*4882a593Smuzhiyun	rts
463*4882a593Smuzhiyun
464*4882a593Smuzhiyun#############################################
465*4882a593Smuzhiyun
466*4882a593Smuzhiyuneffadd_str:
467*4882a593Smuzhiyun	string		"\tUnimplemented <ea>..."
468*4882a593Smuzhiyun
469*4882a593Smuzhiyun	align		0x4
470*4882a593Smuzhiyuneffadd_0:
471*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
472*4882a593Smuzhiyun
473*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
474*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
475*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
476*4882a593Smuzhiyun
477*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
478*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
479*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
480*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
481*4882a593Smuzhiyun
482*4882a593Smuzhiyun	fmov.b		&0x2,%fp0
483*4882a593Smuzhiyun
484*4882a593Smuzhiyun	mov.w		&0x0000,%cc
485*4882a593Smuzhiyuneffadd_0_pc:
486*4882a593Smuzhiyun	fmul.x		&0xc00000008000000000000000,%fp0
487*4882a593Smuzhiyun
488*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
489*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
490*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
491*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
492*4882a593Smuzhiyun
493*4882a593Smuzhiyun	mov.l		&0xc0010000,IFPREGS+0x0(%a6)
494*4882a593Smuzhiyun	mov.l		&0x80000000,IFPREGS+0x4(%a6)
495*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
496*4882a593Smuzhiyun	mov.l		&0x08000000,IFPCREGS+0x4(%a6)
497*4882a593Smuzhiyun	lea		effadd_0_pc(%pc),%a0
498*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
499*4882a593Smuzhiyun
500*4882a593Smuzhiyun	bsr.l		chkregs
501*4882a593Smuzhiyun	tst.b		%d0
502*4882a593Smuzhiyun	bne.l		error
503*4882a593Smuzhiyun
504*4882a593Smuzhiyun	bsr.l		chkfpregs
505*4882a593Smuzhiyun	tst.b		%d0
506*4882a593Smuzhiyun	bne.l		error
507*4882a593Smuzhiyun
508*4882a593Smuzhiyuneffadd_1:
509*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
510*4882a593Smuzhiyun
511*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
512*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
513*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
514*4882a593Smuzhiyun
515*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
516*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
517*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
518*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
519*4882a593Smuzhiyun
520*4882a593Smuzhiyun	mov.w		&0x0000,%cc
521*4882a593Smuzhiyuneffadd_1_pc:
522*4882a593Smuzhiyun	fabs.p		&0xc12300012345678912345678,%fp0
523*4882a593Smuzhiyun
524*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
525*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
526*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
527*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
528*4882a593Smuzhiyun
529*4882a593Smuzhiyun	mov.l		&0x3e660000,IFPREGS+0x0(%a6)
530*4882a593Smuzhiyun	mov.l		&0xd0ed23e8,IFPREGS+0x4(%a6)
531*4882a593Smuzhiyun	mov.l		&0xd14035bc,IFPREGS+0x8(%a6)
532*4882a593Smuzhiyun	mov.l		&0x00000108,IFPCREGS+0x4(%a6)
533*4882a593Smuzhiyun	lea		effadd_1_pc(%pc),%a0
534*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
535*4882a593Smuzhiyun
536*4882a593Smuzhiyun	bsr.l		chkregs
537*4882a593Smuzhiyun	tst.b		%d0
538*4882a593Smuzhiyun	bne.l		error
539*4882a593Smuzhiyun
540*4882a593Smuzhiyun	bsr.l		chkfpregs
541*4882a593Smuzhiyun	tst.b		%d0
542*4882a593Smuzhiyun	bne.l		error
543*4882a593Smuzhiyun
544*4882a593Smuzhiyunfmovml_0:
545*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
546*4882a593Smuzhiyun
547*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
548*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
549*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
550*4882a593Smuzhiyun
551*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
552*4882a593Smuzhiyun	mov.w		&0x0000,%cc
553*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
554*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
555*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
556*4882a593Smuzhiyun
557*4882a593Smuzhiyun	fmovm.l		&0xffffffffffffffff,%fpcr,%fpsr
558*4882a593Smuzhiyun
559*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
560*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
561*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
562*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
563*4882a593Smuzhiyun	mov.l		&0x0000fff0,IFPCREGS+0x0(%a6)
564*4882a593Smuzhiyun	mov.l		&0x0ffffff8,IFPCREGS+0x4(%a6)
565*4882a593Smuzhiyun
566*4882a593Smuzhiyun	bsr.l		chkregs
567*4882a593Smuzhiyun	tst.b		%d0
568*4882a593Smuzhiyun	bne.l		error
569*4882a593Smuzhiyun
570*4882a593Smuzhiyun	bsr.l		chkfpregs
571*4882a593Smuzhiyun	tst.b		%d0
572*4882a593Smuzhiyun	bne.l		error
573*4882a593Smuzhiyun
574*4882a593Smuzhiyunfmovml_1:
575*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
576*4882a593Smuzhiyun
577*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
578*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
579*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
580*4882a593Smuzhiyun
581*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
582*4882a593Smuzhiyun	mov.w		&0x0000,%cc
583*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
584*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
585*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
586*4882a593Smuzhiyun
587*4882a593Smuzhiyun	fmovm.l		&0xffffffffffffffff,%fpcr,%fpiar
588*4882a593Smuzhiyun
589*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
590*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
591*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
592*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
593*4882a593Smuzhiyun	mov.l		&0x0000fff0,IFPCREGS+0x0(%a6)
594*4882a593Smuzhiyun	mov.l		&0xffffffff,IFPCREGS+0x8(%a6)
595*4882a593Smuzhiyun
596*4882a593Smuzhiyun	bsr.l		chkregs
597*4882a593Smuzhiyun	tst.b		%d0
598*4882a593Smuzhiyun	bne.l		error
599*4882a593Smuzhiyun
600*4882a593Smuzhiyun	bsr.l		chkfpregs
601*4882a593Smuzhiyun	tst.b		%d0
602*4882a593Smuzhiyun	bne.l		error
603*4882a593Smuzhiyun
604*4882a593Smuzhiyunfmovml_2:
605*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
606*4882a593Smuzhiyun
607*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
608*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
609*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
610*4882a593Smuzhiyun
611*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
612*4882a593Smuzhiyun	mov.w		&0x0000,%cc
613*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
614*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
615*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
616*4882a593Smuzhiyun
617*4882a593Smuzhiyun	fmovm.l		&0xffffffffffffffff,%fpsr,%fpiar
618*4882a593Smuzhiyun
619*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
620*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
621*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
622*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
623*4882a593Smuzhiyun	mov.l		&0x0ffffff8,IFPCREGS+0x4(%a6)
624*4882a593Smuzhiyun	mov.l		&0xffffffff,IFPCREGS+0x8(%a6)
625*4882a593Smuzhiyun
626*4882a593Smuzhiyun	bsr.l		chkregs
627*4882a593Smuzhiyun	tst.b		%d0
628*4882a593Smuzhiyun	bne.l		error
629*4882a593Smuzhiyun
630*4882a593Smuzhiyun	bsr.l		chkfpregs
631*4882a593Smuzhiyun	tst.b		%d0
632*4882a593Smuzhiyun	bne.l		error
633*4882a593Smuzhiyun
634*4882a593Smuzhiyunfmovml_3:
635*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
636*4882a593Smuzhiyun
637*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
638*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
639*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
640*4882a593Smuzhiyun
641*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
642*4882a593Smuzhiyun	mov.w		&0x0000,%cc
643*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
644*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
645*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
646*4882a593Smuzhiyun
647*4882a593Smuzhiyun	fmovm.l		&0xffffffffffffffffffffffff,%fpcr,%fpsr,%fpiar
648*4882a593Smuzhiyun
649*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
650*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
651*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
652*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
653*4882a593Smuzhiyun	mov.l		&0x0000fff0,IFPCREGS+0x0(%a6)
654*4882a593Smuzhiyun	mov.l		&0x0ffffff8,IFPCREGS+0x4(%a6)
655*4882a593Smuzhiyun	mov.l		&0xffffffff,IFPCREGS+0x8(%a6)
656*4882a593Smuzhiyun
657*4882a593Smuzhiyun	bsr.l		chkregs
658*4882a593Smuzhiyun	tst.b		%d0
659*4882a593Smuzhiyun	bne.l		error
660*4882a593Smuzhiyun
661*4882a593Smuzhiyun	bsr.l		chkfpregs
662*4882a593Smuzhiyun	tst.b		%d0
663*4882a593Smuzhiyun	bne.l		error
664*4882a593Smuzhiyun
665*4882a593Smuzhiyun# fmovmx dynamic
666*4882a593Smuzhiyunfmovmx_0:
667*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
668*4882a593Smuzhiyun
669*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
670*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
671*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
672*4882a593Smuzhiyun
673*4882a593Smuzhiyun	fmov.b		&0x1,%fp0
674*4882a593Smuzhiyun	fmov.b		&0x2,%fp1
675*4882a593Smuzhiyun	fmov.b		&0x3,%fp2
676*4882a593Smuzhiyun	fmov.b		&0x4,%fp3
677*4882a593Smuzhiyun	fmov.b		&0x5,%fp4
678*4882a593Smuzhiyun	fmov.b		&0x6,%fp5
679*4882a593Smuzhiyun	fmov.b		&0x7,%fp6
680*4882a593Smuzhiyun	fmov.b		&0x8,%fp7
681*4882a593Smuzhiyun
682*4882a593Smuzhiyun	fmov.l		&0x0,%fpiar
683*4882a593Smuzhiyun	mov.l		&0xffffffaa,%d0
684*4882a593Smuzhiyun
685*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
686*4882a593Smuzhiyun	movm.l		&0xffff,IREGS(%a6)
687*4882a593Smuzhiyun
688*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
689*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
690*4882a593Smuzhiyun
691*4882a593Smuzhiyun	mov.w		&0x0000,%cc
692*4882a593Smuzhiyun
693*4882a593Smuzhiyun	fmovm.x		%d0,-(%sp)
694*4882a593Smuzhiyun
695*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
696*4882a593Smuzhiyun
697*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
698*4882a593Smuzhiyun
699*4882a593Smuzhiyun	fmov.s		&0x7f800000,%fp1
700*4882a593Smuzhiyun	fmov.s		&0x7f800000,%fp3
701*4882a593Smuzhiyun	fmov.s		&0x7f800000,%fp5
702*4882a593Smuzhiyun	fmov.s		&0x7f800000,%fp7
703*4882a593Smuzhiyun
704*4882a593Smuzhiyun	fmov.x		(%sp)+,%fp1
705*4882a593Smuzhiyun	fmov.x		(%sp)+,%fp3
706*4882a593Smuzhiyun	fmov.x		(%sp)+,%fp5
707*4882a593Smuzhiyun	fmov.x		(%sp)+,%fp7
708*4882a593Smuzhiyun
709*4882a593Smuzhiyun	movm.l		&0xffff,SREGS(%a6)
710*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
711*4882a593Smuzhiyun
712*4882a593Smuzhiyun	bsr.l		chkregs
713*4882a593Smuzhiyun	tst.b		%d0
714*4882a593Smuzhiyun	bne.l		error
715*4882a593Smuzhiyun
716*4882a593Smuzhiyun	bsr.l		chkfpregs
717*4882a593Smuzhiyun	tst.b		%d0
718*4882a593Smuzhiyun	bne.l		error
719*4882a593Smuzhiyun
720*4882a593Smuzhiyunfmovmx_1:
721*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
722*4882a593Smuzhiyun
723*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
724*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
725*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
726*4882a593Smuzhiyun
727*4882a593Smuzhiyun	fmov.b		&0x1,%fp0
728*4882a593Smuzhiyun	fmov.b		&0x2,%fp1
729*4882a593Smuzhiyun	fmov.b		&0x3,%fp2
730*4882a593Smuzhiyun	fmov.b		&0x4,%fp3
731*4882a593Smuzhiyun	fmov.b		&0x5,%fp4
732*4882a593Smuzhiyun	fmov.b		&0x6,%fp5
733*4882a593Smuzhiyun	fmov.b		&0x7,%fp6
734*4882a593Smuzhiyun	fmov.b		&0x8,%fp7
735*4882a593Smuzhiyun
736*4882a593Smuzhiyun	fmov.x		%fp6,-(%sp)
737*4882a593Smuzhiyun	fmov.x		%fp4,-(%sp)
738*4882a593Smuzhiyun	fmov.x		%fp2,-(%sp)
739*4882a593Smuzhiyun	fmov.x		%fp0,-(%sp)
740*4882a593Smuzhiyun
741*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
742*4882a593Smuzhiyun
743*4882a593Smuzhiyun	fmov.s		&0x7f800000,%fp6
744*4882a593Smuzhiyun	fmov.s		&0x7f800000,%fp4
745*4882a593Smuzhiyun	fmov.s		&0x7f800000,%fp2
746*4882a593Smuzhiyun	fmov.s		&0x7f800000,%fp0
747*4882a593Smuzhiyun
748*4882a593Smuzhiyun	fmov.l		&0x0,%fpiar
749*4882a593Smuzhiyun	fmov.l		&0x0,%fpsr
750*4882a593Smuzhiyun	mov.l		&0xffffffaa,%d0
751*4882a593Smuzhiyun
752*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
753*4882a593Smuzhiyun	movm.l		&0xffff,IREGS(%a6)
754*4882a593Smuzhiyun
755*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
756*4882a593Smuzhiyun
757*4882a593Smuzhiyun	mov.w		&0x0000,%cc
758*4882a593Smuzhiyun
759*4882a593Smuzhiyun	fmovm.x		(%sp)+,%d0
760*4882a593Smuzhiyun
761*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
762*4882a593Smuzhiyun
763*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
764*4882a593Smuzhiyun
765*4882a593Smuzhiyun	movm.l		&0xffff,SREGS(%a6)
766*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
767*4882a593Smuzhiyun
768*4882a593Smuzhiyun	bsr.l		chkregs
769*4882a593Smuzhiyun	tst.b		%d0
770*4882a593Smuzhiyun	bne.l		error
771*4882a593Smuzhiyun
772*4882a593Smuzhiyun	bsr.l		chkfpregs
773*4882a593Smuzhiyun	tst.b		%d0
774*4882a593Smuzhiyun	bne.l		error
775*4882a593Smuzhiyun
776*4882a593Smuzhiyunfmovmx_2:
777*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
778*4882a593Smuzhiyun
779*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
780*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
781*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
782*4882a593Smuzhiyun
783*4882a593Smuzhiyun	fmov.b		&0x1,%fp0
784*4882a593Smuzhiyun	fmov.b		&0x2,%fp1
785*4882a593Smuzhiyun	fmov.b		&0x3,%fp2
786*4882a593Smuzhiyun	fmov.b		&0x4,%fp3
787*4882a593Smuzhiyun	fmov.b		&0x5,%fp4
788*4882a593Smuzhiyun	fmov.b		&0x6,%fp5
789*4882a593Smuzhiyun	fmov.b		&0x7,%fp6
790*4882a593Smuzhiyun	fmov.b		&0x8,%fp7
791*4882a593Smuzhiyun
792*4882a593Smuzhiyun	fmov.l		&0x0,%fpiar
793*4882a593Smuzhiyun	mov.l		&0xffffff00,%d0
794*4882a593Smuzhiyun
795*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
796*4882a593Smuzhiyun	movm.l		&0xffff,IREGS(%a6)
797*4882a593Smuzhiyun
798*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
799*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
800*4882a593Smuzhiyun
801*4882a593Smuzhiyun	mov.w		&0x0000,%cc
802*4882a593Smuzhiyun
803*4882a593Smuzhiyun	fmovm.x		%d0,-(%sp)
804*4882a593Smuzhiyun
805*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
806*4882a593Smuzhiyun
807*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
808*4882a593Smuzhiyun
809*4882a593Smuzhiyun	movm.l		&0xffff,SREGS(%a6)
810*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
811*4882a593Smuzhiyun
812*4882a593Smuzhiyun	bsr.l		chkregs
813*4882a593Smuzhiyun	tst.b		%d0
814*4882a593Smuzhiyun	bne.l		error
815*4882a593Smuzhiyun
816*4882a593Smuzhiyun	bsr.l		chkfpregs
817*4882a593Smuzhiyun	tst.b		%d0
818*4882a593Smuzhiyun	bne.l		error
819*4882a593Smuzhiyun
820*4882a593Smuzhiyun	clr.l		%d0
821*4882a593Smuzhiyun	rts
822*4882a593Smuzhiyun
823*4882a593Smuzhiyun###########################################################
824*4882a593Smuzhiyun
825*4882a593Smuzhiyun# This test will take a non-maskable overflow directly.
826*4882a593Smuzhiyunovfl_nm_str:
827*4882a593Smuzhiyun	string		"\tNon-maskable overflow..."
828*4882a593Smuzhiyun
829*4882a593Smuzhiyun	align		0x4
830*4882a593Smuzhiyunovfl_nm_0:
831*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
832*4882a593Smuzhiyun
833*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
834*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
835*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
836*4882a593Smuzhiyun
837*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
838*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
839*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
840*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
841*4882a593Smuzhiyun
842*4882a593Smuzhiyun	fmov.b		&0x2,%fp0
843*4882a593Smuzhiyun	mov.l		&0x7ffe0000,DATA+0x0(%a6)
844*4882a593Smuzhiyun	mov.l		&0x80000000,DATA+0x4(%a6)
845*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x8(%a6)
846*4882a593Smuzhiyun
847*4882a593Smuzhiyun	mov.w		&0x0000,%cc
848*4882a593Smuzhiyunovfl_nm_0_pc:
849*4882a593Smuzhiyun	fmul.x		DATA(%a6),%fp0
850*4882a593Smuzhiyun
851*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
852*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
853*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
854*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
855*4882a593Smuzhiyun
856*4882a593Smuzhiyun	mov.l		&0x7fff0000,IFPREGS+0x0(%a6)
857*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x4(%a6)
858*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
859*4882a593Smuzhiyun	mov.l		&0x02001048,IFPCREGS+0x4(%a6)
860*4882a593Smuzhiyun	lea		ovfl_nm_0_pc(%pc),%a0
861*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
862*4882a593Smuzhiyun
863*4882a593Smuzhiyun	bsr.l		chkregs
864*4882a593Smuzhiyun	tst.b		%d0
865*4882a593Smuzhiyun	bne.l		error
866*4882a593Smuzhiyun
867*4882a593Smuzhiyun	bsr.l		chkfpregs
868*4882a593Smuzhiyun	tst.b		%d0
869*4882a593Smuzhiyun	bne.l		error
870*4882a593Smuzhiyun
871*4882a593Smuzhiyun	clr.l		%d0
872*4882a593Smuzhiyun	rts
873*4882a593Smuzhiyun
874*4882a593Smuzhiyun###########################################################
875*4882a593Smuzhiyun
876*4882a593Smuzhiyun# This test will take an overflow directly.
877*4882a593Smuzhiyunovfl_str:
878*4882a593Smuzhiyun	string		"\tEnabled overflow..."
879*4882a593Smuzhiyun
880*4882a593Smuzhiyun	align		0x4
881*4882a593Smuzhiyunovfl_0:
882*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
883*4882a593Smuzhiyun
884*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
885*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
886*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
887*4882a593Smuzhiyun
888*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
889*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
890*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
891*4882a593Smuzhiyun	fmov.l		&0x00001000,%fpcr
892*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
893*4882a593Smuzhiyun
894*4882a593Smuzhiyun	fmov.b		&0x2,%fp0
895*4882a593Smuzhiyun	mov.l		&0x7ffe0000,DATA+0x0(%a6)
896*4882a593Smuzhiyun	mov.l		&0x80000000,DATA+0x4(%a6)
897*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x8(%a6)
898*4882a593Smuzhiyun
899*4882a593Smuzhiyun	mov.w		&0x0000,%cc
900*4882a593Smuzhiyunovfl_0_pc:
901*4882a593Smuzhiyun	fmul.x		DATA(%a6),%fp0
902*4882a593Smuzhiyun
903*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
904*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
905*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
906*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
907*4882a593Smuzhiyun
908*4882a593Smuzhiyun	mov.l		&0x7fff0000,IFPREGS+0x0(%a6)
909*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x4(%a6)
910*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
911*4882a593Smuzhiyun	mov.l		&0x02001048,IFPCREGS+0x4(%a6)
912*4882a593Smuzhiyun	lea		ovfl_0_pc(%pc),%a0
913*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
914*4882a593Smuzhiyun
915*4882a593Smuzhiyun	bsr.l		chkregs
916*4882a593Smuzhiyun	tst.b		%d0
917*4882a593Smuzhiyun	bne.l		error
918*4882a593Smuzhiyun
919*4882a593Smuzhiyun	bsr.l		chkfpregs
920*4882a593Smuzhiyun	tst.b		%d0
921*4882a593Smuzhiyun	bne.l		error
922*4882a593Smuzhiyun
923*4882a593Smuzhiyun	clr.l		%d0
924*4882a593Smuzhiyun	rts
925*4882a593Smuzhiyun
926*4882a593Smuzhiyun#####################################################################
927*4882a593Smuzhiyun
928*4882a593Smuzhiyun# This test will take an underflow directly.
929*4882a593Smuzhiyununfl_str:
930*4882a593Smuzhiyun	string		"\tEnabled underflow..."
931*4882a593Smuzhiyun
932*4882a593Smuzhiyun	align		0x4
933*4882a593Smuzhiyununfl_0:
934*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
935*4882a593Smuzhiyun
936*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
937*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
938*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
939*4882a593Smuzhiyun
940*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
941*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
942*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
943*4882a593Smuzhiyun	fmov.l		&0x00000800,%fpcr
944*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
945*4882a593Smuzhiyun
946*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x0(%a6)
947*4882a593Smuzhiyun	mov.l		&0x80000000,DATA+0x4(%a6)
948*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x8(%a6)
949*4882a593Smuzhiyun	fmovm.x		DATA(%a6),&0x80
950*4882a593Smuzhiyun
951*4882a593Smuzhiyun	mov.w		&0x0000,%cc
952*4882a593Smuzhiyununfl_0_pc:
953*4882a593Smuzhiyun	fdiv.b		&0x2,%fp0
954*4882a593Smuzhiyun
955*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
956*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
957*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
958*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
959*4882a593Smuzhiyun
960*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x0(%a6)
961*4882a593Smuzhiyun	mov.l		&0x40000000,IFPREGS+0x4(%a6)
962*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
963*4882a593Smuzhiyun	mov.l		&0x00000800,IFPCREGS+0x4(%a6)
964*4882a593Smuzhiyun	lea		unfl_0_pc(%pc),%a0
965*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
966*4882a593Smuzhiyun
967*4882a593Smuzhiyun	bsr.l		chkregs
968*4882a593Smuzhiyun	tst.b		%d0
969*4882a593Smuzhiyun	bne.l		error
970*4882a593Smuzhiyun
971*4882a593Smuzhiyun	bsr.l		chkfpregs
972*4882a593Smuzhiyun	tst.b		%d0
973*4882a593Smuzhiyun	bne.l		error
974*4882a593Smuzhiyun
975*4882a593Smuzhiyun	clr.l		%d0
976*4882a593Smuzhiyun	rts
977*4882a593Smuzhiyun
978*4882a593Smuzhiyun#####################################################################
979*4882a593Smuzhiyun
980*4882a593Smuzhiyun# This test will take a non-maskable underflow directly.
981*4882a593Smuzhiyununfl_nm_str:
982*4882a593Smuzhiyun	string		"\tNon-maskable underflow..."
983*4882a593Smuzhiyun
984*4882a593Smuzhiyun	align		0x4
985*4882a593Smuzhiyununfl_nm_0:
986*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
987*4882a593Smuzhiyun
988*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
989*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
990*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
991*4882a593Smuzhiyun
992*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
993*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
994*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
995*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
996*4882a593Smuzhiyun
997*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x0(%a6)
998*4882a593Smuzhiyun	mov.l		&0x80000000,DATA+0x4(%a6)
999*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x8(%a6)
1000*4882a593Smuzhiyun	fmovm.x		DATA(%a6),&0x80
1001*4882a593Smuzhiyun
1002*4882a593Smuzhiyun	mov.w		&0x0000,%cc
1003*4882a593Smuzhiyununfl_nm_0_pc:
1004*4882a593Smuzhiyun	fdiv.b		&0x2,%fp0
1005*4882a593Smuzhiyun
1006*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
1007*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
1008*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
1009*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1010*4882a593Smuzhiyun
1011*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x0(%a6)
1012*4882a593Smuzhiyun	mov.l		&0x40000000,IFPREGS+0x4(%a6)
1013*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
1014*4882a593Smuzhiyun	mov.l		&0x00000800,IFPCREGS+0x4(%a6)
1015*4882a593Smuzhiyun	lea		unfl_nm_0_pc(%pc),%a0
1016*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
1017*4882a593Smuzhiyun
1018*4882a593Smuzhiyun	bsr.l		chkregs
1019*4882a593Smuzhiyun	tst.b		%d0
1020*4882a593Smuzhiyun	bne.l		error
1021*4882a593Smuzhiyun
1022*4882a593Smuzhiyun	bsr.l		chkfpregs
1023*4882a593Smuzhiyun	tst.b		%d0
1024*4882a593Smuzhiyun	bne.l		error
1025*4882a593Smuzhiyun
1026*4882a593Smuzhiyun	clr.l		%d0
1027*4882a593Smuzhiyun	rts
1028*4882a593Smuzhiyun
1029*4882a593Smuzhiyun#####################################################################
1030*4882a593Smuzhiyun
1031*4882a593Smuzhiyuninex_str:
1032*4882a593Smuzhiyun	string		"\tEnabled inexact..."
1033*4882a593Smuzhiyun
1034*4882a593Smuzhiyun	align		0x4
1035*4882a593Smuzhiyuninex_0:
1036*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
1037*4882a593Smuzhiyun
1038*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
1039*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
1040*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1041*4882a593Smuzhiyun
1042*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
1043*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
1044*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
1045*4882a593Smuzhiyun	fmov.l		&0x00000200,%fpcr		# enable inexact
1046*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1047*4882a593Smuzhiyun
1048*4882a593Smuzhiyun	mov.l		&0x50000000,DATA+0x0(%a6)
1049*4882a593Smuzhiyun	mov.l		&0x80000000,DATA+0x4(%a6)
1050*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x8(%a6)
1051*4882a593Smuzhiyun	fmovm.x		DATA(%a6),&0x80
1052*4882a593Smuzhiyun
1053*4882a593Smuzhiyun	mov.w		&0x0000,%cc
1054*4882a593Smuzhiyuninex_0_pc:
1055*4882a593Smuzhiyun	fadd.b		&0x2,%fp0
1056*4882a593Smuzhiyun
1057*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
1058*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
1059*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
1060*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1061*4882a593Smuzhiyun
1062*4882a593Smuzhiyun	mov.l		&0x50000000,IFPREGS+0x0(%a6)
1063*4882a593Smuzhiyun	mov.l		&0x80000000,IFPREGS+0x4(%a6)
1064*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
1065*4882a593Smuzhiyun	mov.l		&0x00000208,IFPCREGS+0x4(%a6)
1066*4882a593Smuzhiyun	lea		inex_0_pc(%pc),%a0
1067*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
1068*4882a593Smuzhiyun
1069*4882a593Smuzhiyun	bsr.l		chkregs
1070*4882a593Smuzhiyun	tst.b		%d0
1071*4882a593Smuzhiyun	bne.l		error
1072*4882a593Smuzhiyun
1073*4882a593Smuzhiyun	bsr.l		chkfpregs
1074*4882a593Smuzhiyun	tst.b		%d0
1075*4882a593Smuzhiyun	bne.l		error
1076*4882a593Smuzhiyun
1077*4882a593Smuzhiyun	clr.l		%d0
1078*4882a593Smuzhiyun	rts
1079*4882a593Smuzhiyun
1080*4882a593Smuzhiyun#####################################################################
1081*4882a593Smuzhiyun
1082*4882a593Smuzhiyunsnan_str:
1083*4882a593Smuzhiyun	string		"\tEnabled SNAN..."
1084*4882a593Smuzhiyun
1085*4882a593Smuzhiyun	align		0x4
1086*4882a593Smuzhiyunsnan_0:
1087*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
1088*4882a593Smuzhiyun
1089*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
1090*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
1091*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1092*4882a593Smuzhiyun
1093*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
1094*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
1095*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
1096*4882a593Smuzhiyun	fmov.l		&0x00004000,%fpcr		# enable SNAN
1097*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1098*4882a593Smuzhiyun
1099*4882a593Smuzhiyun	mov.l		&0xffff0000,DATA+0x0(%a6)
1100*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x4(%a6)
1101*4882a593Smuzhiyun	mov.l		&0x00000001,DATA+0x8(%a6)
1102*4882a593Smuzhiyun	fmovm.x		DATA(%a6),&0x80
1103*4882a593Smuzhiyun
1104*4882a593Smuzhiyun	mov.w		&0x0000,%cc
1105*4882a593Smuzhiyunsnan_0_pc:
1106*4882a593Smuzhiyun	fadd.b		&0x2,%fp0
1107*4882a593Smuzhiyun
1108*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
1109*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
1110*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
1111*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1112*4882a593Smuzhiyun
1113*4882a593Smuzhiyun	mov.l		&0xffff0000,IFPREGS+0x0(%a6)
1114*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x4(%a6)
1115*4882a593Smuzhiyun	mov.l		&0x00000001,IFPREGS+0x8(%a6)
1116*4882a593Smuzhiyun	mov.l		&0x09004080,IFPCREGS+0x4(%a6)
1117*4882a593Smuzhiyun	lea		snan_0_pc(%pc),%a0
1118*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
1119*4882a593Smuzhiyun
1120*4882a593Smuzhiyun	bsr.l		chkregs
1121*4882a593Smuzhiyun	tst.b		%d0
1122*4882a593Smuzhiyun	bne.l		error
1123*4882a593Smuzhiyun
1124*4882a593Smuzhiyun	bsr.l		chkfpregs
1125*4882a593Smuzhiyun	tst.b		%d0
1126*4882a593Smuzhiyun	bne.l		error
1127*4882a593Smuzhiyun
1128*4882a593Smuzhiyun	clr.l		%d0
1129*4882a593Smuzhiyun	rts
1130*4882a593Smuzhiyun
1131*4882a593Smuzhiyun#####################################################################
1132*4882a593Smuzhiyun
1133*4882a593Smuzhiyunoperr_str:
1134*4882a593Smuzhiyun	string		"\tEnabled OPERR..."
1135*4882a593Smuzhiyun
1136*4882a593Smuzhiyun	align		0x4
1137*4882a593Smuzhiyunoperr_0:
1138*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
1139*4882a593Smuzhiyun
1140*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
1141*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
1142*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1143*4882a593Smuzhiyun
1144*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
1145*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
1146*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
1147*4882a593Smuzhiyun	fmov.l		&0x00002000,%fpcr		# enable OPERR
1148*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1149*4882a593Smuzhiyun
1150*4882a593Smuzhiyun	mov.l		&0xffff0000,DATA+0x0(%a6)
1151*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x4(%a6)
1152*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x8(%a6)
1153*4882a593Smuzhiyun	fmovm.x		DATA(%a6),&0x80
1154*4882a593Smuzhiyun
1155*4882a593Smuzhiyun	mov.w		&0x0000,%cc
1156*4882a593Smuzhiyunoperr_0_pc:
1157*4882a593Smuzhiyun	fadd.s		&0x7f800000,%fp0
1158*4882a593Smuzhiyun
1159*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
1160*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
1161*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
1162*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1163*4882a593Smuzhiyun
1164*4882a593Smuzhiyun	mov.l		&0xffff0000,IFPREGS+0x0(%a6)
1165*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x4(%a6)
1166*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
1167*4882a593Smuzhiyun	mov.l		&0x01002080,IFPCREGS+0x4(%a6)
1168*4882a593Smuzhiyun	lea		operr_0_pc(%pc),%a0
1169*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
1170*4882a593Smuzhiyun
1171*4882a593Smuzhiyun	bsr.l		chkregs
1172*4882a593Smuzhiyun	tst.b		%d0
1173*4882a593Smuzhiyun	bne.l		error
1174*4882a593Smuzhiyun
1175*4882a593Smuzhiyun	bsr.l		chkfpregs
1176*4882a593Smuzhiyun	tst.b		%d0
1177*4882a593Smuzhiyun	bne.l		error
1178*4882a593Smuzhiyun
1179*4882a593Smuzhiyun	clr.l		%d0
1180*4882a593Smuzhiyun	rts
1181*4882a593Smuzhiyun
1182*4882a593Smuzhiyun#####################################################################
1183*4882a593Smuzhiyun
1184*4882a593Smuzhiyundz_str:
1185*4882a593Smuzhiyun	string		"\tEnabled DZ..."
1186*4882a593Smuzhiyun
1187*4882a593Smuzhiyun	align		0x4
1188*4882a593Smuzhiyundz_0:
1189*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
1190*4882a593Smuzhiyun
1191*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
1192*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
1193*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1194*4882a593Smuzhiyun
1195*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
1196*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
1197*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
1198*4882a593Smuzhiyun	fmov.l		&0x00000400,%fpcr		# enable DZ
1199*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1200*4882a593Smuzhiyun
1201*4882a593Smuzhiyun	mov.l		&0x40000000,DATA+0x0(%a6)
1202*4882a593Smuzhiyun	mov.l		&0x80000000,DATA+0x4(%a6)
1203*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x8(%a6)
1204*4882a593Smuzhiyun	fmovm.x		DATA(%a6),&0x80
1205*4882a593Smuzhiyun
1206*4882a593Smuzhiyun	mov.w		&0x0000,%cc
1207*4882a593Smuzhiyundz_0_pc:
1208*4882a593Smuzhiyun	fdiv.b		&0x0,%fp0
1209*4882a593Smuzhiyun
1210*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
1211*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
1212*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
1213*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1214*4882a593Smuzhiyun
1215*4882a593Smuzhiyun	mov.l		&0x40000000,IFPREGS+0x0(%a6)
1216*4882a593Smuzhiyun	mov.l		&0x80000000,IFPREGS+0x4(%a6)
1217*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
1218*4882a593Smuzhiyun	mov.l		&0x02000410,IFPCREGS+0x4(%a6)
1219*4882a593Smuzhiyun	lea		dz_0_pc(%pc),%a0
1220*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
1221*4882a593Smuzhiyun
1222*4882a593Smuzhiyun	bsr.l		chkregs
1223*4882a593Smuzhiyun	tst.b		%d0
1224*4882a593Smuzhiyun	bne.l		error
1225*4882a593Smuzhiyun
1226*4882a593Smuzhiyun	bsr.l		chkfpregs
1227*4882a593Smuzhiyun	tst.b		%d0
1228*4882a593Smuzhiyun	bne.l		error
1229*4882a593Smuzhiyun
1230*4882a593Smuzhiyun	clr.l		%d0
1231*4882a593Smuzhiyun	rts
1232*4882a593Smuzhiyun
1233*4882a593Smuzhiyun#####################################################################
1234*4882a593Smuzhiyun
1235*4882a593Smuzhiyununsupp_str:
1236*4882a593Smuzhiyun	string		"\tUnimplemented data type/format..."
1237*4882a593Smuzhiyun
1238*4882a593Smuzhiyun# an unnormalized number
1239*4882a593Smuzhiyun	align		0x4
1240*4882a593Smuzhiyununsupp_0:
1241*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
1242*4882a593Smuzhiyun
1243*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
1244*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
1245*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1246*4882a593Smuzhiyun
1247*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
1248*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
1249*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
1250*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1251*4882a593Smuzhiyun
1252*4882a593Smuzhiyun	mov.l		&0xc03f0000,DATA+0x0(%a6)
1253*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x4(%a6)
1254*4882a593Smuzhiyun	mov.l		&0x00000001,DATA+0x8(%a6)
1255*4882a593Smuzhiyun	fmov.b		&0x2,%fp0
1256*4882a593Smuzhiyun	mov.w		&0x0000,%cc
1257*4882a593Smuzhiyununsupp_0_pc:
1258*4882a593Smuzhiyun	fmul.x		DATA(%a6),%fp0
1259*4882a593Smuzhiyun
1260*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
1261*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
1262*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
1263*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1264*4882a593Smuzhiyun
1265*4882a593Smuzhiyun	mov.l		&0xc0010000,IFPREGS+0x0(%a6)
1266*4882a593Smuzhiyun	mov.l		&0x80000000,IFPREGS+0x4(%a6)
1267*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
1268*4882a593Smuzhiyun	mov.l		&0x08000000,IFPCREGS+0x4(%a6)
1269*4882a593Smuzhiyun	lea		unsupp_0_pc(%pc),%a0
1270*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
1271*4882a593Smuzhiyun
1272*4882a593Smuzhiyun	bsr.l		chkregs
1273*4882a593Smuzhiyun	tst.b		%d0
1274*4882a593Smuzhiyun	bne.l		error
1275*4882a593Smuzhiyun
1276*4882a593Smuzhiyun	bsr.l		chkfpregs
1277*4882a593Smuzhiyun	tst.b		%d0
1278*4882a593Smuzhiyun	bne.l		error
1279*4882a593Smuzhiyun
1280*4882a593Smuzhiyun# a denormalized number
1281*4882a593Smuzhiyununsupp_1:
1282*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
1283*4882a593Smuzhiyun
1284*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
1285*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
1286*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1287*4882a593Smuzhiyun
1288*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
1289*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
1290*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
1291*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1292*4882a593Smuzhiyun
1293*4882a593Smuzhiyun	mov.l		&0x80000000,DATA+0x0(%a6)
1294*4882a593Smuzhiyun	mov.l		&0x01000000,DATA+0x4(%a6)
1295*4882a593Smuzhiyun	mov.l		&0x00000000,DATA+0x8(%a6)
1296*4882a593Smuzhiyun	fmov.l		&0x7fffffff,%fp0
1297*4882a593Smuzhiyun
1298*4882a593Smuzhiyun	mov.w		&0x0000,%cc
1299*4882a593Smuzhiyununsupp_1_pc:
1300*4882a593Smuzhiyun	fmul.x		DATA(%a6),%fp0
1301*4882a593Smuzhiyun
1302*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
1303*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
1304*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
1305*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1306*4882a593Smuzhiyun
1307*4882a593Smuzhiyun	mov.l		&0x80170000,IFPREGS+0x0(%a6)
1308*4882a593Smuzhiyun	mov.l		&0xfffffffe,IFPREGS+0x4(%a6)
1309*4882a593Smuzhiyun	mov.l		&0x00000000,IFPREGS+0x8(%a6)
1310*4882a593Smuzhiyun	mov.l		&0x08000000,IFPCREGS+0x4(%a6)
1311*4882a593Smuzhiyun	lea		unsupp_1_pc(%pc),%a0
1312*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
1313*4882a593Smuzhiyun
1314*4882a593Smuzhiyun	bsr.l		chkregs
1315*4882a593Smuzhiyun	tst.b		%d0
1316*4882a593Smuzhiyun	bne.l		error
1317*4882a593Smuzhiyun
1318*4882a593Smuzhiyun	bsr.l		chkfpregs
1319*4882a593Smuzhiyun	tst.b		%d0
1320*4882a593Smuzhiyun	bne.l		error
1321*4882a593Smuzhiyun
1322*4882a593Smuzhiyun# packed
1323*4882a593Smuzhiyununsupp_2:
1324*4882a593Smuzhiyun	addq.l		&0x1,TESTCTR(%a6)
1325*4882a593Smuzhiyun
1326*4882a593Smuzhiyun	movm.l		DEF_REGS(%pc),&0x3fff
1327*4882a593Smuzhiyun	fmovm.x		DEF_FPREGS(%pc),&0xff
1328*4882a593Smuzhiyun	fmovm.l		DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1329*4882a593Smuzhiyun
1330*4882a593Smuzhiyun	mov.w		&0x0000,ICCR(%a6)
1331*4882a593Smuzhiyun	movm.l		&0x7fff,IREGS(%a6)
1332*4882a593Smuzhiyun	fmovm.x		&0xff,IFPREGS(%a6)
1333*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1334*4882a593Smuzhiyun
1335*4882a593Smuzhiyun	mov.l		&0xc1230001,DATA+0x0(%a6)
1336*4882a593Smuzhiyun	mov.l		&0x23456789,DATA+0x4(%a6)
1337*4882a593Smuzhiyun	mov.l		&0x12345678,DATA+0x8(%a6)
1338*4882a593Smuzhiyun
1339*4882a593Smuzhiyun	mov.w		&0x0000,%cc
1340*4882a593Smuzhiyununsupp_2_pc:
1341*4882a593Smuzhiyun	fabs.p		DATA(%a6),%fp0
1342*4882a593Smuzhiyun
1343*4882a593Smuzhiyun	mov.w		%cc,SCCR(%a6)
1344*4882a593Smuzhiyun	movm.l		&0x7fff,SREGS(%a6)
1345*4882a593Smuzhiyun	fmovm.x		&0xff,SFPREGS(%a6)
1346*4882a593Smuzhiyun	fmovm.l		%fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1347*4882a593Smuzhiyun
1348*4882a593Smuzhiyun	mov.l		&0x3e660000,IFPREGS+0x0(%a6)
1349*4882a593Smuzhiyun	mov.l		&0xd0ed23e8,IFPREGS+0x4(%a6)
1350*4882a593Smuzhiyun	mov.l		&0xd14035bc,IFPREGS+0x8(%a6)
1351*4882a593Smuzhiyun	mov.l		&0x00000108,IFPCREGS+0x4(%a6)
1352*4882a593Smuzhiyun	lea		unsupp_2_pc(%pc),%a0
1353*4882a593Smuzhiyun	mov.l		%a0,IFPCREGS+0x8(%a6)
1354*4882a593Smuzhiyun
1355*4882a593Smuzhiyun	bsr.l		chkregs
1356*4882a593Smuzhiyun	tst.b		%d0
1357*4882a593Smuzhiyun	bne.l		error
1358*4882a593Smuzhiyun
1359*4882a593Smuzhiyun	bsr.l		chkfpregs
1360*4882a593Smuzhiyun	tst.b		%d0
1361*4882a593Smuzhiyun	bne.l		error
1362*4882a593Smuzhiyun
1363*4882a593Smuzhiyun	clr.l		%d0
1364*4882a593Smuzhiyun	rts
1365*4882a593Smuzhiyun
1366*4882a593Smuzhiyun###########################################################
1367*4882a593Smuzhiyun###########################################################
1368*4882a593Smuzhiyun
1369*4882a593Smuzhiyunchkregs:
1370*4882a593Smuzhiyun	lea		IREGS(%a6),%a0
1371*4882a593Smuzhiyun	lea		SREGS(%a6),%a1
1372*4882a593Smuzhiyun	mov.l		&14,%d0
1373*4882a593Smuzhiyunchkregs_loop:
1374*4882a593Smuzhiyun	cmp.l		(%a0)+,(%a1)+
1375*4882a593Smuzhiyun	bne.l		chkregs_error
1376*4882a593Smuzhiyun	dbra.w		%d0,chkregs_loop
1377*4882a593Smuzhiyun
1378*4882a593Smuzhiyun	mov.w		ICCR(%a6),%d0
1379*4882a593Smuzhiyun	mov.w		SCCR(%a6),%d1
1380*4882a593Smuzhiyun	cmp.w		%d0,%d1
1381*4882a593Smuzhiyun	bne.l		chkregs_error
1382*4882a593Smuzhiyun
1383*4882a593Smuzhiyun	clr.l		%d0
1384*4882a593Smuzhiyun	rts
1385*4882a593Smuzhiyun
1386*4882a593Smuzhiyunchkregs_error:
1387*4882a593Smuzhiyun	movq.l		&0x1,%d0
1388*4882a593Smuzhiyun	rts
1389*4882a593Smuzhiyun
1390*4882a593Smuzhiyunerror:
1391*4882a593Smuzhiyun	mov.l		TESTCTR(%a6),%d1
1392*4882a593Smuzhiyun	movq.l		&0x1,%d0
1393*4882a593Smuzhiyun	rts
1394*4882a593Smuzhiyun
1395*4882a593Smuzhiyunchkfpregs:
1396*4882a593Smuzhiyun	lea		IFPREGS(%a6),%a0
1397*4882a593Smuzhiyun	lea		SFPREGS(%a6),%a1
1398*4882a593Smuzhiyun	mov.l		&23,%d0
1399*4882a593Smuzhiyunchkfpregs_loop:
1400*4882a593Smuzhiyun	cmp.l		(%a0)+,(%a1)+
1401*4882a593Smuzhiyun	bne.l		chkfpregs_error
1402*4882a593Smuzhiyun	dbra.w		%d0,chkfpregs_loop
1403*4882a593Smuzhiyun
1404*4882a593Smuzhiyun	lea		IFPCREGS(%a6),%a0
1405*4882a593Smuzhiyun	lea		SFPCREGS(%a6),%a1
1406*4882a593Smuzhiyun	cmp.l		(%a0)+,(%a1)+
1407*4882a593Smuzhiyun	bne.l		chkfpregs_error
1408*4882a593Smuzhiyun	cmp.l		(%a0)+,(%a1)+
1409*4882a593Smuzhiyun	bne.l		chkfpregs_error
1410*4882a593Smuzhiyun	cmp.l		(%a0)+,(%a1)+
1411*4882a593Smuzhiyun	bne.l		chkfpregs_error
1412*4882a593Smuzhiyun
1413*4882a593Smuzhiyun	clr.l		%d0
1414*4882a593Smuzhiyun	rts
1415*4882a593Smuzhiyun
1416*4882a593Smuzhiyunchkfpregs_error:
1417*4882a593Smuzhiyun	movq.l		&0x1,%d0
1418*4882a593Smuzhiyun	rts
1419*4882a593Smuzhiyun
1420*4882a593SmuzhiyunDEF_REGS:
1421*4882a593Smuzhiyun	long		0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac
1422*4882a593Smuzhiyun	long		0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac
1423*4882a593Smuzhiyun
1424*4882a593Smuzhiyun	long		0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac
1425*4882a593Smuzhiyun	long		0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac
1426*4882a593Smuzhiyun
1427*4882a593SmuzhiyunDEF_FPREGS:
1428*4882a593Smuzhiyun	long		0x7fff0000, 0xffffffff, 0xffffffff
1429*4882a593Smuzhiyun	long		0x7fff0000, 0xffffffff, 0xffffffff
1430*4882a593Smuzhiyun	long		0x7fff0000, 0xffffffff, 0xffffffff
1431*4882a593Smuzhiyun	long		0x7fff0000, 0xffffffff, 0xffffffff
1432*4882a593Smuzhiyun	long		0x7fff0000, 0xffffffff, 0xffffffff
1433*4882a593Smuzhiyun	long		0x7fff0000, 0xffffffff, 0xffffffff
1434*4882a593Smuzhiyun	long		0x7fff0000, 0xffffffff, 0xffffffff
1435*4882a593Smuzhiyun	long		0x7fff0000, 0xffffffff, 0xffffffff
1436*4882a593Smuzhiyun
1437*4882a593SmuzhiyunDEF_FPCREGS:
1438*4882a593Smuzhiyun	long		0x00000000, 0x00000000, 0x00000000
1439*4882a593Smuzhiyun
1440*4882a593Smuzhiyun############################################################
1441*4882a593Smuzhiyun
1442*4882a593Smuzhiyun_print_str:
1443*4882a593Smuzhiyun	mov.l		%d0,-(%sp)
1444*4882a593Smuzhiyun	mov.l		(TESTTOP-0x80+0x0,%pc),%d0
1445*4882a593Smuzhiyun	pea		(TESTTOP-0x80,%pc,%d0)
1446*4882a593Smuzhiyun	mov.l		0x4(%sp),%d0
1447*4882a593Smuzhiyun	rtd		&0x4
1448*4882a593Smuzhiyun
1449*4882a593Smuzhiyun_print_num:
1450*4882a593Smuzhiyun	mov.l		%d0,-(%sp)
1451*4882a593Smuzhiyun	mov.l		(TESTTOP-0x80+0x4,%pc),%d0
1452*4882a593Smuzhiyun	pea		(TESTTOP-0x80,%pc,%d0)
1453*4882a593Smuzhiyun	mov.l		0x4(%sp),%d0
1454*4882a593Smuzhiyun	rtd		&0x4
1455*4882a593Smuzhiyun
1456*4882a593Smuzhiyun############################################################
1457