[unix-history] / usr / src / sys / tahoe / math / Ksubd.s

/*	Ksubd.s	1.4	90/12/04	*/

#include "../tahoe/SYS.h"

/*
 * double 
 * Ksubd(d1,d2)
 * double d1,d2;
 * {
 * 	return(d1+(-d2));
 * }
 */
	.text
ENTRY(Ksubd, 0)
	tstl	4(fp)
	jneq	next
	movl	16(fp),r1
	movl	12(fp),r0
	lnd	r0
	std	r0
	ret
next:
	tstl	12(fp)
	jneq	doit
	movl	8(fp),r1
	movl	4(fp),r0
	ret
doit:
	lnd	12(fp)		# -op
	pushl	20(fp)		# hfs
	pushd			# push op_least op_most
	pushl	8(fp)
	pushl	4(fp)		# acc
	callf	$24,_Kaddd
	ret
Commit	Line	Data
a6730a00	1	/* Ksubd.s 1.4 90/12/04 */
2b252132	2
9d1834ba	3	#include "../tahoe/SYS.h"
2b252132 SL	4
	5	/*
	6	* double
	7	* Ksubd(d1,d2)
	8	* double d1,d2;
	9	* {
	10	* return(d1+(-d2));
	11	* }
	12	*/
90e14943	13	.text
2b252132	14	ENTRY(Ksubd, 0)
90e14943 SL	15	tstl 4(fp)
	16	jneq next
	17	movl 16(fp),r1
	18	movl 12(fp),r0
	19	lnd r0
	20	std r0
	21	ret
	22	next:
	23	tstl 12(fp)
	24	jneq doit
	25	movl 8(fp),r1
	26	movl 4(fp),r0
	27	ret
	28	doit:
	29	lnd 12(fp) # -op
	30	pushl 20(fp) # hfs
	31	pushd # push op_least op_most
	32	pushl 8(fp)
	33	pushl 4(fp) # acc
	34	callf $24,_Kaddd
	35	ret