1/*- 2 * Copyright (c) 1985 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Computer Consoles Inc. 7 * 8 * %sccs.include.redist.c% 9 * 10 * @(#)Ksubd.s 7.1 (Berkeley) 12/06/90 11 */ 12 13#include "../tahoe/SYS.h" 14 15/* 16 * double 17 * Ksubd(d1,d2) 18 * double d1,d2; 19 * { 20 * return(d1+(-d2)); 21 * } 22 */ 23 .text 24ENTRY(Ksubd, 0) 25 tstl 4(fp) 26 jneq next 27 movl 16(fp),r1 28 movl 12(fp),r0 29 lnd r0 30 std r0 31 ret 32next: 33 tstl 12(fp) 34 jneq doit 35 movl 8(fp),r1 36 movl 4(fp),r0 37 ret 38doit: 39 lnd 12(fp) # -op 40 pushl 20(fp) # hfs 41 pushd # push op_least op_most 42 pushl 8(fp) 43 pushl 4(fp) # acc 44 callf $24,_Kaddd 45 ret 46