1/* Ksubd.s 1.3 86/01/05 */ 2 3#include "../tahoe/SYS.h" 4 5/* 6 * double 7 * Ksubd(d1,d2) 8 * double d1,d2; 9 * { 10 * return(d1+(-d2)); 11 * } 12 */ 13 .text 14ENTRY(Ksubd, 0) 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 22next: 23 tstl 12(fp) 24 jneq doit 25 movl 8(fp),r1 26 movl 4(fp),r0 27 ret 28doit: 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 36