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

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

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

/*
 * _Ksubf(acc_most,acc_least,op_most,op_least,hfs)
 *
 * subf(d1,d2)
 * {
 * 	return(d1+(-d2));
 * }
 */
	.text
ENTRY(Ksubf, 0)
	tstl	4(fp)	# handle (a-b) where a and/or b = 0.0
	jneq	next
	movl	$0,r1
	movl	12(fp),r0
	lnd	r0
	std	r0
	ret
next:
	tstl	12(fp)
	jneq	doit
	movl	$0,r1
	movl	4(fp),r0
	ret
doit:
	lnd	12(fp)	# note: -(0) = 0 by definition!
	pushl	20(fp)	# hfs
	pushd	
	pushl	8(fp)
	pushl	4(fp)	# acc
	callf	$24,_Kaddf
	ret
Commit	Line	Data
a6730a00	1	/* Ksubf.s 1.4 90/12/04 */
2b252132	2
9d1834ba	3	#include "../tahoe/SYS.h"
2b252132 SL	4
	5	/*
	6	* _Ksubf(acc_most,acc_least,op_most,op_least,hfs)
	7	*
	8	* subf(d1,d2)
	9	* {
	10	* return(d1+(-d2));
	11	* }
	12	*/
90e14943	13	.text
2b252132	14	ENTRY(Ksubf, 0)
90e14943 SL	15	tstl 4(fp) # handle (a-b) where a and/or b = 0.0
	16	jneq next
	17	movl $0,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 $0,r1
	26	movl 4(fp),r0
	27	ret
	28	doit:
	29	lnd 12(fp) # note: -(0) = 0 by definition!
	30	pushl 20(fp) # hfs
	31	pushd
	32	pushl 8(fp)
	33	pushl 4(fp) # acc
	34	callf $24,_Kaddf
	35	ret