Return to mmul.t2 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.t2, 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: .text
                      9: .globl _mmul_
                     10: .set   LF1,104
                     11: .set   LWM1,0x1FC0
                     12: .align 1
                     13: _mmul_:.word   LWM1
                     14: subl3  $LF1,fp,sp
                     15: movl   $v.1,r11
                     16: movl   fp,r12
                     17: movl   *16(r12),-56(fp)
                     18: movl   *20(r12),-60(fp)
                     19: addl3  $1,-56(fp),-64(fp)
                     20: shll   $2,-64(fp),r0
                     21: subl2  r0,4(r12)
                     22: movl   *20(r12),-68(fp)
                     23: movl   *24(r12),-72(fp)
                     24: addl3  $1,-68(fp),-76(fp)
                     25: shll   $2,-76(fp),r0
                     26: subl2  r0,8(r12)
                     27: movl   *16(r12),-80(fp)
                     28: movl   *24(r12),-84(fp)
                     29: addl3  $1,-80(fp),-88(fp)
                     30: shll   $2,-88(fp),r0
                     31: subl2  r0,12(r12)
                     32: movl   *16(r12),-92(fp)
                     33: movl   *24(r12),-96(fp)
                     34: movl   *20(r12),-100(fp)
                     35: movl   v.5-v.1(r11),r10
                     36: movl   v.4-v.1(r11),r9
                     37: movl   4(r12),r8
                     38: movl   8(r12),r7
                     39: movl   -56(fp),r6
                     40: movl   $1,v.2-v.1(r11)
                     41: cmpl   v.2-v.1(r11),-92(fp)
                     42: jgtr   L27
                     43: L28:movl       $1,v.3-v.1(r11)
                     44: cmpl   v.3-v.1(r11),-96(fp)
                     45: jgtr   L31
                     46: L32:clrl       r9
                     47: mull3  -68(fp),v.3-v.1(r11),-104(fp)
                     48: movl   $1,r10
                     49: cmpl   r10,-100(fp)
                     50: jgtr   L26
                     51: L35:mull3      r6,r10,r0
                     52: addl2  v.2-v.1(r11),r0
                     53: addl3  -104(fp),r10,r1
                     54: ldf    (r8)[r0]
                     55: mulf   (r7)[r1]
                     56: addf   r9
                     57: stf    r9
                     58: aobleq -100(fp),r10,L35
                     59: L26:mull3      -80(fp),v.3-v.1(r11),r0
                     60: addl2  v.2-v.1(r11),r0
                     61: movl   r9,*12(r12)[r0]
                     62: aobleq -96(fp),v.3-v.1(r11),L32
                     63: L31:aobleq     -92(fp),v.2-v.1(r11),L28
                     64: L27:movl       r9,v.4-v.1(r11)
                     65: movl   r10,v.5-v.1(r11)
                     66: ret#0
                     67: 
                     68:        .data   2
                     69:        .align  2
                     70: v.2:
                     71:        .space  4
                     72:        .align  2
                     73: v.5:
                     74:        .space  4
                     75:        .align  2
                     76: v.4:
                     77:        .space  4
                     78:        .align  2
                     79: v.3:
                     80:        .space  4
                     81:        .set    v.1,v.4
                     82: 

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