Return to Ksubd.s CVS log

Up to [CSRG BSD Unix] / 43BSDReno / sys / tahoemath

Annotation of 43BSDReno/sys/tahoemath/Ksubd.s, revision 1.1.1.1

1.1       root        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
                     14: ENTRY(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
                     22: next:
                     23:        tstl    12(fp)
                     24:        jneq    doit
                     25:        movl    8(fp),r1
                     26:        movl    4(fp),r0
                     27:        ret
                     28: doit:
                     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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.