|
|
1.1 root 1: #ifdef LIBC_SCCS
2: .asciz "@(#)subf.s 1.1 (Berkeley/CCI) 7/2/86"
3: #endif LIBC_SCCS
4:
5: #include <tahoemath/fp.h>
6: #include "DEFS.h"
7:
8: XENTRY(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
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.