![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to b7.t2 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst|
Return to b7.t2 CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst |
1.1 ! root 1: .data 0 ! 2: .align 2 ! 3: L20: ! 4: .long 10 ! 5: .data 2 ! 6: .data 1 ! 7: .data 0 ! 8: .data 2 ! 9: .data 1 ! 10: .data 0 ! 11: .data 2 ! 12: .data 1 ! 13: .data 0 ! 14: .data 2 ! 15: .data 1 ! 16: .data 0 ! 17: .globl _MAIN_ ! 18: .globl _stat_ ! 19: .globl _gtmean_ ! 20: .globl _getmed_ ! 21: .align 2 ! 22: .stabs "b7.f",0x64,0,0,0 ! 23: .text ! 24: .globl _MAIN_ ! 25: .set LF1,52 ! 26: .set LWM1,0x1C00 ! 27: .align 1 ! 28: _MAIN_:.word LWM1 ! 29: subl3 $LF1,fp,sp ! 30: movl $v.1,r11 ! 31: movl v.3-v.1(r11),r10 ! 32: movl $1,r10 ! 33: L15:pushl $L20 ! 34: addl3 $v.2-v.1,r11,-(sp) ! 35: callf $12,_stat_ ! 36: aobleq $30000,r10,L15 ! 37: movl r10,v.3-v.1(r11) ! 38: ret#0 ! 39: .globl _stat_ ! 40: .set LF2,60 ! 41: .set LWM2,0x1F80 ! 42: .align 1 ! 43: _stat_:.word LWM2 ! 44: subl3 $LF2,fp,sp ! 45: movl $v.4,r11 ! 46: movl fp,r12 ! 47: movl *8(r12),-56(fp) ! 48: subl2 $4,4(r12) ! 49: clrl v.5-v.4(r11) ! 50: movl *8(r12),-60(fp) ! 51: movl v.5-v.4(r11),r10 ! 52: movl v.6-v.4(r11),r9 ! 53: movl 4(r12),r8 ! 54: movl -60(fp),r7 ! 55: movl $1,r9 ! 56: cmpl r9,r7 ! 57: jgtr L29 ! 58: L28:addl2 (r8)[r9],r10 ! 59: aobleq r7,r9,L28 ! 60: L29:movl r9,v.6-v.4(r11) ! 61: movl r10,v.5-v.4(r11) ! 62: addl3 $v.5-v.4,r11,-(sp) ! 63: pushl 8(r12) ! 64: addl3 $4,4(r12),-(sp) ! 65: callf $16,_gtmean_ ! 66: movl r0,v.7-v.4(r11) ! 67: addl3 $v.5-v.4,r11,-(sp) ! 68: pushl 8(r12) ! 69: addl3 $4,4(r12),-(sp) ! 70: callf $16,_getmed_ ! 71: ret#0 ! 72: .globl _gtmean_ ! 73: .set LF3,68 ! 74: .set LWM3,0x1F80 ! 75: .align 1 ! 76: _gtmean_:.word LWM3 ! 77: subl3 $LF3,fp,sp ! 78: movl $v.8,r11 ! 79: movl fp,r12 ! 80: movl *8(r12),-56(fp) ! 81: subl2 $4,4(r12) ! 82: clrl v.9-v.8(r11) ! 83: movl *8(r12),-68(fp) ! 84: movl v.10-v.8(r11),r10 ! 85: movl v.9-v.8(r11),r9 ! 86: movl 4(r12),r8 ! 87: movl -68(fp),r7 ! 88: movl $1,r10 ! 89: cmpl r10,r7 ! 90: jgtr L42 ! 91: L41:mull3 r10,(r8)[r10],r0 ! 92: addl2 r0,r9 ! 93: aobleq r7,r10,L41 ! 94: L42:movl r9,v.9-v.8(r11) ! 95: movl r10,v.10-v.8(r11) ! 96: divl3 *12(r12),r9,-64(fp) ! 97: movl -64(fp),r0 ! 98: ret#1 ! 99: .globl _getmed_ ! 100: .set LF4,64 ! 101: .set LWM4,0x1FC0 ! 102: .align 1 ! 103: _getmed_:.word LWM4 ! 104: subl3 $LF4,fp,sp ! 105: movl $v.11,r11 ! 106: movl fp,r12 ! 107: movl *8(r12),-56(fp) ! 108: subl2 $4,4(r12) ! 109: clrl v.12-v.11(r11) ! 110: movl *8(r12),-60(fp) ! 111: shar $2,*12(r12),-64(fp) ! 112: movl v.12-v.11(r11),r10 ! 113: movl 4(r12),r9 ! 114: movl -60(fp),r8 ! 115: movl -64(fp),r7 ! 116: movl v.13-v.11(r11),r6 ! 117: movl $1,r6 ! 118: cmpl r6,r8 ! 119: jgtr L55 ! 120: L56:addl2 (r9)[r6],r10 ! 121: cmpl r10,r7 ! 122: jleq L54 ! 123: movl r10,v.12-v.11(r11) ! 124: movl r6,v.13-v.11(r11) ! 125: L49:ret#0 ! 126: L54:aobleq r8,r6,L56 ! 127: L55:movl r6,v.13-v.11(r11) ! 128: movl r10,v.12-v.11(r11) ! 129: jbr L49 ! 130: ! 131: .data 2 ! 132: .align 2 ! 133: v.2: ! 134: .quad 0x1F4000003E8 ! 135: .quad 0x7D000000FA0 ! 136: .quad 0x64000000C8 ! 137: .quad 0x19000000320 ! 138: .quad 0x64000000C80 ! 139: .align 2 ! 140: v.3: ! 141: .space 4 ! 142: .set v.1,v.3 ! 143: ! 144: .align 2 ! 145: v.5: ! 146: .space 4 ! 147: .align 2 ! 148: v.7: ! 149: .space 4 ! 150: .align 2 ! 151: v.6: ! 152: .space 4 ! 153: .set v.4,v.7 ! 154: ! 155: .align 2 ! 156: v.10: ! 157: .space 4 ! 158: .align 2 ! 159: v.9: ! 160: .space 4 ! 161: .set v.8,v.9 ! 162: ! 163: .align 2 ! 164: v.13: ! 165: .space 4 ! 166: .align 2 ! 167: v.12: ! 168: .space 4 ! 169: .set v.11,v.12 ! 170:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.