[pcsx_rearmed.git] / deps / lightning / check / fma.tst

.data		32
ok:
.c		"ok"

.code
	prolog

	/* Simple encoding test for all different registers */
	movi_f %f0 0.0
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fmar_f %f0 %f1 %f2 %f3
	beqi_f fa0 %f0 10.0
	calli @abort
fa0:
	movi_d %f0 0.0
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fmar_d %f0 %f1 %f2 %f3
	beqi_d da0 %f0 26.0
	calli @abort
da0:
	movi_f %f0 0.0
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fmsr_f %f0 %f1 %f2 %f3
	beqi_f fs0 %f0 2.0
	calli @abort
fs0:
	movi_d %f0 0.0
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fmsr_d %f0 %f1 %f2 %f3
	beqi_d ds0 %f0 14.0
	calli @abort
ds0:

	/* Simple encoding test for result also first argument */
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fmar_f %f1 %f1 %f2 %f3
	beqi_f fa1 %f1 10.0
	calli @abort
fa1:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fmar_d %f1 %f1 %f2 %f3
	beqi_d da1 %f1 26.0
	calli @abort
da1:
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fmsr_f %f1 %f1 %f2 %f3
	beqi_f fs1 %f1 2.0
	calli @abort
fs1:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fmsr_d %f1 %f1 %f2 %f3
	beqi_d ds1 %f1 14.0
	calli @abort
ds1:

	/* Simple encoding test for result also second argument */
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fmar_f %f2 %f1 %f2 %f3
	beqi_f fa2 %f2 10.0
	calli @abort
fa2:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fmar_d %f2 %f1 %f2 %f3
	beqi_d da2 %f2 26.0
	calli @abort
da2:
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fmsr_f %f2 %f1 %f2 %f3
	beqi_f fs2 %f2 2.0
	calli @abort
fs2:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fmsr_d %f2 %f1 %f2 %f3
	beqi_d ds2 %f2 14.0
	calli @abort
ds2:

	/* Simple encoding test for result also third argument */
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fmar_f %f3 %f1 %f2 %f3
	beqi_f fa3 %f3 10.0
	calli @abort
fa3:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fmar_d %f3 %f1 %f2 %f3
	beqi_d da3 %f3 26.0
	calli @abort
da3:
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fmsr_f %f3 %f1 %f2 %f3
	beqi_f fs3 %f3 2.0
	calli @abort
fs3:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fmsr_d %f3 %f1 %f2 %f3
	beqi_d ds3 %f3 14.0
	calli @abort
ds3:

	/* Simple encoding test for all different registers */
	movi_f %f0 0.0
	movi_f %f1 2.0
	movi_f %f2 3.0
	fmai_f %f0 %f1 %f2 4.0
	beqi_f fai0 %f0 10.0
	calli @abort
fai0:
	movi_d %f0 0.0
	movi_d %f1 4.0
	movi_d %f2 5.0
	fmai_d %f0 %f1 %f2 6.0
	beqi_d dai0 %f0 26.0
	calli @abort
dai0:
	movi_f %f0 0.0
	movi_f %f1 2.0
	movi_f %f2 3.0
	fmsi_f %f0 %f1 %f2 4.0
	beqi_f fsi0 %f0 2.0
	calli @abort
fsi0:
	movi_d %f0 0.0
	movi_d %f1 4.0
	movi_d %f2 5.0
	fmsi_d %f0 %f1 %f2 6.0
	beqi_d dsi0 %f0 14.0
	calli @abort
dsi0:

	/* Simple encoding test for result also first argument */
	movi_f %f1 2.0
	movi_f %f2 3.0
	fmai_f %f1 %f1 %f2 4.0
	beqi_f fai1 %f1 10.0
	calli @abort
fai1:
	movi_d %f1 4.0
	movi_d %f2 5.0
	fmai_d %f1 %f1 %f2 6.0
	beqi_d dai1 %f1 26.0
	calli @abort
dai1:
	movi_f %f1 2.0
	movi_f %f2 3.0
	fmsi_f %f1 %f1 %f2 4.0
	beqi_f fsi1 %f1 2.0
	calli @abort
fsi1:
	movi_d %f1 4.0
	movi_d %f2 5.0
	fmsi_d %f1 %f1 %f2 6.0
	beqi_d dsi1 %f1 14.0
	calli @abort
dsi1:

	/* Simple encoding test for result also second argument */
	movi_f %f1 2.0
	movi_f %f2 3.0
	fmai_f %f2 %f1 %f2 4.0
	beqi_f fai2 %f2 10.0
	calli @abort
fai2:
	movi_d %f1 4.0
	movi_d %f2 5.0
	fmai_d %f2 %f1 %f2 6.0
	beqi_d dai2 %f2 26.0
	calli @abort
dai2:
	movi_f %f1 2.0
	movi_f %f2 3.0
	fmsi_f %f2 %f1 %f2 4.0
	beqi_f fsi2 %f2 2.0
	calli @abort
fsi2:
	movi_d %f1 4.0
	movi_d %f2 5.0
	fmsi_d %f2 %f1 %f2 6.0
	beqi_d dsi2 %f2 14.0
	calli @abort
dsi2:

	/* Simple encoding test for all different registers */
	movi_f %f0 0.0
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fnmar_f %f0 %f1 %f2 %f3
	beqi_f fna0 %f0 -10.0
	calli @abort
fna0:
	movi_d %f0 0.0
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fnmar_d %f0 %f1 %f2 %f3
	beqi_d dna0 %f0 -26.0
	calli @abort
dna0:
	movi_f %f0 0.0
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fnmsr_f %f0 %f1 %f2 %f3
	beqi_f fns0 %f0 -2.0
	calli @abort
fns0:
	movi_d %f0 0.0
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fnmsr_d %f0 %f1 %f2 %f3
	beqi_d dns0 %f0 -14.0
	calli @abort
dns0:

	/* Simple encoding test for result also first argument */
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fnmar_f %f1 %f1 %f2 %f3
	beqi_f fna1 %f1 -10.0
	calli @abort
fna1:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fnmar_d %f1 %f1 %f2 %f3
	beqi_d dna1 %f1 -26.0
	calli @abort
dna1:
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fnmsr_f %f1 %f1 %f2 %f3
	beqi_f fns1 %f1 -2.0
	calli @abort
fns1:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fnmsr_d %f1 %f1 %f2 %f3
	beqi_d dns1 %f1 -14.0
	calli @abort
dns1:

	/* Simple encoding test for result also second argument */
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fnmar_f %f2 %f1 %f2 %f3
	beqi_f fna2 %f2 -10.0
	calli @abort
fna2:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fnmar_d %f2 %f1 %f2 %f3
	beqi_d dna2 %f2 -26.0
	calli @abort
dna2:
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fnmsr_f %f2 %f1 %f2 %f3
	beqi_f fns2 %f2 -2.0
	calli @abort
fns2:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fnmsr_d %f2 %f1 %f2 %f3
	beqi_d dns2 %f2 -14.0
	calli @abort
dns2:

	/* Simple encoding test for result also third argument */
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fnmsr_f %f3 %f1 %f2 %f3
	beqi_f fns3 %f3 -2.0
	calli @abort
fns3:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fnmsr_d %f3 %f1 %f2 %f3
	beqi_d dns3 %f3 -14.0
	calli @abort
dns3:
	movi_f %f1 2.0
	movi_f %f2 3.0
	movi_f %f3 4.0
	fnmar_f %f3 %f1 %f2 %f3
	beqi_f fna3 %f3 -10.0
	calli @abort
fna3:
	movi_d %f1 4.0
	movi_d %f2 5.0
	movi_d %f3 6.0
	fnmar_d %f3 %f1 %f2 %f3
	beqi_d dna3 %f3 -26.0
	calli @abort
dna3:

	/* Simple encoding test for all different registers */
	movi_f %f0 0.0
	movi_f %f1 2.0
	movi_f %f2 3.0
	fnmai_f %f0 %f1 %f2 4.0
	beqi_f fnai0 %f0 -10.0
	calli @abort
fnai0:
	movi_d %f0 0.0
	movi_d %f1 4.0
	movi_d %f2 5.0
	fnmai_d %f0 %f1 %f2 6.0
	beqi_d dnai0 %f0 -26.0
	calli @abort
dnai0:
	movi_f %f0 0.0
	movi_f %f1 2.0
	movi_f %f2 3.0
	fnmsi_f %f0 %f1 %f2 4.0
	beqi_f fnsi0 %f0 -2.0
	calli @abort
fnsi0:
	movi_d %f0 0.0
	movi_d %f1 4.0
	movi_d %f2 5.0
	fnmsi_d %f0 %f1 %f2 6.0
	beqi_d dnsi0 %f0 -14.0
	calli @abort
dnsi0:

	/* Simple encoding test for result also first argument */
	movi_f %f1 2.0
	movi_f %f2 3.0
	fnmai_f %f1 %f1 %f2 4.0
	beqi_f fnai1 %f1 -10.0
	calli @abort
fnai1:
	movi_d %f1 4.0
	movi_d %f2 5.0
	fnmai_d %f1 %f1 %f2 6.0
	beqi_d dnai1 %f1 -26.0
	calli @abort
dnai1:
	movi_f %f1 2.0
	movi_f %f2 3.0
	fnmsi_f %f1 %f1 %f2 4.0
	beqi_f fnsi1 %f1 -2.0
	calli @abort
fnsi1:
	movi_d %f1 4.0
	movi_d %f2 5.0
	fnmsi_d %f1 %f1 %f2 6.0
	beqi_d dnsi1 %f1 -14.0
	calli @abort
dnsi1:

	/* Simple encoding test for result also second argument */
	movi_f %f1 2.0
	movi_f %f2 3.0
	fnmai_f %f2 %f1 %f2 4.0
	beqi_f fnai2 %f2 -10.0
	calli @abort
fnai2:
	movi_d %f1 4.0
	movi_d %f2 5.0
	fnmai_d %f2 %f1 %f2 6.0
	beqi_d dnai2 %f2 -26.0
	calli @abort
dnai2:
	movi_f %f1 2.0
	movi_f %f2 3.0
	fnmsi_f %f2 %f1 %f2 4.0
	beqi_f fnsi2 %f2 -2.0
	calli @abort
fnsi2:
	movi_d %f1 4.0
	movi_d %f2 5.0
	fnmsi_d %f2 %f1 %f2 6.0
	beqi_d dnsi2 %f2 -14.0
	calli @abort
dnsi2:

	prepare
		pushargi ok
	finishi @puts

	ret
	epilog
Commit	Line	Data
ba86ff93 PC	1	.data 32
	2	ok:
	3	.c "ok"
	4
	5	.code
	6	prolog
	7
	8	/* Simple encoding test for all different registers */
	9	movi_f %f0 0.0
	10	movi_f %f1 2.0
	11	movi_f %f2 3.0
	12	movi_f %f3 4.0
	13	fmar_f %f0 %f1 %f2 %f3
	14	beqi_f fa0 %f0 10.0
	15	calli @abort
	16	fa0:
	17	movi_d %f0 0.0
	18	movi_d %f1 4.0
	19	movi_d %f2 5.0
	20	movi_d %f3 6.0
	21	fmar_d %f0 %f1 %f2 %f3
	22	beqi_d da0 %f0 26.0
	23	calli @abort
	24	da0:
	25	movi_f %f0 0.0
	26	movi_f %f1 2.0
	27	movi_f %f2 3.0
	28	movi_f %f3 4.0
	29	fmsr_f %f0 %f1 %f2 %f3
	30	beqi_f fs0 %f0 2.0
	31	calli @abort
	32	fs0:
	33	movi_d %f0 0.0
	34	movi_d %f1 4.0
	35	movi_d %f2 5.0
	36	movi_d %f3 6.0
	37	fmsr_d %f0 %f1 %f2 %f3
	38	beqi_d ds0 %f0 14.0
	39	calli @abort
	40	ds0:
	41
	42	/* Simple encoding test for result also first argument */
	43	movi_f %f1 2.0
	44	movi_f %f2 3.0
	45	movi_f %f3 4.0
	46	fmar_f %f1 %f1 %f2 %f3
	47	beqi_f fa1 %f1 10.0
	48	calli @abort
	49	fa1:
	50	movi_d %f1 4.0
	51	movi_d %f2 5.0
	52	movi_d %f3 6.0
	53	fmar_d %f1 %f1 %f2 %f3
	54	beqi_d da1 %f1 26.0
	55	calli @abort
	56	da1:
	57	movi_f %f1 2.0
	58	movi_f %f2 3.0
	59	movi_f %f3 4.0
	60	fmsr_f %f1 %f1 %f2 %f3
	61	beqi_f fs1 %f1 2.0
	62	calli @abort
	63	fs1:
	64	movi_d %f1 4.0
65	movi_d %f2 5.0
66	movi_d %f3 6.0
67	fmsr_d %f1 %f1 %f2 %f3
68	beqi_d ds1 %f1 14.0
69	calli @abort
70	ds1:
71
72	/* Simple encoding test for result also second argument */
73	movi_f %f1 2.0
74	movi_f %f2 3.0
75	movi_f %f3 4.0
76	fmar_f %f2 %f1 %f2 %f3
77	beqi_f fa2 %f2 10.0
78	calli @abort
79	fa2:
80	movi_d %f1 4.0
81	movi_d %f2 5.0
82	movi_d %f3 6.0
83	fmar_d %f2 %f1 %f2 %f3
84	beqi_d da2 %f2 26.0
85	calli @abort
86	da2:
87	movi_f %f1 2.0
88	movi_f %f2 3.0
89	movi_f %f3 4.0
90	fmsr_f %f2 %f1 %f2 %f3
91	beqi_f fs2 %f2 2.0
92	calli @abort
93	fs2:
94	movi_d %f1 4.0
95	movi_d %f2 5.0
96	movi_d %f3 6.0
97	fmsr_d %f2 %f1 %f2 %f3
98	beqi_d ds2 %f2 14.0
99	calli @abort
100	ds2:
101
102	/* Simple encoding test for result also third argument */
103	movi_f %f1 2.0
104	movi_f %f2 3.0
105	movi_f %f3 4.0
106	fmar_f %f3 %f1 %f2 %f3
107	beqi_f fa3 %f3 10.0
108	calli @abort
109	fa3:
110	movi_d %f1 4.0
111	movi_d %f2 5.0
112	movi_d %f3 6.0
113	fmar_d %f3 %f1 %f2 %f3
114	beqi_d da3 %f3 26.0
115	calli @abort
116	da3:
117	movi_f %f1 2.0
118	movi_f %f2 3.0
119	movi_f %f3 4.0
120	fmsr_f %f3 %f1 %f2 %f3
121	beqi_f fs3 %f3 2.0
122	calli @abort
123	fs3:
124	movi_d %f1 4.0
125	movi_d %f2 5.0
126	movi_d %f3 6.0
127	fmsr_d %f3 %f1 %f2 %f3
128	beqi_d ds3 %f3 14.0
129	calli @abort
130	ds3:
131
132	/* Simple encoding test for all different registers */
133	movi_f %f0 0.0
134	movi_f %f1 2.0
135	movi_f %f2 3.0
136	fmai_f %f0 %f1 %f2 4.0
137	beqi_f fai0 %f0 10.0
138	calli @abort
139	fai0:
140	movi_d %f0 0.0
141	movi_d %f1 4.0
142	movi_d %f2 5.0
143	fmai_d %f0 %f1 %f2 6.0
144	beqi_d dai0 %f0 26.0
145	calli @abort
146	dai0:
147	movi_f %f0 0.0
148	movi_f %f1 2.0
149	movi_f %f2 3.0
150	fmsi_f %f0 %f1 %f2 4.0
151	beqi_f fsi0 %f0 2.0
152	calli @abort
153	fsi0:
154	movi_d %f0 0.0
155	movi_d %f1 4.0
156	movi_d %f2 5.0
157	fmsi_d %f0 %f1 %f2 6.0
158	beqi_d dsi0 %f0 14.0
159	calli @abort
160	dsi0:
161
162	/* Simple encoding test for result also first argument */
163	movi_f %f1 2.0
164	movi_f %f2 3.0
165	fmai_f %f1 %f1 %f2 4.0
166	beqi_f fai1 %f1 10.0
167	calli @abort
168	fai1:
169	movi_d %f1 4.0
170	movi_d %f2 5.0
171	fmai_d %f1 %f1 %f2 6.0
172	beqi_d dai1 %f1 26.0
173	calli @abort
174	dai1:
175	movi_f %f1 2.0
176	movi_f %f2 3.0
177	fmsi_f %f1 %f1 %f2 4.0
178	beqi_f fsi1 %f1 2.0
179	calli @abort
180	fsi1:
181	movi_d %f1 4.0
182	movi_d %f2 5.0
183	fmsi_d %f1 %f1 %f2 6.0
184	beqi_d dsi1 %f1 14.0
185	calli @abort
186	dsi1:
187
188	/* Simple encoding test for result also second argument */
189	movi_f %f1 2.0
190	movi_f %f2 3.0
191	fmai_f %f2 %f1 %f2 4.0
192	beqi_f fai2 %f2 10.0
193	calli @abort
194	fai2:
195	movi_d %f1 4.0
196	movi_d %f2 5.0
197	fmai_d %f2 %f1 %f2 6.0
198	beqi_d dai2 %f2 26.0
199	calli @abort
200	dai2:
201	movi_f %f1 2.0
202	movi_f %f2 3.0
203	fmsi_f %f2 %f1 %f2 4.0
204	beqi_f fsi2 %f2 2.0
205	calli @abort
206	fsi2:
207	movi_d %f1 4.0
208	movi_d %f2 5.0
209	fmsi_d %f2 %f1 %f2 6.0
210	beqi_d dsi2 %f2 14.0
211	calli @abort
212	dsi2:
213
214	/* Simple encoding test for all different registers */
215	movi_f %f0 0.0
216	movi_f %f1 2.0
217	movi_f %f2 3.0
218	movi_f %f3 4.0
219	fnmar_f %f0 %f1 %f2 %f3
220	beqi_f fna0 %f0 -10.0
221	calli @abort
222	fna0:
223	movi_d %f0 0.0
224	movi_d %f1 4.0
225	movi_d %f2 5.0
226	movi_d %f3 6.0
227	fnmar_d %f0 %f1 %f2 %f3
228	beqi_d dna0 %f0 -26.0
229	calli @abort
230	dna0:
231	movi_f %f0 0.0
232	movi_f %f1 2.0
233	movi_f %f2 3.0
234	movi_f %f3 4.0
235	fnmsr_f %f0 %f1 %f2 %f3
236	beqi_f fns0 %f0 -2.0
237	calli @abort
238	fns0:
239	movi_d %f0 0.0
240	movi_d %f1 4.0
241	movi_d %f2 5.0
242	movi_d %f3 6.0
243	fnmsr_d %f0 %f1 %f2 %f3
244	beqi_d dns0 %f0 -14.0
245	calli @abort
246	dns0:
247
248	/* Simple encoding test for result also first argument */
249	movi_f %f1 2.0
250	movi_f %f2 3.0
251	movi_f %f3 4.0
252	fnmar_f %f1 %f1 %f2 %f3
253	beqi_f fna1 %f1 -10.0
254	calli @abort
255	fna1:
256	movi_d %f1 4.0
257	movi_d %f2 5.0
258	movi_d %f3 6.0
259	fnmar_d %f1 %f1 %f2 %f3
260	beqi_d dna1 %f1 -26.0
261	calli @abort
262	dna1:
263	movi_f %f1 2.0
264	movi_f %f2 3.0
265	movi_f %f3 4.0
266	fnmsr_f %f1 %f1 %f2 %f3
267	beqi_f fns1 %f1 -2.0
268	calli @abort
269	fns1:
270	movi_d %f1 4.0
271	movi_d %f2 5.0
272	movi_d %f3 6.0
273	fnmsr_d %f1 %f1 %f2 %f3
274	beqi_d dns1 %f1 -14.0
275	calli @abort
276	dns1:
277
278	/* Simple encoding test for result also second argument */
279	movi_f %f1 2.0
280	movi_f %f2 3.0
281	movi_f %f3 4.0
282	fnmar_f %f2 %f1 %f2 %f3
283	beqi_f fna2 %f2 -10.0
284	calli @abort
285	fna2:
286	movi_d %f1 4.0
287	movi_d %f2 5.0
288	movi_d %f3 6.0
289	fnmar_d %f2 %f1 %f2 %f3
290	beqi_d dna2 %f2 -26.0
291	calli @abort
292	dna2:
293	movi_f %f1 2.0
294	movi_f %f2 3.0
295	movi_f %f3 4.0
296	fnmsr_f %f2 %f1 %f2 %f3
297	beqi_f fns2 %f2 -2.0
298	calli @abort
299	fns2:
300	movi_d %f1 4.0
301	movi_d %f2 5.0
302	movi_d %f3 6.0
303	fnmsr_d %f2 %f1 %f2 %f3
304	beqi_d dns2 %f2 -14.0
305	calli @abort
306	dns2:
307
308	/* Simple encoding test for result also third argument */
309	movi_f %f1 2.0
310	movi_f %f2 3.0
311	movi_f %f3 4.0
312	fnmsr_f %f3 %f1 %f2 %f3
313	beqi_f fns3 %f3 -2.0
314	calli @abort
315	fns3:
316	movi_d %f1 4.0
317	movi_d %f2 5.0
318	movi_d %f3 6.0
319	fnmsr_d %f3 %f1 %f2 %f3
320	beqi_d dns3 %f3 -14.0
321	calli @abort
322	dns3:
323	movi_f %f1 2.0
324	movi_f %f2 3.0
325	movi_f %f3 4.0
326	fnmar_f %f3 %f1 %f2 %f3
327	beqi_f fna3 %f3 -10.0
328	calli @abort
329	fna3:
330	movi_d %f1 4.0
331	movi_d %f2 5.0
332	movi_d %f3 6.0
333	fnmar_d %f3 %f1 %f2 %f3
334	beqi_d dna3 %f3 -26.0
335	calli @abort
336	dna3:
337
338	/* Simple encoding test for all different registers */
339	movi_f %f0 0.0
340	movi_f %f1 2.0
341	movi_f %f2 3.0
342	fnmai_f %f0 %f1 %f2 4.0
343	beqi_f fnai0 %f0 -10.0
344	calli @abort
345	fnai0:
346	movi_d %f0 0.0
347	movi_d %f1 4.0
348	movi_d %f2 5.0
349	fnmai_d %f0 %f1 %f2 6.0
350	beqi_d dnai0 %f0 -26.0
351	calli @abort
352	dnai0:
353	movi_f %f0 0.0
354	movi_f %f1 2.0
355	movi_f %f2 3.0
356	fnmsi_f %f0 %f1 %f2 4.0
357	beqi_f fnsi0 %f0 -2.0
358	calli @abort
359	fnsi0:
360	movi_d %f0 0.0
361	movi_d %f1 4.0
362	movi_d %f2 5.0
363	fnmsi_d %f0 %f1 %f2 6.0
364	beqi_d dnsi0 %f0 -14.0
365	calli @abort
366	dnsi0:
367
368	/* Simple encoding test for result also first argument */
369	movi_f %f1 2.0
370	movi_f %f2 3.0
371	fnmai_f %f1 %f1 %f2 4.0
372	beqi_f fnai1 %f1 -10.0
373	calli @abort
374	fnai1:
375	movi_d %f1 4.0
376	movi_d %f2 5.0
377	fnmai_d %f1 %f1 %f2 6.0
378	beqi_d dnai1 %f1 -26.0
379	calli @abort
380	dnai1:
381	movi_f %f1 2.0
382	movi_f %f2 3.0
383	fnmsi_f %f1 %f1 %f2 4.0
384	beqi_f fnsi1 %f1 -2.0
385	calli @abort
386	fnsi1:
387	movi_d %f1 4.0
388	movi_d %f2 5.0
389	fnmsi_d %f1 %f1 %f2 6.0
390	beqi_d dnsi1 %f1 -14.0
391	calli @abort
392	dnsi1:
393
394	/* Simple encoding test for result also second argument */
395	movi_f %f1 2.0
396	movi_f %f2 3.0
397	fnmai_f %f2 %f1 %f2 4.0
398	beqi_f fnai2 %f2 -10.0
399	calli @abort
400	fnai2:
401	movi_d %f1 4.0
402	movi_d %f2 5.0
403	fnmai_d %f2 %f1 %f2 6.0
404	beqi_d dnai2 %f2 -26.0
405	calli @abort
406	dnai2:
407	movi_f %f1 2.0
408	movi_f %f2 3.0
409	fnmsi_f %f2 %f1 %f2 4.0
410	beqi_f fnsi2 %f2 -2.0
411	calli @abort
412	fnsi2:
413	movi_d %f1 4.0
414	movi_d %f2 5.0
415	fnmsi_d %f2 %f1 %f2 6.0
416	beqi_d dnsi2 %f2 -14.0
417	calli @abort
418	dnsi2:
419
420	prepare
421	pushargi ok
422	finishi @puts
423
424	ret
425	epilog