	GET	riscos/asm_dec.s

	AREA	|C$$code|, CODE, READONLY

	EXPORT	fpusetup

; Setup the FPU to not complain about overflows, underflows, infinite
; values etc etc. This is what the PC needed. ;-)
	NAME	fpusetup
fpusetup
	STMFD	r13!, {r0-r12,r14}
	RFS	r0
	BIC	r0,r0,#31<<16
;	BIC	r0,r0,#1<<8
;	BIC	r0,r0,#10<<8
	WFS	r0
 [ {CONFIG}=26
	LDMFD	r13!, {r0-r12,pc}^	; return
 |
	LDMFD	r13!, {r0-r12,pc}	; return
 ]

	END
