The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
/* Set 68881/2 floating point rounding precision */
/* Reference: MC68881/MC68882 Floating-Point Coprocessor */
/* User's Manual, Motorola, Prentice-Hall, 1987 (First Edition) */
/* Pages 1-14, 2-3, 4-68. */
/* FPcr code $80 sets the 68882 coprocessor to */
/*    rounding precision = 53 bits */
/*    rounding mode = nearest or even */
/*    all exceptions (bits 8-15) disabled */
/* The instruction is */
/*	FMOVE.L	#$80,Fcr */
/* if the assembler will understand it. */

	.align 2
.text

/* set to single precision */
.globl _sprec
_sprec
	.word 0xf23c,0x9000,0x0000,0x0040
	rts

/* set to double precision */
.globl _dprec

_dprec:
	.word	0xf23c,0x9000,0x0000,0x0080
	rts

/* set to extended (long double) precision */
.globl _ldprec

_ldprec:
	.word	0xf23c,0x9000,0x0000,0x0000
	rts