xref: /original-bsd/lib/libc/tahoe/fpe/subd.s (revision a141c157)
1#ifdef LIBC_SCCS
2	.asciz	"@(#)subd.s	1.1 (Berkeley/CCI) 07/02/86"
3#endif LIBC_SCCS
4
5#include <tahoemath/fp.h>
6#include "DEFS.h"
7
8XENTRY(subd, 0)
9	pushl	16(fp)
10	pushl	12(fp)
11	callf	$12,Xnegd
12	pushl	r1
13	pushl	r0
14	pushl	8(fp)
15	pushl	4(fp)
16	callf	$20,Xaddd
17	ret
18