Return to Ksubd.x CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe

Annotation of cci/sys/tahoe/Ksubd.x, revision 1.1

1.1     ! root        1:        .data
        !             2:        .text
        !             3: LL0:   .align  1
        !             4:        .globl  _Ksubd
        !             5:        .set    L12,0x0
        !             6:        .data
        !             7:        .text
        !             8: _Ksubd:        .word   L12     # _Ksubd(acc_most,acc_least,op_most,op_least,hfs)
        !             9:        tstl    4(fp)
        !            10:        jneq    next
        !            11:        movl    16(fp),r1
        !            12:        movl    12(fp),r0
        !            13:        lnd     r0
        !            14:        std     r0
        !            15:        ret
        !            16: next:
        !            17:        tstl    12(fp)
        !            18:        jneq    doit
        !            19:        movl    8(fp),r1
        !            20:        movl    4(fp),r0
        !            21:        ret
        !            22: doit:
        !            23:        lnd     12(fp)          # -op
        !            24:        pushl   20(fp)          # hfs
        !            25:        pushd                   # push op_least op_most
        !            26:        pushl   8(fp)
        !            27:        pushl   4(fp)           # acc
        !            28:        callf   $24,_Kaddd
        !            29:        ret
        !            30: 
        !            31: 
        !            32: /*
        !            33:  * double 
        !            34:  * subd(d1,d2)
        !            35:  * double d1,d2;
        !            36:  * {
        !            37:  *     return(d1+(-d2));
        !            38:  * }
        !            39: */

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