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