1/* 2 * Copyright (c) 1986, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Computer Consoles Inc. 7 * 8 * %sccs.include.redist.c% 9 */ 10 11#if defined(SYSLIBC_SCCS) && !defined(lint) 12 .asciz "@(#)subf.s 8.1 (Berkeley) 06/04/93" 13#endif /* SYSLIBC_SCCS and not lint */ 14 15#include <tahoemath/fp.h> 16#include "DEFS.h" 17 18XENTRY(subf, R2|R3|R4|R5|R6|R7|R8|R9) 19 clrl r1 20 pushl 12(fp) 21 callf $8,Xnegf 22 pushl r1 23 pushl r0 24 pushl 8(fp) 25 pushl 4(fp) 26 callf $20,Xaddf 27 ret 28