xref: /csrg-svn/lib/libc/tahoe/fpe/subf.s (revision 61181)
136829Sbostic/*
2*61181Sbostic * Copyright (c) 1986, 1993
3*61181Sbostic *	The Regents of the University of California.  All rights reserved.
436829Sbostic *
536829Sbostic * This code is derived from software contributed to Berkeley by
636829Sbostic * Computer Consoles Inc.
736829Sbostic *
842637Sbostic * %sccs.include.redist.c%
936829Sbostic */
1029520Ssam
1136829Sbostic#if defined(SYSLIBC_SCCS) && !defined(lint)
12*61181Sbostic	.asciz "@(#)subf.s	8.1 (Berkeley) 06/04/93"
1336829Sbostic#endif /* SYSLIBC_SCCS and not lint */
1436829Sbostic
1529520Ssam#include <tahoemath/fp.h>
1629520Ssam#include "DEFS.h"
1729520Ssam
1829520SsamXENTRY(subf, R2|R3|R4|R5|R6|R7|R8|R9)
1929520Ssam	clrl	r1
2029520Ssam	pushl	12(fp)
2129520Ssam	callf	$8,Xnegf
2229520Ssam	pushl	r1
2329520Ssam	pushl	r0
2429520Ssam	pushl	8(fp)
2529520Ssam	pushl	4(fp)
2629520Ssam	callf	$20,Xaddf
2729520Ssam	ret
28