1#ifdef LIBC_SCCS 2 .asciz "@(#)subf.s 1.1 (Berkeley/CCI) 07/02/86" 3#endif LIBC_SCCS 4 5#include <tahoemath/fp.h> 6#include "DEFS.h" 7 8XENTRY(subf, R2|R3|R4|R5|R6|R7|R8|R9) 9 clrl r1 10 pushl 12(fp) 11 callf $8,Xnegf 12 pushl r1 13 pushl r0 14 pushl 8(fp) 15 pushl 4(fp) 16 callf $20,Xaddf 17 ret 18