m68k/fpsp040/scale.S

52 	movew		FPTEMP(%a6),%d1	|get dest exponent
53 	smi		L_SCR1(%a6)	|use L_SCR1 to hold sign
55 	movew		ETEMP(%a6),%d0	|check src bounds
66 	moveb		DTAG(%a6),%d0
70 	st		STORE_FLG(%a6)	|dest already contains result
71 	orl		#unfl_mask,USER_FPSR(%a6) |set UNFL
73 	leal		FPTEMP(%a6),%a0
76 	fmovel		USER_FPCR(%a6),%FPCR
77 	fmovex		FPTEMP(%a6),%fp0	|simply return dest
86 	fmovex		ETEMP(%a6),%fp0	|move in src for int
90 	tstw		ETEMP(%a6)	|check src sign
104 	tstb		L_SCR1(%a6)
108 	movew		%d1,FPTEMP(%a6)	|result in FPTEMP
109 	fmovel		USER_FPCR(%a6),%FPCR
110 	fmovex		FPTEMP(%a6),%fp0	|write result to fp0
113 	tstb		L_SCR1(%a6)
117 	movew		FPTEMP(%a6),ETEMP(%a6)	|result in ETEMP
118 	movel		FPTEMP_HI(%a6),ETEMP_HI(%a6)
119 	movel		FPTEMP_LO(%a6),ETEMP_LO(%a6)
123 	tstb		L_SCR1(%a6)
127 	tstl		FPTEMP_HI(%a6)	|check j bit
129 	movew		%d1,ETEMP(%a6)	|input expected in ETEMP
130 	movel		FPTEMP_HI(%a6),ETEMP_HI(%a6)
131 	movel		FPTEMP_LO(%a6),ETEMP_LO(%a6)
132 	orl		#unfl_bit,USER_FPSR(%a6)	|set unfl
133 	leal		ETEMP(%a6),%a0
136 	movew		%d1,FPTEMP(%a6)	|result in FPTEMP
137 	fmovel		USER_FPCR(%a6),%FPCR
138 	fmovex		FPTEMP(%a6),%fp0	|write result to fp0
151 	tstb		L_SCR1(%a6)
155 	movew		%d1,FPTEMP(%a6)	|result in FPTEMP
156 	fmovel		USER_FPCR(%a6),%FPCR
157 	fmovex		FPTEMP(%a6),%fp0	|write result to fp0
171 	movel		FPTEMP_HI(%a6),%d1
172 	movel		FPTEMP_LO(%a6),%d2
173 	clrl		L_SCR2(%a6)
179 	st		L_SCR2(%a6)	|use L_SCR2 to capture inex
183 	tstb		L_SCR2(%a6)
185 	orl		#unfl_inx_mask,USER_FPSR(%a6)
192 	clrw		FPTEMP_EX(%a6)
193 	tstb		L_SCR1(%a6)	|test for sign
195 	orw		#0x8000,FPTEMP_EX(%a6) |set sign bit
197 	movel		%d1,FPTEMP_HI(%a6)
198 	movel		%d2,FPTEMP_LO(%a6)
202 	tstl		FPTEMP_LO(%a6)
210 	btstb		#5,FPCR_MODE(%a6) |test if rm or rp
212 	btstb		#4,FPCR_MODE(%a6) |check which one
215 	tstb		L_SCR1(%a6)	|check sign
217 	movel		#1,FPTEMP_LO(%a6) |set lsb
220 	tstb		L_SCR1(%a6)	|check sign
222 	movel		#1,FPTEMP_LO(%a6) |set lsb
223 	orl		#neg_mask,USER_FPSR(%a6) |set N
226 	fmovel		USER_FPCR(%a6),%FPCR
227 	fmovex		FPTEMP(%a6),%fp0	|use fmove to set cc's
235 	movel		FPTEMP_EX(%a6),ETEMP_EX(%a6)
236 	movel		FPTEMP_HI(%a6),ETEMP_HI(%a6)
237 	movel		FPTEMP_LO(%a6),ETEMP_LO(%a6)
238 	leal		ETEMP(%a6),%a0
245 	orl		#unfl_mask,USER_FPSR(%a6) |set unfl
246 	tstb		L_SCR1(%a6)	|check for sign
248 	orl		#neg_mask,USER_FPSR(%a6) |set N
258 	orl		#unfl_inx_mask,USER_FPSR(%a6)
259 	btstb		#5,FPCR_MODE(%a6) |test if rm or rp
261 	btstb		#4,FPCR_MODE(%a6) |check which one
264 	tstb		L_SCR1(%a6)	|check sign
266 	clrl		FPTEMP_EX(%a6)
267 	clrl		FPTEMP_HI(%a6)
268 	movel		#1,FPTEMP_LO(%a6) |set lsb
271 	tstb		L_SCR1(%a6)	|check sign
273 	movew		#0x8000,FPTEMP_EX(%a6)
274 	clrl		FPTEMP_HI(%a6)
275 	movel		#1,FPTEMP_LO(%a6) |set lsb
276 	orl		#neg_mask,USER_FPSR(%a6) |set N
280 	tstb		L_SCR1(%a6)
283 	clrl		FP_SCR1(%a6)	|clear the exceptional operand
284 	clrl		FP_SCR1+4(%a6)	|for gen_except.
285 	clrl		FP_SCR1+8(%a6)
289 	clrl		FP_SCR1(%a6)	|clear the exceptional operand
290 	clrl		FP_SCR1+4(%a6)	|for gen_except.
291 	clrl		FP_SCR1+8(%a6)
302 	movew		FPTEMP_EX(%a6),%d1
303 	movel		FPTEMP_HI(%a6),%d2
304 	movel		FPTEMP_LO(%a6),%d3
320 	tstb		L_SCR1(%a6)
324 	movemw		%d1,FPTEMP_EX(%a6)
325 	moveml		%d2,FPTEMP_HI(%a6)
326 	moveml		%d3,FPTEMP_LO(%a6)
327 	fmovel		USER_FPCR(%a6),%FPCR
328 	fmovex		FPTEMP(%a6),%fp0
337 	tstb		L_SCR1(%a6)	|check for sign
339 	orl		#neg_mask,USER_FPSR(%a6) |set N
342 	movemw		%d1,ETEMP_EX(%a6)
343 	moveml		%d2,ETEMP_HI(%a6)
344 	moveml		%d3,ETEMP_LO(%a6)
345 	orl		#unfl_mask,USER_FPSR(%a6) |set unfl
347 	leal		ETEMP(%a6),%a0
355 	tstb		L_SCR1(%a6)
359 	movel		FPTEMP_HI(%a6),ETEMP_HI(%a6)
360 	movel		FPTEMP_LO(%a6),ETEMP_LO(%a6)
361 	tstw		ETEMP(%a6)
364 	movew		%d1,ETEMP(%a6)	|result in ETEMP
367 	movew		%d1,ETEMP(%a6)	|result in ETEMP
368 	leal		ETEMP(%a6),%a0