Return to Ksubf.x CVS log

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

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

1.1     ! root        1:        .data
        !             2:        .text
        !             3: LL0:   .align  1
        !             4:        .globl  _Ksubf
        !             5:        .set    L12,0xffc
        !             6:        .data
        !             7:        .text
        !             8: _Ksubf:        .word   L12     # _Ksubf(acc_most,acc_least,op_most,op_least,hfs)
        !             9:        tstl    4(fp)   # handle (a-b) where a and/or b = 0.0
        !            10:        jneq    next
        !            11:        movl    $0,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    $0,r1
        !            20:        movl    4(fp),r0
        !            21:        ret
        !            22: doit:
        !            23:        lnd     12(fp)  # note: -(0) = 0 by definition!
        !            24:        pushl   20(fp)  # hfs
        !            25:        pushd   
        !            26:        pushl   8(fp)
        !            27:        pushl   4(fp)   # acc
        !            28:        callf   $24,_Kaddf
        !            29:        ret
        !            30: 
        !            31: 
        !            32: /*
        !            33:  * subf(d1,d2)
        !            34:  * {
        !            35:  *     return(d1+(-d2));
        !            36:  * }
        !            37: */

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