redo include files for kernel reorg

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

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

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

/*
* double 
* Ksubd(d1,d2)
* double d1,d2;
* {
*      return(d1+(-d2));
* }
*/
       .text
ENTRY(Ksubd, 0)
       tstl    4(fp)
       jneq    next
       movl    16(fp),r1
       movl    12(fp),r0
       lnd     r0
       std     r0
       ret
next:
       tstl    12(fp)
       jneq    doit
       movl    8(fp),r1
       movl    4(fp),r0
       ret
doit:
       lnd     12(fp)          # -op
       pushl   20(fp)          # hfs
       pushd                   # push op_least op_most
       pushl   8(fp)
       pushl   4(fp)           # acc
       callf   $24,_Kaddd
       ret