1*45761Sbostic/*- 2*45761Sbostic * Copyright (c) 1985 The Regents of the University of California. 3*45761Sbostic * All rights reserved. 4*45761Sbostic * 5*45761Sbostic * This code is derived from software contributed to Berkeley by 6*45761Sbostic * Computer Consoles Inc. 7*45761Sbostic * 8*45761Sbostic * %sccs.include.redist.c% 9*45761Sbostic * 10*45761Sbostic * @(#)Ksubd.s 7.1 (Berkeley) 12/06/90 11*45761Sbostic */ 1225664Ssam 1325693Ssam#include "../tahoe/SYS.h" 1425664Ssam 1525664Ssam/* 1625664Ssam * double 1725664Ssam * Ksubd(d1,d2) 1825664Ssam * double d1,d2; 1925664Ssam * { 2025664Ssam * return(d1+(-d2)); 2125664Ssam * } 2225664Ssam */ 2324144Ssam .text 2425664SsamENTRY(Ksubd, 0) 2524144Ssam tstl 4(fp) 2624144Ssam jneq next 2724144Ssam movl 16(fp),r1 2824144Ssam movl 12(fp),r0 2924144Ssam lnd r0 3024144Ssam std r0 3124144Ssam ret 3224144Ssamnext: 3324144Ssam tstl 12(fp) 3424144Ssam jneq doit 3524144Ssam movl 8(fp),r1 3624144Ssam movl 4(fp),r0 3724144Ssam ret 3824144Ssamdoit: 3924144Ssam lnd 12(fp) # -op 4024144Ssam pushl 20(fp) # hfs 4124144Ssam pushd # push op_least op_most 4224144Ssam pushl 8(fp) 4324144Ssam pushl 4(fp) # acc 4424144Ssam callf $24,_Kaddd 4524144Ssam ret 46