Return to subf.x CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / lib / libc / tahoe / gen

Power 6/32 Unix version 1.2b

.data
.text
LL0:.align	1
.globl	Xsubf
.set	L12,0x0
.data
.text
_subf:
Xsubf:.word	L12
clrl	r1
pushl	12(fp)
callf	$8,Xnegf
pushl	r1
pushl	r0
pushl	8(fp)
pushl	4(fp)
callf	$20,Xaddf
ret


/*
 * subf(d1,d2)
 * {
 * 	return(d1+(-d2));
 * }
*/

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.