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

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.