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     ! 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.