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

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.