Return to mmul.t0 CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst

Annotation of cci/usr/src/usr.bin/f77/f77pass1/tst/mmul.t0, revision 1.1.1.1

1.1       root        1:        .data   0
                      2:        .data   2
                      3:        .data   1
                      4:        .data   0
                      5:        .globl  _mmul_
                      6:        .align  2
                      7:        .stabs  "mmul.f",0x64,0,0,0
                      8: 
                      9: .text
                     10:        .globl  _mmul_
                     11:        .align  1
                     12: _mmul_:
                     13:        .word   LWM1
                     14:        subl3   $LF1,fp,sp
                     15:        jbr     L12
                     16: L15:
                     17:        movl    $1,r10
                     18:        movl    *16(r12),-92(fp)
                     19:        cmpl    r10,-92(fp)
                     20:        jgtr    L27
                     21: L28:
                     22:        movl    r10,v.2-v.1(r11)
                     23:        movl    $1,r9
                     24:        movl    *24(r12),-96(fp)
                     25:        cmpl    r9,-96(fp)
                     26:        jgtr    L32
                     27: L33:
                     28:        movl    r9,v.3-v.1(r11)
                     29:        clrl    v.4-v.1(r11)
                     30:        movl    $1,r8
                     31:        movl    *20(r12),-100(fp)
                     32:        cmpl    r8,-100(fp)
                     33:        jgtr    L38
                     34: L39:
                     35:        movl    r8,v.5-v.1(r11)
                     36: L37:
                     37:        mull3   -56(fp),r8,r0
                     38:        addl2   r10,r0
                     39:        mull3   -68(fp),r9,r1
                     40:        addl2   r8,r1
                     41:        ldf     *4(r12)[r0]
                     42:        mulf    *8(r12)[r1]
                     43:        stf     r0
                     44:        ldf     r0
                     45:        addf    v.4-v.1(r11)
                     46:        stf     r0
                     47:        movl    r0,v.4-v.1(r11)
                     48:        incl    r8
                     49:        cmpl    r8,-100(fp)
                     50:        jleq    L39
                     51: L38:
                     52:        movl    r8,v.5-v.1(r11)
                     53: L26:
                     54:        mull3   -80(fp),r9,r0
                     55:        addl2   r10,r0
                     56:        movl    v.4-v.1(r11),*12(r12)[r0]
                     57:        incl    r9
                     58:        cmpl    r9,-96(fp)
                     59:        jleq    L33
                     60: L32:
                     61:        movl    r9,v.3-v.1(r11)
                     62:        incl    r10
                     63:        cmpl    r10,-92(fp)
                     64:        jleq    L28
                     65: L27:
                     66:        movl    r10,v.2-v.1(r11)
                     67: L14:
                     68: L13:
                     69:        ret#0
                     70: L12:
                     71:        movl    $v.1,r11
                     72:        movl    fp,r12
                     73:        movl    *16(r12),-56(fp)
                     74:        movl    *20(r12),-60(fp)
                     75:        addl3   $1,-56(fp),r0
                     76:        movl    r0,-64(fp)
                     77:        shll    $2,-64(fp),r0
                     78:        subl2   r0,4(r12)
                     79:        movl    *20(r12),-68(fp)
                     80:        movl    *24(r12),-72(fp)
                     81:        addl3   $1,-68(fp),r0
                     82:        movl    r0,-76(fp)
                     83:        shll    $2,-76(fp),r0
                     84:        subl2   r0,8(r12)
                     85:        movl    *16(r12),-80(fp)
                     86:        movl    *24(r12),-84(fp)
                     87:        addl3   $1,-80(fp),r0
                     88:        movl    r0,-88(fp)
                     89:        shll    $2,-88(fp),r0
                     90:        subl2   r0,12(r12)
                     91:        jbr     L15
                     92:        .set    LF1,100
                     93:        .set    LWM1,0x1F00
                     94: .text
                     95:        .data   2
                     96:        .align  2
                     97: v.2:
                     98:        .space  4
                     99:        .align  2
                    100: v.5:
                    101:        .space  4
                    102:        .align  2
                    103: v.4:
                    104:        .space  4
                    105:        .align  2
                    106: v.3:
                    107:        .space  4
                    108:        .set    v.1,v.4
                    109: 

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