1140195Sdas/*
2140195Sdas * Written by J.T. Conklin <jtc@netbsd.org>.
3140195Sdas * Public domain.
4140195Sdas */
5140195Sdas
6140195Sdas#include <machine/asm.h>
7140195Sdas
8140195Sdas__FBSDID("$FreeBSD$");
9140195Sdas/* RCSID("$NetBSD: e_remainderf.S,v 1.2 1995/05/08 23:49:47 jtc Exp $") */
10140195Sdas
11141280SdasENTRY(remainderf)
12140195Sdas	flds	8(%esp)
13140195Sdas	flds	4(%esp)
14140195Sdas1:	fprem1
15140195Sdas	fstsw	%ax
16140195Sdas	sahf
17140195Sdas	jp	1b
18140195Sdas	fstp	%st(1)
19140195Sdas	ret
20192760SattilioEND(remainderf)
21217108Skib
22217108Skib	.section .note.GNU-stack,"",%progbits
23