Return to subd.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	Xsubd
.set	L12,0x0
.data
.text
_subd:
Xsubd:.word	L12
pushl	16(fp)
pushl	12(fp)
callf	$12,Xnegd
pushl	r1
pushl	r0
pushl	8(fp)
pushl	4(fp)
callf	$20,Xaddd
ret


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

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