1*25693Ssam/* Ksubd.s 1.3 86/01/05 */ 225664Ssam 3*25693Ssam#include "../tahoe/SYS.h" 425664Ssam 525664Ssam/* 625664Ssam * double 725664Ssam * Ksubd(d1,d2) 825664Ssam * double d1,d2; 925664Ssam * { 1025664Ssam * return(d1+(-d2)); 1125664Ssam * } 1225664Ssam */ 1324144Ssam .text 1425664SsamENTRY(Ksubd, 0) 1524144Ssam tstl 4(fp) 1624144Ssam jneq next 1724144Ssam movl 16(fp),r1 1824144Ssam movl 12(fp),r0 1924144Ssam lnd r0 2024144Ssam std r0 2124144Ssam ret 2224144Ssamnext: 2324144Ssam tstl 12(fp) 2424144Ssam jneq doit 2524144Ssam movl 8(fp),r1 2624144Ssam movl 4(fp),r0 2724144Ssam ret 2824144Ssamdoit: 2924144Ssam lnd 12(fp) # -op 3024144Ssam pushl 20(fp) # hfs 3124144Ssam pushd # push op_least op_most 3224144Ssam pushl 8(fp) 3324144Ssam pushl 4(fp) # acc 3424144Ssam callf $24,_Kaddd 3524144Ssam ret 36