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